Mock Version: 4.1
Mock Version: 4.1
Mock Version: 4.1
ENTER ['do_with_status'](['bash', '--login', '-c', '/usr/bin/rpmbuild -bs --noclean --target x86_64 --nodeps /builddir/build/SPECS/clisp.spec'], chrootPath='/var/lib/mock/dist-ocs23-epol9-build-167086-10311/root'env={'TERM': 'vt100', 'SHELL': '/bin/bash', 'HOME': '/builddir', 'HOSTNAME': 'mock', 'PATH': '/usr/bin:/bin:/usr/sbin:/sbin', 'PROMPT_COMMAND': 'printf "\\033]0;<mock-chroot>\\007"', 'PS1': '<mock-chroot> \\s-\\v\\$ ', 'LANG': 'C.UTF-8'}shell=Falselogger=<mockbuild.trace_decorator.getLog object at 0x7fef8c1c45d0>timeout=86400uid=982gid=135user='mockbuild'nspawn_args=[]unshare_net=TrueprintOutput=False)
Executing command: ['bash', '--login', '-c', '/usr/bin/rpmbuild -bs --noclean --target x86_64 --nodeps /builddir/build/SPECS/clisp.spec'] with env {'TERM': 'vt100', 'SHELL': '/bin/bash', 'HOME': '/builddir', 'HOSTNAME': 'mock', 'PATH': '/usr/bin:/bin:/usr/sbin:/sbin', 'PROMPT_COMMAND': 'printf "\\033]0;<mock-chroot>\\007"', 'PS1': '<mock-chroot> \\s-\\v\\$ ', 'LANG': 'C.UTF-8'} and shell False
Building target platforms: x86_64
Building for target x86_64
Wrote: /builddir/build/SRPMS/clisp-2.49.93-1.ocs23.src.rpm
Child return code was: 0
ENTER ['do_with_status'](['bash', '--login', '-c', '/usr/bin/rpmbuild -bb --noclean --target x86_64 --nodeps /builddir/build/SPECS/clisp.spec'], chrootPath='/var/lib/mock/dist-ocs23-epol9-build-167086-10311/root'env={'TERM': 'vt100', 'SHELL': '/bin/bash', 'HOME': '/builddir', 'HOSTNAME': 'mock', 'PATH': '/usr/bin:/bin:/usr/sbin:/sbin', 'PROMPT_COMMAND': 'printf "\\033]0;<mock-chroot>\\007"', 'PS1': '<mock-chroot> \\s-\\v\\$ ', 'LANG': 'C.UTF-8'}shell=Falselogger=<mockbuild.trace_decorator.getLog object at 0x7fef8c1c45d0>timeout=86400uid=982gid=135user='mockbuild'nspawn_args=[]unshare_net=TrueprintOutput=False)
Executing command: ['bash', '--login', '-c', '/usr/bin/rpmbuild -bb --noclean --target x86_64 --nodeps /builddir/build/SPECS/clisp.spec'] with env {'TERM': 'vt100', 'SHELL': '/bin/bash', 'HOME': '/builddir', 'HOSTNAME': 'mock', 'PATH': '/usr/bin:/bin:/usr/sbin:/sbin', 'PROMPT_COMMAND': 'printf "\\033]0;<mock-chroot>\\007"', 'PS1': '<mock-chroot> \\s-\\v\\$ ', 'LANG': 'C.UTF-8'} and shell False
Building target platforms: x86_64
Building for target x86_64
Executing(%prep): /bin/sh -e /var/tmp/rpm-tmp.2EWiAT
+ umask 022
+ cd /builddir/build/BUILD
+ cd /builddir/build/BUILD
+ rm -rf clisp-66924971790e4cbee3d58f36e530caa0ad568e5f
+ /usr/lib/rpm/rpmuncompress -x /builddir/build/SOURCES/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f.tar.bz2
+ STATUS=0
+ '[' 0 -ne 0 ']'
+ cd clisp-66924971790e4cbee3d58f36e530caa0ad568e5f
+ /usr/bin/chmod -Rf a+rX,u+w,g-w,o-w .
+ /usr/lib/rpm/rpmuncompress /builddir/build/SOURCES/clisp-db.patch
+ /usr/bin/patch -p1 -s --fuzz=0 --no-backup-if-mismatch -f
+ /usr/lib/rpm/rpmuncompress /builddir/build/SOURCES/clisp-format.patch
+ /usr/bin/patch -p1 -s --fuzz=0 --no-backup-if-mismatch -f
+ /usr/lib/rpm/rpmuncompress /builddir/build/SOURCES/clisp-register-volatile.patch
+ /usr/bin/patch -p1 -s --fuzz=0 --no-backup-if-mismatch -f
+ /usr/lib/rpm/rpmuncompress /builddir/build/SOURCES/clisp-pts-access.patch
+ /usr/bin/patch -p1 -s --fuzz=0 --no-backup-if-mismatch -f
+ /usr/lib/rpm/rpmuncompress /builddir/build/SOURCES/clisp-c99.patch
+ /usr/bin/patch -p1 -s --fuzz=0 --no-backup-if-mismatch -f
+ /usr/lib/rpm/rpmuncompress /builddir/build/SOURCES/clisp-no-inline.patch
+ /usr/bin/patch -p1 -s --fuzz=0 --no-backup-if-mismatch -f
+ cp -p /builddir/build/SOURCES/clhs.el emacs
+ cp -p /builddir/build/SOURCES/sv.po /builddir/build/SOURCES/de.po src/po
+ cp -p src/build-aux/config.rpath config.rpath.orig
+ sed -i -e 's/${wl}-rpath ${wl}/-L/g' src/build-aux/config.rpath
+ sed -i 's/\(${GLLIB_A}\) \(${LIBS}\)/-Wl,--whole-archive \1 -Wl,--no-whole-archive \2 -ldl/' src/makemake.in
+ sed -i 's/CC='\''${CC}'\''/CC='\''${CC} -Wl,--as-needed'\''/' src/makemake.in
+ sed -i 's/;; \((setq \*browser\* .*)\)/\1/' src/cfgunix.lisp
+ tar -C modules/clx -xzf modules/clx/clx-manual.tar.gz
+ chmod -R go+r modules/clx/clx-manual
+ chmod a-x modules/clx/clx-manual/html/doc-index.cgi
+ sed -i s/9090/9096/g tests/socket.tst
+ RPM_EC=0
++ jobs -p
+ exit 0
Executing(%build): /bin/sh -e /var/tmp/rpm-tmp.FJgrSZ
+ umask 022
+ cd /builddir/build/BUILD
+ CFLAGS='-O2  -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong  -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection'
+ export CFLAGS
+ CXXFLAGS='-O2  -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong  -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection'
+ export CXXFLAGS
+ FFLAGS='-O2  -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong  -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -I/usr/lib64/gfortran/modules'
+ export FFLAGS
+ FCFLAGS='-O2  -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong  -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -I/usr/lib64/gfortran/modules'
+ export FCFLAGS
+ LDFLAGS='-Wl,-z,relro -Wl,--as-needed  -Wl,-z,now -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-ld  -Wl,--build-id=sha1'
+ export LDFLAGS
+ LT_SYS_LIBRARY_PATH=/usr/lib64:
+ export LT_SYS_LIBRARY_PATH
+ CC=gcc
+ export CC
+ CXX=g++
+ export CXX
+ cd clisp-66924971790e4cbee3d58f36e530caa0ad568e5f
+ export LC_ALL=C.UTF-8
+ LC_ALL=C.UTF-8
+ ./configure --prefix=/usr --libdir=/usr/lib64 --mandir=/usr/share/man --infodir=/usr/share/info --docdir=/usr/share/doc/clisp --with-module=asdf --with-module=clx/new-clx --with-module=gdbm --with-module=pcre --with-module=rawsock --with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline --without-ffcall --config build CPPFLAGS=-I/usr/include/libsvm 'CFLAGS=-O2  -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong  -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack'
executing ../src/configure --prefix=/usr --libdir=/usr/lib64 --mandir=/usr/share/man --infodir=/usr/share/info --docdir=/usr/share/doc/clisp --with-module=asdf --with-module=clx/new-clx --with-module=gdbm --with-module=pcre --with-module=rawsock --with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline --without-ffcall --config build CPPFLAGS=-I/usr/include/libsvm CFLAGS=-O2  -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong  -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack
configure: creating cache config.cache
checking how to remove colons from paths... echo $x
checking for a BSD-compatible install... /usr/bin/install -c
checking whether build environment is sane... yes
checking for a race-free mkdir -p... /usr/bin/mkdir -p
checking for gawk... gawk
checking whether make sets $(MAKE)... yes
checking whether make supports nested variables... yes
configure: ** check for host type
checking build system type... x86_64-pc-linux-gnu
checking host system type... x86_64-pc-linux-gnu
configure: ** checks for programs
checking for gcc... gcc
checking whether the C compiler works... yes
checking for C compiler default output file name... a.out
checking for suffix of executables... 
checking whether we are cross compiling... no
checking for suffix of object files... o
checking whether the compiler supports GNU C... yes
checking whether gcc accepts -g... yes
checking for gcc option to enable C11 features... none needed
checking whether gcc understands -c and -o together... yes
checking whether the compiler is clang... no
checking for compiler option needed when checking for declarations... none
checking whether make supports the include directive... yes (GNU style)
checking dependency style of gcc... gcc3
checking how to run the C preprocessor... gcc -E
checking for windres... no
checking for stdio.h... yes
checking for stdlib.h... yes
checking for string.h... yes
checking for inttypes.h... yes
checking for stdint.h... yes
checking for strings.h... yes
checking for sys/stat.h... yes
checking for sys/types.h... yes
checking for unistd.h... yes
checking for wchar.h... yes
checking for minix/config.h... no
checking for sys/socket.h... yes
checking for arpa/inet.h... yes
checking for features.h... yes
checking for xlocale.h... no
checking for fnmatch.h... yes
checking for stdio_ext.h... yes
checking for sys/param.h... yes
checking for netdb.h... yes
checking for sys/time.h... yes
checking for threads.h... yes
checking for netinet/in.h... yes
checking for limits.h... yes
checking for langinfo.h... yes
checking for math.h... yes
checking for sys/mman.h... yes
checking for malloc.h... yes
checking for sys/select.h... yes
checking for sys/ioctl.h... yes
checking for sys/random.h... yes
checking for sys/uio.h... yes
checking for sys/utsname.h... yes
checking for sys/wait.h... yes
checking for crtdefs.h... no
checking for wctype.h... yes
checking for vfork.h... no
checking whether it is safe to define __EXTENSIONS__... yes
checking whether _XOPEN_SOURCE should be defined... no
checking for grep that handles long lines and -e... /usr/bin/grep
checking for egrep... /usr/bin/grep -E
checking for Minix Amsterdam compiler... no
checking for ar... ar
checking for ranlib... ranlib
checking for _LARGEFILE_SOURCE value needed for large files... no
checking for special C compiler options needed for large files... no
checking for _FILE_OFFSET_BITS value needed for large files... no
checking for ld used by gcc... /usr/bin/ld
checking if the linker (/usr/bin/ld) is GNU ld... yes
checking whether make sets $(MAKE)... (cached) yes
checking how to make hard links... ln
checking whether ln -s works... yes
checking how to make hard links to symlinks... hln
checking how to print strings... printf
checking for a sed that does not truncate output... /usr/bin/sed
checking for fgrep... /usr/bin/grep -F
checking for ld used by gcc... /usr/bin/ld
checking if the linker (/usr/bin/ld) is GNU ld... yes
checking for BSD- or MS-compatible name lister (nm)... /usr/bin/nm -B
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 x86_64-pc-linux-gnu file names to x86_64-pc-linux-gnu format... func_convert_file_noop
checking how to convert x86_64-pc-linux-gnu file names to toolchain format... func_convert_file_noop
checking for /usr/bin/ld option to reload object files... -r
checking for objdump... objdump
checking how to recognize dependent libraries... pass_all
checking for dlltool... no
checking how to associate runtime and link libraries... printf %s\n
checking for archiver @FILE support... @
checking for strip... strip
checking for ranlib... (cached) ranlib
checking command to parse /usr/bin/nm -B output from gcc object... ok
checking for sysroot... no
checking for a working dd... /usr/bin/dd
checking how to truncate binary pipes... /usr/bin/dd bs=4096 count=1
checking for mt... no
checking if : is a manifest tool... no
checking for dlfcn.h... yes
checking for objdir... .libs
checking if gcc supports -fno-rtti -fno-exceptions... no
checking for gcc option to produce PIC... -fPIC -DPIC
checking if gcc PIC flag -fPIC -DPIC works... yes
checking if gcc static flag -static works... yes
checking if gcc supports -c -o file.o... yes
checking if gcc supports -c -o file.o... (cached) yes
checking whether the gcc linker (/usr/bin/ld -m elf_x86_64) supports shared libraries... yes
checking whether -lc should be explicitly linked in... no
checking dynamic linker characteristics... GNU/Linux ld.so
checking how to hardcode library paths into programs... immediate
checking whether stripping libraries is possible... yes
checking if libtool supports shared libraries... yes
checking whether to build shared libraries... yes
checking whether to build static libraries... yes
checking for groff... groff
checking for ps2pdf... ps2pdf
checking for gzip... gzip
configure: ** checks for system features
checking for special C compiler options needed for large files... (cached) no
checking for _FILE_OFFSET_BITS value needed for large files... (cached) no
checking whether using GNU C... yes
checking whether using SUNPRO C... no
checking whether using C++... no
checking whether CPP likes empty macro arguments... yes
checking whether C symbols are prefixed with underscore at the linker level... no
checking whether CC works at all... yes
configure: ** check for add-ons
checking whether the preprocessor supports include_next... yes
checking whether source code line length is unlimited... yes
checking for C/C++ restrict keyword... __restrict__
checking whether <sys/socket.h> is self-contained... yes
checking for shutdown... yes
checking whether <sys/socket.h> defines the SHUT_* macros... yes
checking for struct sockaddr_storage... yes
checking for sa_family_t... yes
checking for struct sockaddr_storage.ss_family... yes
checking for size_t... yes
checking for working alloca.h... yes
checking for alloca... yes
checking whether <wchar.h> uses 'inline' correctly... yes
checking for btowc... yes
checking for uselocale... yes
checking for _set_invalid_parameter_handler... no
checking for fcntl... yes
checking for symlink... yes
checking for fnmatch... yes
checking for mbsrtowcs... yes
checking for fpurge... no
checking for __fpurge... yes
checking for __freading... yes
checking for getdtablesize... yes
checking for getrandom... yes
checking for gettimeofday... yes
checking for isblank... yes
checking for readlink... yes
checking for lstat... yes
checking for mbsinit... yes
checking for mbrtowc... yes
checking for mprotect... yes
checking for mknod... yes
checking for mkstemp... yes
checking for nl_langinfo... yes
checking for iswctype... yes
checking for setenv... yes
checking for strerror_r... yes
checking for __xpg_strerror_r... yes
checking for catgets... yes
checking for snprintf... yes
checking for strptime... yes
checking for localtime_r... yes
checking for timegm... yes
checking for mquery... no
checking for pstat_getprocvm... no
checking for wcrtomb... yes
checking for iswcntrl... yes
checking for wmempcpy... yes
checking for fork... yes
checking for vfork... yes
checking for nl_langinfo and CODESET... yes
checking for a traditional french locale... fr_FR
checking whether uselocale works... yes
checking for inline... inline
checking whether linux/if_alg.h has struct sockaddr_alg.... yes
checking whether byte ordering is bigendian... no
checking if environ is properly declared... yes
checking for complete errno.h... yes
checking for working fcntl.h... yes
checking for pid_t... yes
checking for mode_t... yes
checking for mbstate_t... yes
checking for gcc options needed to detect all undeclared functions... none needed
checking whether stdin defaults to large file offsets... yes
checking whether fseeko is declared... yes
checking for fseeko... yes
checking whether fflush works on input streams... no
checking whether stat file-mode macros are broken... no
checking for nlink_t... yes
checking whether ftello is declared... yes
checking whether ungetc works on arbitrary bytes... yes
checking for ftello... yes
checking whether ftello works... yes
checking whether getdtablesize is declared... yes
checking for struct timeval... yes
checking for wide-enough struct timeval.tv_sec member... yes
checking for pthread.h... yes
checking for pthread_kill in -lpthread... yes
checking whether POSIX threads API is available... yes
checking whether setlocale (LC_ALL, NULL) is multithread-safe... yes
checking whether setlocale (category, NULL) is multithread-safe... yes
checking host CPU and C ABI... x86_64
checking for shared library run path origin... done
checking 32-bit host C ABI... no
checking for ELF binary format... yes
checking for the common suffixes of directories in the library search path... lib,lib,lib64
checking for iconv... yes
checking for working iconv... yes
checking whether iconv is compatible with its POSIX signature... yes
checking for IPv4 sockets... yes
checking for IPv6 sockets... yes
checking whether limits.h has LLONG_MAX, WORD_BIT, ULLONG_WIDTH etc.... yes
checking for wint_t... yes
checking whether wint_t is large enough... yes
checking whether the compiler produces multi-arch binaries... no
checking whether stdint.h conforms to C99... yes
checking whether stdint.h works without ISO C predefines... yes
checking whether stdint.h has UINTMAX_WIDTH etc.... yes
checking whether langinfo.h defines CODESET... yes
checking whether langinfo.h defines T_FMT_AMPM... yes
checking whether langinfo.h defines ALTMON_1... yes
checking whether langinfo.h defines ERA... yes
checking whether langinfo.h defines YESEXPR... yes
checking whether included libunistring is requested... no
checking for libunistring... yes
checking how to link with libunistring... /usr/lib64/libunistring.so
checking for libunistring version... 1.1.0
checking for wchar_t... yes
checking for good max_align_t... yes
checking whether NULL can be used in arbitrary expressions... yes
checking whether locale.h defines locale_t... yes
checking whether locale.h conforms to POSIX:2001... yes
checking whether struct lconv is properly defined... yes
checking whether imported symbols can be declared weak... yes
checking for multithread API to use... posix
checking whether lstat correctly handles trailing slash... yes
checking whether malloc is ptrdiff_t safe... yes
checking whether malloc, realloc, calloc set errno on failure... yes
checking whether malloc (0) returns nonnull... yes
checking whether NAN macro works... yes
checking whether HUGE_VAL works... yes
checking for a traditional japanese locale... ja_JP
checking for a french Unicode locale... fr_FR.UTF-8
checking for a transitional chinese locale... zh_CN.GB18030
checking for mmap... yes
checking for MAP_ANONYMOUS... yes
checking whether memchr works... yes
checking whether <limits.h> defines MIN and MAX... no
checking whether <sys/param.h> defines MIN and MAX... yes
checking whether time_t is signed... yes
checking whether alarm is declared... yes
checking for working mktime... yes
checking whether struct tm is in sys/time.h or time.h... time.h
checking for struct tm.tm_zone... yes
checking for struct tm.tm_gmtoff... yes
checking for O_CLOEXEC... yes
checking for promoted mode_t type... mode_t
checking whether <sys/select.h> is self-contained... yes
checking for library containing setsockopt... none needed
checking whether setenv is declared... yes
checking for search.h... yes
checking for tsearch... yes
checking for sigset_t... yes
checking for uid_t in sys/types.h... yes
checking for volatile sig_atomic_t... yes
checking for sighandler_t... yes
checking for stdbool.h that conforms to C99... yes
checking for _Bool... yes
checking whether fcloseall is declared... yes
checking which flavor of printf attribute matches inttypes macros... system
checking whether ecvt is declared... yes
checking whether fcvt is declared... yes
checking whether gcvt is declared... yes
checking whether strdup is declared... yes
checking whether strerror(0) succeeds... yes
checking for strerror_r with POSIX signature... no
checking whether __xpg_strerror_r works... yes
checking whether strerror_r is declared... yes
checking whether strnlen is declared... yes
checking whether ldexp() can be used without linking with libm... yes
checking whether <sys/ioctl.h> declares ioctl... yes
checking for struct utsname... yes
checking for struct timespec in <time.h>... yes
checking for TIME_UTC in <time.h>... yes
checking whether execvpe is declared... yes
checking whether unsetenv is declared... yes
checking whether wcsdup is declared... yes
checking whether iswcntrl works... yes
checking for towlower... yes
checking for wctype_t... yes
checking for wctrans_t... yes
checking for alloca as a compiler built-in... yes
checking whether btowc(0) is correct... yes
checking whether btowc(EOF) is correct... yes
checking for __builtin_expect... yes
checking for byteswap.h... yes
checking for strtod_l... yes
checking for library containing clock_gettime... none required
checking for clock_gettime... yes
checking for clock_settime... yes
checking whether // is distinct from /... no
checking whether dup2 works... yes
checking whether fcntl handles F_DUPFD correctly... yes
checking whether fcntl understands F_DUPFD_CLOEXEC... needs runtime check
checking whether fflush works on input streams... (cached) no
checking for flexible array member... yes
checking whether conversion from 'int' to 'long double' works... yes
checking for working GNU fnmatch... yes
checking whether fpurge is declared... no
checking for fseeko... (cached) yes
checking whether fflush works on input streams... (cached) no
checking for _fseeki64... no
checking for ftello... (cached) yes
checking whether ftello works... (cached) yes
checking whether getdtablesize works... yes
checking for gethostname... yes
checking for HOST_NAME_MAX... yes
checking for getloadavg... yes
checking for sys/loadavg.h... no
checking whether getloadavg is declared... yes
checking for getpagesize... yes
checking whether getpagesize is declared... yes
checking whether getrandom is compatible with its GNU+BSD signature... yes
checking for gettimeofday with POSIX signature... yes
checking for library containing inet_ntop... none required
checking whether inet_ntop is declared... yes
checking for library containing inet_pton... none required
checking whether inet_pton is declared... yes
checking for ioctl... yes
checking for ioctl with POSIX signature... no
checking whether the compiler supports the __inline keyword... yes
checking for libsigsegv... yes
checking how to link with libsigsegv... /usr/lib64/libsigsegv.so
checking whether to use the included libunistring... no
checking for __xpg4... no
checking whether link(2) dereferences a symlink... no
checking for pthread_rwlock_t... yes
checking whether pthread_rwlock_rdlock prefers a writer to a reader... no
checking whether lseek detects pipes... yes
checking whether mbrtowc handles incomplete characters... yes
checking whether mbrtowc works as well as mbtowc... yes
checking whether mbrtowc handles a NULL pwc argument... yes
checking whether mbrtowc handles a NULL string argument... yes
checking whether mbrtowc has a correct return value... yes
checking whether mbrtowc returns 0 when parsing a NUL character... yes
checking whether mbrtowc stores incomplete characters... no
checking whether mbrtowc works on empty input... yes
checking whether the C locale is free of encoding errors... no
checking whether mbrtowc handles incomplete characters... (cached) yes
checking whether mbrtowc works as well as mbtowc... (cached) yes
checking whether mbrtowc handles incomplete characters... (cached) yes
checking whether mbrtowc works as well as mbtowc... (cached) yes
checking whether mbsrtowcs works... yes
checking for mbtowc... yes
checking for mempcpy... yes
checking whether mkdir handles trailing slash... yes
checking whether mkdir handles trailing dot... yes
checking for mkdtemp... yes
checking for mkfifo... yes
checking whether mkfifo rejects trailing slashes... yes
checking whether mknod can create fifo without root privileges... yes
checking for working mkstemp... yes
checking for __mktime_internal... no
checking whether <netinet/in.h> is self-contained... yes
checking whether YESEXPR works... yes
checking whether open recognizes a trailing slash... yes
checking whether readlink signature is correct... yes
checking whether readlink handles trailing slash correctly... yes
checking whether readlink truncates results correctly... yes
checking for working re_compile_pattern... no
checking for libintl.h... yes
checking whether isblank is declared... yes
checking whether select supports a 0 argument... yes
checking whether select detects invalid fds... yes
checking whether setenv validates arguments... yes
checking whether setlocale (LC_ALL, NULL) is multithread-safe... (cached) yes
checking whether setlocale (category, NULL) is multithread-safe... (cached) yes
checking for socklen_t... yes
checking for ssize_t... yes
checking whether stat handles trailing slashes on files... yes
checking for struct stat.st_atim.tv_nsec... yes
checking whether struct stat.st_atim is of type struct timespec... yes
checking for struct stat.st_birthtimespec.tv_nsec... no
checking for struct stat.st_birthtimensec... no
checking for struct stat.st_birthtim.tv_nsec... no
checking for working stdalign.h... yes
checking for strcasecmp... yes
checking for strncasecmp... yes
checking whether strncasecmp is declared... yes
checking for working strnlen... yes
checking whether strtod obeys C99... yes
checking for strverscmp... yes
checking whether localtime_r is declared... yes
checking whether localtime_r is compatible with its POSIX signature... yes
checking whether localtime works even near extrema... yes
checking for timezone_t... no
checking for uname... yes
checking for unsetenv... yes
checking for unsetenv() return type... int
checking whether unsetenv obeys POSIX... yes
checking whether mbrtowc handles incomplete characters... (cached) yes
checking whether mbrtowc works as well as mbtowc... (cached) yes
checking whether wcrtomb works in the C locale... yes
checking whether wcrtomb return value is correct... yes
checking for wmemchr... yes
checking whether NLS is requested... yes
checking for msgfmt... /usr/bin/msgfmt
checking for gmsgfmt... /usr/bin/msgfmt
checking for xgettext... /usr/bin/xgettext
checking for msgmerge... /usr/bin/msgmerge
checking for CFPreferencesCopyAppValue... no
checking for CFLocaleCopyPreferredLanguages... no
checking for GNU gettext in libc... yes
checking whether to use NLS... yes
checking where the gettext function comes from... libc
checking for lightning.h... no
configure: ** checks for fundamental compiler characteristics
checking for inline... (cached) inline
checking for inline __builtin_strlen... no
checking for unsigned long long int... yes
checking for long long int... yes
configure: ** checks for header files
checking for termios.h... yes
checking for struct winsize in termios.h... no
checking for struct winsize in sys/ioctl.h... yes
checking for X... libraries , headers 
checking for gethostbyname... yes
checking for connect... yes
checking for remove... yes
checking for shmat... yes
checking for IceConnectionNumber in -lICE... yes
configure: ** checks for typedefs
checking size of off_t... 8
checking size of struct timeval... 16
configure: ** checks for structure members
checking for struct dirent.d_namlen... no
configure: ** checks for functions and declarations
checking for working alloca.h... (cached) yes
checking for alloca... (cached) checking for _setjmp... yes
checking for _longjmp... yes
checking whether signal handlers need to be reinstalled... no
checking whether signals are blocked when signal handlers are entered... yes
checking whether other signals are blocked when signal handlers are entered... no
checking for sigaction... yes
checking for siginterrupt... yes
checking for strerror... yes
checking for sysconf... yes
checking for getdtablesize... (cached) yes
checking for memset... yes
checking for setsid... yes
checking for setpgid... yes
checking for fchmod... yes
checking for fsync... yes
checking for flock... yes
checking for gethostent... yes
checking for shutdown... (cached) yes
checking for usleep... yes
checking for ualarm... yes
checking for setitimer... yes
checking for nice... yes
checking for ftime... yes
checking for realpath... yes
checking for getresuid... yes
checking for setresuid... yes
checking for getresgid... yes
checking for setresgid... yes
checking for setreuid... yes
checking for setregid... yes
checking for gethostname... (cached) yes
checking for getcwd... yes
checking for getrlimit... yes
checking for uname... (cached) yes
checking for readdir_r... yes
checking for rand_r... yes
checking for working fork... yes
checking for working vfork... (cached) yes
checking for sys/resource.h... yes
checking for getrusage... yes
checking whether getrusage works... yes
checking for ioctl... (cached) yes
checking for FIONREAD... no
checking for FIONREAD in sys/filio.h... no
checking for FIONREAD in sys/ioctl.h... yes
checking for reliable FIONREAD... yes
checking for poll... yes
checking for reliable poll()... yes
checking for select... yes
checking for sys/select.h... yes
checking for select declaration... extern int select (int, fd_set *, fd_set *, fd_set *, struct timeval *);
checking for reliable select()... yes
checking for netdb.h... (cached) yes
checking for sys/un.h... yes
checking for sun_len in struct sockaddr_un... no
checking for IPv4 sockets... yes
checking for IPv6 sockets... yes
checking for setsockopt... yes
checking for getsockopt... yes
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... 0x0000000000000000
checking for the malloc address range... 0x0000000002000000
checking for the shared library address range... 0x00007F46F5000000
checking for the stack address range... 0x00007FFE6D000000
checking for usable vadvise... no
checking for vm_allocate... no
checking for sys/mman.h... (cached) yes
checking for mmap... (cached) yes
checking for mmap at fixed addresses... yes (MAP_ANON,MAP_ANONYMOUS,/dev/zero)
checking for highest bit number which can be included in mmaped addresses... 46
checking for mincore... yes
checking for munmap... yes
checking for mprotect... (cached) yes
checking for working mprotect... no
checking for dlfcn.h... (cached) yes
checking for library containing dlopen... none required
checking for dlopen... yes
checking for dlsym... yes
checking for dlvsym... yes
checking for dlerror... yes
checking for dlclose... yes
checking for dladdr... yes
checking for working fcntl.h... (cached) yes
configure: ** checks for libraries
checking for library containing tgetent... -lncurses
checking for readline/readline.h... yes
checking for readline... yes
checking for rl_filename_completion_function... yes
checking for filename_completion_function declaration... extern char* rl_filename_completion_function(const char*, int);
checking whether rl_already_prompted is declared... yes
checking whether rl_readline_name is declared... yes
checking whether rl_gnu_readline_p is declared... yes
checking whether rl_deprep_term_function is declared... yes
checking for readline 4.1 or newer... found GNU readline 4.1 or newer
configure: ** checks for OS services
checking for the valid characters in filenames... ((ch >= 1) && (ch != 47))
configure: ** checks for compiler characteristics (arithmetic data types)
checking whether char is unsigned... no
checking whether single-float divbyzero raises an exception... no
checking whether single-float overflow raises an exception... no
checking whether single-float underflow raises an exception... no
checking whether single-float inexact raises an exception... no
checking whether double-float divbyzero raises an exception... no
checking whether double-float overflow raises an exception... no
checking whether double-float underflow raises an exception... no
checking whether double-float inexact raises an exception... no
checking for integer types and behaviour... created intparam.h
checking for floating-point types and behaviour... created floatparam.h
configure: ** output file generation
configure: updating cache config.cache
checking that generated files are newer than configure... done
configure: creating ./config.status
config.status: creating po/Makefile.in
config.status: creating gllib/Makefile
config.status: creating makemake
config.status: creating config.h
config.status: executing depfiles commands
config.status: executing libtool commands
config.status: executing po-directories commands
config.status: creating po/POTFILES
config.status: creating po/Makefile
Configure findings:
  FFI:        notchecked (user requested: no)
  readline:   yes (user requested: default)
  libsigsegv: yes
./makemake  --prefix=/usr --libdir=/usr/lib64 --mandir=/usr/share/man --infodir=/usr/share/info --docdir=/usr/share/doc/clisp --with-module=asdf --with-module=clx/new-clx --with-module=gdbm --with-module=pcre --with-module=rawsock --with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline > Makefile
cp -p ../src/cfgunix.lisp config.lisp
chmod +w config.lisp
echo '(setq *clhs-root-default* "http://www.ai.mit.edu/projects/iiip/doc/CommonLISP/HyperSpec/")' >> config.lisp
To continue building CLISP, the following commands are recommended
  (cf. unix/INSTALL step 4 ff):
    cd build
    vi config.lisp
    make
# CLISP self-test:
    make check
# Test non-portable features and modules
    make extracheck mod-check
+ cd build
+ sed -i 's|CC="\(.*g..\)"|CC="\1 -Wl,--as-needed"|' libtool
+ make
ln -s ../src/.gdbinit .gdbinit
rm -f build-aux
ln -s ../src/build-aux build-aux
mkdir -p gllib
test -f gllib/Makefile || sh config.status gllib/Makefile depfiles
cd gllib && make CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC " top_srcdir="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src"
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib'
rm -f alloca.h-t alloca.h && \
{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \
  sed -e 's|@''HAVE_ALLOCA_H''@|1|g' < ../../src/gllib/alloca.in.h; \
} > alloca.h-t && \
mv -f alloca.h-t alloca.h
/usr/bin/mkdir -p arpa
rm -f arpa/inet.h-t arpa/inet.h && \
{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \
  sed -e 's|@''GUARD_PREFIX''@|GL|g' \
      -e 's|@''INCLUDE_NEXT''@|include_next|g' \
      -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \
      -e 's|@''PRAGMA_COLUMNS''@||g' \
      -e 's|@''HAVE_FEATURES_H''@|1|g' \
      -e 's|@''NEXT_ARPA_INET_H''@|<arpa/inet.h>|g' \
      -e 's|@''HAVE_ARPA_INET_H''@|1|g' \
      -e 's/@''GNULIB_INET_NTOP''@/1/g' \
      -e 's/@''GNULIB_INET_PTON''@/1/g' \
      -e 's|@''HAVE_WS2TCPIP_H''@|0|g' \
      -e 's|@''HAVE_DECL_INET_NTOP''@|1|g' \
      -e 's|@''HAVE_DECL_INET_PTON''@|1|g' \
      -e 's|@''REPLACE_INET_NTOP''@|0|g' \
      -e 's|@''REPLACE_INET_PTON''@|0|g' \
      -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \
      -e '/definition of _GL_ARG_NONNULL/r ../../src/gllib/arg-nonnull.h' \
      -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \
      < ../../src/gllib/arpa_inet.in.h; \
} > arpa/inet.h-t && \
mv arpa/inet.h-t arpa/inet.h
rm -f ctype.h-t ctype.h && \
{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \
  sed -e 's|@''GUARD_PREFIX''@|GL|g' \
      -e 's|@''INCLUDE_NEXT''@|include_next|g' \
      -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \
      -e 's|@''PRAGMA_COLUMNS''@||g' \
      -e 's|@''NEXT_CTYPE_H''@|<ctype.h>|g' \
      -e 's/@''GNULIB_ISBLANK''@/1/g' \
      -e 's/@''HAVE_ISBLANK''@/1/g' \
      -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \
      -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \
      < ../../src/gllib/ctype.in.h; \
} > ctype.h-t && \
mv ctype.h-t ctype.h
/usr/bin/mkdir -p malloc
rm -f malloc/dynarray.gl.h-t malloc/dynarray.gl.h && \
{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \
  sed -e '/libc_hidden_proto/d' < ../../src/gllib/malloc/dynarray.h; \
} > malloc/dynarray.gl.h-t && \
mv malloc/dynarray.gl.h-t malloc/dynarray.gl.h
/usr/bin/mkdir -p malloc
rm -f malloc/dynarray-skeleton.gl.h-t malloc/dynarray-skeleton.gl.h && \
{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \
  sed -e 's|<malloc/dynarray\.h>|<malloc/dynarray.gl.h>|g' \
      -e 's|__attribute_maybe_unused__|_GL_ATTRIBUTE_MAYBE_UNUSED|g' \
      -e 's|__attribute_nonnull__|_GL_ATTRIBUTE_NONNULL|g' \
      -e 's|__attribute_warn_unused_result__|_GL_ATTRIBUTE_NODISCARD|g' \
      -e 's|__glibc_likely|_GL_LIKELY|g' \
      -e 's|__glibc_unlikely|_GL_UNLIKELY|g' \
      < ../../src/gllib/malloc/dynarray-skeleton.c; \
} > malloc/dynarray-skeleton.gl.h-t && \
mv malloc/dynarray-skeleton.gl.h-t malloc/dynarray-skeleton.gl.h
rm -f fcntl.h-t fcntl.h && \
{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \
  sed -e 's|@''GUARD_PREFIX''@|GL|g' \
      -e 's|@''INCLUDE_NEXT''@|include_next|g' \
      -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \
      -e 's|@''PRAGMA_COLUMNS''@||g' \
      -e 's|@''NEXT_FCNTL_H''@|<fcntl.h>|g' \
      -e 's/@''GNULIB_CREAT''@/0/g' \
      -e 's/@''GNULIB_FCNTL''@/1/g' \
      -e 's/@''GNULIB_NONBLOCKING''@/0/g' \
      -e 's/@''GNULIB_OPEN''@/1/g' \
      -e 's/@''GNULIB_OPENAT''@/0/g' \
      -e 's/@''GNULIB_MDA_CREAT''@/1/g' \
      -e 's/@''GNULIB_MDA_OPEN''@/1/g' \
      -e 's|@''HAVE_FCNTL''@|1|g' \
      -e 's|@''HAVE_OPENAT''@|1|g' \
      -e 's|@''REPLACE_CREAT''@|0|g' \
      -e 's|@''REPLACE_FCNTL''@|1|g' \
      -e 's|@''REPLACE_OPEN''@|0|g' \
      -e 's|@''REPLACE_OPENAT''@|0|g' \
      -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \
      -e '/definition of _GL_ARG_NONNULL/r ../../src/gllib/arg-nonnull.h' \
      -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \
      < ../../src/gllib/fcntl.in.h; \
} > fcntl.h-t && \
mv fcntl.h-t fcntl.h
rm -f inttypes.h-t inttypes.h && \
{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \
  sed -e 's/@''HAVE_INTTYPES_H''@/1/g' \
      -e 's|@''INCLUDE_NEXT''@|include_next|g' \
      -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \
      -e 's|@''PRAGMA_COLUMNS''@||g' \
      -e 's|@''NEXT_INTTYPES_H''@|<inttypes.h>|g' \
      -e 's/@''APPLE_UNIVERSAL_BUILD''@/0/g' \
      -e 's/@''PRIPTR_PREFIX''@/__PRIPTR_PREFIX/g' \
      -e 's/@''GNULIB_IMAXABS''@/0/g' \
      -e 's/@''GNULIB_IMAXDIV''@/0/g' \
      -e 's/@''GNULIB_STRTOIMAX''@/0/g' \
      -e 's/@''GNULIB_STRTOUMAX''@/0/g' \
      -e 's/@''HAVE_DECL_IMAXABS''@/1/g' \
      -e 's/@''HAVE_DECL_IMAXDIV''@/1/g' \
      -e 's/@''HAVE_DECL_STRTOIMAX''@/1/g' \
      -e 's/@''HAVE_DECL_STRTOUMAX''@/1/g' \
      -e 's/@''HAVE_IMAXDIV_T''@/1/g' \
      -e 's/@''REPLACE_STRTOIMAX''@/0/g' \
      -e 's/@''REPLACE_STRTOUMAX''@/0/g' \
      -e 's/@''INT32_MAX_LT_INTMAX_MAX''@/1/g' \
      -e 's/@''INT64_MAX_EQ_LONG_MAX''@/defined _LP64/g' \
      -e 's/@''UINT32_MAX_LT_UINTMAX_MAX''@/1/g' \
      -e 's/@''UINT64_MAX_EQ_ULONG_MAX''@/defined _LP64/g' \
      -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \
      -e '/definition of _GL_ARG_NONNULL/r ../../src/gllib/arg-nonnull.h' \
      -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \
      < ../../src/gllib/inttypes.in.h; \
} > inttypes.h-t && \
mv inttypes.h-t inttypes.h
rm -f langinfo.h-t langinfo.h && \
{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \
  sed -e 's|@''GUARD_PREFIX''@|GL|g' \
      -e 's|@''HAVE_LANGINFO_H''@|1|g' \
      -e 's|@''INCLUDE_NEXT''@|include_next|g' \
      -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \
      -e 's|@''PRAGMA_COLUMNS''@||g' \
      -e 's|@''NEXT_LANGINFO_H''@|<langinfo.h>|g' \
      -e 's/@''GNULIB_NL_LANGINFO''@/1/g' \
      -e 's|@''HAVE_LANGINFO_CODESET''@|1|g' \
      -e 's|@''HAVE_LANGINFO_T_FMT_AMPM''@|1|g' \
      -e 's|@''HAVE_LANGINFO_ALTMON''@|1|g' \
      -e 's|@''HAVE_LANGINFO_ERA''@|1|g' \
      -e 's|@''HAVE_LANGINFO_YESEXPR''@|1|g' \
      -e 's|@''HAVE_NL_LANGINFO''@|1|g' \
      -e 's|@''REPLACE_NL_LANGINFO''@|0|g' \
      -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \
      -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \
      < ../../src/gllib/langinfo.in.h; \
} > langinfo.h-t && \
mv langinfo.h-t langinfo.h
rm -f limits.h-t limits.h && \
{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \
  sed -e 's|@''GUARD_PREFIX''@|GL|g' \
      -e 's|@''INCLUDE_NEXT''@|include_next|g' \
      -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \
      -e 's|@''PRAGMA_COLUMNS''@||g' \
      -e 's|@''NEXT_LIMITS_H''@|<limits.h>|g' \
      < ../../src/gllib/limits.in.h; \
} > limits.h-t && \
mv limits.h-t limits.h
rm -f locale.h-t locale.h && \
{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \
  sed -e 's|@''GUARD_PREFIX''@|GL|g' \
      -e 's|@''INCLUDE_NEXT''@|include_next|g' \
      -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \
      -e 's|@''PRAGMA_COLUMNS''@||g' \
      -e 's|@''NEXT_LOCALE_H''@|<locale.h>|g' \
      -e 's/@''GNULIB_LOCALECONV''@/1/g' \
      -e 's/@''GNULIB_SETLOCALE''@/0/g' \
      -e 's/@''GNULIB_SETLOCALE_NULL''@/1/g' \
      -e 's/@''GNULIB_DUPLOCALE''@/0/g' \
      -e 's/@''GNULIB_LOCALENAME''@/0/g' \
      -e 's|@''HAVE_NEWLOCALE''@|1|g' \
      -e 's|@''HAVE_DUPLOCALE''@|1|g' \
      -e 's|@''HAVE_FREELOCALE''@|1|g' \
      -e 's|@''HAVE_XLOCALE_H''@|0|g' \
      -e 's|@''REPLACE_LOCALECONV''@|0|g' \
      -e 's|@''REPLACE_SETLOCALE''@|0|g' \
      -e 's|@''REPLACE_NEWLOCALE''@|0|g' \
      -e 's|@''REPLACE_DUPLOCALE''@|0|g' \
      -e 's|@''REPLACE_FREELOCALE''@|0|g' \
      -e 's|@''REPLACE_STRUCT_LCONV''@|0|g' \
      -e 's|@''LOCALENAME_ENHANCE_LOCALE_FUNCS''@|0|g' \
      -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \
      -e '/definition of _GL_ARG_NONNULL/r ../../src/gllib/arg-nonnull.h' \
      -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \
      < ../../src/gllib/locale.in.h; \
} > locale.h-t && \
mv locale.h-t locale.h
rm -f math.h-t math.h && \
{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \
  sed -e 's|@''GUARD_PREFIX''@|GL|g' \
      -e 's|@''INCLUDE_NEXT_AS_FIRST_DIRECTIVE''@|include_next|g' \
      -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \
      -e 's|@''PRAGMA_COLUMNS''@||g' \
      -e 's|@''NEXT_AS_FIRST_DIRECTIVE_MATH_H''@|<math.h>|g' \
      -e 's/@''GNULIB_ACOSF''@/0/g' \
      -e 's/@''GNULIB_ACOSL''@/0/g' \
      -e 's/@''GNULIB_ASINF''@/0/g' \
      -e 's/@''GNULIB_ASINL''@/0/g' \
      -e 's/@''GNULIB_ATANF''@/0/g' \
      -e 's/@''GNULIB_ATANL''@/0/g' \
      -e 's/@''GNULIB_ATAN2F''@/0/g' \
      -e 's/@''GNULIB_CBRT''@/0/g' \
      -e 's/@''GNULIB_CBRTF''@/0/g' \
      -e 's/@''GNULIB_CBRTL''@/0/g' \
      -e 's/@''GNULIB_CEIL''@/0/g' \
      -e 's/@''GNULIB_CEILF''@/0/g' \
      -e 's/@''GNULIB_CEILL''@/0/g' \
      -e 's/@''GNULIB_COPYSIGN''@/0/g' \
      -e 's/@''GNULIB_COPYSIGNF''@/0/g' \
      -e 's/@''GNULIB_COPYSIGNL''@/0/g' \
      -e 's/@''GNULIB_COSF''@/0/g' \
      -e 's/@''GNULIB_COSL''@/0/g' \
      -e 's/@''GNULIB_COSHF''@/0/g' \
      -e 's/@''GNULIB_EXPF''@/0/g' \
      -e 's/@''GNULIB_EXPL''@/0/g' \
      -e 's/@''GNULIB_EXP2''@/0/g' \
      -e 's/@''GNULIB_EXP2F''@/0/g' \
      -e 's/@''GNULIB_EXP2L''@/0/g' \
      -e 's/@''GNULIB_EXPM1''@/0/g' \
      -e 's/@''GNULIB_EXPM1F''@/0/g' \
      -e 's/@''GNULIB_EXPM1L''@/0/g' \
      -e 's/@''GNULIB_FABSF''@/0/g' \
      -e 's/@''GNULIB_FABSL''@/0/g' \
      -e 's/@''GNULIB_FLOOR''@/0/g' \
      -e 's/@''GNULIB_FLOORF''@/0/g' \
      -e 's/@''GNULIB_FLOORL''@/0/g' \
      -e 's/@''GNULIB_FMA''@/0/g' \
      -e 's/@''GNULIB_FMAF''@/0/g' \
      -e 's/@''GNULIB_FMAL''@/0/g' \
      -e 's/@''GNULIB_FMOD''@/0/g' \
      -e 's/@''GNULIB_FMODF''@/0/g' \
      -e 's/@''GNULIB_FMODL''@/0/g' \
      -e 's/@''GNULIB_FREXPF''@/0/g' \
      -e 's/@''GNULIB_FREXP''@/0/g' \
      -e 's/@''GNULIB_FREXPL''@/0/g' \
      -e 's/@''GNULIB_HYPOT''@/0/g' \
      -e 's/@''GNULIB_HYPOTF''@/0/g' \
      -e 's/@''GNULIB_HYPOTL''@/0/g' \
      < ../../src/gllib/math.in.h | \
  sed -e 's/@''GNULIB_ILOGB''@/0/g' \
      -e 's/@''GNULIB_ILOGBF''@/0/g' \
      -e 's/@''GNULIB_ILOGBL''@/0/g' \
      -e 's/@''GNULIB_ISFINITE''@/0/g' \
      -e 's/@''GNULIB_ISINF''@/0/g' \
      -e 's/@''GNULIB_ISNAN''@/0/g' \
      -e 's/@''GNULIB_ISNANF''@/0/g' \
      -e 's/@''GNULIB_ISNAND''@/0/g' \
      -e 's/@''GNULIB_ISNANL''@/0/g' \
      -e 's/@''GNULIB_LDEXPF''@/0/g' \
      -e 's/@''GNULIB_LDEXPL''@/0/g' \
      -e 's/@''GNULIB_LOG''@/0/g' \
      -e 's/@''GNULIB_LOGF''@/0/g' \
      -e 's/@''GNULIB_LOGL''@/0/g' \
      -e 's/@''GNULIB_LOG10''@/0/g' \
      -e 's/@''GNULIB_LOG10F''@/0/g' \
      -e 's/@''GNULIB_LOG10L''@/0/g' \
      -e 's/@''GNULIB_LOG1P''@/0/g' \
      -e 's/@''GNULIB_LOG1PF''@/0/g' \
      -e 's/@''GNULIB_LOG1PL''@/0/g' \
      -e 's/@''GNULIB_LOG2''@/0/g' \
      -e 's/@''GNULIB_LOG2F''@/0/g' \
      -e 's/@''GNULIB_LOG2L''@/0/g' \
      -e 's/@''GNULIB_LOGB''@/0/g' \
      -e 's/@''GNULIB_LOGBF''@/0/g' \
      -e 's/@''GNULIB_LOGBL''@/0/g' \
      -e 's/@''GNULIB_MODF''@/0/g' \
      -e 's/@''GNULIB_MODFF''@/0/g' \
      -e 's/@''GNULIB_MODFL''@/0/g' \
      -e 's/@''GNULIB_POWF''@/0/g' \
      -e 's/@''GNULIB_REMAINDER''@/0/g' \
      -e 's/@''GNULIB_REMAINDERF''@/0/g' \
      -e 's/@''GNULIB_REMAINDERL''@/0/g' \
      -e 's/@''GNULIB_RINT''@/0/g' \
      -e 's/@''GNULIB_RINTF''@/0/g' \
      -e 's/@''GNULIB_RINTL''@/0/g' \
      -e 's/@''GNULIB_ROUND''@/0/g' \
      -e 's/@''GNULIB_ROUNDF''@/0/g' \
      -e 's/@''GNULIB_ROUNDL''@/0/g' \
      -e 's/@''GNULIB_SIGNBIT''@/0/g' \
      -e 's/@''GNULIB_SINF''@/0/g' \
      -e 's/@''GNULIB_SINL''@/0/g' \
      -e 's/@''GNULIB_SINHF''@/0/g' \
      -e 's/@''GNULIB_SQRTF''@/0/g' \
      -e 's/@''GNULIB_SQRTL''@/0/g' \
      -e 's/@''GNULIB_TANF''@/0/g' \
      -e 's/@''GNULIB_TANL''@/0/g' \
      -e 's/@''GNULIB_TANHF''@/0/g' \
      -e 's/@''GNULIB_TRUNC''@/0/g' \
      -e 's/@''GNULIB_TRUNCF''@/0/g' \
      -e 's/@''GNULIB_TRUNCL''@/0/g' \
      -e 's/@''GNULIB_MDA_J0''@/1/g' \
      -e 's/@''GNULIB_MDA_J1''@/1/g' \
      -e 's/@''GNULIB_MDA_JN''@/1/g' \
      -e 's/@''GNULIB_MDA_Y0''@/1/g' \
      -e 's/@''GNULIB_MDA_Y1''@/1/g' \
      -e 's/@''GNULIB_MDA_YN''@/1/g' \
  | \
  sed -e 's|@''HAVE_ACOSF''@|1|g' \
      -e 's|@''HAVE_ACOSL''@|1|g' \
      -e 's|@''HAVE_ASINF''@|1|g' \
      -e 's|@''HAVE_ASINL''@|1|g' \
      -e 's|@''HAVE_ATANF''@|1|g' \
      -e 's|@''HAVE_ATANL''@|1|g' \
      -e 's|@''HAVE_ATAN2F''@|1|g' \
      -e 's|@''HAVE_CBRT''@|1|g' \
      -e 's|@''HAVE_CBRTF''@|1|g' \
      -e 's|@''HAVE_CBRTL''@|1|g' \
      -e 's|@''HAVE_COPYSIGN''@|1|g' \
      -e 's|@''HAVE_COPYSIGNL''@|1|g' \
      -e 's|@''HAVE_COSF''@|1|g' \
      -e 's|@''HAVE_COSL''@|1|g' \
      -e 's|@''HAVE_COSHF''@|1|g' \
      -e 's|@''HAVE_EXPF''@|1|g' \
      -e 's|@''HAVE_EXPL''@|1|g' \
      -e 's|@''HAVE_EXPM1''@|1|g' \
      -e 's|@''HAVE_EXPM1F''@|1|g' \
      -e 's|@''HAVE_FABSF''@|1|g' \
      -e 's|@''HAVE_FABSL''@|1|g' \
      -e 's|@''HAVE_FMA''@|1|g' \
      -e 's|@''HAVE_FMAF''@|1|g' \
      -e 's|@''HAVE_FMAL''@|1|g' \
      -e 's|@''HAVE_FMODF''@|1|g' \
      -e 's|@''HAVE_FMODL''@|1|g' \
      -e 's|@''HAVE_FREXPF''@|1|g' \
      -e 's|@''HAVE_HYPOTF''@|1|g' \
      -e 's|@''HAVE_HYPOTL''@|1|g' \
      -e 's|@''HAVE_ILOGB''@|1|g' \
      -e 's|@''HAVE_ILOGBF''@|1|g' \
      -e 's|@''HAVE_ILOGBL''@|1|g' \
      -e 's|@''HAVE_ISNANF''@|1|g' \
      -e 's|@''HAVE_ISNAND''@|1|g' \
      -e 's|@''HAVE_ISNANL''@|1|g' \
      -e 's|@''HAVE_LDEXPF''@|1|g' \
      -e 's|@''HAVE_LOGF''@|1|g' \
      -e 's|@''HAVE_LOGL''@|1|g' \
      -e 's|@''HAVE_LOG10F''@|1|g' \
      -e 's|@''HAVE_LOG10L''@|1|g' \
      -e 's|@''HAVE_LOG1P''@|1|g' \
      -e 's|@''HAVE_LOG1PF''@|1|g' \
      -e 's|@''HAVE_LOG1PL''@|1|g' \
      -e 's|@''HAVE_LOGBF''@|1|g' \
      -e 's|@''HAVE_LOGBL''@|1|g' \
      -e 's|@''HAVE_MODFF''@|1|g' \
      -e 's|@''HAVE_MODFL''@|1|g' \
      -e 's|@''HAVE_POWF''@|1|g' \
      -e 's|@''HAVE_REMAINDER''@|1|g' \
      -e 's|@''HAVE_REMAINDERF''@|1|g' \
      -e 's|@''HAVE_RINT''@|1|g' \
      -e 's|@''HAVE_RINTL''@|1|g' \
      -e 's|@''HAVE_SINF''@|1|g' \
      -e 's|@''HAVE_SINL''@|1|g' \
      -e 's|@''HAVE_SINHF''@|1|g' \
      -e 's|@''HAVE_SQRTF''@|1|g' \
      -e 's|@''HAVE_SQRTL''@|1|g' \
      -e 's|@''HAVE_TANF''@|1|g' \
      -e 's|@''HAVE_TANL''@|1|g' \
      -e 's|@''HAVE_TANHF''@|1|g' \
      -e 's|@''HAVE_DECL_ACOSL''@|1|g' \
      -e 's|@''HAVE_DECL_ASINL''@|1|g' \
      -e 's|@''HAVE_DECL_ATANL''@|1|g' \
      -e 's|@''HAVE_DECL_CBRTF''@|1|g' \
      -e 's|@''HAVE_DECL_CBRTL''@|1|g' \
      -e 's|@''HAVE_DECL_CEILF''@|1|g' \
      -e 's|@''HAVE_DECL_CEILL''@|1|g' \
      -e 's|@''HAVE_DECL_COPYSIGNF''@|1|g' \
      -e 's|@''HAVE_DECL_COSL''@|1|g' \
      -e 's|@''HAVE_DECL_EXPL''@|1|g' \
      -e 's|@''HAVE_DECL_EXP2''@|1|g' \
      -e 's|@''HAVE_DECL_EXP2F''@|1|g' \
      -e 's|@''HAVE_DECL_EXP2L''@|1|g' \
      -e 's|@''HAVE_DECL_EXPM1L''@|1|g' \
      -e 's|@''HAVE_DECL_FLOORF''@|1|g' \
      -e 's|@''HAVE_DECL_FLOORL''@|1|g' \
      -e 's|@''HAVE_DECL_FREXPL''@|1|g' \
      -e 's|@''HAVE_DECL_LDEXPL''@|1|g' \
      -e 's|@''HAVE_DECL_LOGL''@|1|g' \
      -e 's|@''HAVE_DECL_LOG10L''@|1|g' \
      -e 's|@''HAVE_DECL_LOG2''@|1|g' \
      -e 's|@''HAVE_DECL_LOG2F''@|1|g' \
      -e 's|@''HAVE_DECL_LOG2L''@|1|g' \
      -e 's|@''HAVE_DECL_LOGB''@|1|g' \
      -e 's|@''HAVE_DECL_REMAINDER''@|1|g' \
      -e 's|@''HAVE_DECL_REMAINDERL''@|1|g' \
      -e 's|@''HAVE_DECL_RINTF''@|1|g' \
      -e 's|@''HAVE_DECL_ROUND''@|1|g' \
      -e 's|@''HAVE_DECL_ROUNDF''@|1|g' \
      -e 's|@''HAVE_DECL_ROUNDL''@|1|g' \
      -e 's|@''HAVE_DECL_SINL''@|1|g' \
      -e 's|@''HAVE_DECL_SQRTL''@|1|g' \
      -e 's|@''HAVE_DECL_TANL''@|1|g' \
      -e 's|@''HAVE_DECL_TRUNC''@|1|g' \
      -e 's|@''HAVE_DECL_TRUNCF''@|1|g' \
      -e 's|@''HAVE_DECL_TRUNCL''@|1|g' \
  | \
  sed -e 's|@''REPLACE_ACOSF''@|0|g' \
      -e 's|@''REPLACE_ASINF''@|0|g' \
      -e 's|@''REPLACE_ATANF''@|0|g' \
      -e 's|@''REPLACE_ATAN2F''@|0|g' \
      -e 's|@''REPLACE_CBRTF''@|0|g' \
      -e 's|@''REPLACE_CBRTL''@|0|g' \
      -e 's|@''REPLACE_CEIL''@|0|g' \
      -e 's|@''REPLACE_CEILF''@|0|g' \
      -e 's|@''REPLACE_CEILL''@|0|g' \
      -e 's|@''REPLACE_COSF''@|0|g' \
      -e 's|@''REPLACE_COSHF''@|0|g' \
      -e 's|@''REPLACE_EXPF''@|0|g' \
      -e 's|@''REPLACE_EXPL''@|0|g' \
      -e 's|@''REPLACE_EXPM1''@|0|g' \
      -e 's|@''REPLACE_EXPM1F''@|0|g' \
      -e 's|@''REPLACE_EXPM1L''@|0|g' \
      -e 's|@''REPLACE_EXP2''@|0|g' \
      -e 's|@''REPLACE_EXP2L''@|0|g' \
      -e 's|@''REPLACE_FABSL''@|0|g' \
      -e 's|@''REPLACE_FLOOR''@|0|g' \
      -e 's|@''REPLACE_FLOORF''@|0|g' \
      -e 's|@''REPLACE_FLOORL''@|0|g' \
      -e 's|@''REPLACE_FMA''@|0|g' \
      -e 's|@''REPLACE_FMAF''@|0|g' \
      -e 's|@''REPLACE_FMAL''@|0|g' \
      -e 's|@''REPLACE_FMOD''@|0|g' \
      -e 's|@''REPLACE_FMODF''@|0|g' \
      -e 's|@''REPLACE_FMODL''@|0|g' \
      -e 's|@''REPLACE_FREXPF''@|0|g' \
      -e 's|@''REPLACE_FREXP''@|0|g' \
      -e 's|@''REPLACE_FREXPL''@|0|g' \
      -e 's|@''REPLACE_HUGE_VAL''@|0|g' \
      -e 's|@''REPLACE_HYPOT''@|0|g' \
      -e 's|@''REPLACE_HYPOTF''@|0|g' \
      -e 's|@''REPLACE_HYPOTL''@|0|g' \
      -e 's|@''REPLACE_ILOGB''@|0|g' \
      -e 's|@''REPLACE_ILOGBF''@|0|g' \
      -e 's|@''REPLACE_ILOGBL''@|0|g' \
      -e 's|@''REPLACE_ISFINITE''@|0|g' \
      -e 's|@''REPLACE_ISINF''@|0|g' \
      -e 's|@''REPLACE_ISNAN''@|0|g' \
      -e 's|@''REPLACE_ITOLD''@|0|g' \
      -e 's|@''REPLACE_LDEXPL''@|0|g' \
      -e 's|@''REPLACE_LOG''@|0|g' \
      -e 's|@''REPLACE_LOGF''@|0|g' \
      -e 's|@''REPLACE_LOGL''@|0|g' \
      -e 's|@''REPLACE_LOG10''@|0|g' \
      -e 's|@''REPLACE_LOG10F''@|0|g' \
      -e 's|@''REPLACE_LOG10L''@|0|g' \
      -e 's|@''REPLACE_LOG1P''@|0|g' \
      -e 's|@''REPLACE_LOG1PF''@|0|g' \
      -e 's|@''REPLACE_LOG1PL''@|0|g' \
      -e 's|@''REPLACE_LOG2''@|0|g' \
      -e 's|@''REPLACE_LOG2F''@|0|g' \
      -e 's|@''REPLACE_LOG2L''@|0|g' \
      -e 's|@''REPLACE_LOGB''@|0|g' \
      -e 's|@''REPLACE_LOGBF''@|0|g' \
      -e 's|@''REPLACE_LOGBL''@|0|g' \
      -e 's|@''REPLACE_MODF''@|0|g' \
      -e 's|@''REPLACE_MODFF''@|0|g' \
      -e 's|@''REPLACE_MODFL''@|0|g' \
      -e 's|@''REPLACE_NAN''@|0|g' \
      -e 's|@''REPLACE_REMAINDER''@|0|g' \
      -e 's|@''REPLACE_REMAINDERF''@|0|g' \
      -e 's|@''REPLACE_REMAINDERL''@|0|g' \
      -e 's|@''REPLACE_RINTL''@|0|g' \
      -e 's|@''REPLACE_ROUND''@|0|g' \
      -e 's|@''REPLACE_ROUNDF''@|0|g' \
      -e 's|@''REPLACE_ROUNDL''@|0|g' \
      -e 's|@''REPLACE_SIGNBIT''@|0|g' \
      -e 's|@''REPLACE_SIGNBIT_USING_BUILTINS''@|0|g' \
      -e 's|@''REPLACE_SINF''@|0|g' \
      -e 's|@''REPLACE_SINHF''@|0|g' \
      -e 's|@''REPLACE_SQRTF''@|0|g' \
      -e 's|@''REPLACE_SQRTL''@|0|g' \
      -e 's|@''REPLACE_TANF''@|0|g' \
      -e 's|@''REPLACE_TANHF''@|0|g' \
      -e 's|@''REPLACE_TRUNC''@|0|g' \
      -e 's|@''REPLACE_TRUNCF''@|0|g' \
      -e 's|@''REPLACE_TRUNCL''@|0|g' \
      -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \
      -e '/definition of _GL_ARG_NONNULL/r ../../src/gllib/arg-nonnull.h' \
      -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h'; \
} > math.h-t && \
mv math.h-t math.h
rm -f signal.h-t signal.h && \
{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \
  sed -e 's|@''GUARD_PREFIX''@|GL|g' \
      -e 's|@''INCLUDE_NEXT''@|include_next|g' \
      -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \
      -e 's|@''PRAGMA_COLUMNS''@||g' \
      -e 's|@''NEXT_SIGNAL_H''@|<signal.h>|g' \
      -e 's/@''GNULIB_PTHREAD_SIGMASK''@/0/g' \
      -e 's/@''GNULIB_RAISE''@/0/g' \
      -e 's/@''GNULIB_SIGNAL_H_SIGPIPE''@/0/g' \
      -e 's/@''GNULIB_SIGPROCMASK''@/0/g' \
      -e 's/@''GNULIB_SIGACTION''@/0/g' \
      -e 's|@''HAVE_POSIX_SIGNALBLOCKING''@|1|g' \
      -e 's|@''HAVE_PTHREAD_SIGMASK''@|1|g' \
      -e 's|@''HAVE_RAISE''@|1|g' \
      -e 's|@''HAVE_SIGSET_T''@|1|g' \
      -e 's|@''HAVE_SIGINFO_T''@|1|g' \
      -e 's|@''HAVE_SIGACTION''@|1|g' \
      -e 's|@''HAVE_STRUCT_SIGACTION_SA_SIGACTION''@|1|g' \
      -e 's|@''HAVE_TYPE_VOLATILE_SIG_ATOMIC_T''@|1|g' \
      -e 's|@''HAVE_SIGHANDLER_T''@|1|g' \
      -e 's|@''REPLACE_PTHREAD_SIGMASK''@|0|g' \
      -e 's|@''REPLACE_RAISE''@|0|g' \
      -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \
      -e '/definition of _GL_ARG_NONNULL/r ../../src/gllib/arg-nonnull.h' \
      -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \
      < ../../src/gllib/signal.in.h; \
} > signal.h-t && \
mv signal.h-t signal.h
rm -f stdio.h-t stdio.h && \
{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \
  sed -e 's|@''GUARD_PREFIX''@|GL|g' \
      -e 's|@''INCLUDE_NEXT''@|include_next|g' \
      -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \
      -e 's|@''PRAGMA_COLUMNS''@||g' \
      -e 's|@''NEXT_STDIO_H''@|<stdio.h>|g' \
      -e 's/@''GNULIB_DPRINTF''@/0/g' \
      -e 's/@''GNULIB_FCLOSE''@/0/g' \
      -e 's/@''GNULIB_FDOPEN''@/0/g' \
      -e 's/@''GNULIB_FFLUSH''@/1/g' \
      -e 's/@''GNULIB_FGETC''@/1/g' \
      -e 's/@''GNULIB_FGETS''@/1/g' \
      -e 's/@''GNULIB_FOPEN''@/0/g' \
      -e 's/@''GNULIB_FPRINTF''@/1/g' \
      -e 's/@''GNULIB_FPRINTF_POSIX''@/0/g' \
      -e 's/@''GNULIB_FPURGE''@/1/g' \
      -e 's/@''GNULIB_FPUTC''@/1/g' \
      -e 's/@''GNULIB_FPUTS''@/1/g' \
      -e 's/@''GNULIB_FREAD''@/1/g' \
      -e 's/@''GNULIB_FREOPEN''@/0/g' \
      -e 's/@''GNULIB_FSCANF''@/1/g' \
      -e 's/@''GNULIB_FSEEK''@/1/g' \
      -e 's/@''GNULIB_FSEEKO''@/1/g' \
      -e 's/@''GNULIB_FTELL''@/1/g' \
      -e 's/@''GNULIB_FTELLO''@/1/g' \
      -e 's/@''GNULIB_FWRITE''@/1/g' \
      -e 's/@''GNULIB_GETC''@/1/g' \
      -e 's/@''GNULIB_GETCHAR''@/1/g' \
      -e 's/@''GNULIB_GETDELIM''@/0/g' \
      -e 's/@''GNULIB_GETLINE''@/0/g' \
      -e 's/@''GNULIB_OBSTACK_PRINTF''@/0/g' \
      -e 's/@''GNULIB_OBSTACK_PRINTF_POSIX''@/0/g' \
      -e 's/@''GNULIB_PCLOSE''@/0/g' \
      -e 's/@''GNULIB_PERROR''@/0/g' \
      -e 's/@''GNULIB_POPEN''@/0/g' \
      -e 's/@''GNULIB_PRINTF''@/1/g' \
      -e 's/@''GNULIB_PRINTF_POSIX''@/0/g' \
      -e 's/@''GNULIB_PUTC''@/1/g' \
      -e 's/@''GNULIB_PUTCHAR''@/1/g' \
      -e 's/@''GNULIB_PUTS''@/1/g' \
      -e 's/@''GNULIB_REMOVE''@/0/g' \
      -e 's/@''GNULIB_RENAME''@/0/g' \
      -e 's/@''GNULIB_RENAMEAT''@/0/g' \
      -e 's/@''GNULIB_SCANF''@/1/g' \
      -e 's/@''GNULIB_SNPRINTF''@/0/g' \
      -e 's/@''GNULIB_SPRINTF_POSIX''@/0/g' \
      -e 's/@''GNULIB_STDIO_H_NONBLOCKING''@/0/g' \
      -e 's/@''GNULIB_STDIO_H_SIGPIPE''@/0/g' \
      -e 's/@''GNULIB_TMPFILE''@/0/g' \
      -e 's/@''GNULIB_VASPRINTF''@/0/g' \
      -e 's/@''GNULIB_VDPRINTF''@/0/g' \
      -e 's/@''GNULIB_VFPRINTF''@/1/g' \
      -e 's/@''GNULIB_VFPRINTF_POSIX''@/0/g' \
      -e 's/@''GNULIB_VFSCANF''@/0/g' \
      -e 's/@''GNULIB_VSCANF''@/0/g' \
      -e 's/@''GNULIB_VPRINTF''@/1/g' \
      -e 's/@''GNULIB_VPRINTF_POSIX''@/0/g' \
      -e 's/@''GNULIB_VSNPRINTF''@/0/g' \
      -e 's/@''GNULIB_VSPRINTF_POSIX''@/0/g' \
      -e 's/@''GNULIB_MDA_FCLOSEALL''@/1/g' \
      -e 's/@''GNULIB_MDA_FDOPEN''@/1/g' \
      -e 's/@''GNULIB_MDA_FILENO''@/1/g' \
      -e 's/@''GNULIB_MDA_GETW''@/1/g' \
      -e 's/@''GNULIB_MDA_PUTW''@/1/g' \
      -e 's/@''GNULIB_MDA_TEMPNAM''@/1/g' \
      < ../../src/gllib/stdio.in.h | \
  sed -e 's|@''HAVE_DECL_FCLOSEALL''@|1|g' \
      -e 's|@''HAVE_DECL_FPURGE''@|0|g' \
      -e 's|@''HAVE_DECL_FSEEKO''@|1|g' \
      -e 's|@''HAVE_DECL_FTELLO''@|1|g' \
      -e 's|@''HAVE_DECL_GETDELIM''@|1|g' \
      -e 's|@''HAVE_DECL_GETLINE''@|1|g' \
      -e 's|@''HAVE_DECL_OBSTACK_PRINTF''@|1|g' \
      -e 's|@''HAVE_DECL_SNPRINTF''@|1|g' \
      -e 's|@''HAVE_DECL_VSNPRINTF''@|1|g' \
      -e 's|@''HAVE_DPRINTF''@|1|g' \
      -e 's|@''HAVE_FSEEKO''@|1|g' \
      -e 's|@''HAVE_FTELLO''@|1|g' \
      -e 's|@''HAVE_PCLOSE''@|1|g' \
      -e 's|@''HAVE_POPEN''@|1|g' \
      -e 's|@''HAVE_RENAMEAT''@|1|g' \
      -e 's|@''HAVE_VASPRINTF''@|1|g' \
      -e 's|@''HAVE_VDPRINTF''@|1|g' \
      -e 's|@''REPLACE_DPRINTF''@|0|g' \
      -e 's|@''REPLACE_FCLOSE''@|0|g' \
      -e 's|@''REPLACE_FDOPEN''@|0|g' \
      -e 's|@''REPLACE_FFLUSH''@|1|g' \
      -e 's|@''REPLACE_FOPEN''@|0|g' \
      -e 's|@''REPLACE_FPRINTF''@|0|g' \
      -e 's|@''REPLACE_FPURGE''@|0|g' \
      -e 's|@''REPLACE_FREOPEN''@|0|g' \
      -e 's|@''REPLACE_FSEEK''@|1|g' \
      -e 's|@''REPLACE_FSEEKO''@|1|g' \
      -e 's|@''REPLACE_FTELL''@|0|g' \
      -e 's|@''REPLACE_FTELLO''@|0|g' \
      -e 's|@''REPLACE_GETDELIM''@|0|g' \
      -e 's|@''REPLACE_GETLINE''@|0|g' \
      -e 's|@''REPLACE_OBSTACK_PRINTF''@|0|g' \
      -e 's|@''REPLACE_PERROR''@|0|g' \
      -e 's|@''REPLACE_POPEN''@|0|g' \
      -e 's|@''REPLACE_PRINTF''@|0|g' \
      -e 's|@''REPLACE_REMOVE''@|0|g' \
      -e 's|@''REPLACE_RENAME''@|0|g' \
      -e 's|@''REPLACE_RENAMEAT''@|0|g' \
      -e 's|@''REPLACE_SNPRINTF''@|0|g' \
      -e 's|@''REPLACE_SPRINTF''@|0|g' \
      -e 's|@''REPLACE_STDIO_READ_FUNCS''@|0|g' \
      -e 's|@''REPLACE_STDIO_WRITE_FUNCS''@|0|g' \
      -e 's|@''REPLACE_TMPFILE''@|0|g' \
      -e 's|@''REPLACE_VASPRINTF''@|0|g' \
      -e 's|@''REPLACE_VDPRINTF''@|0|g' \
      -e 's|@''REPLACE_VFPRINTF''@|0|g' \
      -e 's|@''REPLACE_VPRINTF''@|0|g' \
      -e 's|@''REPLACE_VSNPRINTF''@|0|g' \
      -e 's|@''REPLACE_VSPRINTF''@|0|g' \
      -e 's|@''ASM_SYMBOL_PREFIX''@|""|g' \
      -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \
      -e '/definition of _GL_ARG_NONNULL/r ../../src/gllib/arg-nonnull.h' \
      -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h'; \
} > stdio.h-t && \
mv stdio.h-t stdio.h
rm -f stdlib.h-t stdlib.h && \
{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \
  sed -e 's|@''GUARD_PREFIX''@|GL|g' \
      -e 's|@''INCLUDE_NEXT''@|include_next|g' \
      -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \
      -e 's|@''PRAGMA_COLUMNS''@||g' \
      -e 's|@''NEXT_STDLIB_H''@|<stdlib.h>|g' \
      -e 's/@''GNULIB__EXIT''@/0/g' \
      -e 's/@''GNULIB_ALIGNED_ALLOC''@/0/g' \
      -e 's/@''GNULIB_ATOLL''@/0/g' \
      -e 's/@''GNULIB_CALLOC_POSIX''@/0/g' \
      -e 's/@''GNULIB_CANONICALIZE_FILE_NAME''@/0/g' \
      -e 's/@''GNULIB_FREE_POSIX''@/0/g' \
      -e 's/@''GNULIB_GETLOADAVG''@/1/g' \
      -e 's/@''GNULIB_GETSUBOPT''@/0/g' \
      -e 's/@''GNULIB_GRANTPT''@/0/g' \
      -e 's/@''GNULIB_MALLOC_POSIX''@/1/g' \
      -e 's/@''GNULIB_MBTOWC''@/1/g' \
      -e 's/@''GNULIB_MKDTEMP''@/1/g' \
      -e 's/@''GNULIB_MKOSTEMP''@/0/g' \
      -e 's/@''GNULIB_MKOSTEMPS''@/0/g' \
      -e 's/@''GNULIB_MKSTEMP''@/1/g' \
      -e 's/@''GNULIB_MKSTEMPS''@/0/g' \
      -e 's/@''GNULIB_POSIX_MEMALIGN''@/0/g' \
      -e 's/@''GNULIB_POSIX_OPENPT''@/0/g' \
      -e 's/@''GNULIB_PTSNAME''@/0/g' \
      -e 's/@''GNULIB_PTSNAME_R''@/0/g' \
      -e 's/@''GNULIB_PUTENV''@/0/g' \
      -e 's/@''GNULIB_QSORT_R''@/0/g' \
      -e 's/@''GNULIB_RANDOM''@/0/g' \
      -e 's/@''GNULIB_RANDOM_R''@/0/g' \
      -e 's/@''GNULIB_REALLOC_POSIX''@/0/g' \
      -e 's/@''GNULIB_REALLOCARRAY''@/0/g' \
      -e 's/@''GNULIB_REALPATH''@/0/g' \
      -e 's/@''GNULIB_RPMATCH''@/0/g' \
      -e 's/@''GNULIB_SECURE_GETENV''@/0/g' \
      -e 's/@''GNULIB_SETENV''@/1/g' \
      -e 's/@''GNULIB_STRTOD''@/1/g' \
      -e 's/@''GNULIB_STRTOL''@/0/g' \
      -e 's/@''GNULIB_STRTOLD''@/0/g' \
      -e 's/@''GNULIB_STRTOLL''@/0/g' \
      -e 's/@''GNULIB_STRTOUL''@/0/g' \
      -e 's/@''GNULIB_STRTOULL''@/0/g' \
      -e 's/@''GNULIB_SYSTEM_POSIX''@/0/g' \
      -e 's/@''GNULIB_UNLOCKPT''@/0/g' \
      -e 's/@''GNULIB_UNSETENV''@/1/g' \
      -e 's/@''GNULIB_WCTOMB''@/0/g' \
      -e 's/@''GNULIB_MDA_ECVT''@/1/g' \
      -e 's/@''GNULIB_MDA_FCVT''@/1/g' \
      -e 's/@''GNULIB_MDA_GCVT''@/1/g' \
      -e 's/@''GNULIB_MDA_MKTEMP''@/1/g' \
      -e 's/@''GNULIB_MDA_PUTENV''@/1/g' \
      < ../../src/gllib/stdlib.in.h | \
  sed -e 's|@''HAVE__EXIT''@|1|g' \
      -e 's|@''HAVE_ALIGNED_ALLOC''@|1|g' \
      -e 's|@''HAVE_ATOLL''@|1|g' \
      -e 's|@''HAVE_CANONICALIZE_FILE_NAME''@|1|g' \
      -e 's|@''HAVE_DECL_ECVT''@|1|g' \
      -e 's|@''HAVE_DECL_FCVT''@|1|g' \
      -e 's|@''HAVE_DECL_GCVT''@|1|g' \
      -e 's|@''HAVE_DECL_GETLOADAVG''@|1|g' \
      -e 's|@''HAVE_GETSUBOPT''@|1|g' \
      -e 's|@''HAVE_GRANTPT''@|1|g' \
      -e 's|@''HAVE_INITSTATE''@|1|g' \
      -e 's|@''HAVE_DECL_INITSTATE''@|1|g' \
      -e 's|@''HAVE_MBTOWC''@|1|g' \
      -e 's|@''HAVE_MKDTEMP''@|1|g' \
      -e 's|@''HAVE_MKOSTEMP''@|1|g' \
      -e 's|@''HAVE_MKOSTEMPS''@|1|g' \
      -e 's|@''HAVE_MKSTEMP''@|1|g' \
      -e 's|@''HAVE_MKSTEMPS''@|1|g' \
      -e 's|@''HAVE_POSIX_MEMALIGN''@|1|g' \
      -e 's|@''HAVE_POSIX_OPENPT''@|1|g' \
      -e 's|@''HAVE_PTSNAME''@|1|g' \
      -e 's|@''HAVE_PTSNAME_R''@|1|g' \
      -e 's|@''HAVE_QSORT_R''@|1|g' \
      -e 's|@''HAVE_RANDOM''@|1|g' \
      -e 's|@''HAVE_RANDOM_H''@|1|g' \
      -e 's|@''HAVE_RANDOM_R''@|1|g' \
      -e 's|@''HAVE_REALLOCARRAY''@|1|g' \
      -e 's|@''HAVE_REALPATH''@|1|g' \
      -e 's|@''HAVE_RPMATCH''@|1|g' \
      -e 's|@''HAVE_SECURE_GETENV''@|1|g' \
      -e 's|@''HAVE_DECL_SETENV''@|1|g' \
      -e 's|@''HAVE_SETSTATE''@|1|g' \
      -e 's|@''HAVE_DECL_SETSTATE''@|1|g' \
      -e 's|@''HAVE_STRTOD''@|1|g' \
      -e 's|@''HAVE_STRTOL''@|1|g' \
      -e 's|@''HAVE_STRTOLD''@|1|g' \
      -e 's|@''HAVE_STRTOLL''@|1|g' \
      -e 's|@''HAVE_STRTOUL''@|1|g' \
      -e 's|@''HAVE_STRTOULL''@|1|g' \
      -e 's|@''HAVE_STRUCT_RANDOM_DATA''@|1|g' \
      -e 's|@''HAVE_SYS_LOADAVG_H''@|0|g' \
      -e 's|@''HAVE_UNLOCKPT''@|1|g' \
      -e 's|@''HAVE_DECL_UNSETENV''@|1|g' \
      -e 's|@''REPLACE_ALIGNED_ALLOC''@|0|g' \
      -e 's|@''REPLACE_CALLOC''@|0|g' \
      -e 's|@''REPLACE_CANONICALIZE_FILE_NAME''@|0|g' \
      -e 's|@''REPLACE_FREE''@|0|g' \
      -e 's|@''REPLACE_INITSTATE''@|0|g' \
      -e 's|@''REPLACE_MALLOC''@|0|g' \
      -e 's|@''REPLACE_MBTOWC''@|0|g' \
      -e 's|@''REPLACE_MKSTEMP''@|0|g' \
      -e 's|@''REPLACE_POSIX_MEMALIGN''@|0|g' \
      -e 's|@''REPLACE_PTSNAME''@|0|g' \
      -e 's|@''REPLACE_PTSNAME_R''@|0|g' \
      -e 's|@''REPLACE_PUTENV''@|0|g' \
      -e 's|@''REPLACE_QSORT_R''@|0|g' \
      -e 's|@''REPLACE_RANDOM''@|0|g' \
      -e 's|@''REPLACE_RANDOM_R''@|0|g' \
      -e 's|@''REPLACE_REALLOC''@|0|g' \
      -e 's|@''REPLACE_REALLOCARRAY''@|0|g' \
      -e 's|@''REPLACE_REALPATH''@|0|g' \
      -e 's|@''REPLACE_SETENV''@|0|g' \
      -e 's|@''REPLACE_SETSTATE''@|0|g' \
      -e 's|@''REPLACE_STRTOD''@|0|g' \
      -e 's|@''REPLACE_STRTOL''@|0|g' \
      -e 's|@''REPLACE_STRTOLD''@|0|g' \
      -e 's|@''REPLACE_STRTOLL''@|0|g' \
      -e 's|@''REPLACE_STRTOUL''@|0|g' \
      -e 's|@''REPLACE_STRTOULL''@|0|g' \
      -e 's|@''REPLACE_UNSETENV''@|0|g' \
      -e 's|@''REPLACE_WCTOMB''@|0|g' \
      -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \
      -e '/definition of _Noreturn/r ../../src/gllib/_Noreturn.h' \
      -e '/definition of _GL_ARG_NONNULL/r ../../src/gllib/arg-nonnull.h' \
      -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h'; \
} > stdlib.h-t && \
mv stdlib.h-t stdlib.h
rm -f string.h-t string.h && \
{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \
  sed -e 's|@''GUARD_PREFIX''@|GL|g' \
      -e 's|@''INCLUDE_NEXT''@|include_next|g' \
      -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \
      -e 's|@''PRAGMA_COLUMNS''@||g' \
      -e 's|@''NEXT_STRING_H''@|<string.h>|g' \
      -e 's/@''GNULIB_EXPLICIT_BZERO''@/0/g' \
      -e 's/@''GNULIB_FFSL''@/0/g' \
      -e 's/@''GNULIB_FFSLL''@/0/g' \
      -e 's/@''GNULIB_MBSLEN''@/0/g' \
      -e 's/@''GNULIB_MBSNLEN''@/0/g' \
      -e 's/@''GNULIB_MBSCHR''@/0/g' \
      -e 's/@''GNULIB_MBSRCHR''@/0/g' \
      -e 's/@''GNULIB_MBSSTR''@/0/g' \
      -e 's/@''GNULIB_MBSCASECMP''@/0/g' \
      -e 's/@''GNULIB_MBSNCASECMP''@/0/g' \
      -e 's/@''GNULIB_MBSPCASECMP''@/0/g' \
      -e 's/@''GNULIB_MBSCASESTR''@/0/g' \
      -e 's/@''GNULIB_MBSCSPN''@/0/g' \
      -e 's/@''GNULIB_MBSPBRK''@/0/g' \
      -e 's/@''GNULIB_MBSSPN''@/0/g' \
      -e 's/@''GNULIB_MBSSEP''@/0/g' \
      -e 's/@''GNULIB_MBSTOK_R''@/0/g' \
      -e 's/@''GNULIB_MEMCHR''@/1/g' \
      -e 's/@''GNULIB_MEMMEM''@/0/g' \
      -e 's/@''GNULIB_MEMPCPY''@/1/g' \
      -e 's/@''GNULIB_MEMRCHR''@/0/g' \
      -e 's/@''GNULIB_RAWMEMCHR''@/0/g' \
      -e 's/@''GNULIB_STPCPY''@/0/g' \
      -e 's/@''GNULIB_STPNCPY''@/0/g' \
      -e 's/@''GNULIB_STRCHRNUL''@/0/g' \
      -e 's/@''GNULIB_STRDUP''@/1/g' \
      -e 's/@''GNULIB_STRNCAT''@/0/g' \
      -e 's/@''GNULIB_STRNDUP''@/0/g' \
      -e 's/@''GNULIB_STRNLEN''@/1/g' \
      -e 's/@''GNULIB_STRPBRK''@/0/g' \
      -e 's/@''GNULIB_STRSEP''@/0/g' \
      -e 's/@''GNULIB_STRSTR''@/0/g' \
      -e 's/@''GNULIB_STRCASESTR''@/0/g' \
      -e 's/@''GNULIB_STRTOK_R''@/0/g' \
      -e 's/@''GNULIB_STRERROR''@/0/g' \
      -e 's/@''GNULIB_STRERROR_R''@/1/g' \
      -e 's/@''GNULIB_STRERRORNAME_NP''@/0/g' \
      -e 's/@''GNULIB_SIGABBREV_NP''@/0/g' \
      -e 's/@''GNULIB_SIGDESCR_NP''@/0/g' \
      -e 's/@''GNULIB_STRSIGNAL''@/0/g' \
      -e 's/@''GNULIB_STRVERSCMP''@/1/g' \
      -e 's/@''GNULIB_MDA_MEMCCPY''@/1/g' \
      -e 's/@''GNULIB_MDA_STRDUP''@/1/g' \
      < ../../src/gllib/string.in.h | \
  sed -e 's|@''HAVE_EXPLICIT_BZERO''@|1|g' \
      -e 's|@''HAVE_FFSL''@|1|g' \
      -e 's|@''HAVE_FFSLL''@|1|g' \
      -e 's|@''HAVE_MBSLEN''@|0|g' \
      -e 's|@''HAVE_DECL_MEMMEM''@|1|g' \
      -e 's|@''HAVE_MEMPCPY''@|1|g' \
      -e 's|@''HAVE_DECL_MEMRCHR''@|1|g' \
      -e 's|@''HAVE_RAWMEMCHR''@|1|g' \
      -e 's|@''HAVE_STPCPY''@|1|g' \
      -e 's|@''HAVE_STPNCPY''@|1|g' \
      -e 's|@''HAVE_STRCHRNUL''@|1|g' \
      -e 's|@''HAVE_DECL_STRDUP''@|1|g' \
      -e 's|@''HAVE_DECL_STRNDUP''@|1|g' \
      -e 's|@''HAVE_DECL_STRNLEN''@|1|g' \
      -e 's|@''HAVE_STRPBRK''@|1|g' \
      -e 's|@''HAVE_STRSEP''@|1|g' \
      -e 's|@''HAVE_STRCASESTR''@|1|g' \
      -e 's|@''HAVE_DECL_STRTOK_R''@|1|g' \
      -e 's|@''HAVE_DECL_STRERROR_R''@|1|g' \
      -e 's|@''HAVE_STRERRORNAME_NP''@|1|g' \
      -e 's|@''HAVE_SIGABBREV_NP''@|1|g' \
      -e 's|@''HAVE_SIGDESCR_NP''@|1|g' \
      -e 's|@''HAVE_DECL_STRSIGNAL''@|1|g' \
      -e 's|@''HAVE_STRVERSCMP''@|1|g' \
      -e 's|@''REPLACE_FFSLL''@|0|g' \
      -e 's|@''REPLACE_MEMCHR''@|0|g' \
      -e 's|@''REPLACE_MEMMEM''@|0|g' \
      -e 's|@''REPLACE_STPNCPY''@|0|g' \
      -e 's|@''REPLACE_STRCHRNUL''@|0|g' \
      -e 's|@''REPLACE_STRDUP''@|0|g' \
      -e 's|@''REPLACE_STRNCAT''@|0|g' \
      -e 's|@''REPLACE_STRNDUP''@|0|g' \
      -e 's|@''REPLACE_STRNLEN''@|0|g' \
      -e 's|@''REPLACE_STRSTR''@|0|g' \
      -e 's|@''REPLACE_STRCASESTR''@|0|g' \
      -e 's|@''REPLACE_STRTOK_R''@|0|g' \
      -e 's|@''REPLACE_STRERROR''@|0|g' \
      -e 's|@''REPLACE_STRERROR_R''@|1|g' \
      -e 's|@''REPLACE_STRERRORNAME_NP''@|0|g' \
      -e 's|@''REPLACE_STRSIGNAL''@|0|g' \
      -e 's|@''UNDEFINE_STRTOK_R''@|0|g' \
      -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \
      -e '/definition of _GL_ARG_NONNULL/r ../../src/gllib/arg-nonnull.h' \
      -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h'; \
      < ../../src/gllib/string.in.h; \
} > string.h-t && \
mv string.h-t string.h
rm -f strings.h-t strings.h && \
{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \
  sed -e 's|@''GUARD_PREFIX''@|GL|g' \
      -e 's|@''HAVE_STRINGS_H''@|1|g' \
      -e 's|@''INCLUDE_NEXT''@|include_next|g' \
      -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \
      -e 's|@''PRAGMA_COLUMNS''@||g' \
      -e 's|@''NEXT_STRINGS_H''@|<strings.h>|g' \
      -e 's/@''GNULIB_FFS''@/0/g' \
      -e 's|@''HAVE_FFS''@|1|g' \
      -e 's|@''HAVE_STRCASECMP''@|1|g' \
      -e 's|@''HAVE_DECL_STRNCASECMP''@|1|g' \
      -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \
      -e '/definition of _GL_ARG_NONNULL/r ../../src/gllib/arg-nonnull.h' \
      -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \
      < ../../src/gllib/strings.in.h; \
} > strings.h-t && \
mv strings.h-t strings.h
/usr/bin/mkdir -p sys
rm -f sys/ioctl.h-t sys/ioctl.h && \
{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \
  sed -e 's|@''GUARD_PREFIX''@|GL|g' \
      -e 's|@''HAVE_SYS_IOCTL_H''@|1|g' \
      -e 's|@''INCLUDE_NEXT''@|include_next|g' \
      -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \
      -e 's|@''PRAGMA_COLUMNS''@||g' \
      -e 's|@''NEXT_SYS_IOCTL_H''@|<sys/ioctl.h>|g' \
      -e 's/@''GNULIB_IOCTL''@/1/g' \
      -e 's|@''SYS_IOCTL_H_HAVE_WINSOCK2_H''@|0|g' \
      -e 's|@''SYS_IOCTL_H_HAVE_WINSOCK2_H_AND_USE_SOCKETS''@|0|g' \
      -e 's|@''REPLACE_IOCTL''@|1|g' \
      -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \
      -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \
      < ../../src/gllib/sys_ioctl.in.h; \
} > sys/ioctl.h-t && \
mv sys/ioctl.h-t sys/ioctl.h
/usr/bin/mkdir -p sys
rm -f sys/random.h-t sys/random.h && \
{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \
  sed -e 's|@''GUARD_PREFIX''@|GL|g' \
      -e 's|@''INCLUDE_NEXT''@|include_next|g' \
      -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \
      -e 's|@''PRAGMA_COLUMNS''@||g' \
      -e 's|@''NEXT_SYS_RANDOM_H''@|<sys/random.h>|g' \
      -e 's|@''HAVE_SYS_RANDOM_H''@|1|g' \
      -e 's/@''GNULIB_GETRANDOM''@/1/g' \
      -e 's/@''HAVE_GETRANDOM''@/1/g' \
      -e 's/@''REPLACE_GETRANDOM''@/0/g' \
      -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \
      -e '/definition of _GL_ARG_NONNULL/r ../../src/gllib/arg-nonnull.h' \
      -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \
      < ../../src/gllib/sys_random.in.h; \
} > sys/random.h-t && \
mv -f sys/random.h-t sys/random.h
/usr/bin/mkdir -p sys
rm -f sys/select.h-t sys/select.h && \
{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \
  sed -e 's|@''GUARD_PREFIX''@|GL|g' \
      -e 's|@''INCLUDE_NEXT''@|include_next|g' \
      -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \
      -e 's|@''PRAGMA_COLUMNS''@||g' \
      -e 's|@''NEXT_SYS_SELECT_H''@|<sys/select.h>|g' \
      -e 's|@''HAVE_SYS_SELECT_H''@|1|g' \
      -e 's/@''GNULIB_PSELECT''@/0/g' \
      -e 's/@''GNULIB_SELECT''@/1/g' \
      -e 's|@''HAVE_WINSOCK2_H''@|0|g' \
      -e 's|@''HAVE_PSELECT''@|1|g' \
      -e 's|@''REPLACE_PSELECT''@|0|g' \
      -e 's|@''REPLACE_SELECT''@|0|g' \
      -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \
      -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \
      < ../../src/gllib/sys_select.in.h; \
} > sys/select.h-t && \
mv sys/select.h-t sys/select.h
/usr/bin/mkdir -p sys
rm -f sys/socket.h-t sys/socket.h && \
{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \
  sed -e 's|@''GUARD_PREFIX''@|GL|g' \
      -e 's|@''INCLUDE_NEXT''@|include_next|g' \
      -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \
      -e 's|@''PRAGMA_COLUMNS''@||g' \
      -e 's|@''NEXT_SYS_SOCKET_H''@|<sys/socket.h>|g' \
      -e 's|@''HAVE_SYS_SOCKET_H''@|1|g' \
      -e 's/@''GNULIB_CLOSE''@/1/g' \
      -e 's/@''GNULIB_SOCKET''@/1/g' \
      -e 's/@''GNULIB_CONNECT''@/1/g' \
      -e 's/@''GNULIB_ACCEPT''@/1/g' \
      -e 's/@''GNULIB_BIND''@/1/g' \
      -e 's/@''GNULIB_GETPEERNAME''@/1/g' \
      -e 's/@''GNULIB_GETSOCKNAME''@/1/g' \
      -e 's/@''GNULIB_GETSOCKOPT''@/1/g' \
      -e 's/@''GNULIB_LISTEN''@/1/g' \
      -e 's/@''GNULIB_RECV''@/1/g' \
      -e 's/@''GNULIB_SEND''@/1/g' \
      -e 's/@''GNULIB_RECVFROM''@/1/g' \
      -e 's/@''GNULIB_SENDTO''@/1/g' \
      -e 's/@''GNULIB_SETSOCKOPT''@/1/g' \
      -e 's/@''GNULIB_SHUTDOWN''@/1/g' \
      -e 's/@''GNULIB_ACCEPT4''@/0/g' \
      -e 's|@''HAVE_WINSOCK2_H''@|0|g' \
      -e 's|@''HAVE_WS2TCPIP_H''@|0|g' \
      -e 's|@''HAVE_STRUCT_SOCKADDR_STORAGE''@|1|g' \
      -e 's|@''HAVE_STRUCT_SOCKADDR_STORAGE_SS_FAMILY''@|1|g' \
      -e 's|@''HAVE_SA_FAMILY_T''@|1|g' \
      -e 's|@''HAVE_ACCEPT4''@|1|g' \
      -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \
      -e '/definition of _GL_ARG_NONNULL/r ../../src/gllib/arg-nonnull.h' \
      -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \
      < ../../src/gllib/sys_socket.in.h; \
} > sys/socket.h-t && \
mv -f sys/socket.h-t sys/socket.h
/usr/bin/mkdir -p sys
rm -f sys/stat.h-t sys/stat.h && \
{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \
  sed -e 's|@''GUARD_PREFIX''@|GL|g' \
      -e 's|@''INCLUDE_NEXT''@|include_next|g' \
      -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \
      -e 's|@''PRAGMA_COLUMNS''@||g' \
      -e 's|@''NEXT_SYS_STAT_H''@|<sys/stat.h>|g' \
      -e 's|@''WINDOWS_64_BIT_ST_SIZE''@|0|g' \
      -e 's|@''WINDOWS_STAT_TIMESPEC''@|0|g' \
      -e 's/@''GNULIB_FCHMODAT''@/0/g' \
      -e 's/@''GNULIB_FSTAT''@/1/g' \
      -e 's/@''GNULIB_FSTATAT''@/0/g' \
      -e 's/@''GNULIB_FUTIMENS''@/0/g' \
      -e 's/@''GNULIB_GETUMASK''@/0/g' \
      -e 's/@''GNULIB_LCHMOD''@/0/g' \
      -e 's/@''GNULIB_LSTAT''@/1/g' \
      -e 's/@''GNULIB_MKDIR''@/1/g' \
      -e 's/@''GNULIB_MKDIRAT''@/0/g' \
      -e 's/@''GNULIB_MKFIFO''@/1/g' \
      -e 's/@''GNULIB_MKFIFOAT''@/0/g' \
      -e 's/@''GNULIB_MKNOD''@/1/g' \
      -e 's/@''GNULIB_MKNODAT''@/0/g' \
      -e 's/@''GNULIB_STAT''@/1/g' \
      -e 's/@''GNULIB_UTIMENSAT''@/0/g' \
      -e 's/@''GNULIB_OVERRIDES_STRUCT_STAT''@/0/g' \
      -e 's/@''GNULIB_MDA_CHMOD''@/1/g' \
      -e 's/@''GNULIB_MDA_MKDIR''@/1/g' \
      -e 's/@''GNULIB_MDA_UMASK''@/1/g' \
      -e 's|@''HAVE_FCHMODAT''@|1|g' \
      -e 's|@''HAVE_FSTATAT''@|1|g' \
      -e 's|@''HAVE_FUTIMENS''@|1|g' \
      -e 's|@''HAVE_GETUMASK''@|1|g' \
      -e 's|@''HAVE_LCHMOD''@|1|g' \
      -e 's|@''HAVE_LSTAT''@|1|g' \
      -e 's|@''HAVE_MKDIRAT''@|1|g' \
      -e 's|@''HAVE_MKFIFO''@|1|g' \
      -e 's|@''HAVE_MKFIFOAT''@|1|g' \
      -e 's|@''HAVE_MKNOD''@|1|g' \
      -e 's|@''HAVE_MKNODAT''@|1|g' \
      -e 's|@''HAVE_UTIMENSAT''@|1|g' \
      -e 's|@''REPLACE_FCHMODAT''@|0|g' \
      -e 's|@''REPLACE_FSTAT''@|0|g' \
      -e 's|@''REPLACE_FSTATAT''@|0|g' \
      -e 's|@''REPLACE_FUTIMENS''@|0|g' \
      -e 's|@''REPLACE_LSTAT''@|0|g' \
      -e 's|@''REPLACE_MKDIR''@|0|g' \
      -e 's|@''REPLACE_MKFIFO''@|0|g' \
      -e 's|@''REPLACE_MKFIFOAT''@|0|g' \
      -e 's|@''REPLACE_MKNOD''@|0|g' \
      -e 's|@''REPLACE_MKNODAT''@|0|g' \
      -e 's|@''REPLACE_STAT''@|0|g' \
      -e 's|@''REPLACE_UTIMENSAT''@|0|g' \
      -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \
      -e '/definition of _GL_ARG_NONNULL/r ../../src/gllib/arg-nonnull.h' \
      -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \
      < ../../src/gllib/sys_stat.in.h; \
} > sys/stat.h-t && \
mv sys/stat.h-t sys/stat.h
/usr/bin/mkdir -p sys
rm -f sys/time.h-t sys/time.h && \
{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \
  sed -e 's|@''GUARD_PREFIX''@|GL|g' \
      -e 's/@''HAVE_SYS_TIME_H''@/1/g' \
      -e 's|@''INCLUDE_NEXT''@|include_next|g' \
      -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \
      -e 's|@''PRAGMA_COLUMNS''@||g' \
      -e 's|@''NEXT_SYS_TIME_H''@|<sys/time.h>|g' \
      -e 's/@''GNULIB_GETTIMEOFDAY''@/1/g' \
      -e 's|@''HAVE_WINSOCK2_H''@|0|g' \
      -e 's/@''HAVE_GETTIMEOFDAY''@/1/g' \
      -e 's/@''HAVE_STRUCT_TIMEVAL''@/1/g' \
      -e 's/@''REPLACE_GETTIMEOFDAY''@/0/g' \
      -e 's/@''REPLACE_STRUCT_TIMEVAL''@/0/g' \
      -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \
      -e '/definition of _GL_ARG_NONNULL/r ../../src/gllib/arg-nonnull.h' \
      -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \
      < ../../src/gllib/sys_time.in.h; \
} > sys/time.h-t && \
mv sys/time.h-t sys/time.h
/usr/bin/mkdir -p sys
rm -f sys/types.h-t sys/types.h && \
{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \
  sed -e 's|@''GUARD_PREFIX''@|GL|g' \
      -e 's|@''INCLUDE_NEXT''@|include_next|g' \
      -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \
      -e 's|@''PRAGMA_COLUMNS''@||g' \
      -e 's|@''NEXT_SYS_TYPES_H''@|<sys/types.h>|g' \
      -e 's|@''WINDOWS_64_BIT_OFF_T''@|0|g' \
      -e 's|@''WINDOWS_STAT_INODES''@|0|g' \
      < ../../src/gllib/sys_types.in.h; \
} > sys/types.h-t && \
mv sys/types.h-t sys/types.h
/usr/bin/mkdir -p sys
rm -f sys/uio.h-t sys/uio.h && \
{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \
  sed -e 's|@''GUARD_PREFIX''@|GL|g' \
      -e 's|@''INCLUDE_NEXT''@|include_next|g' \
      -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \
      -e 's|@''PRAGMA_COLUMNS''@||g' \
      -e 's|@''NEXT_SYS_UIO_H''@|<sys/uio.h>|g' \
      -e 's|@''HAVE_SYS_UIO_H''@|1|g' \
      < ../../src/gllib/sys_uio.in.h; \
} > sys/uio.h-t && \
mv -f sys/uio.h-t sys/uio.h
/usr/bin/mkdir -p sys
rm -f sys/utsname.h-t sys/utsname.h && \
{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \
  sed -e 's|@''GUARD_PREFIX''@|GL|g' \
      -e 's/@''HAVE_SYS_UTSNAME_H''@/1/g' \
      -e 's|@''INCLUDE_NEXT''@|include_next|g' \
      -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \
      -e 's|@''PRAGMA_COLUMNS''@||g' \
      -e 's|@''NEXT_SYS_UTSNAME_H''@|<sys/utsname.h>|g' \
      -e 's/@''GNULIB_UNAME''@/1/g' \
      -e 's|@''HAVE_STRUCT_UTSNAME''@|1|g' \
      -e 's|@''HAVE_UNAME''@|1|g' \
      -e '/definition of _GL_ARG_NONNULL/r ../../src/gllib/arg-nonnull.h' \
      -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \
      < ../../src/gllib/sys_utsname.in.h; \
} > sys/utsname.h-t && \
mv sys/utsname.h-t sys/utsname.h
/usr/bin/mkdir -p sys
rm -f sys/wait.h-t sys/wait.h && \
{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \
  sed -e 's|@''GUARD_PREFIX''@|GL|g' \
      -e 's|@''INCLUDE_NEXT''@|include_next|g' \
      -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \
      -e 's|@''PRAGMA_COLUMNS''@||g' \
      -e 's|@''NEXT_SYS_WAIT_H''@|<sys/wait.h>|g' \
      -e 's/@''GNULIB_WAITPID''@/0/g' \
      -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \
      -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \
      < ../../src/gllib/sys_wait.in.h; \
} > sys/wait.h-t && \
mv sys/wait.h-t sys/wait.h
rm -f time.h-t time.h && \
{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \
  sed -e 's|@''GUARD_PREFIX''@|GL|g' \
      -e 's|@''INCLUDE_NEXT''@|include_next|g' \
      -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \
      -e 's|@''PRAGMA_COLUMNS''@||g' \
      -e 's|@''NEXT_TIME_H''@|<time.h>|g' \
      -e 's/@''GNULIB_CTIME''@/0/g' \
      -e 's/@''GNULIB_LOCALTIME''@/0/g' \
      -e 's/@''GNULIB_MKTIME''@/1/g' \
      -e 's/@''GNULIB_NANOSLEEP''@/0/g' \
      -e 's/@''GNULIB_STRFTIME''@/0/g' \
      -e 's/@''GNULIB_STRPTIME''@/1/g' \
      -e 's/@''GNULIB_TIMEGM''@/1/g' \
      -e 's/@''GNULIB_TIMESPEC_GET''@/0/g' \
      -e 's/@''GNULIB_TIME_R''@/1/g' \
      -e 's/@''GNULIB_TIME_RZ''@/1/g' \
      -e 's/@''GNULIB_TZSET''@/1/g' \
      -e 's/@''GNULIB_MDA_TZSET''@/1/g' \
      -e 's|@''HAVE_DECL_LOCALTIME_R''@|1|g' \
      -e 's|@''HAVE_NANOSLEEP''@|1|g' \
      -e 's|@''HAVE_STRPTIME''@|1|g' \
      -e 's|@''HAVE_TIMEGM''@|1|g' \
      -e 's|@''HAVE_TIMESPEC_GET''@|1|g' \
      -e 's|@''HAVE_TIMEZONE_T''@|0|g' \
      -e 's|@''REPLACE_CTIME''@|GNULIB_PORTCHECK|g' \
      -e 's|@''REPLACE_GMTIME''@|0|g' \
      -e 's|@''REPLACE_LOCALTIME''@|0|g' \
      -e 's|@''REPLACE_LOCALTIME_R''@|0|g' \
      -e 's|@''REPLACE_MKTIME''@|0|g' \
      -e 's|@''REPLACE_NANOSLEEP''@|GNULIB_PORTCHECK|g' \
      -e 's|@''REPLACE_STRFTIME''@|GNULIB_PORTCHECK|g' \
      -e 's|@''REPLACE_TIMEGM''@|0|g' \
      -e 's|@''REPLACE_TZSET''@|0|g' \
      -e 's|@''PTHREAD_H_DEFINES_STRUCT_TIMESPEC''@|0|g' \
      -e 's|@''SYS_TIME_H_DEFINES_STRUCT_TIMESPEC''@|0|g' \
      -e 's|@''TIME_H_DEFINES_STRUCT_TIMESPEC''@|1|g' \
      -e 's|@''UNISTD_H_DEFINES_STRUCT_TIMESPEC''@|0|g' \
      -e 's|@''TIME_H_DEFINES_TIME_UTC''@|1|g' \
      -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \
      -e '/definition of _GL_ARG_NONNULL/r ../../src/gllib/arg-nonnull.h' \
      -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \
      < ../../src/gllib/time.in.h; \
} > time.h-t && \
mv time.h-t time.h
rm -f unistd.h-t unistd.h && \
{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \
  sed -e 's|@''GUARD_PREFIX''@|GL|g' \
      -e 's|@''HAVE_UNISTD_H''@|1|g' \
      -e 's|@''INCLUDE_NEXT''@|include_next|g' \
      -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \
      -e 's|@''PRAGMA_COLUMNS''@||g' \
      -e 's|@''NEXT_UNISTD_H''@|<unistd.h>|g' \
      -e 's|@''WINDOWS_64_BIT_OFF_T''@|0|g' \
      -e 's/@''GNULIB_ACCESS''@/0/g' \
      -e 's/@''GNULIB_CHDIR''@/0/g' \
      -e 's/@''GNULIB_CHOWN''@/0/g' \
      -e 's/@''GNULIB_CLOSE''@/1/g' \
      -e 's/@''GNULIB_COPY_FILE_RANGE''@/0/g' \
      -e 's/@''GNULIB_DUP''@/0/g' \
      -e 's/@''GNULIB_DUP2''@/1/g' \
      -e 's/@''GNULIB_DUP3''@/0/g' \
      -e 's/@''GNULIB_ENVIRON''@/1/g' \
      -e 's/@''GNULIB_EUIDACCESS''@/0/g' \
      -e 's/@''GNULIB_EXECL''@/0/g' \
      -e 's/@''GNULIB_EXECLE''@/0/g' \
      -e 's/@''GNULIB_EXECLP''@/0/g' \
      -e 's/@''GNULIB_EXECV''@/0/g' \
      -e 's/@''GNULIB_EXECVE''@/0/g' \
      -e 's/@''GNULIB_EXECVP''@/0/g' \
      -e 's/@''GNULIB_EXECVPE''@/0/g' \
      -e 's/@''GNULIB_FACCESSAT''@/0/g' \
      -e 's/@''GNULIB_FCHDIR''@/0/g' \
      -e 's/@''GNULIB_FCHOWNAT''@/0/g' \
      -e 's/@''GNULIB_FDATASYNC''@/0/g' \
      -e 's/@''GNULIB_FSYNC''@/0/g' \
      -e 's/@''GNULIB_FTRUNCATE''@/0/g' \
      -e 's/@''GNULIB_GETCWD''@/0/g' \
      -e 's/@''GNULIB_GETDOMAINNAME''@/0/g' \
      -e 's/@''GNULIB_GETDTABLESIZE''@/1/g' \
      -e 's/@''GNULIB_GETENTROPY''@/0/g' \
      -e 's/@''GNULIB_GETGROUPS''@/0/g' \
      -e 's/@''GNULIB_GETHOSTNAME''@/1/g' \
      -e 's/@''GNULIB_GETLOGIN''@/0/g' \
      -e 's/@''GNULIB_GETLOGIN_R''@/0/g' \
      -e 's/@''GNULIB_GETOPT_POSIX''@/0/g' \
      -e 's/@''GNULIB_GETPAGESIZE''@/1/g' \
      -e 's/@''GNULIB_GETPASS''@/0/g' \
      -e 's/@''GNULIB_GETUSERSHELL''@/0/g' \
      -e 's/@''GNULIB_GROUP_MEMBER''@/0/g' \
      -e 's/@''GNULIB_ISATTY''@/0/g' \
      -e 's/@''GNULIB_LCHOWN''@/0/g' \
      -e 's/@''GNULIB_LINK''@/0/g' \
      -e 's/@''GNULIB_LINKAT''@/0/g' \
      -e 's/@''GNULIB_LSEEK''@/1/g' \
      -e 's/@''GNULIB_PIPE''@/0/g' \
      -e 's/@''GNULIB_PIPE2''@/0/g' \
      -e 's/@''GNULIB_PREAD''@/0/g' \
      -e 's/@''GNULIB_PWRITE''@/0/g' \
      -e 's/@''GNULIB_READ''@/0/g' \
      -e 's/@''GNULIB_READLINK''@/1/g' \
      -e 's/@''GNULIB_READLINKAT''@/0/g' \
      -e 's/@''GNULIB_RMDIR''@/0/g' \
      -e 's/@''GNULIB_SETHOSTNAME''@/0/g' \
      -e 's/@''GNULIB_SLEEP''@/0/g' \
      -e 's/@''GNULIB_SYMLINK''@/0/g' \
      -e 's/@''GNULIB_SYMLINKAT''@/0/g' \
      -e 's/@''GNULIB_TRUNCATE''@/0/g' \
      -e 's/@''GNULIB_TTYNAME_R''@/0/g' \
      -e 's/@''GNULIB_UNISTD_H_GETOPT''@/00/g' \
      -e 's/@''GNULIB_UNISTD_H_NONBLOCKING''@/0/g' \
      -e 's/@''GNULIB_UNISTD_H_SIGPIPE''@/0/g' \
      -e 's/@''GNULIB_UNLINK''@/0/g' \
      -e 's/@''GNULIB_UNLINKAT''@/0/g' \
      -e 's/@''GNULIB_USLEEP''@/0/g' \
      -e 's/@''GNULIB_WRITE''@/0/g' \
      -e 's/@''GNULIB_MDA_ACCESS''@/1/g' \
      -e 's/@''GNULIB_MDA_CHDIR''@/1/g' \
      -e 's/@''GNULIB_MDA_CLOSE''@/1/g' \
      -e 's/@''GNULIB_MDA_DUP''@/1/g' \
      -e 's/@''GNULIB_MDA_DUP2''@/1/g' \
      -e 's/@''GNULIB_MDA_EXECL''@/1/g' \
      -e 's/@''GNULIB_MDA_EXECLE''@/1/g' \
      -e 's/@''GNULIB_MDA_EXECLP''@/1/g' \
      -e 's/@''GNULIB_MDA_EXECV''@/1/g' \
      -e 's/@''GNULIB_MDA_EXECVE''@/1/g' \
      -e 's/@''GNULIB_MDA_EXECVP''@/1/g' \
      -e 's/@''GNULIB_MDA_EXECVPE''@/1/g' \
      -e 's/@''GNULIB_MDA_GETCWD''@/1/g' \
      -e 's/@''GNULIB_MDA_GETPID''@/1/g' \
      -e 's/@''GNULIB_MDA_ISATTY''@/1/g' \
      -e 's/@''GNULIB_MDA_LSEEK''@/1/g' \
      -e 's/@''GNULIB_MDA_READ''@/1/g' \
      -e 's/@''GNULIB_MDA_RMDIR''@/1/g' \
      -e 's/@''GNULIB_MDA_SWAB''@/1/g' \
      -e 's/@''GNULIB_MDA_UNLINK''@/1/g' \
      -e 's/@''GNULIB_MDA_WRITE''@/1/g' \
      < ../../src/gllib/unistd.in.h | \
  sed -e 's|@''HAVE_CHOWN''@|1|g' \
      -e 's|@''HAVE_COPY_FILE_RANGE''@|1|g' \
      -e 's|@''HAVE_DUP3''@|1|g' \
      -e 's|@''HAVE_EUIDACCESS''@|1|g' \
      -e 's|@''HAVE_EXECVPE''@|1|g' \
      -e 's|@''HAVE_FACCESSAT''@|1|g' \
      -e 's|@''HAVE_FCHDIR''@|1|g' \
      -e 's|@''HAVE_FCHOWNAT''@|1|g' \
      -e 's|@''HAVE_FDATASYNC''@|1|g' \
      -e 's|@''HAVE_FSYNC''@|1|g' \
      -e 's|@''HAVE_FTRUNCATE''@|1|g' \
      -e 's|@''HAVE_GETDTABLESIZE''@|1|g' \
      -e 's|@''HAVE_GETENTROPY''@|1|g' \
      -e 's|@''HAVE_GETGROUPS''@|1|g' \
      -e 's|@''HAVE_GETHOSTNAME''@|1|g' \
      -e 's|@''HAVE_GETPAGESIZE''@|1|g' \
      -e 's|@''HAVE_GETPASS''@|1|g' \
      -e 's|@''HAVE_GROUP_MEMBER''@|1|g' \
      -e 's|@''HAVE_LCHOWN''@|1|g' \
      -e 's|@''HAVE_LINK''@|1|g' \
      -e 's|@''HAVE_LINKAT''@|1|g' \
      -e 's|@''HAVE_PIPE''@|1|g' \
      -e 's|@''HAVE_PIPE2''@|1|g' \
      -e 's|@''HAVE_PREAD''@|1|g' \
      -e 's|@''HAVE_PWRITE''@|1|g' \
      -e 's|@''HAVE_READLINK''@|1|g' \
      -e 's|@''HAVE_READLINKAT''@|1|g' \
      -e 's|@''HAVE_SETHOSTNAME''@|1|g' \
      -e 's|@''HAVE_SLEEP''@|1|g' \
      -e 's|@''HAVE_SYMLINK''@|1|g' \
      -e 's|@''HAVE_SYMLINKAT''@|1|g' \
      -e 's|@''HAVE_UNLINKAT''@|1|g' \
      -e 's|@''HAVE_USLEEP''@|1|g' \
      -e 's|@''HAVE_DECL_ENVIRON''@|1|g' \
      -e 's|@''HAVE_DECL_EXECVPE''@|1|g' \
      -e 's|@''HAVE_DECL_FCHDIR''@|1|g' \
      -e 's|@''HAVE_DECL_FDATASYNC''@|1|g' \
      -e 's|@''HAVE_DECL_GETDOMAINNAME''@|1|g' \
      -e 's|@''HAVE_DECL_GETLOGIN''@|1|g' \
      -e 's|@''HAVE_DECL_GETLOGIN_R''@|1|g' \
      -e 's|@''HAVE_DECL_GETPAGESIZE''@|1|g' \
      -e 's|@''HAVE_DECL_GETUSERSHELL''@|1|g' \
      -e 's|@''HAVE_DECL_SETHOSTNAME''@|1|g' \
      -e 's|@''HAVE_DECL_TRUNCATE''@|1|g' \
      -e 's|@''HAVE_DECL_TTYNAME_R''@|1|g' \
      -e 's|@''HAVE_OS_H''@|0|g' \
      -e 's|@''HAVE_SYS_PARAM_H''@|0|g' \
  | \
  sed -e 's|@''REPLACE_ACCESS''@|0|g' \
      -e 's|@''REPLACE_CHOWN''@|0|g' \
      -e 's|@''REPLACE_CLOSE''@|0|g' \
      -e 's|@''REPLACE_DUP''@|0|g' \
      -e 's|@''REPLACE_DUP2''@|0|g' \
      -e 's|@''REPLACE_EXECL''@|0|g' \
      -e 's|@''REPLACE_EXECLE''@|0|g' \
      -e 's|@''REPLACE_EXECLP''@|0|g' \
      -e 's|@''REPLACE_EXECV''@|0|g' \
      -e 's|@''REPLACE_EXECVE''@|0|g' \
      -e 's|@''REPLACE_EXECVP''@|0|g' \
      -e 's|@''REPLACE_EXECVPE''@|0|g' \
      -e 's|@''REPLACE_FACCESSAT''@|0|g' \
      -e 's|@''REPLACE_FCHOWNAT''@|0|g' \
      -e 's|@''REPLACE_FTRUNCATE''@|0|g' \
      -e 's|@''REPLACE_GETCWD''@|0|g' \
      -e 's|@''REPLACE_GETDOMAINNAME''@|0|g' \
      -e 's|@''REPLACE_GETDTABLESIZE''@|0|g' \
      -e 's|@''REPLACE_GETLOGIN_R''@|0|g' \
      -e 's|@''REPLACE_GETGROUPS''@|0|g' \
      -e 's|@''REPLACE_GETPAGESIZE''@|0|g' \
      -e 's|@''REPLACE_GETPASS''@|0|g' \
      -e 's|@''REPLACE_ISATTY''@|0|g' \
      -e 's|@''REPLACE_LCHOWN''@|0|g' \
      -e 's|@''REPLACE_LINK''@|0|g' \
      -e 's|@''REPLACE_LINKAT''@|0|g' \
      -e 's|@''REPLACE_LSEEK''@|0|g' \
      -e 's|@''REPLACE_PREAD''@|0|g' \
      -e 's|@''REPLACE_PWRITE''@|0|g' \
      -e 's|@''REPLACE_READ''@|0|g' \
      -e 's|@''REPLACE_READLINK''@|0|g' \
      -e 's|@''REPLACE_READLINKAT''@|0|g' \
      -e 's|@''REPLACE_RMDIR''@|0|g' \
      -e 's|@''REPLACE_SLEEP''@|0|g' \
      -e 's|@''REPLACE_SYMLINK''@|0|g' \
      -e 's|@''REPLACE_SYMLINKAT''@|0|g' \
      -e 's|@''REPLACE_TRUNCATE''@|0|g' \
      -e 's|@''REPLACE_TTYNAME_R''@|0|g' \
      -e 's|@''REPLACE_UNLINK''@|0|g' \
      -e 's|@''REPLACE_UNLINKAT''@|0|g' \
      -e 's|@''REPLACE_USLEEP''@|0|g' \
      -e 's|@''REPLACE_WRITE''@|0|g' \
      -e 's|@''UNISTD_H_HAVE_SYS_RANDOM_H''@|1|g' \
      -e 's|@''UNISTD_H_HAVE_WINSOCK2_H''@|0|g' \
      -e 's|@''UNISTD_H_HAVE_WINSOCK2_H_AND_USE_SOCKETS''@|0|g' \
      -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \
      -e '/definition of _GL_ARG_NONNULL/r ../../src/gllib/arg-nonnull.h' \
      -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h'; \
} > unistd.h-t && \
mv unistd.h-t unistd.h
rm -f wchar.h-t wchar.h && \
{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \
  sed -e 's|@''GUARD_PREFIX''@|GL|g' \
      -e 's|@''INCLUDE_NEXT''@|include_next|g' \
      -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \
      -e 's|@''PRAGMA_COLUMNS''@||g' \
      -e 's|@''HAVE_FEATURES_H''@|1|g' \
      -e 's|@''NEXT_WCHAR_H''@|<wchar.h>|g' \
      -e 's|@''HAVE_WCHAR_H''@|1|g' \
      -e 's/@''HAVE_CRTDEFS_H''@/0/g' \
      -e 's/@''GNULIBHEADERS_OVERRIDE_WINT_T''@/0/g' \
      -e 's/@''GNULIB_BTOWC''@/1/g' \
      -e 's/@''GNULIB_WCTOB''@/0/g' \
      -e 's/@''GNULIB_MBSINIT''@/1/g' \
      -e 's/@''GNULIB_MBRTOWC''@/1/g' \
      -e 's/@''GNULIB_MBRLEN''@/0/g' \
      -e 's/@''GNULIB_MBSRTOWCS''@/1/g' \
      -e 's/@''GNULIB_MBSNRTOWCS''@/0/g' \
      -e 's/@''GNULIB_WCRTOMB''@/1/g' \
      -e 's/@''GNULIB_WCSRTOMBS''@/0/g' \
      -e 's/@''GNULIB_WCSNRTOMBS''@/0/g' \
      -e 's/@''GNULIB_WCWIDTH''@/0/g' \
      -e 's/@''GNULIB_WMEMCHR''@/1/g' \
      -e 's/@''GNULIB_WMEMCMP''@/0/g' \
      -e 's/@''GNULIB_WMEMCPY''@/0/g' \
      -e 's/@''GNULIB_WMEMMOVE''@/0/g' \
      -e 's/@''GNULIB_WMEMPCPY''@/1/g' \
      -e 's/@''GNULIB_WMEMSET''@/0/g' \
      -e 's/@''GNULIB_WCSLEN''@/0/g' \
      -e 's/@''GNULIB_WCSNLEN''@/0/g' \
      -e 's/@''GNULIB_WCSCPY''@/0/g' \
      -e 's/@''GNULIB_WCPCPY''@/0/g' \
      -e 's/@''GNULIB_WCSNCPY''@/0/g' \
      -e 's/@''GNULIB_WCPNCPY''@/0/g' \
      -e 's/@''GNULIB_WCSCAT''@/0/g' \
      -e 's/@''GNULIB_WCSNCAT''@/0/g' \
      -e 's/@''GNULIB_WCSCMP''@/0/g' \
      -e 's/@''GNULIB_WCSNCMP''@/0/g' \
      -e 's/@''GNULIB_WCSCASECMP''@/0/g' \
      -e 's/@''GNULIB_WCSNCASECMP''@/0/g' \
      -e 's/@''GNULIB_WCSCOLL''@/0/g' \
      -e 's/@''GNULIB_WCSXFRM''@/0/g' \
      -e 's/@''GNULIB_WCSDUP''@/0/g' \
      -e 's/@''GNULIB_WCSCHR''@/0/g' \
      -e 's/@''GNULIB_WCSRCHR''@/0/g' \
      -e 's/@''GNULIB_WCSCSPN''@/0/g' \
      -e 's/@''GNULIB_WCSSPN''@/0/g' \
      -e 's/@''GNULIB_WCSPBRK''@/0/g' \
      -e 's/@''GNULIB_WCSSTR''@/0/g' \
      -e 's/@''GNULIB_WCSTOK''@/0/g' \
      -e 's/@''GNULIB_WCSWIDTH''@/0/g' \
      -e 's/@''GNULIB_WCSFTIME''@/0/g' \
      -e 's/@''GNULIB_MDA_WCSDUP''@/1/g' \
      < ../../src/gllib/wchar.in.h | \
  sed -e 's|@''HAVE_WINT_T''@|1|g' \
      -e 's|@''HAVE_BTOWC''@|1|g' \
      -e 's|@''HAVE_MBSINIT''@|1|g' \
      -e 's|@''HAVE_MBRTOWC''@|1|g' \
      -e 's|@''HAVE_MBRLEN''@|1|g' \
      -e 's|@''HAVE_MBSRTOWCS''@|1|g' \
      -e 's|@''HAVE_MBSNRTOWCS''@|1|g' \
      -e 's|@''HAVE_WCRTOMB''@|1|g' \
      -e 's|@''HAVE_WCSRTOMBS''@|1|g' \
      -e 's|@''HAVE_WCSNRTOMBS''@|1|g' \
      -e 's|@''HAVE_WMEMCHR''@|1|g' \
      -e 's|@''HAVE_WMEMCMP''@|1|g' \
      -e 's|@''HAVE_WMEMCPY''@|1|g' \
      -e 's|@''HAVE_WMEMMOVE''@|1|g' \
      -e 's|@''HAVE_WMEMPCPY''@|1|g' \
      -e 's|@''HAVE_WMEMSET''@|1|g' \
      -e 's|@''HAVE_WCSLEN''@|1|g' \
      -e 's|@''HAVE_WCSNLEN''@|1|g' \
      -e 's|@''HAVE_WCSCPY''@|1|g' \
      -e 's|@''HAVE_WCPCPY''@|1|g' \
      -e 's|@''HAVE_WCSNCPY''@|1|g' \
      -e 's|@''HAVE_WCPNCPY''@|1|g' \
      -e 's|@''HAVE_WCSCAT''@|1|g' \
      -e 's|@''HAVE_WCSNCAT''@|1|g' \
      -e 's|@''HAVE_WCSCMP''@|1|g' \
      -e 's|@''HAVE_WCSNCMP''@|1|g' \
      -e 's|@''HAVE_WCSCASECMP''@|1|g' \
      -e 's|@''HAVE_WCSNCASECMP''@|1|g' \
      -e 's|@''HAVE_WCSCOLL''@|1|g' \
      -e 's|@''HAVE_WCSXFRM''@|1|g' \
      -e 's|@''HAVE_WCSDUP''@|1|g' \
      -e 's|@''HAVE_WCSCHR''@|1|g' \
      -e 's|@''HAVE_WCSRCHR''@|1|g' \
      -e 's|@''HAVE_WCSCSPN''@|1|g' \
      -e 's|@''HAVE_WCSSPN''@|1|g' \
      -e 's|@''HAVE_WCSPBRK''@|1|g' \
      -e 's|@''HAVE_WCSSTR''@|1|g' \
      -e 's|@''HAVE_WCSTOK''@|1|g' \
      -e 's|@''HAVE_WCSWIDTH''@|1|g' \
      -e 's|@''HAVE_WCSFTIME''@|1|g' \
      -e 's|@''HAVE_DECL_WCTOB''@|1|g' \
      -e 's|@''HAVE_DECL_WCSDUP''@|1|g' \
      -e 's|@''HAVE_DECL_WCWIDTH''@|1|g' \
  | \
  sed -e 's|@''REPLACE_MBSTATE_T''@|0|g' \
      -e 's|@''REPLACE_BTOWC''@|0|g' \
      -e 's|@''REPLACE_WCTOB''@|0|g' \
      -e 's|@''REPLACE_MBSINIT''@|0|g' \
      -e 's|@''REPLACE_MBRTOWC''@|1|g' \
      -e 's|@''REPLACE_MBRLEN''@|0|g' \
      -e 's|@''REPLACE_MBSRTOWCS''@|0|g' \
      -e 's|@''REPLACE_MBSNRTOWCS''@|0|g' \
      -e 's|@''REPLACE_WCRTOMB''@|0|g' \
      -e 's|@''REPLACE_WCSRTOMBS''@|0|g' \
      -e 's|@''REPLACE_WCSNRTOMBS''@|0|g' \
      -e 's|@''REPLACE_WCWIDTH''@|0|g' \
      -e 's|@''REPLACE_WCSWIDTH''@|0|g' \
      -e 's|@''REPLACE_WCSFTIME''@|0|g' \
      -e 's|@''REPLACE_WCSTOK''@|0|g' \
      -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \
      -e '/definition of _GL_ARG_NONNULL/r ../../src/gllib/arg-nonnull.h' \
      -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h'; \
} > wchar.h-t && \
mv wchar.h-t wchar.h
rm -f wctype.h-t wctype.h && \
{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \
  sed -e 's|@''GUARD_PREFIX''@|GL|g' \
      -e 's/@''HAVE_WCTYPE_H''@/1/g' \
      -e 's|@''INCLUDE_NEXT''@|include_next|g' \
      -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \
      -e 's|@''PRAGMA_COLUMNS''@||g' \
      -e 's|@''NEXT_WCTYPE_H''@|<wctype.h>|g' \
      -e 's/@''HAVE_CRTDEFS_H''@/0/g' \
      -e 's/@''GNULIBHEADERS_OVERRIDE_WINT_T''@/0/g' \
      -e 's/@''GNULIB_ISWBLANK''@/0/g' \
      -e 's/@''GNULIB_ISWDIGIT''@/0/g' \
      -e 's/@''GNULIB_ISWXDIGIT''@/0/g' \
      -e 's/@''GNULIB_WCTYPE''@/0/g' \
      -e 's/@''GNULIB_ISWCTYPE''@/0/g' \
      -e 's/@''GNULIB_WCTRANS''@/0/g' \
      -e 's/@''GNULIB_TOWCTRANS''@/0/g' \
      -e 's/@''HAVE_ISWBLANK''@/1/g' \
      -e 's/@''HAVE_ISWCNTRL''@/1/g' \
      -e 's/@''HAVE_WCTYPE_T''@/1/g' \
      -e 's/@''HAVE_WCTRANS_T''@/1/g' \
      -e 's/@''HAVE_WINT_T''@/1/g' \
      -e 's/@''REPLACE_ISWBLANK''@/0/g' \
      -e 's/@''REPLACE_ISWDIGIT''@/0/g' \
      -e 's/@''REPLACE_ISWXDIGIT''@/0/g' \
      -e 's/@''REPLACE_ISWCNTRL''@/0/g' \
      -e 's/@''REPLACE_TOWLOWER''@/0/g' \
      -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \
      -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \
      < ../../src/gllib/wctype.in.h; \
} > wctype.h-t && \
mv wctype.h-t wctype.h
make  all-recursive
make[2]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib'
make[3]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib'
depbase=`echo basename-lgpl.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT basename-lgpl.o -MD -MP -MF $depbase.Tpo -c -o basename-lgpl.o ../../src/gllib/basename-lgpl.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo c-ctype.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT c-ctype.o -MD -MP -MF $depbase.Tpo -c -o c-ctype.o ../../src/gllib/c-ctype.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo c-strtod.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT c-strtod.o -MD -MP -MF $depbase.Tpo -c -o c-strtod.o ../../src/gllib/c-strtod.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo cloexec.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT cloexec.o -MD -MP -MF $depbase.Tpo -c -o cloexec.o ../../src/gllib/cloexec.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo af_alg.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT af_alg.o -MD -MP -MF $depbase.Tpo -c -o af_alg.o ../../src/gllib/af_alg.c &&\
mv -f $depbase.Tpo $depbase.Po
In file included from ../../src/gllib/af_alg.c:21:
../../src/gllib/af_alg.h: In function ‘afalg_buffer’:
../../src/gllib/af_alg.h:96:27: warning: unused parameter ‘buffer’ [-Wunused-parameter]
   96 | afalg_buffer (const char *buffer, size_t len, const char *alg,
      |               ~~~~~~~~~~~~^~~~~~
../../src/gllib/af_alg.h:96:42: warning: unused parameter ‘len’ [-Wunused-parameter]
   96 | afalg_buffer (const char *buffer, size_t len, const char *alg,
      |                                   ~~~~~~~^~~
../../src/gllib/af_alg.h:96:59: warning: unused parameter ‘alg’ [-Wunused-parameter]
   96 | afalg_buffer (const char *buffer, size_t len, const char *alg,
      |                                               ~~~~~~~~~~~~^~~
../../src/gllib/af_alg.h:97:21: warning: unused parameter ‘resblock’ [-Wunused-parameter]
   97 |               void *resblock, ssize_t hashlen)
      |               ~~~~~~^~~~~~~~
../../src/gllib/af_alg.h:97:39: warning: unused parameter ‘hashlen’ [-Wunused-parameter]
   97 |               void *resblock, ssize_t hashlen)
      |                               ~~~~~~~~^~~~~~~
../../src/gllib/af_alg.h: In function ‘afalg_stream’:
../../src/gllib/af_alg.h:103:21: warning: unused parameter ‘stream’ [-Wunused-parameter]
  103 | afalg_stream (FILE *stream, const char *alg,
      |               ~~~~~~^~~~~~
../../src/gllib/af_alg.h:103:41: warning: unused parameter ‘alg’ [-Wunused-parameter]
  103 | afalg_stream (FILE *stream, const char *alg,
      |                             ~~~~~~~~~~~~^~~
../../src/gllib/af_alg.h:104:21: warning: unused parameter ‘resblock’ [-Wunused-parameter]
  104 |               void *resblock, ssize_t hashlen)
      |               ~~~~~~^~~~~~~~
../../src/gllib/af_alg.h:104:39: warning: unused parameter ‘hashlen’ [-Wunused-parameter]
  104 |               void *resblock, ssize_t hashlen)
      |                               ~~~~~~~~^~~~~~~
depbase=`echo sha1.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT sha1.o -MD -MP -MF $depbase.Tpo -c -o sha1.o ../../src/gllib/sha1.c &&\
mv -f $depbase.Tpo $depbase.Po
In file included from ../../src/gllib/sha1.c:127:
../../src/gllib/af_alg.h: In function ‘afalg_buffer’:
../../src/gllib/af_alg.h:96:27: warning: unused parameter ‘buffer’ [-Wunused-parameter]
   96 | afalg_buffer (const char *buffer, size_t len, const char *alg,
      |               ~~~~~~~~~~~~^~~~~~
../../src/gllib/af_alg.h:96:42: warning: unused parameter ‘len’ [-Wunused-parameter]
   96 | afalg_buffer (const char *buffer, size_t len, const char *alg,
      |                                   ~~~~~~~^~~
../../src/gllib/af_alg.h:96:59: warning: unused parameter ‘alg’ [-Wunused-parameter]
   96 | afalg_buffer (const char *buffer, size_t len, const char *alg,
      |                                               ~~~~~~~~~~~~^~~
../../src/gllib/af_alg.h:97:21: warning: unused parameter ‘resblock’ [-Wunused-parameter]
   97 |               void *resblock, ssize_t hashlen)
      |               ~~~~~~^~~~~~~~
../../src/gllib/af_alg.h:97:39: warning: unused parameter ‘hashlen’ [-Wunused-parameter]
   97 |               void *resblock, ssize_t hashlen)
      |                               ~~~~~~~~^~~~~~~
../../src/gllib/af_alg.h: In function ‘afalg_stream’:
../../src/gllib/af_alg.h:103:21: warning: unused parameter ‘stream’ [-Wunused-parameter]
  103 | afalg_stream (FILE *stream, const char *alg,
      |               ~~~~~~^~~~~~
../../src/gllib/af_alg.h:103:41: warning: unused parameter ‘alg’ [-Wunused-parameter]
  103 | afalg_stream (FILE *stream, const char *alg,
      |                             ~~~~~~~~~~~~^~~
../../src/gllib/af_alg.h:104:21: warning: unused parameter ‘resblock’ [-Wunused-parameter]
  104 |               void *resblock, ssize_t hashlen)
      |               ~~~~~~^~~~~~~~
../../src/gllib/af_alg.h:104:39: warning: unused parameter ‘hashlen’ [-Wunused-parameter]
  104 |               void *resblock, ssize_t hashlen)
      |                               ~~~~~~~~^~~~~~~
depbase=`echo dirname-lgpl.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT dirname-lgpl.o -MD -MP -MF $depbase.Tpo -c -o dirname-lgpl.o ../../src/gllib/dirname-lgpl.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo stripslash.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT stripslash.o -MD -MP -MF $depbase.Tpo -c -o stripslash.o ../../src/gllib/stripslash.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo malloc/dynarray_at_failure.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT malloc/dynarray_at_failure.o -MD -MP -MF $depbase.Tpo -c -o malloc/dynarray_at_failure.o ../../src/gllib/malloc/dynarray_at_failure.c &&\
mv -f $depbase.Tpo $depbase.Po
../../src/gllib/malloc/dynarray_at_failure.c: In function ‘gl_dynarray_at_failure’:
../../src/gllib/malloc/dynarray_at_failure.c:28:32: warning: unused parameter ‘size’ [-Wunused-parameter]
   28 | __libc_dynarray_at_failure (size_t size, size_t index)
      |                         ~~~~~~~^~~~
../../src/gllib/malloc/dynarray_at_failure.c:28:45: warning: unused parameter ‘index’ [-Wunused-parameter]
   28 | __libc_dynarray_at_failure (size_t size, size_t index)
      |                                      ~~~~~~~^~~~~
depbase=`echo malloc/dynarray_emplace_enlarge.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT malloc/dynarray_emplace_enlarge.o -MD -MP -MF $depbase.Tpo -c -o malloc/dynarray_emplace_enlarge.o ../../src/gllib/malloc/dynarray_emplace_enlarge.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo malloc/dynarray_finalize.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT malloc/dynarray_finalize.o -MD -MP -MF $depbase.Tpo -c -o malloc/dynarray_finalize.o ../../src/gllib/malloc/dynarray_finalize.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo malloc/dynarray_resize.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT malloc/dynarray_resize.o -MD -MP -MF $depbase.Tpo -c -o malloc/dynarray_resize.o ../../src/gllib/malloc/dynarray_resize.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo malloc/dynarray_resize_clear.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT malloc/dynarray_resize_clear.o -MD -MP -MF $depbase.Tpo -c -o malloc/dynarray_resize_clear.o ../../src/gllib/malloc/dynarray_resize_clear.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo fd-hook.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT fd-hook.o -MD -MP -MF $depbase.Tpo -c -o fd-hook.o ../../src/gllib/fd-hook.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo freading.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT freading.o -MD -MP -MF $depbase.Tpo -c -o freading.o ../../src/gllib/freading.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo hard-locale.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT hard-locale.o -MD -MP -MF $depbase.Tpo -c -o hard-locale.o ../../src/gllib/hard-locale.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo localcharset.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT localcharset.o -MD -MP -MF $depbase.Tpo -c -o localcharset.o ../../src/gllib/localcharset.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo glthread/lock.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT glthread/lock.o -MD -MP -MF $depbase.Tpo -c -o glthread/lock.o ../../src/gllib/glthread/lock.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo malloca.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT malloca.o -MD -MP -MF $depbase.Tpo -c -o malloca.o ../../src/gllib/malloca.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo math.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT math.o -MD -MP -MF $depbase.Tpo -c -o math.o ../../src/gllib/math.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo nstrftime.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT nstrftime.o -MD -MP -MF $depbase.Tpo -c -o nstrftime.o ../../src/gllib/nstrftime.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo setlocale_null.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT setlocale_null.o -MD -MP -MF $depbase.Tpo -c -o setlocale_null.o ../../src/gllib/setlocale_null.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo sockets.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT sockets.o -MD -MP -MF $depbase.Tpo -c -o sockets.o ../../src/gllib/sockets.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo stat-time.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT stat-time.o -MD -MP -MF $depbase.Tpo -c -o stat-time.o ../../src/gllib/stat-time.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo strnlen1.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT strnlen1.o -MD -MP -MF $depbase.Tpo -c -o strnlen1.o ../../src/gllib/strnlen1.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo sys_socket.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT sys_socket.o -MD -MP -MF $depbase.Tpo -c -o sys_socket.o ../../src/gllib/sys_socket.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo tempname.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT tempname.o -MD -MP -MF $depbase.Tpo -c -o tempname.o ../../src/gllib/tempname.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo glthread/threadlib.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT glthread/threadlib.o -MD -MP -MF $depbase.Tpo -c -o glthread/threadlib.o ../../src/gllib/glthread/threadlib.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo unistd.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT unistd.o -MD -MP -MF $depbase.Tpo -c -o unistd.o ../../src/gllib/unistd.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo vma-iter.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT vma-iter.o -MD -MP -MF $depbase.Tpo -c -o vma-iter.o ../../src/gllib/vma-iter.c &&\
mv -f $depbase.Tpo $depbase.Po
../../src/gllib/vma-iter.c: In function ‘vma_iterate_bsd’:
../../src/gllib/vma-iter.c:858:42: warning: unused parameter ‘callback’ [-Wunused-parameter]
  858 | vma_iterate_bsd (vma_iterate_callback_fn callback, void *data)
      |                  ~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~
../../src/gllib/vma-iter.c:858:58: warning: unused parameter ‘data’ [-Wunused-parameter]
  858 | vma_iterate_bsd (vma_iterate_callback_fn callback, void *data)
      |                                                    ~~~~~~^~~~
depbase=`echo wctype-h.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT wctype-h.o -MD -MP -MF $depbase.Tpo -c -o wctype-h.o ../../src/gllib/wctype-h.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo fcntl.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT fcntl.o -MD -MP -MF $depbase.Tpo -c -o fcntl.o ../../src/gllib/fcntl.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo fflush.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT fflush.o -MD -MP -MF $depbase.Tpo -c -o fflush.o ../../src/gllib/fflush.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo fpurge.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT fpurge.o -MD -MP -MF $depbase.Tpo -c -o fpurge.o ../../src/gllib/fpurge.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo fseek.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT fseek.o -MD -MP -MF $depbase.Tpo -c -o fseek.o ../../src/gllib/fseek.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo fseeko.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT fseeko.o -MD -MP -MF $depbase.Tpo -c -o fseeko.o ../../src/gllib/fseeko.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo ioctl.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT ioctl.o -MD -MP -MF $depbase.Tpo -c -o ioctl.o ../../src/gllib/ioctl.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo mbrtowc.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT mbrtowc.o -MD -MP -MF $depbase.Tpo -c -o mbrtowc.o ../../src/gllib/mbrtowc.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo mktime.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT mktime.o -MD -MP -MF $depbase.Tpo -c -o mktime.o ../../src/gllib/mktime.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo regex.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT regex.o -MD -MP -MF $depbase.Tpo -c -o regex.o ../../src/gllib/regex.c &&\
mv -f $depbase.Tpo $depbase.Po
In file included from ../../src/gllib/regex.c:70:
../../src/gllib/regex_internal.h: In function ‘re_string_elem_size_at’:
../../src/gllib/regex_internal.h:812:44: warning: unused parameter ‘pstr’ [-Wunused-parameter]
  812 | re_string_elem_size_at (const re_string_t *pstr, Idx idx)
      |                         ~~~~~~~~~~~~~~~~~~~^~~~
../../src/gllib/regex_internal.h:812:54: warning: unused parameter ‘idx’ [-Wunused-parameter]
  812 | re_string_elem_size_at (const re_string_t *pstr, Idx idx)
      |                                                  ~~~~^~~
In file included from ../../src/gllib/regex.c:73:
../../src/gllib/regcomp.c: In function ‘rpl_regerror’:
../../src/gllib/regcomp.c:519:54: warning: unused parameter ‘preg’ [-Wunused-parameter]
  519 | regerror (int errcode, const regex_t *__restrict preg, char *__restrict errbuf,
      |                            ~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~
../../src/gllib/regcomp.c: In function ‘calc_next’:
../../src/gllib/regcomp.c:1404:18: warning: unused parameter ‘extra’ [-Wunused-parameter]
 1404 | calc_next (void *extra, bin_tree_t *node)
      |            ~~~~~~^~~~~
../../src/gllib/regcomp.c: In function ‘build_collating_symbol’:
../../src/gllib/regcomp.c:2817:56: warning: unused parameter ‘mbcset’ [-Wunused-parameter]
 2817 | build_collating_symbol (bitset_t sbcset, re_charset_t *mbcset,
      |                                          ~~~~~~~~~~~~~~^~~~~~
../../src/gllib/regcomp.c:2818:30: warning: unused parameter ‘coll_sym_alloc’ [-Wunused-parameter]
 2818 |                         Idx *coll_sym_alloc, const unsigned char *name)
      |                         ~~~~~^~~~~~~~~~~~~~
../../src/gllib/regcomp.c: In function ‘parse_bracket_element’:
../../src/gllib/regcomp.c:3392:68: warning: unused parameter ‘dfa’ [-Wunused-parameter]
 3392 |                        re_token_t *token, int token_len, re_dfa_t *dfa,
      |                                                          ~~~~~~~~~~^~~
../../src/gllib/regcomp.c: In function ‘build_equiv_class’:
../../src/gllib/regcomp.c:3479:51: warning: unused parameter ‘mbcset’ [-Wunused-parameter]
 3479 | build_equiv_class (bitset_t sbcset, re_charset_t *mbcset,
      |                                     ~~~~~~~~~~~~~~^~~~~~
../../src/gllib/regcomp.c:3480:25: warning: unused parameter ‘equiv_class_alloc’ [-Wunused-parameter]
 3480 |                    Idx *equiv_class_alloc, const unsigned char *name)
      |                    ~~~~~^~~~~~~~~~~~~~~~~
../../src/gllib/regcomp.c: In function ‘free_tree’:
../../src/gllib/regcomp.c:3867:18: warning: unused parameter ‘extra’ [-Wunused-parameter]
 3867 | free_tree (void *extra, bin_tree_t *node)
      |            ~~~~~~^~~~~
In file included from ../../src/gllib/regexec.c:1372,
                 from ../../src/gllib/regex.c:74:
../../src/gllib/malloc/dynarray-skeleton.c: In function ‘regmatch_list_free__elements__’:
../../src/gllib/malloc/dynarray-skeleton.c:170:45: warning: unused parameter ‘__dynarray_array’ [-Wunused-parameter]
  170 | DYNARRAY_NAME (free__elements__) (DYNARRAY_ELEMENT *__dynarray_array,
      |                                 ~~~~~~~~~~~~^~~~~~~~~~~~~~~~
../../src/gllib/malloc/dynarray-skeleton.c:171:42: warning: unused parameter ‘__dynarray_used’ [-Wunused-parameter]
  171 |                                   size_t __dynarray_used)
      |                                   ~~~~~~~^~~~~~~~~~~~~~~
depbase=`echo strerror_r.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT strerror_r.o -MD -MP -MF $depbase.Tpo -c -o strerror_r.o ../../src/gllib/strerror_r.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo time_rz.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -MT time_rz.o -MD -MP -MF $depbase.Tpo -c -o time_rz.o ../../src/gllib/time_rz.c &&\
mv -f $depbase.Tpo $depbase.Po
rm -f libgnu.a
ar cr libgnu.a basename-lgpl.o c-ctype.o c-strtod.o cloexec.o af_alg.o sha1.o dirname-lgpl.o stripslash.o malloc/dynarray_at_failure.o malloc/dynarray_emplace_enlarge.o malloc/dynarray_finalize.o malloc/dynarray_resize.o malloc/dynarray_resize_clear.o fd-hook.o freading.o hard-locale.o localcharset.o glthread/lock.o malloca.o math.o nstrftime.o setlocale_null.o sockets.o stat-time.o strnlen1.o sys_socket.o tempname.o glthread/threadlib.o  unistd.o  vma-iter.o wctype-h.o fcntl.o fflush.o fpurge.o fseek.o fseeko.o ioctl.o mbrtowc.o mktime.o regex.o strerror_r.o time_rz.o 
ranlib libgnu.a
make[3]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib'
make[2]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib'
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib'
{ echo '#include "config.h"' && cat '../src/intparam.c'; } > gen-intparam.c
gcc gen-intparam.c -o intparam
./intparam intparam.h
rm -f intparam gen-intparam.c
{ echo '#include "config.h"' && cat '../src/floatparam.c'; } > gen-floatparam.c
gcc gen-floatparam.c -o floatparam
./floatparam floatparam.h
rm -f floatparam gen-floatparam.c
test -r libgnu.a || ln -s gllib/libgnu.a libgnu.a
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -I. ../utils/comment5.c libgnu.a -o comment5
../utils/comment5.c: In function ‘main’:
../utils/comment5.c:137:5: warning: label ‘L6a’ defined but not used [-Wunused-label]
  137 |     L6a: if (c==EOF){ goto L3; }
      |     ^~~
../utils/comment5.c:131:5: warning: label ‘L5a’ defined but not used [-Wunused-label]
  131 |     L5a: if (c==EOF){ goto L3; } /* do not fix programmer errors */
      |     ^~~
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -I. ../utils/gctrigger.c libgnu.a -o gctrigger
../utils/gctrigger.c: In function ‘nexttoken’:
../utils/gctrigger.c:662:12: warning: this statement may fall through [-Wimplicit-fallthrough=]
  662 |         if (!(((c>='0') && (c<='9')) || (c=='.')))
      |            ^
../utils/gctrigger.c:664:7: note: here
  664 |       case '0': case '1': case '2': case '3': case '4':
      |       ^~~~
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -I. ../utils/varbrace.c libgnu.a -o varbrace
../utils/varbrace.c: In function ‘next_token’:
../utils/varbrace.c:1327:12: warning: this statement may fall through [-Wimplicit-fallthrough=]
 1327 |         if (!(((c>='0') && (c<='9')) || (c=='.')))
      |            ^
../utils/varbrace.c:1329:7: note: here
 1329 |       case '0': case '1': case '2': case '3': case '4':
      |       ^~~~
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -I. ../utils/txt2c.c libgnu.a -o txt2c
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -I. ../utils/ccmp2c.c libgnu.a -o ccmp2c
../utils/ccmp2c.c: In function ‘nexttoken’:
../utils/ccmp2c.c:538:16: warning: this statement may fall through [-Wimplicit-fallthrough=]
  538 |             if (!((c >= '0' && c <= '9') || c == '.'))
      |                ^
../utils/ccmp2c.c:541:11: note: here
  541 |           case '0': case '1': case '2': case '3': case '4':
      |           ^~~~
touch modules.h
./comment5 ../src/spvw.d | ./gctrigger | ./varbrace > spvw.c
./comment5 ../src/spvwtabf.d | ./gctrigger | ./varbrace > spvwtabf.c
./comment5 ../src/spvwtabs.d | ./gctrigger | ./varbrace > spvwtabs.c
./comment5 ../src/spvwtabo.d | ./gctrigger | ./varbrace > spvwtabo.c
./comment5 ../src/eval.d | ./gctrigger | ./varbrace > eval.c
./comment5 ../src/control.d | ./gctrigger | ./varbrace > control.c
./comment5 ../src/encoding.d | ./gctrigger | ./varbrace > encoding.c
./comment5 ../src/pathname.d | ./gctrigger | ./varbrace > pathname.c
./comment5 ../src/stream.d | ./gctrigger | ./varbrace > stream.c
./comment5 ../src/socket.d | ./gctrigger | ./varbrace > socket.c
./comment5 ../src/io.d | ./gctrigger | ./varbrace > io.c
./comment5 ../src/funarg.d | ./gctrigger | ./varbrace > funarg.c
./comment5 ../src/array.d | ./gctrigger | ./varbrace > array.c
./comment5 ../src/hashtabl.d | ./gctrigger | ./varbrace > hashtabl.c
./comment5 ../src/list.d | ./gctrigger | ./varbrace > list.c
./comment5 ../src/package.d | ./gctrigger | ./varbrace > package.c
./comment5 ../src/record.d | ./gctrigger | ./varbrace > record.c
./comment5 ../src/weak.d | ./gctrigger | ./varbrace > weak.c
./comment5 ../src/sequence.d | ./gctrigger | ./varbrace > sequence.c
./comment5 ../src/charstrg.d | ./gctrigger | ./varbrace > charstrg.c
./comment5 ../src/debug.d | ./gctrigger | ./varbrace > debug.c
./comment5 ../src/error.d | ./gctrigger | ./varbrace > error.c
./comment5 ../src/misc.d | ./gctrigger | ./varbrace > misc.c
./comment5 ../src/time.d | ./gctrigger | ./varbrace > time.c
./comment5 ../src/predtype.d | ./gctrigger | ./varbrace > predtype.c
./comment5 ../src/symbol.d | ./gctrigger | ./varbrace > symbol.c
./comment5 ../src/lisparit.d | ./gctrigger | ./varbrace > lisparit.c
./comment5 ../src/i18n.d | ./gctrigger | ./varbrace > i18n.c
./comment5 ../src/unixaux.d | ./gctrigger | ./varbrace > unixaux.c
./comment5 ../src/built.d | ./gctrigger | ./varbrace > built.c
./comment5 ../src/lispbibl.d | sed -e 's/^\(%% .*\)//' | ./gctrigger | ./varbrace > lispbibl.c
./comment5 ../src/fsubr.d | ./gctrigger | ./varbrace > fsubr.c
./comment5 ../src/subr.d | ./gctrigger | ./varbrace > subr.c
./comment5 ../src/pseudofun.d | ./gctrigger | ./varbrace > pseudofun.c
./comment5 ../src/constsym.d | ./gctrigger | ./varbrace > constsym.c
./comment5 ../src/constobj.d | ./gctrigger | ./varbrace > constobj.c
./comment5 ../src/constobj_tl.d | ./gctrigger | ./varbrace > constobj_tl.c
./comment5 ../src/unix.d | ./gctrigger | ./varbrace > unix.c
./comment5 ../src/xthread.d | ./gctrigger | ./varbrace > xthread.c
./comment5 ../src/constpack.d | ./gctrigger | ./varbrace > constpack.c
./comment5 ../src/avl.d | ./gctrigger | ./varbrace > avl.c
./comment5 ../src/sort.d | ./gctrigger | ./varbrace > sort.c
./comment5 ../src/bytecode.d | ./gctrigger | ./varbrace > bytecode.c
./comment5 ../src/spvw_module.d | ./gctrigger | ./varbrace > spvw_module.c
./comment5 ../src/spvw_debug.d | ./gctrigger | ./varbrace > spvw_debug.c
./comment5 ../src/spvw_alloca.d | ./gctrigger | ./varbrace > spvw_alloca.c
./comment5 ../src/spvw_mmap.d | ./gctrigger | ./varbrace > spvw_mmap.c
./comment5 ../src/spvw_singlemap.d | ./gctrigger | ./varbrace > spvw_singlemap.c
./comment5 ../src/spvw_page.d | ./gctrigger | ./varbrace > spvw_page.c
./comment5 ../src/spvw_heap.d | ./gctrigger | ./varbrace > spvw_heap.c
./comment5 ../src/spvw_heap_old.d | ./gctrigger | ./varbrace > spvw_heap_old.c
./comment5 ../src/spvw_global.d | ./gctrigger | ./varbrace > spvw_global.c
./comment5 ../src/spvw_global_old.d | ./gctrigger | ./varbrace > spvw_global_old.c
./comment5 ../src/spvw_gcstat.d | ./gctrigger | ./varbrace > spvw_gcstat.c
./comment5 ../src/spvw_space.d | ./gctrigger | ./varbrace > spvw_space.c
./comment5 ../src/spvw_mark.d | ./gctrigger | ./varbrace > spvw_mark.c
./comment5 ../src/spvw_objsize.d | ./gctrigger | ./varbrace > spvw_objsize.c
./comment5 ../src/spvw_update.d | ./gctrigger | ./varbrace > spvw_update.c
./comment5 ../src/spvw_fault.d | ./gctrigger | ./varbrace > spvw_fault.c
./comment5 ../src/spvw_fault_old.d | ./gctrigger | ./varbrace > spvw_fault_old.c
./comment5 ../src/spvw_sigsegv.d | ./gctrigger | ./varbrace > spvw_sigsegv.c
./comment5 ../src/spvw_sigcld.d | ./gctrigger | ./varbrace > spvw_sigcld.c
./comment5 ../src/spvw_sigpipe.d | ./gctrigger | ./varbrace > spvw_sigpipe.c
./comment5 ../src/spvw_sigint.d | ./gctrigger | ./varbrace > spvw_sigint.c
./comment5 ../src/spvw_sigwinch.d | ./gctrigger | ./varbrace > spvw_sigwinch.c
./comment5 ../src/spvw_sigterm.d | ./gctrigger | ./varbrace > spvw_sigterm.c
./comment5 ../src/spvw_garcol.d | ./gctrigger | ./varbrace > spvw_garcol.c
./comment5 ../src/spvw_garcol_old.d | ./gctrigger | ./varbrace > spvw_garcol_old.c
./comment5 ../src/spvw_genera1.d | ./gctrigger | ./varbrace > spvw_genera1.c
./comment5 ../src/spvw_genera1_old.d | ./gctrigger | ./varbrace > spvw_genera1_old.c
./comment5 ../src/spvw_gcmark.d | ./gctrigger | ./varbrace > spvw_gcmark.c
./comment5 ../src/spvw_genera2.d | ./gctrigger | ./varbrace > spvw_genera2.c
./comment5 ../src/spvw_weak.d | ./gctrigger | ./varbrace > spvw_weak.c
./comment5 ../src/spvw_genera3.d | ./gctrigger | ./varbrace > spvw_genera3.c
./comment5 ../src/spvw_genera3_old.d | ./gctrigger | ./varbrace > spvw_genera3_old.c
./comment5 ../src/spvw_allocate.d | ./gctrigger | ./varbrace > spvw_allocate.c
./comment5 ../src/spvw_allocate_old.d | ./gctrigger | ./varbrace > spvw_allocate_old.c
./comment5 ../src/spvw_typealloc.d | ./gctrigger | ./varbrace > spvw_typealloc.c
./comment5 ../src/spvw_circ.d | ./gctrigger | ./varbrace > spvw_circ.c
./comment5 ../src/spvw_circ_old.d | ./gctrigger | ./varbrace > spvw_circ_old.c
./comment5 ../src/spvw_walk.d | ./gctrigger | ./varbrace > spvw_walk.c
./comment5 ../src/spvw_ctype.d | ./gctrigger | ./varbrace > spvw_ctype.c
./comment5 ../src/spvw_language.d | ./gctrigger | ./varbrace > spvw_language.c
./comment5 ../src/spvw_memfile.d | ./gctrigger | ./varbrace > spvw_memfile.c
./comment5 ../src/errunix.d | ./gctrigger | ./varbrace > errunix.c
./comment5 ../src/aridecl.d | ./gctrigger | ./varbrace > aridecl.c
./comment5 ../src/arilev0.d | ./gctrigger | ./varbrace > arilev0.c
./comment5 ../src/arilev1.d | ./gctrigger | ./varbrace > arilev1.c
./comment5 ../src/intelem.d | ./gctrigger | ./varbrace > intelem.c
./comment5 ../src/intlog.d | ./gctrigger | ./varbrace > intlog.c
./comment5 ../src/intplus.d | ./gctrigger | ./varbrace > intplus.c
./comment5 ../src/intcomp.d | ./gctrigger | ./varbrace > intcomp.c
./comment5 ../src/intbyte.d | ./gctrigger | ./varbrace > intbyte.c
./comment5 ../src/intmal.d | ./gctrigger | ./varbrace > intmal.c
./comment5 ../src/intdiv.d | ./gctrigger | ./varbrace > intdiv.c
./comment5 ../src/intgcd.d | ./gctrigger | ./varbrace > intgcd.c
./comment5 ../src/int2adic.d | ./gctrigger | ./varbrace > int2adic.c
./comment5 ../src/intsqrt.d | ./gctrigger | ./varbrace > intsqrt.c
./comment5 ../src/intprint.d | ./gctrigger | ./varbrace > intprint.c
./comment5 ../src/intread.d | ./gctrigger | ./varbrace > intread.c
./comment5 ../src/intserial.d | ./gctrigger | ./varbrace > intserial.c
./comment5 ../src/rational.d | ./gctrigger | ./varbrace > rational.c
./comment5 ../src/sfloat.d | ./gctrigger | ./varbrace > sfloat.c
./comment5 ../src/ffloat.d | ./gctrigger | ./varbrace > ffloat.c
./comment5 ../src/dfloat.d | ./gctrigger | ./varbrace > dfloat.c
./comment5 ../src/lfloat.d | ./gctrigger | ./varbrace > lfloat.c
./comment5 ../src/flo_konv.d | ./gctrigger | ./varbrace > flo_konv.c
./comment5 ../src/flo_rest.d | ./gctrigger | ./varbrace > flo_rest.c
./comment5 ../src/realelem.d | ./gctrigger | ./varbrace > realelem.c
./comment5 ../src/realrand.d | ./gctrigger | ./varbrace > realrand.c
./comment5 ../src/realtran.d | ./gctrigger | ./varbrace > realtran.c
./comment5 ../src/compelem.d | ./gctrigger | ./varbrace > compelem.c
./comment5 ../src/comptran.d | ./gctrigger | ./varbrace > comptran.c
./comment5 ../src/arilev1c.d | ./gctrigger | ./varbrace > arilev1c.c
./comment5 ../src/arilev1e.d | ./gctrigger | ./varbrace > arilev1e.c
./comment5 ../src/arilev1i.d | ./gctrigger | ./varbrace > arilev1i.c
./comment5 ../src/arilev1dbg.d | ./gctrigger | ./varbrace > arilev1dbg.c
./comment5 ../src/genclisph.d | ./gctrigger | ./varbrace > genclisph.c
./comment5 ../src/arilev1_asm_proto.d | ./gctrigger | ./varbrace > arilev1_asm_proto.c
./comment5 ../src/noreadline.d | ./gctrigger | ./varbrace > noreadline.c
./comment5 ../src/lispbibl.d | sed -e '/^%% /{s///;p;d;}' -e '/^#line /!s/.*//' | sed -e 's/puts(/fprintf(header_f,"%s\\n",/g' -e 's/print("/fprint(header_f,"/g' -e 's/printf("/fprintf(header_f,"/g' > gen.lispbibl.c
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -c spvw.c
In file included from ../src/spvw.d:23:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16711:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16711:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16711:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
../src/spvw.d: In function ‘near_SP_overflow’:
../src/spvw.d:965:11: warning: variable ‘dummy’ set but not used [-Wunused-but-set-variable]
  965 |   var uintB dummy[0x1001];
      |           ^~~~~
In file included from ../src/spvw.d:1047:
../src/spvw_sigsegv.d: In function ‘stackoverflow_handler_continuation’:
../src/spvw_sigsegv.d:98:27: warning: unused variable ‘scp’ [-Wunused-variable]
   98 |   stackoverflow_context_t scp = (stackoverflow_context_t) arg1;
      |                           ^~~
In file included from ../src/spvw.d:1077:
../src/spvw_allocate.d: In function ‘make_space_gc_true’:
../src/spvw_allocate.d:322:4: warning: label ‘doing_gc’ defined but not used [-Wunused-label]
  322 |    doing_gc:
      |    ^~~~~~~~
../src/spvw_allocate.d: In function ‘make_space_gc_false’:
../src/spvw_allocate.d:389:4: warning: label ‘doing_gc’ defined but not used [-Wunused-label]
  389 |    doing_gc:
      |    ^~~~~~~~
In file included from ../src/spvw.d:1087:
../src/spvw_circ.d: In function ‘get_circ_mark’:
../src/spvw_circ.d:1134:19: warning: label ‘case_lrecord’ defined but not used [-Wunused-label]
 1134 |     case_orecord: case_lrecord: /* mark other record: */
      |                   ^~~~~~~~~~~~
../src/spvw_circ.d:1095:6: warning: label ‘m_array’ defined but not used [-Wunused-label]
 1095 |      m_array:
      |      ^~~~~~~
../src/spvw_circ.d:1077:6: warning: label ‘m_svector’ defined but not used [-Wunused-label]
 1077 |      m_svector:
      |      ^~~~~~~~~
../src/spvw_circ.d: In function ‘get_circ_unmark’:
../src/spvw_circ.d:1374:19: warning: label ‘case_lrecord’ defined but not used [-Wunused-label]
 1374 |     case_orecord: case_lrecord: /* unmark other record: */
      |                   ^~~~~~~~~~~~
../src/spvw_circ.d:1339:6: warning: label ‘u_array’ defined but not used [-Wunused-label]
 1339 |      u_array:
      |      ^~~~~~~
../src/spvw_circ.d:1324:6: warning: label ‘u_svector’ defined but not used [-Wunused-label]
 1324 |      u_svector:
      |      ^~~~~~~~~
../src/spvw_circ.d: In function ‘subst_circ_mark’:
../src/spvw_circ.d:2004:50: warning: label ‘case_lrecord’ defined but not used [-Wunused-label]
 2004 |       case_closure: _case_structure _case_stream case_orecord: case_instance: case_lrecord: /* Record */
      |                                                  ^~~~~~~~~~~~
../src/spvw_circ.d:2004:35: warning: label ‘case_instance’ defined but not used [-Wunused-label]
 2004 |       case_closure: _case_structure _case_stream case_orecord: case_instance: case_lrecord: /* Record */
      |                                   ^~~~~~~~~~~~~
../src/spvw_circ.d:2004:7: warning: label ‘case_closure’ defined but not used [-Wunused-label]
 2004 |       case_closure: _case_structure _case_stream case_orecord: case_instance: case_lrecord: /* Record */
      |       ^~~~~~~~~~~~
../src/spvw_circ.d: In function ‘subst_circ_unmark’:
../src/spvw_circ.d:2160:35: warning: label ‘case_lrecord’ defined but not used [-Wunused-label]
 2160 |       case_closure: _case_structure _case_stream case_orecord: case_lrecord:
      |                                   ^~~~~~~~~~~~
../src/spvw_circ.d:2160:7: warning: label ‘case_closure’ defined but not used [-Wunused-label]
 2160 |       case_closure: _case_structure _case_stream case_orecord: case_lrecord:
      |       ^~~~~~~~~~~~
../src/spvw_circ.d:2159:7: warning: label ‘case_instance’ defined but not used [-Wunused-label]
 2159 |       case_instance: /* Record */
      |       ^~~~~~~~~~~~~
../src/spvw.d: At top level:
../src/spvw.d:1419:17: warning: no previous declaration for ‘error_pseudocode_alignment’ [-Wmissing-declarations]
 1419 | global _Noreturn void error_pseudocode_alignment (uintP address, const char* prefix, const char* name) {
      |                 ^~~~~~~~~~~~~~~~~~~~~~~~~~
In file included from ../src/spvw.d:1578:
../src/subr.d: In function ‘init_subr_tab_2’:
../src/subr.d:217:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  217 | LISPFUNNF(funtabref,1)
      |                                                                            ^     
../src/subr.d:218:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  218 | LISPFUNNR(subr_info,1)
      |                                                                            ^     
../src/subr.d:219:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  219 | LISPFUN(special_variable_p,seclass_read,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:220:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  220 | LISPFUNNR(add_implicit_block,2)
      |                                                                            ^     
../src/subr.d:221:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  221 | LISPFUNNR(function_block_name,1)
      |                                                                            ^     
../src/subr.d:223:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  223 | LISPFUNNR(copy_simple_vector,1)
      |                                                                            ^     
../src/subr.d:224:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  224 | LISPFUN(vector,seclass_no_se,0,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:225:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  225 | LISPFUN(aref,seclass_read,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:226:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  226 | LISPFUN(store,seclass_default,2,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:227:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  227 | LISPFUNNR(svref,2)
      |                                                                            ^     
../src/subr.d:228:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  228 | LISPFUNN(svstore,3)
      |                                                                            ^     
../src/subr.d:229:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  229 | LISPFUNN(psvstore,3)
      |                                                                            ^     
../src/subr.d:230:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  230 | LISPFUNNR(row_major_aref,2)
      |                                                                            ^     
../src/subr.d:231:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  231 | LISPFUNN(row_major_store,3)
      |                                                                            ^     
../src/subr.d:232:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  232 | LISPFUNNF(array_element_type,1)
      |                                                                            ^     
../src/subr.d:233:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  233 | LISPFUNNF(array_rank,1)
      |                                                                            ^     
../src/subr.d:234:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  234 | LISPFUNNR(array_dimension,2)
      |                                                                            ^     
../src/subr.d:235:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  235 | LISPFUNNR(array_dimensions,1)
      |                                                                            ^     
../src/subr.d:236:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  236 | LISPFUNNR(array_total_size,1)
      |                                                                            ^     
../src/subr.d:237:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  237 | LISPFUN(array_in_bounds_p,seclass_read,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:238:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  238 | LISPFUN(array_row_major_index,seclass_read,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:239:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  239 | LISPFUNNF(adjustable_array_p,1)
      |                                                                            ^     
../src/subr.d:240:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  240 | LISPFUNN(array_displacement,1)
      |                                                                            ^     
../src/subr.d:241:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  241 | LISPFUN(bit,seclass_read,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:242:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  242 | LISPFUN(sbit,seclass_read,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:243:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  243 | LISPFUN(bit_and,seclass_default,2,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:244:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  244 | LISPFUN(bit_ior,seclass_default,2,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:245:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  245 | LISPFUN(bit_xor,seclass_default,2,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:246:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  246 | LISPFUN(bit_eqv,seclass_default,2,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:247:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  247 | LISPFUN(bit_nand,seclass_default,2,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:248:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  248 | LISPFUN(bit_nor,seclass_default,2,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:249:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  249 | LISPFUN(bit_andc1,seclass_default,2,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:250:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  250 | LISPFUN(bit_andc2,seclass_default,2,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:251:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  251 | LISPFUN(bit_orc1,seclass_default,2,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:252:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  252 | LISPFUN(bit_orc2,seclass_default,2,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:253:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  253 | LISPFUN(bit_not,seclass_default,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:254:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  254 | LISPFUNNR(array_has_fill_pointer_p,1)
      |                                                                            ^     
../src/subr.d:255:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  255 | LISPFUNNR(fill_pointer,1)
      |                                                                            ^     
../src/subr.d:256:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  256 | LISPFUNN(set_fill_pointer,2)
      |                                                                            ^     
../src/subr.d:257:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  257 | LISPFUNN(vector_push,2)
      |                                                                            ^     
../src/subr.d:258:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  258 | LISPFUNN(vector_pop,1)
      |                                                                            ^     
../src/subr.d:259:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  259 | LISPFUN(vector_push_extend,seclass_default,2,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:268:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  268 | LISPFUNN(vector_init,1)
      |                                                                            ^     
../src/subr.d:269:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  269 | LISPFUNN(vector_upd,2)
      |                                                                            ^     
../src/subr.d:270:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  270 | LISPFUNN(vector_endtest,2)
      |                                                                            ^     
../src/subr.d:271:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  271 | LISPFUNN(vector_fe_init,1)
      |                                                                            ^     
../src/subr.d:272:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  272 | LISPFUNN(vector_fe_upd,2)
      |                                                                            ^     
../src/subr.d:273:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  273 | LISPFUNN(vector_fe_endtest,2)
      |                                                                            ^     
../src/subr.d:274:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  274 | LISPFUNN(vector_length,1)
      |                                                                            ^     
../src/subr.d:275:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  275 | LISPFUNN(vector_init_start,2)
      |                                                                            ^     
../src/subr.d:276:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  276 | LISPFUNN(vector_fe_init_end,2)
      |                                                                            ^     
../src/subr.d:277:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  277 | LISPFUNN(make_bit_vector,1)
      |                                                                            ^     
../src/subr.d:279:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  279 | LISPFUNNR(string_info,1)
      |                                                                            ^     
../src/subr.d:280:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  280 | LISPFUNNF(standard_char_p,1)
      |                                                                            ^     
../src/subr.d:281:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  281 | LISPFUNNF(graphic_char_p,1)
      |                                                                            ^     
../src/subr.d:282:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  282 | LISPFUNN(char_width,1)
      |                                                                            ^     
../src/subr.d:283:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  283 | LISPFUNNF(string_char_p,1)
      |                                                                            ^     
../src/subr.d:287:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  287 | LISPFUNNF(alpha_char_p,1)
      |                                                                            ^     
../src/subr.d:288:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  288 | LISPFUNNF(upper_case_p,1)
      |                                                                            ^     
../src/subr.d:289:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  289 | LISPFUNNF(lower_case_p,1)
      |                                                                            ^     
../src/subr.d:290:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  290 | LISPFUNNF(both_case_p,1)
      |                                                                            ^     
../src/subr.d:291:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  291 | LISPFUN(digit_char_p,seclass_foldable,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:292:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  292 | LISPFUNNF(alphanumericp,1)
      |                                                                            ^     
../src/subr.d:293:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  293 | LISPFUN(char_eq,seclass_foldable,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:294:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  294 | LISPFUN(char_noteq,seclass_foldable,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:295:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  295 | LISPFUN(char_less,seclass_foldable,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:296:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  296 | LISPFUN(char_greater,seclass_foldable,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:297:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  297 | LISPFUN(char_ltequal,seclass_foldable,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:298:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  298 | LISPFUN(char_gtequal,seclass_foldable,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:299:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  299 | LISPFUN(char_equal,seclass_foldable,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:300:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  300 | LISPFUN(char_not_equal,seclass_foldable,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:301:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  301 | LISPFUN(char_lessp,seclass_foldable,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:302:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  302 | LISPFUN(char_greaterp,seclass_foldable,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:303:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  303 | LISPFUN(char_not_greaterp,seclass_foldable,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:304:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  304 | LISPFUN(char_not_lessp,seclass_foldable,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:305:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  305 | LISPFUNNF(char_code,1)
      |                                                                            ^     
../src/subr.d:306:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  306 | LISPFUNNF(code_char,1)
      |                                                                            ^     
../src/subr.d:307:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  307 | LISPFUNNR(character,1)
      |                                                                            ^     
../src/subr.d:308:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  308 | LISPFUNNF(char_upcase,1)
      |                                                                            ^     
../src/subr.d:309:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  309 | LISPFUNNF(char_downcase,1)
      |                                                                            ^     
../src/subr.d:310:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  310 | LISPFUN(digit_char,seclass_foldable,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:311:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  311 | LISPFUNNF(char_int,1)
      |                                                                            ^     
../src/subr.d:312:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  312 | LISPFUNNF(int_char,1)
      |                                                                            ^     
../src/subr.d:313:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  313 | LISPFUNNF(char_name,1)
      |                                                                            ^     
../src/subr.d:314:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  314 | LISPFUNNF(char_invertcase,1)
      |                                                                            ^     
../src/subr.d:315:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  315 | LISPFUNNR(char,2)
      |                                                                            ^     
../src/subr.d:316:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  316 | LISPFUNNR(schar,2)
      |                                                                            ^     
../src/subr.d:317:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  317 | LISPFUNN(store_char,3)
      |                                                                            ^     
../src/subr.d:318:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  318 | LISPFUNN(store_schar,3)
      |                                                                            ^     
../src/subr.d:361:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  361 | LISPFUNNR(string_both_trim,4)
      |                                                                            ^     
../src/subr.d:374:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  374 | LISPFUNNR(string,1)
      |                                                                            ^     
../src/subr.d:375:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  375 | LISPFUNNR(cs_string,1)
      |                                                                            ^     
../src/subr.d:376:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  376 | LISPFUNNR(name_char,1)
      |                                                                            ^     
../src/subr.d:377:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  377 | LISPFUN(substring,seclass_read,2,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:378:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  378 | LISPFUN(string_concat,seclass_read,0,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:380:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  380 | LISPFUN(exit,seclass_default,0,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:381:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  381 | LISPFUNNR(symbol_value,1)
      |                                                                            ^     
../src/subr.d:382:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  382 | LISPFUNNR(symbol_function,1)
      |                                                                            ^     
../src/subr.d:383:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  383 | LISPFUNNS(fdefinition,1)
      |                                                                            ^     
../src/subr.d:384:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  384 | LISPFUNNR(boundp,1)
      |                                                                            ^     
../src/subr.d:385:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  385 | LISPFUNNR(fboundp,1)
      |                                                                            ^     
../src/subr.d:386:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  386 | LISPFUNNF(special_operator_p,1)
      |                                                                            ^     
../src/subr.d:387:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  387 | LISPFUNN(set,2)
      |                                                                            ^     
../src/subr.d:388:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  388 | LISPFUNN(makunbound,1)
      |                                                                            ^     
../src/subr.d:389:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  389 | LISPFUNN(fmakunbound,1)
      |                                                                            ^     
../src/subr.d:390:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  390 | LISPFUN(apply,seclass_default,2,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:391:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  391 | LISPFUN(funcall,seclass_default,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:392:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  392 | LISPFUN(mapcar,seclass_default,2,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:393:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  393 | LISPFUN(maplist,seclass_default,2,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:394:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  394 | LISPFUN(mapc,seclass_default,2,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:395:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  395 | LISPFUN(mapl,seclass_default,2,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:396:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  396 | LISPFUN(mapcan,seclass_default,2,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:397:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  397 | LISPFUN(mapcon,seclass_default,2,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:398:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  398 | LISPFUN(mapcap,seclass_default,2,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:399:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  399 | LISPFUN(maplap,seclass_default,2,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:400:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  400 | LISPFUN(values,seclass_no_se,0,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:401:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  401 | LISPFUNNR(values_list,1)
      |                                                                            ^     
../src/subr.d:402:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  402 | LISPFUNN(driver,1)
      |                                                                            ^     
../src/subr.d:403:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  403 | LISPFUNN(unwind_to_driver,1)
      |                                                                            ^     
../src/subr.d:404:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  404 | LISPFUN(macro_function,seclass_read,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:405:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  405 | LISPFUN(macroexpand,seclass_default,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:406:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  406 | LISPFUN(macroexpand_1,seclass_default,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:407:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  407 | LISPFUNN(proclaim,1)
      |                                                                            ^     
../src/subr.d:408:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  408 | LISPFUNN(eval,1)
      |                                                                            ^     
../src/subr.d:409:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  409 | LISPFUN(evalhook,seclass_default,3,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:410:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  410 | LISPFUN(applyhook,seclass_default,4,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:411:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  411 | LISPFUN(constantp,seclass_read,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:412:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  412 | LISPFUNNR(global_symbol_macro_p,1)
      |                                                                            ^     
../src/subr.d:413:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  413 | LISPFUNNR(function_side_effect,1)
      |                                                                            ^     
../src/subr.d:414:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  414 | LISPFUNNR(function_name_p,1)
      |                                                                            ^     
../src/subr.d:415:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  415 | LISPFUNN(check_function_name,2)
      |                                                                            ^     
../src/subr.d:416:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  416 | LISPFUNN(check_symbol,2)
      |                                                                            ^     
../src/subr.d:417:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  417 | LISPFUN(parse_body,seclass_default,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:418:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  418 | LISPFUNN(keyword_test,2)
      |                                                                            ^     
../src/subr.d:419:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  419 | LISPFUN(xor,seclass_foldable,0,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:421:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  421 | LISPFUN(read_form,seclass_default,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:422:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  422 | LISPFUN(read_eval_print,seclass_default,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:423:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  423 | LISPFUNN(initial_break_driver,1)
      |                                                                            ^     
../src/subr.d:424:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  424 | LISPFUNN(load,1)
      |                                                                            ^     
../src/subr.d:425:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  425 | LISPFUNN(frame_up,3)
      |                                                                            ^     
../src/subr.d:426:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  426 | LISPFUNN(frame_down,3)
      |                                                                            ^     
../src/subr.d:427:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  427 | LISPFUNN(the_frame,0)
      |                                                                            ^     
../src/subr.d:428:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  428 | LISPFUNN(same_env_as,2)
      |                                                                            ^     
../src/subr.d:429:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  429 | LISPFUNN(eval_at,2)
      |                                                                            ^     
../src/subr.d:430:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  430 | LISPFUNN(eval_frame_p,1)
      |                                                                            ^     
../src/subr.d:431:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  431 | LISPFUNN(driver_frame_p,1)
      |                                                                            ^     
../src/subr.d:432:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  432 | LISPFUNN(trap_eval_frame,2)
      |                                                                            ^     
../src/subr.d:433:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  433 | LISPFUNN(redo_eval_frame,1)
      |                                                                            ^     
../src/subr.d:434:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  434 | LISPFUNN(return_from_eval_frame,2)
      |                                                                            ^     
../src/subr.d:435:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  435 | LISPFUNN(describe_frame,2)
      |                                                                            ^     
../src/subr.d:436:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  436 | LISPFUN(show_stack,seclass_default,0,3,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:437:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  437 | LISPFUNN(crash,0)
      |                                                                            ^     
../src/subr.d:438:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  438 | LISPFUNN(proom,0)
      |                                                                            ^     
../src/subr.d:439:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  439 | LISPFUN(gc,seclass_default,0,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:444:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  444 | LISPFUNNF(encodingp,1)
      |                                                                            ^     
../src/subr.d:445:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  445 | LISPFUNNR(charset_typep,2)
      |                                                                            ^     
../src/subr.d:446:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  446 | LISPFUNNF(encoding_line_terminator,1)
      |                                                                            ^     
../src/subr.d:448:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  448 | LISPFUNNF(encoding_charset,1)
      |                                                                            ^     
../src/subr.d:449:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  449 | LISPFUN(charset_range,seclass_read,3,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:451:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  451 | LISPFUNNR(default_file_encoding,0)
      |                                                                            ^     
../src/subr.d:452:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  452 | LISPFUNN(set_default_file_encoding,1)
      |                                                                            ^     
../src/subr.d:454:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  454 | LISPFUNNR(pathname_encoding,0)
      |                                                                            ^     
../src/subr.d:455:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  455 | LISPFUNN(set_pathname_encoding,1)
      |                                                                            ^     
../src/subr.d:456:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  456 | LISPFUNNR(terminal_encoding,0)
      |                                                                            ^     
../src/subr.d:457:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  457 | LISPFUNN(set_terminal_encoding,1)
      |                                                                            ^     
../src/subr.d:459:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  459 | LISPFUNNR(foreign_encoding,0)
      |                                                                            ^     
../src/subr.d:460:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  460 | LISPFUNN(set_foreign_encoding,1)
      |                                                                            ^     
../src/subr.d:462:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  462 | LISPFUNNR(misc_encoding,0)
      |                                                                            ^     
../src/subr.d:463:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  463 | LISPFUNN(set_misc_encoding,1)
      |                                                                            ^     
../src/subr.d:470:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  470 | LISPFUNNF(strerror,1)
      |                                                                            ^     
../src/subr.d:474:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  474 | LISPFUN(error,seclass_default,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:475:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  475 | LISPFUNN(defclcs,1)
      |                                                                            ^     
../src/subr.d:476:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  476 | LISPFUN(cerror_of_type,seclass_default,3,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:477:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  477 | LISPFUN(error_of_type,seclass_default,2,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:478:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  478 | LISPFUNN(invoke_debugger,1)
      |                                                                            ^     
../src/subr.d:479:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  479 | LISPFUN(clcs_signal,seclass_default,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:485:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  485 | LISPFUN(gethash,seclass_read,2,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:486:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  486 | LISPFUNN(puthash,3)
      |                                                                            ^     
../src/subr.d:487:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  487 | LISPFUNN(remhash,2)
      |                                                                            ^     
../src/subr.d:488:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  488 | LISPFUNN(maphash,2)
      |                                                                            ^     
../src/subr.d:489:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  489 | LISPFUNN(clrhash,1)
      |                                                                            ^     
../src/subr.d:490:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  490 | LISPFUNNR(hash_table_count,1)
      |                                                                            ^     
../src/subr.d:491:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  491 | LISPFUNNR(hash_table_rehash_size,1)
      |                                                                            ^     
../src/subr.d:492:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  492 | LISPFUNNR(hash_table_rehash_threshold,1)
      |                                                                            ^     
../src/subr.d:493:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  493 | LISPFUNNR(hash_table_size,1)
      |                                                                            ^     
../src/subr.d:494:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  494 | LISPFUNNF(hash_table_test,1)
      |                                                                            ^     
../src/subr.d:495:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  495 | LISPFUNNF(fasthash_stable_p,1)
      |                                                                            ^     
../src/subr.d:496:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  496 | LISPFUNNR(stablehash_stable_p,1)
      |                                                                            ^     
../src/subr.d:497:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  497 | LISPFUNNR(hash_table_iterator,1)
      |                                                                            ^     
../src/subr.d:498:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  498 | LISPFUNN(hash_table_iterate,1)
      |                                                                            ^     
../src/subr.d:499:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  499 | LISPFUNNR(hash_table_weak_p,1)
      |                                                                            ^     
../src/subr.d:500:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  500 | LISPFUNN(set_hash_table_weak_p,2)
      |                                                                            ^     
../src/subr.d:501:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  501 | LISPFUNNR(hash_table_warn_if_needs_rehash_after_gc,1)
      |                                                                            ^     
../src/subr.d:502:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  502 | LISPFUNN(set_hash_table_warn_if_needs_rehash_after_gc,2)
      |                                                                            ^     
../src/subr.d:503:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  503 | LISPFUNN(class_gethash,2)
      |                                                                            ^     
../src/subr.d:504:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  504 | LISPFUN(class_tuple_gethash,seclass_default,2,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:505:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  505 | LISPFUNN(sxhash,1)
      |                                                                            ^     
../src/subr.d:507:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  507 | LISPFUNN(defio,2)
      |                                                                            ^     
../src/subr.d:508:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  508 | LISPFUN(copy_readtable,seclass_read,0,2,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:509:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  509 | LISPFUN(set_syntax_from_char,seclass_default,2,2,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:510:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  510 | LISPFUN(set_macro_character,seclass_default,2,2,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:511:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  511 | LISPFUN(get_macro_character,seclass_read,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:512:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  512 | LISPFUN(make_dispatch_macro_character,seclass_default,1,2,norest,nokey,0,NIL)
      |                                                                            ^~    
../src/subr.d:513:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  513 | LISPFUN(set_dispatch_macro_character,seclass_default,3,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:514:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  514 | LISPFUN(get_dispatch_macro_character,seclass_rd_sig,2,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:515:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  515 | LISPFUNN(readtable_case,1)
      |                                                                            ^     
../src/subr.d:516:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  516 | LISPFUNN(set_readtable_case,2)
      |                                                                            ^     
../src/subr.d:517:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  517 | LISPFUNN(lpar_reader,2)
      |                                                                            ^     
../src/subr.d:518:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  518 | LISPFUNN(rpar_reader,2)
      |                                                                            ^     
../src/subr.d:519:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  519 | LISPFUNN(string_reader,2)
      |                                                                            ^     
../src/subr.d:520:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  520 | LISPFUNN(quote_reader,2)
      |                                                                            ^     
../src/subr.d:521:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  521 | LISPFUNN(line_comment_reader,2)
      |                                                                            ^     
../src/subr.d:522:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  522 | LISPFUNN(function_reader,3)
      |                                                                            ^     
../src/subr.d:523:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  523 | LISPFUNN(comment_reader,3)
      |                                                                            ^     
../src/subr.d:524:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  524 | LISPFUNN(char_reader,3)
      |                                                                            ^     
../src/subr.d:525:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  525 | LISPFUNN(binary_reader,3)
      |                                                                            ^     
../src/subr.d:526:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  526 | LISPFUNN(octal_reader,3)
      |                                                                            ^     
../src/subr.d:527:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  527 | LISPFUNN(hexadecimal_reader,3)
      |                                                                            ^     
../src/subr.d:528:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  528 | LISPFUNN(radix_reader,3)
      |                                                                            ^     
../src/subr.d:529:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  529 | LISPFUNN(complex_reader,3)
      |                                                                            ^     
../src/subr.d:530:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  530 | LISPFUNN(uninterned_reader,3)
      |                                                                            ^     
../src/subr.d:531:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  531 | LISPFUNN(bit_vector_reader,3)
      |                                                                            ^     
../src/subr.d:532:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  532 | LISPFUNN(vector_reader,3)
      |                                                                            ^     
../src/subr.d:533:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  533 | LISPFUNN(array_reader,3)
      |                                                                            ^     
../src/subr.d:534:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  534 | LISPFUNN(read_eval_reader,3)
      |                                                                            ^     
../src/subr.d:535:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  535 | LISPFUNN(load_eval_reader,3)
      |                                                                            ^     
../src/subr.d:536:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  536 | LISPFUNN(label_definition_reader,3)
      |                                                                            ^     
../src/subr.d:537:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  537 | LISPFUNN(label_reference_reader,3)
      |                                                                            ^     
../src/subr.d:538:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  538 | LISPFUNN(not_readable_reader,3)
      |                                                                            ^     
../src/subr.d:539:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  539 | LISPFUNN(syntax_error_reader,3)
      |                                                                            ^     
../src/subr.d:540:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  540 | LISPFUNNR(featurep,1)
      |                                                                            ^     
../src/subr.d:541:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  541 | LISPFUNN(feature_reader,3)
      |                                                                            ^     
../src/subr.d:542:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  542 | LISPFUNN(not_feature_reader,3)
      |                                                                            ^     
../src/subr.d:543:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  543 | LISPFUNN(structure_reader,3)
      |                                                                            ^     
../src/subr.d:544:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  544 | LISPFUNN(closure_reader,3)
      |                                                                            ^     
../src/subr.d:545:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  545 | LISPFUNN(clisp_pathname_reader,3)
      |                                                                            ^     
../src/subr.d:546:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  546 | LISPFUNN(ansi_pathname_reader,3)
      |                                                                            ^     
../src/subr.d:548:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  548 | LISPFUNN(unix_executable_reader,3)
      |                                                                            ^     
../src/subr.d:550:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  550 | LISPFUN(readL,seclass_default,0,4,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:551:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  551 | LISPFUN(read_preserving_whitespace,seclass_default,0,4,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:552:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  552 | LISPFUN(read_delimited_list,seclass_default,1,2,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:553:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  553 | LISPFUN(read_line,seclass_default,0,4,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:554:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  554 | LISPFUN(read_char,seclass_default,0,4,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:555:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  555 | LISPFUN(unread_char,seclass_default,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:556:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  556 | LISPFUN(peek_char,seclass_default,0,5,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:557:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  557 | LISPFUN(listenL,seclass_default,0,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:558:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  558 | LISPFUNN(read_char_will_hang_p,1)
      |                                                                            ^     
../src/subr.d:559:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  559 | LISPFUN(read_char_no_hang,seclass_default,0,4,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:560:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  560 | LISPFUN(clear_input,seclass_default,0,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:565:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  565 | LISPFUNN(print_structure,2)
      |                                                                            ^     
../src/subr.d:571:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  571 | LISPFUN(prin1,seclass_default,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:572:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  572 | LISPFUN(print,seclass_default,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:573:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  573 | LISPFUN(pprint,seclass_default,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:574:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  574 | LISPFUN(pprint_indent,seclass_default,2,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:575:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  575 | LISPFUN(pprint_newline,seclass_default,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:576:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  576 | LISPFUN(format_tabulate,seclass_default,3,2,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:577:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  577 | LISPFUNN(ppprint_logical_block,3)
      |                                                                            ^     
../src/subr.d:578:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  578 | LISPFUNN(pcirclep,2)
      |                                                                            ^     
../src/subr.d:579:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  579 | LISPFUN(princ,seclass_default,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:584:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  584 | LISPFUNN(prin1_to_string,1)
      |                                                                            ^     
../src/subr.d:585:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  585 | LISPFUNN(princ_to_string,1)
      |                                                                            ^     
../src/subr.d:586:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  586 | LISPFUN(write_char,seclass_default,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:589:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  589 | LISPFUN(terpri,seclass_default,0,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:590:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  590 | LISPFUN(fresh_line,seclass_default,0,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:591:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  591 | LISPFUN(elastic_newline,seclass_default,0,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:592:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  592 | LISPFUN(finish_output,seclass_default,0,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:593:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  593 | LISPFUN(force_output,seclass_default,0,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:594:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  594 | LISPFUN(clear_output,seclass_default,0,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:597:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  597 | LISPFUN(line_position,seclass_default,0,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:598:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  598 | LISPFUNN(whitespacep,1)
      |                                                                            ^     
../src/subr.d:599:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  599 | LISPFUN(write_spaces,seclass_default,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:601:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  601 | LISPFUNNR(car,1)
      |                                                                            ^     
../src/subr.d:602:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  602 | LISPFUNNR(cdr,1)
      |                                                                            ^     
../src/subr.d:603:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  603 | LISPFUNNR(caar,1)
      |                                                                            ^     
../src/subr.d:604:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  604 | LISPFUNNR(cadr,1)
      |                                                                            ^     
../src/subr.d:605:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  605 | LISPFUNNR(cdar,1)
      |                                                                            ^     
../src/subr.d:606:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  606 | LISPFUNNR(cddr,1)
      |                                                                            ^     
../src/subr.d:607:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  607 | LISPFUNNR(caaar,1)
      |                                                                            ^     
../src/subr.d:608:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  608 | LISPFUNNR(caadr,1)
      |                                                                            ^     
../src/subr.d:609:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  609 | LISPFUNNR(cadar,1)
      |                                                                            ^     
../src/subr.d:610:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  610 | LISPFUNNR(caddr,1)
      |                                                                            ^     
../src/subr.d:611:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  611 | LISPFUNNR(cdaar,1)
      |                                                                            ^     
../src/subr.d:612:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  612 | LISPFUNNR(cdadr,1)
      |                                                                            ^     
../src/subr.d:613:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  613 | LISPFUNNR(cddar,1)
      |                                                                            ^     
../src/subr.d:614:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  614 | LISPFUNNR(cdddr,1)
      |                                                                            ^     
../src/subr.d:615:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  615 | LISPFUNNR(caaaar,1)
      |                                                                            ^     
../src/subr.d:616:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  616 | LISPFUNNR(caaadr,1)
      |                                                                            ^     
../src/subr.d:617:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  617 | LISPFUNNR(caadar,1)
      |                                                                            ^     
../src/subr.d:618:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  618 | LISPFUNNR(caaddr,1)
      |                                                                            ^     
../src/subr.d:619:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  619 | LISPFUNNR(cadaar,1)
      |                                                                            ^     
../src/subr.d:620:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  620 | LISPFUNNR(cadadr,1)
      |                                                                            ^     
../src/subr.d:621:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  621 | LISPFUNNR(caddar,1)
      |                                                                            ^     
../src/subr.d:622:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  622 | LISPFUNNR(cadddr,1)
      |                                                                            ^     
../src/subr.d:623:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  623 | LISPFUNNR(cdaaar,1)
      |                                                                            ^     
../src/subr.d:624:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  624 | LISPFUNNR(cdaadr,1)
      |                                                                            ^     
../src/subr.d:625:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  625 | LISPFUNNR(cdadar,1)
      |                                                                            ^     
../src/subr.d:626:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  626 | LISPFUNNR(cdaddr,1)
      |                                                                            ^     
../src/subr.d:627:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  627 | LISPFUNNR(cddaar,1)
      |                                                                            ^     
../src/subr.d:628:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  628 | LISPFUNNR(cddadr,1)
      |                                                                            ^     
../src/subr.d:629:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  629 | LISPFUNNR(cdddar,1)
      |                                                                            ^     
../src/subr.d:630:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  630 | LISPFUNNR(cddddr,1)
      |                                                                            ^     
../src/subr.d:631:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  631 | LISPFUN(cons,seclass_no_se,2,0,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:633:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  633 | LISPFUNNF(endp,1)
      |                                                                            ^     
../src/subr.d:634:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  634 | LISPFUNNR(list_length,1)
      |                                                                            ^     
../src/subr.d:635:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  635 | LISPFUNNR(list_length_dotted,1)
      |                                                                            ^     
../src/subr.d:636:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  636 | LISPFUNNR(list_length_proper,1)
      |                                                                            ^     
../src/subr.d:637:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  637 | LISPFUNNR(list_length_in_bounds_p,4)
      |                                                                            ^     
../src/subr.d:638:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  638 | LISPFUN(proper_list_length_in_bounds_p,seclass_read,2,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:639:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  639 | LISPFUNNR(nth,2)
      |                                                                            ^     
../src/subr.d:640:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  640 | LISPFUNNR(first,1)
      |                                                                            ^     
../src/subr.d:641:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  641 | LISPFUNNR(second,1)
      |                                                                            ^     
../src/subr.d:642:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  642 | LISPFUNNR(third,1)
      |                                                                            ^     
../src/subr.d:643:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  643 | LISPFUNNR(fourth,1)
      |                                                                            ^     
../src/subr.d:644:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  644 | LISPFUNNR(fifth,1)
      |                                                                            ^     
../src/subr.d:645:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  645 | LISPFUNNR(sixth,1)
      |                                                                            ^     
../src/subr.d:646:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  646 | LISPFUNNR(seventh,1)
      |                                                                            ^     
../src/subr.d:647:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  647 | LISPFUNNR(eighth,1)
      |                                                                            ^     
../src/subr.d:648:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  648 | LISPFUNNR(ninth,1)
      |                                                                            ^     
../src/subr.d:649:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  649 | LISPFUNNR(tenth,1)
      |                                                                            ^     
../src/subr.d:650:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  650 | LISPFUNNR(rest,1)
      |                                                                            ^     
../src/subr.d:651:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  651 | LISPFUNNR(nthcdr,2)
      |                                                                            ^     
../src/subr.d:652:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  652 | LISPFUNNR(conses_p,2)
      |                                                                            ^     
../src/subr.d:653:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  653 | LISPFUN(last,seclass_read,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:654:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  654 | LISPFUN(list,seclass_no_se,0,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:655:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  655 | LISPFUN(liststar,seclass_no_se,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:657:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  657 | LISPFUN(append,seclass_read,0,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:658:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  658 | LISPFUNNR(copy_list,1)
      |                                                                            ^     
../src/subr.d:659:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  659 | LISPFUNNR(copy_alist,1)
      |                                                                            ^     
../src/subr.d:660:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  660 | LISPFUNNR(copy_tree,1)
      |                                                                            ^     
../src/subr.d:661:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  661 | LISPFUNNR(revappend,2)
      |                                                                            ^     
../src/subr.d:662:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  662 | LISPFUN(nconc,seclass_default,0,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:663:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  663 | LISPFUNN(nreconc,2)
      |                                                                            ^     
../src/subr.d:664:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  664 | LISPFUNN(list_nreverse,1)
      |                                                                            ^     
../src/subr.d:665:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  665 | LISPFUN(butlast,seclass_read,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:666:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  666 | LISPFUN(nbutlast,seclass_default,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:667:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  667 | LISPFUNNR(ldiff,2)
      |                                                                            ^     
../src/subr.d:668:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  668 | LISPFUNN(rplaca,2)
      |                                                                            ^     
../src/subr.d:669:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  669 | LISPFUNN(prplaca,2)
      |                                                                            ^     
../src/subr.d:670:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  670 | LISPFUNN(rplacd,2)
      |                                                                            ^     
../src/subr.d:671:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  671 | LISPFUNN(prplacd,2)
      |                                                                            ^     
../src/subr.d:684:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  684 | LISPFUNNR(memq,2)
      |                                                                            ^     
../src/subr.d:689:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  689 | LISPFUNNR(tailp,2)
      |                                                                            ^     
../src/subr.d:692:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  692 | LISPFUN(acons,seclass_no_se,3,0,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:693:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  693 | LISPFUN(pairlis,seclass_read,2,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:702:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  702 | LISPFUNN(list_upd,2)
      |                                                                            ^     
../src/subr.d:703:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  703 | LISPFUNN(list_endtest,2)
      |                                                                            ^     
../src/subr.d:704:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  704 | LISPFUNN(list_fe_init,1)
      |                                                                            ^     
../src/subr.d:705:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  705 | LISPFUNN(list_access,2)
      |                                                                            ^     
../src/subr.d:706:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  706 | LISPFUNN(list_access_set,3)
      |                                                                            ^     
../src/subr.d:707:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  707 | LISPFUNN(list_elt,2)
      |                                                                            ^     
../src/subr.d:708:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  708 | LISPFUNN(list_set_elt,3)
      |                                                                            ^     
../src/subr.d:709:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  709 | LISPFUNN(list_init_start,2)
      |                                                                            ^     
../src/subr.d:710:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  710 | LISPFUNN(list_fe_init_end,2)
      |                                                                            ^     
../src/subr.d:712:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  712 | LISPFUN(lisp_implementation_type,seclass_no_se,0,0,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:713:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  713 | LISPFUN(lisp_implementation_version,seclass_no_se,0,0,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:714:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  714 | LISPFUN(version,seclass_default,0,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:715:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  715 | LISPFUNN(machinetype,0)
      |                                                                            ^     
../src/subr.d:716:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  716 | LISPFUNN(machine_version,0)
      |                                                                            ^     
../src/subr.d:717:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  717 | LISPFUNN(operating_system_type,0)
      |                                                                            ^     
../src/subr.d:718:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  718 | LISPFUNN(operating_system_version,0)
      |                                                                            ^     
../src/subr.d:719:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  719 | LISPFUN(get_env,seclass_default,0,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:720:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  720 | LISPFUNN(set_env,2)
      |                                                                            ^     
../src/subr.d:724:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  724 | LISPFUN(software_type,seclass_no_se,0,0,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:725:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  725 | LISPFUN(software_version,seclass_no_se,0,0,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:726:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  726 | LISPFUNNF(identity,1)
      |                                                                            ^     
../src/subr.d:727:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  727 | LISPFUNN(address_of,1)
      |                                                                            ^     
../src/subr.d:728:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  728 | LISPFUNN(code_address_of,1)
      |                                                                            ^     
../src/subr.d:729:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  729 | LISPFUNN(process_id,0)
      |                                                                            ^     
../src/subr.d:730:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  730 | LISPFUNNF(ansi,0)
      |                                                                            ^     
../src/subr.d:731:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  731 | LISPFUNN(set_ansi,1)
      |                                                                            ^     
../src/subr.d:732:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  732 | LISPFUN(module_info,seclass_no_se,0,2,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:733:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  733 | LISPFUN(argv,seclass_no_se,0,0,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:735:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  735 | LISPFUNNR(current_language,0)
      |                                                                            ^     
../src/subr.d:736:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  736 | LISPFUNN(set_current_language,1)
      |                                                                            ^     
../src/subr.d:737:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  737 | LISPFUNNR(text,1)
      |                                                                            ^     
../src/subr.d:739:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  739 | LISPFUNN(machine_instance,0)
      |                                                                            ^     
../src/subr.d:741:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  741 | LISPFUNNR(get_internal_real_time,0)
      |                                                                            ^     
../src/subr.d:742:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  742 | LISPFUN(get_internal_run_time,seclass_read,0,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:743:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  743 | LISPFUNNR(get_universal_time,0)
      |                                                                            ^     
../src/subr.d:745:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  745 | LISPFUNNR(default_time_zone,2)
      |                                                                            ^     
../src/subr.d:747:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  747 | LISPFUNN(psleep,2)
      |                                                                            ^     
../src/subr.d:748:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  748 | LISPFUN(pptime,seclass_read,0,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:749:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  749 | LISPFUNNF(delta4,5)
      |                                                                            ^     
../src/subr.d:751:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  751 | LISPFUNNR(make_symbol,1)
      |                                                                            ^     
../src/subr.d:752:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  752 | LISPFUNNR(find_package,1)
      |                                                                            ^     
../src/subr.d:753:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  753 | LISPFUNN(pfind_package,1)
      |                                                                            ^     
../src/subr.d:754:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  754 | LISPFUNNR(package_name,1)
      |                                                                            ^     
../src/subr.d:755:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  755 | LISPFUNNR(package_nicknames,1)
      |                                                                            ^     
../src/subr.d:756:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  756 | LISPFUN(rename_package,seclass_default,2,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:757:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  757 | LISPFUNNR(package_use_list,1)
      |                                                                            ^     
../src/subr.d:758:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  758 | LISPFUNNR(package_used_by_list,1)
      |                                                                            ^     
../src/subr.d:759:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  759 | LISPFUNNR(package_shadowing_symbols,1)
      |                                                                            ^     
../src/subr.d:760:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  760 | LISPFUNNR(package_lock,1)
      |                                                                            ^     
../src/subr.d:761:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  761 | LISPFUNNR(package_shortest_name,1)
      |                                                                            ^     
../src/subr.d:762:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  762 | LISPFUNNR(package_case_sensitive_p,1)
      |                                                                            ^     
../src/subr.d:763:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  763 | LISPFUNNR(package_case_inverted_p,1)
      |                                                                            ^     
../src/subr.d:764:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  764 | LISPFUNNR(package_documentation,1)
      |                                                                            ^     
../src/subr.d:765:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  765 | LISPFUNN(set_package_documentation,2)
      |                                                                            ^     
../src/subr.d:766:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  766 | LISPFUNN(set_package_case_inverted_p,2)
      |                                                                            ^     
../src/subr.d:767:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  767 | LISPFUNN(set_package_case_sensitive_p,2)
      |                                                                            ^     
../src/subr.d:768:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  768 | LISPFUNN(set_package_lock,2)
      |                                                                            ^     
../src/subr.d:769:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  769 | LISPFUNN(symbol_value_lock,1)
      |                                                                            ^     
../src/subr.d:770:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  770 | LISPFUNN(check_package_lock,3)
      |                                                                            ^     
../src/subr.d:771:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  771 | LISPFUNNR(list_all_packages,0)
      |                                                                            ^     
../src/subr.d:772:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  772 | LISPFUN(intern,seclass_default,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:773:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  773 | LISPFUN(cs_intern,seclass_default,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:774:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  774 | LISPFUN(find_symbol,seclass_read,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:775:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  775 | LISPFUN(cs_find_symbol,seclass_read,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:776:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  776 | LISPFUN(unintern,seclass_default,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:777:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  777 | LISPFUN(export,seclass_default,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:778:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  778 | LISPFUN(unexport,seclass_default,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:779:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  779 | LISPFUNN(re_export,2)
      |                                                                            ^     
../src/subr.d:780:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  780 | LISPFUN(import,seclass_default,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:781:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  781 | LISPFUN(shadowing_import,seclass_default,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:782:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  782 | LISPFUN(shadow,seclass_default,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:783:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  783 | LISPFUN(cs_shadow,seclass_default,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:784:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  784 | LISPFUN(use_package,seclass_default,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:785:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  785 | LISPFUN(unuse_package,seclass_default,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:792:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  792 | LISPFUNN(delete_package,1)
      |                                                                            ^     
../src/subr.d:793:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  793 | LISPFUNNR(find_all_symbols,1)
      |                                                                            ^     
../src/subr.d:794:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  794 | LISPFUNNR(cs_find_all_symbols,1)
      |                                                                            ^     
../src/subr.d:795:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  795 | LISPFUNN(map_symbols,2)
      |                                                                            ^     
../src/subr.d:796:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  796 | LISPFUNN(map_external_symbols,2)
      |                                                                            ^     
../src/subr.d:797:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  797 | LISPFUNN(map_all_symbols,1)
      |                                                                            ^     
../src/subr.d:798:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  798 | LISPFUNN(package_iterator,2)
      |                                                                            ^     
../src/subr.d:799:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  799 | LISPFUNN(package_iterate,1)
      |                                                                            ^     
../src/subr.d:803:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  803 | LISPFUNNR(pathname,1)
      |                                                                            ^     
../src/subr.d:809:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  809 | LISPFUNNR(pathnameversion,1)
      |                                                                            ^     
../src/subr.d:810:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  810 | LISPFUNNS(logical_pathname,1)
      |                                                                            ^     
../src/subr.d:813:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  813 | LISPFUNNR(file_namestring,1)
      |                                                                            ^     
../src/subr.d:814:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  814 | LISPFUNNR(directory_namestring,1)
      |                                                                            ^     
../src/subr.d:815:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  815 | LISPFUNNR(host_namestring,1)
      |                                                                            ^     
../src/subr.d:817:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  817 | LISPFUN(enough_namestring,seclass_read,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:824:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  824 | LISPFUN(user_homedir_pathname,seclass_default,0,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:825:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  825 | LISPFUN(wild_pathname_p,seclass_rd_sig,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:826:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  826 | LISPFUNNS(pathname_match_p,2)
      |                                                                            ^     
../src/subr.d:829:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  829 | LISPFUNN(absolute_pathname,1)
      |                                                                            ^     
../src/subr.d:830:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  830 | LISPFUNNR(namestring,1)
      |                                                                            ^     
../src/subr.d:831:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  831 | LISPFUNNS(truename,1)
      |                                                                            ^     
../src/subr.d:832:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  832 | LISPFUNNS(probe_file,1)
      |                                                                            ^     
../src/subr.d:834:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  834 | LISPFUNNS(probe_directory,1)
      |                                                                            ^     
../src/subr.d:835:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  835 | LISPFUNN(delete_file,1)
      |                                                                            ^     
../src/subr.d:842:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  842 | LISPFUN(cd,seclass_default,0,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:843:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  843 | LISPFUNN(make_directory,1)
      |                                                                            ^     
../src/subr.d:844:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  844 | LISPFUNN(delete_directory,1)
      |                                                                            ^     
../src/subr.d:845:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  845 | LISPFUNN(rename_directory,2)
      |                                                                            ^     
../src/subr.d:848:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  848 | LISPFUNNS(file_write_date,1)
      |                                                                            ^     
../src/subr.d:849:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  849 | LISPFUNNS(file_author,1)
      |                                                                            ^     
../src/subr.d:851:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  851 | LISPFUN(execute,seclass_default,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:856:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  856 | LISPFUN(shell,seclass_default,0,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:863:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  863 | LISPFUNN(savemem,2)
      |                                                                            ^     
../src/subr.d:865:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  865 | LISPFUNN(dynload_modules,2)
      |                                                                            ^     
../src/subr.d:867:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  867 | LISPFUNN(program_name,0)
      |                                                                            ^     
../src/subr.d:868:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  868 | LISPFUNN(lib_directory,0)
      |                                                                            ^     
../src/subr.d:869:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  869 | LISPFUNN(set_lib_directory,1)
      |                                                                            ^     
../src/subr.d:871:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  871 | LISPFUN(eq,SECFC(seclass_foldable,fastcmp_eq),2,0,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:872:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  872 | LISPFUN(eql,SECFC(seclass_foldable,fastcmp_eql),2,0,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:873:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  873 | LISPFUN(equal,SECFC(seclass_read,fastcmp_equal),2,0,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:874:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  874 | LISPFUN(equalp,SECFC(seclass_read,fastcmp_equalp),2,0,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:875:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  875 | LISPFUNNF(consp,1)
      |                                                                            ^     
../src/subr.d:876:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  876 | LISPFUNNF(atom,1)
      |                                                                            ^     
../src/subr.d:877:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  877 | LISPFUNNF(symbolp,1)
      |                                                                            ^     
../src/subr.d:878:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  878 | LISPFUNNF(stringp,1)
      |                                                                            ^     
../src/subr.d:879:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  879 | LISPFUNNF(numberp,1)
      |                                                                            ^     
../src/subr.d:880:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  880 | LISPFUNNR(compiled_function_p,1)
      |                                                                            ^     
../src/subr.d:881:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  881 | LISPFUNNR(pcompiled_function_p,1)
      |                                                                            ^     
../src/subr.d:882:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  882 | LISPFUNNF(null,1)
      |                                                                            ^     
../src/subr.d:883:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  883 | LISPFUNNF(not,1)
      |                                                                            ^     
../src/subr.d:884:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  884 | LISPFUNNF(closurep,1)
      |                                                                            ^     
../src/subr.d:885:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  885 | LISPFUNNF(listp,1)
      |                                                                            ^     
../src/subr.d:886:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  886 | LISPFUNNR(proper_list_p,1)
      |                                                                            ^     
../src/subr.d:887:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  887 | LISPFUNNF(bytep,1)
      |                                                                            ^     
../src/subr.d:888:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  888 | LISPFUNNF(integerp,1)
      |                                                                            ^     
../src/subr.d:889:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  889 | LISPFUNNF(fixnump,1)
      |                                                                            ^     
../src/subr.d:890:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  890 | LISPFUNNF(rationalp,1)
      |                                                                            ^     
../src/subr.d:891:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  891 | LISPFUNNF(floatp,1)
      |                                                                            ^     
../src/subr.d:892:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  892 | LISPFUNNF(short_float_p,1)
      |                                                                            ^     
../src/subr.d:893:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  893 | LISPFUNNF(single_float_p,1)
      |                                                                            ^     
../src/subr.d:894:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  894 | LISPFUNNF(double_float_p,1)
      |                                                                            ^     
../src/subr.d:895:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  895 | LISPFUNNF(long_float_p,1)
      |                                                                            ^     
../src/subr.d:896:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  896 | LISPFUNNF(realp,1)
      |                                                                            ^     
../src/subr.d:897:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  897 | LISPFUNNF(complexp,1)
      |                                                                            ^     
../src/subr.d:898:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  898 | LISPFUNNR(streamp,1)
      |                                                                            ^     
../src/subr.d:899:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  899 | LISPFUNNF(built_in_stream_p,1)
      |                                                                            ^     
../src/subr.d:900:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  900 | LISPFUNNF(random_state_p,1)
      |                                                                            ^     
../src/subr.d:901:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  901 | LISPFUNNF(readtablep,1)
      |                                                                            ^     
../src/subr.d:902:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  902 | LISPFUNNF(hash_table_p,1)
      |                                                                            ^     
../src/subr.d:903:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  903 | LISPFUNNF(pathnamep,1)
      |                                                                            ^     
../src/subr.d:904:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  904 | LISPFUNNF(logical_pathname_p,1)
      |                                                                            ^     
../src/subr.d:905:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  905 | LISPFUNNF(characterp,1)
      |                                                                            ^     
../src/subr.d:906:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  906 | LISPFUNNF(functionp,1)
      |                                                                            ^     
../src/subr.d:907:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  907 | LISPFUNNF(packagep,1)
      |                                                                            ^     
../src/subr.d:908:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  908 | LISPFUNNF(arrayp,1)
      |                                                                            ^     
../src/subr.d:909:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  909 | LISPFUNNF(simple_array_p,1)
      |                                                                            ^     
../src/subr.d:910:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  910 | LISPFUNNF(bit_vector_p,1)
      |                                                                            ^     
../src/subr.d:911:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  911 | LISPFUNNF(vectorp,1)
      |                                                                            ^     
../src/subr.d:912:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  912 | LISPFUNNF(simple_vector_p,1)
      |                                                                            ^     
../src/subr.d:913:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  913 | LISPFUNNF(simple_string_p,1)
      |                                                                            ^     
../src/subr.d:914:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  914 | LISPFUNNF(simple_bit_vector_p,1)
      |                                                                            ^     
../src/subr.d:915:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  915 | LISPFUNNR(type_of,1)
      |                                                                            ^     
../src/subr.d:916:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  916 | LISPFUNN(defclos,6)
      |                                                                            ^     
../src/subr.d:917:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  917 | LISPFUNNR(potential_class_p,1)
      |                                                                            ^     
../src/subr.d:918:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  918 | LISPFUNNR(defined_class_p,1)
      |                                                                            ^     
../src/subr.d:919:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  919 | LISPFUNNR(class_of,1)
      |                                                                            ^     
../src/subr.d:920:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  920 | LISPFUN(find_class,seclass_default,1,2,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:921:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  921 | LISPFUNN(typep_class,2)
      |                                                                            ^     
../src/subr.d:922:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  922 | LISPFUN(expand_deftype,seclass_default,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:923:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  923 | LISPFUNNS(coerce,2)
      |                                                                            ^     
../src/subr.d:924:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  924 | LISPFUNN(note_new_structure_class,0)
      |                                                                            ^     
../src/subr.d:925:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  925 | LISPFUNN(note_new_standard_class,0)
      |                                                                            ^     
../src/subr.d:926:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  926 | LISPFUNN(heap_statistics,0)
      |                                                                            ^     
../src/subr.d:927:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  927 | LISPFUNN(gc_statistics,0)
      |                                                                            ^     
../src/subr.d:928:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  928 | LISPFUNN(list_statistics,1)
      |                                                                            ^     
../src/subr.d:929:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  929 | LISPFUNN(heap_statistics_statistics,1)
      |                                                                            ^     
../src/subr.d:930:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  930 | LISPFUNN(gc_statistics_statistics,2)
      |                                                                            ^     
../src/subr.d:932:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  932 | LISPFUNNR(record_ref,2)
      |                                                                            ^     
../src/subr.d:933:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  933 | LISPFUNN(record_store,3)
      |                                                                            ^     
../src/subr.d:934:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  934 | LISPFUNNR(record_length,1)
      |                                                                            ^     
../src/subr.d:935:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  935 | LISPFUNNR(pstructure_ref,3)
      |                                                                            ^     
../src/subr.d:936:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  936 | LISPFUNNR(structure_ref,3)
      |                                                                            ^     
../src/subr.d:937:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  937 | LISPFUNN(structure_store,4)
      |                                                                            ^     
../src/subr.d:938:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  938 | LISPFUNNR(make_structure,2)
      |                                                                            ^     
../src/subr.d:939:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  939 | LISPFUNNR(copy_structure,1)
      |                                                                            ^     
../src/subr.d:940:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  940 | LISPFUNNR(structure_type_p,2)
      |                                                                            ^     
../src/subr.d:941:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  941 | LISPFUNNR(closure_name,1)
      |                                                                            ^     
../src/subr.d:942:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  942 | LISPFUNN(set_closure_name,2)
      |                                                                            ^     
../src/subr.d:943:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  943 | LISPFUNNR(closure_codevec,1)
      |                                                                            ^     
../src/subr.d:944:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  944 | LISPFUNNR(closure_consts,1)
      |                                                                            ^     
../src/subr.d:945:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  945 | LISPFUNNR(closure_const,2)
      |                                                                            ^     
../src/subr.d:946:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  946 | LISPFUNN(set_closure_const,3)
      |                                                                            ^     
../src/subr.d:948:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  948 | LISPFUNN(make_constant_initfunction,1)
      |                                                                            ^     
../src/subr.d:949:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  949 | LISPFUNN(constant_initfunction_p,1)
      |                                                                            ^     
../src/subr.d:950:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  950 | LISPFUNN(closure_set_seclass,2)
      |                                                                            ^     
../src/subr.d:951:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  951 | LISPFUNNR(closure_documentation,1)
      |                                                                            ^     
../src/subr.d:952:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  952 | LISPFUNN(closure_set_documentation,2)
      |                                                                            ^     
../src/subr.d:953:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  953 | LISPFUNNR(closure_lambda_list,1)
      |                                                                            ^     
../src/subr.d:954:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  954 | LISPFUNN(set_funcallable_instance_function,2)
      |                                                                            ^     
../src/subr.d:955:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  955 | LISPFUNN(copy_generic_function,2)
      |                                                                            ^     
../src/subr.d:956:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  956 | LISPFUNN(generic_function_effective_method_function,1)
      |                                                                            ^     
../src/subr.d:957:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  957 | LISPFUN(make_load_time_eval,seclass_no_se,1,0,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:958:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  958 | LISPFUN(make_symbol_macro,seclass_no_se,1,0,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:959:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  959 | LISPFUNNF(symbol_macro_p,1)
      |                                                                            ^     
../src/subr.d:960:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  960 | LISPFUNN(symbol_macro_expand,1)
      |                                                                            ^     
../src/subr.d:961:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  961 | LISPFUN(make_global_symbol_macro,seclass_no_se,1,0,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:962:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  962 | LISPFUNN(global_symbol_macro_definition,1)
      |                                                                            ^     
../src/subr.d:963:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  963 | LISPFUN(make_macro,seclass_no_se,2,0,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:964:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  964 | LISPFUNN(macrop,1)
      |                                                                            ^     
../src/subr.d:965:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  965 | LISPFUNN(macro_expander,1)
      |                                                                            ^     
../src/subr.d:966:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  966 | LISPFUNN(macro_lambda_list,1)
      |                                                                            ^     
../src/subr.d:967:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  967 | LISPFUNN(make_function_macro,2)
      |                                                                            ^     
../src/subr.d:968:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  968 | LISPFUNN(function_macro_p,1)
      |                                                                            ^     
../src/subr.d:969:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  969 | LISPFUNN(function_macro_function,1)
      |                                                                            ^     
../src/subr.d:970:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  970 | LISPFUNN(function_macro_expander,1)
      |                                                                            ^     
../src/subr.d:971:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  971 | LISPFUN(finalize,seclass_default,2,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:972:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  972 | LISPFUNNF(structure_object_p,1)
      |                                                                            ^     
../src/subr.d:973:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  973 | LISPFUNNF(std_instance_p,1)
      |                                                                            ^     
../src/subr.d:974:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  974 | LISPFUNNF(funcallable_instance_p,1)
      |                                                                            ^     
../src/subr.d:975:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  975 | LISPFUNN(allocate_metaobject_instance,2)
      |                                                                            ^     
../src/subr.d:976:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  976 | LISPFUNN(allocate_std_instance,2)
      |                                                                            ^     
../src/subr.d:977:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  977 | LISPFUNN(allocate_funcallable_instance,2)
      |                                                                            ^     
../src/subr.d:978:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  978 | LISPFUN(pallocate_instance,seclass_read,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:979:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  979 | LISPFUNN(pslot_value_using_class,3)
      |                                                                            ^     
../src/subr.d:980:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  980 | LISPFUNN(pset_slot_value_using_class,4)
      |                                                                            ^     
../src/subr.d:981:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  981 | LISPFUNN(pslot_boundp_using_class,3)
      |                                                                            ^     
../src/subr.d:982:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  982 | LISPFUNN(pslot_makunbound_using_class,3)
      |                                                                            ^     
../src/subr.d:983:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  983 | LISPFUNN(slot_value,2)
      |                                                                            ^     
../src/subr.d:984:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  984 | LISPFUNN(set_slot_value,3)
      |                                                                            ^     
../src/subr.d:985:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  985 | LISPFUNN(slot_boundp,2)
      |                                                                            ^     
../src/subr.d:986:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  986 | LISPFUNN(slot_makunbound,2)
      |                                                                            ^     
../src/subr.d:987:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  987 | LISPFUNNR(slot_exists_p,2)
      |                                                                            ^     
../src/subr.d:988:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  988 | LISPFUNNR(standard_instance_access,2)
      |                                                                            ^     
../src/subr.d:989:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  989 | LISPFUNN(set_standard_instance_access,3)
      |                                                                            ^     
../src/subr.d:990:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  990 | LISPFUNNR(punbound,0)
      |                                                                            ^     
../src/subr.d:991:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  991 | LISPFUN(pshared_initialize,seclass_default,2,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:992:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  992 | LISPFUN(preinitialize_instance,seclass_default,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:993:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  993 | LISPFUN(pinitialize_instance,seclass_default,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:994:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  994 | LISPFUN(pmake_instance,seclass_default,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:995:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  995 | LISPFUNN(pchange_class,2)
      |                                                                            ^     
../src/subr.d:997:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  997 | LISPFUN(make_weak_pointer,seclass_no_se,1,0,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:998:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  998 | LISPFUNNF(weak_pointer_p,1)
      |                                                                            ^     
../src/subr.d:999:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
  999 | LISPFUNNR(weak_pointer_value,1)
      |                                                                            ^     
../src/subr.d:1000:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1000 | LISPFUNN(set_weak_pointer_value,2)
      |                                                                            ^     
../src/subr.d:1001:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1001 | LISPFUNN(make_weak_list,1)
      |                                                                            ^     
../src/subr.d:1002:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1002 | LISPFUNNF(weak_list_p,1)
      |                                                                            ^     
../src/subr.d:1003:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1003 | LISPFUNNR(weak_list_list,1)
      |                                                                            ^     
../src/subr.d:1004:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1004 | LISPFUNN(set_weak_list_list,2)
      |                                                                            ^     
../src/subr.d:1005:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1005 | LISPFUNN(make_weak_and_relation,1)
      |                                                                            ^     
../src/subr.d:1006:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1006 | LISPFUNNF(weak_and_relation_p,1)
      |                                                                            ^     
../src/subr.d:1007:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1007 | LISPFUNNR(weak_and_relation_list,1)
      |                                                                            ^     
../src/subr.d:1008:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1008 | LISPFUNN(make_weak_or_relation,1)
      |                                                                            ^     
../src/subr.d:1009:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1009 | LISPFUNNF(weak_or_relation_p,1)
      |                                                                            ^     
../src/subr.d:1010:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1010 | LISPFUNNR(weak_or_relation_list,1)
      |                                                                            ^     
../src/subr.d:1011:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1011 | LISPFUNN(make_weak_mapping,2)
      |                                                                            ^     
../src/subr.d:1012:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1012 | LISPFUNNF(weak_mapping_p,1)
      |                                                                            ^     
../src/subr.d:1013:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1013 | LISPFUNNR(weak_mapping_pair,1)
      |                                                                            ^     
../src/subr.d:1014:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1014 | LISPFUNNR(weak_mapping_value,1)
      |                                                                            ^     
../src/subr.d:1015:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1015 | LISPFUNN(set_weak_mapping_value,2)
      |                                                                            ^     
../src/subr.d:1016:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1016 | LISPFUNN(make_weak_and_mapping,2)
      |                                                                            ^     
../src/subr.d:1017:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1017 | LISPFUNNF(weak_and_mapping_p,1)
      |                                                                            ^     
../src/subr.d:1018:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1018 | LISPFUNNR(weak_and_mapping_pair,1)
      |                                                                            ^     
../src/subr.d:1019:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1019 | LISPFUNNR(weak_and_mapping_value,1)
      |                                                                            ^     
../src/subr.d:1020:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1020 | LISPFUNN(set_weak_and_mapping_value,2)
      |                                                                            ^     
../src/subr.d:1021:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1021 | LISPFUNN(make_weak_or_mapping,2)
      |                                                                            ^     
../src/subr.d:1022:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1022 | LISPFUNNF(weak_or_mapping_p,1)
      |                                                                            ^     
../src/subr.d:1023:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1023 | LISPFUNNR(weak_or_mapping_pair,1)
      |                                                                            ^     
../src/subr.d:1024:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1024 | LISPFUNNR(weak_or_mapping_value,1)
      |                                                                            ^     
../src/subr.d:1025:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1025 | LISPFUNN(set_weak_or_mapping_value,2)
      |                                                                            ^     
../src/subr.d:1028:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1028 | LISPFUNNF(weak_alist_p,1)
      |                                                                            ^     
../src/subr.d:1029:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1029 | LISPFUNNR(weak_alist_type,1)
      |                                                                            ^     
../src/subr.d:1030:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1030 | LISPFUNNR(weak_alist_contents,1)
      |                                                                            ^     
../src/subr.d:1031:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1031 | LISPFUNN(set_weak_alist_contents,2)
      |                                                                            ^     
../src/subr.d:1041:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1041 | LISPFUNNR(sequencep,1)
      |                                                                            ^     
../src/subr.d:1042:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1042 | LISPFUNN(defseq,1)
      |                                                                            ^     
../src/subr.d:1043:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1043 | LISPFUNNR(elt,2)
      |                                                                            ^     
../src/subr.d:1044:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1044 | LISPFUNN(setelt,3)
      |                                                                            ^     
../src/subr.d:1045:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1045 | LISPFUN(subseq,seclass_read,2,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1046:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1046 | LISPFUNNR(copy_seq,1)
      |                                                                            ^     
../src/subr.d:1047:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1047 | LISPFUNNR(length,1)
      |                                                                            ^     
../src/subr.d:1048:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1048 | LISPFUNNR(reverse,1)
      |                                                                            ^     
../src/subr.d:1049:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1049 | LISPFUNN(nreverse,1)
      |                                                                            ^     
../src/subr.d:1053:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1053 | LISPFUN(concatenate,seclass_rd_sig,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1054:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1054 | LISPFUN(map,seclass_default,3,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1055:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1055 | LISPFUN(map_into,seclass_default,2,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1056:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1056 | LISPFUN(some,seclass_default,2,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1057:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1057 | LISPFUN(every,seclass_default,2,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1058:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1058 | LISPFUN(notany,seclass_default,2,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1059:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1059 | LISPFUN(notevery,seclass_default,2,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1134:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1134 | LISPFUN(symbol_stream,seclass_read,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1135:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1135 | LISPFUNNR(make_synonym_stream,1)
      |                                                                            ^     
../src/subr.d:1136:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1136 | LISPFUNNF(synonym_stream_p,1)
      |                                                                            ^     
../src/subr.d:1137:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1137 | LISPFUNNR(synonym_stream_symbol,1)
      |                                                                            ^     
../src/subr.d:1138:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1138 | LISPFUN(make_broadcast_stream,seclass_read,0,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1139:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1139 | LISPFUNNF(broadcast_stream_p,1)
      |                                                                            ^     
../src/subr.d:1140:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1140 | LISPFUNNR(broadcast_stream_streams,1)
      |                                                                            ^     
../src/subr.d:1141:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1141 | LISPFUN(make_concatenated_stream,seclass_read,0,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1142:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1142 | LISPFUNNF(concatenated_stream_p,1)
      |                                                                            ^     
../src/subr.d:1143:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1143 | LISPFUNNR(concatenated_stream_streams,1)
      |                                                                            ^     
../src/subr.d:1144:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1144 | LISPFUNNR(make_two_way_stream,2)
      |                                                                            ^     
../src/subr.d:1145:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1145 | LISPFUNNF(two_way_stream_p,1)
      |                                                                            ^     
../src/subr.d:1146:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1146 | LISPFUNNR(two_way_stream_input_stream,1)
      |                                                                            ^     
../src/subr.d:1147:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1147 | LISPFUNNR(two_way_stream_output_stream,1)
      |                                                                            ^     
../src/subr.d:1148:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1148 | LISPFUNNR(make_echo_stream,2)
      |                                                                            ^     
../src/subr.d:1149:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1149 | LISPFUNNF(echo_stream_p,1)
      |                                                                            ^     
../src/subr.d:1150:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1150 | LISPFUNNR(echo_stream_input_stream,1)
      |                                                                            ^     
../src/subr.d:1151:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1151 | LISPFUNNR(echo_stream_output_stream,1)
      |                                                                            ^     
../src/subr.d:1152:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1152 | LISPFUN(make_string_input_stream,seclass_read,1,2,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1153:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1153 | LISPFUNNR(string_input_stream_index,1)
      |                                                                            ^     
../src/subr.d:1156:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1156 | LISPFUNN(get_output_stream_string,1)
      |                                                                            ^     
../src/subr.d:1157:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1157 | LISPFUNNR(make_string_push_stream,1)
      |                                                                            ^     
../src/subr.d:1158:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1158 | LISPFUNNF(string_stream_p,1)
      |                                                                            ^     
../src/subr.d:1159:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1159 | LISPFUNNR(string_stream_string,1)
      |                                                                            ^     
../src/subr.d:1160:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1160 | LISPFUNNR(make_buffered_input_stream,2)
      |                                                                            ^     
../src/subr.d:1161:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1161 | LISPFUNNR(buffered_input_stream_index,1)
      |                                                                            ^     
../src/subr.d:1162:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1162 | LISPFUN(make_buffered_output_stream,seclass_read,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1164:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1164 | LISPFUNN(generic_stream_controller,1)
      |                                                                            ^     
../src/subr.d:1165:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1165 | LISPFUNN(make_generic_stream,1)
      |                                                                            ^     
../src/subr.d:1166:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1166 | LISPFUNN(generic_stream_p,1)
      |                                                                            ^     
../src/subr.d:1169:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1169 | LISPFUNN(make_keyboard_stream,0)
      |                                                                            ^     
../src/subr.d:1171:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1171 | LISPFUN(terminal_raw,seclass_default,2,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1173:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1173 | LISPFUNN(make_window,0)
      |                                                                            ^     
../src/subr.d:1174:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1174 | LISPFUNN(window_size,1)
      |                                                                            ^     
../src/subr.d:1175:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1175 | LISPFUNN(window_cursor_position,1)
      |                                                                            ^     
../src/subr.d:1176:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1176 | LISPFUNN(set_window_cursor_position,3)
      |                                                                            ^     
../src/subr.d:1177:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1177 | LISPFUNN(clear_window,1)
      |                                                                            ^     
../src/subr.d:1178:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1178 | LISPFUNN(clear_window_to_eot,1)
      |                                                                            ^     
../src/subr.d:1179:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1179 | LISPFUNN(clear_window_to_eol,1)
      |                                                                            ^     
../src/subr.d:1180:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1180 | LISPFUNN(delete_window_line,1)
      |                                                                            ^     
../src/subr.d:1181:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1181 | LISPFUNN(insert_window_line,1)
      |                                                                            ^     
../src/subr.d:1182:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1182 | LISPFUNN(highlight_on,1)
      |                                                                            ^     
../src/subr.d:1183:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1183 | LISPFUNN(highlight_off,1)
      |                                                                            ^     
../src/subr.d:1184:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1184 | LISPFUNN(window_cursor_on,1)
      |                                                                            ^     
../src/subr.d:1185:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1185 | LISPFUNN(window_cursor_off,1)
      |                                                                            ^     
../src/subr.d:1187:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1187 | LISPFUNNF(file_stream_p,1)
      |                                                                            ^     
../src/subr.d:1199:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1199 | LISPFUNN(make_x11socket_stream,2)
      |                                                                            ^     
../src/subr.d:1200:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1200 | LISPFUNN(read_n_bytes,4)
      |                                                                            ^     
../src/subr.d:1201:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1201 | LISPFUNN(write_n_bytes,4)
      |                                                                            ^     
../src/subr.d:1204:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1204 | LISPFUNN(socket_server_close,1)
      |                                                                            ^     
../src/subr.d:1207:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1207 | LISPFUNN(socket_server_port,1)
      |                                                                            ^     
../src/subr.d:1208:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1208 | LISPFUNN(socket_server_host,1)
      |                                                                            ^     
../src/subr.d:1211:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1211 | LISPFUN(socket_wait,seclass_default,1,2,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1212:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1212 | LISPFUN(socket_status,seclass_default,1,2,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1215:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1215 | LISPFUNN(socket_stream_port,1)
      |                                                                            ^     
../src/subr.d:1216:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1216 | LISPFUNN(socket_stream_host,1)
      |                                                                            ^     
../src/subr.d:1217:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1217 | LISPFUN(socket_stream_peer,seclass_default,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1218:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1218 | LISPFUN(socket_stream_local,seclass_default,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1219:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1219 | LISPFUN(socket_options,seclass_default,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1221:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1221 | LISPFUNN(socket_stream_shutdown,2)
      |                                                                            ^     
../src/subr.d:1226:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1226 | LISPFUNN(stream_handles,1)
      |                                                                            ^     
../src/subr.d:1227:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1227 | LISPFUNNR(built_in_stream_open_p,1)
      |                                                                            ^     
../src/subr.d:1228:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1228 | LISPFUNNR(input_stream_p,1)
      |                                                                            ^     
../src/subr.d:1229:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1229 | LISPFUNNR(output_stream_p,1)
      |                                                                            ^     
../src/subr.d:1230:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1230 | LISPFUNN(stream_element_type_eq,2)
      |                                                                            ^     
../src/subr.d:1231:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1231 | LISPFUNNR(built_in_stream_element_type,1)
      |                                                                            ^     
../src/subr.d:1232:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1232 | LISPFUNN(built_in_stream_set_element_type,2)
      |                                                                            ^     
../src/subr.d:1233:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1233 | LISPFUNNR(stream_external_format,1)
      |                                                                            ^     
../src/subr.d:1234:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1234 | LISPFUN(set_stream_external_format,seclass_default,2,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1235:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1235 | LISPFUNN(interactive_stream_p,1)
      |                                                                            ^     
../src/subr.d:1237:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1237 | LISPFUN(read_byte,seclass_default,1,2,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1238:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1238 | LISPFUNN(read_byte_lookahead,1)
      |                                                                            ^     
../src/subr.d:1239:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1239 | LISPFUNN(read_byte_will_hang_p,1)
      |                                                                            ^     
../src/subr.d:1240:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1240 | LISPFUN(read_byte_no_hang,seclass_default,1,2,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1241:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1241 | LISPFUN(read_integer,seclass_default,2,3,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1242:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1242 | LISPFUN(read_float,seclass_default,2,3,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1243:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1243 | LISPFUNN(write_byte,2)
      |                                                                            ^     
../src/subr.d:1244:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1244 | LISPFUN(write_integer,seclass_default,3,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1245:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1245 | LISPFUN(write_float,seclass_default,3,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1246:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1246 | LISPFUN(file_position,seclass_default,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1247:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1247 | LISPFUNNR(file_length,1)
      |                                                                            ^     
../src/subr.d:1248:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1248 | LISPFUNN(file_string_length,2)
      |                                                                            ^     
../src/subr.d:1249:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1249 | LISPFUNN(line_number,1)
      |                                                                            ^     
../src/subr.d:1250:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1250 | LISPFUN(stream_fasl_p,seclass_default,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1251:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1251 | LISPFUNN(defgray,1)
      |                                                                            ^     
../src/subr.d:1253:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1253 | LISPFUNN(putd,2)
      |                                                                            ^     
../src/subr.d:1254:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1254 | LISPFUNN(find_subr,1)
      |                                                                            ^     
../src/subr.d:1255:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1255 | LISPFUNN(proclaim_constant,2)
      |                                                                            ^     
../src/subr.d:1256:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1256 | LISPFUNN(proclaim_symbol_macro,1)
      |                                                                            ^     
../src/subr.d:1257:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1257 | LISPFUN(get,seclass_read,2,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1258:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1258 | LISPFUN(getf,seclass_read,2,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1259:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1259 | LISPFUNN(putf,3)
      |                                                                            ^     
../src/subr.d:1260:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1260 | LISPFUNN(remf,2)
      |                                                                            ^     
../src/subr.d:1261:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1261 | LISPFUNNR(get_properties,2)
      |                                                                            ^     
../src/subr.d:1262:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1262 | LISPFUNN(putplist,2)
      |                                                                            ^     
../src/subr.d:1263:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1263 | LISPFUNN(put,3)
      |                                                                            ^     
../src/subr.d:1264:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1264 | LISPFUNN(remprop,2)
      |                                                                            ^     
../src/subr.d:1265:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1265 | LISPFUNNR(symbol_package,1)
      |                                                                            ^     
../src/subr.d:1266:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1266 | LISPFUNNR(symbol_plist,1)
      |                                                                            ^     
../src/subr.d:1267:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1267 | LISPFUN(symbol_name,seclass_no_se,1,0,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1268:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1268 | LISPFUNNR(cs_symbol_name,1)
      |                                                                            ^     
../src/subr.d:1269:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1269 | LISPFUNNR(keywordp,1)
      |                                                                            ^     
../src/subr.d:1270:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1270 | LISPFUN(gensym,seclass_read,0,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1271:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1271 | LISPFUN(gentemp,seclass_read,0,2,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1273:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1273 | LISPFUN(decimal_string,seclass_no_se,1,0,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1274:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1274 | LISPFUNNF(zerop,1)
      |                                                                            ^     
../src/subr.d:1275:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1275 | LISPFUNNF(plusp,1)
      |                                                                            ^     
../src/subr.d:1276:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1276 | LISPFUNNF(minusp,1)
      |                                                                            ^     
../src/subr.d:1277:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1277 | LISPFUNNF(oddp,1)
      |                                                                            ^     
../src/subr.d:1278:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1278 | LISPFUNNF(evenp,1)
      |                                                                            ^     
../src/subr.d:1279:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1279 | LISPFUN(numequal,seclass_foldable,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1280:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1280 | LISPFUN(numunequal,seclass_foldable,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1281:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1281 | LISPFUN(smaller,seclass_foldable,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1282:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1282 | LISPFUN(greater,seclass_foldable,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1283:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1283 | LISPFUN(ltequal,seclass_foldable,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1284:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1284 | LISPFUN(gtequal,seclass_foldable,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1285:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1285 | LISPFUN(max,seclass_foldable,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1286:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1286 | LISPFUN(min,seclass_foldable,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1287:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1287 | LISPFUN(plus,seclass_foldable,0,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1288:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1288 | LISPFUN(minus,seclass_foldable,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1289:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1289 | LISPFUN(star,seclass_foldable,0,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1290:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1290 | LISPFUN(slash,seclass_foldable,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1291:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1291 | LISPFUNNF(plus_one,1)
      |                                                                            ^     
../src/subr.d:1292:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1292 | LISPFUNNF(minus_one,1)
      |                                                                            ^     
../src/subr.d:1293:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1293 | LISPFUNNF(conjugate,1)
      |                                                                            ^     
../src/subr.d:1294:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1294 | LISPFUN(gcd,seclass_foldable,0,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1295:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1295 | LISPFUN(xgcd,seclass_foldable,0,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1296:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1296 | LISPFUN(lcm,seclass_foldable,0,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1297:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1297 | LISPFUNNR(exp,1)
      |                                                                            ^     
../src/subr.d:1298:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1298 | LISPFUNNR(expt,2)
      |                                                                            ^     
../src/subr.d:1299:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1299 | LISPFUN(log,seclass_read,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1300:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1300 | LISPFUNNR(sqrt,1)
      |                                                                            ^     
../src/subr.d:1301:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1301 | LISPFUNNF(isqrt,1)
      |                                                                            ^     
../src/subr.d:1302:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1302 | LISPFUNNR(abs,1)
      |                                                                            ^     
../src/subr.d:1303:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1303 | LISPFUNNR(phase,1)
      |                                                                            ^     
../src/subr.d:1304:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1304 | LISPFUNNR(signum,1)
      |                                                                            ^     
../src/subr.d:1305:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1305 | LISPFUNNR(sin,1)
      |                                                                            ^     
../src/subr.d:1306:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1306 | LISPFUNNR(cos,1)
      |                                                                            ^     
../src/subr.d:1307:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1307 | LISPFUNNR(tan,1)
      |                                                                            ^     
../src/subr.d:1308:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1308 | LISPFUNNR(cis,1)
      |                                                                            ^     
../src/subr.d:1309:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1309 | LISPFUNNR(asin,1)
      |                                                                            ^     
../src/subr.d:1310:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1310 | LISPFUNNR(acos,1)
      |                                                                            ^     
../src/subr.d:1311:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1311 | LISPFUN(atan,seclass_read,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1312:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1312 | LISPFUNNR(sinh,1)
      |                                                                            ^     
../src/subr.d:1313:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1313 | LISPFUNNR(cosh,1)
      |                                                                            ^     
../src/subr.d:1314:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1314 | LISPFUNNR(tanh,1)
      |                                                                            ^     
../src/subr.d:1315:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1315 | LISPFUNNR(asinh,1)
      |                                                                            ^     
../src/subr.d:1316:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1316 | LISPFUNNR(acosh,1)
      |                                                                            ^     
../src/subr.d:1317:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1317 | LISPFUNNR(atanh,1)
      |                                                                            ^     
../src/subr.d:1318:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1318 | LISPFUN(float,seclass_read,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1319:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1319 | LISPFUNNF(rational,1)
      |                                                                            ^     
../src/subr.d:1320:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1320 | LISPFUNNF(rationalize,1)
      |                                                                            ^     
../src/subr.d:1321:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1321 | LISPFUNNF(numerator,1)
      |                                                                            ^     
../src/subr.d:1322:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1322 | LISPFUNNF(denominator,1)
      |                                                                            ^     
../src/subr.d:1323:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1323 | LISPFUN(floor,seclass_foldable,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1324:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1324 | LISPFUN(ceiling,seclass_foldable,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1325:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1325 | LISPFUN(truncate,seclass_foldable,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1326:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1326 | LISPFUN(round,seclass_foldable,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1327:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1327 | LISPFUNNF(mod,2)
      |                                                                            ^     
../src/subr.d:1328:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1328 | LISPFUNNF(rem,2)
      |                                                                            ^     
../src/subr.d:1329:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1329 | LISPFUN(ffloor,seclass_read,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1330:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1330 | LISPFUN(fceiling,seclass_read,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1331:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1331 | LISPFUN(ftruncate,seclass_read,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1332:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1332 | LISPFUN(fround,seclass_read,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1333:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1333 | LISPFUNNF(decode_float,1)
      |                                                                            ^     
../src/subr.d:1334:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1334 | LISPFUNNF(scale_float,2)
      |                                                                            ^     
../src/subr.d:1335:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1335 | LISPFUNNF(float_scale_exponent,1)
      |                                                                            ^     
../src/subr.d:1336:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1336 | LISPFUNNF(float_radix,1)
      |                                                                            ^     
../src/subr.d:1337:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1337 | LISPFUN(float_sign,seclass_foldable,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1338:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1338 | LISPFUN(float_digits,seclass_foldable,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1339:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1339 | LISPFUNNF(float_precision,1)
      |                                                                            ^     
../src/subr.d:1340:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1340 | LISPFUNNF(integer_decode_float,1)
      |                                                                            ^     
../src/subr.d:1341:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1341 | LISPFUN(complex,seclass_foldable,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1342:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1342 | LISPFUNNF(realpart,1)
      |                                                                            ^     
../src/subr.d:1343:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1343 | LISPFUNNF(imagpart,1)
      |                                                                            ^     
../src/subr.d:1344:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1344 | LISPFUN(logior,seclass_foldable,0,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1345:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1345 | LISPFUN(logxor,seclass_foldable,0,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1346:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1346 | LISPFUN(logand,seclass_foldable,0,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1347:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1347 | LISPFUN(logeqv,seclass_foldable,0,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1348:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1348 | LISPFUNNF(lognand,2)
      |                                                                            ^     
../src/subr.d:1349:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1349 | LISPFUNNF(lognor,2)
      |                                                                            ^     
../src/subr.d:1350:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1350 | LISPFUNNF(logandc1,2)
      |                                                                            ^     
../src/subr.d:1351:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1351 | LISPFUNNF(logandc2,2)
      |                                                                            ^     
../src/subr.d:1352:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1352 | LISPFUNNF(logorc1,2)
      |                                                                            ^     
../src/subr.d:1353:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1353 | LISPFUNNF(logorc2,2)
      |                                                                            ^     
../src/subr.d:1354:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1354 | LISPFUNNF(boole,3)
      |                                                                            ^     
../src/subr.d:1355:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1355 | LISPFUNNF(lognot,1)
      |                                                                            ^     
../src/subr.d:1356:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1356 | LISPFUNNF(logtest,2)
      |                                                                            ^     
../src/subr.d:1357:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1357 | LISPFUNNF(logbitp,2)
      |                                                                            ^     
../src/subr.d:1358:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1358 | LISPFUNNF(ash,2)
      |                                                                            ^     
../src/subr.d:1359:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1359 | LISPFUNNF(logcount,1)
      |                                                                            ^     
../src/subr.d:1360:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1360 | LISPFUNNF(integer_length,1)
      |                                                                            ^     
../src/subr.d:1361:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1361 | LISPFUNNR(byte,2)
      |                                                                            ^     
../src/subr.d:1362:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1362 | LISPFUNNR(bytesize,1)
      |                                                                            ^     
../src/subr.d:1363:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1363 | LISPFUNNR(byteposition,1)
      |                                                                            ^     
../src/subr.d:1364:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1364 | LISPFUNNF(ldb,2)
      |                                                                            ^     
../src/subr.d:1365:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1365 | LISPFUNNF(ldb_test,2)
      |                                                                            ^     
../src/subr.d:1366:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1366 | LISPFUNNF(mask_field,2)
      |                                                                            ^     
../src/subr.d:1367:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1367 | LISPFUNNF(dpb,3)
      |                                                                            ^     
../src/subr.d:1368:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1368 | LISPFUNNF(deposit_field,3)
      |                                                                            ^     
../src/subr.d:1369:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1369 | LISPFUN(random,seclass_default,1,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1370:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1370 | LISPFUN(random_posfixnum,seclass_default,0,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1371:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1371 | LISPFUN(make_random_state,seclass_default,0,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1372:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1372 | LISPFUNNF(factorial,1)
      |                                                                            ^     
../src/subr.d:1373:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1373 | LISPFUNNF(exquo,2)
      |                                                                            ^     
../src/subr.d:1374:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1374 | LISPFUNNF(mod_expt,3)
      |                                                                            ^     
../src/subr.d:1375:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1375 | LISPFUNN(long_float_digits,0)
      |                                                                            ^     
../src/subr.d:1376:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1376 | LISPFUNN(set_long_float_digits,1)
      |                                                                            ^     
../src/subr.d:1377:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1377 | LISPFUNNR(log2,1)
      |                                                                            ^     
../src/subr.d:1378:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1378 | LISPFUNNR(log10,1)
      |                                                                            ^     
../src/spvw.d: In function ‘init_memory’:
../src/spvw.d:3496:17: warning: unused variable ‘teil’ [-Wunused-variable]
 3496 |         var uintM teil = free_reserved/teile; /* a sub block, a 1/16 of the room */
      |                 ^~~~
../src/spvw.d:3486:15: warning: unused variable ‘for_objects’ [-Wunused-variable]
 3486 |       var uintM for_objects;    /* number of bytes for Lisp-objects */
      |               ^~~~~~~~~~~
../src/spvw.d:3485:15: warning: variable ‘for_STACK’ set but not used [-Wunused-but-set-variable]
 3485 |       var uintM for_STACK;      /* number of bytes for Lisp-stack */
      |               ^~~~~~~~~
../src/spvw.d:3149:13: warning: unused variable ‘pagesize’ [-Wunused-variable]
 3149 |     var uintL pagesize =        /* size of a page */
      |             ^~~~~~~~
../src/spvw.d: In function ‘dynload_modules’:
../src/spvw.d:4612:26: warning: unused variable ‘err’ [-Wunused-variable]
 4612 |           var const char * err;
      |                          ^~~
../src/spvw.d:4611:19: warning: unused variable ‘len’ [-Wunused-variable]
 4611 |           var uintL len = asciz_length(modname);
      |                   ^~~
In file included from ../src/spvw.d:306:
../src/spvw_singlemap.d: At top level:
../src/spvw_singlemap.d:30:14: warning: ‘filemap’ declared ‘static’ but never defined [-Wunused-function]
   30 | local void* filemap (void* map_addr, uintM map_len, int fd, off_t offset)
      |              ^~~~~~~
../src/spvw_sigsegv.d:17:13: warning: ‘install_stackoverflow_handler’ declared ‘static’ but never defined [-Wunused-function]
   17 | local void install_stackoverflow_handler (uintL size);
      |             ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
In file included from ../src/spvw.d:1049:
../src/spvw_sigpipe.d:13:13: warning: ‘install_sigpipe_handler’ declared ‘static’ but never defined [-Wunused-function]
   13 | local void install_sigpipe_handler (void);
      |             ^~~~~~~~~~~~~~~~~~~~~~~
In file included from ../src/spvw.d:1050:
../src/spvw_sigint.d:7:13: warning: ‘install_sigint_handler’ declared ‘static’ but never defined [-Wunused-function]
    7 | local void install_sigint_handler (void);
      |             ^~~~~~~~~~~~~~~~~~~~~~
In file included from ../src/spvw.d:1051:
../src/spvw_sigwinch.d:7:13: warning: ‘install_sigwinch_handler’ declared ‘static’ but never defined [-Wunused-function]
    7 | local void install_sigwinch_handler (void);
      |             ^~~~~~~~~~~~~~~~~~~~~~~~
../src/spvw.d: In function ‘near_SP_overflow’:
../src/spvw.d:968:3: warning: ignoring return value of ‘__builtin_alloca’ declared with attribute ‘warn_unused_result’ [-Wunused-result]
  968 |   alloca(1);                    /* Makes this function non-inlinable. */
      |   ^~~~~~~~~~~~~~~~~~~
../src/spvw.d: In function ‘size_arg’:
../src/spvw.d:2526:11: warning: this statement may fall through [-Wimplicit-fallthrough=]
 2526 |       val *= sizeof(gcv_object_t); /*FALLTHROUGH*/
      |       ~~~~^~~~~~~~~~~~~~~~~~~~~~~
../src/spvw.d:2527:5: note: here
 2527 |     case 'b': case 'B':            /* in bytes */
      |     ^~~~
../src/spvw.d: In function ‘install_global_handlers’:
../src/spvw.d:2393:7: warning: this statement may fall through [-Wimplicit-fallthrough=]
 2393 |       funcall(S(set_global_handler),2);
      |       ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                           
../src/spvw.d:2395:5: note: here
 2395 |     case ON_ERROR_APPEASE: appease: {
      |     ^~~~
../src/spvw_allocate.d: At top level:
../src/spvw_allocate.d:188:14: warning: ‘mymalloc’ defined but not used [-Wunused-function]
  188 | local void* mymalloc (uintM need)
      |              ^~~~~~~~
In file included from ../src/spvw.d:263:
../src/spvw_mmap.d:546:14: warning: ‘mmap_filemap’ defined but not used [-Wunused-function]
  546 | local void* mmap_filemap (void* map_addr, uintM map_len, int fd, off_t offset)
      |              ^~~~~~~~~~~~
In file included from ../src/spvw.d:160:
../src/spvw_debug.d:13:13: warning: ‘mem_hex_out’ defined but not used [-Wunused-function]
   13 | local void mem_hex_out (const void* buf, uintL count) {
      |             ^~~~~~~~~~~
In file included from ../src/spvw_garcol.d:210,
                 from ../src/spvw.d:1068:
../src/spvw_weak.d: In function ‘gc_mark_weakpointers’:
../src/spvw_weak.d:927:24: warning: storing the address of local variable ‘markwatch_queue_head’ in ‘markwatch_queue_tail’ [-Wdangling-pointer=]
  927 |   markwatch_queue_tail = &markwatch_queue_head;
      |   ~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~
../src/spvw_weak.d:926:18: note: ‘markwatch_queue_head’ declared here
  926 |   var markwatch_t* markwatch_queue_head = &markwatch_queue_end;
      |                  ^~~~~~~~~~~~~~~~~~~~
../src/spvw_weak.d:22:22: note: ‘markwatch_queue_tail’ declared here
   22 | local markwatch_t** markwatch_queue_tail;
      |                      ^~~~~~~~~~~~~~~~~~~~
../src/spvw.d: In function ‘main_actions’:
../src/spvw.d:3891:13: warning: variable ‘count’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered]
 3891 |     var uintL count = p->argv_init_filecount;
      |             ^~~~~
../src/spvw.d:3909:36: warning: variable ‘fileptr’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered]
 3909 |       var const argv_compile_file_t* fileptr = &p->argv_compile_files[0];
      |                                    ^~~~~~~
../src/spvw.d:3910:15: warning: variable ‘count’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered]
 3910 |       var uintL count = p->argv_compile_filecount;
      |               ^~~~~
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -c spvwtabf.c
In file included from ../src/spvwtabf.d:8:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16711:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16711:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16711:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -c spvwtabs.c
In file included from ../src/spvwtabs.d:8:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16711:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16711:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16711:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -c spvwtabo.c
In file included from ../src/spvwtabo.d:8:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16711:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16711:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16711:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -c eval.c
In file included from ../src/eval.d:7:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16711:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16711:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16711:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
../src/eval.d: In function ‘reset’:
../src/eval.d:557:32: warning: cast between incompatible function types from ‘__attribute__((noreturn)) void (*)(uintL)’ {aka ‘__attribute__((noreturn)) void (*)(unsigned int)’} to ‘__attribute__((noreturn)) void (*)(void **)’ [-Wcast-function-type]
  557 |   unwind_protect_to_save.fun = (restartf_t)&reset;
      |                                ^
../src/eval.d: In function ‘macroexp0’:
../src/eval.d:1544:14: warning: unused variable ‘val’ [-Wunused-variable]
 1544 |     var object val = sym_value(form,TheSvector(env)->data[0],&symbolmacro);
      |              ^~~
../src/eval.d: In function ‘get_closure’:
../src/eval.d:1824:28: warning: unused variable ‘stack_env’ [-Wunused-variable]
 1824 |       var gcv_environment_t* stack_env = nest_env(env); /* push on STACK */
      |                            ^~~~~~~~~
../src/eval.d:1979:2: warning: label ‘req’ defined but not used [-Wunused-label]
 1979 |  req: /* process required-parameter push on STACK: */
      |  ^~~
../src/eval.d: In function ‘interpret_bytecode_’:
../src/eval.d:5872:2: warning: label ‘next_byte’ defined but not used [-Wunused-label]
 5872 |  next_byte:
      |  ^~~~~~~~~
../src/eval.d: At top level:
../src/eval.d:4151:23: warning: ‘error_subr_toomany’ declared ‘static’ but never defined [-Wunused-function]
 4151 | local _Noreturn void error_subr_toomany (object fun);
      |                       ^~~~~~~~~~~~~~~~~~
../src/eval.d:4157:23: warning: ‘error_subr_toofew’ declared ‘static’ but never defined [-Wunused-function]
 4157 | local _Noreturn void error_subr_toofew (object fun, object tail);
      |                       ^~~~~~~~~~~~~~~~~
../src/eval.d:4472:23: warning: ‘error_closure_toomany’ declared ‘static’ but never defined [-Wunused-function]
 4472 | local _Noreturn void error_closure_toomany (object closure);
      |                       ^~~~~~~~~~~~~~~~~~~~~
../src/eval.d:4478:23: warning: ‘error_closure_toofew’ declared ‘static’ but never defined [-Wunused-function]
 4478 | local _Noreturn void error_closure_toofew (object closure, object tail);
      |                       ^~~~~~~~~~~~~~~~~~~~
../src/eval.d: In function ‘eval_subr’:
../src/eval.d:3409:246: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3409 |       REQ_ARG();
      |                                                                                                                                                                                                                                                      ^            
../src/eval.d:3410:5: note: here
 3410 |     case (uintW)subr_argtype_5_0: /* SUBR with 5 required arguments */
      |     ^~~~
../src/eval.d:3411:246: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3411 |       REQ_ARG();
      |                                                                                                                                                                                                                                                      ^            
../src/eval.d:3412:5: note: here
 3412 |     case (uintW)subr_argtype_4_0: /* SUBR with 4 required arguments */
      |     ^~~~
../src/eval.d:3413:246: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3413 |       REQ_ARG();
      |                                                                                                                                                                                                                                                      ^            
../src/eval.d:3414:5: note: here
 3414 |     case (uintW)subr_argtype_3_0: /* SUBR with 3 required arguments */
      |     ^~~~
../src/eval.d:3415:246: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3415 |       REQ_ARG();
      |                                                                                                                                                                                                                                                      ^            
../src/eval.d:3416:5: note: here
 3416 |     case (uintW)subr_argtype_2_0: /* SUBR with 2 required arguments */
      |     ^~~~
../src/eval.d:3417:246: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3417 |       REQ_ARG();
      |                                                                                                                                                                                                                                                      ^            
../src/eval.d:3418:5: note: here
 3418 |     case (uintW)subr_argtype_1_0: /* SUBR with 1 required argument */
      |     ^~~~
../src/eval.d:3419:246: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3419 |       REQ_ARG();
      |                                                                                                                                                                                                                                                      ^            
../src/eval.d:3420:5: note: here
 3420 |     case (uintW)subr_argtype_0_0: /* SUBR without Arguments */
      |     ^~~~
../src/eval.d:3424:246: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3424 |       REQ_ARG();
      |                                                                                                                                                                                                                                                      ^            
../src/eval.d:3425:5: note: here
 3425 |     case (uintW)subr_argtype_3_1: /* SUBR with 3 required and 1 optional */
      |     ^~~~
../src/eval.d:3426:246: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3426 |       REQ_ARG();
      |                                                                                                                                                                                                                                                      ^            
../src/eval.d:3427:5: note: here
 3427 |     case (uintW)subr_argtype_2_1: /* SUBR with 2 required and 1 optional */
      |     ^~~~
../src/eval.d:3428:246: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3428 |       REQ_ARG();
      |                                                                                                                                                                                                                                                      ^            
../src/eval.d:3429:5: note: here
 3429 |     case (uintW)subr_argtype_1_1: /* SUBR with 1 required and 1 optional */
      |     ^~~~
../src/eval.d:3430:246: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3430 |       REQ_ARG();
      |                                                                                                                                                                                                                                                      ^            
../src/eval.d:3431:5: note: here
 3431 |     case (uintW)subr_argtype_0_1: /* SUBR with 1 optional argument */
      |     ^~~~
../src/eval.d:3436:246: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3436 |       REQ_ARG();
      |                                                                                                                                                                                                                                                      ^            
../src/eval.d:3437:5: note: here
 3437 |     case (uintW)subr_argtype_2_2: /* SUBR with 2 required and 2 optional */
      |     ^~~~
../src/eval.d:3438:246: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3438 |       REQ_ARG();
      |                                                                                                                                                                                                                                                      ^            
../src/eval.d:3439:5: note: here
 3439 |     case (uintW)subr_argtype_1_2: /* SUBR with 1 required and 2 optional */
      |     ^~~~
../src/eval.d:3440:246: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3440 |       REQ_ARG();
      |                                                                                                                                                                                                                                                      ^            
../src/eval.d:3441:5: note: here
 3441 |     case (uintW)subr_argtype_0_2: /* SUBR with 2 optional arguments */
      |     ^~~~
../src/eval.d:3447:246: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3447 |       REQ_ARG();
      |                                                                                                                                                                                                                                                      ^            
../src/eval.d:3448:5: note: here
 3448 |     case (uintW)subr_argtype_1_3: /* SUBR with 1 required and 3 optional */
      |     ^~~~
../src/eval.d:3449:246: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3449 |       REQ_ARG();
      |                                                                                                                                                                                                                                                      ^            
../src/eval.d:3450:5: note: here
 3450 |     case (uintW)subr_argtype_0_3: /* SUBR with 3 optional arguments */
      |     ^~~~
../src/eval.d:3457:253: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3457 |       OPT_ARG(5);
      |                                                                                                                                                                                                                                                             ^            
../src/eval.d:3458:5: note: here
 3458 |     case (uintW)subr_argtype_0_4: /* SUBR with 4 optional arguments */
      |     ^~~~
../src/eval.d:3478:246: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3478 |       REQ_ARG();
      |                                                                                                                                                                                                                                                      ^            
../src/eval.d:3479:5: note: here
 3479 |     case (uintW)subr_argtype_2_0_rest: /* SUBR with 2 required and rest */
      |     ^~~~
../src/eval.d:3480:246: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3480 |       REQ_ARG();
      |                                                                                                                                                                                                                                                      ^            
../src/eval.d:3481:5: note: here
 3481 |     case (uintW)subr_argtype_1_0_rest: /* SUBR with 1 required and rest */
      |     ^~~~
../src/eval.d:3482:246: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3482 |       REQ_ARG();
      |                                                                                                                                                                                                                                                      ^            
../src/eval.d:3483:5: note: here
 3483 |     case (uintW)subr_argtype_0_0_rest: /* SUBR with &rest Arguments */
      |     ^~~~
../src/eval.d:3496:246: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3496 |       REQ_ARG();
      |                                                                                                                                                                                                                                                      ^            
../src/eval.d:3497:5: note: here
 3497 |     case (uintW)subr_argtype_3_0_key: /* SUBR with 3 required and &key */
      |     ^~~~
../src/eval.d:3498:246: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3498 |       REQ_ARG();
      |                                                                                                                                                                                                                                                      ^            
../src/eval.d:3499:5: note: here
 3499 |     case (uintW)subr_argtype_2_0_key: /* SUBR with 2 required and &key */
      |     ^~~~
../src/eval.d:3500:246: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3500 |       REQ_ARG();
      |                                                                                                                                                                                                                                                      ^            
../src/eval.d:3501:5: note: here
 3501 |     case (uintW)subr_argtype_1_0_key: /* SUBR with 1 required and &key */
      |     ^~~~
../src/eval.d:3502:246: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3502 |       REQ_ARG();
      |                                                                                                                                                                                                                                                      ^            
../src/eval.d:3503:5: note: here
 3503 |     case (uintW)subr_argtype_0_0_key: /* SUBR with &key */
      |     ^~~~
../src/eval.d:3508:246: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3508 |       REQ_ARG();
      |                                                                                                                                                                                                                                                      ^            
../src/eval.d:3509:5: note: here
 3509 |     case (uintW)subr_argtype_0_1_key: /* SUBR with 1 optional and &key */
      |     ^~~~
../src/eval.d: In function ‘eval_closure’:
../src/eval.d:3692:248: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3692 |         REQ_ARG();
      |                                                                                                                                                                                                                                                        ^            
../src/eval.d:3693:7: note: here
 3693 |       case (uintB)cclos_argtype_4_0: /* 4 required arguments */
      |       ^~~~
../src/eval.d:3694:248: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3694 |         REQ_ARG();
      |                                                                                                                                                                                                                                                        ^            
../src/eval.d:3695:7: note: here
 3695 |       case (uintB)cclos_argtype_3_0: /* 3 required arguments */
      |       ^~~~
../src/eval.d:3696:248: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3696 |         REQ_ARG();
      |                                                                                                                                                                                                                                                        ^            
../src/eval.d:3697:7: note: here
 3697 |       case (uintB)cclos_argtype_2_0: /* 2 required arguments */
      |       ^~~~
../src/eval.d:3698:248: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3698 |         REQ_ARG();
      |                                                                                                                                                                                                                                                        ^            
../src/eval.d:3699:7: note: here
 3699 |       case (uintB)cclos_argtype_1_0: /* 1 required argument */
      |       ^~~~
../src/eval.d:3700:248: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3700 |         REQ_ARG();
      |                                                                                                                                                                                                                                                        ^            
../src/eval.d:3701:7: note: here
 3701 |       case (uintB)cclos_argtype_0_0: /* no Arguments */
      |       ^~~~
../src/eval.d:3706:248: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3706 |         REQ_ARG();
      |                                                                                                                                                                                                                                                        ^            
../src/eval.d:3707:7: note: here
 3707 |       case (uintB)cclos_argtype_3_1: /* 3 required and 1 optional */
      |       ^~~~
../src/eval.d:3708:248: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3708 |         REQ_ARG();
      |                                                                                                                                                                                                                                                        ^            
../src/eval.d:3709:7: note: here
 3709 |       case (uintB)cclos_argtype_2_1: /* 2 required and 1 optional */
      |       ^~~~
../src/eval.d:3710:248: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3710 |         REQ_ARG();
      |                                                                                                                                                                                                                                                        ^            
../src/eval.d:3711:7: note: here
 3711 |       case (uintB)cclos_argtype_1_1: /* 1 required and 1 optional */
      |       ^~~~
../src/eval.d:3712:248: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3712 |         REQ_ARG();
      |                                                                                                                                                                                                                                                        ^            
../src/eval.d:3713:7: note: here
 3713 |       case (uintB)cclos_argtype_0_1: /* 1 optional argument */
      |       ^~~~
../src/eval.d:3718:248: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3718 |         REQ_ARG();
      |                                                                                                                                                                                                                                                        ^            
../src/eval.d:3719:7: note: here
 3719 |       case (uintB)cclos_argtype_2_2: /* 2 required and 2 optional */
      |       ^~~~
../src/eval.d:3720:248: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3720 |         REQ_ARG();
      |                                                                                                                                                                                                                                                        ^            
../src/eval.d:3721:7: note: here
 3721 |       case (uintB)cclos_argtype_1_2: /* 1 required and 2 optional */
      |       ^~~~
../src/eval.d:3722:248: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3722 |         REQ_ARG();
      |                                                                                                                                                                                                                                                        ^            
../src/eval.d:3723:7: note: here
 3723 |       case (uintB)cclos_argtype_0_2: /* 2 optional arguments */
      |       ^~~~
../src/eval.d:3728:248: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3728 |         REQ_ARG();
      |                                                                                                                                                                                                                                                        ^            
../src/eval.d:3729:7: note: here
 3729 |       case (uintB)cclos_argtype_1_3: /* 1 required and 3 optional */
      |       ^~~~
../src/eval.d:3730:248: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3730 |         REQ_ARG();
      |                                                                                                                                                                                                                                                        ^            
../src/eval.d:3731:7: note: here
 3731 |       case (uintB)cclos_argtype_0_3: /* 3 optional arguments */
      |       ^~~~
../src/eval.d:3736:248: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3736 |         REQ_ARG();
      |                                                                                                                                                                                                                                                        ^            
../src/eval.d:3737:7: note: here
 3737 |       case (uintB)cclos_argtype_0_4: /* 4 optional arguments */
      |       ^~~~
../src/eval.d:3757:248: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3757 |         REQ_ARG();
      |                                                                                                                                                                                                                                                        ^            
../src/eval.d:3758:7: note: here
 3758 |       case (uintB)cclos_argtype_3_0_rest: /* 3 required  + &rest */
      |       ^~~~
../src/eval.d:3759:248: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3759 |         REQ_ARG();
      |                                                                                                                                                                                                                                                        ^            
../src/eval.d:3760:7: note: here
 3760 |       case (uintB)cclos_argtype_2_0_rest: /* 2 required  + &rest */
      |       ^~~~
../src/eval.d:3761:248: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3761 |         REQ_ARG();
      |                                                                                                                                                                                                                                                        ^            
../src/eval.d:3762:7: note: here
 3762 |       case (uintB)cclos_argtype_1_0_rest: /* 1 required  + &rest */
      |       ^~~~
../src/eval.d:3763:248: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3763 |         REQ_ARG();
      |                                                                                                                                                                                                                                                        ^            
../src/eval.d:3764:7: note: here
 3764 |       case (uintB)cclos_argtype_0_0_rest: /* no Arguments, Rest-Parameter */
      |       ^~~~
../src/eval.d:3770:248: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3770 |         REQ_ARG();
      |                                                                                                                                                                                                                                                        ^            
../src/eval.d:3771:7: note: here
 3771 |       case (uintB)cclos_argtype_3_0_key: /* 3 required arguments, &key */
      |       ^~~~
../src/eval.d:3772:248: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3772 |         REQ_ARG();
      |                                                                                                                                                                                                                                                        ^            
../src/eval.d:3773:7: note: here
 3773 |       case (uintB)cclos_argtype_2_0_key: /* 2 required arguments, &key */
      |       ^~~~
../src/eval.d:3774:248: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3774 |         REQ_ARG();
      |                                                                                                                                                                                                                                                        ^            
../src/eval.d:3775:7: note: here
 3775 |       case (uintB)cclos_argtype_1_0_key: /* 1 required argument, &key */
      |       ^~~~
../src/eval.d:3778:38: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3778 |         closure = *closure_; codevec = TheCclosure(closure)->clos_codevec;
      |                              ~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
../src/eval.d:3779:7: note: here
 3779 |       case (uintB)cclos_argtype_0_0_key:
      |       ^~~~
../src/eval.d:3785:248: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3785 |         REQ_ARG();
      |                                                                                                                                                                                                                                                        ^            
../src/eval.d:3786:7: note: here
 3786 |       case (uintB)cclos_argtype_2_1_key:
      |       ^~~~
../src/eval.d:3788:248: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3788 |         REQ_ARG();
      |                                                                                                                                                                                                                                                        ^            
../src/eval.d:3789:7: note: here
 3789 |       case (uintB)cclos_argtype_1_1_key:
      |       ^~~~
../src/eval.d:3791:248: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3791 |         REQ_ARG();
      |                                                                                                                                                                                                                                                        ^            
../src/eval.d:3792:7: note: here
 3792 |       case (uintB)cclos_argtype_0_1_key:
      |       ^~~~
../src/eval.d:3798:248: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3798 |         REQ_ARG();
      |                                                                                                                                                                                                                                                        ^            
../src/eval.d:3799:7: note: here
 3799 |       case (uintB)cclos_argtype_1_2_key: /* 1 required and 2 optional, &key */
      |       ^~~~
../src/eval.d:3800:248: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3800 |         REQ_ARG();
      |                                                                                                                                                                                                                                                        ^            
../src/eval.d:3801:7: note: here
 3801 |       case (uintB)cclos_argtype_0_2_key: /* 2 optional arguments, &key */
      |       ^~~~
../src/eval.d:3806:248: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3806 |         REQ_ARG();
      |                                                                                                                                                                                                                                                        ^            
../src/eval.d:3807:7: note: here
 3807 |       case (uintB)cclos_argtype_0_3_key: /* 3 optional arguments, &key */
      |       ^~~~
../src/eval.d: In function ‘eval_fsubr’:
../src/eval.d:3224:152: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3224 |       REQ_PAR();
      |                                                                                                                                                        ^                                  
../src/eval.d:3225:5: note: here
 3225 |     case (uintW)fsubr_argtype_1_0_nobody:
      |     ^~~~
../src/eval.d:3232:152: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3232 |       REQ_PAR();
      |                                                                                                                                                        ^                                  
../src/eval.d:3233:5: note: here
 3233 |     case (uintW)fsubr_argtype_1_1_nobody:
      |     ^~~~
../src/eval.d:3247:152: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3247 |       REQ_PAR();
      |                                                                                                                                                        ^                                  
../src/eval.d:3248:5: note: here
 3248 |     case (uintW)fsubr_argtype_1_body:
      |     ^~~~
../src/eval.d:3250:152: warning: this statement may fall through [-Wimplicit-fallthrough=]
 3250 |       REQ_PAR();
      |                                                                                                                                                        ^                                  
../src/eval.d:3251:5: note: here
 3251 |     case (uintW)fsubr_argtype_0_body:
      |     ^~~~
../src/eval.d: In function ‘apply_closure’:
../src/eval.d:4518:14: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4518 |         REQ_ARG();
      |              ^
../src/eval.d:4519:7: note: here
 4519 |       case (uintB)cclos_argtype_4_0: /* 4 required arguments */
      |       ^~~~
../src/eval.d:4520:14: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4520 |         REQ_ARG();
      |              ^
../src/eval.d:4521:7: note: here
 4521 |       case (uintB)cclos_argtype_3_0: /* 3 required arguments */
      |       ^~~~
../src/eval.d:4522:14: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4522 |         REQ_ARG();
      |              ^
../src/eval.d:4523:7: note: here
 4523 |       case (uintB)cclos_argtype_2_0: /* 2 required arguments */
      |       ^~~~
../src/eval.d:4524:14: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4524 |         REQ_ARG();
      |              ^
../src/eval.d:4525:7: note: here
 4525 |       case (uintB)cclos_argtype_1_0: /* 1 required argument */
      |       ^~~~
../src/eval.d:4526:14: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4526 |         REQ_ARG();
      |              ^
../src/eval.d:4527:7: note: here
 4527 |       case (uintB)cclos_argtype_0_0: /* no Arguments */
      |       ^~~~
../src/eval.d:4538:14: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4538 |         REQ_ARG();
      |              ^
../src/eval.d:4539:7: note: here
 4539 |       case (uintB)cclos_argtype_3_1: /* 3 required and 1 optional */
      |       ^~~~
../src/eval.d:4540:14: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4540 |         REQ_ARG();
      |              ^
../src/eval.d:4541:7: note: here
 4541 |       case (uintB)cclos_argtype_2_1: /* 2 required and 1 optional */
      |       ^~~~
../src/eval.d:4542:14: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4542 |         REQ_ARG();
      |              ^
../src/eval.d:4543:7: note: here
 4543 |       case (uintB)cclos_argtype_1_1: /* 1 required and 1 optional */
      |       ^~~~
../src/eval.d:4544:14: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4544 |         REQ_ARG();
      |              ^
../src/eval.d:4545:7: note: here
 4545 |       case (uintB)cclos_argtype_0_1: /* 1 optional argument */
      |       ^~~~
../src/eval.d:4550:14: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4550 |         REQ_ARG();
      |              ^
../src/eval.d:4551:7: note: here
 4551 |       case (uintB)cclos_argtype_2_2: /* 2 required and 2 optional */
      |       ^~~~
../src/eval.d:4552:14: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4552 |         REQ_ARG();
      |              ^
../src/eval.d:4553:7: note: here
 4553 |       case (uintB)cclos_argtype_1_2: /* 1 required and 2 optional */
      |       ^~~~
../src/eval.d:4554:14: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4554 |         REQ_ARG();
      |              ^
../src/eval.d:4555:7: note: here
 4555 |       case (uintB)cclos_argtype_0_2: /* 2 optional arguments */
      |       ^~~~
../src/eval.d:4560:14: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4560 |         REQ_ARG();
      |              ^
../src/eval.d:4561:7: note: here
 4561 |       case (uintB)cclos_argtype_1_3: /* 1 required and 3 optional */
      |       ^~~~
../src/eval.d:4562:14: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4562 |         REQ_ARG();
      |              ^
../src/eval.d:4563:7: note: here
 4563 |       case (uintB)cclos_argtype_0_3: /* 3 optional arguments */
      |       ^~~~
../src/eval.d:4568:14: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4568 |         REQ_ARG();
      |              ^
../src/eval.d:4569:7: note: here
 4569 |       case (uintB)cclos_argtype_0_4: /* 4 optional arguments */
      |       ^~~~
../src/eval.d:4589:14: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4589 |         REQ_ARG();
      |              ^
../src/eval.d:4590:7: note: here
 4590 |       case (uintB)cclos_argtype_3_0_rest: /* 3 required + &rest */
      |       ^~~~
../src/eval.d:4591:14: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4591 |         REQ_ARG();
      |              ^
../src/eval.d:4592:7: note: here
 4592 |       case (uintB)cclos_argtype_2_0_rest: /* 2 required + &rest */
      |       ^~~~
../src/eval.d:4593:14: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4593 |         REQ_ARG();
      |              ^
../src/eval.d:4594:7: note: here
 4594 |       case (uintB)cclos_argtype_1_0_rest: /* 1 required + &rest */
      |       ^~~~
../src/eval.d:4599:14: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4599 |         REQ_ARG();
      |              ^
../src/eval.d:4600:7: note: here
 4600 |       case (uintB)cclos_argtype_3_0_key: /* 3 required arguments, &key */
      |       ^~~~
../src/eval.d:4601:14: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4601 |         REQ_ARG();
      |              ^
../src/eval.d:4602:7: note: here
 4602 |       case (uintB)cclos_argtype_2_0_key: /* 2 required arguments, &key */
      |       ^~~~
../src/eval.d:4603:14: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4603 |         REQ_ARG();
      |              ^
../src/eval.d:4604:7: note: here
 4604 |       case (uintB)cclos_argtype_1_0_key: /* 1 required argument, &key */
      |       ^~~~
../src/eval.d:4605:14: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4605 |         REQ_ARG();
      |              ^
../src/eval.d:4606:9: note: here
 4606 |         noch_0_opt_args_key:
      |         ^~~~~~~~~~~~~~~~~~~
../src/eval.d:4612:14: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4612 |         REQ_ARG();
      |              ^
../src/eval.d:4613:7: note: here
 4613 |       case (uintB)cclos_argtype_2_1_key:
      |       ^~~~
../src/eval.d:4615:14: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4615 |         REQ_ARG();
      |              ^
../src/eval.d:4616:7: note: here
 4616 |       case (uintB)cclos_argtype_1_1_key:
      |       ^~~~
../src/eval.d:4618:14: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4618 |         REQ_ARG();
      |              ^
../src/eval.d:4619:7: note: here
 4619 |       case (uintB)cclos_argtype_0_1_key: /* 1 optional argument, &key */
      |       ^~~~
../src/eval.d:4625:14: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4625 |         REQ_ARG();
      |              ^
../src/eval.d:4626:7: note: here
 4626 |       case (uintB)cclos_argtype_1_2_key:
      |       ^~~~
../src/eval.d:4628:14: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4628 |         REQ_ARG();
      |              ^
../src/eval.d:4629:7: note: here
 4629 |       case (uintB)cclos_argtype_0_2_key:
      |       ^~~~
../src/eval.d:4636:14: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4636 |         REQ_ARG();
      |              ^
../src/eval.d:4637:7: note: here
 4637 |       case (uintB)cclos_argtype_0_3_key:
      |       ^~~~
../src/eval.d: In function ‘apply_subr’:
../src/eval.d:4195:12: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4195 |       REQ_ARG();
      |            ^
../src/eval.d:4196:5: note: here
 4196 |     case (uintW)subr_argtype_5_0: /* SUBR with 5 required arguments */
      |     ^~~~
../src/eval.d:4197:12: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4197 |       REQ_ARG();
      |            ^
../src/eval.d:4198:5: note: here
 4198 |     case (uintW)subr_argtype_4_0: /* SUBR with 4 required arguments */
      |     ^~~~
../src/eval.d:4199:12: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4199 |       REQ_ARG();
      |            ^
../src/eval.d:4200:5: note: here
 4200 |     case (uintW)subr_argtype_3_0: /* SUBR with 3 required arguments */
      |     ^~~~
../src/eval.d:4201:12: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4201 |       REQ_ARG();
      |            ^
../src/eval.d:4202:5: note: here
 4202 |     case (uintW)subr_argtype_2_0: /* SUBR with 2 required arguments */
      |     ^~~~
../src/eval.d:4203:12: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4203 |       REQ_ARG();
      |            ^
../src/eval.d:4204:5: note: here
 4204 |     case (uintW)subr_argtype_1_0: /* SUBR with 1 required argument */
      |     ^~~~
../src/eval.d:4205:12: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4205 |       REQ_ARG();
      |            ^
../src/eval.d:4206:5: note: here
 4206 |     case (uintW)subr_argtype_0_0: /* SUBR without Arguments */
      |     ^~~~
../src/eval.d:4210:12: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4210 |       REQ_ARG();
      |            ^
../src/eval.d:4211:5: note: here
 4211 |     case (uintW)subr_argtype_3_1: /* SUBR with 3 required and 1 optional */
      |     ^~~~
../src/eval.d:4212:12: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4212 |       REQ_ARG();
      |            ^
../src/eval.d:4213:5: note: here
 4213 |     case (uintW)subr_argtype_2_1: /* SUBR with 2 required and 1 optional */
      |     ^~~~
../src/eval.d:4214:12: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4214 |       REQ_ARG();
      |            ^
../src/eval.d:4215:5: note: here
 4215 |     case (uintW)subr_argtype_1_1: /* SUBR with 1 required and 1 optional */
      |     ^~~~
../src/eval.d:4216:12: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4216 |       REQ_ARG();
      |            ^
../src/eval.d:4217:5: note: here
 4217 |     case (uintW)subr_argtype_0_1: /* SUBR with 1 optional argument */
      |     ^~~~
../src/eval.d:4222:12: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4222 |       REQ_ARG();
      |            ^
../src/eval.d:4223:5: note: here
 4223 |     case (uintW)subr_argtype_2_2: /* SUBR with 2 required and 2 optional */
      |     ^~~~
../src/eval.d:4224:12: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4224 |       REQ_ARG();
      |            ^
../src/eval.d:4225:5: note: here
 4225 |     case (uintW)subr_argtype_1_2: /* SUBR with 1 required and 2 optional */
      |     ^~~~
../src/eval.d:4226:12: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4226 |       REQ_ARG();
      |            ^
../src/eval.d:4227:5: note: here
 4227 |     case (uintW)subr_argtype_0_2: /* SUBR with 2 optional arguments */
      |     ^~~~
../src/eval.d:4233:12: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4233 |       REQ_ARG();
      |            ^
../src/eval.d:4234:5: note: here
 4234 |     case (uintW)subr_argtype_1_3: /* SUBR with 1 required and 3 optional */
      |     ^~~~
../src/eval.d:4235:12: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4235 |       REQ_ARG();
      |            ^
../src/eval.d:4236:5: note: here
 4236 |     case (uintW)subr_argtype_0_3: /* SUBR with 3 optional arguments */
      |     ^~~~
../src/eval.d:4243:12: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4243 |       OPT_ARG(5);
      |            ^
../src/eval.d:4244:5: note: here
 4244 |     case (uintW)subr_argtype_0_4: /* SUBR with 4 optional arguments */
      |     ^~~~
../src/eval.d:4263:12: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4263 |       REQ_ARG();
      |            ^
../src/eval.d:4264:5: note: here
 4264 |     case (uintW)subr_argtype_2_0_rest: /* SUBR with 2 required and &rest */
      |     ^~~~
../src/eval.d:4265:12: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4265 |       REQ_ARG();
      |            ^
../src/eval.d:4266:5: note: here
 4266 |     case (uintW)subr_argtype_1_0_rest: /* SUBR with 1 required and &rest */
      |     ^~~~
../src/eval.d:4267:12: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4267 |       REQ_ARG();
      |            ^
../src/eval.d:4268:5: note: here
 4268 |     case (uintW)subr_argtype_0_0_rest: /* SUBR with rest arguments */
      |     ^~~~
../src/eval.d:4274:12: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4274 |       REQ_ARG();
      |            ^
../src/eval.d:4275:5: note: here
 4275 |     case (uintW)subr_argtype_3_0_key: /* SUBR with 3 required and &key */
      |     ^~~~
../src/eval.d:4276:12: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4276 |       REQ_ARG();
      |            ^
../src/eval.d:4277:5: note: here
 4277 |     case (uintW)subr_argtype_2_0_key: /* SUBR with 2 required and &key */
      |     ^~~~
../src/eval.d:4278:12: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4278 |       REQ_ARG();
      |            ^
../src/eval.d:4279:5: note: here
 4279 |     case (uintW)subr_argtype_1_0_key: /* SUBR with 1 required and &key */
      |     ^~~~
../src/eval.d:4280:12: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4280 |       REQ_ARG();
      |            ^
../src/eval.d:4281:5: note: here
 4281 |     case (uintW)subr_argtype_0_0_key: /* SUBR with &key */
      |     ^~~~
../src/eval.d:4286:12: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4286 |       REQ_ARG();
      |            ^
../src/eval.d:4287:5: note: here
 4287 |     case (uintW)subr_argtype_0_1_key:
      |     ^~~~
../src/eval.d: In function ‘funcall_closure’:
../src/eval.d:5339:203: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5339 |           case 0: { pushSTACK(unbound); }
      |                                                                                                                                                                                                           ^    
../src/eval.d:5340:11: note: here
 5340 |           case 1: { pushSTACK(unbound); }
      |           ^~~~
../src/eval.d:5347:203: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5347 |           case 1: { pushSTACK(unbound); }
      |                                                                                                                                                                                                           ^    
../src/eval.d:5348:11: note: here
 5348 |           case 2: { pushSTACK(unbound); }
      |           ^~~~
../src/eval.d:5355:203: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5355 |           case 2: { pushSTACK(unbound); }
      |                                                                                                                                                                                                           ^    
../src/eval.d:5356:11: note: here
 5356 |           case 3: { pushSTACK(unbound); }
      |           ^~~~
../src/eval.d:5363:203: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5363 |           case 3: { pushSTACK(unbound); }
      |                                                                                                                                                                                                           ^    
../src/eval.d:5364:11: note: here
 5364 |           case 4: { pushSTACK(unbound); }
      |           ^~~~
../src/eval.d:5370:203: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5370 |           case 0: { pushSTACK(unbound); }
      |                                                                                                                                                                                                           ^    
../src/eval.d:5371:11: note: here
 5371 |           case 1: { pushSTACK(unbound); }
      |           ^~~~
../src/eval.d:5371:203: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5371 |           case 1: { pushSTACK(unbound); }
      |                                                                                                                                                                                                           ^    
../src/eval.d:5372:11: note: here
 5372 |           case 2: { pushSTACK(unbound); }
      |           ^~~~
../src/eval.d:5379:203: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5379 |           case 1: { pushSTACK(unbound); }
      |                                                                                                                                                                                                           ^    
../src/eval.d:5380:11: note: here
 5380 |           case 2: { pushSTACK(unbound); }
      |           ^~~~
../src/eval.d:5380:203: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5380 |           case 2: { pushSTACK(unbound); }
      |                                                                                                                                                                                                           ^    
../src/eval.d:5381:11: note: here
 5381 |           case 3: { pushSTACK(unbound); }
      |           ^~~~
../src/eval.d:5388:203: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5388 |           case 2: { pushSTACK(unbound); }
      |                                                                                                                                                                                                           ^    
../src/eval.d:5389:11: note: here
 5389 |           case 3: { pushSTACK(unbound); }
      |           ^~~~
../src/eval.d:5389:203: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5389 |           case 3: { pushSTACK(unbound); }
      |                                                                                                                                                                                                           ^    
../src/eval.d:5390:11: note: here
 5390 |           case 4: { pushSTACK(unbound); }
      |           ^~~~
../src/eval.d:5396:203: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5396 |           case 0: { pushSTACK(unbound); }
      |                                                                                                                                                                                                           ^    
../src/eval.d:5397:11: note: here
 5397 |           case 1: { pushSTACK(unbound); }
      |           ^~~~
../src/eval.d:5397:203: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5397 |           case 1: { pushSTACK(unbound); }
      |                                                                                                                                                                                                           ^    
../src/eval.d:5398:11: note: here
 5398 |           case 2: { pushSTACK(unbound); }
      |           ^~~~
../src/eval.d:5398:203: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5398 |           case 2: { pushSTACK(unbound); }
      |                                                                                                                                                                                                           ^    
../src/eval.d:5399:11: note: here
 5399 |           case 3: { pushSTACK(unbound); }
      |           ^~~~
../src/eval.d:5406:203: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5406 |           case 1: { pushSTACK(unbound); }
      |                                                                                                                                                                                                           ^    
../src/eval.d:5407:11: note: here
 5407 |           case 2: { pushSTACK(unbound); }
      |           ^~~~
../src/eval.d:5407:203: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5407 |           case 2: { pushSTACK(unbound); }
      |                                                                                                                                                                                                           ^    
../src/eval.d:5408:11: note: here
 5408 |           case 3: { pushSTACK(unbound); }
      |           ^~~~
../src/eval.d:5408:203: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5408 |           case 3: { pushSTACK(unbound); }
      |                                                                                                                                                                                                           ^    
../src/eval.d:5409:11: note: here
 5409 |           case 4: { pushSTACK(unbound); }
      |           ^~~~
../src/eval.d:5415:203: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5415 |           case 0: { pushSTACK(unbound); }
      |                                                                                                                                                                                                           ^    
../src/eval.d:5416:11: note: here
 5416 |           case 1: { pushSTACK(unbound); }
      |           ^~~~
../src/eval.d:5416:203: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5416 |           case 1: { pushSTACK(unbound); }
      |                                                                                                                                                                                                           ^    
../src/eval.d:5417:11: note: here
 5417 |           case 2: { pushSTACK(unbound); }
      |           ^~~~
../src/eval.d:5417:203: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5417 |           case 2: { pushSTACK(unbound); }
      |                                                                                                                                                                                                           ^    
../src/eval.d:5418:11: note: here
 5418 |           case 3: { pushSTACK(unbound); }
      |           ^~~~
../src/eval.d:5418:203: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5418 |           case 3: { pushSTACK(unbound); }
      |                                                                                                                                                                                                           ^    
../src/eval.d:5419:11: note: here
 5419 |           case 4: { pushSTACK(unbound); }
      |           ^~~~
../src/eval.d: In function ‘funcall_subr’:
../src/eval.d:5028:201: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5028 |         case 0: { pushSTACK(unbound); }
      |                                                                                                                                                                                                         ^    
../src/eval.d:5029:9: note: here
 5029 |         case 1: { pushSTACK(unbound); }
      |         ^~~~
../src/eval.d:5036:201: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5036 |         case 1: { pushSTACK(unbound); }
      |                                                                                                                                                                                                         ^    
../src/eval.d:5037:9: note: here
 5037 |         case 2: { pushSTACK(unbound); }
      |         ^~~~
../src/eval.d:5045:201: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5045 |         case 2: { pushSTACK(unbound); }
      |                                                                                                                                                                                                         ^    
../src/eval.d:5046:9: note: here
 5046 |         case 3: { pushSTACK(unbound); }
      |         ^~~~
../src/eval.d:5055:201: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5055 |         case 3: { pushSTACK(unbound); }
      |                                                                                                                                                                                                         ^    
../src/eval.d:5056:9: note: here
 5056 |         case 4: { pushSTACK(unbound); }
      |         ^~~~
../src/eval.d:5062:201: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5062 |         case 0: { pushSTACK(unbound); }
      |                                                                                                                                                                                                         ^    
../src/eval.d:5063:9: note: here
 5063 |         case 1: { pushSTACK(unbound); }
      |         ^~~~
../src/eval.d:5063:201: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5063 |         case 1: { pushSTACK(unbound); }
      |                                                                                                                                                                                                         ^    
../src/eval.d:5064:9: note: here
 5064 |         case 2: { pushSTACK(unbound); }
      |         ^~~~
../src/eval.d:5071:201: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5071 |         case 1: { pushSTACK(unbound); }
      |                                                                                                                                                                                                         ^    
../src/eval.d:5072:9: note: here
 5072 |         case 2: { pushSTACK(unbound); }
      |         ^~~~
../src/eval.d:5072:201: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5072 |         case 2: { pushSTACK(unbound); }
      |                                                                                                                                                                                                         ^    
../src/eval.d:5073:9: note: here
 5073 |         case 3: { pushSTACK(unbound); }
      |         ^~~~
../src/eval.d:5081:201: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5081 |         case 2: { pushSTACK(unbound); }
      |                                                                                                                                                                                                         ^    
../src/eval.d:5082:9: note: here
 5082 |         case 3: { pushSTACK(unbound); }
      |         ^~~~
../src/eval.d:5082:201: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5082 |         case 3: { pushSTACK(unbound); }
      |                                                                                                                                                                                                         ^    
../src/eval.d:5083:9: note: here
 5083 |         case 4: { pushSTACK(unbound); }
      |         ^~~~
../src/eval.d:5089:201: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5089 |         case 0: { pushSTACK(unbound); }
      |                                                                                                                                                                                                         ^    
../src/eval.d:5090:9: note: here
 5090 |         case 1: { pushSTACK(unbound); }
      |         ^~~~
../src/eval.d:5090:201: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5090 |         case 1: { pushSTACK(unbound); }
      |                                                                                                                                                                                                         ^    
../src/eval.d:5091:9: note: here
 5091 |         case 2: { pushSTACK(unbound); }
      |         ^~~~
../src/eval.d:5091:201: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5091 |         case 2: { pushSTACK(unbound); }
      |                                                                                                                                                                                                         ^    
../src/eval.d:5092:9: note: here
 5092 |         case 3: { pushSTACK(unbound); }
      |         ^~~~
../src/eval.d:5098:201: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5098 |         case 0: { pushSTACK(unbound); }
      |                                                                                                                                                                                                         ^    
../src/eval.d:5099:9: note: here
 5099 |         case 1: { pushSTACK(unbound); }
      |         ^~~~
../src/eval.d:5099:201: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5099 |         case 1: { pushSTACK(unbound); }
      |                                                                                                                                                                                                         ^    
../src/eval.d:5100:9: note: here
 5100 |         case 2: { pushSTACK(unbound); }
      |         ^~~~
../src/eval.d:5100:201: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5100 |         case 2: { pushSTACK(unbound); }
      |                                                                                                                                                                                                         ^    
../src/eval.d:5101:9: note: here
 5101 |         case 3: { pushSTACK(unbound); }
      |         ^~~~
../src/eval.d:5101:201: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5101 |         case 3: { pushSTACK(unbound); }
      |                                                                                                                                                                                                         ^    
../src/eval.d:5102:9: note: here
 5102 |         case 4: { pushSTACK(unbound); }
      |         ^~~~
../src/eval.d: In function ‘eval’:
../src/eval.d:2973:22: warning: argument ‘form’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered]
 2973 | modexp maygc Values eval (object form)
      |               ~~~~~~~^~~~
../src/eval.d: In function ‘funcall_iclosure’:
../src/eval.d:2686:20: warning: variable ‘count’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered]
 2686 |           var uintC count;
      |                    ^~~~~
../src/eval.d:2701:25: warning: variable ‘rest_args_pointer’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered]
 2701 |         var gcv_object_t* rest_args_pointer = args_pointer;
      |                         ^~~~~~~~~~~~~~~~~
../src/eval.d:2730:278: warning: variable ‘find_count’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered]
 2730 |             dotimespC(count,count, {
      |                                                                                                                                                                                                                                                                                      ^         
../src/eval.d:2497:40: warning: argument ‘closure’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered]
 2497 | local maygc Values funcall_iclosure (object closure, gcv_object_t* args_pointer,
      |                                 ~~~~~~~^~~~~~~
../src/eval.d:2498:45: warning: argument ‘argcount’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered]
 2498 |                                      uintC argcount)
      |                                      ~~~~~~~^~~~~~~~
../src/eval.d: In function ‘interpret_bytecode_’:
../src/eval.d:5801:19: warning: variable ‘closureptr’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered]
 5801 |   var gcv_object_t* closureptr = (pushSTACK(closure), &STACK_0);
      |                   ^~~~~~~~~~
../src/eval.d:5772:43: warning: argument ‘closure’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered]
 5772 | local /*maygc*/ Values interpret_bytecode_ (object closure_in, Sbvector codeptr,
      |                                    ~~~~~~~^~~~~~~
../src/eval.d:5772:61: warning: argument ‘codeptr’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered]
 5772 | local /*maygc*/ Values interpret_bytecode_ (object closure_in, Sbvector codeptr,
      |                                                    ~~~~~~~~~^~~~~~~
../src/eval.d: In function ‘eval_no_hooks’:
../src/eval.d:3028:31: warning: argument ‘form’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered]
 3028 | global maygc Values eval_no_hooks (object form) {
      |                        ~~~~~~~^~~~
../src/eval.d: In function ‘invoke_handlers’:
../src/eval.d:711:20: warning: variable ‘other_ranges’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered]
  711 |   var stack_range_t* other_ranges = inactive_handlers;
      |                    ^~~~~~~~~~~~
../src/eval.d:714:19: warning: variable ‘FRAME’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered]
  714 |   var gcv_object_t* FRAME = STACK;
      |                   ^~~~~
../src/eval.d:728:17: warning: variable ‘i’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered]
  728 |         var uintL i = 0;
      |                 ^
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -c control.c
In file included from ../src/control.d:8:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16711:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16711:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16711:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
../src/control.d: In function ‘aktenv_to_stack’:
../src/control.d:353:24: warning: unused variable ‘stack_env’ [-Wunused-variable]
  353 |   var gcv_environment_t* stack_env = nest_aktenv();
      |                        ^~~~~~~~~
../src/control.d: In function ‘C_compiler_let’:
../src/control.d:799:14: warning: variable ‘symbol’ set but not used [-Wunused-but-set-variable]
  799 |     var object symbol;
      |              ^~~~~~
../src/control.d: In function ‘C_values’:
../src/control.d:1744:50: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 1744 | LISPFUN(values,seclass_no_se,0,0,rest,nokey,0,NIL)
      |                                    ~~~~~~~~~~~~~~^                
../src/control.d: In function ‘C_xor’:
../src/control.d:2518:47: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 2518 | LISPFUN(xor,seclass_foldable,0,0,rest,nokey,0,NIL)
      |                                 ~~~~~~~~~~~~~~^~~~             
../src/control.d: In function ‘C_tagbody’:
../src/control.d:1605:12: warning: variable ‘body’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered]
 1605 |   var object body = popSTACK();
      |            ^~~~
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -falign-functions=8 -c encoding.c
In file included from ../src/encoding.d:7:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16711:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16711:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16711:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
../src/encoding.d: In function ‘base64_to_chars’:
../src/encoding.d:87:11: warning: unused variable ‘pos’ [-Wunused-variable]
   87 |   var uintL pos = 0;
      |           ^~~
../src/encoding.d: In function ‘C_make_encoding’:
../src/encoding.d:2111:10: warning: label ‘create_new_encoding’ defined but not used [-Wunused-label]
 2111 |   } else create_new_encoding: {
      |          ^~~~~~~~~~~~~~~~~~~
../src/encoding.d: In function ‘nls_range’:
../src/encoding.d:1971:92: warning: ‘i1’ may be used uninitialized [-Wmaybe-uninitialized]
 1971 |       pushSTACK(code_char(as_chart(i1))); pushSTACK(code_char(as_chart(i2)));
      |                                                                                            ^                                 
../src/encoding.d:1939:13: note: ‘i1’ was declared here
 1939 |     var uintL i1;
      |             ^~
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -c pathname.c
In file included from ../src/pathname.d:9:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16711:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16711:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16711:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
../src/pathname.d: In function ‘C_merge_pathnames’:
../src/pathname.d:2872:2: warning: label ‘notmatch_directories’ defined but not used [-Wunused-label]
 2872 |  notmatch_directories:
      |  ^~~~~~~~~~~~~~~~~~~~
../src/pathname.d:2866:2: warning: label ‘notmatch_devices’ defined but not used [-Wunused-label]
 2866 |  notmatch_devices:
      |  ^~~~~~~~~~~~~~~~
../src/pathname.d:2855:2: warning: label ‘match_directories’ defined but not used [-Wunused-label]
 2855 |  match_directories: { /* match directories: */
      |  ^~~~~~~~~~~~~~~~~
../src/pathname.d:2838:2: warning: label ‘match_devices’ defined but not used [-Wunused-label]
 2838 |  match_devices:
      |  ^~~~~~~~~~~~~
../src/pathname.d: In function ‘C_pathname_match_p’:
../src/pathname.d:3973:2: warning: label ‘yes’ defined but not used [-Wunused-label]
 3973 |  yes:
      |  ^~~
../src/pathname.d: In function ‘open_file’:
../src/pathname.d:6674:2: warning: label ‘handle_ok’ defined but not used [-Wunused-label]
 6674 |  handle_ok:
      |  ^~~~~~~~~
../src/pathname.d: At top level:
../src/pathname.d:3609:11: warning: ‘has_host_wildcards’ declared ‘static’ but never defined [-Wunused-function]
 3609 | local bool has_host_wildcards (object pathname);
      |           ^~~~~~~~~~~~~~~~~~
../src/pathname.d: In function ‘classify_namestring’:
../src/pathname.d:5784:5: warning: ignoring return value of ‘realpath’ declared with attribute ‘warn_unused_result’ [-Wunused-result]
 5784 |     realpath(namestring,resolved); /* ==> success assured */
      |     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
../src/pathname.d: In function ‘C_probe_pathname’:
../src/pathname.d:5854:10: warning: this statement may fall through [-Wimplicit-fallthrough=]
 5854 |       if (errorp)
      |          ^
../src/pathname.d:5857:5: note: here
 5857 |     case FILE_KIND_NONE:        /* does not exist */
      |     ^~~~
../src/pathname.d: In function ‘open_file’:
../src/pathname.d:6620:40: warning: this statement may fall through [-Wimplicit-fallthrough=]
 6620 |     case DIRECTION_OUTPUT: wronly_flag = true; /*FALLTHROUGH*/
../src/pathname.d:6621:5: note: here
 6621 |     case DIRECTION_IO:
      |     ^~~~
../src/pathname.d: In function ‘C_launch’:
../src/pathname.d:8752:15: warning: ignoring return value of ‘nice’ declared with attribute ‘warn_unused_result’ [-Wunused-result]
 8752 |     errno = 0; nice(priority);
      |               ^~~~~~~~~~~~~~
../src/pathname.d: At top level:
../src/pathname.d:4423:15: warning: ‘translate_device’ defined but not used [-Wunused-function]
 4423 | local maygc object translate_device (gcv_object_t* subst, object pattern,
      |               ^~~~~~~~~~~~~~~~
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -falign-functions=8 -c stream.c
In file included from ../src/stream.d:10:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16711:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16711:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16711:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
../src/stream.d: In function ‘wr_ch_array_dummy’:
../src/stream.d:397:243: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
  397 |   SstringDispatch(*chararray_,X, {
      |                                                                                                                                                                                                                                                   ^    
../src/stream.d:397:628: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
  397 |   SstringDispatch(*chararray_,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    ^    
../src/stream.d:397:1014: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
  397 |   SstringDispatch(*chararray_,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
../src/stream.d: In function ‘wr_ch_array_pending_newline’:
../src/stream.d:976:243: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
  976 |   SstringDispatch(*chararray_,X, {
      |                                                                                                                                                                                                                                                   ^    
../src/stream.d:976:512: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
  976 |   SstringDispatch(*chararray_,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ^    
../src/stream.d:976:782: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
  976 |   SstringDispatch(*chararray_,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ^    
../src/stream.d: In function ‘write_char_array’:
../src/stream.d:1010:247: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
 1010 |       SstringDispatch(*chararray_,X, {
      |                                                                                                                                                                                                                                                       ^    
../src/stream.d:1010:516: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
 1010 |       SstringDispatch(*chararray_,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    ^    
../src/stream.d:1010:786: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
 1010 |       SstringDispatch(*chararray_,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ^    
../src/stream.d: In function ‘listen_handle’:
../src/stream.d:4813:50: warning: unused parameter ‘tty_p’ [-Wunused-parameter]
 4813 | local listen_t listen_handle (Handle handle, bool tty_p, int *byte) {
../src/stream.d: In function ‘low_write_unbuffered_handle’:
../src/stream.d:5473:2: warning: label ‘restart_it’ defined but not used [-Wunused-label]
 5473 |  restart_it:
      |  ^~~~~~~~~~
../src/stream.d: In function ‘rd_ch_keyboard’:
../src/stream.d:8804:4: warning: label ‘next_char_is_read’ defined but not used [-Wunused-label]
 8804 |    next_char_is_read: { /* increase the buffer: */
      |    ^~~~~~~~~~~~~~~~~
../src/stream.d: In function ‘make_keyboard_stream’:
../src/stream.d:9163:7: warning: label ‘xterm’ defined but not used [-Wunused-label]
 9163 |       xterm:
      |       ^~~~~
../src/stream.d: In function ‘rd_ch_terminal3’:
../src/stream.d:9713:17: warning: the comparison will always evaluate as ‘true’ for the address of ‘prompt’ will never be NULL [-Waddress]
 9713 |       if (prompt!=NULL) {
      |                 ^~
../src/stream.d:9712:14: note: ‘prompt’ declared here
 9712 |       var DYNAMIC_ARRAY(prompt,char,Sbvector_length(lastline)+1); /* Prompt: last output line */
      |              ^~~~~~
../src/stream.d:9725:49: warning: the comparison will always evaluate as ‘false’ for the address of ‘prompt’ will never be NULL [-Waddress]
 9725 |       var char* line = strip_white(readline(prompt==NULL ? "" : prompt));
      |                                                 ^~
../src/stream.d:9712:14: note: ‘prompt’ declared here
 9712 |       var DYNAMIC_ARRAY(prompt,char,Sbvector_length(lastline)+1); /* Prompt: last output line */
      |              ^~~~~~
../src/stream.d: In function ‘unread_char’:
../src/stream.d:766:18: warning: this statement may fall through [-Wimplicit-fallthrough=]
  766 |           stream = *stream_;
      |           ~~~~~~~^~~~~~~~~~
../src/stream.d:768:9: note: here
  768 |         default:
      |         ^~~~~~~
../src/stream.d: In function ‘test_socket_stream’:
../src/stream.d:13840:13: warning: this statement may fall through [-Wimplicit-fallthrough=]
13840 |         obj = TheStream(obj)->strm_twoway_socket_input;
      |         ~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
../src/stream.d:13842:7: note: here
13842 |       case strmtype_socket:
      |       ^~~~
../src/stream.d: In function ‘C_socket_stream_shutdown’:
../src/stream.d:14730:13: warning: this statement may fall through [-Wimplicit-fallthrough=]
14730 |             get_handle_and_mark(TheStream(STACK_0)->strm_twoway_socket_output,
      |             ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
14731 |                                 strmflags_wr_B,strm_ochannel_position);
      |                                 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
../src/stream.d:14733:11: note: here
14733 |           case DIRECTION_INPUT: case DIRECTION_INPUT_IMMUTABLE:
      |           ^~~~
../src/stream.d: In function ‘C_stream_external_format’:
../src/stream.d:15735:130: warning: this statement may fall through [-Wimplicit-fallthrough=]
15735 |         if (streamp(stream)) {
      |             ~~~~~~~~~~~~~~~~~~                                                                                                   ^                                                           
../src/stream.d:15739:7: note: here
15739 |       default:
      |       ^~~~~~~
../src/stream.d: In function ‘interactive_stream_p’:
../src/stream.d:15967:10: warning: this statement may fall through [-Wimplicit-fallthrough=]
15967 |       if (nullp(TheStream(stream)->strm_isatty))
      |          ^
../src/stream.d:15972:5: note: here
15972 |     case strmtype_keyboard:
      |     ^~~~
../src/stream.d: In function ‘C_read_byte_no_hang’:
../src/stream.d:17094:7: warning: this statement may fall through [-Wimplicit-fallthrough=]
17094 |       var object obj = read_byte(stream);
      |       ^
../src/stream.d:17101:5: note: here
17101 |     case LISTEN_ERROR: OS_filestream_error(STACK_2);
      |     ^~~~
../src/stream.d: At top level:
../src/stream.d:13309:11: warning: ‘sock_error_eof_p’ defined but not used [-Wunused-function]
13309 | local bool sock_error_eof_p (void) {
      |           ^~~~~~~~~~~~~~~~
../src/stream.d: In function ‘iconv_range’:
../src/stream.d:4482:94: warning: ‘i1’ may be used uninitialized [-Wmaybe-uninitialized]
 4482 |         pushSTACK(code_char(as_chart(i1)));
      |                                                                                              ^                                 
../src/stream.d:4428:15: note: ‘i1’ was declared here
 4428 |       var uintL i1;
      |               ^~
../src/stream.d: In function ‘lisp_completion’:
../src/stream.d:9329:22: warning: variable ‘ptr1’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered]
 9329 |       var const chart* ptr1;
      |                      ^~~~
../src/stream.d: In function ‘close_ochannel’:
../src/stream.d:5878:36: warning: argument ‘stream’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered]
 5878 | local maygc void close_ochannel (object stream, uintB abort) {
      |                             ~~~~~~~^~~~~~
../src/stream.d: In function ‘close_buffered’:
../src/stream.d:8361:36: warning: argument ‘stream’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered]
 8361 | local maygc void close_buffered (object stream, uintB abort) {
      |                             ~~~~~~~^~~~~~
../src/stream.d: In function ‘handle_isset’:
../src/stream.d:14305:124: warning: ‘ret’ may be used uninitialized [-Wmaybe-uninitialized]
14305 |   if (!nullp(status_cons)) Cdr(status_cons) = ret;
      |                                                                                                                            ^    
../src/stream.d:14269:18: note: ‘ret’ was declared here
14269 |   var object sock, ret;
      |                  ^~~
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -falign-functions=8 -c socket.c
In file included from ../src/socket.d:44:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16711:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16711:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16711:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -c io.c
In file included from ../src/io.d:9:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16711:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16711:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16711:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
../src/io.d: In function ‘interpret_feature’:
../src/io.d:3762:14: warning: unused variable ‘and_or_flag’ [-Wunused-variable]
 3762 |     var uintWL and_or_flag;
      |              ^~~~~~~~~~~
../src/io.d: In function ‘C_parse_integer’:
../src/io.d:4733:12: warning: unused variable ‘string’ [-Wunused-variable]
 4733 |   var object string = test_string_limits_ro(&arg);
      |            ^~~~~~
../src/io.d: In function ‘write_sstring_invert’:
../src/io.d:5075:235: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
 5075 |     SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                           ^    
../src/io.d:5075:677: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
 5075 |     SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     ^    
../src/io.d:5075:1120: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
 5075 |     SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ^    
../src/io.d: In function ‘write_sstring_case_ext’:
../src/io.d:5122:243: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
 5122 |             SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                   ^    
../src/io.d:5122:774: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
 5122 |             SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
../src/io.d:5122:1306: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
 5122 |             SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          ^    
../src/io.d:5138:243: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
 5138 |             SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                   ^    
../src/io.d:5138:772: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
 5138 |             SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    ^    
../src/io.d:5138:1302: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
 5138 |             SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
../src/io.d:5151:310: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
 5151 |         switch_print_case(
      |                                                                                                                                                                                                                                                                                                                      ^    
../src/io.d:5151:470: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
 5151 |         switch_print_case(
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
../src/io.d:5151:470: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
 5151 |         switch_print_case(
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
../src/io.d:5232:310: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
 5232 |         switch_print_case(
      |                                                                                                                                                                                                                                                                                                                      ^    
../src/io.d:5232:469: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
 5232 |         switch_print_case(
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     ^    
../src/io.d:5232:469: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
 5232 |         switch_print_case(
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     ^    
../src/io.d: In function ‘pr_symbol_part’:
../src/io.d:7099:271: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
 7099 |     SstringDispatch(STACK_2,X, {
      |                                                                                                                                                                                                                                                                               ^    
../src/io.d:7099:771: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
 7099 |     SstringDispatch(STACK_2,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   ^    
../src/io.d:7099:1272: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
 7099 |     SstringDispatch(STACK_2,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ^    
../src/io.d:7133:271: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
 7133 |     SstringDispatch(STACK_0,X, {
      |                                                                                                                                                                                                                                                                               ^    
../src/io.d:7133:1039: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
 7133 |     SstringDispatch(STACK_0,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/io.d:7133:1808: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
 7133 |     SstringDispatch(STACK_0,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ^    
../src/io.d: In function ‘pr_sstring_ab’:
../src/io.d:7251:237: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
 7251 |       SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                             ^    
../src/io.d:7251:573: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
 7251 |       SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             ^    
../src/io.d:7251:573: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
 7251 |       SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             ^    
../src/io.d:7297:239: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
 7297 |         SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                               ^    
../src/io.d:7297:903: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
 7297 |         SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       ^    
../src/io.d:7297:1568: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
 7297 |         SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ^    
../src/io.d: In function ‘C_get_macro_character’:
../src/io.d:693:24: warning: this statement may fall through [-Wimplicit-fallthrough=]
  693 |     case syntax_nt_macro: { nontermp = T; }
      |               ~~~~~~~~~^~~~~~~~~~~~~~~~~~~~                              
../src/io.d:694:5: note: here
  694 |     case syntax_t_macro: { /* nontermp = NIL; */
      |     ^~~~
../src/io.d: In function ‘test_number_syntax’:
../src/io.d:1512:24: warning: this statement may fall through [-Wimplicit-fallthrough=]
 1512 |     case a_minus: info->sign = -1; /* sign:=negativ */
      |             ~~~~~~~~~~~^~~~
../src/io.d:1513:5: note: here
 1513 |     case a_plus:                   /* read over sign: */
      |     ^~~~
../src/io.d: In function ‘C_parse_integer’:
../src/io.d:4766:22: warning: this statement may fall through [-Wimplicit-fallthrough=]
 4766 |       case '-': sign = -1;           /* sign := negative */
      |                 ~~~~~^~~~
../src/io.d:4767:7: note: here
 4767 |       case '+':                      /* sign found */
      |       ^~~~
../src/io.d: In function ‘pr_array’:
../src/io.d:8191:28: warning: this statement may fall through [-Wimplicit-fallthrough=]
 8191 |           case Atype_T: readable = false; /* automatically rereadable */
../src/io.d:8193:11: note: here
 8193 |           default: locals.pr_one_elt = &pr_array_elt_simple;
      |           ^~~~~~~
../src/io.d: In function ‘pr_stream’:
../src/io.d:9954:13: warning: this statement may fall through [-Wimplicit-fallthrough=]
 9954 |       *obj_ = TheStream(*obj_)->strm_twoway_socket_input;
      |       ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
../src/io.d:9956:5: note: here
 9956 |     case strmtype_socket: {     /* Socket-Stream */
      |     ^~~~
../src/io.d: In function ‘pr_real_number’:
../src/io.d:7633:16: warning: this statement may fall through [-Wimplicit-fallthrough=]
 7633 |           if (RA_integerp(number)) {
      |               ~^~~~~~~~~~~~~~~~~~~~~                                                                                               
../src/io.d:7640:9: note: here
 7640 |         default: {              /* print base in #nR-notation: */
      |         ^~~~~~~
../src/io.d: In function ‘C_pprint_newline’:
../src/io.d:10119:34: warning: this statement may fall through [-Wimplicit-fallthrough=]
10119 |         STACK_1 = S(Klinear);
      |         ~~~~~~~~~~~~~~~~~~~~~    ^                                                       
../src/io.d:10121:7: note: here
10121 |       case PPRINT_NEWLINE_LINEAR: {
      |       ^~~~
../src/io.d:10122:12: warning: this statement may fall through [-Wimplicit-fallthrough=]
10122 |         if (eq(TheStream(STACK_0)->strm_pphelp_modus,mehrzeiler))
      |            ^
../src/io.d:10125:7: note: here
10125 |       case PPRINT_NEWLINE_FILL: {
      |       ^~~~
../src/io.d: In function ‘C_bit_vector_reader’:
../src/io.d:3276:10: warning: ‘ch’ may be used uninitialized [-Wmaybe-uninitialized]
 3276 |       if (chareq(ch,ascii('0'))) {
      |          ^
../src/io.d:3271:13: note: ‘ch’ was declared here
 3271 |     var chart ch;               /* last character ('0' or '1') */
      |             ^~
../src/io.d: In function ‘C_vector_reader’:
../src/io.d:3333:15: warning: ‘el’ may be used uninitialized [-Wmaybe-uninitialized]
 3333 |       *vptr++ = el;
      |       ~~~~~~~~^~~~
../src/io.d:3327:14: note: ‘el’ was declared here
 3327 |     var object el;              /* last Element */
      |              ^~
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -falign-functions=8 -c funarg.c
In file included from ../src/funarg.d:7:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16711:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16711:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16711:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -c array.c
In file included from ../src/array.d:8:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16711:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16711:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16711:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
../src/array.d: In function ‘C_vector’:
../src/array.d:191:50: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
  191 | LISPFUN(vector,seclass_no_se,0,0,rest,nokey,0,NIL)
      |                                    ~~~~~~~~~~~~~~^                
../src/array.d: In function ‘make_ssstring’:
../src/array.d:4028:11: warning: comparison is always false due to limited range of data type [-Wtype-limits]
 4028 |   if (len > arraysize_limit_1)
      |           ^
../src/array.d: In function ‘ssstring_extend_low’:
../src/array.d:4049:12: warning: comparison is always false due to limited range of data type [-Wtype-limits]
 4049 |   if (size > arraysize_limit_1)
      |            ^
../src/array.d: In function ‘ssstring_push_extend’:
../src/array.d:4084:13: warning: comparison is always false due to limited range of data type [-Wtype-limits]
 4084 |     if (len > arraysize_limit_1) /* cannot extend beyond arraysize_limit_1 */
      |             ^
../src/array.d: In function ‘ssstring_extend’:
../src/array.d:4108:18: warning: comparison is always false due to limited range of data type [-Wtype-limits]
 4108 |   if (needed_len > arraysize_limit_1) /* cannot extend beyond arraysize_limit_1 */
      |                  ^
../src/array.d:4113:17: warning: comparison is always false due to limited range of data type [-Wtype-limits]
 4113 |     if (now_len > arraysize_limit_1) /* cannot extend beyond arraysize_limit_1 */
      |                 ^
../src/array.d: In function ‘make_ssbvector’:
../src/array.d:4172:11: warning: comparison is always false due to limited range of data type [-Wtype-limits]
 4172 |   if (len > arraysize_limit_1)
      |           ^
../src/array.d: In function ‘ssbvector_push_extend’:
../src/array.d:4198:13: warning: comparison is always false due to limited range of data type [-Wtype-limits]
 4198 |     if (len > arraysize_limit_1) /* cannot extend beyond arraysize_limit_1 */
      |             ^
../src/array.d: In function ‘test_dims’:
../src/array.d:4262:43: warning: comparison is always true due to limited range of data type [-Wtype-limits]
 4262 |       if (!((produkt_hi==0) && (produkt_lo<=arraysize_limit_1))) { /* product < 2^24 ? */
      |                                           ^~
../src/array.d: In function ‘C_make_bit_vector’:
../src/array.d:5159:11: warning: unused variable ‘size’ [-Wunused-variable]
 5159 |   var uintL size;
      |           ^~~~
../src/array.d: At top level:
../src/array.d:2079:13: warning: ‘elt_copy_Bit_Bit’ declared ‘static’ but never defined [-Wunused-function]
 2079 | local void elt_copy_Bit_Bit (object dv1, uintL index1, object dv2, uintL index2, uintL count);
      |             ^~~~~~~~~~~~~~~~
../src/array.d:2080:13: warning: ‘elt_copy_2Bit_2Bit’ declared ‘static’ but never defined [-Wunused-function]
 2080 | local void elt_copy_2Bit_2Bit (object dv1, uintL index1, object dv2, uintL index2, uintL count);
      |             ^~~~~~~~~~~~~~~~~~
../src/array.d:2081:13: warning: ‘elt_copy_4Bit_4Bit’ declared ‘static’ but never defined [-Wunused-function]
 2081 | local void elt_copy_4Bit_4Bit (object dv1, uintL index1, object dv2, uintL index2, uintL count);
      |             ^~~~~~~~~~~~~~~~~~
../src/array.d: In function ‘C_make_array’:
../src/array.d:4696:17: warning: ‘fillpointer’ may be used uninitialized [-Wmaybe-uninitialized]
 4696 |       *dimptr++ = fillpointer;
      |       ~~~~~~~~~~^~~~~~~~~~~~~
../src/array.d:4598:11: note: ‘fillpointer’ was declared here
 4598 |   var uintL fillpointer;
      |           ^~~~~~~~~~~
../src/array.d: In function ‘C_adjust_array’:
../src/array.d:5028:19: warning: ‘fillpointer’ may be used uninitialized [-Wmaybe-uninitialized]
 5028 |           *dimptr = fillpointer;
      |           ~~~~~~~~^~~~~~~~~~~~~
../src/array.d:4918:11: note: ‘fillpointer’ was declared here
 4918 |   var uintL fillpointer;
      |           ^~~~~~~~~~~
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -falign-functions=8 -c hashtabl.c
In file included from ../src/hashtabl.d:8:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16711:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16711:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16711:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
../src/hashtabl.d: In function ‘C_hash_table_rehash_threshold’:
../src/hashtabl.d:2399:12: warning: unused variable ‘ht’ [-Wunused-variable]
 2399 |   var object ht = check_hashtable(popSTACK()); /* hashtable argument */
      |            ^~
../src/hashtabl.d: At top level:
../src/hashtabl.d:115:15: warning: ‘hashcode1’ declared ‘static’ but never defined [-Wunused-function]
  115 | local uint32 hashcode1 (object obj);
      |               ^~~~~~~~~
../src/hashtabl.d:200:15: warning: ‘hashcode_fixnum’ declared ‘static’ but never defined [-Wunused-function]
  200 | local uint32 hashcode_fixnum (object obj);
      |               ^~~~~~~~~~~~~~~
../src/hashtabl.d:225:15: warning: ‘hashcode_sfloat’ declared ‘static’ but never defined [-Wunused-function]
  225 | local uint32 hashcode_sfloat (object obj);
      |               ^~~~~~~~~~~~~~~
../src/hashtabl.d: In function ‘hashcode4_vector’:
../src/hashtabl.d:942:10: warning: this statement may fall through [-Wimplicit-fallthrough=]
  942 |       if (count > 0)
      |          ^
../src/hashtabl.d:945:5: note: here
  945 |     case Array_type_sstring:    /* simple-string */
      |     ^~~~
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -c list.c
In file included from ../src/list.d:8:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16711:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16711:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16711:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
../src/list.d: In function ‘C_list’:
../src/list.d:841:48: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
  841 | LISPFUN(list,seclass_no_se,0,0,rest,nokey,0,NIL)
      |                                  ~~~~~~~~~~~~~~^                
../src/list.d: In function ‘C_liststar’:
../src/list.d:846:52: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
  846 | LISPFUN(liststar,seclass_no_se,1,0,rest,nokey,0,NIL)
      |                                      ~~~~~~~~~~~~~~^                
../src/list.d: In function ‘C_append’:
../src/list.d:867:50: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
  867 | LISPFUN(append,seclass_read,0,0,rest,nokey,0,NIL)
      |                                    ~~~~~~~~~~~~~~^                
../src/list.d: In function ‘C_nconc’:
../src/list.d:996:49: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
  996 | LISPFUN(nconc,seclass_default,0,0,rest,nokey,0,NIL)
      |                                   ~~~~~~~~~~~~~~^~~              
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -c package.c
In file included from ../src/package.d:8:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16711:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16711:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16711:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
../src/package.d: In function ‘use_package’:
../src/package.d:1565:19: warning: unused variable ‘pack_lock_’ [-Wunused-variable]
 1565 |   var gcv_object_t *pack_lock_ = &STACK_1;
      |                   ^~~~~~~~~~
../src/package.d:1564:19: warning: unused variable ‘packlist_lock_’ [-Wunused-variable]
 1564 |   var gcv_object_t *packlist_lock_ = &STACK_0;
      |                   ^~~~~~~~~~~~~~
../src/package.d: In function ‘C_re_export’:
../src/package.d:2932:12: warning: unused variable ‘pack_u_l’ [-Wunused-variable]
 2932 |   var object pack_u_l = ThePackage(STACK_0)->pack_use_list;
      |            ^~~~~~~~
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -c record.c
In file included from ../src/record.d:7:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16711:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16711:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16711:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
../src/record.d: In function ‘update_instance’:
../src/record.d:1492:18: warning: unused variable ‘oldclass’ [-Wunused-variable]
 1492 |         var object oldclass = TheClassVersion(cv)->cv_class;
      |                  ^~~~~~~~
../src/record.d:1409:50: warning: argument ‘obj’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered]
 1409 | global maygc object update_instance (object user_obj, object obj) {
      |                                           ~~~~~~~^~~
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -c weak.c
In file included from ../src/weak.d:6:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16711:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16711:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16711:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -c sequence.c
In file included from ../src/sequence.d:7:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16711:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16711:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16711:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
../src/sequence.d: In function ‘C_mismatch’:
../src/sequence.d:3880:19: warning: unused variable ‘stackptr’ [-Wunused-variable]
 3880 |   var gcv_object_t* stackptr = &STACK_6;
      |                   ^~~~~~~~
../src/sequence.d: In function ‘C_search’:
../src/sequence.d:4068:19: warning: unused variable ‘stackptr’ [-Wunused-variable]
 4068 |   var gcv_object_t* stackptr = &STACK_6;
      |                   ^~~~~~~~
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -c charstrg.c
In file included from ../src/charstrg.d:8:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16711:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16711:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16711:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
../src/charstrg.d: In function ‘C_string_char_p’:
../src/charstrg.d:1481:12: warning: unused variable ‘arg’ [-Wunused-variable]
 1481 |   var object arg = check_char(popSTACK());
      |            ^~~
../src/charstrg.d: In function ‘char_eq’:
../src/charstrg.d:1692:2: warning: label ‘yes’ defined but not used [-Wunused-label]
 1692 |  yes: VALUES1(T); goto ok;
      |  ^~~
../src/charstrg.d: In function ‘char_noteq’:
../src/charstrg.d:1718:2: warning: label ‘yes’ defined but not used [-Wunused-label]
 1718 |  yes: VALUES1(T); goto ok;
      |  ^~~
../src/charstrg.d: In function ‘char_less’:
../src/charstrg.d:1735:2: warning: label ‘yes’ defined but not used [-Wunused-label]
 1735 |  yes: VALUES1(T); goto ok;
      |  ^~~
../src/charstrg.d: In function ‘char_greater’:
../src/charstrg.d:1752:2: warning: label ‘yes’ defined but not used [-Wunused-label]
 1752 |  yes: VALUES1(T); goto ok;
      |  ^~~
../src/charstrg.d: In function ‘char_ltequal’:
../src/charstrg.d:1769:2: warning: label ‘yes’ defined but not used [-Wunused-label]
 1769 |  yes: VALUES1(T); goto ok;
      |  ^~~
../src/charstrg.d: In function ‘char_gtequal’:
../src/charstrg.d:1786:2: warning: label ‘yes’ defined but not used [-Wunused-label]
 1786 |  yes: VALUES1(T); goto ok;
      |  ^~~
../src/charstrg.d: In function ‘nstring_capitalize’:
../src/charstrg.d:3447:1130: warning: label ‘in_word_8’ defined but not used [-Wunused-label]
 3447 |     SstringCase(dv,{
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          ^        
../src/charstrg.d: In function ‘C_string_concat’:
../src/charstrg.d:3745:57: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 3745 | LISPFUN(string_concat,seclass_read,0,0,rest,nokey,0,NIL)
      |                                           ~~~~~~~~~~~~~~^                
../src/charstrg.d: At top level:
../src/charstrg.d:261:11: warning: ‘numericp’ declared ‘static’ but never defined [-Wunused-function]
  261 | local bool numericp (chart ch);
      |           ^~~~~~~~
../src/charstrg.d: In function ‘sstring_store’:
../src/charstrg.d:604:20: warning: this statement may fall through [-Wimplicit-fallthrough=]
  604 |       inner_string = TheSistring(inner_string)->data;
      |       ~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
../src/charstrg.d:607:5: note: here
  607 |     case Sstringtype_32Bit: /* mutable Simple-String */
      |     ^~~~
../src/charstrg.d: In function ‘sstring_store_array’:
../src/charstrg.d:711:22: warning: this statement may fall through [-Wimplicit-fallthrough=]
  711 |         inner_string = TheSistring(inner_string)->data;
      |         ~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
../src/charstrg.d:715:7: note: here
  715 |       case Sstringtype_32Bit: { /* mutable Simple-String */
      |       ^~~~
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -c debug.c
In file included from ../src/debug.d:9:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16711:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16711:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16711:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -c error.c
In file included from ../src/error.d:9:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16711:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16711:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16711:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
../src/error.d: In function ‘C_clcs_signal’:
../src/error.d:860:55: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
  860 | LISPFUN(clcs_signal,seclass_default,1,0,rest,nokey,0,NIL)
      |                                         ~~~~~~~~~~~~~~^~~              
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -c misc.c
In file included from ../src/misc.d:7:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16711:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16711:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16711:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -c time.c
In file included from ../src/time.d:8:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16711:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16711:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16711:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -falign-functions=8 -c predtype.c
In file included from ../src/predtype.d:8:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16711:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16711:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16711:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
../src/predtype.d: In function ‘C_type_of’:
../src/predtype.d:1572:19: warning: label ‘case_lrecord’ defined but not used [-Wunused-label]
 1572 |     case_orecord: case_lrecord: /* OtherRecord -> PACKAGE, ... */
      |                   ^~~~~~~~~~~~
../src/predtype.d: In function ‘C_class_of’:
../src/predtype.d:1894:19: warning: label ‘case_lrecord’ defined but not used [-Wunused-label]
 1894 |     case_orecord: case_lrecord: /* OtherRecord -> <package>, ... */
      |                   ^~~~~~~~~~~~
../src/predtype.d: In function ‘heap_statistics_mapper’:
../src/predtype.d:2871:19: warning: label ‘case_lrecord’ defined but not used [-Wunused-label]
 2871 |     case_orecord: case_lrecord: /* OtherRecord */
      |                   ^~~~~~~~~~~~
../src/predtype.d: At top level:
../src/predtype.d:260:22: warning: ‘elt_compare_Char_Char’ declared ‘static’ but never defined [-Wunused-function]
  260 | local elt_compare_t elt_compare_Char_Char;
      |                      ^~~~~~~~~~~~~~~~~~~~~
../src/predtype.d:261:22: warning: ‘elt_compare_Bit_Bit’ declared ‘static’ but never defined [-Wunused-function]
  261 | local elt_compare_t elt_compare_Bit_Bit;
      |                      ^~~~~~~~~~~~~~~~~~~
../src/predtype.d:267:22: warning: ‘elt_compare_2Bit_2Bit’ declared ‘static’ but never defined [-Wunused-function]
  267 | local elt_compare_t elt_compare_2Bit_2Bit;
      |                      ^~~~~~~~~~~~~~~~~~~~~
../src/predtype.d:272:22: warning: ‘elt_compare_4Bit_4Bit’ declared ‘static’ but never defined [-Wunused-function]
  272 | local elt_compare_t elt_compare_4Bit_4Bit;
      |                      ^~~~~~~~~~~~~~~~~~~~~
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -c symbol.c
In file included from ../src/symbol.d:8:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16711:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16711:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16711:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
../src/symbol.d: In function ‘C_putd’:
../src/symbol.d:60:12: warning: unused variable ‘symbol’ [-Wunused-variable]
   60 |   var object symbol = check_symbol(STACK_1);
      |            ^~~~~~
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -c lisparit.c
In file included from ../src/lisparit.d:8:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16711:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16711:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16711:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
In file included from ../src/lisparit.d:30:
../src/intelem.d: In function ‘NDS_to_I’:
../src/intelem.d:981:6: warning: label ‘len_1’ defined but not used [-Wunused-label]
  981 |      len_1: value = (sint64)(sintD)MSDptr[0];
      |      ^~~~~
In file included from ../src/lisparit.d:31:
../src/intlog.d: In function ‘I_logcount_I’:
../src/intlog.d:724:14: warning: unused variable ‘x32’ [-Wunused-variable]
  724 |     var uint16 x16; /* auxiliary variable */
      |              ^~~
../src/intlog.d:750:123: warning: unused variable ‘x32’ [-Wunused-variable]
  750 |     dotimespC(len,len, {
      |                                                                                                                           ^  
In file included from ../src/lisparit.d:37:
../src/intgcd.d: In function ‘partial_gcd’:
../src/intgcd.d:559:5: warning: label ‘subtract_from_2’ defined but not used [-Wunused-label]
  559 |     subtract_from_2: # Hier ist z2-x2>=z1+x1.
      |     ^~~~~~~~~~~~~~~
In file included from ../src/lisparit.d:39:
../src/intsqrt.d: In function ‘UDS_sqrt_’:
../src/intsqrt.d:235:114: warning: statement with no effect [-Wunused-value]
  235 |             divuD(a_msdd,x, d=,);
      |                                                                                                                  ^          
../src/intsqrt.d:292:126: warning: statement with no effect [-Wunused-value]
  292 |               divuD(a_123dd,b_msd, b_star=,);
      |                                                                                                                              ^          
In file included from ../src/lisparit.d:46:
../src/sfloat.d: In function ‘SF_SF_plus_SF’:
../src/sfloat.d:328:4: warning: label ‘norm_1’ defined but not used [-Wunused-label]
  328 |    norm_1: # [Knuth, S.201, Schritt N1]
      |    ^~~~~~
In file included from ../src/lisparit.d:53:
../src/realelem.d: In function ‘I_float_F’:
../src/realelem.d:216:134: warning: bitwise comparison always evaluates to false [-Wtautological-compare]
  216 |   defaultfloatcase(S(default_float_format),Fixnum_0,
      |                                                                                                                                      ^ 
../src/realelem.d: In function ‘RA_float_F’:
../src/realelem.d:229:134: warning: bitwise comparison always evaluates to false [-Wtautological-compare]
  229 |   defaultfloatcase(S(default_float_format),Fixnum_0,
      |                                                                                                                                      ^ 
../src/realelem.d: In function ‘R_float_digits’:
../src/realelem.d:307:136: warning: bitwise comparison always evaluates to false [-Wtautological-compare]
  307 |     defaultfloatcase(S(default_float_format),Fixnum_0,
      |                                                                                                                                        ^ 
../src/lisparit.d: In function ‘read_float’:
../src/lisparit.d:229:138: warning: bitwise comparison always evaluates to false [-Wtautological-compare]
  229 |       defaultfloatcase(S(read_default_float_format),Fixnum_0,
      |                                                                                                                                          ^ 
../src/lisparit.d: In function ‘C_numequal’:
../src/lisparit.d:542:2: warning: label ‘yes’ defined but not used [-Wunused-label]
  542 |  yes:
      |  ^~~
../src/lisparit.d: In function ‘C_numunequal’:
../src/lisparit.d:569:2: warning: label ‘yes’ defined but not used [-Wunused-label]
  569 |  yes:
      |  ^~~
../src/lisparit.d: In function ‘C_smaller’:
../src/lisparit.d:591:2: warning: label ‘yes’ defined but not used [-Wunused-label]
  591 |  yes:
      |  ^~~
../src/lisparit.d: In function ‘C_greater’:
../src/lisparit.d:613:2: warning: label ‘yes’ defined but not used [-Wunused-label]
  613 |  yes:
      |  ^~~
../src/lisparit.d: In function ‘C_ltequal’:
../src/lisparit.d:635:2: warning: label ‘yes’ defined but not used [-Wunused-label]
  635 |  yes:
      |  ^~~
../src/lisparit.d: In function ‘C_gtequal’:
../src/lisparit.d:657:2: warning: label ‘yes’ defined but not used [-Wunused-label]
  657 |  yes:
      |  ^~~
../src/lisparit.d: In function ‘C_boole’:
../src/lisparit.d:1548:12: warning: unused variable ‘op’ [-Wunused-variable]
 1548 |   var object op = STACK_2; /* operator, not a typetest */
      |            ^~
../src/intelem.d: At top level:
../src/intelem.d:111:14: warning: ‘FN_to_V’ declared ‘static’ but never defined [-Wunused-function]
  111 | local sintV FN_to_V (object obj);
      |              ^~~~~~~
../src/intelem.d:145:15: warning: ‘FN_to_Q’ declared ‘static’ but never defined [-Wunused-function]
  145 | local sint64 FN_to_Q (object obj);
      |               ^~~~~~~
../src/intelem.d:943:15: warning: ‘UL_UL_minus_I’ declared ‘static’ but never defined [-Wunused-function]
  943 | local maygc object UL_UL_minus_I (object x, object y);
      |               ^~~~~~~~~~~~~
In file included from ../src/lisparit.d:38:
../src/int2adic.d:7:16: warning: ‘D_D_mult2adic_D’ declared ‘static’ but never defined [-Wunused-function]
    7 |   local uintD D_D_mult2adic_D (uintD a, uintD b);
      |                ^~~~~~~~~~~~~~~
In file included from ../src/lisparit.d:51:
../src/flo_rest.d:1228:15: warning: ‘F_float_radix_I’ declared ‘static’ but never defined [-Wunused-function]
 1228 | local object F_float_radix_I (object x);
      |               ^~~~~~~~~~~~~~~
In file included from ../src/lisparit.d:55:
../src/realtran.d:291:15: warning: ‘R_atan_R’ declared ‘static’ but never defined [-Wunused-function]
  291 | local maygc object R_atan_R (object x);
      |               ^~~~~~~~
In file included from ../src/lisparit.d:57:
../src/compelem.d:30:15: warning: ‘N_realpart_R’ declared ‘static’ but never defined [-Wunused-function]
   30 | local object N_realpart_R (object x);
      |               ^~~~~~~~~~~~
../src/compelem.d:39:15: warning: ‘N_imagpart_R’ declared ‘static’ but never defined [-Wunused-function]
   39 | local object N_imagpart_R (object x);
      |               ^~~~~~~~~~~~
../src/intelem.d: In function ‘I_to_UL’:
../src/intelem.d:172:5: warning: this statement may fall through [-Wimplicit-fallthrough=]
  172 |     var Bignum bn = TheBignum(obj);
      |     ^
../src/intelem.d:191:4: note: here
  191 |    default:
      |    ^~~~~~~
../src/intelem.d: In function ‘I_to_UQ’:
../src/intelem.d:312:7: warning: this statement may fall through [-Wimplicit-fallthrough=]
  312 |       var Bignum bn = TheBignum(obj);
      |       ^
../src/intelem.d:338:5: note: here
  338 |     default:
      |     ^~~~~~~
../src/lisparit.d: In function ‘read_float’:
../src/lisparit.d:178:26: warning: this statement may fall through [-Wimplicit-fallthrough=]
  178 |       case '-': exp_sign = ~exp_sign; /* sign := negative */
      |                 ~~~~~~~~~^~~~~~~~~~~
../src/lisparit.d:179:7: note: here
  179 |       case '+': ptr++; exp_len--; /* skip exponent-sign */
      |       ^~~~
../src/compelem.d: At top level:
../src/compelem.d:889:11: warning: ‘dfloat_N_equal’ defined but not used [-Wunused-function]
  889 | local bool dfloat_N_equal (dfloat x, object y)
      |           ^~~~~~~~~~~~~~
../src/compelem.d:874:11: warning: ‘ffloat_N_equal’ defined but not used [-Wunused-function]
  874 | local bool ffloat_N_equal (ffloat x, object y)
      |           ^~~~~~~~~~~~~~
../src/realelem.d:1248:11: warning: ‘ffloat_dfloat_equal’ defined but not used [-Wunused-function]
 1248 | local bool ffloat_dfloat_equal (ffloat x, dfloat y)
      |           ^~~~~~~~~~~~~~~~~~~
../src/realelem.d:1196:11: warning: ‘dfloat_uint32_equal’ defined but not used [-Wunused-function]
 1196 | local bool dfloat_uint32_equal (dfloat x, uint32 y)
      |           ^~~~~~~~~~~~~~~~~~~
../src/realelem.d:1171:11: warning: ‘ffloat_uint32_equal’ defined but not used [-Wunused-function]
 1171 | local bool ffloat_uint32_equal (ffloat x, uint32 y)
      |           ^~~~~~~~~~~~~~~~~~~
In file included from ../src/lisparit.d:32:
../src/intplus.d: In function ‘I_minus_I’:
../src/intplus.d:268:48: warning: ‘__array[1]’ may be used uninitialized [-Wmaybe-uninitialized]
  268 |         var sintD sign = sign_of_sintD(MSDptr[0]);
      |                                         ~~~~~~~^~~ 
../src/intgcd.d: In function ‘I_I_gcd_I’:
../src/intgcd.d:612:3872: warning: ‘*MSDptr_from_BN_to_NDS’ may be used uninitialized [-Wmaybe-uninitialized]
  612 |     I_abs_to_NUDS(b); # (abs b) als NUDS erzeugen
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ^  
../src/intgcd.d:611:3872: warning: ‘*MSDptr_from_BN_to_NDS’ may be used uninitialized [-Wmaybe-uninitialized]
  611 |     I_abs_to_NUDS(a); # (abs a) als NUDS erzeugen
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ^  
../src/sfloat.d: In function ‘I_to_SF’:
../src/sfloat.d:654:11: warning: ‘I_to_NDS_room_649’ may be used uninitialized [-Wmaybe-uninitialized]
  654 |   var uintD msd = *MSDptr++; # erstes Digit
      |           ^~~
../src/sfloat.d:649:9: note: ‘I_to_NDS_room_649’ declared here
  649 |   I_to_NDS_nocopy(x, MSDptr=,len=,);
      |         ^~~~~~~~~~~~~~~~~
In file included from ../src/lisparit.d:47:
../src/ffloat.d: In function ‘I_to_FF’:
../src/ffloat.d:765:11: warning: ‘I_to_NDS_room_760’ may be used uninitialized [-Wmaybe-uninitialized]
  765 |   var uintD msd = *MSDptr++; # erstes Digit
      |           ^~~
../src/ffloat.d:760:9: note: ‘I_to_NDS_room_760’ declared here
  760 |   I_to_NDS_nocopy(x, MSDptr=,len=,);
      |         ^~~~~~~~~~~~~~~~~
In file included from ../src/lisparit.d:48:
../src/dfloat.d: In function ‘I_to_DF’:
../src/dfloat.d:1404:11: warning: ‘I_to_NDS_room_1399’ may be used uninitialized [-Wmaybe-uninitialized]
 1404 |   var uintD msd = *MSDptr++; /* first digit */
      |           ^~~
../src/dfloat.d:1399:9: note: ‘I_to_NDS_room_1399’ declared here
 1399 |   I_to_NDS_nocopy(x, MSDptr=,len=,);
      |         ^~~~~~~~~~~~~~~~~~
../src/dfloat.d:1411:82: warning: ‘I_to_NDS_room_1399’ may be used uninitialized [-Wmaybe-uninitialized]
 1411 |   DOCONSTTIMES(32/intDsize,NEXT_DIGIT);
      |                                                                                  ^                                   
../src/dfloat.d:1399:9: note: ‘I_to_NDS_room_1399’ declared here
 1399 |   I_to_NDS_nocopy(x, MSDptr=,len=,);
      |         ^~~~~~~~~~~~~~~~~~
In file included from ../src/lisparit.d:49:
../src/lfloat.d: In function ‘I_to_LF’:
../src/lfloat.d:1445:22: warning: ‘I_to_NDS_room_1388’ may be used uninitialized [-Wmaybe-uninitialized]
 1445 |       carry_rechts = shiftrightcopy_loop_up(&x_MSDptr[1],y_mantMSDptr,x_len,shiftcount,x_MSDptr[0]);
      |                      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
../src/lfloat.d:1388:9: note: ‘I_to_NDS_room_1388’ declared here
 1388 |   I_to_NDS_nocopy(popSTACK(), x_MSDptr=,x_len=,); /* form NDS for x, x_len>0 */
      |         ^~~~~~~~~~~~~~~~~~
../src/intplus.d: In function ‘I_I_minus_I’:
../src/intplus.d:328:52: warning: ‘__array[1]’ may be used uninitialized [-Wmaybe-uninitialized]
  328 |             var sintD sign = sign_of_sintD(MSDptr[0]);
      |                                             ~~~~~~~^~~ 
../src/intplus.d:447:52: warning: ‘__array[1]’ may be used uninitialized [-Wmaybe-uninitialized]
  447 |             var sintD sign = sign_of_sintD(MSDptr[0]);
      |                                             ~~~~~~~^~~ 
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -c i18n.c
In file included from ../src/i18n.d:7:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16711:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16711:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16711:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -c unixaux.c
In file included from ../src/unixaux.d:7:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16711:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16711:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16711:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
../src/unixaux.d: In function ‘install_signal_handler’:
../src/unixaux.d:734:3: warning: ‘siginterrupt’ is deprecated: Use sigaction with SA_RESTART instead [-Wdeprecated-declarations]
  734 |   siginterrupt(sig,0);
      |   ^~~~~~~~~~~~
In file included from /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib/signal.h:52,
                 from ../src/unix.d:111,
                 from ../src/lispbibl.d:1923:
/usr/include/signal.h:324:12: note: declared here
  324 | extern int siginterrupt (int __sig, int __interrupt) __THROW
      |            ^~~~~~~~~~~~
echo '/* generated from Makefile */' > cflags.h.new
echo '#define CC "gcc"' >> cflags.h.new
echo '#define CFLAGS "-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES"' >> cflags.h.new
echo '#define LDFLAGS "-Wl,-z,relro -Wl,--as-needed  -Wl,-z,now -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-ld  -Wl,--build-id=sha1"' >> cflags.h.new
echo '#define CLFLAGS "-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack "' >> cflags.h.new
echo '#define LIBS "-Wl,--whole-archive libgnu.a -Wl,--no-whole-archive  -lreadline -lncurses   /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl "' >> cflags.h.new
echo '#define CPPFLAGS "-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib"' >> cflags.h.new
echo '#define CPP "gcc -E"' >> cflags.h.new
echo '#define CXX "g++"' >> cflags.h.new
echo '#define CXXFLAGS "-O2  -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong  -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection"' >> cflags.h.new
echo '#define X_LIBS ""' >> cflags.h.new
if cmp cflags.h.new cflags.h > /dev/null 2>&1; then rm -f cflags.h.new; else mv cflags.h.new cflags.h; fi
touch cflags.h.stamp
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -c built.c
In file included from ../src/built.d:7:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16711:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16711:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16711:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16711 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -DCOMPILE_STANDALONE -O1 -c genclisph.c
../src/genclisph.d: In function ‘main’:
../src/genclisph.d:410:30: warning: comparison of unsigned expression in ‘< 0’ is always false [-Wtype-limits]
  410 |   EMIT_TO_I("size",size_t);
      |                              ^
gcc -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  genclisph.o -o genclisph
./genclisph clisp.h.tmp clisp-test.c
writing test file clisp-test.c
wrote 163 tests (154 typedefs, 9 defines)
(echo '#ifndef _CLISP_H' ; echo '#define _CLISP_H' ; echo; echo '/* ==== config.h ==== */' ; cat config.h ) > clisp.h
(echo; echo '/* 'intparam.h' */' ; grep '^#' intparam.h ) >> clisp.h
(echo; echo '/* 'floatparam.h' */' ; grep '^#' floatparam.h ) >> clisp.h
(echo; echo '/* genclisph */' ; cat clisp.h.tmp; echo ; echo '#endif /* _CLISP_H */') >> clisp.h
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -I. -DUSE_CLISP_H=1 -DCOMPILE_STANDALONE clisp-test.c libgnu.a -o clisp-test-clisp
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -I. -DUSE_CLISP_H=0 -DCOMPILE_STANDALONE clisp-test.c libgnu.a -o clisp-test-lispbibl
./clisp-test-clisp > clisp-test-clisp.out
./clisp-test-lispbibl > clisp-test-lispbibl.out
cmp clisp-test-clisp.out clisp-test-lispbibl.out
if grep lispbibl.d clisp.h; then false; else true; fi
rm -f genclisph clisp.h.tmp clisp-test-clisp clisp-test-lispbibl clisp-test-clisp.out clisp-test-lispbibl.out
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -I. -c ../src/modules.c
if test -d locale; then rm -rf locale; fi
mkdir locale
(cd po && make && make install datarootdir=.. localedir='$(datarootdir)/locale' INSTALL_DATA='ln') || (rm -rf locale ; exit 1)
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/po'
make[1]: Nothing to be done for 'all'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/po'
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/po'
installing ../../src/po/en.gmo as ../locale/en/LC_MESSAGES/clisp.mo
installing ../../src/po/clisplow_en.gmo as ../locale/en/LC_MESSAGES/clisplow.mo
installing ../../src/po/da.gmo as ../locale/da/LC_MESSAGES/clisp.mo
installing ../../src/po/clisplow_da.gmo as ../locale/da/LC_MESSAGES/clisplow.mo
installing ../../src/po/de.gmo as ../locale/de/LC_MESSAGES/clisp.mo
installing ../../src/po/clisplow_de.gmo as ../locale/de/LC_MESSAGES/clisplow.mo
installing ../../src/po/fr.gmo as ../locale/fr/LC_MESSAGES/clisp.mo
installing ../../src/po/clisplow_fr.gmo as ../locale/fr/LC_MESSAGES/clisplow.mo
installing ../../src/po/es.gmo as ../locale/es/LC_MESSAGES/clisp.mo
installing ../../src/po/clisplow_es.gmo as ../locale/es/LC_MESSAGES/clisplow.mo
installing ../../src/po/nl.gmo as ../locale/nl/LC_MESSAGES/clisp.mo
installing ../../src/po/clisplow_nl.gmo as ../locale/nl/LC_MESSAGES/clisplow.mo
installing ../../src/po/ru.gmo as ../locale/ru/LC_MESSAGES/clisp.mo
installing ../../src/po/clisplow_ru.gmo as ../locale/ru/LC_MESSAGES/clisplow.mo
installing ../../src/po/sv.gmo as ../locale/sv/LC_MESSAGES/clisp.mo
installing ../../src/po/clisplow_sv.gmo as ../locale/sv/LC_MESSAGES/clisplow.mo
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/po'
rm -rf data
mkdir data
cd data && ln -s ../../utils/unicode/UnicodeDataFull.txt .
cd data && ln -s ../../doc/Symbol-Table.text .
gcc -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -Wl,--export-dynamic spvw.o spvwtabf.o spvwtabs.o spvwtabo.o eval.o control.o encoding.o pathname.o stream.o socket.o io.o funarg.o array.o hashtabl.o list.o package.o record.o weak.o sequence.o charstrg.o debug.o error.o misc.o time.o predtype.o symbol.o lisparit.o i18n.o unixaux.o built.o modules.o -Wl,--whole-archive libgnu.a -Wl,--no-whole-archive  -lreadline -lncurses   /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl  -o lisp.run
./lisp.run -marc > marc.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -lp ../src/ -x '(and (load "../src/init.lisp") (sys::%saveinitmem) (ext::exit)) (ext::exit t)'
  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.93+ (2018-02-18) <http://clisp.org/>
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 ../src/defseq.lisp ...
;; Loaded file ../src/defseq.lisp
;; Loading file ../src/backquote.lisp ...
;; Loaded file ../src/backquote.lisp
;; Loading file ../src/defmacro.lisp ...
;; Loaded file ../src/defmacro.lisp
;; Loading file ../src/macros1.lisp ...
;; Loaded file ../src/macros1.lisp
;; Loading file ../src/macros2.lisp ...
;; Loaded file ../src/macros2.lisp
;; Loading file ../src/defs1.lisp ...
;; Loaded file ../src/defs1.lisp
;; Loading file ../src/lambdalist.lisp ...
;; Loaded file ../src/lambdalist.lisp
;; Loading file ../src/places.lisp ...
;; Loaded file ../src/places.lisp
;; Loading file ../src/floatprint.lisp ...
;; Loaded file ../src/floatprint.lisp
;; Loading file ../src/defpackage.lisp ...
;; Loaded file ../src/defpackage.lisp
;; Loading file ../src/type.lisp ...
;;  Loading file ../src/subtypep.lisp ...
;;  Loaded file ../src/subtypep.lisp
;; Loaded file ../src/type.lisp
;; Loading file ../src/clos-package.lisp ...
;; Loaded file ../src/clos-package.lisp
;; Loading file ../src/clos-macros.lisp ...
;; Loaded file ../src/clos-macros.lisp
;; Loading file ../src/clos-class0.lisp ...
;; Loaded file ../src/clos-class0.lisp
;; Loading file ../src/clos-metaobject1.lisp ...
;; Loaded file ../src/clos-metaobject1.lisp
;; Loading file ../src/clos-slotdef1.lisp ...
;; Loaded file ../src/clos-slotdef1.lisp
;; Loading file ../src/clos-stablehash1.lisp ...
;; Loaded file ../src/clos-stablehash1.lisp
;; Loading file ../src/clos-specializer1.lisp ...
;; Loaded file ../src/clos-specializer1.lisp
;; Loading file ../src/clos-class1.lisp ...
;; Loaded file ../src/clos-class1.lisp
;; Loading file ../src/clos-class2.lisp ...
;; Loaded file ../src/clos-class2.lisp
;; Loading file ../src/clos-class3.lisp ...
;; Loaded file ../src/clos-class3.lisp
;; Loading file ../src/defstruct.lisp ...
;; Loaded file ../src/defstruct.lisp
;; Loading file ../src/format.lisp ...
;; Loaded file ../src/format.lisp
;; Loading file ../src/international.lisp ...
;; Loaded file ../src/international.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/room.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/room.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/functions.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/functions.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/trace.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/trace.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/cmacros.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/cmacros.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/compiler.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/compiler.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/defs2.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/defs2.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/loop.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/loop.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos.lisp ...
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-slots1.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-slots1.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-method1.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-method1.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-methcomb1.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-methcomb1.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun1.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun1.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun2a.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun2a.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-methcomb2.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-methcomb2.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun2b.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun2b.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-method2.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-method2.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun3.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun3.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-dependent.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-dependent.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun4.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun4.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-method3.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-method3.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-methcomb3.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-methcomb3.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-slots2.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-slots2.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-slotdef2.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-slotdef2.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-stablehash2.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-stablehash2.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-specializer2.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-specializer2.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-class4.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-class4.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-class5.lisp ...
WARNING:
DEFGENERIC: redefining function SHARED-INITIALIZE in /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-class5.lisp, was defined in top-level
WARNING:
DEFGENERIC: redefining function REINITIALIZE-INSTANCE in /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-class5.lisp, was defined in top-level
WARNING:
DEFGENERIC: redefining function INITIALIZE-INSTANCE in /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-class5.lisp, was defined in top-level;;  
Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-class5.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-slotdef3.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-slotdef3.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-specializer3.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-specializer3.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-class6.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-class6.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-method4.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-method4.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-methcomb4.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-methcomb4.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun5.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun5.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-print.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-print.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-custom.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-custom.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/documentation.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/documentation.lisp
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gray.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gray.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/fill-out.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/fill-out.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/disassem.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/disassem.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/condition.lisp ...
WARNING:
DEFUN/DEFMACRO: redefining function MUFFLE-CERRORS in /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/condition.lisp, was defined in C;; 
Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/condition.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/loadform.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/loadform.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gstream.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gstream.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/xcharin.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/xcharin.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/keyboard.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/keyboard.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/screen.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/screen.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/runprog.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/runprog.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/query.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/query.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/reploop.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/reploop.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/savemem.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/savemem.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/dribble.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/dribble.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/pprint.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/pprint.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/describe.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/describe.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/edit.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/edit.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clhs.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clhs.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/inspect.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/inspect.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/macros3.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/macros3.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/complete.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/complete.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/case-sensitive.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/case-sensitive.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/exporting.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/exporting.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/danish.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/danish.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/german.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/german.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/french.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/french.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/spanish.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/spanish.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/dutch.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/dutch.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/russian.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/russian.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/deprecated.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/deprecated.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/config.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/config.lisp
Bytes permanently allocated:            167,456
Bytes currently in use:               9,970,032
Bytes available until next GC:        4,985,016
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 ../src/compiler.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/compiler.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/compiler.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -lp ../src/ -x '(and (load "../src/init.lisp") (sys::%saveinitmem) (ext::exit)) (ext::exit t)'
  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.93+ (2018-02-18) <http://clisp.org/>
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 ../src/defseq.lisp ...
;; Loaded file ../src/defseq.lisp
;; Loading file ../src/backquote.lisp ...
;; Loaded file ../src/backquote.lisp
;; Loading file ../src/defmacro.lisp ...
;; Loaded file ../src/defmacro.lisp
;; Loading file ../src/macros1.lisp ...
;; Loaded file ../src/macros1.lisp
;; Loading file ../src/macros2.lisp ...
;; Loaded file ../src/macros2.lisp
;; Loading file ../src/defs1.lisp ...
;; Loaded file ../src/defs1.lisp
;; Loading file ../src/lambdalist.lisp ...
;; Loaded file ../src/lambdalist.lisp
;; Loading file ../src/places.lisp ...
;; Loaded file ../src/places.lisp
;; Loading file ../src/floatprint.lisp ...
;; Loaded file ../src/floatprint.lisp
;; Loading file ../src/defpackage.lisp ...
;; Loaded file ../src/defpackage.lisp
;; Loading file ../src/type.lisp ...
;;  Loading file ../src/subtypep.lisp ...
;;  Loaded file ../src/subtypep.lisp
;; Loaded file ../src/type.lisp
;; Loading file ../src/clos-package.lisp ...
;; Loaded file ../src/clos-package.lisp
;; Loading file ../src/clos-macros.lisp ...
;; Loaded file ../src/clos-macros.lisp
;; Loading file ../src/clos-class0.lisp ...
;; Loaded file ../src/clos-class0.lisp
;; Loading file ../src/clos-metaobject1.lisp ...
;; Loaded file ../src/clos-metaobject1.lisp
;; Loading file ../src/clos-slotdef1.lisp ...
;; Loaded file ../src/clos-slotdef1.lisp
;; Loading file ../src/clos-stablehash1.lisp ...
;; Loaded file ../src/clos-stablehash1.lisp
;; Loading file ../src/clos-specializer1.lisp ...
;; Loaded file ../src/clos-specializer1.lisp
;; Loading file ../src/clos-class1.lisp ...
;; Loaded file ../src/clos-class1.lisp
;; Loading file ../src/clos-class2.lisp ...
;; Loaded file ../src/clos-class2.lisp
;; Loading file ../src/clos-class3.lisp ...
;; Loaded file ../src/clos-class3.lisp
;; Loading file ../src/defstruct.lisp ...
;; Loaded file ../src/defstruct.lisp
;; Loading file ../src/format.lisp ...
;; Loaded file ../src/format.lisp
;; Loading file ../src/international.lisp ...
;; Loaded file ../src/international.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/room.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/room.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/functions.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/functions.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/trace.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/trace.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/cmacros.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/cmacros.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/compiler.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/compiler.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/defs2.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/defs2.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/loop.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/loop.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos.lisp ...
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-slots1.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-slots1.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-method1.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-method1.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-methcomb1.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-methcomb1.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun1.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun1.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun2a.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun2a.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-methcomb2.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-methcomb2.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun2b.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun2b.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-method2.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-method2.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun3.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun3.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-dependent.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-dependent.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun4.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun4.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-method3.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-method3.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-methcomb3.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-methcomb3.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-slots2.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-slots2.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-slotdef2.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-slotdef2.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-stablehash2.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-stablehash2.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-specializer2.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-specializer2.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-class4.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-class4.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-class5.lisp ...
WARNING:
DEFGENERIC: redefining function SHARED-INITIALIZE in /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-class5.lisp, was defined in top-level
WARNING:
DEFGENERIC: redefining function REINITIALIZE-INSTANCE in /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-class5.lisp, was defined in top-level
WARNING:
DEFGENERIC: redefining function INITIALIZE-INSTANCE in /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-class5.lisp, was defined in top-level;;  
Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-class5.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-slotdef3.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-slotdef3.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-specializer3.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-specializer3.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-class6.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-class6.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-method4.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-method4.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-methcomb4.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-methcomb4.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun5.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun5.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-print.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-print.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-custom.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-custom.lisp
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/documentation.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/documentation.lisp
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gray.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gray.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/fill-out.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/fill-out.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/disassem.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/disassem.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/condition.lisp ...
WARNING:
DEFUN/DEFMACRO: redefining function MUFFLE-CERRORS in /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/condition.lisp, was defined in C;; 
Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/condition.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/loadform.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/loadform.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gstream.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gstream.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/xcharin.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/xcharin.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/keyboard.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/keyboard.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/screen.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/screen.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/runprog.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/runprog.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/query.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/query.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/reploop.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/reploop.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/savemem.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/savemem.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/dribble.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/dribble.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/pprint.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/pprint.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/describe.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/describe.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/edit.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/edit.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clhs.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clhs.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/inspect.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/inspect.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/macros3.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/macros3.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/complete.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/complete.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/case-sensitive.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/case-sensitive.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/exporting.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/exporting.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/danish.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/danish.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/german.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/german.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/french.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/french.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/spanish.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/spanish.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/dutch.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/dutch.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/russian.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/russian.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/deprecated.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/deprecated.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/config.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/config.lisp
Bytes permanently allocated:            167,456
Bytes currently in use:               8,517,904
Bytes available until next GC:        4,258,952
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 ../src/init.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/init.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/init.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/defseq.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/defseq.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/defseq.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/backquote.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/backquote.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/backquote.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/defmacro.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/defmacro.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/defmacro.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/macros1.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/macros1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/macros1.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/macros2.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/macros2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/macros2.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/defs1.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/defs1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/defs1.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/lambdalist.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/lambdalist.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/lambdalist.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/places.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/places.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/places.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/floatprint.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/floatprint.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/floatprint.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/defpackage.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/defpackage.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/defpackage.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/type.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/type.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/type.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/subtypep.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/subtypep.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/subtypep.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-package.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-package.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-package.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-macros.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-macros.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-macros.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-class0.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-class0.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-class0.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-metaobject1.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-metaobject1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-metaobject1.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-slotdef1.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-slotdef1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-slotdef1.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-stablehash1.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-stablehash1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-stablehash1.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-specializer1.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-specializer1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-specializer1.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-class1.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-class1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-class1.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-class2.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-class2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-class2.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-class3.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-class3.lisp ...
WARNING: Redefining metaobject class #<STANDARD-CLASS METAOBJECT> has no
         effect.
WARNING: Redefining metaobject class #<STANDARD-CLASS SPECIALIZER> has no
         effect.
WARNING: Redefining metaobject class #<STANDARD-CLASS SUPER-CLASS> has no
         effect.
WARNING: Redefining metaobject class #<STANDARD-CLASS POTENTIAL-CLASS> has no
         effect.
WARNING: Redefining metaobject class #<STANDARD-CLASS BUILT-IN-CLASS> has no
         effect.
WARNING: Redefining metaobject class #<STANDARD-CLASS SLOTTED-CLASS> has no
         effect.
WARNING: Redefining metaobject class #<STANDARD-CLASS SEMI-STANDARD-CLASS> has
         no effect.
WARNING: Redefining metaobject class #<STANDARD-CLASS STANDARD-CLASS> has no
         effect.
WARNING: Redefining metaobject class #<STANDARD-CLASS STRUCTURE-CLASS> has no
         effect.
WARNING: Redefining metaobject class #<STANDARD-CLASS SLOT-DEFINITION> has no
         effect.
WARNING: Redefining metaobject class #<STANDARD-CLASS DIRECT-SLOT-DEFINITION>
         has no effect.
WARNING: Redefining metaobject class
         #<STANDARD-CLASS EFFECTIVE-SLOT-DEFINITION> has no effect.
WARNING: Redefining metaobject class
         #<STANDARD-CLASS STANDARD-SLOT-DEFINITION> has no effect.
WARNING: Redefining metaobject class
         #<STANDARD-CLASS STANDARD-DIRECT-SLOT-DEFINITION> has no effect.
WARNING: Redefining metaobject class
         #<STANDARD-CLASS STANDARD-EFFECTIVE-SLOT-DEFINITION> has no effect.
WARNING: Redefining metaobject class
         #<STANDARD-CLASS STRUCTURE-DIRECT-SLOT-DEFINITION> has no effect.
WARNING: Redefining metaobject class
         #<STANDARD-CLASS STRUCTURE-EFFECTIVE-SLOT-DEFINITION> has no effect.
WARNING: Redefining metaobject class #<STANDARD-CLASS EQL-SPECIALIZER> has no
         effect.
WARNING: Redefining metaobject class
         #<STANDARD-CLASS MISDESIGNED-FORWARD-REFERENCED-CLASS> has no effect.
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-class3.fas
0 errors, 19 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/defstruct.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/defstruct.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/defstruct.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/format.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/format.lisp ...
WARNING: in FORMATTER-MAIN-1 in lines 2028..2526 : variable ADD-FILL is not
         used.
         Misspelled or missing IGNORE declaration?
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/format.fas
0 errors, 1 warning
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/international.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/international.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/international.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/savemem.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/savemem.lisp ...
WARNING: in SAVEINITMEM in lines 31..106 : Mixing &OPTIONAL and &KEY in lambda
         list
          (&OPTIONAL (FILENAME "lispinit.mem") &KEY ((:QUIET *QUIET*) NIL)
           (INIT-FUNCTION NIL INIT-FUNCTION-P)
           ((:VERBOSE *SAVEINITMEM-VERBOSE*) *SAVEINITMEM-VERBOSE*)
           ((:NORC *NORC*) NIL)
           ((:DOCUMENTATION *IMAGE-DOC*)
            (DOCUMENTATION INIT-FUNCTION 'FUNCTION))
           ((:SCRIPT *SCRIPT*) (NULL INIT-FUNCTION)) KEEP-GLOBAL-HANDLERS
           (START-PACKAGE *PACKAGE*) (LOCKED-PACKAGES *SYSTEM-PACKAGE-LIST*)
           EXECUTABLE)
         is bad design
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/savemem.fas
0 errors, 1 warning
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/functions.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/functions.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/functions.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/trace.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/trace.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/trace.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/cmacros.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/cmacros.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/cmacros.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/defs2.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/defs2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/defs2.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/loop.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/loop.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/loop.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-stablehash2.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-stablehash2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-stablehash2.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-specializer2.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-specializer2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-specializer2.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-specializer3.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-specializer3.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-specializer3.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-class4.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-class4.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-class4.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-class5.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-class5.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-class5.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-class6.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-class6.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-class6.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-slotdef2.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-slotdef2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-slotdef2.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-slotdef3.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-slotdef3.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-slotdef3.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-slots1.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-slots1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-slots1.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-slots2.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-slots2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-slots2.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-method1.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-method1.lisp ...
WARNING: Redefining metaobject class #<STANDARD-CLASS METHOD> has no effect.
WARNING: Redefining metaobject class #<STANDARD-CLASS STANDARD-METHOD> has no
         effect.
WARNING: Redefining metaobject class
         #<STANDARD-CLASS STANDARD-ACCESSOR-METHOD> has no effect.
WARNING: Redefining metaobject class #<STANDARD-CLASS STANDARD-READER-METHOD>
         has no effect.
WARNING: Redefining metaobject class #<STANDARD-CLASS STANDARD-WRITER-METHOD>
         has no effect.
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-method1.fas
0 errors, 5 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-method2.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-method2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-method2.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-method3.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-method3.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-method3.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-method4.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-method4.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-method4.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-methcomb1.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-methcomb1.lisp ...
WARNING: Redefining metaobject class #<STANDARD-CLASS METHOD-COMBINATION> has
         no effect.
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-methcomb1.fas
0 errors, 1 warning
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-methcomb2.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-methcomb2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-methcomb2.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-methcomb3.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-methcomb3.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-methcomb3.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-methcomb4.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-methcomb4.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-methcomb4.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-genfun1.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun1.lisp ...
WARNING: Redefining metaobject class
         #<STANDARD-CLASS FUNCALLABLE-STANDARD-CLASS> has no effect.
WARNING: Redefining metaobject class
         #<FUNCALLABLE-STANDARD-CLASS GENERIC-FUNCTION> has no effect.
WARNING: Redefining metaobject class
         #<FUNCALLABLE-STANDARD-CLASS STANDARD-GENERIC-FUNCTION> has no
         effect.
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-genfun1.fas
0 errors, 3 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-genfun2a.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun2a.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-genfun2a.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-genfun2b.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun2b.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-genfun2b.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-genfun3.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun3.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-genfun3.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-genfun4.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun4.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-genfun4.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-genfun5.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun5.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-genfun5.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-dependent.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-dependent.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-dependent.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-print.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-print.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-print.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clos-custom.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-custom.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-custom.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/documentation.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/documentation.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/documentation.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/fill-out.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/fill-out.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/fill-out.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/disassem.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/disassem.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/disassem.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/condition.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/condition.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/condition.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/loadform.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/loadform.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/loadform.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/gstream.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gstream.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gstream.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/xcharin.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/xcharin.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/xcharin.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/keyboard.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/keyboard.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/keyboard.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/screen.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/screen.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/screen.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/runprog.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/runprog.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/runprog.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/query.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/query.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/query.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/reploop.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/reploop.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/reploop.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/dribble.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/dribble.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/dribble.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/complete.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/complete.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/complete.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/pprint.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/pprint.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/pprint.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/describe.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/describe.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/describe.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/room.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/room.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/room.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/edit.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/edit.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/edit.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/macros3.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/macros3.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/macros3.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/clhs.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clhs.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clhs.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/inspect.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/inspect.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/inspect.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/gray.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gray.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gray.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/case-sensitive.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/case-sensitive.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/case-sensitive.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/exporting.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/exporting.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/exporting.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/german.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/german.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/german.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/french.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/french.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/french.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/spanish.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/spanish.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/spanish.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/russian.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/russian.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/russian.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/danish.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/danish.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/danish.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/dutch.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/dutch.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/dutch.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c ../src/deprecated.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/deprecated.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/deprecated.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -M halfcompiled.mem -q -c config.lisp
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/config.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/config.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -x "(and (load \"init.fas\") (ext::saveinitmem) (ext::exit)) (ext::exit t)"
  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.93+ (2018-02-18) <http://clisp.org/>
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.
WARNING:
DEFUN/DEFMACRO: redefining function LOAD in top-level, was defined in C;; Loading file 
defseq.fas ...
;; Loaded file defseq.fas
;; Loading file backquote.fas ...
;; Loaded file backquote.fas
;; Loading file defmacro.fas ...
;; Loaded file defmacro.fas
;; Loading file macros1.fas ...
;; Loaded file macros1.fas
;; Loading file macros2.fas ...
;; Loaded file macros2.fas
;; Loading file defs1.fas ...
;; Loaded file defs1.fas
;; Loading file lambdalist.fas ...
;; Loaded file lambdalist.fas
;; Loading file places.fas ...
;; Loaded file places.fas
;; Loading file floatprint.fas ...
;; Loaded file floatprint.fas
;; Loading file defpackage.fas ...
;; Loaded file defpackage.fas
;; Loading file type.fas ...
;;  Loading file subtypep.fas ...
;;  Loaded file subtypep.fas
;; Loaded file type.fas
;; Loading file clos-package.fas ...
;; Loaded file clos-package.fas
;; Loading file clos-macros.fas ...
;; Loaded file clos-macros.fas
;; Loading file clos-class0.fas ...
;; Loaded file clos-class0.fas
;; Loading file clos-metaobject1.fas ...
;; Loaded file clos-metaobject1.fas
;; Loading file clos-slotdef1.fas ...
;; Loaded file clos-slotdef1.fas
;; Loading file clos-stablehash1.fas ...
;; Loaded file clos-stablehash1.fas
;; Loading file clos-specializer1.fas ...
;; Loaded file clos-specializer1.fas
;; Loading file clos-class1.fas ...
;; Loaded file clos-class1.fas
;; Loading file clos-class2.fas ...
;; Loaded file clos-class2.fas
;; Loading file clos-class3.fas ...
;; Loaded file clos-class3.fas
;; Loading file defstruct.fas ...
;; Loaded file defstruct.fas
;; Loading file format.fas ...
;; Loaded file format.fas
;; Loading file international.fas ...
;; Loaded file international.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/room.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/room.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/functions.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/functions.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/trace.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/trace.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/cmacros.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/cmacros.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/compiler.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/compiler.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/defs2.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/defs2.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/loop.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/loop.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos.fas ...
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-slots1.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-slots1.fas
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-method1.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-method1.fas
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-methcomb1.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-methcomb1.fas
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-genfun1.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-genfun1.fas
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-genfun2a.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-genfun2a.fas
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-methcomb2.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-methcomb2.fas
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-genfun2b.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-genfun2b.fas
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-method2.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-method2.fas
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-genfun3.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-genfun3.fas
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-dependent.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-dependent.fas
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-genfun4.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-genfun4.fas
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-method3.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-method3.fas
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-methcomb3.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-methcomb3.fas
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-slots2.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-slots2.fas
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-slotdef2.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-slotdef2.fas
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-stablehash2.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-stablehash2.fas
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-specializer2.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-specializer2.fas
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-class4.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-class4.fas
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-class5.fas ...
WARNING:
DEFGENERIC: redefining function SHARED-INITIALIZE in /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-class5.fas, was defined in top-level
WARNING:
DEFGENERIC: redefining function REINITIALIZE-INSTANCE in /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-class5.fas, was defined in top-level
WARNING:
DEFGENERIC: redefining function INITIALIZE-INSTANCE in /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-class5.fas, was defined in top-level;;  Loaded file 
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-class5.fas
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-slotdef3.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-slotdef3.fas
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-specializer3.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-specializer3.fas
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-class6.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-class6.fas
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-method4.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-method4.fas
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-methcomb4.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-methcomb4.fas
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-genfun5.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-genfun5.fas
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-print.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-print.fas
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-custom.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-custom.fas
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/documentation.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/documentation.fas
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gray.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gray.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/fill-out.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/fill-out.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/disassem.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/disassem.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/condition.fas ...
WARNING:
DEFUN/DEFMACRO: redefining function MUFFLE-CERRORS in /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/condition.fas, was defined in C;; Loaded file 
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/condition.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/loadform.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/loadform.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gstream.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gstream.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/xcharin.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/xcharin.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/keyboard.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/keyboard.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/screen.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/screen.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/runprog.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/runprog.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/query.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/query.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/reploop.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/reploop.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/savemem.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/savemem.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/dribble.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/dribble.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/pprint.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/pprint.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/describe.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/describe.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/edit.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/edit.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clhs.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clhs.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/inspect.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/inspect.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/macros3.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/macros3.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/complete.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/complete.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/case-sensitive.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/case-sensitive.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/exporting.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/exporting.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/danish.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/danish.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/german.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/german.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/french.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/french.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/spanish.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/spanish.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/dutch.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/dutch.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/russian.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/russian.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/deprecated.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/deprecated.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/config.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/config.fas
;; Wrote the memory image into lispinit.mem (3,157,632 bytes)
Bytes permanently allocated:            167,456
Bytes currently in use:               2,986,528
Bytes available until next GC:        1,489,712
Bye.
rm -f ANNOUNCE
ln -s ../ANNOUNCE ANNOUNCE
rm -f COPYRIGHT
ln -s ../COPYRIGHT COPYRIGHT
rm -f GNU-GPL
ln -s ../GNU-GPL GNU-GPL
rm -f SUMMARY
ln -s ../SUMMARY SUMMARY
ln -s ../src/NEWS NEWS
./txt2c -I../src/ < ../src/_README > gen-README.c
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -DCOMPILE_STANDALONE -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -O0 gen-README.c libgnu.a -o gen-README
In file included from /usr/include/bits/libc-header-start.h:33,
                 from /usr/include/stdlib.h:26,
                 from /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib/stdlib.h:36,
                 from ../src/lispbibl.d:1123,
                 from gen-README.c:1:
/usr/include/features.h:414:4: warning: #warning _FORTIFY_SOURCE requires compiling with optimization (-O) [-Wcpp]
  414 | #  warning _FORTIFY_SOURCE requires compiling with optimization (-O)
      |    ^~~~~~~
./gen-README > README
rm -f gen-README.c gen-README
./txt2c -I../src/ < ../src/_README.de > gen-READMEde.c
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -DCOMPILE_STANDALONE -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -O0 gen-READMEde.c libgnu.a -o gen-READMEde
In file included from /usr/include/bits/libc-header-start.h:33,
                 from /usr/include/stdlib.h:26,
                 from /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib/stdlib.h:36,
                 from ../src/lispbibl.d:1123,
                 from gen-READMEde.c:1:
/usr/include/features.h:414:4: warning: #warning _FORTIFY_SOURCE requires compiling with optimization (-O) [-Wcpp]
  414 | #  warning _FORTIFY_SOURCE requires compiling with optimization (-O)
      |    ^~~~~~~
./gen-READMEde > README.de
rm -f gen-READMEde.c gen-READMEde
./txt2c -I../src/ < ../src/_README.es > gen-READMEes.c
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -DCOMPILE_STANDALONE -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -O0 gen-READMEes.c libgnu.a -o gen-READMEes
In file included from /usr/include/bits/libc-header-start.h:33,
                 from /usr/include/stdlib.h:26,
                 from /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib/stdlib.h:36,
                 from ../src/lispbibl.d:1123,
                 from gen-READMEes.c:1:
/usr/include/features.h:414:4: warning: #warning _FORTIFY_SOURCE requires compiling with optimization (-O) [-Wcpp]
  414 | #  warning _FORTIFY_SOURCE requires compiling with optimization (-O)
      |    ^~~~~~~
./gen-READMEes > README.es
rm -f gen-READMEes.c gen-READMEes
rm -f MAGIC.add
ln -s ../unix/MAGIC.add MAGIC.add
./txt2c -I../src/ < ../doc/_clisp.1 > gen-clisp1.c
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -DCOMPILE_STANDALONE -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -O0 gen-clisp1.c libgnu.a -o gen-clisp1
In file included from /usr/include/bits/libc-header-start.h:33,
                 from /usr/include/stdlib.h:26,
                 from /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib/stdlib.h:36,
                 from ../src/lispbibl.d:1123,
                 from gen-clisp1.c:1:
/usr/include/features.h:414:4: warning: #warning _FORTIFY_SOURCE requires compiling with optimization (-O) [-Wcpp]
  414 | #  warning _FORTIFY_SOURCE requires compiling with optimization (-O)
      |    ^~~~~~~
./gen-clisp1 | grep -v '^ *$' | sed -e "s,@PLATFORM@,x86_64-pc-linux-gnu,g" > clisp.1
rm -f gen-clisp1.c gen-clisp1
./txt2c -I../src/ < ../doc/_clisp.html > gen-clisphtml.c
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -DCOMPILE_STANDALONE -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -O0 gen-clisphtml.c libgnu.a -o gen-clisphtml
In file included from /usr/include/bits/libc-header-start.h:33,
                 from /usr/include/stdlib.h:26,
                 from /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib/stdlib.h:36,
                 from ../src/lispbibl.d:1123,
                 from gen-clisphtml.c:1:
/usr/include/features.h:414:4: warning: #warning _FORTIFY_SOURCE requires compiling with optimization (-O) [-Wcpp]
  414 | #  warning _FORTIFY_SOURCE requires compiling with optimization (-O)
      |    ^~~~~~~
./gen-clisphtml | sed -e "s,@PLATFORM@,x86_64-pc-linux-gnu,g" > clisp.html
rm -f gen-clisphtml.c gen-clisphtml
./txt2c -I../src/ < ../doc/_clisp-link.1 > gen-clisp-link1.c
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -DCOMPILE_STANDALONE -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -O0 gen-clisp-link1.c libgnu.a -o gen-clisp-link1
In file included from /usr/include/bits/libc-header-start.h:33,
                 from /usr/include/stdlib.h:26,
                 from /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib/stdlib.h:36,
                 from ../src/lispbibl.d:1123,
                 from gen-clisp-link1.c:1:
/usr/include/features.h:414:4: warning: #warning _FORTIFY_SOURCE requires compiling with optimization (-O) [-Wcpp]
  414 | #  warning _FORTIFY_SOURCE requires compiling with optimization (-O)
      |    ^~~~~~~
./gen-clisp-link1 | grep -v '^ *$' | sed -e "s,@PLATFORM@,x86_64-pc-linux-gnu,g" > clisp-link.1
rm -f gen-clisp-link1.c gen-clisp-link1
./txt2c -I../src/ < ../doc/_clisp-link.html > gen-clisp-linkhtml.c
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -DCOMPILE_STANDALONE -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -O0 gen-clisp-linkhtml.c libgnu.a -o gen-clisp-linkhtml
In file included from /usr/include/bits/libc-header-start.h:33,
                 from /usr/include/stdlib.h:26,
                 from /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib/stdlib.h:36,
                 from ../src/lispbibl.d:1123,
                 from gen-clisp-linkhtml.c:1:
/usr/include/features.h:414:4: warning: #warning _FORTIFY_SOURCE requires compiling with optimization (-O) [-Wcpp]
  414 | #  warning _FORTIFY_SOURCE requires compiling with optimization (-O)
      |    ^~~~~~~
./gen-clisp-linkhtml | sed -e "s,@PLATFORM@,x86_64-pc-linux-gnu,g" > clisp-link.html
rm -f gen-clisp-linkhtml.c gen-clisp-linkhtml
rm -f LISP-tutorial.txt
ln -s ../doc/LISP-tutorial.txt LISP-tutorial.txt
rm -f CLOS-guide.txt
ln -s ../doc/CLOS-guide.txt CLOS-guide.txt
rm -f impnotes.html
ln -s ../doc/impnotes.html impnotes.html
rm -f impnotes.css
ln -s ../doc/impnotes.css impnotes.css
rm -f clisp.png
ln -s ../doc/clisp.png clisp.png
groff -Tps -mandoc  clisp.1 > clisp.ps
troff:clisp.1:1417: warning [p 9, 3.7i]: cannot break line
troff:clisp.1:1427: warning [p 9, 4.5i]: cannot break line
troff:clisp.1:1437: warning [p 9, 5.3i]: cannot break line
troff:clisp.1:1467: warning [p 9, 7.7i]: cannot break line
troff:clisp.1:1472: warning [p 9, 8.1i]: cannot break line
troff:clisp.1:1507: warning [p 10, 2.0i]: cannot break line
troff:clisp.1:1573: warning [p 10, 7.3i]: cannot break line
troff:clisp.1:1583: warning [p 10, 8.1i]: cannot break line
troff:clisp.1:1640: warning [p 11, 4.0i]: cannot break line
troff:clisp.1:1665: warning [p 11, 6.0i]: cannot break line
ps2pdf clisp.ps clisp.pdf
groff -Tps -mandoc  clisp-link.1 > clisp-link.ps
troff:clisp-link.1:350: warning [p 2, 9.4i]: cannot break line
ps2pdf clisp-link.ps clisp-link.pdf
/usr/bin/ld -m elf_x86_64 -r -o lisp.o spvw.o spvwtabf.o spvwtabs.o spvwtabo.o eval.o control.o encoding.o pathname.o stream.o socket.o io.o funarg.o array.o hashtabl.o list.o package.o record.o weak.o sequence.o charstrg.o debug.o error.o misc.o time.o predtype.o symbol.o lisparit.o i18n.o unixaux.o built.o
chmod a-x lisp.o
ar rcv lisp.a lisp.o
a - lisp.o
rm -f lisp.o
ranlib lisp.a
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -c noreadline.c
../src/noreadline.d: In function ‘readline’:
../src/noreadline.d:32:24: warning: unused parameter ‘prompt’ [-Wunused-parameter]
   32 | global char* readline (char* prompt) { return NULL; }
      |                  ~~~~~~^~~~~~
../src/noreadline.d: In function ‘filename_completion_function’:
../src/noreadline.d:38:50: warning: unused parameter ‘text’ [-Wunused-parameter]
   38 | global char* filename_completion_function (const char* text, int state)
      |                                      ~~~~~~~~~~~~^~~~
../src/noreadline.d:38:60: warning: unused parameter ‘state’ [-Wunused-parameter]
   38 | global char* filename_completion_function (const char* text, int state)
      |                                                        ~~~~^~~~~
../src/noreadline.d: In function ‘add_history’:
../src/noreadline.d:42:26: warning: unused parameter ‘line’ [-Wunused-parameter]
   42 | global void add_history (char* line) {}
      |                    ~~~~~~^~~~
../src/noreadline.d: In function ‘rl_named_function’:
../src/noreadline.d:45:46: warning: unused parameter ‘string’ [-Wunused-parameter]
   45 | global rl_command_func_t* rl_named_function (char* string) { return NULL; }
      |                                        ~~~~~~^~~~~~
../src/noreadline.d: In function ‘rl_bind_key’:
../src/noreadline.d:48:23: warning: unused parameter ‘key’ [-Wunused-parameter]
   48 | global int rl_bind_key (int key, rl_command_func_t* function) { return 0; }
      |                   ~~~~^~~
../src/noreadline.d:48:47: warning: unused parameter ‘function’ [-Wunused-parameter]
   48 | global int rl_bind_key (int key, rl_command_func_t* function) { return 0; }
      |                            ~~~~~~~~~~~~~~~~~~~^~~~~~~~
../src/noreadline.d: In function ‘rl_variable_bind’:
../src/noreadline.d:51:36: warning: unused parameter ‘variable’ [-Wunused-parameter]
   51 | global int rl_variable_bind (const char *variable, const char *value)
      |                        ~~~~~~~~~~~~^~~~~~~~
../src/noreadline.d:51:58: warning: unused parameter ‘value’ [-Wunused-parameter]
   51 | global int rl_variable_bind (const char *variable, const char *value)
      |                                              ~~~~~~~~~~~~^~~~~
../src/noreadline.d: In function ‘rl_set_paren_blink_timeout’:
../src/noreadline.d:55:38: warning: unused parameter ‘timeout’ [-Wunused-parameter]
   55 | global int rl_set_paren_blink_timeout (int timeout) { return 0; }
      |                                  ~~~~^~~~~~~
../src/noreadline.d: In function ‘rl_add_defun’:
../src/noreadline.d:58:32: warning: unused parameter ‘name’ [-Wunused-parameter]
   58 | global int rl_add_defun (const char *name, rl_command_func_t *func, int key)
      |                    ~~~~~~~~~~~~^~~~
../src/noreadline.d:58:57: warning: unused parameter ‘func’ [-Wunused-parameter]
   58 | global int rl_add_defun (const char *name, rl_command_func_t *func, int key)
      |                                      ~~~~~~~~~~~~~~~~~~~^~~~
../src/noreadline.d:58:67: warning: unused parameter ‘key’ [-Wunused-parameter]
   58 | global int rl_add_defun (const char *name, rl_command_func_t *func, int key)
      |                                                               ~~~~^~~
ar rcv libnoreadline.a noreadline.o
a - noreadline.o
ranlib libnoreadline.a
sed -e 's%@''SHELL''@%/bin/sh%' \
    -e 's%@with_dynamic_modules@%yes%' \
    -e 's%@createsharedlib@%${CC} -Wl,--as-needed -shared  -fPIC -DPIC $libs ${CLFLAGS} ${CFLAGS} -Wl,-soname -Wl,$dll -o $lib%' \
    -e 's%@LEXE@%.run%' -e 's%@SHREXT@%.so%' \
    -e 's%@CLISP_DEF@%%' \
  < ../src/clisp-link.in > clisp-link
chmod a+x clisp-link
rm -rf linkkit
mkdir linkkit
cd linkkit && ln -s /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/modules.c modules.c
cd linkkit && ln -s /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp.h clisp.h
cd linkkit && ln -s /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/utils/modprep.lisp modprep.lisp
(echo 'CC='"'"'gcc'"'" ;\
 echo 'CPPFLAGS='"'"'-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib'"'" ;\
 echo 'CFLAGS='"'"'-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC'"'" ;\
 echo 'CLFLAGS='"'"'-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -Wl,--export-dynamic'"'" ;\
 echo 'LIBS='"'"'lisp.a -Wl,--whole-archive libgnu.a -Wl,--no-whole-archive  -lreadline -lncurses   /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl '"'" ;\
 echo 'X_LIBS='"'"''"'" ;\
 echo 'RANLIB='"'"'ranlib'"'" ;\
 echo 'FILES='"'"'lisp.a libgnu.a libnoreadline.a '"'") > makevars
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)
./txt2c -I../src/ < ../src/_clisp.c > gen-clispc.c
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -I. -DCOMPILE_STANDALONE -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -O0 gen-clispc.c libgnu.a -o gen-clispc
In file included from /usr/include/bits/libc-header-start.h:33,
                 from /usr/include/stdlib.h:26,
                 from /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib/stdlib.h:36,
                 from ../src/lispbibl.d:1123,
                 from gen-clispc.c:1:
/usr/include/features.h:414:4: warning: #warning _FORTIFY_SOURCE requires compiling with optimization (-O) [-Wcpp]
  414 | #  warning _FORTIFY_SOURCE requires compiling with optimization (-O)
      |    ^~~~~~~
./gen-clispc > clisp.c
rm -f gen-clispc.c gen-clispc
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -DENABLE_RELOCATABLE clisp.c -Wl,--whole-archive libgnu.a -Wl,--no-whole-archive  -lreadline -lncurses   /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl  -o clisp
mkdir -p i18n
m=`cd ../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_CLFLAGS_set}" = set; then CLFLAGS="${ac_cv_env_CLFLAGS_value}"; export CLFLAGS; 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/sh $m/configure --with-clisp="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K boot  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--libdir=/usr/lib64' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--docdir=/usr/share/doc/clisp' '--with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline' '--without-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm' 'LT_SYS_LIBRARY_PATH=/usr/lib64:';\
    else \
      /bin/sh $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--libdir=/usr/lib64' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--docdir=/usr/share/doc/clisp' '--with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline' '--without-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm' 'LT_SYS_LIBRARY_PATH=/usr/lib64:'; \
    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="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K boot  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd i18n ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC" CLFLAGS="-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -Wl,--export-dynamic" LIBS="-Wl,--whole-archive libgnu.a -Wl,--no-whole-archive  -lreadline -lncurses   /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " 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.93+ (2018-02-18) (built 3925184752) (memory 3925184810)
checking for CLISP libdir... /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/
checking for CLISP linking set... /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build
configure: ** I18N (Common)
checking for CLISP... yes
checking for gcc... (cached) gcc
checking whether the C compiler works... yes
checking for C compiler default output file name... a.out
checking for suffix of executables... 
checking whether we are cross compiling... no
checking for suffix of object files... (cached) o
checking whether the compiler supports GNU C... (cached) yes
checking whether gcc accepts -g... (cached) yes
checking for gcc option to enable C11 features... (cached) none needed
checking whether gcc understands -c and -o together... (cached) yes
checking whether the compiler is clang... (cached) no
checking for compiler option needed when checking for declarations... (cached) none
checking how to run the C preprocessor... (cached) gcc -E
checking how to make hard links... (cached) ln
checking whether ln -s works... (cached) yes
checking for stdio.h... (cached) yes
checking for stdlib.h... (cached) yes
checking for string.h... (cached) yes
checking for inttypes.h... (cached) yes
checking for stdint.h... (cached) yes
checking for strings.h... (cached) yes
checking for sys/stat.h... (cached) yes
checking for sys/types.h... (cached) yes
checking for unistd.h... (cached) yes
checking for wchar.h... (cached) yes
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
configure: ** I18N (locale)
checking for localeconv... yes
checking for struct lconv.int_p_cs_precedes... yes
checking for struct lconv.int_n_cs_precedes... yes
checking for struct lconv.int_p_sep_by_space... yes
checking for struct lconv.int_n_sep_by_space... yes
checking for struct lconv.int_p_sign_posn... yes
checking for struct lconv.int_n_sign_posn... yes
configure: ** I18N (Output)
configure: updating cache ../config.cache
configure: creating ./config.status
config.status: creating Makefile
config.status: creating link.sh
config.status: creating config.h
configure: ** I18N (Done)
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/i18n'
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K boot  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/i18n/i18n.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/i18n/i18n.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/i18n/i18n.fas
0 errors, 0 warnings
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K boot  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -C /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/linkkit/modprep /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/i18n/gettext.c ./
;; MODPREP: "/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/i18n/gettext.c" --> #P"gettext.m.c"
;; MODPREP: reading "/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/i18n/gettext.c": 19,122 bytes, 441 lines
WARNING: truncated a very long tag (from 7,676 to 2,000) for
         ("(OR INTEGER (MEMBER" ..);; MODPREP: 184 objects, 
9 DEFUNs
;; packages: ("I18N")
MODPREP: wrote gettext.m.c (92,773 bytes)
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC -I. -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/linkkit \
	-c gettext.m.c -o gettext.o
ln -s /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/i18n/preload.lisp .
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/i18n'
mkdir -p syscalls
m=`cd ../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_CLFLAGS_set}" = set; then CLFLAGS="${ac_cv_env_CLFLAGS_value}"; export CLFLAGS; 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/sh $m/configure --with-clisp="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K boot  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--libdir=/usr/lib64' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--docdir=/usr/share/doc/clisp' '--with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline' '--without-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm' 'LT_SYS_LIBRARY_PATH=/usr/lib64:';\
    else \
      /bin/sh $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--libdir=/usr/lib64' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--docdir=/usr/share/doc/clisp' '--with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline' '--without-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm' 'LT_SYS_LIBRARY_PATH=/usr/lib64:'; \
    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="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K boot  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd syscalls ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC" CLFLAGS="-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -Wl,--export-dynamic" LIBS="-Wl,--whole-archive libgnu.a -Wl,--no-whole-archive  -lreadline -lncurses   /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " 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.93+ (2018-02-18) (built 3925184752) (memory 3925184810)
checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/
checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build
configure: ** System Calls (Common)
checking for CLISP... (cached) yes
checking for gcc... (cached) gcc
checking whether the C compiler works... yes
checking for C compiler default output file name... a.out
checking for suffix of executables... 
checking whether we are cross compiling... no
checking for suffix of object files... (cached) o
checking whether the compiler supports GNU C... (cached) yes
checking whether gcc accepts -g... (cached) yes
checking for gcc option to enable C11 features... (cached) none needed
checking whether gcc understands -c and -o together... (cached) yes
checking whether the compiler is clang... (cached) no
checking for compiler option needed when checking for declarations... (cached) none
checking how to run the C preprocessor... (cached) gcc -E
checking how to make hard links... (cached) ln
checking whether ln -s works... (cached) yes
checking for stdio.h... (cached) yes
checking for stdlib.h... (cached) yes
checking for string.h... (cached) yes
checking for inttypes.h... (cached) yes
checking for stdint.h... (cached) yes
checking for strings.h... (cached) yes
checking for sys/stat.h... (cached) yes
checking for sys/types.h... (cached) yes
checking for unistd.h... (cached) yes
checking for wchar.h... (cached) yes
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 for a BSD-compatible install... (cached) /usr/bin/install -c
checking whether build environment is sane... yes
checking for a race-free mkdir -p... (cached) /usr/bin/mkdir -p
checking for gawk... (cached) gawk
checking whether make sets $(MAKE)... (cached) yes
checking whether make supports the include directive... yes (GNU style)
checking whether make supports nested variables... (cached) yes
checking dependency style of gcc... (cached) gcc3
checking for ranlib... (cached) ranlib
configure: ** System Calls (Headers)
checking for fcntl.h... yes
checking for netdb.h... (cached) yes
checking for utime.h... yes
checking for pwd.h... yes
checking for sys/unistd.h... yes
checking for syslog.h... yes
checking for signal.h... yes
checking for grp.h... yes
checking for utmpx.h... yes
checking for shlobj.h... no
checking for sys/statvfs.h... yes
checking for sys/statfs.h... yes
checking for sys/param.h... (cached) yes
checking for ftw.h... yes
checking build system type... (cached) x86_64-pc-linux-gnu
checking host system type... (cached) x86_64-pc-linux-gnu
checking for special C compiler options needed for large files... (cached) no
checking for _FILE_OFFSET_BITS value needed for large files... (cached) no
checking size of off_t... (cached) 8
checking size of gid_t... 4
checking size of pid_t... 4
checking size of uid_t... 4
checking for struct utmpx.ut_host... yes
checking for grep that handles long lines and -e... (cached) /usr/bin/grep
checking for egrep... (cached) /usr/bin/grep -E
checking whether the preprocessor supports include_next... (cached) yes
checking whether source code line length is unlimited... (cached) yes
checking for complete errno.h... (cached) yes
configure: ** System Calls (Functions)
checking for library containing erf... -lm
checking for confstr... yes
checking for fcntl... (cached) yes
checking for gethostent... (cached) yes
checking for sysconf... (cached) yes
checking for getrlimit... (cached) yes
checking for setrlimit... yes
checking for getlogin... yes
checking for getpwent... yes
checking for getpwnam... yes
checking for getpwuid... yes
checking for endpwent... yes
checking for setpwent... yes
checking for getservbyport... yes
checking for getservbyname... yes
checking for getservent... yes
checking for setservent... yes
checking for endservent... yes
checking for openlog... yes
checking for setlogmask... yes
checking for syslog... yes
checking for closelog... yes
checking for chroot... yes
checking for getppid... yes
checking for getpgid... yes
checking for getsid... yes
checking for setpgid... (cached) yes
checking for setsid... (cached) yes
checking for kill... yes
checking for pathconf... yes
checking for fpathconf... yes
checking for realpath... (cached) yes
checking for getpgrp... yes
checking for setpgrp... yes
checking for getgrgid... yes
checking for getgrnam... yes
checking for getgrent... yes
checking for endgrent... yes
checking for setgrent... yes
checking for endutxent... yes
checking for getutxent... yes
checking for getutxid... yes
checking for getutxline... yes
checking for pututxline... yes
checking for setutxent... yes
checking for getegid... yes
checking for geteuid... yes
checking for getgid... yes
checking for getuid... yes
checking for setegid... yes
checking for seteuid... yes
checking for setgid... yes
checking for setuid... yes
checking for setreuid... (cached) yes
checking for setregid... (cached) yes
checking for getgroups... yes
checking for setgroups... yes
checking for wait4... yes
checking for fchmod... (cached) yes
checking for fchown... yes
checking for fstat... yes
checking for link... yes
checking for stat... yes
checking for symlink... (cached) yes
checking for utime... yes
checking for mknod... (cached) yes
checking for chmod... yes
checking for umask... yes
checking for fsync... (cached) yes
checking for sync... yes
checking for ftruncate... yes
checking for truncate... yes
checking for getusershell... yes
checking for endusershell... yes
checking for erf... yes
checking for erfc... yes
checking for lgamma... yes
checking for tgamma... yes
checking for fstatvfs... yes
checking for statvfs... yes
checking for getpriority... yes
checking for setpriority... yes
checking for GlobalMemoryStatusEx... no
checking for gethostid... yes
checking for sethostid... yes
checking for getdomainname... yes
checking for setdomainname... yes
checking for nftw... yes
checking for getdate... yes
checking size of rlim_t... 8
checking for uid_t in sys/types.h... (cached) yes
checking for working chown... yes
checking for gcc options needed to detect all undeclared functions... (cached) none needed
checking whether signgam is declared... yes
checking whether getdate_err is declared... yes
checking whether f_fsid is scalar... yes
checking size of fsblkcnt_t... 8
checking size of fsfilcnt_t... 8
checking for struct stat.st_rdev... yes
checking for struct stat.st_blksize... yes
checking for struct stat.st_blocks... yes
checking for sys/resource.h... (cached) yes
checking for getrusage... (cached) yes
checking whether getrusage works... (cached) yes
checking for readlink... (cached) yes
checking for __xpg4... (cached) no
checking whether link(2) dereferences a symlink... (cached) no
checking whether setpgrp() is POSIX... yes
checking for getloadavg... (cached) yes
checking for sys/loadavg.h... (cached) no
checking whether getloadavg is declared... (cached) yes
configure: ** System Calls (output)
configure: updating cache ../config.cache
checking that generated files are newer than configure... done
configure: creating ./config.status
config.status: creating Makefile
config.status: creating link.sh
config.status: creating config.h
config.status: executing depfiles commands
configure: ** System Calls (done)
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/syscalls'
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K boot  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -m 2MW -C /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/linkkit/modprep /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/syscalls/calls.c ./
;; MODPREP: "/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/syscalls/calls.c" --> #P"calls.m.c"
;; MODPREP: reading "/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/syscalls/calls.c": 241,738 bytes, 4,663 lines
WARNING: truncated a very long tag (from 6,146 to 2,000) for
          ("(OR INTEGER (MEMBER"
           ..)
WARNING: truncated a very long tag (from 3,248 to 2,000) for
         ("(OR INTEGER (MEMBER" ..)
WARNING: 
         "/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/syscalls/calls.c"
         :5640: fixed object case ":ERROR_ITERATED_DATA_EXCEEDS_64k"
WARNING: 
         "/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/syscalls/calls.c"
         :5640: fixed object case ":ERROR_AUTODATASEG_EXCEEDS_64k"
WARNING: truncated a very long tag (from 122,702 to 2,000) for
          ("(OR INTEGER (MEMBER"
           ..)
WARNING: truncated a very long tag (from 5,562 to 2,000) for
          ("(OR INTEGER (MEMBER" ("defined(E2BIG)" . ":E2BIG")
           ("defined(EACCES)" . ":EACCES")
           ("defined(EADDRINUSE)" . ":EADDRINUSE")
           ("defined(EADDRNOTAVAIL)" . ":EADDRNOTAVAIL")
           ("defined(EAFNOSUPPORT)" . ":EAFNOSUPPORT")
           ..)
;; MODPREP: 2,553 objects, 
119 DEFUNs, 3 DEFVARs (3 inits)
;; packages: ("SYS" "OS" "POSIX")
MODPREP: wrote calls.m.c (1,730,618 bytes)
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC -I. -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/linkkit \
	-c calls.m.c -o calls.o
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/syscalls/calls.c: In function ‘C_subr_posix_file_size’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/syscalls/calls.c:467:49: warning: cast between incompatible function types from ‘int (*)(const char * restrict,  struct stat * restrict)’ to ‘void * (*)(const char *, void *)’ [-Wcast-function-type]
  467 |     if (ON_PNAMESTRING(STACK_0,stat,&buf))
      |                                                 ^
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/syscalls/calls.c: In function ‘C_subr_posix_file_stat’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/syscalls/calls.c:1946:51: warning: cast between incompatible function types from ‘int (*)(const char * restrict,  struct stat * restrict)’ to ‘void * (*)(const char *, void *)’ [-Wcast-function-type]
 1946 |       if (ON_PNAMESTRING(STACK_1,*(link_p ? &stat : &lstat),&buf))
      |                                                   ^
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/syscalls/calls.c:1988:2: warning: label ‘call_make_file_stat’ defined but not used [-Wunused-label]
 1988 |  call_make_file_stat:
      |  ^~~~~~~~~~~~~~~~~~~
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/syscalls/calls.c: In function ‘C_subr_posix_set_file_stat’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/syscalls/calls.c:2141:51: warning: cast between incompatible function types from ‘int (*)(const char * restrict,  struct stat * restrict)’ to ‘void * (*)(const char *, void *)’ [-Wcast-function-type]
 2141 |       if (ON_PNAMESTRING(STACK_0,stat,&st)) OS_file_error(value1);
      |                                                   ^
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/syscalls/calls.c:2158:51: warning: cast between incompatible function types from ‘int (*)(const char * restrict,  struct stat * restrict)’ to ‘void * (*)(const char *, void *)’ [-Wcast-function-type]
 2158 |       if (ON_PNAMESTRING(STACK_1,stat,&st)) OS_file_error(value1);
      |                                                   ^
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/syscalls/calls.c: In function ‘C_subr_posix_stat_vfs’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/syscalls/calls.c:2394:51: warning: cast between incompatible function types from ‘int (*)(const char * restrict,  struct statvfs * restrict)’ to ‘void * (*)(const char *, void *)’ [-Wcast-function-type]
 2394 |       if (ON_PNAMESTRING(STACK_0,statvfs,&buf))
      |                                                   ^
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/syscalls/calls.c: In function ‘C_subr_os_file_owner’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/syscalls/calls.c:2649:98: warning: cast between incompatible function types from ‘const char * (*)(const char *)’ to ‘void * (*)(const char *, void *)’ [-Wcast-function-type]
 2649 |   VALUES1(safe_to_string((char*)ON_PNAMESTRING(popSTACK(),get_owner,NULL)));
      |                                                                                                  ^
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/syscalls/calls.c: In function ‘copy_attributes_and_close’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/syscalls/calls.c:2954:49: warning: cast between incompatible function types from ‘int (*)(const char *, const struct utimbuf *)’ to ‘void * (*)(const char *, void *)’ [-Wcast-function-type]
 2954 |     if (ON_PNAMESTRING(STACK_0,utime,&utb)) {
      |                                                 ^
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/syscalls/calls.c:2961:2: warning: label ‘close_success’ defined but not used [-Wunused-label]
 2961 |  close_success:
      |  ^~~~~~~~~~~~~
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/syscalls/calls.c: In function ‘C_subr_posix__25sethostid’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/syscalls/calls.c:1850:34: warning: ignoring return value of ‘sethostid’ declared with attribute ‘warn_unused_result’ [-Wunused-result]
 1850 |   begin_system_call(); errno = 0; sethostid(hid); e = errno; end_system_call();
      |                                  ^~~~~~~~~~~~~~
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K boot  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/syscalls/posix.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/syscalls/posix.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/syscalls/posix.fas
The following functions were used but not defined:
 POSIX::%SYSLOG POSIX::CONVERT-MODE POSIX::FILE-STAT POSIX::SYSCONF
 POSIX:MKDTEMP POSIX:MKNOD POSIX::%STDIO POSIX:LGAMMA POSIX:FNMATCH
0 errors, 0 warnings
ln -s /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/syscalls/preload.lisp .
ln -s /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/syscalls/datemsk .
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/syscalls'
mkdir -p regexp
m=`cd ../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_CLFLAGS_set}" = set; then CLFLAGS="${ac_cv_env_CLFLAGS_value}"; export CLFLAGS; 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/sh $m/configure --with-clisp="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K boot  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--libdir=/usr/lib64' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--docdir=/usr/share/doc/clisp' '--with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline' '--without-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm' 'LT_SYS_LIBRARY_PATH=/usr/lib64:';\
    else \
      /bin/sh $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--libdir=/usr/lib64' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--docdir=/usr/share/doc/clisp' '--with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline' '--without-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm' 'LT_SYS_LIBRARY_PATH=/usr/lib64:'; \
    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="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K boot  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd regexp ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC" CLFLAGS="-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -Wl,--export-dynamic" LIBS="-Wl,--whole-archive libgnu.a -Wl,--no-whole-archive  -lreadline -lncurses   /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " 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.93+ (2018-02-18) (built 3925184752) (memory 3925184810)
checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/
checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build
configure: ** Regexp (Common)
checking for CLISP... (cached) yes
checking for gcc... (cached) gcc
checking whether the C compiler works... yes
checking for C compiler default output file name... a.out
checking for suffix of executables... 
checking whether we are cross compiling... no
checking for suffix of object files... (cached) o
checking whether the compiler supports GNU C... (cached) yes
checking whether gcc accepts -g... (cached) yes
checking for gcc option to enable C11 features... (cached) none needed
checking whether gcc understands -c and -o together... (cached) yes
checking whether the compiler is clang... (cached) no
checking for compiler option needed when checking for declarations... (cached) none
checking how to run the C preprocessor... (cached) gcc -E
checking how to make hard links... (cached) ln
checking whether ln -s works... (cached) yes
checking for stdio.h... (cached) yes
checking for stdlib.h... (cached) yes
checking for string.h... (cached) yes
checking for inttypes.h... (cached) yes
checking for stdint.h... (cached) yes
checking for strings.h... (cached) yes
checking for sys/stat.h... (cached) yes
checking for sys/types.h... (cached) yes
checking for unistd.h... (cached) yes
checking for wchar.h... (cached) yes
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 for a BSD-compatible install... (cached) /usr/bin/install -c
checking whether build environment is sane... yes
checking for a race-free mkdir -p... (cached) /usr/bin/mkdir -p
checking for gawk... (cached) gawk
checking whether make sets $(MAKE)... (cached) yes
checking whether make supports the include directive... yes (GNU style)
checking whether make supports nested variables... (cached) yes
checking dependency style of gcc... (cached) gcc3
checking for C/C++ restrict keyword... (cached) __restrict__
configure: ** Regexp (Output)
checking that generated files are newer than configure... done
configure: creating ./config.status
config.status: creating Makefile
config.status: creating link.sh
config.status: creating config.h
config.status: executing depfiles commands
configure: ** Regexp (Done)
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/regexp'
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K boot  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/regexp/regexp.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/regexp/regexp.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/regexp/regexp.fas
The following functions were used but not defined:
 REGEXP:REGEXP-COMPILE REGEXP:REGEXP-EXEC
0 errors, 0 warnings
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K boot  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -C /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/linkkit/modprep /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/regexp/regexi.c ./
;; MODPREP: "/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/regexp/regexi.c" --> #P"regexi.m.c"
;; MODPREP: reading "/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/regexp/regexi.c": 6,375 bytes, 161 lines
;; MODPREP: 11 objects, 3 DEFUNs
;; packages: ("REGEXP")
MODPREP: wrote regexi.m.c (11,382 bytes)
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC -I. -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/linkkit \
	-c regexi.m.c -o regexi.o
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/regexp/regexi.c: In function ‘C_subr_regexp_regexp_exec’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/regexp/regexi.c:120: warning: this statement may fall through [-Wimplicit-fallthrough=]
  120 |   with_string_0(string,Symbol_value(S(utf_8)),stringz, {
      | 
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/regexp/regexi.c:120: note: here
ln -s /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/regexp/preload.lisp .
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/regexp'
rm -rf base
MAKE=make CLISP="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/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 || (rm -rf base ; exit 1)
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/i18n'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/i18n'
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/syscalls'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/syscalls'
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/regexp'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/regexp'
gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -fPIC -DPIC -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/linkkit -c modules.c
gcc -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -fPIC -DPIC -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic modules.o regexi.o calls.o -lm gettext.o lisp.a -Wl,--whole-archive libgnu.a -Wl,--no-whole-archive -lreadline -lncurses /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl -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 (3,149,880 bytes)
Bytes permanently allocated:            167,456
Bytes currently in use:               2,979,696
Bytes available until next GC:        1,484,916
2979696 ;
1484916 ;
167456 ;
1 ;
238936 ;
4139
base/lisp.run -B . -M base/lispinit.mem -norc -q -i i18n/i18n -i syscalls/posix -i regexp/regexp -x (saveinitmem "base/lispinit.mem")
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/i18n/i18n.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/i18n/i18n.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/syscalls/posix.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/syscalls/posix.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/regexp/regexp.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/regexp/regexp.fas
;; Wrote the memory image into base/lispinit.mem (3,504,016 bytes)
Bytes permanently allocated:            173,952
Bytes currently in use:               3,322,104
Bytes available until next GC:        1,656,120
3322104 ;
1656120 ;
173952 ;
1 ;
835168 ;
4845
mkdir -p asdf
m=`cd ../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_CLFLAGS_set}" = set; then CLFLAGS="${ac_cv_env_CLFLAGS_value}"; export CLFLAGS; 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/sh $m/configure --with-clisp="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--libdir=/usr/lib64' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--docdir=/usr/share/doc/clisp' '--with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline' '--without-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm' 'LT_SYS_LIBRARY_PATH=/usr/lib64:';\
    else \
      /bin/sh $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--libdir=/usr/lib64' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--docdir=/usr/share/doc/clisp' '--with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline' '--without-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm' 'LT_SYS_LIBRARY_PATH=/usr/lib64:'; \
    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="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd asdf ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC" CLFLAGS="-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -Wl,--export-dynamic" LIBS="-Wl,--whole-archive libgnu.a -Wl,--no-whole-archive  -lreadline -lncurses   /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/asdf'
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -m 2MW -c /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/asdf/asdf.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/asdf/asdf.lisp ...
WARNING: DEPRECATED-FUNCTION-STYLE-WARNING: Using deprecated function
         ASDF/BACKWARD-INTERFACE:EXPLAIN -- please update your code to use a
         newer API.
         The docstring for this function says:
         Display a message describing an action.
         DEPRECATED. Use ASDF:ACTION-DESCRIPTION and/or ASDF::FORMAT-ACTION
         instead.
WARNING: DEPRECATED-FUNCTION-STYLE-WARNING: Using deprecated function
         ASDF/BACKWARD-INTERFACE:EXPLAIN -- please update your code to use a
         newer API.
         The docstring for this function says:
         Display a message describing an action.
         DEPRECATED. Use ASDF:ACTION-DESCRIPTION and/or ASDF::FORMAT-ACTION
         instead.
WARNING: DEPRECATED-FUNCTION-STYLE-WARNING: Using deprecated function
         ASDF/BACKWARD-INTERFACE:EXPLAIN -- please update your code to use a
         newer API.
         The docstring for this function says:
         Display a message describing an action.
         DEPRECATED. Use ASDF:ACTION-DESCRIPTION and/or ASDF::FORMAT-ACTION
         instead.
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/asdf/asdf.fas
0 errors, 3 warnings
ln -s /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/asdf/link.sh .
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/asdf'
mkdir -p clx/new-clx
m=`cd ../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_CLFLAGS_set}" = set; then CLFLAGS="${ac_cv_env_CLFLAGS_value}"; export CLFLAGS; 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/sh $m/configure --with-clisp="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--libdir=/usr/lib64' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--docdir=/usr/share/doc/clisp' '--with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline' '--without-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm' 'LT_SYS_LIBRARY_PATH=/usr/lib64:';\
    else \
      /bin/sh $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--libdir=/usr/lib64' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--docdir=/usr/share/doc/clisp' '--with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline' '--without-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm' 'LT_SYS_LIBRARY_PATH=/usr/lib64:'; \
    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="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd clx/new-clx ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC" CLFLAGS="-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -Wl,--export-dynamic" LIBS="-Wl,--whole-archive libgnu.a -Wl,--no-whole-archive  -lreadline -lncurses   /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " 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.93+ (2018-02-18) (built 3925184752) (memory 3925184810)
checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/
checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build
configure: ** NEW CLX
checking for CLISP... (cached) yes
checking for gcc... (cached) gcc
checking whether the C compiler works... yes
checking for C compiler default output file name... a.out
checking for suffix of executables... 
checking whether we are cross compiling... no
checking for suffix of object files... (cached) o
checking whether the compiler supports GNU C... (cached) yes
checking whether gcc accepts -g... (cached) yes
checking for gcc option to enable C11 features... (cached) none needed
checking whether gcc understands -c and -o together... (cached) yes
checking whether the compiler is clang... (cached) no
checking for compiler option needed when checking for declarations... (cached) none
checking how to run the C preprocessor... (cached) gcc -E
checking how to make hard links... (cached) ln
checking whether ln -s works... (cached) yes
checking for stdio.h... (cached) yes
checking for stdlib.h... (cached) yes
checking for string.h... (cached) yes
checking for inttypes.h... (cached) yes
checking for stdint.h... (cached) yes
checking for strings.h... (cached) yes
checking for sys/stat.h... (cached) yes
checking for sys/types.h... (cached) yes
checking for unistd.h... (cached) yes
checking for wchar.h... (cached) yes
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 for netdb.h... (cached) yes
checking for netinet/in.h... (cached) yes
checking for X... (cached) libraries , headers 
checking for gethostbyname... (cached) yes
checking for connect... (cached) yes
checking for remove... (cached) yes
checking for shmat... (cached) yes
checking for IceConnectionNumber in -lICE... (cached) yes
checking for special C compiler options needed for large files... (cached) no
checking for _FILE_OFFSET_BITS value needed for large files... (cached) no
checking size of KeySym... 8
checking for XGetAtomNames... yes
checking for Xpm library... yes
checking for X shape extension... yes
checking if XauGetAuthByAddr needs -lXau... yes
configure: ** NEW CLX (output)
configure: updating cache ../../config.cache
configure: creating ./config.status
config.status: creating Makefile
config.status: creating link.sh
config.status: creating config.h
configure: ** NEW CLX (done)
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clx/new-clx'
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -i /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx-preload.lisp -c /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.lisp -o ./
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx-preload.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx-preload.lisp
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.lisp ...
WARNING: PROCLAIM(VALUES): #<PACKAGE COMMON-LISP> is locked
         Ignore the lock and proceed;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clx/new-clx/clx.fas
The following functions were used but not defined:
 XLIB::%GCONTEXT-KEY->MASK XLIB::ATOM-NAME XLIB::INTERN-ATOM
 XLIB::LOOKUP-WINDOW XLIB::WINDOW-ID XLIB::SET-WM-HINTS
 XLIB::VISUAL-INFO XLIB::LOOKUP-RESOURCE-ID XLIB::DRAWABLE-ID
 XLIB::GCONTEXT-ID XLIB::CURSOR-ID XLIB::FONT-ID XLIB::LOOKUP-COLORMAP
 XLIB::WINDOW-DISPLAY XLIB::COLORMAP-ID XLIB::CARD8->CHAR
 XLIB::GET-PROPERTY XLIB::CHAR->CARD8 XLIB::CHANGE-PROPERTY
 XLIB::SCREEN-ROOT XLIB::DISPLAY-DEFAULT-SCREEN XLIB::LIST-PROPERTIES
 XLIB::ROTATE-PROPERTIES XLIB::COLORMAP-VISUAL-INFO
 XLIB::DISPLAY-DISPLAY XLIB::DISPLAY-HOST
 XLIB::DISPLAY-PROTOCOL-MAJOR-VERSION
 XLIB::DISPLAY-PROTOCOL-MINOR-VERSION XLIB::DISPLAY-RELEASE-NUMBER
 XLIB::DISPLAY-VENDOR-NAME XLIB::DRAWABLE-HEIGHT XLIB::DRAWABLE-WIDTH
 XLIB::DRAWABLE-X XLIB::DRAWABLE-Y XLIB::%UNTRACED-COLOR-RED
 XLIB::%UNTRACED-COLOR-GREEN XLIB::%UNTRACED-COLOR-BLUE
 XLIB::%UNTRACED-DISPLAY-DISPLAY XLIB::%UNTRACED-DISPLAY-VENDOR-NAME
 XLIB::%UNTRACED-DISPLAY-RELEASE-NUMBER
 XLIB::%UNTRACED-DISPLAY-PROTOCOL-MAJOR-VERSION
 XLIB::%UNTRACED-DISPLAY-PROTOCOL-MINOR-VERSION
 XLIB::%UNTRACED-COLORMAP-VISUAL-INFO XLIB::%UNTRACED-VISUAL-INFO-CLASS
 XLIB::CLOSED-DISPLAY-P XLIB::%UNTRACED-DRAWABLE-WIDTH
 XLIB::%UNTRACED-DRAWABLE-HEIGHT XLIB::%UNTRACED-DRAWABLE-X
 XLIB::%UNTRACED-DRAWABLE-Y XLIB::%UNTRACED-DISPLAY-HOST
 XLIB::OPEN-DISPLAY XLIB::SET-DISPLAY-DEFAULT-SCREEN XLIB::CREATE-IMAGE
 XLIB::MAKE-EVENT-MASK
0 errors, 1 warning
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -i /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx-preload.lisp -c /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/image.lisp -o ./
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx-preload.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx-preload.lisp
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/image.lisp ...
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clx/new-clx/clx.lib ...
WARNING: PROCLAIM(VALUES): #<PACKAGE COMMON-LISP> is locked
         Ignore the lock and proceed;; Loaded file 
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clx/new-clx/clx.lib
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clx/new-clx/image.fas
The following functions were used but not defined:
 XLIB::CREATE-PIXMAP XLIB::CREATE-GCONTEXT XLIB::PUT-IMAGE
 XLIB::COPY-AREA XLIB::FREE-GCONTEXT
0 errors, 1 warning
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -i /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx-preload.lisp -c /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/resource.lisp -o ./
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx-preload.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx-preload.lisp
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/resource.lisp ...
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clx/new-clx/clx.lib ...
WARNING: PROCLAIM(VALUES): #<PACKAGE COMMON-LISP> is locked
         Ignore the lock and proceed;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clx/new-clx/clx.lib
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clx/new-clx/resource.fas
The following functions were used but not defined:
 XLIB::CARD8->CHAR XLIB::DISPLAY-DEFAULT-SCREEN XLIB::SCREEN-ROOT
 XLIB::DISPLAY-ROOTS XLIB::GET-PROPERTY
0 errors, 1 warning
../../ccmp2c /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f > genclx.c
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC -DWANT_XPM=1 -DWANT_XSHAPE=1 genclx.c -o genclx
./genclx -l -o clx.d > clx.d
rm -f genclx.c
rm -f genclx
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -C /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/linkkit/modprep clx.d clx.c
;; MODPREP: "clx.d" --> #P"clx.c"
;; MODPREP: reading "clx.d": 357,528 bytes, 8,807 lines
WARNING: "clx.d":1841:XLIB:OPEN-DISPLAY: emulating signature (1 0
         &ALLOW-OTHER-KEYS)
WARNING: "clx.d":3608:XLIB:COPY-AREA: emulating signature (9 0)
WARNING: "clx.d":3628:XLIB:COPY-PLANE: emulating signature (10 0)
WARNING: "clx.d":3697:XLIB:DRAW-LINE: emulating signature (6 1)
WARNING: "clx.d":3783:XLIB:DRAW-RECTANGLE: emulating signature (6 1)
WARNING: "clx.d":3820:XLIB:DRAW-ARC: emulating signature (8 1)
WARNING: "clx.d":4031:XLIB:DRAW-GLYPH: emulating signature (5 0 &KEY)
WARNING: "clx.d":4038:XLIB:DRAW-GLYPHS: emulating signature (5 0 &KEY)
WARNING: "clx.d":4044:XLIB:DRAW-IMAGE-GLYPH: emulating signature (5 0 &KEY)
WARNING: "clx.d":4049:XLIB:DRAW-IMAGE-GLYPHS: emulating signature (5 0 &KEY)
WARNING: "clx.d":5417:XLIB:CHANGE-PROPERTY: emulating signature (5 0 &KEY)
WARNING: "clx.d":6172:XLIB:QUEUE-EVENT: emulating signature (2 0
         &ALLOW-OTHER-KEYS)
WARNING: "clx.d":6268:XLIB:SEND-EVENT: emulating signature (3 0
         &ALLOW-OTHER-KEYS)
WARNING: "clx.d":6414:XLIB:WARP-POINTER-IF-INSIDE: emulating signature (6 2)
WARNING: "clx.d":6434:XLIB:WARP-POINTER-RELATIVE-IF-INSIDE: emulating
         signature (5 2);; 
MODPREP: 552 objects, 410 DEFUNs (15 emulated), 1 DEFVAR (1 init)
;; packages: ("XPM" "XLIB")
MODPREP: wrote clx.c (603,319 bytes)
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/linkkit -c clx.c
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f: In function ‘get_color’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:1652:33: warning: unused parameter ‘dpy’ [-Wunused-parameter]
 1652 | {
      |                                 ^  
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_make_event_mask’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:1765:143: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 1765 | DEFUN(XLIB:MAKE-EVENT-MASK,&rest keys) {
      |                                                                                                                                               ^                
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_make_state_mask’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:1774:143: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 1774 | DEFUN(XLIB:MAKE-STATE-MASK, &rest args) {
      |                                                                                                                                               ^                
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_open_display’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:1840:137: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 1840 | DEFUN(XLIB:OPEN-DISPLAY, host &allow-other-keys)
      |                                                                                                                                         ^                
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_set_gcontext_display’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:2138:6: warning: unused variable ‘gcon’ [-Wunused-variable]
 2138 |   Display *dpy_new = get_display(STACK_1);
      |      ^~~~
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_display_trace’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:2330:121: warning: unused parameter ‘argcount’ [-Wunused-parameter]
 2330 | { /* I do not think I will support this function, since
      |                                                                                                                         ^       
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:2330:139: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 2330 | { /* I do not think I will support this function, since
      |                                                                                                                                           ^                
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_copy_gcontext_components’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:3462:161: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 3462 | DEFUN(XLIB:COPY-GCONTEXT-COMPONENTS, gc1 gc2 &rest rest)
      |                                                                                                                                                                 ^                
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_copy_area’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:3608:131: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 3608 | {
      |                                                                                                                                   ^                
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_copy_plane’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:3628:133: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 3628 | { /* WAS: invoke (XCopyPlane, 10, 'v', "D1dgiiiiidii"); */
      |                                                                                                                                     ^                
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_draw_line’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:3697:131: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 3697 | {
      |                                                                                                                                   ^                
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_draw_rectangle’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:3783:141: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 3783 | {
      |                                                                                                                                             ^                
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_draw_arc’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:3820:129: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 3820 |   int fill_p = missingp(STACK_0);
      |                                                                                                                                 ^                
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_draw_glyph’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:4031:133: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 4031 | { NOTIMPLEMENTED; }
      |                                                                                                                                     ^                
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_draw_glyphs’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:4038:135: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 4038 | {
      |                                                                                                                                       ^                
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_draw_image_glyph’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:4044:145: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 4044 | { NOTIMPLEMENTED; }
      |                                                                                                                                                 ^                
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_draw_image_glyphs’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:4049:147: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 4049 | {
      |                                                                                                                                                   ^                
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_put_image’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:4369:22: warning: variable ‘bg’ set but not used [-Wunused-but-set-variable]
 4369 | 
      |                      ^ 
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:4369:19: warning: variable ‘fg’ set but not used [-Wunused-but-set-variable]
 4369 | 
      |                   ^ 
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_text_extents’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:4744:7: warning: unused variable ‘start’ [-Wunused-variable]
 4744 |   int start = get_uint16_0 (STACK_2);
      |       ^~~~~
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_text_width’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:4792:9: warning: unused variable ‘start’ [-Wunused-variable]
 4792 |     int start = get_uint16_0 (STACK_2);
      |         ^~~~~
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:4814:9: warning: unused variable ‘end’ [-Wunused-variable]
 4814 |     int end   = missingp(STACK_1) ? vector_length (STACK_3) : get_uint16 (STACK_1);
      |         ^~~
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:4813:9: warning: unused variable ‘start’ [-Wunused-variable]
 4813 |     int start = get_uint16_0 (STACK_2);
      |         ^~~~~
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_change_property’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:5417:143: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 5417 | {
      |                                                                                                                                               ^                
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_queue_event’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:6172:135: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 6172 | {
      |                                                                                                                                       ^                
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_send_event’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:6268:133: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 6268 | {
      |                                                                                                                                     ^                
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_global_pointer_position’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:6341:7: warning: variable ‘same_screen_p’ set but not used [-Wunused-but-set-variable]
 6341 | 
      |       ^            
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_warp_pointer_if_inside’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:6414:157: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 6414 | {
      |                                                                                                                                                             ^                
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_warp_pointer_relative_if_inside’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:6434:175: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 6434 | {
      |                                                                                                                                                                               ^                
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_set_pointer_mapping’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:7009:7: warning: variable ‘result’ set but not used [-Wunused-but-set-variable]
 7009 |   int result;
      |       ^~~~~~
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f: In function ‘keycode2keysym’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:7254:3: warning: ‘XKeycodeToKeysym’ is deprecated [-Wdeprecated-declarations]
 7254 |   /* There is a comment in MIT-CLX, translate.lisp, which I want to quote here:
      |   ^~
In file included from /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:415:
/usr/include/X11/Xlib.h:1687:15: note: declared here
 1687 | extern KeySym XKeycodeToKeysym(
      |               ^~~~~~~~~~~~~~~~
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:7254:2: warning: ‘XKeycodeToKeysym’ is deprecated [-Wdeprecated-declarations]
 7254 |   /* There is a comment in MIT-CLX, translate.lisp, which I want to quote here:
      |  ^~
/usr/include/X11/Xlib.h:1687:15: note: declared here
 1687 | extern KeySym XKeycodeToKeysym(
      |               ^~~~~~~~~~~~~~~~
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_keysym__3Echaracter’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:7365:12: warning: variable ‘dpy’ set but not used [-Wunused-but-set-variable]
 7365 |   KeySym keysym;
      |            ^~~
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_keysym’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:7414:125: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 7414 |   if (uint8_p(STACK_(argcount))) {
      |                                                                                                                             ^                
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_default_keysym_index’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:8084:12: warning: unused variable ‘dpy’ [-Wunused-variable]
 8084 |   Display *dpy = pop_display();
      |            ^~~
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:8083:11: warning: unused variable ‘keycode’ [-Wunused-variable]
 8083 |   KeyCode keycode = get_uint8(popSTACK());
      |           ^~~~~~~
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:8082:7: warning: unused variable ‘state’ [-Wunused-variable]
 8082 |   int state = get_uint32(popSTACK());
      |       ^~~~~
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f: At top level:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:4208:13: warning: ‘handle_image_z’ defined but not used [-Wunused-function]
 4208 |                             GC gcontext, Drawable drawable,
      |             ^             
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.f:588:15: warning: ‘get_aint32’ defined but not used [-Wunused-function]
  588 | { /* This is special routine, which accepts either an uint32 or a sint32.
      |               ^~~~~~~~~~
ln -s /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx-preload.lisp .
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clx/new-clx'
mkdir -p gdbm
m=`cd ../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_CLFLAGS_set}" = set; then CLFLAGS="${ac_cv_env_CLFLAGS_value}"; export CLFLAGS; 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/sh $m/configure --with-clisp="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--libdir=/usr/lib64' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--docdir=/usr/share/doc/clisp' '--with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline' '--without-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm' 'LT_SYS_LIBRARY_PATH=/usr/lib64:';\
    else \
      /bin/sh $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--libdir=/usr/lib64' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--docdir=/usr/share/doc/clisp' '--with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline' '--without-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm' 'LT_SYS_LIBRARY_PATH=/usr/lib64:'; \
    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="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd gdbm ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC" CLFLAGS="-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -Wl,--export-dynamic" LIBS="-Wl,--whole-archive libgnu.a -Wl,--no-whole-archive  -lreadline -lncurses   /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " 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.93+ (2018-02-18) (built 3925184752) (memory 3925184810)
checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/
checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build
configure: ** Gdbm (Common)
checking for CLISP... (cached) yes
checking for gcc... (cached) gcc
checking whether the C compiler works... yes
checking for C compiler default output file name... a.out
checking for suffix of executables... 
checking whether we are cross compiling... no
checking for suffix of object files... (cached) o
checking whether the compiler supports GNU C... (cached) yes
checking whether gcc accepts -g... (cached) yes
checking for gcc option to enable C11 features... (cached) none needed
checking whether gcc understands -c and -o together... (cached) yes
checking whether the compiler is clang... (cached) no
checking for compiler option needed when checking for declarations... (cached) none
checking how to run the C preprocessor... (cached) gcc -E
checking how to make hard links... (cached) ln
checking whether ln -s works... (cached) yes
checking for stdio.h... (cached) yes
checking for stdlib.h... (cached) yes
checking for string.h... (cached) yes
checking for inttypes.h... (cached) yes
checking for stdint.h... (cached) yes
checking for strings.h... (cached) yes
checking for sys/stat.h... (cached) yes
checking for sys/types.h... (cached) yes
checking for unistd.h... (cached) yes
checking for wchar.h... (cached) yes
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) x86_64-pc-linux-gnu
checking host system type... (cached) x86_64-pc-linux-gnu
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
checking 32-bit host C ABI... (cached) no
checking for grep that handles long lines and -e... (cached) /usr/bin/grep
checking for egrep... (cached) /usr/bin/grep -E
checking for ELF binary format... (cached) yes
checking for the common suffixes of directories in the library search path... (cached) lib,lib,lib64
checking how to link with libgdbm... /usr/lib64/libgdbm.so
configure: ** Gdbm (Headers)
checking for gdbm.h... yes
configure: ** Gdbm (Functions)
checking for library containing gdbm_open... none required
checking for gdbm_open... yes
checking for gdbm_close... yes
checking for gdbm_fdesc... yes
checking for gdbm_store... yes
checking for gdbm_fetch... yes
checking for gdbm_delete... yes
checking for gdbm_firstkey... yes
checking for gdbm_nextkey... yes
checking for gdbm_reorganize... yes
checking for gdbm_sync... yes
checking for gdbm_exists... yes
checking for gdbm_setopt... yes
checking for gdbm_count... yes
configure: ** Gdbm (Output)
configure: updating cache ../config.cache
configure: creating ./config.status
config.status: creating Makefile
config.status: creating link.sh
config.status: creating config.h
configure: ** Gdbm (Done)
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gdbm'
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/gdbm/gdbm.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/gdbm/gdbm.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gdbm/gdbm.fas
0 errors, 0 warnings
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -C /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/linkkit/modprep /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/gdbm/gdbm.c ./
;; MODPREP: "/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/gdbm/gdbm.c" --> #P"gdbm.m.c"
;; MODPREP: reading "/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/gdbm/gdbm.c": 20,012 bytes, 482 lines
;; MODPREP: 92 objects, 15 DEFUNs, 1 DEFVAR (1 init)
;; packages: ("GDBM")
MODPREP: wrote gdbm.m.c (67,399 bytes)
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC -I. -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/linkkit \
	-c gdbm.m.c -o gdbm.o
ln -s /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/gdbm/preload.lisp .
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gdbm'
mkdir -p pcre
m=`cd ../modules/pcre; pwd`; \
if test -f $m/configure && { test ! -f pcre/config.status || test -n "`find $m/configure -prune -newer pcre/config.status`"; } ; then ( cd pcre ;\
    cache=`echo pcre/ | 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_CLFLAGS_set}" = set; then CLFLAGS="${ac_cv_env_CLFLAGS_value}"; export CLFLAGS; 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/sh $m/configure --with-clisp="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--libdir=/usr/lib64' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--docdir=/usr/share/doc/clisp' '--with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline' '--without-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm' 'LT_SYS_LIBRARY_PATH=/usr/lib64:';\
    else \
      /bin/sh $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--libdir=/usr/lib64' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--docdir=/usr/share/doc/clisp' '--with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline' '--without-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm' 'LT_SYS_LIBRARY_PATH=/usr/lib64:'; \
    fi ) ;\
fi; \
if test -f $m/Makefile && { test ! -f pcre/Makefile || test -n "`find $m/Makefile -prune -newer pcre/Makefile`"; } ; then \
  sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > pcre/Makefile ; \
fi ; \
CLISP="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd pcre ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC" CLFLAGS="-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -Wl,--export-dynamic" LIBS="-Wl,--whole-archive libgnu.a -Wl,--no-whole-archive  -lreadline -lncurses   /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " 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.93+ (2018-02-18) (built 3925184752) (memory 3925184810)
checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/
checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build
configure: ** PCRE (Common)
checking for CLISP... (cached) yes
checking for gcc... (cached) gcc
checking whether the C compiler works... yes
checking for C compiler default output file name... a.out
checking for suffix of executables... 
checking whether we are cross compiling... no
checking for suffix of object files... (cached) o
checking whether the compiler supports GNU C... (cached) yes
checking whether gcc accepts -g... (cached) yes
checking for gcc option to enable C11 features... (cached) none needed
checking whether gcc understands -c and -o together... (cached) yes
checking whether the compiler is clang... (cached) no
checking for compiler option needed when checking for declarations... (cached) none
checking how to run the C preprocessor... (cached) gcc -E
checking how to make hard links... (cached) ln
checking whether ln -s works... (cached) yes
checking for stdio.h... (cached) yes
checking for stdlib.h... (cached) yes
checking for string.h... (cached) yes
checking for inttypes.h... (cached) yes
checking for stdint.h... (cached) yes
checking for strings.h... (cached) yes
checking for sys/stat.h... (cached) yes
checking for sys/types.h... (cached) yes
checking for unistd.h... (cached) yes
checking for wchar.h... (cached) yes
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) x86_64-pc-linux-gnu
checking host system type... (cached) x86_64-pc-linux-gnu
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
checking 32-bit host C ABI... (cached) no
checking for grep that handles long lines and -e... (cached) /usr/bin/grep
checking for egrep... (cached) /usr/bin/grep -E
checking for ELF binary format... (cached) yes
checking for the common suffixes of directories in the library search path... (cached) lib,lib,lib64
checking how to link with libpcre... /usr/lib64/libpcre.so
configure: ** PCRE (Headers)
checking for pcre.h... yes
configure: ** PCRE (Functions)
checking for library containing pcre_compile... none required
checking for pcre_get_stringnumber... yes
checking for pcre_config... yes
checking for pcre_dfa_exec... yes
configure: ** PCRE (Output)
configure: updating cache ../config.cache
configure: creating ./config.status
config.status: creating Makefile
config.status: creating link.sh
config.status: creating config.h
configure: ** PCRE (Done)
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/pcre'
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/pcre/pcre.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/pcre/pcre.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/pcre/pcre.fas
The following functions were used but not defined:
 PCRE:PCRE-NAME-TO-INDEX PCRE:PCRE-COMPILE PCRE:PCRE-EXEC
0 errors, 0 warnings
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -C /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/linkkit/modprep /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/pcre/cpcre.c ./
;; MODPREP: "/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/pcre/cpcre.c" --> #P"cpcre.m.c"
;; MODPREP: reading "/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/pcre/cpcre.c": 18,210 bytes, 423 lines
;; MODPREP: 92 objects, 7 DEFUNs, 1 DEFVAR (1 init)
;; packages: ("PCRE")
MODPREP: wrote cpcre.m.c (64,328 bytes)
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC -I. -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/linkkit \
	-c cpcre.m.c -o cpcre.o
ln -s /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/pcre/preload.lisp .
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/pcre'
mkdir -p rawsock
m=`cd ../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_CLFLAGS_set}" = set; then CLFLAGS="${ac_cv_env_CLFLAGS_value}"; export CLFLAGS; 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/sh $m/configure --with-clisp="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--libdir=/usr/lib64' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--docdir=/usr/share/doc/clisp' '--with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline' '--without-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm' 'LT_SYS_LIBRARY_PATH=/usr/lib64:';\
    else \
      /bin/sh $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--libdir=/usr/lib64' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--docdir=/usr/share/doc/clisp' '--with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline' '--without-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm' 'LT_SYS_LIBRARY_PATH=/usr/lib64:'; \
    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="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd rawsock ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC" CLFLAGS="-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -Wl,--export-dynamic" LIBS="-Wl,--whole-archive libgnu.a -Wl,--no-whole-archive  -lreadline -lncurses   /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " 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.93+ (2018-02-18) (built 3925184752) (memory 3925184810)
checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/
checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build
configure: ** Rawsock (Common)
checking for CLISP... (cached) yes
checking for gcc... (cached) gcc
checking whether the C compiler works... yes
checking for C compiler default output file name... a.out
checking for suffix of executables... 
checking whether we are cross compiling... no
checking for suffix of object files... (cached) o
checking whether the compiler supports GNU C... (cached) yes
checking whether gcc accepts -g... (cached) yes
checking for gcc option to enable C11 features... (cached) none needed
checking whether gcc understands -c and -o together... (cached) yes
checking whether the compiler is clang... (cached) no
checking for compiler option needed when checking for declarations... (cached) none
checking how to run the C preprocessor... (cached) gcc -E
checking how to make hard links... (cached) ln
checking whether ln -s works... (cached) yes
checking for stdio.h... (cached) yes
checking for stdlib.h... (cached) yes
checking for string.h... (cached) yes
checking for inttypes.h... (cached) yes
checking for stdint.h... (cached) yes
checking for strings.h... (cached) yes
checking for sys/stat.h... (cached) yes
checking for sys/types.h... (cached) yes
checking for unistd.h... (cached) yes
checking for wchar.h... (cached) yes
checking for minix/config.h... (cached) no
checking for sys/socket.h... (cached) yes
checking whether it is safe to define __EXTENSIONS__... (cached) yes
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) x86_64-pc-linux-gnu
checking host system type... (cached) x86_64-pc-linux-gnu
checking for IPv4 sockets... (cached) yes
checking for IPv6 sockets... (cached) yes
checking for setsockopt... (cached) yes
checking for getsockopt... (cached) yes
checking for netinet/tcp.h... (cached) yes
checking for setsockopt declaration... (cached) extern int setsockopt (int, int, int, const void*, unsigned int);
checking for linux/if_packet.h... yes
checking for netdb.h... (cached) yes
checking for asm/types.h... yes
checking for sys/ioctl.h... (cached) yes
checking for stropts.h... no
checking for poll.h... yes
checking for sys/un.h... (cached) yes
checking for ifaddrs.h... yes
checking for net/if.h... yes
checking for netinet/if_ether.h... yes
checking for linux/netlink.h... yes
checking for struct msghdr.msg_flags... yes
checking for struct msghdr.msg_control... yes
checking for struct if_nameindex... yes
configure: ** Rawsock (Functions)
checking for socketpair... yes
checking for sockatmark... yes
checking for recvmsg... yes
checking for sendmsg... yes
checking for htonl... yes
checking for htons... yes
checking for ntohl... yes
checking for ntohs... yes
checking for readv... yes
checking for writev... yes
checking for getnameinfo... yes
checking for getaddrinfo... yes
checking for freeaddrinfo... yes
checking for gai_strerror... yes
checking for endprotoent... yes
checking for getprotobyname... yes
checking for getprotobynumber... yes
checking for getprotoent... yes
checking for setprotoent... yes
checking for if_nametoindex... yes
checking for if_indextoname... yes
checking for if_nameindex... yes
checking for if_freenameindex... yes
checking for endnetent... yes
checking for getnetbyaddr... yes
checking for getnetbyname... yes
checking for getnetent... yes
checking for setnetent... yes
checking for getifaddrs... yes
checking for freeifaddrs... yes
configure: ** Rawsock (Output)
configure: updating cache ../config.cache
configure: creating ./config.status
config.status: creating Makefile
config.status: creating link.sh
config.status: creating config.h
configure: ** Rawsock (Done)
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/rawsock'
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/rawsock/sock.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/rawsock/sock.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/rawsock/sock.fas
The following functions were used but not defined:
 RAWSOCK:SOCKET RAWSOCK:MAKE-SOCKADDR RAWSOCK:CONNECT RAWSOCK:SOCK-CLOSE
 RAWSOCK:GETNAMEINFO
0 errors, 0 warnings
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -C /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/linkkit/modprep /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/rawsock/rawsock.c ./
;; MODPREP: "/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/rawsock/rawsock.c" --> #P"rawsock.m.c"
;; MODPREP: reading "/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/rawsock/rawsock.c": 59,766 bytes, 1,489 lines
WARNING: 
         "/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/rawsock/rawsock.c"
         :612: fixed object case ":DECnet"
WARNING: truncated a very long tag (from 3,587 to 2,000) for
          ("(OR NULL INTEGER (MEMBER" ("defined(IPPROTO_IP)" . ":IPPROTO-IP")
           ("defined(IPPROTO_IPV6)" . ":IPPROTO-IPV6")
           ("defined(IPPROTO_ICMP)" . ":IPPROTO-ICMP")
           ("defined(IPPROTO_RAW)" . ":IPPROTO-RAW")
           ("defined(IPPROTO_TCP)" . ":IPPROTO-TCP")
           ..)
;; MODPREP: 270 objects, 39 DEFUNs
;; packages: ("RAWSOCK")
MODPREP: wrote rawsock.m.c (222,431 bytes)
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC -I. -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/linkkit \
	-c rawsock.m.c -o rawsock.o
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/rawsock/rawsock.c: In function ‘C_subr_rawsock_recvfrom’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/rawsock/rawsock.c:962:9: warning: unused variable ‘buffer’ [-Wunused-variable]
  962 |   void *buffer;
      |         ^~~~~~
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/rawsock/rawsock.c: In function ‘C_subr_rawsock_sock_read’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/rawsock/rawsock.c:1051:13: warning: unused variable ‘pinned_count’ [-Wunused-variable]
 1051 |     ssize_t pinned_count = retval;
      |             ^~~~~~~~~~~~
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/rawsock/rawsock.c: In function ‘C_subr_rawsock_sock_write’:
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/rawsock/rawsock.c:1125:13: warning: unused variable ‘pinned_count’ [-Wunused-variable]
 1125 |     ssize_t pinned_count = retval;
      |             ^~~~~~~~~~~~
ln -s /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/rawsock/preload.lisp .
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/rawsock'
rm -rf full
rm -rf dynmod; mkdir dynmod
MAKE=make CLISP="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ./clisp-link add base full asdf clx/new-clx gdbm pcre rawsock || (rm -rf full ; exit 1)
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/asdf'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/asdf'
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clx/new-clx'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clx/new-clx'
gcc -Wl,--as-needed -shared -fPIC -DPIC clx.o -lXpm -lXext -lXau -lSM -lICE -lX11 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-clx.so -o /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/dynmod/lib-clx.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gdbm'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gdbm'
gcc -Wl,--as-needed -shared -fPIC -DPIC gdbm.o /usr/lib64/libgdbm.so -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-gdbm.so -o /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/dynmod/lib-gdbm.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/pcre'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/pcre'
gcc -Wl,--as-needed -shared -fPIC -DPIC cpcre.o /usr/lib64/libpcre.so -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-pcre.so -o /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/dynmod/lib-pcre.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/rawsock'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/rawsock'
gcc -Wl,--as-needed -shared -fPIC -DPIC rawsock.o -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-rawsock.so -o /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/dynmod/lib-rawsock.so
gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -fPIC -DPIC -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/linkkit -c modules.c
gcc -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -fPIC -DPIC -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic modules.o rawsock.o cpcre.o /usr/lib64/libpcre.so gdbm.o /usr/lib64/libgdbm.so clx.o -lXpm -lXext -lXau -lSM -lICE -lX11 regexi.o calls.o -lm gettext.o lisp.a -Wl,--whole-archive libgnu.a -Wl,--no-whole-archive -lreadline -lncurses /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl -o lisp.run
base/lisp.run -B . -M base/lispinit.mem -norc -q -i clx/new-clx/clx-preload.lisp -i gdbm/preload.lisp -i pcre/preload.lisp -i rawsock/preload.lisp -x (saveinitmem "full/lispinit.mem")
;; Loading file clx/new-clx/clx-preload.lisp ...
;; Loaded file clx/new-clx/clx-preload.lisp
;; Loading file gdbm/preload.lisp ...
;; Loaded file gdbm/preload.lisp
;; Loading file pcre/preload.lisp ...
;; Loaded file pcre/preload.lisp
;; Loading file rawsock/preload.lisp ...
;; Loaded file rawsock/preload.lisp
;; Wrote the memory image into full/lispinit.mem (3,508,216 bytes)
Bytes permanently allocated:            173,952
Bytes currently in use:               3,326,304
Bytes available until next GC:        1,658,220
3326304 ;
1658220 ;
173952 ;
1 ;
276400 ;
4456
full/lisp.run -B . -M full/lispinit.mem -norc -q -i asdf/asdf -i clx/new-clx/clx -i clx/new-clx/image -i clx/new-clx/resource -i gdbm/gdbm -i pcre/pcre -i rawsock/sock -x (saveinitmem "full/lispinit.mem")
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/asdf/asdf.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/asdf/asdf.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clx/new-clx/clx.fas ...
WARNING: PROCLAIM(VALUES): #<PACKAGE COMMON-LISP> is locked
         Ignore the lock and proceed;; Loaded file 
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clx/new-clx/clx.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clx/new-clx/image.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clx/new-clx/image.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clx/new-clx/resource.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clx/new-clx/resource.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gdbm/gdbm.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gdbm/gdbm.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/pcre/pcre.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/pcre/pcre.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/rawsock/sock.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/rawsock/sock.fas
;; Wrote the memory image into full/lispinit.mem (5,993,104 bytes)
Bytes permanently allocated:            200,216
Bytes currently in use:               5,777,472
Bytes available until next GC:        2,883,804
5777472 ;
2883804 ;
200216 ;
17 ;
33257440 ;
109485
+ cd -
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f
+ RPM_EC=0
++ jobs -p
+ exit 0
Executing(%install): /bin/sh -e /var/tmp/rpm-tmp.COpZ8P
+ umask 022
+ cd /builddir/build/BUILD
+ '[' /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64 '!=' / ']'
+ rm -rf /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64
++ dirname /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64
+ mkdir -p /builddir/build/BUILDROOT
+ mkdir /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64
+ cd clisp-66924971790e4cbee3d58f36e530caa0ad568e5f
+ make -C build DESTDIR=/builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64 install
make: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/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 ../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_CLFLAGS_set}" = set; then CLFLAGS="${ac_cv_env_CLFLAGS_value}"; export CLFLAGS; 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/sh $m/configure --with-clisp="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K boot  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--libdir=/usr/lib64' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--docdir=/usr/share/doc/clisp' '--with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline' '--without-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm' 'LT_SYS_LIBRARY_PATH=/usr/lib64:';\
    else \
      /bin/sh $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--libdir=/usr/lib64' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--docdir=/usr/share/doc/clisp' '--with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline' '--without-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm' 'LT_SYS_LIBRARY_PATH=/usr/lib64:'; \
    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="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K boot  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd i18n ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC" CLFLAGS="-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -Wl,--export-dynamic" LIBS="-Wl,--whole-archive libgnu.a -Wl,--no-whole-archive  -lreadline -lncurses   /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/i18n'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/i18n'
mkdir -p syscalls
m=`cd ../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_CLFLAGS_set}" = set; then CLFLAGS="${ac_cv_env_CLFLAGS_value}"; export CLFLAGS; 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/sh $m/configure --with-clisp="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K boot  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--libdir=/usr/lib64' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--docdir=/usr/share/doc/clisp' '--with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline' '--without-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm' 'LT_SYS_LIBRARY_PATH=/usr/lib64:';\
    else \
      /bin/sh $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--libdir=/usr/lib64' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--docdir=/usr/share/doc/clisp' '--with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline' '--without-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm' 'LT_SYS_LIBRARY_PATH=/usr/lib64:'; \
    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="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K boot  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd syscalls ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC" CLFLAGS="-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -Wl,--export-dynamic" LIBS="-Wl,--whole-archive libgnu.a -Wl,--no-whole-archive  -lreadline -lncurses   /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/syscalls'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/syscalls'
mkdir -p regexp
m=`cd ../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_CLFLAGS_set}" = set; then CLFLAGS="${ac_cv_env_CLFLAGS_value}"; export CLFLAGS; 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/sh $m/configure --with-clisp="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K boot  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--libdir=/usr/lib64' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--docdir=/usr/share/doc/clisp' '--with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline' '--without-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm' 'LT_SYS_LIBRARY_PATH=/usr/lib64:';\
    else \
      /bin/sh $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--libdir=/usr/lib64' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--docdir=/usr/share/doc/clisp' '--with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline' '--without-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm' 'LT_SYS_LIBRARY_PATH=/usr/lib64:'; \
    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="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K boot  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd regexp ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC" CLFLAGS="-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -Wl,--export-dynamic" LIBS="-Wl,--whole-archive libgnu.a -Wl,--no-whole-archive  -lreadline -lncurses   /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/regexp'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/regexp'
rm -rf base
MAKE=make CLISP="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/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 || (rm -rf base ; exit 1)
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/i18n'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/i18n'
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/syscalls'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/syscalls'
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/regexp'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/regexp'
gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -fPIC -DPIC -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/linkkit -c modules.c
gcc -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -fPIC -DPIC -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic modules.o regexi.o calls.o -lm gettext.o lisp.a -Wl,--whole-archive libgnu.a -Wl,--no-whole-archive -lreadline -lncurses /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl -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 (3,149,880 bytes)
Bytes permanently allocated:            167,456
Bytes currently in use:               2,979,696
Bytes available until next GC:        1,484,916
2979696 ;
1484916 ;
167456 ;
1 ;
238904 ;
4166
base/lisp.run -B . -M base/lispinit.mem -norc -q -i i18n/i18n -i syscalls/posix -i regexp/regexp -x (saveinitmem "base/lispinit.mem")
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/i18n/i18n.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/i18n/i18n.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/syscalls/posix.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/syscalls/posix.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/regexp/regexp.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/regexp/regexp.fas
;; Wrote the memory image into base/lispinit.mem (3,504,016 bytes)
Bytes permanently allocated:            173,952
Bytes currently in use:               3,322,104
Bytes available until next GC:        1,656,120
3322104 ;
1656120 ;
173952 ;
1 ;
835136 ;
4899
mkdir -p asdf
m=`cd ../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_CLFLAGS_set}" = set; then CLFLAGS="${ac_cv_env_CLFLAGS_value}"; export CLFLAGS; 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/sh $m/configure --with-clisp="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--libdir=/usr/lib64' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--docdir=/usr/share/doc/clisp' '--with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline' '--without-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm' 'LT_SYS_LIBRARY_PATH=/usr/lib64:';\
    else \
      /bin/sh $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--libdir=/usr/lib64' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--docdir=/usr/share/doc/clisp' '--with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline' '--without-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm' 'LT_SYS_LIBRARY_PATH=/usr/lib64:'; \
    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="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd asdf ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC" CLFLAGS="-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -Wl,--export-dynamic" LIBS="-Wl,--whole-archive libgnu.a -Wl,--no-whole-archive  -lreadline -lncurses   /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/asdf'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/asdf'
mkdir -p clx/new-clx
m=`cd ../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_CLFLAGS_set}" = set; then CLFLAGS="${ac_cv_env_CLFLAGS_value}"; export CLFLAGS; 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/sh $m/configure --with-clisp="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--libdir=/usr/lib64' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--docdir=/usr/share/doc/clisp' '--with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline' '--without-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm' 'LT_SYS_LIBRARY_PATH=/usr/lib64:';\
    else \
      /bin/sh $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--libdir=/usr/lib64' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--docdir=/usr/share/doc/clisp' '--with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline' '--without-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm' 'LT_SYS_LIBRARY_PATH=/usr/lib64:'; \
    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="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd clx/new-clx ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC" CLFLAGS="-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -Wl,--export-dynamic" LIBS="-Wl,--whole-archive libgnu.a -Wl,--no-whole-archive  -lreadline -lncurses   /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clx/new-clx'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clx/new-clx'
mkdir -p gdbm
m=`cd ../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_CLFLAGS_set}" = set; then CLFLAGS="${ac_cv_env_CLFLAGS_value}"; export CLFLAGS; 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/sh $m/configure --with-clisp="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--libdir=/usr/lib64' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--docdir=/usr/share/doc/clisp' '--with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline' '--without-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm' 'LT_SYS_LIBRARY_PATH=/usr/lib64:';\
    else \
      /bin/sh $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--libdir=/usr/lib64' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--docdir=/usr/share/doc/clisp' '--with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline' '--without-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm' 'LT_SYS_LIBRARY_PATH=/usr/lib64:'; \
    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="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd gdbm ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC" CLFLAGS="-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -Wl,--export-dynamic" LIBS="-Wl,--whole-archive libgnu.a -Wl,--no-whole-archive  -lreadline -lncurses   /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gdbm'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gdbm'
mkdir -p pcre
m=`cd ../modules/pcre; pwd`; \
if test -f $m/configure && { test ! -f pcre/config.status || test -n "`find $m/configure -prune -newer pcre/config.status`"; } ; then ( cd pcre ;\
    cache=`echo pcre/ | 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_CLFLAGS_set}" = set; then CLFLAGS="${ac_cv_env_CLFLAGS_value}"; export CLFLAGS; 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/sh $m/configure --with-clisp="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--libdir=/usr/lib64' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--docdir=/usr/share/doc/clisp' '--with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline' '--without-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm' 'LT_SYS_LIBRARY_PATH=/usr/lib64:';\
    else \
      /bin/sh $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--libdir=/usr/lib64' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--docdir=/usr/share/doc/clisp' '--with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline' '--without-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm' 'LT_SYS_LIBRARY_PATH=/usr/lib64:'; \
    fi ) ;\
fi; \
if test -f $m/Makefile && { test ! -f pcre/Makefile || test -n "`find $m/Makefile -prune -newer pcre/Makefile`"; } ; then \
  sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > pcre/Makefile ; \
fi ; \
CLISP="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd pcre ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC" CLFLAGS="-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -Wl,--export-dynamic" LIBS="-Wl,--whole-archive libgnu.a -Wl,--no-whole-archive  -lreadline -lncurses   /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/pcre'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/pcre'
mkdir -p rawsock
m=`cd ../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_CLFLAGS_set}" = set; then CLFLAGS="${ac_cv_env_CLFLAGS_value}"; export CLFLAGS; 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/sh $m/configure --with-clisp="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" --cache-file=${cache} --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--libdir=/usr/lib64' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--docdir=/usr/share/doc/clisp' '--with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline' '--without-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm' 'LT_SYS_LIBRARY_PATH=/usr/lib64:';\
    else \
      /bin/sh $m/configure --srcdir=$m '--disable-option-checking' '--prefix=/usr' '--libdir=/usr/lib64' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--docdir=/usr/share/doc/clisp' '--with-libreadline-prefix=/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/readline' '--without-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm' 'LT_SYS_LIBRARY_PATH=/usr/lib64:'; \
    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="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd rawsock ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES  -fPIC -DPIC" CLFLAGS="-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -Wl,--export-dynamic" LIBS="-Wl,--whole-archive libgnu.a -Wl,--no-whole-archive  -lreadline -lncurses   /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/rawsock'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/rawsock'
rm -rf full
rm -rf dynmod; mkdir dynmod
MAKE=make CLISP="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ./clisp-link add base full asdf clx/new-clx gdbm pcre rawsock || (rm -rf full ; exit 1)
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/asdf'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/asdf'
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clx/new-clx'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clx/new-clx'
gcc -Wl,--as-needed -shared -fPIC -DPIC clx.o -lXpm -lXext -lXau -lSM -lICE -lX11 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-clx.so -o /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/dynmod/lib-clx.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gdbm'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gdbm'
gcc -Wl,--as-needed -shared -fPIC -DPIC gdbm.o /usr/lib64/libgdbm.so -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-gdbm.so -o /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/dynmod/lib-gdbm.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/pcre'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/pcre'
gcc -Wl,--as-needed -shared -fPIC -DPIC cpcre.o /usr/lib64/libpcre.so -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-pcre.so -o /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/dynmod/lib-pcre.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/rawsock'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/rawsock'
gcc -Wl,--as-needed -shared -fPIC -DPIC rawsock.o -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-rawsock.so -o /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/dynmod/lib-rawsock.so
gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -fPIC -DPIC -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/linkkit -c modules.c
gcc -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -fPIC -DPIC -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic modules.o rawsock.o cpcre.o /usr/lib64/libpcre.so gdbm.o /usr/lib64/libgdbm.so clx.o -lXpm -lXext -lXau -lSM -lICE -lX11 regexi.o calls.o -lm gettext.o lisp.a -Wl,--whole-archive libgnu.a -Wl,--no-whole-archive -lreadline -lncurses /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl -o lisp.run
base/lisp.run -B . -M base/lispinit.mem -norc -q -i clx/new-clx/clx-preload.lisp -i gdbm/preload.lisp -i pcre/preload.lisp -i rawsock/preload.lisp -x (saveinitmem "full/lispinit.mem")
;; Loading file clx/new-clx/clx-preload.lisp ...
;; Loaded file clx/new-clx/clx-preload.lisp
;; Loading file gdbm/preload.lisp ...
;; Loaded file gdbm/preload.lisp
;; Loading file pcre/preload.lisp ...
;; Loaded file pcre/preload.lisp
;; Loading file rawsock/preload.lisp ...
;; Loaded file rawsock/preload.lisp
;; Wrote the memory image into full/lispinit.mem (3,508,216 bytes)
Bytes permanently allocated:            173,952
Bytes currently in use:               3,326,304
Bytes available until next GC:        1,658,220
3326304 ;
1658220 ;
173952 ;
1 ;
276368 ;
4466
full/lisp.run -B . -M full/lispinit.mem -norc -q -i asdf/asdf -i clx/new-clx/clx -i clx/new-clx/image -i clx/new-clx/resource -i gdbm/gdbm -i pcre/pcre -i rawsock/sock -x (saveinitmem "full/lispinit.mem")
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/asdf/asdf.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/asdf/asdf.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clx/new-clx/clx.fas ...
WARNING: PROCLAIM(VALUES): #<PACKAGE COMMON-LISP> is locked
         Ignore the lock and proceed;; Loaded file 
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clx/new-clx/clx.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clx/new-clx/image.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clx/new-clx/image.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clx/new-clx/resource.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clx/new-clx/resource.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gdbm/gdbm.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gdbm/gdbm.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/pcre/pcre.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/pcre/pcre.fas
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/rawsock/sock.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/rawsock/sock.fas
;; Wrote the memory image into full/lispinit.mem (5,993,104 bytes)
Bytes permanently allocated:            200,216
Bytes currently in use:               5,777,472
Bytes available until next GC:        2,883,804
5777472 ;
2883804 ;
200216 ;
17 ;
33257408 ;
106092
mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/dynmod
DESTDIR=`cd "/builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+"; pwd` CLISP='./clisp -q -norc' ./clisp-link install asdf clx/new-clx gdbm pcre rawsock
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/asdf'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/asdf'
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/asdf'
cp Makefile asdf.fas link.sh /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/asdf/asdf.lisp /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/asdf
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/asdf'
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clx/new-clx'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clx/new-clx'
gcc -Wl,--as-needed -shared -fPIC -DPIC clx.o -lXpm -lXext -lXau -lSM -lICE -lX11 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-clx.so -o /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/dynmod/lib-clx.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clx/new-clx'
cp link.sh Makefile clx.fas image.fas resource.fas clx.o clx-preload.lisp /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/README /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/clx.lisp /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/image.lisp /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/resource.lisp /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/clx/new-clx
mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/clx/new-clx/demos
cp /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/demos/*.lisp /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/demos/README /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/clx/new-clx/demos/
mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/clx/new-clx/demos/screens /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/clx/new-clx/demos/xpms
cp /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/demos/screens/screen.* /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/clx/new-clx/demos/screens/
cp /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/clx/new-clx/demos/xpms/*.xpm /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/clx/new-clx/demos/xpms/
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clx/new-clx'
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gdbm'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gdbm'
gcc -Wl,--as-needed -shared -fPIC -DPIC gdbm.o /usr/lib64/libgdbm.so -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-gdbm.so -o /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/dynmod/lib-gdbm.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gdbm'
cp link.sh Makefile gdbm.fas gdbm.o preload.lisp /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/gdbm/gdbm.lisp /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/gdbm
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gdbm'
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/pcre'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/pcre'
gcc -Wl,--as-needed -shared -fPIC -DPIC cpcre.o /usr/lib64/libpcre.so -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-pcre.so -o /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/dynmod/lib-pcre.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/pcre'
cp link.sh Makefile pcre.fas cpcre.o preload.lisp /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/pcre/pcre.lisp /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/pcre
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/pcre'
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/rawsock'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/rawsock'
gcc -Wl,--as-needed -shared -fPIC -DPIC rawsock.o -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-rawsock.so -o /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/dynmod/lib-rawsock.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/rawsock'
cp link.sh Makefile sock.fas rawsock.o preload.lisp /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/rawsock/sock.lisp /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/rawsock
mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/rawsock/demos
cp /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/rawsock/demos/*.lisp /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules/rawsock/demos/README /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/rawsock/demos/
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/rawsock'
mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr
mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr
mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64
mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+
mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/data
/usr/bin/install -c -m 644 data/UnicodeDataFull.txt /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/data/UnicodeDataFull.txt
/usr/bin/install -c -m 644 data/Symbol-Table.text /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/data/Symbol-Table.text
(cd /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+ && rm -rf base full)
mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/build-aux
for f in  config.rpath depcomp; do /usr/bin/install -c -m 644 build-aux/$f /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/build-aux/$f; done
for d in linkkit base; do for f in $d/*; do \
  mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/$d; \
  case $f in \
    */lisp.run) /usr/bin/install -c $f /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/$f;; \
    *) /usr/bin/install -c -m 644 $f /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/$f;; \
  esac; \
done; done
mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/bin
/usr/bin/install -c clisp-link /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/bin/clisp-link
cd po && make install DESTDIR='/builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64' prefix='/usr' exec_prefix='/usr'
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/po'
installing ../../src/po/en.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/locale/en/LC_MESSAGES/clisp.mo
installing ../../src/po/clisplow_en.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/locale/en/LC_MESSAGES/clisplow.mo
installing ../../src/po/da.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/locale/da/LC_MESSAGES/clisp.mo
installing ../../src/po/clisplow_da.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/locale/da/LC_MESSAGES/clisplow.mo
installing ../../src/po/de.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/locale/de/LC_MESSAGES/clisp.mo
installing ../../src/po/clisplow_de.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/locale/de/LC_MESSAGES/clisplow.mo
installing ../../src/po/fr.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/locale/fr/LC_MESSAGES/clisp.mo
installing ../../src/po/clisplow_fr.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/locale/fr/LC_MESSAGES/clisplow.mo
installing ../../src/po/es.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/locale/es/LC_MESSAGES/clisp.mo
installing ../../src/po/clisplow_es.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/locale/es/LC_MESSAGES/clisplow.mo
installing ../../src/po/nl.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/locale/nl/LC_MESSAGES/clisp.mo
installing ../../src/po/clisplow_nl.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/locale/nl/LC_MESSAGES/clisplow.mo
installing ../../src/po/ru.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/locale/ru/LC_MESSAGES/clisp.mo
installing ../../src/po/clisplow_ru.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/locale/ru/LC_MESSAGES/clisplow.mo
installing ../../src/po/sv.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/locale/sv/LC_MESSAGES/clisp.mo
installing ../../src/po/clisplow_sv.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/locale/sv/LC_MESSAGES/clisplow.mo
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/po'
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/gllib -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_MODULES -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack  -DLISPLIBDIR='"/usr/lib64/clisp-2.49.93+"' -DLOCALEDIR='"/usr/share/locale"' clisp.c libgnu.a -o /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/bin/clisp
mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/emacs/site-lisp
/usr/bin/install -c -m 644 ../emacs/clisp-coding.el /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/emacs/site-lisp/clisp-coding.el
/usr/bin/install -c -m 644 ../emacs/clisp-indent.el /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/emacs/site-lisp/clisp-indent.el
/usr/bin/install -c -m 644 ../emacs/clisp-indent.lisp /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/emacs/site-lisp/clisp-indent.lisp
/usr/bin/install -c -m 644 ../emacs/clisp-ffi.el /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/emacs/site-lisp/clisp-ffi.el
mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/vim/vimfiles/after/syntax
/usr/bin/install -c -m 644 ../emacs/lisp.vim /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/vim/vimfiles/after/syntax/lisp.vim
mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/aclocal
/usr/bin/install -c -m 644 ../src/m4/clisp.m4 /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/aclocal/clisp.m4
mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr
mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr
mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share
mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/man
mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/man/man1
/usr/bin/install -c -m 644 clisp.1 /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/man/man1/clisp.1
/usr/bin/install -c -m 644 clisp-link.1 /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/man/man1/clisp-link.1
mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/doc/clisp
mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/doc/clisp
mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/doc/clisp
/usr/bin/install -c -m 644 clisp.html /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/doc/clisp/clisp.html
/usr/bin/install -c -m 644 clisp.ps  /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/doc/clisp/clisp.ps
/usr/bin/install -c -m 644 clisp.pdf /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/doc/clisp/clisp.pdf
/usr/bin/install -c -m 644 clisp-link.html /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/doc/clisp/clisp-link.html
/usr/bin/install -c -m 644 clisp-link.ps  /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/doc/clisp/clisp-link.ps
/usr/bin/install -c -m 644 clisp-link.pdf /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/doc/clisp/clisp-link.pdf
mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr
mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr
mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/doc/clisp
/usr/bin/install -c -m 644 ANNOUNCE COPYRIGHT GNU-GPL SUMMARY NEWS README README.de README.es MAGIC.add /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/doc/clisp/
mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/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 /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/doc/clisp/doc/
make: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build'
+ cp -a build/full /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+
+ rm -f /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/doc/clisp/doc/clisp.dvi /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/doc/clisp/doc/clisp.1 /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/doc/clisp/doc/clisp.ps
+ rm -f /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/doc/clisp/COPYRIGHT /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/doc/clisp/GNU-GPL
+ cp -p doc/mop-spec.pdf /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/doc/clisp/doc
+ cp -p doc/clisp.png doc/mop-classes-all.png doc/mop-classes-class.png doc/mop-classes-genfun.png doc/mop-classes-methcomb.png doc/mop-classes-method.png doc/mop-classes-slotdef.png doc/mop-classes-specializer.png doc/mop-classes.png /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/doc/clisp/doc
+ cp -p doc/Why-CLISP-is-under-GPL /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/doc/clisp/doc
+ cp -p doc/regexp.html /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/doc/clisp/doc
+ find /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64 -name '*.dvi' -exec rm -f '{}' +
+ /usr/lib/rpm/find-lang.sh /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64 clisp
+ /usr/lib/rpm/find-lang.sh /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64 clisplow
+ cat clisplow.lang
+ pushd /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/emacs/site-lisp
~/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/emacs/site-lisp ~/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f
+ /usr/bin/emacs -batch --no-init-file --no-site-file --eval '(progn (setq load-path (cons "." load-path)))' -f batch-byte-compile clisp-coding.el clisp-ffi.el clisp-indent.el
+ popd
~/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f
+ cp -p config.rpath.orig /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/build-aux/config.rpath
+ chmod a+x /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/build-aux/depcomp
++ find /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64 -name Makefile
+ for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64 -name Makefile)
+ sed -e s,/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/asdf/Makefile
+ for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64 -name Makefile)
+ sed -e s,/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/pcre/Makefile
+ for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64 -name Makefile)
+ sed -e s,/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/rawsock/Makefile
+ for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64 -name Makefile)
+ sed -e s,/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/gdbm/Makefile
+ for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64 -name Makefile)
+ sed -e s,/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/clx/new-clx/Makefile
+ for mk in /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/{base,full}/makevars
+ sed -e 's, -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f[^'\'']*,,' -e 's,/usr/lib64/lib\([[:alnum:]]*\)\.so,-l\1,g' -i /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/base/makevars
+ for mk in /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/{base,full}/makevars
+ sed -e 's, -I/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f[^'\'']*,,' -e 's,/usr/lib64/lib\([[:alnum:]]*\)\.so,-l\1,g' -i /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/full/makevars
+ for dir in /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/*
++ basename /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/asdf
+ cp -p build/asdf/config.h /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/asdf
cp: cannot stat 'build/asdf/config.h': No such file or directory
+ :
+ for dir in /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/*
++ basename /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/base
+ cp -p build/base/config.h /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/base
cp: cannot stat 'build/base/config.h': No such file or directory
+ :
+ for dir in /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/*
++ basename /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/build-aux
+ cp -p build/build-aux/config.h /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/build-aux
cp: cannot stat 'build/build-aux/config.h': No such file or directory
+ :
+ for dir in /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/*
++ basename /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/clx
+ cp -p build/clx/config.h /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/clx
cp: cannot stat 'build/clx/config.h': No such file or directory
+ :
+ for dir in /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/*
++ basename /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/data
+ cp -p build/data/config.h /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/data
cp: cannot stat 'build/data/config.h': No such file or directory
+ :
+ for dir in /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/*
++ basename /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/dynmod
+ cp -p build/dynmod/config.h /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/dynmod
cp: cannot stat 'build/dynmod/config.h': No such file or directory
+ :
+ for dir in /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/*
++ basename /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/full
+ cp -p build/full/config.h /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/full
cp: cannot stat 'build/full/config.h': No such file or directory
+ :
+ for dir in /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/*
++ basename /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/gdbm
+ cp -p build/gdbm/config.h /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/gdbm
+ for dir in /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/*
++ basename /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/linkkit
+ cp -p build/linkkit/config.h /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/linkkit
cp: cannot stat 'build/linkkit/config.h': No such file or directory
+ :
+ for dir in /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/*
++ basename /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/pcre
+ cp -p build/pcre/config.h /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/pcre
+ for dir in /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/*
++ basename /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/rawsock
+ cp -p build/rawsock/config.h /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/rawsock
+ cp -p build/config.h /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+
+ cp -p build/clx/new-clx/config.h /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/clx/new-clx
+ pushd /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/full
~/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/full ~/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f
+ for obj in calls gettext readline regexi
+ rm -f calls.o
+ ln -s ../base/calls.o calls.o
+ for obj in calls gettext readline regexi
+ rm -f gettext.o
+ ln -s ../base/gettext.o gettext.o
+ for obj in calls gettext readline regexi
+ rm -f readline.o
+ ln -s ../base/readline.o readline.o
+ for obj in calls gettext readline regexi
+ rm -f regexi.o
+ ln -s ../base/regexi.o regexi.o
+ for obj in libgnu libnoreadline lisp
+ rm -f libgnu.a
+ ln -s ../base/libgnu.a libgnu.a
+ for obj in libgnu libnoreadline lisp
+ rm -f libnoreadline.a
+ ln -s ../base/libnoreadline.a libnoreadline.a
+ for obj in libgnu libnoreadline lisp
+ rm -f lisp.a
+ ln -s ../base/lisp.a lisp.a
+ for obj in fastcgi fastcgi_wrappers
+ rm -f fastcgi.o
+ ln -s ../fastcgi/fastcgi.o fastcgi.o
+ for obj in fastcgi fastcgi_wrappers
+ rm -f fastcgi_wrappers.o
+ ln -s ../fastcgi/fastcgi_wrappers.o fastcgi_wrappers.o
+ rm -f clx.o
+ ln -s ../clx/new-clx/clx.o clx.o
+ rm -f cpcre.o
+ ln -s ../pcre/cpcre.o cpcre.o
+ rm -f dbus.o
+ ln -s ../dbus/dbus.o dbus.o
+ rm -f gdbm.o
+ ln -s ../gdbm/gdbm.o gdbm.o
+ rm -f libsvm.o
+ ln -s ../libsvm/libsvm.o libsvm.o
+ rm -f linux.o
+ ln -s ../bindings/glibc/linux.o linux.o
+ rm -f postgresql.o
+ ln -s ../postgresql/postgresql.o postgresql.o
+ rm -f rawsock.o
+ ln -s ../rawsock/rawsock.o rawsock.o
+ rm -f zlib.o
+ ln -s ../zlib/zlib.o zlib.o
+ popd
~/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f
+ ln -s ../../src/modules.c build/base/modules.c
+ ln -s ../../src/modules.c build/full/modules.c
+ /usr/bin/find-debuginfo -j32 --strict-build-id -m -i --build-id-seed 2.49.93-1.ocs23 --unique-debug-suffix -2.49.93-1.ocs23.x86_64 --unique-debug-src-base clisp-2.49.93-1.ocs23.x86_64 -S debugsourcefiles.list /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f
extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/bin/clisp
extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/dynmod/lib-clx.so
extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/base/lisp.run
extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/dynmod/lib-gdbm.so
extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/dynmod/lib-pcre.so
extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/full/lisp.run
extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/lib64/clisp-2.49.93+/dynmod/lib-rawsock.so
32232 blocks
+ /usr/lib/rpm/check-buildroot
+ /usr/lib/rpm/OpenCloudOS/brp-ldconfig
+ /usr/lib/rpm/brp-compress
+ /usr/lib/rpm/OpenCloudOS/brp-strip-lto /usr/bin/strip
+ /usr/lib/rpm/brp-strip-static-archive /usr/bin/strip
+ /usr/lib/rpm/check-rpaths
+ /usr/lib/rpm/OpenCloudOS/brp-mangle-shebangs
mangling shebang in /usr/lib64/clisp-2.49.93+/build-aux/config.rpath from /bin/sh to #!/usr/bin/sh
mangling shebang in /usr/lib64/clisp-2.49.93+/build-aux/depcomp from /bin/sh to #!/usr/bin/sh
mangling shebang in /usr/bin/clisp-link from /bin/sh to #!/usr/bin/sh
+ /usr/lib/rpm/OpenCloudOS/brp-python-bytecompile '' 1 0
+ /usr/lib/rpm/OpenCloudOS/brp-python-hardlink
Executing(%check): /bin/sh -e /var/tmp/rpm-tmp.GbEIMe
+ umask 022
+ cd /builddir/build/BUILD
+ CFLAGS='-O2  -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong  -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection'
+ export CFLAGS
+ CXXFLAGS='-O2  -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong  -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection'
+ export CXXFLAGS
+ FFLAGS='-O2  -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong  -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -I/usr/lib64/gfortran/modules'
+ export FFLAGS
+ FCFLAGS='-O2  -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong  -m64 -march=x86-64-v2 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -I/usr/lib64/gfortran/modules'
+ export FCFLAGS
+ LDFLAGS='-Wl,-z,relro -Wl,--as-needed  -Wl,-z,now -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-ld  -Wl,--build-id=sha1'
+ export LDFLAGS
+ LT_SYS_LIBRARY_PATH=/usr/lib64:
+ export LT_SYS_LIBRARY_PATH
+ CC=gcc
+ export CC
+ CXX=g++
+ export CXX
+ cd clisp-66924971790e4cbee3d58f36e530caa0ad568e5f
+ export LC_ALL=C.UTF-8
+ LC_ALL=C.UTF-8
+ make -C build check
make: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build'
mkdir stage
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/init.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/init.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/init.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/defseq.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/defseq.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/defseq.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/backquote.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/backquote.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/backquote.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/defmacro.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/defmacro.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/defmacro.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/macros1.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/macros1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/macros1.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/macros2.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/macros2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/macros2.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/defs1.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/defs1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/defs1.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/lambdalist.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/lambdalist.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/lambdalist.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/places.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/places.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/places.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/floatprint.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/floatprint.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/floatprint.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/defpackage.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/defpackage.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/defpackage.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/type.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/type.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/type.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/subtypep.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/subtypep.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/subtypep.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-package.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-package.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-package.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-macros.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-macros.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-macros.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-class0.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-class0.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-class0.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-metaobject1.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-metaobject1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-metaobject1.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-slotdef1.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-slotdef1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-slotdef1.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-stablehash1.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-stablehash1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-stablehash1.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-specializer1.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-specializer1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-specializer1.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-class1.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-class1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-class1.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-class2.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-class2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-class2.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-class3.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-class3.lisp ...
WARNING: Redefining metaobject class #<STANDARD-CLASS METAOBJECT> has no
         effect.
WARNING: Redefining metaobject class #<STANDARD-CLASS SPECIALIZER> has no
         effect.
WARNING: Redefining metaobject class #<STANDARD-CLASS SUPER-CLASS> has no
         effect.
WARNING: Redefining metaobject class #<STANDARD-CLASS POTENTIAL-CLASS> has no
         effect.
WARNING: Redefining metaobject class #<STANDARD-CLASS BUILT-IN-CLASS> has no
         effect.
WARNING: Redefining metaobject class #<STANDARD-CLASS SLOTTED-CLASS> has no
         effect.
WARNING: Redefining metaobject class #<STANDARD-CLASS SEMI-STANDARD-CLASS> has
         no effect.
WARNING: Redefining metaobject class #<STANDARD-CLASS STANDARD-CLASS> has no
         effect.
WARNING: Redefining metaobject class #<STANDARD-CLASS STRUCTURE-CLASS> has no
         effect.
WARNING: Redefining metaobject class #<STANDARD-CLASS SLOT-DEFINITION> has no
         effect.
WARNING: Redefining metaobject class #<STANDARD-CLASS DIRECT-SLOT-DEFINITION>
         has no effect.
WARNING: Redefining metaobject class
         #<STANDARD-CLASS EFFECTIVE-SLOT-DEFINITION> has no effect.
WARNING: Redefining metaobject class
         #<STANDARD-CLASS STANDARD-SLOT-DEFINITION> has no effect.
WARNING: Redefining metaobject class
         #<STANDARD-CLASS STANDARD-DIRECT-SLOT-DEFINITION> has no effect.
WARNING: Redefining metaobject class
         #<STANDARD-CLASS STANDARD-EFFECTIVE-SLOT-DEFINITION> has no effect.
WARNING: Redefining metaobject class
         #<STANDARD-CLASS STRUCTURE-DIRECT-SLOT-DEFINITION> has no effect.
WARNING: Redefining metaobject class
         #<STANDARD-CLASS STRUCTURE-EFFECTIVE-SLOT-DEFINITION> has no effect.
WARNING: Redefining metaobject class #<STANDARD-CLASS EQL-SPECIALIZER> has no
         effect.
WARNING: Redefining metaobject class
         #<STANDARD-CLASS MISDESIGNED-FORWARD-REFERENCED-CLASS> has no effect.
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-class3.fas
0 errors, 19 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/defstruct.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/defstruct.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/defstruct.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/format.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/format.lisp ...
WARNING: in FORMATTER-MAIN-1 in lines 2028..2526 : variable ADD-FILL is not
         used.
         Misspelled or missing IGNORE declaration?
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/format.fas
0 errors, 1 warning
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/international.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/international.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/international.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/savemem.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/savemem.lisp ...
WARNING: in SAVEINITMEM in lines 31..106 : Mixing &OPTIONAL and &KEY in lambda
         list
          (&OPTIONAL (FILENAME "lispinit.mem") &KEY ((:QUIET *QUIET*) NIL)
           (INIT-FUNCTION NIL INIT-FUNCTION-P)
           ((:VERBOSE *SAVEINITMEM-VERBOSE*) *SAVEINITMEM-VERBOSE*)
           ((:NORC *NORC*) NIL)
           ((:DOCUMENTATION *IMAGE-DOC*)
            (DOCUMENTATION INIT-FUNCTION 'FUNCTION))
           ((:SCRIPT *SCRIPT*) (NULL INIT-FUNCTION)) KEEP-GLOBAL-HANDLERS
           (START-PACKAGE *PACKAGE*) (LOCKED-PACKAGES *SYSTEM-PACKAGE-LIST*)
           EXECUTABLE)
         is bad design
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/savemem.fas
0 errors, 1 warning
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/functions.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/functions.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/functions.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/trace.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/trace.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/trace.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/cmacros.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/cmacros.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/cmacros.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/compiler.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/compiler.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/compiler.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/defs2.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/defs2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/defs2.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/loop.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/loop.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/loop.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-stablehash2.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-stablehash2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-stablehash2.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-specializer2.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-specializer2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-specializer2.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-specializer3.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-specializer3.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-specializer3.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-class4.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-class4.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-class4.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-class5.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-class5.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-class5.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-class6.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-class6.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-class6.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-slotdef2.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-slotdef2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-slotdef2.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-slotdef3.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-slotdef3.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-slotdef3.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-slots1.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-slots1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-slots1.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-slots2.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-slots2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-slots2.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-method1.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-method1.lisp ...
WARNING: Redefining metaobject class #<STANDARD-CLASS METHOD> has no effect.
WARNING: Redefining metaobject class #<STANDARD-CLASS STANDARD-METHOD> has no
         effect.
WARNING: Redefining metaobject class
         #<STANDARD-CLASS STANDARD-ACCESSOR-METHOD> has no effect.
WARNING: Redefining metaobject class #<STANDARD-CLASS STANDARD-READER-METHOD>
         has no effect.
WARNING: Redefining metaobject class #<STANDARD-CLASS STANDARD-WRITER-METHOD>
         has no effect.
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-method1.fas
0 errors, 5 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-method2.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-method2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-method2.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-method3.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-method3.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-method3.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-method4.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-method4.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-method4.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-methcomb1.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-methcomb1.lisp ...
WARNING: Redefining metaobject class #<STANDARD-CLASS METHOD-COMBINATION> has
         no effect.;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-methcomb1.fas
0 errors, 1 warning
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-methcomb2.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-methcomb2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-methcomb2.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-methcomb3.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-methcomb3.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-methcomb3.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-methcomb4.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-methcomb4.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-methcomb4.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-genfun1.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun1.lisp ...
WARNING: Redefining metaobject class
         #<STANDARD-CLASS FUNCALLABLE-STANDARD-CLASS> has no effect.
WARNING: Redefining metaobject class
         #<FUNCALLABLE-STANDARD-CLASS GENERIC-FUNCTION> has no effect.
WARNING: Redefining metaobject class
         #<FUNCALLABLE-STANDARD-CLASS STANDARD-GENERIC-FUNCTION> has no
         effect.
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-genfun1.fas
0 errors, 3 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-genfun2a.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun2a.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-genfun2a.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-genfun2b.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun2b.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-genfun2b.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-genfun3.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun3.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-genfun3.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-genfun4.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun4.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-genfun4.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-genfun5.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-genfun5.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-genfun5.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-dependent.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-dependent.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-dependent.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-print.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-print.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-print.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clos-custom.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clos-custom.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clos-custom.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/documentation.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/documentation.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/documentation.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/fill-out.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/fill-out.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/fill-out.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/disassem.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/disassem.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/disassem.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/condition.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/condition.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/condition.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/loadform.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/loadform.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/loadform.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/gstream.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gstream.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/gstream.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/xcharin.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/xcharin.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/xcharin.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/keyboard.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/keyboard.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/keyboard.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/screen.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/screen.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/screen.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/runprog.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/runprog.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/runprog.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/query.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/query.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/query.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/reploop.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/reploop.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/reploop.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/dribble.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/dribble.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/dribble.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/complete.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/complete.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/complete.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/pprint.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/pprint.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/pprint.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/describe.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/describe.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/describe.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/room.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/room.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/room.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/edit.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/edit.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/edit.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/macros3.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/macros3.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/macros3.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/clhs.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/clhs.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/clhs.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/inspect.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/inspect.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/inspect.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/gray.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/gray.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/gray.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/case-sensitive.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/case-sensitive.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/case-sensitive.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/exporting.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/exporting.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/exporting.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/german.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/german.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/german.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/french.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/french.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/french.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/spanish.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/spanish.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/spanish.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/russian.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/russian.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/russian.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/danish.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/danish.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/danish.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/dutch.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/dutch.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/dutch.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c ../src/deprecated.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/src/deprecated.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/deprecated.fas
0 errors, 0 warnings
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 1MW -M lispinit.mem -q -d -c config.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/config.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/stage/config.fas
0 errors, 0 warnings
cmp -s init.fas stage/init.fas  || (echo "Test failed." ; exit 1)
cmp -s defseq.fas stage/defseq.fas  || (echo "Test failed." ; exit 1)
cmp -s backquote.fas stage/backquote.fas  || (echo "Test failed." ; exit 1)
cmp -s defmacro.fas stage/defmacro.fas  || (echo "Test failed." ; exit 1)
cmp -s macros1.fas stage/macros1.fas  || (echo "Test failed." ; exit 1)
cmp -s macros2.fas stage/macros2.fas  || (echo "Test failed." ; exit 1)
cmp -s defs1.fas stage/defs1.fas  || (echo "Test failed." ; exit 1)
cmp -s lambdalist.fas stage/lambdalist.fas  || (echo "Test failed." ; exit 1)
cmp -s places.fas stage/places.fas  || (echo "Test failed." ; exit 1)
cmp -s floatprint.fas stage/floatprint.fas  || (echo "Test failed." ; exit 1)
cmp -s defpackage.fas stage/defpackage.fas  || (echo "Test failed." ; exit 1)
cmp -s type.fas stage/type.fas  || (echo "Test failed." ; exit 1)
cmp -s subtypep.fas stage/subtypep.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-package.fas stage/clos-package.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-macros.fas stage/clos-macros.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-class0.fas stage/clos-class0.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-metaobject1.fas stage/clos-metaobject1.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-slotdef1.fas stage/clos-slotdef1.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-stablehash1.fas stage/clos-stablehash1.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-specializer1.fas stage/clos-specializer1.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-class1.fas stage/clos-class1.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-class2.fas stage/clos-class2.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-class3.fas stage/clos-class3.fas  || (echo "Test failed." ; exit 1)
cmp -s defstruct.fas stage/defstruct.fas  || (echo "Test failed." ; exit 1)
cmp -s format.fas stage/format.fas  || (echo "Test failed." ; exit 1)
cmp -s international.fas stage/international.fas  || (echo "Test failed." ; exit 1)
cmp -s savemem.fas stage/savemem.fas  || (echo "Test failed." ; exit 1)
cmp -s functions.fas stage/functions.fas  || (echo "Test failed." ; exit 1)
cmp -s trace.fas stage/trace.fas  || (echo "Test failed." ; exit 1)
cmp -s cmacros.fas stage/cmacros.fas  || (echo "Test failed." ; exit 1)
cmp -s compiler.fas stage/compiler.fas  || (echo "Test failed." ; exit 1)
cmp -s defs2.fas stage/defs2.fas  || (echo "Test failed." ; exit 1)
cmp -s loop.fas stage/loop.fas  || (echo "Test failed." ; exit 1)
cmp -s clos.fas stage/clos.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-stablehash2.fas stage/clos-stablehash2.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-specializer2.fas stage/clos-specializer2.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-specializer3.fas stage/clos-specializer3.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-class4.fas stage/clos-class4.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-class5.fas stage/clos-class5.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-class6.fas stage/clos-class6.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-slotdef2.fas stage/clos-slotdef2.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-slotdef3.fas stage/clos-slotdef3.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-slots1.fas stage/clos-slots1.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-slots2.fas stage/clos-slots2.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-method1.fas stage/clos-method1.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-method2.fas stage/clos-method2.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-method3.fas stage/clos-method3.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-method4.fas stage/clos-method4.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-methcomb1.fas stage/clos-methcomb1.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-methcomb2.fas stage/clos-methcomb2.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-methcomb3.fas stage/clos-methcomb3.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-methcomb4.fas stage/clos-methcomb4.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-genfun1.fas stage/clos-genfun1.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-genfun2a.fas stage/clos-genfun2a.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-genfun2b.fas stage/clos-genfun2b.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-genfun3.fas stage/clos-genfun3.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-genfun4.fas stage/clos-genfun4.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-genfun5.fas stage/clos-genfun5.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-dependent.fas stage/clos-dependent.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-print.fas stage/clos-print.fas  || (echo "Test failed." ; exit 1)
cmp -s clos-custom.fas stage/clos-custom.fas  || (echo "Test failed." ; exit 1)
cmp -s documentation.fas stage/documentation.fas  || (echo "Test failed." ; exit 1)
cmp -s fill-out.fas stage/fill-out.fas  || (echo "Test failed." ; exit 1)
cmp -s disassem.fas stage/disassem.fas  || (echo "Test failed." ; exit 1)
cmp -s condition.fas stage/condition.fas  || (echo "Test failed." ; exit 1)
cmp -s loadform.fas stage/loadform.fas  || (echo "Test failed." ; exit 1)
cmp -s gstream.fas stage/gstream.fas  || (echo "Test failed." ; exit 1)
cmp -s xcharin.fas stage/xcharin.fas  || (echo "Test failed." ; exit 1)
cmp -s keyboard.fas stage/keyboard.fas  || (echo "Test failed." ; exit 1)
cmp -s screen.fas stage/screen.fas  || (echo "Test failed." ; exit 1)
cmp -s runprog.fas stage/runprog.fas  || (echo "Test failed." ; exit 1)
cmp -s query.fas stage/query.fas  || (echo "Test failed." ; exit 1)
cmp -s reploop.fas stage/reploop.fas  || (echo "Test failed." ; exit 1)
cmp -s dribble.fas stage/dribble.fas  || (echo "Test failed." ; exit 1)
cmp -s complete.fas stage/complete.fas  || (echo "Test failed." ; exit 1)
cmp -s pprint.fas stage/pprint.fas  || (echo "Test failed." ; exit 1)
cmp -s describe.fas stage/describe.fas  || (echo "Test failed." ; exit 1)
cmp -s room.fas stage/room.fas  || (echo "Test failed." ; exit 1)
cmp -s edit.fas stage/edit.fas  || (echo "Test failed." ; exit 1)
cmp -s macros3.fas stage/macros3.fas  || (echo "Test failed." ; exit 1)
cmp -s clhs.fas stage/clhs.fas  || (echo "Test failed." ; exit 1)
cmp -s inspect.fas stage/inspect.fas  || (echo "Test failed." ; exit 1)
cmp -s gray.fas stage/gray.fas  || (echo "Test failed." ; exit 1)
cmp -s case-sensitive.fas stage/case-sensitive.fas  || (echo "Test failed." ; exit 1)
cmp -s exporting.fas stage/exporting.fas  || (echo "Test failed." ; exit 1)
cmp -s german.fas stage/german.fas  || (echo "Test failed." ; exit 1)
cmp -s french.fas stage/french.fas  || (echo "Test failed." ; exit 1)
cmp -s spanish.fas stage/spanish.fas  || (echo "Test failed." ; exit 1)
cmp -s russian.fas stage/russian.fas  || (echo "Test failed." ; exit 1)
cmp -s danish.fas stage/danish.fas  || (echo "Test failed." ; exit 1)
cmp -s dutch.fas stage/dutch.fas  || (echo "Test failed." ; exit 1)
cmp -s deprecated.fas stage/deprecated.fas  || (echo "Test failed." ; exit 1)
cmp -s config.fas stage/config.fas  || (echo "Test failed." ; exit 1)
echo "Test passed."
Test passed.
rm -f fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (dolist (s (quote (*terminal-io* *standard-output* *error-output* *query-io* *debug-io* *trace-output*))) (format t "~S = ~S~%" s (symbol-value s))) (values))' 2>&1 | cat > fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *terminal-io* "~&Line1 to *terminal-io*") (format *terminal-io* "~&Line2 to *terminal-io*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *terminal-io* "~&Line1 to *terminal-io*") (format *standard-output* "~&Line2 to *standard-output*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *terminal-io* "~&Line1 to *terminal-io*") (format *error-output* "~&Line2 to *error-output*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *terminal-io* "~&Line1 to *terminal-io*") (format *query-io* "~&Line2 to *query-io*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *terminal-io* "~&Line1 to *terminal-io*") (format *debug-io* "~&Line2 to *debug-io*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *terminal-io* "~&Line1 to *terminal-io*") (format *trace-output* "~&Line2 to *trace-output*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *standard-output* "~&Line1 to *standard-output*") (format *terminal-io* "~&Line2 to *terminal-io*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *standard-output* "~&Line1 to *standard-output*") (format *standard-output* "~&Line2 to *standard-output*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *standard-output* "~&Line1 to *standard-output*") (format *error-output* "~&Line2 to *error-output*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *standard-output* "~&Line1 to *standard-output*") (format *query-io* "~&Line2 to *query-io*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *standard-output* "~&Line1 to *standard-output*") (format *debug-io* "~&Line2 to *debug-io*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *standard-output* "~&Line1 to *standard-output*") (format *trace-output* "~&Line2 to *trace-output*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *error-output* "~&Line1 to *error-output*") (format *terminal-io* "~&Line2 to *terminal-io*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *error-output* "~&Line1 to *error-output*") (format *standard-output* "~&Line2 to *standard-output*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *error-output* "~&Line1 to *error-output*") (format *error-output* "~&Line2 to *error-output*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *error-output* "~&Line1 to *error-output*") (format *query-io* "~&Line2 to *query-io*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *error-output* "~&Line1 to *error-output*") (format *debug-io* "~&Line2 to *debug-io*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *error-output* "~&Line1 to *error-output*") (format *trace-output* "~&Line2 to *trace-output*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *query-io* "~&Line1 to *query-io*") (format *terminal-io* "~&Line2 to *terminal-io*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *query-io* "~&Line1 to *query-io*") (format *standard-output* "~&Line2 to *standard-output*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *query-io* "~&Line1 to *query-io*") (format *error-output* "~&Line2 to *error-output*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *query-io* "~&Line1 to *query-io*") (format *query-io* "~&Line2 to *query-io*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *query-io* "~&Line1 to *query-io*") (format *debug-io* "~&Line2 to *debug-io*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *query-io* "~&Line1 to *query-io*") (format *trace-output* "~&Line2 to *trace-output*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *debug-io* "~&Line1 to *debug-io*") (format *terminal-io* "~&Line2 to *terminal-io*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *debug-io* "~&Line1 to *debug-io*") (format *standard-output* "~&Line2 to *standard-output*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *debug-io* "~&Line1 to *debug-io*") (format *error-output* "~&Line2 to *error-output*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *debug-io* "~&Line1 to *debug-io*") (format *query-io* "~&Line2 to *query-io*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *debug-io* "~&Line1 to *debug-io*") (format *debug-io* "~&Line2 to *debug-io*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *debug-io* "~&Line1 to *debug-io*") (format *trace-output* "~&Line2 to *trace-output*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *trace-output* "~&Line1 to *trace-output*") (format *terminal-io* "~&Line2 to *terminal-io*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *trace-output* "~&Line1 to *trace-output*") (format *standard-output* "~&Line2 to *standard-output*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *trace-output* "~&Line1 to *trace-output*") (format *error-output* "~&Line2 to *error-output*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *trace-output* "~&Line1 to *trace-output*") (format *query-io* "~&Line2 to *query-io*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *trace-output* "~&Line1 to *trace-output*") (format *debug-io* "~&Line2 to *debug-io*") (values))' 2>&1 | cat >> fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(progn (format *trace-output* "~&Line1 to *trace-output*") (format *trace-output* "~&Line2 to *trace-output*") (values))' 2>&1 | cat >> fresh-line.out
if grep 'Line1.*Line2' fresh-line.out > /dev/null; then exit 1; fi
rm -f fresh-line.out
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem 0>/dev/null
output=`echo '(princ (+ 11 99))' | ./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem - | tr -d '\r'`; test "$output" = 110 || exit 1
test "`echo '(+ foo bar)' | ./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(setq foo 11 bar 99)' -repl | tr -d '\r'| tr '\n' '_'`" = '99_[1]> _110_' || exit 1
rm -f script.lisp; echo '(error "loading script.lisp")' > script.lisp
if ./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(load "script.lisp")' -repl < /dev/null; then exit 1; else :; fi
;; Loading file script.lisp ...
*** - loading script.lisp
The following restarts are available:
SKIP           :R1      skip (ERROR loading script.lisp)
RETRY          :R2      retry (ERROR loading script.lisp)
STOP           :R3      stop loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/script.lisp
ABORT          :R4      Abort main loop
rm -f script.lisp; echo '(eval-when (:compile-toplevel) (princ *args*))' > script.lisp
output=`./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -q -M lispinit.mem -c script.lisp foo bar`; test "$output" = '(foo bar)' || exit 1
(echo '(progn (setf (stream-element-type *standard-input*) (quote (unsigned-byte 8))) (exit 42))' | ./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -; test $? = 42) || exit 1
output=`echo '(setf (stream-element-type *standard-output*) (quote (unsigned-byte 8))) (write-sequence (convert-string-to-bytes "42" charset:ascii) *standard-output*) (setf (stream-element-type *standard-output*) (quote character)) (terpri)' | ./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem - | tr -d '\r'`; test "$output" = 42 || exit 1
rm -f script.lisp; echo '(+ 11 99)' > script.lisp
output=`./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem < script.lisp | tr -d '\r'`; test "$output" = 110 || exit 1
rm -f script.lisp; echo '(princ (+ 11 99))' > script.lisp
output=`./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem script.lisp | tr -d '\r'`; test "$output" = 110 || exit 1
rm -f script.lisp; echo '(+ foo bar)' > script.lisp
output=`./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x '(setq foo 11 bar 99)' -repl < script.lisp | tr -d '\r'| tr '\n' '_'`; test "$output" = 99_110_ || exit 1
rm -f script.lisp; echo '(progn (setf (stream-element-type *standard-input*) (quote (unsigned-byte 8))) (exit 42))' > script.lisp
(./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem < script.lisp; test $? = 42) || exit 1
(./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem script.lisp; test $? = 42) || exit 1
rm -f script.lisp; echo '(setf (stream-element-type *standard-output*) (quote (unsigned-byte 8))) (write-sequence (convert-string-to-bytes "42" charset:ascii) *standard-output*) (setf (stream-element-type *standard-output*) (quote character)) (terpri)' > script.lisp
output=`./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem script.lisp | tr -d '\r'`; test "$output" = 42 || exit 1
rm -f script.lisp; echo '(with-open-stream (s (make-stream :output :element-type (quote (unsigned-byte 8)))) (write-sequence (convert-string-to-bytes "42" charset:ascii) s) (values))' > script.lisp
output=`./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem < script.lisp | tr -d '\r'`; test "$output" = 42 || exit 1
output=`./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem script.lisp | tr -d '\r'`; test "$output" = 42 || exit 1
rm -f script.lisp; nohup ./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -M lispinit.mem -x 42 2>&1 > script.lisp; output_last_line=`sed -n -e '$p' script.lisp | tr -d '\r'`; test "$output_last_line" = 42 || exit 1 
rm -f script.lisp script.fas script.lib
output="`./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"))' | tr -d '\r'`"; test "$output" = '*** - myerror' || exit 1
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/1467075/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/1467077/fd/1"
mkdir tests
cd tests && ln -s ../../tests/Makefile .
cd tests && ln -s ../../tests/*.lisp .
cd tests && ln -s ../../tests/*.tst .
cd tests && make SHELL='/bin/sh' LEXE=.run
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/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
  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.93+ (2018-02-18) <http://clisp.org/>
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 /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/tests.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/tests.fas
0 errors, 0 warnings
Bye.
LC_MESSAGES=en_US ../lisp.run -E utf-8 -norc -B ../ -N ../locale -M ../lispinit.mem -m 30MW -L english -i tests -x "(time (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.93+ (2018-02-18) <http://clisp.org/>
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 /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/tests.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/tests.fas
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"alltest.tst" @1>
((LAMBDA (A B) (+ A (* B 3))) 4 5)
EQL-OK: 19
((LAMBDA (A &OPTIONAL (B 2)) (+ A (* B 3))) 4 5)
EQL-OK: 19
((LAMBDA (&OPTIONAL (A 2 B) (C 3 D) &REST X) (LIST A B C D X)))
EQUAL-OK: (2 NIL 3 NIL NIL)
((LAMBDA (A B &KEY C D) (LIST A B C D)) 1 2)
EQUAL-OK: (1 2 NIL NIL)
((LAMBDA (A &OPTIONAL (B 3) &REST X &KEY C (D A)) (LIST A B C D X)) 1)
EQUAL-OK: (1 3 NIL 1 NIL)
((LAMBDA (X &AUX (A 3) (B 4)) (+ X (* A B))) 2)
EQL-OK: 14
((LAMBDA (X Y &OPTIONAL A B &REST Z &KEY C (D Y) &AUX (U 3) (V 4)) (+ X Y A (* B (CAR Z)) C (* D U) V)) 3 4 5 2 7 :C 6 :D 8)
[SIMPLE-PROGRAM-ERROR]: :LAMBDA: keyword arguments in (7 :C 6 :D 8) should occur pairwise
EQL-OK: ERROR
((LAMBDA (X Y) ((LAMBDA (A B) (LIST A B)) 'U 'V)) 5 6)
EQUAL-OK: (U V)
((LAMBDA (X &ALLOW-OTHER-KEYS) (LIST X Y)) 2 :Y 3)
[SIMPLE-SOURCE-PROGRAM-ERROR]: FUNCTION: Lambda list marker &ALLOW-OTHER-KEYS not allowed here.
EQL-OK: ERROR
LAMBDA-LIST-KEYWORDS
EQUAL-OK: (&OPTIONAL &REST &KEY &ALLOW-OTHER-KEYS &AUX &BODY &WHOLE &ENVIRONMENT)
(LET ((S (PRIN1-TO-STRING LAMBDA-PARAMETERS-LIMIT))) (OR (EQUAL S "65536") (EQUAL S "4294967296") (EQUAL S "4096")))
EQL-OK: T
(TYPEP 'NIL 'NULL)
EQL-OK: T
(TYPEP '(A B C) 'NULL)
EQL-OK: NIL
(TYPEP 'ABC 'SYMBOL)
EQL-OK: T
(TYPEP 4 'ATOM)
EQL-OK: T
(TYPEP 55 'CONS)
EQL-OK: NIL
(TYPEP '(A (B C)) 'LIST)
EQL-OK: T
(TYPEP 5/8 'NUMBER)
EQL-OK: T
(TYPEP -800 'INTEGER)
EQL-OK: T
(TYPEP 5/7 'RATIONAL)
EQL-OK: T
(TYPEP 2.718 'FLOAT)
EQL-OK: T
(TYPEP #C(1.23 3.56) 'FLOAT)
EQL-OK: NIL
(TYPEP #\a 'CHARACTER)
EQL-OK: T
(TYPEP "abc" 'STRING)
EQL-OK: T
(TYPEP '#(1 2 3) 'STRING)
EQL-OK: NIL
(TYPEP '#(A B C) 'BIT-VECTOR)
EQL-OK: NIL
(TYPEP '#(A B C) 'VECTOR)
EQL-OK: T
(TYPEP "abc" 'VECTOR)
EQL-OK: T
(TYPEP '#(1 2 3 4) 'SIMPLE-VECTOR)
EQL-OK: T
(TYPEP 3 'SIMPLE-VECTOR)
EQL-OK: NIL
(TYPEP "a b cd" 'SIMPLE-STRING)
EQL-OK: T
(TYPEP 'ABC 'SIMPLE-STRING)
EQL-OK: NIL
(TYPEP #*1101 'SIMPLE-BIT-VECTOR)
EQL-OK: T
(TYPEP '#(1 0 0 1) 'SIMPLE-BIT-VECTOR)
EQL-OK: NIL
(TYPEP '#2A((A B) (C D)) 'ARRAY)
EQL-OK: T
(SETQ X 7)
EQL-OK: 7
(TYPEP X 'COMPILED-FUNCTION)
EQL-OK: NIL
(TYPEP X 'COMMON)
[SIMPLE-ERROR]: TYPEP: invalid type specification COMMON
EQL-OK: ERROR
(SUBTYPEP 'CHARACTER 'NUMBER)
EQL-OK: NIL
(SUBTYPEP 'NUMBER 'CHARACTER)
EQL-OK: NIL
(SUBTYPEP 'STRING 'NUMBER)
EQL-OK: NIL
(SUBTYPEP 'COMPLEX 'NUMBER)
EQL-OK: T
(SUBTYPEP 'FLOAT 'NUMBER)
EQL-OK: T
(SUBTYPEP 'FIXNUM 'NUMBER)
EQL-OK: T
(SUBTYPEP 'RATIONAL 'NUMBER)
EQL-OK: T
(SUBTYPEP 'FLOAT 'COMPLEX)
EQL-OK: NIL
(SUBTYPEP 'INTEGER 'RATIONAL)
EQL-OK: T
(SUBTYPEP 'NUMBER 'VECTOR)
EQL-OK: NIL
(SUBTYPEP 'VECTOR 'ARRAY)
EQL-OK: T
(SUBTYPEP 'NUMBER 'ARRAY)
EQL-OK: NIL
(NULL 'NIL)
EQL-OK: T
(SYMBOLP *STANDARD-INPUT*)
EQL-OK: NIL
(SYMBOLP 'CAR)
EQL-OK: T
(ATOM 'ABC)
EQL-OK: T
(CONSP (ACONS 'X 'Y 'A))
EQL-OK: T
(LISTP '(((A . B) . C)))
EQL-OK: T
(LISTP 'A)
EQL-OK: NIL
(LISTP NIL)
EQL-OK: T
(LISTP '(A B C))
EQL-OK: T
(NUMBERP #*101)
EQL-OK: NIL
(NUMBERP -5)
EQL-OK: T
(INTEGERP 5)
EQL-OK: T
(INTEGERP #\+)
EQL-OK: NIL
(RATIONALP 0)
EQL-OK: T
(FLOATP -5)
EQL-OK: NIL
(FLOATP (READ-FROM-STRING "1.0e30"))
EQL-OK: T
(FLOATP 123.4)
EQL-OK: T
(COMPLEXP 1/2)
EQL-OK: NIL
(COMPLEXP #C(2 3))
EQL-OK: T
(CHARACTERP #\1)
EQL-OK: T
(STRINGP "abc")
EQL-OK: T
(STRINGP :+*/-)
EQL-OK: NIL
(BIT-VECTOR-P (READ-FROM-STRING "#5*01110"))
EQL-OK: T
(VECTORP "abc")
EQL-OK: T
(SIMPLE-VECTOR-P #*101)
EQL-OK: NIL
(SIMPLE-STRING-P "abc")
EQL-OK: T
(SIMPLE-STRING-P :+*/-)
EQL-OK: NIL
(SIMPLE-BIT-VECTOR-P #*101)
EQL-OK: T
(ARRAYP (READ-FROM-STRING "#7(2 4 3)"))
EQL-OK: T
(ARRAYP '(READ-FROM-STRING "#1a 5.77"))
EQL-OK: NIL
(PACKAGEP (READ-FROM-STRING "#5*01110"))
EQL-OK: NIL
(PACKAGEP *PACKAGE*)
EQL-OK: T
(FUNCTIONP 'ATOM)
EQL-OK: NIL
(COMPILED-FUNCTION-P 'DO)
EQL-OK: NIL
(EQ '(1 2 3 4 5) (COPY-LIST '(1 2 3 4 5)))
EQL-OK: NIL
(SETQ X '((1 . A) (2 . B) (3 . C)))
EQUAL-OK: ((1 . A) (2 . B) (3 . C))
(EQ (CADR X) (CADR (COPY-ALIST X)))
EQL-OK: NIL
(EQ #\A #\A)
EQL-OK: T
(EQ "Foo" "Foo")
EQL-OK: NIL
(EQ "Foo" (COPY-SEQ "Foo"))
EQL-OK: NIL
(EQL #C(3.0 -4.0) #C(3 -4))
EQL-OK: NIL
(EQL (CONS 'A 'B) (CONS 'A 'C))
EQL-OK: NIL
(EQUAL '(1 2 3 4 5) (COPY-LIST '(1 2 3 4 5)))
EQL-OK: T
(EQUAL X (COPY-ALIST X))
EQL-OK: T
(EQUAL 3 3)
EQL-OK: T
(EQUAL 3 3.0)
EQL-OK: NIL
(EQUAL 3.0 3.0)
EQL-OK: T
(EQUAL #C(3 -4) #C(3 -4))
EQL-OK: T
(EQUALP '(1 2 3 4 5) (COPY-LIST '(1 2 3 4 5)))
EQL-OK: T
(EQUALP "            foo" "            FOO")
EQL-OK: T
(EQUALP "            fou" "            FOO")
EQL-OK: NIL
(EQUALP '(0 1) '(#P""))
EQL-OK: NIL
(NOT 1)
EQL-OK: NIL
(NOT NIL)
EQL-OK: T
(AND (EQ 1 2) (EQ 2 3) (EQ 3 4) (EQ 4 4))
EQL-OK: NIL
(AND (EQ 1 2) (EQ 3 3) (EQ 3 4) (EQ 4 4))
EQL-OK: NIL
(OR (EQ 2 2) (EQ 3 3) (EQ 3 4) (EQ 4 4))
EQL-OK: T
(OR (EQ 1 2) (EQ 2 3) (EQ 3 4) (EQ 4 5))
EQL-OK: NIL
(SETQ LI1 '(A (B) ((C) (D))))
EQUAL-OK: (A (B) ((C) (D)))
(SETQ VEC1 '#(0 1 2 3))
EQUALP-OK: #(0 1 2 3)
(SETF (NTH 1 LI1) 'UU)
EQL-OK: UU
(EVAL 'LI1)
EQUAL-OK: (A UU ((C) (D)))
(SETF (ELT LI1 1) 'OO)
EQL-OK: OO
(SETF (ELT VEC1 1) 'OO)
EQL-OK: OO
(EVAL 'LI1)
EQUAL-OK: (A OO ((C) (D)))
(EVAL 'VEC1)
EQUALP-OK: #(0 OO 2 3)
(SETF (REST LI1) '((WW)))
EQUAL-OK: ((WW))
(EVAL 'LI1)
EQUAL-OK: (A (WW))
(SETF (FIRST LI1) 'AA)
EQL-OK: AA
(FIRST LI1)
EQL-OK: AA
(SETF (SECOND LI1) 'BB)
EQL-OK: BB
(EVAL 'LI1)
EQUAL-OK: (AA BB)
(SETF (REST LI1) '(2 3 4 5 6 7 8 9 10))
EQUAL-OK: (2 3 4 5 6 7 8 9 10)
(SETF (SECOND LI1) 22)
EQL-OK: 22
(EVAL 'LI1)
EQUAL-OK: (AA 22 3 4 5 6 7 8 9 10)
(SETF (THIRD LI1) '33)
EQL-OK: 33
(SETF (FOURTH LI1) '44)
EQL-OK: 44
(SETF (FIFTH LI1) '55)
EQL-OK: 55
(SETF (SIXTH LI1) '66)
EQL-OK: 66
(SETF (SEVENTH LI1) '77)
EQL-OK: 77
(SETF (EIGHTH LI1) '88)
EQL-OK: 88
(SETF (NINTH LI1) '99)
EQL-OK: 99
(SETF (TENTH LI1) '1010)
EQL-OK: 1010
(EVAL 'LI1)
EQUAL-OK: (AA 22 33 44 55 66 77 88 99 1010)
(SETF (FIRST LI1) '(((A))))
EQUAL-OK: (((A)))
(SETF (CAAAR LI1) 'UU)
EQL-OK: UU
(CAAAR LI1)
EQL-OK: UU
(CAR LI1)
EQUAL-OK: ((UU))
(SETF (CAAR LI1) 'OO)
EQL-OK: OO
(EVAL 'LI1)
EQUAL-OK: ((OO) 22 33 44 55 66 77 88 99 1010)
(SETF (CAR LI1) 'II)
EQL-OK: II
(EVAL 'LI1)
EQUAL-OK: (II 22 33 44 55 66 77 88 99 1010)
(SETF (CDDDR LI1) 'PP)
EQL-OK: PP
(EVAL 'LI1)
EQUAL-OK: (II 22 33 . PP)
(SETF (CADDR LI1) '333)
EQL-OK: 333
(EVAL 'LI1)
EQUAL-OK: (II 22 333 . PP)
(SETF (SVREF VEC1 2) 'KK)
EQL-OK: KK
(EVAL 'VEC1)
EQUALP-OK: #(0 OO KK 3)
(SETF (GET 'A 'B) 'UU)
EQL-OK: UU
(GET 'A 'B)
EQL-OK: UU
(SETF (GETF (CADR (SETQ XX '(AAA (I1 V1 I2 V2)))) 'I2) 'V222)
EQL-OK: V222
(EVAL 'XX)
EQUAL-OK: (AAA (I1 V1 I2 V222))
(GETF (CADR XX) 'I2)
EQL-OK: V222
(GETF (CADR XX) 'I1)
EQL-OK: V1
(SETF (DOCUMENTATION 'BEISPIEL 'TYP1) "doc 1")
EQUAL-OK: "doc 1"
(SETF (DOCUMENTATION 'BEISPIEL 'TYP2) "doc 2")
EQUAL-OK: "doc 2"
(DOCUMENTATION 'BEISPIEL 'TYP2)
EQUAL-OK: "doc 2"
(SETF (DOCUMENTATION 'BEISPIEL 'TYP2) "doc 3")
EQUAL-OK: "doc 3"
(DOCUMENTATION 'BEISPIEL 'TYP2)
EQUAL-OK: "doc 3"
(SYMBOL-PLIST 'BEISPIEL)
EQUAL-OK: (SYSTEM::DOC (TYP2 "doc 3" TYP1 "doc 1"))
(SETF (SYMBOL-VALUE 'XX) 'VOELLIGNEU)
EQL-OK: VOELLIGNEU
(EVAL 'XX)
EQL-OK: VOELLIGNEU
(LET ((X (LIST 'A 'B 'C))) (RPLACD (LAST X) X) (LIST-LENGTH X))
EQL-OK: NIL
(MAPCAR #'(LAMBDA (X) (LIST X)) '(A B C))
EQUAL-OK: ((A) (B) (C))
(MAPC #'(LAMBDA (X Y Z) (LIST X Y Z)) '(A B C) '(1 2 3) '(U I V))
EQUAL-OK: (A B C)
(MAPL #'(LAMBDA (X Y Z) (LIST X Y Z)) '(A B C) '(1 2 3) '(U I V))
EQUAL-OK: (A B C)
(MAPLIST #'(LAMBDA (X Y Z) (LIST X Y Z)) '(A B C) '(1 2 3) '(U I V))
EQUAL-OK: (((A B C) (1 2 3) (U I V)) ((B C) (2 3) (I V)) ((C) (3) (V)))
(MAPCON #'(LAMBDA (X Y Z) (LIST X Y Z)) '(A B) '(1 2 3) '(U I V))
EQUAL-OK: ((A B) (1 2 3) (U I V) (B) (2 3) (I V))
(MAPCAN #'(LAMBDA (X Y Z) (LIST X Y Z)) '(A B C) '(1 2 3) '(U I V))
EQUAL-OK: (A 1 U B 2 I C 3 V)
(FUNCALL (COMPILE NIL (LAMBDA (X) (FLET ((FOO (Y) (+ Y 1))) (FOO (* 2 X))))) 3)
EQL-OK: 7
(LET ((NOT-A-GLOBALLY-SPECIAL-VAR 3)) (PROGV '(NOT-A-GLOBALLY-SPECIAL-VAR) '(4) (LIST NOT-A-GLOBALLY-SPECIAL-VAR (SYMBOL-VALUE 'NOT-A-GLOBALLY-SPECIAL-VAR))))
EQUAL-OK: (3 4)
(FLET ((CONS (X Y) `(KONS ,X ,Y))) (LET ((CONS (SYMBOL-FUNCTION '+))) (FUNCALL #'CONS (FUNCALL 'CONS 1 2) (FUNCALL CONS 1 2))))
EQUAL-OK: (KONS (1 . 2) 3)
(LET* ((N (MIN (1- LAMBDA-PARAMETERS-LIMIT) (CASE (READ-FROM-STRING (SOFTWARE-TYPE)) ((G++ I686-PC-MINGW32-G++) 256) (I686-PC-MINGW32-GCC 512) (T 1024)))) (VARS (LOOP REPEAT N COLLECT (GENSYM)))) (EVAL `(= ,N (FLET ((%F ,VARS (+ ,@VARS))) (%F ,@(LOOP FOR E IN VARS COLLECT 1))))))
EQL-OK: T
(LET ((LS (LOOP FOR I FROM 1 TO (MIN (1- MULTIPLE-VALUES-LIMIT) 100000) COLLECT I))) (EQUAL LS (MULTIPLE-VALUE-LIST (VALUES-LIST LS))))
EQL-OK: T
(KEYWORDP 36)
EQL-OK: NIL
(KEYWORDP :RENAME)
EQL-OK: T
(ZEROP -456)
EQL-OK: NIL
(ZEROP 0)
EQL-OK: T
(PLUSP 3)
EQL-OK: T
(PLUSP 3453786543987565)
EQL-OK: T
(MINUSP -456)
EQL-OK: T
(ODDP -1)
EQL-OK: T
(ODDP 0)
EQL-OK: NIL
(EVENP -456)
EQL-OK: T
(EVENP -345)
EQL-OK: NIL
(= 5/2 2.5)
EQL-OK: T
(/= 3.0 3)
EQL-OK: NIL
(/= 3.0 #C(3.0 1.0))
EQL-OK: T
(< 3.0 3)
EQL-OK: NIL
(< 3 3.0 3 #C(3.0 0.0))
[SIMPLE-TYPE-ERROR]: <: #1=#C(3.0 0.0) is not a real number
EQL-OK: ERROR
(< -5 -4 -2 0 4 5)
EQL-OK: T
(> 8 7 6 5 4)
EQL-OK: T
(> 3 3.0 3 #C(3.0 0.0))
[SIMPLE-TYPE-ERROR]: >: #1=#C(3.0 0.0) is not a real number
EQL-OK: ERROR
(<= 3.0 3)
EQL-OK: T
(<= 3 3)
EQL-OK: T
(<= 1 3 3 2 5)
EQL-OK: NIL
(<= 5/2 2.5)
EQL-OK: T
(>= -5 -4 -2 0 4 5)
EQL-OK: NIL
(MAX 1 3 2 -7)
EQL-OK: 3
(+ 1 1/2 0.5 #C(3.0 5.5))
EQL-OK: #C(5.0 5.5)
(- 3 0 3 5 -6)
EQL-OK: 1
(- #C(0 6) 1/4 0.5 7)
EQUALP-OK: #C(-7.75 6.0)
(* 7 6 5 4 3 2 1)
EQL-OK: 5040
(* 2 2 2.0 2)
EQL-OK: 16.0
(/ -8)
EQL-OK: -1/8
(/ 4 2)
EQL-OK: 2
(1+ 0)
EQL-OK: 1
(1+ #C(0 1))
EQL-OK: #C(1 1)
(1- 5.0)
EQL-OK: 4.0
(CONJUGATE #C(3/5 4/5))
EQL-OK: #C(3/5 -4/5)
(GCD 91 -49)
EQL-OK: 7
(LCM 14 35)
EQL-OK: 70
(PRIN1-TO-STRING (EXP 1))
EQUAL-OK: "2.7182817"
(EXPT #C(0 1) 2)
EQL-OK: -1
(PRIN1-TO-STRING (EXPT 2 #C(0 1)))
EQUAL-OK: "#C(0.7692389 0.63896126)"
(PRIN1-TO-STRING (LOG -3 10))
EQUAL-OK: "#C(0.47712126 1.3643764)"
(LOG 3 0)
[SIMPLE-DIVISION-BY-ZERO]: LOG: division by zero
EQL-OK: ERROR
(SQRT 9)
EQUALP-OK: 3.0
(SQRT -9.0)
EQUALP-OK: #C(0.0 3.0)
(ISQRT 9)
EQL-OK: 3
(ISQRT 26)
EQL-OK: 5
(ABS 6)
EQL-OK: 6
(ABS -6)
EQL-OK: 6
(SIGNUM 0)
EQL-OK: 0
(SIGNUM -4)
EQL-OK: -1
(SIGNUM 4)
EQL-OK: 1
(PRIN1-TO-STRING (SIN (* 8 (/ PI 2))))
EQUAL-OK: "2.0066230454737344098L-19"
(LET* ((FUDGE 2) (VAL (TAN (/ PI 2))) (REF (COS (/ PI 2))) (REL-ERR (ABS (/ (- (/ VAL) REF) REF)))) (< REL-ERR (* FUDGE LONG-FLOAT-EPSILON)))
EQL-OK: T
(PRIN1-TO-STRING (SIN (EXPT 10 3)))
EQUAL-OK: "0.82687956"
(COS 0)
EQUALP-OK: 1.0
(PRIN1-TO-STRING (COS (/ PI 2)))
EQUAL-OK: "-2.5082788068421680123L-20"
(PRIN1-TO-STRING (TAN 1))
EQUAL-OK: "1.5574077"
(PRIN1-TO-STRING (TAN (/ PI 2)))
EQUAL-OK: "-3.9867976290042641156L19"
(PRIN1-TO-STRING (CIS -1))
EQUAL-OK: "#C(0.5403023 -0.84147096)"
(CIS 2.5)
EQL-OK: #C(-0.8011436 0.5984721)
(PRIN1-TO-STRING (ASIN -1))
EQUAL-OK: "-1.5707964"
(ASIN 0)
EQUALP-OK: 0.0
(ASIN 2)
EQL-OK: #C(1.5707964 -1.316958)
(PRIN1-TO-STRING (ACOS 0))
EQUAL-OK: "1.5707964"
(PRIN1-TO-STRING (ACOS -1))
EQUAL-OK: "3.1415927"
(PRIN1-TO-STRING (ACOS 2))
EQUAL-OK: "#C(0 1.316958)"
(ACOS 1.00001)
EQUALP-OK: #C(0.0 0.0044751023)
(ATAN 1)
EQL-OK: 0.7853981
(PRIN1-TO-STRING PI)
EQUAL-OK: "3.1415926535897932385L0"
(SINH 0)
EQUALP-OK: 0.0
(PRIN1-TO-STRING (SINH #C(5.0 -9.6)))
EQUAL-OK: "#C(-73.06699 12.93681)"
(COSH 0)
EQUALP-OK: 1.0
(PRIN1-TO-STRING (COSH 1))
EQUAL-OK: "1.5430807"
(TANH 50)
EQL-OK: 1.0
(PRIN1-TO-STRING (TANH 0.00753))
EQUAL-OK: "0.0075298576"
(PRIN1-TO-STRING (ASINH 0.5))
EQUAL-OK: "0.48121184"
(PRIN1-TO-STRING (ASINH 3/7))
EQUAL-OK: "0.4164307"
(ACOSH 0)
EQL-OK: #C(0 1.5707964)
(ACOSH 1)
EQL-OK: 0
(ACOSH -1)
EQL-OK: #C(0 3.1415927)
(PRIN1-TO-STRING (ATANH 0.5))
EQUAL-OK: "0.54930615"
(PRIN1-TO-STRING (ATANH 3/7))
EQUAL-OK: "0.4581453"
(= (SIN (* #C(0 1) 5)) (* #C(0 1) (SINH 5)))
EQL-OK: T
(= (COS (* #C(0 1) 5)) (COSH 5))
EQL-OK: T
(= (TAN (* #C(0 1) 5)) (* #C(0 1) (TANH 5)))
EQL-OK: T
(= (SINH (* #C(0 1) 5)) (* #C(0 1) (SIN 5)))
EQL-OK: T
(= (COSH (* #C(0 1) 5)) (COS 5))
EQL-OK: T
(= (TANH (* #C(0 1) 5)) (* #C(0 1) (TAN 5)))
EQL-OK: T
(FLOAT 1)
EQL-OK: 1.0
(FLOAT 0.5)
EQL-OK: 0.5
(RATIONAL 2)
EQL-OK: 2
(RATIONAL 2.0)
EQL-OK: 2
(RATIONAL 2.5)
EQL-OK: 5/2
(RATIONALIZE 2.5)
EQL-OK: 5/2
(RATIONALIZE 7/3)
EQL-OK: 7/3
(RATIONALIZE PI)
EQL-OK: 8717442233/2774848045
(NUMERATOR 5/2)
EQL-OK: 5
(NUMERATOR (/ 8 -6))
EQL-OK: -4
(DENOMINATOR 5/2)
EQL-OK: 2
(DENOMINATOR (/ 8 -6))
EQL-OK: 3
(GCD (NUMERATOR 7/9) (DENOMINATOR 7/9))
EQL-OK: 1
(FLOOR 2.6)
EQL-OK: 2
(FLOOR 2.5)
EQL-OK: 2
(CEILING 2.6)
EQL-OK: 3
(CEILING 2.5)
EQL-OK: 3
(CEILING 2.4)
EQL-OK: 3
(TRUNCATE 2.6)
EQL-OK: 2
(TRUNCATE 2.5)
EQL-OK: 2
(TRUNCATE 2.4)
EQL-OK: 2
(ROUND 2.6)
EQL-OK: 3
(ROUND 2.5)
EQL-OK: 2
(ROUND 2.4)
EQL-OK: 2
(MOD 13 4)
EQL-OK: 1
(MOD -13 4)
EQL-OK: 3
(PRIN1-TO-STRING (REM 13.4 1))
EQUAL-OK: "0.39999962"
(FFLOOR 2.6)
EQUALP-OK: 2
(FFLOOR 2.5)
EQUALP-OK: 2
(FFLOOR 2.4)
EQUALP-OK: 2
(FCEILING -0.3)
EQUALP-OK: 0
(FCEILING -0.7)
EQUALP-OK: 0
(FCEILING -2.4)
EQUALP-OK: -2
(FTRUNCATE 2.5)
EQL-OK: 2.0
(FTRUNCATE 2.4)
EQL-OK: 2.0
(FROUND -0.7)
EQL-OK: -1.0
(FROUND -2.4)
EQL-OK: -2.0
(DECODE-FLOAT 35.0)
EQL-OK: 0.546875
(DECODE-FLOAT 3.5s0)
EQL-OK: 0.875s0
(SCALE-FLOAT 2.5 5)
EQL-OK: 80.0
(SCALE-FLOAT 0.7541 2)
EQL-OK: 3.0164
(FLOAT-RADIX 2.5)
EQL-OK: 2
(FLOAT-RADIX 3.5d0)
EQL-OK: 2
(COMPLEX 1/4 7.3)
EQUALP-OK: #C(0.25 7.3)
(COMPLEX 1 0)
EQL-OK: 1
(REALPART 5)
EQL-OK: 5
(REALPART #C(1.4 0.0))
EQL-OK: 1.4
(IMAGPART 5)
EQL-OK: 0
(IMAGPART #C(1.4 0.0))
EQL-OK: 0.0
(LOGCOUNT 13)
EQL-OK: 3
(LOGCOUNT -13)
EQL-OK: 2
(INTEGER-LENGTH 0)
EQL-OK: 0
(INTEGER-LENGTH 1)
EQL-OK: 1
BOOLE-CLR
EQL-OK: 0
BOOLE-SET
EQL-OK: 15
BOOLE-1
EQL-OK: 10
BOOLE-2
EQL-OK: 12
BOOLE-C1
EQL-OK: 5
BOOLE-C2
EQL-OK: 3
BOOLE-AND
EQL-OK: 8
BOOLE-IOR
EQL-OK: 14
BOOLE-XOR
EQL-OK: 6
BOOLE-EQV
EQL-OK: 9
BOOLE-NAND
EQL-OK: 7
BOOLE-NOR
EQL-OK: 1
BOOLE-ANDC1
EQL-OK: 4
BOOLE-ANDC2
EQL-OK: 2
BOOLE-ORC1
EQL-OK: 13
BOOLE-ORC2
EQL-OK: 11
(LET ((S (PRIN1-TO-STRING MOST-POSITIVE-FIXNUM))) (OR (EQUAL S "16777215") (EQUAL S "33554431") (EQUAL S "67108863") (EQUAL S "4294967295") (EQUAL S "8589934591") (EQUAL S "17179869183") (EQUAL S "34359738367") (EQUAL S "68719476735") (EQUAL S "549755813887") (EQUAL S "1099511627775") (EQUAL S "2199023255551") (EQUAL S "281474976710655") (EQUAL S "4503599627370495") (EQUAL S "36028797018963967") (EQUAL S "72057594037927935") (EQUAL S "288230376151711743")))
EQL-OK: T
(LET ((S (PRIN1-TO-STRING MOST-NEGATIVE-FIXNUM))) (OR (EQUAL S "-16777216") (EQUAL S "-33554432") (EQUAL S "-67108864") (EQUAL S "-4294967296") (EQUAL S "-8589934592") (EQUAL S "-17179869184") (EQUAL S "-34359738368") (EQUAL S "-68719476736") (EQUAL S "-549755813888") (EQUAL S "-1099511627776") (EQUAL S "-2199023255552") (EQUAL S "-281474976710656") (EQUAL S "-4503599627370496") (EQUAL S "-36028797018963968") (EQUAL S "-72057594037927936") (EQUAL S "-288230376151711744")))
EQL-OK: T
(PRIN1-TO-STRING MOST-POSITIVE-SHORT-FLOAT)
EQUAL-OK: "3.4028s38"
(PRIN1-TO-STRING LEAST-POSITIVE-SHORT-FLOAT)
EQUAL-OK: "1.1755s-38"
(PRIN1-TO-STRING LEAST-NEGATIVE-SHORT-FLOAT)
EQUAL-OK: "-1.1755s-38"
(PRIN1-TO-STRING MOST-NEGATIVE-SHORT-FLOAT)
EQUAL-OK: "-3.4028s38"
(LET ((S (PRIN1-TO-STRING MOST-POSITIVE-SINGLE-FLOAT))) (OR (EQUAL S "1.7014117E38") (EQUAL S "3.4028235E38")))
EQL-OK: T
(LET ((S (PRIN1-TO-STRING LEAST-POSITIVE-SINGLE-FLOAT))) (OR (EQUAL S "2.938736E-39") (EQUAL S "1.1754944E-38")))
EQL-OK: T
(LET ((S (PRIN1-TO-STRING LEAST-NEGATIVE-SINGLE-FLOAT))) (OR (EQUAL S "-2.938736E-39") (EQUAL S "-1.1754944E-38")))
EQL-OK: T
(LET ((S (PRIN1-TO-STRING MOST-NEGATIVE-SINGLE-FLOAT))) (OR (EQUAL S "-1.7014117E38") (EQUAL S "-3.4028235E38")))
EQL-OK: T
(LET ((S (PRIN1-TO-STRING MOST-POSITIVE-DOUBLE-FLOAT))) (OR (EQUAL S "8.988465674311579d307") (EQUAL S "1.7976931348623157d308")))
EQL-OK: T
(LET ((S (PRIN1-TO-STRING LEAST-POSITIVE-DOUBLE-FLOAT))) (OR (EQUAL S "5.562684646268004d-309") (EQUAL S "2.2250738585072014d-308")))
EQL-OK: T
(LET ((S (PRIN1-TO-STRING LEAST-NEGATIVE-DOUBLE-FLOAT))) (OR (EQUAL S "-5.562684646268004d-309") (EQUAL S "-2.2250738585072014d-308")))
EQL-OK: T
(LET ((S (PRIN1-TO-STRING MOST-NEGATIVE-DOUBLE-FLOAT))) (OR (EQUAL S "-8.988465674311579d307") (EQUAL S "-1.7976931348623157d308")))
EQL-OK: T
(PRIN1-TO-STRING MOST-POSITIVE-LONG-FLOAT)
EQUAL-OK: "8.8080652584198167656L646456992"
(PRIN1-TO-STRING LEAST-POSITIVE-LONG-FLOAT)
EQUAL-OK: "5.676615526003731344L-646456994"
(PRIN1-TO-STRING LEAST-NEGATIVE-LONG-FLOAT)
EQUAL-OK: "-5.676615526003731344L-646456994"
(PRIN1-TO-STRING MOST-NEGATIVE-LONG-FLOAT)
EQUAL-OK: "-8.8080652584198167656L646456992"
(PRIN1-TO-STRING SHORT-FLOAT-EPSILON)
EQUAL-OK: "7.6295s-6"
(PRIN1-TO-STRING SINGLE-FLOAT-EPSILON)
EQUAL-OK: "5.960465E-8"
(LET ((S (PRIN1-TO-STRING DOUBLE-FLOAT-EPSILON))) (OR (EQUAL S "1.1102230246251568d-16")))
EQL-OK: T
(PRIN1-TO-STRING LONG-FLOAT-EPSILON)
EQUAL-OK: "5.4210108624275221706L-20"
(PRIN1-TO-STRING SHORT-FLOAT-NEGATIVE-EPSILON)
EQUAL-OK: "3.81476s-6"
(PRIN1-TO-STRING SINGLE-FLOAT-NEGATIVE-EPSILON)
EQUAL-OK: "2.9802326E-8"
(LET ((S (PRIN1-TO-STRING DOUBLE-FLOAT-NEGATIVE-EPSILON))) (OR (EQUAL S "5.551115123125784d-17")))
EQL-OK: T
(PRIN1-TO-STRING LONG-FLOAT-NEGATIVE-EPSILON)
EQUAL-OK: "2.7105054312137610853L-20"
(/ 1 0)
[SIMPLE-DIVISION-BY-ZERO]: /: division by zero
EQL-OK: ERROR
(/ 1 0.0s0)
[SIMPLE-DIVISION-BY-ZERO]: /: division by zero
EQL-OK: ERROR
(/ 1 0.0)
[SIMPLE-DIVISION-BY-ZERO]: /: division by zero
EQL-OK: ERROR
(/ 1 0.0d0)
[SIMPLE-DIVISION-BY-ZERO]: /: division by zero
EQL-OK: ERROR
(/ 1 0.0L0)
[SIMPLE-DIVISION-BY-ZERO]: /: division by zero
EQL-OK: ERROR
(EXPT 10.0s0 1000)
[SIMPLE-FLOATING-POINT-OVERFLOW]: EXPT: floating point overflow
EQL-OK: ERROR
(EXPT 10.0 1000)
[SIMPLE-FLOATING-POINT-OVERFLOW]: EXPT: floating point overflow
EQL-OK: ERROR
(EXPT 10.0d0 1000)
[SIMPLE-FLOATING-POINT-OVERFLOW]: EXPT: floating point overflow
EQL-OK: ERROR
(EXPT 10.0L0 1000000000)
[SIMPLE-FLOATING-POINT-OVERFLOW]: EXPT: floating point overflow
EQL-OK: ERROR
(STANDARD-CHAR-P #\a)
EQL-OK: T
(STANDARD-CHAR-P 1)
[SIMPLE-TYPE-ERROR]: STANDARD-CHAR-P: argument 1 is not a character
EQL-OK: ERROR
(GRAPHIC-CHAR-P #\a)
EQL-OK: T
(GRAPHIC-CHAR-P 1)
[SIMPLE-TYPE-ERROR]: GRAPHIC-CHAR-P: argument 1 is not a character
EQL-OK: ERROR
(STRING-CHAR-P #\a)
EQL-OK: T
(STRING-CHAR-P #\1)
EQL-OK: T
(STRING-CHAR-P "")
[SIMPLE-TYPE-ERROR]: STRING-CHAR-P: argument #1="" is not a character
EQL-OK: ERROR
(ALPHA-CHAR-P #\a)
EQL-OK: T
(ALPHA-CHAR-P #\$)
EQL-OK: NIL
(UPPER-CASE-P #\a)
EQL-OK: NIL
(LOWER-CASE-P #\A)
EQL-OK: NIL
(BOTH-CASE-P #\a)
EQL-OK: T
(BOTH-CASE-P #\$)
EQL-OK: NIL
(DIGIT-CHAR-P #\a)
EQL-OK: NIL
(DIGIT-CHAR-P #\5)
EQL-OK: 5
(ALPHANUMERICP #\a)
EQL-OK: T
(ALPHANUMERICP #\$)
EQL-OK: NIL
(CHAR= #\d #\d)
EQL-OK: T
(CHAR/= #\d #\d)
EQL-OK: NIL
(CHAR< #\z #\0)
EQL-OK: NIL
(CHAR-EQUAL #\d #\d)
EQL-OK: T
(CHAR-NOT-EQUAL #\d #\d)
EQL-OK: NIL
(CHAR-LESSP #\d #\x)
EQL-OK: T
(CHAR-LESSP #\d #\d)
EQL-OK: NIL
(CHAR-NOT-GREATERP #\d #\d)
EQL-OK: T
(CHAR-GREATERP #\e #\d)
EQL-OK: T
(CHAR-NOT-LESSP #\e #\d)
EQL-OK: T
(CHAR-UPCASE #\a)
EQL-OK: #\A
(CHAR-UPCASE #\=)
EQL-OK: #\=
(CHAR= (CHAR-DOWNCASE (CHAR-UPCASE #\x)) #\x)
EQL-OK: T
(CHAR-DOWNCASE #\A)
EQL-OK: #\a
(CHAR= (CHAR-UPCASE (CHAR-DOWNCASE #\X)) #\X)
EQL-OK: T
(DIGIT-CHAR 7)
EQL-OK: #\7
(DIGIT-CHAR 12)
EQL-OK: NIL
CHAR-CODE-LIMIT
EQL-OK: 1114112
(ELT (SYMBOL-NAME 'ABC) 0)
EQL-OK: #\A
(SUBSEQ '(A B C D E) 2)
EQUAL-OK: (C D E)
(COPY-SEQ '#(A B C))
EQUALP-OK: #(A B C)
(COPY-SEQ '((A B) C (D E)))
EQUAL-OK: ((A B) C (D E))
(LENGTH '#(A B C D E F))
EQL-OK: 6
(LENGTH '(A B C D E F))
EQL-OK: 6
(NREVERSE '(A (B (C) D)))
EQUAL-OK: ((B (C) D) A)
(REVERSE '(1 2 3 4))
EQUAL-OK: (4 3 2 1)
(MAKE-SEQUENCE 'VECTOR 4 :INITIAL-ELEMENT 'O)
EQUALP-OK: #(O O O O)
(MAKE-SEQUENCE 'LIST 4 :INITIAL-ELEMENT 'O)
EQUAL-OK: (O O O O)
(EQUALP (MAKE-SEQUENCE 'STRING 5 :INITIAL-ELEMENT #\a) (MAKE-STRING 5 :INITIAL-ELEMENT #\a))
EQL-OK: T
(CONCATENATE 'LIST '(A B C) '(1 2))
EQUAL-OK: (A B C 1 2)
(MAP 'LIST 'LIST '(#\a #\b #\c) '(#\1 #\2 #\3))
EQUAL-OK: ((#\a #\1) (#\b #\2) (#\c #\3))
(MAP 'LIST 'LIST '(A B C) '(1 2 3))
EQUAL-OK: ((A 1) (B 2) (C 3))
(MAKE-SEQUENCE '(VECTOR T 5) 5 :INITIAL-ELEMENT 'A)
EQUALP-OK: #(A A A A A)
(MAKE-SEQUENCE '(VECTOR T 5) 6 :INITIAL-ELEMENT 'A)
[SIMPLE-TYPE-ERROR]: MAKE-SEQUENCE: sequence type forces length 5, but result has length 6
EQL-OK: ERROR
(MAKE-SEQUENCE '(OR (VECTOR T 5) (VECTOR T 10)) 5 :INITIAL-ELEMENT 'A)
EQUALP-OK: #(A A A A A)
(MAKE-SEQUENCE '(OR (VECTOR T 5) (VECTOR T 10)) 6 :INITIAL-ELEMENT 'A)
[SIMPLE-TYPE-ERROR]: MAKE-SEQUENCE: the result #1=#(A A A A A A) is not of type #2=(OR (VECTOR T 5) (VECTOR T 10))
EQL-OK: ERROR
(MAKE-SEQUENCE '(VECTOR T 5) 5 :INITIAL-ELEMENT #\A :UPDATE #'(LAMBDA (C) (CODE-CHAR (1+ (CHAR-CODE C)))))
EQUALP-OK: #(#\A #\B #\C #\D #\E)
(MAKE-SEQUENCE '(VECTOR T 5) 6 :INITIAL-ELEMENT #\A :UPDATE #'(LAMBDA (C) (CODE-CHAR (1+ (CHAR-CODE C)))))
[SIMPLE-TYPE-ERROR]: MAKE-SEQUENCE: sequence type forces length 5, but result has length 6
EQL-OK: ERROR
(MAKE-SEQUENCE '(OR (VECTOR T 5) (VECTOR T 10)) 5 :INITIAL-ELEMENT #\A :UPDATE #'(LAMBDA (C) (CODE-CHAR (1+ (CHAR-CODE C)))))
EQUALP-OK: #(#\A #\B #\C #\D #\E)
(MAKE-SEQUENCE '(OR (VECTOR T 5) (VECTOR T 10)) 6 :INITIAL-ELEMENT #\A :UPDATE #'(LAMBDA (C) (CODE-CHAR (1+ (CHAR-CODE C)))))
[SIMPLE-TYPE-ERROR]: MAKE-SEQUENCE: the result #1=#(#\A #\B #\C #\D #\E #\F) is not of type #2=(OR (VECTOR T 5) (VECTOR T 10))
EQL-OK: ERROR
(COERCE #(A B C D E) '(VECTOR T 5))
EQUALP-OK: #(A B C D E)
(COERCE #(A B C D E F) '(VECTOR T 5))
[SIMPLE-TYPE-ERROR]: COERCE: sequence type forces length 5, but result has length 6
EQL-OK: ERROR
(COERCE #(A B C D E) '(OR (VECTOR T 5) (VECTOR T 10)))
EQUALP-OK: #(A B C D E)
(COERCE #(A B C D E F) '(OR (VECTOR T 5) (VECTOR T 10)))
[SIMPLE-TYPE-ERROR]: COERCE: the result #1=#(A B C D E F) is not of type #2=(OR (VECTOR T 5) (VECTOR T 10))
EQL-OK: ERROR
(COERCE '(A B C D E) '(VECTOR T 5))
EQUALP-OK: #(A B C D E)
(COERCE '(A B C D E F) '(VECTOR T 5))
[SIMPLE-TYPE-ERROR]: COERCE: sequence type forces length 5, but result has length 6
EQL-OK: ERROR
(COERCE '(A B C D E) '(OR (VECTOR T 5) (VECTOR T 10)))
EQUALP-OK: #(A B C D E)
(COERCE '(A B C D E F) '(OR (VECTOR T 5) (VECTOR T 10)))
[SIMPLE-TYPE-ERROR]: COERCE: the result #1=#(A B C D E F) is not of type #2=(OR (VECTOR T 5) (VECTOR T 10))
EQL-OK: ERROR
(SYSTEM::COERCED-SUBSEQ #(A B C D E) '(VECTOR T 5))
EQUALP-OK: #(A B C D E)
(SYSTEM::COERCED-SUBSEQ #(A B C D E F) '(VECTOR T 5))
[SIMPLE-TYPE-ERROR]: SYSTEM::COERCED-SUBSEQ: sequence type forces length 5, but result has length 6
EQL-OK: ERROR
(SYSTEM::COERCED-SUBSEQ #(A B C D E) '(OR (VECTOR T 5) (VECTOR T 10)))
EQUALP-OK: #(A B C D E)
(SYSTEM::COERCED-SUBSEQ #(A B C D E F) '(OR (VECTOR T 5) (VECTOR T 10)))
[SIMPLE-TYPE-ERROR]: SYSTEM::COERCED-SUBSEQ: the result #1=#(A B C D E F) is not of type #2=(OR (VECTOR T 5) (VECTOR T 10))
EQL-OK: ERROR
(SYSTEM::COERCED-SUBSEQ '(A B C D E) '(VECTOR T 5))
EQUALP-OK: #(A B C D E)
(SYSTEM::COERCED-SUBSEQ '(A B C D E F) '(VECTOR T 5))
[SIMPLE-TYPE-ERROR]: SYSTEM::COERCED-SUBSEQ: sequence type forces length 5, but result has length 6
EQL-OK: ERROR
(SYSTEM::COERCED-SUBSEQ '(A B C D E) '(OR (VECTOR T 5) (VECTOR T 10)))
EQUALP-OK: #(A B C D E)
(SYSTEM::COERCED-SUBSEQ '(A B C D E F) '(OR (VECTOR T 5) (VECTOR T 10)))
[SIMPLE-TYPE-ERROR]: SYSTEM::COERCED-SUBSEQ: the result #1=#(A B C D E F) is not of type #2=(OR (VECTOR T 5) (VECTOR T 10))
EQL-OK: ERROR
(CONCATENATE '(VECTOR T 5) '(A B C) '(D E))
EQUALP-OK: #(A B C D E)
(CONCATENATE '(VECTOR T 5) '(A B C) '(D E F))
[SIMPLE-TYPE-ERROR]: CONCATENATE: sequence type forces length 5, but result has length 6
EQL-OK: ERROR
(CONCATENATE '(OR (VECTOR T 5) (VECTOR T 10)) '(A B C) '(D E))
EQUALP-OK: #(A B C D E)
(CONCATENATE '(OR (VECTOR T 5) (VECTOR T 10)) '(A B C) '(D E F))
[SIMPLE-TYPE-ERROR]: CONCATENATE: the result #1=#(A B C D E F) is not of type #2=(OR (VECTOR T 5) (VECTOR T 10))
EQL-OK: ERROR
(MAP '(VECTOR T 5) #'IDENTITY '(A B C D E))
EQUALP-OK: #(A B C D E)
(MAP '(VECTOR T 5) #'IDENTITY '(A B C D E F))
[SIMPLE-TYPE-ERROR]: MAP: sequence type forces length 5, but result has length 6
EQL-OK: ERROR
(MAP '(OR (VECTOR T 5) (VECTOR T 10)) #'IDENTITY '(A B C D E))
EQUALP-OK: #(A B C D E)
(MAP '(OR (VECTOR T 5) (VECTOR T 10)) #'IDENTITY '(A B C D E F))
[SIMPLE-TYPE-ERROR]: MAP: the result #1=#(A B C D E F) is not of type #2=(OR (VECTOR T 5) (VECTOR T 10))
EQL-OK: ERROR
(MERGE '(VECTOR T 5) '(A B C D E) 'NIL #'<)
EQUALP-OK: #(A B C D E)
(MERGE '(VECTOR T 5) '(A B C D E F) 'NIL #'<)
[SIMPLE-TYPE-ERROR]: MERGE: sequence type forces length 5, but result has length 6
EQL-OK: ERROR
(MERGE '(OR (VECTOR T 5) (VECTOR T 10)) '(A B C D E) 'NIL #'<)
EQUALP-OK: #(A B C D E)
(MERGE '(OR (VECTOR T 5) (VECTOR T 10)) '(A B C D E F) 'NIL #'<)
[SIMPLE-TYPE-ERROR]: MERGE: the result #1=#(A B C D E F) is not of type #2=(OR (VECTOR T 5) (VECTOR T 10))
EQL-OK: ERROR
(SOME 'NULL '(A B NIL T E))
EQL-OK: T
(EVERY 'ATOM '(A 8 #(A B)))
EQL-OK: T
(NOTANY 'EQ '(A B C D E 4) '(I J K L M 4))
EQL-OK: NIL
(NOTEVERY 'EQ '#(U) '(A X U))
EQL-OK: T
(REDUCE 'LIST '(A) :FROM-END NIL :INITIAL-VALUE NIL)
EQUAL-OK: (NIL A)
(REDUCE 'LIST '(A B C D) :FROM-END NIL :INITIAL-VALUE 'III)
EQUAL-OK: ((((III A) B) C) D)
(REDUCE 'LIST '(A B C D) :FROM-END T)
EQUAL-OK: (A (B (C D)))
(FILL '#(A B C D) 'I :START 1 :END 3)
EQUALP-OK: #(A I I D)
(REPLACE '#(A B C D) '#(I J) :START1 1)
EQUALP-OK: #(A I J D)
(REMOVE 'NUMBERP '#(Y A 4 A C 9 A D 2 3) :COUNT 1 :FROM-END T)
EQUALP-OK: #(Y A 4 A C 9 A D 2 3)
(REMOVE 'A '(A 1 B A 2 A) :START 1)
EQUAL-OK: (A 1 B 2)
(REMOVE-DUPLICATES '(A B C A D A) :START 1)
EQUAL-OK: (A B C D A)
(REMOVE-IF 'NUMBERP '#(Y A 4 A C 9 A D 2 3))
EQUALP-OK: #(Y A A C A D)
(REMOVE-IF-NOT 'NUMBERP '#(Y A 4 A C 9 A D 2 3))
EQUALP-OK: #(4 9 2 3)
(REMOVE-IF-NOT 'NUMBERP '#(Y A 4 A C 9 A D 2 3) :COUNT 2 :FROM-END NIL)
EQUALP-OK: #(4 A C 9 A D 2 3)
(DELETE '(A) '((A B) (C D) (A)) :TEST 'EQUAL)
EQUAL-OK: ((A B) (C D))
(DELETE-IF #'(LAMBDA (X) (EQ (CAR X) 'A)) '((A B) (C D) (A)))
EQUAL-OK: ((C D))
(DELETE-IF-NOT 'NUMBERP '(A 3 B 4))
EQUAL-OK: (3 4)
(NSUBSTITUTE 'NEW '(1 OLD) '((0 OLD) (1 OLD) (2 OLD)) :TEST-NOT 'EQUAL :FROM-END T)
EQUAL-OK: (NEW (1 OLD) NEW)
(NSUBSTITUTE 'NEW 'OLD '(0 OLD 1 OLD 2 OLD) :END 2)
EQUAL-OK: (0 NEW 1 OLD 2 OLD)
(NSUBSTITUTE-IF 'NEW 'NUMBERP '(0 A 1 B 2 C 3 D) :COUNT 2 :END 5)
EQUAL-OK: (NEW A NEW B 2 C 3 D)
(NSUBSTITUTE-IF-NOT 'NEW 'NUMBERP '(0 A 1 B 2 C 3 D) :COUNT 2 :FROM-END T)
EQUAL-OK: (0 A 1 B 2 NEW 3 NEW)
(SUBSTITUTE 'NEW '(2 OLD) '((1 OLD) (2 OLD) (3 OLD) (4 OLD)) :TEST 'EQUAL :START 3)
EQUAL-OK: ((1 OLD) (2 OLD) (3 OLD) (4 OLD))
(SUBSTITUTE-IF 'NEW 'NUMBERP '(A 1 B 2 D 3))
EQUAL-OK: (A NEW B NEW D NEW)
(SUBSTITUTE-IF-NOT 'NEW 'NUMBERP '(A 1 B 2 D 3) :COUNT 2 :FROM-END T)
EQUAL-OK: (A 1 NEW 2 NEW 3)
(FIND '0 '((0 A) (1 A) (2 A) (0 B)) :TEST '= :FROM-END T :KEY 'CAR :START 1)
EQUAL-OK: (0 B)
(FIND-IF 'NUMBERP '((A 0) (B 1) (C 2)) :KEY 'CADR :START 3)
EQL-OK: NIL
(POSITION 'A '((0 A) (1 B) (2 A) (3 B)) :TEST #'(LAMBDA (X Y) (EQ X (CADR Y))) :START 1)
EQL-OK: 2
(POSITION 'A '((0 A) (1 B) (2 A) (3 B)) :KEY 'CADR)
EQL-OK: 0
(POSITION-IF 'NUMBERP '((0 X) (1 7.0) (2 8)) :FROM-END T :START 1 :KEY 'CADR)
EQL-OK: 2
(COUNT '(A) '(A (A) A (A) A B) :TEST-NOT 'EQUAL :KEY #'(LAMBDA (X) (IF (ATOM X) (LIST X))))
EQL-OK: 3
(COUNT-IF-NOT 'NUMBERP '#(A 3 B 5 7 C D) :START 2 :END 5)
EQL-OK: 1
(MISMATCH '(A B C 3 4 5) '(A B X 3 4 B) :START1 1 :START2 5 :END1 2 :TEST-NOT 'EQ)
EQL-OK: 1
(MISMATCH '(A B C 3 4 5) '(U B X 3 4 5) :FROM-END T)
EQL-OK: 3
(SEARCH "ABCD" "0ABIABJBCBC" :END1 3 :START1 1 :START2 0 :FROM-END T)
EQL-OK: 9
(SEARCH '(#\A #\B #\C #\D) "0ABIABJBCBC" :END1 2 :START2 0 :FROM-END T)
EQL-OK: 4
(SEARCH '(A B C D) '(0 A B I A B J B C B C) :END1 2 :START2 2)
EQL-OK: 4
(SORT '((U 3) (I 1) (A 7) (K 3) (C 4) (B 6)) '< :KEY 'CADR)
EQUAL-OK: ((I 1) (U 3) (K 3) (C 4) (B 6) (A 7))
(STABLE-SORT '((B 4) (A 3) (A 2) (B 1) (C 9) (B 2)) 'STRING< :KEY 'CAR)
EQUAL-OK: ((A 3) (A 2) (B 4) (B 1) (B 2) (C 9))
(MERGE 'LIST '(5 1 4 4 7) '(2 3 5 6 8 9) '<)
EQUAL-OK: (2 3 5 1 4 4 5 6 7 8 9)
(MERGE 'LIST '(1 4 4 7) '(2 3 5 6 8 9) '<)
EQUAL-OK: (1 2 3 4 4 5 6 7 8 9)
(CAR '(A B C D E F G))
EQL-OK: A
(CDR '(A B C D E F G))
EQUAL-OK: (B C D E F G)
(CADR '(A B C D E F G))
EQL-OK: B
(CDDR '(A B C D E F G))
EQUAL-OK: (C D E F G)
(CADDR '(A B C D E F G))
EQL-OK: C
(CDDDR '(A B C D E F G))
EQUAL-OK: (D E F G)
(CADDDR '(A B C D E F G))
EQL-OK: D
(CDDDDR '(A B C D E F G))
EQUAL-OK: (E F G)
(CAADR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQUAL-OK: ((U V W) X)
(CADAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQUAL-OK: (6 7)
(CDAAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQUAL-OK: (5)
(CDADR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQUAL-OK: (Y)
(CDDAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQL-OK: NIL
(CAAAAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQUAL-OK: (1 2 3)
(CAADAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQL-OK: 6
(CAADDR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQUAL-OK: (Q W E)
(CADAAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQL-OK: 5
(CADADR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQL-OK: Y
(CADDAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQL-OK: NIL
(CADDDR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQUAL-OK: (A B C)
(CDAAAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQUAL-OK: (4)
(CDAADR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQUAL-OK: (X)
(CDADAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQUAL-OK: (7)
(CONS 1 2)
EQUAL-OK: (1 . 2)
(CONS 'A (CONS 'B (CONS 'C 'NIL)))
EQUAL-OK: (A B C)
(CONS 'A '(B C D))
EQUAL-OK: (A B C D)
(TREE-EQUAL 5 (+ 2 3) :TEST #'EQL)
EQL-OK: T
(ENDP 'NIL)
EQL-OK: T
(ENDP '(A . B))
EQL-OK: NIL
(LIST-LENGTH '(A B C D))
EQL-OK: 4
(LET ((X (LIST 'A 'B 'C))) (RPLACD (LAST X) X) (LIST-LENGTH X))
EQL-OK: NIL
(NTH 0 '(A B C D))
EQL-OK: A
(FIRST '(1 2 3 4 5 6 7 8 9 10 11))
EQL-OK: 1
(SECOND '(1 2 3 4 5 6 7 8 9 10 11))
EQL-OK: 2
(THIRD '(1 2 3 4 5 6 7 8 9 10 11))
EQL-OK: 3
(FOURTH '(1 2 3 4 5 6 7 8 9 10 11))
EQL-OK: 4
(FIFTH '(1 2 3 4 5 6 7 8 9 10 11))
EQL-OK: 5
(SIXTH '(1 2 3 4 5 6 7 8 9 10 11))
EQL-OK: 6
(SEVENTH '(1 2 3 4 5 6 7 8 9 10 11))
EQL-OK: 7
(EIGHTH '(1 2 3 4 5 6 7 8 9 10 11))
EQL-OK: 8
(NINTH '(1 2 3 4 5 6 7 8 9 10 11))
EQL-OK: 9
(TENTH '(1 2 3 4 5 6 7 8 9 10 11))
EQL-OK: 10
(REST '(A . B))
EQL-OK: B
(NTHCDR 1 '(A B C D))
EQUAL-OK: (B C D)
(LAST '(1 2 3 4 5))
EQUAL-OK: (5)
(LAST '(1 2 3 . 4))
EQUAL-OK: (3 . 4)
(LIST 'A 'B 'C 'D)
EQUAL-OK: (A B C D)
(LIST* 'A 'B 'C 'D)
EQUAL-OK: (A B C . D)
(MAKE-LIST 4 :INITIAL-ELEMENT 'O)
EQUAL-OK: (O O O O)
(MAKE-LIST 3 :INITIAL-ELEMENT 'RAH)
EQUAL-OK: (RAH RAH RAH)
(APPEND '(A B C) '(D E F) 'NIL '(G))
EQUAL-OK: (A B C D E F G)
(COPY-LIST '(1 2 3 4 5))
EQUAL-OK: (1 2 3 4 5)
(COPY-LIST '(1 2 3 . 4))
EQUAL-OK: (1 2 3 . 4)
(COPY-ALIST '(A B))
EQUAL-OK: (A B)
(COPY-ALIST '((1 . A) (2 . B) (3 . C)))
EQUAL-OK: ((1 . A) (2 . B) (3 . C))
(COPY-ALIST '((A B) C (D E)))
EQUAL-OK: ((A B) C (D E))
(COPY-TREE '(A B (C (D) (E F)) G))
EQUAL-OK: (A B (C (D) (E F)) G)
(REVAPPEND '(A B C) '(D E F))
EQUAL-OK: (C B A D E F)
(REVAPPEND '(A B C) 'I)
EQUAL-OK: (C B A . I)
(NRECONC '(A B C) '(I J))
EQUAL-OK: (C B A I J)
(SETQ AA NIL)
EQL-OK: NIL
(PUSH '1 AA)
EQUAL-OK: (1)
(PUSH '2 AA)
EQUAL-OK: (2 1)
(POP AA)
EQL-OK: 2
(POP AA)
EQL-OK: 1
(POP AA)
EQL-OK: NIL
(SETQ AA '(B A))
EQUAL-OK: (B A)
(PUSHNEW 'A AA)
EQUAL-OK: (B A)
(PUSHNEW 'C AA)
EQUAL-OK: (C B A)
(PUSHNEW 'U (CAR (SETQ XX '(NIL KKK))))
EQUAL-OK: (U)
(PUSHNEW 'U (CAR XX))
EQUAL-OK: (U)
(PUSHNEW 'V (CAR XX))
EQUAL-OK: (V U)
(EVAL 'XX)
EQUAL-OK: ((V U) KKK)
(BUTLAST '(A B C) 2)
EQUAL-OK: (A)
(NBUTLAST '(A B C D) 6)
EQL-OK: NIL
(NBUTLAST '(A B C D) 1)
EQUAL-OK: (A B C)
(LDIFF (SETQ XX '(A B C D E)) (CDDR XX))
EQUAL-OK: (A B)
(LDIFF (SETQ XX '(A B C D . E)) (CDDR XX))
EQUAL-OK: (A B)
(LDIFF '(A B C D . E) 'E)
EQUAL-OK: (A B C D)
(LDIFF '(1 . 2) 3)
EQUAL-OK: (1 . 2)
(LET ((LISTS '#((A B C) (A B C . D))) (LD-RES #(#(NIL (A B) (A B C) (A B C) (A B C) (A B C) (A B C)) #(NIL (A B) (A B C . D) (A B C . D) (A B C . D) (A B C) (A B C . D)))) (TP-RES #(#(T T NIL NIL T NIL NIL) #(T T NIL NIL NIL T NIL)))) (DOTIMES (I (LENGTH LISTS)) (LET* ((LIST (AREF LISTS I)) (L-R (AREF LD-RES I)) (T-R (AREF TP-RES I)) (OBJECTS (VECTOR LIST (CDDR LIST) (COPY-LIST (CDDR LIST)) '(F G H) 'NIL 'D 'X))) (DOTIMES (J (LENGTH OBJECTS)) (LET ((OBJECT (AREF OBJECTS J))) (UNLESS (EQUAL (TAILP OBJECT LIST) (AREF T-R J)) (ERROR "(tailp ~s ~s): ~s; should be: ~s" OBJECT LIST (TAILP OBJECT LIST) (AREF T-R J))) (UNLESS (EQUAL (LDIFF LIST OBJECT) (AREF L-R J)) (ERROR "(ldiff ~s ~s): ~s; should be: ~s" LIST OBJECT (LDIFF LIST OBJECT) (AREF L-R J))))))))
EQL-OK: NIL
(TAILP 10203040506070 (LIST* 'A 'B (1- 10203040506071)))
EQL-OK: T
(NSUBST 'A 'B '(U B (B) C) :TEST-NOT #'(LAMBDA (X Y) (NOT (EQL X Y))))
EQUAL-OK: (U A (A) C)
(NSUBST-IF 'OO 'NUMBERP '(A B C (3 (4) 0)))
EQUAL-OK: (A B C (OO (OO) OO))
(NSUBST-IF-NOT 'OO #'(LAMBDA (X) (OR (LIST X) (SYMBOLP X))) '(A B C (3 (4) 0)))
EQUAL-OK: (A B C (3 (4) 0))
(SUBST 'A 'B '(U B (B) C) :TEST-NOT #'(LAMBDA (X Y) (NOT (EQL X Y))) :KEY #'(LAMBDA (U) (IF (LISTP U) (CAR U))))
EQUAL-OK: (U . A)
(SUBST-IF 'NUMMMER 'NUMBERP '((A (7 (V 6)))))
EQUAL-OK: ((A (NUMMMER (V NUMMMER))))
(SUBST-IF-NOT 'NUMMMER #'(LAMBDA (X) (OR (LISTP X) (NUMBERP X))) '((A (7 (V 6)))))
EQUAL-OK: ((NUMMMER (7 (NUMMMER 6))))
(NSUBLIS '(((A) . UU) (A . II)) '(I (A) A) :TEST #'(LAMBDA (X Y) (IF (LISTP Y) (EQL X (CAR Y)))))
EQUAL-OK: (I (UU) UU)
(SUBLIS '(((A) . UU) (A . II)) '(I (A) A) :TEST #'(LAMBDA (X Y) (IF (LISTP Y) (EQL X (CAR Y)))))
EQUAL-OK: (I (UU) UU)
(MEMBER 'A '((A) (B) (A) (C)) :KEY 'CAR)
EQUAL-OK: ((A) (B) (A) (C))
(MEMBER-IF 'NUMBERP '((A) (B) (3) (C)) :KEY 'CAR)
EQUAL-OK: ((3) (C))
(MEMBER-IF-NOT 'NUMBERP '((8) (A) (B) (3) (C)) :KEY 'CAR)
EQUAL-OK: ((A) (B) (3) (C))
(TAILP (CDDR (SETQ XX '(U I A B))) XX)
EQL-OK: T
(TAILP 'D '(A B C . D))
EQL-OK: T
(ADJOIN 'A '((A) B C) :TEST 'EQUAL)
EQUAL-OK: (A (A) B C)
(NUNION '(A B C D) '(U I B A))
EQUAL-OK: (C D U I B A)
(UNION '(A B C D) '(A D I V))
EQUAL-OK: (B C A D I V)
(INTERSECTION '((A 1) (A 2) (A 3)) '((A 4) (A 2) (B 6) (C 7)) :TEST 'EQUAL)
EQUAL-OK: ((A 2))
(NINTERSECTION '(A B C D) '(C D E F G) :TEST-NOT 'EQL)
EQUAL-OK: (A B C D)
(NSET-DIFFERENCE '(A B C D) '(I J C))
EQUAL-OK: (A B D)
(NSET-EXCLUSIVE-OR '(A B C) '(I A D C))
EQUAL-OK: (B I D)
(SET-DIFFERENCE '(ANTON BERTA AUTO BERLIN) '(AMERILLA) :TEST #'(LAMBDA (X Y) (EQL (ELT (SYMBOL-NAME X) 0) (ELT (SYMBOL-NAME Y) 0))))
EQUAL-OK: (BERTA BERLIN)
(SET-EXCLUSIVE-OR '(ANTON ANNA EMIL) '(BERTA AUTO AUGUST) :TEST #'(LAMBDA (X Y) (EQL (ELT (SYMBOL-NAME X) 0) (ELT (SYMBOL-NAME Y) 0))))
EQUAL-OK: (EMIL BERTA)
(SUBSETP '(A B) '(B A U I C D))
EQL-OK: T
(ACONS 'A 'B '((C . D)))
EQUAL-OK: ((A . B) (C . D))
(ACONS 'A 'B NIL)
EQUAL-OK: ((A . B))
(ASSOC 'A '((B C) A ((A) U) (A I)) :TEST-NOT #'(LAMBDA (X Y) (IF (ATOM Y) (EQL Y X))))
EQUAL-OK: (B C)
(ASSOC-IF 'SYMBOLP '((A . 3) (3 . A)))
EQUAL-OK: (A . 3)
(ASSOC-IF-NOT 'NUMBERP '((A . 3) (3 . A)))
EQUAL-OK: (A . 3)
(PAIRLIS '(A B C) '(1 2 3))
EQUAL-OK: ((C . 3) (B . 2) (A . 1))
(RASSOC 'A '((1 . B) (2 . A)))
EQUAL-OK: (2 . A)
(RASSOC-IF 'SYMBOLP '((1 . 3) (2 . A)))
EQUAL-OK: (2 . A)
(RASSOC-IF-NOT 'SYMBOLP '((1 . 3) (2 . A)))
EQUAL-OK: (1 . 3)
(HASH-TABLE-P (MAKE-HASH-TABLE :TEST #'EQL :REHASH-SIZE 2 :SIZE 20))
EQL-OK: T
(HASH-TABLE-P (MAKE-HASH-TABLE :TEST #'EQL :REHASH-SIZE 1.1 :SIZE 20))
EQL-OK: T
(DEFUN 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))
EQL-OK: TEST-HASH-TABLE-ITERATOR
(LET ((TAB (MAKE-HASH-TABLE :TEST #'EQUAL))) (SETF (GETHASH "Richard" TAB) "Gabriel") (SETF (GETHASH "Bruno" TAB) "Haible") (SETF (GETHASH "Michael" TAB) "Stoll") (SETF (GETHASH "Linus" TAB) "Torvalds") (SETF (GETHASH "Richard" TAB) "Stallman") (TEST-HASH-TABLE-ITERATOR TAB))
EQL-OK: T
(GETHASH "foo" (READ-FROM-STRING (PRIN1-TO-STRING (MAKE-HASH-TABLE :TEST 'EQUALP :INITIAL-CONTENTS '(("FOO" . "bar"))))))
EQUAL-OK: "bar"
(DEFSTRUCT (ICE-CREAM-FACTORY (:CONSTRUCTOR MAKE-FACTORY) (:CONSTRUCTOR FABRICATE-FACTORY (&KEY (CAPACITY 5) LOCATION (LOCAL-FLAVORS (CASE LOCATION ((HAWAII) '(PINEAPPLE MACADAMIA GUAVA)) ((MASSACHUSETTS) '(LOBSTER BAKED-BEAN)) ((CALIFORNIA) '(GINGER LOTUS AVOCADO BEAN-SPROUT GARLIC)) ((TEXAS) '(JALAPENO BARBECUE)))) (FLAVORS (SUBSEQ (APPEND LOCAL-FLAVORS '(VANILLA CHOCOLATE STRAWBERRY PISTACHIO MAPLE-WALNUT PEPPERMINT)) 0 CAPACITY)) ((:OWN OWNER))))) (CAPACITY 3) (FLAVORS '(VANILLA CHOCOLATE STRAWBERRY MANGO)) (OWNER 'ME))
EQL-OK: ICE-CREAM-FACTORY
(LET ((HOUSTON (FABRICATE-FACTORY :CAPACITY 4 :LOCATION 'TEXAS))) (ICE-CREAM-FACTORY-FLAVORS HOUSTON))
EQUAL-OK: (JALAPENO BARBECUE VANILLA CHOCOLATE)
(LET ((CAMBRIDGE (FABRICATE-FACTORY :LOCATION 'MASSACHUSETTS))) (ICE-CREAM-FACTORY-FLAVORS CAMBRIDGE))
EQUAL-OK: (LOBSTER BAKED-BEAN VANILLA CHOCOLATE STRAWBERRY)
(LET ((SEATTLE (FABRICATE-FACTORY :LOCAL-FLAVORS '(SALMON)))) (ICE-CREAM-FACTORY-FLAVORS SEATTLE))
EQUAL-OK: (SALMON VANILLA CHOCOLATE STRAWBERRY PISTACHIO)
(LET ((WHEATON (FABRICATE-FACTORY :CAPACITY 4 :LOCATION 'ILLINOIS))) (ICE-CREAM-FACTORY-FLAVORS WHEATON))
EQUAL-OK: (VANILLA CHOCOLATE STRAWBERRY PISTACHIO)
(LET ((PITTSBURGH (FABRICATE-FACTORY :CAPACITY 4))) (ICE-CREAM-FACTORY-FLAVORS PITTSBURGH))
EQUAL-OK: (VANILLA CHOCOLATE STRAWBERRY PISTACHIO)
(LET ((CLEVELAND (MAKE-FACTORY :CAPACITY 4))) (ICE-CREAM-FACTORY-FLAVORS CLEVELAND))
EQUAL-OK: (VANILLA CHOCOLATE STRAWBERRY MANGO)
(PROGN (DEFVAR *X* 'GLOBAL-X) (LET ((Y 'LOCAL-Y)) (DEFSTRUCT BAZ (*X* 'X-INIT) (Y *X*) (Z Y))))
EQL-OK: BAZ
(MAKE-BAZ)
EQUALP-OK: #S(BAZ :*X* X-INIT :Y GLOBAL-X :Z LOCAL-Y)
(CONSTANTP -5)
EQL-OK: T
(CONSTANTP (READ-FROM-STRING "1.0e30"))
EQL-OK: T
(STREAMP *STANDARD-INPUT*)
EQL-OK: T
(INPUT-STREAM-P *TERMINAL-IO*)
EQL-OK: T
(READTABLEP *READTABLE*)
EQL-OK: T
(READTABLEP 'PROGN)
EQL-OK: NIL
(GET-DISPATCH-MACRO-CHARACTER #\# #\0)
EQL-OK: NIL
(STRINGP (SHOW (LISP-IMPLEMENTATION-TYPE)))
"CLISP"
EQL-OK: T
(STRINGP (SHOW (LISP-IMPLEMENTATION-VERSION)))
"2.49.93+ (2018-02-18) (built 3925184752) (memory 3925184810)"
EQL-OK: T
(STRINGP (SHOW (MACHINE-INSTANCE)))
"builder2.x64.stream.opencloudos.tech [172.16.0.37]"
EQL-OK: T
(STRINGP (SHOW (MACHINE-TYPE)))
"X86_64"
EQL-OK: T
(STRINGP (SHOW (MACHINE-VERSION)))
"X86_64"
EQL-OK: T
(SYSTEM::FIXNUMP 10)
EQL-OK: T
(MODULE-INFO "clisp" T)
EQUAL-OK: "clisp"
(UNINTERN 'X)
EQL-OK: T
RUN-TEST: finished "alltest" (0 errors out of 636 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"array.tst" @1>
(FORMAT T "~%double-float arrays~%")
double-float arrays
EQL-OK: NIL
(EQUALP (SETQ DA1 (MAKE-ARRAY '(4 2 3) :INITIAL-CONTENTS '(((1.0d0 2.0d0 3.0d0) (4.0d0 5.0d0 6.0d0)) ((7.0d0 8.0d0 9.0d0) (10.0d0 11.0d0 12.0d0)) ((13.0d0 14.0d0 15.0d0) (16.0d0 17.0d0 18.0d0)) ((19.0d0 20.0d0 21.0d0) (22.0d0 23.0d0 24.0d0))) :ELEMENT-TYPE 'DOUBLE-FLOAT)) '#3A(((1.0d0 2.0d0 3.0d0) (4.0d0 5.0d0 6.0d0)) ((7.0d0 8.0d0 9.0d0) (10.0d0 11.0d0 12.0d0)) ((13.0d0 14.0d0 15.0d0) (16.0d0 17.0d0 18.0d0)) ((19.0d0 20.0d0 21.0d0) (22.0d0 23.0d0 24.0d0))))
EQL-OK: T
(AREF DA1 0 0 0)
EQL-OK: 1.0d0
(AREF DA1 0 0 1)
EQL-OK: 2.0d0
(AREF DA1 0 0 2)
EQL-OK: 3.0d0
(AREF DA1 0 1 0)
EQL-OK: 4.0d0
(AREF DA1 0 1 1)
EQL-OK: 5.0d0
(AREF DA1 0 1 2)
EQL-OK: 6.0d0
(AREF DA1 1 0 0)
EQL-OK: 7.0d0
(AREF DA1 1 0 1)
EQL-OK: 8.0d0
(AREF DA1 1 0 2)
EQL-OK: 9.0d0
(AREF DA1 1 1 0)
EQL-OK: 10.0d0
(AREF DA1 1 1 1)
EQL-OK: 11.0d0
(AREF DA1 1 1 2)
EQL-OK: 12.0d0
(AREF DA1 2 0 0)
EQL-OK: 13.0d0
(AREF DA1 2 0 1)
EQL-OK: 14.0d0
(AREF DA1 2 0 2)
EQL-OK: 15.0d0
(AREF DA1 2 1 0)
EQL-OK: 16.0d0
(AREF DA1 2 1 1)
EQL-OK: 17.0d0
(AREF DA1 2 1 2)
EQL-OK: 18.0d0
(AREF DA1 3 0 0)
EQL-OK: 19.0d0
(AREF DA1 3 0 1)
EQL-OK: 20.0d0
(AREF DA1 3 0 2)
EQL-OK: 21.0d0
(AREF DA1 3 1 0)
EQL-OK: 22.0d0
(AREF DA1 3 1 1)
EQL-OK: 23.0d0
(AREF DA1 3 1 1)
EQL-OK: 23.0d0
(FORMAT T "~%single-float arrays~%")
single-float arrays
EQL-OK: NIL
(EQUALP (SETQ FA1 (MAKE-ARRAY '(4 2 3) :INITIAL-CONTENTS '(((1.0 2.0 3.0) (4.0 5.0 6.0)) ((7.0 8.0 9.0) (10.0 11.0 12.0)) ((13.0 14.0 15.0) (16.0 17.0 18.0)) ((19.0 20.0 21.0) (22.0 23.0 24.0))) :ELEMENT-TYPE 'SINGLE-FLOAT)) '#3A(((1.0 2.0 3.0) (4.0 5.0 6.0)) ((7.0 8.0 9.0) (10.0 11.0 12.0)) ((13.0 14.0 15.0) (16.0 17.0 18.0)) ((19.0 20.0 21.0) (22.0 23.0 24.0))))
EQL-OK: T
(AREF FA1 0 0 0)
EQL-OK: 1.0
(AREF FA1 0 0 1)
EQL-OK: 2.0
(AREF FA1 0 0 2)
EQL-OK: 3.0
(AREF FA1 0 1 0)
EQL-OK: 4.0
(AREF FA1 0 1 1)
EQL-OK: 5.0
(AREF FA1 0 1 2)
EQL-OK: 6.0
(AREF FA1 1 0 0)
EQL-OK: 7.0
(AREF FA1 1 0 1)
EQL-OK: 8.0
(AREF FA1 1 0 2)
EQL-OK: 9.0
(AREF FA1 1 1 0)
EQL-OK: 10.0
(AREF FA1 1 1 1)
EQL-OK: 11.0
(AREF FA1 1 1 2)
EQL-OK: 12.0
(AREF FA1 2 0 0)
EQL-OK: 13.0
(AREF FA1 2 0 1)
EQL-OK: 14.0
(AREF FA1 2 0 2)
EQL-OK: 15.0
(AREF FA1 2 1 0)
EQL-OK: 16.0
(AREF FA1 2 1 1)
EQL-OK: 17.0
(AREF FA1 2 1 2)
EQL-OK: 18.0
(AREF FA1 3 0 0)
EQL-OK: 19.0
(AREF FA1 3 0 1)
EQL-OK: 20.0
(AREF FA1 3 0 2)
EQL-OK: 21.0
(AREF FA1 3 1 0)
EQL-OK: 22.0
(AREF FA1 3 1 1)
EQL-OK: 23.0
(AREF FA1 3 1 1)
EQL-OK: 23.0
(FORMAT T "~%array limits~%")
array limits
EQL-OK: NIL
(LET ((S (PRIN1-TO-STRING ARRAY-RANK-LIMIT))) (OR (EQUAL S "4294967296") (EQUAL S "65536") (EQUAL S (PRIN1-TO-STRING LAMBDA-PARAMETERS-LIMIT))))
EQL-OK: T
(LET ((S (PRIN1-TO-STRING ARRAY-DIMENSION-LIMIT))) (OR (EQUAL S "4294967296") (EQUAL S (PRIN1-TO-STRING MOST-POSITIVE-FIXNUM))))
EQL-OK: T
(LET ((S (PRIN1-TO-STRING ARRAY-TOTAL-SIZE-LIMIT))) (OR (EQUAL S "4294967296") (EQUAL S (PRIN1-TO-STRING MOST-POSITIVE-FIXNUM))))
EQL-OK: T
(<= ARRAY-DIMENSION-LIMIT ARRAY-TOTAL-SIZE-LIMIT)
EQL-OK: T
(FORMAT T "~%simple vectors~%")
simple vectors
EQL-OK: NIL
(EQUALP (SETQ SV (VECTOR 'A 'B 'C 1.0s0 3.7d0 4.1)) '#(A B C 1.0s0 3.7d0 4.1))
EQL-OK: T
(SVREF SV 0)
EQL-OK: A
(SVREF SV 1)
EQL-OK: B
(SVREF SV 2)
EQL-OK: C
(SVREF SV 3)
EQL-OK: 1.0s0
(SVREF SV 4)
EQL-OK: 3.7d0
(FORMAT T "~%set elements~%")
set elements
EQL-OK: NIL
(SETF (SVREF SV 0) 'TEST)
EQL-OK: TEST
(EQUALP SV '#(TEST B C 1.0s0 3.7d0 4.1))
EQL-OK: T
(FORMAT T "~%test array-element-type~%")
test array-element-type
EQL-OK: NIL
(ARRAY-ELEMENT-TYPE SV)
EQL-OK: T
(ARRAY-ELEMENT-TYPE DA1)
EQL-OK: T
(FORMAT T "~%test rank~%")
test rank
EQL-OK: NIL
(ARRAY-RANK DA1)
EQL-OK: 3
(ARRAY-RANK FA1)
EQL-OK: 3
(FORMAT T "~%test individual dimensions~%")
test individual dimensions
EQL-OK: NIL
(ARRAY-DIMENSION DA1 0)
EQL-OK: 4
(ARRAY-DIMENSION DA1 1)
EQL-OK: 2
(ARRAY-DIMENSION DA1 2)
EQL-OK: 3
(ARRAY-DIMENSION DA1 3)
[SIMPLE-TYPE-ERROR]: ARRAY-DIMENSION: 3 is not an nonnegative integer less than the rank of #3A(((1.0d0 2.0d0 3.0d0) (4.0d0 5.0d0 6.0d0)) ((7.0d0 8.0d0 9.0d0) (10.0d0 11.0d0 12.0d0)) ((13.0d0 14.0d0 15.0d0) (16.0d0 17.0d0 18.0d0)) ((19.0d0 20.0d0 21.0d0) (22.0d0 23.0d0 24.0d0)))
EQL-OK: ERROR
(FORMAT T "~%0-dim. array pseudo-scalar with contents mod 5~%")
0-dim. array pseudo-scalar with contents mod 5
EQL-OK: NIL
(PROGN (SETQ ZERO (MAKE-ARRAY 'NIL :ELEMENT-TYPE '(MOD 5))) T)
EQL-OK: T
(ARRAY-RANK ZERO)
EQL-OK: 0
(SETF (AREF ZERO) 4)
EQL-OK: 4
(SETF (AREF ZERO) 1.0)
[SIMPLE-TYPE-ERROR]: SYSTEM::STORE: #1=1.0 does not fit into #0A4, bad type
EQL-OK: ERROR
(FORMAT T "~%3-dim general array~%")
3-dim general array
EQL-OK: NIL
(EQUALP (SETQ A1 (MAKE-ARRAY '(4 2 3) :INITIAL-CONTENTS '(((A B C) (1 2 3)) ((D E F) (3 1 2)) ((G H I) (2 3 1)) ((J K L) (0 0 0))))) '#3A(((A B C) (1 2 3)) ((D E F) (3 1 2)) ((G H I) (2 3 1)) ((J K L) (0 0 0))))
EQL-OK: T
(AREF A1 0 0 0)
EQL-OK: A
(AREF A1 0 0 1)
EQL-OK: B
(AREF A1 0 0 2)
EQL-OK: C
(AREF A1 0 1 0)
EQL-OK: 1
(AREF A1 0 1 1)
EQL-OK: 2
(AREF A1 0 1 2)
EQL-OK: 3
(AREF A1 1 0 0)
EQL-OK: D
(AREF A1 1 0 1)
EQL-OK: E
(AREF A1 1 0 2)
EQL-OK: F
(AREF A1 1 1 0)
EQL-OK: 3
(AREF A1 1 1 1)
EQL-OK: 1
(AREF A1 1 1 2)
EQL-OK: 2
(AREF A1 2 0 0)
EQL-OK: G
(AREF A1 2 0 1)
EQL-OK: H
(AREF A1 2 0 2)
EQL-OK: I
(AREF A1 2 1 0)
EQL-OK: 2
(AREF A1 2 1 1)
EQL-OK: 3
(AREF A1 2 1 2)
EQL-OK: 1
(AREF A1 3 0 0)
EQL-OK: J
(AREF A1 3 0 1)
EQL-OK: K
(AREF A1 3 0 2)
EQL-OK: L
(AREF A1 3 1 0)
EQL-OK: 0
(AREF A1 3 1 1)
EQL-OK: 0
(AREF A1 3 1 1)
EQL-OK: 0
(FORMAT T "~%2-dim adjustable displaced array~%")
2-dim adjustable displaced array
EQL-OK: NIL
(PROGN (SETQ M (MAKE-ARRAY '(4 4) :ADJUSTABLE T :INITIAL-CONTENTS '((ALPHA BETA GAMMA DELTA) (EPSILON ZETA ETA THETA) (IOTA KAPPA LAMBDA MU) (NU XI OMICRON PI)))) T)
EQL-OK: T
(AREF M 0 0)
EQL-OK: ALPHA
(AREF M 0 1)
EQL-OK: BETA
(AREF M 0 2)
EQL-OK: GAMMA
(AREF M 0 3)
EQL-OK: DELTA
(AREF M 1 0)
EQL-OK: EPSILON
(AREF M 1 1)
EQL-OK: ZETA
(AREF M 1 2)
EQL-OK: ETA
(AREF M 1 3)
EQL-OK: THETA
(AREF M 2 0)
EQL-OK: IOTA
(AREF M 2 1)
EQL-OK: KAPPA
(AREF M 2 2)
EQL-OK: LAMBDA
(AREF M 2 3)
EQL-OK: MU
(AREF M 3 0)
EQL-OK: NU
(AREF M 3 1)
EQL-OK: XI
(AREF M 3 2)
EQL-OK: OMICRON
(AREF M 3 3)
EQL-OK: PI
(FORMAT T "~%sisplaced~%")
sisplaced
EQL-OK: NIL
(EQUALP (SETQ MD0 (MAKE-ARRAY 4 :DISPLACED-TO M)) '#(ALPHA BETA GAMMA DELTA))
EQL-OK: T
(EQUALP (SETQ MD1 (MAKE-ARRAY 4 :DISPLACED-TO M :DISPLACED-INDEX-OFFSET 4)) '#(EPSILON ZETA ETA THETA))
EQL-OK: T
(EQUALP (SETQ MD2 (MAKE-ARRAY 4 :DISPLACED-TO M :DISPLACED-INDEX-OFFSET 8)) '#(IOTA KAPPA LAMBDA MU))
EQL-OK: T
(FORMAT T "~%adjust m~%")
adjust m
EQL-OK: NIL
(PROGN (ADJUST-ARRAY M '(3 5) :INITIAL-ELEMENT 'BAZ) T)
EQL-OK: T
(AREF M 0 0)
EQL-OK: ALPHA
(AREF M 0 1)
EQL-OK: BETA
(AREF M 0 2)
EQL-OK: GAMMA
(AREF M 0 3)
EQL-OK: DELTA
(AREF M 0 4)
EQL-OK: BAZ
(AREF M 1 0)
EQL-OK: EPSILON
(AREF M 1 1)
EQL-OK: ZETA
(AREF M 1 2)
EQL-OK: ETA
(AREF M 1 3)
EQL-OK: THETA
(AREF M 1 4)
EQL-OK: BAZ
(AREF M 2 0)
EQL-OK: IOTA
(AREF M 2 1)
EQL-OK: KAPPA
(AREF M 2 2)
EQL-OK: LAMBDA
(FORMAT T "~%Test interaction of the keywords~%")
Test interaction of the keywords
EQL-OK: NIL
(PROGN (SETQ DV (MAKE-ARRAY 10 :ELEMENT-TYPE 'DOUBLE-FLOAT :INITIAL-CONTENTS '(0.0d0 1.0d0 2.0d0 3.0d0 4.0d0 5.0d0 6.0d0 7.0d0 8.0d0 9.0d0))) T)
EQL-OK: T
(AREF DV 0)
EQL-OK: 0.0d0
(AREF DV 1)
EQL-OK: 1.0d0
(AREF DV 2)
EQL-OK: 2.0d0
(AREF DV 3)
EQL-OK: 3.0d0
(AREF DV 4)
EQL-OK: 4.0d0
(AREF DV 5)
EQL-OK: 5.0d0
(AREF DV 6)
EQL-OK: 6.0d0
(AREF DV 7)
EQL-OK: 7.0d0
(AREF DV 8)
EQL-OK: 8.0d0
(AREF DV 9)
EQL-OK: 9.0d0
(SETF (AREF DV 5) -5.0d0)
EQL-OK: -5.0d0
(FORMAT T "~%test indeces~%")
test indeces
EQL-OK: NIL
(DEFUN ARRAY-INDEX-TEST (A &REST SUBS) (UNLESS (APPLY #'ARRAY-IN-BOUNDS-P A SUBS) (RETURN-FROM ARRAY-INDEX-TEST 'ERROR)) (= (APPLY #'ARRAY-ROW-MAJOR-INDEX A SUBS) (APPLY #'+ (MAPLIST #'(LAMBDA (X Y) (* (CAR X) (APPLY #'* (CDR Y)))) SUBS (ARRAY-DIMENSIONS A)))))
EQL-OK: ARRAY-INDEX-TEST
(ARRAY-INDEX-TEST (MAKE-ARRAY '(5 4 3 2 1)) 4 2 2 1 0)
EQL-OK: T
(ARRAY-INDEX-TEST (MAKE-ARRAY '(5 4 3 2 1)) 3 4 2 1 2)
EQL-OK: ERROR
(FORMAT T "~%bitvectors~%")
bitvectors
EQL-OK: NIL
(SETQ BVZERO (MAKE-ARRAY 100 :ELEMENT-TYPE 'BIT :INITIAL-ELEMENT 0))
EQUAL-OK: #*0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
(SETQ BVONE (MAKE-ARRAY 100 :ELEMENT-TYPE 'BIT :INITIAL-ELEMENT 1))
EQUAL-OK: #*1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
(SETQ BV3 (MAKE-ARRAY 100 :ELEMENT-TYPE 'BIT :INITIAL-ELEMENT 0))
EQUAL-OK: #*0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
(SETQ BV2 (MAKE-ARRAY 100 :ELEMENT-TYPE 'BIT :INITIAL-ELEMENT 0))
EQUAL-OK: #*0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
(SETQ BV1 (MAKE-ARRAY 100 :ELEMENT-TYPE 'BIT :INITIAL-ELEMENT 0))
EQUAL-OK: #*0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
(FORMAT T "~%set bitvectors~%")
set bitvectors
EQL-OK: NIL
(DOTIMES (I 50 BV1) (SETF (SBIT BV1 (* I 2)) 1))
EQUAL-OK: #*1010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010
(DOTIMES (I 50 BV2) (SETF (BIT BV2 (* I 2)) 1))
EQUAL-OK: #*1010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010
(EQUALP BV1 BV2)
EQL-OK: T
(DOTIMES (I 25 BV3) (SETF (SBIT BV3 (* I 4)) 1))
EQUAL-OK: #*1000100010001000100010001000100010001000100010001000100010001000100010001000100010001000100010001000
(BIT-AND BV1 BV3)
EQUAL-OK: #*1000100010001000100010001000100010001000100010001000100010001000100010001000100010001000100010001000
(BIT-IOR BV1 BV3)
EQUAL-OK: #*1010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010
(BIT-XOR BV1 BV3)
EQUAL-OK: #*0010001000100010001000100010001000100010001000100010001000100010001000100010001000100010001000100010
(BIT-EQV BV1 BV3)
EQUAL-OK: #*1101110111011101110111011101110111011101110111011101110111011101110111011101110111011101110111011101
(BIT-NAND BV1 BV3)
EQUAL-OK: #*0111011101110111011101110111011101110111011101110111011101110111011101110111011101110111011101110111
(BIT-ANDC1 BV1 BV3)
EQUAL-OK: #*0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
(BIT-ANDC2 BV1 BV3)
EQUAL-OK: #*0010001000100010001000100010001000100010001000100010001000100010001000100010001000100010001000100010
(BIT-ORC1 BV1 BV3)
EQUAL-OK: #*1101110111011101110111011101110111011101110111011101110111011101110111011101110111011101110111011101
(BIT-ORC2 BV1 BV3)
EQUAL-OK: #*1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
(BIT-NOT BV1)
EQUAL-OK: #*0101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101
(BIT-NOT BVZERO)
EQUAL-OK: #*1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
(BIT-NOT BVONE)
EQUAL-OK: #*0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
(LET* ((S1 (MAKE-ARRAY NIL :INITIAL-ELEMENT 0 :ELEMENT-TYPE 'BIT)) (S2 (MAKE-ARRAY NIL :INITIAL-ELEMENT 1 :ELEMENT-TYPE 'BIT))) (LIST (BIT-XOR S1 S2) S1 S2))
EQUALP-OK: (#0A1 #0A0 #0A1)
(LET* ((A1 (MAKE-ARRAY '(2 2) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '((0 1) (0 1)))) (A2 (MAKE-ARRAY '(2 2) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '((0 0) (1 1)))) (RESULT (BIT-AND A1 A2))) (LIST A1 A2 RESULT))
EQUALP-OK: (#2A((0 1) (0 1)) #2A((0 0) (1 1)) #2A((0 0) (0 1)))
(FORMAT T "~%test operations with fill-pointer~%")
test operations with fill-pointer
EQL-OK: NIL
(MAKE-ARRAY '(3 4 5) :FILL-POINTER T)
[SIMPLE-ERROR]: MAKE-ARRAY: :FILL-POINTER may not be specified for an array of rank 3
EQL-OK: ERROR
(EQUALP (MAKE-ARRAY 5 :FILL-POINTER 5) '#(NIL NIL NIL NIL NIL))
EQL-OK: T
(MAKE-ARRAY 5 :FILL-POINTER -5)
[SIMPLE-TYPE-ERROR]: MAKE-ARRAY: fill-pointer -5 should be a nonnegative fixnum
EQL-OK: ERROR
(FORMAT T "~%general vector with fillpointer~%")
general vector with fillpointer
EQL-OK: NIL
(PROGN (SETQ VMF (MAKE-ARRAY 5 :FILL-POINTER 0)) T)
EQL-OK: T
(FILL-POINTER VMF)
EQL-OK: 0
(VECTOR-PUSH 'A VMF)
EQL-OK: 0
(FILL-POINTER VMF)
EQL-OK: 1
(VECTOR-PUSH 'B VMF)
EQL-OK: 1
(VECTOR-PUSH 'C VMF)
EQL-OK: 2
(VECTOR-PUSH 'D VMF)
EQL-OK: 3
(VECTOR-PUSH 'E VMF)
EQL-OK: 4
(VECTOR-PUSH 'VOLL VMF)
EQL-OK: NIL
(VECTOR-POP VMF)
EQL-OK: E
(VECTOR-POP VMF)
EQL-OK: D
(VECTOR-POP VMF)
EQL-OK: C
(VECTOR-POP VMF)
EQL-OK: B
(VECTOR-POP VMF)
EQL-OK: A
(VECTOR-POP VMF)
[SIMPLE-ERROR]: VECTOR-POP: #() has length zero
EQL-OK: ERROR
(FORMAT T "~%adjustable general vector with fillpointer~%")
adjustable general vector with fillpointer
EQL-OK: NIL
(PROGN (SETQ VMFA (MAKE-ARRAY 5 :FILL-POINTER 0 :ADJUSTABLE T)) T)
EQL-OK: T
(FILL-POINTER VMFA)
EQL-OK: 0
(VECTOR-PUSH-EXTEND 'A VMFA)
EQL-OK: 0
(FILL-POINTER VMFA)
EQL-OK: 1
(VECTOR-PUSH-EXTEND 'B VMFA)
EQL-OK: 1
(VECTOR-PUSH-EXTEND 'C VMFA)
EQL-OK: 2
(VECTOR-PUSH-EXTEND 'D VMFA)
EQL-OK: 3
(VECTOR-PUSH-EXTEND 'E VMFA)
EQL-OK: 4
(VECTOR-PUSH-EXTEND 'VOLL VMFA)
EQL-OK: 5
(VECTOR-POP VMFA)
EQL-OK: VOLL
(VECTOR-POP VMFA)
EQL-OK: E
(VECTOR-POP VMFA)
EQL-OK: D
(VECTOR-POP VMFA)
EQL-OK: C
(VECTOR-POP VMFA)
EQL-OK: B
(VECTOR-POP VMFA)
EQL-OK: A
(FORMAT T "~%Doppeltgen. Vector mit Fillpointer ~%")
Doppeltgen. Vector mit Fillpointer 
EQL-OK: NIL
(PROGN (SETQ VMFD (MAKE-ARRAY 5 :FILL-POINTER 0 :ELEMENT-TYPE 'DOUBLE-FLOAT)) T)
EQL-OK: T
(FILL-POINTER VMFD)
EQL-OK: 0
(VECTOR-PUSH 0.0d0 VMFD)
EQL-OK: 0
(FILL-POINTER VMFD)
EQL-OK: 1
(VECTOR-PUSH 1.0d0 VMFD)
EQL-OK: 1
(VECTOR-PUSH 2.0d0 VMFD)
EQL-OK: 2
(VECTOR-PUSH 3.0d0 VMFD)
EQL-OK: 3
(VECTOR-PUSH 4.0d0 VMFD)
EQL-OK: 4
(VECTOR-PUSH 5.0d0 VMFD)
EQL-OK: NIL
(VECTOR-POP VMFD)
EQL-OK: 4.0d0
(VECTOR-POP VMFD)
EQL-OK: 3.0d0
(VECTOR-POP VMFD)
EQL-OK: 2.0d0
(VECTOR-POP VMFD)
EQL-OK: 1.0d0
(VECTOR-POP VMFD)
EQL-OK: 0.0d0
(VECTOR-POP VMFD)
[SIMPLE-ERROR]: VECTOR-POP: #() has length zero
EQL-OK: ERROR
(PROGN (SETQ VMFAD (MAKE-ARRAY 5 :FILL-POINTER 0 :ELEMENT-TYPE 'DOUBLE-FLOAT :ADJUSTABLE T)) T)
EQL-OK: T
(FILL-POINTER VMFAD)
EQL-OK: 0
(VECTOR-PUSH-EXTEND 0.0d0 VMFAD)
EQL-OK: 0
(FILL-POINTER VMFAD)
EQL-OK: 1
(VECTOR-PUSH-EXTEND 1.0d0 VMFAD)
EQL-OK: 1
(VECTOR-PUSH-EXTEND 2.0d0 VMFAD)
EQL-OK: 2
(VECTOR-PUSH-EXTEND 3.0d0 VMFAD)
EQL-OK: 3
(VECTOR-PUSH-EXTEND 4.0d0 VMFAD)
EQL-OK: 4
(VECTOR-PUSH-EXTEND 5.0d0 VMFAD)
EQL-OK: 5
(SETF (FILL-POINTER VMFAD) 3)
EQL-OK: 3
(AREF VMFAD 5)
EQL-OK: 5.0d0
(ELT VMFAD 5)
[SIMPLE-TYPE-ERROR]: ELT: index 5 for #(0.0d0 1.0d0 2.0d0) is out of range
EQL-OK: ERROR
(SETF (FILL-POINTER VMFAD) 6)
EQL-OK: 6
VMFAD
EQUALP-OK: #(0.0d0 1.0d0 2.0d0 3.0d0 4.0d0 5.0d0)
(REVERSE VMFAD)
EQUALP-OK: #(5.0d0 4.0d0 3.0d0 2.0d0 1.0d0 0.0d0)
(NREVERSE VMFAD)
EQUALP-OK: #(5.0d0 4.0d0 3.0d0 2.0d0 1.0d0 0.0d0)
VMFAD
EQUALP-OK: #(5.0d0 4.0d0 3.0d0 2.0d0 1.0d0 0.0d0)
(VECTOR-POP VMFAD)
EQL-OK: 0.0d0
(VECTOR-POP VMFAD)
EQL-OK: 1.0d0
(VECTOR-POP VMFAD)
EQL-OK: 2.0d0
(VECTOR-POP VMFAD)
EQL-OK: 3.0d0
(VECTOR-POP VMFAD)
EQL-OK: 4.0d0
(VECTOR-POP VMFAD)
EQL-OK: 5.0d0
(VECTOR-PUSH-EXTEND 5.0s0 VMFAD)
EQL-OK: 0
(UPGRADED-ARRAY-ELEMENT-TYPE NIL)
EQL-OK: NIL
(ARRAYP (SETQ NIL-ARR (MAKE-ARRAY '(10 20) :ELEMENT-TYPE NIL)))
EQL-OK: T
(ARRAY-ELEMENT-TYPE (SETQ NIL-VEC (MAKE-ARRAY 4 :ELEMENT-TYPE NIL :DISPLACED-TO NIL-ARR :DISPLACED-INDEX-OFFSET 2)))
EQL-OK: NIL
(TYPEP NIL-VEC 'SEQUENCE)
EQL-OK: T
(AREF NIL-ARR 2 2)
[SIMPLE-ERROR]: AREF: cannot retrieve values from an array of element type NIL
EQL-OK: ERROR
(SETF (AREF NIL-VEC 1) 0)
[SIMPLE-TYPE-ERROR]: SYSTEM::STORE: 0 does not fit into #A(NIL (4)), bad type
EQL-OK: ERROR
(FILL NIL-VEC 1)
[SIMPLE-TYPE-ERROR]: FILL: 1 does not fit into #A(NIL (4)), bad type
EQL-OK: ERROR
(REPLACE NIL-VEC #(0 1 0 1))
[SIMPLE-TYPE-ERROR]: REPLACE: 0 cannot be stored in an array of element type NIL
EQL-OK: ERROR
(REPLACE #(0 1 0 1) NIL-VEC)
[SIMPLE-ERROR]: REPLACE: cannot retrieve values from an array of element type NIL
EQL-OK: ERROR
(PROGN (COPY-SEQ NIL-VEC))
EQUAL-OK: #A(NIL (4))
(SETQ NIL-VEC NIL NIL-ARR NIL)
EQL-OK: NIL
(ADJUSTABLE-ARRAY-P (SETQ ADA (ADJUST-ARRAY (MAKE-ARRAY '(2 3) :ADJUSTABLE T :INITIAL-CONTENTS '((A B C) (1 2 3))) '(4 6))))
EQL-OK: T
(ARRAY-DIMENSIONS ADA)
EQUAL-OK: (4 6)
(AREF ADA 1 1)
EQL-OK: 2
(SETQ BETA (MAKE-ARRAY '(2 3) :ADJUSTABLE T))
EQUALP-OK: #2A((NIL NIL NIL) (NIL NIL NIL))
(ADJUST-ARRAY BETA '(4 6) :DISPLACED-TO ADA)
EQUALP-OK: #2A((A B C NIL NIL NIL) (1 2 3 NIL NIL NIL) (NIL NIL NIL NIL NIL NIL) (NIL NIL NIL NIL NIL NIL))
(ARRAY-DIMENSIONS BETA)
EQUAL-OK: (4 6)
(AREF BETA 1 1)
EQL-OK: 2
(ADJUST-ARRAY #2A((ALPHA BETA GAMMA DELTA) (EPSILON ZETA ETA THETA) (IOTA KAPPA LAMBDA MU) (NU XI OMICRON PI)) '(3 5) :INITIAL-ELEMENT 'BAZ)
EQUALP-OK: #2A((ALPHA BETA GAMMA DELTA BAZ) (EPSILON ZETA ETA THETA BAZ) (IOTA KAPPA LAMBDA MU BAZ))
(ADJUST-ARRAY #(1 2 3 4) '(6))
EQUALP-OK: #(1 2 3 4 NIL NIL)
(LET* ((A1 (MAKE-ARRAY 5 :INITIAL-CONTENTS '(A B C D E) :FILL-POINTER 3)) (A2 (ADJUST-ARRAY A1 8 :FILL-POINTER 5 :INITIAL-ELEMENT 'X))) (ASSERT (IF (ADJUSTABLE-ARRAY-P A1) (EQ A1 A2) (EQUAL (ARRAY-DIMENSIONS A1) '(5)))) (ASSERT (NOT (ARRAY-DISPLACEMENT A2))) (LIST (ARRAY-DIMENSIONS A2) (FILL-POINTER A2) A2 (AREF A2 5) (AREF A2 6) (AREF A2 7)))
EQUALP-OK: ((8) 5 #(A B C D E) X X X)
(EQUAL (MAKE-STRING 0) (MAKE-ARRAY 0 :ELEMENT-TYPE NIL))
EQL-OK: T
(EQUALP (MAKE-ARRAY '(1 2 0)) (MAKE-ARRAY '(1 2 0) :ELEMENT-TYPE NIL))
EQL-OK: T
(ROW-MAJOR-AREF "abcd" 3)
EQL-OK: #\d
(SETF (ROW-MAJOR-AREF "abcd" 3) 17)
[SIMPLE-TYPE-ERROR]: SYSTEM::ROW-MAJOR-STORE: 17 does not fit into "abcd", bad type
EQL-OK: ERROR
(LET* ((A1 (MAKE-ARRAY 5 :INITIAL-CONTENTS "abcde" :FILL-POINTER 3 :ADJUSTABLE T :ELEMENT-TYPE 'CHARACTER)) (A2 (ADJUST-ARRAY A1 8 :FILL-POINTER 5 :INITIAL-ELEMENT #\x :ELEMENT-TYPE 'CHARACTER))) (ASSERT (OR (NOT (ADJUSTABLE-ARRAY-P A1)) (EQ A1 A2))) (ASSERT (OR (ADJUSTABLE-ARRAY-P A1) (EQUAL (ARRAY-DIMENSIONS A1) '(5)))) (ASSERT (EQUAL (ARRAY-DIMENSIONS A2) '(8))) (ASSERT (NOT (ARRAY-DISPLACEMENT A2))) (ASSERT (EQUAL (LIST (AREF A2 5) (AREF A2 6) (AREF A2 7)) '(#\x #\x #\x))) (LIST (FILL-POINTER A2) A2))
EQUAL-OK: (5 "abcde")
RUN-TEST: finished "array" (0 errors out of 290 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"backquot.tst" @1>
(SETF X '(A B C))
EQUAL-OK: (A B C)
`(X ,X ,@X FOO ,(CADR X) BAR ,(CDR X) BAZ ,@(CDR X) ,.X)
EQUAL-OK: (X (A B C) A B C FOO B BAR (B C) BAZ B C A B C)
(READ-FROM-STRING "`,@x")
[SIMPLE-READER-ERROR]: READ: the syntax `,@form is invalid
EQL-OK: ERROR
`(,X . ,X)
EQUAL-OK: ((A B C) A B C)
(READ-FROM-STRING "`(,x . ,@x)")
[SIMPLE-READER-ERROR]: READ: the syntax `( ... . ,@form) is invalid
EQL-OK: ERROR
(READ-FROM-STRING ",x")
[SIMPLE-READER-ERROR]: READ: comma is illegal outside of backquote
EQL-OK: ERROR
(READ-FROM-STRING "`#1A(1 2 ,(+ 2 2) 4)")
[SIMPLE-READER-ERROR]: READ: unquotes may not occur in arrays
EQL-OK: ERROR
(DEFSTRUCT FOO (A B))
EQL-OK: FOO
(READ-FROM-STRING "`#S(FOO :A ,'A :B ,'B)")
[SIMPLE-READER-ERROR]: READ: unquotes may not occur in structures
EQL-OK: ERROR
(READ-FROM-STRING "``(,,,x)")
[SIMPLE-READER-ERROR]: READ: more commas out than backquotes in, is illegal
EQL-OK: ERROR
(LET ((LIST '(A B C D))) `(FOO `(BAR ,@',(MAPCAR #'(LAMBDA (SYM) `(BAZ ',SYM ,SYM)) LIST))))
EQUAL-OK: (FOO '(BAR (BAZ 'A A) (BAZ 'B B) (BAZ 'C C) (BAZ 'D D)))
`#(1 2 3 4)
EQUALP-OK: #(1 2 3 4)
`#(,@X)
EQUALP-OK: #(A B C)
(SETF A 10 B 20 C 30)
EQL-OK: 30
`(,A ,B ,C)
EQUAL-OK: (10 20 30)
(EVAL ``(,,@X))
EQUAL-OK: (10 20 30)
(EVAL ``(,,@(MAPCAR #'(LAMBDA (Z) `(LIST ',Z)) X)))
EQUAL-OK: ((A) (B) (C))
(EVAL ``(,@,@(MAPCAR #'(LAMBDA (Z) `(LIST ',Z)) X)))
EQUAL-OK: (A B C)
(EVAL (EVAL ```(,,@,@(MAPCAR #'(LAMBDA (Z) `(LIST ',Z)) X))))
EQUAL-OK: (10 20 30)
(SETF AA (LIST 10) BB (LIST 20) CC (LIST 30))
EQUAL-OK: (30)
(SETF XX '(AA BB CC))
EQUAL-OK: (AA BB CC)
(EVAL (EVAL ```(,,@,@(MAPCAR #'(LAMBDA (Z) `(LIST ',Z)) XX))))
EQUAL-OK: ((10) (20) (30))
(EVAL (EVAL ```(,@,@,@(MAPCAR #'(LAMBDA (Z) `(LIST ',Z)) XX))))
EQUAL-OK: (10 20 30)
(EVAL (EVAL ```(ALPHA ,@,@,@(MAPCAR #'(LAMBDA (Z) `(LIST ',Z)) XX) OMEGA)))
EQUAL-OK: (ALPHA 10 20 30 OMEGA)
(EVAL (EVAL ```(ALPHA ,.,.,.(MAPCAR #'(LAMBDA (Z) `(LIST ',Z)) XX) OMEGA)))
EQUAL-OK: (ALPHA 10 20 30 OMEGA)
AA
EQUAL-OK: (10 20 30 OMEGA)
BB
EQUAL-OK: (20 30 OMEGA)
CC
EQUAL-OK: (30 OMEGA)
``````````,,,,,,,,,,'X
EQL-OK: X
``````````,',',',',',',',',','X
EQUAL-OK: '''''''''X
(LET ((X 3)) `````(,(,(,(,(,(INCF X)))))) X)
EQL-OK: 4
(FORMAT NIL "~a" ``,,`,3)
EQUAL-OK: "3"
(FORMAT NIL "~a" '``,,`,3)
EQUAL-OK: "``,,`,3"
(FORMAT NIL "~a" '``,(,.ALPHA ,`,`(,@42) . ,OMEGA))
EQUAL-OK: "``,(,.ALPHA ,`,`(,@42) . ,OMEGA)"
`(2 3 . #(,(+ 2 2) ,@(LIST 5)))
EQUALP-OK: (2 3 . #(4 5))
(ARRAY-ELEMENT-TYPE `#(1 2 3))
EQUAL-OK: (UNSIGNED-BYTE 8)
(MACROEXPAND-1 '`(C1))
EQUAL-OK: '(C1)
(MACROEXPAND-1 '`(,(F1)))
EQUAL-OK: (LIST (F1))
(MACROEXPAND-1 '`(,@(F1)))
EQUAL-OK: (F1)
(MACROEXPAND-1 '`(,.(F1)))
EQUAL-OK: (F1)
(MACROEXPAND-1 '`(C1 C2))
EQUAL-OK: '(C1 C2)
(MACROEXPAND-1 '`(,(F1) C2))
EQUAL-OK: (CONS (F1) '(C2))
(MACROEXPAND-1 '`(,@(F1) C2))
EQUAL-OK: (APPEND (F1) '(C2))
(MACROEXPAND-1 '`(,.(F1) C2))
EQUAL-OK: (NCONC (F1) '(C2))
(MACROEXPAND-1 '`(C1 ,(F2)))
EQUAL-OK: (LIST 'C1 (F2))
(MACROEXPAND-1 '`(,(F1) ,(F2)))
EQUAL-OK: (LIST (F1) (F2))
(MACROEXPAND-1 '`(,@(F1) ,(F2)))
EQUAL-OK: (APPEND (F1) (LIST (F2)))
(MACROEXPAND-1 '`(,.(F1) ,(F2)))
EQUAL-OK: (NCONC (F1) (LIST (F2)))
(MACROEXPAND-1 '`(C1 ,@(F2)))
EQUAL-OK: (CONS 'C1 (F2))
(MACROEXPAND-1 '`(,(F1) ,@(F2)))
EQUAL-OK: (CONS (F1) (F2))
(MACROEXPAND-1 '`(,@(F1) ,@(F2)))
EQUAL-OK: (APPEND (F1) (F2))
(MACROEXPAND-1 '`(,.(F1) ,@(F2)))
EQUAL-OK: (NCONC (F1) (F2))
(MACROEXPAND-1 '`(C1 ,.(F2)))
EQUAL-OK: (CONS 'C1 (F2))
(MACROEXPAND-1 '`(,(F1) ,.(F2)))
EQUAL-OK: (CONS (F1) (F2))
(MACROEXPAND-1 '`(,@(F1) ,.(F2)))
EQUAL-OK: (APPEND (F1) (F2))
(MACROEXPAND-1 '`(,.(F1) ,.(F2)))
EQUAL-OK: (NCONC (F1) (F2))
(MACROEXPAND-1 '`(,@(F1) ,@(F2) ,@(F3)))
EQUAL-OK: (APPEND (F1) (F2) (F3))
(MACROEXPAND-1 '`(,(F1) ,@(F2) ,.(F3)))
EQUAL-OK: (CONS (F1) (APPEND (F2) (F3)))
(MACROEXPAND-1 '`(,.(F1) ,.(F2) ,@(F3)))
EQUAL-OK: (NCONC (F1) (F2) (F3))
(MACROEXPAND-1 '``(,.(F1) ,.(F2) ,.,@(F3)))
EQUAL-OK: `(NCONC (F1) (F2) ,@(F3))
(MACROEXPAND-1 '`#(A B))
EQUALP-OK: #(A B)
(MACROEXPAND-1 '`#(,(F1) ,(F2)))
EQUAL-OK: (VECTOR (F1) (F2))
(MACROEXPAND-1 '`#(,(F1) ,@(F2)))
EQUAL-OK: (MULTIPLE-VALUE-CALL #'VECTOR (VALUES (F1)) (VALUES-LIST (F2)))
(MACROEXPAND-1 '`#(A ,(F1) ,@(F2) C D))
EQUAL-OK: (MULTIPLE-VALUE-CALL #'VECTOR 'A (VALUES (F1)) (VALUES-LIST (F2)) 'C 'D)
(MACROEXPAND-1 '``#(,,@(F1) ,,@(F2)))
EQUAL-OK: `(VECTOR ,@(F1) ,@(F2))
(MACROEXPAND-1 '``#(,,.(F1) ,,@(F2)))
EQUAL-OK: `(VECTOR ,.(F1) ,@(F2))
(MACROEXPAND-1 '``#(,.,.(F1) ,.,@(F2) ,@,.(F3) ,@,@(F4)))
EQUAL-OK: `(MULTIPLE-VALUE-CALL #'VECTOR (VALUES-LIST (NCONC ,.(F1))) (VALUES-LIST (NCONC ,@(F2))) (VALUES-LIST (APPEND ,.(F3))) (VALUES-LIST (APPEND ,@(F4))))
(MACROEXPAND-1 '`(,@NIL ,@(F1)))
EQUAL-OK: (F1)
(MACROEXPAND-1 '`(,@(F1) ,@NIL))
EQUAL-OK: (F1)
(MACROEXPAND-1 '`(,.NIL ,.(F1)))
EQUAL-OK: (F1)
(MACROEXPAND-1 '`(,.(F1) ,.NIL))
EQUAL-OK: (F1)
(LET ((Q '(R S)) (R '(3 5)) (S '(4 6))) (FLET ((R (X) (REDUCE #'* X))) (MACROEXPAND-1 ``(,,Q))))
EQUAL-OK: (LIST (R S))
(LET ((Q '(R S)) (R '(3 5)) (S '(4 6))) (FLET ((R (X) (REDUCE #'* X))) (MACROEXPAND-1 ``(,@,Q))))
EQUAL-OK: (R S)
(LET ((Q '(R S)) (R '(3 5)) (S '(4 6))) (FLET ((R (X) (REDUCE #'* X))) (MACROEXPAND-1 ``(,,@Q))))
EQUAL-OK: (LIST R S)
(LET ((Q '(R S)) (R '(3 5)) (S '(4 6))) (FLET ((R (X) (REDUCE #'* X))) (MACROEXPAND-1 ``(,@,@Q))))
EQUAL-OK: (APPEND R S)
(LET ((P '(UNION X Y)) (Q '((UNION X Y) (LIST 'SQRT 9))) (R '(UNION X Y)) (S '((UNION X Y)))) (MACROEXPAND-1 ``(FOO ,,P)))
EQUAL-OK: (LIST 'FOO (UNION X Y))
(LET ((P '(UNION X Y)) (Q '((UNION X Y) (LIST 'SQRT 9))) (R '(UNION X Y)) (S '((UNION X Y)))) (MACROEXPAND-1 ``(FOO ,,@Q)))
EQUAL-OK: (LIST 'FOO (UNION X Y) (LIST 'SQRT 9))
(LET ((P '(UNION X Y)) (Q '((UNION X Y) (LIST 'SQRT 9))) (R '(UNION X Y)) (S '((UNION X Y)))) (MACROEXPAND-1 ``(FOO ,',R)))
EQUAL-OK: '(FOO (UNION X Y))
(LET ((P '(UNION X Y)) (Q '((UNION X Y) (LIST 'SQRT 9))) (R '(UNION X Y)) (S '((UNION X Y)))) (MACROEXPAND-1 ``(FOO ,',@S)))
EQUAL-OK: '(FOO (UNION X Y))
(LET ((P '(UNION X Y)) (Q '((UNION X Y) (LIST 'SQRT 9))) (R '(UNION X Y)) (S '((UNION X Y)))) (MACROEXPAND-1 ``(FOO ,@,P)))
EQUAL-OK: (CONS 'FOO (UNION X Y))
(LET ((P '(UNION X Y)) (Q '((UNION X Y) (LIST 'SQRT 9))) (R '(UNION X Y)) (S '((UNION X Y)))) (MACROEXPAND-1 ``(FOO ,@,@Q)))
EQUAL-OK: (CONS 'FOO (APPEND (UNION X Y) (LIST 'SQRT 9)))
(LET ((P '(UNION X Y)) (Q '((UNION X Y) (LIST 'SQRT 9))) (R '(UNION X Y)) (S '((UNION X Y)))) (MACROEXPAND-1 ``(FOO ,@',R)))
EQUAL-OK: '(FOO UNION X Y)
(LET ((P '(UNION X Y)) (Q '((UNION X Y) (LIST 'SQRT 9))) (R '(UNION X Y)) (S '((UNION X Y)))) (MACROEXPAND-1 ``(FOO ,@',@S)))
EQUAL-OK: (CONS 'FOO '(UNION X Y))
(LET ((O 1)) (DECLARE (SPECIAL O)) (EVAL (LET ((A 2) (B 3)) (DECLARE (SPECIAL A B)) ``(,O ,@',(MAPCAR #'SYMBOL-VALUE '(A B))))))
EQUAL-OK: (1 2 3)
(LET ((O 1)) (DECLARE (SPECIAL O)) (EVAL (LET ((A 2) (B 3)) (DECLARE (SPECIAL A B)) ``(,O ,@',(MAPCAR #'SYMBOL-VALUE '(A B)) FOUR))))
EQUAL-OK: (1 2 3 FOUR)
(LET ((ENV 1)) (EVAL (LET ((GET-CODE '(:A 12 :B 45 :DOUBLE (* %BUFFER 2)))) `(DEFUN GET-MACRO (DISPLAY EVENT-KEY VARIABLE) `(LET ((%BUFFER ,DISPLAY)) (DECLARE (IGNORABLE %BUFFER)) ,(GETF `(:DISPLAY (THE T ,DISPLAY) :EVENT-KEY (THE T ,EVENT-KEY) ,@',(MAPCAR #'(LAMBDA (FORM) (INCF ENV ENV) FORM) GET-CODE)) VARIABLE))))) (LIST (EVAL (GET-MACRO 1234 5678 :DISPLAY)) (EVAL (GET-MACRO 1234 5678 :EVENT-KEY)) (EVAL (GET-MACRO 1234 5678 :A)) (EVAL (GET-MACRO 1234 5678 :DOUBLE)) ENV))
EQUAL-OK: (1234 5678 12 2468 64)
(PROGN (DEFMACRO DEFINE-SETF (VAR &REST VALUES) "define a setf function name (setf <var>) that will
  set the variable `var' to the sum of the given values
  plus the one given when setf'ed." `(DEFSETF ,(INTERN (SYMBOL-NAME VAR)) NIL (VALUE) `(SETF ,',VAR (+ ,VALUE ,@',VALUES)))) (DEFVAR *AVAR* NIL) (DEFINE-SETF *AVAR* 1 2 3) (LIST (SETF (*AVAR*) 4) *AVAR*))
EQUAL-OK: (10 10)
(LET ((A 12)) (MACROLET ((B NIL (LET ((C 19)) ``(,A ,@',@(LIST C))))) (B)))
EQUAL-OK: (12 . 19)
(UNINTERN 'X)
EQL-OK: T
RUN-TEST: finished "backquot" (0 errors out of 89 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"bin-io.tst" @1>
(DEFUN CLISP-TEST-BIN-I/O (&KEY (NUM 10) (FILE-NAME "bin-io-tst") (TYPE 'UNSIGNED-BYTE) (SIZE 40) (ENDIANNESS :LITTLE) (INT-LIST (ECASE TYPE (UNSIGNED-BYTE (LOOP :WITH MAX = (ASH 1 SIZE) :REPEAT NUM :COLLECT (RANDOM MAX))) (SIGNED-BYTE (LOOP :WITH MAX = (ASH 1 SIZE) :AND TOP = (ASH 1 (1- SIZE)) :REPEAT NUM :COLLECT (- (RANDOM MAX) TOP))))) (FLOAT-LIST (LOOP :REPEAT NUM :COLLECT (RANDOM 1.0d0)))) (LET ((ELTYPE (LIST TYPE SIZE))) (WITH-OPEN-FILE (FOO FILE-NAME :DIRECTION :OUTPUT :ELEMENT-TYPE 'UNSIGNED-BYTE) (DOLIST (NUM INT-LIST) (WRITE-INTEGER NUM FOO ELTYPE ENDIANNESS)) (DOLIST (NUM FLOAT-LIST) (WRITE-FLOAT NUM FOO 'DOUBLE-FLOAT ENDIANNESS))) (UNWIND-PROTECT (WITH-OPEN-FILE (FOO FILE-NAME :DIRECTION :INPUT :ELEMENT-TYPE 'UNSIGNED-BYTE) (LIST (FILE-LENGTH FOO) INT-LIST FLOAT-LIST (LOOP :FOR NUM :IN INT-LIST :FOR NN = (READ-INTEGER FOO ELTYPE ENDIANNESS) :COLLECT NN :UNLESS (= NN NUM) :DO (ERROR "~s/~s: wrote: ~s  read: ~s" ENDIANNESS ELTYPE NUM NN)) (LOOP :FOR NUM :IN FLOAT-LIST :FOR NN = (READ-FLOAT FOO 'DOUBLE-FLOAT ENDIANNESS) :COLLECT NN :UNLESS (= NN NUM) :DO (ERROR "~s: wrote: ~s  read: ~s" ENDIANNESS NUM NN)))) (DELETE-FILE FILE-NAME))))
EQL-OK: CLISP-TEST-BIN-I/O
(DOLIST (E '(:LITTLE :BIG)) (DOLIST (S '(UNSIGNED-BYTE SIGNED-BYTE)) (CLISP-TEST-BIN-I/O :ENDIANNESS E :TYPE S)))
EQL-OK: NIL
(LET ((VEC (MAKE-ARRAY 8 :ELEMENT-TYPE '(UNSIGNED-BYTE 8) :INITIAL-CONTENTS '(63 240 0 0 0 0 0 0)))) (WITH-OPEN-FILE (FOO "bin-io-tst" :DIRECTION :OUTPUT :ELEMENT-TYPE '(UNSIGNED-BYTE 8)) (WRITE-SEQUENCE VEC FOO)) (UNWIND-PROTECT (WITH-OPEN-FILE (FOO "bin-io-tst" :DIRECTION :INPUT :ELEMENT-TYPE '(UNSIGNED-BYTE 8)) (READ-FLOAT FOO 'DOUBLE-FLOAT :BIG)) (DELETE-FILE "bin-io-tst")))
EQL-OK: 1.0d0
(PROGN (DEFCLASS LIST-INPUT-STREAM (FUNDAMENTAL-INPUT-STREAM) ((LIST :INITARG :LIST))) (DEFMETHOD STREAM-ELEMENT-TYPE ((STREAM LIST-INPUT-STREAM)) T) (DEFMETHOD STREAM-READ-CHAR ((STREAM LIST-INPUT-STREAM)) (WITH-SLOTS (LIST) STREAM (IF LIST (LET ((RET (POP LIST))) (TYPECASE RET (INTEGER (CODE-CHAR RET)) (CHARACTER RET) (T (COERCE RET 'CHARACTER)))) :EOF))) (DEFMETHOD STREAM-UNREAD-CHAR ((STREAM LIST-INPUT-STREAM) (CHAR CHARACTER)) (WITH-SLOTS (LIST) STREAM (PUSH CHAR LIST))) (DEFMETHOD STREAM-READ-BYTE ((STREAM LIST-INPUT-STREAM)) (WITH-SLOTS (LIST) STREAM (IF LIST (LET ((RET (POP LIST))) (TYPECASE RET (INTEGER RET) (CHARACTER (CHAR-CODE RET)) (T (COERCE RET 'INTEGER)))) :EOF))) (DEFUN LIST->INTEGER (LIST TYPE ENDIANNESS) (READ-INTEGER (MAKE-INSTANCE 'LIST-INPUT-STREAM :LIST LIST) TYPE ENDIANNESS)) (DEFUN LIST->FLOAT (LIST TYPE ENDIANNESS) (READ-FLOAT (MAKE-INSTANCE 'LIST-INPUT-STREAM :LIST LIST) TYPE ENDIANNESS)))
EQL-OK: LIST->FLOAT
(LIST->FLOAT '(63 240 0 0 0 0 0 0) 'DOUBLE-FLOAT :BIG)
EQL-OK: 1.0d0
(LIST->FLOAT '(0 0 0 0 0 0 240 63) 'DOUBLE-FLOAT :LITTLE)
EQL-OK: 1.0d0
(LIST->INTEGER '(0 1) '(UNSIGNED-BYTE 16) :BIG)
EQL-OK: 1
(LIST->INTEGER '(1 0) '(UNSIGNED-BYTE 16) :BIG)
EQL-OK: 256
(LIST->INTEGER '(1 0) '(UNSIGNED-BYTE 16) :LITTLE)
EQL-OK: 1
(LIST->INTEGER '(0 1) '(UNSIGNED-BYTE 16) :LITTLE)
EQL-OK: 256
(PROGN (DEFCLASS LIST-OUTPUT-STREAM (FUNDAMENTAL-OUTPUT-STREAM) ((LIST :INITFORM NIL))) (DEFMETHOD STREAM-ELEMENT-TYPE ((STREAM LIST-OUTPUT-STREAM)) T) (DEFMETHOD STREAM-WRITE-CHAR ((STREAM LIST-OUTPUT-STREAM) (CHAR CHARACTER)) (WITH-SLOTS (LIST) STREAM (PUSH CHAR LIST))) (DEFMETHOD STREAM-WRITE-BYTE ((STREAM LIST-OUTPUT-STREAM) (BYTE INTEGER)) (WITH-SLOTS (LIST) STREAM (PUSH BYTE LIST))) (DEFUN INTEGER->LIST (INTEGER TYPE ENDIANNESS) (LET ((OUT (MAKE-INSTANCE 'LIST-OUTPUT-STREAM))) (WRITE-INTEGER INTEGER OUT TYPE ENDIANNESS) (WITH-SLOTS (LIST) OUT (REVERSE LIST)))) (DEFUN FLOAT->LIST (FLOAT TYPE ENDIANNESS) (LET ((OUT (MAKE-INSTANCE 'LIST-OUTPUT-STREAM))) (WRITE-FLOAT FLOAT OUT TYPE ENDIANNESS) (WITH-SLOTS (LIST) OUT (REVERSE LIST)))))
EQL-OK: FLOAT->LIST
(FLOAT->LIST 1.0d0 'DOUBLE-FLOAT :BIG)
EQUAL-OK: (63 240 0 0 0 0 0 0)
(FLOAT->LIST 1.0d0 'DOUBLE-FLOAT :LITTLE)
EQUAL-OK: (0 0 0 0 0 0 240 63)
(INTEGER->LIST 1 '(UNSIGNED-BYTE 16) :BIG)
EQUAL-OK: (0 1)
(INTEGER->LIST 1 '(UNSIGNED-BYTE 16) :LITTLE)
EQUAL-OK: (1 0)
RUN-TEST: finished "bin-io" (0 errors out of 15 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"characters.tst" @1>
CHAR-CODE-LIMIT
EQL-OK: 1114112
(STANDARD-CHAR-P #\a)
EQL-OK: T
(STANDARD-CHAR-P #\$)
EQL-OK: T
(STANDARD-CHAR-P #\.)
EQL-OK: T
(STANDARD-CHAR-P #\A)
EQL-OK: T
(STANDARD-CHAR-P 1)
[SIMPLE-TYPE-ERROR]: STANDARD-CHAR-P: argument 1 is not a character
EQL-OK: ERROR
(STANDARD-CHAR-P #\\)
EQL-OK: T
(STANDARD-CHAR-P #\5)
EQL-OK: T
(STANDARD-CHAR-P #\))
EQL-OK: T
(STANDARD-CHAR-P #\%)
EQL-OK: T
(STANDARD-CHAR-P #\Backspace)
EQL-OK: NIL
(STANDARD-CHAR-P #\Page)
EQL-OK: NIL
(STANDARD-CHAR-P #\Return)
EQL-OK: NIL
(GRAPHIC-CHAR-P #\a)
EQL-OK: T
(GRAPHIC-CHAR-P #\$)
EQL-OK: T
(GRAPHIC-CHAR-P #\.)
EQL-OK: T
(GRAPHIC-CHAR-P #\A)
EQL-OK: T
(GRAPHIC-CHAR-P 1)
[SIMPLE-TYPE-ERROR]: GRAPHIC-CHAR-P: argument 1 is not a character
EQL-OK: ERROR
(GRAPHIC-CHAR-P #\\)
EQL-OK: T
(GRAPHIC-CHAR-P #\5)
EQL-OK: T
(GRAPHIC-CHAR-P #\))
EQL-OK: T
(GRAPHIC-CHAR-P #\%)
EQL-OK: T
(GRAPHIC-CHAR-P #\Backspace)
EQL-OK: NIL
(GRAPHIC-CHAR-P #\Page)
EQL-OK: NIL
(GRAPHIC-CHAR-P #\Return)
EQL-OK: NIL
(STRING-CHAR-P #\a)
EQL-OK: T
(STRING-CHAR-P #\$)
EQL-OK: T
(STRING-CHAR-P #\.)
EQL-OK: T
(STRING-CHAR-P #\A)
EQL-OK: T
(STRING-CHAR-P 1)
[SIMPLE-TYPE-ERROR]: STRING-CHAR-P: argument 1 is not a character
EQL-OK: ERROR
(STRING-CHAR-P #\\)
EQL-OK: T
(STRING-CHAR-P #\5)
EQL-OK: T
(STRING-CHAR-P #\))
EQL-OK: T
(STRING-CHAR-P #\%)
EQL-OK: T
(STRING-CHAR-P #\Backspace)
EQL-OK: T
(STRING-CHAR-P #\Page)
EQL-OK: T
(STRING-CHAR-P #\Return)
EQL-OK: T
(ALPHA-CHAR-P #\a)
EQL-OK: T
(ALPHA-CHAR-P #\$)
EQL-OK: NIL
(ALPHA-CHAR-P #\.)
EQL-OK: NIL
(ALPHA-CHAR-P #\A)
EQL-OK: T
(ALPHA-CHAR-P 1)
[SIMPLE-TYPE-ERROR]: ALPHA-CHAR-P: argument 1 is not a character
EQL-OK: ERROR
(ALPHA-CHAR-P #\\)
EQL-OK: NIL
(ALPHA-CHAR-P #\5)
EQL-OK: NIL
(ALPHA-CHAR-P #\))
EQL-OK: NIL
(ALPHA-CHAR-P #\%)
EQL-OK: NIL
(ALPHA-CHAR-P #\Backspace)
EQL-OK: NIL
(ALPHA-CHAR-P #\Page)
EQL-OK: NIL
(ALPHA-CHAR-P #\Return)
EQL-OK: NIL
(UPPER-CASE-P #\a)
EQL-OK: NIL
(UPPER-CASE-P #\$)
EQL-OK: NIL
(UPPER-CASE-P #\.)
EQL-OK: NIL
(UPPER-CASE-P #\A)
EQL-OK: T
(UPPER-CASE-P 1)
[SIMPLE-TYPE-ERROR]: UPPER-CASE-P: argument 1 is not a character
EQL-OK: ERROR
(UPPER-CASE-P #\\)
EQL-OK: NIL
(UPPER-CASE-P #\5)
EQL-OK: NIL
(UPPER-CASE-P #\))
EQL-OK: NIL
(UPPER-CASE-P #\%)
EQL-OK: NIL
(UPPER-CASE-P #\Backspace)
EQL-OK: NIL
(UPPER-CASE-P #\Page)
EQL-OK: NIL
(UPPER-CASE-P #\Return)
EQL-OK: NIL
(LOWER-CASE-P #\a)
EQL-OK: T
(LOWER-CASE-P #\$)
EQL-OK: NIL
(LOWER-CASE-P #\.)
EQL-OK: NIL
(LOWER-CASE-P #\A)
EQL-OK: NIL
(LOWER-CASE-P 1)
[SIMPLE-TYPE-ERROR]: LOWER-CASE-P: argument 1 is not a character
EQL-OK: ERROR
(LOWER-CASE-P #\\)
EQL-OK: NIL
(LOWER-CASE-P #\5)
EQL-OK: NIL
(LOWER-CASE-P #\))
EQL-OK: NIL
(LOWER-CASE-P #\%)
EQL-OK: NIL
(LOWER-CASE-P #\Backspace)
EQL-OK: NIL
(LOWER-CASE-P #\Page)
EQL-OK: NIL
(LOWER-CASE-P #\Return)
EQL-OK: NIL
(BOTH-CASE-P #\a)
EQL-OK: T
(BOTH-CASE-P #\$)
EQL-OK: NIL
(BOTH-CASE-P #\.)
EQL-OK: NIL
(BOTH-CASE-P #\A)
EQL-OK: T
(BOTH-CASE-P 1)
[SIMPLE-TYPE-ERROR]: BOTH-CASE-P: argument 1 is not a character
EQL-OK: ERROR
(BOTH-CASE-P #\\)
EQL-OK: NIL
(BOTH-CASE-P #\5)
EQL-OK: NIL
(BOTH-CASE-P #\))
EQL-OK: NIL
(BOTH-CASE-P #\%)
EQL-OK: NIL
(BOTH-CASE-P #\Backspace)
EQL-OK: NIL
(BOTH-CASE-P #\Page)
EQL-OK: NIL
(BOTH-CASE-P #\Return)
EQL-OK: NIL
(DIGIT-CHAR-P #\a)
EQL-OK: NIL
(DIGIT-CHAR-P #\$)
EQL-OK: NIL
(DIGIT-CHAR-P #\.)
EQL-OK: NIL
(DIGIT-CHAR-P #\A)
EQL-OK: NIL
(DIGIT-CHAR-P 1)
[SIMPLE-TYPE-ERROR]: DIGIT-CHAR-P: argument 1 is not a character
EQL-OK: ERROR
(DIGIT-CHAR-P #\\)
EQL-OK: NIL
(DIGIT-CHAR-P #\5)
EQL-OK: 5
(DIGIT-CHAR-P #\))
EQL-OK: NIL
(DIGIT-CHAR-P #\%)
EQL-OK: NIL
(DIGIT-CHAR-P #\Backspace)
EQL-OK: NIL
(DIGIT-CHAR-P #\Page)
EQL-OK: NIL
(DIGIT-CHAR-P #\Return)
EQL-OK: NIL
(DIGIT-CHAR-P #\5 4)
EQL-OK: NIL
(DIGIT-CHAR-P #\5 8)
EQL-OK: 5
(DIGIT-CHAR-P #\E 16)
EQL-OK: 14
(DIGIT-CHAR-P #\R 35)
EQL-OK: 27
(DIGIT-CHAR-P #\5 4)
EQL-OK: NIL
(DIGIT-CHAR-P #\5 5)
EQL-OK: NIL
(DIGIT-CHAR-P #\5 6)
EQL-OK: 5
(DIGIT-CHAR-P #\1 2)
EQL-OK: 1
(ALPHANUMERICP #\a)
EQL-OK: T
(ALPHANUMERICP #\$)
EQL-OK: NIL
(ALPHANUMERICP #\.)
EQL-OK: NIL
(ALPHANUMERICP #\A)
EQL-OK: T
(ALPHANUMERICP 1)
[SIMPLE-TYPE-ERROR]: ALPHANUMERICP: argument 1 is not a character
EQL-OK: ERROR
(ALPHANUMERICP #\\)
EQL-OK: NIL
(ALPHANUMERICP #\5)
EQL-OK: T
(ALPHANUMERICP #\))
EQL-OK: NIL
(ALPHANUMERICP #\%)
EQL-OK: NIL
(ALPHANUMERICP #\Backspace)
EQL-OK: NIL
(ALPHANUMERICP #\Page)
EQL-OK: NIL
(ALPHANUMERICP #\Return)
EQL-OK: NIL
(ALPHANUMERICP #\5 4)
[SIMPLE-SOURCE-PROGRAM-ERROR]: EVAL: too many arguments given to ALPHANUMERICP: #1=(ALPHANUMERICP #\5 4)
EQL-OK: ERROR
(ALPHANUMERICP #\5 8)
[SIMPLE-SOURCE-PROGRAM-ERROR]: EVAL: too many arguments given to ALPHANUMERICP: #1=(ALPHANUMERICP #\5 8)
EQL-OK: ERROR
(ALPHANUMERICP #\E 16)
[SIMPLE-SOURCE-PROGRAM-ERROR]: EVAL: too many arguments given to ALPHANUMERICP: #1=(ALPHANUMERICP #\E 16)
EQL-OK: ERROR
(ALPHANUMERICP #\R 35)
[SIMPLE-SOURCE-PROGRAM-ERROR]: EVAL: too many arguments given to ALPHANUMERICP: #1=(ALPHANUMERICP #\R 35)
EQL-OK: ERROR
(CHAR= #\d #\d)
EQL-OK: T
(CHAR/= #\d #\d)
EQL-OK: NIL
(CHAR= #\d #\x)
EQL-OK: NIL
(CHAR/= #\d #\x)
EQL-OK: T
(CHAR= #\d #\D)
EQL-OK: NIL
(CHAR/= #\d #\D)
EQL-OK: T
(CHAR= #\d #\d #\d #\d)
EQL-OK: T
(CHAR/= #\d #\d #\d #\d)
EQL-OK: NIL
(CHAR= #\d #\d #\x #\d)
EQL-OK: NIL
(CHAR/= #\d #\d #\x #\d)
EQL-OK: NIL
(CHAR= #\d #\y #\x #\c)
EQL-OK: NIL
(CHAR/= #\d #\y #\x #\c)
EQL-OK: T
(CHAR= #\d #\c #\d)
EQL-OK: NIL
(CHAR/= #\d #\c #\d)
EQL-OK: NIL
(CHAR< #\d #\x)
EQL-OK: T
(CHAR<= #\d #\x)
EQL-OK: T
(CHAR< #\d #\d)
EQL-OK: NIL
(CHAR<= #\d #\d)
EQL-OK: T
(CHAR< #\a #\e #\y #\z)
EQL-OK: T
(CHAR<= #\a #\e #\y #\z)
EQL-OK: T
(CHAR< #\a #\e #\e #\y)
EQL-OK: NIL
(CHAR<= #\a #\e #\e #\y)
EQL-OK: T
(CHAR> #\e #\d)
EQL-OK: T
(CHAR>= #\e #\d)
EQL-OK: T
(CHAR> #\d #\c #\b #\a)
EQL-OK: T
(CHAR>= #\d #\c #\b #\a)
EQL-OK: T
(CHAR> #\d #\d #\b #\a)
EQL-OK: NIL
(CHAR>= #\d #\d #\b #\a)
EQL-OK: T
(CHAR> #\e #\d #\b #\c #\a)
EQL-OK: NIL
(CHAR>= #\e #\d #\b #\c #\a)
EQL-OK: NIL
(CHAR> #\z #\A)
EQL-OK: T
(CHAR> #\Z #\a)
EQL-OK: NIL
(CHAR< #\9 #\a)
EQL-OK: T
(CHAR> #\9 #\a)
EQL-OK: NIL
(CHAR> #\z #\0)
EQL-OK: T
(CHAR< #\z #\0)
EQL-OK: NIL
(CHAR-EQUAL #\d #\d)
EQL-OK: T
(CHAR-NOT-EQUAL #\d #\d)
EQL-OK: NIL
(CHAR-EQUAL #\d #\x)
EQL-OK: NIL
(CHAR-NOT-EQUAL #\d #\x)
EQL-OK: T
(CHAR-EQUAL #\d #\D)
EQL-OK: T
(CHAR-NOT-EQUAL #\d #\D)
EQL-OK: NIL
(CHAR-EQUAL #\d #\d #\d #\d)
EQL-OK: T
(CHAR-NOT-EQUAL #\d #\d #\d #\d)
EQL-OK: NIL
(CHAR-EQUAL #\d #\d #\x #\d)
EQL-OK: NIL
(CHAR-NOT-EQUAL #\d #\d #\x #\d)
EQL-OK: NIL
(CHAR-EQUAL #\d #\y #\x #\c)
EQL-OK: NIL
(CHAR-NOT-EQUAL #\d #\y #\x #\c)
EQL-OK: T
(CHAR-EQUAL #\d #\c #\d)
EQL-OK: NIL
(CHAR-NOT-EQUAL #\d #\c #\d)
EQL-OK: NIL
(CHAR-LESSP #\d #\x)
EQL-OK: T
(CHAR-NOT-GREATERP #\d #\x)
EQL-OK: T
(CHAR-LESSP #\d #\d)
EQL-OK: NIL
(CHAR-NOT-GREATERP #\d #\d)
EQL-OK: T
(CHAR-LESSP #\a #\e #\y #\z)
EQL-OK: T
(CHAR-NOT-GREATERP #\a #\e #\y #\z)
EQL-OK: T
(CHAR-LESSP #\a #\e #\e #\y)
EQL-OK: NIL
(CHAR-NOT-GREATERP #\a #\e #\e #\y)
EQL-OK: T
(CHAR-GREATERP #\e #\d)
EQL-OK: T
(CHAR-NOT-LESSP #\e #\d)
EQL-OK: T
(CHAR-GREATERP #\d #\c #\b #\a)
EQL-OK: T
(CHAR-NOT-LESSP #\d #\c #\b #\a)
EQL-OK: T
(CHAR-GREATERP #\d #\d #\b #\a)
EQL-OK: NIL
(CHAR-NOT-LESSP #\d #\d #\b #\a)
EQL-OK: T
(CHAR-GREATERP #\e #\d #\b #\c #\a)
EQL-OK: NIL
(CHAR-NOT-LESSP #\e #\d #\b #\c #\a)
EQL-OK: NIL
(CHAR-GREATERP #\z #\A)
EQL-OK: T
(CHAR-GREATERP #\Z #\a)
EQL-OK: T
(CHAR-LESSP #\9 #\a)
EQL-OK: T
(CHAR-GREATERP #\9 #\a)
EQL-OK: NIL
(CHAR-GREATERP #\z #\0)
EQL-OK: T
(CHAR-LESSP #\z #\0)
EQL-OK: NIL
(CHAR-EQUAL #\A #\a)
EQL-OK: T
(CHAR-UPCASE #\a)
EQL-OK: #\A
(CHAR-UPCASE #\A)
EQL-OK: #\A
(CHAR-UPCASE #\5)
EQL-OK: #\5
(CHAR-UPCASE #\;)
EQL-OK: #\;
(CHAR-UPCASE #\=)
EQL-OK: #\=
(CHAR= (CHAR-DOWNCASE (CHAR-UPCASE #\x)) #\x)
EQL-OK: T
(CHAR-DOWNCASE #\A)
EQL-OK: #\a
(CHAR-DOWNCASE #\a)
EQL-OK: #\a
(CHAR-DOWNCASE #\%)
EQL-OK: #\%
(CHAR-DOWNCASE #\+)
EQL-OK: #\+
(CHAR-DOWNCASE #\-)
EQL-OK: #\-
(CHAR= (CHAR-UPCASE (CHAR-DOWNCASE #\X)) #\X)
EQL-OK: T
(DIGIT-CHAR 7)
EQL-OK: #\7
(DIGIT-CHAR 12)
EQL-OK: NIL
(DIGIT-CHAR 'A)
[SIMPLE-TYPE-ERROR]: DIGIT-CHAR: the weight argument should be an integer, not A
EQL-OK: ERROR
(DIGIT-CHAR 12 16)
EQL-OK: #\C
(DIGIT-CHAR 6 2)
EQL-OK: NIL
(DIGIT-CHAR 1 2)
EQL-OK: #\1
CHAR-CONTROL-BIT
EQL-OK: 1
CHAR-META-BIT
EQL-OK: 2
CHAR-SUPER-BIT
EQL-OK: 4
CHAR-HYPER-BIT
EQL-OK: 8
(CHAR-NAME #\Space)
EQUAL-OK: "Space"
(CHAR-NAME #\Newline)
EQUAL-OK: "Newline"
(LET ((WRONG-CODES NIL)) (DOTIMES (CODE CHAR-CODE-LIMIT) (LET ((C (CODE-CHAR CODE))) (UNLESS (AND (OR (EQL C (NAME-CHAR (CHAR-NAME C))))) (PUSH CODE WRONG-CODES)))) WRONG-CODES)
EQL-OK: NIL
(LOOP :FOR I :FROM 0 :BELOW CHAR-CODE-LIMIT :FOR X = (CODE-CHAR I) :UNLESS (OR (NOT (CHARACTERP X)) (IF (OR (DIGIT-CHAR-P X) (ALPHA-CHAR-P X)) (ALPHANUMERICP X) (NOT (ALPHANUMERICP X)))) :COLLECT (LIST I X :DIGIT (DIGIT-CHAR-P X) :ALPHA (ALPHA-CHAR-P X) :ALPHANUMERICP (ALPHANUMERICP X)))
EQL-OK: NIL
(LOCALLY (DECLARE (COMPILE)) (LOOP :FOR I :FROM 0 :BELOW CHAR-CODE-LIMIT :FOR X = (CODE-CHAR I) :UNLESS (EQ (CHAR-INVERTCASE (CHAR-INVERTCASE X)) X) :COLLECT X))
EQL-OK: NIL
RUN-TEST: finished "characters" (0 errors out of 221 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"clos.tst" @1>
(USE-PACKAGE "CLOS")
EQL-OK: T
(UNINTERN '<C1>)
EQL-OK: T
(PROGN (DEFCLASS <C1> NIL ((X :INITFORM 0 :ACCESSOR X-VAL :READER GET-X :WRITER SET-X :INITARG :X) (Y :INITFORM 1 :ACCESSOR Y-VAL :READER GET-Y :WRITER SET-Y :INITARG :Y))) NIL)
EQL-OK: NIL
(PROGN (DEFCLASS <C2> (<C1>) ((Z :INITFORM 0 :ACCESSOR Z-VAL :READER GET-Z :WRITER SET-Z :INITARG :Z))) NIL)
EQL-OK: NIL
(DEFPARAMETER A (MAKE-INSTANCE (FIND-CLASS '<C1>) :X 10))
EQL-OK: A
(LET (CACHE) (DEFMETHOD SLOT-MISSING ((CLASS T) (OBJ <C1>) (SLOT-NAME T) (OPERATION T) &OPTIONAL (NEW-VALUE NIL NEW-VALUE-P)) (SETF CACHE (LIST SLOT-NAME OPERATION NEW-VALUE NEW-VALUE-P))) (LIST (SLOT-BOUNDP A 'ABCD) CACHE (SLOT-VALUE A 'ABCD) CACHE))
EQUAL-OK: (T (ABCD SLOT-BOUNDP NIL NIL) (ABCD SLOT-VALUE NIL NIL) (ABCD SLOT-VALUE NIL NIL))
(X-VAL A)
EQL-OK: 10
(Y-VAL A)
EQL-OK: 1
(SETF (X-VAL A) 20)
EQL-OK: 20
(X-VAL A)
EQL-OK: 20
(GET-X A)
EQL-OK: 20
(SET-X 10 A)
EQL-OK: 10
(X-VAL A)
EQL-OK: 10
(WITH-SLOTS (X Y) A (+ X Y))
EQL-OK: 11
(DEFUN FOO (Z) (WITH-SLOTS (X Y) Z (+ X Y)))
EQL-OK: FOO
(FOO A)
EQL-OK: 11
(COMPILE 'FOO)
EQL-OK: FOO
(FOO A)
EQL-OK: 11
(SYMBOL-CLEANUP 'FOO)
EQL-OK: T
(X-VAL (REINITIALIZE-INSTANCE A :X 20))
EQL-OK: 20
(X-VAL (REINITIALIZE-INSTANCE A :X 30))
EQL-OK: 30
(X-VAL (REINITIALIZE-INSTANCE A :X 50))
EQL-OK: 50
(X-VAL (REINITIALIZE-INSTANCE A :X 80))
EQL-OK: 80
(X-VAL (REINITIALIZE-INSTANCE A :Y 20))
EQL-OK: 80
(Y-VAL (REINITIALIZE-INSTANCE A :X 30))
EQL-OK: 20
(X-VAL (REINITIALIZE-INSTANCE A :Y 50))
EQL-OK: 30
(Y-VAL (REINITIALIZE-INSTANCE A :X 80))
EQL-OK: 50
(DEFPARAMETER B (MAKE-INSTANCE (FIND-CLASS '<C2>) :X 10 :Y 20 :Z 30))
EQL-OK: B
(X-VAL B)
EQL-OK: 10
(Y-VAL B)
EQL-OK: 20
(Z-VAL B)
EQL-OK: 30
(LET* ((FN (DEFGENERIC F (X Y) (:METHOD ((X T) (Y T)) (LIST X Y)))) (METH1 (DEFMETHOD F ((I INTEGER) (J NUMBER)) (+ I J))) (METH2 (DEFMETHOD F ((S1 STRING) (S2 STRING)) (CONCATENATE 'STRING S1 S2)))) (LAMBDA NIL (DEFMETHOD F ((X LIST) (Y LIST)) (APPEND X Y))) (LIST (EQ METH1 (FIND-METHOD #'F NIL (LIST (FIND-CLASS 'INTEGER) (FIND-CLASS 'NUMBER)))) (EQ METH2 (FIND-METHOD #'F NIL (LIST (FIND-CLASS 'STRING) (FIND-CLASS 'STRING))))))
EQUAL-OK: (T T)
(F T T)
EQUAL-OK: (T T)
(F 2 3)
EQL-OK: 5
(F 2 3.0)
EQL-OK: 5.0
(F 2.0 3)
EQUAL-OK: (2.0 3)
(F "ab" "cd")
EQUAL-OK: "abcd"
(F 1 "abc")
EQUAL-OK: (1 "abc")
(PROGN (DEFGENERIC F (X Y) (:METHOD ((X T) (Y T)) (LIST X Y)) (:METHOD ((I NUMBER) (J INTEGER)) (LIST (CALL-NEXT-METHOD) (- I J))) (:METHOD ((I INTEGER) (J NUMBER)) (LIST (CALL-NEXT-METHOD) (+ I J)))) NIL)
WARNING: Redefining an already called generic function
         #<STANDARD-GENERIC-FUNCTION F>EQL-OK: NIL
(F 'X 'Y)
EQUAL-OK: (X Y)
(F 1 2)
EQUAL-OK: (((1 2) -1) 3)
(F 1 2.0)
EQUAL-OK: ((1 2.0) 3.0)
(F 1.0 2)
EQUAL-OK: ((1.0 2) -1.0)
(PROGN (DEFGENERIC G (X) (:METHOD ((X NULL)) (CONS 'NULL (CALL-NEXT-METHOD))) (:METHOD ((X LIST)) (IF (NEXT-METHOD-P) (CONS 'LIST (CALL-NEXT-METHOD)) '(LIST$))) (:METHOD ((X SYMBOL)) (IF (NEXT-METHOD-P) (CONS 'SYMBOL (CALL-NEXT-METHOD)) '(SYMBOL$)))) NIL)
EQL-OK: NIL
(G 'X)
EQUAL-OK: (SYMBOL$)
(G '(X))
EQUAL-OK: (LIST$)
(G 'NIL)
EQUAL-OK: (NULL SYMBOL LIST$)
(DEFPARAMETER *HL* NIL)
EQL-OK: *HL*
(PROGN (DEFGENERIC HGEN (X) (:METHOD ((X INTEGER)) (SETF *HL* (CONS 'I-PRIMARY-1 *HL*)) (CALL-NEXT-METHOD) (SETF *HL* (CONS 'I-PRIMARY-2 *HL*))) (:METHOD :BEFORE ((X INTEGER)) (SETF *HL* (CONS 'I-BEFORE *HL*))) (:METHOD :AFTER ((X INTEGER)) (SETF *HL* (CONS 'I-AFTER *HL*))) (:METHOD :AROUND ((X INTEGER)) (SETF *HL* (CONS 'I-AROUND-1 *HL*)) (CALL-NEXT-METHOD) (SETF *HL* (CONS 'I-AROUND-2 *HL*))) (:METHOD ((X NUMBER)) (SETF *HL* (CONS 'N-PRIMARY-1 *HL*)) (CALL-NEXT-METHOD) (SETF *HL* (CONS 'N-PRIMARY-2 *HL*))) (:METHOD :BEFORE ((X NUMBER)) (SETF *HL* (CONS 'N-BEFORE *HL*))) (:METHOD :AFTER ((X NUMBER)) (SETF *HL* (CONS 'N-AFTER *HL*))) (:METHOD :AROUND ((X NUMBER)) (SETF *HL* (CONS 'N-AROUND-1 *HL*)) (CALL-NEXT-METHOD) (SETF *HL* (CONS 'N-AROUND-2 *HL*))) (:METHOD ((X T)) (SETF *HL* (CONS 'INNERMOST *HL*)))) (DEFUN H (X) (SETF *HL* 'NIL) (HGEN X) (REVERSE *HL*)))
EQL-OK: H
(H 'ABC)
EQUAL-OK: (INNERMOST)
(H 3.14)
EQUAL-OK: (N-AROUND-1 N-BEFORE N-PRIMARY-1 INNERMOST N-PRIMARY-2 N-AFTER N-AROUND-2)
(H 3)
EQUAL-OK: (I-AROUND-1 N-AROUND-1 I-BEFORE N-BEFORE I-PRIMARY-1 N-PRIMARY-1 INNERMOST N-PRIMARY-2 I-PRIMARY-2 N-AFTER I-AFTER N-AROUND-2 I-AROUND-2)
(PROGN (DEFGENERIC TESTGF00 (&REST ARGS &KEY) (:METHOD (&REST ARGS))) (TESTGF00 'A 'B))
[SIMPLE-KEYWORD-ERROR]: TESTGF00-<EMF-1>-1: illegal keyword/value pair A, B in argument list.
The allowed keywords are NIL
EQL-OK: ERROR
(LET ((METHODS NIL)) (DEFGENERIC FOO136 (MODE OBJECT)) (DEFMETHOD FOO136 (MODE (OBJECT T)) (IF (EQ MODE 'STORE) (PUSH #'CALL-NEXT-METHOD METHODS) (IF (EQ MODE 'LIST) (LIST 'T) (CONS (LIST 'T) (FUNCALL MODE))))) (DEFMETHOD FOO136 (MODE (OBJECT NUMBER)) (IF (EQ MODE 'STORE) (PROGN (PUSH #'CALL-NEXT-METHOD METHODS) (CALL-NEXT-METHOD)) (IF (EQ MODE 'LIST) (CONS 'NUMBER (CALL-NEXT-METHOD)) (CONS (CONS 'NUMBER (CALL-NEXT-METHOD 'LIST OBJECT)) (FUNCALL MODE))))) (DEFMETHOD FOO136 (MODE (OBJECT REAL)) (IF (EQ MODE 'STORE) (PROGN (PUSH #'CALL-NEXT-METHOD METHODS) (CALL-NEXT-METHOD)) (IF (EQ MODE 'LIST) (CONS 'REAL (CALL-NEXT-METHOD)) (CONS (CONS 'REAL (CALL-NEXT-METHOD 'LIST OBJECT)) (FUNCALL MODE))))) (DEFMETHOD FOO136 (MODE (OBJECT RATIONAL)) (IF (EQ MODE 'STORE) (PROGN (PUSH #'CALL-NEXT-METHOD METHODS) (CALL-NEXT-METHOD)) (IF (EQ MODE 'LIST) (CONS 'RATIONAL (CALL-NEXT-METHOD)) (CONS (CONS 'RATIONAL (CALL-NEXT-METHOD 'LIST OBJECT)) (FUNCALL MODE))))) (DEFMETHOD FOO136 (MODE (OBJECT INTEGER)) (IF (EQ MODE 'STORE) (PROGN (PUSH #'CALL-NEXT-METHOD METHODS) (CALL-NEXT-METHOD)) (IF (EQ MODE 'LIST) (CONS 'INTEGER (CALL-NEXT-METHOD)) (CONS (CONS 'INTEGER (CALL-NEXT-METHOD 'LIST OBJECT)) (FUNCALL MODE))))) (FOO136 'STORE 3) (MULTIPLE-VALUE-BIND (T-ERROR-METHOD NUMBER-T-METHOD REAL-NUMBER-METHOD RATIONAL-REAL-METHOD INTEGER-RATIONAL-METHOD) (VALUES-LIST METHODS) (FOO136 #'(LAMBDA NIL (FUNCALL NUMBER-T-METHOD #'(LAMBDA NIL (FUNCALL INTEGER-RATIONAL-METHOD #'(LAMBDA NIL (FUNCALL REAL-NUMBER-METHOD #'(LAMBDA NIL NIL) 5)) 5)) 5)) 5)))
EQUAL-OK: ((INTEGER RATIONAL REAL NUMBER T) (T) (RATIONAL REAL NUMBER T) (NUMBER T))
(UNINTERN '<C1>)
EQL-OK: T
(PROGN (DEFCLASS <C1> NIL ((X :INITFORM 0 :ACCESSOR X-VAL :INITARG :X) (Y :INITFORM 1 :ACCESSOR Y-VAL :INITARG :Y))) NIL)
EQL-OK: NIL
(DEFPARAMETER A (MAKE-INSTANCE (FIND-CLASS '<C1>) :X 10))
EQL-OK: A
(DEFPARAMETER B (MAKE-INSTANCE (FIND-CLASS '<C1>) :Y 20 :X 10))
EQL-OK: B
(DEFPARAMETER C (MAKE-INSTANCE (FIND-CLASS '<C1>)))
EQL-OK: C
(X-VAL A)
EQL-OK: 10
(Y-VAL A)
EQL-OK: 1
(X-VAL B)
EQL-OK: 10
(Y-VAL B)
EQL-OK: 20
(X-VAL C)
EQL-OK: 0
(Y-VAL C)
EQL-OK: 1
(UNINTERN '<C1>)
EQL-OK: T
(LET* ((C (DEFCLASS <C1> NIL ((X :INITFORM 0 :ACCESSOR X-VAL :INITARG :X) (Y :INITFORM 1 :ACCESSOR Y-VAL :INITARG :Y)))) (M (DEFMETHOD INITIALIZE-INSTANCE :AFTER ((INSTANCE <C1>) &REST INITVALUES) (IF (= (X-VAL INSTANCE) 0) (SETF (X-VAL INSTANCE) (Y-VAL INSTANCE)))))) (EQ M (FIND-METHOD #'INITIALIZE-INSTANCE '(:AFTER) (LIST C))))
EQL-OK: T
(X-VAL (MAKE-INSTANCE (FIND-CLASS '<C1>)))
EQL-OK: 1
(X-VAL (MAKE-INSTANCE (FIND-CLASS '<C1>) :X 10))
EQL-OK: 10
(X-VAL (MAKE-INSTANCE (FIND-CLASS '<C1>) :Y 20))
EQL-OK: 20
(X-VAL (MAKE-INSTANCE (FIND-CLASS '<C1>) :X 10 :Y 20))
EQL-OK: 10
(LET ((M (DEFMETHOD INITIALIZE-INSTANCE ((INST <C1>) &REST IGNORE) (CALL-NEXT-METHOD) 123))) (EQ M (FIND-METHOD #'INITIALIZE-INSTANCE NIL (LIST (FIND-CLASS '<C1>)))))
EQL-OK: T
(X-VAL (MAKE-INSTANCE (FIND-CLASS '<C1>) :X 101 :Y 120))
EQL-OK: 101
(SETF (FIND-CLASS '<C1>) NIL)
EQL-OK: NIL
(UNINTERN '<C1>)
EQL-OK: T
(EQ (CLASS-OF NIL) (FIND-CLASS 'NULL))
EQL-OK: T
(EQ (CLASS-OF T) (FIND-CLASS 'SYMBOL))
EQL-OK: T
(EQ (CLASS-OF 10) (FIND-CLASS 'INTEGER))
EQL-OK: T
(EQ (CLASS-OF 10.0) (FIND-CLASS 'FLOAT))
EQL-OK: T
(EQ (CLASS-OF '(A B)) (FIND-CLASS 'CONS))
EQL-OK: T
(EQ (CLASS-OF "abc") (FIND-CLASS 'STRING))
EQL-OK: T
(EQ (CLASS-OF '#(1 2)) (FIND-CLASS 'VECTOR))
EQL-OK: T
(EQ (CLASS-OF #'CAR) (FIND-CLASS 'FUNCTION))
EQL-OK: T
(EQ (CLASS-OF #'MAKE-INSTANCE) (FIND-CLASS 'STANDARD-GENERIC-FUNCTION))
EQL-OK: T
(EQ (CLASS-OF '#2A((A) (B))) (FIND-CLASS 'ARRAY))
EQL-OK: T
(EQ (CLASS-OF *STANDARD-INPUT*) (FIND-CLASS 'STREAM))
EQL-OK: NIL
(EQ (CLASS-OF (LAMBDA (X) X)) (FIND-CLASS 'FUNCTION))
EQL-OK: T
(EQ (CLASS-OF (FIND-CLASS 'T)) (FIND-CLASS 'BUILT-IN-CLASS))
EQL-OK: T
(EQ (CLASS-OF (MAKE-ARRAY NIL)) (FIND-CLASS 'ARRAY))
EQL-OK: T
(EQ (CLASS-OF (MAKE-ARRAY NIL :ELEMENT-TYPE NIL)) (FIND-CLASS 'ARRAY))
EQL-OK: T
(EQ (CLASS-OF (MAKE-ARRAY 10 :ELEMENT-TYPE NIL)) (FIND-CLASS 'STRING))
EQL-OK: T
(TYPEP "abc" (FIND-CLASS 'T))
EQL-OK: T
(TYPEP "abc" (FIND-CLASS 'ARRAY))
EQL-OK: T
(TYPEP "abc" (FIND-CLASS 'VECTOR))
EQL-OK: T
(TYPEP "abc" (FIND-CLASS 'STRING))
EQL-OK: T
(TYPEP "abc" (FIND-CLASS 'INTEGER))
EQL-OK: NIL
(TYPEP 3 (FIND-CLASS 'T))
EQL-OK: T
(TYPEP 3 (FIND-CLASS 'NUMBER))
EQL-OK: T
(TYPEP 3 (FIND-CLASS 'FLOAT))
EQL-OK: NIL
(TYPEP 3 (FIND-CLASS 'INTEGER))
EQL-OK: T
(TYPEP 3 (FIND-CLASS 'STRING))
EQL-OK: NIL
(NOT (NOT (TYPEP *STANDARD-INPUT* (FIND-CLASS 'STREAM))))
EQL-OK: T
(DEFUN SUBCLASSP (CLASS1 CLASS2) (CLOS::SUBCLASSP CLASS1 CLASS2))
EQL-OK: SUBCLASSP
(SUBCLASSP (FIND-CLASS 'NUMBER) (FIND-CLASS 'T))
EQL-OK: T
(SUBCLASSP (FIND-CLASS 'INTEGER) (FIND-CLASS 'NUMBER))
EQL-OK: T
(SUBCLASSP (FIND-CLASS 'FLOAT) (FIND-CLASS 'NUMBER))
EQL-OK: T
(DEFUN MLF-TESTER (SYMBOL &OPTIONAL (LISP-FILE "clos-tst-make-load-form-demo.lisp")) (UNWIND-PROTECT (LET (COMPILED-FILE) (WITH-OPEN-FILE (STREAM LISP-FILE :DIRECTION :OUTPUT) (FORMAT STREAM "(in-package ~s)~%(defparameter ~S '#.~S)~%" (PACKAGE-NAME (SYMBOL-PACKAGE SYMBOL)) SYMBOL SYMBOL)) (SETQ COMPILED-FILE (COMPILE-FILE LISP-FILE)) (SETF (SYMBOL-VALUE SYMBOL) NIL) (LOAD COMPILED-FILE) (SYMBOL-VALUE SYMBOL)) (POST-COMPILE-FILE-CLEANUP LISP-FILE)))
EQL-OK: MLF-TESTER
(DEFUN MLF-KILL (TYPE) (LET ((M (FIND-METHOD #'MAKE-LOAD-FORM NIL (LIST (FIND-CLASS TYPE)) NIL))) (WHEN M (REMOVE-METHOD #'MAKE-LOAD-FORM M))) (SETF (FIND-CLASS TYPE) NIL))
EQL-OK: MLF-KILL
(PROGN (DEFCLASS TEST-CLASS1 NIL ((FOO :INITARG :FOO :ACCESSOR FOO :INITFORM 0))) (DEFCLASS TEST-CLASS2 NIL ((FOO :INITARG :FOO :ACCESSOR FOO :INITFORM 0))) (DEFMETHOD MAKE-LOAD-FORM ((OBJ TEST-CLASS1) &OPTIONAL ENVIRONMENT) (DECLARE (IGNORE ENVIRONMENT)) `(MAKE-INSTANCE 'TEST-CLASS1 :FOO ',(FOO OBJ))) (DEFMETHOD MAKE-LOAD-FORM ((OBJ TEST-CLASS2) &OPTIONAL ENVIRONMENT) (DECLARE (IGNORE ENVIRONMENT)) `(MAKE-INSTANCE 'TEST-CLASS2 :FOO ',(FOO OBJ))) (DEFPARAMETER *T-LIST* (LIST (MAKE-INSTANCE 'TEST-CLASS1 :FOO 100) (MAKE-INSTANCE 'TEST-CLASS2 :FOO 200))) (MLF-TESTER '*T-LIST*) (MAPCAR #'FOO *T-LIST*))
WARNING: Replacing method
         #1=#<STANDARD-METHOD (#2=#<BUILT-IN-CLASS INTEGER> #3=#<BUILT-IN-CLASS NUMBER>)>
         in #<STANDARD-GENERIC-FUNCTION F>
WARNING: Adding method #<STANDARD-READER-METHOD (#1=#<STANDARD-CLASS <C1>>)>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION X-VAL>
WARNING: Adding method
         #<STANDARD-WRITER-METHOD (#1=#<BUILT-IN-CLASS T> #2=#<STANDARD-CLASS <C1>>)>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION (SETF X-VAL)>
WARNING: Adding method #<STANDARD-READER-METHOD (#1=#<STANDARD-CLASS <C1>>)>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION Y-VAL>
WARNING: Adding method #<STANDARD-READER-METHOD (#1=#<STANDARD-CLASS <C1>>)>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION X-VAL>
WARNING: Adding method #<STANDARD-READER-METHOD (#1=#<STANDARD-CLASS <C1>>)>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION Y-VAL>
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/clos-tst-make-load-form-demo.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/clos-tst-make-load-form-demo.fas
0 errors, 0 warnings;; Loading file 
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/clos-tst-make-load-form-demo.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/clos-tst-make-load-form-demo.fas
EQUAL-OK: (100 200)
(DEFSTRUCT FOO A)
EQL-OK: FOO
(PROGN (DEFMETHOD MAKE-LOAD-FORM ((X FOO) &OPTIONAL ENV) (MAKE-LOAD-FORM-SAVING-SLOTS X :ENVIRONMENT ENV)) (DEFPARAMETER *TMP-FILE* "clos-tst-mlf-tmp.lisp") (WITH-OPEN-FILE (S *TMP-FILE* :DIRECTION :OUTPUT) (FORMAT S "(defparameter *foo* '#S(FOO :A BAR-CONST))~%")) (LOAD (COMPILE-FILE *TMP-FILE*)) *FOO*)
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/clos-tst-mlf-tmp.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/clos-tst-mlf-tmp.fas
0 errors, 0 warnings;; Loading file 
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/clos-tst-mlf-tmp.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/clos-tst-mlf-tmp.fas
EQUALP-OK: #S(FOO :A BAR-CONST)
(PROGN (MAKUNBOUND '*FOO*) (DEFCONSTANT BAR-CONST 1) (UNWIND-PROTECT (PROGN (LOAD (COMPILE-FILE *TMP-FILE*)) *FOO*) (POST-COMPILE-FILE-CLEANUP *TMP-FILE*) (MLF-KILL 'FOO)))
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/clos-tst-mlf-tmp.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/clos-tst-mlf-tmp.fas
0 errors, 0 warnings;; Loading file 
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/clos-tst-mlf-tmp.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/clos-tst-mlf-tmp.fas
EQUALP-OK: #<FOO BAR-CONST>
(PROGN (DEFCLASS POS NIL ((X :INITARG :X :READER POS-X) (Y :INITARG :Y :READER POS-Y) (R :ACCESSOR POS-R))) (DEFMETHOD SHARED-INITIALIZE :AFTER ((SELF POS) IGNORE1 &REST IGNORE2) (DECLARE (IGNORE IGNORE1 IGNORE2)) (UNLESS (SLOT-BOUNDP SELF 'R) (SETF (POS-R SELF) (SQRT (+ (* (POS-X SELF) (POS-X SELF)) (* (POS-Y SELF) (POS-Y SELF))))))) (DEFMETHOD MAKE-LOAD-FORM ((SELF POS) &OPTIONAL ENVIRONMENT) (DECLARE (IGNORE ENVIRONMENT)) `(MAKE-INSTANCE ',(CLASS-NAME (CLASS-OF SELF)) :X ',(POS-X SELF) :Y ',(POS-Y SELF))) (SETQ *FOO* (MAKE-INSTANCE 'POS :X 3.0 :Y 4.0)) (MLF-TESTER '*FOO*) (LIST (POS-X *FOO*) (POS-Y *FOO*) (POS-R *FOO*)))
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/clos-tst-make-load-form-demo.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/clos-tst-make-load-form-demo.fas
0 errors, 0 warnings;; Loading file 
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/clos-tst-make-load-form-demo.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/clos-tst-make-load-form-demo.fas
EQUAL-OK: (3.0 4.0 5.0)
(PROGN (DEFCLASS TREE-WITH-PARENT NIL ((PARENT :ACCESSOR TREE-PARENT) (CHILDREN :INITARG :CHILDREN))) (DEFMETHOD MAKE-LOAD-FORM ((X TREE-WITH-PARENT) &OPTIONAL ENVIRONMENT) (DECLARE (IGNORE ENVIRONMENT)) (VALUES `(MAKE-INSTANCE ',(CLASS-NAME (CLASS-OF X))) `(SETF (TREE-PARENT ',X) ',(SLOT-VALUE X 'PARENT) (SLOT-VALUE ',X 'CHILDREN) ',(SLOT-VALUE X 'CHILDREN)))) (SETQ *FOO* (MAKE-INSTANCE 'TREE-WITH-PARENT :CHILDREN (LIST (MAKE-INSTANCE 'TREE-WITH-PARENT :CHILDREN NIL) (MAKE-INSTANCE 'TREE-WITH-PARENT :CHILDREN NIL)))) (SETF (TREE-PARENT *FOO*) *FOO*) (DOLIST (CH (SLOT-VALUE *FOO* 'CHILDREN)) (SETF (TREE-PARENT CH) *FOO*)) (MLF-TESTER '*FOO*) (LIST (EQ *FOO* (TREE-PARENT *FOO*)) (EVERY (LAMBDA (X) (EQ X *FOO*)) (MAPCAR #'TREE-PARENT (SLOT-VALUE *FOO* 'CHILDREN))) (EVERY #'NULL (MAPCAR (LAMBDA (X) (SLOT-VALUE X 'CHILDREN)) (SLOT-VALUE *FOO* 'CHILDREN)))))
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/clos-tst-make-load-form-demo.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/clos-tst-make-load-form-demo.fas
0 errors, 0 warnings;; Loading file 
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/clos-tst-make-load-form-demo.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/clos-tst-make-load-form-demo.fas
EQUAL-OK: (T T T)
(PROGN (DEFPARAMETER *INITFORM-EXECUTED-COUNTER* 0) (DEFSTRUCT FOO (SLOT-1 (INCF *INITFORM-EXECUTED-COUNTER*))) (DEFPARAMETER *FOO* (MAKE-FOO)))
EQL-OK: *FOO*
*FOO*
EQUALP-OK: #S(FOO :SLOT-1 1)
*INITFORM-EXECUTED-COUNTER*
EQL-OK: 1
(PROGN (MAPC #'EVAL (MULTIPLE-VALUE-LIST (MAKE-LOAD-FORM-SAVING-SLOTS *FOO*))) *INITFORM-EXECUTED-COUNTER*)
EQL-OK: 1
(PROGN (DEFMETHOD PRINT-OBJECT ((F FOO) (O STREAM)) (FORMAT O "~1t<~a>" (FOO-SLOT-1 F))) (PRIN1-TO-STRING (MAKE-FOO)))
EQUAL-OK: " <2>"
(PROGN (MLF-KILL 'FOO) NIL)
EQL-OK: NIL
(DEFSTRUCT FOO SLOT)
EQL-OK: FOO
(LET ((FILE "clos-tst.lisp") C) (UNWIND-PROTECT (PROGN (MAKUNBOUND '*FOO*) (WITH-OPEN-FILE (F FILE :DIRECTION :OUTPUT) (FORMAT F "(eval-when (compile load eval) (defstruct foo slot))~@
                      (defparameter *foo* #.(make-foo))~%")) (LOAD (SETQ C (COMPILE-FILE FILE))) *FOO*) (POST-COMPILE-FILE-CLEANUP FILE)))
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/clos-tst.lisp ...
WARNING: (SETF FIND-CLASS): redefining class FOO in
         /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/clos-tst.lisp,
         was defined in top-level
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/clos-tst.fas
0 errors, 1 warning;; Loading file 
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/clos-tst.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/clos-tst.fas
EQUALP-OK: #S(FOO :SLOT NIL)
(FLET ((WEAK-LIST-LENGTH (W) (IF W (SYSTEM::%RECORD-REF (SYSTEM::%RECORD-REF W 0) 1) 0))) (LET (OLD1-WEAKPOINTERS-COUNT OLD-SUBCLASSES-COUNT OLD2-WEAKPOINTERS-COUNT NEW-SUBCLASSES-COUNT NEW-WEAKPOINTERS-COUNT) (DEFCLASS FOO64A NIL NIL) (DEFCLASS FOO64B (FOO64A) NIL) (LET ((USYMBOL (GENSYM))) (EVAL `(DEFCLASS ,USYMBOL (FOO64A) NIL)) (SETQ OLD1-WEAKPOINTERS-COUNT (WEAK-LIST-LENGTH (CLOS::CLASS-FINALIZED-DIRECT-SUBCLASSES-TABLE (FIND-CLASS 'FOO64A)))) (SETF (SYMBOL-VALUE USYMBOL) (1- (LENGTH (CLOS::LIST-ALL-FINALIZED-SUBCLASSES (FIND-CLASS 'FOO64A))))) (SETQ OLD2-WEAKPOINTERS-COUNT (WEAK-LIST-LENGTH (CLOS::CLASS-FINALIZED-DIRECT-SUBCLASSES-TABLE (FIND-CLASS 'FOO64A)))) (SETQ OLD-SUBCLASSES-COUNT (SYMBOL-VALUE USYMBOL))) (GC) (SETQ NEW-SUBCLASSES-COUNT (1- (LENGTH (CLOS::LIST-ALL-FINALIZED-SUBCLASSES (FIND-CLASS 'FOO64A))))) (SETQ NEW-WEAKPOINTERS-COUNT (WEAK-LIST-LENGTH (CLOS::CLASS-FINALIZED-DIRECT-SUBCLASSES-TABLE (FIND-CLASS 'FOO64A)))) (LIST OLD1-WEAKPOINTERS-COUNT OLD-SUBCLASSES-COUNT OLD2-WEAKPOINTERS-COUNT NEW-SUBCLASSES-COUNT NEW-WEAKPOINTERS-COUNT)))
EQUAL-OK: (2 2 2 1 1)
(LET (OLD-WEAKPOINTERS-COUNT NEW-WEAKPOINTERS-COUNT) (DEFCLASS FOO64C NIL NIL) (DEFCLASS FOO64D (FOO64C) NIL) (LET ((USYMBOL (GENSYM))) (EVAL `(DEFCLASS ,USYMBOL (FOO64C) NIL)) (SETQ OLD-WEAKPOINTERS-COUNT (LENGTH (CLASS-DIRECT-SUBCLASSES (FIND-CLASS 'FOO64C)))) (SETF (SYMBOL-VALUE USYMBOL) NIL)) (GC) (SETQ NEW-WEAKPOINTERS-COUNT (LENGTH (CLASS-DIRECT-SUBCLASSES (FIND-CLASS 'FOO64C)))) (LIST OLD-WEAKPOINTERS-COUNT NEW-WEAKPOINTERS-COUNT))
EQUAL-OK: (2 1)
(PROGN (DEFCLASS ABSTRACT-POSITION NIL NIL) (DEFCLASS X-Y-POSITION (ABSTRACT-POSITION) ((NAME :INITARG :NAME) (X :INITFORM 0 :INITARG :X) (Y :INITFORM 0 :INITARG :Y))) (DEFCLASS RHO-THETA-POSITION (ABSTRACT-POSITION) ((NAME :INITARG :NAME) (RHO :INITFORM 0) (THETA :INITFORM 0))) (DEFMETHOD UPDATE-INSTANCE-FOR-DIFFERENT-CLASS :BEFORE ((OLD X-Y-POSITION) (NEW RHO-THETA-POSITION) &KEY) (LET ((X (SLOT-VALUE OLD 'X)) (Y (SLOT-VALUE OLD 'Y))) (SETF (SLOT-VALUE NEW 'RHO) (SQRT (+ (* X X) (* Y Y))) (SLOT-VALUE NEW 'THETA) (ATAN Y X)))) (SETQ P1 (MAKE-INSTANCE 'X-Y-POSITION :NAME 'FOO :X 2 :Y 0) P2 (MAKE-INSTANCE 'X-Y-POSITION :NAME 'BAR :X 1 :Y 1)) (CHANGE-CLASS P1 'RHO-THETA-POSITION) (CHANGE-CLASS P2 'RHO-THETA-POSITION) (LIST (SLOT-VALUE P1 'NAME) (SLOT-VALUE P1 'RHO) (SLOT-VALUE P1 'THETA) (SLOT-VALUE P2 'NAME) (SLOT-VALUE P2 'RHO) (SLOT-VALUE P2 'THETA)))
EQUAL-OK: (FOO 2 0 BAR 1.4142135 0.7853981)
(PROGN (DEFCLASS C0 NIL (A B C)) (DEFCLASS C1 NIL (B C A)) (SETQ I (MAKE-INSTANCE 'C0)) (SETF (SLOT-VALUE I 'A) 1 (SLOT-VALUE I 'B) 2 (SLOT-VALUE I 'C) 3) (CHANGE-CLASS I 'C1) (LIST (SLOT-VALUE I 'A) (SLOT-VALUE I 'B) (SLOT-VALUE I 'C)))
EQUAL-OK: (1 2 3)
(PROGN (DEFCLASS C1 NIL NIL) (DEFCLASS C2 NIL NIL) (LIST (LET ((C (MAKE-INSTANCE 'C1))) (LIST (TYPE-OF (CHANGE-CLASS C 'C2)) (TYPE-OF (CHANGE-CLASS C 'C1)))) (LET ((C (MAKE-INSTANCE 'C1))) (LIST (TYPE-OF (CHANGE-CLASS C 'C1)) (TYPE-OF (CHANGE-CLASS C 'C1))))))
WARNING: DEFCLASS: Class C1 (or one of its ancestors) is being redefined,
         instances are obsoleteEQUAL-OK: ((C2 C1) (C1 
C1))
(PROGN (DEFCLASS C7 NIL ((NAME :INITARG :NAME))) (DEFCLASS C8 NIL ((PEOPLE :INITARG :PEOPLE) NAME)) (LET ((X (MAKE-INSTANCE 'C7 :NAME 'QUEEN-MARY))) (CHANGE-CLASS X 'C8 :PEOPLE 700) (LIST (SLOT-VALUE X 'NAME) (SLOT-VALUE X 'PEOPLE))))
EQUAL-OK: (QUEEN-MARY 700)
(PROGN (DEFCLASS C3 NIL (A B C)) (DEFCLASS C4 NIL (B C D E)) (LET* ((I (MAKE-INSTANCE 'C3)) (NSLOTS-BEFORE (SYSTEM::%RECORD-LENGTH I))) (CHANGE-CLASS I 'C4) (GC) (< NSLOTS-BEFORE (SYSTEM::%RECORD-LENGTH I))))
EQL-OK: T
(LET (C1 C2) (DEFCLASS FOO60-B NIL NIL) (DEFCLASS FOO60-A (FOO60-B) NIL) (MAKE-INSTANCE 'FOO60-B) (SETQ C1 (FIND-CLASS 'FOO60-A)) (DEFCLASS FOO60-A NIL NIL) (SETQ C2 (FIND-CLASS 'FOO60-A)) (EQ C1 C2))
EQL-OK: T
(LET (C1 C2) (DEFCLASS FOO61-A (FOO61-B) NIL) (SETQ C1 (FIND-CLASS 'FOO61-A)) (DEFCLASS FOO61-A NIL NIL) (SETQ C2 (FIND-CLASS 'FOO61-A)) (EQ C1 C2))
EQL-OK: T
(PROGN (DEFCLASS FOO62-B (FOO62-A) NIL) (DEFCLASS FOO62-C (FOO62-B) NIL) (DEFCLASS FOO62-A NIL NIL) (MAKE-INSTANCE 'FOO62-C) (LIST (SUBTYPEP 'FOO62-B 'FOO62-B) (SUBTYPEP 'FOO62-C 'FOO62-B) (SUBTYPEP 'FOO62-B 'FOO62-C)))
EQUAL-OK: (T T NIL)
(PROGN (DEFCLASS FOO63-B (FOO63-A) NIL) (DEFCLASS FOO63-C (FOO63-B) NIL) (DEFCLASS FOO63-A NIL NIL) (LIST (SUBTYPEP 'FOO63-B 'FOO63-B) (SUBTYPEP 'FOO63-C 'FOO63-B) (SUBTYPEP 'FOO63-B 'FOO63-C)))
EQUAL-OK: (T T NIL)
(LET (FA FB FC) (DEFCLASS FOO65A NIL NIL) (DEFCLASS FOO65B (FOO65A) NIL) (DEFCLASS FOO65C (FOO65B) NIL) (SETQ FA (CLASS-FINALIZED-P (FIND-CLASS 'FOO65A)) FB (CLASS-FINALIZED-P (FIND-CLASS 'FOO65B)) FC (CLASS-FINALIZED-P (FIND-CLASS 'FOO65C))) (DEFCLASS FOO65B (FOO65A FOO65OTHER) NIL) (LIST FA FB FC (CLASS-FINALIZED-P (FIND-CLASS 'FOO65A)) (CLASS-FINALIZED-P (FIND-CLASS 'FOO65B)) (CLASS-FINALIZED-P (FIND-CLASS 'FOO65C))))
EQUAL-OK: (T T T T NIL NIL)
(PROGN (DEFCLASS ABSTRACT-POSITION NIL NIL) (DEFCLASS X-Y-POSITION (ABSTRACT-POSITION) ((X :INITFORM 0 :ACCESSOR POSITION-X) (Y :INITFORM 0 :ACCESSOR POSITION-Y))) (SETF I (MAKE-INSTANCE 'X-Y-POSITION) (POSITION-X I) 1.0d0 (POSITION-Y I) 1.0d0) (TYPE-OF I))
WARNING: DEFCLASS: Class X-Y-POSITION (or one of its ancestors) is being
         redefined, instances are obsoleteEQL-OK: X-Y-POSITION
WARNING: Removing method
         #1=#<STANDARD-WRITER-METHOD (#2=#<BUILT-IN-CLASS T> #3=#<STANDARD-CLASS X-Y-POSITION :VERSION 1>)>
         from an already called generic function
         #<STANDARD-GENERIC-FUNCTION (SETF POSITION-Y)>
WARNING: Removing method
         #1=#<STANDARD-WRITER-METHOD (#2=#<BUILT-IN-CLASS T> #3=#<STANDARD-CLASS X-Y-POSITION :VERSION 1>)>
         from an already called generic function
         #<STANDARD-GENERIC-FUNCTION (SETF POSITION-X)>
WARNING: DEFCLASS: Class X-Y-POSITION (or one of its ancestors) is being
         redefined, instances are obsolete
WARNING: DEFCLASS: Class FOO70 (or one of its ancestors) is being redefined,
         instances are obsolete
WARNING: DEFCLASS: Class FOO71 (or one of its ancestors) is being redefined,
         instances are obsolete
WARNING: DEFCLASS: Class FOO72 (or one of its ancestors) is being redefined,
         instances are obsolete
WARNING: DEFCLASS: Class FOO73 (or one of its ancestors) is being redefined,
         instances are obsolete
WARNING: DEFCLASS: Class FOO74 (or one of its ancestors) is being redefined,
         instances are obsolete
WARNING: DEFCLASS: Class FOO75 (or one of its ancestors) is being redefined,
         instances are obsolete
WARNING: DEFCLASS: Class FOO76 (or one of its ancestors) is being redefined,
         instances are obsolete
WARNING: DEFCLASS: Class FOO77 (or one of its ancestors) is being redefined,
         instances are obsolete
WARNING: DEFCLASS: Class FOO80B (or one of its ancestors) is being redefined,
         instances are obsolete
WARNING: DEFCLASS: Class FOO81B (or one of its ancestors) is being redefined,
         instances are obsolete
WARNING: DEFCLASS: Class FOO82B (or one of its ancestors) is being redefined,
         instances are obsolete
WARNING: DEFCLASS: Class FOO83B (or one of its ancestors) is being redefined,
         instances are obsolete
WARNING: DEFCLASS: Class FOO84B (or one of its ancestors) is being redefined,
         instances are obsolete
WARNING: DEFCLASS: Class FOO85B (or one of its ancestors) is being redefined,
         instances are obsolete
WARNING: DEFCLASS: Class FOO86B (or one of its ancestors) is being redefined,
         instances are obsolete
WARNING: DEFCLASS: Class FOO87B (or one of its ancestors) is being redefined,
         instances are obsolete
WARNING: DEFCLASS: Class FOO90B (or one of its ancestors) is being redefined,
         instances are obsolete
(PROGN (DEFMETHOD UPDATE-INSTANCE-FOR-REDEFINED-CLASS :BEFORE ((POS X-Y-POSITION) ADDED DELETED PLIST &KEY) (LET ((X (GETF PLIST 'X)) (Y (GETF PLIST 'Y))) (SETF (POSITION-RHO POS) (SQRT (+ (* X X) (* Y Y))) (POSITION-THETA POS) (ATAN Y X)))) (DEFCLASS X-Y-POSITION (ABSTRACT-POSITION) ((RHO :INITFORM 0 :ACCESSOR POSITION-RHO) (THETA :INITFORM 0 :ACCESSOR POSITION-THETA))) (DEFMETHOD POSITION-X ((POS X-Y-POSITION)) (WITH-SLOTS (RHO THETA) POS (* RHO (COS THETA)))) (DEFMETHOD (SETF POSITION-X) (NEW-X (POS X-Y-POSITION)) (WITH-SLOTS (RHO THETA) POS (LET ((Y (POSITION-Y POS))) (SETQ RHO (SQRT (+ (* NEW-X NEW-X) (* Y Y))) THETA (ATAN Y NEW-X)) NEW-X))) (DEFMETHOD POSITION-Y ((POS X-Y-POSITION)) (WITH-SLOTS (RHO THETA) POS (* RHO (SIN THETA)))) (DEFMETHOD (SETF POSITION-Y) (NEW-Y (POS X-Y-POSITION)) (WITH-SLOTS (RHO THETA) POS (LET ((X (POSITION-X POS))) (SETQ RHO (SQRT (+ (* X X) (* NEW-Y NEW-Y))) THETA (ATAN NEW-Y X)) NEW-Y))) (LIST (TYPE-OF I) (POSITION-X I) (POSITION-Y I) (POSITION-RHO I) (POSITION-THETA I)))
EQUAL-OK: (X-Y-POSITION 1.0000000000000002d0 1.0d0 1.4142135623730951d0 0.7853981633974483d0)
(MULTIPLE-VALUE-BIND (VALUE CONDITION) (IGNORE-ERRORS (DEFCLASS FOO70 NIL NIL) (SETQ I (MAKE-INSTANCE 'FOO70)) (DEFCLASS FOO70 NIL ((SIZE :INITARG :SIZE :INITFORM 1) (OTHER))) (SLOT-VALUE I 'SIZE)) (LIST VALUE (TYPEP CONDITION 'ERROR)))
EQUAL-OK: (1 NIL)
(MULTIPLE-VALUE-BIND (VALUE CONDITION) (IGNORE-ERRORS (DEFCLASS FOO71 NIL NIL) (SETQ I (MAKE-INSTANCE 'FOO71)) (DEFCLASS FOO71 NIL ((SIZE :INITARG :SIZE :INITFORM 1 :ALLOCATION :CLASS) (OTHER))) (SLOT-VALUE I 'SIZE)) (LIST VALUE (TYPEP CONDITION 'ERROR)))
EQUAL-OK: (1 NIL)
(MULTIPLE-VALUE-BIND (VALUE CONDITION) (IGNORE-ERRORS (DEFCLASS FOO72 NIL ((SIZE :INITARG :SIZE :INITFORM 1))) (SETQ I (MAKE-INSTANCE 'FOO72 :SIZE 5)) (DEFCLASS FOO72 NIL ((OTHER))) (SLOT-VALUE I 'SIZE)) (LIST VALUE (TYPEP CONDITION 'ERROR)))
EQUAL-OK: (NIL T)
(MULTIPLE-VALUE-BIND (VALUE CONDITION) (IGNORE-ERRORS (DEFCLASS FOO73 NIL ((SIZE :INITARG :SIZE :INITFORM 1 :ALLOCATION :CLASS))) (SETQ I (MAKE-INSTANCE 'FOO73)) (DEFCLASS FOO73 NIL ((OTHER))) (SLOT-VALUE I 'SIZE)) (LIST VALUE (TYPEP CONDITION 'ERROR)))
EQUAL-OK: (NIL T)
(MULTIPLE-VALUE-BIND (VALUE CONDITION) (IGNORE-ERRORS (DEFCLASS FOO74 NIL ((SIZE :INITARG :SIZE :INITFORM 1 :ALLOCATION :CLASS))) (SETQ I (MAKE-INSTANCE 'FOO74)) (DEFCLASS FOO74 NIL ((SIZE :INITARG :SIZE :INITFORM 2 :ALLOCATION :CLASS) (OTHER))) (SLOT-VALUE I 'SIZE)) (LIST VALUE (TYPEP CONDITION 'ERROR)))
EQUAL-OK: (1 NIL)
(MULTIPLE-VALUE-BIND (VALUE CONDITION) (IGNORE-ERRORS (DEFCLASS FOO75 NIL ((SIZE :INITARG :SIZE :INITFORM 1 :ALLOCATION :CLASS))) (SETQ I (MAKE-INSTANCE 'FOO75)) (DEFCLASS FOO75 NIL ((SIZE :INITARG :SIZE :INITFORM 2) (OTHER))) (SLOT-VALUE I 'SIZE)) (LIST VALUE (TYPEP CONDITION 'ERROR)))
EQUAL-OK: (1 NIL)
(MULTIPLE-VALUE-BIND (VALUE CONDITION) (IGNORE-ERRORS (DEFCLASS FOO76 NIL ((SIZE :INITARG :SIZE :INITFORM 1))) (SETQ I (MAKE-INSTANCE 'FOO76 :SIZE 5)) (DEFCLASS FOO76 NIL ((SIZE :INITARG :SIZE :INITFORM 2) (OTHER))) (SLOT-VALUE I 'SIZE)) (LIST VALUE (TYPEP CONDITION 'ERROR)))
EQUAL-OK: (5 NIL)
(MULTIPLE-VALUE-BIND (VALUE CONDITION) (IGNORE-ERRORS (DEFCLASS FOO77 NIL ((SIZE :INITARG :SIZE :INITFORM 1))) (SETQ I (MAKE-INSTANCE 'FOO77 :SIZE 5)) (DEFCLASS FOO77 NIL ((SIZE :INITARG :SIZE :INITFORM 2 :ALLOCATION :CLASS) (OTHER))) (SLOT-VALUE I 'SIZE)) (LIST VALUE (TYPEP CONDITION 'ERROR)))
EQUAL-OK: (2 NIL)
(MULTIPLE-VALUE-BIND (VALUE CONDITION) (IGNORE-ERRORS (DEFCLASS FOO80A NIL NIL) (DEFCLASS FOO80B (FOO80A) NIL) (SETQ I (MAKE-INSTANCE 'FOO80B)) (DEFCLASS FOO80A NIL ((SIZE :INITARG :SIZE :INITFORM 1) (OTHER))) (SLOT-VALUE I 'SIZE)) (LIST VALUE (TYPEP CONDITION 'ERROR)))
EQUAL-OK: (1 NIL)
(MULTIPLE-VALUE-BIND (VALUE CONDITION) (IGNORE-ERRORS (DEFCLASS FOO81A NIL NIL) (DEFCLASS FOO81B (FOO81A) NIL) (SETQ I (MAKE-INSTANCE 'FOO81B)) (DEFCLASS FOO81A NIL ((SIZE :INITARG :SIZE :INITFORM 1 :ALLOCATION :CLASS) (OTHER))) (SLOT-VALUE I 'SIZE)) (LIST VALUE (TYPEP CONDITION 'ERROR)))
EQUAL-OK: (1 NIL)
(MULTIPLE-VALUE-BIND (VALUE CONDITION) (IGNORE-ERRORS (DEFCLASS FOO82A NIL ((SIZE :INITARG :SIZE :INITFORM 1))) (DEFCLASS FOO82B (FOO82A) NIL) (SETQ I (MAKE-INSTANCE 'FOO82B :SIZE 5)) (DEFCLASS FOO82A NIL ((OTHER))) (SLOT-VALUE I 'SIZE)) (LIST VALUE (TYPEP CONDITION 'ERROR)))
EQUAL-OK: (NIL T)
(MULTIPLE-VALUE-BIND (VALUE CONDITION) (IGNORE-ERRORS (DEFCLASS FOO83A NIL ((SIZE :INITARG :SIZE :INITFORM 1 :ALLOCATION :CLASS))) (DEFCLASS FOO83B (FOO83A) NIL) (SETQ I (MAKE-INSTANCE 'FOO83B)) (DEFCLASS FOO83A NIL ((OTHER))) (SLOT-VALUE I 'SIZE)) (LIST VALUE (TYPEP CONDITION 'ERROR)))
EQUAL-OK: (NIL T)
(MULTIPLE-VALUE-BIND (VALUE CONDITION) (IGNORE-ERRORS (DEFCLASS FOO84A NIL ((SIZE :INITARG :SIZE :INITFORM 1 :ALLOCATION :CLASS))) (DEFCLASS FOO84B (FOO84A) NIL) (SETQ I (MAKE-INSTANCE 'FOO84B)) (DEFCLASS FOO84A NIL ((SIZE :INITARG :SIZE :INITFORM 2 :ALLOCATION :CLASS) (OTHER))) (SLOT-VALUE I 'SIZE)) (LIST VALUE (TYPEP CONDITION 'ERROR)))
EQUAL-OK: (1 NIL)
(MULTIPLE-VALUE-BIND (VALUE CONDITION) (IGNORE-ERRORS (DEFCLASS FOO85A NIL ((SIZE :INITARG :SIZE :INITFORM 1 :ALLOCATION :CLASS))) (DEFCLASS FOO85B (FOO85A) NIL) (SETQ I (MAKE-INSTANCE 'FOO85B)) (DEFCLASS FOO85A NIL ((SIZE :INITARG :SIZE :INITFORM 2) (OTHER))) (SLOT-VALUE I 'SIZE)) (LIST VALUE (TYPEP CONDITION 'ERROR)))
EQUAL-OK: (1 NIL)
(MULTIPLE-VALUE-BIND (VALUE CONDITION) (IGNORE-ERRORS (DEFCLASS FOO86A NIL ((SIZE :INITARG :SIZE :INITFORM 1))) (DEFCLASS FOO86B (FOO86A) NIL) (SETQ I (MAKE-INSTANCE 'FOO86B :SIZE 5)) (DEFCLASS FOO86A NIL ((SIZE :INITARG :SIZE :INITFORM 2) (OTHER))) (SLOT-VALUE I 'SIZE)) (LIST VALUE (TYPEP CONDITION 'ERROR)))
EQUAL-OK: (5 NIL)
(MULTIPLE-VALUE-BIND (VALUE CONDITION) (IGNORE-ERRORS (DEFCLASS FOO87A NIL ((SIZE :INITARG :SIZE :INITFORM 1))) (DEFCLASS FOO87B (FOO87A) NIL) (SETQ I (MAKE-INSTANCE 'FOO87B :SIZE 5)) (DEFCLASS FOO87A NIL ((SIZE :INITARG :SIZE :INITFORM 2 :ALLOCATION :CLASS) (OTHER))) (SLOT-VALUE I 'SIZE)) (LIST VALUE (TYPEP CONDITION 'ERROR)))
EQUAL-OK: (2 NIL)
(PROGN (DEFCLASS FOO88B (FOO88A) ((S :INITARG :S))) (DEFCLASS FOO88C (B) NIL) (DEFCLASS FOO88A NIL NIL) (LIST (LENGTH (CLOS::LIST-FINALIZED-DIRECT-SUBCLASSES (FIND-CLASS 'FOO88A))) (LENGTH (CLOS::LIST-FINALIZED-DIRECT-SUBCLASSES (FIND-CLASS 'FOO88B))) (LENGTH (CLOS::LIST-FINALIZED-DIRECT-SUBCLASSES (FIND-CLASS 'FOO88C)))))
EQUAL-OK: (0 0 0)
(PROGN (DEFCLASS FOO89B (FOO89A) ((S :INITARG :S))) (DEFCLASS FOO89C (B) NIL) (DEFCLASS FOO89A NIL NIL) (LET ((X (MAKE-INSTANCE 'FOO89B :S 5))) (LIST (LENGTH (CLOS::LIST-FINALIZED-DIRECT-SUBCLASSES (FIND-CLASS 'FOO89A))) (LENGTH (CLOS::LIST-FINALIZED-DIRECT-SUBCLASSES (FIND-CLASS 'FOO89B))) (LENGTH (CLOS::LIST-FINALIZED-DIRECT-SUBCLASSES (FIND-CLASS 'FOO89C))))))
EQUAL-OK: (1 0 0)
(PROGN (DEFCLASS FOO90B (FOO90A) ((S :INITARG :S))) (DEFCLASS FOO90C (FOO90B) NIL) (DEFCLASS FOO90A NIL NIL) (LET ((X (MAKE-INSTANCE 'FOO90B :S 5))) (DEFCLASS FOO90B NIL (S)) (LIST (LENGTH (CLOS::LIST-FINALIZED-DIRECT-SUBCLASSES (FIND-CLASS 'FOO90A))) (LENGTH (CLOS::LIST-FINALIZED-DIRECT-SUBCLASSES (FIND-CLASS 'FOO90B))) (LENGTH (CLOS::LIST-FINALIZED-DIRECT-SUBCLASSES (FIND-CLASS 'FOO90C))))))
EQUAL-OK: (0 0 0)
(PROGN (DEFCLASS FOO91A NIL NIL) (DEFCLASS FOO91B (FOO91A) NIL) (DEFCLASS FOO91C (FOO91B) NIL) (DEFCLASS FOO91B (FOO91A FOO91OTHER) NIL) (LIST (LENGTH (CLOS::LIST-FINALIZED-DIRECT-SUBCLASSES (FIND-CLASS 'FOO91A))) (LENGTH (CLOS::LIST-FINALIZED-DIRECT-SUBCLASSES (FIND-CLASS 'FOO91B))) (LENGTH (CLOS::LIST-FINALIZED-DIRECT-SUBCLASSES (FIND-CLASS 'FOO91C)))))
EQUAL-OK: (0 0 0)
(PROGN (DEFCLASS FOO92B (FOO92A) ((S :INITARG :S))) (DEFCLASS FOO92A NIL NIL) (LET ((X (MAKE-INSTANCE 'FOO92B :S 5)) (UPDATE-COUNTER 0)) (DEFCLASS FOO92B (FOO92A) ((S) (S1) (S2))) (SLOT-VALUE X 'S) (DEFMETHOD UPDATE-INSTANCE-FOR-REDEFINED-CLASS ((OBJECT FOO92B) ADDED-SLOTS DISCARDED-SLOTS PROPERTY-LIST &REST INITARGS) (INCF UPDATE-COUNTER)) (MAKE-INSTANCES-OBSOLETE 'FOO92A) (SLOT-VALUE X 'S) UPDATE-COUNTER))
WARNING: DEFCLASS: Class FOO92B (or one of its ancestors) is being redefined,
         instances are obsolete
WARNING: MAKE-INSTANCES-OBSOLETE: instances of class FOO92B are made obsoleteEQL-OK: 1
(PROGN (DEFCLASS FOO93B (FOO93A) ((S :INITARG :S))) (DEFCLASS FOO93A NIL NIL) (LET ((X (MAKE-INSTANCE 'FOO93B :S 5)) (UPDATE-COUNTER 0)) (DEFCLASS FOO93B NIL ((S) (S1) (S2))) (SLOT-VALUE X 'S) (DEFMETHOD UPDATE-INSTANCE-FOR-REDEFINED-CLASS ((OBJECT FOO93B) ADDED-SLOTS DISCARDED-SLOTS PROPERTY-LIST &REST INITARGS) (INCF UPDATE-COUNTER)) (MAKE-INSTANCES-OBSOLETE 'FOO93A) (SLOT-VALUE X 'S) UPDATE-COUNTER))
WARNING: DEFCLASS: Class FOO93B (or one of its ancestors) is being redefined,
         instances are obsoleteEQL-OK: 0
(PROGN (DEFCLASS FOO94 NIL ((A :READER FOO94-GET-A :WRITER FOO94-SET-A) (B :READER FOO94-GET-B :WRITER FOO94-SET-B) (C :ACCESSOR FOO94-C) (D :ACCESSOR FOO94-D) (E :ACCESSOR FOO94-E))) (LIST* (NOT (NULL (FIND-METHOD #'FOO94-GET-A 'NIL (LIST (FIND-CLASS 'FOO94)) NIL))) (NOT (NULL (FIND-METHOD #'FOO94-SET-A 'NIL (LIST (FIND-CLASS 'T) (FIND-CLASS 'FOO94)) NIL))) (NOT (NULL (FIND-METHOD #'FOO94-GET-B 'NIL (LIST (FIND-CLASS 'FOO94)) NIL))) (NOT (NULL (FIND-METHOD #'FOO94-SET-B 'NIL (LIST (FIND-CLASS 'T) (FIND-CLASS 'FOO94)) NIL))) (NOT (NULL (FIND-METHOD #'FOO94-C 'NIL (LIST (FIND-CLASS 'FOO94)) NIL))) (NOT (NULL (FIND-METHOD #'(SETF FOO94-C) 'NIL (LIST (FIND-CLASS 'T) (FIND-CLASS 'FOO94)) NIL))) (NOT (NULL (FIND-METHOD #'FOO94-D 'NIL (LIST (FIND-CLASS 'FOO94)) NIL))) (NOT (NULL (FIND-METHOD #'(SETF FOO94-D) 'NIL (LIST (FIND-CLASS 'T) (FIND-CLASS 'FOO94)) NIL))) (NOT (NULL (FIND-METHOD #'FOO94-E 'NIL (LIST (FIND-CLASS 'FOO94)) NIL))) (NOT (NULL (FIND-METHOD #'(SETF FOO94-E) 'NIL (LIST (FIND-CLASS 'T) (FIND-CLASS 'FOO94)) NIL))) (PROGN (DEFCLASS FOO94 NIL ((A :READER FOO94-GET-A :WRITER FOO94-SET-A) (B) (C :ACCESSOR FOO94-C) (E :ACCESSOR FOO94-OTHER-E))) (LIST (NOT (NULL (FIND-METHOD #'FOO94-GET-A 'NIL (LIST (FIND-CLASS 'FOO94)) NIL))) (NOT (NULL (FIND-METHOD #'FOO94-SET-A 'NIL (LIST (FIND-CLASS 'T) (FIND-CLASS 'FOO94)) NIL))) (NOT (NULL (FIND-METHOD #'FOO94-GET-B 'NIL (LIST (FIND-CLASS 'FOO94)) NIL))) (NOT (NULL (FIND-METHOD #'FOO94-SET-B 'NIL (LIST (FIND-CLASS 'T) (FIND-CLASS 'FOO94)) NIL))) (NOT (NULL (FIND-METHOD #'FOO94-C 'NIL (LIST (FIND-CLASS 'FOO94)) NIL))) (NOT (NULL (FIND-METHOD #'(SETF FOO94-C) 'NIL (LIST (FIND-CLASS 'T) (FIND-CLASS 'FOO94)) NIL))) (NOT (NULL (FIND-METHOD #'FOO94-D 'NIL (LIST (FIND-CLASS 'FOO94)) NIL))) (NOT (NULL (FIND-METHOD #'(SETF FOO94-D) 'NIL (LIST (FIND-CLASS 'T) (FIND-CLASS 'FOO94)) NIL))) (NOT (NULL (FIND-METHOD #'FOO94-E 'NIL (LIST (FIND-CLASS 'FOO94)) NIL))) (NOT (NULL (FIND-METHOD #'(SETF FOO94-E) 'NIL (LIST (FIND-CLASS 'T) (FIND-CLASS 'FOO94)) NIL)))))))
EQUAL-OK: (T T T T T T T T T T T T NIL NIL T T NIL NIL NIL NIL)
(PROGN (DEFCLASS FOO95B NIL ((S :INITARG :S :ACCESSOR FOO95B-S))) (DEFCLASS FOO95B (FOO95A) ((S :ACCESSOR FOO95B-S))) T)
EQL-OK: T
(LET ((NOTES 'NIL)) (FLET ((NOTE (O) (SETQ NOTES (APPEND NOTES (LIST O))))) (DEFCLASS FOO96B NIL ((S :INITARG :S :ACCESSOR FOO96B-S))) (LET ((X (MAKE-INSTANCE 'FOO96B :S 5))) (NOTE (FOO96B-S X)) (NOTE (TYPEP (SECOND (MULTIPLE-VALUE-LIST (IGNORE-ERRORS (DEFCLASS FOO96B (FOO96A) ((S :ACCESSOR FOO96B-S)))))) 'ERROR)) (NOTE (FOO96B-S X)) (NOTE (SLOT-VALUE X 'S)) (DEFCLASS FOO96A NIL ((R :ACCESSOR FOO96B-R))) (NOTE (FOO96B-S X)) (NOTE (SLOT-VALUE X 'S)) (NOTE (SUBTYPEP 'FOO96B 'FOO96A)) NOTES)))
WARNING: Removing method
         #1=#<STANDARD-READER-METHOD (#2=#<STANDARD-CLASS FOO96B>)> from an
         already called generic function #<STANDARD-GENERIC-FUNCTION FOO96B-S>
WARNING: DEFCLASS: Class FOO96B (or one of its ancestors) is being redefined,
         instances are obsolete
EQUAL-OK: (5 T 5 5 5 5 NIL)
(LET ((NOTES 'NIL)) (FLET ((NOTE (O) (SETQ NOTES (APPEND NOTES (LIST O))))) (DEFCLASS FOO97B NIL ((S :INITARG :S :ACCESSOR FOO97B-S))) (LET ((X (MAKE-INSTANCE 'FOO97B :S 5))) (NOTE (FOO97B-S X)) (NOTE (TYPEP (SECOND (MULTIPLE-VALUE-LIST (IGNORE-ERRORS (DEFCLASS FOO97B (FOO97A) ((S :ACCESSOR FOO97B-S)))))) 'ERROR)) (NOTE (FOO97B-S X)) (NOTE (SLOT-VALUE X 'S)) (DEFCLASS FOO97A NIL ((R :ACCESSOR FOO97B-R))) (NOTE (FOO97B-S X)) (NOTE (SLOT-VALUE X 'S)) (NOTE (SUBTYPEP 'FOO97B 'FOO97A)) NOTES)))
WARNING: Removing method
         #1=#<STANDARD-READER-METHOD (#2=#<STANDARD-CLASS FOO97B>)> from an
         already called generic function #<STANDARD-GENERIC-FUNCTION FOO97B-S>
WARNING: DEFCLASS: Class FOO97B (or one of its ancestors) is being redefined,
         instances are obsoleteEQUAL-OK: (5 T 5 5 5 
5 NIL)
(PROGN (DEFCLASS FOO100 NIL (A B C) (:FIXED-SLOT-LOCATIONS T)) (MAPCAR #'(LAMBDA (NAME) (LET ((SLOT (FIND NAME (CLASS-SLOTS (FIND-CLASS 'FOO100)) :KEY #'SLOT-DEFINITION-NAME))) (SLOT-DEFINITION-LOCATION SLOT))) '(A B C)))
EQUAL-OK: (1 2 3)
(PROGN (DEFCLASS FOO101A NIL (A B C) (:FIXED-SLOT-LOCATIONS T)) (DEFCLASS FOO101B (FOO101A) (D E F) (:FIXED-SLOT-LOCATIONS T)) (MAPCAR #'(LAMBDA (NAME) (LET ((SLOT (FIND NAME (CLASS-SLOTS (FIND-CLASS 'FOO101B)) :KEY #'SLOT-DEFINITION-NAME))) (SLOT-DEFINITION-LOCATION SLOT))) '(A B C D E F)))
EQUAL-OK: (1 2 3 4 5 6)
(PROGN (DEFCLASS FOO102A NIL (A B C) (:FIXED-SLOT-LOCATIONS T)) (DEFCLASS FOO102B NIL (D E F)) (DEFCLASS FOO102C (FOO102A FOO102B) (G H I)) (MAPCAR #'(LAMBDA (NAME) (LET ((SLOT (FIND NAME (CLASS-SLOTS (FIND-CLASS 'FOO102C)) :KEY #'SLOT-DEFINITION-NAME))) (SLOT-DEFINITION-LOCATION SLOT))) '(A B C D E F G H I)))
EQUAL-OK: (1 2 3 4 5 6 7 8 9)
(PROGN (DEFCLASS FOO103A NIL (A B C)) (DEFCLASS FOO103B NIL (D E F) (:FIXED-SLOT-LOCATIONS T)) (DEFCLASS FOO103C (FOO103A FOO103B) (G H I)) (MAPCAR #'(LAMBDA (NAME) (LET ((SLOT (FIND NAME (CLASS-SLOTS (FIND-CLASS 'FOO103C)) :KEY #'SLOT-DEFINITION-NAME))) (SLOT-DEFINITION-LOCATION SLOT))) '(A B C D E F G H I)))
EQUAL-OK: (4 5 6 1 2 3 7 8 9)
(PROGN (DEFCLASS FOO104A NIL (A B C) (:FIXED-SLOT-LOCATIONS T)) (DEFCLASS FOO104B NIL (D E F) (:FIXED-SLOT-LOCATIONS T)) (DEFCLASS FOO104C (FOO104A FOO104B) (G H I)) T)
[SIMPLE-ERROR]: In class FOO104C, the slots D and A are constrained from the superclasses to both be located at offset 1.
EQL-OK: ERROR
(PROGN (DEFCLASS FOO105A NIL (A B C) (:FIXED-SLOT-LOCATIONS T)) (DEFCLASS FOO105B NIL NIL (:FIXED-SLOT-LOCATIONS T)) (DEFCLASS FOO105C (FOO105A FOO105B) (G H I)) (MAPCAR #'(LAMBDA (NAME) (LET ((SLOT (FIND NAME (CLASS-SLOTS (FIND-CLASS 'FOO105C)) :KEY #'SLOT-DEFINITION-NAME))) (SLOT-DEFINITION-LOCATION SLOT))) '(A B C G H I)))
EQUAL-OK: (1 2 3 4 5 6)
(PROGN (DEFCLASS FOO106A NIL NIL (:FIXED-SLOT-LOCATIONS T)) (DEFCLASS FOO106B NIL (D E F) (:FIXED-SLOT-LOCATIONS T)) (DEFCLASS FOO106C (FOO106A FOO106B) (G H I)) (MAPCAR #'(LAMBDA (NAME) (LET ((SLOT (FIND NAME (CLASS-SLOTS (FIND-CLASS 'FOO106C)) :KEY #'SLOT-DEFINITION-NAME))) (SLOT-DEFINITION-LOCATION SLOT))) '(D E F G H I)))
EQUAL-OK: (1 2 3 4 5 6)
(PROGN (DEFCLASS FOO107A NIL ((A :ALLOCATION :INSTANCE) (B :ALLOCATION :INSTANCE) (C :ALLOCATION :CLASS) (D :ALLOCATION :CLASS) (E :ALLOCATION :CLASS)) (:FIXED-SLOT-LOCATIONS T)) (DEFCLASS FOO107B (FOO107A) ((B :ALLOCATION :CLASS))) T)
[SIMPLE-ERROR]: In class FOO107B, non-local slot B is constrained to be a local slot at offset 2.
EQL-OK: ERROR
(PROGN (DEFCLASS FOO108A NIL ((A :ALLOCATION :INSTANCE) (B :ALLOCATION :INSTANCE) (C :ALLOCATION :CLASS) (D :ALLOCATION :CLASS) (E :ALLOCATION :CLASS)) (:FIXED-SLOT-LOCATIONS T)) (DEFCLASS FOO108B (FOO108A) ((C :ALLOCATION :INSTANCE) (D :ALLOCATION :CLASS) (F :ALLOCATION :INSTANCE) (G :ALLOCATION :CLASS))) (MAPCAR #'(LAMBDA (NAME) (LET ((SLOT (FIND NAME (CLASS-SLOTS (FIND-CLASS 'FOO108B)) :KEY #'SLOT-DEFINITION-NAME))) (LET ((LOCATION (SLOT-DEFINITION-LOCATION SLOT))) (IF (CONSP LOCATION) (CLASS-NAME (CLOS::CV-NEWEST-CLASS (CAR LOCATION))) LOCATION)))) '(A B C D E F G)))
EQUAL-OK: (1 2 3 FOO108B FOO108A 4 FOO108B)
(LET ((CLASS1 (DEFCLASS FOO109 NIL NIL (:DOCUMENTATION "first")))) (CONS (DOCUMENTATION CLASS1 'T) (PROGN (SETF (FIND-CLASS 'FOO109) NIL) (LET ((CLASS2 (DEFCLASS FOO109 NIL NIL (:DOCUMENTATION "second")))) (LIST (DOCUMENTATION CLASS1 'T) (DOCUMENTATION CLASS2 'T))))))
EQUAL-OK: ("first" "first" "second")
(DEFCLASS FOO116 NIL NIL (:NAME BAR))
[SIMPLE-SOURCE-PROGRAM-ERROR]: DEFCLASS FOO116: invalid option #1=(:NAME BAR)
EQL-OK: ERROR
(DEFCLASS FOO117 NIL NIL (:DIRECT-SUPERCLASSES BAZ))
[SIMPLE-SOURCE-PROGRAM-ERROR]: DEFCLASS FOO117: invalid option #1=(:DIRECT-SUPERCLASSES BAZ)
EQL-OK: ERROR
(DEFCLASS FOO118 NIL NIL (:DIRECT-SLOTS X))
[SIMPLE-SOURCE-PROGRAM-ERROR]: DEFCLASS FOO118: invalid option #1=(:DIRECT-SLOTS X)
EQL-OK: ERROR
(DEFCLASS FOO119 NIL NIL (:DIRECT-DEFAULT-INITARGS (:X 5)))
[SIMPLE-SOURCE-PROGRAM-ERROR]: DEFCLASS FOO119: invalid option #1=(:DIRECT-DEFAULT-INITARGS (:X 5))
EQL-OK: ERROR
(DEFCLASS FOO120 NIL NIL (:OTHER-OPTION BLABLA))
[SIMPLE-SOURCE-PROGRAM-ERROR]: DEFCLASS FOO120: invalid option #1=(:OTHER-OPTION BLABLA)
EQL-OK: ERROR
(DEFCLASS FOO121 NIL ((X :NAME BAR)))
[SIMPLE-SOURCE-PROGRAM-ERROR]: DEFCLASS FOO121, slot option for slot X: :NAME is not a valid slot option
EQL-OK: ERROR
(DEFCLASS FOO122 NIL ((X :READERS (BAR))))
[SIMPLE-SOURCE-PROGRAM-ERROR]: DEFCLASS FOO122, slot option for slot X: :READERS is not a valid slot option
EQL-OK: ERROR
(DEFCLASS FOO123 NIL ((X :WRITERS (BAR))))
[SIMPLE-SOURCE-PROGRAM-ERROR]: DEFCLASS FOO123, slot option for slot X: :WRITERS is not a valid slot option
EQL-OK: ERROR
(DEFCLASS FOO124 NIL ((X :INITARGS (BAR))))
[SIMPLE-SOURCE-PROGRAM-ERROR]: DEFCLASS FOO124, slot option for slot X: :INITARGS is not a valid slot option
EQL-OK: ERROR
(DEFCLASS FOO125 NIL ((X :INITFORM 17 :INITFUNCTION (LAMBDA NIL 42))))
[SIMPLE-SOURCE-PROGRAM-ERROR]: DEFCLASS FOO125, slot option for slot X: :INITFUNCTION is not a valid slot option
EQL-OK: ERROR
(PROGN (DEFCLASS TESTCLASS31A NIL NIL) (DEFCLASS TESTCLASS31B (TESTCLASS31A) NIL) (DEFCLASS TESTCLASS31C (TESTCLASS31B) NIL) (LET ((*P* (MAKE-INSTANCE 'TESTCLASS31C))) (DEFGENERIC TESTGF37 (X)) (DEFMETHOD TESTGF37 ((X TESTCLASS31A)) (LIST 'A)) (DEFMETHOD TESTGF37 ((X TESTCLASS31B)) (CONS 'B (CALL-NEXT-METHOD))) (DEFMETHOD TESTGF37 ((X TESTCLASS31C)) (CONS 'C (CALL-NEXT-METHOD))) (DEFMETHOD TESTGF37 ((X (EQL *P*))) (CONS '*P* (CALL-NEXT-METHOD))) (LIST (TESTGF37 *P*) (PROGN (CHANGE-CLASS *P* 'TESTCLASS31B) (TESTGF37 *P*)))))
EQUAL-OK: ((*P* C B A) (*P* B A))
(PROGN (DEFCLASS TESTCLASS40A NIL NIL) (DEFCLASS TESTCLASS40B NIL NIL) (DEFCLASS TESTCLASS40C (TESTCLASS40B) NIL) (DEFGENERIC TESTGF40 (X) (:METHOD-COMBINATION LIST)) (DEFMETHOD TESTGF40 LIST ((X STANDARD-OBJECT)) 0) (DEFMETHOD TESTGF40 LIST ((X TESTCLASS40A)) 'A) (LET ((INST (MAKE-INSTANCE 'TESTCLASS40C))) (LIST (TESTGF40 INST) (PROGN (DEFCLASS TESTCLASS40B (TESTCLASS40A) NIL) (TESTGF40 INST)))))
WARNING: DEFCLASS: Class TESTCLASS40C (or one of its ancestors) is being
         redefined, instances are obsoleteEQUAL-OK: ((0) (A 0))
(PROGN (DEFCLASS TESTCLASS41A NIL NIL) (DEFCLASS TESTCLASS41B (TESTCLASS41A) NIL) (DEFCLASS TESTCLASS41C (TESTCLASS41B) NIL) (DEFGENERIC TESTGF41 (X) (:METHOD-COMBINATION LIST)) (DEFMETHOD TESTGF41 LIST ((X STANDARD-OBJECT)) 0) (DEFMETHOD TESTGF41 LIST ((X TESTCLASS41A)) 'A) (LET ((INST (MAKE-INSTANCE 'TESTCLASS41C))) (LIST (TESTGF41 INST) (PROGN (DEFCLASS TESTCLASS41B NIL NIL) (TESTGF41 INST)))))
WARNING: DEFCLASS: Class TESTCLASS41C (or one of its ancestors) is being
         redefined, instances are obsoleteEQUAL-OK: ((A 0) (0))
(PROGN (DEFCLASS TESTCLASS42A NIL NIL) (DEFCLASS TESTCLASS42B NIL NIL) (DEFCLASS TESTCLASS42C (TESTCLASS42A TESTCLASS42B) NIL) (DEFGENERIC TESTGF42 (X)) (DEFMETHOD TESTGF42 ((X TESTCLASS42A)) 'A) (DEFMETHOD TESTGF42 ((X TESTCLASS42B)) 'B) (LET ((INST (MAKE-INSTANCE 'TESTCLASS42C))) (LIST (TESTGF42 INST) (PROGN (DEFCLASS TESTCLASS42C (TESTCLASS42B TESTCLASS42A) NIL) (TESTGF42 INST)))))
WARNING: DEFCLASS: Class TESTCLASS42C (or one of its ancestors) is being
         redefined, instances are obsoleteEQUAL-OK: (A B)
(PROGN (DEFCLASS TESTCLASS45A NIL NIL) (DEFCLASS TESTCLASS45B NIL NIL) (DEFCLASS TESTCLASS45C (TESTCLASS45B) NIL) (LET ((INST (MAKE-INSTANCE 'TESTCLASS45C))) (DEFGENERIC TESTGF45 (X) (:METHOD-COMBINATION LIST)) (DEFMETHOD TESTGF45 LIST ((X TESTCLASS45A)) 'A) (DEFMETHOD TESTGF45 LIST ((X (EQL INST))) 'INST) (LIST (TESTGF45 INST) (PROGN (DEFCLASS TESTCLASS45B (TESTCLASS45A) NIL) (TESTGF45 INST)))))
WARNING: DEFCLASS: Class TESTCLASS45C (or one of its ancestors) is being
         redefined, instances are obsoleteEQUAL-OK: ((INST) (INST A))
(PROGN (DEFCLASS TESTCLASS46A NIL NIL) (DEFCLASS TESTCLASS46B (TESTCLASS46A) NIL) (DEFCLASS TESTCLASS46C (TESTCLASS46B) NIL) (LET ((INST (MAKE-INSTANCE 'TESTCLASS46C))) (DEFGENERIC TESTGF46 (X) (:METHOD-COMBINATION LIST)) (DEFMETHOD TESTGF46 LIST ((X TESTCLASS46A)) 'A) (DEFMETHOD TESTGF46 LIST ((X (EQL INST))) 'INST) (LIST (TESTGF46 INST) (PROGN (DEFCLASS TESTCLASS46B NIL NIL) (TESTGF46 INST)))))
WARNING: DEFCLASS: Class TESTCLASS46C (or one of its ancestors) is being
         redefined, instances are obsoleteEQUAL-OK: ((INST A) (INST
))
(PROGN (DEFCLASS TESTCLASS47A NIL NIL) (DEFCLASS TESTCLASS47B NIL NIL) (DEFCLASS TESTCLASS47C (TESTCLASS47A TESTCLASS47B) NIL) (LET ((INST (MAKE-INSTANCE 'TESTCLASS47C))) (DEFGENERIC TESTGF47 (X)) (DEFMETHOD TESTGF47 ((X TESTCLASS47A)) 'A) (DEFMETHOD TESTGF47 ((X TESTCLASS47B)) 'B) (DEFMETHOD TESTGF47 ((X (EQL INST))) (LIST 'INST (CALL-NEXT-METHOD))) (LIST (TESTGF47 INST) (PROGN (DEFCLASS TESTCLASS47C (TESTCLASS47B TESTCLASS47A) NIL) (TESTGF47 INST)))))
WARNING: DEFCLASS: Class TESTCLASS47C (or one of its ancestors) is being
         redefined, instances are obsoleteEQUAL-OK: ((INST A) (INST 
B))
(PROGN (DEFCLASS TESTCLASS48A NIL NIL) (DEFCLASS TESTCLASS48B NIL NIL) (DEFCLASS TESTCLASS48C (TESTCLASS48B) NIL) (LET ((INST (MAKE-INSTANCE 'STANDARD-OBJECT))) (DEFGENERIC TESTGF48 (X) (:METHOD-COMBINATION LIST)) (DEFMETHOD TESTGF48 LIST ((X TESTCLASS48A)) 'A) (DEFMETHOD TESTGF48 LIST ((X (EQL INST))) 'INST) (CHANGE-CLASS INST 'TESTCLASS48C) (LIST (TESTGF48 INST) (PROGN (DEFCLASS TESTCLASS48B (TESTCLASS48A) NIL) (TESTGF48 INST)))))
WARNING: DEFCLASS: Class TESTCLASS48C (or one of its ancestors) is being
         redefined, instances are obsoleteEQUAL-OK: ((INST) (INST A))
(PROGN (DEFCLASS TESTCLASS49A NIL NIL) (DEFCLASS TESTCLASS49B (TESTCLASS49A) NIL) (DEFCLASS TESTCLASS49C (TESTCLASS49B) NIL) (LET ((INST (MAKE-INSTANCE 'STANDARD-OBJECT))) (DEFGENERIC TESTGF49 (X) (:METHOD-COMBINATION LIST)) (DEFMETHOD TESTGF49 LIST ((X TESTCLASS49A)) 'A) (DEFMETHOD TESTGF49 LIST ((X (EQL INST))) 'INST) (CHANGE-CLASS INST 'TESTCLASS49C) (LIST (TESTGF49 INST) (PROGN (DEFCLASS TESTCLASS49B NIL NIL) (TESTGF49 INST)))))
WARNING: DEFCLASS: Class TESTCLASS49C (or one of its ancestors) is being
         redefined, instances are obsoleteEQUAL-OK: ((INST A) (
INST))
(PROGN (DEFCLASS TESTCLASS50A NIL NIL) (DEFCLASS TESTCLASS50B NIL NIL) (DEFCLASS TESTCLASS50C (TESTCLASS50A TESTCLASS50B) NIL) (LET ((INST (MAKE-INSTANCE 'STANDARD-OBJECT))) (DEFGENERIC TESTGF50 (X)) (DEFMETHOD TESTGF50 ((X TESTCLASS50A)) 'A) (DEFMETHOD TESTGF50 ((X TESTCLASS50B)) 'B) (DEFMETHOD TESTGF50 ((X (EQL INST))) (LIST 'INST (CALL-NEXT-METHOD))) (CHANGE-CLASS INST 'TESTCLASS50C) (LIST (TESTGF50 INST) (PROGN (DEFCLASS TESTCLASS50C (TESTCLASS50B TESTCLASS50A) NIL) (TESTGF50 INST)))))
WARNING: DEFCLASS: Class TESTCLASS50C (or one of its ancestors) is being
         redefined, instances are obsoleteEQUAL-OK: ((INST A) (INST 
B))
(ENSURE-GENERIC-FUNCTION 'CAR)
[SIMPLE-PROGRAM-ERROR]: ENSURE-GENERIC-FUNCTION: CAR does not name a generic function
EQL-OK: ERROR
(ENSURE-GENERIC-FUNCTION 'DEFCLASS)
[SIMPLE-PROGRAM-ERROR]: ENSURE-GENERIC-FUNCTION: DEFCLASS does not name a generic function
EQL-OK: ERROR
(ENSURE-GENERIC-FUNCTION 'TAGBODY)
[SIMPLE-PROGRAM-ERROR]: ENSURE-GENERIC-FUNCTION: TAGBODY does not name a generic function
EQL-OK: ERROR
(LET ((F 'EGF-FUN)) (WHEN (FBOUNDP F) (FMAKUNBOUND F)) (LIST (FBOUNDP F) (TYPEP (ENSURE-GENERIC-FUNCTION F) 'GENERIC-FUNCTION) (TYPEP (ENSURE-GENERIC-FUNCTION F) 'GENERIC-FUNCTION) (TYPEP (SYMBOL-FUNCTION F) 'GENERIC-FUNCTION)))
EQUAL-OK: (NIL T T T)
(LET ((F 'EGF-FUN)) (WHEN (FBOUNDP F) (FMAKUNBOUND F)) (LIST (FBOUNDP F) (TYPEP (ENSURE-GENERIC-FUNCTION F :LAMBDA-LIST '(A B C)) 'GENERIC-FUNCTION) (TYPEP (ENSURE-GENERIC-FUNCTION F :LAMBDA-LIST '(X Y)) 'GENERIC-FUNCTION) (TYPEP (SYMBOL-FUNCTION F) 'GENERIC-FUNCTION)))
EQUAL-OK: (NIL T T T)
(LET ((F 'EGF-FUN)) (WHEN (FBOUNDP F) (FMAKUNBOUND F)) (LIST (FBOUNDP F) (TYPEP (ENSURE-GENERIC-FUNCTION F :LAMBDA-LIST '(A B C)) 'GENERIC-FUNCTION) (TYPEP (EVAL `(DEFMETHOD ,F ((A T) (B T) (C T)) (LIST A B C))) 'STANDARD-METHOD)))
EQUAL-OK: (NIL T T)
(ENSURE-GENERIC-FUNCTION 'EGF-FUN :LAMBDA-LIST '(X Y))
[SIMPLE-ERROR]: #1=#<STANDARD-METHOD (#2=#<BUILT-IN-CLASS T> #2# #2#)> has 3, but #3=#<STANDARD-GENERIC-FUNCTION EGF-FUN> has 2 required parameters
EQL-OK: ERROR
(LET ((C1 (GENSYM)) (C2 (GENSYM))) (LET ((CLASS1 (EVAL `(DEFCLASS ,C1 (,C2) NIL)))) (IF (NOT (TYPEP CLASS1 'CLASS)) 1 (LET ((CLASS2 (EVAL `(DEFCLASS ,C2 NIL NIL)))) (IF (NOT (TYPEP CLASS2 'CLASS)) 2 (LET ((I1 (MAKE-INSTANCE C1)) (I2 (MAKE-INSTANCE C2))) (COND ((NOT (TYPEP I1 C1)) 3) ((NOT (TYPEP I1 CLASS1)) 4) ((NOT (TYPEP I1 C2)) 5) ((NOT (TYPEP I1 CLASS2)) 6) ((TYPEP I2 C1) 7) ((TYPEP I2 CLASS1) 8) ((NOT (TYPEP I2 C2)) 9) ((NOT (TYPEP I2 CLASS2)) 10) (T 'GOOD))))))))
EQL-OK: GOOD
(LET ((C1 (GENSYM)) (C2 (GENSYM)) (C3 (GENSYM))) (LET ((CLASS1 (EVAL `(DEFCLASS ,C1 (,C2 ,C3) NIL)))) (IF (NOT (TYPEP CLASS1 'CLASS)) 1 (LET ((CLASS2 (EVAL `(DEFCLASS ,C2 NIL NIL)))) (IF (NOT (TYPEP CLASS2 'CLASS)) 2 (LET ((CLASS3 (EVAL `(DEFCLASS ,C3 NIL NIL)))) (IF (NOT (TYPEP CLASS3 'CLASS)) 3 (LET ((I1 (MAKE-INSTANCE C1)) (I2 (MAKE-INSTANCE C2)) (I3 (MAKE-INSTANCE C3))) (COND ((NOT (TYPEP I1 C1)) 4) ((NOT (TYPEP I1 CLASS1)) 5) ((NOT (TYPEP I1 C2)) 6) ((NOT (TYPEP I1 CLASS2)) 7) ((NOT (TYPEP I1 C3)) 8) ((NOT (TYPEP I1 CLASS3)) 9) ((TYPEP I2 C1) 10) ((TYPEP I2 CLASS1) 11) ((TYPEP I3 C1) 12) ((TYPEP I3 CLASS1) 13) ((NOT (TYPEP I2 C2)) 14) ((NOT (TYPEP I2 CLASS2)) 15) ((NOT (TYPEP I3 C3)) 16) ((NOT (TYPEP I3 CLASS3)) 17) ((TYPEP I2 C3) 18) ((TYPEP I2 CLASS3) 19) ((TYPEP I3 C2) 20) ((TYPEP I3 CLASS2) 21) (T 'GOOD))))))))))
EQL-OK: GOOD
(LET ((C1 (GENSYM)) (C2 (GENSYM)) (C3 (GENSYM))) (LET ((CLASS1 (EVAL `(DEFCLASS ,C1 (,C2) NIL)))) (IF (NOT (TYPEP CLASS1 'CLASS)) 1 (LET ((CLASS2 (EVAL `(DEFCLASS ,C2 (,C3) NIL)))) (IF (NOT (TYPEP CLASS2 'CLASS)) 2 (LET ((CLASS3 (EVAL `(DEFCLASS ,C3 NIL NIL)))) (IF (NOT (TYPEP CLASS3 'CLASS)) 3 (LET ((I1 (MAKE-INSTANCE C1)) (I2 (MAKE-INSTANCE C2)) (I3 (MAKE-INSTANCE C3))) (COND ((NOT (TYPEP I1 C1)) 4) ((NOT (TYPEP I1 CLASS1)) 5) ((NOT (TYPEP I1 C2)) 6) ((NOT (TYPEP I1 CLASS2)) 7) ((NOT (TYPEP I1 C3)) 8) ((NOT (TYPEP I1 CLASS3)) 9) ((TYPEP I2 C1) 10) ((TYPEP I2 CLASS1) 11) ((TYPEP I3 C1) 12) ((TYPEP I3 CLASS1) 13) ((NOT (TYPEP I2 C2)) 14) ((NOT (TYPEP I2 CLASS2)) 15) ((NOT (TYPEP I3 C3)) 16) ((NOT (TYPEP I3 CLASS3)) 17) ((NOT (TYPEP I2 C3)) 18) ((NOT (TYPEP I2 CLASS3)) 19) ((TYPEP I3 C2) 20) ((TYPEP I3 CLASS2) 21) (T 'GOOD))))))))))
EQL-OK: GOOD
(BLOCK NIL (LET ((C1 (GENSYM)) (C2 (GENSYM)) (C3 (GENSYM)) (C4 (GENSYM)) (C5 (GENSYM))) (UNLESS (TYPEP (EVAL `(DEFCLASS ,C4 NIL NIL)) 'CLASS) (RETURN 1)) (UNLESS (TYPEP (EVAL `(DEFCLASS ,C5 NIL NIL)) 'CLASS) (RETURN 2)) (UNLESS (TYPEP (EVAL `(DEFCLASS ,C1 (,C2 ,C3) NIL)) 'CLASS) (RETURN 3)) (UNLESS (TYPEP (EVAL `(DEFCLASS ,C2 (,C4 ,C5) NIL)) 'CLASS) (RETURN 4)) (EVAL `(PROGN (DEFCLASS ,C3 (,C5 ,C4) NIL) (MAKE-INSTANCE ',C1)))))
[SIMPLE-ERROR]: DEFCLASS #1=#:G9108: inconsistent precedence graph, cycle (#2=#<STANDARD-CLASS #:G9111> #3=#<STANDARD-CLASS #:G9112>)
EQL-OK: ERROR
(PROGN (DEFCLASS CLASS-0203 NIL ((A :ALLOCATION :CLASS) (B :ALLOCATION :INSTANCE))) (DEFCLASS CLASS-0204 (CLASS-0203) (C D)) (LET ((C1 (MAKE-INSTANCE 'CLASS-0203)) (C2 (MAKE-INSTANCE 'CLASS-0204))) (LIST :BOUND (SLOT-BOUNDP C1 'A) (SLOT-BOUNDP C1 'B) (SLOT-BOUNDP C2 'A) (SLOT-BOUNDP C2 'B) (SLOT-BOUNDP C2 'C) (SLOT-BOUNDP C2 'D) (SETF (SLOT-VALUE C1 'A) 'X) :BOUND (SLOT-BOUNDP C1 'A) (SLOT-BOUNDP C1 'B) (SLOT-BOUNDP C2 'A) (SLOT-BOUNDP C2 'B) (SLOT-BOUNDP C2 'C) (SLOT-BOUNDP C2 'D) (SLOT-VALUE C1 'A) (SLOT-VALUE C2 'A) (EQ (SLOT-MAKUNBOUND C1 'A) C1) :BOUND (SLOT-BOUNDP C1 'A) (SLOT-BOUNDP C1 'B) (SLOT-BOUNDP C2 'A) (SLOT-BOUNDP C2 'B) (SLOT-BOUNDP C2 'C) (SLOT-BOUNDP C2 'D))))
EQUAL-OK: (:BOUND NIL NIL NIL NIL NIL NIL X :BOUND T NIL T NIL NIL NIL X X T :BOUND NIL NIL NIL NIL NIL NIL)
(PROGN (DEFCLASS CLASS-0206A NIL ((A :ALLOCATION :INSTANCE) (B :ALLOCATION :CLASS))) (DEFCLASS CLASS-0206B (CLASS-0206A) ((A :ALLOCATION :CLASS) (B :ALLOCATION :INSTANCE))) (LET ((C1 (MAKE-INSTANCE 'CLASS-0206A)) (C2 (MAKE-INSTANCE 'CLASS-0206B))) (LIST :BOUND (SLOT-BOUNDP C1 'A) (SLOT-BOUNDP C1 'B) (SLOT-BOUNDP C2 'A) (SLOT-BOUNDP C2 'B) (SETF (SLOT-VALUE C1 'A) 'X) (SETF (SLOT-VALUE C1 'B) 'Y) :BOUND (SLOT-BOUNDP C1 'A) (SLOT-BOUNDP C1 'B) (SLOT-BOUNDP C2 'A) (SLOT-BOUNDP C2 'B) :VALUE-1 (SLOT-VALUE C1 'A) (SLOT-VALUE C1 'B) (PROGN (SLOT-MAKUNBOUND C1 'A) (SLOT-MAKUNBOUND C1 'B) (SETF (SLOT-VALUE C2 'A) 'X)) (SETF (SLOT-VALUE C2 'B) 'Y) :BOUND (SLOT-BOUNDP C1 'A) (SLOT-BOUNDP C1 'B) (SLOT-BOUNDP C2 'A) (SLOT-BOUNDP C2 'B) :VALUE-2 (SLOT-VALUE C2 'A) (SLOT-VALUE C2 'B) (PROGN (SLOT-MAKUNBOUND C2 'A) (SLOT-MAKUNBOUND C2 'B) NIL))))
EQUAL-OK: (:BOUND NIL NIL NIL NIL X Y :BOUND T T NIL NIL :VALUE-1 X Y X Y :BOUND NIL NIL T T :VALUE-2 X Y NIL)
(LET* ((C (DEFCLASS REINIT-CLASS-01 NIL ((A :INITARG :A) (B :INITARG :B)))) (M (DEFMETHOD REINITIALIZE-INSTANCE :AFTER ((INSTANCE REINIT-CLASS-01) &REST INITARGS &KEY (X NIL X-P)) (DECLARE (IGNORE INITARGS)) (WHEN X-P (SETF (SLOT-VALUE INSTANCE 'A) X)) INSTANCE))) (EQ M (FIND-METHOD #'REINITIALIZE-INSTANCE '(:AFTER) (LIST C))))
EQL-OK: T
(LET* ((OBJ (MAKE-INSTANCE 'REINIT-CLASS-01)) (OBJ2 (REINITIALIZE-INSTANCE OBJ :A 1 :B 3))) (LIST (EQ OBJ OBJ2) (SLOT-VALUE OBJ2 'A) (SLOT-VALUE OBJ2 'B)))
EQUAL-OK: (T 1 3)
(LET* ((OBJ (MAKE-INSTANCE 'REINIT-CLASS-01 :A 10 :B 20)) (OBJ2 (REINITIALIZE-INSTANCE OBJ :X 3))) (LIST (EQ OBJ OBJ2) (SLOT-VALUE OBJ2 'A) (SLOT-VALUE OBJ2 'B)))
EQUAL-OK: (T 3 20)
(LET* ((OBJ (MAKE-INSTANCE 'REINIT-CLASS-01 :A 10 :B 20)) (OBJ2 (REINITIALIZE-INSTANCE OBJ :X 3 :X 100))) (LIST (EQ OBJ OBJ2) (SLOT-VALUE OBJ2 'A) (SLOT-VALUE OBJ2 'B)))
EQUAL-OK: (T 3 20)
(LET* ((OBJ (MAKE-INSTANCE 'REINIT-CLASS-01 :A 10 :B 20)) (OBJ2 (REINITIALIZE-INSTANCE OBJ :X 3 :GARBAGE 100))) (LIST (EQ OBJ OBJ2) (SLOT-VALUE OBJ2 'A) (SLOT-VALUE OBJ2 'B)))
[SIMPLE-KEYWORD-ERROR]: REINITIALIZE-INSTANCE: illegal keyword/value pair :GARBAGE, 100 in argument list.
The allowed keywords are #1=(:A :B :X)
EQL-OK: ERROR
(DEFGENERIC FOO126 (X Y) (:LAMBDA-LIST X))
[SIMPLE-SOURCE-PROGRAM-ERROR]: DEFGENERIC FOO126: invalid DEFGENERIC option #1=(:LAMBDA-LIST X)
EQL-OK: ERROR
(DEFGENERIC FOO127 (X Y) (:DECLARATIONS (OPTIMIZE (SPEED 3))))
[SIMPLE-SOURCE-PROGRAM-ERROR]: DEFGENERIC FOO127: invalid DEFGENERIC option #1=(:DECLARATIONS (OPTIMIZE (SPEED 3)))
EQL-OK: ERROR
(LET ((GF1 (DEFGENERIC NO-APP-METH-GF-01 NIL)) (GF2 (DEFGENERIC NO-APP-METH-GF-02 (X))) (GF3 (DEFGENERIC NO-APP-METH-GF-03 (X Y)))) (DEFMETHOD NO-APPLICABLE-METHOD ((X (EQL GF1)) &REST ARGS) (LIST 'NO-APPLICABLE-METHOD ARGS)) (DEFMETHOD NO-APPLICABLE-METHOD ((X (EQL GF2)) &REST ARGS) (LIST 'NO-APPLICABLE-METHOD ARGS)) (DEFMETHOD NO-APPLICABLE-METHOD ((X (EQL GF3)) &REST ARGS) (LIST 'NO-APPLICABLE-METHOD ARGS)) (LIST (NO-APP-METH-GF-01) (NO-APP-METH-GF-02 (CONS 'A 'B)) (NO-APP-METH-GF-03 (CONS 'A 'B) (CONS 'C 'D))))
EQUAL-OK: ((NO-APPLICABLE-METHOD NIL) (NO-APPLICABLE-METHOD ((A . B))) (NO-APPLICABLE-METHOD ((A . B) (C . D))))
(LET ((GF1 (DEFGENERIC NO-PRIM-METH-GF-01 NIL)) (GF2 (DEFGENERIC NO-PRIM-METH-GF-02 (X))) (GF3 (DEFGENERIC NO-PRIM-METH-GF-03 (X Y)))) (DEFMETHOD NO-PRIM-METH-GF-01 :AROUND NIL (LIST :AROUND (CALL-NEXT-METHOD))) (DEFMETHOD NO-PRIMARY-METHOD ((X (EQL GF1)) &REST ARGS) (LIST 'NO-PRIMARY-METHOD ARGS)) (DEFMETHOD NO-PRIM-METH-GF-02 :AROUND ((X T)) (LIST :AROUND X (CALL-NEXT-METHOD))) (DEFMETHOD NO-PRIMARY-METHOD ((X (EQL GF2)) &REST ARGS) (LIST 'NO-PRIMARY-METHOD ARGS)) (DEFMETHOD NO-PRIM-METH-GF-03 :AROUND ((X T) (Y T)) (LIST :AROUND X Y (CALL-NEXT-METHOD))) (DEFMETHOD NO-PRIMARY-METHOD ((X (EQL GF3)) &REST ARGS) (LIST 'NO-PRIMARY-METHOD ARGS)) (LIST (NO-PRIM-METH-GF-01) (NO-PRIM-METH-GF-02 (CONS 'A 'B)) (NO-PRIM-METH-GF-03 (CONS 'A 'B) (CONS 'C 'D))))
EQUAL-OK: ((NO-PRIMARY-METHOD NIL) (NO-PRIMARY-METHOD ((A . B))) (NO-PRIMARY-METHOD ((A . B) (C . D))))
(PROGN (DEFGENERIC TEST-MC-STANDARD (X) (:METHOD ((X STRING)) (CONS 'STRING (CALL-NEXT-METHOD))) (:METHOD ((X T)) X)) (LIST (TEST-MC-STANDARD 1) (TEST-MC-STANDARD "a")))
EQUAL-OK: (1 (STRING . "a"))
(PROGN (DEFGENERIC TEST-MC-STANDARD-BAD-QUALIFIERS (X Y)) (DEFMETHOD TEST-MC-STANDARD-BAD-QUALIFIERS ((X INTEGER) (Y INTEGER)) (+ X Y)) (DEFMETHOD TEST-MC-STANDARD-BAD-QUALIFIERS ((X FLOAT) (Y FLOAT)) (+ X Y)) (DEFMETHOD TEST-MC-STANDARD-BAD-QUALIFIERS :BEFFOR ((X FLOAT) (Y FLOAT)) (FORMAT T "x = ~S, y = ~S~%" X Y)) T)
[SIMPLE-PROGRAM-ERROR]: STANDARD method combination, used by #1=#<STANDARD-GENERIC-FUNCTION TEST-MC-STANDARD-BAD-QUALIFIERS>, allows no method qualifiers except (:BEFORE :AFTER :AROUND): #<STANDARD-METHOD :BEFFOR (#2=#<BUILT-IN-CLASS FLOAT> #2#)>
EQL-OK: ERROR
(PROGN (DEFGENERIC TEST-MC-STANDARD-BAD1 (X Y)) (DEFMETHOD TEST-MC-STANDARD-BAD1 ((X REAL) (Y REAL)) (+ X Y)) (DEFMETHOD TEST-MC-STANDARD-BAD1 :AFTER :BEFORE ((X INTEGER) (Y INTEGER)) (* X Y)) T)
[SIMPLE-PROGRAM-ERROR]: STANDARD method combination, used by #1=#<STANDARD-GENERIC-FUNCTION TEST-MC-STANDARD-BAD1>, does not allow more than one method qualifier on a method: #<STANDARD-METHOD :AFTER :BEFORE (#2=#<BUILT-IN-CLASS INTEGER> #2#)>
EQL-OK: ERROR
(PROGN (DEFGENERIC TEST-MC-STANDARD-BAD2 (X Y)) (DEFMETHOD TEST-MC-STANDARD-BAD2 ((X REAL) (Y REAL)) (+ X Y)) (DEFMETHOD TEST-MC-STANDARD-BAD2 :BEFORE ((X INTEGER) (Y INTEGER)) (FLOOR (CALL-NEXT-METHOD))) (TEST-MC-STANDARD-BAD2 3 4))
[SIMPLE-PROGRAM-ERROR]: #1=#<STANDARD-GENERIC-FUNCTION TEST-MC-STANDARD-BAD2>: CALL-NEXT-METHOD is invalid within :BEFORE methods
EQL-OK: ERROR
(PROGN (DEFGENERIC TEST-MC-STANDARD-BAD3 (X Y)) (DEFMETHOD TEST-MC-STANDARD-BAD3 ((X REAL) (Y REAL)) (+ X Y)) (DEFMETHOD TEST-MC-STANDARD-BAD3 :AFTER ((X INTEGER) (Y INTEGER)) (FLOOR (CALL-NEXT-METHOD))) (TEST-MC-STANDARD-BAD3 3 4))
[SIMPLE-PROGRAM-ERROR]: #1=#<STANDARD-GENERIC-FUNCTION TEST-MC-STANDARD-BAD3>: CALL-NEXT-METHOD is invalid within :AFTER methods
EQL-OK: ERROR
(PROGN (DEFGENERIC TEST-MC-STANDARD-BAD4 (X Y) (:METHOD-COMBINATION STANDARD :MOST-SPECIFIC-LAST)))
[SIMPLE-PROGRAM-ERROR]: DEFGENERIC TEST-MC-STANDARD-BAD4: The STANDARD method combination permits no options: (:MOST-SPECIFIC-LAST)
EQL-OK: ERROR
(PROGN (DEFGENERIC TEST-MC-PROGN (X S) (:METHOD-COMBINATION PROGN) (:METHOD PROGN ((X STRING) S) (VECTOR-PUSH-EXTEND 'STRING S)) (:METHOD PROGN ((X T) S) (VECTOR-PUSH-EXTEND 'T S)) (:METHOD :AROUND ((X NUMBER) S) (VECTOR-PUSH-EXTEND 'NUMBER S) (CALL-NEXT-METHOD))) (LIST (LET ((S (MAKE-ARRAY 10 :ADJUSTABLE T :FILL-POINTER 0))) (TEST-MC-PROGN 1 S) S) (LET ((S (MAKE-ARRAY 10 :ADJUSTABLE T :FILL-POINTER 0))) (TEST-MC-PROGN "a" S) S)))
EQUALP-OK: (#(NUMBER T) #(STRING T))
(PROGN (DEFGENERIC TEST-MC-APPEND-1 (X) (:METHOD-COMBINATION APPEND) (:METHOD ((X STRING)) (LIST (LENGTH X))) (:METHOD ((X VECTOR)) (LIST (ARRAY-ELEMENT-TYPE X)))) T)
[SIMPLE-PROGRAM-ERROR]: APPEND method combination, used by #<STANDARD-GENERIC-FUNCTION TEST-MC-APPEND-1>, does not allow less than one method qualifier on a method: #<STANDARD-METHOD (#1=#<BUILT-IN-CLASS STRING>)>
EQL-OK: ERROR
(PROGN (DEFGENERIC TEST-MC-APPEND-2 (X) (:METHOD-COMBINATION APPEND) (:METHOD APPEND ((X STRING)) (LIST (LENGTH X))) (:METHOD APPEND ((X VECTOR)) (LIST (TYPE-OF (AREF X 0)))) (:METHOD :AROUND ((X STRING)) (LIST #\" (CALL-NEXT-METHOD) #\")) (:METHOD :AROUND ((X VECTOR)) (COERCE (CALL-NEXT-METHOD) 'VECTOR))) (TEST-MC-APPEND-2 "abc"))
EQUALP-OK: (#\" #(3 STANDARD-CHAR) #\")
(PROGN (DEFGENERIC TEST-MC-APPEND-3 (X) (:METHOD-COMBINATION APPEND :MOST-SPECIFIC-LAST) (:METHOD APPEND ((X STRING)) (LIST (LENGTH X))) (:METHOD APPEND ((X VECTOR)) (LIST (TYPE-OF (AREF X 0)))) (:METHOD :AROUND ((X STRING)) (LIST #\" (CALL-NEXT-METHOD) #\")) (:METHOD :AROUND ((X VECTOR)) (COERCE (CALL-NEXT-METHOD) 'VECTOR))) (TEST-MC-APPEND-3 "abc"))
EQUALP-OK: (#\" #(STANDARD-CHAR 3) #\")
(DEFINE-METHOD-COMBINATION MC01 :DOCUMENTATION :OPERATOR)
[SIMPLE-SOURCE-PROGRAM-ERROR]: DEFINE-METHOD-COMBINATION MC01: :OPERATOR is not a string
EQL-OK: ERROR
(DEFINE-METHOD-COMBINATION MC02 :DOCUMENTATION NIL)
[SIMPLE-SOURCE-PROGRAM-ERROR]: DEFINE-METHOD-COMBINATION MC02: NIL is not a string
EQL-OK: ERROR
(DEFINE-METHOD-COMBINATION MC03 :DOCUMENTATION "foo" :DOCUMENTATION "bar")
[SIMPLE-SOURCE-PROGRAM-ERROR]: DEFINE-METHOD-COMBINATION MC03: option :DOCUMENTATION may only be given once
EQL-OK: ERROR
(DEFINE-METHOD-COMBINATION MC04 :IDENTITY-WITH-ONE-ARGUMENT NIL :OPERATOR LIST :DOCUMENTATION)
[SIMPLE-SOURCE-PROGRAM-ERROR]: DEFINE-METHOD-COMBINATION MC04: options must come in pairs
EQL-OK: ERROR
(DEFINE-METHOD-COMBINATION MC05 :IDENTITY-WITH-ONE-ARGUMENT NIL :OPERATOR LIST :DOCUMENTATION "test")
EQL-OK: MC05
(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 #<METHOD-COMBINATION MC05 #x000010000032DD81>: 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 #<METHOD-COMBINATION MC05 #x000010000032DD81>: 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 #<METHOD-COMBINATION MC05 #x000010000032DD81>: APPLY: too many arguments given to #<COMPILED-FUNCTION CLOS::METHOD-COMBINATION-OPTION-CHECKER>
EQL-OK: ERROR
(DEFINE-METHOD-COMBINATION MC06 :IDENTITY-WITH-ONE-ARGUMENT T :OPERATOR LIST :DOCUMENTATION "test")
EQL-OK: MC06
(PROGN (DEFGENERIC TEST-MC06-1 (X) (:METHOD MC06 ((X REAL)) 'REAL) (:METHOD-COMBINATION MC06 :MOST-SPECIFIC-LAST)) (TEST-MC06-1 3))
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=#<STANDARD-GENERIC-FUNCTION MC-TEST-PIQ> applied to argument list NIL:
While computing the effective method through #<METHOD-COMBINATION EXAMPLE-METHOD-COMBINATION #x00001000003C4039>:
Impossible to combine the methods:
Method #2=#<STANDARD-METHOD 1 (#3=#<BUILT-IN-CLASS T> #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
(PROGN (DEFINE-METHOD-COMBINATION W-ARGS NIL ((METHOD-LIST *)) (:ARGUMENTS ARG1 ARG2 &AUX (EXTRA :EXTRA)) `(PROGN ,@(MAPCAR #'(LAMBDA (METHOD) `(CALL-METHOD ,METHOD)) METHOD-LIST))) (DEFGENERIC MC-TEST-W-ARGS (P1 P2 S) (:METHOD-COMBINATION W-ARGS) (:METHOD ((P1 NUMBER) (P2 T) S) (VECTOR-PUSH-EXTEND (LIST 'NUMBER P1 P2) S)) (:METHOD ((P1 STRING) (P2 T) S) (VECTOR-PUSH-EXTEND (LIST 'STRING P1 P2) S)) (:METHOD ((P1 T) (P2 T) S) (VECTOR-PUSH-EXTEND (LIST T P1 P2) S))) (LET ((S (MAKE-ARRAY 10 :ADJUSTABLE T :FILL-POINTER 0))) (MC-TEST-W-ARGS 1 2 S) S))
WARNING: in MC-TEST-W-ARGS-<EMF-2>-1 : variable ARG1 is not used.
         MisspelledEQUALP-OK: #((NUMBER 1 2) (T 1 2))
(DEFINE-METHOD-COMBINATION MC11 NIL)
[SIMPLE-SOURCE-PROGRAM-ERROR]: DEFINE-METHOD-COMBINATION MC11: invalid syntax for long form: #1=(DEFINE-METHOD-COMBINATION MC11 . #2=(NIL))
EQL-OK: ERROR
(DEFINE-METHOD-COMBINATION MC12 NIL NIL)
EQL-OK: MC12
(DEFINE-METHOD-COMBINATION MC13 NIL NIL (:ARGUMENTS ORDER &AUX &KEY))
[SIMPLE-SOURCE-PROGRAM-ERROR]: DEFINE-METHOD-COMBINATION MC13: invalid :ARGUMENTS lambda-list: Lambda list marker &KEY not allowed here.
EQL-OK: ERROR
(DEFINE-METHOD-COMBINATION MC14 NIL NIL (:ARGUMENTS &WHOLE))
[SIMPLE-SOURCE-PROGRAM-ERROR]: DEFINE-METHOD-COMBINATION MC14: invalid :ARGUMENTS lambda-list: Missing &WHOLE parameter in lambda list #1=(&WHOLE)
EQL-OK: ERROR
(DEFINE-METHOD-COMBINATION MC15 NIL NIL (:ARGUMENTS ORDER))
EQL-OK: MC15
(DEFINE-METHOD-COMBINATION MC16 NIL NIL (:GENERIC-FUNCTION))
[SIMPLE-SOURCE-PROGRAM-ERROR]: DEFINE-METHOD-COMBINATION MC16: Invalid syntax for :GENERIC-FUNCTION option: #1=(:GENERIC-FUNCTION)
EQL-OK: ERROR
(DEFINE-METHOD-COMBINATION MC17 NIL NIL (:GENERIC-FUNCTION GF1 GF2))
[SIMPLE-SOURCE-PROGRAM-ERROR]: DEFINE-METHOD-COMBINATION MC17: Invalid syntax for :GENERIC-FUNCTION option: #1=(:GENERIC-FUNCTION GF1 GF2)
 or missing IGNORE declaration?
WARNING: in MC-TEST-W-ARGS-<EMF-2>-1 : variable ARG2 is not used.
         Misspelled or missing IGNORE declaration?
WARNING: in MC-TEST-W-ARGS-<EMF-2>-1 : variable EXTRA is not used.
         Misspelled or missing IGNORE declaration?
EQL-OK: ERROR
(DEFINE-METHOD-COMBINATION MC18 NIL NIL (:GENERIC-FUNCTION (GF)))
[SIMPLE-SOURCE-PROGRAM-ERROR]: DEFINE-METHOD-COMBINATION MC18: Invalid syntax for :GENERIC-FUNCTION option: #1=(:GENERIC-FUNCTION (GF))
EQL-OK: ERROR
(DEFINE-METHOD-COMBINATION MC19 NIL NIL (:GENERIC-FUNCTION GF))
EQL-OK: MC19
(DEFINE-METHOD-COMBINATION MC20 NIL (A))
[SIMPLE-SOURCE-PROGRAM-ERROR]: DEFINE-METHOD-COMBINATION MC20: invalid method group specifier A: Not a list of length at least 2
EQL-OK: ERROR
(DEFINE-METHOD-COMBINATION MC21 NIL ((3)))
[SIMPLE-SOURCE-PROGRAM-ERROR]: DEFINE-METHOD-COMBINATION MC21: invalid method group specifier #1=(3): Not a list of length at least 2
EQL-OK: ERROR
(DEFINE-METHOD-COMBINATION MC22 NIL ((A)))
[SIMPLE-SOURCE-PROGRAM-ERROR]: DEFINE-METHOD-COMBINATION MC22: invalid method group specifier #1=(A): Not a list of length at least 2
EQL-OK: ERROR
(DEFINE-METHOD-COMBINATION MC23 NIL ((A *)))
EQL-OK: MC23
(DEFINE-METHOD-COMBINATION MC24 NIL ((A *) (B *)) `(PROGN (CALL-METHOD ,(FIRST A)) (CALL-METHOD ,(FIRST B))))
EQL-OK: MC24
(PROGN (DEFINE-METHOD-COMBINATION MC25 NIL ((ALL NIL)) `(LIST 'RESULT ,@(MAPCAR #'(LAMBDA (METHOD) `(CALL-METHOD ,METHOD)) ALL))) (DEFGENERIC TEST-MC25 (X) (:METHOD-COMBINATION MC25)) (TEST-MC25 7))
[METHOD-CALL-ERROR]: NO-APPLICABLE-METHOD: When calling #1=#<STANDARD-GENERIC-FUNCTION TEST-MC25> with arguments #2=(7), no method is applicable.
EQL-OK: ERROR
(PROGN (DEFINE-METHOD-COMBINATION MC26 NIL ((NORMAL NIL) (IGNORED (:IGNORE))) `(LIST 'RESULT ,@(MAPCAR #'(LAMBDA (METHOD) `(CALL-METHOD ,METHOD)) NORMAL))) (DEFGENERIC TEST-MC26 (X) (:METHOD-COMBINATION MC26) (:METHOD :IGNORE ((X NUMBER)) (/ 0))) (TEST-MC26 7))
EQUAL-OK: (RESULT)
(PROGN (DEFINE-METHOD-COMBINATION MC27 NIL ((NORMAL NIL) (IGNORED (:IGNORE :UNUSED))) `(LIST 'RESULT ,@(MAPCAR #'(LAMBDA (METHOD) `(CALL-METHOD ,METHOD)) NORMAL))) (DEFGENERIC TEST-MC27 (X) (:METHOD-COMBINATION MC27) (:METHOD :IGNORE ((X NUMBER)) (/ 0))) (TEST-MC27 7))
[SIMPLE-PROGRAM-ERROR]: MC27 method combination, used by #<STANDARD-GENERIC-FUNCTION TEST-MC27>, does not allow the method qualifiers #1=(:IGNORE): #<STANDARD-METHOD :IGNORE (#2=#<BUILT-IN-CLASS NUMBER>)>
EQL-OK: ERROR
(PROGN (DEFINE-METHOD-COMBINATION MC28 NIL ((NORMAL NIL) (IGNORED (:IGNORE) (:UNUSED))) `(LIST 'RESULT ,@(MAPCAR #'(LAMBDA (METHOD) `(CALL-METHOD ,METHOD)) NORMAL))) (DEFGENERIC TEST-MC28 (X) (:METHOD-COMBINATION MC28) (:METHOD :IGNORE ((X NUMBER)) (/ 0))) (TEST-MC28 7))
EQUAL-OK: (RESULT)
(PROGN (DEFINE-METHOD-COMBINATION MC29 NIL ((IGNORED (:IGNORE) (:UNUSED)) (OTHER *)) `(LIST 'RESULT ,@(MAPCAR #'(LAMBDA (METHOD) `(CALL-METHOD ,METHOD)) OTHER))) (DEFGENERIC TEST-MC29 (X) (:METHOD-COMBINATION MC29) (:METHOD :IGNORE ((X NUMBER)) (/ 0))) (TEST-MC29 7))
EQUAL-OK: (RESULT)
(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 #<METHOD-COMBINATION MC50 #x0000100000456B29>: 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))
EQUAL-OK: (XYZ "foo" RESULT (7) 7 NIL NIL)
(PROGN (DEFGENERIC TEST-MC50-3 (X Y Z) (:METHOD-COMBINATION MC50 XYZ "bar") (:METHOD ((X T) (Y T) (Z T)) (/ 0))) (TEST-MC50-3 'A 'B 'C))
EQUAL-OK: (XYZ "bar" RESULT (A B C) A B NIL)
(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 #<METHOD-COMBINATION MC51 #x0000100000490AA1>: 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))
EQUAL-OK: ("xyz" NIL NIL RESULT (7) 7 NIL NIL)
(PROGN (DEFGENERIC TEST-MC51-3 (X) (:METHOD-COMBINATION MC51 "xyz" "uvw") (:METHOD ((X INTEGER)) (/ 0))) (TEST-MC51-3 7))
EQUAL-OK: ("xyz" "uvw" NIL RESULT (7) 7 NIL NIL)
(PROGN (DEFGENERIC TEST-MC51-4 (X) (:METHOD-COMBINATION MC51 "xyz" "uvw" :FOO :BAR) (:METHOD ((X INTEGER)) (/ 0))) (TEST-MC51-4 7))
EQUAL-OK: ("xyz" "uvw" (:FOO :BAR) RESULT (7) 7 NIL NIL)
(PROGN (DEFGENERIC TEST-MC51-5 (X &KEY TEST TEST-NOT KEY PREDICATE) (:METHOD-COMBINATION MC51 "xyz" "uvw" :FOO :BAR) (:METHOD ((X INTEGER) &KEY PREDICATE TEST TEST-NOT KEY) (/ 0))) (TEST-MC51-5 7 :KEY 'FIRST :TEST-NOT 'EQUAL))
EQUAL-OK: ("xyz" "uvw" (:FOO :BAR) RESULT (7 :KEY FIRST :TEST-NOT EQUAL) 7 NIL EQUAL)
(DEFINE-METHOD-COMBINATION MC60 (OPT1 &OPTIONAL (OPT2 "def")) ((ALL *)) (:ARGUMENTS) `(LIST ',OPT1 ',OPT2 'RESULT (CALL-METHOD ,(FIRST ALL))))
EQL-OK: MC60
(PROGN (DEFGENERIC TEST-MC60-1 NIL (:METHOD-COMBINATION MC60 "xyz") (:METHOD NIL 'NIL)) (TEST-MC60-1))
EQUAL-OK: ("xyz" "def" RESULT NIL)
(PROGN (DEFGENERIC TEST-MC60-2 (X Y) (:METHOD-COMBINATION MC60 "xyz") (:METHOD (X Y) (LIST X Y))) (TEST-MC60-2 'A 'B))
EQUAL-OK: ("xyz" "def" RESULT (A B))
(PROGN (DEFGENERIC TEST-MC60-3 (&OPTIONAL X Y) (:METHOD-COMBINATION MC60 "xyz") (:METHOD (&OPTIONAL X Y) (LIST X Y))) (TEST-MC60-3 'A))
EQUAL-OK: ("xyz" "def" RESULT (A NIL))
(PROGN (DEFGENERIC TEST-MC60-4 (&REST X) (:METHOD-COMBINATION MC60 "xyz") (:METHOD (&REST X) X)) (TEST-MC60-4 'A 'B))
EQUAL-OK: ("xyz" "def" RESULT (A B))
(DEFINE-METHOD-COMBINATION MC61 (OPT1 &OPTIONAL (OPT2 "def")) ((ALL *)) (:ARGUMENTS A1 A2) `(LIST ',OPT1 ',OPT2 'RESULT ,A1 ,A2 (CALL-METHOD ,(FIRST ALL))))
EQL-OK: MC61
(PROGN (DEFGENERIC TEST-MC61-1 (X) (:METHOD-COMBINATION MC61 "xyz") (:METHOD (X) (LIST X))) (TEST-MC61-1 'A))
EQUAL-OK: ("xyz" "def" RESULT A NIL (A))
(PROGN (DEFGENERIC TEST-MC61-2 (X Y) (:METHOD-COMBINATION MC61 "xyz") (:METHOD (X Y) (LIST X Y))) (TEST-MC61-2 'A 'B))
EQUAL-OK: ("xyz" "def" RESULT A B (A B))
(PROGN (DEFGENERIC TEST-MC61-3 (X Y Z) (:METHOD-COMBINATION MC61 "xyz") (:METHOD (X Y Z) (LIST X Y Z))) (TEST-MC61-3 'A 'B 'C))
EQUAL-OK: ("xyz" "def" RESULT A B (A B C))
(PROGN (DEFGENERIC TEST-MC61-4 (X &OPTIONAL Y Z) (:METHOD-COMBINATION MC61 "xyz") (:METHOD (X &OPTIONAL Y Z) (LIST X Y Z))) (LIST (TEST-MC61-4 'A) (TEST-MC61-4 'A 'B) (TEST-MC61-4 'A 'B 'C)))
EQUAL-OK: (("xyz" "def" RESULT A NIL (A NIL NIL)) ("xyz" "def" RESULT A NIL (A B NIL)) ("xyz" "def" RESULT A NIL (A B C)))
(PROGN (DEFGENERIC TEST-MC61-5 (X Y &OPTIONAL Z U) (:METHOD-COMBINATION MC61 "xyz") (:METHOD (X Y &OPTIONAL Z U) (LIST X Y Z U))) (LIST (TEST-MC61-5 'A 'B) (TEST-MC61-5 'A 'B 'C) (TEST-MC61-5 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT A B (A B NIL NIL)) ("xyz" "def" RESULT A B (A B C NIL)) ("xyz" "def" RESULT A B (A B C D)))
(PROGN (DEFGENERIC TEST-MC61-6 (X Y Z &OPTIONAL U V) (:METHOD-COMBINATION MC61 "xyz") (:METHOD (X Y Z &OPTIONAL U V) (LIST X Y Z U V))) (LIST (TEST-MC61-6 'A 'B 'C) (TEST-MC61-6 'A 'B 'C 'D) (TEST-MC61-6 'A 'B 'C 'D 'E)))
EQUAL-OK: (("xyz" "def" RESULT A B (A B C NIL NIL)) ("xyz" "def" RESULT A B (A B C D NIL)) ("xyz" "def" RESULT A B (A B C D E)))
(PROGN (DEFGENERIC TEST-MC61-7 (X &REST Y) (:METHOD-COMBINATION MC61 "xyz") (:METHOD (X &REST Y) (LIST* X Y))) (LIST (TEST-MC61-7 'A) (TEST-MC61-7 'A 'B) (TEST-MC61-7 'A 'B 'C)))
EQUAL-OK: (("xyz" "def" RESULT A NIL (A)) ("xyz" "def" RESULT A NIL (A B)) ("xyz" "def" RESULT A NIL (A B C)))
(PROGN (DEFGENERIC TEST-MC61-8 (X Y &REST Z) (:METHOD-COMBINATION MC61 "xyz") (:METHOD (X Y &REST Z) (LIST* X Y Z))) (LIST (TEST-MC61-8 'A 'B) (TEST-MC61-8 'A 'B 'C) (TEST-MC61-8 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT A B (A B)) ("xyz" "def" RESULT A B (A B C)) ("xyz" "def" RESULT A B (A B C D)))
(PROGN (DEFGENERIC TEST-MC61-9 (X Y Z &REST U) (:METHOD-COMBINATION MC61 "xyz") (:METHOD (X Y Z &REST U) (LIST* X Y Z U))) (LIST (TEST-MC61-9 'A 'B 'C) (TEST-MC61-9 'A 'B 'C 'D) (TEST-MC61-9 'A 'B 'C 'D 'E)))
EQUAL-OK: (("xyz" "def" RESULT A B (A B C)) ("xyz" "def" RESULT A B (A B C D)) ("xyz" "def" RESULT A B (A B C D E)))
(DEFINE-METHOD-COMBINATION MC62 (OPT1 &OPTIONAL (OPT2 "def")) ((ALL *)) (:ARGUMENTS &OPTIONAL (O1 'DEF1) (O2 'DEF2)) `(LIST ',OPT1 ',OPT2 'RESULT ,O1 ,O2 (CALL-METHOD ,(FIRST ALL))))
EQL-OK: MC62
(PROGN (DEFGENERIC TEST-MC62-1 (X) (:METHOD-COMBINATION MC62 "xyz") (:METHOD (X) (LIST X))) (TEST-MC62-1 'A))
EQUAL-OK: ("xyz" "def" RESULT DEF1 DEF2 (A))
(PROGN (DEFGENERIC TEST-MC62-2 (X &OPTIONAL Y) (:METHOD-COMBINATION MC62 "xyz") (:METHOD (X &OPTIONAL Y) (LIST X Y))) (LIST (TEST-MC62-2 'A) (TEST-MC62-2 'A 'B)))
EQUAL-OK: (("xyz" "def" RESULT DEF1 DEF2 (A NIL)) ("xyz" "def" RESULT B DEF2 (A B)))
(PROGN (DEFGENERIC TEST-MC62-3 (X &OPTIONAL Y Z) (:METHOD-COMBINATION MC62 "xyz") (:METHOD (X &OPTIONAL Y Z) (LIST X Y Z))) (LIST (TEST-MC62-3 'A) (TEST-MC62-3 'A 'B) (TEST-MC62-3 'A 'B 'C)))
EQUAL-OK: (("xyz" "def" RESULT DEF1 DEF2 (A NIL NIL)) ("xyz" "def" RESULT B DEF2 (A B NIL)) ("xyz" "def" RESULT B C (A B C)))
(PROGN (DEFGENERIC TEST-MC62-4 (X &OPTIONAL Y Z U) (:METHOD-COMBINATION MC62 "xyz") (:METHOD (X &OPTIONAL Y Z U) (LIST X Y Z U))) (LIST (TEST-MC62-4 'A) (TEST-MC62-4 'A 'B) (TEST-MC62-4 'A 'B 'C) (TEST-MC62-4 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT DEF1 DEF2 (A NIL NIL NIL)) ("xyz" "def" RESULT B DEF2 (A B NIL NIL)) ("xyz" "def" RESULT B C (A B C NIL)) ("xyz" "def" RESULT B C (A B C D)))
(PROGN (DEFGENERIC TEST-MC62-5 (X &REST Y) (:METHOD-COMBINATION MC62 "xyz") (:METHOD (X &REST Y) (LIST* X Y))) (LIST (TEST-MC62-5 'A) (TEST-MC62-5 'A 'B) (TEST-MC62-5 'A 'B 'C)))
EQUAL-OK: (("xyz" "def" RESULT DEF1 DEF2 (A)) ("xyz" "def" RESULT DEF1 DEF2 (A B)) ("xyz" "def" RESULT DEF1 DEF2 (A B C)))
(PROGN (DEFGENERIC TEST-MC62-6 (X &OPTIONAL Y &REST Z) (:METHOD-COMBINATION MC62 "xyz") (:METHOD (X &OPTIONAL Y &REST Z) (LIST* X Y Z))) (LIST (TEST-MC62-6 'A) (TEST-MC62-6 'A 'B) (TEST-MC62-6 'A 'B 'C)))
EQUAL-OK: (("xyz" "def" RESULT DEF1 DEF2 (A NIL)) ("xyz" "def" RESULT B DEF2 (A B)) ("xyz" "def" RESULT B DEF2 (A B C)))
(PROGN (DEFGENERIC TEST-MC62-7 (X &OPTIONAL Y Z &REST U) (:METHOD-COMBINATION MC62 "xyz") (:METHOD (X &OPTIONAL Y Z &REST U) (LIST* X Y Z U))) (LIST (TEST-MC62-7 'A) (TEST-MC62-7 'A 'B) (TEST-MC62-7 'A 'B 'C) (TEST-MC62-7 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT DEF1 DEF2 (A NIL NIL)) ("xyz" "def" RESULT B DEF2 (A B NIL)) ("xyz" "def" RESULT B C (A B C)) ("xyz" "def" RESULT B C (A B C D)))
(DEFINE-METHOD-COMBINATION MC63 (OPT1 &OPTIONAL (OPT2 "def")) ((ALL *)) (:ARGUMENTS &REST R) `(LIST ',OPT1 ',OPT2 'RESULT ,R (CALL-METHOD ,(FIRST ALL))))
EQL-OK: MC63
(PROGN (DEFGENERIC TEST-MC63-1 NIL (:METHOD-COMBINATION MC63 "xyz") (:METHOD NIL 'NIL)) (TEST-MC63-1))
EQUAL-OK: ("xyz" "def" RESULT NIL NIL)
(PROGN (DEFGENERIC TEST-MC63-2 (X Y) (:METHOD-COMBINATION MC63 "xyz") (:METHOD (X Y) (LIST X Y))) (TEST-MC63-2 'A 'B))
EQUAL-OK: ("xyz" "def" RESULT NIL (A B))
(PROGN (DEFGENERIC TEST-MC63-3 (&OPTIONAL X Y) (:METHOD-COMBINATION MC63 "xyz") (:METHOD (&OPTIONAL X Y) (LIST X Y))) (TEST-MC63-3 'A))
EQUAL-OK: ("xyz" "def" RESULT NIL (A NIL))
(PROGN (DEFGENERIC TEST-MC63-4 (&REST X) (:METHOD-COMBINATION MC63 "xyz") (:METHOD (&REST X) X)) (TEST-MC63-4 'A 'B))
EQUAL-OK: ("xyz" "def" RESULT (A B) (A B))
(DEFINE-METHOD-COMBINATION MC64 (OPT1 &OPTIONAL (OPT2 "def")) ((ALL *)) (:ARGUMENTS A1 A2 &OPTIONAL (O1 'DEF1) (O2 'DEF2)) `(LIST ',OPT1 ',OPT2 'RESULT ,A1 ,A2 ,O1 ,O2 (CALL-METHOD ,(FIRST ALL))))
EQL-OK: MC64
(PROGN (DEFGENERIC TEST-MC64-1 NIL (:METHOD-COMBINATION MC64 "xyz") (:METHOD NIL 'NIL)) (TEST-MC64-1))
EQUAL-OK: ("xyz" "def" RESULT NIL NIL DEF1 DEF2 NIL)
(PROGN (DEFGENERIC TEST-MC64-2 (X) (:METHOD-COMBINATION MC64 "xyz") (:METHOD (X) (LIST X))) (TEST-MC64-2 'A))
EQUAL-OK: ("xyz" "def" RESULT A NIL DEF1 DEF2 (A))
(PROGN (DEFGENERIC TEST-MC64-3 (X Y) (:METHOD-COMBINATION MC64 "xyz") (:METHOD (X Y) (LIST X Y))) (TEST-MC64-3 'A 'B))
EQUAL-OK: ("xyz" "def" RESULT A B DEF1 DEF2 (A B))
(PROGN (DEFGENERIC TEST-MC64-4 (X Y Z) (:METHOD-COMBINATION MC64 "xyz") (:METHOD (X Y Z) (LIST X Y Z))) (TEST-MC64-4 'A 'B 'C))
EQUAL-OK: ("xyz" "def" RESULT A B DEF1 DEF2 (A B C))
(PROGN (DEFGENERIC TEST-MC64-5 (X &OPTIONAL Y) (:METHOD-COMBINATION MC64 "xyz") (:METHOD (X &OPTIONAL Y) (LIST X Y))) (LIST (TEST-MC64-5 'A) (TEST-MC64-5 'A 'B)))
EQUAL-OK: (("xyz" "def" RESULT A NIL DEF1 DEF2 (A NIL)) ("xyz" "def" RESULT A NIL B DEF2 (A B)))
(PROGN (DEFGENERIC TEST-MC64-6 (X Y &OPTIONAL Z) (:METHOD-COMBINATION MC64 "xyz") (:METHOD (X Y &OPTIONAL Z) (LIST X Y Z))) (LIST (TEST-MC64-6 'A 'B) (TEST-MC64-6 'A 'B 'C)))
EQUAL-OK: (("xyz" "def" RESULT A B DEF1 DEF2 (A B NIL)) ("xyz" "def" RESULT A B C DEF2 (A B C)))
(PROGN (DEFGENERIC TEST-MC64-7 (X Y Z &OPTIONAL U) (:METHOD-COMBINATION MC64 "xyz") (:METHOD (X Y Z &OPTIONAL U) (LIST X Y Z U))) (LIST (TEST-MC64-7 'A 'B 'C) (TEST-MC64-7 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT A B DEF1 DEF2 (A B C NIL)) ("xyz" "def" RESULT A B D DEF2 (A B C D)))
(PROGN (DEFGENERIC TEST-MC64-8 (X &OPTIONAL Y Z) (:METHOD-COMBINATION MC64 "xyz") (:METHOD (X &OPTIONAL Y Z) (LIST X Y Z))) (LIST (TEST-MC64-8 'A) (TEST-MC64-8 'A 'B) (TEST-MC64-8 'A 'B 'C)))
EQUAL-OK: (("xyz" "def" RESULT A NIL DEF1 DEF2 (A NIL NIL)) ("xyz" "def" RESULT A NIL B DEF2 (A B NIL)) ("xyz" "def" RESULT A NIL B C (A B C)))
(PROGN (DEFGENERIC TEST-MC64-9 (X Y &OPTIONAL Z U) (:METHOD-COMBINATION MC64 "xyz") (:METHOD (X Y &OPTIONAL Z U) (LIST X Y Z U))) (LIST (TEST-MC64-9 'A 'B) (TEST-MC64-9 'A 'B 'C) (TEST-MC64-9 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT A B DEF1 DEF2 (A B NIL NIL)) ("xyz" "def" RESULT A B C DEF2 (A B C NIL)) ("xyz" "def" RESULT A B C D (A B C D)))
(PROGN (DEFGENERIC TEST-MC64-10 (X Y Z &OPTIONAL U V) (:METHOD-COMBINATION MC64 "xyz") (:METHOD (X Y Z &OPTIONAL U V) (LIST X Y Z U V))) (LIST (TEST-MC64-10 'A 'B 'C) (TEST-MC64-10 'A 'B 'C 'D) (TEST-MC64-10 'A 'B 'C 'D 'E)))
EQUAL-OK: (("xyz" "def" RESULT A B DEF1 DEF2 (A B C NIL NIL)) ("xyz" "def" RESULT A B D DEF2 (A B C D NIL)) ("xyz" "def" RESULT A B D E (A B C D E)))
(PROGN (DEFGENERIC TEST-MC64-11 (X &OPTIONAL Y Z U) (:METHOD-COMBINATION MC64 "xyz") (:METHOD (X &OPTIONAL Y Z U) (LIST X Y Z U))) (LIST (TEST-MC64-11 'A) (TEST-MC64-11 'A 'B) (TEST-MC64-11 'A 'B 'C) (TEST-MC64-11 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT A NIL DEF1 DEF2 (A NIL NIL NIL)) ("xyz" "def" RESULT A NIL B DEF2 (A B NIL NIL)) ("xyz" "def" RESULT A NIL B C (A B C NIL)) ("xyz" "def" RESULT A NIL B C (A B C D)))
(PROGN (DEFGENERIC TEST-MC64-12 (X Y &OPTIONAL Z U V) (:METHOD-COMBINATION MC64 "xyz") (:METHOD (X Y &OPTIONAL Z U V) (LIST X Y Z U V))) (LIST (TEST-MC64-12 'A 'B) (TEST-MC64-12 'A 'B 'C) (TEST-MC64-12 'A 'B 'C 'D) (TEST-MC64-12 'A 'B 'C 'D 'E)))
EQUAL-OK: (("xyz" "def" RESULT A B DEF1 DEF2 (A B NIL NIL NIL)) ("xyz" "def" RESULT A B C DEF2 (A B C NIL NIL)) ("xyz" "def" RESULT A B C D (A B C D NIL)) ("xyz" "def" RESULT A B C D (A B C D E)))
(PROGN (DEFGENERIC TEST-MC64-13 (X Y Z &OPTIONAL U V W) (:METHOD-COMBINATION MC64 "xyz") (:METHOD (X Y Z &OPTIONAL U V W) (LIST X Y Z U V W))) (LIST (TEST-MC64-13 'A 'B 'C) (TEST-MC64-13 'A 'B 'C 'D) (TEST-MC64-13 'A 'B 'C 'D 'E) (TEST-MC64-13 'A 'B 'C 'D 'E 'F)))
EQUAL-OK: (("xyz" "def" RESULT A B DEF1 DEF2 (A B C NIL NIL NIL)) ("xyz" "def" RESULT A B D DEF2 (A B C D NIL NIL)) ("xyz" "def" RESULT A B D E (A B C D E NIL)) ("xyz" "def" RESULT A B D E (A B C D E F)))
(PROGN (DEFGENERIC TEST-MC64-14 (X &REST Y) (:METHOD-COMBINATION MC64 "xyz") (:METHOD (X &REST Y) (LIST* X Y))) (LIST (TEST-MC64-14 'A) (TEST-MC64-14 'A 'B) (TEST-MC64-14 'A 'B 'C)))
EQUAL-OK: (("xyz" "def" RESULT A NIL DEF1 DEF2 (A)) ("xyz" "def" RESULT A NIL DEF1 DEF2 (A B)) ("xyz" "def" RESULT A NIL DEF1 DEF2 (A B C)))
(PROGN (DEFGENERIC TEST-MC64-15 (X Y &REST Z) (:METHOD-COMBINATION MC64 "xyz") (:METHOD (X Y &REST Z) (LIST* X Y Z))) (LIST (TEST-MC64-15 'A 'B) (TEST-MC64-15 'A 'B 'C) (TEST-MC64-15 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT A B DEF1 DEF2 (A B)) ("xyz" "def" RESULT A B DEF1 DEF2 (A B C)) ("xyz" "def" RESULT A B DEF1 DEF2 (A B C D)))
(PROGN (DEFGENERIC TEST-MC64-16 (X Y Z &REST U) (:METHOD-COMBINATION MC64 "xyz") (:METHOD (X Y Z &REST U) (LIST* X Y Z U))) (LIST (TEST-MC64-16 'A 'B 'C) (TEST-MC64-16 'A 'B 'C 'D) (TEST-MC64-16 'A 'B 'C 'D 'E)))
EQUAL-OK: (("xyz" "def" RESULT A B DEF1 DEF2 (A B C)) ("xyz" "def" RESULT A B DEF1 DEF2 (A B C D)) ("xyz" "def" RESULT A B DEF1 DEF2 (A B C D E)))
(PROGN (DEFGENERIC TEST-MC64-17 (X &OPTIONAL Y &REST Z) (:METHOD-COMBINATION MC64 "xyz") (:METHOD (X &OPTIONAL Y &REST Z) (LIST* X Y Z))) (LIST (TEST-MC64-17 'A) (TEST-MC64-17 'A 'B) (TEST-MC64-17 'A 'B 'C) (TEST-MC64-17 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT A NIL DEF1 DEF2 (A NIL)) ("xyz" "def" RESULT A NIL B DEF2 (A B)) ("xyz" "def" RESULT A NIL B DEF2 (A B C)) ("xyz" "def" RESULT A NIL B DEF2 (A B C D)))
(PROGN (DEFGENERIC TEST-MC64-18 (X &OPTIONAL Y Z &REST U) (:METHOD-COMBINATION MC64 "xyz") (:METHOD (X &OPTIONAL Y Z &REST U) (LIST* X Y Z U))) (LIST (TEST-MC64-18 'A) (TEST-MC64-18 'A 'B) (TEST-MC64-18 'A 'B 'C) (TEST-MC64-18 'A 'B 'C 'D) (TEST-MC64-18 'A 'B 'C 'D 'E)))
EQUAL-OK: (("xyz" "def" RESULT A NIL DEF1 DEF2 (A NIL NIL)) ("xyz" "def" RESULT A NIL B DEF2 (A B NIL)) ("xyz" "def" RESULT A NIL B C (A B C)) ("xyz" "def" RESULT A NIL B C (A B C D)) ("xyz" "def" RESULT A NIL B C (A B C D E)))
(PROGN (DEFGENERIC TEST-MC64-19 (X &OPTIONAL Y Z U &REST V) (:METHOD-COMBINATION MC64 "xyz") (:METHOD (X &OPTIONAL Y Z U &REST V) (LIST* X Y Z U V))) (LIST (TEST-MC64-19 'A) (TEST-MC64-19 'A 'B) (TEST-MC64-19 'A 'B 'C) (TEST-MC64-19 'A 'B 'C 'D) (TEST-MC64-19 'A 'B 'C 'D 'E) (TEST-MC64-19 'A 'B 'C 'D 'E 'F)))
EQUAL-OK: (("xyz" "def" RESULT A NIL DEF1 DEF2 (A NIL NIL NIL)) ("xyz" "def" RESULT A NIL B DEF2 (A B NIL NIL)) ("xyz" "def" RESULT A NIL B C (A B C NIL)) ("xyz" "def" RESULT A NIL B C (A B C D)) ("xyz" "def" RESULT A NIL B C (A B C D E)) ("xyz" "def" RESULT A NIL B C (A B C D E F)))
(DEFINE-METHOD-COMBINATION MC65 (OPT1 &OPTIONAL (OPT2 "def")) ((ALL *)) (:ARGUMENTS A1 A2 &REST R) `(LIST ',OPT1 ',OPT2 'RESULT ,A1 ,A2 ,R (CALL-METHOD ,(FIRST ALL))))
EQL-OK: MC65
(PROGN (DEFGENERIC TEST-MC65-1 NIL (:METHOD-COMBINATION MC65 "xyz") (:METHOD NIL 'NIL)) (TEST-MC65-1))
EQUAL-OK: ("xyz" "def" RESULT NIL NIL NIL NIL)
(PROGN (DEFGENERIC TEST-MC65-2 (X) (:METHOD-COMBINATION MC65 "xyz") (:METHOD (X) (LIST X))) (TEST-MC65-2 'A))
EQUAL-OK: ("xyz" "def" RESULT A NIL NIL (A))
(PROGN (DEFGENERIC TEST-MC65-3 (X Y) (:METHOD-COMBINATION MC65 "xyz") (:METHOD (X Y) (LIST X Y))) (TEST-MC65-3 'A 'B))
EQUAL-OK: ("xyz" "def" RESULT A B NIL (A B))
(PROGN (DEFGENERIC TEST-MC65-4 (X Y Z) (:METHOD-COMBINATION MC65 "xyz") (:METHOD (X Y Z) (LIST X Y Z))) (TEST-MC65-4 'A 'B 'C))
EQUAL-OK: ("xyz" "def" RESULT A B NIL (A B C))
(PROGN (DEFGENERIC TEST-MC65-5 (X &OPTIONAL Y) (:METHOD-COMBINATION MC65 "xyz") (:METHOD (X &OPTIONAL Y) (LIST X Y))) (LIST (TEST-MC65-5 'A) (TEST-MC65-5 'A 'B)))
EQUAL-OK: (("xyz" "def" RESULT A NIL NIL (A NIL)) ("xyz" "def" RESULT A NIL NIL (A B)))
(PROGN (DEFGENERIC TEST-MC65-6 (X Y &OPTIONAL Z) (:METHOD-COMBINATION MC65 "xyz") (:METHOD (X Y &OPTIONAL Z) (LIST X Y Z))) (LIST (TEST-MC65-6 'A 'B) (TEST-MC65-6 'A 'B 'C)))
EQUAL-OK: (("xyz" "def" RESULT A B NIL (A B NIL)) ("xyz" "def" RESULT A B NIL (A B C)))
(PROGN (DEFGENERIC TEST-MC65-7 (X Y Z &OPTIONAL U) (:METHOD-COMBINATION MC65 "xyz") (:METHOD (X Y Z &OPTIONAL U) (LIST X Y Z U))) (LIST (TEST-MC65-7 'A 'B 'C) (TEST-MC65-7 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT A B NIL (A B C NIL)) ("xyz" "def" RESULT A B NIL (A B C D)))
(PROGN (DEFGENERIC TEST-MC65-8 (X &OPTIONAL Y Z) (:METHOD-COMBINATION MC65 "xyz") (:METHOD (X &OPTIONAL Y Z) (LIST X Y Z))) (LIST (TEST-MC65-8 'A) (TEST-MC65-8 'A 'B) (TEST-MC65-8 'A 'B 'C)))
EQUAL-OK: (("xyz" "def" RESULT A NIL NIL (A NIL NIL)) ("xyz" "def" RESULT A NIL NIL (A B NIL)) ("xyz" "def" RESULT A NIL NIL (A B C)))
(PROGN (DEFGENERIC TEST-MC65-9 (X Y &OPTIONAL Z U) (:METHOD-COMBINATION MC65 "xyz") (:METHOD (X Y &OPTIONAL Z U) (LIST X Y Z U))) (LIST (TEST-MC65-9 'A 'B) (TEST-MC65-9 'A 'B 'C) (TEST-MC65-9 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT A B NIL (A B NIL NIL)) ("xyz" "def" RESULT A B NIL (A B C NIL)) ("xyz" "def" RESULT A B NIL (A B C D)))
(PROGN (DEFGENERIC TEST-MC65-10 (X Y Z &OPTIONAL U V) (:METHOD-COMBINATION MC65 "xyz") (:METHOD (X Y Z &OPTIONAL U V) (LIST X Y Z U V))) (LIST (TEST-MC65-10 'A 'B 'C) (TEST-MC65-10 'A 'B 'C 'D) (TEST-MC65-10 'A 'B 'C 'D 'E)))
EQUAL-OK: (("xyz" "def" RESULT A B NIL (A B C NIL NIL)) ("xyz" "def" RESULT A B NIL (A B C D NIL)) ("xyz" "def" RESULT A B NIL (A B C D E)))
(PROGN (DEFGENERIC TEST-MC65-11 (X &OPTIONAL Y Z U) (:METHOD-COMBINATION MC65 "xyz") (:METHOD (X &OPTIONAL Y Z U) (LIST X Y Z U))) (LIST (TEST-MC65-11 'A) (TEST-MC65-11 'A 'B) (TEST-MC65-11 'A 'B 'C) (TEST-MC65-11 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT A NIL NIL (A NIL NIL NIL)) ("xyz" "def" RESULT A NIL NIL (A B NIL NIL)) ("xyz" "def" RESULT A NIL NIL (A B C NIL)) ("xyz" "def" RESULT A NIL NIL (A B C D)))
(PROGN (DEFGENERIC TEST-MC65-12 (X Y &OPTIONAL Z U V) (:METHOD-COMBINATION MC65 "xyz") (:METHOD (X Y &OPTIONAL Z U V) (LIST X Y Z U V))) (LIST (TEST-MC65-12 'A 'B) (TEST-MC65-12 'A 'B 'C) (TEST-MC65-12 'A 'B 'C 'D) (TEST-MC65-12 'A 'B 'C 'D 'E)))
EQUAL-OK: (("xyz" "def" RESULT A B NIL (A B NIL NIL NIL)) ("xyz" "def" RESULT A B NIL (A B C NIL NIL)) ("xyz" "def" RESULT A B NIL (A B C D NIL)) ("xyz" "def" RESULT A B NIL (A B C D E)))
(PROGN (DEFGENERIC TEST-MC65-13 (X Y Z &OPTIONAL U V W) (:METHOD-COMBINATION MC65 "xyz") (:METHOD (X Y Z &OPTIONAL U V W) (LIST X Y Z U V W))) (LIST (TEST-MC65-13 'A 'B 'C) (TEST-MC65-13 'A 'B 'C 'D) (TEST-MC65-13 'A 'B 'C 'D 'E) (TEST-MC65-13 'A 'B 'C 'D 'E 'F)))
EQUAL-OK: (("xyz" "def" RESULT A B NIL (A B C NIL NIL NIL)) ("xyz" "def" RESULT A B NIL (A B C D NIL NIL)) ("xyz" "def" RESULT A B NIL (A B C D E NIL)) ("xyz" "def" RESULT A B NIL (A B C D E F)))
(PROGN (DEFGENERIC TEST-MC65-14 (X &REST Y) (:METHOD-COMBINATION MC65 "xyz") (:METHOD (X &REST Y) (LIST* X Y))) (LIST (TEST-MC65-14 'A) (TEST-MC65-14 'A 'B) (TEST-MC65-14 'A 'B 'C)))
EQUAL-OK: (("xyz" "def" RESULT A NIL NIL (A)) ("xyz" "def" RESULT A NIL (B) (A B)) ("xyz" "def" RESULT A NIL (B C) (A B C)))
(PROGN (DEFGENERIC TEST-MC65-15 (X Y &REST Z) (:METHOD-COMBINATION MC65 "xyz") (:METHOD (X Y &REST Z) (LIST* X Y Z))) (LIST (TEST-MC65-15 'A 'B) (TEST-MC65-15 'A 'B 'C) (TEST-MC65-15 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT A B NIL (A B)) ("xyz" "def" RESULT A B (C) (A B C)) ("xyz" "def" RESULT A B (C D) (A B C D)))
(PROGN (DEFGENERIC TEST-MC65-16 (X Y Z &REST U) (:METHOD-COMBINATION MC65 "xyz") (:METHOD (X Y Z &REST U) (LIST* X Y Z U))) (LIST (TEST-MC65-16 'A 'B 'C) (TEST-MC65-16 'A 'B 'C 'D) (TEST-MC65-16 'A 'B 'C 'D 'E)))
EQUAL-OK: (("xyz" "def" RESULT A B NIL (A B C)) ("xyz" "def" RESULT A B (D) (A B C D)) ("xyz" "def" RESULT A B (D E) (A B C D E)))
(PROGN (DEFGENERIC TEST-MC65-17 (X &OPTIONAL Y &REST Z) (:METHOD-COMBINATION MC65 "xyz") (:METHOD (X &OPTIONAL Y &REST Z) (LIST* X Y Z))) (LIST (TEST-MC65-17 'A) (TEST-MC65-17 'A 'B) (TEST-MC65-17 'A 'B 'C) (TEST-MC65-17 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT A NIL NIL (A NIL)) ("xyz" "def" RESULT A NIL NIL (A B)) ("xyz" "def" RESULT A NIL (C) (A B C)) ("xyz" "def" RESULT A NIL (C D) (A B C D)))
(PROGN (DEFGENERIC TEST-MC65-18 (X &OPTIONAL Y Z &REST U) (:METHOD-COMBINATION MC65 "xyz") (:METHOD (X &OPTIONAL Y Z &REST U) (LIST* X Y Z U))) (LIST (TEST-MC65-18 'A) (TEST-MC65-18 'A 'B) (TEST-MC65-18 'A 'B 'C) (TEST-MC65-18 'A 'B 'C 'D) (TEST-MC65-18 'A 'B 'C 'D 'E)))
EQUAL-OK: (("xyz" "def" RESULT A NIL NIL (A NIL NIL)) ("xyz" "def" RESULT A NIL NIL (A B NIL)) ("xyz" "def" RESULT A NIL NIL (A B C)) ("xyz" "def" RESULT A NIL (D) (A B C D)) ("xyz" "def" RESULT A NIL (D E) (A B C D E)))
(PROGN (DEFGENERIC TEST-MC65-19 (X &OPTIONAL Y Z U &REST V) (:METHOD-COMBINATION MC65 "xyz") (:METHOD (X &OPTIONAL Y Z U &REST V) (LIST* X Y Z U V))) (LIST (TEST-MC65-19 'A) (TEST-MC65-19 'A 'B) (TEST-MC65-19 'A 'B 'C) (TEST-MC65-19 'A 'B 'C 'D) (TEST-MC65-19 'A 'B 'C 'D 'E) (TEST-MC65-19 'A 'B 'C 'D 'E 'F)))
EQUAL-OK: (("xyz" "def" RESULT A NIL NIL (A NIL NIL NIL)) ("xyz" "def" RESULT A NIL NIL (A B NIL NIL)) ("xyz" "def" RESULT A NIL NIL (A B C NIL)) ("xyz" "def" RESULT A NIL NIL (A B C D)) ("xyz" "def" RESULT A NIL (E) (A B C D E)) ("xyz" "def" RESULT A NIL (E F) (A B C D E F)))
(DEFINE-METHOD-COMBINATION MC66 (OPT1 &OPTIONAL (OPT2 "def")) ((ALL *)) (:ARGUMENTS &OPTIONAL (O1 'DEF1) (O2 'DEF2) &REST R) `(LIST ',OPT1 ',OPT2 'RESULT ,O1 ,O2 ,R (CALL-METHOD ,(FIRST ALL))))
EQL-OK: MC66
(PROGN (DEFGENERIC TEST-MC66-1 NIL (:METHOD-COMBINATION MC66 "xyz") (:METHOD NIL 'NIL)) (TEST-MC66-1))
EQUAL-OK: ("xyz" "def" RESULT DEF1 DEF2 NIL NIL)
(PROGN (DEFGENERIC TEST-MC66-2 (X) (:METHOD-COMBINATION MC66 "xyz") (:METHOD (X) (LIST X))) (TEST-MC66-2 'A))
EQUAL-OK: ("xyz" "def" RESULT DEF1 DEF2 NIL (A))
(PROGN (DEFGENERIC TEST-MC66-3 (X Y) (:METHOD-COMBINATION MC66 "xyz") (:METHOD (X Y) (LIST X Y))) (TEST-MC66-3 'A 'B))
EQUAL-OK: ("xyz" "def" RESULT DEF1 DEF2 NIL (A B))
(PROGN (DEFGENERIC TEST-MC66-4 (X Y Z) (:METHOD-COMBINATION MC66 "xyz") (:METHOD (X Y Z) (LIST X Y Z))) (TEST-MC66-4 'A 'B 'C))
EQUAL-OK: ("xyz" "def" RESULT DEF1 DEF2 NIL (A B C))
(PROGN (DEFGENERIC TEST-MC66-5 (X &OPTIONAL Y) (:METHOD-COMBINATION MC66 "xyz") (:METHOD (X &OPTIONAL Y) (LIST X Y))) (LIST (TEST-MC66-5 'A) (TEST-MC66-5 'A 'B)))
EQUAL-OK: (("xyz" "def" RESULT DEF1 DEF2 NIL (A NIL)) ("xyz" "def" RESULT B DEF2 NIL (A B)))
(PROGN (DEFGENERIC TEST-MC66-6 (X Y &OPTIONAL Z) (:METHOD-COMBINATION MC66 "xyz") (:METHOD (X Y &OPTIONAL Z) (LIST X Y Z))) (LIST (TEST-MC66-6 'A 'B) (TEST-MC66-6 'A 'B 'C)))
EQUAL-OK: (("xyz" "def" RESULT DEF1 DEF2 NIL (A B NIL)) ("xyz" "def" RESULT C DEF2 NIL (A B C)))
(PROGN (DEFGENERIC TEST-MC66-7 (X Y Z &OPTIONAL U) (:METHOD-COMBINATION MC66 "xyz") (:METHOD (X Y Z &OPTIONAL U) (LIST X Y Z U))) (LIST (TEST-MC66-7 'A 'B 'C) (TEST-MC66-7 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT DEF1 DEF2 NIL (A B C NIL)) ("xyz" "def" RESULT D DEF2 NIL (A B C D)))
(PROGN (DEFGENERIC TEST-MC66-8 (X &OPTIONAL Y Z) (:METHOD-COMBINATION MC66 "xyz") (:METHOD (X &OPTIONAL Y Z) (LIST X Y Z))) (LIST (TEST-MC66-8 'A) (TEST-MC66-8 'A 'B) (TEST-MC66-8 'A 'B 'C)))
EQUAL-OK: (("xyz" "def" RESULT DEF1 DEF2 NIL (A NIL NIL)) ("xyz" "def" RESULT B DEF2 NIL (A B NIL)) ("xyz" "def" RESULT B C NIL (A B C)))
(PROGN (DEFGENERIC TEST-MC66-9 (X Y &OPTIONAL Z U) (:METHOD-COMBINATION MC66 "xyz") (:METHOD (X Y &OPTIONAL Z U) (LIST X Y Z U))) (LIST (TEST-MC66-9 'A 'B) (TEST-MC66-9 'A 'B 'C) (TEST-MC66-9 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT DEF1 DEF2 NIL (A B NIL NIL)) ("xyz" "def" RESULT C DEF2 NIL (A B C NIL)) ("xyz" "def" RESULT C D NIL (A B C D)))
(PROGN (DEFGENERIC TEST-MC66-10 (X Y Z &OPTIONAL U V) (:METHOD-COMBINATION MC66 "xyz") (:METHOD (X Y Z &OPTIONAL U V) (LIST X Y Z U V))) (LIST (TEST-MC66-10 'A 'B 'C) (TEST-MC66-10 'A 'B 'C 'D) (TEST-MC66-10 'A 'B 'C 'D 'E)))
EQUAL-OK: (("xyz" "def" RESULT DEF1 DEF2 NIL (A B C NIL NIL)) ("xyz" "def" RESULT D DEF2 NIL (A B C D NIL)) ("xyz" "def" RESULT D E NIL (A B C D E)))
(PROGN (DEFGENERIC TEST-MC66-11 (X &OPTIONAL Y Z U) (:METHOD-COMBINATION MC66 "xyz") (:METHOD (X &OPTIONAL Y Z U) (LIST X Y Z U))) (LIST (TEST-MC66-11 'A) (TEST-MC66-11 'A 'B) (TEST-MC66-11 'A 'B 'C) (TEST-MC66-11 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT DEF1 DEF2 NIL (A NIL NIL NIL)) ("xyz" "def" RESULT B DEF2 NIL (A B NIL NIL)) ("xyz" "def" RESULT B C NIL (A B C NIL)) ("xyz" "def" RESULT B C NIL (A B C D)))
(PROGN (DEFGENERIC TEST-MC66-12 (X Y &OPTIONAL Z U V) (:METHOD-COMBINATION MC66 "xyz") (:METHOD (X Y &OPTIONAL Z U V) (LIST X Y Z U V))) (LIST (TEST-MC66-12 'A 'B) (TEST-MC66-12 'A 'B 'C) (TEST-MC66-12 'A 'B 'C 'D) (TEST-MC66-12 'A 'B 'C 'D 'E)))
EQUAL-OK: (("xyz" "def" RESULT DEF1 DEF2 NIL (A B NIL NIL NIL)) ("xyz" "def" RESULT C DEF2 NIL (A B C NIL NIL)) ("xyz" "def" RESULT C D NIL (A B C D NIL)) ("xyz" "def" RESULT C D NIL (A B C D E)))
(PROGN (DEFGENERIC TEST-MC66-13 (X Y Z &OPTIONAL U V W) (:METHOD-COMBINATION MC66 "xyz") (:METHOD (X Y Z &OPTIONAL U V W) (LIST X Y Z U V W))) (LIST (TEST-MC66-13 'A 'B 'C) (TEST-MC66-13 'A 'B 'C 'D) (TEST-MC66-13 'A 'B 'C 'D 'E) (TEST-MC66-13 'A 'B 'C 'D 'E 'F)))
EQUAL-OK: (("xyz" "def" RESULT DEF1 DEF2 NIL (A B C NIL NIL NIL)) ("xyz" "def" RESULT D DEF2 NIL (A B C D NIL NIL)) ("xyz" "def" RESULT D E NIL (A B C D E NIL)) ("xyz" "def" RESULT D E NIL (A B C D E F)))
(PROGN (DEFGENERIC TEST-MC66-14 (X &REST Y) (:METHOD-COMBINATION MC66 "xyz") (:METHOD (X &REST Y) (LIST* X Y))) (LIST (TEST-MC66-14 'A) (TEST-MC66-14 'A 'B) (TEST-MC66-14 'A 'B 'C)))
EQUAL-OK: (("xyz" "def" RESULT DEF1 DEF2 NIL (A)) ("xyz" "def" RESULT DEF1 DEF2 (B) (A B)) ("xyz" "def" RESULT DEF1 DEF2 (B C) (A B C)))
(PROGN (DEFGENERIC TEST-MC66-15 (X Y &REST Z) (:METHOD-COMBINATION MC66 "xyz") (:METHOD (X Y &REST Z) (LIST* X Y Z))) (LIST (TEST-MC66-15 'A 'B) (TEST-MC66-15 'A 'B 'C) (TEST-MC66-15 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT DEF1 DEF2 NIL (A B)) ("xyz" "def" RESULT DEF1 DEF2 (C) (A B C)) ("xyz" "def" RESULT DEF1 DEF2 (C D) (A B C D)))
(PROGN (DEFGENERIC TEST-MC66-16 (X Y Z &REST U) (:METHOD-COMBINATION MC66 "xyz") (:METHOD (X Y Z &REST U) (LIST* X Y Z U))) (LIST (TEST-MC66-16 'A 'B 'C) (TEST-MC66-16 'A 'B 'C 'D) (TEST-MC66-16 'A 'B 'C 'D 'E)))
EQUAL-OK: (("xyz" "def" RESULT DEF1 DEF2 NIL (A B C)) ("xyz" "def" RESULT DEF1 DEF2 (D) (A B C D)) ("xyz" "def" RESULT DEF1 DEF2 (D E) (A B C D E)))
(PROGN (DEFGENERIC TEST-MC66-17 (X &OPTIONAL Y &REST Z) (:METHOD-COMBINATION MC66 "xyz") (:METHOD (X &OPTIONAL Y &REST Z) (LIST* X Y Z))) (LIST (TEST-MC66-17 'A) (TEST-MC66-17 'A 'B) (TEST-MC66-17 'A 'B 'C) (TEST-MC66-17 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT DEF1 DEF2 NIL (A NIL)) ("xyz" "def" RESULT B DEF2 NIL (A B)) ("xyz" "def" RESULT B DEF2 (C) (A B C)) ("xyz" "def" RESULT B DEF2 (C D) (A B C D)))
(PROGN (DEFGENERIC TEST-MC66-18 (X &OPTIONAL Y Z &REST U) (:METHOD-COMBINATION MC66 "xyz") (:METHOD (X &OPTIONAL Y Z &REST U) (LIST* X Y Z U))) (LIST (TEST-MC66-18 'A) (TEST-MC66-18 'A 'B) (TEST-MC66-18 'A 'B 'C) (TEST-MC66-18 'A 'B 'C 'D) (TEST-MC66-18 'A 'B 'C 'D 'E)))
EQUAL-OK: (("xyz" "def" RESULT DEF1 DEF2 NIL (A NIL NIL)) ("xyz" "def" RESULT B DEF2 NIL (A B NIL)) ("xyz" "def" RESULT B C NIL (A B C)) ("xyz" "def" RESULT B C (D) (A B C D)) ("xyz" "def" RESULT B C (D E) (A B C D E)))
(PROGN (DEFGENERIC TEST-MC66-19 (X &OPTIONAL Y Z U &REST V) (:METHOD-COMBINATION MC66 "xyz") (:METHOD (X &OPTIONAL Y Z U &REST V) (LIST* X Y Z U V))) (LIST (TEST-MC66-19 'A) (TEST-MC66-19 'A 'B) (TEST-MC66-19 'A 'B 'C) (TEST-MC66-19 'A 'B 'C 'D) (TEST-MC66-19 'A 'B 'C 'D 'E) (TEST-MC66-19 'A 'B 'C 'D 'E 'F)))
EQUAL-OK: (("xyz" "def" RESULT DEF1 DEF2 NIL (A NIL NIL NIL)) ("xyz" "def" RESULT B DEF2 NIL (A B NIL NIL)) ("xyz" "def" RESULT B C NIL (A B C NIL)) ("xyz" "def" RESULT B C NIL (A B C D)) ("xyz" "def" RESULT B C (E) (A B C D E)) ("xyz" "def" RESULT B C (E F) (A B C D E F)))
(DEFINE-METHOD-COMBINATION MC67 (OPT1 &OPTIONAL (OPT2 "def")) ((ALL *)) (:ARGUMENTS A1 A2 &OPTIONAL (O1 'DEF1) (O2 'DEF2) &REST R) `(LIST ',OPT1 ',OPT2 'RESULT ,A1 ,A2 ,O1 ,O2 ,R (CALL-METHOD ,(FIRST ALL))))
EQL-OK: MC67
(PROGN (DEFGENERIC TEST-MC67-1 NIL (:METHOD-COMBINATION MC67 "xyz") (:METHOD NIL 'NIL)) (TEST-MC67-1))
EQUAL-OK: ("xyz" "def" RESULT NIL NIL DEF1 DEF2 NIL NIL)
(PROGN (DEFGENERIC TEST-MC67-2 (X) (:METHOD-COMBINATION MC67 "xyz") (:METHOD (X) (LIST X))) (TEST-MC67-2 'A))
EQUAL-OK: ("xyz" "def" RESULT A NIL DEF1 DEF2 NIL (A))
(PROGN (DEFGENERIC TEST-MC67-3 (X Y) (:METHOD-COMBINATION MC67 "xyz") (:METHOD (X Y) (LIST X Y))) (TEST-MC67-3 'A 'B))
EQUAL-OK: ("xyz" "def" RESULT A B DEF1 DEF2 NIL (A B))
(PROGN (DEFGENERIC TEST-MC67-4 (X Y Z) (:METHOD-COMBINATION MC67 "xyz") (:METHOD (X Y Z) (LIST X Y Z))) (TEST-MC67-4 'A 'B 'C))
EQUAL-OK: ("xyz" "def" RESULT A B DEF1 DEF2 NIL (A B C))
(PROGN (DEFGENERIC TEST-MC67-5 (X &OPTIONAL Y) (:METHOD-COMBINATION MC67 "xyz") (:METHOD (X &OPTIONAL Y) (LIST X Y))) (LIST (TEST-MC67-5 'A) (TEST-MC67-5 'A 'B)))
EQUAL-OK: (("xyz" "def" RESULT A NIL DEF1 DEF2 NIL (A NIL)) ("xyz" "def" RESULT A NIL B DEF2 NIL (A B)))
(PROGN (DEFGENERIC TEST-MC67-6 (X Y &OPTIONAL Z) (:METHOD-COMBINATION MC67 "xyz") (:METHOD (X Y &OPTIONAL Z) (LIST X Y Z))) (LIST (TEST-MC67-6 'A 'B) (TEST-MC67-6 'A 'B 'C)))
EQUAL-OK: (("xyz" "def" RESULT A B DEF1 DEF2 NIL (A B NIL)) ("xyz" "def" RESULT A B C DEF2 NIL (A B C)))
(PROGN (DEFGENERIC TEST-MC67-7 (X Y Z &OPTIONAL U) (:METHOD-COMBINATION MC67 "xyz") (:METHOD (X Y Z &OPTIONAL U) (LIST X Y Z U))) (LIST (TEST-MC67-7 'A 'B 'C) (TEST-MC67-7 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT A B DEF1 DEF2 NIL (A B C NIL)) ("xyz" "def" RESULT A B D DEF2 NIL (A B C D)))
(PROGN (DEFGENERIC TEST-MC67-8 (X &OPTIONAL Y Z) (:METHOD-COMBINATION MC67 "xyz") (:METHOD (X &OPTIONAL Y Z) (LIST X Y Z))) (LIST (TEST-MC67-8 'A) (TEST-MC67-8 'A 'B) (TEST-MC67-8 'A 'B 'C)))
EQUAL-OK: (("xyz" "def" RESULT A NIL DEF1 DEF2 NIL (A NIL NIL)) ("xyz" "def" RESULT A NIL B DEF2 NIL (A B NIL)) ("xyz" "def" RESULT A NIL B C NIL (A B C)))
(PROGN (DEFGENERIC TEST-MC67-9 (X Y &OPTIONAL Z U) (:METHOD-COMBINATION MC67 "xyz") (:METHOD (X Y &OPTIONAL Z U) (LIST X Y Z U))) (LIST (TEST-MC67-9 'A 'B) (TEST-MC67-9 'A 'B 'C) (TEST-MC67-9 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT A B DEF1 DEF2 NIL (A B NIL NIL)) ("xyz" "def" RESULT A B C DEF2 NIL (A B C NIL)) ("xyz" "def" RESULT A B C D NIL (A B C D)))
(PROGN (DEFGENERIC TEST-MC67-10 (X Y Z &OPTIONAL U V) (:METHOD-COMBINATION MC67 "xyz") (:METHOD (X Y Z &OPTIONAL U V) (LIST X Y Z U V))) (LIST (TEST-MC67-10 'A 'B 'C) (TEST-MC67-10 'A 'B 'C 'D) (TEST-MC67-10 'A 'B 'C 'D 'E)))
EQUAL-OK: (("xyz" "def" RESULT A B DEF1 DEF2 NIL (A B C NIL NIL)) ("xyz" "def" RESULT A B D DEF2 NIL (A B C D NIL)) ("xyz" "def" RESULT A B D E NIL (A B C D E)))
(PROGN (DEFGENERIC TEST-MC67-11 (X &OPTIONAL Y Z U) (:METHOD-COMBINATION MC67 "xyz") (:METHOD (X &OPTIONAL Y Z U) (LIST X Y Z U))) (LIST (TEST-MC67-11 'A) (TEST-MC67-11 'A 'B) (TEST-MC67-11 'A 'B 'C) (TEST-MC67-11 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT A NIL DEF1 DEF2 NIL (A NIL NIL NIL)) ("xyz" "def" RESULT A NIL B DEF2 NIL (A B NIL NIL)) ("xyz" "def" RESULT A NIL B C NIL (A B C NIL)) ("xyz" "def" RESULT A NIL B C NIL (A B C D)))
(PROGN (DEFGENERIC TEST-MC67-12 (X Y &OPTIONAL Z U V) (:METHOD-COMBINATION MC67 "xyz") (:METHOD (X Y &OPTIONAL Z U V) (LIST X Y Z U V))) (LIST (TEST-MC67-12 'A 'B) (TEST-MC67-12 'A 'B 'C) (TEST-MC67-12 'A 'B 'C 'D) (TEST-MC67-12 'A 'B 'C 'D 'E)))
EQUAL-OK: (("xyz" "def" RESULT A B DEF1 DEF2 NIL (A B NIL NIL NIL)) ("xyz" "def" RESULT A B C DEF2 NIL (A B C NIL NIL)) ("xyz" "def" RESULT A B C D NIL (A B C D NIL)) ("xyz" "def" RESULT A B C D NIL (A B C D E)))
(PROGN (DEFGENERIC TEST-MC67-13 (X Y Z &OPTIONAL U V W) (:METHOD-COMBINATION MC67 "xyz") (:METHOD (X Y Z &OPTIONAL U V W) (LIST X Y Z U V W))) (LIST (TEST-MC67-13 'A 'B 'C) (TEST-MC67-13 'A 'B 'C 'D) (TEST-MC67-13 'A 'B 'C 'D 'E) (TEST-MC67-13 'A 'B 'C 'D 'E 'F)))
EQUAL-OK: (("xyz" "def" RESULT A B DEF1 DEF2 NIL (A B C NIL NIL NIL)) ("xyz" "def" RESULT A B D DEF2 NIL (A B C D NIL NIL)) ("xyz" "def" RESULT A B D E NIL (A B C D E NIL)) ("xyz" "def" RESULT A B D E NIL (A B C D E F)))
(PROGN (DEFGENERIC TEST-MC67-14 (X &REST Y) (:METHOD-COMBINATION MC67 "xyz") (:METHOD (X &REST Y) (LIST* X Y))) (LIST (TEST-MC67-14 'A) (TEST-MC67-14 'A 'B) (TEST-MC67-14 'A 'B 'C)))
EQUAL-OK: (("xyz" "def" RESULT A NIL DEF1 DEF2 NIL (A)) ("xyz" "def" RESULT A NIL DEF1 DEF2 (B) (A B)) ("xyz" "def" RESULT A NIL DEF1 DEF2 (B C) (A B C)))
(PROGN (DEFGENERIC TEST-MC67-15 (X Y &REST Z) (:METHOD-COMBINATION MC67 "xyz") (:METHOD (X Y &REST Z) (LIST* X Y Z))) (LIST (TEST-MC67-15 'A 'B) (TEST-MC67-15 'A 'B 'C) (TEST-MC67-15 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT A B DEF1 DEF2 NIL (A B)) ("xyz" "def" RESULT A B DEF1 DEF2 (C) (A B C)) ("xyz" "def" RESULT A B DEF1 DEF2 (C D) (A B C D)))
(PROGN (DEFGENERIC TEST-MC67-16 (X Y Z &REST U) (:METHOD-COMBINATION MC67 "xyz") (:METHOD (X Y Z &REST U) (LIST* X Y Z U))) (LIST (TEST-MC67-16 'A 'B 'C) (TEST-MC67-16 'A 'B 'C 'D) (TEST-MC67-16 'A 'B 'C 'D 'E)))
EQUAL-OK: (("xyz" "def" RESULT A B DEF1 DEF2 NIL (A B C)) ("xyz" "def" RESULT A B DEF1 DEF2 (D) (A B C D)) ("xyz" "def" RESULT A B DEF1 DEF2 (D E) (A B C D E)))
(PROGN (DEFGENERIC TEST-MC67-17 (X &OPTIONAL Y &REST Z) (:METHOD-COMBINATION MC67 "xyz") (:METHOD (X &OPTIONAL Y &REST Z) (LIST* X Y Z))) (LIST (TEST-MC67-17 'A) (TEST-MC67-17 'A 'B) (TEST-MC67-17 'A 'B 'C) (TEST-MC67-17 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT A NIL DEF1 DEF2 NIL (A NIL)) ("xyz" "def" RESULT A NIL B DEF2 NIL (A B)) ("xyz" "def" RESULT A NIL B DEF2 (C) (A B C)) ("xyz" "def" RESULT A NIL B DEF2 (C D) (A B C D)))
(PROGN (DEFGENERIC TEST-MC67-18 (X &OPTIONAL Y Z &REST U) (:METHOD-COMBINATION MC67 "xyz") (:METHOD (X &OPTIONAL Y Z &REST U) (LIST* X Y Z U))) (LIST (TEST-MC67-18 'A) (TEST-MC67-18 'A 'B) (TEST-MC67-18 'A 'B 'C) (TEST-MC67-18 'A 'B 'C 'D) (TEST-MC67-18 'A 'B 'C 'D 'E)))
EQUAL-OK: (("xyz" "def" RESULT A NIL DEF1 DEF2 NIL (A NIL NIL)) ("xyz" "def" RESULT A NIL B DEF2 NIL (A B NIL)) ("xyz" "def" RESULT A NIL B C NIL (A B C)) ("xyz" "def" RESULT A NIL B C (D) (A B C D)) ("xyz" "def" RESULT A NIL B C (D E) (A B C D E)))
(PROGN (DEFGENERIC TEST-MC67-19 (X &OPTIONAL Y Z U &REST V) (:METHOD-COMBINATION MC67 "xyz") (:METHOD (X &OPTIONAL Y Z U &REST V) (LIST* X Y Z U V))) (LIST (TEST-MC67-19 'A) (TEST-MC67-19 'A 'B) (TEST-MC67-19 'A 'B 'C) (TEST-MC67-19 'A 'B 'C 'D) (TEST-MC67-19 'A 'B 'C 'D 'E) (TEST-MC67-19 'A 'B 'C 'D 'E 'F)))
EQUAL-OK: (("xyz" "def" RESULT A NIL DEF1 DEF2 NIL (A NIL NIL NIL)) ("xyz" "def" RESULT A NIL B DEF2 NIL (A B NIL NIL)) ("xyz" "def" RESULT A NIL B C NIL (A B C NIL)) ("xyz" "def" RESULT A NIL B C NIL (A B C D)) ("xyz" "def" RESULT A NIL B C (E) (A B C D E)) ("xyz" "def" RESULT A NIL B C (E F) (A B C D E F)))
(DEFINE-METHOD-COMBINATION MC68 (OPT1 &OPTIONAL (OPT2 "def")) ((ALL *)) (:ARGUMENTS A1 A2 &OPTIONAL (O1 'DEF1) (O2 'DEF2) &KEY (TEST 'EQ) (TEST-NOT 'NEQ)) `(LIST ',OPT1 ',OPT2 'RESULT ,A1 ,A2 ,O1 ,O2 ,TEST ,TEST-NOT (CALL-METHOD ,(FIRST ALL))))
EQL-OK: MC68
(PROGN (DEFGENERIC TEST-MC68-1 (X &OPTIONAL Y) (:METHOD-COMBINATION MC68 "xyz") (:METHOD (X &OPTIONAL Y) (LIST X Y))) (LIST (TEST-MC68-1 'A) (TEST-MC68-1 'A 'B)))
WARNING: in TEST-MC68-1-<EMF-1>-1-1 : Mixing &OPTIONAL and &KEY in lambda list
         (&OPTIONAL #:G13549 &KEY (TEST 'EQ) (TEST-NOT 'NEQ) &ALLOW-OTHER-KEYS)
         is bad designEQUAL-OK: (("xyz" "def" 
RESULT A NIL DEF1 DEF2 EQ NEQ (A NIL)) ("xyz" "def" RESULT A NIL B DEF2 EQ NEQ (A B)))
(PROGN (DEFGENERIC TEST-MC68-2 (X Y Z &OPTIONAL U V W) (:METHOD-COMBINATION MC68 "xyz") (:METHOD (X Y Z &OPTIONAL U V W) (LIST X Y Z U V W))) (LIST (TEST-MC68-2 'A 'B 'C) (TEST-MC68-2 'A 'B 'C 'D) (TEST-MC68-2 'A 'B 'C 'D 'E) (TEST-MC68-2 'A 'B 'C 'D 'E 'F)))
WARNING: in TEST-MC68-2-<EMF-1>-1-1 : Mixing &OPTIONAL and &KEY in lambda list
         (A1 A2 &OPTIONAL (O1 'DEF1) (O2 'DEF2) #:G13593 &KEY (TEST 'EQ) (TEST-NOT 'NEQ) &ALLOW-OTHER-KEYS)
         is bad designEQUAL-OK: (("xyz" "def" 
RESULT A B DEF1 DEF2 EQ NEQ (A B C NIL NIL NIL)) ("xyz" "def" RESULT A B D DEF2 EQ NEQ (A B C D NIL NIL)) ("xyz" "def" RESULT A B D E EQ NEQ (A B C D E NIL)) ("xyz" "def" RESULT A B D E EQ NEQ (A B C D E F)))
(PROGN (DEFGENERIC TEST-MC68-3 (X &REST Y) (:METHOD-COMBINATION MC68 "xyz") (:METHOD (X &REST Y) (LIST* X Y))) (LIST (TEST-MC68-3 'A) (TEST-MC68-3 'A 'B 'C) (TEST-MC68-3 'A :TEST-NOT 'NEQUAL :TEST 'EQL :TEST-NOT 'NEQUALP)))
EQUAL-OK: (("xyz" "def" RESULT A NIL DEF1 DEF2 EQ NEQ (A)) ("xyz" "def" RESULT A NIL DEF1 DEF2 EQ NEQ (A B C)) ("xyz" "def" RESULT A NIL DEF1 DEF2 EQL NEQUAL (A :TEST-NOT NEQUAL :TEST EQL :TEST-NOT NEQUALP)))
(PROGN (DEFGENERIC TEST-MC68-4 (X &REST Y) (:METHOD-COMBINATION MC68 "xyz") (:METHOD (X &REST Y) (LIST* X Y))) (TEST-MC68-4 'A 'B))
[SIMPLE-PROGRAM-ERROR]: TEST-MC68-4-<EMF-1>-1-1: keyword arguments in (B) should occur pairwise
EQL-OK: ERROR
(PROGN (DEFGENERIC TEST-MC68-5 (X Y Z &REST U) (:METHOD-COMBINATION MC68 "xyz") (:METHOD (X Y Z &REST U) (LIST* X Y Z U))) (LIST (TEST-MC68-5 'A :TEST 'EQ) (TEST-MC68-5 'A :TEST 'EQ 'D 'E) (TEST-MC68-5 'A :TEST 'EQ :TEST-NOT 'NEQUAL :TEST 'EQL :TEST-NOT 'NEQUALP)))
EQUAL-OK: (("xyz" "def" RESULT A :TEST DEF1 DEF2 EQ NEQ (A :TEST EQ)) ("xyz" "def" RESULT A :TEST DEF1 DEF2 EQ NEQ (A :TEST EQ D E)) ("xyz" "def" RESULT A :TEST DEF1 DEF2 EQL NEQUAL (A :TEST EQ :TEST-NOT NEQUAL :TEST EQL :TEST-NOT NEQUALP)))
(PROGN (DEFGENERIC TEST-MC68-6 (X &OPTIONAL Y Z U &REST V) (:METHOD-COMBINATION MC68 "xyz") (:METHOD (X &OPTIONAL Y Z U &REST V) (LIST* X Y Z U V))) (LIST (TEST-MC68-6 'A) (TEST-MC68-6 'A 'B 'C) (TEST-MC68-6 'A :TEST 'EQ 'D :TEST-NOT 'NEQUAL :TEST 'EQL :TEST-NOT 'NEQUALP)))
WARNING: in TEST-MC68-6-<EMF-1>-1-1 : Mixing &OPTIONAL and &KEY in lambda list
         (A1 A2 &OPTIONAL (O1 'DEF1) (O2 'DEF2) #:G13733 &KEY (TEST 'EQ) (TEST-NOT 'NEQ) &ALLOW-OTHER-KEYS)
         is bad designEQUAL-OK: (("xyz" "def" 
RESULT A NIL DEF1 DEF2 EQ NEQ (A NIL NIL NIL)) ("xyz" "def" RESULT A NIL B C EQ NEQ (A B C NIL)) ("xyz" "def" RESULT A NIL :TEST EQ EQL NEQUAL (A :TEST EQ D :TEST-NOT NEQUAL :TEST EQL :TEST-NOT NEQUALP)))
(DEFINE-METHOD-COMBINATION MC69 (OPT1 &OPTIONAL (OPT2 "def")) ((ALL *)) (:ARGUMENTS &WHOLE WHOLE) `(LIST ',OPT1 ',OPT2 'RESULT ,WHOLE (CALL-METHOD ,(FIRST ALL))))
EQL-OK: MC69
(PROGN (DEFGENERIC TEST-MC69-1 NIL (:METHOD-COMBINATION MC69 "xyz") (:METHOD NIL 'NIL)) (TEST-MC69-1))
EQUAL-OK: ("xyz" "def" RESULT NIL NIL)
(PROGN (DEFGENERIC TEST-MC69-2 (X) (:METHOD-COMBINATION MC69 "xyz") (:METHOD (X) (LIST X))) (TEST-MC69-2 'A))
EQUAL-OK: ("xyz" "def" RESULT (A) (A))
(PROGN (DEFGENERIC TEST-MC69-3 (X Y) (:METHOD-COMBINATION MC69 "xyz") (:METHOD (X Y) (LIST X Y))) (TEST-MC69-3 'A 'B))
EQUAL-OK: ("xyz" "def" RESULT (A B) (A B))
(PROGN (DEFGENERIC TEST-MC69-4 (X Y Z) (:METHOD-COMBINATION MC69 "xyz") (:METHOD (X Y Z) (LIST X Y Z))) (TEST-MC69-4 'A 'B 'C))
EQUAL-OK: ("xyz" "def" RESULT (A B C) (A B C))
(PROGN (DEFGENERIC TEST-MC69-5 (X &OPTIONAL Y) (:METHOD-COMBINATION MC69 "xyz") (:METHOD (X &OPTIONAL Y) (LIST X Y))) (LIST (TEST-MC69-5 'A) (TEST-MC69-5 'A 'B)))
EQUAL-OK: (("xyz" "def" RESULT (A) (A NIL)) ("xyz" "def" RESULT (A B) (A B)))
(PROGN (DEFGENERIC TEST-MC69-6 (X Y &OPTIONAL Z) (:METHOD-COMBINATION MC69 "xyz") (:METHOD (X Y &OPTIONAL Z) (LIST X Y Z))) (LIST (TEST-MC69-6 'A 'B) (TEST-MC69-6 'A 'B 'C)))
EQUAL-OK: (("xyz" "def" RESULT (A B) (A B NIL)) ("xyz" "def" RESULT (A B C) (A B C)))
(PROGN (DEFGENERIC TEST-MC69-7 (X Y Z &OPTIONAL U) (:METHOD-COMBINATION MC69 "xyz") (:METHOD (X Y Z &OPTIONAL U) (LIST X Y Z U))) (LIST (TEST-MC69-7 'A 'B 'C) (TEST-MC69-7 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT (A B C) (A B C NIL)) ("xyz" "def" RESULT (A B C D) (A B C D)))
(PROGN (DEFGENERIC TEST-MC69-8 (X &OPTIONAL Y Z) (:METHOD-COMBINATION MC69 "xyz") (:METHOD (X &OPTIONAL Y Z) (LIST X Y Z))) (LIST (TEST-MC69-8 'A) (TEST-MC69-8 'A 'B) (TEST-MC69-8 'A 'B 'C)))
EQUAL-OK: (("xyz" "def" RESULT (A) (A NIL NIL)) ("xyz" "def" RESULT (A B) (A B NIL)) ("xyz" "def" RESULT (A B C) (A B C)))
(PROGN (DEFGENERIC TEST-MC69-9 (X Y &OPTIONAL Z U) (:METHOD-COMBINATION MC69 "xyz") (:METHOD (X Y &OPTIONAL Z U) (LIST X Y Z U))) (LIST (TEST-MC69-9 'A 'B) (TEST-MC69-9 'A 'B 'C) (TEST-MC69-9 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT (A B) (A B NIL NIL)) ("xyz" "def" RESULT (A B C) (A B C NIL)) ("xyz" "def" RESULT (A B C D) (A B C D)))
(PROGN (DEFGENERIC TEST-MC69-10 (X Y Z &OPTIONAL U V) (:METHOD-COMBINATION MC69 "xyz") (:METHOD (X Y Z &OPTIONAL U V) (LIST X Y Z U V))) (LIST (TEST-MC69-10 'A 'B 'C) (TEST-MC69-10 'A 'B 'C 'D) (TEST-MC69-10 'A 'B 'C 'D 'E)))
EQUAL-OK: (("xyz" "def" RESULT (A B C) (A B C NIL NIL)) ("xyz" "def" RESULT (A B C D) (A B C D NIL)) ("xyz" "def" RESULT (A B C D E) (A B C D E)))
(PROGN (DEFGENERIC TEST-MC69-11 (X &OPTIONAL Y Z U) (:METHOD-COMBINATION MC69 "xyz") (:METHOD (X &OPTIONAL Y Z U) (LIST X Y Z U))) (LIST (TEST-MC69-11 'A) (TEST-MC69-11 'A 'B) (TEST-MC69-11 'A 'B 'C) (TEST-MC69-11 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT (A) (A NIL NIL NIL)) ("xyz" "def" RESULT (A B) (A B NIL NIL)) ("xyz" "def" RESULT (A B C) (A B C NIL)) ("xyz" "def" RESULT (A B C D) (A B C D)))
(PROGN (DEFGENERIC TEST-MC69-12 (X Y &OPTIONAL Z U V) (:METHOD-COMBINATION MC69 "xyz") (:METHOD (X Y &OPTIONAL Z U V) (LIST X Y Z U V))) (LIST (TEST-MC69-12 'A 'B) (TEST-MC69-12 'A 'B 'C) (TEST-MC69-12 'A 'B 'C 'D) (TEST-MC69-12 'A 'B 'C 'D 'E)))
EQUAL-OK: (("xyz" "def" RESULT (A B) (A B NIL NIL NIL)) ("xyz" "def" RESULT (A B C) (A B C NIL NIL)) ("xyz" "def" RESULT (A B C D) (A B C D NIL)) ("xyz" "def" RESULT (A B C D E) (A B C D E)))
(PROGN (DEFGENERIC TEST-MC69-13 (X Y Z &OPTIONAL U V W) (:METHOD-COMBINATION MC69 "xyz") (:METHOD (X Y Z &OPTIONAL U V W) (LIST X Y Z U V W))) (LIST (TEST-MC69-13 'A 'B 'C) (TEST-MC69-13 'A 'B 'C 'D) (TEST-MC69-13 'A 'B 'C 'D 'E) (TEST-MC69-13 'A 'B 'C 'D 'E 'F)))
EQUAL-OK: (("xyz" "def" RESULT (A B C) (A B C NIL NIL NIL)) ("xyz" "def" RESULT (A B C D) (A B C D NIL NIL)) ("xyz" "def" RESULT (A B C D E) (A B C D E NIL)) ("xyz" "def" RESULT (A B C D E F) (A B C D E F)))
(PROGN (DEFGENERIC TEST-MC69-14 (X &REST Y) (:METHOD-COMBINATION MC69 "xyz") (:METHOD (X &REST Y) (LIST* X Y))) (LIST (TEST-MC69-14 'A) (TEST-MC69-14 'A 'B) (TEST-MC69-14 'A 'B 'C)))
EQUAL-OK: (("xyz" "def" RESULT (A) (A)) ("xyz" "def" RESULT (A B) (A B)) ("xyz" "def" RESULT (A B C) (A B C)))
(PROGN (DEFGENERIC TEST-MC69-15 (X Y &REST Z) (:METHOD-COMBINATION MC69 "xyz") (:METHOD (X Y &REST Z) (LIST* X Y Z))) (LIST (TEST-MC69-15 'A 'B) (TEST-MC69-15 'A 'B 'C) (TEST-MC69-15 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT (A B) (A B)) ("xyz" "def" RESULT (A B C) (A B C)) ("xyz" "def" RESULT (A B C D) (A B C D)))
(PROGN (DEFGENERIC TEST-MC69-16 (X Y Z &REST U) (:METHOD-COMBINATION MC69 "xyz") (:METHOD (X Y Z &REST U) (LIST* X Y Z U))) (LIST (TEST-MC69-16 'A 'B 'C) (TEST-MC69-16 'A 'B 'C 'D) (TEST-MC69-16 'A 'B 'C 'D 'E)))
EQUAL-OK: (("xyz" "def" RESULT (A B C) (A B C)) ("xyz" "def" RESULT (A B C D) (A B C D)) ("xyz" "def" RESULT (A B C D E) (A B C D E)))
(PROGN (DEFGENERIC TEST-MC69-17 (X &OPTIONAL Y &REST Z) (:METHOD-COMBINATION MC69 "xyz") (:METHOD (X &OPTIONAL Y &REST Z) (LIST* X Y Z))) (LIST (TEST-MC69-17 'A) (TEST-MC69-17 'A 'B) (TEST-MC69-17 'A 'B 'C) (TEST-MC69-17 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT (A) (A NIL)) ("xyz" "def" RESULT (A B) (A B)) ("xyz" "def" RESULT (A B C) (A B C)) ("xyz" "def" RESULT (A B C D) (A B C D)))
(PROGN (DEFGENERIC TEST-MC69-18 (X &OPTIONAL Y Z &REST U) (:METHOD-COMBINATION MC69 "xyz") (:METHOD (X &OPTIONAL Y Z &REST U) (LIST* X Y Z U))) (LIST (TEST-MC69-18 'A) (TEST-MC69-18 'A 'B) (TEST-MC69-18 'A 'B 'C) (TEST-MC69-18 'A 'B 'C 'D) (TEST-MC69-18 'A 'B 'C 'D 'E)))
EQUAL-OK: (("xyz" "def" RESULT (A) (A NIL NIL)) ("xyz" "def" RESULT (A B) (A B NIL)) ("xyz" "def" RESULT (A B C) (A B C)) ("xyz" "def" RESULT (A B C D) (A B C D)) ("xyz" "def" RESULT (A B C D E) (A B C D E)))
(PROGN (DEFGENERIC TEST-MC69-19 (X &OPTIONAL Y Z U &REST V) (:METHOD-COMBINATION MC69 "xyz") (:METHOD (X &OPTIONAL Y Z U &REST V) (LIST* X Y Z U V))) (LIST (TEST-MC69-19 'A) (TEST-MC69-19 'A 'B) (TEST-MC69-19 'A 'B 'C) (TEST-MC69-19 'A 'B 'C 'D) (TEST-MC69-19 'A 'B 'C 'D 'E) (TEST-MC69-19 'A 'B 'C 'D 'E 'F)))
EQUAL-OK: (("xyz" "def" RESULT (A) (A NIL NIL NIL)) ("xyz" "def" RESULT (A B) (A B NIL NIL)) ("xyz" "def" RESULT (A B C) (A B C NIL)) ("xyz" "def" RESULT (A B C D) (A B C D)) ("xyz" "def" RESULT (A B C D E) (A B C D E)) ("xyz" "def" RESULT (A B C D E F) (A B C D E F)))
(DEFINE-METHOD-COMBINATION MC70 (OPT1 &OPTIONAL (OPT2 "def")) ((ALL *)) (:ARGUMENTS &WHOLE WHOLE A1 A2 &OPTIONAL (O1 'DEF1) (O2 'DEF2) &REST R) `(LIST ',OPT1 ',OPT2 'RESULT ,WHOLE ,A1 ,A2 ,O1 ,O2 ,R (CALL-METHOD ,(FIRST ALL))))
EQL-OK: MC70
(PROGN (DEFGENERIC TEST-MC70-1 NIL (:METHOD-COMBINATION MC70 "xyz") (:METHOD NIL 'NIL)) (TEST-MC70-1))
EQUAL-OK: ("xyz" "def" RESULT NIL NIL NIL DEF1 DEF2 NIL NIL)
(PROGN (DEFGENERIC TEST-MC70-2 (X) (:METHOD-COMBINATION MC70 "xyz") (:METHOD (X) (LIST X))) (TEST-MC70-2 'A))
EQUAL-OK: ("xyz" "def" RESULT (A) A NIL DEF1 DEF2 NIL (A))
(PROGN (DEFGENERIC TEST-MC70-3 (X Y) (:METHOD-COMBINATION MC70 "xyz") (:METHOD (X Y) (LIST X Y))) (TEST-MC70-3 'A 'B))
EQUAL-OK: ("xyz" "def" RESULT (A B) A B DEF1 DEF2 NIL (A B))
(PROGN (DEFGENERIC TEST-MC70-4 (X Y Z) (:METHOD-COMBINATION MC70 "xyz") (:METHOD (X Y Z) (LIST X Y Z))) (TEST-MC70-4 'A 'B 'C))
EQUAL-OK: ("xyz" "def" RESULT (A B C) A B DEF1 DEF2 NIL (A B C))
(PROGN (DEFGENERIC TEST-MC70-5 (X &OPTIONAL Y) (:METHOD-COMBINATION MC70 "xyz") (:METHOD (X &OPTIONAL Y) (LIST X Y))) (LIST (TEST-MC70-5 'A) (TEST-MC70-5 'A 'B)))
EQUAL-OK: (("xyz" "def" RESULT (A) A NIL DEF1 DEF2 NIL (A NIL)) ("xyz" "def" RESULT (A B) A NIL B DEF2 NIL (A B)))
(PROGN (DEFGENERIC TEST-MC70-6 (X Y &OPTIONAL Z) (:METHOD-COMBINATION MC70 "xyz") (:METHOD (X Y &OPTIONAL Z) (LIST X Y Z))) (LIST (TEST-MC70-6 'A 'B) (TEST-MC70-6 'A 'B 'C)))
EQUAL-OK: (("xyz" "def" RESULT (A B) A B DEF1 DEF2 NIL (A B NIL)) ("xyz" "def" RESULT (A B C) A B C DEF2 NIL (A B C)))
(PROGN (DEFGENERIC TEST-MC70-7 (X Y Z &OPTIONAL U) (:METHOD-COMBINATION MC70 "xyz") (:METHOD (X Y Z &OPTIONAL U) (LIST X Y Z U))) (LIST (TEST-MC70-7 'A 'B 'C) (TEST-MC70-7 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT (A B C) A B DEF1 DEF2 NIL (A B C NIL)) ("xyz" "def" RESULT (A B C D) A B D DEF2 NIL (A B C D)))
(PROGN (DEFGENERIC TEST-MC70-8 (X &OPTIONAL Y Z) (:METHOD-COMBINATION MC70 "xyz") (:METHOD (X &OPTIONAL Y Z) (LIST X Y Z))) (LIST (TEST-MC70-8 'A) (TEST-MC70-8 'A 'B) (TEST-MC70-8 'A 'B 'C)))
EQUAL-OK: (("xyz" "def" RESULT (A) A NIL DEF1 DEF2 NIL (A NIL NIL)) ("xyz" "def" RESULT (A B) A NIL B DEF2 NIL (A B NIL)) ("xyz" "def" RESULT (A B C) A NIL B C NIL (A B C)))
(PROGN (DEFGENERIC TEST-MC70-9 (X Y &OPTIONAL Z U) (:METHOD-COMBINATION MC70 "xyz") (:METHOD (X Y &OPTIONAL Z U) (LIST X Y Z U))) (LIST (TEST-MC70-9 'A 'B) (TEST-MC70-9 'A 'B 'C) (TEST-MC70-9 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT (A B) A B DEF1 DEF2 NIL (A B NIL NIL)) ("xyz" "def" RESULT (A B C) A B C DEF2 NIL (A B C NIL)) ("xyz" "def" RESULT (A B C D) A B C D NIL (A B C D)))
(PROGN (DEFGENERIC TEST-MC70-10 (X Y Z &OPTIONAL U V) (:METHOD-COMBINATION MC70 "xyz") (:METHOD (X Y Z &OPTIONAL U V) (LIST X Y Z U V))) (LIST (TEST-MC70-10 'A 'B 'C) (TEST-MC70-10 'A 'B 'C 'D) (TEST-MC70-10 'A 'B 'C 'D 'E)))
EQUAL-OK: (("xyz" "def" RESULT (A B C) A B DEF1 DEF2 NIL (A B C NIL NIL)) ("xyz" "def" RESULT (A B C D) A B D DEF2 NIL (A B C D NIL)) ("xyz" "def" RESULT (A B C D E) A B D E NIL (A B C D E)))
(PROGN (DEFGENERIC TEST-MC70-11 (X &OPTIONAL Y Z U) (:METHOD-COMBINATION MC70 "xyz") (:METHOD (X &OPTIONAL Y Z U) (LIST X Y Z U))) (LIST (TEST-MC70-11 'A) (TEST-MC70-11 'A 'B) (TEST-MC70-11 'A 'B 'C) (TEST-MC70-11 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT (A) A NIL DEF1 DEF2 NIL (A NIL NIL NIL)) ("xyz" "def" RESULT (A B) A NIL B DEF2 NIL (A B NIL NIL)) ("xyz" "def" RESULT (A B C) A NIL B C NIL (A B C NIL)) ("xyz" "def" RESULT (A B C D) A NIL B C NIL (A B C D)))
(PROGN (DEFGENERIC TEST-MC70-12 (X Y &OPTIONAL Z U V) (:METHOD-COMBINATION MC70 "xyz") (:METHOD (X Y &OPTIONAL Z U V) (LIST X Y Z U V))) (LIST (TEST-MC70-12 'A 'B) (TEST-MC70-12 'A 'B 'C) (TEST-MC70-12 'A 'B 'C 'D) (TEST-MC70-12 'A 'B 'C 'D 'E)))
EQUAL-OK: (("xyz" "def" RESULT (A B) A B DEF1 DEF2 NIL (A B NIL NIL NIL)) ("xyz" "def" RESULT (A B C) A B C DEF2 NIL (A B C NIL NIL)) ("xyz" "def" RESULT (A B C D) A B C D NIL (A B C D NIL)) ("xyz" "def" RESULT (A B C D E) A B C D NIL (A B C D E)))
(PROGN (DEFGENERIC TEST-MC70-13 (X Y Z &OPTIONAL U V W) (:METHOD-COMBINATION MC70 "xyz") (:METHOD (X Y Z &OPTIONAL U V W) (LIST X Y Z U V W))) (LIST (TEST-MC70-13 'A 'B 'C) (TEST-MC70-13 'A 'B 'C 'D) (TEST-MC70-13 'A 'B 'C 'D 'E) (TEST-MC70-13 'A 'B 'C 'D 'E 'F)))
EQUAL-OK: (("xyz" "def" RESULT (A B C) A B DEF1 DEF2 NIL (A B C NIL NIL NIL)) ("xyz" "def" RESULT (A B C D) A B D DEF2 NIL (A B C D NIL NIL)) ("xyz" "def" RESULT (A B C D E) A B D E NIL (A B C D E NIL)) ("xyz" "def" RESULT (A B C D E F) A B D E NIL (A B C D E F)))
(PROGN (DEFGENERIC TEST-MC70-14 (X &REST Y) (:METHOD-COMBINATION MC70 "xyz") (:METHOD (X &REST Y) (LIST* X Y))) (LIST (TEST-MC70-14 'A) (TEST-MC70-14 'A 'B) (TEST-MC70-14 'A 'B 'C)))
EQUAL-OK: (("xyz" "def" RESULT (A) A NIL DEF1 DEF2 NIL (A)) ("xyz" "def" RESULT (A B) A NIL DEF1 DEF2 (B) (A B)) ("xyz" "def" RESULT (A B C) A NIL DEF1 DEF2 (B C) (A B C)))
(PROGN (DEFGENERIC TEST-MC70-15 (X Y &REST Z) (:METHOD-COMBINATION MC70 "xyz") (:METHOD (X Y &REST Z) (LIST* X Y Z))) (LIST (TEST-MC70-15 'A 'B) (TEST-MC70-15 'A 'B 'C) (TEST-MC70-15 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT (A B) A B DEF1 DEF2 NIL (A B)) ("xyz" "def" RESULT (A B C) A B DEF1 DEF2 (C) (A B C)) ("xyz" "def" RESULT (A B C D) A B DEF1 DEF2 (C D) (A B C D)))
(PROGN (DEFGENERIC TEST-MC70-16 (X Y Z &REST U) (:METHOD-COMBINATION MC70 "xyz") (:METHOD (X Y Z &REST U) (LIST* X Y Z U))) (LIST (TEST-MC70-16 'A 'B 'C) (TEST-MC70-16 'A 'B 'C 'D) (TEST-MC70-16 'A 'B 'C 'D 'E)))
EQUAL-OK: (("xyz" "def" RESULT (A B C) A B DEF1 DEF2 NIL (A B C)) ("xyz" "def" RESULT (A B C D) A B DEF1 DEF2 (D) (A B C D)) ("xyz" "def" RESULT (A B C D E) A B DEF1 DEF2 (D E) (A B C D E)))
(PROGN (DEFGENERIC TEST-MC70-17 (X &OPTIONAL Y &REST Z) (:METHOD-COMBINATION MC70 "xyz") (:METHOD (X &OPTIONAL Y &REST Z) (LIST* X Y Z))) (LIST (TEST-MC70-17 'A) (TEST-MC70-17 'A 'B) (TEST-MC70-17 'A 'B 'C) (TEST-MC70-17 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT (A) A NIL DEF1 DEF2 NIL (A NIL)) ("xyz" "def" RESULT (A B) A NIL B DEF2 NIL (A B)) ("xyz" "def" RESULT (A B C) A NIL B DEF2 (C) (A B C)) ("xyz" "def" RESULT (A B C D) A NIL B DEF2 (C D) (A B C D)))
(PROGN (DEFGENERIC TEST-MC70-18 (X &OPTIONAL Y Z &REST U) (:METHOD-COMBINATION MC70 "xyz") (:METHOD (X &OPTIONAL Y Z &REST U) (LIST* X Y Z U))) (LIST (TEST-MC70-18 'A) (TEST-MC70-18 'A 'B) (TEST-MC70-18 'A 'B 'C) (TEST-MC70-18 'A 'B 'C 'D) (TEST-MC70-18 'A 'B 'C 'D 'E)))
EQUAL-OK: (("xyz" "def" RESULT (A) A NIL DEF1 DEF2 NIL (A NIL NIL)) ("xyz" "def" RESULT (A B) A NIL B DEF2 NIL (A B NIL)) ("xyz" "def" RESULT (A B C) A NIL B C NIL (A B C)) ("xyz" "def" RESULT (A B C D) A NIL B C (D) (A B C D)) ("xyz" "def" RESULT (A B C D E) A NIL B C (D E) (A B C D E)))
(PROGN (DEFGENERIC TEST-MC70-19 (X &OPTIONAL Y Z U &REST V) (:METHOD-COMBINATION MC70 "xyz") (:METHOD (X &OPTIONAL Y Z U &REST V) (LIST* X Y Z U V))) (LIST (TEST-MC70-19 'A) (TEST-MC70-19 'A 'B) (TEST-MC70-19 'A 'B 'C) (TEST-MC70-19 'A 'B 'C 'D) (TEST-MC70-19 'A 'B 'C 'D 'E) (TEST-MC70-19 'A 'B 'C 'D 'E 'F)))
EQUAL-OK: (("xyz" "def" RESULT (A) A NIL DEF1 DEF2 NIL (A NIL NIL NIL)) ("xyz" "def" RESULT (A B) A NIL B DEF2 NIL (A B NIL NIL)) ("xyz" "def" RESULT (A B C) A NIL B C NIL (A B C NIL)) ("xyz" "def" RESULT (A B C D) A NIL B C NIL (A B C D)) ("xyz" "def" RESULT (A B C D E) A NIL B C (E) (A B C D E)) ("xyz" "def" RESULT (A B C D E F) A NIL B C (E F) (A B C D E F)))
(DEFINE-METHOD-COMBINATION MC71 (OPT1 &OPTIONAL (OPT2 "def")) ((ALL *)) (:ARGUMENTS &OPTIONAL (O1 'DEF1 OS1) (O2 'DEF2 OS2)) `(LIST ',OPT1 ',OPT2 'RESULT ,O1 ,O2 ,OS1 ,OS2 (CALL-METHOD ,(FIRST ALL))))
EQL-OK: MC71
(PROGN (DEFGENERIC TEST-MC71-1 (X) (:METHOD-COMBINATION MC71 "xyz") (:METHOD (X) (LIST X))) (TEST-MC71-1 'A))
EQUAL-OK: ("xyz" "def" RESULT DEF1 DEF2 NIL NIL (A))
(PROGN (DEFGENERIC TEST-MC71-2 (X &OPTIONAL Y) (:METHOD-COMBINATION MC71 "xyz") (:METHOD (X &OPTIONAL Y) (LIST X Y))) (LIST (TEST-MC71-2 'A) (TEST-MC71-2 'A 'B)))
EQUAL-OK: (("xyz" "def" RESULT DEF1 DEF2 NIL NIL (A NIL)) ("xyz" "def" RESULT B DEF2 T NIL (A B)))
(PROGN (DEFGENERIC TEST-MC71-3 (X &OPTIONAL Y Z) (:METHOD-COMBINATION MC71 "xyz") (:METHOD (X &OPTIONAL Y Z) (LIST X Y Z))) (LIST (TEST-MC71-3 'A) (TEST-MC71-3 'A 'B) (TEST-MC71-3 'A 'B 'C)))
EQUAL-OK: (("xyz" "def" RESULT DEF1 DEF2 NIL NIL (A NIL NIL)) ("xyz" "def" RESULT B DEF2 T NIL (A B NIL)) ("xyz" "def" RESULT B C T T (A B C)))
(PROGN (DEFGENERIC TEST-MC71-4 (X &OPTIONAL Y Z U) (:METHOD-COMBINATION MC71 "xyz") (:METHOD (X &OPTIONAL Y Z U) (LIST X Y Z U))) (LIST (TEST-MC71-4 'A) (TEST-MC71-4 'A 'B) (TEST-MC71-4 'A 'B 'C) (TEST-MC71-4 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT DEF1 DEF2 NIL NIL (A NIL NIL NIL)) ("xyz" "def" RESULT B DEF2 T NIL (A B NIL NIL)) ("xyz" "def" RESULT B C T T (A B C NIL)) ("xyz" "def" RESULT B C T T (A B C D)))
(PROGN (DEFGENERIC TEST-MC71-5 (X &REST Y) (:METHOD-COMBINATION MC71 "xyz") (:METHOD (X &REST Y) (LIST* X Y))) (LIST (TEST-MC71-5 'A) (TEST-MC71-5 'A 'B) (TEST-MC71-5 'A 'B 'C)))
EQUAL-OK: (("xyz" "def" RESULT DEF1 DEF2 NIL NIL (A)) ("xyz" "def" RESULT DEF1 DEF2 NIL NIL (A B)) ("xyz" "def" RESULT DEF1 DEF2 NIL NIL (A B C)))
(PROGN (DEFGENERIC TEST-MC71-6 (X &OPTIONAL Y &REST Z) (:METHOD-COMBINATION MC71 "xyz") (:METHOD (X &OPTIONAL Y &REST Z) (LIST* X Y Z))) (LIST (TEST-MC71-6 'A) (TEST-MC71-6 'A 'B) (TEST-MC71-6 'A 'B 'C)))
EQUAL-OK: (("xyz" "def" RESULT DEF1 DEF2 NIL NIL (A NIL)) ("xyz" "def" RESULT B DEF2 T NIL (A B)) ("xyz" "def" RESULT B DEF2 T NIL (A B C)))
(PROGN (DEFGENERIC TEST-MC71-7 (X &OPTIONAL Y Z &REST U) (:METHOD-COMBINATION MC71 "xyz") (:METHOD (X &OPTIONAL Y Z &REST U) (LIST* X Y Z U))) (LIST (TEST-MC71-7 'A) (TEST-MC71-7 'A 'B) (TEST-MC71-7 'A 'B 'C) (TEST-MC71-7 'A 'B 'C 'D)))
EQUAL-OK: (("xyz" "def" RESULT DEF1 DEF2 NIL NIL (A NIL NIL)) ("xyz" "def" RESULT B DEF2 T NIL (A B NIL)) ("xyz" "def" RESULT B C T T (A B C)) ("xyz" "def" RESULT B C T T (A B C D)))
(DEFINE-METHOD-COMBINATION MC72 (OPT1 &OPTIONAL (OPT2 "def")) ((ALL *)) (:ARGUMENTS A1 A2 &OPTIONAL (O1 'DEF1) (O2 'DEF2) &KEY (TEST 'EQ TEST-P) (TEST-NOT 'NEQ TEST-NOT-P)) `(LIST ',OPT1 ',OPT2 'RESULT ,A1 ,A2 ,O1 ,O2 ,TEST ,TEST-NOT ,TEST-P ,TEST-NOT-P (CALL-METHOD ,(FIRST ALL))))
EQL-OK: MC72
(PROGN (DEFGENERIC TEST-MC72-1 (X &OPTIONAL Y) (:METHOD-COMBINATION MC72 "xyz") (:METHOD (X &OPTIONAL Y) (LIST X Y))) (LIST (TEST-MC72-1 'A) (TEST-MC72-1 'A 'B)))
WARNING: in TEST-MC72-1-<EMF-1>-1-1 : Mixing &OPTIONAL and &KEY in lambda list
         (&OPTIONAL #:G15214 &KEY (TEST 'EQ TEST-P) (TEST-NOT 'NEQ TEST-NOT-P) &ALLOW-OTHER-KEYS)
         is bad designEQUAL-OK: (("xyz" "def" 
RESULT A NIL DEF1 DEF2 EQ NEQ NIL NIL (A NIL)) ("xyz" "def" RESULT A NIL B DEF2 EQ NEQ NIL NIL (A B)))
(PROGN (DEFGENERIC TEST-MC72-2 (X Y Z &OPTIONAL U V W) (:METHOD-COMBINATION MC72 "xyz") (:METHOD (X Y Z &OPTIONAL U V W) (LIST X Y Z U V W))) (LIST (TEST-MC72-2 'A 'B 'C) (TEST-MC72-2 'A 'B 'C 'D) (TEST-MC72-2 'A 'B 'C 'D 'E) (TEST-MC72-2 'A 'B 'C 'D 'E 'F)))
WARNING: in TEST-MC72-2-<EMF-1>-1-1 : Mixing &OPTIONAL and &KEY in lambda list
         (A1 A2 &OPTIONAL (O1 'DEF1) (O2 'DEF2) #:G15258 &KEY (TEST 'EQ TEST-P) (TEST-NOT 'NEQ TEST-NOT-P) &ALLOW-OTHER-KEYS)
         is bad designEQUAL-OK: (("xyz" "def" 
RESULT A B DEF1 DEF2 EQ NEQ NIL NIL (A B C NIL NIL NIL)) ("xyz" "def" RESULT A B D DEF2 EQ NEQ NIL NIL (A B C D NIL NIL)) ("xyz" "def" RESULT A B D E EQ NEQ NIL NIL (A B C D E NIL)) ("xyz" "def" RESULT A B D E EQ NEQ NIL NIL (A B C D E F)))
(PROGN (DEFGENERIC TEST-MC72-3 (X &REST Y) (:METHOD-COMBINATION MC72 "xyz") (:METHOD (X &REST Y) (LIST* X Y))) (LIST (TEST-MC72-3 'A) (TEST-MC72-3 'A 'B 'C) (TEST-MC72-3 'A :TEST-NOT 'NEQUAL) (TEST-MC72-3 'A :TEST 'EQ :TEST-NOT 'NEQUAL) (TEST-MC72-3 'A :TEST-NOT 'NEQUAL :TEST 'EQL :TEST-NOT 'NEQUALP)))
EQUAL-OK: (("xyz" "def" RESULT A NIL DEF1 DEF2 EQ NEQ NIL NIL (A)) ("xyz" "def" RESULT A NIL DEF1 DEF2 EQ NEQ NIL NIL (A B C)) ("xyz" "def" RESULT A NIL DEF1 DEF2 EQ NEQUAL NIL T (A :TEST-NOT NEQUAL)) ("xyz" "def" RESULT A NIL DEF1 DEF2 EQ NEQUAL T T (A :TEST EQ :TEST-NOT NEQUAL)) ("xyz" "def" RESULT A NIL DEF1 DEF2 EQL NEQUAL T T (A :TEST-NOT NEQUAL :TEST EQL :TEST-NOT NEQUALP)))
(PROGN (DEFGENERIC TEST-MC72-4 (X &REST Y) (:METHOD-COMBINATION MC72 "xyz") (:METHOD (X &REST Y) (LIST* X Y))) (TEST-MC72-4 'A 'B))
[SIMPLE-PROGRAM-ERROR]: TEST-MC72-4-<EMF-1>-1-1: keyword arguments in (B) should occur pairwise
EQL-OK: ERROR
(PROGN (DEFGENERIC TEST-MC72-5 (X Y Z &REST U) (:METHOD-COMBINATION MC72 "xyz") (:METHOD (X Y Z &REST U) (LIST* X Y Z U))) (LIST (TEST-MC72-5 'A :TEST 'EQ) (TEST-MC72-5 'A :TEST 'EQ 'D 'E) (TEST-MC72-5 'A :TEST 'EQ :TEST-NOT 'NEQUAL) (TEST-MC72-5 'A :TEST 'EQ :TEST 'EQ :TEST-NOT 'NEQUAL) (TEST-MC72-5 'A :TEST 'EQ :TEST-NOT 'NEQUAL :TEST 'EQL :TEST-NOT 'NEQUALP)))
EQUAL-OK: (("xyz" "def" RESULT A :TEST DEF1 DEF2 EQ NEQ NIL NIL (A :TEST EQ)) ("xyz" "def" RESULT A :TEST DEF1 DEF2 EQ NEQ NIL NIL (A :TEST EQ D E)) ("xyz" "def" RESULT A :TEST DEF1 DEF2 EQ NEQUAL NIL T (A :TEST EQ :TEST-NOT NEQUAL)) ("xyz" "def" RESULT A :TEST DEF1 DEF2 EQ NEQUAL T T (A :TEST EQ :TEST EQ :TEST-NOT NEQUAL)) ("xyz" "def" RESULT A :TEST DEF1 DEF2 EQL NEQUAL T T (A :TEST EQ :TEST-NOT NEQUAL :TEST EQL :TEST-NOT NEQUALP)))
(PROGN (DEFGENERIC TEST-MC72-6 (X &OPTIONAL Y Z U &REST V) (:METHOD-COMBINATION MC72 "xyz") (:METHOD (X &OPTIONAL Y Z U &REST V) (LIST* X Y Z U V))) (LIST (TEST-MC72-6 'A) (TEST-MC72-6 'A 'B 'C) (TEST-MC72-6 'A :TEST 'EQ 'D :TEST-NOT 'NEQUAL) (TEST-MC72-6 'A :TEST 'EQ 'D :TEST 'EQ :TEST-NOT 'NEQUAL) (TEST-MC72-6 'A :TEST 'EQ 'D :TEST-NOT 'NEQUAL :TEST 'EQL :TEST-NOT 'NEQUALP)))
WARNING: in TEST-MC72-6-<EMF-1>-1-1 : Mixing &OPTIONAL and &KEY in lambda list
         (A1 A2 &OPTIONAL (O1 'DEF1) (O2 'DEF2) #:G15398 &KEY (TEST 'EQ TEST-P) (TEST-NOT 'NEQ TEST-NOT-P) &ALLOW-OTHER-KEYS)
         is bad designEQUAL-OK: (("xyz" "def" 
RESULT A NIL DEF1 DEF2 EQ NEQ NIL NIL (A NIL NIL NIL)) ("xyz" "def" RESULT A NIL B C EQ NEQ NIL NIL (A B C NIL)) ("xyz" "def" RESULT A NIL :TEST EQ EQ NEQUAL NIL T (A :TEST EQ D :TEST-NOT NEQUAL)) ("xyz" "def" RESULT A NIL :TEST EQ EQ NEQUAL T T (A :TEST EQ D :TEST EQ :TEST-NOT NEQUAL)) ("xyz" "def" RESULT A NIL :TEST EQ EQL NEQUAL T T (A :TEST EQ D :TEST-NOT NEQUAL :TEST EQL :TEST-NOT NEQUALP)))
(PROGN (DEFUN PROMPT-FOR-NEW-VALUES NIL (FORMAT *DEBUG-IO* "~&New values: ") (LIST (READ *DEBUG-IO*))) (DEFUN ADD-METHOD-RESTARTS (FORM METHOD) (LET ((BLOCK (GENSYM)) (TAG (GENSYM))) `(BLOCK ,BLOCK (TAGBODY ,TAG (RETURN-FROM ,BLOCK (RESTART-CASE ,FORM (METHOD-REDO NIL :REPORT (LAMBDA (STREAM) (FORMAT STREAM "Try calling ~S again." ,METHOD)) (GO ,TAG)) (METHOD-RETURN (L) :REPORT (LAMBDA (STREAM) (FORMAT STREAM "Specify return values for ~S call." ,METHOD)) :INTERACTIVE (LAMBDA NIL (PROMPT-FOR-NEW-VALUES)) (RETURN-FROM ,BLOCK (VALUES-LIST L))))))))) (DEFUN CONVERT-EFFECTIVE-METHOD (EFM) (IF (CONSP EFM) (IF (EQ (CAR EFM) 'CALL-METHOD) (LET ((METHOD-LIST (THIRD EFM))) (IF (OR (TYPEP (FIRST METHOD-LIST) 'METHOD) (REST METHOD-LIST)) (CONVERT-EFFECTIVE-METHOD `(CALL-METHOD ,(SECOND EFM) ((MAKE-METHOD (CALL-METHOD ,(FIRST METHOD-LIST) ,(REST METHOD-LIST)))))) (IF (TYPEP (SECOND EFM) 'METHOD) (ADD-METHOD-RESTARTS (CONS (CONVERT-EFFECTIVE-METHOD (CAR EFM)) (CONVERT-EFFECTIVE-METHOD (CDR EFM))) (SECOND EFM)) (CONS (CONVERT-EFFECTIVE-METHOD (CAR EFM)) (CONVERT-EFFECTIVE-METHOD (CDR EFM)))))) (CONS (CONVERT-EFFECTIVE-METHOD (CAR EFM)) (CONVERT-EFFECTIVE-METHOD (CDR EFM)))) EFM)) (DEFINE-METHOD-COMBINATION STANDARD-WITH-RESTARTS NIL ((AROUND (:AROUND)) (BEFORE (:BEFORE)) (PRIMARY NIL :REQUIRED T) (AFTER (:AFTER))) (FLET ((CALL-METHODS-SEQUENTIALLY (METHODS) (MAPCAR #'(LAMBDA (METHOD) `(CALL-METHOD ,METHOD)) METHODS))) (LET ((FORM (IF (OR BEFORE AFTER (REST PRIMARY)) `(MULTIPLE-VALUE-PROG1 (PROGN ,@(CALL-METHODS-SEQUENTIALLY BEFORE) (CALL-METHOD ,(FIRST PRIMARY) ,(REST PRIMARY))) ,@(CALL-METHODS-SEQUENTIALLY (REVERSE AFTER))) `(CALL-METHOD ,(FIRST PRIMARY))))) (WHEN AROUND (SETQ FORM `(CALL-METHOD ,(FIRST AROUND) (,@(REST AROUND) (MAKE-METHOD ,FORM))))) (CONVERT-EFFECTIVE-METHOD FORM)))) (DEFGENERIC TESTGF16 (X) (:METHOD-COMBINATION STANDARD-WITH-RESTARTS)) (DEFCLASS TESTCLASS16A NIL NIL) (DEFCLASS TESTCLASS16B (TESTCLASS16A) NIL) (DEFCLASS TESTCLASS16C (TESTCLASS16A) NIL) (DEFCLASS TESTCLASS16D (TESTCLASS16B TESTCLASS16C) NIL) (DEFMETHOD TESTGF16 ((X TESTCLASS16A)) (LIST 'A (NOT (NULL (FIND-RESTART 'METHOD-REDO))) (NOT (NULL (FIND-RESTART 'METHOD-RETURN))))) (DEFMETHOD TESTGF16 ((X TESTCLASS16B)) (CONS 'B (CALL-NEXT-METHOD))) (DEFMETHOD TESTGF16 ((X TESTCLASS16C)) (CONS 'C (CALL-NEXT-METHOD))) (DEFMETHOD TESTGF16 ((X TESTCLASS16D)) (CONS 'D (CALL-NEXT-METHOD))) (TESTGF16 (MAKE-INSTANCE 'TESTCLASS16D)))
EQUAL-OK: (D B C A T T)
(PROGN (DEFCLASS USER-METHOD (STANDARD-METHOD) (MYSLOT)) T)
EQL-OK: T
(DEFMACRO DEF-USER-METHOD (NAME &REST REST) (LET* ((LAMBDALIST-POSITION (POSITION-IF #'LISTP REST)) (QUALIFIERS (SUBSEQ REST 0 LAMBDALIST-POSITION)) (LAMBDALIST (ELT REST LAMBDALIST-POSITION)) (BODY (SUBSEQ REST (+ LAMBDALIST-POSITION 1))) (REQUIRED-PART (SUBSEQ LAMBDALIST 0 (OR (POSITION-IF #'(LAMBDA (X) (MEMBER X LAMBDA-LIST-KEYWORDS)) LAMBDALIST) (LENGTH LAMBDALIST)))) (SPECIALIZERS (MAPCAR #'FIND-CLASS (MAPCAR #'(LAMBDA (X) (IF (CONSP X) (SECOND X) 'T)) REQUIRED-PART))) (UNSPECIALIZED-REQUIRED-PART (MAPCAR #'(LAMBDA (X) (IF (CONSP X) (FIRST X) X)) REQUIRED-PART)) (UNSPECIALIZED-LAMBDALIST (APPEND UNSPECIALIZED-REQUIRED-PART (SUBSEQ LAMBDALIST (LENGTH REQUIRED-PART))))) `(PROGN (ADD-METHOD #',NAME (MAKE-INSTANCE 'USER-METHOD :QUALIFIERS ',QUALIFIERS :LAMBDA-LIST ',UNSPECIALIZED-LAMBDALIST :SPECIALIZERS ',SPECIALIZERS :FUNCTION #'(LAMBDA (ARGUMENTS NEXT-METHODS-LIST) (FLET ((NEXT-METHOD-P NIL NEXT-METHODS-LIST) (CALL-NEXT-METHOD (&REST NEW-ARGUMENTS) (UNLESS NEW-ARGUMENTS (SETQ NEW-ARGUMENTS ARGUMENTS)) (IF (NULL NEXT-METHODS-LIST) (ERROR "no next method for arguments ~:S" ARGUMENTS) (FUNCALL (METHOD-FUNCTION (FIRST NEXT-METHODS-LIST)) NEW-ARGUMENTS (REST NEXT-METHODS-LIST))))) (APPLY #'(LAMBDA ,UNSPECIALIZED-LAMBDALIST ,@BODY) ARGUMENTS))))) ',NAME)))
EQL-OK: DEF-USER-METHOD
(PROGN (DEFGENERIC TEST-UM01 (X Y)) (DEF-USER-METHOD TEST-UM01 ((X SYMBOL) (Y SYMBOL)) (LIST X Y (NEXT-METHOD-P))) (TEST-UM01 'A 'B))
EQUAL-OK: (A B NIL)
(PROGN (DEFGENERIC TEST-UM02 (X)) (DEF-USER-METHOD TEST-UM02 ((X INTEGER)) (LIST* 'INTEGER X (NOT (NULL (NEXT-METHOD-P))) (CALL-NEXT-METHOD))) (DEFMETHOD TEST-UM02 ((X RATIONAL)) (LIST* 'RATIONAL X (NOT (NULL (NEXT-METHOD-P))) (CALL-NEXT-METHOD))) (DEFMETHOD TEST-UM02 ((X REAL)) (LIST 'REAL X (NOT (NULL (NEXT-METHOD-P))))) (TEST-UM02 17))
EQUAL-OK: (INTEGER 17 T RATIONAL 17 T REAL 17 NIL)
(PROGN (DEFGENERIC TEST-UM03 (X)) (DEFMETHOD TEST-UM03 ((X INTEGER)) (LIST* 'INTEGER X (NOT (NULL (NEXT-METHOD-P))) (CALL-NEXT-METHOD))) (DEF-USER-METHOD TEST-UM03 ((X RATIONAL)) (LIST* 'RATIONAL X (NOT (NULL (NEXT-METHOD-P))) (CALL-NEXT-METHOD))) (DEFMETHOD TEST-UM03 ((X REAL)) (LIST 'REAL X (NOT (NULL (NEXT-METHOD-P))))) (TEST-UM03 17))
EQUAL-OK: (INTEGER 17 T RATIONAL 17 T REAL 17 NIL)
(PROGN (DEFGENERIC TEST-UM04 (X)) (DEFMETHOD TEST-UM04 ((X INTEGER)) (LIST* 'INTEGER X (NOT (NULL (NEXT-METHOD-P))) (CALL-NEXT-METHOD))) (DEFMETHOD TEST-UM04 ((X RATIONAL)) (LIST* 'RATIONAL X (NOT (NULL (NEXT-METHOD-P))) (CALL-NEXT-METHOD))) (DEF-USER-METHOD TEST-UM04 ((X REAL)) (LIST 'REAL X (NOT (NULL (NEXT-METHOD-P))))) (TEST-UM04 17))
EQUAL-OK: (INTEGER 17 T RATIONAL 17 T REAL 17 NIL)
(LET ((RESULTS NIL)) (DEFGENERIC TEST-UM05 (X)) (DEFMETHOD TEST-UM05 (X) (PUSH 'PRIMARY RESULTS) (PUSH X RESULTS)) (DEF-USER-METHOD TEST-UM05 :BEFORE ((X INTEGER)) (PUSH 'BEFORE-INTEGER RESULTS) (PUSH X RESULTS)) (DEFMETHOD TEST-UM05 :BEFORE ((X REAL)) (PUSH 'BEFORE-REAL RESULTS) (PUSH X RESULTS)) (TEST-UM05 17) (NREVERSE RESULTS))
EQUAL-OK: (BEFORE-INTEGER 17 BEFORE-REAL 17 PRIMARY 17)
(LET ((RESULTS NIL)) (DEFGENERIC TEST-UM06 (X)) (DEFMETHOD TEST-UM06 (X) (PUSH 'PRIMARY RESULTS) (PUSH X RESULTS)) (DEFMETHOD TEST-UM06 :BEFORE ((X INTEGER)) (PUSH 'BEFORE-INTEGER RESULTS) (PUSH X RESULTS)) (DEF-USER-METHOD TEST-UM06 :BEFORE ((X REAL)) (PUSH 'BEFORE-REAL RESULTS) (PUSH X RESULTS)) (TEST-UM06 17) (NREVERSE RESULTS))
EQUAL-OK: (BEFORE-INTEGER 17 BEFORE-REAL 17 PRIMARY 17)
(LET ((RESULTS NIL)) (DEFGENERIC TEST-UM07 (X)) (DEFMETHOD TEST-UM07 (X) (PUSH 'PRIMARY RESULTS) (PUSH X RESULTS)) (DEFMETHOD TEST-UM07 :AFTER ((X INTEGER)) (PUSH 'AFTER-INTEGER RESULTS) (PUSH X RESULTS)) (DEF-USER-METHOD TEST-UM07 :AFTER ((X REAL)) (PUSH 'AFTER-REAL RESULTS) (PUSH X RESULTS)) (TEST-UM07 17) (NREVERSE RESULTS))
EQUAL-OK: (PRIMARY 17 AFTER-REAL 17 AFTER-INTEGER 17)
(LET ((RESULTS NIL)) (DEFGENERIC TEST-UM08 (X)) (DEFMETHOD TEST-UM08 (X) (PUSH 'PRIMARY RESULTS) (PUSH X RESULTS)) (DEF-USER-METHOD TEST-UM08 :AFTER ((X INTEGER)) (PUSH 'AFTER-INTEGER RESULTS) (PUSH X RESULTS)) (DEFMETHOD TEST-UM08 :AFTER ((X REAL)) (PUSH 'AFTER-REAL RESULTS) (PUSH X RESULTS)) (TEST-UM08 17) (NREVERSE RESULTS))
EQUAL-OK: (PRIMARY 17 AFTER-REAL 17 AFTER-INTEGER 17)
(PROGN (DEFGENERIC TEST-UM10 (X)) (DEFMETHOD TEST-UM10 ((X INTEGER)) (LIST* 'INTEGER X (NOT (NULL (NEXT-METHOD-P))) (CALL-NEXT-METHOD))) (DEFMETHOD TEST-UM10 ((X RATIONAL)) (LIST* 'RATIONAL X (NOT (NULL (NEXT-METHOD-P))) (CALL-NEXT-METHOD))) (DEFMETHOD TEST-UM10 ((X REAL)) (LIST 'REAL X (NOT (NULL (NEXT-METHOD-P))))) (DEFMETHOD TEST-UM10 :AFTER ((X REAL))) (DEF-USER-METHOD TEST-UM10 :AROUND ((X INTEGER)) (LIST* 'AROUND-INTEGER X (NOT (NULL (NEXT-METHOD-P))) (CALL-NEXT-METHOD))) (DEFMETHOD TEST-UM10 :AROUND ((X RATIONAL)) (LIST* 'AROUND-RATIONAL X (NOT (NULL (NEXT-METHOD-P))) (CALL-NEXT-METHOD))) (DEFMETHOD TEST-UM10 :AROUND ((X REAL)) (LIST* 'AROUND-REAL X (NOT (NULL (NEXT-METHOD-P))) (CALL-NEXT-METHOD))) (TEST-UM10 17))
EQUAL-OK: (AROUND-INTEGER 17 T AROUND-RATIONAL 17 T AROUND-REAL 17 T INTEGER 17 T RATIONAL 17 T REAL 17 NIL)
(PROGN (DEFGENERIC TEST-UM11 (X)) (DEFMETHOD TEST-UM11 ((X INTEGER)) (LIST* 'INTEGER X (NOT (NULL (NEXT-METHOD-P))) (CALL-NEXT-METHOD))) (DEFMETHOD TEST-UM11 ((X RATIONAL)) (LIST* 'RATIONAL X (NOT (NULL (NEXT-METHOD-P))) (CALL-NEXT-METHOD))) (DEFMETHOD TEST-UM11 ((X REAL)) (LIST 'REAL X (NOT (NULL (NEXT-METHOD-P))))) (DEFMETHOD TEST-UM11 :AFTER ((X REAL))) (DEFMETHOD TEST-UM11 :AROUND ((X INTEGER)) (LIST* 'AROUND-INTEGER X (NOT (NULL (NEXT-METHOD-P))) (CALL-NEXT-METHOD))) (DEF-USER-METHOD TEST-UM11 :AROUND ((X RATIONAL)) (LIST* 'AROUND-RATIONAL X (NOT (NULL (NEXT-METHOD-P))) (CALL-NEXT-METHOD))) (DEFMETHOD TEST-UM11 :AROUND ((X REAL)) (LIST* 'AROUND-REAL X (NOT (NULL (NEXT-METHOD-P))) (CALL-NEXT-METHOD))) (TEST-UM11 17))
EQUAL-OK: (AROUND-INTEGER 17 T AROUND-RATIONAL 17 T AROUND-REAL 17 T INTEGER 17 T RATIONAL 17 T REAL 17 NIL)
(PROGN (DEFGENERIC TEST-UM12 (X)) (DEFMETHOD TEST-UM12 ((X INTEGER)) (LIST* 'INTEGER X (NOT (NULL (NEXT-METHOD-P))) (CALL-NEXT-METHOD))) (DEFMETHOD TEST-UM12 ((X RATIONAL)) (LIST* 'RATIONAL X (NOT (NULL (NEXT-METHOD-P))) (CALL-NEXT-METHOD))) (DEFMETHOD TEST-UM12 ((X REAL)) (LIST 'REAL X (NOT (NULL (NEXT-METHOD-P))))) (DEFMETHOD TEST-UM12 :AFTER ((X REAL))) (DEFMETHOD TEST-UM12 :AROUND ((X INTEGER)) (LIST* 'AROUND-INTEGER X (NOT (NULL (NEXT-METHOD-P))) (CALL-NEXT-METHOD))) (DEFMETHOD TEST-UM12 :AROUND ((X RATIONAL)) (LIST* 'AROUND-RATIONAL X (NOT (NULL (NEXT-METHOD-P))) (CALL-NEXT-METHOD))) (DEF-USER-METHOD TEST-UM12 :AROUND ((X REAL)) (LIST* 'AROUND-REAL X (NOT (NULL (NEXT-METHOD-P))) (CALL-NEXT-METHOD))) (TEST-UM12 17))
EQUAL-OK: (AROUND-INTEGER 17 T AROUND-RATIONAL 17 T AROUND-REAL 17 T INTEGER 17 T RATIONAL 17 T REAL 17 NIL)
(PROGN (DEFGENERIC TEST-UM13 (X)) (DEFMETHOD TEST-UM13 ((X INTEGER)) (LIST* 'INTEGER X (NOT (NULL (NEXT-METHOD-P))) (CALL-NEXT-METHOD))) (DEF-USER-METHOD TEST-UM13 ((X RATIONAL)) (LIST* 'RATIONAL X (NOT (NULL (NEXT-METHOD-P))) (CALL-NEXT-METHOD))) (DEFMETHOD TEST-UM13 ((X REAL)) (LIST 'REAL X (NOT (NULL (NEXT-METHOD-P))))) (DEFMETHOD TEST-UM13 :AFTER ((X REAL))) (DEFMETHOD TEST-UM13 :AROUND ((X INTEGER)) (LIST* 'AROUND-INTEGER X (NOT (NULL (NEXT-METHOD-P))) (CALL-NEXT-METHOD))) (DEF-USER-METHOD TEST-UM13 :AROUND ((X RATIONAL)) (LIST* 'AROUND-RATIONAL X (NOT (NULL (NEXT-METHOD-P))) (CALL-NEXT-METHOD))) (DEFMETHOD TEST-UM13 :AROUND ((X REAL)) (LIST* 'AROUND-REAL X (NOT (NULL (NEXT-METHOD-P))) (CALL-NEXT-METHOD))) (TEST-UM13 17))
EQUAL-OK: (AROUND-INTEGER 17 T AROUND-RATIONAL 17 T AROUND-REAL 17 T INTEGER 17 T RATIONAL 17 T REAL 17 NIL)
(PROGN (DEFCLASS FOO129 NIL ((X :INITARG :X))) (DEFPARAMETER *FOO129-COUNTER* 0) (DEFMETHOD INITIALIZE-INSTANCE ((INSTANCE FOO129) &REST INITARGS &KEY (X 'NIL)) (INCF *FOO129-COUNTER*) (APPLY #'CALL-NEXT-METHOD INSTANCE :X (CONS 'A X) INITARGS)) (MAKE-INSTANCE 'FOO129) *FOO129-COUNTER*)
EQL-OK: 1
(PROGN (DEFCLASS FOO130 NIL ((X :INITARG :X))) (DEFPARAMETER *FOO130-COUNTER* 0) (LOCALLY (DECLARE (COMPILE)) (DEFMETHOD INITIALIZE-INSTANCE ((INSTANCE FOO130) &REST INITARGS &KEY (X 'NIL)) (INCF *FOO130-COUNTER*) (APPLY #'CALL-NEXT-METHOD INSTANCE :X (CONS 'A X) INITARGS))) (MAKE-INSTANCE 'FOO130) *FOO130-COUNTER*)
EQL-OK: 1
(PROGN (SETQ *FORWARD-REFERENCED-CLASS-MISDESIGN* T) (DEFCLASS FOO131 (FORWARDCLASS01) NIL) T)
WARNING: (SETF FIND-CLASS): redefining class CLASS in top-level, was defined
         in
         /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-custom.fas
WARNING: (SETF FIND-CLASS): redefining class FORWARD-REFERENCED-CLASS in
         top-level, was defined in
         /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clos-custom.fasEQL-OK: T
(FIND-CLASS '
FORWARDCLASS01)
[SIMPLE-ERROR]: FIND-CLASS: FORWARDCLASS01 does not name a class
EQL-OK: ERROR
(FIND-CLASS 'FORWARDCLASS01 NIL)
EQL-OK: NIL
(TYPEP 1 'FORWARDCLASS01)
[SIMPLE-ERROR]: TYPEP: invalid type specification FORWARDCLASS01
EQL-OK: ERROR
(LOCALLY (DECLARE (COMPILE)) (TYPEP 1 'FORWARDCLASS01))
[SIMPLE-ERROR]: TYPEP: invalid type specification FORWARDCLASS01
EQL-OK: ERROR
(TYPE-EXPAND 'FORWARDCLASS01)
[SIMPLE-ERROR]: TYPE-EXPAND: invalid type specification FORWARDCLASS01
EQL-OK: ERROR
(SUBTYPEP 'FORWARDCLASS01 'T)
[SIMPLE-ERROR]: SUBTYPEP: invalid type specification FORWARDCLASS01
EQL-OK: ERROR
(SUBTYPEP 'NIL 'FORWARDCLASS01)
[SIMPLE-ERROR]: SUBTYPEP: invalid type specification FORWARDCLASS01
EQL-OK: ERROR
(SYSTEM::SUBTYPE-INTEGER 'FORWARDCLASS01)
EQL-OK: NIL
(SYSTEM::SUBTYPE-SEQUENCE 'FORWARDCLASS01)
EQL-OK: NIL
(DEFSTRUCT (FOO131A (:INCLUDE FORWARDCLASS01)))
[SIMPLE-SOURCE-PROGRAM-ERROR]: DEFSTRUCT FOO131A: included structure FORWARDCLASS01 has not been defined.
EQL-OK: ERROR
(DEFMETHOD FOO131B ((X FORWARDCLASS01)))
[SIMPLE-ERROR]: FIND-CLASS: FORWARDCLASS01 does not name a class
EQL-OK: ERROR
(PROGN (SETQ *FORWARD-REFERENCED-CLASS-MISDESIGN* NIL) (DEFCLASS FOO132 (FORWARDCLASS02) NIL) T)
EQL-OK: T
(FIND-CLASS 'FORWARDCLASS02)
[SIMPLE-ERROR]: FIND-CLASS: FORWARDCLASS02 does not name a class
EQL-OK: ERROR
(FIND-CLASS 'FORWARDCLASS02 NIL)
EQL-OK: NIL
(TYPEP 1 'FORWARDCLASS02)
[SIMPLE-ERROR]: TYPEP: invalid type specification FORWARDCLASS02
EQL-OK: ERROR
(LOCALLY (DECLARE (COMPILE)) (TYPEP 1 'FORWARDCLASS02))
[SIMPLE-ERROR]: TYPEP: invalid type specification FORWARDCLASS02
EQL-OK: ERROR
(TYPE-EXPAND 'FORWARDCLASS02)
[SIMPLE-ERROR]: TYPE-EXPAND: invalid type specification FORWARDCLASS02
EQL-OK: ERROR
(SUBTYPEP 'FORWARDCLASS02 'T)
[SIMPLE-ERROR]: SUBTYPEP: invalid type specification FORWARDCLASS02
EQL-OK: ERROR
(SUBTYPEP 'NIL 'FORWARDCLASS02)
[SIMPLE-ERROR]: SUBTYPEP: invalid type specification FORWARDCLASS02
EQL-OK: ERROR
(SYSTEM::SUBTYPE-INTEGER 'FORWARDCLASS02)
EQL-OK: NIL
(SYSTEM::SUBTYPE-SEQUENCE 'FORWARDCLASS02)
EQL-OK: NIL
(DEFSTRUCT (FOO132A (:INCLUDE FORWARDCLASS02)))
[SIMPLE-SOURCE-PROGRAM-ERROR]: DEFSTRUCT FOO132A: included structure FORWARDCLASS02 has not been defined.
EQL-OK: ERROR
(DEFMETHOD FOO132B ((X FORWARDCLASS02)))
[SIMPLE-ERROR]: FIND-CLASS: FORWARDCLASS02 does not name a class
EQL-OK: ERROR
(PROGN (DEFCLASS INCOMPLETE147 (UNDEFINED147) NIL) T)
EQL-OK: T
(FIND-CLASS 'UNDEFINED147)
[SIMPLE-ERROR]: FIND-CLASS: UNDEFINED147 does not name a class
EQL-OK: ERROR
(TYPEP 42 'UNDEFINED147)
[SIMPLE-ERROR]: TYPEP: invalid type specification UNDEFINED147
EQL-OK: ERROR
(SUBTYPEP 'UNDEFINED147 'NUMBER)
[SIMPLE-ERROR]: SUBTYPEP: invalid type specification UNDEFINED147
EQL-OK: ERROR
(SUBTYPEP 'UNDEFINED147 'STANDARD-OBJECT)
[SIMPLE-ERROR]: SUBTYPEP: invalid type specification UNDEFINED147
EQL-OK: ERROR
(NULL (FIND-CLASS 'INCOMPLETE147))
EQL-OK: NIL
(TYPEP 42 'INCOMPLETE147)
EQL-OK: NIL
(MULTIPLE-VALUE-LIST (SUBTYPEP 'INCOMPLETE147 'NUMBER))
EQUAL-OK: (NIL T)
(MULTIPLE-VALUE-LIST (SUBTYPEP 'INCOMPLETE147 'STANDARD-OBJECT))
EQUAL-OK: (NIL T)
(LET ((RET 'NIL)) (DEFCLASS MIXIN-FOO-144 NIL NIL) (DEFCLASS CLASS-FOO-144 (MIXIN-FOO-144) NIL) (DEFGENERIC FUN-144 (X)) (DEFMETHOD FUN-144 ((X CLASS-FOO-144)) (PUSH 'CLASS-FOO-144 RET)) (DEFCLASS CLASS-BAR-144 NIL NIL) (DEFMETHOD FUN-144 :AFTER ((X CLASS-BAR-144)) (PUSH 'CLASS-BAR-144-AFTER RET)) (DEFCLASS MIXIN-FOO-144 (CLASS-BAR-144) NIL) (FUN-144 (MAKE-INSTANCE 'CLASS-FOO-144)) (NREVERSE RET))
EQUAL-OK: (CLASS-FOO-144 CLASS-BAR-144-AFTER)
(LET ((RET NIL)) (DEFCLASS MIXIN-FOO-145 NIL NIL) (DEFCLASS CLASS-FOO-145 (MIXIN-FOO-145) NIL) (DEFGENERIC FUN-145 (X)) (DEFMETHOD FUN-145 ((X CLASS-FOO-145)) (PUSH 'CLASS-FOO-145 RET)) (DEFCLASS CLASS-BAR-145 NIL NIL) (DEFMETHOD FUN-145 :AFTER ((X CLASS-BAR-145)) (PUSH 'CLASS-BAR-145-AFTER RET)) (LET ((INST (MAKE-INSTANCE 'CLASS-FOO-145))) (FUN-145 INST) (SETQ RET 'NIL) (DEFCLASS MIXIN-FOO-145 (CLASS-BAR-145) NIL) (FUN-145 INST) (NREVERSE RET)))
WARNING: DEFCLASS: Class CLASS-FOO-145 (or one of its ancestors) is being
         redefined, instances are obsoleteEQUAL-OK: (CLASS-FOO-145 CLASS-BAR-145-AFTER)
(PROGN (DEFCLASS FOO146 NIL (SLOT1)) (MAKE-INSTANCE 'FOO146) (DEFCLASS FOO146 NIL ((SLOT1 :INITARG :FOO))) (MAKE-INSTANCE 'FOO146 :FOO 'ANY) T)
WARNING: DEFCLASS: Class FOO146 (or one of its ancestors) is being redefined,
         instances are obsoleteEQL-OK: T
(PROGN (DEFCLASS FOO147 NIL (SLOT1)) (DEFCLASS FOOSUB147 (FOO147) (SLOT2)) (MAKE-INSTANCE 'FOOSUB147) (DEFCLASS FOO147 NIL ((SLOT1 :INITARG :FOO))) (MAKE-INSTANCE 'FOOSUB147 :FOO 'ANY) T)
WARNING: DEFCLASS: Class FOOSUB147 (or one of its ancestors) is being
         redefined, instances are obsoleteEQL-OK: T
(PROGN (DEFGENERIC FOO148 (OBJECT) (:METHOD ((X LIST)) (DECLARE (IGNORE X)) 'LIST) (:METHOD ((X ARRAY)) (DECLARE (IGNORE X)) 'ARRAY) (:METHOD ((X SEQUENCE)) (DECLARE (IGNORE X)) 'SEQUENCE)) (FOO148 '(1 2 3)))
EQL-OK: LIST
(PROGN (LOAD (MAKE-PATHNAME :NAME "listeners" :TYPE NIL :DEFAULTS *RUN-TEST-TRUENAME*)) (WITH-OPEN-STREAM (S1 (MAKE-STRING-INPUT-STREAM "(")) (WITH-OPEN-STREAM (S2 (MAKE-STRING-INPUT-STREAM "())")) (WITH-OPEN-STREAM (L (MAKE-INSTANCE 'LISTENER-INPUT-STREAM :STREAM S2)) (WITH-OPEN-STREAM (C (MAKE-CONCATENATED-STREAM S1 L)) (READ C))))))
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/tests/listeners.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/tests/listeners.lisp
EQUAL-OK: (NIL)
(MAKE-INSTANCE (MAKE-INSTANCE 'STANDARD-CLASS :NAME 3))
[SIMPLE-SOURCE-PROGRAM-ERROR]: (SETF CLASS-NAME): 3 is not a symbol
EQL-OK: ERROR
(SYMBOLS-CLEANUP '(<C1> <C2> FOO A B C F G *HL* HGEN H TESTGF00 FOO136 SUBCLASSP MLF-TESTER MLF-KILL TEST-CLASS1 TEST-CLASS2 *T-LIST* *TMP-FILE* *FOO* BAR-CONST POS TREE-WITH-PARENT *INITFORM-EXECUTED-COUNTER* FOO64A FOO64B FOO64C FOO64D ABSTRACT-POSITION X-Y-POSITION RHO-THETA-POSITION C0 C1 C2 C3 C4 C7 C8 FOO60-A FOO60-B FOO61-A FOO62-A FOO62-B FOO62-C FOO63-A FOO63-B FOO63-C FOO65A FOO65B FOO65C POSITION-X POSITION-Y FOO70 FOO71 FOO72 FOO73 FOO74 FOO75 FOO76 FOO77 FOO80A FOO80B FOO81A FOO81B FOO82A FOO82B FOO83A FOO83B FOO84A FOO84B FOO85A FOO85B FOO86A FOO86B FOO87A FOO87B FOO88A FOO88B FOO88C FOO89A FOO89B FOO89C FOO90A FOO90B FOO90C FOO91A FOO91B FOO91C FOO92A FOO92B FOO93A FOO93B FOO94 FOO95B FOO96A FOO96B FOO97A FOO97B FOO100 FOO101A FOO101B FOO102A FOO102B FOO102C FOO103A FOO103B FOO103C FOO104A FOO104B FOO104C FOO105A FOO105B FOO105C FOO106A FOO106B FOO106C FOO107A FOO107B FOO108A FOO108B FOO109 FOO116 FOO117 FOO118 FOO119 FOO120 FOO121 FOO122 FOO123 FOO124 FOO125 TESTCLASS31A TESTCLASS31B TESTCLASS31C TESTGF37 TESTCLASS40A TESTCLASS40B TESTCLASS40C TESTGF40 TESTCLASS41A TESTCLASS41B TESTCLASS41C TESTGF41 TESTCLASS42A TESTCLASS42B TESTCLASS42C TESTGF42 TESTCLASS45A TESTCLASS45B TESTCLASS45C TESTGF45 TESTCLASS46A TESTCLASS46B TESTCLASS46C TESTGF46 TESTCLASS47A TESTCLASS47B TESTCLASS47C TESTGF47 TESTCLASS48A TESTCLASS48B TESTCLASS48C TESTGF48 TESTCLASS49A TESTCLASS49B TESTCLASS49C TESTGF49 TESTCLASS50A TESTCLASS50B TESTCLASS50C TESTGF50 CLASS-0203 CLASS-0204 CLASS-0206A CLASS-0206B REINIT-CLASS-01 FOO126 FOO127 NO-APP-METH-GF-01 NO-APP-METH-GF-02 NO-APP-METH-GF-03 NO-PRIM-METH-GF-01 NO-PRIM-METH-GF-02 NO-PRIM-METH-GF-03 TEST-MC-STANDARD TEST-MC-STANDARD-BAD-QUALIFIERS TEST-MC-STANDARD-BAD1 TEST-MC-STANDARD-BAD2 TEST-MC-STANDARD-BAD3 TEST-MC-STANDARD-BAD4 TEST-MC-PROGN TEST-MC-APPEND-1 TEST-MC-APPEND-2 TEST-MC-APPEND-3 MC01 MC02 MC03 MC04 MC05 TEST-MC05-1 TEST-MC05-2 TEST-MC05-3 TEST-MC05-4 TEST-MC05-5 TEST-MC05-6 MC06 TEST-MC06-1 POSITIVE-INTEGER-QUALIFIER-P EXAMPLE-METHOD-COMBINATION MC-TEST-PIQ W-ARGS MC-TEST-W-ARGS MC11 MC12 MC13 MC14 MC15 MC16 MC17 MC18 MC19 MC20 MC21 MC22 MC23 MC24 MC25 TEST-MC25 MC26 TEST-MC26 MC27 TEST-MC27 MC28 TEST-MC28 MC29 TEST-MC29 MC50 TEST-MC50-1 TEST-MC50-2 TEST-MC50-3 MC51 TEST-MC51-1 TEST-MC51-2 TEST-MC51-3 TEST-MC51-4 TEST-MC51-5 MC60 TEST-MC60-1 TEST-MC60-2 TEST-MC60-3 TEST-MC60-4 MC61 TEST-MC61-1 TEST-MC61-2 TEST-MC61-3 TEST-MC61-4 TEST-MC61-5 TEST-MC61-6 TEST-MC61-7 TEST-MC61-8 TEST-MC61-9 MC62 TEST-MC62-1 TEST-MC62-2 TEST-MC62-3 TEST-MC62-4 TEST-MC62-5 TEST-MC62-6 TEST-MC62-7 MC63 TEST-MC63-1 TEST-MC63-2 TEST-MC63-3 TEST-MC63-4 MC64 TEST-MC64-1 TEST-MC64-2 TEST-MC64-3 TEST-MC64-4 TEST-MC64-5 TEST-MC64-6 TEST-MC64-7 TEST-MC64-8 TEST-MC64-9 TEST-MC64-10 TEST-MC64-11 TEST-MC64-12 TEST-MC64-13 TEST-MC64-14 TEST-MC64-15 TEST-MC64-16 TEST-MC64-17 TEST-MC64-18 TEST-MC64-19 MC65 TEST-MC65-1 TEST-MC65-2 TEST-MC65-3 TEST-MC65-4 TEST-MC65-5 TEST-MC65-6 TEST-MC65-7 TEST-MC65-8 TEST-MC65-9 TEST-MC65-10 TEST-MC65-11 TEST-MC65-12 TEST-MC65-13 TEST-MC65-14 TEST-MC65-15 TEST-MC65-16 TEST-MC65-17 TEST-MC65-18 TEST-MC65-19 MC66 TEST-MC66-1 TEST-MC66-2 TEST-MC66-3 TEST-MC66-4 TEST-MC66-5 TEST-MC66-6 TEST-MC66-7 TEST-MC66-8 TEST-MC66-9 TEST-MC66-10 TEST-MC66-11 TEST-MC66-12 TEST-MC66-13 TEST-MC66-14 TEST-MC66-15 TEST-MC66-16 TEST-MC66-17 TEST-MC66-18 TEST-MC66-19 MC67 TEST-MC67-1 TEST-MC67-2 TEST-MC67-3 TEST-MC67-4 TEST-MC67-5 TEST-MC67-6 TEST-MC67-7 TEST-MC67-8 TEST-MC67-9 TEST-MC67-10 TEST-MC67-11 TEST-MC67-12 TEST-MC67-13 TEST-MC67-14 TEST-MC67-15 TEST-MC67-16 TEST-MC67-17 TEST-MC67-18 TEST-MC67-19 MC68 TEST-MC68-1 TEST-MC68-2 TEST-MC68-3 TEST-MC68-4 TEST-MC68-5 TEST-MC68-6 MC69 TEST-MC69-1 TEST-MC69-2 TEST-MC69-3 TEST-MC69-4 TEST-MC69-5 TEST-MC69-6 TEST-MC69-7 TEST-MC69-8 TEST-MC69-9 TEST-MC69-10 TEST-MC69-11 TEST-MC69-12 TEST-MC69-13 TEST-MC69-14 TEST-MC69-15 TEST-MC69-16 TEST-MC69-17 TEST-MC69-18 TEST-MC69-19 MC70 TEST-MC70-1 TEST-MC70-2 TEST-MC70-3 TEST-MC70-4 TEST-MC70-5 TEST-MC70-6 TEST-MC70-7 TEST-MC70-8 TEST-MC70-9 TEST-MC70-10 TEST-MC70-11 TEST-MC70-12 TEST-MC70-13 TEST-MC70-14 TEST-MC70-15 TEST-MC70-16 TEST-MC70-17 TEST-MC70-18 TEST-MC70-19 MC71 TEST-MC71-1 TEST-MC71-2 TEST-MC71-3 TEST-MC71-4 TEST-MC71-5 TEST-MC71-6 TEST-MC71-7 MC72 TEST-MC72-1 TEST-MC72-2 TEST-MC72-3 TEST-MC72-4 TEST-MC72-5 TEST-MC72-6 PROMPT-FOR-NEW-VALUES ADD-METHOD-RESTARTS CONVERT-EFFECTIVE-METHOD STANDARD-WITH-RESTARTS TESTGF16 TESTCLASS16A TESTCLASS16B TESTCLASS16C TESTCLASS16D USER-METHOD DEF-USER-METHOD TEST-UM01 TEST-UM02 TEST-UM03 TEST-UM04 TEST-UM05 TEST-UM06 TEST-UM07 TEST-UM08 TEST-UM10 TEST-UM11 TEST-UM12 TEST-UM13 FOO128 FOO129 *FOO129-COUNTER* FOO130 *FOO130-COUNTER* FOO131 FOO131A FOO131B FOO132 FOO132A FOO132B INCOMPLETE147 MIXIN-FOO-144 CLASS-FOO-144 FUN-144 CLASS-BAR-144 MIXIN-FOO-145 CLASS-FOO-145 FUN-145 CLASS-BAR-145 FOO146 FOO147 FOOSUB147 FOO148))
WARNING: (SETF FIND-CLASS): redefining class FOO in top-level, was defined in
         /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/clos-tst.fasEQL-OK: NIL
RUN-TEST: finished "clos" (0 errors out of 496 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"defhash.tst" @1>
(DEFINE-HASH-TABLE-TEST STRING-EQ STRING= SXHASH)
EQL-OK: STRING-EQ
(LET ((H (MAKE-HASH-TABLE :TEST 'STRING-EQ))) (LIST (SETF (GETHASH "foo" H) 10) (GETHASH "zot" H) (GETHASH "foo" H) (GETHASH "FOO" H)))
EQUAL-OK: (10 NIL 10 NIL)
(LET ((H (MAKE-HASH-TABLE :TEST '(STRING= . SXHASH)))) (LIST (SETF (GETHASH "foo" H) 10) (GETHASH "zot" H) (GETHASH "foo" H) (GETHASH "FOO" H)))
EQUAL-OK: (10 NIL 10 NIL)
(LET ((H (MAKE-HASH-TABLE :TEST `(,(LAMBDA (A B) (PRINT (LIST '= A B)) (= A B)) . ,(LAMBDA (X) (LET ((Z (SXHASH (COERCE X 'DOUBLE-FLOAT)))) (PRINT (LIST X Z)) Z)))))) (LIST (SETF (GETHASH 100 H) "foo") (GETHASH 10 H) (SETF (GETHASH 10 H) "bar") (GETHASH 100 H) (GETHASH 100.0d0 H) (GETHASH 10.0 H)))
(100 1079574528) 
(10 1076101120) 
(10 1076101120) 
(10 1076101120) 
(100 1079574528) 
(100 1079574528) 
(= 100 100) 
(100.0d0 1079574528) 
(= 100 100.0d0) 
(10.0 1076101120) 
(= 10 10.0) 
EQUAL-OK: ("foo" NIL "bar" "foo" "foo" "bar")
(LET ((H (MAKE-HASH-TABLE :TEST `(= . ,(LAMBDA (X) (SXHASH (COERCE X 'SHORT-FLOAT))))))) (LOOP :FOR I :FROM 0 :TO 1000 :DO (SETF (GETHASH I H) (FORMAT NIL "~r" I))) (LOOP :FOR I :FROM 0 :TO 1000 :UNLESS (STRING= (GETHASH (FLOAT I 1.0d0) H) (GETHASH (FLOAT I 1.0s0) H)) :COLLECT I))
EQL-OK: NIL
(LET ((H (MAKE-HASH-TABLE :TEST `(,(LAMBDA (A B) (LIST (LIST '= A B)) (= A B)) . ,(LAMBDA (X) (LET ((Z (SXHASH (COERCE X 'DOUBLE-FLOAT)))) (LIST `((HASH ,X) => ,Z)) Z)))))) (LOOP :FOR I :FROM 0 :TO 1000 :DO (SETF (GETHASH I H) (FORMAT NIL "~r" I))) (LOOP :FOR I :FROM 0 :TO 1000 :UNLESS (STRING= (GETHASH (FLOAT I 1.0d0) H) (GETHASH (FLOAT I 1.0s0) H)) :COLLECT I))
EQL-OK: NIL
RUN-TEST: finished "defhash" (0 errors out of 6 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"encoding.tst" @1>
(STRING= (CONVERT-STRING-FROM-BYTES '#(0 65 0 13) CHARSET:UCS-2) (MAP 'STRING #'CODE-CHAR '(65 13)))
EQL-OK: T
(CONVERT-STRING-FROM-BYTES '#(0 65 0) (MAKE-ENCODING :CHARSET CHARSET:UCS-2 :INPUT-ERROR-ACTION :ERROR))
[SIMPLE-CHARSET-TYPE-ERROR]: CONVERT-STRING-FROM-BYTES: Incomplete byte sequence at end of buffer for CHARSET:UNICODE-16-BIG-ENDIAN
EQL-OK: ERROR
(CONVERT-STRING-FROM-BYTES '#(0 65 0) (MAKE-ENCODING :CHARSET CHARSET:UCS-2 :INPUT-ERROR-ACTION #\Z))
EQUAL-OK: "AZ"
(STRING= (CONVERT-STRING-FROM-BYTES '#(0 0 0 65 0 0 0 13) CHARSET:UCS-4) (MAP 'STRING #'CODE-CHAR '(65 13)))
EQL-OK: T
(CONVERT-STRING-FROM-BYTES '#(0 0 0 65 0 0) (MAKE-ENCODING :CHARSET CHARSET:UCS-4 :INPUT-ERROR-ACTION :ERROR))
[SIMPLE-CHARSET-TYPE-ERROR]: CONVERT-STRING-FROM-BYTES: Incomplete byte sequence at end of buffer for CHARSET:UNICODE-32-BIG-ENDIAN
EQL-OK: ERROR
(CONVERT-STRING-FROM-BYTES '#(0 0 0 65 0 0 0) (MAKE-ENCODING :CHARSET CHARSET:UCS-4 :INPUT-ERROR-ACTION #\Z))
EQUAL-OK: "AZ"
(DEFPARAMETER *NO-ICONV-P* (WITH-IGNORED-ERRORS (NOT (MAKE-ENCODING :CHARSET "utf-16"))))
EQL-OK: *NO-ICONV-P*
(IF *NO-ICONV-P* T (STRING= (CONVERT-STRING-FROM-BYTES '#(255 254 65 0 13 0) (MAKE-ENCODING :CHARSET "utf-16")) (MAP 'STRING #'CODE-CHAR '(65 13))))
EQL-OK: T
(CONVERT-STRING-FROM-BYTES '#(255 254 65 0 13) (MAKE-ENCODING :CHARSET "utf-16" :INPUT-ERROR-ACTION :ERROR))
[OS-ERROR]: OS-ERROR(84): Invalid or incomplete multibyte or wide character
EQL-OK: ERROR
(IF *NO-ICONV-P* "AZ" (CONVERT-STRING-FROM-BYTES '#(255 254 65 0 13) (MAKE-ENCODING :CHARSET "utf-16" :INPUT-ERROR-ACTION #\Z)))
EQUAL-OK: "AZ"
(IF *NO-ICONV-P* #(65) (CONVERT-STRING-TO-BYTES (MAP 'STRING #'CODE-CHAR '(129 65)) (MAKE-ENCODING :CHARSET "cp1252" :OUTPUT-ERROR-ACTION :IGNORE)))
EQUALP-OK: #(65)
(LET ((Z (COERCE #(97 98 99) '(VECTOR (UNSIGNED-BYTE 8))))) (LIST (CONVERT-STRING-FROM-BYTES Z CHARSET:ASCII :START 0 :END 2) (CONVERT-STRING-FROM-BYTES Z CHARSET:ASCII :START 0 :END 3) (CONVERT-STRING-FROM-BYTES Z CHARSET:ASCII :START 1 :END 3) (CONVERT-STRING-FROM-BYTES Z CHARSET:ASCII :START 1 :END 2)))
EQUAL-OK: ("ab" "abc" "bc" "b")
(LET ((Z "abc")) (LIST (CONVERT-STRING-TO-BYTES Z CHARSET:ASCII :START 0 :END 2) (CONVERT-STRING-TO-BYTES Z CHARSET:ASCII :START 0 :END 3) (CONVERT-STRING-TO-BYTES Z CHARSET:ASCII :START 1 :END 3) (CONVERT-STRING-TO-BYTES Z CHARSET:ASCII :START 1 :END 2)))
EQUALP-OK: (#(97 98) #(97 98 99) #(98 99) #(98))
(LET ((VEC (MAKE-ARRAY 1000 :ADJUSTABLE T :FILL-POINTER 0 :ELEMENT-TYPE '(UNSIGNED-BYTE 8)))) (MAP-INTO VEC 'IDENTITY (CONVERT-STRING-TO-BYTES "Hello" CHARSET:UTF-8)) (CONVERT-STRING-FROM-BYTES VEC CHARSET:UTF-8))
EQUAL-OK: "Hello"
(MAPCAR (LAMBDA (S) (CONVERT-STRING-TO-BYTES (STRING (CODE-CHAR S)) CHARSET:UTF-8)) '(128 2047 2048 65533 1114111))
EQUALP-OK: (#(194 128) #(223 191) #(224 160 128) #(239 191 189) #(244 143 191 191))
(LOOP FOR I BELOW 55296 AS C = (CODE-CHAR I) AS S = (CONVERT-STRING-TO-BYTES (STRING C) CHARSET:UTF-8) AS LP = 1 THEN L AS L = (LENGTH S) ALWAYS (<= 1 LP L 4))
EQL-OK: T
(LOOP FOR I FROM 57344 BELOW CHAR-CODE-LIMIT AS C = (CODE-CHAR I) AS S = (CONVERT-STRING-TO-BYTES (STRING C) CHARSET:UTF-8) AS LP = 3 THEN L AS L = (LENGTH S) ALWAYS (<= 3 LP L 4))
EQL-OK: T
(LIST (SYSTEM::CHARSET-RANGE CHARSET:BASE64 #\+ #\+ 2) (SYSTEM::CHARSET-RANGE CHARSET:BASE64 #\+ #\/ 10) (SYSTEM::CHARSET-RANGE CHARSET:BASE64 #\A #\Z 2) (SYSTEM::CHARSET-RANGE CHARSET:BASE64 (CODE-CHAR 0) (CODE-CHAR 10000) 1000))
EQUAL-OK: ("++" "++//" "AZ" "++/9AZaz")
(LET ((LIST NIL)) (DO-EXTERNAL-SYMBOLS (SYM (FIND-PACKAGE "CHARSET")) (PUSH (LIST SYM (ASH (LENGTH (SYSTEM::GET-CHARSET-RANGE (ENCODING-CHARSET (SYMBOL-VALUE SYM)))) -1)) LIST)) (SETQ LIST (SORT LIST #'< :KEY #'SECOND)) (FORMAT T "~& ~:D encoding~:P:~%~:{~25@A: ~5:D~%~}" (LENGTH LIST) LIST))
 117 encodings:
                    UCS-2:     1
                    UCS-4:     1
                     JAVA:     1
    UNICODE-32-BIG-ENDIAN:     1
 UNICODE-16-LITTLE-ENDIAN:     1
               UNICODE-16:     1
 UNICODE-32-LITTLE-ENDIAN:     1
               UNICODE-32:     1
    UNICODE-16-BIG-ENDIAN:     1
               ISO-8859-1:     1
                    UTF-8:     1
                    UTF-7:     1
                    ASCII:     1
                  GB18030:     2
                   UTF-16:     2
                   BASE64:     4
                  TIS-620:     4
                JIS_X0201:     6
               ISO-8859-9:     8
               ISO-8859-5:     8
               ISO-8859-6:     8
               ISO-8859-8:     9
                CP874-IBM:     9
                    CP874:    10
                ARMSCII-8:    10
              ISO-8859-15:    12
                HP-ROMAN8:    17
                   CP1252:    18
               ISO-8859-7:    18
             WINDOWS-1252:    18
                 MAC-THAI:    18
         GEORGIAN-ACADEMY:    21
              GEORGIAN-PS:    21
                   CP1254:    23
                   CP1133:    23
                   CP1253:    23
             WINDOWS-1253:    23
             WINDOWS-1254:    23
                   CP1251:    24
             WINDOWS-1251:    24
               MAC-HEBREW:    25
              ISO-8859-14:    25
                   VISCII:    26
               ISO-8859-3:    29
              MAC-DINGBAT:    30
             MAC-CYRILLIC:    31
              MAC-UKRAINE:    31
                    CP850:    31
                   KOI8-R:    32
                   CP1255:    34
                    CP737:    34
              ISO-8859-16:    34
             WINDOWS-1255:    34
                    CP866:    34
                    CP857:    35
              MAC-ICELAND:    35
              ISO-8859-10:    36
               MAC-ARABIC:    37
                    CP855:    38
                MAC-GREEK:    39
                CP869-IBM:    40
               ISO-8859-4:    40
              ISO-8859-13:    40
                MAC-ROMAN:    41
                MACINTOSH:    41
              MAC-TURKISH:    41
                    CP869:    42
                   KOI8-U:    43
                   CP1256:    44
             WINDOWS-1256:    44
               ISO-8859-2:    45
             MAC-CROATIAN:    45
              MAC-ROMANIA:    46
                   CP1257:    47
             WINDOWS-1257:    47
                     TCVN:    52
                   CP1250:    55
             WINDOWS-1250:    55
                CP860-IBM:    57
                CP862-IBM:    57
                    CP862:    57
                    CP860:    57
       MAC-CENTRAL-EUROPE:    59
                CP437-IBM:    59
                    CP437:    59
                    CP865:    60
                CP865-IBM:    60
                    CP863:    60
                   CP1258:    61
             WINDOWS-1258:    61
                CP863-IBM:    62
               MAC-SYMBOL:    64
                CP861-IBM:    64
                    CP861:    64
                    CP775:    69
                    CP852:    73
                CP852-IBM:    74
                    CP864:    82
                CP864-IBM:    82
                      GBK:   141
                    CP936:   141
                    CP949: 3,389
                    JOHAB: 3,391
                   EUC-CN: 3,632
                    CP950: 3,806
                     BIG5: 3,806
              ISO-2022-CN: 3,906
              ISO-2022-JP: 4,125
                SHIFT-JIS: 4,127
                    CP932: 4,253
                   EUC-JP: 4,315
               BIG5-HKSCS: 4,978
              ISO-2022-KR: 5,001
                   EUC-KR: 5,002
            ISO-2022-JP-2: 5,848
          ISO-2022-CN-EXT: 6,450
                   EUC-TW: 6,690
EQL-OK: NIL
(CONVERT-STRING-FROM-BYTES #(97) CHARSET:BASE64)
EQUAL-OK: "YQ=="
(CONVERT-STRING-TO-BYTES "YQ==" CHARSET:BASE64)
EQUALP-OK: #(97)
(CONVERT-STRING-FROM-BYTES #(97 98) CHARSET:BASE64)
EQUAL-OK: "YWI="
(CONVERT-STRING-TO-BYTES "YWI=" CHARSET:BASE64)
EQUALP-OK: #(97 98)
(CONVERT-STRING-FROM-BYTES #(97 98 99) CHARSET:BASE64)
EQUAL-OK: "YWJj"
(CONVERT-STRING-TO-BYTES "YWJj" CHARSET:BASE64)
EQUALP-OK: #(97 98 99)
(CONVERT-STRING-FROM-BYTES #(108 105 115 112 32 115 116 114 105 110 103) CHARSET:BASE64)
EQUAL-OK: "bGlzcCBzdHJpbmc="
(CONVERT-STRING-TO-BYTES "bGlzcCBzdHJpbmc=" CHARSET:BASE64)
EQUALP-OK: #(108 105 115 112 32 115 116 114 105 110 103)
(CONVERT-STRING-FROM-BYTES #(108 105 115 112 32 115 116 114 105 110 103 115) CHARSET:BASE64)
EQUAL-OK: "bGlzcCBzdHJpbmdz"
(CONVERT-STRING-TO-BYTES "bGlzcCBzdHJpbmdz" CHARSET:BASE64)
EQUALP-OK: #(108 105 115 112 32 115 116 114 105 110 103 115)
(CONVERT-STRING-FROM-BYTES #(99 108 105 115 112 32 115 116 114 105 110 103 115) CHARSET:BASE64)
EQUAL-OK: "Y2xpc3Agc3RyaW5ncw=="
(CONVERT-STRING-TO-BYTES "Y2xpc3Agc3RyaW5ncw==" CHARSET:BASE64)
EQUALP-OK: #(99 108 105 115 112 32 115 116 114 105 110 103 115)
(LOOP :WITH S :AND V2 :REPEAT 1000 :FOR V1 = (MAKE-ARRAY (RANDOM 300)) :DO (LOOP :FOR I :FROM 0 :BELOW (LENGTH V1) :DO (SETF (AREF V1 I) (RANDOM 256))) (SETQ S (CONVERT-STRING-FROM-BYTES V1 CHARSET:BASE64) V2 (CONVERT-STRING-TO-BYTES S CHARSET:BASE64)) :UNLESS (EQUALP V1 V2) :COLLECT (LIST V1 S V2))
WARNING: LOOP: FOR clauses should occur before the loop's main bodyEQL-OK: NIL
(LOOP :FOR I :FROM 0 :TO CHAR-CODE-LIMIT :FOR C = (CODE-CHAR I) :ALWAYS (OR (NOT (TYPEP C CHARSET:ISO-8859-1)) (EQUALP (CONVERT-STRING-TO-BYTES (STRING C) CHARSET:ISO-8859-1) (VECTOR I))))
EQL-OK: T
(LET ((FILE "encoding-tst")) (UNWIND-PROTECT (PROGN (WITH-OPEN-FILE (OUT FILE :DIRECTION :OUTPUT :ELEMENT-TYPE '(UNSIGNED-BYTE 8)) (WRITE-SEQUENCE (CONVERT-STRING-TO-BYTES (CONCATENATE 'STRING "foo" (STRING #\Newline) "bar" (STRING #\Return) (STRING #\Newline)) CHARSET:ASCII) OUT)) (WITH-OPEN-FILE (IN FILE :DIRECTION :INPUT :ELEMENT-TYPE 'CHARACTER :EXTERNAL-FORMAT :DOS) (LIST (READ-LINE IN NIL :EOF) (READ-LINE IN NIL :EOF) (READ-LINE IN NIL :EOF)))) (DELETE-FILE FILE)))
EQUAL-OK: ("foo" "bar" :EOF)
(LET* ((F "encoding-tst-crlf-test-file") (L1 "line1") (L2 "line2") (ALL (LIST F L1 L2))) (UNWIND-PROTECT (LOOP :FOR S :BEING :EACH :EXTERNAL-SYMBOL :IN "CHARSET" :FOR E-DOS = (MAKE-ENCODING :CHARSET S :LINE-TERMINATOR :DOS) :FOR E-UNIX = (MAKE-ENCODING :CHARSET S :LINE-TERMINATOR :UNIX) :FOR E-MAC = (MAKE-ENCODING :CHARSET S :LINE-TERMINATOR :MAC) :WHEN (IGNORE-ERRORS (WITH-OPEN-FILE (O F :DIRECTION :OUTPUT :EXTERNAL-FORMAT E-DOS) (WRITE-LINE F O) (SETF (STREAM-EXTERNAL-FORMAT O) E-MAC) (WRITE-LINE L1 O) (SETF (STREAM-EXTERNAL-FORMAT O) E-UNIX) (WRITE-LINE L2 O))) :NCONC (LOOP :FOR B :IN '(NIL T) :NCONC (WITH-OPEN-FILE (I F :DIRECTION :INPUT :EXTERNAL-FORMAT E-DOS :BUFFERED B) (DOLIST (LL ALL) (HANDLER-CASE (LET ((L (READ-LINE I))) (IF (STRING= LL L) NIL (LIST (LIST S B 'READ-LINE LL L)))) (ERROR (C) (LIST (LIST S B 'READ-LINE LL (PRINC-TO-STRING C)))))) (HANDLER-CASE (LET ((C (READ-CHAR I NIL NIL))) (AND C (LIST (LIST S B 'READ-CHAR C)))) (ERROR (C) (LIST (LIST S B 'READ-CHAR (PRINC-TO-STRING C)))))))) (DELETE-FILE F)))
EQL-OK: NIL
(CONVERT-STRING-FROM-BYTES #(195) CHARSET:UTF-8)
[SIMPLE-CHARSET-TYPE-ERROR]: CONVERT-STRING-FROM-BYTES: Incomplete byte sequence at end of buffer for CHARSET:UTF-8
EQL-OK: ERROR
RUN-TEST: finished "encoding" (0 errors out of 36 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"eval20.tst" @1>
(EVAL (LIST 'CDR (CAR '('(A . B) C))))
EQL-OK: B
(MAKUNBOUND 'X)
EQL-OK: X
(EVAL 'X)
[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable X has no value
EQL-OK: ERROR
(SETF X 3)
EQL-OK: 3
(EVAL 'X)
EQL-OK: 3
(LET ((FF "eval20-tst-eval-when-test.lisp")) (WITH-OPEN-FILE (FOO FF :DIRECTION :OUTPUT) (FORMAT FOO "~%(eval-when (compile eval)
  ;; note that LAMBDA is not externalizable
  (defvar *junk* #.(lambda (x) (+ 15 x))))~%")) (UNWIND-PROTECT (COMPILE-FILE FF) (POST-COMPILE-FILE-CLEANUP FF)) NIL)
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/eval20-tst-eval-when-test.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/eval20-tst-eval-when-test.fas
0 errors, 0 warningsEQL-OK: NIL
(DEFVAR *COLLECTOR*)
EQL-OK: *COLLECTOR*
(LET ((FORMS NIL) ALL (FF "eval20-tst-eval-when-test.lisp")) (DOLIST (C '(NIL (:COMPILE-TOPLEVEL))) (DOLIST (L '(NIL (:LOAD-TOPLEVEL))) (DOLIST (X '(NIL (:EXECUTE))) (PUSH `(EVAL-WHEN (,@C ,@L ,@X) (PUSH '(,@C ,@L ,@X) *COLLECTOR*)) FORMS)))) (DOLIST (C '(NIL (:COMPILE-TOPLEVEL))) (DOLIST (L '(NIL (:LOAD-TOPLEVEL))) (DOLIST (X '(NIL (:EXECUTE))) (PUSH `(LET NIL (EVAL-WHEN (,@C ,@L ,@X) (PUSH '(LET ,@C ,@L ,@X) *COLLECTOR*))) FORMS)))) (WITH-OPEN-FILE (O FF :DIRECTION :OUTPUT) (DOLIST (F FORMS) (PRIN1 F O) (TERPRI O))) (LET ((*COLLECTOR* NIL)) (LOAD FF) (PUSH (CONS "load source" *COLLECTOR*) ALL)) (LET ((*COLLECTOR* NIL)) (COMPILE-FILE FF) (PUSH (CONS "compile source" *COLLECTOR*) ALL)) (LET ((*COLLECTOR* NIL)) (LOAD (COMPILE-FILE-PATHNAME FF)) (PUSH (CONS "load compiled" *COLLECTOR*) ALL)) (POST-COMPILE-FILE-CLEANUP FF) (NREVERSE ALL))
;; Loading file eval20-tst-eval-when-test.lisp ...
;; Loaded file eval20-tst-eval-when-test.lisp
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/eval20-tst-eval-when-test.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/eval20-tst-eval-when-test.fas
0 errors, 0 warnings;; 
Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/eval20-tst-eval-when-test.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/eval20-tst-eval-when-test.fas
EQUAL-OK: (("load source" (:EXECUTE) (:LOAD-TOPLEVEL :EXECUTE) (:COMPILE-TOPLEVEL :EXECUTE) (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (LET :EXECUTE) (LET :LOAD-TOPLEVEL :EXECUTE) (LET :COMPILE-TOPLEVEL :EXECUTE) (LET :COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)) ("compile source" (:COMPILE-TOPLEVEL) (:COMPILE-TOPLEVEL :EXECUTE) (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL) (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)) ("load compiled" (:LOAD-TOPLEVEL) (:LOAD-TOPLEVEL :EXECUTE) (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL) (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (LET :EXECUTE) (LET :LOAD-TOPLEVEL :EXECUTE) (LET :COMPILE-TOPLEVEL :EXECUTE) (LET :COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)))
(LET ((F "eval20-tst-eval-when-test.lisp") (RET NIL)) (DOLIST (SITUATION '(LOAD :LOAD-TOPLEVEL) (NREVERSE RET)) (LET ((*COLLECTOR* NIL)) (WITH-OPEN-FILE (O F :DIRECTION :OUTPUT) (PRIN1 `(LET ((X :LET)) (PUSH (LIST (EVAL-WHEN (,SITUATION) (SETQ X :EVAL-WHEN)) X) *COLLECTOR*)) O)) (LOAD F) (LOAD (COMPILE-FILE F)) (POST-COMPILE-FILE-CLEANUP F) (PUSH (NREVERSE *COLLECTOR*) RET))))
;; Loading file eval20-tst-eval-when-test.lisp ...
;; Loaded file eval20-tst-eval-when-test.lisp
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/eval20-tst-eval-when-test.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/eval20-tst-eval-when-test.fas
0 errors, 0 warnings;; Loading file 
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/eval20-tst-eval-when-test.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/eval20-tst-eval-when-test.fas
;; Loading file eval20-tst-eval-when-test.lisp ...
;; Loaded file eval20-tst-eval-when-test.lisp
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/eval20-tst-eval-when-test.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/eval20-tst-eval-when-test.fas
0 errors, 0 warnings;; Loading file 
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/eval20-tst-eval-when-test.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/eval20-tst-eval-when-test.fas
EQUAL-OK: (((NIL :LET) (:EVAL-WHEN :EVAL-WHEN)) ((NIL :LET) (NIL :LET)))
(LET ((F "eval20-tst-eval-when-test.lisp") (RET NIL)) (DOLIST (SITUATION '(EVAL :EXECUTE) (NREVERSE RET)) (LET ((*COLLECTOR* NIL)) (WITH-OPEN-FILE (O F :DIRECTION :OUTPUT) (PRIN1 `(LET ((X :LET)) (PUSH (LIST (EVAL-WHEN (,SITUATION) (SETQ X :EVAL-WHEN)) X) *COLLECTOR*)) O)) (LOAD F) (LOAD (COMPILE-FILE F)) (POST-COMPILE-FILE-CLEANUP F) (PUSH (NREVERSE *COLLECTOR*) RET))))
;; Loading file eval20-tst-eval-when-test.lisp ...
;; Loaded file eval20-tst-eval-when-test.lisp
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/eval20-tst-eval-when-test.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/eval20-tst-eval-when-test.fas
0 errors, 0 warnings;; Loading file 
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/eval20-tst-eval-when-test.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/eval20-tst-eval-when-test.fas
;; Loading file eval20-tst-eval-when-test.lisp ...
;; Loaded file eval20-tst-eval-when-test.lisp
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/eval20-tst-eval-when-test.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/eval20-tst-eval-when-test.fas
0 errors, 0 warnings;; 
Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/eval20-tst-eval-when-test.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/eval20-tst-eval-when-test.fas
EQUAL-OK: (((:EVAL-WHEN :EVAL-WHEN) (NIL :LET)) ((:EVAL-WHEN :EVAL-WHEN) (:EVAL-WHEN :EVAL-WHEN)))
(CONSTANTP 2)
EQL-OK: T
(CONSTANTP #\r)
EQL-OK: T
(CONSTANTP "max")
EQL-OK: T
(CONSTANTP '#(110))
EQL-OK: T
(CONSTANTP :MAX)
EQL-OK: T
(CONSTANTP T)
EQL-OK: T
(CONSTANTP NIL)
EQL-OK: T
(CONSTANTP 'PI)
EQL-OK: NIL
(CONSTANTP ''FOO)
EQL-OK: T
(CONSTANTP '(+ 3 4))
EQL-OK: T
(CONSTANTP '((SETF CONS) 3 4))
EQL-OK: NIL
(LET ((SRC "eval20-tst.lisp") (ZZ (CONS 1 2))) (DEFUN SETF-FOO (U V) (SETF (CAR U) V)) (WITH-OPEN-FILE (S SRC :DIRECTION :OUTPUT) (FORMAT S "(progn~%  (defsetf foo setf-foo)
  (defun bar (u v) (setf (foo u) v)))~%")) (LOAD SRC :COMPILING T) (DELETE-FILE SRC) (BAR ZZ 12) ZZ)
;; Loading file eval20-tst.lisp ...
;; Loaded file eval20-tst.lisp0 errors, 0 warnings
EQUAL-OK: (12 . 2)
(DEFPARAMETER X 1)
EQL-OK: X
(HANDLER-BIND ((UNBOUND-VARIABLE (LAMBDA (C) (PRINC-ERROR C) (STORE-VALUE 10)))) (LIST (LET (X) (MAKUNBOUND 'X) X) X))
[SIMPLE-UNBOUND-VARIABLE]: LET: variable X has no value
EQUAL-OK: (10 1)
(HANDLER-BIND ((UNBOUND-VARIABLE (LAMBDA (C) (PRINC-ERROR C) (STORE-VALUE 11)))) (LIST (LET (X) (MAKUNBOUND 'X) (SYMBOL-VALUE 'X)) X))
[SIMPLE-UNBOUND-VARIABLE]: SYMBOL-VALUE: variable X has no value
EQUAL-OK: (11 1)
(HANDLER-BIND ((UNBOUND-VARIABLE (LAMBDA (C) (PRINC-ERROR C) (STORE-VALUE 12)))) (LIST (LET (X) (MAKUNBOUND 'X) (LIST X (SYMBOL-VALUE 'X))) X))
[SIMPLE-UNBOUND-VARIABLE]: LET: variable X has no value
EQUAL-OK: ((12 12) 1)
(HANDLER-BIND ((UNBOUND-VARIABLE (LAMBDA (C) (PRINC-ERROR C) (STORE-VALUE 13)))) (LIST (LET (X) (MAKUNBOUND 'X) (LIST (SYMBOL-VALUE 'X) X)) X))
[SIMPLE-UNBOUND-VARIABLE]: SYMBOL-VALUE: variable X has no value
EQUAL-OK: ((13 13) 1)
(LET ((COUNT 140)) (HANDLER-BIND ((UNBOUND-VARIABLE (LAMBDA (C) (PRINC-ERROR C) (USE-VALUE (INCF COUNT))))) (LIST (LET (X) (MAKUNBOUND 'X) (LIST X (SYMBOL-VALUE 'X))) X)))
[SIMPLE-UNBOUND-VARIABLE]: LET: variable X has no value
[SIMPLE-UNBOUND-VARIABLE]: SYMBOL-VALUE: variable X has no value
EQUAL-OK: ((141 142) 1)
(LET ((COUNT 150)) (HANDLER-BIND ((UNBOUND-VARIABLE (LAMBDA (C) (PRINC-ERROR C) (USE-VALUE (INCF COUNT))))) (LIST (LET (X) (MAKUNBOUND 'X) (LIST (SYMBOL-VALUE 'X) X)) X)))
[SIMPLE-UNBOUND-VARIABLE]: SYMBOL-VALUE: variable X has no value
[SIMPLE-UNBOUND-VARIABLE]: LET: variable X has no value
EQUAL-OK: ((151 152) 1)
(LET ((Y 1)) (LIST (LET ((Y 20)) (MAKUNBOUND 'Y) Y) Y))
EQUAL-OK: (20 1)
(LET ((Y 1)) (HANDLER-BIND ((UNBOUND-VARIABLE (LAMBDA (C) (PRINC-ERROR C) (STORE-VALUE 21)))) (LIST (LET (Y) (MAKUNBOUND 'Y) (SYMBOL-VALUE 'Y)) Y)))
[SIMPLE-UNBOUND-VARIABLE]: SYMBOL-VALUE: variable Y has no value
EQUAL-OK: (21 1)
(LET ((Y 1)) (HANDLER-BIND ((UNBOUND-VARIABLE (LAMBDA (C) (PRINC-ERROR C) (STORE-VALUE 220)))) (LIST (LET ((Y 22)) (MAKUNBOUND 'Y) (LIST Y (SYMBOL-VALUE 'Y))) Y)))
[SIMPLE-UNBOUND-VARIABLE]: SYMBOL-VALUE: variable Y has no value
EQUAL-OK: ((22 220) 1)
(LET ((Y 1)) (HANDLER-BIND ((UNBOUND-VARIABLE (LAMBDA (C) (PRINC-ERROR C) (STORE-VALUE 230)))) (LIST (LET ((Y 23)) (MAKUNBOUND 'Y) (LIST (SYMBOL-VALUE 'Y) Y)) Y)))
[SIMPLE-UNBOUND-VARIABLE]: SYMBOL-VALUE: variable Y has no value
EQUAL-OK: ((230 23) 1)
(LET ((Y 1) (COUNT 240)) (HANDLER-BIND ((UNBOUND-VARIABLE (LAMBDA (C) (PRINC-ERROR C) (USE-VALUE (INCF COUNT))))) (LIST (LET ((Y 24)) (MAKUNBOUND 'Y) (LIST Y (SYMBOL-VALUE 'Y))) Y)))
[SIMPLE-UNBOUND-VARIABLE]: SYMBOL-VALUE: variable Y has no value
EQUAL-OK: ((24 241) 1)
(LET ((Y 1) (COUNT 250)) (HANDLER-BIND ((UNBOUND-VARIABLE (LAMBDA (C) (PRINC-ERROR C) (USE-VALUE (INCF COUNT))))) (LIST (LET ((Y 25)) (MAKUNBOUND 'Y) (LIST (SYMBOL-VALUE 'Y) Y)) Y)))
[SIMPLE-UNBOUND-VARIABLE]: SYMBOL-VALUE: variable Y has no value
EQUAL-OK: ((251 25) 1)
(FLET ((FLET1 (N) (+ N N))) (FLET ((FLET1 (N) (+ 2 (FLET1 N)))) (FLET1 2)))
EQL-OK: 6
(PROGN (DEFUN DUMMY-FUNCTION NIL 'TOP-LEVEL) (LIST (FUNCALL #'DUMMY-FUNCTION) (FLET ((DUMMY-FUNCTION NIL 'SHADOW)) (FUNCALL #'DUMMY-FUNCTION)) (EQ (FUNCALL #'DUMMY-FUNCTION) (FUNCALL 'DUMMY-FUNCTION)) (FLET ((DUMMY-FUNCTION NIL 'SHADOW)) (EQ (FUNCALL #'DUMMY-FUNCTION) (FUNCALL 'DUMMY-FUNCTION)))))
EQUAL-OK: (TOP-LEVEL SHADOW T NIL)
(PROGN (DEFUN RECURSIVE-TIMES (K N) (LABELS ((TEMP (N) (IF (ZEROP N) 0 (+ K (TEMP (1- N)))))) (TEMP N))) (RECURSIVE-TIMES 2 3))
EQL-OK: 6
(PROGN (DEFMACRO MLETS (X &ENVIRONMENT ENV) (LET ((FORM `(BABBIT ,X))) (MACROEXPAND FORM ENV))) (MACROLET ((BABBIT (Z) `(+ ,Z ,Z))) (MLETS 5)))
EQL-OK: 10
(FLET ((SAFESQRT (X) (SQRT (ABS X)))) (SAFESQRT (APPLY #'+ (MAP 'LIST #'SAFESQRT '(1 2 3 4 5 6)))))
EQL-OK: 3.2911735
(PROGN (DEFUN INTEGER-POWER (N K) (DECLARE (INTEGER N)) (DECLARE (TYPE (INTEGER 0 *) K)) (LABELS ((EXPT0 (X K A) (DECLARE (INTEGER X A) (TYPE (INTEGER 0 *) K)) (COND ((ZEROP K) A) ((EVENP K) (EXPT1 (* X X) (FLOOR K 2) A)) (T (EXPT0 (* X X) (FLOOR K 2) (* X A))))) (EXPT1 (X K A) (DECLARE (INTEGER X A) (TYPE (INTEGER 0 *) K)) (COND ((EVENP K) (EXPT1 (* X X) (FLOOR K 2) A)) (T (EXPT0 (* X X) (FLOOR K 2) (* X A)))))) (EXPT0 N K 1))) (INTEGER-POWER 3 5))
EQL-OK: 243
(PROGN (DEFUN EXAMPLE (Y L) (FLET ((ATTACH (X) (SETQ L (APPEND L (LIST X))))) (DECLARE (INLINE ATTACH)) (DOLIST (X Y) (UNLESS (NULL (CDR X)) (ATTACH X))) L)) (EXAMPLE '((A APPLE APRICOT) (B BANANA) (C CHERRY) (D) (E)) '((1) (2) (3) (4 2) (5) (6 3 2))))
EQUAL-OK: ((1) (2) (3) (4 2) (5) (6 3 2) (A APPLE APRICOT) (B BANANA) (C CHERRY))
(WITH-OUTPUT-TO-STRING (*ERROR-OUTPUT*) (DECLAIM (OPTIMIZE ZOT)))
EQUAL-OK: "WARNING: ZOT is not a valid OPTIMIZE quality.
"
(LET ((WARNINGS 0) (ERRORS 0)) (LIST (WITH-OUTPUT-TO-STRING (*ERROR-OUTPUT*) (HANDLER-BIND ((WARNING (LAMBDA (W) (INCF WARNINGS))) (ERROR (LAMBDA (E) (INCF ERRORS) (PRINC E *ERROR-OUTPUT*) (CONTINUE E)))) (WARN "foo") (CERROR "baz" 'ERROR) (WARN "bar"))) WARNINGS ERRORS))
EQUAL-OK: ("WARNING: foo
Condition of type ERROR.
WARNING: bar
" 2 1)
(DEFPARAMETER *DECL-FILE* "decl.lisp")
EQL-OK: *DECL-FILE*
(DEFUN WRITE-DECL-FILE (DECLARATION) (LET ((F `(DEFUN F (X) (DECLARE (,DECLARATION)) X)) (GF `(DEFGENERIC GF (X) (DECLARE (,DECLARATION))))) (WITH-OPEN-FILE (O *DECL-FILE* :DIRECTION :OUTPUT) (FLET ((WR (CODE NAME) (SETF (SECOND CODE) NAME) (WRITE CODE :STREAM O :PRETTY T) (TERPRI O))) (WR F 'F1) (WR GF 'GF1) (WRITE `(DECLAIM (DECLARATION ,DECLARATION)) :STREAM O) (TERPRI O) (WR F 'F2) (WR GF 'GF2)))))
EQL-OK: WRITE-DECL-FILE
(LET ((WARNINGS 0)) (WRITE-DECL-FILE 'TEST-DECL-LOAD) (HANDLER-BIND ((WARNING (LAMBDA (W) (INCF WARNINGS)))) (LOAD *DECL-FILE*)) WARNINGS)
;; Loading file decl.lisp ...
WARNING: DEFGENERIC GF1: In the DECLARE argument, (TEST-DECL-LOAD) declaration
         is not permitted;; Loaded file 
decl.lisp
EQL-OK: 1
(PROGN (WRITE-DECL-FILE 'TEST-DECL-COMPILE) (REST (MULTIPLE-VALUE-LIST (COMPILE-FILE *DECL-FILE*))))
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/decl.lisp ...
WARNING: in F1 in line 1 : Unknown declaration TEST-DECL-COMPILE.
         The whole declaration will be ignored.
WARNING: DEFGENERIC GF1: In the DECLARE argument, (TEST-DECL-COMPILE)
         declaration is not permitted
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/decl.fas
0 errors, 2 warnings
EQUAL-OK: (2 2)
(LET ((WARNINGS 0)) (HANDLER-BIND ((WARNING (LAMBDA (W) (INCF WARNINGS)))) (LOAD (COMPILE-FILE-PATHNAME *DECL-FILE*))) (POST-COMPILE-FILE-CLEANUP *DECL-FILE*) WARNINGS)
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/decl.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/decl.fas
EQL-OK: 0
(SYMBOLS-CLEANUP '(SETF-FOO BAR X *COLLECTOR* DUMMY-FUNCTION *DECL-FILE* WRITE-DECL-FILE F1 F2 GF1 GF2 TEST-DECL-LOAD TEST-DECL-COMPILE RECURSIVE-TIMES MLETS INTEGER-POWER EXAMPLE))
EQL-OK: NIL
RUN-TEST: finished "eval20" (0 errors out of 50 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"ext-clisp.tst" @1>
(FUNCALL (MAKE-COMPLETION '("a" "abc" "ab")) "ab" 0 2)
EQUAL-OK: ("ab" "ab" "abc")
(FUNCALL (MAKE-COMPLETION '("a" "abc" "ab")) "b" 0 1)
EQL-OK: NIL
(FUNCALL (MAKE-COMPLETION '("abz" "abc")) "a" 0 1)
EQUAL-OK: ("ab" "abc" "abz")
(FUNCALL (MAKE-COMPLETION '("a" "abc" "ab")) "" 0 0)
EQUAL-OK: ("a" "a" "ab" "abc")
(LONGEST-COMMON-PREFIX '("a" "abc"))
EQUAL-OK: "a"
(LONGEST-COMMON-PREFIX '("za" "abc"))
EQUAL-OK: ""
(LONGEST-COMMON-PREFIX '(#*1100 #*100))
EQUAL-OK: #*1
(LONGEST-COMMON-PREFIX NIL)
[SIMPLE-PROGRAM-ERROR]: APPLY: too few arguments given to MIN
EQL-OK: ERROR
(STARTS-WITH-P "a" "A")
EQL-OK: T
(STARTS-WITH-P "ab" "b")
EQL-OK: NIL
(STARTS-WITH-P "http://clisp.org" "http://")
EQL-OK: T
(STARTS-WITH-P "FoOb" "Fo0b")
EQL-OK: NIL
(LET* ((DIR (MAKE-PATHNAME :DIRECTORY '(:RELATIVE "foo" "bar" "baz"))) SR1 SR2 (*LOAD-PATHS* (LIST (MAKE-PATHNAME :DIRECTORY (APPEND (SUBSEQ (PATHNAME-DIRECTORY DIR) 0 2) '(:WILD-INFERIORS))))) (FILE (MERGE-PATHNAMES DIR "quux"))) (LIST (MULTIPLE-VALUE-BIND (PATHSPEC CREATED) (ENSURE-DIRECTORIES-EXIST DIR) (LIST (OR (EQUAL PATHSPEC DIR) (LIST PATHSPEC DIR)) CREATED)) (NOT (PROBE-FILE (OPEN FILE :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE))) (LENGTH (SETQ SR1 (SYSTEM::SEARCH-FILE (PATHNAME-NAME FILE)))) (LENGTH (SETQ SR2 (SYSTEM::SEARCH-FILE (MAKE-PATHNAME :NAME (PATHNAME-NAME FILE))))) (OR (EQUAL SR1 SR2) (LIST SR1 SR2)) (OR (EQUAL (FIRST SR1) (TRUENAME FILE)) (LIST SR1 FILE (TRUENAME FILE))) (NOT (DELETE-FILE FILE)) (LOOP FOR D ON (REVERSE (REST (PATHNAME-DIRECTORY DIR))) COLLECT (DELETE-DIRECTORY (MAKE-PATHNAME :DIRECTORY (CONS :RELATIVE (REVERSE D)))))))
EQUAL-OK: ((T T) NIL 1 1 T T NIL (T T T))
(MAPCAR (LAMBDA (X &AUX A B) (LIST (SETF (IF X A B) 2) A B)) '(T NIL))
EQUAL-OK: ((2 2 NIL) (2 NIL 2))
(LOOP WITH A AND B FOR X BELOW 2 COLLECT (MULTIPLE-VALUE-LIST (SETF (IF (ZEROP X) (VALUES A B) (VALUES B A)) (FLOOR 7 5))) COLLECT (CONS A B))
EQUAL-OK: ((1 2) (1 . 2) (1 2) (2 . 1))
(LET (X A B C) (SETF (IF (ZEROP X) (VALUES A B) C) X))
[SIMPLE-SOURCE-PROGRAM-ERROR]: SETF place (IF #1=(ZEROP X) #2=(VALUES A B) C) expects different numbers of values in the true and false branches (2 vs. 1 values).
EQL-OK: ERROR
(FCASE STRING= (LET ((FOO "two third")) (SUBSEQ FOO 0 (POSITION #\Space FOO))) ("first" 1) (("second" "two") 2) (("true" "yes") T) (OTHERWISE NIL))
EQL-OK: 2
(MULTIPLE-VALUE-LIST (XOR NIL NIL NIL))
EQUAL-OK: (NIL)
(MULTIPLE-VALUE-LIST (XOR NIL (BLOCK NIL (RETURN 'A)) NIL))
EQUAL-OK: (A 2)
(! 10)
EQL-OK: 3628800
(! 11)
EQL-OK: 39916800
(! 0)
EQL-OK: 1
(! 3/2)
[SIMPLE-TYPE-ERROR]: !: argument #1=3/2 is not a nonnegative fixnum
EQL-OK: ERROR
(MULTIPLE-VALUE-LIST (LET (A B) (PUSH (VALUES 1 2) (VALUES A B))))
EQUAL-OK: ((1) (2))
(LET (A B) (LIST (MULTIPLE-VALUE-LIST (PUSHNEW (VALUES 1 2) (VALUES A B))) A B))
EQUAL-OK: (((1) (2)) (1) (2))
(LET ((A '(1)) (B '(2 3))) (LIST (MULTIPLE-VALUE-LIST (POP (VALUES A B))) A B))
EQUAL-OK: ((1 2) NIL (3))
(DEFUN TEST-DOHASH (HASH-TABLE) (LET ((ALL-ENTRIES 'NIL) (GENERATED-ENTRIES 'NIL) (UNIQUE (LIST NIL))) (MAPHASH #'(LAMBDA (KEY VALUE) (PUSH (LIST KEY VALUE) ALL-ENTRIES)) HASH-TABLE) (DOHASH (KEY VALUE HASH-TABLE) (DECLARE (OPTIMIZE SAFETY)) (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 "MAPHASH and EXT:DOHASH entries don't correspond")) T))
EQL-OK: TEST-DOHASH
(LET ((TAB (MAKE-HASH-TABLE :TEST #'EQUAL))) (SETF (GETHASH "Richard" TAB) "Gabriel") (SETF (GETHASH "Bruno" TAB) "Haible") (SETF (GETHASH "Michael" TAB) "Stoll") (SETF (GETHASH "Linus" TAB) "Torvalds") (SETF (GETHASH "Richard" TAB) "Stallman") (TEST-DOHASH TAB))
EQL-OK: T
(LET ((HASH-TABLE (MAKE-HASH-TABLE)) (ENTRIES 'NIL)) (SETF (GETHASH 1 HASH-TABLE) 100) (SETF (GETHASH 2 HASH-TABLE) 200) (SORT (DOHASH (KEY VALUE HASH-TABLE ENTRIES) (DECLARE (IGNORE KEY)) (PUSH VALUE ENTRIES)) #'<))
EQUAL-OK: (100 200)
(LET ((HASH-TABLE (MAKE-HASH-TABLE :INITIAL-CONTENTS '((1 . 100) (2 . 200)))) (ENTRIES 'NIL)) (SORT (DOHASH (KEY VALUE HASH-TABLE ENTRIES) (PUSH VALUE ENTRIES) (GO SKIP) (PUSH KEY ENTRIES) SKIP) #'<))
EQUAL-OK: (100 200)
(LET ((X (LIST 1))) (LIST (LETF (((CAR X) 3)) (LIST X (COPY-LIST X))) X))
EQUAL-OK: (((1) (3)) (1))
(LET ((X (LIST 1))) (LIST (LETF (((CAR X) 3) ((CDR X) (COPY-LIST X))) (LIST X (COPY-LIST X))) X))
EQUAL-OK: (((1) (3 1)) (1))
(LET (A B) (LIST (LETF (((VALUES A B) (VALUES 1 2))) (LIST A B)) (LIST A B)))
EQUAL-OK: ((1 2) (NIL NIL))
(LET ((X (LIST 2))) (LIST (LETF* (((CAR X) 3)) (LIST X (COPY-LIST X))) X))
EQUAL-OK: (((2) (3)) (2))
(LET ((X (LIST 1))) (LIST (LETF* (((CAR X) 3) ((CDR X) (COPY-LIST X))) (LIST X (COPY-LIST X))) X))
EQUAL-OK: (((1) (3 3)) (1))
(LET (A B) (LIST (LETF* (((VALUES A B) (VALUES 1 2))) (LIST A B)) (LIST A B)))
EQUAL-OK: ((1 2) (NIL NIL))
(LET ((X (LIST 1))) (BLOCK NIL (LETF (((CAR X) 2) ((CDR (PROGN (RETURN) X)) 3)) X)) X)
EQUAL-OK: (1)
(LET ((X (LIST 11184810))) (LETF (((LDB (BYTE 5 9) (FIRST X)) -1)) (SETF (FIRST X) 0)) X)
EQUAL-OK: (10752)
(LET ((X (LIST 1))) (LETF (((FIRST X) 3))))
EQL-OK: NIL
(LET ((X (LIST 1))) (MACROLET ((FROB NIL '(FIRST X))) (LETF (((FROB) 2)) (COPY-LIST X))))
EQUAL-OK: (2)
(LET ((X (LIST 1))) (MACROLET ((FROB NIL '(FIRST X))) (LETF* (((FROB) 2)) (COPY-LIST X))))
EQUAL-OK: (2)
(SYMBOL-MACROLET ((A *PRINT-BASE*)) (LETF ((A 36)) (PRINC-TO-STRING 20)))
EQUAL-OK: "K"
(SYMBOL-MACROLET ((A *PRINT-BASE*)) (LETF* ((A 36)) (PRINC-TO-STRING 20)))
EQUAL-OK: "K"
(LET (A B C) (SYMBOL-MACROLET ((A *PRINT-BASE*)) (LETF (((VALUES A B C) 36)) (PRINC-TO-STRING 20))))
EQUAL-OK: "K"
(LET (A B C) (SYMBOL-MACROLET ((A *PRINT-BASE*)) (LETF* (((VALUES A B C) 36)) (PRINC-TO-STRING 20))))
EQUAL-OK: "K"
(LET ((A (VECTOR 0 0))) (LETF (((VALUES (AREF A 0) (AREF A 1)) (FLOOR 7 5))) (COPY-SEQ A)))
EQUALP-OK: #(1 2)
(LET ((A (VECTOR 0 0))) (LETF* (((VALUES (AREF A 0) (AREF A 1)) (FLOOR 7 5))) (COPY-SEQ A)))
EQUALP-OK: #(1 2)
(LETF (((VALUES) 1)) 2)
EQL-OK: 2
(LETF* (((VALUES) 1)) 2)
EQL-OK: 2
(MAKUNBOUND 'XX)
EQL-OK: XX
(LETF (((SYMBOL-VALUE 'XX) 3)) (DECLARE (SPECIAL XX)) XX)
[SIMPLE-UNBOUND-VARIABLE]: SYMBOL-VALUE: variable XX has no value
EQL-OK: ERROR
(MULTIPLE-VALUE-LIST (GETHASH 1 (LETF* ((H (MAKE-HASH-TABLE)) ((GETHASH 1 H) 'A)) H) 2))
EQUAL-OK: (NIL T)
(MULTIPLE-VALUE-LIST (GETHASH 1 (LETF* ((H (MAKE-HASH-TABLE)) ((GETHASH 1 H 'B) 'A)) H) 2))
EQUAL-OK: (B T)
(LET ((A 'NIL)) (LETF* (((GETF A :KEY) 1))) A)
EQUAL-OK: (:KEY NIL)
(LET ((A 'NIL)) (LETF* (((GETF A :KEY :DEFAULT) 1))) A)
EQUAL-OK: (:KEY :DEFAULT)
(LET ((A 'NIL)) (LETF (((GETF A :KEY :DEFAULT) 1))) A)
EQUAL-OK: (:KEY :DEFAULT)
(LET* ((X 9) (F (LAMBDA NIL X))) (LETF (((VALUES X Y) (FLOOR 7 5))) (LIST X (FUNCALL F))))
EQUAL-OK: (1 9)
(LET* ((X 9) (F (LAMBDA NIL X))) (LETF* (((VALUES X Y) (FLOOR 7 5))) (LIST X (FUNCALL F))))
EQUAL-OK: (1 9)
(LET* ((X 9) (FX (LAMBDA NIL X)) (Y 3) (FY (LAMBDA NIL Y))) (LETF* (((VALUES (VALUES X) Y) (FLOOR 7 5))) (LIST X (FUNCALL FX) Y (FUNCALL FY))))
EQUAL-OK: (1 1 2 2)
(LET* ((X (LIST 9)) (Y 8) (FY (LAMBDA NIL Y))) (LETF* (((VALUES (CAR X) Y) (FLOOR 7 5))) (LIST Y (FUNCALL FY))))
EQUAL-OK: (2 2)
(LET ((X 1)) (LOCALLY (DECLARE (SYSTEM::IMPLEMENTATION-DEPENDENT X)) X))
WARNING: Reference to X is implementation-dependent, per ANSI CL 6.1.1.4.
EQL-OK: 1
(LET ((X 1)) (LOCALLY (DECLARE (SYSTEM::IMPLEMENTATION-DEPENDENT X)) T))
EQL-OK: T
(HANDLER-CASE (LET ((X 1)) (LOCALLY (DECLARE (SYSTEM::IMPLEMENTATION-DEPENDENT X)) X)) (WARNING (W) (PRINC-TO-STRING W)))
EQUAL-OK: "Reference to X is implementation-dependent, per ANSI CL 6.1.1.4."
(HANDLER-CASE (LET ((X 1)) (LOCALLY (DECLARE (SYSTEM::IMPLEMENTATION-DEPENDENT X)) (SETQ X 2))) (WARNING (W) (PRINC-TO-STRING W)))
EQUAL-OK: "Reference to X is implementation-dependent, per ANSI CL 6.1.1.4."
(HANDLER-CASE (LET ((X 1)) (LOCALLY (DECLARE (SYSTEM::IMPLEMENTATION-DEPENDENT X)) (MULTIPLE-VALUE-SETQ (X) 2))) (WARNING (W) (PRINC-TO-STRING W)))
EQUAL-OK: "Reference to X is implementation-dependent, per ANSI CL 6.1.1.4."
(DEFUN ANONYMIZE-COMPILED-FORM-GENSYM (S) (LET ((I (SEARCH "COMPILED-FORM-" S))) (IF I (LET* ((J (+ I 14)) (K (POSITION-IF-NOT #'DIGIT-CHAR-P S :START J))) (CONCATENATE 'STRING (SUBSEQ S 0 J) (SUBSEQ S K))) S)))
EQL-OK: ANONYMIZE-COMPILED-FORM-GENSYM
(LET ((X 1)) (LOCALLY (DECLARE (SYSTEM::IMPLEMENTATION-DEPENDENT X)) (LOCALLY (DECLARE (COMPILE)) X)))
WARNING: in #:COMPILED-FORM-1077 : Reference to X is implementation-dependent,
         per ANSI CL 6.1.1.4.
WARNING: in #:COMPILED-FORM-1077 : Reference to X is implementation-dependent,
         per ANSI CL 6.1.1.4.EQL-OK: 1
(LET ((X 1)) (LOCALLY (DECLARE (SYSTEM::IMPLEMENTATION-DEPENDENT X)) (LOCALLY (DECLARE (COMPILE)) T)))
EQL-OK: T
(HANDLER-CASE (LET ((X 1)) (LOCALLY (DECLARE (SYSTEM::IMPLEMENTATION-DEPENDENT X)) (LOCALLY (DECLARE (COMPILE)) X))) (WARNING (W) (ANONYMIZE-COMPILED-FORM-GENSYM (PRINC-TO-STRING W))))
EQUAL-OK: "in #:COMPILED-FORM- : Reference to X is implementation-dependent, per ANSI CL 6.1.1.4."
(HANDLER-CASE (LET ((X 1)) (LOCALLY (DECLARE (SYSTEM::IMPLEMENTATION-DEPENDENT X)) (LOCALLY (DECLARE (COMPILE)) (SETQ X 2)))) (WARNING (W) (ANONYMIZE-COMPILED-FORM-GENSYM (PRINC-TO-STRING W))))
EQUAL-OK: "in #:COMPILED-FORM- : Reference to X is implementation-dependent, per ANSI CL 6.1.1.4."
(HANDLER-CASE (LET ((X 1)) (LOCALLY (DECLARE (SYSTEM::IMPLEMENTATION-DEPENDENT X)) (LOCALLY (DECLARE (COMPILE)) (MULTIPLE-VALUE-SETQ (X) 2)))) (WARNING (W) (ANONYMIZE-COMPILED-FORM-GENSYM (PRINC-TO-STRING W))))
EQUAL-OK: "in #:COMPILED-FORM- : Reference to X is implementation-dependent, per ANSI CL 6.1.1.4."
(LOCALLY (DECLARE (COMPILE)) (LET ((X 1)) (LOCALLY (DECLARE (SYSTEM::IMPLEMENTATION-DEPENDENT X)) X)))
WARNING: in #:COMPILED-FORM-1085 : Reference to X is implementation-dependent,
         per ANSI CL 6.1.1.4.
WARNING: in #:COMPILED-FORM-1085 : Reference to X is implementation-dependent,
         per ANSI CL 6.1.1.4.EQL-OK: 1
(LOCALLY (DECLARE (COMPILE)) (LET ((X 1)) (LOCALLY (DECLARE (SYSTEM::IMPLEMENTATION-DEPENDENT X)) T)))
WARNING: in #:COMPILED-FORM-1086 : variable X is not used.
         Misspelled or missing IGNORE declaration?EQL-OK: T
(HANDLER-CASE (LOCALLY (DECLARE (COMPILE)) (LET ((X 1)) (LOCALLY (DECLARE (SYSTEM::IMPLEMENTATION-DEPENDENT X)) X))) (WARNING (W) (ANONYMIZE-COMPILED-FORM-GENSYM (PRINC-TO-STRING W))))
EQUAL-OK: "in #:COMPILED-FORM- : Reference to X is implementation-dependent, per ANSI CL 6.1.1.4."
(HANDLER-CASE (LOCALLY (DECLARE (COMPILE)) (LET ((X 1)) (LOCALLY (DECLARE (SYSTEM::IMPLEMENTATION-DEPENDENT X)) (SETQ X 2)))) (WARNING (W) (ANONYMIZE-COMPILED-FORM-GENSYM (PRINC-TO-STRING W))))
EQUAL-OK: "in #:COMPILED-FORM- : Reference to X is implementation-dependent, per ANSI CL 6.1.1.4."
(HANDLER-CASE (LOCALLY (DECLARE (COMPILE)) (LET ((X 1)) (LOCALLY (DECLARE (SYSTEM::IMPLEMENTATION-DEPENDENT X)) (MULTIPLE-VALUE-SETQ (X) 2)))) (WARNING (W) (ANONYMIZE-COMPILED-FORM-GENSYM (PRINC-TO-STRING W))))
EQUAL-OK: "in #:COMPILED-FORM- : Reference to X is implementation-dependent, per ANSI CL 6.1.1.4."
(EVERY #'FEATUREP *FEATURES*)
EQL-OK: T
(NOTANY (LAMBDA (X) (FEATUREP `(NOT ,X))) *FEATURES*)
EQL-OK: T
((LAMBDA (X) (DECLARE (COMPILE)) (ETHE INTEGER X)) 3)
EQL-OK: 3
((LAMBDA (X) (DECLARE (COMPILE)) (ETHE INTEGER X)) T)
[SIMPLE-ERROR]: The form X yielded T ,
that's not of type INTEGER.
EQL-OK: ERROR
(LOCALLY (DECLARE (COMPILE)) (MULTIPLE-VALUE-LIST (ETHE (VALUES INTEGER FLOAT) (TRUNCATE 3.2 2))))
EQUAL-OK: (1 1.2)
(LOCALLY (DECLARE (COMPILE)) (ETHE (VALUES FLOAT INTEGER) (TRUNCATE 3.2 2)))
[SIMPLE-ERROR]: The form (TRUNCATE 3.2 2) yielded 1 ; 1.2 ,
that's not of type (VALUES FLOAT INTEGER).
EQL-OK: ERROR
(CANONICALIZE 1 `(,#'1+))
[SIMPLE-ERROR]: CANONICALIZE(1 (#<SYSTEM-FUNCTION 1+>)): maximum number of iterations exceeded 1,024, last two values were 1025 and 1026
EQL-OK: ERROR
(CANONICALIZE "foo" `(,#'STRING-UPCASE) :TEST 'EQUAL)
EQUAL-OK: "FOO"
(CANONICALIZE "iso1234" `(,(LAMBDA (S) (IF (AND (<= 4 (LENGTH S)) (STRING-EQUAL S "iso" :END1 3) (NOT (CHAR= #\- (CHAR S 3)))) (CONCATENATE 'STRING "ISO-" (SUBSEQ S 3)) S))) :TEST 'EQUAL)
EQUAL-OK: "ISO-1234"
(DEFUN CHECK-LOAD (FILE) (LET* ((DIR (STRING-CONCAT (SECOND (PATHNAME-DIRECTORY FILE)) "/")) (*LOAD-PATHS* (LIST '#P"" (PATHNAME (STRING-CONCAT DIR "**/"))))) (UNWIND-PROTECT (PROGN (PREPARE-DIRECTORY FILE) (WITH-OPEN-FILE (S FILE :DIRECTION :OUTPUT) (PRIN1 '(SETF (CDR *LOAD-PATHS*) NIL) S)) (LOAD (PATHNAME-NAME FILE)) *LOAD-PATHS*) (RMRF DIR))))
EQL-OK: CHECK-LOAD
(CHECK-LOAD "ext-clisp-tst/foo/bar/baz/zot.lisp")
Creating directory: /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst/
Creating directory: /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst/foo/
Creating directory: /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst/foo/bar/
Creating directory: /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst/foo/bar/baz/
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst/foo/bar/baz/zot.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst/foo/bar/baz/zot.lisp
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst/foo/bar/baz/zot.lisp      29   2024-05-20 17:07:51
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst/    4096   2024-05-20 17:07:51
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst/foo/    4096   2024-05-20 17:07:51
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst/foo/bar/    4096   2024-05-20 17:07:51
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst/foo/bar/baz/    4096   2024-05-20 17:07:51
removing file #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst/foo/bar/baz/zot.lisp"
removing directory #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst/foo/bar/baz/"
removing directory #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst/foo/bar/"
removing directory #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst/foo/"
removing directory #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst/"
EQUAL-OK: (#P"")
(CHECK-LOAD "ext-clisp-tst/foo/bar/baz/zot")
Creating directory: /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst/
Creating directory: /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst/foo/
Creating directory: /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst/foo/bar/
Creating directory: /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst/foo/bar/baz/
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst/foo/bar/baz/zot ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst/foo/bar/baz/zot
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst/foo/bar/baz/zot      29   2024-05-20 17:07:51
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst/    4096   2024-05-20 17:07:51
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst/foo/    4096   2024-05-20 17:07:51
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst/foo/bar/    4096   2024-05-20 17:07:51
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst/foo/bar/baz/    4096   2024-05-20 17:07:51
removing file #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst/foo/bar/baz/zot"
removing directory #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst/foo/bar/baz/"
removing directory #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst/foo/bar/"
removing directory #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst/foo/"
removing directory #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst/"
EQUAL-OK: (#P"")
(DEFPARAMETER *S1* (OPEN "ext-clisp-tst-abazonk" :DIRECTION :OUTPUT))
EQL-OK: *S1*
(OPEN "ext-clisp-tst-abazonk" :DIRECTION :OUTPUT)
[SIMPLE-FILE-ERROR]: OPEN: #<OUTPUT BUFFERED FILE-STREAM CHARACTER #P"ext-clisp-tst-abazonk"> already points to file #1="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst-abazonk", opening the file again for :OUTPUT may produce unexpected results
EQL-OK: ERROR
(DEFPARAMETER *S2* (APPEASE-CERRORS (OPEN "ext-clisp-tst-abazonk")))
WARNING: OPEN:
         #<OUTPUT BUFFERED FILE-STREAM CHARACTER #P"ext-clisp-tst-abazonk">
         already points to file
         "/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst-abazonk"
         , opening the file again for :INPUT may produce unexpected results
         Open the file anywayEQL-OK: *S2*
(EQUAL (TRUENAME *S1*) (TRUENAME *S2*))
EQL-OK: T
(OPEN-STREAM-P *S1*)
EQL-OK: T
(OPEN-STREAM-P *S2*)
EQL-OK: T
(DEFPARAMETER *S3* (LET ((*REOPEN-OPEN-FILE* 'WARN)) (OPEN "ext-clisp-tst-abazonk")))
WARNING: OPEN:
         #<OUTPUT BUFFERED FILE-STREAM CHARACTER #P"ext-clisp-tst-abazonk">
         already points to file
         "/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst-abazonk"
         , opening the file again for :INPUTEQL-OK: *S3*
(OPEN-STREAM-P *S1*)
EQL-OK: T
(OPEN-STREAM-P *S2*)
EQL-OK: T
(OPEN-STREAM-P *S3*)
 may produce unexpected results
EQL-OK: T
(EQUAL (TRUENAME *S1*) (TRUENAME *S3*))
EQL-OK: T
(DEFPARAMETER *S4* (LET ((*REOPEN-OPEN-FILE* 'CLOSE)) (OPEN "ext-clisp-tst-abazonk")))
EQL-OK: *S4*
(OPEN-STREAM-P *S1*)
EQL-OK: NIL
(OPEN-STREAM-P *S2*)
EQL-OK: T
(OPEN-STREAM-P *S3*)
EQL-OK: T
(OPEN-STREAM-P *S4*)
EQL-OK: T
(EQUAL (TRUENAME *S1*) (TRUENAME *S4*))
EQL-OK: T
(DEFPARAMETER *S1* (LET ((*REOPEN-OPEN-FILE* 'CLOSE)) (OPEN "ext-clisp-tst-abazonk" :DIRECTION :OUTPUT)))
EQL-OK: *S1*
(OPEN-STREAM-P *S1*)
EQL-OK: T
(OPEN-STREAM-P *S2*)
EQL-OK: NIL
(OPEN-STREAM-P *S3*)
EQL-OK: NIL
(OPEN-STREAM-P *S4*)
EQL-OK: NIL
(EQUAL (TRUENAME *S1*) (TRUENAME *S4*))
EQL-OK: T
(LET ((*REOPEN-OPEN-FILE* 0)) (OPEN "ext-clisp-tst-abazonk"))
WARNING: OPEN: The value of *REOPEN-OPEN-FILE* should be one of ERROR, WARN,
         CLOSE, or NIL, not 0. It has been changed to ERROR.
[SIMPLE-FILE-ERROR]: OPEN: #<OUTPUT BUFFERED FILE-STREAM CHARACTER #P"ext-clisp-tst-abazonk"> already points to file #1="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/ext-clisp-tst-abazonk", opening the file again for :INPUT may produce unexpected results
EQL-OK: ERROR
(SETF (STREAM-ELEMENT-TYPE *S1*) '(UNSIGNED-BYTE 8))
EQUAL-OK: (UNSIGNED-BYTE 8)
(WRITE-BYTE-SEQUENCE #(1 2 3) *S1*)
EQUALP-OK: #(1 2 3)
(WRITE-BYTE-SEQUENCE #(4 5 6) *S1* :NO-HANG T)
EQUALP-OK: #(4 5 6)
(WRITE-BYTE-SEQUENCE #(1 2 3) *S1* :NO-HANG T)
EQUALP-OK: #(1 2 3)
(SETF (STREAM-ELEMENT-TYPE *S1*) 'CHARACTER)
EQL-OK: CHARACTER
(WRITE-CHAR-SEQUENCE #(#\a) *S1*)
EQUALP-OK: #(#\a)
(CLOSE *S1*)
EQL-OK: T
(PATHNAMEP (DELETE-FILE *S1*))
EQL-OK: T
(MULTIPLE-VALUE-BIND (CMD ARGS) (CMD-ARGS) (LIST (RUN-PROGRAM CMD :ARGUMENTS (APPEND ARGS '("-x" "(exit 42)"))) (RUN-PROGRAM CMD :ARGUMENTS (APPEND ARGS '("-x" "(exit)")))))
EQUAL-OK: (42 NIL)
(MULTIPLE-VALUE-BIND (CMD ARGS) (CMD-ARGS) (WITH-OPEN-STREAM (S (MAKE-PIPE-INPUT-STREAM (WITH-OUTPUT-TO-STRING (S) (PRINC CMD S) (DOLIST (A ARGS) (PRINC #\Space S) (PRINC A S)) (PRINC " -x \"(quote hello)\"" S)))) (READ-LINE S)))
EQUAL-OK: "HELLO"
(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))))
1467318
[1]> 
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)))))
Disassembly of function NIL
(CONST 0) = "["
(CONST 1) = " "
(CONST 2) = " "
(CONST 3) = "]"
3 required arguments
0 optional arguments
No rest parameter
No keyword parameters
12 byte-code instructions:
0     (CONST&PUSH 0)                      ; "["
1     (LOAD&PUSH 2)
2     (CALLS2&PUSH 166)                   ; SYMBOL-NAME
4     (CONST&PUSH 1)                      ; " "
5     (LOAD&PUSH 5)
6     (CALLS2&PUSH 6)                     ; NAMESTRING
8     (CONST&PUSH 2)                      ; " "
9     (LOAD&PUSH 8)
10    (CALLS1&PUSH 48)                    ; CHAR-NAME
12    (CONST&PUSH 3)                      ; "]"
13    (CALLSR 7 19)                       ; STRING-CONCAT
16    (SKIP&RET 4)
"[ARGS /builddir/ U0010E3DF]"
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 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))
(HANDLER-CASE (LETF ((*CURRENT-LANGUAGE* 'GERMAN)) (LIST (STRING= "Bis bald!" (SYSTEM::TEXT "Bye.")) (EQ *CURRENT-LANGUAGE* 'DEUTSCH))) (ERROR (E) (PRINC-ERROR E) '(T T)))
EQUAL-OK: (T T)
(HANDLER-CASE (LETF ((*CURRENT-LANGUAGE* 'FRENCH)) (LIST (STRING= "À bientôt !" (SYSTEM::TEXT "Bye.")) (STRING= *CURRENT-LANGUAGE* "FRANÇAIS"))) (ERROR (E) (PRINC-ERROR E) '(T T)))
EQUAL-OK: (T T)
(HANDLER-CASE (LETF ((*CURRENT-LANGUAGE* 'RUSSIAN)) (LIST (STRING= "До свидания! Не поминайте лихом!" (SYSTEM::TEXT "Bye.")) (STRING= *CURRENT-LANGUAGE* "РУССКИЙ"))) (ERROR (E) (PRINC-ERROR E) '(T T)))
EQUAL-OK: (T T)
(LETF ((*CURRENT-LANGUAGE* 'ENGLISH)) (LIST (STRING= "Bye." (SYSTEM::TEXT "Bye.")) (EQ *CURRENT-LANGUAGE* 'ENGLISH)))
EQUAL-OK: (T T)
(SYMBOLS-CLEANUP '(ANONYMIZE-COMPILED-FORM-GENSYM CHECK-LOAD TEST-DOHASH *S1* *S2* *S3* *S4*))
EQL-OK: NIL
RUN-TEST: finished "ext-clisp" (0 errors out of 134 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"floeps.tst" @1>
(DEFUN TEST-POS-EPSILON (<EPSILON>) (/= (FLOAT 1 <EPSILON>) (+ (FLOAT 1 <EPSILON>) <EPSILON>)))
EQL-OK: TEST-POS-EPSILON
(TEST-POS-EPSILON SHORT-FLOAT-EPSILON)
EQL-OK: T
(TEST-POS-EPSILON SINGLE-FLOAT-EPSILON)
EQL-OK: T
(TEST-POS-EPSILON DOUBLE-FLOAT-EPSILON)
EQL-OK: T
(TEST-POS-EPSILON LONG-FLOAT-EPSILON)
EQL-OK: T
(DEFUN TEST-NEG-EPSILON (<EPSILON>) (/= (FLOAT 1 <EPSILON>) (- (FLOAT 1 <EPSILON>) <EPSILON>)))
EQL-OK: TEST-NEG-EPSILON
(TEST-NEG-EPSILON SHORT-FLOAT-NEGATIVE-EPSILON)
EQL-OK: T
(TEST-NEG-EPSILON SINGLE-FLOAT-NEGATIVE-EPSILON)
EQL-OK: T
(TEST-NEG-EPSILON DOUBLE-FLOAT-NEGATIVE-EPSILON)
EQL-OK: T
(TEST-NEG-EPSILON LONG-FLOAT-NEGATIVE-EPSILON)
EQL-OK: T
(DEFUN BINARY-SEARCH (LOWER-BOUND UPPER-BOUND OLD-VALUE PRECISION TEST-FUN) (LET* ((NEW-VALUE (FLOAT (/ (+ LOWER-BOUND UPPER-BOUND) 2) PRECISION))) (IF (= OLD-VALUE NEW-VALUE) (FLOAT UPPER-BOUND PRECISION) (IF (FUNCALL TEST-FUN NEW-VALUE) (BINARY-SEARCH LOWER-BOUND NEW-VALUE NEW-VALUE PRECISION TEST-FUN) (BINARY-SEARCH NEW-VALUE UPPER-BOUND NEW-VALUE PRECISION TEST-FUN)))))
EQL-OK: BINARY-SEARCH
(DEFUN CHECK-EPS (EPS TEST) (= EPS (BINARY-SEARCH 0 1 0 EPS TEST)))
EQL-OK: CHECK-EPS
(CHECK-EPS SHORT-FLOAT-EPSILON #'TEST-POS-EPSILON)
EQL-OK: T
(CHECK-EPS SHORT-FLOAT-NEGATIVE-EPSILON #'TEST-NEG-EPSILON)
EQL-OK: T
(CHECK-EPS SINGLE-FLOAT-EPSILON #'TEST-POS-EPSILON)
EQL-OK: T
(CHECK-EPS SINGLE-FLOAT-NEGATIVE-EPSILON #'TEST-NEG-EPSILON)
EQL-OK: T
(CHECK-EPS DOUBLE-FLOAT-EPSILON #'TEST-POS-EPSILON)
EQL-OK: T
(CHECK-EPS DOUBLE-FLOAT-NEGATIVE-EPSILON #'TEST-NEG-EPSILON)
EQL-OK: T
(CHECK-EPS LONG-FLOAT-EPSILON #'TEST-POS-EPSILON)
EQL-OK: T
(CHECK-EPS LONG-FLOAT-NEGATIVE-EPSILON #'TEST-NEG-EPSILON)
EQL-OK: T
RUN-TEST: finished "floeps" (0 errors out of 20 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"format.tst" @1>
(FORMAT NIL "~10<foo~;bar~>")
EQUAL-OK: "foo    bar"
(FORMAT NIL "~10:<foo~;bar~>")
EQUAL-OK: "  foo  bar"
(FORMAT NIL "~10@<foo~;bar~>")
EQUAL-OK: "foo  bar  "
(FORMAT NIL "~10:@<foo~;bar~>")
EQUAL-OK: "  foo bar "
(FORMAT NIL "~10<foobar~>")
EQUAL-OK: "    foobar"
(FORMAT NIL "~10:<foobar~>")
EQUAL-OK: "    foobar"
(FORMAT NIL "~10@<foobar~>")
EQUAL-OK: "foobar    "
(FORMAT NIL "~10:@<foobar~>")
EQUAL-OK: "  foobar  "
(FORMAT NIL "~15<~S~>" 'FOO)
EQUALP-OK: "            foo"
(FORMAT NIL "~15<~S~;~^~S~>" 'FOO)
EQUALP-OK: "            foo"
(FORMAT NIL "~15<~S~;~^~S~;~^~S~>" 'FOO)
EQUALP-OK: "            foo"
(FORMAT NIL "~15<~S~;~^~S~>" 'FOO 'BAR)
EQUALP-OK: "foo         bar"
(FORMAT NIL "~15<~S~;~^~S~;~^~S~>" 'FOO 'BAR)
EQUALP-OK: "foo         bar"
(FORMAT NIL "~15<~S~;~^~S~;~^~S~>" 'FOO 'BAR 'BAZ)
EQUALP-OK: "foo   bar   baz"
(FORMAT NIL "~12<~S~;~^~S~;~^~S~>" 'FOO 'BAR 'BAZ)
EQUALP-OK: "foo  bar baz"
(DEFPARAMETER LISTE '(AAAAAAA BBBBBB CCCCCCCCCCCC DDDDDDDDDDDDDD EEEE FFFFFFFFF GGGGGGGG HHHHH IIII J KK LLL MMMM NNNNNN OOOOOOOOOO PPPPPPPPPPPPPPP QQQQQQQ RRRRRRRRRRRR S TTT UUUUUUUUU VVVVVVV WWWWWWWWWW XXXXX YYYYYY ZZZZZZZZ))
EQL-OK: LISTE
(FORMAT NIL "~%;; ~<~%;; ~1:; ~s~; ~s~; ~s~; ~s~; ~s~; ~s~; ~s~; ~s~; ~s~; ~s~;~
 ~s~; ~s~; ~s~; ~s~; ~s~; ~s~; ~s~; ~s~; ~s~; ~s~;~
 ~s~; ~s~; ~s~; ~s~;~>~%" 'AAAAAAA 'BBBBBB 'CCCCCCCCCCCC 'DDDDDDDDDDDDDD 'EEEE 'FFFFFFFFF 'GGGGGGGG 'HHHHH 'IIII 'J 'KK 'LLL 'MMMM 'NNNNNN 'OOOOOOOOOO 'PPPPPPPPPPPPPPP 'QQQQQQQ 'RRRRRRRRRRRR 'S 'TTT 'UUUUUUUUU 'VVVVVVV 'WWWWWWWWWW 'XXXXX 'YYYYYY 'ZZZZZZZZ)
EQUAL-OK: "
;; 
;;  AAAAAAA BBBBBB CCCCCCCCCCCC DDDDDDDDDDDDDD EEEE FFFFFFFFF GGGGGGGG HHHHH IIII JKK LLL MMMM NNNNNN OOOOOOOOOO PPPPPPPPPPPPPPP QQQQQQQ RRRRRRRRRRRR S TTTUUUUUUUUU VVVVVVV WWWWWWWWWW XXXXX
"
(FORMAT NIL "~%;; ~<~%;; ~1,50:; ~s~; ~s~; ~s~; ~s~; ~s~; ~s~; ~s~; ~s~; ~s~; ~s~;~
 ~s~; ~s~; ~s~; ~s~; ~s~; ~s~; ~s~; ~s~; ~s~; ~s~;~
 ~s~; ~s~; ~s~; ~s~;~>~%" 'AAAAAAA 'BBBBBB 'CCCCCCCCCCCC 'DDDDDDDDDDDDDD 'EEEE 'FFFFFFFFF 'GGGGGGGG 'HHHHH 'IIII 'J 'KK 'LLL 'MMMM 'NNNNNN 'OOOOOOOOOO 'PPPPPPPPPPPPPPP 'QQQQQQQ 'RRRRRRRRRRRR 'S 'TTT 'UUUUUUUUU 'VVVVVVV 'WWWWWWWWWW 'XXXXX 'YYYYYY 'ZZZZZZZZ)
EQUAL-OK: "
;; 
;;  AAAAAAA BBBBBB CCCCCCCCCCCC DDDDDDDDDDDDDD EEEE FFFFFFFFF GGGGGGGG HHHHH IIII JKK LLL MMMM NNNNNN OOOOOOOOOO PPPPPPPPPPPPPPP QQQQQQQ RRRRRRRRRRRR S TTTUUUUUUUUU VVVVVVV WWWWWWWWWW XXXXX
"
(DEFUN FORMAT-BLOCKSATZ (STREAM PARTS PREFIX &OPTIONAL LINE-LENGTH START-P END-P) (IF (NULL STREAM) (LET ((STREAM (MAKE-STRING-OUTPUT-STREAM))) (FORMAT-BLOCKSATZ STREAM PARTS PREFIX LINE-LENGTH START-P END-P) (GET-OUTPUT-STREAM-STRING STREAM)) (UNLESS (ENDP PARTS) (SETQ LINE-LENGTH (OR LINE-LENGTH 72)) (WHEN START-P (FORMAT STREAM PREFIX)) (LOOP (LET ((POS (SYSTEM::LINE-POSITION STREAM)) (PARTS-NOW 'NIL)) (LET ((POS-NOW POS)) (LOOP (WHEN (ENDP PARTS) (RETURN)) (LET* ((PART (FIRST PARTS)) (PART-LENGTH (LENGTH PART))) (UNLESS (NULL PARTS-NOW) (WHEN (> (+ POS-NOW PART-LENGTH) LINE-LENGTH) (RETURN))) (POP PARTS) (PUSH PART PARTS-NOW) (INCF POS-NOW PART-LENGTH)))) (APPLY #'FORMAT STREAM (IF (AND (ENDP PARTS) (NOT END-P)) (APPLY #'CONCATENATE 'STRING (MAKE-LIST (LENGTH PARTS-NOW) :INITIAL-ELEMENT "~A")) (CONCATENATE 'STRING "~" (WRITE-TO-STRING (MAX 0 (- LINE-LENGTH POS)) :RADIX NIL :BASE 10) (IF (= (LENGTH PARTS-NOW) 1) "@" "") "<" (APPLY #'CONCATENATE 'STRING "~A" (MAKE-LIST (1- (LENGTH PARTS-NOW)) :INITIAL-ELEMENT "~;~A")) "~>")) (NREVERSE PARTS-NOW))) (WHEN (ENDP PARTS) (RETURN)) (FORMAT STREAM PREFIX)))))
EQL-OK: FORMAT-BLOCKSATZ
(FORMAT-BLOCKSATZ NIL (MAPCAR #'(LAMBDA (X) (FORMAT NIL " ~A" X)) '(AAAAAAA BBBBBB CCCCCCCCCCCC DDDDDDDDDDDDDD EEEE FFFFFFFFF GGGGGGGG HHHHH IIII J KK LLL MMMM NNNNNN OOOOOOOOOO PPPPPPPPPPPPPPP QQQQQQQ RRRRRRRRRRRR S TTT UUUUUUUUU VVVVVVV WWWWWWWWWW XXXXX YYYYYY ZZZZZZZZ)) "~%;; " NIL T NIL)
EQUAL-OK: "
;;  AAAAAAA  BBBBBB  CCCCCCCCCCCC DDDDDDDDDDDDDD EEEE FFFFFFFFF GGGGGGGG
;;  HHHHH  IIII  J KK LLL MMMM NNNNNN OOOOOOOOOO PPPPPPPPPPPPPPP QQQQQQQ
;;  RRRRRRRRRRRR   S  TTT  UUUUUUUUU  VVVVVVV  WWWWWWWWWW  XXXXX  YYYYYY
;;  ZZZZZZZZ"
(FORMAT-BLOCKSATZ NIL (MAPCAR #'(LAMBDA (X) (FORMAT NIL " ~A" X)) '(AAAAAAA BBBBBB CCCCCCCCCCCC DDDDDDDDDDDDDD EEEE FFFFFFFFF GGGGGGGG HHHHH IIII J KK LLL MMMM NNNNNN OOOOOOOOOO PPPPPPPPPPPPPPP QQQQQQQ RRRRRRRRRRRR S TTT UUUUUUUUU VVVVVVV WWWWWWWWWW XXXXX YYYYYY ZZZZZZZZ)) "~%;; " 50 T T)
EQUAL-OK: "
;;  AAAAAAA   BBBBBB  CCCCCCCCCCCC  DDDDDDDDDDDDDD
;;  EEEE  FFFFFFFFF  GGGGGGGG  HHHHH IIII J KK LLL
;;  MMMM NNNNNN OOOOOOOOOO PPPPPPPPPPPPPPP QQQQQQQ
;;  RRRRRRRRRRRR    S    TTT   UUUUUUUUU   VVVVVVV
;;  WWWWWWWWWW      XXXXX      YYYYYY     ZZZZZZZZ"
(FORMAT NIL "~%;; ~{~<~%;; ~1,50:; ~s~>~^,~}.~%" '(AAAAAAA BBBBBB CCCCCCCCCCCC DDDDDDDDDDDDDD EEEE FFFFFFFFF GGGGGGGG HHHHH IIII J KK LLL MMMM NNNNNN OOOOOOOOOO PPPPPPPPPPPPPPP QQQQQQQ RRRRRRRRRRRR S TTT UUUUUUUUU VVVVVVV WWWWWWWWWW XXXXX YYYYYY ZZZZZZZZ))
EQUAL-OK: "
;;  AAAAAAA, BBBBBB, CCCCCCCCCCCC, DDDDDDDDDDDDDD,
;;  EEEE, FFFFFFFFF, GGGGGGGG, HHHHH, IIII, J, KK,
;;  LLL, MMMM, NNNNNN, OOOOOOOOOO,
;;  PPPPPPPPPPPPPPP, QQQQQQQ, RRRRRRRRRRRR, S,
;;  TTT, UUUUUUUUU, VVVVVVV, WWWWWWWWWW, XXXXX,
;;  YYYYYY, ZZZZZZZZ.
"
(DEFUN FOO (X) (FORMAT NIL "~6,2F|~6,2,1,'*F|~6,2,,'?F|~6F|~,2F|~F" X X X X X X))
EQL-OK: FOO
(FOO 3.14159)
EQUAL-OK: "  3.14| 31.42|  3.14|3.1416|3.14|3.14159"
(FOO -3.14159)
EQUAL-OK: " -3.14|-31.42| -3.14|-3.142|-3.14|-3.14159"
(FOO 100.0)
EQUAL-OK: "100.00|******|100.00| 100.0|100.00|100.0"
(FOO 1234.0)
EQUAL-OK: "1234.00|******|??????|1234.0|1234.00|1234.0"
(FOO 0.006)
EQUAL-OK: "  0.01|  0.06|  0.01| 0.006|0.01|0.006"
(FORMAT NIL "~5,2,-13f" 1.1E13)
EQUAL-OK: " 1.10"
(FORMAT NIL "~9,0,6f" 3.14159)
EQUAL-OK: " 3141590."
(FORMAT NIL "~5D" 'A)
EQUAL-OK: "    A"
(FORMAT NIL "~5,3F" 'A)
EQUAL-OK: "    A"
(FORMAT NIL "~5,3F" #C(1.2 0.3))
EQUAL-OK: "#C(1.2 0.3)"
(FORMAT NIL "~5,3F" 2/3)
EQUAL-OK: "0.667"
(FORMAT NIL "~1f" 10)
EQUAL-OK: "10."
(FORMAT NIL "~0f" 10)
EQUAL-OK: "10."
(FORMAT NIL "~1,,,'xf" -10)
EQUAL-OK: "x"
(FORMAT NIL "~2f" 1234567.1)
EQUAL-OK: "1234567."
(DEFUN FOO (X) (FORMAT NIL "~9,2,1,,'*E|~10,3,2,2,'?,,'$E|~9,3,2,-2,'%@e|~9,2E" X X X X))
EQL-OK: FOO
(FOO 3.14159)
EQUAL-OK: "  3.14E+0| 31.42$-01|+.003E+03|  3.14E+0"
(FOO -3.14159)
EQUAL-OK: " -3.14E+0|-31.42$-01|-.003E+03| -3.14E+0"
(FOO 1100.0)
EQUAL-OK: "  1.10E+3| 11.00$+02|+.001E+06|  1.10E+3"
(FOO 1100.0L0)
EQUAL-OK: "  1.10L+3| 11.00$+02|+.001L+06|  1.10L+3"
(FOO 1.1E13)
EQUAL-OK: "*********| 11.00$+12|+.001E+16| 1.10E+13"
(FORMAT NIL "_~10,4E_" 1.2)
EQUAL-OK: "_ 1.2000E+0_"
(FORMAT NIL "~9,2,1E" 0.0314159)
EQUAL-OK: "  3.14E-2"
(FORMAT NIL "~ve" 21 4.6d8)
EQUAL-OK: "               4.6d+8"
(FORMAT NIL "~21e" 4.66d19)
EQUAL-OK: "             4.66d+19"
(DOLIST (LM '("LEAST" "MOST")) (DOLIST (PN '("POSITIVE" "NEGATIVE")) (DOLIST (TY '("DOUBLE" "SINGLE" "SHORT")) (LET* ((S (CONCATENATE 'STRING LM "-" PN "-" TY "-FLOAT")) (V (SYMBOL-VALUE (FIND-SYMBOL S))) (E (FORMAT NIL "~E" V))) (FORMAT T "(format nil \"~~E\" ~A) ~S~%" S E) (UNLESS (EQL V (IGNORE-ERRORS (READ-FROM-STRING E))) (PRINC " === fails: ")) (FORMAT T "(= ~A (read-from-string ~S)) T~%" S E)))))
(format nil "~E" LEAST-POSITIVE-DOUBLE-FLOAT) "2.2250738585072014d-308"
(= LEAST-POSITIVE-DOUBLE-FLOAT (read-from-string "2.2250738585072014d-308")) T
(format nil "~E" LEAST-POSITIVE-SINGLE-FLOAT) "1.17549434E-38"
(= LEAST-POSITIVE-SINGLE-FLOAT (read-from-string "1.17549434E-38")) T
(format nil "~E" LEAST-POSITIVE-SHORT-FLOAT) "1.1755s-38"
(= LEAST-POSITIVE-SHORT-FLOAT (read-from-string "1.1755s-38")) T
(format nil "~E" LEAST-NEGATIVE-DOUBLE-FLOAT) "-2.2250738585072014d-308"
(= LEAST-NEGATIVE-DOUBLE-FLOAT (read-from-string "-2.2250738585072014d-308")) T
(format nil "~E" LEAST-NEGATIVE-SINGLE-FLOAT) "-1.17549434E-38"
(= LEAST-NEGATIVE-SINGLE-FLOAT (read-from-string "-1.17549434E-38")) T
(format nil "~E" LEAST-NEGATIVE-SHORT-FLOAT) "-1.1755s-38"
(= LEAST-NEGATIVE-SHORT-FLOAT (read-from-string "-1.1755s-38")) T
(format nil "~E" MOST-POSITIVE-DOUBLE-FLOAT) "1.7976931348623157d+308"
(= MOST-POSITIVE-DOUBLE-FLOAT (read-from-string "1.7976931348623157d+308")) T
(format nil "~E" MOST-POSITIVE-SINGLE-FLOAT) "3.4028235E+38"
(= MOST-POSITIVE-SINGLE-FLOAT (read-from-string "3.4028235E+38")) T
(format nil "~E" MOST-POSITIVE-SHORT-FLOAT) "3.4028s+38"
(= MOST-POSITIVE-SHORT-FLOAT (read-from-string "3.4028s+38")) T
(format nil "~E" MOST-NEGATIVE-DOUBLE-FLOAT) "-1.7976931348623157d+308"
(= MOST-NEGATIVE-DOUBLE-FLOAT (read-from-string "-1.7976931348623157d+308")) T
(format nil "~E" MOST-NEGATIVE-SINGLE-FLOAT) "-3.4028235E+38"
(= MOST-NEGATIVE-SINGLE-FLOAT (read-from-string "-3.4028235E+38")) T
(format nil "~E" MOST-NEGATIVE-SHORT-FLOAT) "-3.4028s+38"
(= MOST-NEGATIVE-SHORT-FLOAT (read-from-string "-3.4028s+38")) T
EQL-OK: NIL
(FORMAT NIL "~E" LEAST-POSITIVE-DOUBLE-FLOAT)
EQUAL-OK: "2.2250738585072014d-308"
(= LEAST-POSITIVE-DOUBLE-FLOAT (READ-FROM-STRING "2.2250738585072014d-308"))
EQL-OK: T
(FORMAT NIL "~E" LEAST-POSITIVE-SINGLE-FLOAT)
EQUAL-OK: "1.17549434E-38"
(= LEAST-POSITIVE-SINGLE-FLOAT (READ-FROM-STRING "1.17549434E-38"))
EQL-OK: T
(FORMAT NIL "~E" LEAST-POSITIVE-SHORT-FLOAT)
EQUAL-OK: "1.1755s-38"
(= LEAST-POSITIVE-SHORT-FLOAT (READ-FROM-STRING "1.1755s-38"))
EQL-OK: T
(FORMAT NIL "~E" LEAST-NEGATIVE-DOUBLE-FLOAT)
EQUAL-OK: "-2.2250738585072014d-308"
(= LEAST-NEGATIVE-DOUBLE-FLOAT (READ-FROM-STRING "-2.2250738585072014d-308"))
EQL-OK: T
(FORMAT NIL "~E" LEAST-NEGATIVE-SINGLE-FLOAT)
EQUAL-OK: "-1.17549434E-38"
(= LEAST-NEGATIVE-SINGLE-FLOAT (READ-FROM-STRING "-1.17549434E-38"))
EQL-OK: T
(FORMAT NIL "~E" LEAST-NEGATIVE-SHORT-FLOAT)
EQUAL-OK: "-1.1755s-38"
(= LEAST-NEGATIVE-SHORT-FLOAT (READ-FROM-STRING "-1.1755s-38"))
EQL-OK: T
(FORMAT NIL "~E" MOST-POSITIVE-DOUBLE-FLOAT)
EQUAL-OK: "1.7976931348623157d+308"
(= MOST-POSITIVE-DOUBLE-FLOAT (READ-FROM-STRING "1.7976931348623157d+308"))
EQL-OK: T
(FORMAT NIL "~E" MOST-POSITIVE-SINGLE-FLOAT)
EQUAL-OK: "3.4028235E+38"
(= MOST-POSITIVE-SINGLE-FLOAT (READ-FROM-STRING "3.4028235E+38"))
EQL-OK: T
(FORMAT NIL "~E" MOST-POSITIVE-SHORT-FLOAT)
EQUAL-OK: "3.4028s+38"
(= MOST-POSITIVE-SHORT-FLOAT (READ-FROM-STRING "3.4028s+38"))
EQL-OK: T
(FORMAT NIL "~E" MOST-NEGATIVE-DOUBLE-FLOAT)
EQUAL-OK: "-1.7976931348623157d+308"
(= MOST-NEGATIVE-DOUBLE-FLOAT (READ-FROM-STRING "-1.7976931348623157d+308"))
EQL-OK: T
(FORMAT NIL "~E" MOST-NEGATIVE-SINGLE-FLOAT)
EQUAL-OK: "-3.4028235E+38"
(= MOST-NEGATIVE-SINGLE-FLOAT (READ-FROM-STRING "-3.4028235E+38"))
EQL-OK: T
(FORMAT NIL "~E" MOST-NEGATIVE-SHORT-FLOAT)
EQUAL-OK: "-3.4028s+38"
(= MOST-NEGATIVE-SHORT-FLOAT (READ-FROM-STRING "-3.4028s+38"))
EQL-OK: T
(LET (X) (DOTIMES (K 13 X) (SETQ X (CONS (FORMAT NIL "~%Scale factor ~2D: |~13,6,2,VE|" (- K 5) (- K 5) 3.14159) X))))
EQUAL-OK: ("
Scale factor  7: | 3141590.E-06|" "
Scale factor  6: | 314159.0E-05|" "
Scale factor  5: | 31415.90E-04|" "
Scale factor  4: | 3141.590E-03|" "
Scale factor  3: | 314.1590E-02|" "
Scale factor  2: | 31.41590E-01|" "
Scale factor  1: | 3.141590E+00|" "
Scale factor  0: | 0.314159E+01|" "
Scale factor -1: | 0.031416E+02|" "
Scale factor -2: | 0.003142E+03|" "
Scale factor -3: | 0.000314E+04|" "
Scale factor -4: | 0.000031E+05|" "
Scale factor -5: | 0.000003E+06|")
(FORMAT NIL "~G" 1.0d22)
EQUAL-OK: "10000000000000000000000.    "
(FORMAT NIL "~G" 1.0d23)
EQUAL-OK: "100000000000000000000000.    "
(FORMAT NIL "~G" 1.0d24)
EQUAL-OK: "1000000000000000000000000.    "
(FORMAT NIL "~F" 1.0d22)
EQUAL-OK: "10000000000000000000000.0"
(FORMAT NIL "~F" 1.0d23)
EQUAL-OK: "100000000000000000000000.0"
(FORMAT NIL "~F" 1.0d24)
EQUAL-OK: "1000000000000000000000000.0"
(FORMAT NIL "~E" 1.0d22)
EQUAL-OK: "1.0d+22"
(FORMAT NIL "~E" 1.0d23)
EQUAL-OK: "1.0d+23"
(FORMAT NIL "~E" 1.0d24)
EQUAL-OK: "1.0d+24"
(LOOP :FOR I :FROM 0 :TO 50 :FOR X = (EXPT 10.0d0 I) :FOR S = (FORMAT NIL "~G" X) :WHEN (CHAR= #\0 (CHAR S (1+ (POSITION #\. S)))) :COLLECT X)
EQL-OK: NIL
(FORMAT NIL "~8e" 0.8999999d0)
EQUAL-OK: "  9.0d-1"
(FORMAT NIL "~8e" 0.999999d0)
EQUAL-OK: "  1.0d+0"
(FORMAT NIL "~8e" 9.99999d8)
EQUAL-OK: "  1.0d+9"
(FORMAT NIL "~8e" 9.99999d9)
EQUAL-OK: " 1.0d+10"
(FORMAT NIL "~8e" 9.99999d-11)
EQUAL-OK: " 1.0d-10"
(FORMAT NIL "~8e" 9.99999d-10)
EQUAL-OK: "  1.0d-9"
(DEFUN FOO (X) (FORMAT NIL "~9,2,1,,'*G|~9,3,2,3,'?,,'$G|~9,3,2,0,'%G|~9,2G" X X X X))
EQL-OK: FOO
(FOO 0.0314159)
EQUAL-OK: "  3.14E-2|314.2$-04|0.314E-01|  3.14E-2"
(FOO 0.314159)
EQUAL-OK: "  0.31   |0.314    |0.314    | 0.31    "
(FOO 3.14159)
EQUAL-OK: "   3.1   | 3.14    | 3.14    |  3.1    "
(FOO 31.4159)
EQUAL-OK: "   31.   | 31.4    | 31.4    |  31.    "
(FOO 314.159)
EQUAL-OK: "  3.14E+2| 314.    | 314.    |  3.14E+2"
(FOO 3141.59)
EQUAL-OK: "  3.14E+3|314.2$+01|0.314E+04|  3.14E+3"
(FOO 3141.59L0)
EQUAL-OK: "  3.14L+3|314.2$+01|0.314L+04|  3.14L+3"
(FOO 3.14E12)
EQUAL-OK: "*********|314.0$+10|0.314E+13| 3.14E+12"
(FORMAT NIL "foo")
EQUAL-OK: "foo"
(FORMAT NIL "format-a:--~a--ende" '|ABc|)
EQUAL-OK: "format-a:--ABc--ende"
(DEFPARAMETER Y "elephant")
EQL-OK: Y
(FORMAT NIL "Look at the ~A!" Y)
EQUAL-OK: "Look at the elephant!"
(FORMAT NIL "format-%:--~%--1-newline-*")
EQUAL-OK: "format-%:--
--1-newline-*"
(FORMAT NIL "format-%:--~3%--3-newline-*")
EQUAL-OK: "format-%:--
--3-newline-*"
(FORMAT NIL "format-a:--~5a--ende-*" '|ABc|)
EQUAL-OK: "format-a:--ABc  --ende-*"
(FORMAT NIL "format-a:--~5,2a--ende-*" '|ABc|)
EQUAL-OK: "format-a:--ABc  --ende-*"
(FORMAT NIL "format-a:--~5,2,3a--ende-*" '|ABc|)
EQUAL-OK: "format-a:--ABc   --ende-*"
(FORMAT NIL "format-a:--~5,2,3,'*a--ende-*" '|ABc|)
EQUAL-OK: "format-a:--ABc***--ende-*"
(FORMAT NIL "format-a:--~@a--ende-*" '|ABc|)
EQUAL-OK: "format-a:--ABc--ende-*"
(FORMAT NIL "format-a:--~5@a--ende-*" '|ABc|)
EQUAL-OK: "format-a:--  ABc--ende-*"
(FORMAT NIL "format-a:--~5,2@a--ende-*" '|ABc|)
EQUAL-OK: "format-a:--  ABc--ende-*"
(FORMAT NIL "format-a:--~5,2,3@a--ende-*" '|ABc|)
EQUAL-OK: "format-a:--   ABc--ende-*"
(FORMAT NIL "format-a:--~5,2,3,'*@a--ende-*" '|ABc|)
EQUAL-OK: "format-a:--***ABc--ende-*"
(FORMAT NIL "format-a:--~:a--ende-*" '(|ABc| NIL XYZ))
EQUAL-OK: "format-a:--(ABc NIL XYZ)--ende-*"
(FORMAT NIL "format-s:--~s--ende-*" '|ABc|)
EQUAL-OK: "format-s:--|ABc|--ende-*"
(FORMAT NIL "format-s:--~5s--ende-*" '|ABc|)
EQUAL-OK: "format-s:--|ABc|--ende-*"
(FORMAT NIL "format-s:--~5,2s--ende-*" '|ABc|)
EQUAL-OK: "format-s:--|ABc|--ende-*"
(FORMAT NIL "format-s:--~5,2,3s--ende-*" '|ABc|)
EQUAL-OK: "format-s:--|ABc|   --ende-*"
(FORMAT NIL "format-s:--~5,2,3,'*s--ende-*" '|ABc|)
EQUAL-OK: "format-s:--|ABc|***--ende-*"
(FORMAT NIL "format-s:--~@s--ende-*" '|ABc|)
EQUAL-OK: "format-s:--|ABc|--ende-*"
(FORMAT NIL "format-s:--~5@s--ende-*" '|ABc|)
EQUAL-OK: "format-s:--|ABc|--ende-*"
(FORMAT NIL "format-s:--~5,2@s--ende-*" '|ABc|)
EQUAL-OK: "format-s:--|ABc|--ende-*"
(FORMAT NIL "format-s:--~5,2,3@s--ende-*" '|ABc|)
EQUAL-OK: "format-s:--   |ABc|--ende-*"
(FORMAT NIL "format-s:--~5,2,3,'*@s--ende-*" '|ABc|)
EQUAL-OK: "format-s:--***|ABc|--ende-*"
(FORMAT NIL "format-s:--~:s--ende-*" '(|ABc| NIL XYZ))
EQUAL-OK: "format-s:--(|ABc| NIL XYZ)--ende-*"
(DEFPARAMETER X 5)
EQL-OK: X
(FORMAT NIL "The answer is ~D." X)
EQUAL-OK: "The answer is 5."
(FORMAT NIL "The answer is ~3D." X)
EQUAL-OK: "The answer is   5."
(FORMAT NIL "The answer is ~3,'0D." X)
EQUAL-OK: "The answer is 005."
(FORMAT NIL "The answer is ~:D." (EXPT 47 X))
EQUAL-OK: "The answer is 229,345,007."
(FORMAT NIL "decimal:~d, width=5:~5d-*" 10 10)
EQUAL-OK: "decimal:10, width=5:   10-*"
(FORMAT NIL "format-d:--~d--ende-*" 123)
EQUAL-OK: "format-d:--123--ende-*"
(FORMAT NIL "format-d:--~10d--ende-*" 123)
EQUAL-OK: "format-d:--       123--ende-*"
(FORMAT NIL "format-d:--~10,'?d--ende-*" 123)
EQUAL-OK: "format-d:--???????123--ende-*"
(FORMAT NIL "format-d:--~@d--ende-*" 123)
EQUAL-OK: "format-d:--+123--ende-*"
(FORMAT NIL "format-d:--~10@d--ende-*" 123)
EQUAL-OK: "format-d:--      +123--ende-*"
(FORMAT NIL "format-d:--~10,'?@d--ende-*" 123)
EQUAL-OK: "format-d:--??????+123--ende-*"
(FORMAT NIL "format-b:--~b--ende-*" 123)
EQUAL-OK: "format-b:--1111011--ende-*"
(FORMAT NIL "format-b:--~10b--ende-*" 123)
EQUAL-OK: "format-b:--   1111011--ende-*"
(FORMAT NIL "format-b:--~10,'?b--ende-*" 123)
EQUAL-OK: "format-b:--???1111011--ende-*"
(FORMAT NIL "format-b:--~:b--ende-*" 123)
EQUAL-OK: "format-b:--1,111,011--ende-*"
(FORMAT NIL "format-b:--~10:b--ende-*" 123)
EQUAL-OK: "format-b:-- 1,111,011--ende-*"
(FORMAT NIL "format-b:--~10,'?:b--ende-*" 123)
EQUAL-OK: "format-b:--?1,111,011--ende-*"
(FORMAT NIL "format-b:--~10,'?,'.:b--ende-*" 123)
EQUAL-OK: "format-b:--?1.111.011--ende-*"
(FORMAT NIL "format-b:--~@b--ende-*" 123)
EQUAL-OK: "format-b:--+1111011--ende-*"
(FORMAT NIL "format-b:--~10@b--ende-*" 123)
EQUAL-OK: "format-b:--  +1111011--ende-*"
(FORMAT NIL "format-b:--~10,'?@b--ende-*" 123)
EQUAL-OK: "format-b:--??+1111011--ende-*"
(FORMAT NIL "format-b:--~:@b--ende-*" 123)
EQUAL-OK: "format-b:--+1,111,011--ende-*"
(FORMAT NIL "format-o:--~o--ende-*" 123)
EQUAL-OK: "format-o:--173--ende-*"
(FORMAT NIL "format-o:--~10o--ende-*" 123)
EQUAL-OK: "format-o:--       173--ende-*"
(FORMAT NIL "format-o:--~10,'?o--ende-*" 123)
EQUAL-OK: "format-o:--???????173--ende-*"
(FORMAT NIL "format-o:--~@o--ende-*" 123)
EQUAL-OK: "format-o:--+173--ende-*"
(FORMAT NIL "format-o:--~10@o--ende-*" 123)
EQUAL-OK: "format-o:--      +173--ende-*"
(FORMAT NIL "format-x:--~x--ende-*" 123)
EQUAL-OK: "format-x:--7B--ende-*"
(FORMAT NIL "format-x:--~10x--ende-*" 123)
EQUAL-OK: "format-x:--        7B--ende-*"
(FORMAT NIL "format-x:--~10,'?x--ende-*" 123)
EQUAL-OK: "format-x:--????????7B--ende-*"
(FORMAT NIL "format-x:--~10:x--ende-*" 123)
EQUAL-OK: "format-x:--        7B--ende-*"
(FORMAT NIL "format-x:--~@x--ende-*" 123)
EQUAL-OK: "format-x:--+7B--ende-*"
(FORMAT NIL "format-x:--~10@x--ende-*" 123)
EQUAL-OK: "format-x:--       +7B--ende-*"
(FORMAT NIL "format-r:--~20r--ende-*" 123)
EQUAL-OK: "format-r:--63--ende-*"
(FORMAT NIL "format-r:--~20,10r--ende-*" 123)
EQUAL-OK: "format-r:--        63--ende-*"
(FORMAT NIL "format-r:--~20@r--ende-*" 123)
EQUAL-OK: "format-r:--+63--ende-*"
(FORMAT NIL "format-r:--~r--ende-*" 9)
EQUAL-OK: "format-r:--nine--ende-*"
(FORMAT NIL "format-r:--~:r--ende-*" 9)
EQUAL-OK: "format-r:--ninth--ende-*"
(FORMAT NIL "format-r:--~@r--ende-*" 9)
EQUAL-OK: "format-r:--IX--ende-*"
(FORMAT NIL "format-r:--~:@r--ende-*" 9)
EQUAL-OK: "format-r:--VIIII--ende-*"
(FORMAT NIL "format-p:--~d  object~p-*" 1 1)
EQUAL-OK: "format-p:--1  object-*"
(FORMAT NIL "format-p:--~d  object~p-*" 2 2)
EQUAL-OK: "format-p:--2  objects-*"
(FORMAT NIL "format-p:--~d  bab~@p-*" 1 1)
EQUAL-OK: "format-p:--1  baby-*"
(FORMAT NIL "format-p:--~d  bab~@p-*" 2 2)
EQUAL-OK: "format-p:--2  babies-*"
(FORMAT NIL "format-p:--~d  object~:p-*" 1)
EQUAL-OK: "format-p:--1  object-*"
(FORMAT NIL "format-p:--~d  object~:p-*" 2)
EQUAL-OK: "format-p:--2  objects-*"
(FORMAT NIL "format-p:--~d  bab~:@p-*" 1)
EQUAL-OK: "format-p:--1  baby-*"
(FORMAT NIL "format-&:--~%~&--1-newline-*")
EQUAL-OK: "format-&:--
--1-newline-*"
(FORMAT NIL "format-&:--~%~3&--3-newline-*")
EQUAL-OK: "format-&:--
--3-newline-*"
(FORMAT NIL "format-tilde:--~~--1-tilde-*")
EQUAL-OK: "format-tilde:--~--1-tilde-*"
(FORMAT NIL "format-tilde:--~3~--3-tilden-*")
EQUAL-OK: "format-tilde:--~~~--3-tilden-*"
(FORMAT NIL "format-|:--~|--1-ff-*")
EQUAL-OK: "format-|:----1-ff-*"
(FORMAT NIL "format-|:--~2|--2-ff-*")
EQUAL-OK: "format-|:----2-ff-*"
(FORMAT NIL "format-<nl>:~
	 	        same line no space despite 2*<tab> and sp-*")
EQUAL-OK: "format-<nl>:same line no space despite 2*<tab> and sp-*"
(FORMAT NIL "format-<nl>:~@
	                 new beginning of line despite <tab> + sp-*")
EQUAL-OK: "format-<nl>:
new beginning of line despite <tab> + sp-*"
(FORMAT NIL "format-<nl>:~:
	gleiche Zeile aber ein tab vor Anfang-*")
EQUAL-OK: "format-<nl>:	gleiche Zeile aber ein tab vor Anfang-*"
(FORMAT NIL "format-?:***~a***~?***~a***-*" 1 "+++~s+++~s+++" '(A B) 2)
EQUAL-OK: "format-?:***1***+++A+++B+++***2***-*"
(FORMAT NIL "format-?:***~a***~?***~a***-*" 1 "+++++++++++++" NIL 2)
EQUAL-OK: "format-?:***1***+++++++++++++***2***-*"
(FORMAT NIL "~(AAAAAAAA BBBBBB ccccccc dddddddd~)")
EQUAL-OK: "aaaaaaaa bbbbbb ccccccc dddddddd"
(FORMAT NIL "~:(AAAAAAAA BBBBBB ccccccc dddddddd~)")
EQUAL-OK: "Aaaaaaaa Bbbbbb Ccccccc Dddddddd"
(FORMAT NIL "~@(AAAAAAAA BBBBBB ccccccc dddddddd~)")
EQUAL-OK: "Aaaaaaaa bbbbbb ccccccc dddddddd"
(FORMAT NIL "~:@(AAAAAAAA BBBBBB ccccccc dddddddd~)")
EQUAL-OK: "AAAAAAAA BBBBBB CCCCCCC DDDDDDDD"
(FORMAT NIL "++~{-=~s=-~}++" '(1 2 3))
EQUAL-OK: "++-=1=--=2=--=3=-++"
(FORMAT NIL "++~2{-=~s=-~}++" '(1 2 3))
EQUAL-OK: "++-=1=--=2=-++"
(FORMAT NIL "++~@{-=~s=-~}++" 1 2 3)
EQUAL-OK: "++-=1=--=2=--=3=-++"
(FORMAT NIL "++~:{-=~s=~s=-~}++" '((1 2) (3 4 5) (6 7)))
EQUAL-OK: "++-=1=2=--=3=4=--=6=7=-++"
(FORMAT NIL "++~:@{-=~s=~s=-~}++" '(1 2) '(3 4 5) '(6 7))
EQUAL-OK: "++-=1=2=--=3=4=--=6=7=-++"
(FORMAT NIL "~{abc~:}")
[SIMPLE-ERROR]: There are not enough arguments left for this format directive.
Current point in control string:
  "~{abc~:}"
        |
EQL-OK: ERROR
(FORMAT NIL "~{~:}" "xyz")
[SIMPLE-ERROR]: There are not enough arguments left for this format directive.
Current point in control string:
  "~{~:}"
     |
EQL-OK: ERROR
(FORMAT NIL "~1{~:}" "-~s-" '(1 2) 3)
EQUAL-OK: "-1-"
(FORMAT NIL "123456789012345678901234567890
~10,4txx~10,4ty~10,4tzzz~10,4tende")
EQUAL-OK: "123456789012345678901234567890
          xx  y   zzz ende"
(FORMAT NIL "123456789012345678901234567890
~3,4@txx~3,4@ty~3,4@tzzz~3,4@tende")
EQUAL-OK: "123456789012345678901234567890
    xx      y   zzz     ende"
(FORMAT NIL "-~a-~a-~a-~a-" 1 2 3 4 5 6 7 8 9)
EQUAL-OK: "-1-2-3-4-"
(FORMAT NIL "-~a-~a-~*~a-~a-" 1 2 3 4 5 6 7 8 9)
EQUAL-OK: "-1-2-4-5-"
(FORMAT NIL "-~a-~a-~3*~a-~a-" 1 2 3 4 5 6 7 8 9)
EQUAL-OK: "-1-2-6-7-"
(FORMAT NIL "-~a-~a-~:*~a-~a-" 1 2 3 4 5 6 7 8 9)
EQUAL-OK: "-1-2-2-3-"
(FORMAT NIL "-~a-~a-~2:*~a-~a-" 1 2 3 4 5 6 7 8 9)
EQUAL-OK: "-1-2-1-2-"
(FORMAT NIL "-~a-~a-~@*~a-~a-" 1 2 3 4 5 6 7 8 9)
EQUAL-OK: "-1-2-1-2-"
(FORMAT NIL "-~a-~a-~6@*~a-~a-" 1 2 3 4 5 6 7 8 9)
EQUAL-OK: "-1-2-7-8-"
(FORMAT NIL "~[aa~;bb~;cc~]" 1)
EQUAL-OK: "bb"
(FORMAT NIL "~[aa~;bb~;cc~]" 10)
EQUAL-OK: ""
(FORMAT NIL "~2[aa~;bb~;cc~]" 10)
EQUAL-OK: "cc"
(FORMAT NIL "~@[aaa~]" NIL 10)
EQUAL-OK: ""
(FORMAT NIL "~@[aaa~]" 20 10)
EQUAL-OK: "aaa"
(FORMAT NIL "~@[aaa~d~]" NIL 10)
EQUAL-OK: ""
(FORMAT NIL "~@[aaa~d~]" 20 10)
EQUAL-OK: "aaa20"
(FORMAT NIL "~@[aaa~d~]bbb~d" NIL 10 30)
EQUAL-OK: "bbb10"
(FORMAT NIL "~@[aaa~d~]bbb~d" 20 10 30)
EQUAL-OK: "aaa20bbb10"
(FORMAT NIL "~:[-nil-~;-true-~d~]-ende~d" NIL 10 20)
EQUAL-OK: "-nil--ende10"
(FORMAT NIL "~:[-nil-~;-true-~d~]-ende~d" T 10 20)
EQUAL-OK: "-true-10-ende20"
(FORMAT NIL "Start test, newline:~%freshline:~&")
EQUAL-OK: "Start test, newline:
freshline:
"
(FORMAT NIL "decimal pad with period:~10,vd-*" #\. 12)
EQUAL-OK: "decimal pad with period:........12-*"
(FORMAT NIL "char normal:~c, as # would read:~@c, human read:~:c-*" #\Space #\Space #\Space)
EQUAL-OK: "char normal: , as # would read:#\\Space, human read:Space-*"
(FORMAT NIL "cardinal:~r, roman new:~@r, roman-old:~:@r~
                <same line I hope>~@
                new line but at beginning~:
   same line, but spaced out~@
		new line and over two tabs-*" 4 4 4)
EQUAL-OK: "cardinal:four, roman new:IV, roman-old:IIII<same line I hope>
new line but at beginning   same line, but spaced out
new line and over two tabs-*"
(DEFPARAMETER N 3)
EQL-OK: N
(FORMAT NIL "~D item~:P found." N)
EQUAL-OK: "3 items found."
(FORMAT NIL "~R dog~:[s are~; is~] here." N (= N 1))
EQUAL-OK: "three dogs are here."
(FORMAT NIL "~R dog~:*~[s are~; is~:;s are~] here." N)
EQUAL-OK: "three dogs are here."
(FORMAT NIL "Here ~[are~;is~:;are~] ~:*~R pupp~:@p." N)
EQUAL-OK: "Here are three puppies."
(SETQ N 1)
EQL-OK: 1
(FORMAT NIL "~D item~:P found." N)
EQUAL-OK: "1 item found."
(FORMAT NIL "~R dog~:[s are~; is~] here." N (= N 1))
EQUAL-OK: "one dog is here."
(FORMAT NIL "~R dog~:*~[s are~; is~:;s are~] here." N)
EQUAL-OK: "one dog is here."
(FORMAT NIL "Here ~[are~;is~:;are~] ~:*~R pupp~:@p." N)
EQUAL-OK: "Here is one puppy."
(SETQ N 0)
EQL-OK: 0
(FORMAT NIL "~D item~:P found." N)
EQUAL-OK: "0 items found."
(FORMAT NIL "~R dog~:[s are~; is~] here." N (= N 1))
EQUAL-OK: "zero dogs are here."
(FORMAT NIL "~R dog~:*~[s are~; is~:;s are~] here." N)
EQUAL-OK: "zero dogs are here."
(FORMAT NIL "Here ~[are~;is~:;are~] ~:*~R pupp~:@p." N)
EQUAL-OK: "Here are zero puppies."
(FORMAT NIL "~D tr~:@p/~D win~:P" 7 1)
EQUAL-OK: "7 tries/1 win"
(FORMAT NIL "~D tr~:@p/~D win~:P" 1 0)
EQUAL-OK: "1 try/0 wins"
(FORMAT NIL "~D tr~:@p/~D win~:P" 1 3)
EQUAL-OK: "1 try/3 wins"
(DEFUN TYPE-CLASH-ERROR (FN NARGS ARGNUM RIGHT-TYPE WRONG-TYPE) (FORMAT NIL "~&~S requires its ~:[~:R~;~*~] ~
           argument to be of type ~S,~%but it was called ~
    	       with an argument of type ~S.-*" FN (EQL NARGS 1) ARGNUM RIGHT-TYPE WRONG-TYPE))
EQL-OK: TYPE-CLASH-ERROR
(TYPE-CLASH-ERROR 'AREF NIL 2 'INTEGER 'VECTOR)
EQUAL-OK: "AREF requires its second argument to be of type INTEGER,
but it was called with an argument of type VECTOR.-*"
(TYPE-CLASH-ERROR 'CAR 1 1 'LIST 'SHORT-FLOAT)
EQUAL-OK: "CAR requires its  argument to be of type LIST,
but it was called with an argument of type SHORT-FLOAT.-*"
(FORMAT NIL "~? ~D" "<~A ~D>" '("Foo" 5) 7)
EQUAL-OK: "<Foo 5> 7"
(FORMAT NIL "~? ~D" "<~A ~D>" '(" Foo" 5 14) 7)
EQUAL-OK: "< Foo 5> 7"
(FORMAT NIL "~@? ~d" "<~A ~D>" "Foo" 5 7)
EQUAL-OK: "<Foo 5> 7"
(FORMAT NIL "~@? ~D" "<~A ~D>" "Foo" 5 14 7)
EQUAL-OK: "<Foo 5> 14"
(FORMAT NIL "~@R ~(~@R~)" 14 14)
EQUAL-OK: "XIV xiv"
(DEFUN FOO (N) (FORMAT NIL "~@(~R~) error~:P detected." N))
EQL-OK: FOO
(FOO 0)
EQUAL-OK: "Zero errors detected."
(FOO 1)
EQUAL-OK: "One error detected."
(FOO 23)
EQUAL-OK: "Twenty-three errors detected."
(SETQ *PRINT-LEVEL* NIL *PRINT-LENGTH* 5)
EQL-OK: 5
(FORMAT NIL "~@[ print level = ~D~]~@[ print length = ~D~]" *PRINT-LEVEL* *PRINT-LENGTH*)
EQUAL-OK: " print length = 5"
(SETQ *PRINT-LENGTH* NIL)
EQL-OK: NIL
(DEFPARAMETER FOO "Items:~#[none~; ~s~; ~S and ~S~
          ~:;~@{~#[~; and~] ~S~^,~}~].")
EQL-OK: FOO
(FORMAT NIL FOO)
EQUAL-OK: "Items:none."
(FORMAT NIL FOO 'FOO)
EQUAL-OK: "Items: FOO."
(FORMAT NIL FOO 'FOO 'BAR)
EQUAL-OK: "Items: FOO and BAR."
(FORMAT NIL FOO 'FOO 'BAR 'BAZ)
EQUAL-OK: "Items: FOO, BAR, and BAZ."
(FORMAT NIL FOO 'FOO 'BAR 'BAZ 'QUUX)
EQUAL-OK: "Items: FOO, BAR, BAZ, and QUUX."
(FORMAT NIL "The winners are:~{ ~S~}." '(FRED HARRY JILL))
EQUAL-OK: "The winners are: FRED HARRY JILL."
(FORMAT NIL "Pairs:~{ <~S,~S>~}." '(A 1 B 2 C 3))
EQUAL-OK: "Pairs: <A,1> <B,2> <C,3>."
(FORMAT NIL "Pairs:~:{ <~S,~S>~}." '((A 1) (B 2) (C 3)))
EQUAL-OK: "Pairs: <A,1> <B,2> <C,3>."
(FORMAT NIL "Pairs:~@{ <~S,~S>~}." 'A 1 'B 2 'C 3)
EQUAL-OK: "Pairs: <A,1> <B,2> <C,3>."
(FORMAT NIL "Pairs:~:@{ <~S,~S>~}." '(A 1) '(B 2) '(C 3))
EQUAL-OK: "Pairs: <A,1> <B,2> <C,3>."
(DEFPARAMETER DONESTR "done.~^ ~D warning~:P.~^ ~D error~:P.")
EQL-OK: DONESTR
(FORMAT NIL DONESTR)
EQUAL-OK: "done."
(FORMAT NIL DONESTR 3)
EQUAL-OK: "done. 3 warnings."
(FORMAT NIL DONESTR 1 5)
EQUAL-OK: "done. 1 warning. 5 errors."
(DEFPARAMETER TELLSTR "~@(~@[~R~]~^ ~A.~)")
EQL-OK: TELLSTR
(FORMAT NIL TELLSTR 23)
EQUAL-OK: "Twenty-three"
(FORMAT NIL TELLSTR NIL "losers")
EQUAL-OK: " Losers."
(FORMAT NIL TELLSTR 23 "losers")
EQUAL-OK: "Twenty-three losers."
(FORMAT NIL "**~c**" #\Space)
EQUAL-OK: "** **"
(FORMAT NIL "**~:c**" #\Space)
EQUAL-OK: "**Space**"
(FORMAT NIL "**~:@c**" #\Space)
EQUAL-OK: "**Space**"
(FORMAT NIL "**~@c**" #\Space)
EQUAL-OK: "**#\\Space**"
(FORMAT NIL "**~c**" #\A)
EQUAL-OK: "**A**"
(FORMAT NIL "**~:c**" #\A)
EQUAL-OK: "**A**"
(FORMAT NIL "**~:@c**" #\A)
EQUAL-OK: "**A**"
(FORMAT NIL "**~@c**" #\A)
EQUAL-OK: "**#\\A**"
(FORMAT NIL "**~c**" (CODE-CHAR 27))
EQUAL-OK: "****"
(FORMAT NIL "**~:c**" (CODE-CHAR 27))
EQUAL-OK: "**Escape**"
(FORMAT NIL "**~:@c**" (CODE-CHAR 27))
EQUAL-OK: "**Escape**"
(FORMAT NIL "**~@c**" (CODE-CHAR 27))
EQUAL-OK: "**#\\Escape**"
(STRING= (FORMAT NIL "~10I") (WITH-OUTPUT-TO-STRING (S) (FUNCALL (FORMATTER "~10I") S)))
EQL-OK: T
(FORMAT NIL "~&abc~.")
EQUAL-OK: "abc
"
(WITH-OUTPUT-TO-STRING (S) (FUNCALL (FORMATTER "~&abc~.") S))
EQUAL-OK: "abc
"
(FORMAT NIL "~&abc~.~%")
EQUAL-OK: "abc
"
(FORMAT NIL "~&abc~3.")
EQUAL-OK: "abc
"
(FORMAT NIL "~&abc~0.")
EQUAL-OK: "abc"
(WITH-OUTPUT-TO-STRING (STREAM) (FORMAT STREAM "~&abc~."))
EQUAL-OK: "abc
"
(WITH-OUTPUT-TO-STRING (STREAM) (FORMAT STREAM "~&abc~.") (FORMAT STREAM "def"))
EQUAL-OK: "abc
def"
(WITH-OUTPUT-TO-STRING (STREAM) (FORMAT STREAM "~&abc~.") (FORMAT STREAM "~%def"))
EQUAL-OK: "abc
def"
(WITH-OUTPUT-TO-STRING (STREAM) (FORMAT STREAM "~&abc~.") (FORMAT STREAM "~&def"))
EQUAL-OK: "abc
def"
(WITH-OUTPUT-TO-STRING (STREAM) (FORMAT STREAM "~&abc~.~.") (FORMAT STREAM "~&~&def"))
EQUAL-OK: "abc
def"
(WITH-OUTPUT-TO-STRING (STREAM) (FORMAT STREAM "~&abc~%~.") (FORMAT STREAM "~&def"))
EQUAL-OK: "abc
def"
(WITH-OUTPUT-TO-STRING (STREAM) (FORMAT STREAM "~&abc~.") (FORMAT STREAM "~&~%def"))
EQUAL-OK: "abc
def"
(WITH-OUTPUT-TO-STRING (STREAM) (FORMAT STREAM "~&abc~%~.") (FORMAT STREAM "~&~%def"))
EQUAL-OK: "abc
def"
(PROGN (DEFCLASS GRAY-STRING-OUTPUT-STREAM (FUNDAMENTAL-CHARACTER-OUTPUT-STREAM) ((ACCUMULATOR :TYPE STRING))) (DEFMETHOD INITIALIZE-INSTANCE :AFTER ((S GRAY-STRING-OUTPUT-STREAM) &REST ARGS) (SETF (SLOT-VALUE S 'ACCUMULATOR) (MAKE-ARRAY 0 :ELEMENT-TYPE 'CHARACTER :ADJUSTABLE T :FILL-POINTER 0))) (DEFMETHOD STREAM-WRITE-CHAR ((S GRAY-STRING-OUTPUT-STREAM) CH) (VECTOR-PUSH-EXTEND CH (SLOT-VALUE S 'ACCUMULATOR))) (DEFMETHOD STREAM-LINE-COLUMN ((S GRAY-STRING-OUTPUT-STREAM)) (LET* ((A (SLOT-VALUE S 'ACCUMULATOR)) (J (LENGTH A)) (I (1+ (OR (POSITION #\Newline A :FROM-END T) -1)))) (STRING-WIDTH A :START I :END J))) (LIST (LET ((STREAM (MAKE-INSTANCE 'GRAY-STRING-OUTPUT-STREAM))) (FORMAT STREAM "~&abc~.") (CLOSE STREAM) (COERCE (SLOT-VALUE STREAM 'ACCUMULATOR) 'SIMPLE-STRING)) (LET ((STREAM (MAKE-INSTANCE 'GRAY-STRING-OUTPUT-STREAM))) (FORMAT STREAM "~&abc~.") (FORMAT STREAM "def") (CLOSE STREAM) (COERCE (SLOT-VALUE STREAM 'ACCUMULATOR) 'SIMPLE-STRING)) (LET ((STREAM (MAKE-INSTANCE 'GRAY-STRING-OUTPUT-STREAM))) (FORMAT STREAM "~&abc~.") (FORMAT STREAM "~%def") (CLOSE STREAM) (COERCE (SLOT-VALUE STREAM 'ACCUMULATOR) 'SIMPLE-STRING)) (LET ((STREAM (MAKE-INSTANCE 'GRAY-STRING-OUTPUT-STREAM))) (FORMAT STREAM "~&abc~.") (FORMAT STREAM "~&def") (CLOSE STREAM) (COERCE (SLOT-VALUE STREAM 'ACCUMULATOR) 'SIMPLE-STRING)) (LET ((STREAM (MAKE-INSTANCE 'GRAY-STRING-OUTPUT-STREAM))) (FORMAT STREAM "~&abc~.~.") (FORMAT STREAM "~&~&def") (CLOSE STREAM) (COERCE (SLOT-VALUE STREAM 'ACCUMULATOR) 'SIMPLE-STRING)) (LET ((STREAM (MAKE-INSTANCE 'GRAY-STRING-OUTPUT-STREAM))) (FORMAT STREAM "~&abc~%~.") (FORMAT STREAM "~&def") (CLOSE STREAM) (COERCE (SLOT-VALUE STREAM 'ACCUMULATOR) 'SIMPLE-STRING)) (LET ((STREAM (MAKE-INSTANCE 'GRAY-STRING-OUTPUT-STREAM))) (FORMAT STREAM "~&abc~.") (FORMAT STREAM "~&~%def") (CLOSE STREAM) (COERCE (SLOT-VALUE STREAM 'ACCUMULATOR) 'SIMPLE-STRING)) (LET ((STREAM (MAKE-INSTANCE 'GRAY-STRING-OUTPUT-STREAM))) (FORMAT STREAM "~&abc~%~.") (FORMAT STREAM "~&~%def") (CLOSE STREAM) (COERCE (SLOT-VALUE STREAM 'ACCUMULATOR) 'SIMPLE-STRING))))
EQUAL-OK: ("abc
" "abc
def" "abc
def" "abc
def" "abc
def" "abc
def" "abc
def" "abc
def")
(HANDLER-CASE (FORMAT NIL "~C" 0) (TYPE-ERROR (E) (PRINC-ERROR E) T))
[SIMPLE-TYPE-ERROR]: The ~C format directive requires a character argument, not 0
Current point in control string:
  "~C"
   |
EQL-OK: T
(HANDLER-CASE (FUNCALL (FORMATTER "~C") *STANDARD-OUTPUT* 0) (TYPE-ERROR (E) (PRINC-ERROR E) T))
[SIMPLE-TYPE-ERROR]: The ~C format directive requires a character argument, not 0
EQL-OK: T
(HANDLER-CASE (FUNCALL (COMPILE NIL (LAMBDA NIL (FORMAT NIL "~C" 0)))) (TYPE-ERROR (E) (PRINC-ERROR E) T))
[SIMPLE-TYPE-ERROR]: The ~C format directive requires a character argument, not 0
EQL-OK: T
(HANDLER-CASE (FORMAT NIL "~@R" 10000) (TYPE-ERROR (E) (PRINC-ERROR E) T))
[SIMPLE-TYPE-ERROR]: The ~@R format directive requires an integer in the range 1 - 3999, not 10000
Current point in control string:
  "~@R"
   |
EQL-OK: T
(HANDLER-CASE (FUNCALL (FORMATTER "~@R") *STANDARD-OUTPUT* 10000) (TYPE-ERROR (E) (PRINC-ERROR E) T))
[SIMPLE-TYPE-ERROR]: The ~@R format directive requires an integer in the range 1 - 3999, not 10000
EQL-OK: T
(HANDLER-CASE (FUNCALL (COMPILE NIL (LAMBDA NIL (FORMAT NIL "~@R" 10000)))) (TYPE-ERROR (E) (PRINC-ERROR E) T))
[SIMPLE-TYPE-ERROR]: The ~@R format directive requires an integer in the range 1 - 3999, not 10000
EQL-OK: T
(SYMBOLS-CLEANUP '(FORMAT-BLOCKSATZ TYPE-CLASH-ERROR FOO X Y N LISTE DONESTR TELLSTR GRAY-STRING-OUTPUT-STREAM))
EQL-OK: NIL
RUN-TEST: finished "format" (0 errors out of 307 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"genstream.tst" @1>
(USE-PACKAGE "CLOS")
EQL-OK: T
(PROGN (DEFCLASS GENERIC-STREAM-CONTROLLER-CLASS (GENERIC-STREAM-CONTROLLER) (SOURCE-STREAM DESTINATION-STREAM (FLAGS :INITFORM (COPY-TREE '((FINISH-OUTPUT) (FORCE-OUTPUT) (CLEAR-INPUT) (CLOSED)))))) (DEFCLASS GENERIC-STREAM-CONTROLLER-CLASS-2 (GENERIC-STREAM-CONTROLLER-CLASS) ((CAPITALIZE :INITARG CAPITALIZE :INITFORM NIL))) (DEFMETHOD CONVERT (CH (CONTROLLER GENERIC-STREAM-CONTROLLER-CLASS)) (IF (STANDARD-CHAR-P CH) CH #\_)) (DEFMETHOD CONVERT (CH (CONTROLLER GENERIC-STREAM-CONTROLLER-CLASS-2)) (CALL-NEXT-METHOD (IF (SLOT-VALUE CONTROLLER 'CAPITALIZE) (CHAR-UPCASE CH) CH) CONTROLLER)) (DEFMETHOD GENERIC-STREAM-READ-CHAR ((CONTROLLER GENERIC-STREAM-CONTROLLER-CLASS)) (WITH-SLOTS (SOURCE-STREAM) CONTROLLER (IF (LISTEN SOURCE-STREAM) (READ-CHAR SOURCE-STREAM)))) (DEFMETHOD GENERIC-STREAM-PEEK-CHAR ((CONTROLLER GENERIC-STREAM-CONTROLLER-CLASS)) (WITH-SLOTS (SOURCE-STREAM) CONTROLLER (IF (LISTEN SOURCE-STREAM) (PEEK-CHAR NIL SOURCE-STREAM) NIL))) (DEFMETHOD GENERIC-STREAM-READ-CHAR-WILL-HANG-P ((CONTROLLER GENERIC-STREAM-CONTROLLER-CLASS)) (IF (LISTEN (SLOT-VALUE CONTROLLER 'SOURCE-STREAM)) NIL T)) (DEFMETHOD GENERIC-STREAM-CLEAR-INPUT ((CONTROLLER GENERIC-STREAM-CONTROLLER-CLASS)) (RPLACD (ASSOC 'CLEAR-INPUT (SLOT-VALUE CONTROLLER 'FLAGS)) T)) (DEFMETHOD GENERIC-STREAM-READ-BYTE ((CONTROLLER GENERIC-STREAM-CONTROLLER-CLASS)) (CHAR-CODE (READ-CHAR (SLOT-VALUE CONTROLLER 'SOURCE-STREAM)))) (DEFMETHOD GENERIC-STREAM-WRITE-BYTE ((CONTROLLER GENERIC-STREAM-CONTROLLER-CLASS) BY) (WRITE-CHAR (CODE-CHAR BY) (SLOT-VALUE CONTROLLER 'DESTINATION-STREAM))) (DEFMETHOD GENERIC-STREAM-WRITE-CHAR ((CONTROLLER GENERIC-STREAM-CONTROLLER-CLASS) CH) (FORMAT (SLOT-VALUE CONTROLLER 'DESTINATION-STREAM) "~C" (CONVERT CH CONTROLLER))) (DEFMETHOD GENERIC-STREAM-WRITE-STRING ((CONTROLLER GENERIC-STREAM-CONTROLLER-CLASS) STR START LEN) (FORMAT (SLOT-VALUE CONTROLLER 'DESTINATION-STREAM) "~A" STR START LEN)) (DEFMETHOD GENERIC-STREAM-FINISH-OUTPUT ((CONTROLLER GENERIC-STREAM-CONTROLLER-CLASS)) (RPLACD (ASSOC 'FINISH-OUTPUT (SLOT-VALUE CONTROLLER 'FLAGS)) T)) (DEFMETHOD GENERIC-STREAM-FORCE-OUTPUT ((CONTROLLER GENERIC-STREAM-CONTROLLER-CLASS)) (RPLACD (ASSOC 'FORCE-OUTPUT (SLOT-VALUE CONTROLLER 'FLAGS)) T)) (DEFMETHOD GENERIC-STREAM-CLOSE ((CONTROLLER GENERIC-STREAM-CONTROLLER-CLASS)) (RPLACD (ASSOC 'CLOSED (SLOT-VALUE CONTROLLER 'FLAGS)) T)) (DEFUN MAKE-TEST-STREAM (SOURCE-STREAM DESTINATION-STREAM CONTROLLER) (LET ((GENSTREAM (MAKE-GENERIC-STREAM CONTROLLER))) (SETF (SLOT-VALUE CONTROLLER 'SOURCE-STREAM) SOURCE-STREAM) (SETF (SLOT-VALUE CONTROLLER 'DESTINATION-STREAM) DESTINATION-STREAM) GENSTREAM)) (SETQ STR1 "0123") (SETQ STR1S "4567") (SETQ STR2 "abc") (SETQ STR2C "def") (SETQ STR3 "xyz") (SETQ *STRING-INPUT-STREAM-1* (MAKE-STRING-INPUT-STREAM STR1)) (SETQ *STRING-OUTPUT-STREAM-1* (MAKE-STRING-OUTPUT-STREAM)) (SETQ *STRING-INPUT-STREAM-1S* (MAKE-STRING-INPUT-STREAM STR1S)) (SETQ *STRING-OUTPUT-STREAM-1S* (MAKE-STRING-OUTPUT-STREAM)) (SETQ *STRING-INPUT-STREAM-2* (MAKE-STRING-INPUT-STREAM STR2)) (SETQ *STRING-OUTPUT-STREAM-2* (MAKE-STRING-OUTPUT-STREAM)) (SETQ *STRING-INPUT-STREAM-2C* (MAKE-STRING-INPUT-STREAM STR2C)) (SETQ *STRING-OUTPUT-STREAM-2C* (MAKE-STRING-OUTPUT-STREAM)) (SETQ *STRING-INPUT-STREAM-3* (MAKE-STRING-INPUT-STREAM STR3)) (SETQ S1 (MAKE-TEST-STREAM *STRING-INPUT-STREAM-1* *STRING-OUTPUT-STREAM-1* (MAKE-INSTANCE 'GENERIC-STREAM-CONTROLLER-CLASS))) (SETQ S1S (MAKE-TEST-STREAM *STRING-INPUT-STREAM-1S* *STRING-OUTPUT-STREAM-1S* (MAKE-INSTANCE 'GENERIC-STREAM-CONTROLLER-CLASS))) (SETQ S2 (MAKE-TEST-STREAM *STRING-INPUT-STREAM-2* *STRING-OUTPUT-STREAM-2* (MAKE-INSTANCE 'GENERIC-STREAM-CONTROLLER-CLASS-2))) (SETQ S2C (MAKE-TEST-STREAM *STRING-INPUT-STREAM-2C* *STRING-OUTPUT-STREAM-2C* (MAKE-INSTANCE 'GENERIC-STREAM-CONTROLLER-CLASS-2 'CAPITALIZE T))) (SETQ S3 (MAKE-TEST-STREAM *STRING-INPUT-STREAM-3* NIL (MAKE-INSTANCE 'GENERIC-STREAM-CONTROLLER-CLASS))) (DEFUN COPY-STRING-CHAR (STR STREAM) (DOTIMES (I (LENGTH STR) T) (IF (AND (LISTEN STREAM) (CHAR-EQUAL (CHAR STR I) (READ-CHAR STREAM))) (WRITE-CHAR (CHAR STR I) STREAM) (RETURN NIL)))) (DEFUN COPY-STRING-BYTE (STR STREAM) (DOTIMES (I (LENGTH STR) T) (IF (AND (LISTEN STREAM) (EQ (CHAR-CODE (CHAR STR I)) (READ-BYTE STREAM))) (WRITE-BYTE (CHAR-CODE (CHAR STR I)) STREAM) (RETURN NIL)))) (DEFUN CHECK-OUTPUT-STRING (STR STREAM &KEY CAPITALIZE) (LET* ((STRVAL (IF CAPITALIZE (STRING-UPCASE STR) STR)) (CONTROLLER (GENERIC-STREAM-CONTROLLER STREAM)) (STREAM (SLOT-VALUE CONTROLLER 'DESTINATION-STREAM)) (OUTPUT-STRING (GET-OUTPUT-STREAM-STRING STREAM))) (FORMAT T "   ~S ~S ~S" STR STRVAL OUTPUT-STRING) (STRING= STRVAL OUTPUT-STRING))) (DEFUN CHECK-CHAR (STR STREAM &KEY CAPITALIZE) (LET* ((TEST (COPY-STRING-CHAR STR STREAM)) (TESTR (CHECK-OUTPUT-STRING STR STREAM :CAPITALIZE CAPITALIZE))) (FORMAT T "  char-check: ~S listen/read-char: ~S write chk: ~S~%" STR TEST TESTR) (AND TEST TESTR))) (DEFUN CHECK-BYTE (STR STREAM) (LET* ((TEST (COPY-STRING-BYTE STR STREAM)) (TESTR (CHECK-OUTPUT-STRING STR STREAM))) (FORMAT T " byte-check: ~S listen/read-byte: ~S write chk: ~S~%" STR TEST TESTR) (AND TEST TESTR))) (DEFUN CHECK-WRITE-STRING (STR STREAM) (WRITE-STRING STR STREAM) (LET ((TESTR (CHECK-OUTPUT-STRING STR STREAM))) (FORMAT T "  write-string-check: ~S write chk: ~S~%" STR TESTR) TESTR)) (DEFUN CHECK-FLAG (FLAG CONTROLLER) (LET ((STATUS (CDR (ASSOC FLAG (SLOT-VALUE CONTROLLER 'FLAGS))))) (FORMAT T "Checking ~S flag status: ~S~%" FLAG STATUS) STATUS)) (TERPRI) NIL)
EQL-OK: NIL
(PROGN (FORMAT T "Checking READ-CHAR & WRITE-CHAR~%") (CHECK-CHAR STR1 S1))
Checking READ-CHAR & WRITE-CHAR
   "0123" "0123" "0123"  char-check: "0123" listen/read-char: T write chk: T
EQL-OK: T
(PROGN (FORMAT T "Checking WRITE-STRING~%") (CHECK-WRITE-STRING STR1S S1S))
Checking WRITE-STRING
   "4567" "4567" "4567"  write-string-check: "4567" write chk: T
EQL-OK: T
(PROGN (FORMAT T "Checking READ-BYTE & WRITE-BYTE~%") (CHECK-BYTE STR2 S2))
Checking READ-BYTE & WRITE-BYTE
   "abc" "abc" "abc" byte-check: "abc" listen/read-byte: T write chk: T
EQL-OK: T
(PROGN (FORMAT T "Checking READ-CHAR & WRITE-CHAR with a subclass~%") (CHECK-CHAR STR2C S2C :CAPITALIZE T))
Checking READ-CHAR & WRITE-CHAR with a subclass
   "def" "DEF" "DEF"  char-check: "def" listen/read-char: T write chk: T
EQL-OK: T
(PROGN (SETQ CONTROLLER-INSTANCE (GENERIC-STREAM-CONTROLLER S1)) NIL)
EQL-OK: NIL
(PROGN (CLEAR-INPUT S1) (CHECK-FLAG 'CLEAR-INPUT CONTROLLER-INSTANCE))
Checking CLEAR-INPUT flag status: T
EQL-OK: T
(PROGN (FINISH-OUTPUT S1) (CHECK-FLAG 'FINISH-OUTPUT CONTROLLER-INSTANCE))
Checking FINISH-OUTPUT flag status: T
EQL-OK: T
(PROGN (FORCE-OUTPUT S1) (CHECK-FLAG 'FORCE-OUTPUT CONTROLLER-INSTANCE))
Checking FORCE-OUTPUT flag status: T
EQL-OK: T
(PROG2 (FORMAT T "Checking generic-stream-p (T): ") (PRINC (GENERIC-STREAM-P S1)) (TERPRI))
Checking generic-stream-p (T): T
EQL-OK: T
(PROG2 (FORMAT T "Checking generic-stream-p (NIL): ") (PRINC (GENERIC-STREAM-P *STRING-INPUT-STREAM-1*)) (TERPRI))
Checking generic-stream-p (NIL): NIL
EQL-OK: NIL
(PROG2 (FORMAT T "Checking READ-CHAR's eof-error-p, eof-value: ") (PRINC (AND (EQL (READ-CHAR S3) #\x) (EQL (READ-CHAR S3) #\y) (EQL (READ-CHAR S3) #\z) (EQL (READ-CHAR S3 NIL 2) 2))) (TERPRI))
Checking READ-CHAR's eof-error-p, eof-value: T
EQL-OK: T
(PROGN (FORMAT T "Checking CLOSE (NIL,T)~%") (CLOSE S1) (PRINC (AND (EQ (CHECK-FLAG 'CLOSED (GENERIC-STREAM-CONTROLLER S2)) NIL) (CHECK-FLAG 'CLOSED CONTROLLER-INSTANCE))))
Checking CLOSE (NIL,T)
Checking CLOSED flag status: NIL
Checking CLOSED flag status: T
T
EQL-OK: T
RUN-TEST: finished "genstream" (0 errors out of 14 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"hash.tst" @1>
(MAKE-HASH-TABLE :TEST 'EQ :SIZE 20)
EQUALP-OK: #S(HASH-TABLE :TEST FASTHASH-EQ)
(MAKE-HASH-TABLE :TEST 'EQL :SIZE 2)
EQUALP-OK: #S(HASH-TABLE :TEST FASTHASH-EQL)
(MAKE-HASH-TABLE :TEST 'EQUAL :SIZE 2)
EQUALP-OK: #S(HASH-TABLE :TEST FASTHASH-EQUAL)
(PROGN (MAKE-HASH-TABLE :TEST #'EQ :SIZE 2) T)
EQL-OK: T
(PROGN (MAKE-HASH-TABLE :TEST #'EQL :SIZE 2) T)
EQL-OK: T
(MAKE-HASH-TABLE :SIZE NIL)
[SIMPLE-TYPE-ERROR]: MAKE-HASH-TABLE: :SIZE argument should be a fixnum >=0, not NIL
EQL-OK: ERROR
(MAKE-HASH-TABLE :SIZE -3)
[SIMPLE-TYPE-ERROR]: MAKE-HASH-TABLE: :SIZE argument should be a fixnum >=0, not -3
EQL-OK: ERROR
(MAKE-HASH-TABLE :SIZE 2.0)
[SIMPLE-TYPE-ERROR]: MAKE-HASH-TABLE: :SIZE argument should be a fixnum >=0, not #1=2.0
EQL-OK: ERROR
(MAKE-HASH-TABLE :SIZE 2 :REHASH-SIZE 1.5)
EQUALP-OK: #S(HASH-TABLE :TEST FASTHASH-EQL)
(MAKE-HASH-TABLE :SIZE 2 :REHASH-SIZE -1.5)
[SIMPLE-TYPE-ERROR]: MAKE-HASH-TABLE: :REHASH-SIZE argument should be an integer or a float > 1, not #1=-1.5
EQL-OK: ERROR
(MAKE-HASH-TABLE :SIZE 2 :REHASH-SIZE 0.5)
[SIMPLE-TYPE-ERROR]: MAKE-HASH-TABLE: :REHASH-SIZE argument should be an integer or a float > 1, not #1=0.5
EQL-OK: ERROR
(MAKE-HASH-TABLE :SIZE 2 :REHASH-SIZE 1.0)
[SIMPLE-TYPE-ERROR]: MAKE-HASH-TABLE: :REHASH-SIZE argument should be an integer or a float > 1, not #1=1.0
EQL-OK: ERROR
(MAKE-HASH-TABLE :SIZE 2 :REHASH-SIZE 5)
EQUALP-OK: #S(HASH-TABLE :TEST FASTHASH-EQL)
(MAKE-HASH-TABLE :SIZE 4 :REHASH-SIZE 5.0)
EQUALP-OK: #S(HASH-TABLE :TEST FASTHASH-EQL)
(MAKE-HASH-TABLE :SIZE 2 :REHASH-SIZE NIL)
[SIMPLE-TYPE-ERROR]: MAKE-HASH-TABLE: :REHASH-SIZE argument should be an integer or a float > 1, not NIL
EQL-OK: ERROR
(MAKE-HASH-TABLE :SIZE 2 :REHASH-THRESHOLD NIL)
[SIMPLE-TYPE-ERROR]: MAKE-HASH-TABLE: :REHASH-THRESHOLD argument should be a real between 0 and 1, not NIL
EQL-OK: ERROR
(MAKE-HASH-TABLE :%%SIZE 3)
[SIMPLE-KEYWORD-ERROR]: MAKE-HASH-TABLE: illegal keyword/value pair :%%SIZE, 3 in argument list.
The allowed keywords are #1=(:INITIAL-CONTENTS :KEY-TYPE :VALUE-TYPE :WARN-IF-NEEDS-REHASH-AFTER-GC :WEAK :TEST :SIZE :REHASH-SIZE :REHASH-THRESHOLD)
EQL-OK: ERROR
(SETQ TAB (MAKE-HASH-TABLE))
EQUALP-OK: #S(HASH-TABLE :TEST FASTHASH-EQL)
(SETF (GETHASH 'HALLO TAB) 'WIEGWHTS)
EQL-OK: WIEGWHTS
(SETF (GETHASH 'UHU TAB) 'KAUZ)
EQL-OK: KAUZ
(GETHASH 'UHU TAB)
EQL-OK: KAUZ
(GETHASH UHU TAB)
[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable UHU has no value
EQL-OK: ERROR
(MAKE-HASH-TABLE)
EQUALP-OK: #S(HASH-TABLE :TEST FASTHASH-EQL)
(SETQ TAB NIL)
EQL-OK: NIL
(SETF (GETHASH 'UHU TAB) 'KAUS)
[SIMPLE-TYPE-ERROR]: SYSTEM::PUTHASH: argument NIL is not a hash table
EQL-OK: ERROR
(GETHASH 'UHU TAB)
[SIMPLE-TYPE-ERROR]: GETHASH: argument NIL is not a hash table
EQL-OK: ERROR
(GETHASH 'OTTO TAB)
[SIMPLE-TYPE-ERROR]: GETHASH: argument NIL is not a hash table
EQL-OK: ERROR
(SETQ TAB (MAKE-HASH-TABLE))
EQUALP-OK: #S(HASH-TABLE :TEST FASTHASH-EQL)
(SETF (GETHASH 'UHU TAB) 'KAUS)
EQL-OK: KAUS
(GETHASH 'UHU TAB)
EQL-OK: KAUS
(GETHASH 'OTTO TAB)
EQL-OK: NIL
(SETF (GETHASH 'UHU TAB) 'KAUZ)
EQL-OK: KAUZ
(SETF (GETHASH TAB) NIL)
[SIMPLE-PROGRAM-ERROR]: APPLY: too few arguments given to #<COMPILED-FUNCTION SYSTEM::SETF-GETHASH>
EQL-OK: ERROR
(REMHASH 'UHU TAB)
EQL-OK: T
TAB
EQUALP-OK: #S(HASH-TABLE :TEST FASTHASH-EQL)
(CLRHASH TAB9)
[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable TAB9 has no value
EQL-OK: ERROR
(CLRHASH TAB)
EQUALP-OK: #S(HASH-TABLE :TEST FASTHASH-EQL)
(HASH-TABLE-COUNT TAB)
EQL-OK: 0
(SETF (GETHASH 'KLAK TAB) 'KLASE)
EQL-OK: KLASE
(SETF (GETHASH 'KUNZE TAB) 'RIESE)
EQL-OK: RIESE
(HASH-TABLE-P TAB)
EQL-OK: T
(HASH-TABLE-COUNT TAB)
EQL-OK: 2
(REMHASH 'KUNZE TAB)
EQL-OK: T
(SETF (GETHASH 'WALD TAB) 'KHJGSFGJHDF)
EQL-OK: KHJGSFGJHDF
(GETHASH)
[SIMPLE-SOURCE-PROGRAM-ERROR]: EVAL: too few arguments given to GETHASH: #1=(GETHASH)
EQL-OK: ERROR
(REMHASH)
[SIMPLE-SOURCE-PROGRAM-ERROR]: EVAL: too few arguments given to REMHASH: #1=(REMHASH)
EQL-OK: ERROR
(CLRHASH TAB)
EQUALP-OK: #S(HASH-TABLE :TEST FASTHASH-EQL)
(SYMBOLS-CLEANUP '(TAB))
EQL-OK: NIL
RUN-TEST: finished "hash" (0 errors out of 48 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"hashlong.tst" @1>
(PROGN (SETF (SYMBOL-FUNCTION 'SETF-GETHASH) (SYMBOL-FUNCTION 'SYSTEM::PUTHASH)) T)
EQL-OK: T
(DEFUN SYMBOLE NIL (LET ((B 0) (HASH-TABLE (MAKE-HASH-TABLE :SIZE 20 :REHASH-THRESHOLD 0.75)) (LISTE (MAKE-LIST 50)) (LISTE2 (MAKE-LIST 50))) (RPLACD (LAST LISTE) LISTE) (RPLACD (LAST LISTE2) LISTE2) (DO-EXTERNAL-SYMBOLS (X (FIND-PACKAGE "LISP")) (COND ((CAR LISTE) (LET ((HVAL (GETHASH (CAR LISTE) HASH-TABLE)) (LVAL (CAR LISTE2))) (UNLESS (EQ HVAL LVAL) (PRINT "mist, hash-tabelle kaputt") (PRINT (CAR LISTE)) (PRINT HASH-TABLE) (PRINT (HASH-TABLE-COUNT HASH-TABLE)) (PRINT "hval:") (PRINT HVAL) (PRINT "lval:") (PRINT LVAL) (RETURN-FROM SYMBOLE 'ERROR)) (REMHASH (CAR LISTE) HASH-TABLE) (SETF-GETHASH X HASH-TABLE (SETQ B (+ 1 B))) (RPLACA LISTE X) (RPLACA LISTE2 B) (SETQ LISTE (CDR LISTE)) (SETQ LISTE2 (CDR LISTE2)))) (T (SETF-GETHASH X HASH-TABLE (SETQ B (+ 1 B))) (RPLACA LISTE X) (RPLACA LISTE2 B) (SETQ LISTE (CDR LISTE)) (SETQ LISTE2 (CDR LISTE2)))))))
EQL-OK: SYMBOLE
(SYMBOLE)
EQL-OK: NIL
(PROGN (SETF HT1 (MAKE-HASH-TABLE :TEST 'EQUAL) HT2 (MAKE-HASH-TABLE :TEST 'EQUAL) (GETHASH HT1 HT1) 1 (GETHASH HT2 HT1) 2 (GETHASH HT2 HT2) 2 (GETHASH HT1 HT2) 1 (GETHASH 10 HT1) 11 (GETHASH 11 HT1) 12 (GETHASH 12 HT1) 13 (GETHASH 12 HT2) 13 (GETHASH 11 HT2) 12 (GETHASH 10 HT2) 11) (EQUALP HT1 HT2))
EQL-OK: T
(PROGN (SETF (GETHASH 100 HT1) 101) (EQUALP HT1 HT2))
EQL-OK: NIL
(PROGN (REMHASH 100 HT1) (EQUALP HT1 HT2))
EQL-OK: T
(DEFUN HASH-TABLE-KEYS (HT) (LOOP :FOR KK :BEING :EACH :HASH-KEY :OF HT :COLLECT KK))
EQL-OK: HASH-TABLE-KEYS
(DEFUN CHECK-HASH-UNIQUE-VEC (HT SIZE) (LET ((VEC (MAKE-ARRAY SIZE :INITIAL-ELEMENT NIL)) (ERROR-COUNT 0)) (MAPHASH (LAMBDA (KEY VAL) (LET* ((POS (1- (CDR KEY))) (ELT (SVREF VEC POS))) (COND (ELT (PUSH VAL (CDR ELT)) (INCF ERROR-COUNT) (FORMAT T "<ERROR> key ~s occurs multiple times: ~S!~%" KEY (CDR ELT))) ((SETF (SVREF VEC POS) (LIST KEY VAL)))))) HT) ERROR-COUNT))
EQL-OK: CHECK-HASH-UNIQUE-VEC
(DEFUN DO-HASH-TEST (HT &KEY (SIZE 15000)) (CLRHASH HT) (LOOP :FOR COUNTVAL :FROM 1 :TO SIZE :FOR KEY = (CONS "HT" COUNTVAL) :DO (SETF (GETHASH KEY HT) T (GETHASH KEY HT) COUNTVAL)) (CHECK-HASH-UNIQUE-VEC HT SIZE))
EQL-OK: DO-HASH-TEST
(LOOP :FOR TEST :IN '(EQ EQL EQUAL EQUALP) :DO (FORMAT T "~& === ~10@S:" TEST) :SUM (LOOP :WITH HT = (MAKE-HASH-TABLE :TEST TEST :SIZE 1000) :FOR I :FROM 1 :TO 1 :DO (FORMAT T " <~d>" I) (FORCE-OUTPUT) :SUM (DO-HASH-TEST HT)) :DO (FORMAT T " done~%"))
 ===         EQ: <1> done
 ===        EQL: <1> done
 ===      EQUAL: <1> done
 ===     EQUALP: <1> done
EQL-OK: 0
(= (SXHASH '(1 2 3 4 5 6 7 8)) (SXHASH '(1 2 3 4 5 6 7 8 9)))
EQL-OK: NIL
(TYPEP (SXHASH '#1=(1 #1# . #1#)) 'FIXNUM)
EQL-OK: T
(= (SXHASH '(1 (2 . 3) 4 (5 . 6) (7 (8)))) (SXHASH '(1 (2 . 3) 4 (5 . 6) (8 (7)))))
EQL-OK: NIL
(SYMBOLS-CLEANUP '(SYMBOLE HASH-TABLE-KEYS CHECK-HASH-UNIQUE-VEC DO-HASH-TEST SETF-GETHASH HT1 HT2))
EQL-OK: NIL
RUN-TEST: finished "hashlong" (0 errors out of 14 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"hashtable.tst" @1>
(BLOCK NIL (HANDLER-BIND ((WARNING #'(LAMBDA (W) (DECLARE (IGNORE W)) (RETURN 'WARNING)))) (LET ((X1 (MAKE-INSTANCE 'STANDARD-STABLEHASH)) (X2 (MAKE-INSTANCE 'STANDARD-STABLEHASH)) (HT (MAKE-HASH-TABLE :TEST 'STABLEHASH-EQ))) (SETF (GETHASH X1 HT) 11) (SETF (GETHASH X2 HT) 22) (SETF (GETHASH '1000 HT) 11999) (GC) (GETHASH X1 HT) (SETF (GETHASH '10000000000000000000 HT) 11999999999999) (GC) (GETHASH X1 HT))))
EQL-OK: 11
(BLOCK NIL (HANDLER-BIND ((WARNING #'(LAMBDA (W) (DECLARE (IGNORE W)) (RETURN 'WARNING)))) (LET ((X1 (MAKE-INSTANCE 'STANDARD-STABLEHASH)) (X2 (MAKE-INSTANCE 'STANDARD-STABLEHASH)) (HT (MAKE-HASH-TABLE :TEST 'STABLEHASH-EQ :WARN-IF-NEEDS-REHASH-AFTER-GC T))) (SETF (GETHASH X1 HT) 11) (SETF (GETHASH X2 HT) 22) (SETF (GETHASH '1000 HT) 11999) (GC) (GETHASH X1 HT) (SETF (GETHASH '10000000000000000000 HT) 11999999999999))))
EQL-OK: WARNING
(BLOCK NIL (HANDLER-BIND ((WARNING #'(LAMBDA (W) (DECLARE (IGNORE W)) (RETURN 'WARNING)))) (LET ((*WARN-ON-HASHTABLE-NEEDING-REHASH-AFTER-GC* T)) (LET ((X1 (MAKE-INSTANCE 'STANDARD-STABLEHASH)) (X2 (MAKE-INSTANCE 'STANDARD-STABLEHASH)) (HT (MAKE-HASH-TABLE :TEST 'STABLEHASH-EQ))) (SETF (GETHASH X1 HT) 11) (SETF (GETHASH X2 HT) 22) (SETF (GETHASH '1000 HT) 11999) (GC) (GETHASH X1 HT) (SETF (GETHASH '10000000000000000000 HT) 11999999999999) (GC) (GETHASH X1 HT)))))
EQL-OK: WARNING
(LET ((HT (MAKE-HASH-TABLE :TEST 'EQ))) (SETF (GETHASH HT HT) HT) (SETQ HT (READ-FROM-STRING (WITH-STANDARD-IO-SYNTAX (WRITE-TO-STRING HT)))) (EQ (GETHASH HT HT) HT))
EQL-OK: T
(LET ((HT (MAKE-HASH-TABLE :TEST 'EQ)) X) (DEFSTRUCT HT-TEST-STRUCT A B C) (SETQ X (MAKE-HT-TEST-STRUCT :A 1 :B 2 :C HT)) (SETF (GETHASH HT HT) HT (GETHASH X HT) 12) (LET ((L (READ-FROM-STRING (WITH-STANDARD-IO-SYNTAX (WRITE-TO-STRING (LIST X HT)))))) (SETQ HT (SECOND L) X (FIRST L))) (LIST (EQ (GETHASH HT HT) HT) (GETHASH X HT)))
EQUAL-OK: (T 12)
(LET ((HT (MAKE-HASH-TABLE :TEST 'FASTHASH-EQ)) X) (DEFSTRUCT HT-TEST-STRUCT A B C) (SETQ X (MAKE-HT-TEST-STRUCT :A 1 :B 2 :C HT)) (SETF (GETHASH HT HT) HT (GETHASH X HT) 12) (SETQ X (READ-FROM-STRING (WITH-STANDARD-IO-SYNTAX (WRITE-TO-STRING X))) HT (HT-TEST-STRUCT-C X)) (SETF (HT-TEST-STRUCT-A X) (! 123) (GETHASH (! 20) HT) (! 21) (GETHASH (! 21) HT) (! 22) (GETHASH (! 22) HT) (! 23)) (GC) (SETF (HT-TEST-STRUCT-B X) (! 124) (GETHASH (! 30) HT) (! 61) (GETHASH (! 41) HT) (! 72) (GETHASH (! 52) HT) (! 83)) (GC) (LIST (EQ (GETHASH HT HT) HT) (GETHASH X HT)))
EQUAL-OK: (T 12)
(LET ((HT (MAKE-HASH-TABLE :TEST 'EQUAL)) (L '#1=(1 2 . #1#))) (SETF (GETHASH L HT) 42) (GETHASH L HT))
EQL-OK: 42
(LET ((HT (MAKE-HASH-TABLE :TEST 'EQUALP)) (V #1=#(1 2 #1#))) (SETF (GETHASH V HT) 42) (GETHASH V HT))
EQL-OK: 42
(LET* ((HT (MAKE-HASH-TABLE :TEST 'EQUALP)) S) (DEFSTRUCT HT-TEST-STRUCT A B C) (SETF S (MAKE-HT-TEST-STRUCT :A 1 :B 2 :C 3) (HT-TEST-STRUCT-B S) S (GETHASH S HT) 42) (GETHASH S HT))
EQL-OK: 42
(PROGN (SYMBOL-CLEANUP 'HT-TEST-STRUCT))
EQL-OK: T
RUN-TEST: finished "hashtable" (0 errors out of 10 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"iofkts.tst" @1>
(PROGN (SETQ BS (MAKE-BROADCAST-STREAM)) T)
EQL-OK: T
(PRINT 123 BS)
EQL-OK: 123
(SETQ STR1 "test 123456")
EQUAL-OK: "test 123456"
(PROGN (SETQ S1 (MAKE-TWO-WAY-STREAM (MAKE-STRING-INPUT-STREAM STR1) *STANDARD-OUTPUT*)) T)
EQL-OK: T
(READ S1)
EQL-OK: TEST
(READ-CHAR S1)
EQL-OK: #\1
(READ-CHAR S1)
EQL-OK: #\2
(UNREAD-CHAR #\2 S1)
EQL-OK: NIL
(READ-CHAR S1)
EQL-OK: #\2
(READ-CHAR S1)
EQL-OK: #\3
(READ-CHAR S1)
EQL-OK: #\4
(UNREAD-CHAR #\A S1)
[SIMPLE-STREAM-ERROR]: UNREAD-CHAR: the last character read from #1=#<IO TWO-WAY-STREAM #<INPUT STRING-INPUT-STREAM> #<OUTPUT BROADCAST-STREAM #<OUTPUT UNBUFFERED FILE-STREAM CHARACTER #P"/dev/fd/1"> #<OUTPUT STRING-OUTPUT-STREAM>>> was not #\A
EQL-OK: ERROR
(READ-CHAR S1)
EQL-OK: #\5
(READ-CHAR S1)
EQL-OK: #\6
(CLOSE S1)
EQL-OK: T
STR1
EQUAL-OK: "test 123456"
(MULTIPLE-VALUE-LIST (PARSE-INTEGER "abc"))
[SIMPLE-PARSE-ERROR]: PARSE-INTEGER: substring "abc" does not have integer syntax at position 0
EQL-OK: ERROR
(MULTIPLE-VALUE-LIST (PARSE-INTEGER "  abc  "))
[SIMPLE-PARSE-ERROR]: PARSE-INTEGER: substring "  abc  " does not have integer syntax at position 2
EQL-OK: ERROR
(MULTIPLE-VALUE-LIST (PARSE-INTEGER "123"))
EQUAL-OK: (123 3)
(MULTIPLE-VALUE-LIST (PARSE-INTEGER "  123  "))
EQUAL-OK: (123 7)
(MULTIPLE-VALUE-LIST (PARSE-INTEGER "123 t"))
[SIMPLE-PARSE-ERROR]: PARSE-INTEGER: substring "123 t" does not have integer syntax at position 4
EQL-OK: ERROR
(MULTIPLE-VALUE-LIST (PARSE-INTEGER "  123   t  "))
[SIMPLE-PARSE-ERROR]: PARSE-INTEGER: substring "  123   t  " does not have integer syntax at position 8
EQL-OK: ERROR
(MULTIPLE-VALUE-LIST (PARSE-INTEGER " ( 12 ) 43   t  "))
[SIMPLE-PARSE-ERROR]: PARSE-INTEGER: substring " ( 12 ) 43   t  " does not have integer syntax at position 1
EQL-OK: ERROR
(MULTIPLE-VALUE-LIST (PARSE-INTEGER "  abc  " :JUNK-ALLOWED T))
EQUAL-OK: (NIL 2)
(MULTIPLE-VALUE-LIST (PARSE-INTEGER "123" :JUNK-ALLOWED T))
EQUAL-OK: (123 3)
(MULTIPLE-VALUE-LIST (PARSE-INTEGER "  123  " :JUNK-ALLOWED T))
EQUAL-OK: (123 5)
(MULTIPLE-VALUE-LIST (PARSE-INTEGER "123 t" :JUNK-ALLOWED T))
EQUAL-OK: (123 3)
(MULTIPLE-VALUE-LIST (PARSE-INTEGER "  123   t  " :JUNK-ALLOWED T))
EQUAL-OK: (123 5)
(MULTIPLE-VALUE-LIST (PARSE-INTEGER " ( 12 ) 43   t  " :JUNK-ALLOWED T))
EQUAL-OK: (NIL 1)
(SETQ A "q w e 1 2 r 4 d : :;;;")
EQUAL-OK: "q w e 1 2 r 4 d : :;;;"
(SETQ B "1 2 3 4 5 6 7")
EQUAL-OK: "1 2 3 4 5 6 7"
(SETQ C "1.3 4.223")
EQUAL-OK: "1.3 4.223"
(SETQ D "q w e r t z")
EQUAL-OK: "q w e r t z"
(MULTIPLE-VALUE-LIST (PARSE-INTEGER A))
[SIMPLE-PARSE-ERROR]: PARSE-INTEGER: substring "q w e 1 2 r 4 d : :;;;" does not have integer syntax at position 0
EQL-OK: ERROR
(MULTIPLE-VALUE-LIST (PARSE-INTEGER B))
[SIMPLE-PARSE-ERROR]: PARSE-INTEGER: substring "1 2 3 4 5 6 7" does not have integer syntax at position 2
EQL-OK: ERROR
(MULTIPLE-VALUE-LIST (PARSE-INTEGER C))
[SIMPLE-PARSE-ERROR]: PARSE-INTEGER: substring "1.3 4.223" does not have integer syntax at position 1
EQL-OK: ERROR
(MULTIPLE-VALUE-LIST (PARSE-INTEGER D))
[SIMPLE-PARSE-ERROR]: PARSE-INTEGER: substring "q w e r t z" does not have integer syntax at position 0
EQL-OK: ERROR
(MULTIPLE-VALUE-LIST (PARSE-INTEGER A :START 4 :END 6))
[SIMPLE-PARSE-ERROR]: PARSE-INTEGER: substring "e " does not have integer syntax at position 0
EQL-OK: ERROR
(MULTIPLE-VALUE-LIST (PARSE-INTEGER B :START 2 :END 3))
EQUAL-OK: (2 3)
(MULTIPLE-VALUE-LIST (PARSE-INTEGER C :START 1))
[SIMPLE-PARSE-ERROR]: PARSE-INTEGER: substring ".3 4.223" does not have integer syntax at position 0
EQL-OK: ERROR
(MULTIPLE-VALUE-LIST (PARSE-INTEGER D :START 6))
[SIMPLE-PARSE-ERROR]: PARSE-INTEGER: substring "r t z" does not have integer syntax at position 0
EQL-OK: ERROR
(MULTIPLE-VALUE-LIST (PARSE-INTEGER A :END 4))
[SIMPLE-PARSE-ERROR]: PARSE-INTEGER: substring "q w " does not have integer syntax at position 0
EQL-OK: ERROR
(MULTIPLE-VALUE-LIST (PARSE-INTEGER B :END 3))
[SIMPLE-PARSE-ERROR]: PARSE-INTEGER: substring "1 2" does not have integer syntax at position 2
EQL-OK: ERROR
(MULTIPLE-VALUE-LIST (PARSE-INTEGER C :END 3))
[SIMPLE-PARSE-ERROR]: PARSE-INTEGER: substring "1.3" does not have integer syntax at position 1
EQL-OK: ERROR
(MULTIPLE-VALUE-LIST (PARSE-INTEGER D :END 1))
[SIMPLE-PARSE-ERROR]: PARSE-INTEGER: substring "q" does not have integer syntax at position 0
EQL-OK: ERROR
(MULTIPLE-VALUE-LIST (PARSE-INTEGER A :RADIX 1))
[SIMPLE-TYPE-ERROR]: PARSE-INTEGER: :RADIX argument 1 is not an integer between 2 and 36
EQL-OK: ERROR
(MULTIPLE-VALUE-LIST (PARSE-INTEGER B :RADIX 10))
[SIMPLE-PARSE-ERROR]: PARSE-INTEGER: substring "1 2 3 4 5 6 7" does not have integer syntax at position 2
EQL-OK: ERROR
(MULTIPLE-VALUE-LIST (PARSE-INTEGER C :RADIX 20))
[SIMPLE-PARSE-ERROR]: PARSE-INTEGER: substring "1.3 4.223" does not have integer syntax at position 1
EQL-OK: ERROR
(MULTIPLE-VALUE-LIST (PARSE-INTEGER D :RADIX 40))
[SIMPLE-TYPE-ERROR]: PARSE-INTEGER: :RADIX argument 40 is not an integer between 2 and 36
EQL-OK: ERROR
(MULTIPLE-VALUE-LIST (PARSE-INTEGER A :JUNK-ALLOWED T))
EQUAL-OK: (NIL 0)
(MULTIPLE-VALUE-LIST (PARSE-INTEGER B :JUNK-ALLOWED T))
EQUAL-OK: (1 1)
(MULTIPLE-VALUE-LIST (PARSE-INTEGER C :JUNK-ALLOWED T))
EQUAL-OK: (1 1)
(MULTIPLE-VALUE-LIST (PARSE-INTEGER D :JUNK-ALLOWED T))
EQUAL-OK: (NIL 0)
(LET* ((S "0123456789") (D (MAKE-ARRAY 5 :DISPLACED-TO S :DISPLACED-INDEX-OFFSET 3 :ELEMENT-TYPE (ARRAY-ELEMENT-TYPE S)))) (MULTIPLE-VALUE-LIST (PARSE-INTEGER D :START 2 :END 5)))
EQUAL-OK: (567 5)
(STREAM-ELEMENT-TYPE *TERMINAL-IO*)
EQL-OK: CHARACTER
(PROGN (SETQ A (MAKE-STRING-INPUT-STREAM "aaa bbb")) T)
EQL-OK: T
(READ A)
EQL-OK: AAA
(READ A)
EQL-OK: BBB
(PROGN (SETQ A (MAKE-STRING-OUTPUT-STREAM)) (SETQ B (MAKE-STRING-OUTPUT-STREAM)) (SETQ C (MAKE-BROADCAST-STREAM A B)) T)
EQL-OK: T
(PRINT "xxx" C)
EQUAL-OK: "xxx"
(CLEAR-OUTPUT C)
EQL-OK: NIL
(FINISH-OUTPUT C)
EQL-OK: NIL
(GET-OUTPUT-STREAM-STRING A)
EQUAL-OK: "
\"xxx\" "
(GET-OUTPUT-STREAM-STRING B)
EQUAL-OK: "
\"xxx\" "
(PRINT "yyy" C)
EQUAL-OK: "yyy"
(CLEAR-OUTPUT C)
EQL-OK: NIL
(FINISH-OUTPUT C)
EQL-OK: NIL
(PRINT "zzz" A)
EQUAL-OK: "zzz"
(CLEAR-OUTPUT A)
EQL-OK: NIL
(FINISH-OUTPUT A)
EQL-OK: NIL
(GET-OUTPUT-STREAM-STRING A)
EQUAL-OK: "
\"yyy\" 
\"zzz\" "
(GET-OUTPUT-STREAM-STRING B)
EQUAL-OK: "
\"yyy\" "
(PROGN (SETQ A (MAKE-STRING-INPUT-STREAM "123")) T)
EQL-OK: T
(LISTEN A)
EQL-OK: T
(READ A)
EQL-OK: 123
(LISTEN A)
EQL-OK: NIL
*PRINT-CASE*
EQL-OK: :UPCASE
*PRINT-GENSYM*
EQL-OK: T
*PRINT-LEVEL*
EQL-OK: NIL
*PRINT-LENGTH*
EQL-OK: NIL
*PRINT-ARRAY*
EQL-OK: T
*PRINT-ESCAPE*
EQL-OK: T
*PRINT-PRETTY*
EQL-OK: NIL
*PRINT-CIRCLE*
EQL-OK: T
*PRINT-BASE*
EQL-OK: 10
*PRINT-RADIX*
EQL-OK: NIL
(SETQ STRING1 "Das ist ein Test mit Print ")
EQUAL-OK: "Das ist ein Test mit Print "
(PRIN1-TO-STRING STRING1)
EQUAL-OK: "\"Das ist ein Test mit Print \""
(PRINC-TO-STRING STRING1)
EQUAL-OK: "Das ist ein Test mit Print "
(PROGN (SETQ A (MAKE-STRING-INPUT-STREAM "123")) T)
EQL-OK: T
(READ-CHAR-NO-HANG A)
EQL-OK: #\1
(READ A)
EQL-OK: 23
(READ-CHAR-NO-HANG A)
[SIMPLE-END-OF-FILE]: READ: input stream #1=#<INPUT STRING-INPUT-STREAM> has reached its end
EQL-OK: ERROR
(READ-CHAR-NO-HANG A NIL "EOF")
EQUAL-OK: "EOF"
(PROGN (SETQ A (MAKE-STRING-INPUT-STREAM "1   2   ;32  abA")) (SETQ B (MAKE-STRING-INPUT-STREAM " 1 2 3 A x y z 
a b c  ")) T)
EQL-OK: T
(READ-DELIMITED-LIST #\A B)
EQUAL-OK: (1 2 3)
(SETQ C (MULTIPLE-VALUE-LIST (READ-LINE B)))
EQUAL-OK: (" x y z " NIL)
(LENGTH C)
EQL-OK: 2
(MULTIPLE-VALUE-LIST (READ-LINE B))
EQUAL-OK: ("a b c  " T)
(MULTIPLE-VALUE-LIST (READ-LINE B))
[SIMPLE-END-OF-FILE]: READ: input stream #1=#<INPUT STRING-INPUT-STREAM> has reached its end
EQL-OK: ERROR
(MULTIPLE-VALUE-LIST (READ-LINE B NIL "EOF"))
EQUAL-OK: ("EOF" T)
(PEEK-CHAR NIL A)
EQL-OK: #\1
(READ-CHAR A)
EQL-OK: #\1
(PEEK-CHAR T A)
EQL-OK: #\2
(READ-CHAR A)
EQL-OK: #\2
(PEEK-CHAR T A)
EQL-OK: #\;
(READ-CHAR A)
EQL-OK: #\;
(PEEK-CHAR #\A A)
EQL-OK: #\A
(READ-CHAR A)
EQL-OK: #\A
(PEEK-CHAR NIL A)
[SIMPLE-END-OF-FILE]: READ: input stream #1=#<INPUT STRING-INPUT-STREAM> has reached its end
EQL-OK: ERROR
(PEEK-CHAR NIL A NIL "EOF")
EQUAL-OK: "EOF"
(WITH-OUTPUT-TO-STRING (OUT) (PEEK-CHAR #\] (MAKE-ECHO-STREAM (MAKE-STRING-INPUT-STREAM " ab cd e df s]") OUT)))
EQUAL-OK: " ab cd e df s"
(WITH-OUTPUT-TO-STRING (OUT) (PEEK-CHAR T (MAKE-ECHO-STREAM (MAKE-STRING-INPUT-STREAM " ab cd e df s]") OUT)))
EQUAL-OK: " "
(WITH-OUTPUT-TO-STRING (OUT) (PEEK-CHAR NIL (MAKE-ECHO-STREAM (MAKE-STRING-INPUT-STREAM " ab cd e df s]") OUT)))
EQUAL-OK: ""
(SETQ A '((BERLIN (DRESDEN FRANKFURT BONN MUENCHEN)) (MUELLER (KARL LUISE DIETER ALDO))))
EQUAL-OK: ((BERLIN (DRESDEN FRANKFURT BONN MUENCHEN)) (MUELLER (KARL LUISE DIETER ALDO)))
(PROGN (SETQ AA (MAKE-STRING-INPUT-STREAM "berlin d mueller :r")) T)
EQL-OK: T
(DEFUN ASK (&OPTIONAL (RES NIL)) "  (terpri)(terpri)(terpri)
  (print '(*** Eingabe des  Keywortes ***))
  (print '(- mit :r reset))
  (terpri)" (SETQ X (READ AA)) "  (print x)" (COND ((EQUAL X ':R) (CONS "--- reset ---" RES)) (T (CONS (CADR (ASSOC X A)) (ASK RES)))))
EQL-OK: ASK
(ASK)
EQUAL-OK: ((DRESDEN FRANKFURT BONN MUENCHEN) NIL (KARL LUISE DIETER ALDO) "--- reset ---")
(SETQ STRING1 "Das ist ein Teststring")
EQUAL-OK: "Das ist ein Teststring"
(SETQ STRING2 "Auch das 1 2 3 ist ein Teststring")
EQUAL-OK: "Auch das 1 2 3 ist ein Teststring"
(MULTIPLE-VALUE-LIST (READ-FROM-STRING STRING1))
EQUAL-OK: (DAS 4)
(MULTIPLE-VALUE-LIST (READ-FROM-STRING STRING2))
EQUAL-OK: (AUCH 5)
(MULTIPLE-VALUE-LIST (READ-FROM-STRING STRING1 T NIL :START 2))
EQUAL-OK: (S 4)
(MULTIPLE-VALUE-LIST (READ-FROM-STRING STRING1 T NIL :START 2 :PRESERVE-WHITESPACE T))
EQUAL-OK: (S 3)
(MULTIPLE-VALUE-LIST (READ-FROM-STRING STRING2 T NIL :START 5))
EQUAL-OK: (DAS 9)
(MULTIPLE-VALUE-LIST (READ-FROM-STRING STRING2 T NIL :START 5 :END 6))
EQUAL-OK: (D 6)
(MULTIPLE-VALUE-LIST (READ-FROM-STRING STRING1 T NIL :START 4 :END 3))
[SIMPLE-ERROR]: MAKE-STRING-INPUT-STREAM: :START-index 4 must not be greater than :END-index 3
EQL-OK: ERROR
(MULTIPLE-VALUE-LIST (READ-FROM-STRING STRING1 T NIL :END 0))
[SIMPLE-END-OF-FILE]: READ: input stream #1=#<INPUT STRING-INPUT-STREAM> has reached its end
EQL-OK: ERROR
(MULTIPLE-VALUE-LIST (READ-FROM-STRING STRING1 T NIL :START -2 :END 0))
[SIMPLE-TYPE-ERROR]: MAKE-STRING-INPUT-STREAM: :START-index should not be negative: -2
EQL-OK: ERROR
(MULTIPLE-VALUE-LIST (READ-FROM-STRING STRING1 T NIL :END 2))
EQUAL-OK: (DA 2)
*READ-SUPPRESS*
EQL-OK: NIL
(STANDARD-CHAR-P 'A)
[SIMPLE-TYPE-ERROR]: STANDARD-CHAR-P: argument A is not a character
EQL-OK: ERROR
(STANDARD-CHAR-P '#\Backspace)
EQL-OK: NIL
(STANDARD-CHAR-P '#\Tab)
EQL-OK: NIL
(STANDARD-CHAR-P '#\Newline)
EQL-OK: T
(STANDARD-CHAR-P '#\Page)
EQL-OK: NIL
(STANDARD-CHAR-P '#\Return)
EQL-OK: NIL
(STRING-CHAR-P 'A)
[SIMPLE-TYPE-ERROR]: STRING-CHAR-P: argument A is not a character
EQL-OK: ERROR
(STRING-CHAR-P '#\Space)
EQL-OK: T
(STRING-CHAR-P '#\Newline)
EQL-OK: T
(STRING-CHAR-P '#\Backspace)
EQL-OK: T
(STRING-CHAR-P '#\a)
EQL-OK: T
(STRING-CHAR-P '#\8)
EQL-OK: T
(STRING-CHAR-P '#\-)
EQL-OK: T
(STRING-CHAR-P '#\n)
EQL-OK: T
(STRING-CHAR-P '#\()
EQL-OK: T
(STRINGP "das ist einer der Teststrings")
EQL-OK: T
(STRINGP '(DAS IST NATUERLICH FALSCH))
EQL-OK: NIL
(STRINGP "das ist die eine Haelfte" "und das die andere")
[SIMPLE-SOURCE-PROGRAM-ERROR]: EVAL: too many arguments given to STRINGP: #1=(STRINGP "das ist die eine Haelfte" "und das die andere")
EQL-OK: ERROR
(SETQ J 0)
EQL-OK: 0
(WITH-INPUT-FROM-STRING (S "animal crackers" :START 6) (READ S))
EQL-OK: CRACKERS
(WITH-INPUT-FROM-STRING (S "animal crackers" :INDEX J :START 6) (READ S))
EQL-OK: CRACKERS
J
EQL-OK: 15
(WITH-INPUT-FROM-STRING (S "animal crackers" :INDEX J :START 7) (READ S))
EQL-OK: CRACKERS
J
EQL-OK: 15
(WITH-INPUT-FROM-STRING (S "animal crackers" :INDEX J :START 2) (READ S))
EQL-OK: IMAL
J
EQL-OK: 7
(WITH-INPUT-FROM-STRING (S "animal crackers" :INDEX J :START 0 :END 6) (READ S))
EQL-OK: ANIMAL
J
EQL-OK: 6
(WITH-INPUT-FROM-STRING (S "animal crackers" :INDEX J :START 0 :END 12) (READ S))
EQL-OK: ANIMAL
J
EQL-OK: 7
(WITH-INPUT-FROM-STRING (S "animal crackers" :INDEX J :START -1) (READ S))
[SIMPLE-TYPE-ERROR]: MAKE-STRING-INPUT-STREAM: :START-index should not be negative: -1
EQL-OK: ERROR
J
EQL-OK: 7
(WITH-INPUT-FROM-STRING (S "animal crackers" :INDEX J :START 6 :END 20) (READ S))
[SIMPLE-TYPE-ERROR]: MAKE-STRING-INPUT-STREAM: :END-index 20 should not be greater than the length of the string
EQL-OK: ERROR
J
EQL-OK: 7
(SETQ A "Das ist wieder einmal einer der SUUPERTESTstrings.")
EQUAL-OK: "Das ist wieder einmal einer der SUUPERTESTstrings."
(PROGN (SETQ B (MAKE-STRING-OUTPUT-STREAM)) T)
EQL-OK: T
(WRITE-STRING A B)
EQUAL-OK: "Das ist wieder einmal einer der SUUPERTESTstrings."
(WRITE-STRING A B :START 10)
EQUAL-OK: "Das ist wieder einmal einer der SUUPERTESTstrings."
(WRITE-STRING A B :START 80)
[SIMPLE-TYPE-ERROR]: WRITE-STRING: :START-index 80 should not be greater than the length of the string
EQL-OK: ERROR
(WRITE-STRING A B :END 5)
EQUAL-OK: "Das ist wieder einmal einer der SUUPERTESTstrings."
(WRITE-STRING A B :END -2)
[SIMPLE-TYPE-ERROR]: WRITE-STRING: :END-index should not be negative: -2
EQL-OK: ERROR
(WRITE-STRING A B :END 100)
[SIMPLE-TYPE-ERROR]: WRITE-STRING: :END-index 100 should not be greater than the length of the string
EQL-OK: ERROR
(WRITE-STRING A B :START 5 :END 20)
EQUAL-OK: "Das ist wieder einmal einer der SUUPERTESTstrings."
(WRITE-STRING A B :START 10 :END 5)
[SIMPLE-ERROR]: WRITE-STRING: :START-index 10 must not be greater than :END-index 5
EQL-OK: ERROR
(GET-OUTPUT-STREAM-STRING B)
EQUAL-OK: "Das ist wieder einmal einer der SUUPERTESTstrings.eder einmal einer der SUUPERTESTstrings.Das ist wieder einma"
(WRITE-STRING A B)
EQUAL-OK: "Das ist wieder einmal einer der SUUPERTESTstrings."
(LENGTH (GET-OUTPUT-STREAM-STRING B))
EQL-OK: 50
(WRITE-LINE A B)
EQUAL-OK: "Das ist wieder einmal einer der SUUPERTESTstrings."
(LENGTH (GET-OUTPUT-STREAM-STRING B))
EQL-OK: 51
(WITH-OUTPUT-TO-STRING (S) (PRINT 'XXX S))
EQUAL-OK: "
XXX "
(SETQ A (MAKE-ARRAY 10 :ELEMENT-TYPE 'STRING-CHAR :FILL-POINTER 0))
EQUAL-OK: ""
(WITH-OUTPUT-TO-STRING (S A) (PRINC 123 S))
EQL-OK: 123
A
EQUAL-OK: "123"
(WITH-OUTPUT-TO-STRING (S A) (PRINC 4567 S))
EQL-OK: 4567
A
EQUAL-OK: "1234567"
(WITH-OUTPUT-TO-STRING (S A) (PRINC 890 S))
EQL-OK: 890
A
EQUAL-OK: "1234567890"
(IF (ADJUSTABLE-ARRAY-P A) (ERROR "this test assumes that A is not actually adjustable") (WITH-OUTPUT-TO-STRING (S A) (PRINC 'A S)))
[SIMPLE-ERROR]: VECTOR-PUSH-EXTEND works only on adjustable arrays, not on "1234567890"
EQL-OK: ERROR
A
EQUAL-OK: "1234567890"
(SETQ A (MAKE-ARRAY 10 :ELEMENT-TYPE 'STRING-CHAR :FILL-POINTER 0 :ADJUSTABLE T))
EQUAL-OK: ""
(WITH-OUTPUT-TO-STRING (S A) (PRINC 123 S))
EQL-OK: 123
A
EQUAL-OK: "123"
(WITH-OUTPUT-TO-STRING (S A) (PRINC 4567 S))
EQL-OK: 4567
A
EQUAL-OK: "1234567"
(WITH-OUTPUT-TO-STRING (S A) (PRINC 890 S))
EQL-OK: 890
A
EQUAL-OK: "1234567890"
(WITH-OUTPUT-TO-STRING (S A) (PRINC 'ABCDE S))
EQL-OK: ABCDE
A
EQUAL-OK: "1234567890ABCDE"
(WITH-OUTPUT-TO-STRING (S A) (PRINC 'FGHI S))
EQL-OK: FGHI
A
EQUAL-OK: "1234567890ABCDEFGHI"
(PROGN (MAKUNBOUND 'BS) (MAKUNBOUND 'A) (MAKUNBOUND 'B) (MAKUNBOUND 'C) (MAKUNBOUND 'D) (MAKUNBOUND 'AA) (MAKUNBOUND 'STRING1) (MAKUNBOUND 'STRING2) (MAKUNBOUND 'X) (MAKUNBOUND 'J) (MAKUNBOUND 'S1) (MAKUNBOUND 'STR1) T)
EQL-OK: T
(LET (RESULT) (LIST (WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (SETQ RESULT (MULTIPLE-VALUE-LIST (WRITE-STRING (MAKE-ARRAY 0 :ELEMENT-TYPE NIL))))) RESULT))
EQUAL-OK: ("" (""))
(LET ((ST (STRING (CODE-CHAR 27)))) (STRING= ST (SYMBOL-NAME (READ-FROM-STRING (PRIN1-TO-STRING (MAKE-SYMBOL ST))))))
EQL-OK: T
(WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (LET ((RESULT 'NIL) (TABWIDTH 12)) (DOLIST (SYMBOL '(|x| |FoObAr| |fOo|)) (LET ((TAB -1)) (FORMAT T "~&") (DOLIST (ESCAPE '(T NIL)) (DOLIST (CASE '(:UPCASE :DOWNCASE :CAPITALIZE)) (FORMAT T "~VT" (* (INCF TAB) TABWIDTH)) (WRITE SYMBOL :ESCAPE ESCAPE :CASE CASE)))))))
EQUAL-OK: " |x|        |x|         |x|         x           x           x
 |FoObAr|   |FoObAr|    |FoObAr|    FoObAr      foobar      Foobar
 |fOo|      |fOo|       |fOo|       fOo         foo         foo"
(LET ((*READ-SUPPRESS* T)) (MAPCAR #'READ-FROM-STRING '("#(foo bar baz)" "#P(:type :lisp)" "#c1.2" "#.(PRINT 'FOO)" "#3AHELLO" "#S(INTEGER)" "#*ABC" "#\\GARBAGE" "#RALPHA" "#3R444")))
EQUAL-OK: (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)
(LET ((*READ-SUPPRESS* T)) (MAPCAR #'READ-FROM-STRING '("#(foo bar baz)" "#P(:type :lisp)" "#c1.2")))
EQUAL-OK: (NIL NIL NIL)
(DEFUN MY-PPRINT-REVERSE (OUT LIST) (WRITE-CHAR #\( OUT) (WHEN (SETQ LIST (REVERSE LIST)) (LOOP (WRITE (POP LIST) :STREAM OUT) (WHEN (ENDP LIST) (RETURN)) (WRITE-CHAR #\Space OUT))) (WRITE-CHAR #\) OUT))
EQL-OK: MY-PPRINT-REVERSE
(LET ((*PRINT-PPRINT-DISPATCH* (COPY-PPRINT-DISPATCH NIL))) (SET-PPRINT-DISPATCH '(CONS (MEMBER FOO)) 'MY-PPRINT-REVERSE 0) (WRITE-TO-STRING '(FOO BAR :BOO 1) :PRETTY T :ESCAPE T))
EQUAL-OK: "(1 :BOO BAR FOO)"
(DEFUN MY-PPRINT-LOGICAL (OUT LIST) (PPRINT-LOGICAL-BLOCK (OUT LIST :PREFIX "(" :SUFFIX ")") (WHEN LIST (LOOP (WRITE-CHAR #\? OUT) (WRITE (PPRINT-POP) :STREAM OUT) (WRITE-CHAR #\? OUT) (PPRINT-EXIT-IF-LIST-EXHAUSTED) (WRITE-CHAR #\Space OUT)))))
EQL-OK: MY-PPRINT-LOGICAL
(LET ((*PRINT-PPRINT-DISPATCH* (COPY-PPRINT-DISPATCH NIL))) (SET-PPRINT-DISPATCH '(CONS (MEMBER BAR)) 'MY-PPRINT-LOGICAL 0) (WRITE-TO-STRING '(BAR FOO :BOO 1) :PRETTY T :ESCAPE T))
EQUAL-OK: "(?BAR? ?FOO? ?:BOO? ?1?)"
(WITH-OUTPUT-TO-STRING (S) (PRINT-OBJECT 42 S))
EQUAL-OK: "42"
(STRING= (WITH-OUTPUT-TO-STRING (S) (LET ((*PRINT-PRETTY* T)) (WRITE 42 :STREAM S))) (WITH-OUTPUT-TO-STRING (S) (FUNCALL (PPRINT-DISPATCH 42) S 42)))
EQL-OK: T
(LET ((*PRINT-PPRINT-DISPATCH* (COPY-PPRINT-DISPATCH NIL)) (*PRINT-PRETTY* T)) (FLET ((MY-SYMBOL-PPRINT (STREAM OBJ) (LET ((*PRINT-PRETTY* NIL)) (PRINC "++" STREAM) (PRINC OBJ STREAM) (PRINC "++" STREAM)))) (SET-PPRINT-DISPATCH 'SYMBOL #'MY-SYMBOL-PPRINT) (PRINC-TO-STRING '(A (B (C (D) E) F) G))))
EQUAL-OK: "(++A++ (++B++ (++C++ (++D++) ++E++) ++F++) ++G++)"
(LET ((*PRINT-PPRINT-DISPATCH* (COPY-PPRINT-DISPATCH NIL)) (*PRINT-PRETTY* T) (L '(:BRACKET 1 2 (:BRACKET 3 4)))) (FLET ((BRACKET-LIST-PRINTER (STREAM BLIST) (FORMAT STREAM "[~{~S~^ ~}]" (REST BLIST)))) (SET-PPRINT-DISPATCH '(CONS (EQL :BRACKET)) #'BRACKET-LIST-PRINTER) (LIST (PRINC-TO-STRING L) (WITH-OUTPUT-TO-STRING (S) (PPRINT-LOGICAL-BLOCK (S NIL) (PRIN1 L S))))))
EQUAL-OK: ("[1 2 [3 4]]" "[1 2 [3 4]]")
(PROGN (DEFCLASS C1 NIL ((A :INITARG A) (B :INITARG B) (C :INITARG C))) (DEFCLASS C2 (C1) ((AA :INITARG AA) (BB :INITARG BB) (CC :INITARG CC))) (DEFMETHOD PRINT-OBJECT ((OBJ C2) (OUT STREAM)) (PPRINT-LOGICAL-BLOCK (OUT NIL :PREFIX "#[" :SUFFIX "]") (LET ((CL (CLASS-OF OBJ))) (WRITE (CLASS-NAME CL) :STREAM OUT) (LOOP :FOR SLOTDEF :IN (CLASS-SLOTS CL) :FOR SLOT = (SLOT-DEFINITION-NAME SLOTDEF) :WHEN (AND SLOT (SLOT-BOUNDP OBJ SLOT)) :DO (WRITE-CHAR #\Space OUT) (PPRINT-NEWLINE :FILL OUT) (WRITE SLOT :STREAM OUT) (WRITE-CHAR #\Space OUT) (PPRINT-NEWLINE :FILL OUT) (WRITE (SLOT-VALUE OBJ SLOT) :STREAM OUT))))) T)
EQL-OK: T
(LET ((*PRINT-LENGTH* 123)) (DEFMETHOD PRINT-OBJECT ((OBJ C1) (OUT STREAM)) (SETQ *PRINT-LENGTH* 321) (CALL-NEXT-METHOD)) (WRITE-TO-STRING (MAKE-INSTANCE 'C1) :LENGTH 222) *PRINT-LENGTH*)
EQL-OK: 123
(WRITE-TO-STRING (MAKE-INSTANCE 'C2 'B 123 'CC 42) :PRETTY T)
EQUAL-OK: "#[C2 B 123 CC 42]"
(WRITE-TO-STRING (LIST (MAKE-INSTANCE 'C2 'A 45 'BB 17 'AA 12) (MAKE-INSTANCE 'C2 'B 123 'CC 42)) :PRETTY T)
EQUAL-OK: "(#[C2 A 45 AA 12 BB 17] #[C2 B 123 CC 42])"
(LET ((*PRINT-READABLY* T)) (WITH-OUTPUT-TO-STRING (OUT) (PPRINT-LINEAR OUT (LIST 'COMMON-LISP-USER::A 'COMMON-LISP-USER::B 'COMMON-LISP-USER::C))))
EQUAL-OK: "(|COMMON-LISP-USER|::|A| |COMMON-LISP-USER|::|B| |COMMON-LISP-USER|::|C|)"
(EQUALP (READ-FROM-STRING "#2A((\"first\" #1=\"second\" \"third\")
              #2=(\"null\" #1# \"zero\") #2#)") (READ-FROM-STRING "#A(t (3 3) ((\"first\" #1=\"second\" \"third\")
             #2=(\"null\" #1# \"zero\") #2#))"))
EQL-OK: T
(WITH-INPUT-FROM-STRING (S "'a #'b c d") (LIST (READ-PRESERVING-WHITESPACE S) (READ-CHAR S) (READ-PRESERVING-WHITESPACE S) (READ-CHAR S) (READ-PRESERVING-WHITESPACE S) (READ-CHAR S) (READ-CHAR S)))
EQUAL-OK: ('A #\Space #'B #\Space C #\Space #\d)
(LET ((*PPRINT-FIRST-NEWLINE* NIL)) (FORMAT NIL "~{~a~}" (LIST "string1" "string2" (CONCATENATE 'STRING "string3" (STRING #\Newline)))))
EQUAL-OK: "string1string2string3
"
(PRINC-TO-STRING (FDEFINITION 'DEFUN))
EQUAL-OK: "#<MACRO #<COMPILED-FUNCTION DEFUN> (FUNCTION-NAME LAMBDA-LIST &BODY FORMS)>"
(FLET ((FOO-PRINTER (STREAM FOO) (LET ((*PRINT-PRETTY* NIL)) (PRINC "FOO:" STREAM) (PRIN1 (CDR FOO) STREAM)))) (WITH-STANDARD-IO-SYNTAX (SET-PPRINT-DISPATCH '(CONS (MEMBER FOO)) #'FOO-PRINTER) (WRITE-TO-STRING '(FOO 123) :PRETTY T)))
EQUAL-OK: "FOO:(123.)"
(EQ *PRINT-PPRINT-DISPATCH* (COPY-PPRINT-DISPATCH))
EQL-OK: NIL
(WITH-OUTPUT-TO-STRING (S) (PRINC "xxx" S) (TERPRI S) (PRINC #\Tab S) (FRESH-LINE S) (PRINC "yyy" S))
EQUAL-OK: "xxx
	
yyy"
(SYMBOLS-CLEANUP '(BS STR1 S1 STRING1 STRING2 A AA B C D J X ASK MY-PPRINT-REVERSE MY-PPRINT-LOGICAL FOO-PRINTER C1 C2))
EQL-OK: NIL
RUN-TEST: finished "iofkts" (0 errors out of 228 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"lambda.tst" @1>
(MAKUNBOUND 'B)
EQL-OK: B
(MAKUNBOUND 'E)
EQL-OK: E
(SETQ Z 2)
EQL-OK: 2
((LAMBDA (Z) (DECLARE (SPECIAL Z)) (LIST Z (SYMBOL-VALUE 'Z))) 3)
EQUAL-OK: (3 3)
(MAKUNBOUND 'Z)
EQL-OK: Z
((LAMBDA (A B) (+ A (* B 3))) 4 5)
EQL-OK: 19
((LAMBDA (A &OPTIONAL (B 2)) (+ A (* B 3))) 4 5)
EQL-OK: 19
((LAMBDA (A &OPTIONAL (B 2)) (+ A (* B 3))) 4)
EQL-OK: 10
((LAMBDA (&OPTIONAL (A 2 B) (C 3 D) &REST X) (LIST A B C D X)))
EQUAL-OK: (2 NIL 3 NIL NIL)
((LAMBDA (&OPTIONAL (A 2 B) (C 3 D) &REST X) (LIST A B C D X)) 6)
EQUAL-OK: (6 T 3 NIL NIL)
((LAMBDA (&OPTIONAL (A 2 B) (C 3 D) &REST X) (LIST A B C D X)) 6 3)
EQUAL-OK: (6 T 3 T NIL)
((LAMBDA (&OPTIONAL (A 2 B) (C 3 D) &REST X) (LIST A B C D X)) 6 3 8)
EQUAL-OK: (6 T 3 T (8))
((LAMBDA (&OPTIONAL (A 2 B) (C 3 D) &REST X) (LIST A B C D X)) 6 3 8 9 10 11)
EQUAL-OK: (6 T 3 T (8 9 10 11))
((LAMBDA (A B &KEY C D) (LIST A B C D)) 1 2)
EQUAL-OK: (1 2 NIL NIL)
((LAMBDA (A B &KEY C D) (LIST A B C D)) 1 2 :C 6)
EQUAL-OK: (1 2 6 NIL)
((LAMBDA (A B &KEY C D) (LIST A B C D)) 1 2 :D 8)
EQUAL-OK: (1 2 NIL 8)
((LAMBDA (A B &KEY C D) (LIST A B C D)) 1 2 :C 6 :D 8)
EQUAL-OK: (1 2 6 8)
((LAMBDA (A B &KEY C D) (LIST A B C D)) 1 2 :D 8 :C 6)
EQUAL-OK: (1 2 6 8)
((LAMBDA (A B &KEY C D) (LIST A B C D)) :A 1 :D 8 :C 6)
EQUAL-OK: (:A 1 6 8)
((LAMBDA (A B &KEY C D) (LIST A B C D)) :A :B :C :D)
EQUAL-OK: (:A :B :D NIL)
((LAMBDA (A &OPTIONAL (B 3) &REST X &KEY C (D A)) (LIST A B C D X)) 1)
EQUAL-OK: (1 3 NIL 1 NIL)
((LAMBDA (A &OPTIONAL (B 3) &REST X &KEY C (D A)) (LIST A B C D X)) 1 2)
EQUAL-OK: (1 2 NIL 1 NIL)
((LAMBDA (A &OPTIONAL (B 3) &REST X &KEY C (D A)) (LIST A B C D X)) :C 7)
EQUAL-OK: (:C 7 NIL :C NIL)
((LAMBDA (A &OPTIONAL (B 3) &REST X &KEY C (D A)) (LIST A B C D X)) 1 6 :C 7)
EQUAL-OK: (1 6 7 1 (:C 7))
((LAMBDA (A &OPTIONAL (B 3) &REST X &KEY C (D A)) (LIST A B C D X)) 1 6 :D 8)
EQUAL-OK: (1 6 NIL 8 (:D 8))
((LAMBDA (A &OPTIONAL (B 3) &REST X &KEY C (D A)) (LIST A B C D X)) 1 6 :D 8 :C 9 :D 10)
EQUAL-OK: (1 6 9 8 (:D 8 :C 9 :D 10))
((LAMBDA (X &AUX (A 3) (B 4)) (+ X (* A B))) 2)
EQL-OK: 14
((LAMBDA (X Y &OPTIONAL A B &REST Z &KEY C (D Y) &AUX (U 3) (V 4)) (+ X Y A (* B (CAR Z)) C (* D U) V)) 3 4 5 2 7 :C 6 :D 8)
[SIMPLE-PROGRAM-ERROR]: :LAMBDA: keyword arguments in (7 :C 6 :D 8) should occur pairwise
EQL-OK: ERROR
((LAMBDA (X Y &OPTIONAL A B &REST Z &KEY C (D Y) &AUX (U 3) (V 4)) (+ X Y A (* B (CAR Z)) C (* D U) V)) 3 4 5 2 7 :C 6)
[SIMPLE-PROGRAM-ERROR]: :LAMBDA: keyword arguments in (7 :C 6) should occur pairwise
EQL-OK: ERROR
((LAMBDA (X &AUX C) (CONS X C)) 'A)
EQUAL-OK: (A)
((LAMBDA (X &REST Y Z) (LIST X Y Z)) 1 2 3)
[SIMPLE-SOURCE-PROGRAM-ERROR]: FUNCTION: Lambda list element Z is superfluous. Only one variable is allowed after &REST.
EQL-OK: ERROR
((LAMBDA (5 A B) (LIST A B)) 1 2)
[SIMPLE-SOURCE-PROGRAM-ERROR]: FUNCTION: Invalid lambda list element 5. A lambda list may only contain symbols and lists.
EQL-OK: ERROR
((LAMBDA ((LENGTH '(A B)) C) (LIST C)) 1)
[SIMPLE-PROGRAM-ERROR]: EVAL/APPLY: Too few arguments (1 instead of at least 2) given to :LAMBDA
EQL-OK: ERROR
((LAMBDA (X &KEY :Y :Z) (LIST X Y Z)) 1 :Y 2 :Z 3)
[SIMPLE-SOURCE-PROGRAM-ERROR]: FUNCTION: :Y is a constant, may not be used as a variable
EQL-OK: ERROR
((LAMBDA (X Y) (LIST X Y Z)) 1 2)
[SIMPLE-UNBOUND-VARIABLE]: :LAMBDA: variable Z has no value
EQL-OK: ERROR
((LAMBDA (X Y) (LIST X Y Z)) 1 2 3)
[SIMPLE-PROGRAM-ERROR]: EVAL/APPLY: too many arguments given to :LAMBDA
EQL-OK: ERROR
((LAMBDA (&OPTIONAL) (LIST A B C)) 1)
[SIMPLE-PROGRAM-ERROR]: EVAL/APPLY: too many arguments given to :LAMBDA
EQL-OK: ERROR
((LAMBDA (&OPTIONAL (A)) (LIST A)) 1)
EQUAL-OK: (1)
((LAMBDA (&OPTIONAL (A B)) (LIST A B)) 1)
[SIMPLE-UNBOUND-VARIABLE]: :LAMBDA: variable B has no value
EQL-OK: ERROR
((LAMBDA (&OPTIONAL (A 3 B)) (LIST A B)) 1)
EQUAL-OK: (1 T)
((LAMBDA (&OPTIONAL (A 3)) (LIST A)) 1)
EQUAL-OK: (1)
((LAMBDA (&OPTIONAL (A 3 B 4)) (LIST A B)) 1)
[SIMPLE-SOURCE-PROGRAM-ERROR]: FUNCTION: Invalid lambda list element #1=(A 3 B 4)
EQL-OK: ERROR
((LAMBDA (X) (LIST X Y)) 1 2)
[SIMPLE-PROGRAM-ERROR]: EVAL/APPLY: too many arguments given to :LAMBDA
EQL-OK: ERROR
((LAMBDA (X) (LIST X)) 1 2)
[SIMPLE-PROGRAM-ERROR]: EVAL/APPLY: too many arguments given to :LAMBDA
EQL-OK: ERROR
((LAMBDA (#\a) (LIST A)) 1)
[SIMPLE-SOURCE-PROGRAM-ERROR]: FUNCTION: Invalid lambda list element #\a. A lambda list may only contain symbols and lists.
EQL-OK: ERROR
((LAMBDA (#*10) (LIST 1 2 3)))
[SIMPLE-SOURCE-PROGRAM-ERROR]: FUNCTION: Invalid lambda list element #1=#*10. A lambda list may only contain symbols and lists.
EQL-OK: ERROR
((LAMBDA (X Y) ((LAMBDA (A B) (LIST A B)) 'U 'V)) 5 6)
EQUAL-OK: (U V)
((LAMBDA (X Y) (LIST X Y)) 1)
[SIMPLE-PROGRAM-ERROR]: EVAL/APPLY: Too few arguments (1 instead of at least 2) given to :LAMBDA
EQL-OK: ERROR
((LAMBDA (X &REST Y &OPTIONAL (Z 5)) (LIST X Y Z)) 1 3)
[SIMPLE-SOURCE-PROGRAM-ERROR]: FUNCTION: Lambda list marker &OPTIONAL not allowed here.
EQL-OK: ERROR
((LAMBDA (X &X) (LIST X)) 7)
[SIMPLE-PROGRAM-ERROR]: EVAL/APPLY: Too few arguments (1 instead of at least 2) given to :LAMBDA
EQL-OK: ERROR
((LAMBDA (X &AUX) (LIST X)) 6)
EQUAL-OK: (6)
((LAMBDA (X &AUX Y) (LIST X Y)) 6)
EQUAL-OK: (6 NIL)
((LAMBDA (X &AUX (Y)) (LIST X Y)) 6)
EQUAL-OK: (6 NIL)
((LAMBDA (X &REST) (LIST X)) 2)
[SIMPLE-SOURCE-PROGRAM-ERROR]: FUNCTION: Missing &REST parameter in lambda list #1=(X &REST)
EQL-OK: ERROR
((LAMBDA (X &KEY) (LIST X)) 3)
EQUAL-OK: (3)
((LAMBDA (X &KEY Y) (LIST X)) 3)
EQUAL-OK: (3)
((LAMBDA (X &KEY Y) (LIST X)) 3 :Y)
[SIMPLE-PROGRAM-ERROR]: :LAMBDA: keyword arguments in (:Y) should occur pairwise
EQL-OK: ERROR
((LAMBDA (X &KEY Y) (LIST X)) :|3|)
EQUAL-OK: (:|3|)
((LAMBDA NIL (LIST 1 2 3)))
EQUAL-OK: (1 2 3)
((LAMBDA NIL (LIST 1 2 3)) 4 5)
[SIMPLE-PROGRAM-ERROR]: EVAL/APPLY: too many arguments given to :LAMBDA
EQL-OK: ERROR
((LAMBDA (LIST 1 2 3)))
[SIMPLE-SOURCE-PROGRAM-ERROR]: FUNCTION: Invalid lambda list element 1. A lambda list may only contain symbols and lists.
EQL-OK: ERROR
((LAMBDA (X)))
[SIMPLE-PROGRAM-ERROR]: EVAL/APPLY: Too few arguments (0 instead of at least 1) given to :LAMBDA
EQL-OK: ERROR
((LAMBDA (&AUX &KEY &REST &OPTIONAL)))
[SIMPLE-SOURCE-PROGRAM-ERROR]: FUNCTION: Lambda list marker &KEY not allowed here.
EQL-OK: ERROR
((LAMBDA (A B &KEY C D &ALLOW-OTHER-KEYS) (LIST A B C D E F)) 1 2 :C 6 :D 8 :E 5 :F 7)
[SIMPLE-UNBOUND-VARIABLE]: :LAMBDA: variable E has no value
EQL-OK: ERROR
((LAMBDA (X &ALLOW-OTHER-KEYS) (LIST X Y)) 2 :Y 3)
[SIMPLE-SOURCE-PROGRAM-ERROR]: FUNCTION: Lambda list marker &ALLOW-OTHER-KEYS not allowed here.
EQL-OK: ERROR
((LAMBDA))
[SIMPLE-SOURCE-PROGRAM-ERROR]: :LAMBDA: lambda-list for NIL is missing
EQL-OK: ERROR
((LAMBDA (&KEY X) X) :X 1 :Y 2 :ALLOW-OTHER-KEYS T)
EQL-OK: 1
((LAMBDA (&KEY X) X) :X 1 :Y 2 :ALLOW-OTHER-KEYS T :ALLOW-OTHER-KEYS NIL)
EQL-OK: 1
((LAMBDA (&KEY X) X) :X 1 :Y 2 :ALLOW-OTHER-KEYS NIL :ALLOW-OTHER-KEYS T)
[SIMPLE-KEYWORD-ERROR]: :LAMBDA: illegal keyword/value pair :Y, 2 in argument list.
The allowed keywords are #1=(:X)
EQL-OK: ERROR
((LAMBDA (&KEY X &ALLOW-OTHER-KEYS) X) :X 1 :Y 2)
EQL-OK: 1
((LAMBDA (&KEY X &ALLOW-OTHER-KEYS) X) :X 1 :Y 2 :ALLOW-OTHER-KEYS T :ALLOW-OTHER-KEYS NIL)
EQL-OK: 1
((LAMBDA (&KEY X &ALLOW-OTHER-KEYS) X) :X 1 :Y 2 :ALLOW-OTHER-KEYS NIL :ALLOW-OTHER-KEYS T)
EQL-OK: 1
((LAMBDA (&KEY X) X) :X 1 :ALLOW-OTHER-KEYS NIL)
EQL-OK: 1
((LAMBDA (&KEY X) X) :X 1 :ALLOW-OTHER-KEYS NIL :ALLOW-OTHER-KEYS NIL)
EQL-OK: 1
(DEFUN FOO (X) (LIST X))
EQL-OK: FOO
(MULTIPLE-VALUE-LIST (FUNCTION-LAMBDA-EXPRESSION #'FOO))
EQUALP-OK: ((LAMBDA (X) (DECLARE (SYSTEM::IN-DEFUN FOO)) (BLOCK FOO (LIST X))) #(NIL NIL NIL NIL ((DECLARATION OPTIMIZE DECLARATION DYNAMICALLY-MODIFIABLE SYSTEM::IMPLEMENTATION-DEPENDENT))) FOO)
(COMPILE 'FOO)
EQL-OK: FOO
(MULTIPLE-VALUE-LIST (FUNCTION-LAMBDA-EXPRESSION #'FOO))
EQUAL-OK: ((LAMBDA (X) (LIST X)) T FOO)
(LET ((FILE "lambda-tst-function-lambda-expression-test.lisp") (FLE (FUNCTION-LAMBDA-EXPRESSION #'FOO)) (RES NIL)) (UNWIND-PROTECT (PROGN (WITH-OPEN-FILE (OUT FILE :DIRECTION :OUTPUT) (WRITE '(DEFUN FOO (X) (CAR X)) :STREAM OUT :READABLY T) (TERPRI OUT)) (LOAD (COMPILE-FILE FILE)) (PUSH (FOO '(3)) RES) (PUSH (EQUALP FLE (FUNCTION-LAMBDA-EXPRESSION #'FOO)) RES)) (POST-COMPILE-FILE-CLEANUP FILE)))
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/lambda-tst-function-lambda-expression-test.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/lambda-tst-function-lambda-expression-test.fas
0 errors, 0 warnings;; Loading file 
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/lambda-tst-function-lambda-expression-test.fas ...
WARNING: DEFUN/DEFMACRO: redefining function FOO in
         ;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/lambda-tst-function-lambda-expression-test.fas/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/lambda-tst-function-lambda-expression-test.fas,
         was defined in top-level
EQUAL-OK: (NIL 3)
(FMAKUNBOUND 'FOO)
EQL-OK: FOO
(DEFUN (SETF FOO) (V A) (SETF (CAR A) V))
EQUAL-OK: (SETF FOO)
(MULTIPLE-VALUE-LIST (FUNCTION-LAMBDA-EXPRESSION #'(SETF FOO)))
EQUALP-OK: ((LAMBDA (V A) (DECLARE (SYSTEM::IN-DEFUN (SETF FOO))) (BLOCK FOO (SETF (CAR A) V))) #(NIL NIL NIL NIL ((DECLARATION OPTIMIZE DECLARATION DYNAMICALLY-MODIFIABLE SYSTEM::IMPLEMENTATION-DEPENDENT))) (SETF FOO))
(COMPILE '(SETF FOO))
EQUAL-OK: (SETF FOO)
(MULTIPLE-VALUE-LIST (FUNCTION-LAMBDA-EXPRESSION #'(SETF FOO)))
EQUAL-OK: ((LAMBDA (V A) (SETF (CAR A) V)) T (SETF FOO))
(FMAKUNBOUND '(SETF FOO))
EQUAL-OK: (SETF FOO)
(SETF (GETENV "PAGER") "cat")
EQUAL-OK: "cat"
(DISASSEMBLE 'CAR)
#<SYSTEM-FUNCTION CAR> is a built-in system function.
Argument list: (#:ARG0)
For more information, evaluate (DISASSEMBLE #'CAR).
Cannot show machine instructions: gdb not found.
EQL-OK: NIL
(DISASSEMBLE #'CDR)
#<SYSTEM-FUNCTION CDR> is a built-in system function.
Argument list: (#:ARG0)
For more information, evaluate (DISASSEMBLE #'CDR).
Cannot show machine instructions: gdb not found.
EQL-OK: NIL
(DISASSEMBLE 'DISASSEMBLE)
Disassembly of function DISASSEMBLE
(CONST 0) = #(#(NIL #S(HASH-TABLE :TEST STABLEHASH-EQ :WARN-IF-NEEDS-REHASH-AFTER-GC T (#1=#<FUNCALLABLE-STANDARD-CLASS STANDARD-GENERIC-FUNCTION> . #<COMPILED-FUNCTION COMMON-LISP::DISASSEMBLE-<EMF-3>-1>) (#2=#<BUILT-IN-CLASS SYMBOL> . #<COMPILED-FUNCTION COMMON-LISP::DISASSEMBLE-<EMF-2>-1>) (#3=#<BUILT-IN-CLASS FUNCTION> . #<COMPILED-FUNCTION COMMON-LISP::DISASSEMBLE-<EMF-2>-1>))) CLOS::COMPUTE-APPLICABLE-METHODS-EFFECTIVE-METHOD #4=#<STANDARD-GENERIC-FUNCTION DISASSEMBLE>)
(CONST 1) = DISASSEMBLE
(CONST 2) = NIL
(CONST 3) = NIL
(CONST 4) = #(1 0 T T (:QUALIFIERS :SPECIALIZERS) NIL)
(CONST 5) = (0)
(CONST 6) = (#1=#<STANDARD-METHOD (#2=#<BUILT-IN-CLASS FUNCTION>)> #3=#<STANDARD-METHOD (#4=#<BUILT-IN-CLASS T>)> #5=#<STANDARD-METHOD (#6=#<BUILT-IN-CLASS CONS>)> #7=#<STANDARD-METHOD (#8=#<BUILT-IN-CLASS SYMBOL>)> #9=#<STANDARD-METHOD (#10=#<FUNCALLABLE-STANDARD-CLASS STANDARD-GENERIC-FUNCTION>)> #11=#<STANDARD-METHOD (#12=#<STANDARD-CLASS STANDARD-METHOD>)> #13=#<STANDARD-METHOD (#14=#<STANDARD-CLASS METHOD>)> #15=#<STANDARD-METHOD (#16=#<BUILT-IN-CLASS STRING>)>)
(CONST 7) = #<METHOD-COMBINATION STANDARD #x00001000001DFF09>
(CONST 8) = #1=#<STANDARD-CLASS STANDARD-METHOD>
(CONST 9) = (SYSTEM::OBJECT &KEY SYSTEM::QUALIFIERS SYSTEM::SPECIALIZERS)
(CONST 10) = "disassemble the OBJECT, which should be a function.
if QUALIFIERS or SPECIALIZERS is given, OBJECT should be a generic function."
(CONST 11) = NIL
(CONST 12) = (((#1=#<STANDARD-METHOD (#2=#<FUNCALLABLE-STANDARD-CLASS STANDARD-GENERIC-FUNCTION>)> #3=#<STANDARD-METHOD (#4=#<BUILT-IN-CLASS FUNCTION>)> #5=#<STANDARD-METHOD (#6=#<BUILT-IN-CLASS T>)>) . #<COMPILED-FUNCTION COMMON-LISP::DISASSEMBLE-<EMF-3>-1>) ((#7=#<STANDARD-METHOD (#8=#<BUILT-IN-CLASS SYMBOL>)> #5#) . #<COMPILED-FUNCTION COMMON-LISP::DISASSEMBLE-<EMF-2>-1>) ((#3# #5#) . #<COMPILED-FUNCTION COMMON-LISP::DISASSEMBLE-<EMF-2>-1>))
(CONST 13) = T
1 required argument
0 optional arguments
Rest parameter
No keyword parameters
15 byte-code instructions:
0     (LOADV&PUSH 1 1)
3     (LOAD&PUSH 3)
4     (CALLS1&JMPIFNOT 118 L9)            ; CLOS::CLASS-GETHASH
7     (SKIP&RETGF 3)
9     L9
9     (LOAD&PUSH 2)
10    (CALLS2&PUSH 57)                    ; CLASS-OF
12    (LOADV&PUSH 1 1)
15    (LOADV&PUSH 0 1)
18    (LOADV&PUSH 0 2)
21    (LOAD&PUSH 6)
22    (LOAD 6)
23    (APPLY&PUSH 2)
25    (CALLS1 111)                        ; SYSTEM::PUTHASH
27    (SKIP&RETGF 3)
EQL-OK: NIL
(DISASSEMBLE #'SET-DIFFERENCE)
Disassembly of function SET-DIFFERENCE
(CONST 0) = :TEST
(CONST 1) = :TEST-NOT
(CONST 2) = :KEY
(CONST 3) = SYSTEM::LIST-TO-HT
(CONST 4) = #<SYSTEM-FUNCTION MEMBER>
2 required arguments
0 optional arguments
Rest parameter
3 keyword parameters: :TEST, :TEST-NOT, :KEY.
49 byte-code instructions:
0     (UNBOUND->NIL 1)
2     (NIL&PUSH)
3     (CONST&SYMBOL-FUNCTION&PUSH 3)      ; SYSTEM::LIST-TO-HT
5     (LOAD&PUSH 8)
6     (LOAD&PUSH 8)
7     (LOAD 8)
8     (APPLY&PUSH 2)
10    (LOAD&PUSH 8)
11    (NIL&PUSH)
12    (JMP L58)
14    L14
14    (PUSH)
15    (LOAD&PUSH 1)
16    (FUNCALL 1)
18    (JMP L39)
20    L20
20    (LOAD&PUSH 0)
21    (LOAD&PUSH 4)
22    (PUSH-UNBOUND 1)
24    (CALLS1 110)                        ; GETHASH
26    (SKIP 1)
28    (JMPIFNOT L53)
30    (JMP L56)
32    L32
32    (LOAD&CAR&STORE 1 0)
35    (LOAD&JMPIF 5 L14)
38    (LOAD 0)
39    L39
39    (PUSH)
40    (LOAD&JMPIF 3 L20)
43    (CONST&PUSH 4)                      ; #<SYSTEM-FUNCTION MEMBER>
44    (LOAD&PUSH 1)
45    (LOAD&PUSH 12)
46    (LOAD 12)
47    (APPLY 2)
49    (SKIP 1)
51    (JMPIF L56)
53    L53
53    (LOAD&PUSH 0)
54    (LOAD&CONS&STORE 3)
56    L56
56    (LOAD&CDR&STORE 1)
58    L58
58    (LOAD&PUSH 1)
59    (CALLS1&JMPIFNOT 159 L32)           ; ENDP
62    (SKIP 2)
64    (LOAD&PUSH 1)
65    (CALLS1 177)                        ; SYSTEM::LIST-NREVERSE
67    (SKIP&RET 9)
EQL-OK: NIL
RUN-TEST: finished "lambda" (0 errors out of 90 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"lists151.tst" @1>
(MAKUNBOUND 'A)
EQL-OK: A
(MAKUNBOUND 'X)
EQL-OK: X
(CAR '(A B C D E F G))
EQL-OK: A
(CDR '(A B C D E F G))
EQUAL-OK: (B C D E F G)
(CAAR '((A) B C D E F G))
EQL-OK: A
(CADR '(A B C D E F G))
EQL-OK: B
(CDAR '((A B) C D E F G))
EQUAL-OK: (B)
(CDDR '(A B C D E F G))
EQUAL-OK: (C D E F G)
(CAAAR '(((A)) B C D E F G))
EQL-OK: A
(CAADR '(A (B) C D E F G))
EQL-OK: B
(CADAR '((A B) C D E F G))
EQL-OK: B
(CADDR '(A B C D E F G))
EQL-OK: C
(CDAAR '(((A B)) C D E F G))
EQUAL-OK: (B)
(CDADR '(A (B C) D E F G))
EQUAL-OK: (C)
(CDDAR '((A B C) D E F G))
EQUAL-OK: (C)
(CDDDR '(A B C D E F G))
EQUAL-OK: (D E F G)
(CAAAAR '((((A))) B C D E F G))
EQL-OK: A
(CAAADR '(A ((B)) C D E F G))
EQL-OK: B
(CAADAR '((A (B)) C D E F G))
EQL-OK: B
(CAADDR '(A B (C) D E F G))
EQL-OK: C
(CADAAR '(((A B)) C D E F G))
EQL-OK: B
(CADADR '(A (B C) D E F G))
EQL-OK: C
(CADDAR '((A B C) D E F G))
EQL-OK: C
(CADDDR '(A B C D E F G))
EQL-OK: D
(CDAAAR '((((A B))) C D E F G))
EQUAL-OK: (B)
(CDAADR '(A ((B C)) D E F G))
EQUAL-OK: (C)
(CDADAR '((A (B C)) D E F G))
EQUAL-OK: (C)
(CDADDR '(A B (C D) E F G))
EQUAL-OK: (D)
(CDDAAR '(((A B C)) D E F G))
EQUAL-OK: (C)
(CDDADR '(A (B C D) E F G))
EQUAL-OK: (D)
(CDDDAR '((A B C D) E F G))
EQUAL-OK: (D)
(CDDDDR '(A B C D E F G))
EQUAL-OK: (E F G)
(CAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQUAL-OK: ((((1 2 3) 4) 5) (6 7))
(CDR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQUAL-OK: ((((U V W) X) Y) ((Q W E) R) (A B C) E F G)
(CAAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQUAL-OK: (((1 2 3) 4) 5)
(CADR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQUAL-OK: (((U V W) X) Y)
(CDAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQUAL-OK: ((6 7))
(CDDR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQUAL-OK: (((Q W E) R) (A B C) E F G)
(CAAAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQUAL-OK: ((1 2 3) 4)
(CAADR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQUAL-OK: ((U V W) X)
(CADAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQUAL-OK: (6 7)
(CADDR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQUAL-OK: ((Q W E) R)
(CDAAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQUAL-OK: (5)
(CDADR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQUAL-OK: (Y)
(CDDAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQL-OK: NIL
(CDDDR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQUAL-OK: ((A B C) E F G)
(CAAAAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQUAL-OK: (1 2 3)
(CAAADR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQUAL-OK: (U V W)
(CAADAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQL-OK: 6
(CAADDR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQUAL-OK: (Q W E)
(CADAAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQL-OK: 5
(CADADR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQL-OK: Y
(CADDAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQL-OK: NIL
(CADDDR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQUAL-OK: (A B C)
(CDAAAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQUAL-OK: (4)
(CDAADR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQUAL-OK: (X)
(CDADAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQUAL-OK: (7)
(CDADDR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQUAL-OK: (R)
(CDDAAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQL-OK: NIL
(CDDADR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQL-OK: NIL
(CDDDAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQL-OK: NIL
(CDDDDR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G))
EQUAL-OK: (E F G)
(CAR 'NIL)
EQL-OK: NIL
(CDR 'NIL)
EQL-OK: NIL
(CAAR 'NIL)
EQL-OK: NIL
(CADR 'NIL)
EQL-OK: NIL
(CDAR 'NIL)
EQL-OK: NIL
(CDDR 'NIL)
EQL-OK: NIL
(CAAAR 'NIL)
EQL-OK: NIL
(CAADR 'NIL)
EQL-OK: NIL
(CADAR 'NIL)
EQL-OK: NIL
(CADDR 'NIL)
EQL-OK: NIL
(CDAAR 'NIL)
EQL-OK: NIL
(CDADR 'NIL)
EQL-OK: NIL
(CDDAR 'NIL)
EQL-OK: NIL
(CDDDR 'NIL)
EQL-OK: NIL
(CAAAAR 'NIL)
EQL-OK: NIL
(CAAADR 'NIL)
EQL-OK: NIL
(CAADAR 'NIL)
EQL-OK: NIL
(CAADDR 'NIL)
EQL-OK: NIL
(CADAAR 'NIL)
EQL-OK: NIL
(CADADR 'NIL)
EQL-OK: NIL
(CADDAR 'NIL)
EQL-OK: NIL
(CADDDR 'NIL)
EQL-OK: NIL
(CDAAAR 'NIL)
EQL-OK: NIL
(CDAADR 'NIL)
EQL-OK: NIL
(CDADAR 'NIL)
EQL-OK: NIL
(CDADDR 'NIL)
EQL-OK: NIL
(CDDAAR 'NIL)
EQL-OK: NIL
(CDDADR 'NIL)
EQL-OK: NIL
(CDDDAR 'NIL)
EQL-OK: NIL
(CDDDDR 'NIL)
EQL-OK: NIL
(CAR '(A B C D E F G))
EQL-OK: A
(CDR '(A B C D E F G))
EQUAL-OK: (B C D E F G)
(CAAR '(A B C D E F G))
[SIMPLE-TYPE-ERROR]: CAAR: A is not a list
EQL-OK: ERROR
(CADR '(A B C D E F G))
EQL-OK: B
(CDAR '(A B C D E F G))
[SIMPLE-TYPE-ERROR]: CDAR: A is not a list
EQL-OK: ERROR
(CDDR '(A B C D E F G))
EQUAL-OK: (C D E F G)
(CAAAR '(A B C D E F G))
[SIMPLE-TYPE-ERROR]: CAAAR: A is not a list
EQL-OK: ERROR
(CAADR '(A B C D E F G))
[SIMPLE-TYPE-ERROR]: CAADR: B is not a list
EQL-OK: ERROR
(CADAR '(A B C D E F G))
[SIMPLE-TYPE-ERROR]: CADAR: A is not a list
EQL-OK: ERROR
(CADDR '(A B C D E F G))
EQL-OK: C
(CDAAR '(A B C D E F G))
[SIMPLE-TYPE-ERROR]: CDAAR: A is not a list
EQL-OK: ERROR
(CDADR '(A B C D E F G))
[SIMPLE-TYPE-ERROR]: CDADR: B is not a list
EQL-OK: ERROR
(CDDAR '(A B C D E F G))
[SIMPLE-TYPE-ERROR]: CDDAR: A is not a list
EQL-OK: ERROR
(CDDDR '(A B C D E F G))
EQUAL-OK: (D E F G)
(CAAAAR '(A B C D E F G))
[SIMPLE-TYPE-ERROR]: CAAAAR: A is not a list
EQL-OK: ERROR
(CAAADR '(A B C D E F G))
[SIMPLE-TYPE-ERROR]: CAAADR: B is not a list
EQL-OK: ERROR
(CAADAR '(A B C D E F G))
[SIMPLE-TYPE-ERROR]: CAADAR: A is not a list
EQL-OK: ERROR
(CAADDR '(A B C D E F G))
[SIMPLE-TYPE-ERROR]: CAADDR: C is not a list
EQL-OK: ERROR
(CADAAR '(A B C D E F G))
[SIMPLE-TYPE-ERROR]: CADAAR: A is not a list
EQL-OK: ERROR
(CADADR '(A B C D E F G))
[SIMPLE-TYPE-ERROR]: CADADR: B is not a list
EQL-OK: ERROR
(CADDAR '(A B C D E F G))
[SIMPLE-TYPE-ERROR]: CADDAR: A is not a list
EQL-OK: ERROR
(CADDDR '(A B C D E F G))
EQL-OK: D
(CDAAAR '(A B C D E F G))
[SIMPLE-TYPE-ERROR]: CDAAAR: A is not a list
EQL-OK: ERROR
(CDAADR '(A B C D E F G))
[SIMPLE-TYPE-ERROR]: CDAADR: B is not a list
EQL-OK: ERROR
(CDADAR '(A B C D E F G))
[SIMPLE-TYPE-ERROR]: CDADAR: A is not a list
EQL-OK: ERROR
(CDADDR '(A B C D E F G))
[SIMPLE-TYPE-ERROR]: CDADDR: C is not a list
EQL-OK: ERROR
(CDDAAR '(A B C D E F G))
[SIMPLE-TYPE-ERROR]: CDDAAR: A is not a list
EQL-OK: ERROR
(CDDADR '(A B C D E F G))
[SIMPLE-TYPE-ERROR]: CDDADR: B is not a list
EQL-OK: ERROR
(CDDDAR '(A B C D E F G))
[SIMPLE-TYPE-ERROR]: CDDDAR: A is not a list
EQL-OK: ERROR
(CDDDDR '(A B C D E F G))
EQUAL-OK: (E F G)
(CAR '(A))
EQL-OK: A
(CDR '(A))
EQL-OK: NIL
(CAAR '(A))
[SIMPLE-TYPE-ERROR]: CAAR: A is not a list
EQL-OK: ERROR
(CADR '(A))
EQL-OK: NIL
(CDAR '(A))
[SIMPLE-TYPE-ERROR]: CDAR: A is not a list
EQL-OK: ERROR
(CDDR '(A))
EQL-OK: NIL
(CAAAR '(A))
[SIMPLE-TYPE-ERROR]: CAAAR: A is not a list
EQL-OK: ERROR
(CAADR '(A))
EQL-OK: NIL
(CADAR '(A))
[SIMPLE-TYPE-ERROR]: CADAR: A is not a list
EQL-OK: ERROR
(CADDR '(A))
EQL-OK: NIL
(CDAAR '(A))
[SIMPLE-TYPE-ERROR]: CDAAR: A is not a list
EQL-OK: ERROR
(CDADR '(A))
EQL-OK: NIL
(CDDAR '(A))
[SIMPLE-TYPE-ERROR]: CDDAR: A is not a list
EQL-OK: ERROR
(CDDDR '(A))
EQL-OK: NIL
(CAAAAR '(A))
[SIMPLE-TYPE-ERROR]: CAAAAR: A is not a list
EQL-OK: ERROR
(CAAADR '(A))
EQL-OK: NIL
(CAADAR '(A))
[SIMPLE-TYPE-ERROR]: CAADAR: A is not a list
EQL-OK: ERROR
(CAADDR '(A))
EQL-OK: NIL
(CADAAR '(A))
[SIMPLE-TYPE-ERROR]: CADAAR: A is not a list
EQL-OK: ERROR
(CADADR '(A))
EQL-OK: NIL
(CADDAR '(A))
[SIMPLE-TYPE-ERROR]: CADDAR: A is not a list
EQL-OK: ERROR
(CADDDR '(A))
EQL-OK: NIL
(CDAAAR '(A))
[SIMPLE-TYPE-ERROR]: CDAAAR: A is not a list
EQL-OK: ERROR
(CDAADR '(A))
EQL-OK: NIL
(CDADAR '(A))
[SIMPLE-TYPE-ERROR]: CDADAR: A is not a list
EQL-OK: ERROR
(CDADDR '(A))
EQL-OK: NIL
(CDDAAR '(A))
[SIMPLE-TYPE-ERROR]: CDDAAR: A is not a list
EQL-OK: ERROR
(CDDADR '(A))
EQL-OK: NIL
(CDDDAR '(A))
[SIMPLE-TYPE-ERROR]: CDDDAR: A is not a list
EQL-OK: ERROR
(CDDDDR '(A))
EQL-OK: NIL
(CONS 1 2)
EQUAL-OK: (1 . 2)
(CONS 'A 'B)
EQUAL-OK: (A . B)
(CONS 'A 'B 'C)
[SIMPLE-SOURCE-PROGRAM-ERROR]: EVAL: too many arguments given to CONS: #1=(CONS 'A 'B 'C)
EQL-OK: ERROR
(CONS 'A)
[SIMPLE-SOURCE-PROGRAM-ERROR]: EVAL: too few arguments given to CONS: #1=(CONS 'A)
EQL-OK: ERROR
(CONS)
[SIMPLE-SOURCE-PROGRAM-ERROR]: EVAL: too few arguments given to CONS: #1=(CONS)
EQL-OK: ERROR
(CONS 'A 'NIL)
EQUAL-OK: (A)
(CONS 'NIL 'A)
EQUAL-OK: (NIL . A)
(CONS 'A (CONS 'B (CONS 'C 'NIL)))
EQUAL-OK: (A B C)
(CONS 'A '(B C D))
EQUAL-OK: (A B C D)
(TREE-EQUAL 1 1)
EQL-OK: T
(TREE-EQUAL 'WORD 'WORD)
EQL-OK: T
(TREE-EQUAL 'WORD1 'WORD2)
EQL-OK: NIL
(TREE-EQUAL '(A B) '(A B))
EQL-OK: T
(TREE-EQUAL '(A (B C)) '((A B) C))
EQL-OK: NIL
(TREE-EQUAL 5 (+ 2 3))
EQL-OK: T
(TREE-EQUAL '(A (B QUOTE NIL)) '(A (B)))
EQL-OK: NIL
(TREE-EQUAL '(A (B . 1.0)) '(A (B #C(1.0 0.0))))
EQL-OK: NIL
(TREE-EQUAL 1 1 :TEST #'EQ)
EQL-OK: T
(TREE-EQUAL 'WORD 'WORD :TEST #'EQ)
EQL-OK: T
(TREE-EQUAL 'WORD1 'WORD2 :TEST #'EQ)
EQL-OK: NIL
(TREE-EQUAL '(A B) '(A B) :TEST #'EQ)
EQL-OK: T
(TREE-EQUAL '(A (B C)) '((A B) C) :TEST #'EQ)
EQL-OK: NIL
(TREE-EQUAL 5 (+ 2 3) :TEST #'EQ)
EQL-OK: T
(TREE-EQUAL '(A (B)) '(A (B)) :TEST #'EQ)
EQL-OK: T
(TREE-EQUAL '(A (B . 1.0)) '(A (B #C(1.0 0.0))) :TEST #'EQ)
EQL-OK: NIL
(TREE-EQUAL 1 1 :TEST #'EQL)
EQL-OK: T
(TREE-EQUAL 'WORD 'WORD :TEST #'EQL)
EQL-OK: T
(TREE-EQUAL 'WORD1 'WORD2 :TEST #'EQL)
EQL-OK: NIL
(TREE-EQUAL '(A B) '(A B) :TEST #'EQL)
EQL-OK: T
(TREE-EQUAL '(A (B C)) '((A B) C) :TEST #'EQL)
EQL-OK: NIL
(TREE-EQUAL 5 (+ 2 3) :TEST #'EQL)
EQL-OK: T
(TREE-EQUAL '(A (B)) '(A (B)) :TEST #'EQL)
EQL-OK: T
(TREE-EQUAL '(A (B . 1.0)) '(A (B #C(1.0 0.0))) :TEST #'EQL)
EQL-OK: NIL
(TREE-EQUAL 1 1 :TEST #'EQUAL)
EQL-OK: T
(TREE-EQUAL 'WORD 'WORD :TEST #'EQUAL)
EQL-OK: T
(TREE-EQUAL 'WORD1 'WORD2 :TEST #'EQUAL)
EQL-OK: NIL
(TREE-EQUAL '(A B) '(A B) :TEST #'EQUAL)
EQL-OK: T
(TREE-EQUAL '(A (B C)) '((A B) C) :TEST #'EQUAL)
EQL-OK: NIL
(TREE-EQUAL 5 (+ 2 3) :TEST #'EQUAL)
EQL-OK: T
(TREE-EQUAL '(A (B)) '(A (B)) :TEST #'EQUAL)
EQL-OK: T
(TREE-EQUAL '(A (B . 1.0)) '(A (B #C(1.0 0.0))) :TEST #'EQUAL)
EQL-OK: NIL
(TREE-EQUAL 1 1 :TEST-NOT #'EQ)
EQL-OK: NIL
(TREE-EQUAL 'WORD 'WORD :TEST-NOT #'EQ)
EQL-OK: NIL
(TREE-EQUAL 'WORD1 'WORD2 :TEST-NOT #'EQ)
EQL-OK: T
(TREE-EQUAL '(A B) '(A B) :TEST-NOT #'EQ)
EQL-OK: NIL
(TREE-EQUAL '(A (B C)) '((A B) C) :TEST-NOT #'EQ)
EQL-OK: NIL
(TREE-EQUAL 5 (+ 2 3) :TEST-NOT #'EQ)
EQL-OK: NIL
(TREE-EQUAL '(A (B)) '(A (B)) :TEST-NOT #'EQ)
EQL-OK: NIL
(TREE-EQUAL '(A (B . 1.0)) '(A (B #C(1.0 0.0))) :TEST-NOT #'EQ)
EQL-OK: NIL
RUN-TEST: finished "lists151" (0 errors out of 201 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"lists152.tst" @1>
(ENDP 'NIL)
EQL-OK: T
(ENDP '(A . B))
EQL-OK: NIL
(ENDP '(A B . C))
EQL-OK: NIL
(ENDP '(A B C))
EQL-OK: NIL
(ENDP '(A B C D))
EQL-OK: NIL
(ENDP '(A B C . D))
EQL-OK: NIL
(ENDP '('NIL 'NIL))
EQL-OK: NIL
(LIST-LENGTH 'NIL)
EQL-OK: 0
(LIST-LENGTH '(A . B))
[SIMPLE-TYPE-ERROR]: LIST-LENGTH: A proper list must not end with B
EQL-OK: ERROR
(LIST-LENGTH '(A B C D))
EQL-OK: 4
(LIST-LENGTH '(A (B C) D))
EQL-OK: 3
(LET ((X (LIST 'A 'B 'C))) (RPLACD (LAST X) X) (LIST-LENGTH X))
EQL-OK: NIL
(NTH 0 '(A B C D))
EQL-OK: A
(NTH 1 '(A B C D))
EQL-OK: B
(NTH 3 '(A B C D))
EQL-OK: D
(NTH 5 '(A B C D))
EQL-OK: NIL
(NTH -2 '(A B C D))
[SIMPLE-TYPE-ERROR]: NTH: -2 is not a non-negative integer
EQL-OK: ERROR
(NTH 0 'NIL)
EQL-OK: NIL
(NTH 2 'NIL)
EQL-OK: NIL
(FIRST '(1 2 3 4 5 6 7 8 9 10 11))
EQL-OK: 1
(SECOND '(1 2 3 4 5 6 7 8 9 10 11))
EQL-OK: 2
(THIRD '(1 2 3 4 5 6 7 8 9 10 11))
EQL-OK: 3
(FOURTH '(1 2 3 4 5 6 7 8 9 10 11))
EQL-OK: 4
(FIFTH '(1 2 3 4 5 6 7 8 9 10 11))
EQL-OK: 5
(SIXTH '(1 2 3 4 5 6 7 8 9 10 11))
EQL-OK: 6
(SEVENTH '(1 2 3 4 5 6 7 8 9 10 11))
EQL-OK: 7
(EIGHTH '(1 2 3 4 5 6 7 8 9 10 11))
EQL-OK: 8
(NINTH '(1 2 3 4 5 6 7 8 9 10 11))
EQL-OK: 9
(TENTH '(1 2 3 4 5 6 7 8 9 10 11))
EQL-OK: 10
(FIRST '(1 2 3))
EQL-OK: 1
(SECOND '(1 2 3))
EQL-OK: 2
(THIRD '(1 2 3))
EQL-OK: 3
(FOURTH '(1 2 3))
EQL-OK: NIL
(FIFTH '(1 2 3))
EQL-OK: NIL
(SIXTH '(1 2 3))
EQL-OK: NIL
(SEVENTH '(1 2 3))
EQL-OK: NIL
(EIGHTH '(1 2 3))
EQL-OK: NIL
(NINTH '(1 2 3))
EQL-OK: NIL
(TENTH '(1 2 3))
EQL-OK: NIL
(FIRST 'NIL)
EQL-OK: NIL
(SECOND 'NIL)
EQL-OK: NIL
(THIRD 'NIL)
EQL-OK: NIL
(FOURTH 'NIL)
EQL-OK: NIL
(FIFTH 'NIL)
EQL-OK: NIL
(SIXTH 'NIL)
EQL-OK: NIL
(SEVENTH 'NIL)
EQL-OK: NIL
(EIGHTH 'NIL)
EQL-OK: NIL
(NINTH 'NIL)
EQL-OK: NIL
(TENTH 'NIL)
EQL-OK: NIL
(REST '(1 2 3 4 5))
EQUAL-OK: (2 3 4 5)
(REST 'NIL)
EQL-OK: NIL
(REST '(A . B))
EQL-OK: B
(REST '(1 2 3 . 4))
EQUAL-OK: (2 3 . 4)
(NTHCDR 0 '(A B C D))
EQUAL-OK: (A B C D)
(NTHCDR 1 '(A B C D))
EQUAL-OK: (B C D)
(NTHCDR 3 '(A B C D))
EQUAL-OK: (D)
(NTHCDR 5 '(A B C D))
EQL-OK: NIL
(NTHCDR -2 '(A B C D))
[SIMPLE-TYPE-ERROR]: NTHCDR: -2 is not a non-negative integer
EQL-OK: ERROR
(NTHCDR 0 'NIL)
EQL-OK: NIL
(NTHCDR 2 'NIL)
EQL-OK: NIL
(LAST '(1 2 3 4 5))
EQUAL-OK: (5)
(LAST 'NIL)
EQL-OK: NIL
(LAST '(A . B))
EQUAL-OK: (A . B)
(LAST '(1 2 3 . 4))
EQUAL-OK: (3 . 4)
(LIST 'A 'B 'C 'D)
EQUAL-OK: (A B C D)
(LIST 'A)
EQUAL-OK: (A)
(LIST '(A B) '(C D))
EQUAL-OK: ((A B) (C D))
(LIST 'A 'NIL)
EQUAL-OK: (A NIL)
(LIST 'NIL 'A)
EQUAL-OK: (NIL A)
(LIST 'NIL 'NIL)
EQUAL-OK: (NIL NIL)
(LIST)
EQL-OK: NIL
(LIST 3 4 'A (CAR '(B . C)) (+ 6 -2))
EQUAL-OK: (3 4 A B 4)
(LIST* 'A 'B 'C 'D)
EQUAL-OK: (A B C . D)
(LIST* 'A)
EQL-OK: A
(LIST* '(A B) '(C D))
EQUAL-OK: ((A B) C D)
(LIST* 'A 'NIL)
EQUAL-OK: (A)
(LIST* 'NIL 'A)
EQUAL-OK: (NIL . A)
(LIST* 'NIL 'NIL)
EQUAL-OK: (NIL)
(LIST*)
[SIMPLE-SOURCE-PROGRAM-ERROR]: EVAL: too few arguments given to LIST*: #1=(LIST*)
EQL-OK: ERROR
(LIST* 3 4 'A (CAR '(B . C)) (+ 6 -2))
EQUAL-OK: (3 4 A B . 4)
(LIST* 'A 'B 'C '(D E F))
EQUAL-OK: (A B C D E F)
(LIST* X)
[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable X has no value
EQL-OK: ERROR
(LIST* 'NIL)
EQL-OK: NIL
(MAKE-LIST 5)
EQUAL-OK: (NIL NIL NIL NIL NIL)
(MAKE-LIST 5 :INITIAL-ELEMENT)
[SIMPLE-PROGRAM-ERROR]: MAKE-LIST: keyword arguments in (:INITIAL-ELEMENT) should occur pairwise
EQL-OK: ERROR
(MAKE-LIST 3 :INITIAL-ELEMENT 'RAH)
EQUAL-OK: (RAH RAH RAH)
(MAKE-LIST 0)
EQL-OK: NIL
(MAKE-LIST 0 :INITIAL-ELEMENT 'AAA)
EQL-OK: NIL
(MAKE-LIST 5 :INITIAL-ELEMENT 'NIL)
EQUAL-OK: (NIL NIL NIL NIL NIL)
(MAKE-LIST)
[SIMPLE-SOURCE-PROGRAM-ERROR]: EVAL: too few arguments given to MAKE-LIST: #1=(MAKE-LIST)
EQL-OK: ERROR
(APPEND '(A B C) '(D E F) 'NIL '(G))
EQUAL-OK: (A B C D E F G)
(APPEND '(A B C) 'D)
EQUAL-OK: (A B C . D)
(APPEND 'A 'B)
[SIMPLE-TYPE-ERROR]: APPEND: A is not a list
EQL-OK: ERROR
(APPEND 'A 'NIL)
[SIMPLE-TYPE-ERROR]: APPEND: A is not a list
EQL-OK: ERROR
(APPEND 'NIL 'NIL)
EQL-OK: NIL
(APPEND 'NIL 'A)
EQL-OK: A
(APPEND 'NIL '(A B C))
EQUAL-OK: (A B C)
(SETQ X '(A B C))
EQUAL-OK: (A B C)
(SETQ Y '(D E F))
EQUAL-OK: (D E F)
(SETQ R (APPEND X Y))
EQUAL-OK: (A B C D E F)
X
EQUAL-OK: (A B C)
Y
EQUAL-OK: (D E F)
(EQ (CDDDR R) Y)
EQL-OK: T
(COPY-LIST '(1 2 3 4 5))
EQUAL-OK: (1 2 3 4 5)
(COPY-LIST 'NIL)
EQL-OK: NIL
(COPY-LIST '(A . B))
EQUAL-OK: (A . B)
(COPY-LIST '(1 2 3 . 4))
EQUAL-OK: (1 2 3 . 4)
(SETQ L '(1 2 3 4 5))
EQUAL-OK: (1 2 3 4 5)
(EQ L (COPY-LIST L))
EQL-OK: NIL
(EQL L (COPY-LIST L))
EQL-OK: NIL
(EQUAL L (COPY-LIST L))
EQL-OK: T
(EQUALP L (COPY-LIST L))
EQL-OK: T
(COPY-ALIST 'A)
[SIMPLE-TYPE-ERROR]: COPY-ALIST: A proper list must not end with A
EQL-OK: ERROR
(COPY-ALIST 'NIL)
EQL-OK: NIL
(COPY-ALIST 5)
[SIMPLE-TYPE-ERROR]: COPY-ALIST: A proper list must not end with 5
EQL-OK: ERROR
(COPY-ALIST '(A B))
EQUAL-OK: (A B)
(COPY-ALIST '((1 . A) (2 . B) (3 . C)))
EQUAL-OK: ((1 . A) (2 . B) (3 . C))
(SETQ X '((1 . A) (2 . B) (3 . C)))
EQUAL-OK: ((1 . A) (2 . B) (3 . C))
(EQ X (COPY-ALIST X))
EQL-OK: NIL
(EQL X (COPY-ALIST X))
EQL-OK: NIL
(EQUAL X (COPY-ALIST X))
EQL-OK: T
(EQ (CADR X) (CADR (COPY-ALIST X)))
EQL-OK: NIL
(EQL (CADR X) (CADR (COPY-ALIST X)))
EQL-OK: NIL
(EQUAL (CADR X) (CADR (COPY-ALIST X)))
EQL-OK: T
(COPY-ALIST '((1 . 2)) '((A . B)))
[SIMPLE-SOURCE-PROGRAM-ERROR]: EVAL: too many arguments given to COPY-ALIST: #1=(COPY-ALIST '((1 . 2)) '((A . B)))
EQL-OK: ERROR
(COPY-ALIST '((A B) C (D E)))
EQUAL-OK: ((A B) C (D E))
(COPY-TREE 'X)
EQL-OK: X
(COPY-TREE 5)
EQL-OK: 5
(COPY-TREE '(A B))
EQUAL-OK: (A B)
(COPY-TREE '(A B (C (D) (E F)) G))
EQUAL-OK: (A B (C (D) (E F)) G)
(COPY-TREE '((1 . E) (2 . F)))
EQUAL-OK: ((1 . E) (2 . F))
(COPY-TREE #*001)
EQUAL-OK: #*001
(SETQ X '(A B (C D) E))
EQUAL-OK: (A B (C D) E)
(EQ X (COPY-TREE X))
EQL-OK: NIL
(EQL X (COPY-TREE X))
EQL-OK: NIL
(EQUAL X (COPY-TREE X))
EQL-OK: T
(EQ (CDADDR X) (CDADDR (COPY-TREE X)))
EQL-OK: NIL
(EQL (CDADDR X) (CDADDR (COPY-TREE X)))
EQL-OK: NIL
(EQUAL (CDADDR X) (CDADDR (COPY-TREE X)))
EQL-OK: T
(REVAPPEND '(A B C) '(D E F) 'NIL '(G))
[SIMPLE-SOURCE-PROGRAM-ERROR]: EVAL: too many arguments given to REVAPPEND: #1=(REVAPPEND '(A B C) '(D E F) 'NIL '(G))
EQL-OK: ERROR
(REVAPPEND '(A B C) 'D)
EQUAL-OK: (C B A . D)
(REVAPPEND 'A 'B)
[SIMPLE-TYPE-ERROR]: REVAPPEND: A proper list must not end with A
EQL-OK: ERROR
(REVAPPEND 'A 'NIL)
[SIMPLE-TYPE-ERROR]: REVAPPEND: A proper list must not end with A
EQL-OK: ERROR
(REVAPPEND 'NIL 'NIL)
EQL-OK: NIL
(REVAPPEND 'NIL 'A)
EQL-OK: A
(REVAPPEND 'NIL '(A B C))
EQUAL-OK: (A B C)
(REVAPPEND '(A B C) '(D E F))
EQUAL-OK: (C B A D E F)
(REVAPPEND '(D E F) '(A B C))
EQUAL-OK: (F E D A B C)
(EQL (REVAPPEND '(A B C) '(D E F)) (APPEND (REVERSE '(A B C)) '(D E F)))
EQL-OK: NIL
(EQUAL (REVAPPEND '(A B C) '(D E F)) (APPEND (REVERSE '(A B C)) '(D E F)))
EQL-OK: T
(SETQ X '(A B C))
EQUAL-OK: (A B C)
(SETQ Y '(D E F))
EQUAL-OK: (D E F)
(SETQ R (REVAPPEND X Y))
EQUAL-OK: (C B A D E F)
X
EQUAL-OK: (A B C)
Y
EQUAL-OK: (D E F)
(EQ (CDDDR R) Y)
EQL-OK: T
(SETQ X '(A B C) Y '(D E F))
EQUAL-OK: (D E F)
(NCONC X Y)
EQUAL-OK: (A B C D E F)
X
EQUAL-OK: (A B C D E F)
(EQ (CDDDR X) Y)
EQL-OK: T
(SETQ X '(A B C) Y '(D E F) Z '(G H I))
EQUAL-OK: (G H I)
(NCONC)
EQL-OK: NIL
(NCONC X)
EQUAL-OK: (A B C)
(NCONC NIL)
EQL-OK: NIL
(NCONC NIL NIL)
EQL-OK: NIL
(NCONC X NIL)
EQUAL-OK: (A B C)
(NCONC NIL NIL NIL NIL)
EQL-OK: NIL
(NCONC NIL NIL X NIL)
EQUAL-OK: (A B C)
(NCONC X NIL Y NIL Z NIL)
EQUAL-OK: (A B C D E F G H I)
X
EQUAL-OK: (A B C D E F G H I)
Y
EQUAL-OK: (D E F G H I)
Z
EQUAL-OK: (G H I)
(EQ (CDDDR X) Y)
EQL-OK: T
(EQ (CDDDR Y) Z)
EQL-OK: T
(NCONC '(1 2) 'A)
EQUAL-OK: (1 2 . A)
(NCONC 'A)
EQL-OK: A
(SETQ X '(A B C) Y '(D E F))
EQUAL-OK: (D E F)
(NRECONC X Y)
EQUAL-OK: (C B A D E F)
X
EQUAL-OK: (C B A D E F)
(TAILP Y X)
EQL-OK: T
(SETQ X '(A B C) Y '(D E F) Z '(G H I))
EQUAL-OK: (G H I)
(NRECONC)
[SIMPLE-SOURCE-PROGRAM-ERROR]: EVAL: too few arguments given to NRECONC: #1=(NRECONC)
EQL-OK: ERROR
(NRECONC X)
[SIMPLE-SOURCE-PROGRAM-ERROR]: EVAL: too few arguments given to NRECONC: #1=(NRECONC X)
EQL-OK: ERROR
(NRECONC NIL)
[SIMPLE-SOURCE-PROGRAM-ERROR]: EVAL: too few arguments given to NRECONC: #1=(NRECONC NIL)
EQL-OK: ERROR
(NRECONC NIL NIL)
EQL-OK: NIL
(NRECONC X NIL)
EQUAL-OK: (C B A)
X
EQUAL-OK: (C B A)
(NRECONC NIL NIL NIL NIL)
[SIMPLE-SOURCE-PROGRAM-ERROR]: EVAL: too many arguments given to NRECONC: #1=(NRECONC NIL NIL NIL NIL)
EQL-OK: ERROR
(NCONC NIL 'X)
EQL-OK: X
(SETQ AA NIL)
EQL-OK: NIL
(PUSH '1 AA)
EQUAL-OK: (1)
(PUSH '2 AA)
EQUAL-OK: (2 1)
(PUSH '2 AA)
EQUAL-OK: (2 2 1)
(SETQ AA '(B A))
EQUAL-OK: (B A)
(PUSHNEW 'A AA)
EQUAL-OK: (B A)
(PUSHNEW 'C AA)
EQUAL-OK: (C B A)
(SETQ XXX NIL)
EQL-OK: NIL
(PUSHNEW 'C XXX :TEST 'EQUAL)
EQUAL-OK: (C)
(PUSHNEW 'C XXX :TEST 'EQUAL)
EQUAL-OK: (C)
(PUSHNEW '(C) XXX :TEST 'EQUAL)
EQUAL-OK: ((C) C)
XXX
EQUAL-OK: ((C) C)
(SETQ XX '(NIL KKK))
EQUAL-OK: (NIL KKK)
(PUSHNEW 'U (CAR XX))
EQUAL-OK: (U)
(PUSHNEW 'U (CAR XX))
EQUAL-OK: (U)
(PUSHNEW 'V (CAR XX))
EQUAL-OK: (V U)
XX
EQUAL-OK: ((V U) KKK)
(PUSHNEW '(W) (CAR XX))
EQUAL-OK: ((W) V U)
(PUSHNEW '(W) (CAR XX))
EQUAL-OK: ((W) (W) V U)
(PUSHNEW '(W) (CAR XX) :TEST 'EQUAL)
EQUAL-OK: ((W) (W) V U)
(PUSHNEW '(W) (CAR XX) :TEST-NOT 'EQUAL)
EQUAL-OK: ((W) (W) V U)
(SETQ AA '(1 2 3))
EQUAL-OK: (1 2 3)
(POP AA)
EQL-OK: 1
AA
EQUAL-OK: (2 3)
(POP AA)
EQL-OK: 2
(POP AA)
EQL-OK: 3
(POP AA)
EQL-OK: NIL
(POP AA)
EQL-OK: NIL
(BUTLAST '(A B C))
EQUAL-OK: (A B)
(BUTLAST '(A B C) 2)
EQUAL-OK: (A)
(NBUTLAST '(A B C D) 3)
EQUAL-OK: (A)
(NBUTLAST '(A B C D) 1)
EQUAL-OK: (A B C)
(NBUTLAST '(A B C D) 0)
EQUAL-OK: (A B C D)
(NBUTLAST '(A B C D) 4)
EQL-OK: NIL
(NBUTLAST '(A B C D) 6)
EQL-OK: NIL
(BUTLAST '#1=(1 2 3 . #1#) 3)
[SIMPLE-ERROR]: BUTLAST: #1=(1 2 3 . #1#) is a circular list
EQL-OK: ERROR
(LET ((LIST-1 (LIST 1 2 3)) (LIST-2 (LIST 'A 'B 'C))) (LIST (REVAPPEND LIST-1 LIST-2) (EQUAL LIST-1 '(1 2 3)) (EQUAL LIST-2 '(A B C))))
EQUAL-OK: ((3 2 1 A B C) T T)
(REVAPPEND '(1 2 3) 'NIL)
EQUAL-OK: (3 2 1)
(REVAPPEND '(1 2 3) '(A . B))
EQUAL-OK: (3 2 1 A . B)
(REVAPPEND 'NIL '(A B C))
EQUAL-OK: (A B C)
(REVAPPEND '(1 2 3) 'A)
EQUAL-OK: (3 2 1 . A)
(REVAPPEND 'NIL 'A)
EQL-OK: A
(LET ((LIST-1 (LIST '1 '2 '3)) (LIST-2 (LIST 'A 'B 'C))) (LIST (NRECONC LIST-1 LIST-2) (EQUAL LIST-1 '(1 2 3)) (EQUAL LIST-2 '(A B C))))
EQUAL-OK: ((3 2 1 A B C) NIL T)
(NCONC)
EQL-OK: NIL
(SETQ X '(A B C))
EQUAL-OK: (A B C)
(SETQ Y '(D E F))
EQUAL-OK: (D E F)
(NCONC X Y)
EQUAL-OK: (A B C D E F)
X
EQUAL-OK: (A B C D E F)
(SETQ FOO (LIST 'A 'B 'C 'D 'E) BAR (LIST 'F 'G 'H 'I 'J) BAZ (LIST 'K 'L 'M))
EQUAL-OK: (K L M)
(SETQ FOO (NCONC FOO BAR BAZ))
EQUAL-OK: (A B C D E F G H I J K L M)
FOO
EQUAL-OK: (A B C D E F G H I J K L M)
BAR
EQUAL-OK: (F G H I J K L M)
BAZ
EQUAL-OK: (K L M)
(SETQ FOO (LIST 'A 'B 'C 'D 'E) BAR (LIST 'F 'G 'H 'I 'J) BAZ (LIST 'K 'L 'M))
EQUAL-OK: (K L M)
(SETQ FOO (NCONC NIL FOO BAR NIL BAZ))
EQUAL-OK: (A B C D E F G H I J K L M)
FOO
EQUAL-OK: (A B C D E F G H I J K L M)
BAR
EQUAL-OK: (F G H I J K L M)
BAZ
EQUAL-OK: (K L M)
(APPEND '(A B C) '(D E F) 'NIL '(G))
EQUAL-OK: (A B C D E F G)
(APPEND '(A B C) 'D)
EQUAL-OK: (A B C . D)
(SETQ LST '(A B C))
EQUAL-OK: (A B C)
(APPEND LST '(D))
EQUAL-OK: (A B C D)
LST
EQUAL-OK: (A B C)
(APPEND)
EQL-OK: NIL
(APPEND 'A)
EQL-OK: A
(UNINTERN 'X)
EQL-OK: T
RUN-TEST: finished "lists152" (0 errors out of 255 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"lists153.tst" @1>
(UNLESS (AND (SEARCH " TYPECODES " (SOFTWARE-TYPE)) (<= (INTEGER-LENGTH MOST-POSITIVE-FIXNUM) 26)) (LET ((Z (MAKE-LIST 5000000))) (GC) (MAPCAR #'NULL Z) (GC) (SETQ Z NIL) (GC) NIL))
EQL-OK: NIL
RUN-TEST: finished "lists153" (0 errors out of 1 test)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"lists154.tst" @1>
(SUBST 'A 'B '(U B (B) C))
EQUAL-OK: (U A (A) C)
(SUBST 'A 'B '(U B (B) C) :TEST-NOT #'(LAMBDA (X Y) (IF (ATOM Y) (EQL X Y) T)))
EQUAL-OK: (A B (B . A) A . A)
(SUBST 'A 'B '(U B (B) C) :TEST #'(LAMBDA (X Y) (NOT (EQL X Y))))
EQL-OK: A
(SUBST 'A 'B '(U B (B) C) :TEST-NOT #'(LAMBDA (X Y) (NOT (EQL X Y))))
EQUAL-OK: (U A (A) C)
(SUBST 'A 'B '(U B (B) C) :TEST-NOT #'(LAMBDA (X Y) (NOT (EQL X Y))) :KEY #'(LAMBDA (U) (IF (LISTP U) (CAR U))))
EQUAL-OK: (U . A)
(SUBST-IF 'NUMMMER 'NUMBERP '((A (7 (V 6)))))
EQUAL-OK: ((A (NUMMMER (V NUMMMER))))
(SUBST-IF-NOT 'NUMMMER 'NUMBERP '((A (7 (V 6)))))
EQL-OK: NUMMMER
(SUBST-IF-NOT 'NUMMMER #'(LAMBDA (X) (AND (LISTP X) (NUMBERP X))) '((A (7 (V 6)))))
EQL-OK: NUMMMER
(SUBST-IF-NOT 'NUMMMER #'(LAMBDA (X) (OR (LISTP X) (NUMBERP X))) '((A (7 (V 6)))))
EQUAL-OK: ((NUMMMER (7 (NUMMMER 6))))
(NSUBST 'A 'B '(U B (B) C) :TEST-NOT #'(LAMBDA (X Y) (IF (ATOM Y) (EQL X Y) T)))
EQUAL-OK: (A B (B . A) A . A)
(NSUBST 'A 'B '(U B (B) C) :TEST-NOT #'(LAMBDA (X Y) (NOT (EQL X Y))))
EQUAL-OK: (U A (A) C)
(NSUBST 'A 'B '(U B (B) C) :TEST #'(LAMBDA (X Y) (NOT (EQL X Y))))
EQL-OK: A
(NSUBST-IF 'OO 'NUMBERP '(A B C (3 (4) 0)))
EQUAL-OK: (A B C (OO (OO) OO))
(NSUBST-IF-NOT 'OO 'NUMBERP '(A B C (3 (4) 0)))
EQL-OK: OO
(NSUBST-IF-NOT 'OO #'(LAMBDA (X) (OR (ATOM X) (NUMBERP X))) '(A B C (3 (4) 0)))
EQL-OK: OO
(NSUBST-IF-NOT 'OO #'(LAMBDA (X) (AND (ATOM X) (NUMBERP X))) '(A B C (3 (4) 0)))
EQL-OK: OO
(NSUBST-IF-NOT 'OO #'(LAMBDA (X) (OR (LIST X) (NUMBERP X))) '(A B C (3 (4) 0)))
EQUAL-OK: (A B C (3 (4) 0))
(NSUBST-IF-NOT 'OO #'(LAMBDA (X) (OR (LIST X) (SYMBOLP X))) '(A B C (3 (4) 0)))
EQUAL-OK: (A B C (3 (4) 0))
(SUBLIS '((A . A1) (B . B1)) '(A B))
EQUAL-OK: (A1 B1)
(SUBLIS '((A . A1) (B . B1)) '(A B (B . C)))
EQUAL-OK: (A1 B1 (B1 . C))
(SUBLIS '((A . A1) (B . B1) (NIL . NIL1)) '(A B (B . C)))
EQUAL-OK: (A1 B1 (B1 . C) . NIL1)
(SUBLIS '((A . A1) (B . B1) (NIL . NIL1)) '(A B (B C)))
EQUAL-OK: (A1 B1 (B1 C . NIL1) . NIL1)
(SUBLIS '((A . A1) (B . B1) (NIL . NIL1)) '(A B (B C)) :TEST-NOT 'EQL)
EQL-OK: A1
(SUBLIS '((A . A1) (B . B1) (NIL . NIL1)) '(A B (B C)) :TEST-NOT #'(LAMBDA (X Y) (IF (ATOM Y) (EQL X Y))))
EQL-OK: A1
(SUBLIS '(((A) . UU) (A . II)) '(I (A) A))
EQUAL-OK: (I (II) II)
(SUBLIS '(((A) . UU) (A . II)) '(I (A) A) :KEY #'(LAMBDA (X) (IF (LISTP X) (CAR X))))
EQUAL-OK: (I II . II)
(SUBLIS '((1 . 2) (2 . 4) (3 . 6) (A . AA) (B . BB) (C . CC) (D . DD)) '((A B (C (D 1) 2 (3)))))
EQUAL-OK: ((AA BB (CC (DD 2) 4 (6))))
(SUBLIS '((1 . 2) (2 . 4) (3 . 6) (A . AA) (B . BB) (C . CC) (D . DD)) '((A B (C (D 1) 2 (3)))) :TEST #'(LAMBDA (X Y) (AND (NUMBERP X) (NUMBERP Y) (= X Y))))
EQUAL-OK: ((A B (C (D 2) 4 (6))))
(SUBLIS '((1 . 2) (2 . 4) (3 . 6) (A . AA) (B . BB) (C . CC) (D . DD)) '((A B (C (D 1) 2 (3)))) :TEST #'EQUALP :KEY #'(LAMBDA (X) (AND (SYMBOLP X) X)))
EQUAL-OK: ((AA BB (CC (DD 1) 2 (3))))
(SUBLIS '(((A) . UU) (A . II)) '(I (A) A) :TEST #'(LAMBDA (X Y) (IF (LISTP Y) (EQL X (CAR Y)))))
EQUAL-OK: (I (UU) UU)
(NSUBLIS '(((A) . UU) (A . II)) '(I (A) A) :KEY #'(LAMBDA (X) (IF (LISTP X) (CAR X))))
EQUAL-OK: (I II . II)
(NSUBLIS '(((A) . UU) (A . II)) '(I (A) A) :TEST #'(LAMBDA (X Y) (IF (LISTP X) (EQUAL X Y))))
EQUAL-OK: (I UU . UU)
(NSUBLIS '(((A) . UU) (A . II)) '(I (A) A) :TEST #'(LAMBDA (X Y) (IF (LISTP Y) (EQUAL X Y))))
EQUAL-OK: (I UU . UU)
(NSUBLIS '(((A) . UU) (A . II)) '(I (A) A) :TEST #'(LAMBDA (X Y) (IF (LISTP Y) (EQL X (CAR Y)))))
EQUAL-OK: (I (UU) UU)
(SUBLIS '((X . 100) (Z . ZPRIME)) '(PLUS X (MINUS G Z X P) 4 . X))
EQUAL-OK: (PLUS 100 (MINUS G ZPRIME 100 P) 4 . 100)
(SUBLIS '(((+ X Y) - X Y) ((- X Y) + X Y)) '(* (/ (+ X Y) (+ X P)) (- X Y)) :TEST #'EQUAL)
EQUAL-OK: (* (/ (- X Y) (+ X P)) (+ X Y))
(SETQ TREE1 '(1 (1 2) ((1 2 3)) (((1 2 3 4)))))
EQUAL-OK: (1 (1 2) ((1 2 3)) (((1 2 3 4))))
(SUBLIS '((3 . "three")) TREE1)
EQUAL-OK: (1 (1 2) ((1 2 "three")) (((1 2 "three" 4))))
(SUBLIS '((T . "string")) (SUBLIS '((1 . "") (4 . 44)) TREE1) :KEY #'STRINGP)
EQUAL-OK: ("string" ("string" 2) (("string" 2 3)) ((("string" 2 3 44))))
TREE1
EQUAL-OK: (1 (1 2) ((1 2 3)) (((1 2 3 4))))
(SETQ TREE2 '("one" ("one" "two") (("one" "Two" "three"))))
EQUAL-OK: ("one" ("one" "two") (("one" "Two" "three")))
(SUBLIS '(("two" . 2)) TREE2)
EQUAL-OK: ("one" ("one" "two") (("one" "Two" "three")))
TREE2
EQUAL-OK: ("one" ("one" "two") (("one" "Two" "three")))
(SUBLIS '(("two" . 2)) TREE2 :TEST 'EQUAL)
EQUAL-OK: ("one" ("one" 2) (("one" "Two" "three")))
(NSUBLIS '((T QUOTE TEMP)) TREE1 :KEY #'(LAMBDA (X) (OR (ATOM X) (< (LIST-LENGTH X) 3))))
EQUAL-OK: ('TEMP 'TEMP QUOTE TEMP)
(NTHCDR (1+ MOST-POSITIVE-FIXNUM) '(1 2 3))
EQL-OK: NIL
RUN-TEST: finished "lists154" (0 errors out of 46 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"lists155.tst" @1>
(MEMBER 'A '((A) (B) (A) (C)))
EQL-OK: NIL
(MEMBER 'A '((A) (B) (A) (C)) :KEY 'CAR)
EQUAL-OK: ((A) (B) (A) (C))
(MEMBER-IF 'NUMBERP '((A) (B) (3) (C)) :KEY 'CAR)
EQUAL-OK: ((3) (C))
(MEMBER-IF-NOT 'NUMBERP '((8) (A) (B) (3) (C)) :KEY 'CAR)
EQUAL-OK: ((A) (B) (3) (C))
(TAILP '(A B) '(U A B))
EQL-OK: NIL
(TAILP (CDDR (SETQ XX '(U I A B))) XX)
EQL-OK: T
(TAILP (CDDR (SETQ XX '(U I A B))) XX)
EQL-OK: T
(ADJOIN 'A '(A B C))
EQUAL-OK: (A B C)
(ADJOIN 'A '((A) B C) :TEST 'EQUAL)
EQUAL-OK: (A (A) B C)
(ADJOIN 'A '((A) B C) :TEST 'EQUAL)
EQUAL-OK: (A (A) B C)
(UNION '(A B C D) '(A D I V))
EQUAL-OK: (B C A D I V)
(NUNION '(A B C D) '(U I B A))
EQUAL-OK: (C D U I B A)
(NINTERSECTION '(A B C D) '(C D E F G))
EQUAL-OK: (C D)
(NINTERSECTION '(A B C D) '(C D E F G) :TEST-NOT 'EQL)
EQUAL-OK: (A B C D)
(SET-DIFFERENCE '(A B C D E) '(D B E))
EQUAL-OK: (A C)
(SET-DIFFERENCE '(AUTO ANTON BERTA BERLIN) '(A) :TEST #'(LAMBDA (X Y) (EQL (ELT (SYMBOL-NAME X) 1) (ELT (SYMBOL-NAME Y) 1))))
[SIMPLE-TYPE-ERROR]: ELT: index 1 for "A" is out of range
EQL-OK: ERROR
(SET-DIFFERENCE '(ANTON BERTA AUTO BERLIN) '(AMERILLA) :TEST #'(LAMBDA (X Y) (EQL (ELT (SYMBOL-NAME X) 0) (ELT (SYMBOL-NAME Y) 0))))
EQUAL-OK: (BERTA BERLIN)
(NSET-DIFFERENCE '(A B C D) '(I J C))
EQUAL-OK: (A B D)
(SET-EXCLUSIVE-OR '(A B C D) '(C A I L))
EQUAL-OK: (B D I L)
(SET-EXCLUSIVE-OR '(ANTON ANNA EMIL) '(BERTA AUTO AUGUST) :TEST #'(LAMBDA (X Y) (EQL (ELT (SYMBOL-NAME X) 0) (ELT (SYMBOL-NAME Y) 0))))
EQUAL-OK: (EMIL BERTA)
(NSET-EXCLUSIVE-OR '(A B C) '(I A D C))
EQUAL-OK: (B I D)
(SUBSETP '(A B) '(B U I A C D))
EQL-OK: T
(SUBSETP '(A B) '(B U I C D))
EQL-OK: NIL
(SUBSETP '(A B) '(B A U I C D))
EQL-OK: T
(SUBSETP '(A B) '(A U I C D))
EQL-OK: NIL
RUN-TEST: finished "lists155" (0 errors out of 25 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"lists156.tst" @1>
(ACONS 'A 'B NIL)
EQUAL-OK: ((A . B))
(ACONS 'A 'B '((C . D)))
EQUAL-OK: ((A . B) (C . D))
(PAIRLIS '(A B C) '(1 2))
[SIMPLE-ERROR]: PAIRLIS: lists (A B C) and (1 2) are not of same length
EQL-OK: ERROR
(PAIRLIS '(A B C) '(1 2 3))
EQUAL-OK: ((C . 3) (B . 2) (A . 1))
(ASSOC 'A '((B C) (A U) (A I)))
EQUAL-OK: (A U)
(ASSOC 'A '((B C) ((A) U) (A I)))
EQUAL-OK: (A I)
(ASSOC 'A '((B C) ((A) U) (A I)) :KEY #'(LAMBDA (X) (IF (LISTP X) (CAR X))))
EQUAL-OK: ((A) U)
(ASSOC 'A '((B C) A ((A) U) (A I)) :KEY #'(LAMBDA (X) (IF (LISTP X) (CAR X))))
[SIMPLE-TYPE-ERROR]: ASSOC: A is not a list
EQL-OK: ERROR
(ASSOC 'A '((B C) A ((A) U) (A I)) :KEY #'(LAMBDA (X) (IF (ATOM X) X)))
[SIMPLE-TYPE-ERROR]: ASSOC: A is not a list
EQL-OK: ERROR
(ASSOC 'A '((B C) A ((A) U) (A I)) :TEST #'(LAMBDA (X Y) (IF (LISTP Y) (EQL (CAR Y) X))))
[SIMPLE-TYPE-ERROR]: ASSOC: A is not a list
EQL-OK: ERROR
(ASSOC 'A '((B C) A ((A) U) (A I)) :TEST #'(LAMBDA (X Y) (IF (ATOM Y) (EQL Y X))))
[SIMPLE-TYPE-ERROR]: ASSOC: A is not a list
EQL-OK: ERROR
(ASSOC 'A '((B C) A ((A) U) (A I)) :TEST-NOT #'(LAMBDA (X Y) (IF (ATOM Y) (EQL Y X))))
EQUAL-OK: (B C)
(ASSOC-IF 'NUMBERP '((A . 3) (3 . A)))
EQUAL-OK: (3 . A)
(ASSOC-IF 'SYMBOLP '((A . 3) (3 . A)))
EQUAL-OK: (A . 3)
(ASSOC-IF-NOT 'SYMBOLP '((A . 3) (3 . A)))
EQUAL-OK: (3 . A)
(ASSOC-IF-NOT 'NUMBERP '((A . 3) (3 . A)))
EQUAL-OK: (A . 3)
(RASSOC 'A '((1 . B) (2 . A)))
EQUAL-OK: (2 . A)
(RASSOC-IF 'SYMBOLP '((1 . B) (2 . A)))
EQUAL-OK: (1 . B)
(RASSOC-IF 'SYMBOLP '((1 . 3) (2 . A)))
EQUAL-OK: (2 . A)
(RASSOC-IF-NOT 'SYMBOLP '((1 . 3) (2 . A)))
EQUAL-OK: (1 . 3)
RUN-TEST: finished "lists156" (0 errors out of 20 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"list-set.tst" @1>
(SET-DIFFERENCE '(A B C) '(A))
EQUAL-OK: (B C)
(SET-DIFFERENCE (LOOP :FOR I :FROM 1 :TO 100 :COLLECT I) (LOOP :FOR I :FROM 1 :TO 99 :COLLECT I) :TEST 'EQUALP)
EQUAL-OK: (100)
(INTERSECTION '(1 2 3) '(A B C))
EQL-OK: NIL
(INTERSECTION '(1 2 3) '(2 3 4))
EQUAL-OK: (2 3)
(UNION '(1 2 3) '(A B C))
EQUAL-OK: (1 2 3 A B C)
(UNION '(1 2 3) '(2 3 4))
EQUAL-OK: (1 2 3 4)
(SET-EXCLUSIVE-OR (LOOP :FOR I :FROM 1 :TO 100 :COLLECT I) (LOOP :FOR I :FROM 2 :TO 99 :COLLECT I))
EQUAL-OK: (1 100)
(SET-EXCLUSIVE-OR (LOOP :FOR I :FROM 1 :TO 100 :COLLECT (PRINC-TO-STRING I)) (LOOP :FOR I :FROM 2 :TO 99 :COLLECT (PRINC-TO-STRING I)) :TEST #'EQUALP)
EQUAL-OK: ("1" "100")
(SUBSETP (LOOP :FOR I :FROM 1 :TO 100 :COLLECT I) (LOOP :FOR I :FROM 1 :TO 99 :COLLECT I))
EQL-OK: NIL
(SUBSETP (LOOP :FOR I :FROM 1 :TO 99 :COLLECT I) (LOOP :FOR I :FROM 1 :TO 100 :COLLECT I))
EQL-OK: T
RUN-TEST: finished "list-set" (0 errors out of 10 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"loop.tst" @1>
(HANDLER-CASE (LET ((I 2)) (LOOP FOR I FROM 1 BELOW 20 BY I COLLECT I)) (WARNING (W) (PRINC-TO-STRING W)))
EQUAL-OK: "Reference to I is implementation-dependent, per ANSI CL 6.1.1.4."
(HANDLER-CASE (LET ((J 5)) (LOOP FOR I FROM 1 TO J FOR J FROM 11 TO 20 COLLECT (LIST I J))) (WARNING (W) (PRINC-TO-STRING W)))
EQUAL-OK: "Reference to J is implementation-dependent, per ANSI CL 6.1.1.4."
(HANDLER-CASE (LET ((I 2)) (LOOP FOR A IN (LIST I I) FOR I FROM 1 TO 2 COLLECT A)) (WARNING (W) (PRINC-TO-STRING W)))
EQUAL-OK: "Reference to I is implementation-dependent, per ANSI CL 6.1.1.4."
(HANDLER-CASE (LET ((J #'CDR)) (LOOP FOR I IN '(A B C) BY J FOR J IN (LIST #'CDDR #'CDDR #'CDDR) COLLECT (PROG1 I J))) (WARNING (W) (PRINC-TO-STRING W)))
EQUAL-OK: "Reference to J is implementation-dependent, per ANSI CL 6.1.1.4."
(HANDLER-CASE (LET ((I 2)) (LOOP FOR A ON (LIST I I) FOR I FROM 1 TO 2 COLLECT A)) (WARNING (W) (PRINC-TO-STRING W)))
EQUAL-OK: "Reference to I is implementation-dependent, per ANSI CL 6.1.1.4."
(HANDLER-CASE (LET ((J (LIST #'CDR))) (LOOP FOR I ON '(A B C) BY (CAR J) FOR J ON (LIST #'CDDR #'CDDR #'CDDR) COLLECT (PROG1 I J))) (WARNING (W) (PRINC-TO-STRING W)))
EQUAL-OK: "Reference to J is implementation-dependent, per ANSI CL 6.1.1.4."
(HANDLER-CASE (LET ((I 2)) (LOOP FOR A ACROSS (VECTOR I I) FOR I FROM 1 TO 2 COLLECT A)) (WARNING (W) (PRINC-TO-STRING W)))
EQUAL-OK: "Reference to I is implementation-dependent, per ANSI CL 6.1.1.4."
(HANDLER-CASE (LET ((I 2)) (LOOP FOR K BEING EACH HASH-KEY OF (LET ((HT (MAKE-HASH-TABLE))) (SETF (GETHASH I HT) T) HT) FOR I FROM 1 TO 2 COLLECT K)) (WARNING (W) (PRINC-TO-STRING W)))
EQUAL-OK: "Reference to I is implementation-dependent, per ANSI CL 6.1.1.4."
(HANDLER-CASE (LET ((I 2)) (LOOP FOR S BEING EACH EXTERNAL-SYMBOL OF (FIND-PACKAGE (IF (= I 1) "COMMON-LISP" "COMMON-LISP-USER")) FOR I FROM 1 TO 2 COLLECT S)) (WARNING (W) (PRINC-TO-STRING W)))
EQUAL-OK: "Reference to I is implementation-dependent, per ANSI CL 6.1.1.4."
(LOOP FOR X FROM 1 TO 9 FOR Y = NIL THEN X COLLECT (LIST X Y))
EQUAL-OK: ((1 NIL) (2 2) (3 3) (4 4) (5 5) (6 6) (7 7) (8 8) (9 9))
(LOOP FOR X FROM 1 TO 9 AND Y = NIL THEN X COLLECT (LIST X Y))
EQUAL-OK: ((1 NIL) (2 1) (3 2) (4 3) (5 4) (6 5) (7 6) (8 7) (9 8))
(WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (LOOP AS I FROM 1 TO 5 DO (PRINC I)))
EQUAL-OK: "12345"
(WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (LOOP FOR I FROM 10 DOWNTO 1 BY 3 DO (PRINC I)))
EQUAL-OK: "10741"
(WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (LOOP AS I BELOW 5 DO (PRINC I)))
EQUAL-OK: "01234"
(WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (LOOP FOR ITEM IN '(1 2 3 4 5) DO (PRINC ITEM)))
EQUAL-OK: "12345"
(WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (LOOP FOR ITEM IN '(1 2 3 4 5) BY #'CDDR DO (PRINC ITEM)))
EQUAL-OK: "135"
(LOOP FOR (ITEM . X) (T . FIXNUM) IN '((A . 1) (B . 2) (C . 3)) UNLESS (EQ ITEM 'B) SUM X)
EQL-OK: 4
(LOOP FOR SUBLIST ON '(A B C D) COLLECT SUBLIST)
EQUAL-OK: ((A B C D) (B C D) (C D) (D))
(WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (LOOP FOR (ITEM) ON '(1 2 3) DO (PRINC ITEM)))
EQUAL-OK: "123"
(WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (LOOP FOR ITEM IN '(1 2 3) DO (PRINC ITEM)))
EQUAL-OK: "123"
(LOOP FOR X ON '(1 2 . 3) COLLECT X)
EQUAL-OK: ((1 2 . 3) (2 . 3))
(LOOP FOR I BELOW 5 FOR J = 10 THEN I COLLECT J)
EQUAL-OK: (10 1 2 3 4)
(LOOP FOR I BELOW 5 FOR J = I COLLECT J)
EQUAL-OK: (0 1 2 3 4)
(LOOP FOR ITEM = 1 THEN (+ ITEM 10) REPEAT 5 COLLECT ITEM)
EQUAL-OK: (1 11 21 31 41)
(LOOP FOR CHAR ACROSS (THE SIMPLE-STRING "Hello") COLLECT CHAR)
EQUAL-OK: (#\H #\e #\l #\l #\o)
(WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (LOOP REPEAT 3 DO (WRITE-LINE "What I say three times is true")))
EQUAL-OK: "What I say three times is true
What I say three times is true
What I say three times is true
"
(WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (LOOP REPEAT -15 DO (WRITE-LINE "What you see is what you expect")))
EQUAL-OK: ""
(LOOP FOR I FIXNUM FROM 3 WHEN (ODDP I) COLLECT I WHILE (< I 5))
EQUAL-OK: (3 5)
(LOOP FOR I FROM 0 TO 10 ALWAYS (< I 11))
EQL-OK: T
(LOOP FOR I FROM 0 TO 10 NEVER (> I 11))
EQL-OK: T
(LOOP FOR I FROM 0 THEREIS (WHEN (> I 10) I))
EQL-OK: 11
(WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (LOOP FOR I FROM 0 TO 10 ALWAYS (< I 9) FINALLY (PRINT "You won't see this")))
EQUAL-OK: ""
(WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (LOOP NEVER T FINALLY (PRINT "You won't see this")))
EQUAL-OK: ""
(WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (LOOP THEREIS "Here is my value" FINALLY (PRINT "You won't see this")))
EQUAL-OK: ""
(LOOP THEREIS "Here is my value" FINALLY (PRINT "You won't see this"))
EQUAL-OK: "Here is my value"
(WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (LOOP FOR I FROM 1 TO 10 THEREIS (> I 11) FINALLY (PRINC I)))
EQUAL-OK: "11"
(LET (EVEREST CHOCORUA SAHARA) (DEFSTRUCT MOUNTAIN HEIGHT DIFFICULTY (WHY "because it is there")) (SETQ EVEREST (MAKE-MOUNTAIN :HEIGHT '(2.86E-13 PARSECS))) (SETQ CHOCORUA (MAKE-MOUNTAIN :HEIGHT '(1059180001 MICRONS))) (DEFSTRUCT DESERT AREA (HUMIDITY 0)) (SETQ SAHARA (MAKE-DESERT :AREA '(212480000 SQUARE FURLONGS))) (LOOP FOR X IN (LIST EVEREST SAHARA CHOCORUA) THEREIS (AND (MOUNTAIN-P X) (MOUNTAIN-HEIGHT X))))
EQUAL-OK: (2.86E-13 PARSECS)
(WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (LOOP FOR (MONTH DATE-LIST) IN '((JANUARY (24 28)) (FEBRUARY (17 29 12))) DO (LOOP FOR DATE IN DATE-LIST DO (CASE DATE (29 (WHEN (EQ MONTH 'FEBRUARY) (LOOP-FINISH)))) DO (FORMAT T "~:(~A~) ~A~%" MONTH DATE))))
EQUAL-OK: "January 24
January 28
February 17
"
(LOOP FOR I IN '(1 2 3 STOP-HERE 4 5 6) WHEN (SYMBOLP I) DO (LOOP-FINISH) COUNT I)
EQL-OK: 3
(LOOP FOR I IN '(1 2 3 STOP-HERE 4 5 6) UNTIL (SYMBOLP I) COUNT I)
EQL-OK: 3
(LOOP FOR NAME IN '(FRED SUE ALICE JOE JUNE) FOR KIDS IN '((BOB KEN) NIL NIL (KRIS SUNSHINE) NIL) COLLECT NAME APPEND KIDS)
EQUAL-OK: (FRED BOB KEN SUE ALICE JOE KRIS SUNSHINE JUNE)
(MULTIPLE-VALUE-LIST (LOOP FOR NAME IN '(FRED SUE ALICE JOE JUNE) AS AGE IN '(22 26 19 20 10) APPEND (LIST NAME AGE) INTO NAME-AND-AGE-LIST COUNT NAME INTO NAME-COUNT SUM AGE INTO TOTAL-AGE FINALLY (RETURN (VALUES (ROUND TOTAL-AGE NAME-COUNT) NAME-AND-AGE-LIST))))
EQUAL-OK: (19 (FRED 22 SUE 26 ALICE 19 JOE 20 JUNE 10))
(LOOP FOR X FROM 1 TO 20 WHEN (EQL (MOD X 5) 0) COLLECT X INTO FOO WHEN (EQL (MOD X 5) 2) COLLECT X INTO FOO FINALLY (RETURN FOO))
EQUAL-OK: (2 5 7 10 12 15 17 20)
(LOOP FOR I IN '(BIRD 3 4 TURTLE (1 . 4) HORSE CAT) WHEN (SYMBOLP I) COLLECT I)
EQUAL-OK: (BIRD TURTLE HORSE CAT)
(LOOP FOR I FROM 1 TO 10 IF (ODDP I) COLLECT I)
EQUAL-OK: (1 3 5 7 9)
(WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (LOOP FOR I IN '(A B C D) BY #'CDDR COLLECT I INTO MY-LIST FINALLY (PRINC MY-LIST)))
EQUAL-OK: "(A C)"
(LOOP FOR X IN '((A) (B) ((C))) APPEND X)
EQUAL-OK: (A B (C))
(LOOP FOR I UPFROM 0 AS X IN '(A B (C)) NCONC (IF (EVENP I) (LIST X) 'NIL))
EQUAL-OK: (A (C))
(LOOP FOR X IN '((A) (B) (C . WHATEVER)) APPENDING X)
EQUAL-OK: (A B C . WHATEVER)
(LOOP FOR X IN '((A) (B) (C . WHATEVER)) NCONC X)
EQUAL-OK: (A B C . WHATEVER)
(LOOP FOR X IN '(A B C D E) NCONC (CONS X 'FOO))
EQUAL-OK: (A B C D E . FOO)
(LOOP FOR I IN '(A B NIL C NIL D E) COUNT I)
EQL-OK: 5
(LOOP FOR I FIXNUM IN '(1 2 3 4 5) SUM I)
EQL-OK: 15
(LET ((SERIES '(1.2 4.3 5.7))) (LOOP FOR V IN SERIES SUM (* 2.0 V)))
EQL-OK: 22.4
(LOOP FOR I IN '(2 1 5 3 4) MAXIMIZE I)
EQL-OK: 5
(LOOP FOR I IN '(2 1 5 3 4) MINIMIZE I)
EQL-OK: 1
(LET ((SERIES '(1.2 4.3 5.7))) (LOOP FOR V IN SERIES MAXIMIZE (ROUND V) FIXNUM))
EQL-OK: 6
(LET ((SERIES '(1.2 4.3 5.7))) (LOOP FOR V IN SERIES MINIMIZE (ROUND V) INTO RESULT FIXNUM FINALLY (RETURN RESULT)))
EQL-OK: 1
(LOOP WITH A = 1 WITH B = (+ A 2) WITH C = (+ B 3) WITH D = (+ C 4) RETURN (LIST A B C D))
EQUAL-OK: (1 3 6 10)
(LOOP WITH A = 1 AND B = 2 AND C = 3 AND D = 4 RETURN (LIST A B C D))
EQUAL-OK: (1 2 3 4)
(LET ((A 5) (B 10) (C 1729)) (LOOP WITH A = 1 AND B = (+ A 2) AND C = (+ B 3) AND D = (+ C 4) RETURN (LIST A B C D)))
EQUAL-OK: (1 7 13 1733)
(LOOP WITH (A B C) (FLOAT INTEGER FLOAT) RETURN (FORMAT NIL "~A ~A ~A" A B C))
WARNING: LOOP: After (A B C), (FLOAT INTEGER FLOAT) is interpreted as a type
         specificationEQUAL-OK: "0.0 0 0.0"
(LOOP WITH (A B C) FLOAT RETURN (FORMAT NIL "~A ~A ~A" A B C))
EQUAL-OK: "0.0 0.0 0.0"
(LET ((NUMBERS-LIST '(3 2 4 6 1 7 8)) (RESULTS NIL)) (CONS (WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (LOOP FOR I IN NUMBERS-LIST WHEN (ODDP I) DO (PRINC I) AND COLLECT I INTO ODD-NUMBERS AND DO (TERPRI) ELSE COLLECT I INTO EVEN-NUMBERS FINALLY (SETQ RESULTS (LIST ODD-NUMBERS EVEN-NUMBERS)))) RESULTS))
EQUAL-OK: ("3
1
7
" (3 1 7) (2 4 6 8))
(LOOP FOR I IN '(1 2 3 4 5 6) WHEN (AND (> I 3) I) COLLECT IT)
EQUAL-OK: (4 5 6)
(LOOP FOR I IN '(1 2 3 4 5 6) WHEN (AND (> I 3) I) RETURN IT)
EQL-OK: 4
(LOOP FOR I IN '(1 2 3 4 5 6) WHEN (AND (> I 3) I) RETURN IT)
EQL-OK: 4
(LOOP FOR I IN '(1 2 3 4 5 6) THEREIS (AND (> I 3) I))
EQL-OK: 4
(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))))
EQUAL-OK: ((3.0 9.8) (0 4 5) (APPLE ORANGE BANANA))
(LET ((IT 'Z)) (LOOP FOR X IN '(A NIL B C D) IF X COLLECT IT END COLLECT IT))
EQUAL-OK: (A Z Z B Z C Z D Z)
(LET ((IT 'Z)) (LOOP FOR X IN '(A NIL B C D) WHEN X COLLECT IT AND COLLECT IT))
EQUAL-OK: (A Z B Z C Z D Z)
(LOOP FOR I IN '(1 2 3 4 5 6) THEREIS (AND (> I 3) I))
EQL-OK: 4
(WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (LOOP FOR X FROM 0 TO 3 DO (PRINC X) IF (ZEROP (MOD X 2)) DO (WRITE-STRING " a ") AND IF (ZEROP (FLOOR X 2)) DO (WRITE-STRING " b ") AND DO (WRITE-STRING " c ")))
EQUAL-OK: "0 a  b  c 12 a 3"
(WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (LOOP FOR X FROM 0 TO 3 DO (PRINC X) IF (ZEROP (MOD X 2)) DO (WRITE-STRING " a ") AND IF (ZEROP (FLOOR X 2)) DO (WRITE-STRING " b ") END AND DO (WRITE-STRING " c ")))
EQUAL-OK: "0 a  b  c 12 a  c 3"
(WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (LOOP FOR I FROM 1 TO 5 DO (PRINC I)))
EQUAL-OK: "12345"
(WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (LOOP FOR I FROM 1 TO 4 DO (PRINC I) (PRINC (* I I)) (TERPRI)))
EQUAL-OK: "11
24
39
416
"
(LOOP FOR ITEM IN '(1 2 3 A 4 5) WHEN (NOT (NUMBERP ITEM)) RETURN (FORMAT NIL "non-numeric value: ~S" ITEM))
EQUAL-OK: "non-numeric value: A"
(LOOP FOR ITEM IN '(1 2 3 A 4 5) WHEN (NOT (NUMBERP ITEM)) DO (RETURN (FORMAT NIL "non-numeric value: ~S" ITEM)))
EQUAL-OK: "non-numeric value: A"
(LOOP FOR NUMLIST IN '((1 2 4.0) (5 6 8.3) (8 9 10.4)) FOR A INTEGER = (FIRST NUMLIST) FOR B INTEGER = (SECOND NUMLIST) FOR C FLOAT = (THIRD NUMLIST) COLLECT (LIST C B A))
WARNING: LOOP: After A, INTEGER is interpreted as a type specification
WARNING: LOOP: After B, INTEGER is interpreted as a type specificationEQUAL-OK: ((4.0
 2 1) (8.3 6 5) (10.4 9 8))
(LOOP FOR NUMLIST IN '((1 2 4.0) (5 6 8.3) (8 9 10.4)) FOR A INTEGER = (FIRST NUMLIST) AND FOR B INTEGER = (SECOND NUMLIST) AND FOR C FLOAT = (THIRD NUMLIST) COLLECT (LIST C B A))
WARNING: LOOP: After A, INTEGER is interpreted as a type specification
WARNING: LOOP: After B, INTEGER is interpreted as a type specificationEQUAL-OK: ((4.0
 2 1) (8.3 6 5) (10.4 9 8))
(LOOP FOR NUMLIST IN '((1 2 4.0) (5 6 8.3) (8 9 10.4)) FOR A INTEGER = (FIRST NUMLIST) AND B INTEGER = (SECOND NUMLIST) AND C FLOAT = (THIRD NUMLIST) COLLECT (LIST C B A))
WARNING: LOOP: After A, INTEGER is interpreted as a type specification
WARNING: LOOP: After B, INTEGER is interpreted as a type specificationEQUAL-OK: ((4
.0 2 1) (8.3 6 5) (10.4 9 8))
(LOOP FOR (A B C) (INTEGER INTEGER FLOAT) IN '((1 2 4.0) (5 6 8.3) (8 9 10.4)) COLLECT (LIST C B A))
WARNING: LOOP: After (A B C), (INTEGER INTEGER FLOAT) is interpreted as a type
         specificationEQUAL-OK: ((4.0
 2 1) (8.3 6 5) (10.4 9 8))
(LOOP FOR (A B C) 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))
EQUAL-OK: ((4.0 2.0 1.0) (8.3 6.0 5.0) (10.4 9.0 8.0))
(LOOP WITH (A B) FLOAT = '(1.0 2.0) AND (C D) INTEGER = '(3 4) AND (E F) RETURN (LIST A B C D E F))
WARNING: LOOP: After (C D), INTEGER is interpreted as a type specificationEQUAL-OK: (1
.0 2.0 3 4 NIL NIL)
(LOOP FOR (A NIL B) = '(1 2 3) DO (RETURN (LIST A B)))
EQUAL-OK: (1 3)
(LOOP FOR (X . Y) = '(1 . 2) DO (RETURN Y))
EQL-OK: 2
(LOOP FOR ((A . B) (C . D)) OF-TYPE ((FLOAT . FLOAT) (INTEGER . INTEGER)) IN '(((1.2 . 2.4) (3 . 4)) ((3.4 . 4.6) (5 . 6))) COLLECT (LIST A B C D))
EQUAL-OK: ((1.2 2.4 3 4) (3.4 4.6 5 6))
(LOOP FOR BUFFER IN '("\"Hello\"" "\"unterminated" "nothing") COLLECT (LOOP INITIALLY (UNLESS (CHAR= (CHAR BUFFER 0) #\") (LOOP-FINISH)) FOR I FIXNUM FROM 1 BELOW (LENGTH BUFFER) WHEN (CHAR= (CHAR BUFFER I) #\") RETURN I))
EQUAL-OK: (6 NIL NIL)
(LET (RESULT) (LIST (WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (SETQ RESULT (LOOP FOR I FROM 1 TO 10 WHEN (> I 5) COLLECT I FINALLY (PRINT I)))) RESULT))
EQUAL-OK: ("
11 " (6 7 8 9 10))
(MULTIPLE-VALUE-LIST (LOOP FOR I FROM 1 TO 10 WHEN (> I 5) COLLECT I INTO NUMBER-LIST AND COUNT I INTO NUMBER-COUNT FINALLY (RETURN (VALUES NUMBER-COUNT NUMBER-LIST))))
EQUAL-OK: (5 (6 7 8 9 10))
(LET (Z) (LIST (LOOP FOR X FROM 1 TO 10 COUNT (< X 5) INTO FOO FLOAT FINALLY (SETQ Z FOO)) Z))
EQUAL-OK: (NIL 4.0)
(LET (RESULT) (LIST (WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (SETQ RESULT (LOOP NAMED MAX FOR I FROM 1 TO 10 DO (PRINT I) DO (RETURN-FROM MAX 'DONE)))) RESULT))
EQUAL-OK: ("
1 " DONE)
(LOOP FOR I = 0 FOR J TO 2 COLLECT J)
EQUAL-OK: (0 1 2)
(LOOP FOR I IN '(1 2) FOR J = I FOR K = J COLLECT (LIST I J K))
EQUAL-OK: ((1 1 1) (2 2 2))
(LOOP FOR IDX UPFROM 0 BELOW 5 FOR CHAR = (AREF "Error" IDX) COLLECT CHAR)
EQUAL-OK: (#\E #\r #\r #\o #\r)
(DEFUN MAKE-HT (ALIST) (LET ((HASH-TABLE (MAKE-HASH-TABLE))) (DOLIST (PAIR ALIST HASH-TABLE) (SETF (GETHASH (CAR PAIR) HASH-TABLE) (CDR PAIR)))))
EQL-OK: MAKE-HT
(SORT (LOOP FOR KEY BEING EACH HASH-KEY IN (MAKE-HT '((1 . 100) (2 . 200))) USING (HASH-VALUE VAL) FOR KEY+1 = (1+ KEY) DO (ASSERT (= 100 (/ VAL KEY))) COLLECT (LIST KEY KEY+1 VAL)) #'< :KEY #'CAR)
EQUAL-OK: ((1 2 100) (2 3 200))
(LOOP FOR I ACROSS '#(1 2 3 4) FOR J = (1+ I) COLLECT (LIST I J))
EQUAL-OK: ((1 2) (2 3) (3 4) (4 5))
(LOOP FOR I IN 'NIL FOR J = (1+ I) COLLECT J)
EQL-OK: NIL
(LOOP FOR I ACROSS '#() FOR J = (1+ I) COLLECT J)
EQL-OK: NIL
(LOOP FOR X = T FOR Y IN '(A B C) FOR Z = T COLLECT Y)
EQUAL-OK: (A B C)
(LOOP FOR X = T FOR Y ACROSS '#(A B C) FOR Z = T COLLECT Y)
EQUAL-OK: (A B C)
(LOOP FOR X = T FOR Y IN NIL FOR Z = T COLLECT Y)
EQL-OK: NIL
(LOOP FOR X = T FOR Y ACROSS '#() FOR Z = T COLLECT Y)
EQL-OK: NIL
(SORT (LOOP FOR X = T FOR KEY BEING EACH HASH-KEY IN (MAKE-HT '((1 . 100) (2 . 200))) USING (HASH-VALUE VAL) FOR KEY+1 = (1+ KEY) FOR Z = T COLLECT (LIST KEY KEY+1 VAL)) #'< :KEY #'CAR)
EQUAL-OK: ((1 2 100) (2 3 200))
(LOOP FOR I FROM 1 TO 0 COLLECT I)
EQL-OK: NIL
(SORT (LOOP FOR VAL BEING EACH HASH-VALUE IN (MAKE-HT '((1 . 100) (2 . 200))) COLLECT VAL) #'<)
EQUAL-OK: (100 200)
(SORT (LOOP FOR VAL BEING EACH HASH-VALUE IN (MAKE-HT '((1 . 100) (2 . 200))) FOR DERIV-VAL = (/ 1 VAL) COLLECT DERIV-VAL) #'<)
EQUAL-OK: (1/200 1/100)
(LET ((I 123456789)) (LOOP FOR I ACROSS '#(1 2 3 4 5 6) COLLECT I) (LOOP FOR I IN '(1 2 3 4 5 6) COLLECT I) (LOOP FOR I BEING EACH HASH-KEY OF (MAKE-HT '((1 . 100) (2 . 200))) COLLECT I) (LOOP FOR I BEING EACH PRESENT-SYMBOL OF *PACKAGE* COLLECT I) I)
EQL-OK: 123456789
(LOOP FOR X ON '(3 4 5) FOR Y = (CAR X) FOR Z IN '(A B C) COLLECT Z)
EQUAL-OK: (A B C)
(LOOP FOR X ACROSS '#(3 4 5) FOR Y = (1+ X) FOR Z ACROSS '#(A B C) COLLECT (LIST X Y Z))
EQUAL-OK: ((3 4 A) (4 5 B) (5 6 C))
(LOOP FOR X ACROSS '#() FOR Y = X FOR Z ACROSS '#(A B C) COLLECT (LIST X Y Z))
EQL-OK: NIL
(LOOP FOR X ACROSS '#(1 2 3) FOR Y = X FOR Z ACROSS '#() COLLECT (LIST X Y Z))
EQL-OK: NIL
(LOOP FOR X ACROSS '#(1 2 3) FOR Y = (1+ X) FOR Z ACROSS '#(A B) COLLECT (LIST X Y Z))
EQUAL-OK: ((1 2 A) (2 3 B))
(LOOP FOR X ACROSS '#(1 2) FOR Y = (1+ X) FOR Z ACROSS '#(A B C) COLLECT (LIST X Y Z))
EQUAL-OK: ((1 2 A) (2 3 B))
(LET ((PACKAGE (MAKE-PACKAGE "LOOP-TEST"))) (INTERN "blah" PACKAGE) (LET ((BLAH2 (INTERN "blah2" PACKAGE))) (EXPORT BLAH2 PACKAGE)) (LIST (SORT (LOOP FOR SYM BEING EACH PRESENT-SYMBOL OF PACKAGE FOR SYM-NAME = (SYMBOL-NAME SYM) COLLECT SYM-NAME) #'STRING<) (SORT (LOOP FOR SYM BEING EACH EXTERNAL-SYMBOL OF PACKAGE FOR SYM-NAME = (SYMBOL-NAME SYM) COLLECT SYM-NAME) #'STRING<)))
EQUAL-OK: (("blah" "blah2") ("blah2"))
(LET ((HT (MAKE-HASH-TABLE))) (LOOP FOR KEY BEING EACH HASH-KEY OF HT FOR VALUE = (GETHASH KEY HT) COLLECT (LIST KEY VALUE)))
EQL-OK: NIL
(LET ((HT (MAKE-HASH-TABLE))) (LOOP FOR DUMMY = (+ 1 2) FOR KEY BEING EACH HASH-KEY OF HT COLLECT (LIST KEY)))
EQL-OK: NIL
(LET ((LIST '(1 2 3))) (LOOP FOR X IN LIST AND Y = NIL THEN X COLLECT (LIST X Y)))
EQUAL-OK: ((1 NIL) (2 1) (3 2))
(LET ((LIST '(1 2 3))) (LOOP FOR X IN LIST FOR Y = NIL THEN X COLLECT (LIST X Y)))
EQUAL-OK: ((1 NIL) (2 2) (3 3))
(LET ((LIST '(1 2 3))) (LOOP FOR X IN LIST FOR Y = NIL THEN X AND Z = NIL THEN Y COLLECT (LIST X Y Z)))
EQUAL-OK: ((1 NIL NIL) (2 2 NIL) (3 3 2))
(LOOP REPEAT 4 FOR X = (+ 1 1) COLLECT X)
WARNING: LOOP: FOR clauses should occur before the loop's main bodyEQUAL-OK: (2 2 2 2)
(LET ((X 1)) (LOOP FOR I FROM X BY (INCF X) TO 10 COLLECT I))
EQUAL-OK: (1 3 5 7 9)
(LET ((X 1)) (LOOP FOR I BY (INCF X) FROM X TO 10 COLLECT I))
EQUAL-OK: (2 4 6 8 10)
(LOOP FOR I FROM 1 TO 5 COLLECT I INTO C COLLECT (COPY-LIST C))
EQUAL-OK: ((1) (1 2) (1 2 3) (1 2 3 4) (1 2 3 4 5))
(LET ((REM 55)) (LOOP FOR I BELOW 3 WITH NUM = (* 10 REM) AND REM COLLECT REM))
EQUAL-OK: (NIL NIL NIL)
(PROGN (DELETE-PACKAGE "LOOP-TEST") T)
EQL-OK: T
(UNWIND-PROTECT (LET ((*PACKAGE* (MAKE-PACKAGE "LOOP-TEST-PACKAGE-1"))) (READ-FROM-STRING "(THIS IS A TEST)") (EXPORT (INTERN "THIS")) (SET-EXCLUSIVE-OR '("THIS" "IS" "A" "TEST") (LOOP FOR X BEING EACH PRESENT-SYMBOL COLLECT X) :TEST #'STRING=)) (DELETE-PACKAGE "LOOP-TEST-PACKAGE-1"))
EQL-OK: NIL
(LET ((ALIST '(1 2 3 4 5 6))) (LOOP FOR VALUE IN ALIST IF (ODDP VALUE) COLLECT VALUE INTO ALIST ELSE COLLECT VALUE INTO BLIST FINALLY (RETURN (LIST ALIST BLIST))))
EQUAL-OK: ((1 3 5) (2 4 6))
(LET ((*LOOP-ANSI* T)) (MACROEXPAND '(LOOP :FOR N :TO 2 :DO (PRINC N) :TEST)))
[SIMPLE-SOURCE-PROGRAM-ERROR]: LOOP: syntax error after DO at :TEST in #1=(LOOP :FOR N :TO 2 :DO (PRINC N) :TEST)
EQL-OK: ERROR
(HANDLER-CASE (MACROEXPAND '(LOOP :FOR N :TO 2 :DO (PRINC N) :TEST)) (WARNING (W) (PRINC-ERROR W) 'WARNING))
[SIMPLE-WARNING]: LOOP: non-compound form :TEST after DO: permitted by CLtL2, forbidden by ANSI CL.
EQL-OK: WARNING
(LOOP :FOR X = 0 :THEN (1+ X) :FOR Y = (1+ X) :THEN (ASH Y 1) :FOR Z :ACROSS #(1 3 9 27 81 243) :FOR W = (+ X Y Z) :INITIALLY (ASSERT (ZEROP X)) :INITIALLY (ASSERT (= 2 W)) :UNTIL (>= W 100) :COLLECT W)
EQUAL-OK: (2 6 15 38)
(LET ((I 0)) (LOOP (INCF I) (IF (= I 3) (RETURN I))))
EQL-OK: 3
(LET ((I 0) (J 0)) (TAGBODY (LOOP (INCF J 3) (INCF I) (IF (= I 3) (GO EXIT))) EXIT) J)
EQL-OK: 9
(LOOP FOR X FROM 1 TO 10 FOR Y = NIL THEN X COLLECT (LIST X Y))
EQUAL-OK: ((1 NIL) (2 2) (3 3) (4 4) (5 5) (6 6) (7 7) (8 8) (9 9) (10 10))
(LOOP FOR X FROM 1 TO 10 AND Y = NIL THEN X COLLECT (LIST X Y))
EQUAL-OK: ((1 NIL) (2 1) (3 2) (4 3) (5 4) (6 5) (7 6) (8 7) (9 8) (10 9))
(LOOP FOR X IN '(1 2 3) FOR Y IN '(4 5 6) SUM (* X Y) INTO Z FINALLY (RETURN (+ X Y Z)))
EQL-OK: 41
(CDR (MULTIPLE-VALUE-LIST (COMPILE NIL (LAMBDA (X) (LOOP :WITH (A . B) = X :REPEAT 10 :FINALLY (PPRINT (LIST A B)))))))
EQUAL-OK: (NIL NIL)
(LET ((I 0)) (LOOP FOR NIL FROM 10 BELOW 15 COLLECT (INCF I)))
EQUAL-OK: (1 2 3 4 5)
(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-482843 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-482853 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
EQUAL-OK: (CORRECT PROGRAM-ERROR)
(WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (LOOP :INITIALLY (WRITE-CHAR #\a) :FOR CHAR :ACROSS "" :FOR CODE = (CHAR-CODE CHAR) :DO (PRINC CODE) :FINALLY (WRITE-CHAR #\b)))
EQUAL-OK: "ab"
(WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (LOOP :INITIALLY (WRITE-CHAR #\a) :FOR CHAR :ACROSS "" :DO (WRITE-CHAR CHAR) :FINALLY (WRITE-CHAR #\b)))
EQUAL-OK: "ab"
(WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (LOOP :INITIALLY (WRITE-CHAR #\a) :FOR CHAR :ACROSS "1" :FOR CODE = (CHAR-CODE CHAR) :DO (PRINC CODE) :FINALLY (WRITE-CHAR #\b)))
EQUAL-OK: "a49b"
(WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (LOOP :INITIALLY (WRITE-CHAR #\a) :FOR CHAR :ACROSS "1" :DO (WRITE-CHAR CHAR) :FINALLY (WRITE-CHAR #\b)))
EQUAL-OK: "a1b"
(LET ((HT (MAKE-HT '((1 . 2))))) (LIST (LOOP FOR K BEING THE HASH-KEYS OF HT AS V BEING THE HASH-VALUES OF HT COUNT T) (LOOP FOR K BEING THE HASH-KEYS OF HT AS V BEING THE HASH-VALUES OF HT WITH UT = 3 COUNT T) (LOOP WITH UT = 3 FOR K BEING THE HASH-KEYS OF HT AS V BEING THE HASH-VALUES OF HT COUNT T) (LOOP FOR K BEING THE HASH-KEYS OF HT WITH UT = 3 AS V BEING THE HASH-VALUES OF HT COUNT T)))
EQUAL-OK: (1 1 1 1)
(LET ((HT (MAKE-HT '((1 . 2))))) (LIST (LOOP FOR K BEING THE HASH-KEYS OF HT USING (HASH-VALUES V) COUNT T) (LOOP FOR K BEING THE HASH-KEYS OF HT USING (HASH-VALUES V) WITH UT = 3 COUNT T) (LOOP WITH UT = 3 FOR K BEING THE HASH-KEYS OF HT USING (HASH-VALUES V) COUNT T)))
EQUAL-OK: (1 1 1)
(LET ((VARS '(1 2 3))) (LOOP FOR VARS ON VARS COLLECT VARS))
WARNING: Reference to VARS is implementation-dependent, per ANSI CL 6.1.1.4.EQUAL-OK: ((1 2 3) (2 3) (3))
(LET ((VARS '(1 2 3))) (LOOP FOR I FROM 0 TO 10 FOR VARS ON VARS COLLECT VARS))
WARNING: Reference to VARS is implementation-dependent, per ANSI CL 6.1.1.4.EQL-OK: NIL
(LET ((X '(1 2 3)) (Y '(A B C)) (Z #(7 8 9))) (LOOP REPEAT 100 FOR X ON X FOR Y IN Y FOR Z ACROSS Z COLLECT (LIST X Y Z)))
WARNING: LOOP: FOR clauses should occur before the loop's main body
WARNING: LOOP: FOR clauses should occur before the loop's main body
WARNING: LOOP: FOR clauses should occur before the loop's main body
WARNING: Reference to X is implementation-dependent, per ANSI CL 6.1.1.4.
WARNING: Reference to Y is implementation-dependent, per ANSI CL 6.1.1.4.
WARNING: Reference to Z is implementation-dependent, per ANSI CL 6.1.1.4.EQL-OK: NIL
(LET ((X '((1 2 3) (1 2)))) (LOOP REPEAT 3 FOR X IN X FOR Y IN X COLLECT Y))
WARNING: LOOP: FOR clauses should occur before the loop's main body
WARNING: LOOP: FOR clauses should occur before the loop's main body
WARNING: Reference to X is implementation-dependent, per ANSI CL 6.1.1.4.EQL-OK: NIL
(LET ((X '(A B C D)) Y) (LIST (LOOP REPEAT 2 FOR X IN X COLLECT X FINALLY (SETQ Y X)) Y))
WARNING: LOOP: FOR clauses should occur before the loop's main body
WARNING: Reference to X is implementation-dependent, per ANSI CL 6.1.1.4.EQUAL-OK: (NIL NIL)
(LET ((A (MAKE-HT '((10 . 100) (20 . 200) (30 . 300))))) (SORT (LOOP REPEAT 100 FOR A BEING THE HASH-KEYS OF A COLLECT A) #'<))
WARNING: LOOP: FOR clauses should occur before the loop's main body
WARNING: Reference to A is implementation-dependent, per ANSI CL 6.1.1.4.[SIMPLE-TYPE-ERROR]: 
SYSTEM::HASH-TABLE-ITERATOR: argument NIL is not a hash table
EQL-OK: ERROR
(LOOP FOR C FROM 0 TO 1 FOR I ON '(1 2 3 4 5) FINALLY (RETURN I))
EQUAL-OK: (3 4 5)
(LOOP FOR C FROM 0 TO 1 FOR I = '(1 2 3 4 5) THEN (CDR I) FINALLY (RETURN I))
EQUAL-OK: (2 3 4 5)
(LET (RES) (LIST (WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (SETQ RES (LOOP FOR X ACROSS "abc" AND Z ON (LIST 1) DO (PRINC X) FINALLY (RETURN (CONS X Z))))) RES))
EQUAL-OK: ("a" (#\b))
(LET (RES) (LIST (WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (SETQ RES (LOOP FOR X ACROSS "abc" FOR Z ON (LIST 1) DO (PRINC X) FINALLY (RETURN (CONS X Z))))) RES))
EQUAL-OK: ("a" (#\b))
(LOOP FOR X ACROSS #((1 2 3) (4 5 6) (7 8 9)) AND Z = NIL THEN X FINALLY (RETURN (LIST :X X :Z Z)))
EQUAL-OK: (:X (7 8 9) :Z (7 8 9))
(LOOP FOR X ACROSS #((1 2 3) (4 5 6) (7 8 9)) FOR Z = NIL THEN X FINALLY (RETURN (LIST :X X :Z Z)))
EQUAL-OK: (:X (7 8 9) :Z (7 8 9))
(LOOP FOR C FROM 0 TO 1 FOR (FIRST . REST) ON '(1 2 3 4 5) FINALLY (RETURN (LIST :FIRST FIRST :REST REST)))
EQUAL-OK: (:FIRST 2 :REST (3 4 5))
(LOOP FOR C FROM 0 TO 1 FOR LIST ON '(1 2 3 4 5) FOR (FIRST . REST) = LIST FINALLY (RETURN (LIST :LIST LIST :FIRST FIRST :REST REST)))
EQUAL-OK: (:LIST (2 3 4 5) :FIRST 2 :REST (3 4 5))
(LET ((LIST '(1 2 3))) (LOOP FOR LIST = LIST THEN (CDR LIST) UNTIL (NULL LIST) COLLECT (CAR LIST)))
EQL-OK: NIL
(LOOP WITH V = #(1 2) FOR X ACROSS V SUM X)
EQL-OK: 3
(HANDLER-CASE (MACROEXPAND '(LOOP REPEAT 0 FOR E = 7 THEN A FINALLY (RETURN E))) (WARNING (W) (PRINC-ERROR W) 'WARNING))
[SIMPLE-WARNING]: LOOP: FOR clauses should occur before the loop's main body
EQL-OK: WARNING
(LET ((*LOOP-ANSI* T)) (HANDLER-CASE (MACROEXPAND '(LOOP FOR A IN NIL DO (X) (Y) Z (T))) (SOURCE-PROGRAM-ERROR (C) (PRINC-ERROR C) (SOURCE-PROGRAM-ERROR-DETAIL C))))
[SIMPLE-SOURCE-PROGRAM-ERROR]: LOOP: syntax error after DO at Z in #1=(LOOP FOR A IN NIL DO (X) (Y) Z (T))
EQUAL-OK: (DO Z)
(HANDLER-CASE (MACROEXPAND '(LOOP NAMED "named")) (SOURCE-PROGRAM-ERROR (C) (PRINC-ERROR C) (SOURCE-PROGRAM-ERROR-DETAIL C)))
[SIMPLE-SOURCE-PROGRAM-ERROR]: LOOP: syntax error after NAMED at "named" in #1=(LOOP NAMED #2="named")
EQUAL-OK: (SYSTEM::NAMED "named")
(HANDLER-CASE (MACROEXPAND '(LOOP NAMED)) (SOURCE-PROGRAM-ERROR (C) (PRINC-ERROR C) (SOURCE-PROGRAM-ERROR-DETAIL C)))
[SIMPLE-SOURCE-PROGRAM-ERROR]: LOOP: syntax error after NAMED at end of form in #1=(LOOP NAMED)
EQUAL-OK: (SYSTEM::NAMED NIL)
(HANDLER-CASE (MACROEXPAND '(LOOP FOR A IN NIL COLLECT A INTO #())) (SOURCE-PROGRAM-ERROR (C) (PRINC-ERROR C) (SOURCE-PROGRAM-ERROR-DETAIL C)))
[SIMPLE-SOURCE-PROGRAM-ERROR]: LOOP: syntax error after INTO at #() in #1=(LOOP FOR A IN NIL COLLECT A INTO #2=#())
EQUALP-OK: (SYSTEM::INTO #())
(DEFUN FIND-IN-TREE (TREE ATOM) (AND (CONSP TREE) (IF (EQ ATOM (CAR TREE)) TREE (OR (FIND-IN-TREE (CAR TREE) ATOM) (FIND-IN-TREE (CDR TREE) ATOM)))))
EQL-OK: FIND-IN-TREE
(FIND-IN-TREE (MACROEXPAND-1 '(LOOP FOR (I J K) OF-TYPE (FIXNUM NIL FLOAT) ACROSS #())) 'DECLARE)
EQUAL-OK: (DECLARE (TYPE FIXNUM I) (TYPE FLOAT K))
(LOOP FOR NIL ON '(1 2 . 3) COUNT T)
EQL-OK: 2
(LOOP WITH NIL = (RETURN T) RETURN NIL)
EQL-OK: T
(LOOP WITH A = 42 WITH NIL = (RETURN A) RETURN T)
EQL-OK: 42
(LOOP WITH A = 1 WITH NIL = (INCF A) WITH NIL = (RETURN A) RETURN NIL)
EQL-OK: 2
(LOOP FOR (A1 B1 C1) (INTEGER INTEGER FLOAT) IN '((1 2 3.4) (5 6 7.8) (9 10 1.1)) FOR (A2 B2 C2) FLOAT IN '((1.2 1.3 1.4) (1.5 1.6 1.7) (1.8 1.9 2.0)) FOR ((A3 . B3) (C3 . D3)) OF-TYPE ((FLOAT . FLOAT) (INTEGER . INTEGER)) IN '(((2.1 . 2.2) (23 . 24)) ((2.5 . 2.6) (27 . 28)) ((2.9 . 3.0) (31 . 32))) COLLECT (LIST A1 B1 C1 A2 B2 C2 A3 B3 C3 D3))
WARNING: LOOP: After (A1 B1 C1), (INTEGER INTEGER FLOAT) is interpreted as a
         type specificationEQUAL-OK: ((1 2 
3.4 1.2 1.3 1.4 2.1 2.2 23 24) (5 6 7.8 1.5 1.6 1.7 2.5 2.6 27 28) (9 10 1.1 1.8 1.9 2.0 2.9 3.0 31 32))
(SYMBOLS-CLEANUP '(MOUNTAIN DESERT MAKE-HT))
EQL-OK: NIL
RUN-TEST: finished "loop" (0 errors out of 178 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"macro8.tst" @1>
(AND (MACRO-FUNCTION 'PUSH) T)
EQL-OK: T
(AND (MACRO-FUNCTION 'MEMBER) T)
EQL-OK: NIL
(DEFMACRO ARITHMETIC-IF (TEST NEG-FORM ZERO-FORM POS-FORM) (LET ((VAR (GENSYM))) `(LET ((,VAR ,TEST)) (COND ((< ,VAR 0) ,NEG-FORM) ((= ,VAR 0) ,ZERO-FORM) (T ,POS-FORM)))))
EQL-OK: ARITHMETIC-IF
(AND (MACRO-FUNCTION 'ARITHMETIC-IF) T)
EQL-OK: T
(SETF X 8)
EQL-OK: 8
(ARITHMETIC-IF (- X 4) (- X) (LIST "ZERO") X)
EQL-OK: 8
(SETF X 4)
EQL-OK: 4
(ARITHMETIC-IF (- X 4) (- X) (LIST "ZERO") X)
EQUAL-OK: ("ZERO")
(SETF X 3)
EQL-OK: 3
(ARITHMETIC-IF (- X 4) (- X) (LIST "ZERO") X)
EQL-OK: -3
(DEFMACRO ARITHMETIC-IF (TEST NEG-FORM &OPTIONAL ZERO-FORM POS-FORM) (LET ((VAR (GENSYM))) `(LET ((,VAR ,TEST)) (COND ((< ,VAR 0) ,NEG-FORM) ((= ,VAR 0) ,ZERO-FORM) (T ,POS-FORM)))))
EQL-OK: ARITHMETIC-IF
(SETF X 8)
EQL-OK: 8
(ARITHMETIC-IF (- X 4) (- X))
EQL-OK: NIL
(SETF X 4)
EQL-OK: 4
(ARITHMETIC-IF (- X 4) (- X))
EQL-OK: NIL
(SETF X 3)
EQL-OK: 3
(ARITHMETIC-IF (- X 4) (- X))
EQL-OK: -3
(DEFMACRO HALIBUT ((MOUTH EYE1 EYE2) ((FIN1 LENGTH1) (FIN2 LENGTH2)) TAIL) `(LIST ,MOUTH ,EYE1 ,EYE2 ,FIN1 ,LENGTH1 ,FIN2 ,LENGTH2 ,TAIL))
EQL-OK: HALIBUT
(SETF M 'RED-MOUTH EYES '(LEFT-EYE . RIGHT-EYE) F1 '(1 2 3 4 5) F2 '(6 7 8 9 0) MY-FAVORITE-TAIL '(LIST OF ALL PARTS OF TAIL))
EQUAL-OK: (LIST OF ALL PARTS OF TAIL)
(HALIBUT (M (CAR EYES) (CDR EYES)) ((F1 (LENGTH F1)) (F2 (LENGTH F2))) MY-FAVORITE-TAIL)
EQUAL-OK: (RED-MOUTH LEFT-EYE RIGHT-EYE (1 2 3 4 5) 5 (6 7 8 9 0) 5 (LIST OF ALL PARTS OF TAIL))
(ECASE 'OTHERWISE (OTHERWISE 4))
EQL-OK: 4
(MACROLET ((FOO (&ENVIRONMENT ENV) (IF (MACRO-FUNCTION 'BAR ENV) ''YES ''NO))) (LIST (FOO) (MACROLET ((BAR NIL :BEEP)) (FOO))))
EQUAL-OK: (NO YES)
(MACROLET ((%M (NIL) :GOOD)) (%M NIL))
EQL-OK: :GOOD
(MACROLET ((%M (NIL) :GOOD)) (%M 10))
[SIMPLE-SOURCE-PROGRAM-ERROR]: WARNING: OTHERWISE used as a key in (OTHERWISE 4), it would be better to use
         parentheses.
%M: 10 does not match lambda list element ()
EQL-OK: ERROR
(DEFINE-COMPILER-MACRO TESTP NIL '(PROGN 2))
EQL-OK: TESTP
(DEFUN TESTP NIL 'B)
EQL-OK: TESTP
(LOCALLY (DECLARE (NOTINLINE TESTP)) (DEFUN TEST11 NIL (TESTP)))
EQL-OK: TEST11
(TEST11)
EQL-OK: B
(DEFUN TEST11 NIL (TESTP))
EQL-OK: TEST11
(COMPILE 'TEST11)
EQL-OK: TEST11
(TEST11)
EQL-OK: 2
(DEFINE-COMPILER-MACRO TESTC NIL ''A)
EQL-OK: TESTC
(DEFUN TESTC NIL 'B)
EQL-OK: TESTC
(LOCALLY (DECLARE (NOTINLINE TESTC)) (DEFUN TEST6 NIL (TESTC)))
EQL-OK: TEST6
(TEST6)
EQL-OK: B
(DEFUN TEST6 NIL (TESTC))
EQL-OK: TEST6
(COMPILE 'TEST6)
EQL-OK: TEST6
(TEST6)
EQL-OK: A
(DEFINE-COMPILER-MACRO TESTW NIL ''#(A 3))
EQL-OK: TESTW
(DEFUN TESTW NIL 'B)
EQL-OK: TESTW
(LOCALLY (DECLARE (NOTINLINE TESTW)) (DEFUN TEST9 NIL (TESTW)))
EQL-OK: TEST9
(TEST9)
EQL-OK: B
(DEFUN TEST9 NIL (TESTW))
EQL-OK: TEST9
(COMPILE 'TEST9)
EQL-OK: TEST9
(TEST9)
EQUALP-OK: #(A 3)
(DEFINE-COMPILER-MACRO TESTF NIL '#'PRINT)
EQL-OK: TESTF
(DEFUN TESTF NIL 'B)
EQL-OK: TESTF
(LOCALLY (DECLARE (NOTINLINE TESTF)) (DEFUN TEST10 NIL (TESTF)))
EQL-OK: TEST10
(TEST10)
EQL-OK: B
(DEFUN TEST10 NIL (TESTF))
EQL-OK: TEST10
(COMPILE 'TEST10)
EQL-OK: TEST10
(TEST10)
EQL-OK: #<SYSTEM-FUNCTION PRINT>
(DEFINE-COMPILER-MACRO TESTP NIL '(PROGN (PRINT 'A) 2))
EQL-OK: TESTP
(DEFUN TESTP NIL 'B)
EQL-OK: TESTP
(LOCALLY (DECLARE (NOTINLINE TESTP)) (DEFUN TEST11 NIL (TESTP)))
EQL-OK: TEST11
(TEST11)
EQL-OK: B
(DEFUN TEST11 NIL (TESTP))
EQL-OK: TEST11
(COMPILE 'TEST11)
EQL-OK: TEST11
(TEST11)
A 
EQL-OK: 2
(PROGN (DEFMACRO TEST12 NIL `(LET NIL (EVAL-WHEN (COMPILE) (PRINT "compiling")))) (DEFINE-COMPILER-MACRO TEST12 NIL (PRINC "Optimizing-") '((LAMBDA (X) (PRINC X)) 123)) (WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (FUNCALL (LAMBDA NIL (DECLARE (COMPILE)) (TEST12)))))
EQUAL-OK: "Optimizing-123"
(LET* ((F '(LOCALLY (DECLARE (OPTIMIZE SAFETY ABAZONK (DEBUG 20))) (+ 3 4))) (C (COPY-TREE F))) (LIST (EVAL F) (EQUAL F C)))
EQUAL-OK: (7 T)
(DEFUN TEST-COMPILER (LAMBDA-EXPRESSION &REST ARGS) (LET ((RET-I (APPLY LAMBDA-EXPRESSION ARGS)) (RET-C (APPLY (COMPILE NIL LAMBDA-EXPRESSION) ARGS))) (LIST (EQUAL RET-I RET-C) RET-I RET-C)))
EQL-OK: TEST-COMPILER
(TEST-COMPILER (LAMBDA NIL (BLOCK TEST12 (FLET ((TEST12-O NIL (FLET ((TEST12-I NIL (RETURN-FROM TEST12 NIL))) (TEST12-I)))) (TEST12-O)))))
EQUAL-OK: (T NIL NIL)
(PROGN (DEFUN STEM (&KEY (OBJ (ERROR "missing OBJ"))) (WITH-OPEN-FILE (STREAM OBJ :DIRECTION :OUTPUT) (TRUENAME STREAM))) (COMPILE 'STEM) (DELETE-FILE (STEM :OBJ "lambda-tst-foo-bar-zot")) T)
EQL-OK: T
(DEFPARAMETER X 1)
EQL-OK: X
(DEFUN TEST-KEY NIL (FIND 1 #(0 1 2 3) :TEST #'= :TEST (INCF X)))
EQL-OK: TEST-KEY
(TEST-KEY)
EQL-OK: 1
X
EQL-OK: 2
(COMPILE 'TEST-KEY)
WARNING: in TEST-KEY : FIND: ignored duplicate keyword :TEST (INCF X)EQL-OK: TEST-KEY
(TEST-KEY)
EQL-OK: 1
X
EQL-OK: 3
(DESTRUCTURING-BIND ((A &OPTIONAL (B 'BEE)) ONE TWO THREE) `((ALPHA) 1 2 3) (LIST A B THREE TWO ONE))
EQUAL-OK: (ALPHA BEE 3 2 1)
(DEFMACRO FOO (&KEY ((KEY VAR))) `(LIST ',VAR))
EQL-OK: FOO
(FOO KEY 42)
EQUAL-OK: (42)
(DEFUN FOO (&KEY ((KEY VAR))) `(LIST ',VAR))
EQL-OK: FOO
(FOO 'KEY 42)
EQUAL-OK: (LIST '42)
(FMAKUNBOUND 'FOO)
EQL-OK: FOO
(DEFMACRO M (&KEY (X X)) `,X)
EQL-OK: M
(M)
EQL-OK: 3
(DESTRUCTURING-BIND (&KEY (X X)) NIL X)
EQL-OK: 3
(DESTRUCTURING-BIND (&WHOLE (A . B) C . D) '(1 . 2) (LIST A B C D))
EQUAL-OK: (1 2 1 2)
(DESTRUCTURING-BIND (NIL A B) (LIST NIL 2 3) (+ A B))
EQL-OK: 5
(DESTRUCTURING-BIND (X . Y) '(1 . 10) (LIST X Y))
EQUAL-OK: (1 10)
(MACROLET ((%M (&WHOLE (M A B) C D) `'(,M ,A ,B ,C ,D))) (%M 1 2))
EQUAL-OK: (%M 1 2 1 2)
(MACROLET ((%M (&KEY ((:A (B C)))) `'(,C ,B))) (%M :A (1 2)))
EQUAL-OK: (2 1)
(MACROLET ((%M (&KEY ((:A (B C)) '(3 4))) `'(,C ,B))) (LIST (%M :A (1 2)) (%M :A (1 2) :A (10 11)) (%M)))
EQUAL-OK: ((2 1) (2 1) (4 3))
(MACROLET ((%M (&KEY ((:A (B C)) '(3 4) A-P)) `'(,A-P ,C ,B))) (LIST (%M :A (1 2)) (%M :A (1 2) :A (10 11)) (%M)))
EQUAL-OK: ((T 2 1) (T 2 1) (NIL 4 3))
(MACROLET ((%M (&KEY A B C) `'(,A ,B ,C))) (LIST (%M :ALLOW-OTHER-KEYS NIL) (%M :A 1 :ALLOW-OTHER-KEYS NIL) (%M :ALLOW-OTHER-KEYS T) (%M :ALLOW-OTHER-KEYS T :ALLOW-OTHER-KEYS NIL :FOO T) (%M :ALLOW-OTHER-KEYS T :C 1 :B 2 :A 3) (%M :C 1 :B 2 :A 3 :ALLOW-OTHER-KEYS T) (%M :ALLOW-OTHER-KEYS NIL :C 1 :B 2 :A 3)))
EQUAL-OK: ((NIL NIL NIL) (1 NIL NIL) (NIL NIL NIL) (NIL NIL NIL) (3 2 1) (3 2 1) (3 2 1))
(DEFMACRO ALPHA (X Y) `(BETA ,X ,Y))
EQL-OK: ALPHA
(DEFMACRO BETA (X Y) `(GAMMA ,X ,Y))
EQL-OK: BETA
(DEFMACRO DELTA (X Y) `(GAMMA ,X ,Y))
EQL-OK: DELTA
(DEFMACRO MEXPAND (FORM &ENVIRONMENT ENV) (MULTIPLE-VALUE-BIND (EXPANSION EXPANDED-P) (MACROEXPAND FORM ENV) `(LIST ',EXPANSION ',EXPANDED-P)))
EQL-OK: MEXPAND
(DEFMACRO MEXPAND-1 (FORM &ENVIRONMENT ENV) (MULTIPLE-VALUE-BIND (EXPANSION EXPANDED-P) (MACROEXPAND-1 FORM ENV) `(LIST ',EXPANSION ',EXPANDED-P)))
EQL-OK: MEXPAND-1
(DEFUN FEXPAND (FORM &OPTIONAL ENV) (MULTIPLE-VALUE-LIST (MACROEXPAND FORM ENV)))
EQL-OK: FEXPAND
(DEFUN FEXPAND-1 (FORM &OPTIONAL ENV) (MULTIPLE-VALUE-LIST (MACROEXPAND-1 FORM ENV)))
EQL-OK: FEXPAND-1
(FEXPAND-1 '(ALPHA A B))
EQUAL-OK: ((BETA A B) T)
(MEXPAND-1 (ALPHA A B))
EQUAL-OK: ((BETA A B) T)
(FEXPAND '(ALPHA A B))
EQUAL-OK: ((GAMMA A B) T)
(MEXPAND (ALPHA A B))
EQUAL-OK: ((GAMMA A B) T)
(FEXPAND-1 'NOT-A-MACRO)
EQUAL-OK: (NOT-A-MACRO NIL)
(MEXPAND-1 NOT-A-MACRO)
EQUAL-OK: (NOT-A-MACRO NIL)
(FEXPAND '(NOT-A-MACRO A B))
EQUAL-OK: ((NOT-A-MACRO A B) NIL)
(MEXPAND (NOT-A-MACRO A B))
EQUAL-OK: ((NOT-A-MACRO A B) NIL)
(MACROLET ((ALPHA (X Y) `(DELTA ,X ,Y))) (FEXPAND-1 '(ALPHA A B)))
EQUAL-OK: ((BETA A B) T)
(MACROLET ((ALPHA (X Y) `(DELTA ,X ,Y))) (MEXPAND-1 (ALPHA A B)))
EQUAL-OK: ((DELTA A B) T)
(MACROLET ((ALPHA (X Y) `(DELTA ,X ,Y))) (FEXPAND '(ALPHA A B)))
EQUAL-OK: ((GAMMA A B) T)
(MACROLET ((ALPHA (X Y) `(DELTA ,X ,Y))) (MEXPAND (ALPHA A B)))
EQUAL-OK: ((GAMMA A B) T)
(MACROLET ((BETA (X Y) `(EPSILON ,X ,Y))) (MEXPAND (ALPHA A B)))
EQUAL-OK: ((EPSILON A B) T)
(LET ((X (LIST 1 2 3))) (SYMBOL-MACROLET ((A-SM (FIRST X))) (MEXPAND A-SM)))
EQUAL-OK: ((FIRST X) T)
(LET ((X (LIST 1 2 3))) (SYMBOL-MACROLET ((A-SM (FIRST X))) (FEXPAND 'A-SM)))
EQUAL-OK: (A-SM NIL)
(SYMBOL-MACROLET ((B-SM (ALPHA X Y))) (MEXPAND-1 B-SM))
EQUAL-OK: ((ALPHA X Y) T)
(SYMBOL-MACROLET ((B-SM (ALPHA X Y))) (MEXPAND B-SM))
EQUAL-OK: ((GAMMA X Y) T)
(SYMBOL-MACROLET ((B-SM (ALPHA X Y)) (A-SM B-SM)) (MEXPAND-1 A-SM))
EQUAL-OK: (B-SM T)
(SYMBOL-MACROLET ((B-SM (ALPHA X Y)) (A-SM B-SM)) (MEXPAND A-SM))
EQUAL-OK: ((GAMMA X Y) T)
(FLET ((BETA (X Y) (+ X Y))) (MEXPAND (ALPHA A B)))
EQUAL-OK: ((BETA A B) T)
(MACROLET ((ALPHA (X Y) `(DELTA ,X ,Y))) (FLET ((ALPHA (X Y) (+ X Y))) (MEXPAND (ALPHA A B))))
EQUAL-OK: ((ALPHA A B) NIL)
(LET ((X (LIST 1 2 3))) (SYMBOL-MACROLET ((A-SM (FIRST X))) (LET ((A-SM X)) (MEXPAND A-SM))))
EQUAL-OK: (A-SM NIL)
(SYMBOL-MACROLET ((FOO 12)) (MACROLET ((BAR (X) `(+ ,X ,(1+ FOO)))) (BAR 10)))
EQL-OK: 23
(SYMBOL-MACROLET ((FOO 12)) (MACROLET ((BAR (X) (+ X FOO))) (BAR 10)))
EQL-OK: 22
(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))))
EQL-OK: 3
(PROGN (DEFINE-SYMBOL-MACRO FOO137 (SYMBOL-VALUE 'FOO137)) (SETQ FOO137 73) FOO137)
EQL-OK: 73
(PROGN (DEFINE-SYMBOL-MACRO FOO138 (ERROR "should not occur")) (DOLIST (X (SYMBOL-PLIST 'FOO138)) (ATOM X)))
EQL-OK: NIL
(PROGN (DEFINE-SYMBOL-MACRO FOO139 1) (APPEASE-CERRORS (DEFVAR FOO139 T)) FOO139)
EQL-OK: T
(PROGN (DEFINE-SYMBOL-MACRO FOO140 1) (APPEASE-CERRORS (DEFCONSTANT FOO140 T)) FOO140)
EQL-OK: T
(LET ((S (MAKE-SYMBOL "FOO141"))) (EVAL `(DEFINE-SYMBOL-MACRO ,S T)) (APPEASE-CERRORS (IMPORT S "KEYWORD")) (EQ S (SYMBOL-VALUE S)))
EQL-OK: T
(PROGN (DEFVAR FOO142 1) (APPEASE-CERRORS (DEFINE-SYMBOL-MACRO FOO142 T)) FOO142)
WARNING: in #:FUNC-483134 : #:B-483136 is neither declared nor bound,
         it will be treated as if it were declared SPECIAL.
WARNING: PROCLAIM: attempting to turn FOO139 into a SPECIAL variable, but it
         is already a global SYMBOL-MACRO.
         Remove the global SYMBOL-MACRO definition
WARNING: SYSTEM::%PROCLAIM-CONSTANT: attempting to turn FOO140 into a
         constant, but it is already a global SYMBOL-MACRO.
         Remove the global SYMBOL-MACRO definition
WARNING: IMPORT: interning #:FOO141 into the KEYWORD package would turn it
         into a constant, but it is already a global SYMBOL-MACRO.
         Remove the global SYMBOL-MACRO definition
WARNING: SYSTEM::%PROCLAIM-SYMBOL-MACRO: the symbol FOO142 names a global
         SPECIAL variable
         Remove the global SPECIAL variable binding
EQL-OK: T
(LET ((S (DEFINE-SYMBOL-MACRO FOO143 T))) (IMPORT S "KEYWORD") (EVAL S))
EQL-OK: T
(DEFPARAMETER *MY-TYPEOF-COUNTER* 0)
EQL-OK: *MY-TYPEOF-COUNTER*
(DEFMACRO MY-TYPEOF (PLACE &ENVIRONMENT ENV) (LET ((EXP-PLACE (MACROEXPAND PLACE ENV))) (UNLESS (AND (CONSP EXP-PLACE) (EQ (CAR EXP-PLACE) 'FOREIGN-VALUE)) (ERROR "MY-TYPEOF not upon a place: ~S" EXP-PLACE)) (INCF *MY-TYPEOF-COUNTER*) (SECOND EXP-PLACE)))
EQL-OK: MY-TYPEOF
(DEFMACRO WITH-VAR ((VAR FVAR) &BODY BODY) (LET ((FV (GENSYM (SYMBOL-NAME VAR)))) `(LET ((,FV ,FVAR)) (SYMBOL-MACROLET ((,VAR (FOREIGN-VALUE ,FV))) ,@BODY))))
EQL-OK: WITH-VAR
(WITH-VAR (MY-VAR "fake variable") (MY-TYPEOF MY-VAR))
EQUAL-OK: "fake variable"
*MY-TYPEOF-COUNTER*
EQL-OK: 1
(FUNCALL (LAMBDA NIL (DECLARE (COMPILE)) (WITH-VAR (MY-VAR "fake variable") (MY-TYPEOF MY-VAR))))
EQUAL-OK: "fake variable"
*MY-TYPEOF-COUNTER*
EQL-OK: 2
(DEFMACRO MY-MAC (&OPTIONAL (X (ERROR "missing arg")) &KEY (Y (ERROR "missing arg"))) `'(,X ,Y))
EQL-OK: MY-MAC
(MY-MAC 1 :Y 10)
EQUAL-OK: (1 10)
(DEFMACRO MY-MAC (&KEY (B T)) (IF B 'C 'D))
EQL-OK: MY-MAC
(MACROEXPAND '(MY-MAC))
EQL-OK: C
(MACROEXPAND '(MY-MAC :B NIL))
EQL-OK: D
(DEFMACRO MY-MAC (&KEY (A T B)) `(,A ,B))
EQL-OK: MY-MAC
(MACROEXPAND '(MY-MAC :A 1))
EQUAL-OK: (1 T)
(MACROEXPAND '(MY-MAC))
EQUAL-OK: (T NIL)
(DEFMACRO DM1A (&WHOLE X) `',X)
EQL-OK: DM1A
(MACROEXPAND '(DM1A))
EQUAL-OK: '(DM1A)
(DEFMACRO DM1B (&WHOLE X A &OPTIONAL B) `'(,X ,A ,B))
EQL-OK: DM1B
(MACROEXPAND '(DM1B Q))
EQUAL-OK: '((DM1B Q) Q NIL)
(MACROEXPAND '(DM1B Q R))
EQUAL-OK: '((DM1B Q R) Q R)
(DEFMACRO DM2A (&WHOLE FORM A B) `'(FORM ,FORM A ,A B ,B))
EQL-OK: DM2A
(MACROEXPAND '(DM2A X Y))
EQUAL-OK: '(FORM (DM2A X Y) A X B Y)
(DM2A X Y)
EQUAL-OK: (FORM (DM2A X Y) A X B Y)
(DEFMACRO INCFQ (X) `(SETQ ,X (+ ,X 1)))
EQL-OK: INCFQ
(DEFMACRO DM2B (&WHOLE FORM A (&WHOLE B (C . D) &OPTIONAL (E 5)) &BODY F &ENVIRONMENT ENV) ``(,',FORM ,,A ,',B ,',(MACROEXPAND C ENV) ,',D ,',E ,',F))
EQL-OK: DM2B
(DM2B :X1 (((INCFQ X2) X3 X4)) X5 X6)
EQUAL-OK: ((DM2B :X1 (((INCFQ X2) X3 X4)) X5 X6) :X1 (((INCFQ X2) X3 X4)) (SETQ X2 (+ X2 1)) (X3 X4) 5 (X5 X6))
(LET ((X1 5)) (MACROLET ((SEGUNDO (X) `(CADR ,X))) (DM2B X1 (((SEGUNDO X2) X3 X4)) X5 X6)))
EQUAL-OK: ((DM2B X1 (((SEGUNDO X2) X3 X4)) X5 X6) 5 (((SEGUNDO X2) X3 X4)) (CADR X2) (X3 X4) 5 (X5 X6))
(LOOP :FOR A :IN (FUNCALL (SYSTEM::COMPILE-FORM-IN-TOPLEVEL-ENVIRONMENT '(LIST (LIST #'EQUAL 2 2) (LIST #'EQUAL 2 3)))) :COLLECT (FUNCALL (CAR A) (CADR A) (CADDR A)))
EQUAL-OK: (T NIL)
(PROGN (DEFCLASS T1 NIL ((FOO :ACCESSOR FOO :INITFORM :FOO))) (LIST (FUNCALL (COMPILE NIL (LAMBDA NIL (TYPEP (MAKE-INSTANCE 'T1) 'T1)))) (FUNCALL (SYSTEM::COMPILE-FORM-IN-TOPLEVEL-ENVIRONMENT '(TYPEP (MAKE-INSTANCE 'T1) 'T1)))))
EQUAL-OK: (T T)
(PROGN (DECLAIM (NOTINLINE NOTINLINE-TEST-FUNC-1)) (DEFUN NOTINLINE-TEST-FUNC-1 (X) X) (COMPILE 'NOTINLINE-TEST-FUNC-1) (DEFUN NOTINLINE-TEST-FUNC-2 (X) (NOTINLINE-TEST-FUNC-1 X) X) (COMPILE 'NOTINLINE-TEST-FUNC-2) (DEFVAR *NOTINLINE-TEST-VAR* 10) (DEFUN NOTINLINE-TEST-FUNC-1 (X) (INCF *NOTINLINE-TEST-VAR* X)) (LIST (NOTINLINE-TEST-FUNC-2 12) *NOTINLINE-TEST-VAR*))
EQUAL-OK: (12 22)
(LET ((FILE "macro8-tst-tmp.lisp")) (WITH-OPEN-FILE (O FILE :DIRECTION :OUTPUT) (WRITE-LINE "(defun caller (a b) (foo a b))" O) (WRITE-LINE "(defun foo (a b c) (list a b c))" O)) (UNWIND-PROTECT (PROGN (LOAD FILE :COMPILING T) (FOO 1 2 3)) (DELETE-FILE FILE)))
;; Loading file macro8-tst-tmp.lisp ...
WARNING: in CALLER : FOO was called with 2 arguments, but it requires 1
         argument.
WARNING: DEFUN/DEFMACRO: redefining function FOO in
         /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-tmp.lisp,
         was defined in top-level
0 errors, 1 warning
WARNING: in FOO : CONS was called with;; Loaded file macro8-tst-tmp.lisp
EQUAL-OK: (1 2 3)
(LET ((FILE1 "macro8-tst-tmp1.lisp") (FILE2 "macro8-tst-tmp2.lisp")) (WITH-OPEN-FILE (O FILE1 :DIRECTION :OUTPUT) (WRITE-LINE "(defun foo (a b c) (cons b c a))" O) (FORMAT O "(load ~S)~%" FILE2)) (WITH-OPEN-FILE (O FILE2 :DIRECTION :OUTPUT) (WRITE-LINE "(defun bar (a b) (sin (1+ a) (1- b a)))" O)) (UNWIND-PROTECT (PROGN (LOAD FILE1 :COMPILING T) (LIST (NOT (NULL (FBOUNDP 'FOO))) (NOT (NULL (FBOUNDP 'BAR))))) (DELETE-FILE FILE1) (DELETE-FILE FILE2)))
;; Loading file macro8-tst-tmp1.lisp ...
 3 arguments, but it requires 2
         arguments.
WARNING: DEFUN/DEFMACRO: redefining function FOO in
         /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-tmp1.lisp,
         was defined in
         /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-tmp.lisp;;  Loading file 
macro8-tst-tmp2.lisp ...
WARNING: in BAR : SIN was called with 2 arguments, but it requires 1 argument.
WARNING: in BAR : 1- was called with 2 arguments, but it requires 1 argument.
;;  Loaded file macro8-tst-tmp2.lisp
0 errors, 1 warning
0 errors, 1 warning
;; Loaded file macro8-tst-tmp1.lisp
EQUAL-OK: (T T)
(TEST-COMPILER (LAMBDA (A) (IF (AND (IF A T NIL) NIL) A (MIN (BLOCK B5 -1) A))) 123)
EQUAL-OK: (T -1 -1)
(TEST-COMPILER (LAMBDA (A B C) (IF (OR (NOT (AND A NIL)) (AND (OR B (LDB-TEST (BYTE 26 31) C)) T)) B B)) 123 144 532)
EQUAL-OK: (T 144 144)
(TEST-COMPILER (LAMBDA (C) (IF (OR (NOT (IF C NIL NIL)) (AND (AND (LDB-TEST (BYTE 13 25) -707966251) (LOGBITP 5 C)) (LDB-TEST (BYTE 13 26) -396394270089))) 513972305 19641756)) 125)
EQUAL-OK: (T 513972305 513972305)
(LET ((FILE "macro8-tst-tmp.lisp")) (WITH-OPEN-FILE (OUT FILE :DIRECTION :OUTPUT) (WRITE '(EVAL-WHEN (LOAD COMPILE EVAL) (+ (FUNCALL (COMPILE NIL (LAMBDA NIL (LOAD-TIME-VALUE (+ 2 3))))) 120)) :STREAM OUT)) (UNWIND-PROTECT (COMPILE-FILE FILE) (POST-COMPILE-FILE-CLEANUP FILE)) NIL)
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-tmp.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-tmp.fas
0 errors, 0 warningsEQL-OK: NIL
(LET ((FILE "macro8-tst-tmp.lisp")) (WITH-OPEN-FILE (OUT FILE :DIRECTION :OUTPUT) (WRITE-STRING "(defun ltv1 () (eq #1=(load-time-value (cons nil nil)) #1#))" OUT)) (UNWIND-PROTECT (PROGN (COMPILE-FILE FILE) (LOAD (COMPILE-FILE-PATHNAME FILE))) (POST-COMPILE-FILE-CLEANUP FILE)) (LTV1))
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-tmp.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-tmp.fas
0 errors, 0 warnings;; Loading file 
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-tmp.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-tmp.fas
EQL-OK: T
(LET ((FILE "macro8-tst-tmp.lisp")) (WITH-OPEN-FILE (OUT FILE :DIRECTION :OUTPUT) (WRITE-STRING "(defun ltv2 () (eq (load-time-value #1=(cons nil nil)) (load-time-value #1#)))" OUT)) (UNWIND-PROTECT (PROGN (COMPILE-FILE FILE) (LOAD (COMPILE-FILE-PATHNAME FILE))) (POST-COMPILE-FILE-CLEANUP FILE)) (LTV2))
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-tmp.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-tmp.fas
0 errors, 0 warnings;; Loading file 
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-tmp.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-tmp.fas
EQL-OK: NIL
(LET ((FILE "macro8-tst-tmp.lisp")) (WITH-OPEN-FILE (OUT FILE :DIRECTION :OUTPUT) (WRITE-STRING "(defun ltv3 () (eq (load-time-value (cons nil nil)) (load-time-value (cons nil nil))))" OUT)) (UNWIND-PROTECT (PROGN (COMPILE-FILE FILE) (LOAD (COMPILE-FILE-PATHNAME FILE))) (POST-COMPILE-FILE-CLEANUP FILE)) (LTV3))
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-tmp.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-tmp.fas
0 errors, 0 warnings;; Loading file 
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-tmp.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-tmp.fas
EQL-OK: NIL
(FUNCALL (COMPILE NIL (LAMBDA (A) (UNWIND-PROTECT (BLOCK B2 (RETURN-FROM B2 A))))) 77759)
EQL-OK: 77759
(LET ((FILE "macro8-tst-warn.lisp")) (WITH-OPEN-FILE (OUT FILE :DIRECTION :OUTPUT) (WRITE '(EVAL-WHEN (:COMPILE-TOPLEVEL) (DEFINE-CONDITION TEST-WARNING-COMPILE-FILE-1 (STYLE-WARNING) NIL) (WARN (MAKE-CONDITION 'TEST-WARNING-COMPILE-FILE-1))) :STREAM OUT) (TERPRI OUT) (WRITE '(EVAL-WHEN (:COMPILE-TOPLEVEL) (DEFINE-CONDITION TEST-WARNING-COMPILE-FILE-2 (WARNING) NIL) (WARN (MAKE-CONDITION 'TEST-WARNING-COMPILE-FILE-2))) :STREAM OUT) (TERPRI OUT)) (UNWIND-PROTECT (CDR (MULTIPLE-VALUE-LIST (COMPILE-FILE FILE))) (POST-COMPILE-FILE-CLEANUP FILE)))
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-warn.lisp ...
WARNING: Condition of type TEST-WARNING-COMPILE-FILE-1.
WARNING: Condition of type TEST-WARNING-COMPILE-FILE-2.
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-warn.fas
0 errors, 2 warningsEQUAL-OK: (2 1)
(TEST-COMPILER (LAMBDA NIL (LABELS ((%F17 (F17-1 F17-2) (MULTIPLE-VALUE-PROG1 F17-1 F17-2 100 (RETURN-FROM %F17 12)))) (%F17 1 2))))
EQUAL-OK: (T 12 12)
(TEST-COMPILER (LAMBDA (A) (BLOCK B6 (MULTIPLE-VALUE-PROG1 A (RETURN-FROM B6 100)))) :WRONG)
EQUAL-OK: (T 100 100)
(TEST-COMPILER (LAMBDA NIL (BLOCK B3 (RETURN-FROM B3 (MULTIPLE-VALUE-PROG1 10 (RETURN-FROM B3 100))))))
EQUAL-OK: (T 100 100)
(TEST-COMPILER (LAMBDA (A B) (UNWIND-PROTECT (BLOCK B2 (FLET ((%F1 NIL B)) (LOGIOR (IF A (IF (LDB-TEST (BYTE 23 1) 253966182) (RETURN-FROM B2 A) -103275090) 62410) (IF (NOT (NOT (IF (NOT NIL) T (LDB-TEST (BYTE 2 27) 253671809)))) (RETURN-FROM B2 -22) (%F1))))) (SETQ A (+ A B)))) 777595384624 -1510893868)
EQUAL-OK: (T 777595384624 777595384624)
(TEST-COMPILER (LAMBDA (A C) (FLET ((%F10 NIL 10)) (FLET ((%F4 (&OPTIONAL (F4-1 (SETQ C (%F10))) (F4-2 (SETQ A 0))) (+ F4-1 F4-2) 123)) (%F4 -5)))) 13 17)
WARNING: variable A is assigned but not read
WARNING: variable C is assigned but not readEQUAL-OK: (T 123 
123)
(TEST-COMPILER (LAMBDA (A C) (IF (OR (LDB-TEST (BYTE 12 18) A) (NOT (AND T (NOT (IF (NOT (AND C T)) NIL NIL))))) 170 -110730)) 123 456)
EQUAL-OK: (T -110730 -110730)
(TEST-COMPILER (LAMBDA NIL (TAGBODY (FLET ((F6 NIL (GO 18))) (F6)) 18)))
EQUAL-OK: (T NIL NIL)
(TEST-COMPILER (LAMBDA NIL (TAGBODY (FLET ((%F1 (F1-1) (FLET ((%F9 (&OPTIONAL (F9-1 B) (F9-2 (GO TAG2)) (F9-3 0)) 0)) (%F9 0 0 0)))) (%F1 0)) TAG2)))
WARNING: in %F1-%F9 : B is neither declared nor bound,
         it will be treated as if it were declared SPECIAL.
WARNING: in %F1-%F9 : variable F9-1 is not used.
         Misspelled or missing IGNORE declaration?
WARNING: in %F1-%F9 : variable F9-2 is not used.
         Misspelled or missing IGNORE declaration?
WARNING: in %F1-%F9 : variable F9-3 is not used.
EQUAL-OK: (T NIL NIL)
(TEST-COMPILER (LAMBDA (X) (TAGBODY (FLET ((FOO-1 NIL (FLET ((FOO-2 NIL (FLET ((FOO-3 NIL (INCF X) (GO FOO-TAG))) (FOO-3)))) (FOO-2)))) (FOO-1)) FOO-TAG) X) 12)
EQUAL-OK: (T 13 13)
(TEST-COMPILER (LAMBDA NIL (LET ((*S4* :RIGHT)) (DECLARE (SPECIAL *S4*)) (PROGV '(*S4*) (LIST :WRONG1) (SETQ *S4* :WRONG2)) *S4*)))
         Misspelled or missing IGNORE declaration?
WARNING: in %F1 : variable F1-1 is not used.
         Misspelled or missing IGNORE declaration?
EQUAL-OK: (T :RIGHT :RIGHT)
(UNWIND-PROTECT (TEST-COMPILER (LAMBDA NIL (SETQ *PRINT-LEVEL* 20) (NCONC (LET ((*PRINT-LEVEL* 30) (FOO (SETQ *PRINT-LEVEL* 40))) (LIST *PRINT-LEVEL* FOO)) (LIST *PRINT-LEVEL*)))) (SETQ *PRINT-LEVEL* NIL))
EQUAL-OK: (T (30 40 40) (30 40 40))
(TEST-COMPILER (LAMBDA (D) (GCD 39 (CATCH 'CT2 (BLOCK B7 (THROW 'CT2 (UNWIND-PROTECT (RETURN-FROM B7 17) (RETURN-FROM B7 (PROGV '(*S6*) (LIST 31) D)))))))) 65)
EQUAL-OK: (T 13 13)
(TEST-COMPILER (LAMBDA (D) (BLOCK B7 (THROW 'CT2 (UNWIND-PROTECT (RETURN-FROM B7 17) (RETURN-FROM B7 (PROGV '(*S6*) (LIST 31) D)))))) 65)
EQUAL-OK: (T 65 65)
(TEST-COMPILER (LAMBDA (B) (LABELS ((%F2 NIL (LET ((V10 (PROGN (DOTIMES (IV2 0 0) IV2) B))) (UNWIND-PROTECT B (LABELS ((%F6 NIL)) (%F6)))))) (%F2))) :GOOD)
WARNING: in %F2 : variable V10 is not used.
         Misspelled or missing IGNORE declaration?EQUAL-OK: (T :GOOD :GOOD)
(TEST-COMPILER (LAMBDA (B) (LET ((V10 (PROGN (DOTIMES (IV2 0 0) IV2) B))) (UNWIND-PROTECT B (LABELS ((%F6 NIL)) (%F6))))) :GOOD)
WARNING: variable V10 is not used.
         Misspelled or missing IGNORE declaration?EQUAL-OK: (T :GOOD :GOOD)
(TEST-COMPILER (LAMBDA (B) (LET ((V10 (PROGN (PRINT 321) B))) (UNWIND-PROTECT B (PRINT 123)))) :GOOD)
321 
123 WARNING: variable V10 is not used.
         Misspelled or missing IGNORE declaration?
321 
123 
EQUAL-OK: (T :GOOD :GOOD)
(TEST-COMPILER (LAMBDA (A B) (DECLARE (IGNORABLE A B)) (DECLARE (OPTIMIZE (SPACE 3) (DEBUG 0) (SAFETY 1) (COMPILATION-SPEED 3) (SPEED 1))
) (PROG2 (CATCH 'CT1 (IF (OR (AND T (NOT (AND (AND (OR A T) NIL) NIL))) NIL) A (REDUCE #'(LAMBDA (LMV5 LMV2) 0) (VECTOR B 0 A)))) 0)) 2212755 3154856)
WARNING: in #:|1| : variable LMV5 is not used.
         Misspelled or missing IGNORE declaration?
WARNING: in #:|1| : variable LMV2 is not used.
         Misspelled or missing IGNORE declaration?EQUAL-OK: (T 0 0)
(TEST-COMPILER (LAMBDA NIL (LABELS ((FOO NIL (APPLY #'BAR NIL)) (BAR NIL)))))
WARNING: function BAR is not used.
         Misspelled or missing IGNORE declaration?
WARNING: function FOO is not used.
         EQUAL-OK: (T NIL NIL)
Misspelled or missing IGNORE declaration?
(PROGN (LOAD (MERGE-PATHNAMES "bug001.lisp" *RUN-TEST-TRUENAME*)) T)
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/tests/bug001.lisp ...
WARNING: function %F13 is not used.
         Misspelled or missing IGNORE declaration?EVAL: -105424
COMPILE: -105424
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/tests/bug001.lisp
EQL-OK: T
(PROGN (LOAD (MERGE-PATHNAMES "bug002.lisp" *RUN-TEST-TRUENAME*)) T)
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/tests/bug002.lisp ...
WARNING: function %F11 is not used.
         Misspelled or missing IGNORE declaration?
WARNING: function %F18 is not used.
         Misspelled or missing IGNORE declaration?
 ---- (-6471154533 -252139422192 298074672 864413032888 -3027364 -35189361672 1119416506309 69109593) ----
EVAL: 1371853947591
COMPILE: 1371853947591
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/tests/bug002.lisp
EQL-OK: T
(LET ((F (LAMBDA ((X1 FIXNUM) (X2 INTEGER) (X3 NUMBER) Y Z) (LIST X1 X2 X3 Y Z)))) (FLET ((G ((X1 FIXNUM) (X2 INTEGER) (X3 NUMBER) Y Z) (LIST Z Y X3 X2 X1))) (LIST (FUNCALL F 0 1 2 3 4) (FUNCALL (COMPILE NIL F) 5 6 7 8 9) (G 'A 'B 'C 'D 'E))))
EQUAL-OK: ((0 1 2 3 4) (5 6 7 8 9) (E D C B A))
(LET ((FNAME "macro8-tst-donc.lisp") (RESULTS 'NIL) COMPILED) (WITH-OPEN-FILE (OUT FNAME :DIRECTION :OUTPUT :IF-EXISTS :OVERWRITE :IF-DOES-NOT-EXIST :CREATE) (WRITE '(DEFPARAMETER *DONC* NIL) :STREAM OUT) (TERPRI OUT) (WRITE '(EVAL-WHEN (:LOAD-TOPLEVEL :COMPILE-TOPLEVEL :EXECUTE) (SETQ *DONC* (FUNCALL (COMPILE (DEFUN G NIL (LOAD-TIME-VALUE (+ 2 3))))))) :STREAM OUT) (TERPRI OUT)) (LOAD FNAME) (PUSH *DONC* RESULTS) (SETQ COMPILED (COMPILE-FILE FNAME)) (PUSH *DONC* RESULTS) (LOAD COMPILED) (PUSH *DONC* RESULTS) (POST-COMPILE-FILE-CLEANUP FNAME) (NREVERSE RESULTS))
;; Loading file macro8-tst-donc.lisp ...
;; Loaded file macro8-tst-donc.lisp
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-donc.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-donc.fas
0 errors, 0 warnings;; Loading file 
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-donc.fas ...
WARNING: G is already compiled.
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-donc.fas
EQUAL-OK: (5 5 5)
(LET ((FNAME "macro8-tst-donc.lisp") (RESULTS 'NIL) COMPILED) (WITH-OPEN-FILE (OUT FNAME :DIRECTION :OUTPUT :IF-EXISTS :OVERWRITE :IF-DOES-NOT-EXIST :CREATE) (WRITE '(DEFMACRO M1 (X) (COMPILE X (LAMBDA NIL (LOAD-TIME-VALUE (+ 2 3)))) 4) :STREAM OUT) (TERPRI OUT) (WRITE '(DEFUN FOO NIL (M1 BAR)) :STREAM OUT) (TERPRI OUT)) (LOAD FNAME) (PUSH (BAR) RESULTS) (PUSH (FOO) RESULTS) (SETQ COMPILED (COMPILE-FILE FNAME)) (PUSH (BAR) RESULTS) (PUSH (FOO) RESULTS) (LOAD COMPILED) (PUSH (BAR) RESULTS) (PUSH (FOO) RESULTS) (POST-COMPILE-FILE-CLEANUP FNAME) (NREVERSE RESULTS))
;; Loading file macro8-tst-donc.lisp ...
WARNING: DEFUN/DEFMACRO: redefining function FOO in
         /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-donc.lisp,
         was defined in
         /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-tmp1.lisp;; Loaded file 
macro8-tst-donc.lisp
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-donc.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-donc.fas
0 errors, 0 warnings;; Loading file 
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-donc.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-donc.fas
EQUAL-OK: (5 4 5 4 5 4)
(LET* ((F "macro8-tst-test-compile-file-output-argument.lisp") (C (OPEN (MAKE-PATHNAME :TYPE "fas" :DEFAULTS F) :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE))) (WITH-OPEN-FILE (S F :DIRECTION :OUTPUT :IF-EXISTS :SUPERSEDE :IF-DOES-NOT-EXIST :CREATE) (FORMAT S "(defun foo (x) (1+ x))~%")) (UNWIND-PROTECT (PROGN (COMPILE-FILE F :OUTPUT-FILE C) T) (POST-COMPILE-FILE-CLEANUP F)))
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-test-compile-file-output-argument.lisp ...
;; Wrote file macro8-tst-test-compile-file-output-argument.fas
0 errors, 0 warningsEQL-OK: T
(DEFUN TEST-CONSTANT-FOLDING (X) (* 1.0d200 X 1.0d200))
EQL-OK: TEST-CONSTANT-FOLDING
(MULTIPLE-VALUE-LIST (COMPILE 'TEST-CONSTANT-FOLDING))
WARNING: in TEST-CONSTANT-FOLDING : Run time error expected: *: floating point
         overflow
EQUAL-OK: (TEST-CONSTANT-FOLDING 1 1)
(TEST-CONSTANT-FOLDING 12)
[SIMPLE-FLOATING-POINT-OVERFLOW]: *: floating point overflow
EQL-OK: ERROR
(MULTIPLE-VALUE-LIST (COMPILE NIL #'TEST-CONSTANT-FOLDING))
WARNING: #<COMPILED-FUNCTION TEST-CONSTANT-FOLDING> is already compiled.
EQUAL-OK: (#<COMPILED-FUNCTION TEST-CONSTANT-FOLDING> NIL NIL)
(FUNCALL (COMPILE NIL (LAMBDA NIL (COND (NIL)))))
EQL-OK: NIL
(FUNCALL (COMPILE NIL (LAMBDA NIL (COND (T)) NIL)))
EQL-OK: NIL
(LET (X) (DEFUN CIRCULARITY-IN-CODE NIL '(ONE TWO THREE . #1=(MANY . #1#))) (SETQ X (CIRCULARITY-IN-CODE)) (SUBSEQ X 0 7))
EQUAL-OK: (ONE TWO THREE MANY MANY MANY MANY)
(LET* ((F "macro8-tst-test-compiled-file-p.lisp") (C (COMPILE-FILE-PATHNAME F))) (OPEN F :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE) (DELETE-FILE C) (LIST (MULTIPLE-VALUE-LIST (COMPILED-FILE-P C)) (MULTIPLE-VALUE-LIST (COMPILED-FILE-P F)) (UNWIND-PROTECT (MULTIPLE-VALUE-LIST (COMPILED-FILE-P (SETQ C (COMPILE-FILE F)))) (POST-COMPILE-FILE-CLEANUP F))))
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-test-compiled-file-p.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-test-compiled-file-p.fas
0 errors, 0 warningsEQUAL-OK: ((NIL) (NIL) (
T))
(LET ((F "macro8-tst-test-compile-time-value.lisp")) (DEFPARAMETER TEST-COMPILE-TIME-VALUE-C 0) (WITH-OPEN-FILE (*STANDARD-OUTPUT* F :DIRECTION :OUTPUT) (WRITE '(DEFUN TEST-COMPILE-TIME-VALUE-F NIL (INCF TEST-COMPILE-TIME-VALUE-C) 'TEST-COMPILE-TIME-VALUE)) (TERPRI) (WRITE '(DEFPARAMETER TEST-COMPILE-TIME-VALUE-V (COMPILE-TIME-VALUE (TEST-COMPILE-TIME-VALUE-F)))) (TERPRI)) (UNWIND-PROTECT (LIST (PROGN (LOAD F) (LIST TEST-COMPILE-TIME-VALUE-C TEST-COMPILE-TIME-VALUE-V)) (PROGN (COMPILE-FILE F) (LIST TEST-COMPILE-TIME-VALUE-C TEST-COMPILE-TIME-VALUE-V)) (PROGN (LOAD (COMPILE-FILE-PATHNAME F)) (LIST TEST-COMPILE-TIME-VALUE-C TEST-COMPILE-TIME-VALUE-V))) (POST-COMPILE-FILE-CLEANUP F)))
;; Loading file macro8-tst-test-compile-time-value.lisp ...
;; Loaded file macro8-tst-test-compile-time-value.lisp
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-test-compile-time-value.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-test-compile-time-value.fas
0 errors, 0 warnings;; Loading file 
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-test-compile-time-value.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-test-compile-time-value.fas
EQUAL-OK: ((0 NIL) (1 NIL) (1 TEST-COMPILE-TIME-VALUE))
(LET* ((F "macro8-tst-test-crlf-print-read.lisp") (V #(#\a #\Return #\Newline #\Null #\b)) (S (COERCE V 'STRING))) (UNWIND-PROTECT (PROGN (WITH-OPEN-FILE (OUT F :DIRECTION :OUTPUT) (LET ((*PRINT-READABLY* T)) (SYSTEM::SET-OUTPUT-STREAM-FASL OUT) (FORMAT OUT "(defparameter *v* ~S)~%" V) (FORMAT OUT "(defparameter *s* ~S)~%" S))) (LOAD (COMPILE-FILE F)) (LIST (STRING= S *S*) (EQUALP V *V*) (= (LENGTH S) (LENGTH V)))) (POST-COMPILE-FILE-CLEANUP F) (MAKUNBOUND '*V*) (UNINTERN '*V*) (MAKUNBOUND '*S*) (UNINTERN '*S*)))
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-test-crlf-print-read.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-test-crlf-print-read.fas
0 errors, 0 warnings;; Loading file 
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-test-crlf-print-read.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-test-crlf-print-read.fas
EQUAL-OK: (T T T)
(LET ((F "macro8-tst-test-crlf-print-read.lisp") (CODE '(DEFMACRO ADD-CRLF (STRING) (WITH-OUTPUT-TO-STRING (O) (WRITE-STRING STRING O) (PRINC #\Return O) (PRINC #\Newline O))))) (UNWIND-PROTECT (PROGN (WITH-OPEN-FILE (OUT F :DIRECTION :OUTPUT) (WRITE CODE :STREAM OUT :PRETTY T) (FORMAT OUT "(defparameter *z* (length (add-crlf \"a\")))~%")) (LIST (PROGN (LOAD F) *Z*) (PROGN (LOAD (COMPILE-FILE F)) *Z*))) (POST-COMPILE-FILE-CLEANUP F) (MAKUNBOUND '*Z*) (UNINTERN '*Z*)))
;; Loading file macro8-tst-test-crlf-print-read.lisp ...
;; Loaded file macro8-tst-test-crlf-print-read.lisp
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-test-crlf-print-read.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-test-crlf-print-read.fas
0 errors, 0 warnings;; Loading file 
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-test-crlf-print-read.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-test-crlf-print-read.fas
EQUAL-OK: (3 3)
(LET* ((F "macro8-tst-test-crlf-print-read.lisp") (*PACKAGE* (FIND-PACKAGE "CS-COMMON-LISP-USER")) (C (READ-FROM-STRING "*c*"))) (UNWIND-PROTECT (PROGN (WITH-OPEN-FILE (OUT F :DIRECTION :OUTPUT) (FORMAT OUT "(defconstant *c* #\\Null)~%")) (LOAD (COMPILE-FILE F)) (CHAR-CODE (SYMBOL-VALUE C))) (POST-COMPILE-FILE-CLEANUP F) (PROCLAIM (LIST 'SPECIAL C)) (MAKUNBOUND C) (UNINTERN C)))
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-test-crlf-print-read.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-test-crlf-print-read.fas
0 errors, 0 warnings;; Loading file 
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-test-crlf-print-read.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-test-crlf-print-read.fas
EQL-OK: 0
(LET ((F "macro8-tst-test-pr-kw.lisp")) (WITH-OPEN-FILE (O F :DIRECTION :OUTPUT) (FORMAT O "(defpackage m (:modern t))~%(in-package m)~%~
(defparameter p #.(make-pathname :type \"mem\"))~%")) (UNWIND-PROTECT (PROGN (LOAD (COMPILE-FILE F)) (SYMBOL-VALUE (READ-FROM-STRING "m::p"))) (POST-COMPILE-FILE-CLEANUP F) (DELETE-PACKAGE "M")))
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-test-pr-kw.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-test-pr-kw.fas
0 errors, 0 warnings;; Loading file 
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-test-pr-kw.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-test-pr-kw.fas
EQUAL-OK: #P".mem"
(FUNCALL (COMPILE NIL '(LAMBDA NIL (DECLARE (OPTIMIZE FOO)))))
WARNING: FOO is not a valid OPTIMIZE quality.EQL-OK: NIL
(MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA NIL (DIRECTORY "/" 'A T 'B 1 'C 0 :ALLOW-OTHER-KEYS T))))
WARNING: in X : DIRECTORY: ignored keyword A T
WARNING: in X : DIRECTORY: ignored keyword B 1
WARNING: in X : DIRECTORY: ignored keyword C 0EQUAL-OK: (X 3 NIL)
(MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA NIL (DIRECTORY "/" :ALLOW-OTHER-KEYS T 'A T))))
WARNING: in X : DIRECTORY: ignored keyword A TEQUAL-OK: (X 1 NIL)
(MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA NIL (DIRECTORY "/" 'A T))))
WARNING: in X : illegal keyword A for function DIRECTORY.
         The only allowed keywords are :IF-DOES-NOT-EXIST, :CIRCLE and :FULL.EQUAL-OK: (X 1 1
)
(MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA NIL (DIRECTORY "/" 'A T 'B 2))))
WARNING: in X : illegal keywords B and A for function DIRECTORY.
         The only allowed keywords are :IF-DOES-NOT-EXIST, :CIRCLE and :FULL.EQUAL-OK: (X 1 1)
(LET (RET) (DEFMACRO TEST-MACRO-ARGLIST (A) A) (PUSH (ARGLIST 'TEST-MACRO-ARGLIST) RET) (COMPILE 'TEST-MACRO-ARGLIST) (PUSH (ARGLIST 'TEST-MACRO-ARGLIST) RET) RET)
EQUAL-OK: ((A) (A))
(LET (RET) (DEFMACRO TEST-MACRO-ARGLIST (A) A) (PUSH (ARGLIST 'TEST-MACRO-ARGLIST) RET) (TRACE TEST-MACRO-ARGLIST) (PUSH (ARGLIST 'TEST-MACRO-ARGLIST) RET) RET)
;; Tracing macro TEST-MACRO-ARGLIST.
EQUAL-OK: ((A) (A))
(LOCALLY (DECLARE (OPTIMIZE (SPACE 2))) (DEFMACRO TEST-MACRO-ARGLIST (A) A) (COMPILE 'TEST-MACRO-ARGLIST) (ARGLIST 'TEST-MACRO-ARGLIST))
EQUAL-OK: (A)
(LOCALLY (DECLARE (OPTIMIZE (SPACE 3))) (DEFMACRO TEST-MACRO-ARGLIST (A) A) (COMPILE 'TEST-MACRO-ARGLIST) (STRINGP (PRINC (WITH-OUTPUT-TO-STRING (S) (DESCRIBE 'TEST-MACRO-ARGLIST S)))))
WARNING: DEFUN/DEFMACRO: redefining TEST-MACRO-ARGLIST; it was traced!
TEST-MACRO-ARGLIST is the symbol TEST-MACRO-ARGLIST, lies in
#<PACKAGE |/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8.erg|>
, is accessible in 1 package
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8.erg,
names a macro, has 1 property SYSTEM::DEFINITION.
For more information, evaluate (SYMBOL-PLIST 'TEST-MACRO-ARGLIST).
 #<PACKAGE |/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8.erg|> is 
 the package named
 /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8.erg.
 It imports the external symbols of 3 packages COMMON-LISP-USER, COMMON-LISP,
 EXT and exports no symbols, but no package uses these exports.
 #<MACRO #<COMPILED-FUNCTION TEST-MACRO-ARGLIST> 0> is a macro expander.
 Argument list:"Due to the compiler optimization settings, lambda list for #<MACRO #<COMPILED-FUNCTION TEST-MACRO-ARGLIST> 0> is not available
  "
 For more information, evaluate
 (DISASSEMBLE (MACRO-FUNCTION 'TEST-MACRO-ARGLIST)).
EQL-OK: T
(LOCALLY (DECLARE (OPTIMIZE (SPACE 2))) (DEFUN TEST-FUN-ARGLIST (A) (DECLARE (COMPILE)) A) (ARGLIST 'TEST-FUN-ARGLIST))
EQUAL-OK: (A)
(LOCALLY (DECLARE (OPTIMIZE (SPACE 3))) (DEFUN TEST-FUN-ARGLIST (A) (DECLARE (COMPILE)) A) (PRINC-TO-STRING (ARGLIST 'TEST-FUN-ARGLIST)))
EQUAL-OK: "(ARG0)"
(LISTP (ARGLIST 'SYSTEM::BACKQUOTE))
EQL-OK: T
(DEFUN CHECK-CONST-FOLD (FORM) (SYSTEM::CLOSURE-CONST (COMPILE NIL `(LAMBDA NIL ,FORM)) 0))
EQL-OK: CHECK-CONST-FOLD
(CHECK-CONST-FOLD '(! 10))
EQL-OK: 3628800
(CHECK-CONST-FOLD '(CHAR-CODE #\a))
EQL-OK: 97
(CHECK-CONST-FOLD '(CODE-CHAR 97))
EQL-OK: #\a
(CHECK-CONST-FOLD '(CHAR-UPCASE #\a))
EQL-OK: #\A
(CHECK-CONST-FOLD '(CHAR-INVERTCASE #\a))
EQL-OK: #\A
(CHECK-CONST-FOLD '(MOD-EXPT 29 13 17))
EQL-OK: 14
(SYSTEM::CLOSURE-CONSTS (COMPILE NIL (LAMBDA NIL (ATOM 12))))
EQL-OK: NIL
(SYSTEM::CLOSURE-CONSTS (COMPILE NIL (LAMBDA NIL (CONSP 12))))
EQL-OK: NIL
(SYSTEM::CLOSURE-CONSTS (COMPILE NIL (LAMBDA NIL (XOR 1 NIL 2))))
EQL-OK: NIL
(CHECK-CONST-FOLD '(HASH-TABLE-TEST #S(HASH-TABLE :TEST FASTHASH-EQ)))
EQL-OK: FASTHASH-EQ
(FUNCALL (COMPILE NIL (LAMBDA (B C) (BLOCK B3 (IF (IF B (NOT NIL) C) (RETURN-FROM B3 124))))) 1 2)
EQL-OK: 124
(PROGN (DEFMACRO TEST-MACRO-DOTTED-ARGS (&REST F) `',F) (LIST (TEST-MACRO-DOTTED-ARGS 123) (TEST-MACRO-DOTTED-ARGS . 123) (TEST-MACRO-DOTTED-ARGS 1 2 . 3)))
EQUAL-OK: ((123) 123 (1 2 . 3))
(MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA (Y) (WHEN NIL (FORMAT T "arg=~S" Y)))))
EQUAL-OK: (X NIL NIL)
(MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA (Y) (FLET ((F (Z) (1+ Z))) (F Y)))))
EQUAL-OK: (X NIL NIL)
(MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA (Y) (FLET ((F (Z) (1+ Z))) Y))))
WARNING: function X-F is not used.
EQUAL-OK: (X 1 NIL)
         Misspelled or missing IGNORE declaration?
(MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA NIL (FLET ((F (Z) (1+ Z))) #'F))))
EQUAL-OK: (X NIL NIL)
(MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA (Y) (FLET ((F (Z) (1+ Z))) Y))))
WARNING: function X-F is not used.
EQUAL-OK: (X 1 NIL)
(MULTIPLE-VALUE-LIST (COMPILE 'X (         Misspelled or missing IGNORE declaration?
LAMBDA (Y) (FLET ((F (Z) (1+ Z))) (DECLARE (IGNORABLE #'F)) Y))))
EQUAL-OK: (X NIL NIL)
(MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA (Y) (FLET ((F (Z) (1+ Z))) (DECLARE (IGNORE #'F)) Y))))
EQUAL-OK: (X NIL NIL)
(MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA NIL (FLET ((F (Z) (1+ Z))) (DECLARE (IGNORE #'F)) #'F))))
WARNING: in X : function X-F is used despite IGNORE declaration.EQUAL-OK: (X 1 NIL)
(MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA (Y) (FLET ((F (Z) (1+ Z))) (DECLARE (IGNORE #'F)) #'F))))
WARNING: in X : variable Y is not used.
         Misspelled or missing IGNORE declaration?
WARNING: in X : function X-F is used despite IGNORE declaration.EQUAL-OK: (X 2 NIL)
(MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA (Y) (DECLARE (IGNORE Y)) (FLET ((F (Z) (1+ Z))) #'F))))
EQUAL-OK: (X NIL NIL)
(MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA (Y) (DECLARE (IGNORE Y)) (FLET ((F (Z) (1+ Z))) (F Y)))))
WARNING: in X : variable Y is used despite IGNORE declaration.EQUAL-OK: (X 1 
NIL)
(HANDLER-CASE (FUNCALL (LOCALLY (DECLARE (OPTIMIZE (SAFETY 3))) (COMPILE NIL (LAMBDA (A) (AREF A 0) 1))) 2) (TYPE-ERROR (C) (PRINC-ERROR C) :GOOD) (ERROR (C) (PRINC-ERROR C) :BAD))
[SIMPLE-TYPE-ERROR]: AREF: argument 2 is not an array
EQL-OK: :GOOD
(FUNCALL (LOCALLY (DECLARE (OPTIMIZE (SAFETY 2))) (COMPILE NIL (LAMBDA (A) (AREF A 0) 1))) 2)
EQL-OK: 1
(HANDLER-CASE (FUNCALL (LOCALLY (DECLARE (OPTIMIZE (SAFETY 0))) (COMPILE NIL (LAMBDA (S) (PARSE-INTEGER S) 1))) "a") (ERROR (C) (PRINC-ERROR C) :GOOD))
[SIMPLE-PARSE-ERROR]: PARSE-INTEGER: substring "a" does not have integer syntax at position 0
EQL-OK: :GOOD
(MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA NIL (LET (A) T))))
WARNING: in X : variable A is not used.
         Misspelled or missing IGNORE declaration?EQUAL-OK: (X 1 NIL)
(MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA NIL T)))
EQUAL-OK: (X NIL NIL)
(MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA NIL (LET (A) (SETQ A 1)))))
WARNING: in X : variable A is assigned but not readEQUAL-OK: (X 1 NIL)
(MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA (&OPTIONAL A &KEY B) (CONS A B))))
WARNING: in X : Mixing &OPTIONAL and &KEY in lambda list (&OPTIONAL A &KEY B)
         is bad designEQUAL-OK: (X 1 NIL)
(MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA (S) (READ-FROM-STRING S :START 7))))
WARNING: in X : Apparently passing &KEY arguments without &OPTIONAL arguments
         in (READ-FROM-STRING S :START 7)EQUAL-OK: (X 1 NIL)
(MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA (S) (READ-FROM-STRING S T T :START 7))))
EQUAL-OK: (X NIL NIL)
(MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA (S) (FORMAT "~A" S))))
WARNING: in X : The FORMAT destination is invalid (not NIL or T or a stream or
         a string with fill-pointer): "~A"EQUAL-OK: (X 1 1)
(SYMBOLS-CLEANUP '(*C* *DONC* *MY-TYPEOF-COUNTER* *NOTINLINE-TEST-VAR* *S* *V* *Z* ADD-CRLF ALPHA ARITHMETIC-IF BAR BETA CALLER CHECK-CONST-FOLD CIRCULARITY-IN-CODE DELTA DM1A DM1B DM2A DM2B FEXPAND FEXPAND-1 FOO FOO137 FOO138 FOO140 FOO141 FOO142 FOO143 G HALIBUT INCFQ LTV1 LTV2 LTV3 TEST-WARNING-COMPILE-FILE-1 TEST-WARNING-COMPILE-FILE-2 M M1 MEXPAND MEXPAND-1 MY-MAC MY-TYPEOF NOTINLINE-TEST-FUNC-1 NOTINLINE-TEST-FUNC-2 P STEM T1 TEST-COMPILE-TIME-VALUE-C TEST-COMPILE-TIME-VALUE-F TEST-COMPILE-TIME-VALUE-V TEST-COMPILER TEST-CONSTANT-FOLDING TEST-FUN-ARGLIST TEST-KEY TEST-MACRO-ARGLIST TEST-MACRO-DOTTED-ARGS TEST10 TEST11 TEST12 TEST6 TEST9 TESTF TESTP TESTW WITH-VAR X))
WARNING: (SETF FIND-CLASS): redefining class TEST-WARNING-COMPILE-FILE-1 in
         top-level, was defined in
         /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-warn.lisp
WARNING: (SETF FIND-CLASS): redefining class TEST-WARNING-COMPILE-FILE-2 in
         top-level, was defined in
         /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/macro8-tst-warn.lispEQL-OK: NIL
RUN-TEST: finished "macro8" (0 errors out of 253 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"map.tst" @1>
(SETF A-VECTOR (MAKE-ARRAY 10))
EQUALP-OK: #(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)
(DO ((I 0 (1+ I)) (N (LENGTH A-VECTOR))) ((= I N)) (WHEN (NULL (AREF A-VECTOR I)) (SETF (AREF A-VECTOR I) 0)))
EQL-OK: NIL
(SETQ LISTE '(A B C D))
EQUAL-OK: (A B C D)
(SETQ X 'ANFANGSWERT-VON-X)
EQL-OK: ANFANGSWERT-VON-X
(DO ((X LISTE (CDR X)) (OLDX X X)) ((NULL X)) (PRINT OLDX) (PRINT X))
ANFANGSWERT-VON-X 
(A B C D) 
(A B C D) 
(B C D) 
(B C D) 
(C D) 
(C D) 
(D) 
EQL-OK: NIL
(DEFUN LIST-REVERSE (LIST) (DO ((X LIST (CDR X)) (Y 'NIL (CONS (CAR X) Y))) ((ENDP X) Y)))
EQL-OK: LIST-REVERSE
(LIST-REVERSE '(A B C D))
EQUAL-OK: (D C B A)
(SETQ FOO '(A B C D))
EQUAL-OK: (A B C D)
(SETQ BAR '(1 2 3 4))
EQUAL-OK: (1 2 3 4)
(DEFUN FKT (A B) (CONS A B))
EQL-OK: FKT
(MAPCAR #'ABS '(3 -4 2 -5 -6))
EQUAL-OK: (3 4 2 5 6)
(MAPCAR #'CONS '(A B C) '(1 2 3))
EQUAL-OK: ((A . 1) (B . 2) (C . 3))
(MAPCAR #'FKT FOO BAR)
EQUAL-OK: ((A . 1) (B . 2) (C . 3) (D . 4))
(DO ((X FOO (CDR X)) (Y BAR (CDR Y)) (Z 'NIL (CONS (FKT (CAR X) (CAR Y)) Z))) ((OR (NULL X) (NULL Y)) (NREVERSE Z)))
EQUAL-OK: ((A . 1) (B . 2) (C . 3) (D . 4))
(LET ((L '(1 2 3)) (R 0)) (DOLIST (X L R) (SETF R (+ R X))))
EQL-OK: 6
(LET ((L '(1 2 3))) (DOLIST (X L) (IF (> 0 X) (INCF X) (RETURN 10))))
EQL-OK: 10
(LET ((L '(1 2 3))) (DOLIST (X L) (INCF X)))
EQL-OK: NIL
(LET ((S 0)) (DOTIMES (I (+ 1 9) S) (SETF S (+ S I))))
EQL-OK: 45
(DOLIST (X '(A B C D)) (PRIN1 X) (PRINC " "))
A B C D 
EQL-OK: NIL
(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))))
EQL-OK: PALINDROMEP
(PALINDROMEP "Able was I ere I saw Elba")
EQL-OK: T
(PALINDROMEP "einnegermitgazellezagtimregennie")
EQL-OK: T
(PALINDROMEP "eisgekuehlter bommerlunder")
EQL-OK: NIL
(PALINDROMEP (REMOVE-IF-NOT #'ALPHA-CHAR-P "A man, a plan, a canal -- Panama"))
EQL-OK: T
(MAPCAR #'(LAMBDA (X) (LIST X)) '(A B C))
EQUAL-OK: ((A) (B) (C))
(MAPCAR #'(LAMBDA (X Y) (LIST X Y)) '(A B C) '(1 2 3))
EQUAL-OK: ((A 1) (B 2) (C 3))
(MAPCAR #'(LAMBDA (X Y) (LIST X Y)) '(A B C) '(1 2))
EQUAL-OK: ((A 1) (B 2))
(MAPCAR #'(LAMBDA (X Y) (LIST X Y)) '(C) '(1 2))
EQUAL-OK: ((C 1))
(MAPCAR #'(LAMBDA (X Y Z) (LIST X Y)) '(C) '(1 2) (U V W))
[SIMPLE-UNDEFINED-FUNCTION]: EVAL: undefined function U
EQL-OK: ERROR
(MAPCAR #'(LAMBDA (X Y Z) (LIST X Y)) '(C) '(1 2) '(U V W))
EQUAL-OK: ((C 1))
(MAPCAR #'(LAMBDA (X Y Z) (LIST X Y)) '(A B C) '(1 2 3) '(U V W))
EQUAL-OK: ((A 1) (B 2) (C 3))
(MAPCAR #'(LAMBDA (X Y Z) (LIST X Y Z)) '(A B C) '(1 2 3) '(U V W))
EQUAL-OK: ((A 1 U) (B 2 V) (C 3 W))
(MAPCAR #'(LAMBDA (X Y Z) (LIST X Y Z)) '(A B C) '(1 2 3) '(U V W . X))
EQUAL-OK: ((A 1 U) (B 2 V) (C 3 W))
(MAPCAR #'(LAMBDA (X Y Z) (LIST X Y Z)) '(A B C) '(1 2 3) '(U V . W))
[SIMPLE-TYPE-ERROR]: MAPCAR: A proper list must not end with W
EQL-OK: ERROR
(FUNCALL (COMPILE NIL (LAMBDA NIL (MAPCAR #'(LAMBDA (X Y Z) (LIST X Y Z)) '(A B C) '(1 2 3) '(U V . W)))))
[SIMPLE-TYPE-ERROR]: ENDP: A proper list must not end with W
EQL-OK: ERROR
(MAPC #'ABS '(3 -4 2 -5 -6))
EQUAL-OK: (3 -4 2 -5 -6)
(MAPC #'(LAMBDA (X Y Z) (LIST X Y Z)) '(A B C) '(1 2 3) '(U I V))
EQUAL-OK: (A B C)
(MAPCAR #'(LAMBDA (X Y Z) (LIST X Y Z)) '(A B C) '(1 2 3) '(U I V))
EQUAL-OK: ((A 1 U) (B 2 I) (C 3 V))
(MAPL #'(LAMBDA (X Y) (CONS X Y)) '(A B C D) '(1 2 3 4))
EQUAL-OK: (A B C D)
(MAPL #'(LAMBDA (X Y Z) (LIST X Y Z)) '(A B C) '(1 2 3) '(U I V))
EQUAL-OK: (A B C)
(MAPLIST #'(LAMBDA (X) (CONS 'FOO X)) '(A B C D))
EQUAL-OK: ((FOO A B C D) (FOO B C D) (FOO C D) (FOO D))
(MAPLIST #'(LAMBDA (X) (IF (MEMBER (CAR X) (CDR X)) 0 1)) '(A B A C D B C))
EQUAL-OK: (0 0 1 0 1 1 1)
(MAPLIST #'(LAMBDA (X Y Z) (LIST X Y Z)) '(A B C) '(1 2 3) '(U I V))
EQUAL-OK: (((A B C) (1 2 3) (U I V)) ((B C) (2 3) (I V)) ((C) (3) (V)))
(MAPLIST #'(LAMBDA (X Y Z) (LIST X Y Z)) '(A B C) '(1 2 3) '(U I))
EQUAL-OK: (((A B C) (1 2 3) (U I)) ((B C) (2 3) (I)))
(MAPLIST #'(LAMBDA (X Y Z) (LIST X Y Z)) '(A B C) '(1 2) '(U I V))
EQUAL-OK: (((A B C) (1 2) (U I V)) ((B C) (2) (I V)))
(MAPLIST #'(LAMBDA (X Y Z) (LIST X Y Z)) '(A B) '(1 2 3) '(U I V))
EQUAL-OK: (((A B) (1 2 3) (U I V)) ((B) (2 3) (I V)))
(MAPCON #'(LAMBDA (X) (AND (ODDP (CAR X)) (LIST (CAR X)))) '(5 4 3 2 1))
EQUAL-OK: (5 3 1)
(MAPCON #'(LAMBDA (X Y Z) (LIST X Y Z)) '(A B) '(1 2 3) '(U I V))
EQUAL-OK: ((A B) (1 2 3) (U I V) (B) (2 3) (I V))
(MAPCON #'(LAMBDA (X Y Z) (LIST X Y Z)) '(A B C) '(1 2 3) '(U I V))
EQUAL-OK: ((A B C) (1 2 3) (U I V) (B C) (2 3) (I V) (C) (3) (V))
(MAPCON (CONSTANTLY 1) (LIST 2))
EQL-OK: 1
(MAPLAP #'LIST '(A B) '(1 2 3) '(U I V))
EQUAL-OK: ((A B) (1 2 3) (U I V) (B) (2 3) (I V))
(MAPLAP #'LIST '(A B C) '(1 2 3) '(U I V))
EQUAL-OK: ((A B C) (1 2 3) (U I V) (B C) (2 3) (I V) (C) (3) (V))
(MAPCAN #'(LAMBDA (X) (AND (NUMBERP X) (LIST X))) '(A 1 B C 3 4 D 5))
EQUAL-OK: (1 3 4 5)
(MAPCAN #'(LAMBDA (X Y Z) (LIST X Y Z)) '(A B C) '(1 2 3) '(U I V))
EQUAL-OK: (A 1 U B 2 I C 3 V)
(MAPCAN #'(LAMBDA (X Y) (LIST X Y)) '(A B C) '(1 2 3))
EQUAL-OK: (A 1 B 2 C 3)
(MAPCAN #'(LAMBDA (X) (LIST X)) '(A B C))
EQUAL-OK: (A B C)
(MAPCON #'(LAMBDA (X) (LIST X)) '(A B C))
EQUAL-OK: ((A B C) (B C) (C))
(MAPCON #'(LAMBDA (X Y) (LIST X Y)) '(A B C) '(1 2))
EQUAL-OK: ((A B C) (1 2) (B C) (2))
(MAPCON #'(LAMBDA (X) (LIST X)) '(A B C))
EQUAL-OK: ((A B C) (B C) (C))
(MAPCAN #'IDENTITY '(1))
EQL-OK: 1
(MAPCAN #'IDENTITY '(1 2 3))
EQL-OK: 3
(MAPCAP #'LIST '(A B) '(1 2 3) '(U I V))
EQUAL-OK: (A 1 U B 2 I)
(MAPCAP #'LIST '(A B C) '(1 2 3) '(U I V))
EQUAL-OK: (A 1 U B 2 I C 3 V)
(SYMBOLS-CLEANUP '(A-VECTOR X LISTE LIST-REVERSE FOO BAR FKT PALINDROMEP))
EQL-OK: NIL
RUN-TEST: finished "map" (0 errors out of 64 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"mop.tst" @1>
(PROGN (DEFSTRUCT RECTANGLE1 (X #1=0.0) (Y #1#)) (DEFCLASS COUNTED1-CLASS (STRUCTURE-CLASS) ((COUNTER :INITFORM 0))) (DEFCLASS COUNTED1-RECTANGLE (RECTANGLE1) NIL (:METACLASS COUNTED1-CLASS)) (DEFMETHOD MAKE-INSTANCE :AFTER ((C COUNTED1-CLASS) &REST ARGS) (INCF (SLOT-VALUE C 'COUNTER))) (SLOT-VALUE (FIND-CLASS 'COUNTED1-RECTANGLE) 'COUNTER) (MAKE-INSTANCE 'COUNTED1-RECTANGLE) (LIST (SLOT-VALUE (FIND-CLASS 'COUNTED1-RECTANGLE) 'COUNTER) (SYMBOLS-CLEANUP '(RECTANGLE1 COUNTED1-CLASS COUNTED1-RECTANGLE))))
EQUAL-OK: (1 NIL)
(PROGN (DEFCLASS RECTANGLE2 NIL ((X :INITFORM #1=0.0 :INITARG X) (Y :INITFORM #1# :INITARG Y))) (DEFCLASS COUNTED2-CLASS (STANDARD-CLASS) ((COUNTER :INITFORM 0))) (DEFCLASS COUNTED2-RECTANGLE (RECTANGLE2) NIL (:METACLASS COUNTED2-CLASS)) (DEFMETHOD MAKE-INSTANCE :AFTER ((C COUNTED2-CLASS) &REST ARGS) (INCF (SLOT-VALUE C 'COUNTER))) (SLOT-VALUE (FIND-CLASS 'COUNTED2-RECTANGLE) 'COUNTER) (MAKE-INSTANCE 'COUNTED2-RECTANGLE) (LIST (SLOT-VALUE (FIND-CLASS 'COUNTED2-RECTANGLE) 'COUNTER) (SYMBOLS-CLEANUP '(RECTANGLE2 COUNTED2-CLASS COUNTED2-RECTANGLE))))
EQUAL-OK: (1 NIL)
(PROGN (DEFCLASS COUNTER NIL ((COUNT :ALLOCATION :CLASS :INITFORM 0 :READER HOW-MANY))) (DEFCLASS COUNTED-OBJECT (COUNTER) ((NAME :INITARG :NAME))) (DEFMETHOD INITIALIZE-INSTANCE :AFTER ((OBJ COUNTER) &REST ARGS) (INCF (SLOT-VALUE OBJ 'COUNT))) (UNLESS (CLASS-FINALIZED-P (FIND-CLASS 'COUNTER)) (FINALIZE-INHERITANCE (FIND-CLASS 'COUNTER))) (LIST (HOW-MANY (MAKE-INSTANCE 'COUNTED-OBJECT :NAME 'FOO)) (HOW-MANY (CLASS-PROTOTYPE (FIND-CLASS 'COUNTER))) (HOW-MANY (MAKE-INSTANCE 'COUNTED-OBJECT :NAME 'BAR)) (HOW-MANY (CLASS-PROTOTYPE (FIND-CLASS 'COUNTER))) (CLOS::GF-DYNAMICALLY-MODIFIABLE #'HOW-MANY) (SYMBOLS-CLEANUP '(COUNTER COUNTED-OBJECT HOW-MANY))))
EQUAL-OK: (1 1 2 2 NIL NIL)
(PROGN (DEFCLASS STRUCTURE01 NIL ((X :INITARG :X :ACCESSOR STRUCTURE01-X)) (:METACLASS STRUCTURE-CLASS)) (LET ((OBJECT (MAKE-INSTANCE 'STRUCTURE01 :X 17))) (LIST (TYPEP #'STRUCTURE01-X 'GENERIC-FUNCTION) (STRUCTURE01-X OBJECT) (PROGN (INCF (STRUCTURE01-X OBJECT)) (STRUCTURE01-X OBJECT)) (SYMBOLS-CLEANUP '(STRUCTURE01 STRUCTURE01-X)))))
EQUAL-OK: (T 17 18 NIL)
(PROGN (DEFSTRUCT STRUCTURE02A SLOT1 (SLOT2 T) (SLOT3 (FLOOR PI)) (SLOT4 44)) (DEFCLASS STRUCTURE02B (STRUCTURE02A) ((SLOT4 :INITFORM -44) (SLOT5) (SLOT6 :INITFORM T) (SLOT7 :INITFORM (FLOOR (* PI PI))) (SLOT8 :INITFORM 88)) (:METACLASS STRUCTURE-CLASS)) (DEFSTRUCT (STRUCTURE02C (:INCLUDE STRUCTURE02B (SLOT8 -88))) SLOT9 (SLOT10 T) (SLOT11 (FLOOR (EXP 3)))) (LET ((A (MAKE-STRUCTURE02C)) (B (MAKE-INSTANCE 'STRUCTURE02C))) (LIST (STRUCTURE02C-SLOT1 A) (STRUCTURE02C-SLOT2 A) (STRUCTURE02C-SLOT3 A) (STRUCTURE02C-SLOT4 A) (STRUCTURE02C-SLOT5 A) (STRUCTURE02C-SLOT6 A) (STRUCTURE02C-SLOT7 A) (STRUCTURE02C-SLOT8 A) (STRUCTURE02C-SLOT9 A) (STRUCTURE02C-SLOT10 A) (STRUCTURE02C-SLOT11 A) (STRUCTURE02C-SLOT2 B) (STRUCTURE02C-SLOT3 B) (STRUCTURE02C-SLOT4 B) (STRUCTURE02C-SLOT6 B) (STRUCTURE02C-SLOT7 B) (STRUCTURE02C-SLOT8 B) (STRUCTURE02C-SLOT10 B) (STRUCTURE02C-SLOT11 B) (EQUALP A (COPY-STRUCTURE A)) (EQUALP B (COPY-STRUCTURE B)) (EQUALP A B) (SYMBOLS-CLEANUP '(STRUCTURE02A STRUCTURE02B STRUCTURE02C)))))
EQUAL-OK: (NIL T 3 -44 NIL T 9 -88 NIL T 20 T 3 -44 T 9 -88 T 20 T T NIL NIL)
(PROGN (DEFCLASS STRUCTURE03A NIL ((SLOT1) (SLOT2 :INITFORM T) (SLOT3 :INITFORM (FLOOR PI)) (SLOT4 :INITFORM 44)) (:METACLASS STRUCTURE-CLASS)) (DEFSTRUCT (STRUCTURE03B (:INCLUDE STRUCTURE03A (SLOT4 -44))) SLOT5 (SLOT6 T) (SLOT7 (FLOOR (* PI PI))) (SLOT8 88)) (DEFCLASS STRUCTURE03C (STRUCTURE03B) ((SLOT8 :INITFORM -88) (SLOT9) (SLOT10 :INITFORM T) (SLOT11 :INITFORM (FLOOR (EXP 3)))) (:METACLASS STRUCTURE-CLASS)) (LET ((B (MAKE-INSTANCE 'STRUCTURE03C))) (LIST (SLOT-VALUE B 'SLOT2) (SLOT-VALUE B 'SLOT3) (SLOT-VALUE B 'SLOT4) (SLOT-VALUE B 'SLOT6) (SLOT-VALUE B 'SLOT7) (SLOT-VALUE B 'SLOT8) (SLOT-VALUE B 'SLOT10) (SLOT-VALUE B 'SLOT11) (EQUALP B (COPY-STRUCTURE B)) (SYMBOLS-CLEANUP '(STRUCTURE03A STRUCTURE03B STRUCTURE03C)))))
EQUAL-OK: (T 3 -44 T 9 -88 T 20 T NIL)
(DEFUN AS-STRING (OBJ) (LET ((STRING (WRITE-TO-STRING OBJ :ESCAPE T :PRETTY NIL))) (LET ((I (SEARCH "#x" STRING))) (WHEN I (LET ((J (OR (POSITION-IF-NOT #'(LAMBDA (C) (DIGIT-CHAR-P C 16)) STRING :START (+ I 2)) (LENGTH STRING)))) (SETQ STRING (CONCATENATE 'STRING (SUBSEQ STRING 0 I) (SUBSEQ STRING J)))))) (DO ((POS 0)) (NIL) (LET ((I (SEARCH "{" STRING :START2 POS))) (UNLESS I (RETURN)) (LET ((J (POSITION-IF-NOT #'(LAMBDA (C) (DIGIT-CHAR-P C 16)) STRING :START (+ I 1)))) (IF (AND J (EQL (CHAR STRING J) #\})) (PROGN (SETQ STRING (CONCATENATE 'STRING (SUBSEQ STRING 0 (+ I 1)) (SUBSEQ STRING J))) (SETQ POS (+ I 2))) (SETQ POS (+ I 1)))))) (DO ((POS 0)) (NIL) (LET ((I (SEARCH ">" STRING :START2 POS))) (UNLESS I (RETURN)) (IF (AND (>= (- I POS) 8) (EQL (POSITION-IF-NOT #'(LAMBDA (C) (DIGIT-CHAR-P C 16)) STRING :START (- I 8)) I)) (PROGN (SETQ STRING (CONCATENATE 'STRING (SUBSEQ STRING 0 (- I 8)) (SUBSEQ STRING I))) (SETQ POS (+ (- I 8) 1))) (SETQ POS (+ I 1))))) STRING))
EQL-OK: AS-STRING
(AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'SPECIALIZER)))
EQUAL-OK: "#<SPECIALIZER >"
(AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'CLASS)))
EQUAL-OK: "#<CLASS #<UNBOUND>>"
(AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'STANDARD-CLASS)))
EQUAL-OK: "#<STANDARD-CLASS #<UNBOUND> :UNINITIALIZED>"
(AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'STRUCTURE-CLASS)))
EQUAL-OK: "#<STRUCTURE-CLASS #<UNBOUND>>"
(AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'EQL-SPECIALIZER)))
EQUAL-OK: "#<EQL-SPECIALIZER #<UNBOUND>>"
(AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'SLOT-DEFINITION)))
EQUAL-OK: "#<SLOT-DEFINITION #<UNBOUND> >"
(AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'DIRECT-SLOT-DEFINITION)))
EQUAL-OK: "#<DIRECT-SLOT-DEFINITION #<UNBOUND> >"
(AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'EFFECTIVE-SLOT-DEFINITION)))
EQUAL-OK: "#<EFFECTIVE-SLOT-DEFINITION #<UNBOUND> >"
(AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'STANDARD-DIRECT-SLOT-DEFINITION)))
EQUAL-OK: "#<STANDARD-DIRECT-SLOT-DEFINITION #<UNBOUND> >"
(AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'STANDARD-EFFECTIVE-SLOT-DEFINITION)))
EQUAL-OK: "#<STANDARD-EFFECTIVE-SLOT-DEFINITION #<UNBOUND> >"
(AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'METHOD-COMBINATION)))
EQUAL-OK: "#<METHOD-COMBINATION #<UNBOUND> >"
(AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'METHOD)))
EQUAL-OK: "#<METHOD >"
(AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'STANDARD-METHOD)))
EQUAL-OK: "#<STANDARD-METHOD :UNINITIALIZED>"
(AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'STANDARD-READER-METHOD)))
EQUAL-OK: "#<STANDARD-READER-METHOD :UNINITIALIZED>"
(AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'STANDARD-WRITER-METHOD)))
EQUAL-OK: "#<STANDARD-WRITER-METHOD :UNINITIALIZED>"
(AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'FUNCALLABLE-STANDARD-OBJECT)))
EQUAL-OK: "#<FUNCALLABLE-STANDARD-OBJECT #<UNBOUND>>"
(AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'GENERIC-FUNCTION)))
EQUAL-OK: "#<GENERIC-FUNCTION #<UNBOUND>>"
(AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'STANDARD-GENERIC-FUNCTION)))
EQUAL-OK: "#<STANDARD-GENERIC-FUNCTION #<UNBOUND>>"
(PROGN (DEFCLASS FOO135B NIL ((S :INITARG :S :ACCESSOR FOO135B-S))) (UNLESS (CLASS-FINALIZED-P (FIND-CLASS 'FOO135B)) (FINALIZE-INHERITANCE (FIND-CLASS 'FOO135B))) (CLASS-PROTOTYPE (FIND-CLASS 'FOO135B)) (DEFCLASS FOO135B (FOO135A) ((S :ACCESSOR FOO135B-S))) (SYMBOLS-CLEANUP '(FOO135B FOO135B-S)) T)
EQL-OK: T
(LET ((WRONG 'NIL)) (LABELS ((CHECK-TREE (C) (UNLESS (MEMBER (CLASS-NAME C) '(STREAM SEQUENCE LIST NUMBER REAL RATIONAL)) (LET ((P (CLASS-PROTOTYPE C))) (UNLESS (EQ (CLASS-OF P) C) (PUSH (LIST C P) WRONG)))) (UNLESS (OR (MEMBER (FIND-CLASS 'STANDARD-OBJECT) (CLASS-PRECEDENCE-LIST C)) (MEMBER (FIND-CLASS 'STRUCTURE-OBJECT) (CLASS-PRECEDENCE-LIST C))) (MAPC #'CHECK-TREE (CLASS-DIRECT-SUBCLASSES C))))) (CHECK-TREE (FIND-CLASS 'T)) WRONG))
EQL-OK: NIL
(PROGN (SETQ *FORWARD-REFERENCED-CLASS-MISDESIGN* T) (DEFCLASS FOO133 (FORWARDCLASS03) NIL) (DEFPARAMETER *FORWARDCLASS* (FIRST (CLASS-DIRECT-SUPERCLASSES (FIND-CLASS 'FOO133)))) T)
EQL-OK: T
(TYPEP 1 *FORWARDCLASS*)
[SIMPLE-ERROR]: TYPEP: invalid type specification #1=#<FORWARD-REFERENCED-CLASS FORWARDCLASS03>
EQL-OK: ERROR
(LOCALLY (DECLARE (COMPILE)) (TYPEP 1 *FORWARDCLASS*))
[SIMPLE-ERROR]: TYPEP: invalid type specification #1=#<FORWARD-REFERENCED-CLASS FORWARDCLASS03>
EQL-OK: ERROR
(TYPE-EXPAND *FORWARDCLASS*)
[SIMPLE-ERROR]: TYPE-EXPAND: invalid type specification #1=#<FORWARD-REFERENCED-CLASS FORWARDCLASS03>
EQL-OK: ERROR
(SUBTYPEP *FORWARDCLASS* 'T)
[SIMPLE-ERROR]: SUBTYPEP: invalid type specification #1=#<FORWARD-REFERENCED-CLASS FORWARDCLASS03>
EQL-OK: ERROR
(SUBTYPEP 'NIL *FORWARDCLASS*)
[SIMPLE-ERROR]: SUBTYPEP: invalid type specification #1=#<FORWARD-REFERENCED-CLASS FORWARDCLASS03>
EQL-OK: ERROR
(SYSTEM::SUBTYPE-INTEGER *FORWARDCLASS*)
[SIMPLE-ERROR]: SUBTYPEP: invalid type specification #1=#<FORWARD-REFERENCED-CLASS FORWARDCLASS03>
EQL-OK: ERROR
(SYSTEM::SUBTYPE-SEQUENCE *FORWARDCLASS*)
EQL-OK: NIL
(WRITE-TO-STRING *FORWARDCLASS* :READABLY T)
[SIMPLE-PRINT-NOT-READABLE]: PRINT: Despite *PRINT-READABLY*, #1=#<FORWARD-REFERENCED-CLASS FORWARDCLASS03> cannot be printed readably.
EQL-OK: ERROR
(SETF (FIND-CLASS 'FOO133A) *FORWARDCLASS*)
[SIMPLE-TYPE-ERROR]: (SETF FIND-CLASS): #1=#<FORWARD-REFERENCED-CLASS FORWARDCLASS03> is not a class
EQL-OK: ERROR
(CLASS-NAME *FORWARDCLASS*)
EQL-OK: FORWARDCLASS03
(SETF (CLASS-NAME *FORWARDCLASS*) 'FORWARDCLASS03CHANGED)
[SIMPLE-ERROR]: REINITIALIZE-INSTANCE: It is not allowed to reinitialize #1=#<FORWARD-REFERENCED-CLASS FORWARDCLASS03>
EQL-OK: ERROR
(CLASS-NAME *FORWARDCLASS*)
EQL-OK: FORWARDCLASS03
(CLASS-DIRECT-SUPERCLASSES *FORWARDCLASS*)
WARNING: CLASS-DIRECT-SUPERCLASSES being called on
         #1=#<FORWARD-REFERENCED-CLASS FORWARDCLASS03>, but class
         FORWARDCLASS03 is not yet defined.
EQL-OK: NIL
(CLASS-DIRECT-SLOTS *FORWARDCLASS*)
WARNING: CLASS-DIRECT-SLOTS being called on
         #1=#<FORWARD-REFERENCED-CLASS FORWARDCLASS03>, but class
         FORWARDCLASS03 is not yet defined.
EQL-OK: NIL
(CLASS-DIRECT-DEFAULT-INITARGS *FORWARDCLASS*)
WARNING: CLASS-DIRECT-DEFAULT-INITARGS being called on
         #1=#<FORWARD-REFERENCED-CLASS FORWARDCLASS03>EQL-OK: NIL
(, but class
         FORWARDCLASS03 is not yet defined.
CLASS-PRECEDENCE-LIST *FORWARDCLASS*)
[METHOD-CALL-TYPE-ERROR]: NO-APPLICABLE-METHOD: When calling #1=#<STANDARD-GENERIC-FUNCTION CLASS-PRECEDENCE-LIST> with arguments #2=(#3=#<FORWARD-REFERENCED-CLASS FORWARDCLASS03>), no method is applicable.
EQL-OK: ERROR
(CLASS-SLOTS *FORWARDCLASS*)
[METHOD-CALL-TYPE-ERROR]: NO-APPLICABLE-METHOD: When calling #1=#<STANDARD-GENERIC-FUNCTION CLASS-SLOTS> with arguments #2=(#3=#<FORWARD-REFERENCED-CLASS FORWARDCLASS03>), no method is applicable.
EQL-OK: ERROR
(CLASS-DEFAULT-INITARGS *FORWARDCLASS*)
[METHOD-CALL-TYPE-ERROR]: NO-APPLICABLE-METHOD: When calling #1=#<STANDARD-GENERIC-FUNCTION CLASS-DEFAULT-INITARGS> with arguments #2=(#3=#<FORWARD-REFERENCED-CLASS FORWARDCLASS03>), no method is applicable.
EQL-OK: ERROR
(CLASS-FINALIZED-P *FORWARDCLASS*)
EQL-OK: NIL
(CLASS-PROTOTYPE *FORWARDCLASS*)
[METHOD-CALL-TYPE-ERROR]: NO-APPLICABLE-METHOD: When calling #1=#<STANDARD-GENERIC-FUNCTION CLASS-PROTOTYPE> with arguments #2=(#3=#<FORWARD-REFERENCED-CLASS FORWARDCLASS03>), no method is applicable.
EQL-OK: ERROR
(FINALIZE-INHERITANCE *FORWARDCLASS*)
[METHOD-CALL-TYPE-ERROR]: NO-APPLICABLE-METHOD: When calling #1=#<STANDARD-GENERIC-FUNCTION FINALIZE-INHERITANCE> with arguments #2=(#3=#<FORWARD-REFERENCED-CLASS FORWARDCLASS03>), no method is applicable.
EQL-OK: ERROR
(CLASS-FINALIZED-P *FORWARDCLASS*)
EQL-OK: NIL
(EVAL `(DEFMETHOD FOO133A ((X ,*FORWARDCLASS*))))
[SIMPLE-SOURCE-PROGRAM-ERROR]: DEFMETHOD FOO133A: Invalid specializer #1=#<FORWARD-REFERENCED-CLASS FORWARDCLASS03> in lambda list #2=((X #1#))
EQL-OK: ERROR
(PROGN (DEFGENERIC FOO133B (X) (:METHOD ((X INTEGER)) X)) (ADD-METHOD #'FOO133B (MAKE-INSTANCE 'STANDARD-METHOD :QUALIFIERS 'NIL :LAMBDA-LIST '(X) :SPECIALIZERS (LIST *FORWARDCLASS*) :FUNCTION #'(LAMBDA (ARGS NEXT-METHODS) (FIRST ARGS)))))
[SIMPLE-ERROR]: (INITIALIZE-INSTANCE STANDARD-METHOD): The element #1=#<FORWARD-REFERENCED-CLASS FORWARDCLASS03> of the :SPECIALIZERS argument is not yet defined.
EQL-OK: ERROR
(NOT (NOT (TYPEP *FORWARDCLASS* 'CLASS)))
EQL-OK: T
(NOT (NOT (TYPEP *FORWARDCLASS* 'SPECIALIZER)))
EQL-OK: T
(SUBTYPEP 'FORWARD-REFERENCED-CLASS 'CLASS)
EQL-OK: T
(SUBTYPEP 'FORWARD-REFERENCED-CLASS 'SPECIALIZER)
EQL-OK: T
(PROGN (SETQ *FORWARD-REFERENCED-CLASS-MISDESIGN* NIL) (DEFCLASS FOO134 (FORWARDCLASS04) NIL) (DEFPARAMETER *FORWARDCLASS* (FIRST (CLASS-DIRECT-SUPERCLASSES (FIND-CLASS 'FOO134)))) T)
EQL-OK: T
(TYPEP 1 *FORWARDCLASS*)
[SIMPLE-ERROR]: TYPEP: invalid type specification #1=#<FORWARD-REFERENCED-CLASS FORWARDCLASS04>
EQL-OK: ERROR
(LOCALLY (DECLARE (COMPILE)) (TYPEP 1 *FORWARDCLASS*))
[SIMPLE-ERROR]: TYPEP: invalid type specification #1=#<FORWARD-REFERENCED-CLASS FORWARDCLASS04>
EQL-OK: ERROR
(TYPE-EXPAND *FORWARDCLASS*)
[SIMPLE-ERROR]: TYPE-EXPAND: invalid type specification #1=#<FORWARD-REFERENCED-CLASS FORWARDCLASS04>
EQL-OK: ERROR
(SUBTYPEP *FORWARDCLASS* 'T)
[SIMPLE-ERROR]: SUBTYPEP: invalid type specification #1=#<FORWARD-REFERENCED-CLASS FORWARDCLASS04>
EQL-OK: ERROR
(SUBTYPEP 'NIL *FORWARDCLASS*)
[SIMPLE-ERROR]: SUBTYPEP: invalid type specification #1=#<FORWARD-REFERENCED-CLASS FORWARDCLASS04>
EQL-OK: ERROR
(SYSTEM::SUBTYPE-INTEGER *FORWARDCLASS*)
[SIMPLE-ERROR]: SUBTYPEP: invalid type specification #1=#<FORWARD-REFERENCED-CLASS FORWARDCLASS04>
EQL-OK: ERROR
(SYSTEM::SUBTYPE-SEQUENCE *FORWARDCLASS*)
EQL-OK: NIL
(WRITE-TO-STRING *FORWARDCLASS* :READABLY T)
[SIMPLE-PRINT-NOT-READABLE]: PRINT: Despite *PRINT-READABLY*, #1=#<FORWARD-REFERENCED-CLASS FORWARDCLASS04> cannot be printed readably.
EQL-OK: ERROR
(SETF (FIND-CLASS 'FOO134A) *FORWARDCLASS*)
[SIMPLE-TYPE-ERROR]: (SETF FIND-CLASS): #1=#<FORWARD-REFERENCED-CLASS FORWARDCLASS04> is not a class
EQL-OK: ERROR
(CLASS-NAME *FORWARDCLASS*)
EQL-OK: FORWARDCLASS04
(SETF (CLASS-NAME *FORWARDCLASS*) 'FORWARDCLASS04CHANGED)
[METHOD-CALL-TYPE-ERROR]: NO-APPLICABLE-METHOD: When calling #1=#<STANDARD-GENERIC-FUNCTION (SETF CLASS-NAME)> with arguments #2=(FORWARDCLASS04CHANGED #3=#<FORWARD-REFERENCED-CLASS FORWARDCLASS04>), no method is applicable.
EQL-OK: ERROR
(CLASS-NAME *FORWARDCLASS*)
EQL-OK: FORWARDCLASS04
(CLASS-DIRECT-SUPERCLASSES *FORWARDCLASS*)
WARNING: CLASS-DIRECT-SUPERCLASSES being called on
         #1=#<FORWARD-REFERENCED-CLASS FORWARDCLASS04>EQL-OK: NIL
, but class
         FORWARDCLASS04 is not yet defined.
(CLASS-DIRECT-SLOTS *FORWARDCLASS*)
WARNING: CLASS-DIRECT-SLOTS being called on
         #1=#<FORWARD-REFERENCED-CLASS FORWARDCLASS04>EQL-OK: NIL
, but class
         FORWARDCLASS04 is not yet defined.
(CLASS-DIRECT-DEFAULT-INITARGS *FORWARDCLASS*)
WARNING: CLASS-DIRECT-DEFAULT-INITARGS being called on
         #1=#<FORWARD-REFERENCED-CLASS FORWARDCLASS04>, but class
         FORWARDCLASS04 is not yet defined.EQL-OK: NIL
(CLASS-PRECEDENCE-LIST *FORWARDCLASS*)
[METHOD-CALL-TYPE-ERROR]: 
NO-APPLICABLE-METHOD: When calling #1=#<STANDARD-GENERIC-FUNCTION CLASS-PRECEDENCE-LIST> with arguments #2=(#3=#<FORWARD-REFERENCED-CLASS FORWARDCLASS04>), no method is applicable.
EQL-OK: ERROR
(CLASS-SLOTS *FORWARDCLASS*)
[METHOD-CALL-TYPE-ERROR]: NO-APPLICABLE-METHOD: When calling #1=#<STANDARD-GENERIC-FUNCTION CLASS-SLOTS> with arguments #2=(#3=#<FORWARD-REFERENCED-CLASS FORWARDCLASS04>), no method is applicable.
EQL-OK: ERROR
(CLASS-DEFAULT-INITARGS *FORWARDCLASS*)
[METHOD-CALL-TYPE-ERROR]: NO-APPLICABLE-METHOD: When calling #1=#<STANDARD-GENERIC-FUNCTION CLASS-DEFAULT-INITARGS> with arguments #2=(#3=#<FORWARD-REFERENCED-CLASS FORWARDCLASS04>), no method is applicable.
EQL-OK: ERROR
(CLASS-FINALIZED-P *FORWARDCLASS*)
EQL-OK: NIL
(CLASS-PROTOTYPE *FORWARDCLASS*)
[METHOD-CALL-TYPE-ERROR]: NO-APPLICABLE-METHOD: When calling #1=#<STANDARD-GENERIC-FUNCTION CLASS-PROTOTYPE> with arguments #2=(#3=#<FORWARD-REFERENCED-CLASS FORWARDCLASS04>), no method is applicable.
EQL-OK: ERROR
(FINALIZE-INHERITANCE *FORWARDCLASS*)
[METHOD-CALL-TYPE-ERROR]: NO-APPLICABLE-METHOD: When calling #1=#<STANDARD-GENERIC-FUNCTION FINALIZE-INHERITANCE> with arguments #2=(#3=#<FORWARD-REFERENCED-CLASS FORWARDCLASS04>), no method is applicable.
EQL-OK: ERROR
(CLASS-FINALIZED-P *FORWARDCLASS*)
EQL-OK: NIL
(EVAL `(DEFMETHOD FOO134A ((X ,*FORWARDCLASS*))))
[SIMPLE-SOURCE-PROGRAM-ERROR]: DEFMETHOD FOO134A: Invalid specializer #1=#<FORWARD-REFERENCED-CLASS FORWARDCLASS04> in lambda list #2=((X #1#))
EQL-OK: ERROR
(PROGN (DEFGENERIC FOO134B (X) (:METHOD ((X INTEGER)) X)) (ADD-METHOD #'FOO134B (MAKE-INSTANCE 'STANDARD-METHOD :QUALIFIERS 'NIL :LAMBDA-LIST '(X) :SPECIALIZERS (LIST *FORWARDCLASS*) :FUNCTION #'(LAMBDA (ARGS NEXT-METHODS) (FIRST ARGS)))))
[SIMPLE-ERROR]: (INITIALIZE-INSTANCE STANDARD-METHOD): The element #1=#<FORWARD-REFERENCED-CLASS FORWARDCLASS04> of the :SPECIALIZERS argument is not of type SPECIALIZER.
EQL-OK: ERROR
(NOT (NOT (TYPEP *FORWARDCLASS* 'CLASS)))
EQL-OK: NIL
(NOT (NOT (TYPEP *FORWARDCLASS* 'SPECIALIZER)))
EQL-OK: NIL
(SUBTYPEP 'FORWARD-REFERENCED-CLASS 'CLASS)
EQL-OK: NIL
(SUBTYPEP 'FORWARD-REFERENCED-CLASS 'SPECIALIZER)
EQL-OK: NIL
(LET ((F (MAKE-INSTANCE 'FUNCALLABLE-STANDARD-OBJECT))) (SET-FUNCALLABLE-INSTANCE-FUNCTION F #'CONS) (FUNCALL F 'A 'B))
EQUAL-OK: (A . B)
(LET ((F (MAKE-INSTANCE 'FUNCALLABLE-STANDARD-OBJECT))) (SET-FUNCALLABLE-INSTANCE-FUNCTION F #'(LAMBDA (X Y) (DECLARE (COMPILE)) (CONS X Y))) (FUNCALL F 'A 'B))
EQUAL-OK: (A . B)
(LET ((F (MAKE-INSTANCE 'FUNCALLABLE-STANDARD-OBJECT))) (SET-FUNCALLABLE-INSTANCE-FUNCTION F #'(LAMBDA (X Y) (DECLARE (COMPILE)) (LIST 'START X Y 'END))) (FUNCALL F 'A 'B))
EQUAL-OK: (START A B END)
(LET ((F (MAKE-INSTANCE 'FUNCALLABLE-STANDARD-OBJECT))) (SET-FUNCALLABLE-INSTANCE-FUNCTION F #'(LAMBDA (X Y) (CONS X Y))) (FUNCALL F 'A 'B))
EQUAL-OK: (A . B)
(LET ((F (MAKE-INSTANCE 'FUNCALLABLE-STANDARD-OBJECT))) (DEFGENERIC TEST-FUNCALLABLE-01 (X Y) (:METHOD (X Y) (CONS X Y))) (SET-FUNCALLABLE-INSTANCE-FUNCTION F #'TEST-FUNCALLABLE-01) (LIST (FUNCALL F 'A 'B) (SYMBOL-CLEANUP 'TEST-FUNCALLABLE-01)))
EQUAL-OK: ((A . B) T)
(PROGN (DEFCLASS MY-GF-CLASS (STANDARD-GENERIC-FUNCTION) ((MYSLOT :INITFORM 17 :ACCESSOR MY-MYSLOT)) (:METACLASS FUNCALLABLE-STANDARD-CLASS)) T)
EQL-OK: T
(PROGN (DEFGENERIC FOO110 (X)) (DEFMETHOD FOO110 ((X INTEGER)) (* X X)) (DEFGENERIC FOO110 (X) (:GENERIC-FUNCTION-CLASS MY-GF-CLASS)) (DEFMETHOD FOO110 ((X FLOAT)) (* X X X)) (LIST (FOO110 10) (FOO110 3.0) (MY-MYSLOT #'FOO110) (SYMBOL-CLEANUP 'FOO110)))
EQUAL-OK: (100 27.0 17 T)
(PROGN (DEFGENERIC FOO111 (X)) (DEFMETHOD FOO111 ((X INTEGER)) (* X X)) (DEFGENERIC FOO111 (X) (:GENERIC-FUNCTION-CLASS MY-GF-CLASS)) (GC) (DEFMETHOD FOO111 ((X FLOAT)) (* X X X)) (LIST (FOO111 10) (FOO111 3.0) (MY-MYSLOT #'FOO111) (EQ (SYSTEM::%RECORD-REF #'FOO111 0) (CLOS::CLASS-CURRENT-VERSION (FIND-CLASS 'MY-GF-CLASS))) (SYMBOL-CLEANUP 'FOO111)))
EQUAL-OK: (100 27.0 17 T T)
(PROGN (DEFGENERIC FOO112 (X)) (DEFMETHOD FOO112 ((X INTEGER)) (* X X)) (DEFGENERIC FOO112 (X) (:GENERIC-FUNCTION-CLASS MY-GF-CLASS)) (DEFMETHOD FOO112 ((X FLOAT)) (* X X X)) (GC) (LIST (FOO112 10) (FOO112 3.0) (MY-MYSLOT #'FOO112) (EQ (SYSTEM::%RECORD-REF #'FOO112 0) (CLOS::CLASS-CURRENT-VERSION (FIND-CLASS 'MY-GF-CLASS))) (SYMBOL-CLEANUP 'FOO112)))
EQUAL-OK: (100 27.0 17 T T)
(PROGN (ENSURE-GENERIC-FUNCTION 'FOO113 :DECLARE '((OPTIMIZE (SPEED 3)))) (LIST (GENERIC-FUNCTION-DECLARATIONS #'FOO113) (SYMBOL-CLEANUP 'FOO113)))
EQUAL-OK: (((OPTIMIZE (SPEED 3))) T)
(PROGN (ENSURE-GENERIC-FUNCTION 'FOO114 :DECLARATIONS '((OPTIMIZE (SPEED 3)))) (LIST (GENERIC-FUNCTION-DECLARATIONS #'FOO114) (SYMBOL-CLEANUP 'FOO114)))
EQUAL-OK: (((OPTIMIZE (SPEED 3))) T)
(PROGN (ENSURE-GENERIC-FUNCTION 'FOO115) (DEFMETHOD FOO115 (X Y) (LIST X Y)) (LIST (FOO115 3 4) (SYMBOL-CLEANUP 'FOO115)))
EQUAL-OK: ((3 4) T)
(PROGN (DEFCLASS OPTION-CLASS (STANDARD-CLASS) ((OPTION :ACCESSOR CL-OPTION :INITARG :MY-OPTION))) (MACROLET ((EVAL-SUCCEEDS (FORM) `(NOT (NTH-VALUE 1 (IGNORE-ERRORS (EVAL ',FORM)))))) (LIST (EVAL-SUCCEEDS (DEFCLASS TESTCLASS02A NIL NIL (:MY-OPTION FOO) (:METACLASS OPTION-CLASS))) (CL-OPTION (FIND-CLASS 'TESTCLASS02A)) (EVAL-SUCCEEDS (DEFCLASS TESTCLASS02B NIL NIL (:MY-OPTION BAR) (:MY-OPTION BAZ) (:METACLASS OPTION-CLASS))) (EVAL-SUCCEEDS (DEFCLASS TESTCLASS02C NIL NIL (:OTHER-OPTION FOO) (:METACLASS OPTION-CLASS))) (SYMBOLS-CLEANUP '(OPTION-CLASS TESTCLASS02A TESTCLASS02B TESTCLASS02C)))))
EQUAL-OK: (T (FOO) NIL NIL NIL)
(PROGN (DEFCLASS OPTION-SLOT-DEFINITION (STANDARD-DIRECT-SLOT-DEFINITION) ((OPTION :ACCESSOR SL-OPTION :INITARG :MY-OPTION))) (DEFCLASS OPTION-SLOT-CLASS (STANDARD-CLASS) NIL) (DEFMETHOD DIRECT-SLOT-DEFINITION-CLASS ((C OPTION-SLOT-CLASS) &REST ARGS) (DECLARE (IGNORE ARGS)) (FIND-CLASS 'OPTION-SLOT-DEFINITION)) (MACROLET ((EVAL-SUCCEEDS (FORM) `(NOT (NTH-VALUE 1 (IGNORE-ERRORS (EVAL ',FORM)))))) (LIST (EVAL-SUCCEEDS (DEFCLASS TESTCLASS03A NIL ((X :MY-OPTION FOO)) (:METACLASS OPTION-SLOT-CLASS))) (SL-OPTION (FIRST (CLASS-DIRECT-SLOTS (FIND-CLASS 'TESTCLASS03A)))) (EVAL-SUCCEEDS (DEFCLASS TESTCLASS03B NIL ((X :MY-OPTION BAR :MY-OPTION BAZ)) (:METACLASS OPTION-SLOT-CLASS))) (SL-OPTION (FIRST (CLASS-DIRECT-SLOTS (FIND-CLASS 'TESTCLASS03B)))) (EVAL-SUCCEEDS (DEFCLASS TESTCLASS03C NIL ((X :OTHER-OPTION FOO)) (:METACLASS OPTION-SLOT-CLASS))) (EVAL-SUCCEEDS (DEFCLASS TESTCLASS03D NIL ((X :MY-OPTION FOO)) (:MY-OPTION BAR) (:METACLASS OPTION-SLOT-CLASS))) (SYMBOLS-CLEANUP '(OPTION-SLOT-DEFINITION OPTION-SLOT-CLASS TESTCLASS03A TESTCLASS03B TESTCLASS03C TESTCLASS03D)))))
EQUAL-OK: (T FOO T (BAR BAZ) NIL NIL NIL)
(PROGN (DEFCLASS EXTENDED-SLOT-DEFINITION (STANDARD-DIRECT-SLOT-DEFINITION) ((OPTION1 :INITARG :OPTION1) (OPTION2 :INITARG :OPTION2))) (DEFCLASS EXTENDED-SLOT-CLASS (STANDARD-CLASS) NIL) (DEFMETHOD DIRECT-SLOT-DEFINITION-CLASS ((C EXTENDED-SLOT-CLASS) &REST ARGS) (DECLARE (IGNORE ARGS)) (FIND-CLASS 'EXTENDED-SLOT-DEFINITION)) (DEFCLASS TESTCLASS03E NIL ((X :OPTION1 BAR)) (:METACLASS EXTENDED-SLOT-CLASS)) (DEFCLASS TESTCLASS03E NIL ((X :OPTION2 BAZ)) (:METACLASS EXTENDED-SLOT-CLASS)) (LET ((CL (FIND-CLASS 'TESTCLASS03E))) (LIST (LENGTH (CLASS-DIRECT-SLOTS CL)) (SLOT-BOUNDP (FIRST (CLASS-DIRECT-SLOTS CL)) 'OPTION1) (SLOT-BOUNDP (FIRST (CLASS-DIRECT-SLOTS CL)) 'OPTION2) (SYMBOLS-CLEANUP '(EXTENDED-SLOT-DEFINITION EXTENDED-SLOT-CLASS TESTCLASS03E)))))
EQUAL-OK: (1 NIL T NIL)
(PROGN (DEFCLASS TESTCLASS51 (STANDARD-CLASS) NIL (:DEFAULT-INITARGS :DOCUMENTATION "some doc")) (LIST (MAPCAR #'(LAMBDA (X) (DOCUMENTATION X 'TYPE)) (LIST (DEFCLASS TESTCLASS51A NIL NIL) (DEFCLASS TESTCLASS51B NIL NIL (:METACLASS TESTCLASS51)) (DEFCLASS TESTCLASS51C NIL NIL (:DOCUMENTATION "some other doc") (:METACLASS TESTCLASS51)))) (SYMBOLS-CLEANUP '(TESTCLASS51 TESTCLASS51A TESTCLASS51B TESTCLASS51C))))
EQUAL-OK: ((NIL "some doc" "some other doc") NIL)
(PROGN (DEFCLASS OPTION-GENERIC-FUNCTION (STANDARD-GENERIC-FUNCTION) ((OPTION :ACCESSOR GF-OPTION :INITARG :MY-OPTION)) (:METACLASS FUNCALLABLE-STANDARD-CLASS)) (MACROLET ((EVAL-SUCCEEDS (FORM) `(NOT (NTH-VALUE 1 (IGNORE-ERRORS (EVAL ',FORM)))))) (LIST (EVAL-SUCCEEDS (DEFGENERIC TESTGF04A (X Y) (:MY-OPTION FOO) (:GENERIC-FUNCTION-CLASS OPTION-GENERIC-FUNCTION))) (GF-OPTION #'TESTGF04A) (EVAL-SUCCEEDS (DEFGENERIC TESTGF04B (X Y) (:MY-OPTION BAR) (:MY-OPTION BAZ) (:GENERIC-FUNCTION-CLASS OPTION-GENERIC-FUNCTION))) (EVAL-SUCCEEDS (DEFGENERIC TESTGF04C (X Y) (:MY-OPTION BAR) (:OTHER-OPTION BAZ) (:GENERIC-FUNCTION-CLASS OPTION-GENERIC-FUNCTION))) (SYMBOLS-CLEANUP '(OPTION-GENERIC-FUNCTION TESTGF04A TESTGF04B TESTGF04C)))))
EQUAL-OK: (T (FOO) NIL NIL NIL)
(PROGN (DEFCLASS TESTMETHOD50 (STANDARD-METHOD) NIL) (DEFCLASS TESTGENERICFUNCTION50 (STANDARD-GENERIC-FUNCTION) NIL (:DEFAULT-INITARGS :METHOD-CLASS (FIND-CLASS 'TESTMETHOD50)) (:METACLASS FUNCALLABLE-STANDARD-CLASS)) (LIST (MAPCAR #'CLASS-NAME (MAPCAR #'GENERIC-FUNCTION-METHOD-CLASS (LIST (DEFGENERIC TESTGF50A (X)) (DEFGENERIC TESTGF50B (X) (:GENERIC-FUNCTION-CLASS TESTGENERICFUNCTION50)) (DEFGENERIC TESTGF50C (X) (:METHOD-CLASS STANDARD-METHOD) (:GENERIC-FUNCTION-CLASS TESTGENERICFUNCTION50)) (DEFGENERIC TESTGF50D (X) (:METHOD-CLASS TESTMETHOD50) (:GENERIC-FUNCTION-CLASS TESTGENERICFUNCTION50))))) (SYMBOLS-CLEANUP '(TESTMETHOD50 TESTGENERICFUNCTION50 TESTGF50A TESTGF50B TESTGF50C TESTGF50D))))
EQUAL-OK: ((STANDARD-METHOD #1=#:TESTMETHOD50 STANDARD-METHOD #1#) NIL)
(PROGN (DEFCLASS DEPENDENT05 NIL ((COUNTER :INITFORM 0))) (DEFCLASS TESTCLASS05 NIL NIL) (DEFMETHOD UPDATE-DEPENDENT ((C CLASS) (D DEPENDENT05) &REST ARGS) (INCF (SLOT-VALUE D 'COUNTER))) (LET ((TESTCLASS (FIND-CLASS 'TESTCLASS05)) (DEP1 (MAKE-INSTANCE 'DEPENDENT05)) (DEP2 (MAKE-INSTANCE 'DEPENDENT05)) (DEP3 (MAKE-INSTANCE 'DEPENDENT05))) (ADD-DEPENDENT TESTCLASS DEP1) (ADD-DEPENDENT TESTCLASS DEP2) (ADD-DEPENDENT TESTCLASS DEP3) (ADD-DEPENDENT TESTCLASS DEP1) (REINITIALIZE-INSTANCE TESTCLASS :NAME 'TESTCLASS05-RENAMED) (REMOVE-DEPENDENT TESTCLASS DEP2) (REINITIALIZE-INSTANCE TESTCLASS :NAME 'TESTCLASS05-RERENAMED) (LIST (SLOT-VALUE DEP1 'COUNTER) (SLOT-VALUE DEP2 'COUNTER) (SLOT-VALUE DEP3 'COUNTER) (SYMBOLS-CLEANUP '(DEPENDENT05 TESTCLASS05)))))
EQUAL-OK: (2 1 2 NIL)
(DEFUN DEPENDENT-METHODS (OBJECTS SLOT) (MAPCAR (LAMBDA (OBJ) (MAPCAR (LAMBDA (EVENT) (MAPCAR (LAMBDA (X) (IF (TYPEP X 'METHOD) (LIST 'METHOD (MAPCAR #'CLASS-NAME (METHOD-SPECIALIZERS X))) X)) EVENT)) (REVERSE (SLOT-VALUE OBJ SLOT)))) OBJECTS))
EQL-OK: DEPENDENT-METHODS
(PROGN (DEFCLASS DEPENDENT06 NIL ((HISTORY :INITFORM 'NIL))) (DEFGENERIC TESTGF06 (X)) (DEFMETHOD UPDATE-DEPENDENT ((GF GENERIC-FUNCTION) (D DEPENDENT06) &REST ARGS) (PUSH ARGS (SLOT-VALUE D 'HISTORY))) (LET ((TESTGF #'TESTGF06) (DEP1 (MAKE-INSTANCE 'DEPENDENT06)) (DEP2 (MAKE-INSTANCE 'DEPENDENT06)) (DEP3 (MAKE-INSTANCE 'DEPENDENT06))) (ADD-DEPENDENT TESTGF DEP1) (ADD-DEPENDENT TESTGF DEP2) (ADD-DEPENDENT TESTGF DEP3) (ADD-DEPENDENT TESTGF DEP1) (REINITIALIZE-INSTANCE TESTGF :NAME 'TESTGF06-RENAMED) (DEFMETHOD TESTGF06 ((X INTEGER))) (REMOVE-DEPENDENT TESTGF DEP2) (DEFMETHOD TESTGF06 ((X REAL))) (REMOVE-METHOD TESTGF (FIND-METHOD TESTGF 'NIL (LIST (FIND-CLASS 'INTEGER)))) (LIST (DEPENDENT-METHODS (LIST DEP1 DEP2 DEP3) 'HISTORY) (SYMBOLS-CLEANUP '(DEPENDENT06 TESTGF06)))))
WARNING: Adding method
         #<STANDARD-METHOD (#1=#<FUNCALLABLE-STANDARD-CLASS GENERIC-FUNCTION> #2=#<STANDARD-CLASS DEPENDENT06>)>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION UPDATE-DEPENDENT>EQUAL-OK: ((((:NAME 
TESTGF06-RENAMED) (ADD-METHOD (METHOD (INTEGER))) (ADD-METHOD (METHOD (REAL))) (REMOVE-METHOD (METHOD (INTEGER)))) ((:NAME TESTGF06-RENAMED) (ADD-METHOD (METHOD (INTEGER)))) ((:NAME TESTGF06-RENAMED) (ADD-METHOD (METHOD (INTEGER))) (ADD-METHOD (METHOD (REAL))) (REMOVE-METHOD (METHOD (INTEGER))))) NIL)
(PROGN (DEFPARAMETER *TIMESTAMP* 0) (DEFCLASS PRIORITIZED-DEPENDENT NIL ((PRIORITY :TYPE REAL :INITFORM 0 :INITARG :PRIORITY :READER DEPENDENT-PRIORITY))) (DEFCLASS PRIORITIZED-DISPATCHER NIL ((DEPENDENTS :TYPE LIST :INITFORM NIL))) (DEFMETHOD ADD-DEPENDENT ((METAOBJECT PRIORITIZED-DISPATCHER) (DEPENDENT PRIORITIZED-DEPENDENT)) (UNLESS (MEMBER DEPENDENT (SLOT-VALUE METAOBJECT 'DEPENDENTS)) (SETF (SLOT-VALUE METAOBJECT 'DEPENDENTS) (SORT (CONS DEPENDENT (SLOT-VALUE METAOBJECT 'DEPENDENTS)) #'> :KEY #'DEPENDENT-PRIORITY)))) (DEFMETHOD REMOVE-DEPENDENT ((METAOBJECT PRIORITIZED-DISPATCHER) (DEPENDENT PRIORITIZED-DEPENDENT)) (SETF (SLOT-VALUE METAOBJECT 'DEPENDENTS) (DELETE DEPENDENT (SLOT-VALUE METAOBJECT 'DEPENDENTS)))) (DEFMETHOD MAP-DEPENDENTS ((METAOBJECT PRIORITIZED-DISPATCHER) FUNCTION) (DOLIST (DEPENDENT (SLOT-VALUE METAOBJECT 'DEPENDENTS)) (FUNCALL FUNCTION DEPENDENT) (INCF *TIMESTAMP*))) T)
EQL-OK: T
(PROGN (SETQ *TIMESTAMP* 0) (DEFCLASS PRIORITIZED-CLASS (PRIORITIZED-DISPATCHER STANDARD-CLASS) NIL) (DEFCLASS TESTCLASS07 NIL NIL (:METACLASS PRIORITIZED-CLASS)) (DEFCLASS DEPENDENT07 (PRIORITIZED-DEPENDENT) ((HISTORY :INITFORM NIL))) (DEFMETHOD UPDATE-DEPENDENT ((C CLASS) (D DEPENDENT07) &REST ARGS) (PUSH (CONS *TIMESTAMP* ARGS) (SLOT-VALUE D 'HISTORY))) (LET ((TESTCLASS (FIND-CLASS 'TESTCLASS07)) (DEP1 (MAKE-INSTANCE 'DEPENDENT07 :PRIORITY 5)) (DEP2 (MAKE-INSTANCE 'DEPENDENT07 :PRIORITY 10)) (DEP3 (MAKE-INSTANCE 'DEPENDENT07 :PRIORITY 1))) (ADD-DEPENDENT TESTCLASS DEP1) (ADD-DEPENDENT TESTCLASS DEP2) (ADD-DEPENDENT TESTCLASS DEP3) (ADD-DEPENDENT TESTCLASS DEP1) (REINITIALIZE-INSTANCE TESTCLASS :NAME 'TESTCLASS07-RENAMED) (REMOVE-DEPENDENT TESTCLASS DEP2) (REINITIALIZE-INSTANCE TESTCLASS :NAME 'TESTCLASS07-RERENAMED) (LIST (REVERSE (SLOT-VALUE DEP1 'HISTORY)) (REVERSE (SLOT-VALUE DEP2 'HISTORY)) (REVERSE (SLOT-VALUE DEP3 'HISTORY)) (SYMBOLS-CLEANUP '(PRIORITIZED-CLASS TESTCLASS07 DEPENDENT07)))))
WARNING: Adding method
         #<STANDARD-METHOD (#1=#<STANDARD-CLASS CLASS> #2=#<STANDARD-CLASS DEPENDENT07>)>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION UPDATE-DEPENDENT>EQUAL-OK: (((1 :NAME 
TESTCLASS07-RENAMED) (3 :NAME TESTCLASS07-RERENAMED)) ((0 :NAME TESTCLASS07-RENAMED)) ((2 :NAME TESTCLASS07-RENAMED) (4 :NAME TESTCLASS07-RERENAMED)) NIL)
(PROGN (SETQ *TIMESTAMP* 0) (DEFCLASS PRIORITIZED-GENERIC-FUNCTION (PRIORITIZED-DISPATCHER STANDARD-GENERIC-FUNCTION) NIL (:METACLASS FUNCALLABLE-STANDARD-CLASS)) (DEFGENERIC TESTGF08 (X) (:GENERIC-FUNCTION-CLASS PRIORITIZED-GENERIC-FUNCTION)) (DEFCLASS DEPENDENT08 (PRIORITIZED-DEPENDENT) ((HISTORY :INITFORM 'NIL))) (DEFMETHOD UPDATE-DEPENDENT ((GF GENERIC-FUNCTION) (D DEPENDENT08) &REST ARGS) (PUSH (CONS *TIMESTAMP* ARGS) (SLOT-VALUE D 'HISTORY))) (LET ((TESTGF #'TESTGF08) (DEP1 (MAKE-INSTANCE 'DEPENDENT08 :PRIORITY 1)) (DEP2 (MAKE-INSTANCE 'DEPENDENT08 :PRIORITY 10)) (DEP3 (MAKE-INSTANCE 'DEPENDENT08 :PRIORITY 5))) (ADD-DEPENDENT TESTGF DEP1) (ADD-DEPENDENT TESTGF DEP2) (ADD-DEPENDENT TESTGF DEP3) (ADD-DEPENDENT TESTGF DEP1) (REINITIALIZE-INSTANCE TESTGF :NAME 'TESTGF08-RENAMED) (DEFMETHOD TESTGF08 ((X INTEGER))) (REMOVE-DEPENDENT TESTGF DEP2) (DEFMETHOD TESTGF08 ((X REAL))) (REMOVE-METHOD TESTGF (FIND-METHOD TESTGF 'NIL (LIST (FIND-CLASS 'INTEGER)))) (LIST (DEPENDENT-METHODS (LIST DEP1 DEP2 DEP3) 'HISTORY) (SYMBOLS-CLEANUP '(PRIORITIZED-GENERIC-FUNCTION TESTGF08 DEPENDENT08)))))
WARNING: Adding method
         #<STANDARD-METHOD (#1=#<FUNCALLABLE-STANDARD-CLASS GENERIC-FUNCTION> #2=#<STANDARD-CLASS DEPENDENT08>)>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION UPDATE-DEPENDENT>EQUAL-OK: ((((2 :NAME 
TESTGF08-RENAMED) (5 ADD-METHOD (METHOD (INTEGER))) (7 ADD-METHOD (METHOD (REAL))) (9 REMOVE-METHOD (METHOD (INTEGER)))) ((0 :NAME TESTGF08-RENAMED) (3 ADD-METHOD (METHOD (INTEGER)))) ((1 :NAME TESTGF08-RENAMED) (4 ADD-METHOD (METHOD (INTEGER))) (6 ADD-METHOD (METHOD (REAL))) (8 REMOVE-METHOD (METHOD (INTEGER))))) NIL)
(PROGN (DEFCLASS REINIT-INSTANCE-CLASS (STANDARD-CLASS) NIL) (DEFMETHOD VALIDATE-SUPERCLASS ((CLASS REINIT-INSTANCE-CLASS) (SUPERCLASS STANDARD-CLASS)) T) (DEFPARAMETER *FINALIZE-INHERITANCE-COUNT* 0) (DEFMETHOD FINALIZE-INHERITANCE :BEFORE ((CLASS REINIT-INSTANCE-CLASS)) (INCF *FINALIZE-INHERITANCE-COUNT*)) (DEFCLASS REINIT-INSTANCE-OBJECT NIL ((A-SLOT)) (:METACLASS REINIT-INSTANCE-CLASS)) (UNLESS (CLASS-FINALIZED-P (FIND-CLASS 'REINIT-INSTANCE-OBJECT)) (FINALIZE-INHERITANCE (FIND-CLASS 'REINIT-INSTANCE-OBJECT))) (REINITIALIZE-INSTANCE (FIND-CLASS 'REINIT-INSTANCE-OBJECT)) (LIST *FINALIZE-INHERITANCE-COUNT* (SYMBOLS-CLEANUP '(REINIT-INSTANCE-CLASS *FINALIZE-INHERITANCE-COUNT* REINIT-INSTANCE-OBJECT))))
WARNING: Adding method
         #<STANDARD-METHOD :BEFORE (#1=#<STANDARD-CLASS REINIT-INSTANCE-CLASS>)>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION FINALIZE-INHERITANCE>EQUAL-OK: (2 NIL)
(LET ((<T> (FIND-CLASS 'T)) (OPERATION-COUNTER 0)) (DEFMETHOD ADD-DIRECT-METHOD ((SPECIALIZER (EQL <T>)) (METHOD METHOD)) (INCF OPERATION-COUNTER)) (DEFMETHOD REMOVE-DIRECT-METHOD ((SPECIALIZER (EQL <T>)) (METHOD METHOD)) (INCF OPERATION-COUNTER)) (DEFMETHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS ((CLASS (EQL <T>))) 'NIL) (DEFMETHOD SPECIALIZER-DIRECT-METHODS ((CLASS (EQL <T>))) 'NIL) (SETQ OPERATION-COUNTER 0) (FMAKUNBOUND 'TESTGF09) (DEFMETHOD TESTGF09 (X Y Z) (+ X Y Z)) (LIST (NULL (SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (FIND-CLASS 'T))) (NULL (SPECIALIZER-DIRECT-METHODS (FIND-CLASS 'T))) OPERATION-COUNTER (CLOS::GF-DYNAMICALLY-MODIFIABLE #'TESTGF09) (SYMBOL-CLEANUP 'TESTGF09)))
EQUAL-OK: (T T 3 NIL T)
(PROGN (DEFGENERIC FOO142 (X) (:METHOD ((X T)))) (DEFGENERIC FOO142 (X)) (LIST (NULL (MEMBER #'FOO142 (SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (FIND-CLASS 'T)))) (SYMBOL-CLEANUP 'FOO142)))
EQUAL-OK: (T T)
(PROGN (DEFCLASS VOLATILE-CLASS (STANDARD-CLASS) ((INSTANTIATED :TYPE BOOLEAN :INITFORM NIL))) (DEFPARAMETER *VOLATILE-CLASS-HACK* NIL) (DEFMETHOD ADD-DIRECT-SUBCLASS :AROUND ((SUPERCLASS VOLATILE-CLASS) (SUBCLASS VOLATILE-CLASS)) (WHEN *VOLATILE-CLASS-HACK* (CALL-NEXT-METHOD))) (DEFMETHOD REMOVE-DIRECT-SUBCLASS :AROUND ((SUPERCLASS VOLATILE-CLASS) (SUBCLASS VOLATILE-CLASS)) NIL) (DEFUN NOTE-VOLATILE-CLASS-INSTANTIATED (CLASS) (UNLESS (SLOT-VALUE CLASS 'INSTANTIATED) (SETF (SLOT-VALUE CLASS 'INSTANTIATED) T) (DOLIST (SUPERCLASS (CLASS-DIRECT-SUPERCLASSES CLASS)) (WHEN (TYPEP SUPERCLASS 'VOLATILE-CLASS) (UNLESS (MEMBER CLASS (CLASS-DIRECT-SUBCLASSES SUPERCLASS)) (LET ((*VOLATILE-CLASS-HACK* T)) (ADD-DIRECT-SUBCLASS SUPERCLASS CLASS)) (NOTE-VOLATILE-CLASS-INSTANTIATED SUPERCLASS)))))) (DEFMETHOD ALLOCATE-INSTANCE :AFTER ((CLASS VOLATILE-CLASS) &REST INITARGS) (NOTE-VOLATILE-CLASS-INSTANTIATED CLASS)) (DEFCLASS TESTCLASS10 NIL NIL (:METACLASS VOLATILE-CLASS)) (DEFCLASS TESTCLASS10A (TESTCLASS10) NIL (:METACLASS VOLATILE-CLASS)) (DEFCLASS TESTCLASS10B (TESTCLASS10) NIL (:METACLASS VOLATILE-CLASS)) (DEFCLASS TESTCLASS10C (TESTCLASS10) NIL (:METACLASS VOLATILE-CLASS)) (DEFCLASS TESTCLASS10D (TESTCLASS10B) NIL (:METACLASS VOLATILE-CLASS)) (LET ((RESULTS 'NIL)) (PUSH (CLASS-DIRECT-SUBCLASSES (FIND-CLASS 'TESTCLASS10)) RESULTS) (PUSH (CLASS-DIRECT-SUBCLASSES (FIND-CLASS 'TESTCLASS10A)) RESULTS) (PUSH (CLASS-DIRECT-SUBCLASSES (FIND-CLASS 'TESTCLASS10B)) RESULTS) (PUSH (CLASS-DIRECT-SUBCLASSES (FIND-CLASS 'TESTCLASS10C)) RESULTS) (PUSH (CLASS-DIRECT-SUBCLASSES (FIND-CLASS 'TESTCLASS10D)) RESULTS) (MAKE-INSTANCE 'TESTCLASS10D) (PUSH (CLASS-DIRECT-SUBCLASSES (FIND-CLASS 'TESTCLASS10)) RESULTS) (PUSH (CLASS-DIRECT-SUBCLASSES (FIND-CLASS 'TESTCLASS10A)) RESULTS) (PUSH (CLASS-DIRECT-SUBCLASSES (FIND-CLASS 'TESTCLASS10B)) RESULTS) (PUSH (CLASS-DIRECT-SUBCLASSES (FIND-CLASS 'TESTCLASS10C)) RESULTS) (PUSH (CLASS-DIRECT-SUBCLASSES (FIND-CLASS 'TESTCLASS10D)) RESULTS) (LIST (MAPCAR #'(LAMBDA (L) (MAPCAR #'CLASS-NAME L)) (NREVERSE RESULTS)) (SYMBOLS-CLEANUP '(VOLATILE-CLASS *VOLATILE-CLASS-HACK* NOTE-VOLATILE-CLASS-INSTANTIATED TESTCLASS10 TESTCLASS10A TESTCLASS10B TESTCLASS10C TESTCLASS10D)))))
EQUAL-OK: ((NIL NIL NIL NIL NIL (#:TESTCLASS10B) NIL (#:TESTCLASS10D) NIL NIL) NIL)
(PROGN (DEFCLASS MSL-GENERIC-FUNCTION (STANDARD-GENERIC-FUNCTION) NIL (:METACLASS FUNCALLABLE-STANDARD-CLASS)) (DEFUN REVERSE-METHOD-LIST (METHODS) (LET ((RESULT 'NIL)) (DOLIST (METHOD METHODS) (IF (AND (CONSP RESULT) (EQUAL (METHOD-QUALIFIERS METHOD) (METHOD-QUALIFIERS (CAAR RESULT)))) (PUSH METHOD (CAR RESULT)) (PUSH (LIST METHOD) RESULT))) (REDUCE #'APPEND RESULT))) (DEFMETHOD COMPUTE-APPLICABLE-METHODS ((GF MSL-GENERIC-FUNCTION) ARGUMENTS) (REVERSE-METHOD-LIST (CALL-NEXT-METHOD))) (DEFMETHOD COMPUTE-APPLICABLE-METHODS-USING-CLASSES ((GF MSL-GENERIC-FUNCTION) CLASSES) (REVERSE-METHOD-LIST (CALL-NEXT-METHOD))) (DEFGENERIC TESTGF11 (X) (:GENERIC-FUNCTION-CLASS MSL-GENERIC-FUNCTION) (:METHOD ((X INTEGER)) (CONS 'INTEGER (IF (NEXT-METHOD-P) (CALL-NEXT-METHOD)))) (:METHOD ((X REAL)) (CONS 'REAL (IF (NEXT-METHOD-P) (CALL-NEXT-METHOD)))) (:METHOD ((X NUMBER)) (CONS 'NUMBER (IF (NEXT-METHOD-P) (CALL-NEXT-METHOD)))) (:METHOD :AROUND ((X INTEGER)) (COERCE (CALL-NEXT-METHOD) 'VECTOR))) (LIST (TESTGF11 5.0) (TESTGF11 17) (SYMBOLS-CLEANUP '(MSL-GENERIC-FUNCTION REVERSE-METHOD-LIST TESTGF11))))
EQUALP-OK: ((NUMBER REAL) #(NUMBER REAL INTEGER) NIL)
(PROGN (DEFCLASS NONUMBER-GENERIC-FUNCTION (STANDARD-GENERIC-FUNCTION) NIL (:METACLASS FUNCALLABLE-STANDARD-CLASS)) (DEFUN NONUMBER-METHOD-LIST (METHODS) (REMOVE-IF #'(LAMBDA (METHOD) (MEMBER (FIND-CLASS 'NUMBER) (METHOD-SPECIALIZERS METHOD))) METHODS)) (DEFMETHOD COMPUTE-APPLICABLE-METHODS ((GF NONUMBER-GENERIC-FUNCTION) ARGUMENTS) (NONUMBER-METHOD-LIST (CALL-NEXT-METHOD))) (DEFMETHOD COMPUTE-APPLICABLE-METHODS-USING-CLASSES ((GF NONUMBER-GENERIC-FUNCTION) CLASSES) (NONUMBER-METHOD-LIST (CALL-NEXT-METHOD))) (DEFGENERIC TESTGF12 (X) (:GENERIC-FUNCTION-CLASS NONUMBER-GENERIC-FUNCTION) (:METHOD ((X INTEGER)) (CONS 'INTEGER (IF (NEXT-METHOD-P) (CALL-NEXT-METHOD)))) (:METHOD ((X REAL)) (CONS 'REAL (IF (NEXT-METHOD-P) (CALL-NEXT-METHOD)))) (:METHOD ((X NUMBER)) (CONS 'NUMBER (IF (NEXT-METHOD-P) (CALL-NEXT-METHOD)))) (:METHOD :AROUND ((X INTEGER)) (COERCE (CALL-NEXT-METHOD) 'VECTOR))) (LIST (TESTGF12 5.0) (TESTGF12 17) (SYMBOLS-CLEANUP '(NONUMBER-GENERIC-FUNCTION NONUMBER-METHOD-LIST TESTGF12))))
EQUALP-OK: ((REAL) #(INTEGER REAL) NIL)
(PROGN (DEFCLASS BFS-CLASS (STANDARD-CLASS) NIL) (DEFMETHOD COMPUTE-CLASS-PRECEDENCE-LIST ((CLASS BFS-CLASS)) (LET ((QUEUE (LIST CLASS)) (NEXT-QUEUE 'NIL) (CPL 'NIL)) (LOOP (WHEN (NULL QUEUE) (SETQ QUEUE (REVERSE NEXT-QUEUE) NEXT-QUEUE 'NIL) (WHEN (NULL QUEUE) (RETURN))) (LET ((C (POP QUEUE))) (UNLESS (MEMBER C CPL) (PUSH C CPL) (SETQ NEXT-QUEUE (REVAPPEND (CLASS-DIRECT-SUPERCLASSES C) NEXT-QUEUE))))) (NREVERSE CPL))) (DEFCLASS TESTCLASS13A NIL NIL (:METACLASS BFS-CLASS)) (DEFCLASS TESTCLASS13B (TESTCLASS13A) NIL (:METACLASS BFS-CLASS)) (DEFCLASS TESTCLASS13C (TESTCLASS13B) NIL (:METACLASS BFS-CLASS)) (DEFCLASS TESTCLASS13D (TESTCLASS13A) NIL (:METACLASS BFS-CLASS)) (DEFCLASS TESTCLASS13E (TESTCLASS13D) NIL (:METACLASS BFS-CLASS)) (DEFCLASS TESTCLASS13F (TESTCLASS13C TESTCLASS13E) NIL (:METACLASS BFS-CLASS)) (UNLESS (CLASS-FINALIZED-P (FIND-CLASS 'TESTCLASS13F)) (FINALIZE-INHERITANCE (FIND-CLASS 'TESTCLASS13F))) (LIST (MAPCAR #'CLASS-NAME (SUBSEQ (CLASS-PRECEDENCE-LIST (FIND-CLASS 'TESTCLASS13F)) 0 6)) (SYMBOLS-CLEANUP '(BFS-CLASS TESTCLASS13A TESTCLASS13B TESTCLASS13C TESTCLASS13D TESTCLASS13E TESTCLASS13F))))
EQUAL-OK: ((#:TESTCLASS13F #:TESTCLASS13C #:TESTCLASS13E #:TESTCLASS13B #:TESTCLASS13D #:TESTCLASS13A) NIL)
(PROGN (DEFPARAMETER *EXTRA-VALUE* 'EXTRA) (DEFCLASS CUSTOM-DEFAULT-INITARGS-CLASS (STANDARD-CLASS) NIL) (DEFMETHOD COMPUTE-DEFAULT-INITARGS ((CLASS CUSTOM-DEFAULT-INITARGS-CLASS)) (LET ((ORIGINAL-DEFAULT-INITARGS (REMOVE-DUPLICATES (REDUCE #'APPEND (MAPCAR #'CLASS-DIRECT-DEFAULT-INITARGS (CLASS-PRECEDENCE-LIST CLASS))) :KEY #'CAR :FROM-END T))) (CONS (LIST ':EXTRA '*EXTRA-VALUE* #'(LAMBDA NIL *EXTRA-VALUE*)) (REMOVE ':EXTRA ORIGINAL-DEFAULT-INITARGS :KEY #'CAR)))) (DEFCLASS TESTCLASS14 NIL ((SLOT :INITARG :EXTRA)) (:METACLASS CUSTOM-DEFAULT-INITARGS-CLASS)) (LIST (SLOT-VALUE (MAKE-INSTANCE 'TESTCLASS14) 'SLOT) (SYMBOLS-CLEANUP '(*EXTRA-VALUE* CUSTOM-DEFAULT-INITARGS-CLASS TESTCLASS14))))
EQUAL-OK: (EXTRA NIL)
(PROGN (DEFCLASS AUTO-ACCESSORS-2-CLASS (STANDARD-CLASS) NIL) (DEFMETHOD COMPUTE-DIRECT-SLOT-DEFINITION-INITARGS ((CLASS AUTO-ACCESSORS-2-CLASS) &REST SLOT-SPEC) (IF (AND (NULL (GETF SLOT-SPEC ':READERS)) (NULL (GETF SLOT-SPEC ':WRITERS))) (LET* ((CONTAINING-CLASS-NAME (CLASS-NAME CLASS)) (ACCESSOR-NAME (INTERN (CONCATENATE 'STRING (SYMBOL-NAME CONTAINING-CLASS-NAME) "-" (SYMBOL-NAME (GETF SLOT-SPEC ':NAME))) (SYMBOL-PACKAGE CONTAINING-CLASS-NAME)))) (LIST* :READERS (LIST ACCESSOR-NAME) :WRITERS (LIST (LIST 'SETF ACCESSOR-NAME)) (CALL-NEXT-METHOD))) (CALL-NEXT-METHOD))) (DEFCLASS TESTCLASS15 NIL ((X :INITARG :X) (Y)) (:METACLASS AUTO-ACCESSORS-2-CLASS)) (LET ((INST (MAKE-INSTANCE 'TESTCLASS15 :X 12))) (LIST (TESTCLASS15-X INST) (SETF (TESTCLASS15-Y INST) 13) (SYMBOLS-CLEANUP '(AUTO-ACCESSORS-2-CLASS TESTCLASS15)))))
EQUAL-OK: (12 13 NIL)
(PROGN (DEFCLASS TRACED-GENERIC-FUNCTION (STANDARD-GENERIC-FUNCTION) NIL (:METACLASS FUNCALLABLE-STANDARD-CLASS)) (DEFVAR *LAST-TRACED-ARGUMENTS* NIL) (DEFVAR *LAST-TRACED-VALUES* NIL) (DEFMETHOD COMPUTE-DISCRIMINATING-FUNCTION ((GF TRACED-GENERIC-FUNCTION)) (LET ((ORIG-DF (CALL-NEXT-METHOD)) (NAME (GENERIC-FUNCTION-NAME GF))) #'(LAMBDA (&REST ARGUMENTS) (DECLARE (COMPILE)) (FORMAT *TRACE-OUTPUT* "~%=> ~S arguments: ~:S" NAME ARGUMENTS) (SETQ *LAST-TRACED-ARGUMENTS* ARGUMENTS) (LET ((VALUES (MULTIPLE-VALUE-LIST (APPLY ORIG-DF ARGUMENTS)))) (FORMAT *TRACE-OUTPUT* "~%<= ~S values: ~:S" NAME VALUES) (SETQ *LAST-TRACED-VALUES* VALUES) (VALUES-LIST VALUES))))) (DEFGENERIC TESTGF15 (X) (:GENERIC-FUNCTION-CLASS TRACED-GENERIC-FUNCTION) (:METHOD ((X NUMBER)) (VALUES X (- X) (* X X) (/ X)))) (TESTGF15 5) (LIST *LAST-TRACED-ARGUMENTS* *LAST-TRACED-VALUES* (SYMBOLS-CLEANUP '(TRACED-GENERIC-FUNCTION *LAST-TRACED-ARGUMENTS* *LAST-TRACED-VALUES* TESTGF15))))
=> TESTGF15 arguments: (5)
<= TESTGF15 values: (5 -5 25 1/5)
EQUAL-OK: ((5) (5 -5 25 1/5) NIL)
(PROGN (DEFUN PROMPT-FOR-NEW-VALUES NIL (FORMAT *DEBUG-IO* "~&New values: ") (LIST (READ *DEBUG-IO*))) (DEFUN ADD-METHOD-RESTARTS (FORM METHOD) (LET ((BLOCK (GENSYM)) (TAG (GENSYM))) `(BLOCK ,BLOCK (TAGBODY ,TAG (RETURN-FROM ,BLOCK (RESTART-CASE ,FORM (METHOD-REDO NIL :REPORT (LAMBDA (STREAM) (FORMAT STREAM "Try calling ~S again." ,METHOD)) (GO ,TAG)) (METHOD-RETURN (L) :REPORT (LAMBDA (STREAM) (FORMAT STREAM "Specify return values for ~S call." ,METHOD)) :INTERACTIVE (LAMBDA NIL (PROMPT-FOR-NEW-VALUES)) (RETURN-FROM ,BLOCK (VALUES-LIST L))))))))) (DEFUN CONVERT-EFFECTIVE-METHOD (EFM) (IF (CONSP EFM) (IF (EQ (CAR EFM) 'CALL-METHOD) (LET ((METHOD-LIST (THIRD EFM))) (IF (OR (TYPEP (FIRST METHOD-LIST) 'METHOD) (REST METHOD-LIST)) (CONVERT-EFFECTIVE-METHOD `(CALL-METHOD ,(SECOND EFM) ((MAKE-METHOD (CALL-METHOD ,(FIRST METHOD-LIST) ,(REST METHOD-LIST)))))) (IF (TYPEP (SECOND EFM) 'METHOD) (ADD-METHOD-RESTARTS (CONS (CONVERT-EFFECTIVE-METHOD (CAR EFM)) (CONVERT-EFFECTIVE-METHOD (CDR EFM))) (SECOND EFM)) (CONS (CONVERT-EFFECTIVE-METHOD (CAR EFM)) (CONVERT-EFFECTIVE-METHOD (CDR EFM)))))) (CONS (CONVERT-EFFECTIVE-METHOD (CAR EFM)) (CONVERT-EFFECTIVE-METHOD (CDR EFM)))) EFM)) (DEFCLASS DEBUGGABLE-GENERIC-FUNCTION (STANDARD-GENERIC-FUNCTION) NIL (:METACLASS FUNCALLABLE-STANDARD-CLASS)) (DEFMETHOD COMPUTE-EFFECTIVE-METHOD ((GF DEBUGGABLE-GENERIC-FUNCTION) METHOD-COMBINATION METHODS) (CONVERT-EFFECTIVE-METHOD (CALL-NEXT-METHOD))) (DEFGENERIC TESTGF16 (X) (:GENERIC-FUNCTION-CLASS DEBUGGABLE-GENERIC-FUNCTION)) (DEFCLASS TESTCLASS16A NIL NIL) (DEFCLASS TESTCLASS16B (TESTCLASS16A) NIL) (DEFCLASS TESTCLASS16C (TESTCLASS16A) NIL) (DEFCLASS TESTCLASS16D (TESTCLASS16B TESTCLASS16C) NIL) (DEFMETHOD TESTGF16 ((X TESTCLASS16A)) (LIST 'A (NOT (NULL (FIND-RESTART 'METHOD-REDO))) (NOT (NULL (FIND-RESTART 'METHOD-RETURN))))) (DEFMETHOD TESTGF16 ((X TESTCLASS16B)) (CONS 'B (CALL-NEXT-METHOD))) (DEFMETHOD TESTGF16 ((X TESTCLASS16C)) (CONS 'C (CALL-NEXT-METHOD))) (DEFMETHOD TESTGF16 ((X TESTCLASS16D)) (CONS 'D (CALL-NEXT-METHOD))) (LIST (TESTGF16 (MAKE-INSTANCE 'TESTCLASS16D)) (SYMBOLS-CLEANUP '(PROMPT-FOR-NEW-VALUES ADD-METHOD-RESTARTS CONVERT-EFFECTIVE-METHOD DEBUGGABLE-GENERIC-FUNCTION TESTGF16 TESTCLASS16A TESTCLASS16B TESTCLASS16C TESTCLASS16D))))
EQUAL-OK: ((D B C A T T) NIL)
(PROGN (DEFCLASS AUTO-INITARGS-CLASS (STANDARD-CLASS) NIL) (DEFMETHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION ((CLASS AUTO-INITARGS-CLASS) NAME DIRECT-SLOT-DEFINITIONS) (LET ((EFF-SLOT (CALL-NEXT-METHOD))) (UNLESS (SLOT-DEFINITION-INITARGS EFF-SLOT) (SETF (SLOT-DEFINITION-INITARGS EFF-SLOT) (LIST (INTERN (SYMBOL-NAME (SLOT-DEFINITION-NAME EFF-SLOT)) (FIND-PACKAGE "KEYWORD"))))) (UNLESS (SLOT-DEFINITION-INITFUNCTION EFF-SLOT) (SETF (SLOT-DEFINITION-INITFUNCTION EFF-SLOT) #'(LAMBDA NIL 42) (SLOT-DEFINITION-INITFORM EFF-SLOT) '42)) EFF-SLOT)) (DEFCLASS TESTCLASS17 NIL ((X) (Y)) (:METACLASS AUTO-INITARGS-CLASS)) (LET ((INST (MAKE-INSTANCE 'TESTCLASS17 :X 17))) (LIST (SLOT-VALUE INST 'X) (SLOT-VALUE INST 'Y) (SYMBOLS-CLEANUP '(AUTO-INITARGS-CLASS TESTCLASS17)))))
EQUAL-OK: (17 42 NIL)
(PROGN (DEFCLASS AUTO-INITARGS-2-CLASS (STANDARD-CLASS) NIL) (DEFMETHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS ((CLASS AUTO-INITARGS-2-CLASS) DIRECT-SLOT-DEFINITIONS) (LET ((INITARGS (CALL-NEXT-METHOD))) (UNLESS (GETF INITARGS ':INITARGS) (SETQ INITARGS (LIST* ':INITARGS (LIST (INTERN (SYMBOL-NAME (GETF INITARGS ':NAME)) (FIND-PACKAGE "KEYWORD"))) INITARGS))) (UNLESS (GETF INITARGS ':INITFUNCTION) (SETQ INITARGS (LIST* ':INITFUNCTION #'(LAMBDA NIL 42) ':INITFORM '42 INITARGS))) INITARGS)) (DEFCLASS TESTCLASS17-2 NIL ((X) (Y)) (:METACLASS AUTO-INITARGS-2-CLASS)) (LET ((INST (MAKE-INSTANCE 'TESTCLASS17-2 :X 17))) (LIST (SLOT-VALUE INST 'X) (SLOT-VALUE INST 'Y) (SYMBOLS-CLEANUP '(AUTO-INITARGS-2-CLASS TESTCLASS17-2)))))
EQUAL-OK: (17 42 NIL)
(PROGN (DEFCLASS TESTCLASS18B (TESTCLASS18A) NIL) (DEFMETHOD COMPUTE-SLOTS ((CLASS (EQL (FIND-CLASS 'TESTCLASS18B)))) (APPEND (CALL-NEXT-METHOD) (LIST (MAKE-INSTANCE 'STANDARD-EFFECTIVE-SLOT-DEFINITION :NAME 'Y :ALLOCATION :INSTANCE)))) (DEFCLASS TESTCLASS18A NIL ((X :ALLOCATION :CLASS))) (FINALIZE-INHERITANCE (FIND-CLASS 'TESTCLASS18B)) (APPEND (MAPCAR #'(LAMBDA (SLOT) (LIST (SLOT-DEFINITION-NAME SLOT) (INTEGERP (SLOT-DEFINITION-LOCATION SLOT)))) (CLASS-SLOTS (FIND-CLASS 'TESTCLASS18B))) (LET ((INST1 (MAKE-INSTANCE 'TESTCLASS18B)) (INST2 (MAKE-INSTANCE 'TESTCLASS18B))) (SETF (SLOT-VALUE INST1 'Y) 'ABC) (SETF (SLOT-VALUE INST2 'Y) 'DEF) (LIST (SLOT-VALUE INST1 'Y) (SLOT-VALUE INST2 'Y))) (SYMBOLS-CLEANUP '(TESTCLASS18A TESTCLASS18B))))
EQUAL-OK: ((X NIL) (Y T) ABC DEF)
(PROGN (DEFCLASS TESTCLASS19B (TESTCLASS19A) NIL) (DEFMETHOD COMPUTE-SLOTS ((CLASS (EQL (FIND-CLASS 'TESTCLASS19B)))) (APPEND (CALL-NEXT-METHOD) (LIST (MAKE-INSTANCE 'STANDARD-EFFECTIVE-SLOT-DEFINITION :NAME 'Y :ALLOCATION :CLASS)))) (DEFCLASS TESTCLASS19A NIL ((X :ALLOCATION :CLASS))) (FINALIZE-INHERITANCE (FIND-CLASS 'TESTCLASS19B)) (APPEND (MAPCAR #'(LAMBDA (SLOT) (LIST (SLOT-DEFINITION-NAME SLOT) (INTEGERP (SLOT-DEFINITION-LOCATION SLOT)))) (CLASS-SLOTS (FIND-CLASS 'TESTCLASS19B))) (LET ((INST1 (MAKE-INSTANCE 'TESTCLASS19B)) (INST2 (MAKE-INSTANCE 'TESTCLASS19B))) (SETF (SLOT-VALUE INST1 'Y) 'ABC) (SETF (SLOT-VALUE INST2 'Y) 'DEF) (LIST (SLOT-VALUE INST1 'Y) (SLOT-VALUE INST2 'Y))) (SYMBOLS-CLEANUP '(TESTCLASS19B TESTCLASS19A))))
EQUAL-OK: ((X NIL) (Y NIL) DEF DEF)
(PROGN (DEFCLASS AUTO-ACCESSORS-DIRECT-SLOT-DEFINITION-CLASS (STANDARD-CLASS) ((CONTAINING-CLASS-NAME :INITARG :CONTAINING-CLASS-NAME))) (DEFCLASS AUTO-ACCESSORS-CLASS (STANDARD-CLASS) NIL) (DEFMETHOD DIRECT-SLOT-DEFINITION-CLASS ((CLASS AUTO-ACCESSORS-CLASS) &REST INITARGS) (LET ((DSD-CLASS-NAME (GENSYM))) (ENSURE-CLASS DSD-CLASS-NAME :METACLASS (FIND-CLASS 'AUTO-ACCESSORS-DIRECT-SLOT-DEFINITION-CLASS) :DIRECT-SUPERCLASSES (LIST (FIND-CLASS 'STANDARD-DIRECT-SLOT-DEFINITION)) :CONTAINING-CLASS-NAME (CLASS-NAME CLASS)) (EVAL `(DEFMETHOD INITIALIZE-INSTANCE :AROUND ((DSD ,DSD-CLASS-NAME) &REST ARGS) (IF (AND (NULL (GETF ARGS ':READERS)) (NULL (GETF ARGS ':WRITERS))) (LET* ((CONTAINING-CLASS-NAME (SLOT-VALUE (CLASS-OF DSD) 'CONTAINING-CLASS-NAME)) (ACCESSOR-NAME (INTERN (CONCATENATE 'STRING (SYMBOL-NAME CONTAINING-CLASS-NAME) "-" (SYMBOL-NAME (GETF ARGS ':NAME))) (SYMBOL-PACKAGE CONTAINING-CLASS-NAME)))) (APPLY #'CALL-NEXT-METHOD DSD :READERS (LIST ACCESSOR-NAME) :WRITERS (LIST (LIST 'SETF ACCESSOR-NAME)) ARGS)) (CALL-NEXT-METHOD)))) (FIND-CLASS DSD-CLASS-NAME))) (DEFCLASS TESTCLASS20 NIL ((X :INITARG :X) (Y)) (:METACLASS AUTO-ACCESSORS-CLASS)) (LET ((INST (MAKE-INSTANCE 'TESTCLASS20 :X 12))) (LIST (TESTCLASS20-X INST) (SETF (TESTCLASS20-Y INST) 13) (SYMBOLS-CLEANUP '(AUTO-ACCESSORS-DIRECT-SLOT-DEFINITION-CLASS AUTO-ACCESSORS-CLASS TESTCLASS20)))))
EQUAL-OK: (12 13 NIL)
(PROGN (DEFPARAMETER *EXTERNAL-SLOT-VALUES* 'NIL) (DEFCLASS EXTERNAL-SLOT-DEFINITION (STANDARD-EFFECTIVE-SLOT-DEFINITION) NIL) (LET ((UNBOUND (GENSYM "UNBOUND"))) (DEFMETHOD SLOT-VALUE-USING-CLASS ((CLASS STANDARD-CLASS) INSTANCE (SLOT EXTERNAL-SLOT-DEFINITION)) (LET ((VALUE (GETF (GETF *EXTERNAL-SLOT-VALUES* INSTANCE) (SLOT-DEFINITION-NAME SLOT) UNBOUND))) (IF (EQ VALUE UNBOUND) (SLOT-UNBOUND CLASS INSTANCE (SLOT-DEFINITION-NAME SLOT)) VALUE))) (DEFMETHOD (SETF SLOT-VALUE-USING-CLASS) (NEW-VALUE (CLASS STANDARD-CLASS) INSTANCE (SLOT EXTERNAL-SLOT-DEFINITION)) (SETF (GETF (GETF *EXTERNAL-SLOT-VALUES* INSTANCE) (SLOT-DEFINITION-NAME SLOT)) NEW-VALUE)) (DEFMETHOD SLOT-BOUNDP-USING-CLASS ((CLASS STANDARD-CLASS) INSTANCE (SLOT EXTERNAL-SLOT-DEFINITION)) (LET ((VALUE (GETF (GETF *EXTERNAL-SLOT-VALUES* INSTANCE) (SLOT-DEFINITION-NAME SLOT) UNBOUND))) (NOT (EQ VALUE UNBOUND)))) (DEFMETHOD SLOT-MAKUNBOUND-USING-CLASS ((CLASS STANDARD-CLASS) INSTANCE (SLOT EXTERNAL-SLOT-DEFINITION)) (REMF (GETF *EXTERNAL-SLOT-VALUES* INSTANCE) (SLOT-DEFINITION-NAME SLOT)) INSTANCE)) (DEFCLASS EXTERNAL-SLOT-DEFINITION-CLASS (STANDARD-CLASS) NIL) (DEFMETHOD EFFECTIVE-SLOT-DEFINITION-CLASS ((CLASS EXTERNAL-SLOT-DEFINITION-CLASS) &REST ARGS) (FIND-CLASS 'EXTERNAL-SLOT-DEFINITION)) (DEFCLASS TESTCLASS22 NIL ((X :INITARG :X) (Y :INITARG :Y)) (:METACLASS EXTERNAL-SLOT-DEFINITION-CLASS)) (LET ((INST1 (MAKE-INSTANCE 'TESTCLASS22 :X 3 :Y 4)) (INST2 (MAKE-INSTANCE 'TESTCLASS22 :X 5 :Y 12)) (RESULTS 'NIL)) (PUSH (SLOT-VALUE INST1 'X) RESULTS) (PUSH (SLOT-VALUE INST2 'X) RESULTS) (PUSH (SLOT-VALUE INST1 'Y) RESULTS) (PUSH (SLOT-VALUE INST2 'Y) RESULTS) (PUSH (OR (EQUAL *EXTERNAL-SLOT-VALUES* (LIST INST2 (LIST 'X 5 'Y 12) INST1 (LIST 'X 3 'Y 4))) (EQUAL *EXTERNAL-SLOT-VALUES* (LIST INST2 (LIST 'Y 12 'X 5) INST1 (LIST 'Y 4 'X 3)))) RESULTS) (SETF (SLOT-VALUE INST2 'X) -5) (PUSH (SLOT-VALUE INST2 'X) RESULTS) (SLOT-MAKUNBOUND INST1 'Y) (PUSH (LIST (SLOT-BOUNDP INST1 'X) (SLOT-BOUNDP INST1 'Y)) RESULTS) (SLOT-MAKUNBOUND INST1 'X) (PUSH (OR (EQUAL *EXTERNAL-SLOT-VALUES* (LIST INST2 (LIST 'X -5 'Y 12) INST1 NIL)) (EQUAL *EXTERNAL-SLOT-VALUES* (LIST INST2 (LIST 'Y 12 'X -5) INST1 NIL))) RESULTS) (LIST (NREVERSE RESULTS) (SYMBOLS-CLEANUP '(*EXTERNAL-SLOT-VALUES* EXTERNAL-SLOT-DEFINITION EXTERNAL-SLOT-DEFINITION-CLASS TESTCLASS22)))))
EQUAL-OK: ((3 5 4 12 T -5 (T NIL) T) NIL)
(PROGN (DEFPARAMETER *DOC-DATABASE* '((TESTCLASS23 . "This is a dumb class for testing.") (TESTGF24 . "This is a dumb generic function for testing."))) (DEFCLASS EXTERNALLY-DOCUMENTED-CLASS (STANDARD-CLASS) NIL) (DOLIST (GIVEN-NAME (MAPCAR #'CAR *DOC-DATABASE*)) (DEFMETHOD ENSURE-CLASS-USING-CLASS ((CLASS CLASS) (NAME (EQL GIVEN-NAME)) &REST ARGS &KEY DOCUMENTATION &ALLOW-OTHER-KEYS) (IF (AND (NULL DOCUMENTATION) (SETQ DOCUMENTATION (CDR (ASSOC NAME *DOC-DATABASE*)))) (APPLY #'CALL-NEXT-METHOD CLASS NAME (LIST* ':DOCUMENTATION DOCUMENTATION ARGS)) (CALL-NEXT-METHOD))) (DEFMETHOD ENSURE-CLASS-USING-CLASS ((CLASS NULL) (NAME (EQL GIVEN-NAME)) &REST ARGS &KEY DOCUMENTATION &ALLOW-OTHER-KEYS) (IF (AND (NULL DOCUMENTATION) (SETQ DOCUMENTATION (CDR (ASSOC NAME *DOC-DATABASE*)))) (APPLY #'CALL-NEXT-METHOD CLASS NAME (LIST* ':DOCUMENTATION DOCUMENTATION ARGS)) (CALL-NEXT-METHOD)))) (DEFCLASS TESTCLASS23 NIL NIL (:METACLASS EXTERNALLY-DOCUMENTED-CLASS)) (LIST (DOCUMENTATION 'TESTCLASS23 'TYPE) (SYMBOLS-CLEANUP '(*DOC-DATABASE* EXTERNALLY-DOCUMENTED-CLASS TESTCLASS23))))
EQUAL-OK: ("This is a dumb class for testing." NIL)
(PROGN (DEFPARAMETER *DOC-DATABASE* '((TESTCLASS23 . "This is a dumb class for testing.") (TESTGF24 . "This is a dumb generic function for testing."))) (DEFCLASS EXTERNALLY-DOCUMENTED-GENERIC-FUNCTION (STANDARD-GENERIC-FUNCTION) NIL (:METACLASS FUNCALLABLE-STANDARD-CLASS)) (DOLIST (GIVEN-NAME (MAPCAR #'CAR *DOC-DATABASE*)) (DEFMETHOD ENSURE-GENERIC-FUNCTION-USING-CLASS ((GF GENERIC-FUNCTION) (NAME (EQL GIVEN-NAME)) &REST ARGS &KEY DOCUMENTATION &ALLOW-OTHER-KEYS) (IF (AND (NULL DOCUMENTATION) (SETQ DOCUMENTATION (CDR (ASSOC NAME *DOC-DATABASE* :TEST #'EQUAL)))) (APPLY #'CALL-NEXT-METHOD GF NAME (LIST* ':DOCUMENTATION DOCUMENTATION ARGS)) (CALL-NEXT-METHOD))) (DEFMETHOD ENSURE-GENERIC-FUNCTION-USING-CLASS ((GF NULL) (NAME (EQL GIVEN-NAME)) &REST ARGS &KEY DOCUMENTATION &ALLOW-OTHER-KEYS) (IF (AND (NULL DOCUMENTATION) (SETQ DOCUMENTATION (CDR (ASSOC NAME *DOC-DATABASE* :TEST #'EQUAL)))) (APPLY #'CALL-NEXT-METHOD GF NAME (LIST* ':DOCUMENTATION DOCUMENTATION ARGS)) (CALL-NEXT-METHOD)))) (DEFGENERIC TESTGF24 (X) (:GENERIC-FUNCTION-CLASS EXTERNALLY-DOCUMENTED-GENERIC-FUNCTION)) (LIST (DOCUMENTATION 'TESTGF24 'FUNCTION) (SYMBOLS-CLEANUP '(*DOC-DATABASE* EXTERNALLY-DOCUMENTED-GENERIC-FUNCTION TESTGF24))))
EQUAL-OK: ("This is a dumb generic function for testing." NIL)
(PROGN (DEFCLASS TYPECHECKING-READER-METHOD (STANDARD-READER-METHOD) NIL) (DEFMETHOD INITIALIZE-INSTANCE ((METHOD TYPECHECKING-READER-METHOD) &REST INITARGS &KEY SLOT-DEFINITION) (LET ((NAME (SLOT-DEFINITION-NAME SLOT-DEFINITION)) (TYPE (SLOT-DEFINITION-TYPE SLOT-DEFINITION))) (APPLY #'CALL-NEXT-METHOD METHOD :FUNCTION #'(LAMBDA (ARGS NEXT-METHODS) (DECLARE (IGNORE NEXT-METHODS)) (DECLARE (COMPILE)) (APPLY #'(LAMBDA (INSTANCE) (LET ((VALUE (SLOT-VALUE INSTANCE NAME))) (UNLESS (TYPEP VALUE TYPE) (ERROR "Slot ~S of ~S is not of type ~S: ~S" NAME INSTANCE TYPE VALUE)) VALUE)) ARGS)) INITARGS))) (DEFCLASS TYPECHECKING-READER-CLASS (STANDARD-CLASS) NIL) (DEFMETHOD READER-METHOD-CLASS ((CLASS TYPECHECKING-READER-CLASS) DIRECT-SLOT &REST ARGS) (FIND-CLASS 'TYPECHECKING-READER-METHOD)) (DEFCLASS TESTCLASS25 NIL ((PAIR :TYPE (CONS SYMBOL (CONS SYMBOL NULL)) :INITARG :PAIR :ACCESSOR TESTCLASS25-PAIR)) (:METACLASS TYPECHECKING-READER-CLASS)) (MACROLET ((SUCCEEDS (FORM) `(NOT (NTH-VALUE 1 (IGNORE-ERRORS ,FORM))))) (LET ((P (LIST 'ABC 'DEF)) (X (MAKE-INSTANCE 'TESTCLASS25))) (LIST (SUCCEEDS (MAKE-INSTANCE 'TESTCLASS25 :PAIR '(SEVENTEEN 17))) (SUCCEEDS (SETF (TESTCLASS25-PAIR X) P)) (SUCCEEDS (SETF (SECOND P) 456)) (SUCCEEDS (TESTCLASS25-PAIR X)) (SUCCEEDS (SLOT-VALUE X 'PAIR)) (SYMBOLS-CLEANUP '(TYPECHECKING-READER-METHOD TYPECHECKING-READER-CLASS TESTCLASS25 TESTCLASS25-PAIR))))))
EQUAL-OK: (T T T NIL T NIL)
(PROGN (DEFCLASS TYPECHECKING-WRITER-METHOD (STANDARD-WRITER-METHOD) NIL) (DEFMETHOD INITIALIZE-INSTANCE ((METHOD TYPECHECKING-WRITER-METHOD) &REST INITARGS &KEY SLOT-DEFINITION) (LET ((NAME (SLOT-DEFINITION-NAME SLOT-DEFINITION)) (TYPE (SLOT-DEFINITION-TYPE SLOT-DEFINITION))) (APPLY #'CALL-NEXT-METHOD METHOD :FUNCTION #'(LAMBDA (ARGS NEXT-METHODS) (DECLARE (IGNORE NEXT-METHODS)) (DECLARE (COMPILE)) (APPLY #'(LAMBDA (NEW-VALUE INSTANCE) (UNLESS (TYPEP NEW-VALUE TYPE) (ERROR "Slot ~S of ~S: new value is not of type ~S: ~S" NAME INSTANCE TYPE NEW-VALUE)) (SETF (SLOT-VALUE INSTANCE NAME) NEW-VALUE)) ARGS)) INITARGS))) (DEFCLASS TYPECHECKING-WRITER-CLASS (STANDARD-CLASS) NIL) (DEFMETHOD WRITER-METHOD-CLASS ((CLASS TYPECHECKING-WRITER-CLASS) DIRECT-SLOT &REST ARGS) (FIND-CLASS 'TYPECHECKING-WRITER-METHOD)) (DEFCLASS TESTCLASS26 NIL ((PAIR :TYPE (CONS SYMBOL (CONS SYMBOL NULL)) :INITARG :PAIR :ACCESSOR TESTCLASS26-PAIR)) (:METACLASS TYPECHECKING-WRITER-CLASS)) (MACROLET ((SUCCEEDS (FORM) `(NOT (NTH-VALUE 1 (IGNORE-ERRORS ,FORM))))) (LET ((P (LIST 'ABC 'DEF)) (X (MAKE-INSTANCE 'TESTCLASS26))) (LIST (SUCCEEDS (MAKE-INSTANCE 'TESTCLASS26 :PAIR '(SEVENTEEN 17))) (SUCCEEDS (SETF (TESTCLASS26-PAIR X) P)) (SUCCEEDS (SETF (SECOND P) 456)) (SUCCEEDS (TESTCLASS26-PAIR X)) (SUCCEEDS (SETF (TESTCLASS26-PAIR X) P)) (SUCCEEDS (SETF (SLOT-VALUE X 'PAIR) P)) (SYMBOLS-CLEANUP '(TYPECHECKING-WRITER-METHOD TYPECHECKING-WRITER-CLASS TESTCLASS26 TESTCLASS26-PAIR))))))
EQUAL-OK: (T T T T NIL T NIL)
(PROGN (DEFMETHOD VALIDATE-SUPERCLASS ((C1 STANDARD-CLASS) (C2 FUNCALLABLE-STANDARD-CLASS)) T) (DEFCLASS UNCALLABLE-GENERIC-FUNCTION (STANDARD-GENERIC-FUNCTION) NIL (:METACLASS STANDARD-CLASS)) (LET ((INST (MAKE-INSTANCE 'UNCALLABLE-GENERIC-FUNCTION :NAME 'TESTGF27 :LAMBDA-LIST '(X Y) :METHOD-CLASS (FIND-CLASS 'STANDARD-METHOD) :METHOD-COMBINATION (FIND-METHOD-COMBINATION #'PRINT-OBJECT 'STANDARD NIL)))) (LIST (TYPEP INST 'STANDARD-OBJECT) (TYPEP INST 'FUNCALLABLE-STANDARD-OBJECT) (TYPEP (CLASS-OF INST) 'STANDARD-CLASS) (TYPEP (CLASS-OF INST) 'FUNCALLABLE-STANDARD-CLASS))))
[SIMPLE-PACKAGE-ERROR]: DEFMETHOD((VALIDATE-SUPERCLASS NIL STANDARD-CLASS FUNCALLABLE-STANDARD-CLASS)): (#1=#<PACKAGE CLOS> #<PACKAGE COMMON-LISP> #1# #1#) is locked
EQL-OK: ERROR
(PROGN (DEFPARAMETER *COUNTER27* 0) (DEFCLASS COUNTED27-CLASS (STANDARD-CLASS) NIL) (DEFMETHOD MAKE-INSTANCE :AFTER ((C COUNTED27-CLASS) &REST ARGS) (INCF *COUNTER27*)) (DEFCLASS TESTCLASS27A NIL NIL (:METACLASS COUNTED27-CLASS)) (MAKE-INSTANCE 'TESTCLASS27A) (DEFMETHOD VALIDATE-SUPERCLASS ((C1 STANDARD-CLASS) (C2 COUNTED27-CLASS)) T) (DEFCLASS TESTCLASS27B (TESTCLASS27A) NIL (:METACLASS STANDARD-CLASS)) (MAKE-INSTANCE 'TESTCLASS27B) (MAKE-INSTANCE 'TESTCLASS27B) (LIST *COUNTER27* (SYMBOLS-CLEANUP '(*COUNTER27* COUNTED27-CLASS TESTCLASS27A TESTCLASS27B))))
EQUAL-OK: (1 NIL)
(LET ((FINALIZE-INHERITANCE-HISTORY 'NIL)) (WITHOUT-PACKAGE-LOCK ("CLOS") (DEFMETHOD FINALIZE-INHERITANCE :AFTER ((CLASS CLASS)) (PUSH (CLASS-NAME CLASS) FINALIZE-INHERITANCE-HISTORY))) (DEFCLASS TESTCLASS52A NIL NIL) (DEFCLASS TESTCLASS52C (TESTCLASS52A TESTCLASS52B) NIL) (DEFCLASS TESTCLASS52D (TESTCLASS52C) NIL) (DEFCLASS TESTCLASS52B NIL NIL) (MAKE-INSTANCE 'TESTCLASS52D) (LIST FINALIZE-INHERITANCE-HISTORY (PROGN (REMOVE-METHOD #'FINALIZE-INHERITANCE (FIND-METHOD #'FINALIZE-INHERITANCE '(:AFTER) (LIST (FIND-CLASS 'CLASS)))) (SYMBOLS-CLEANUP '(TESTCLASS52A TESTCLASS52B TESTCLASS52C TESTCLASS52D)))))
WARNING: Adding method #<STANDARD-METHOD :AFTER (#1=#<STANDARD-CLASS CLASS>)>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION FINALIZE-INHERITANCE>
WARNING: Removing method
         #1=#<STANDARD-METHOD :AFTER (#2=#<STANDARD-CLASS CLASS>)> from an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION FINALIZE-INHERITANCE>EQUAL-OK: ((#:TESTCLASS52D #:TESTCLASS52C #:TESTCLASS52B #:TESTCLASS52A) NIL)
(LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS01 NIL NIL))) (DEFMETHOD CLASS-DEFAULT-INITARGS ((C (EQL *SAMPCLASS*))) (CALL-NEXT-METHOD)) (UNLESS (CLASS-FINALIZED-P *SAMPCLASS*) (FINALIZE-INHERITANCE *SAMPCLASS*)) (CLASS-DEFAULT-INITARGS *SAMPCLASS*) T)
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-CLASS SAMPCLASS01>))> to an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION CLASS-DEFAULT-INITARGS>EQL-OK: T
(LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS02 NIL NIL))) (LET ((BADMETHOD (DEFMETHOD CLASS-DEFAULT-INITARGS ((C (EQL *SAMPCLASS*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNLESS (CLASS-FINALIZED-P *SAMPCLASS*) (FINALIZE-INHERITANCE *SAMPCLASS*)) (UNWIND-PROTECT (NTH-VALUE 1 (CLASS-DEFAULT-INITARGS *SAMPCLASS*)) (REMOVE-METHOD #'CLASS-DEFAULT-INITARGS BADMETHOD))))
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-CLASS SAMPCLASS02>))> to an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION CLASS-DEFAULT-INITARGS>[SIMPLE-ERROR]: 
CLASS-DEFAULT-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=#<STANDARD-METHOD ((EQL #2=#<STANDARD-CLASS SAMPCLASS02>))> from
         an already called generic function
         #<STANDARD-GENERIC-FUNCTION CLASS-DEFAULT-INITARGS>EQL-OK: ERROR
(LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS03 NIL NIL))) (DEFMETHOD CLASS-DIRECT-DEFAULT-INITARGS ((C (EQL 
*SAMPCLASS*))) (CALL-NEXT-METHOD)) (CLASS-DIRECT-DEFAULT-INITARGS *SAMPCLASS*) T)
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-CLASS SAMPCLASS03>))> to an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION CLASS-DIRECT-DEFAULT-INITARGS>EQL-OK: T
(LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS04 NIL NIL))) (LET ((BADMETHOD (DEFMETHOD CLASS-DIRECT-DEFAULT-INITARGS ((C (EQL *SAMPCLASS*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (CLASS-DIRECT-DEFAULT-INITARGS *SAMPCLASS*)) (REMOVE-METHOD #'CLASS-DIRECT-DEFAULT-INITARGS BADMETHOD))))
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-CLASS SAMPCLASS04>))> to an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION CLASS-DIRECT-DEFAULT-INITARGS>[SIMPLE-ERROR]: 
CLASS-DIRECT-DEFAULT-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=#<STANDARD-METHOD ((EQL #2=#<STANDARD-CLASS SAMPCLASS04>))> from
         an already called generic function
         #<STANDARD-GENERIC-FUNCTION CLASS-DIRECT-DEFAULT-INITARGS>EQL-OK: ERROR
(LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS05 NIL NIL))) (DEFMETHOD CLASS-DIRECT-SLOTS ((C (EQL *SAMPCLASS*))) (CALL-NEXT-METHOD)) (CLASS-DIRECT-SLOTS *SAMPCLASS*
) T)
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-CLASS SAMPCLASS05>))> to an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION CLASS-DIRECT-SLOTS>EQL-OK: T
(LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS06 NIL NIL))) (LET ((BADMETHOD (DEFMETHOD CLASS-DIRECT-SLOTS ((C (EQL *SAMPCLASS*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (CLASS-DIRECT-SLOTS *SAMPCLASS*)) (REMOVE-METHOD #'CLASS-DIRECT-SLOTS BADMETHOD))))
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-CLASS SAMPCLASS06>))> to an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION CLASS-DIRECT-SLOTS>[SIMPLE-ERROR]: 
CLASS-DIRECT-SLOTS: 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=#<STANDARD-METHOD ((EQL #2=#<STANDARD-CLASS SAMPCLASS06>))> from
         an already called generic function
         EQL-OK: ERROR
(LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS07 NIL NIL))) (DEFMETHOD CLASS-DIRECT-SUPERCLASSES ((C (#<STANDARD-GENERIC-FUNCTION CLASS-DIRECT-SLOTS>
EQL *SAMPCLASS*))) (CALL-NEXT-METHOD)) (CLASS-DIRECT-SUPERCLASSES *SAMPCLASS*) T)
EQL-OK: T
(LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS08 NIL NIL))) (LET ((BADMETHOD (DEFMETHOD CLASS-DIRECT-SUPERCLASSES ((C (EQL *SAMPCLASS*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (CLASS-DIRECT-SUPERCLASSES *SAMPCLASS*)) (REMOVE-METHOD #'CLASS-DIRECT-SUPERCLASSES BADMETHOD))))
[SIMPLE-ERROR]: CLASS-DIRECT-SUPERCLASSES: Extending a standardized method is only allowed if it returns the same values as the next method.
Original values: #1=(#2=#<STANDARD-CLASS STANDARD-OBJECT>)
Values returned by the extending method: #1#, T
EQL-OK: ERROR
(LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS09 NIL NIL))) (DEFMETHOD CLASS-FINALIZED-P ((C (EQL *SAMPCLASS*))) (CALL-NEXT-METHOD)) (CLASS-FINALIZED-P *SAMPCLASS*) T)
EQL-OK: T
(LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS10 NIL NIL))) (LET ((BADMETHOD (DEFMETHOD CLASS-FINALIZED-P ((C (EQL *SAMPCLASS*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (CLASS-FINALIZED-P *SAMPCLASS*)) (REMOVE-METHOD #'CLASS-FINALIZED-P BADMETHOD))))
[SIMPLE-ERROR]: CLASS-FINALIZED-P: 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
EQL-OK: ERROR
(LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS11 NIL NIL))) (DEFMETHOD CLASS-PRECEDENCE-LIST ((C (EQL *SAMPCLASS*))) (CALL-NEXT-METHOD)) (UNLESS (CLASS-FINALIZED-P *SAMPCLASS*) (FINALIZE-INHERITANCE *SAMPCLASS*)) (CLASS-PRECEDENCE-LIST *SAMPCLASS*) T)
EQL-OK: T
(LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS12 NIL NIL))) (LET ((BADMETHOD (DEFMETHOD CLASS-PRECEDENCE-LIST ((C (EQL *SAMPCLASS*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNLESS (CLASS-FINALIZED-P *SAMPCLASS*) (FINALIZE-INHERITANCE *SAMPCLASS*)) (UNWIND-PROTECT (NTH-VALUE 1 (CLASS-PRECEDENCE-LIST *SAMPCLASS*)) (REMOVE-METHOD #'CLASS-PRECEDENCE-LIST BADMETHOD))))
[SIMPLE-ERROR]: CLASS-PRECEDENCE-LIST: Extending a standardized method is only allowed if it returns the same values as the next method.
Original values: #1=(#2=#<STANDARD-CLASS SAMPCLASS12> #3=#<STANDARD-CLASS STANDARD-OBJECT> #4=#<BUILT-IN-CLASS T>)
Values returned by the extending method: #1#, T
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-CLASS SAMPCLASS09>))> to an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION CLASS-FINALIZED-P>
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-CLASS SAMPCLASS10>))> to an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION CLASS-FINALIZED-P>
WARNING: Removing method
         #1=#<STANDARD-METHOD ((EQL #2=#<STANDARD-CLASS SAMPCLASS10>))> from
         an already called generic function
         #<STANDARD-GENERIC-FUNCTION CLASS-FINALIZED-P>
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-CLASS SAMPCLASS11>))> to an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION CLASS-PRECEDENCE-LIST>
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-CLASS SAMPCLASS12>))> to an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION CLASS-PRECEDENCE-LIST>
WARNING: Removing method
         #1=#<STANDARD-METHOD ((EQL #2=#<STANDARD-CLASS SAMPCLASS12>))> from
         an already called generic function
         #<STANDARD-GENERIC-FUNCTION CLASS-PRECEDENCE-LIST>EQL-OK: ERROR
(LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS13 NIL NIL))) (DEFMETHOD CLASS-PROTOTYPE (
(C (EQL *SAMPCLASS*))) (CALL-NEXT-METHOD)) (UNLESS (CLASS-FINALIZED-P *SAMPCLASS*) (FINALIZE-INHERITANCE *SAMPCLASS*)) (CLASS-PROTOTYPE *SAMPCLASS*) T)
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-CLASS SAMPCLASS13>))> to an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION CLASS-PROTOTYPE>EQL-OK: T
(LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS14 NIL NIL))) (LET ((BADMETHOD (DEFMETHOD CLASS-PROTOTYPE ((C (EQL *SAMPCLASS*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNLESS (CLASS-FINALIZED-P *SAMPCLASS*) (FINALIZE-INHERITANCE *SAMPCLASS*)) (UNWIND-PROTECT (NTH-VALUE 1 (CLASS-PROTOTYPE *SAMPCLASS*)) (REMOVE-METHOD #'CLASS-PROTOTYPE BADMETHOD))))
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-CLASS SAMPCLASS14>))> to an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION CLASS-PROTOTYPE>[SIMPLE-ERROR]: 
CLASS-PROTOTYPE: Extending a standardized method is only allowed if it returns the same values as the next method.
Original values: #1=#<SAMPCLASS14 #x000010000049FE61>
Values returned by the extending method: #1#, T
WARNING: Removing method
         #1=#<STANDARD-METHOD ((EQL #2=#<STANDARD-CLASS SAMPCLASS14>))> from
         an already called generic functionEQL-OK: ERROR
(LET ((
         #<STANDARD-GENERIC-FUNCTION CLASS-PROTOTYPE>
*SAMPCLASS* (DEFCLASS SAMPCLASS15 NIL NIL))) (DEFMETHOD CLASS-SLOTS ((C (EQL *SAMPCLASS*))) (CALL-NEXT-METHOD)) (UNLESS (CLASS-FINALIZED-P *SAMPCLASS*) (FINALIZE-INHERITANCE *SAMPCLASS*)) (CLASS-SLOTS *SAMPCLASS*) T)
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-CLASS SAMPCLASS15>))> to an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION CLASS-SLOTS>EQL-OK: T
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-CLASS SAMPCLASS16>))> to an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION CLASS-SLOTS>(LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS16 NIL NIL))) (LET ((BADMETHOD (DEFMETHOD CLASS-SLOTS ((C (EQL *SAMPCLASS*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNLESS (CLASS-FINALIZED-P *SAMPCLASS*) (FINALIZE-INHERITANCE *SAMPCLASS*)) (UNWIND-PROTECT (NTH-VALUE 1 (CLASS-SLOTS *SAMPCLASS*)) (REMOVE-METHOD #'CLASS-SLOTS BADMETHOD))))
[SIMPLE-ERROR]: 
CLASS-SLOTS: 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=#<STANDARD-METHOD ((EQL #2=#<STANDARD-CLASS SAMPCLASS16>))> from
         an already called generic function
         #<STANDARD-GENERIC-FUNCTION CLASS-SLOTS>EQL-OK: ERROR
(LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS17 NIL NIL))) (DEFMETHOD (SETF CLASS-NAME) (NEW-VALUE (
C (EQL *SAMPCLASS*))) (CALL-NEXT-METHOD)) (SETF (CLASS-NAME *SAMPCLASS*) 'SAMPCLASS17RENAMED) T)
EQL-OK: T
(LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS18 NIL NIL))) (LET ((BADMETHOD (DEFMETHOD (SETF CLASS-NAME) (NEW-VALUE (C (EQL *SAMPCLASS*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (SETF (CLASS-NAME *SAMPCLASS*) 'SAMPCLASS18RENAMED)) (REMOVE-METHOD #'(SETF CLASS-NAME) BADMETHOD))))
[SIMPLE-ERROR]: #1=(SETF CLASS-NAME): Extending a standardized method is only allowed if it returns the same values as the next method.
Original values: SAMPCLASS18RENAMED
Values returned by the extending method: SAMPCLASS18RENAMED, T
EQL-OK: ERROR
(LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS19 NIL NIL))) (DEFMETHOD FINALIZE-INHERITANCE ((C (EQL *SAMPCLASS*))) (CALL-NEXT-METHOD)) (FINALIZE-INHERITANCE *SAMPCLASS*) T)
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-CLASS SAMPCLASS19>))> to an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION FINALIZE-INHERITANCE>EQL-OK: T
(LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS20 NIL NIL))) (LET ((BADMETHOD (DEFMETHOD FINALIZE-INHERITANCE ((C (EQL *SAMPCLASS*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (FINALIZE-INHERITANCE *SAMPCLASS*)) (REMOVE-METHOD #'FINALIZE-INHERITANCE BADMETHOD))))
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-CLASS SAMPCLASS20>))> to an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION FINALIZE-INHERITANCE>[SIMPLE-ERROR]: 
FINALIZE-INHERITANCE: Extending a standardized method is only allowed if it returns the same values as the next method.
Original values: #1=#<STANDARD-CLASS SAMPCLASS20>
Values returned by the extending method: #1#, T
WARNING: Removing method
         #1=#<STANDARD-METHOD ((EQL #2=#<STANDARD-CLASS SAMPCLASS20>))> from
         an already called generic function
         #<STANDARD-GENERIC-FUNCTION FINALIZE-INHERITANCE>EQL-OK: ERROR
(LET ((*SAMPGF* (DEFGENERIC SAMPGF01 (X Y)))) (DEFMETHOD FIND-METHOD-COMBINATION ((GF (EQL *SAMPGF*
)) NAME OPTIONS) (CALL-NEXT-METHOD)) (FIND-METHOD-COMBINATION *SAMPGF* 'STANDARD NIL) T)
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #<STANDARD-GENERIC-FUNCTION SAMPGF01>) #1=#<BUILT-IN-CLASS T> #1#)>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION FIND-METHOD-COMBINATION>EQL-OK: T
(LET ((*SAMPGF* (DEFGENERIC SAMPGF02 (X Y)))) (LET ((BADMETHOD (DEFMETHOD FIND-METHOD-COMBINATION ((GF (EQL *SAMPGF*)) NAME OPTIONS) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (FIND-METHOD-COMBINATION *SAMPGF* 'STANDARD NIL)) (REMOVE-METHOD #'FIND-METHOD-COMBINATION BADMETHOD))))
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #<STANDARD-GENERIC-FUNCTION SAMPGF02>) #1=#<BUILT-IN-CLASS T> #1#)>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION FIND-METHOD-COMBINATION>[SIMPLE-ERROR]: 
FIND-METHOD-COMBINATION: Extending a standardized method is only allowed if it returns the same values as the next method.
Original values: #1=#<METHOD-COMBINATION STANDARD #x00001000001DFF09>
Values returned by the extending method: #1#, T
WARNING: Removing method
         #1=#<STANDARD-METHOD ((EQL #<STANDARD-GENERIC-FUNCTION SAMPGF02>) #2=#<BUILT-IN-CLASS T> #2#)>
         from an already called generic function
        EQL-OK: ERROR
(LET ((*SAMPGF* (DEFGENERIC SAMPGF03 (X  #<STANDARD-GENERIC-FUNCTION FIND-METHOD-COMBINATION>
Y)))) (DEFMETHOD GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER ((GF (EQL *SAMPGF*))) (CALL-NEXT-METHOD)) (GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER *SAMPGF*) T)
EQL-OK: T
(LET ((*SAMPGF* (DEFGENERIC SAMPGF04 (X Y)))) (LET ((BADMETHOD (DEFMETHOD GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER ((GF (EQL *SAMPGF*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER *SAMPGF*)) (REMOVE-METHOD #'GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER BADMETHOD))))
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #<STANDARD-GENERIC-FUNCTION SAMPGF04>))> to
         an already called generic function
         #<STANDARD-GENERIC-FUNCTION GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER>[SIMPLE-ERROR]: 
GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER: Extending a standardized method is only allowed if it returns the same values as the next method.
Original values: #1=(X Y)
Values returned by the extending method: #1#, T
WARNING: Removing method
         #1=#<STANDARD-METHOD ((EQL #<STANDARD-GENERIC-FUNCTION SAMPGF04>))>
         from an already called generic functionEQL-OK: ERROR
         #<STANDARD-GENERIC-FUNCTION GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER>
(LET ((*SAMPGF* (DEFGENERIC SAMPGF05 (X Y)))) (DEFMETHOD GENERIC-FUNCTION-DECLARATIONS ((GF (EQL *SAMPGF*))) (CALL-NEXT-METHOD)) (GENERIC-FUNCTION-DECLARATIONS *SAMPGF*) T)
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #<STANDARD-GENERIC-FUNCTION SAMPGF05>))> to
         an already called generic function
         #<STANDARD-GENERIC-FUNCTION GENERIC-FUNCTION-DECLARATIONS>EQL-OK: T
(LET ((*SAMPGF* (DEFGENERIC SAMPGF06 (X Y)))) (LET ((BADMETHOD (DEFMETHOD GENERIC-FUNCTION-DECLARATIONS ((GF (EQL *SAMPGF*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (GENERIC-FUNCTION-DECLARATIONS *SAMPGF*)) (REMOVE-METHOD #'GENERIC-FUNCTION-DECLARATIONS BADMETHOD))))
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #<STANDARD-GENERIC-FUNCTION SAMPGF06>))> to
         an already called generic function
         #<STANDARD-GENERIC-FUNCTION GENERIC-FUNCTION-DECLARATIONS>[SIMPLE-ERROR]: 
GENERIC-FUNCTION-DECLARATIONS: 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=#<STANDARD-METHOD ((EQL #<STANDARD-GENERIC-FUNCTION SAMPGF06>))>
         from an already called generic function
         EQL-OK: ERROR
(LET ((*SAMPGF* (DEFGENERIC SAMPGF07 (X Y)))) (DEFMETHOD GENERIC-FUNCTION-LAMBDA-LIST ((#<STANDARD-GENERIC-FUNCTION GENERIC-FUNCTION-DECLARATIONS>
GF (EQL *SAMPGF*))) (CALL-NEXT-METHOD)) (GENERIC-FUNCTION-LAMBDA-LIST *SAMPGF*) T)
EQL-OK: T
(LET ((*SAMPGF* (DEFGENERIC SAMPGF08 (X Y)))) (LET ((BADMETHOD (DEFMETHOD GENERIC-FUNCTION-LAMBDA-LIST ((GF (EQL *SAMPGF*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (GENERIC-FUNCTION-LAMBDA-LIST *SAMPGF*)) (REMOVE-METHOD #'GENERIC-FUNCTION-LAMBDA-LIST BADMETHOD))))
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #<STANDARD-GENERIC-FUNCTION SAMPGF08>))> to
         an already called generic function
         #<STANDARD-GENERIC-FUNCTION GENERIC-FUNCTION-LAMBDA-LIST>[SIMPLE-ERROR]: 
GENERIC-FUNCTION-LAMBDA-LIST: Extending a standardized method is only allowed if it returns the same values as the next method.
Original values: #1=(X Y)
Values returned by the extending method: #1#, T
WARNING: Removing method
         #1=#<STANDARD-METHOD ((EQL #<STANDARD-GENERIC-FUNCTION SAMPGF08>))>
         from an already called generic functionEQL-OK: ERROR
         #<STANDARD-GENERIC-FUNCTION GENERIC-FUNCTION-LAMBDA-LIST>
(LET ((*SAMPGF* (DEFGENERIC SAMPGF09 (X Y)))) (DEFMETHOD GENERIC-FUNCTION-METHOD-CLASS ((GF (EQL *SAMPGF*))) (CALL-NEXT-METHOD)) (GENERIC-FUNCTION-METHOD-CLASS *SAMPGF*) T)
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #<STANDARD-GENERIC-FUNCTION SAMPGF09>))> to
         an already called generic function
         #<STANDARD-GENERIC-FUNCTION GENERIC-FUNCTION-METHOD-CLASS>EQL-OK: T
(LET ((*SAMPGF* (DEFGENERIC SAMPGF10 (X Y)))) (LET ((BADMETHOD (DEFMETHOD GENERIC-FUNCTION-METHOD-CLASS ((GF (EQL *SAMPGF*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (GENERIC-FUNCTION-METHOD-CLASS *SAMPGF*)) (REMOVE-METHOD #'GENERIC-FUNCTION-METHOD-CLASS BADMETHOD))))
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #<STANDARD-GENERIC-FUNCTION SAMPGF10>))> to
         an already called generic function
         #<STANDARD-GENERIC-FUNCTION GENERIC-FUNCTION-METHOD-CLASS>[SIMPLE-ERROR]: 
GENERIC-FUNCTION-METHOD-CLASS: Extending a standardized method is only allowed if it returns the same values as the next method.
Original values: #1=#<STANDARD-CLASS STANDARD-METHOD>
Values returned by the extending method: #1#, T
WARNING: Removing method
         #1=#<STANDARD-METHOD ((EQL #<STANDARD-GENERIC-FUNCTION SAMPGF10>))>
         from an already called generic functionEQL-OK: ERROR
         #<STANDARD-GENERIC-FUNCTION GENERIC-FUNCTION-METHOD-CLASS>
(LET ((*SAMPGF* (DEFGENERIC SAMPGF11 (X Y)))) (DEFMETHOD GENERIC-FUNCTION-METHOD-COMBINATION ((GF (EQL *SAMPGF*))) (CALL-NEXT-METHOD)) (GENERIC-FUNCTION-METHOD-COMBINATION *SAMPGF*) T)
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #<STANDARD-GENERIC-FUNCTION SAMPGF11>))> to
         an already called generic function
         #<STANDARD-GENERIC-FUNCTION GENERIC-FUNCTION-METHOD-COMBINATION>EQL-OK: T
(LET ((*SAMPGF* (DEFGENERIC SAMPGF12 (X Y)))) (LET ((BADMETHOD (DEFMETHOD GENERIC-FUNCTION-METHOD-COMBINATION ((GF (EQL *SAMPGF*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (GENERIC-FUNCTION-METHOD-COMBINATION *SAMPGF*)) (REMOVE-METHOD #'GENERIC-FUNCTION-METHOD-COMBINATION BADMETHOD))))
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #<STANDARD-GENERIC-FUNCTION SAMPGF12>))> to
         an already called generic function
         #<STANDARD-GENERIC-FUNCTION GENERIC-FUNCTION-METHOD-COMBINATION>[SIMPLE-ERROR]: 
GENERIC-FUNCTION-METHOD-COMBINATION: Extending a standardized method is only allowed if it returns the same values as the next method.
Original values: #1=#<METHOD-COMBINATION STANDARD #x00001000001DFF09>
Values returned by the extending method: #1#, T
WARNING: Removing method
         #1=#<STANDARD-METHOD ((EQL #<STANDARD-GENERIC-FUNCTION SAMPGF12>))>
         from an already called generic function
         #<STANDARD-GENERIC-FUNCTION GENERIC-FUNCTION-METHOD-COMBINATION>EQL-OK: ERROR
(LET ((*SAMPGF* (DEFGENERIC SAMPGF13 (X Y)))) (DEFMETHOD GENERIC-FUNCTION-METHODS ((GF (EQL *SAMPGF*))) (CALL-NEXT-METHOD)) (
GENERIC-FUNCTION-METHODS *SAMPGF*) T)
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #<STANDARD-GENERIC-FUNCTION SAMPGF13>))> to
         an already called generic function
         #<STANDARD-GENERIC-FUNCTION GENERIC-FUNCTION-METHODS>EQL-OK: T
(LET ((*SAMPGF* (DEFGENERIC SAMPGF14 (X Y)))) (LET ((BADMETHOD (DEFMETHOD GENERIC-FUNCTION-METHODS ((GF (EQL *SAMPGF*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (GENERIC-FUNCTION-METHODS *SAMPGF*)) (REMOVE-METHOD #'GENERIC-FUNCTION-METHODS BADMETHOD))))
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #<STANDARD-GENERIC-FUNCTION SAMPGF14>))> to
         an already called generic function
         #<STANDARD-GENERIC-FUNCTION GENERIC-FUNCTION-METHODS>[SIMPLE-ERROR]: 
GENERIC-FUNCTION-METHODS: 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=#<STANDARD-METHOD ((EQL #<STANDARD-GENERIC-FUNCTION SAMPGF14>))>
         from an already called generic function
         EQL-OK: ERROR
(LET ((*SAMPGF* (DEFGENERIC SAMPGF15 (X Y)))) (DEFMETHOD GENERIC-FUNCTION-NAME ((GF (EQL #<STANDARD-GENERIC-FUNCTION GENERIC-FUNCTION-METHODS>
*SAMPGF*))) (CALL-NEXT-METHOD)) (GENERIC-FUNCTION-NAME *SAMPGF*) T)
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #<STANDARD-GENERIC-FUNCTION SAMPGF15>))> to
         an already called generic function
         #<STANDARD-GENERIC-FUNCTION GENERIC-FUNCTION-NAME>EQL-OK: T
(LET ((*SAMPGF* (DEFGENERIC SAMPGF16 (X Y)))) (LET ((BADMETHOD (DEFMETHOD GENERIC-FUNCTION-NAME ((GF (EQL *SAMPGF*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (GENERIC-FUNCTION-NAME *SAMPGF*)) (REMOVE-METHOD #'GENERIC-FUNCTION-NAME BADMETHOD))))
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #<STANDARD-GENERIC-FUNCTION SAMPGF16>))> to
         an already called generic function
         #<STANDARD-GENERIC-FUNCTION GENERIC-FUNCTION-NAME>[SIMPLE-ERROR]: 
GENERIC-FUNCTION-NAME: Extending a standardized method is only allowed if it returns the same values as the next method.
Original values: SAMPGF16
Values returned by the extending method: SAMPGF16, T
WARNING: Removing method
         #1=#<STANDARD-METHOD ((EQL #<STANDARD-GENERIC-FUNCTION SAMPGF16>))>
         from an already called generic function
         EQL-OK: ERROR
(LET ((*SAMPGF* (DEFGENERIC SAMPGF17 (X Y)))) (DEFMETHOD (SETF GENERIC-FUNCTION-NAME) (NEW-VALUE#<STANDARD-GENERIC-FUNCTION GENERIC-FUNCTION-NAME>
 (GF (EQL *SAMPGF*))) (CALL-NEXT-METHOD)) (SETF (GENERIC-FUNCTION-NAME *SAMPGF*) 'SAMPGF17RENAMED) T)
EQL-OK: T
(LET ((*SAMPGF* (DEFGENERIC SAMPGF18 (X Y)))) (LET ((BADMETHOD (DEFMETHOD (SETF GENERIC-FUNCTION-NAME) (NEW-VALUE (GF (EQL *SAMPGF*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (SETF (GENERIC-FUNCTION-NAME *SAMPGF*) 'SAMPGF18RENAMED)) (REMOVE-METHOD #'(SETF GENERIC-FUNCTION-NAME) BADMETHOD))))
WARNING: Adding method
         #<STANDARD-METHOD (#1=#<BUILT-IN-CLASS T> (EQL #<STANDARD-GENERIC-FUNCTION SAMPGF18>))>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION (SETF GENERIC-FUNCTION-NAME)>[SIMPLE-ERROR]: 
#1=(SETF GENERIC-FUNCTION-NAME): Extending a standardized method is only allowed if it returns the same values as the next method.
Original values: SAMPGF18RENAMED
Values returned by the extending method: SAMPGF18RENAMED, T
WARNING: Removing method
         #1=#<STANDARD-METHOD (#2=#<BUILT-IN-CLASS T> (EQL #<STANDARD-GENERIC-FUNCTION SAMPGF18RENAMED>))>
         from an already called generic functionEQL-OK: ERROR
         #<STANDARD-GENERIC-FUNCTION (SETF GENERIC-FUNCTION-NAME)>
(LET ((*SAMPMETHOD* (DEFMETHOD SAMPGF19 NIL 'BAR))) (DEFMETHOD METHOD-FUNCTION ((METHOD (EQL *SAMPMETHOD*))) (CALL-NEXT-METHOD)) (METHOD-FUNCTION *SAMPMETHOD*) T)
WARNING: Adding method #<STANDARD-METHOD ((EQL #<STANDARD-METHOD NIL>))> to an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION METHOD-FUNCTION>EQL-OK: T
(LET ((*SAMPMETHOD* (DEFMETHOD SAMPGF20 NIL 'BAR))) (LET ((BADMETHOD (DEFMETHOD METHOD-FUNCTION ((METHOD (EQL *SAMPMETHOD*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (METHOD-FUNCTION *SAMPMETHOD*)) (REMOVE-METHOD #'METHOD-FUNCTION BADMETHOD))))
WARNING: Adding method #<STANDARD-METHOD ((EQL #<STANDARD-METHOD NIL>))> to an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION METHOD-FUNCTION>[SIMPLE-ERROR]: 
METHOD-FUNCTION: Extending a standardized method is only allowed if it returns the same values as the next method.
Original values: #1=#<COMPILED-FUNCTION CLOS::STD-METHOD-FUNCTION-OR-SUBSTITUTE-1>
Values returned by the extending method: #1#, T
WARNING: Removing method #1=#<STANDARD-METHOD ((EQL #<STANDARD-METHOD NIL>))>
         from an already called generic function
         #<STANDARD-GENERIC-FUNCTION METHOD-FUNCTION>EQL-OK: ERROR
(LET ((*SAMPMETHOD* (DEFMETHOD SAMPGF21 NIL 'BAR))) (
DEFMETHOD METHOD-GENERIC-FUNCTION ((METHOD (EQL *SAMPMETHOD*))) (CALL-NEXT-METHOD)) (METHOD-GENERIC-FUNCTION *SAMPMETHOD*) T)
EQL-OK: T
(LET ((*SAMPMETHOD* (DEFMETHOD SAMPGF22 NIL 'BAR))) (LET ((BADMETHOD (DEFMETHOD METHOD-GENERIC-FUNCTION ((METHOD (EQL *SAMPMETHOD*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (METHOD-GENERIC-FUNCTION *SAMPMETHOD*)) (REMOVE-METHOD #'METHOD-GENERIC-FUNCTION BADMETHOD))))
[SIMPLE-ERROR]: METHOD-GENERIC-FUNCTION: Extending a standardized method is only allowed if it returns the same values as the next method.
Original values: #1=#<STANDARD-GENERIC-FUNCTION SAMPGF22>
Values returned by the extending method: #1#, T
EQL-OK: ERROR
(LET ((*SAMPMETHOD* (DEFMETHOD SAMPGF23 NIL 'BAR))) (DEFMETHOD METHOD-LAMBDA-LIST ((METHOD (EQL *SAMPMETHOD*))) (CALL-NEXT-METHOD)) (METHOD-LAMBDA-LIST *SAMPMETHOD*) T)
WARNING: Adding method #<STANDARD-METHOD ((EQL #<STANDARD-METHOD NIL>))> to an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION METHOD-LAMBDA-LIST>EQL-OK: T
(LET ((*SAMPMETHOD* (DEFMETHOD SAMPGF24 NIL 'BAR))) (LET ((BADMETHOD (DEFMETHOD METHOD-LAMBDA-LIST ((METHOD (EQL *SAMPMETHOD*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (METHOD-LAMBDA-LIST *SAMPMETHOD*)) (REMOVE-METHOD #'METHOD-LAMBDA-LIST BADMETHOD))))
WARNING: Adding method #<STANDARD-METHOD ((EQL #<STANDARD-METHOD NIL>))> to an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION METHOD-LAMBDA-LIST>[SIMPLE-ERROR]: 
METHOD-LAMBDA-LIST: 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=#<STANDARD-METHOD ((EQL #<STANDARD-METHOD NIL>))>
         from an already called generic function
         #<STANDARD-GENERIC-FUNCTION METHOD-LAMBDA-LIST>EQL-OK: ERROR
(LET ((*SAMPMETHOD* (DEFMETHOD SAMPGF25 NIL 'BAR))) (DEFMETHOD
 METHOD-SPECIALIZERS ((METHOD (EQL *SAMPMETHOD*))) (CALL-NEXT-METHOD)) (METHOD-SPECIALIZERS *SAMPMETHOD*) T)
WARNING: Adding method #<STANDARD-METHOD ((EQL #<STANDARD-METHOD NIL>))> to an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION METHOD-SPECIALIZERS>EQL-OK: T
(LET ((*SAMPMETHOD* (DEFMETHOD SAMPGF26 NIL 'BAR))) (LET ((BADMETHOD (DEFMETHOD METHOD-SPECIALIZERS ((METHOD (EQL *SAMPMETHOD*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (METHOD-SPECIALIZERS *SAMPMETHOD*)) (REMOVE-METHOD #'METHOD-SPECIALIZERS BADMETHOD))))
WARNING: Adding method #<STANDARD-METHOD ((EQL #<STANDARD-METHOD NIL>))> to an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION METHOD-SPECIALIZERS>[SIMPLE-ERROR]: 
METHOD-SPECIALIZERS: 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=#<STANDARD-METHOD ((EQL #<STANDARD-METHOD NIL>))>
         from an already called generic function
         #<STANDARD-GENERIC-FUNCTION METHOD-SPECIALIZERS>
EQL-OK: ERROR
(LET ((*SAMPMETHOD* (PROGN (DEFCLASS SAMPCLASS21 NIL ((X :READER SAMPCLASS21X))) (FIRST (GENERIC-FUNCTION-METHODS #'SAMPCLASS21X))))) (DEFMETHOD ACCESSOR-METHOD-SLOT-DEFINITION ((METHOD (EQL *SAMPMETHOD*))) (CALL-NEXT-METHOD)) (ACCESSOR-METHOD-SLOT-DEFINITION *SAMPMETHOD*) T)
EQL-OK: T
(LET ((*SAMPMETHOD* (PROGN (DEFCLASS SAMPCLASS22 NIL ((X :READER SAMPCLASS22X))) (FIRST (GENERIC-FUNCTION-METHODS #'SAMPCLASS22X))))) (LET ((BADMETHOD (DEFMETHOD ACCESSOR-METHOD-SLOT-DEFINITION ((SLOTDEF (EQL *SAMPMETHOD*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (ACCESSOR-METHOD-SLOT-DEFINITION *SAMPMETHOD*)) (REMOVE-METHOD #'ACCESSOR-METHOD-SLOT-DEFINITION BADMETHOD))))
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-READER-METHOD (#2=#<STANDARD-CLASS SAMPCLASS22>)>))>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION ACCESSOR-METHOD-SLOT-DEFINITION>[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=#<STANDARD-DIRECT-SLOT-DEFINITION X #x000010000053E081>
Values returned by the extending method: #1#, T
WARNING: Removing method
         #1=#<STANDARD-METHOD ((EQL #2=#<STANDARD-READER-METHOD (#3=#<STANDARD-CLASS SAMPCLASS22>)>))>
         from an already called generic function
         #<STANDARD-GENERIC-FUNCTION ACCESSOR-METHOD-SLOT-DEFINITION>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
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-DIRECT-SLOT-DEFINITION X #x00001000005B90C9>))>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-ALLOCATION>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
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-DIRECT-SLOT-DEFINITION X #x00001000005E57C9>))>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-ALLOCATION>[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=#<STANDARD-METHOD ((EQL #2=#<STANDARD-DIRECT-SLOT-DEFINITION X #x00001000004219A9>))>
         from an already called generic functionEQL-OK: ERROR
         #<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-ALLOCATION>
(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
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-DIRECT-SLOT-DEFINITION X #x000010000047ABA9>))>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-INITARGS>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
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-DIRECT-SLOT-DEFINITION X #x00001000004AB8F9>))>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-INITARGS>[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=#<STANDARD-METHOD ((EQL #2=#<STANDARD-DIRECT-SLOT-DEFINITION X #x00001000004AB8F9>))>
         from an already called generic function
         #<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-INITARGS>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
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-DIRECT-SLOT-DEFINITION X #x00001000005246C1>))>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-INITFORM>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
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-DIRECT-SLOT-DEFINITION X #x0000100000555519>))>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-INITFORM>[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=#<STANDARD-METHOD ((EQL #2=#<STANDARD-DIRECT-SLOT-DEFINITION X #x0000100000555519>))>
         from an already called generic function
         EQL-OK: ERROR
(LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS29 NIL ((X))))))) (DEFMETHOD #<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-INITFORM>
SLOT-DEFINITION-INITFUNCTION ((SLOTDEF (EQL *SAMPSLOT*))) (CALL-NEXT-METHOD)) (SLOT-DEFINITION-INITFUNCTION *SAMPSLOT*) T)
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-DIRECT-SLOT-DEFINITION X #x00001000005CE389>))>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-INITFUNCTION>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
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-DIRECT-SLOT-DEFINITION X #x00001000005FADD9>))>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-INITFUNCTION>[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=#<STANDARD-METHOD ((EQL #2=#<STANDARD-DIRECT-SLOT-DEFINITION X #x00001000004245A9>))>
         from an already called generic function
         #<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-INITFUNCTION>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
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-DIRECT-SLOT-DEFINITION X #x000010000047A6E1>))>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-NAME>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
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-DIRECT-SLOT-DEFINITION X #x00001000004AB5E9>))>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-NAME>[SIMPLE-ERROR]: 
SLOT-DEFINITION-NAME: Extending a standardized method is only allowed if it returns the same values as the next method.
Original values: X
Values returned by the extending method: X, T
WARNING: Removing method[SIMPLE-ERROR]: SLOT-DEFINITION-NAME: Extending a standardized method is only allowed if it returns the same values as the next method.
Original values: X
Values returned by the extending method: X, T
         #1=#<STANDARD-METHOD ((EQL #2=#<STANDARD-DIRECT-SLOT-DEFINITION 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
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-DIRECT-SLOT-DEFINITION X #x00001000005597A9>))>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-TYPE>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
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-DIRECT-SLOT-DEFINITION X #x0000100000586D29>))>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-TYPE>[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=#<STANDARD-METHOD ((EQL #2=#<STANDARD-DIRECT-SLOT-DEFINITION X #x0000100000586D29>))>
   EQL-OK: ERROR
      from an already called generic function
         #<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-TYPE>
(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
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-DIRECT-SLOT-DEFINITION X #x00001000006009B1>))>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-READERS>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
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-DIRECT-SLOT-DEFINITION X #x0000100000427B99>))>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-READERS>[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=#<STANDARD-METHOD ((EQL #2=#<STANDARD-DIRECT-SLOT-DEFINITION X #x0000100000427B99>))>
         from an already called generic function
         #<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-READERS>EQL-OK: ERROR
(LET ((STRUCT (DEFSTRUCT STRUCT04 SLOT1))) (NCONC (MAPCAR #'SLOT-DEFINITION-READERS (
CLASS-DIRECT-SLOTS (FIND-CLASS STRUCT))) (MAPCAR #'SLOT-DEFINITION-WRITERS (CLASS-DIRECT-SLOTS (FIND-CLASS STRUCT)))))
EQUAL-OK: ((STRUCT04-SLOT1) ((SETF STRUCT04-SLOT1)))
(LET ((STRUCT (DEFSTRUCT STRUCT04RO (SLOT1 T :READ-ONLY T)))) (NCONC (MAPCAR #'SLOT-DEFINITION-READERS (CLASS-DIRECT-SLOTS (FIND-CLASS STRUCT))) (MAPCAR #'SLOT-DEFINITION-WRITERS (CLASS-DIRECT-SLOTS (FIND-CLASS STRUCT)))))
EQUAL-OK: ((STRUCT04RO-SLOT1) NIL)
(LET ((STRUCT (DEFSTRUCT (STRUCT04V (:TYPE VECTOR)) SLOT1))) (NCONC (MAPCAR #'SLOT-DEFINITION-READERS (STRUCTURE-DIRECT-SLOTS STRUCT)) (MAPCAR #'SLOT-DEFINITION-WRITERS (STRUCTURE-DIRECT-SLOTS STRUCT))))
EQUAL-OK: ((STRUCT04V-SLOT1) ((SETF STRUCT04V-SLOT1)))
(LET ((STRUCT (DEFSTRUCT (STRUCT04ROV (:TYPE VECTOR)) (SLOT1 T :READ-ONLY T)))) (NCONC (MAPCAR #'SLOT-DEFINITION-READERS (STRUCTURE-DIRECT-SLOTS STRUCT)) (MAPCAR #'SLOT-DEFINITION-WRITERS (STRUCTURE-DIRECT-SLOTS STRUCT))))
EQUAL-OK: ((STRUCT04ROV-SLOT1) NIL)
(LET* ((F "mop-tst-defstruct-test.lisp") (*SUPPRESS-CHECK-REDEFINITION* NIL) (*BREAK-ON-SIGNALS* T)) (WITH-OPEN-FILE (S F :DIRECTION :OUTPUT :IF-EXISTS :SUPERSEDE) (WRITE '(DEFSTRUCT STRUCT05 SLOT) :STREAM S) (TERPRI S) (WRITE '(DEFSTRUCT (STRUCT05V (:TYPE VECTOR)) SLOTV) :STREAM S) (TERPRI S)) (UNWIND-PROTECT (PROGN (COMPILE-FILE F) NIL) (POST-COMPILE-FILE-CLEANUP F)))
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/mop-tst-defstruct-test.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/mop-tst-defstruct-test.fas
0 errors, 0 warningsEQL-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
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-DIRECT-SLOT-DEFINITION X #x00001000005C58E9>))>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-WRITERS>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
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-DIRECT-SLOT-DEFINITION X #x00001000005F2881>))>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-WRITERS>[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=#<STANDARD-METHOD ((EQL #2=#<STANDARD-DIRECT-SLOT-DEFINITION X #x000010000042CF59>))>
         from an already called generic function
         EQL-OK: ERROR
(LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS39 NIL ((X))))) (UNLESS (CLASS-FINALIZED-P *SAMPCLASS*) (FINALIZE-INHERITANCE *SAMPCLASS*)) (LET ((#<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-WRITERS>
*SAMPSLOT* (FIRST (CLASS-SLOTS *SAMPCLASS*)))) (DEFMETHOD SLOT-DEFINITION-LOCATION ((SLOTDEF (EQL *SAMPSLOT*))) (CALL-NEXT-METHOD)) (SLOT-DEFINITION-LOCATION *SAMPSLOT*) T))
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-EFFECTIVE-SLOT-DEFINITION X #x0000100000483421>))>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-LOCATION>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
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-EFFECTIVE-SLOT-DEFINITION X #x00001000004B4F09>))>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-LOCATION>[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=#<STANDARD-METHOD ((EQL #2=#<STANDARD-EFFECTIVE-SLOT-DEFINITION X #x00001000004B4F09>))>
         from an already called generic function
         #<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-LOCATION>EQL-OK: ERROR
(LET ((ADD-METHOD-CALLED NIL)) (DEFCLASS TESTGENERICFUNCTION142 (STANDARD-GENERIC-FUNCTION) NIL (:
METACLASS FUNCALLABLE-STANDARD-CLASS)) (DEFMETHOD ADD-METHOD :BEFORE ((GF TESTGENERICFUNCTION142) (METHOD STANDARD-METHOD)) (SETQ ADD-METHOD-CALLED T)) (DEFGENERIC TESTGF142 (X) (:GENERIC-FUNCTION-CLASS TESTGENERICFUNCTION142)) (DEFMETHOD TESTGF142 (X) (DECLARE (IGNORE X))) (LIST ADD-METHOD-CALLED (SYMBOLS-CLEANUP '(TESTGENERICFUNCTION142 TESTGF142))))
EQUAL-OK: (T NIL)
(LET ((REMOVE-METHOD-CALLED NIL)) (DEFCLASS TESTGENERICFUNCTION143 (STANDARD-GENERIC-FUNCTION) NIL (:METACLASS FUNCALLABLE-STANDARD-CLASS)) (DEFMETHOD REMOVE-METHOD :BEFORE ((GF TESTGENERICFUNCTION143) (METHOD STANDARD-METHOD)) (SETQ REMOVE-METHOD-CALLED T)) (DEFGENERIC TESTGF143 (X) (:GENERIC-FUNCTION-CLASS TESTGENERICFUNCTION143)) (DEFMETHOD TESTGF143 (X) (DECLARE (IGNORE X)) 17) (DEFMETHOD TESTGF143 (X) (DECLARE (IGNORE X)) 19) (LIST REMOVE-METHOD-CALLED (SYMBOLS-CLEANUP '(TESTGENERICFUNCTION143 TESTGF143))))
WARNING: Replacing method #<STANDARD-METHOD (#1=#<BUILT-IN-CLASS T>)> in
         #<TESTGENERICFUNCTION143 TESTGF143>EQUAL-OK: (T NIL)
(PROGN (DEFGENERIC FOO141 (X) (:METHOD ((X INTEGER)) (ISQRT X)) (:METHOD ((X REAL)) (- X))) (LET ((MY-METHOD (FIND-METHOD #'FOO141 NIL (LIST (FIND-CLASS 'REAL)))) (MY-ARGLIST (LIST 43))) (LIST (FUNCALL (METHOD-FUNCTION MY-METHOD) MY-ARGLIST 'NIL) (SYMBOL-CLEANUP 'FOO141))))
EQUAL-OK: (-43 T)
(PROGN (DEFCLASS CUSTOM-METHOD (METHOD) ((QUALIFIERS :READER METHOD-QUALIFIERS :WRITER (SETF CUSTOM-METHOD-QUALIFIERS)) (LAMBDA-LIST :READER METHOD-LAMBDA-LIST :WRITER (SETF CUSTOM-METHOD-LAMBDA-LIST)) (SPECIALIZERS :READER METHOD-SPECIALIZERS :WRITER (SETF CUSTOM-METHOD-SPECIALIZERS)) (FUNCTION :READER METHOD-FUNCTION :WRITER (SETF CUSTOM-METHOD-FUNCTION)) (DOCUMENTATION :ACCESSOR CUSTOM-METHOD-DOCUMENTATION) (GENERIC-FUNCTION :READER METHOD-GENERIC-FUNCTION :WRITER (SETF CUSTOM-METHOD-GENERIC-FUNCTION)))) (DEFMETHOD SHARED-INITIALIZE ((METHOD CUSTOM-METHOD) SITUATION &REST ARGS &KEY (QUALIFIERS NIL QUALIFIERS-P) (LAMBDA-LIST NIL LAMBDA-LIST-P) (SPECIALIZERS NIL SPECIALIZERS-P) (FUNCTION NIL FUNCTION-P) (DOCUMENTATION NIL DOCUMENTATION-P)) (CALL-NEXT-METHOD) (WHEN (OR (EQ SITUATION 'T) QUALIFIERS-P) (SETF (CUSTOM-METHOD-QUALIFIERS METHOD) QUALIFIERS)) (WHEN (OR (EQ SITUATION 'T) LAMBDA-LIST-P) (SETF (CUSTOM-METHOD-LAMBDA-LIST METHOD) LAMBDA-LIST)) (WHEN (OR (EQ SITUATION 'T) SPECIALIZERS-P) (SETF (CUSTOM-METHOD-SPECIALIZERS METHOD) SPECIALIZERS)) (WHEN (OR (EQ SITUATION 'T) FUNCTION-P) (SETF (CUSTOM-METHOD-FUNCTION METHOD) FUNCTION)) (WHEN (OR (EQ SITUATION 'T) DOCUMENTATION-P) (SETF (CUSTOM-METHOD-DOCUMENTATION METHOD) DOCUMENTATION)) (WHEN (EQ SITUATION 'T) (SETF (CUSTOM-METHOD-GENERIC-FUNCTION METHOD) NIL)) METHOD) (DEFMETHOD DOCUMENTATION ((X CUSTOM-METHOD) (DOC-TYPE (EQL 'T))) (DECLARE (IGNORE DOC-TYPE)) (CUSTOM-METHOD-DOCUMENTATION X)) (DEFMETHOD (SETF DOCUMENTATION) (NEW-VALUE (X CUSTOM-METHOD) (DOC-TYPE (EQL 'T))) (DECLARE (IGNORE DOC-TYPE)) (SETF (CUSTOM-METHOD-DOCUMENTATION X) NEW-VALUE)) (DEFMETHOD (SETF METHOD-GENERIC-FUNCTION) (NEW-GF (METHOD CUSTOM-METHOD)) (SETF (CUSTOM-METHOD-GENERIC-FUNCTION METHOD) NEW-GF)) (LET ((RESULT 'NIL)) (DEFGENERIC TESTGF30 (A B) (:METHOD ((A INTEGER) (B INTEGER)) (- (CALL-NEXT-METHOD) (FLOOR A B))) (:METHOD ((A REAL) (B REAL)) (/ (FLOAT A) (FLOAT B))) (:METHOD-CLASS CUSTOM-METHOD)) (PUSH (NOT (FIND-METHOD #'TESTGF30 NIL (LIST (FIND-CLASS 'INTEGER) (FIND-CLASS 'INTEGER)) NIL)) RESULT) (PUSH (TESTGF30 17 2) RESULT) (DEFGENERIC TESTGF30 (A B) (:METHOD ((A REAL) (B REAL)) (/ (FLOAT A) (FLOAT B))) (:METHOD-CLASS CUSTOM-METHOD)) (PUSH (NOT (FIND-METHOD #'TESTGF30 NIL (LIST (FIND-CLASS 'INTEGER) (FIND-CLASS 'INTEGER)) NIL)) RESULT) (PUSH (TESTGF30 17 2) RESULT) (LIST (NREVERSE RESULT) (CLOS::GF-DYNAMICALLY-MODIFIABLE #'(SETF CUSTOM-METHOD-FUNCTION)) (CLOS::GF-DYNAMICALLY-MODIFIABLE #'CUSTOM-METHOD-DOCUMENTATION) (SYMBOLS-CLEANUP '(TESTGF30)))))
WARNING: Adding method
         #<STANDARD-READER-METHOD (#1=#<STANDARD-CLASS CUSTOM-METHOD>)> to an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION METHOD-LAMBDA-LIST>
WARNING: Adding method
         #<STANDARD-READER-METHOD (#1=#<STANDARD-CLASS CUSTOM-METHOD>)> to an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION METHOD-SPECIALIZERS>
WARNING: Adding method
         #<STANDARD-READER-METHOD (#1=#<STANDARD-CLASS CUSTOM-METHOD>)> to an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION METHOD-FUNCTION>
WARNING: Redefining an already called generic function
         #<STANDARD-GENERIC-FUNCTION TESTGF30>EQUAL-OK: ((NIL 
0.5 T 8.5) NIL NIL NIL)
(PROGN (DEFGENERIC TESTGF34 (X)) (DEFMETHOD TESTGF34 ((X INTEGER)) 'OLD-INTEGER) (DEFMETHOD TESTGF34 ((X REAL)) 'REAL) (LIST* (TESTGF34 3) (TESTGF34 22/7) (PROGN (LET ((METHOD (FIND-METHOD #'TESTGF34 'NIL (LIST (FIND-CLASS 'INTEGER))))) (CHANGE-CLASS METHOD (FIND-CLASS 'CUSTOM-METHOD) :QUALIFIERS 'NIL :LAMBDA-LIST '(X) :SPECIALIZERS (LIST (FIND-CLASS 'RATIONAL)) :FUNCTION #'(LAMBDA (ARGUMENTS NEXT-METHODS) 'NEW-RATIONAL) :DOCUMENTATION NIL)) (LIST (TESTGF34 3) (TESTGF34 22/7) (SYMBOLS-CLEANUP '(CUSTOM-METHOD TESTGF34))))))
EQUAL-OK: (OLD-INTEGER REAL NEW-RATIONAL NEW-RATIONAL NIL)
(PROGN (DEFGENERIC TESTGF35 (X)) (DEFMETHOD TESTGF35 ((X INTEGER)) (CONS 'INTEGER (IF (NEXT-METHOD-P) (CALL-NEXT-METHOD)))) (DEFMETHOD TESTGF35 ((X REAL)) (CONS 'REAL (IF (NEXT-METHOD-P) (CALL-NEXT-METHOD)))) (DEFCLASS CUSTOMIZED5-GENERIC-FUNCTION (STANDARD-GENERIC-FUNCTION) NIL (:METACLASS FUNCALLABLE-STANDARD-CLASS)) (DEFMETHOD COMPUTE-EFFECTIVE-METHOD ((GF CUSTOMIZED5-GENERIC-FUNCTION) METHOD-COMBINATION METHODS) `(REVERSE ,(CALL-NEXT-METHOD))) (LIST (TESTGF35 3) (PROGN (CHANGE-CLASS #'TESTGF35 'CUSTOMIZED5-GENERIC-FUNCTION) (TESTGF35 3)) (SYMBOLS-CLEANUP '(TESTGF35 CUSTOMIZED5-GENERIC-FUNCTION))))
EQUAL-OK: ((INTEGER REAL) (REAL INTEGER) NIL)
(PROGN (DEFGENERIC TESTGF36 (X)) (DEFMETHOD TESTGF36 ((X INTEGER)) (CONS 'INTEGER (IF (NEXT-METHOD-P) (CALL-NEXT-METHOD)))) (DEFMETHOD TESTGF36 ((X REAL)) (CONS 'REAL (IF (NEXT-METHOD-P) (CALL-NEXT-METHOD)))) (DEFCLASS CUSTOMIZED6-GENERIC-FUNCTION (STANDARD-GENERIC-FUNCTION) NIL (:METACLASS FUNCALLABLE-STANDARD-CLASS)) (DEFMETHOD COMPUTE-DISCRIMINATING-FUNCTION ((GF CUSTOMIZED6-GENERIC-FUNCTION)) (LET ((ORIG-DF (CALL-NEXT-METHOD))) #'(LAMBDA (&REST ARGUMENTS) (REVERSE (APPLY ORIG-DF ARGUMENTS))))) (LIST (TESTGF36 3) (PROGN (CHANGE-CLASS #'TESTGF36 'CUSTOMIZED6-GENERIC-FUNCTION) (TESTGF36 3)) (SYMBOLS-CLEANUP '(TESTGF36 CUSTOMIZED6-GENERIC-FUNCTION))))
EQUAL-OK: ((INTEGER REAL) (REAL INTEGER) NIL)
(PROGN (DEFCLASS TYPECHECKED-SLOT-DEFINITION (STANDARD-EFFECTIVE-SLOT-DEFINITION) NIL) (DEFMETHOD SLOT-VALUE-USING-CLASS ((CLASS STANDARD-CLASS) INSTANCE (SLOT TYPECHECKED-SLOT-DEFINITION)) (LET ((VALUE (CALL-NEXT-METHOD))) (UNLESS (TYPEP VALUE (SLOT-DEFINITION-TYPE SLOT)) (ERROR "Slot ~S of ~S has changed, no longer of type ~S" (SLOT-DEFINITION-NAME SLOT) INSTANCE (SLOT-DEFINITION-TYPE SLOT))) VALUE)) (DEFMETHOD (SETF SLOT-VALUE-USING-CLASS) (NEW-VALUE (CLASS STANDARD-CLASS) INSTANCE (SLOT TYPECHECKED-SLOT-DEFINITION)) (UNLESS (TYPEP NEW-VALUE (SLOT-DEFINITION-TYPE SLOT)) (ERROR "Slot ~S of ~S: new value is not of type ~S: ~S" (SLOT-DEFINITION-NAME SLOT) INSTANCE (SLOT-DEFINITION-TYPE SLOT) NEW-VALUE)) (CALL-NEXT-METHOD)) (DEFCLASS TYPECHECKED-SLOT-DEFINITION-CLASS (STANDARD-CLASS) NIL) (DEFMETHOD EFFECTIVE-SLOT-DEFINITION-CLASS ((CLASS TYPECHECKED-SLOT-DEFINITION-CLASS) &REST ARGS) (FIND-CLASS 'TYPECHECKED-SLOT-DEFINITION)) (DEFCLASS TESTCLASS28 NIL ((PAIR :TYPE (CONS SYMBOL (CONS SYMBOL NULL)) :INITARG :PAIR :ACCESSOR TESTCLASS28-PAIR)) (:METACLASS TYPECHECKED-SLOT-DEFINITION-CLASS)) (MACROLET ((SUCCEEDS (FORM) `(NOT (NTH-VALUE 1 (IGNORE-ERRORS ,FORM))))) (LET ((P (LIST 'ABC 'DEF)) (X (MAKE-INSTANCE 'TESTCLASS28))) (LIST (SUCCEEDS (MAKE-INSTANCE 'TESTCLASS28 :PAIR '(SEVENTEEN 17))) (SUCCEEDS (SETF (TESTCLASS28-PAIR X) P)) (SUCCEEDS (SETF (SECOND P) 456)) (SUCCEEDS (TESTCLASS28-PAIR X)) (SUCCEEDS (SLOT-VALUE X 'PAIR)) (SYMBOLS-CLEANUP '(TYPECHECKED-SLOT-DEFINITION TESTCLASS28 TESTCLASS28-PAIR TYPECHECKED-SLOT-DEFINITION-CLASS))))))
EQUAL-OK: (NIL T T NIL NIL NIL)
(PROGN (DEFCLASS CLASS-SUPPORTING-CLASSOF-SLOTS (STANDARD-CLASS) ((SLOTNAME-TO-DUMMYSLOTNAME :TYPE LIST :INITFORM NIL))) (DEFCLASS CLASSOF-DIRECT-SLOT-DEFINITION-MIXIN NIL NIL) (LET ((ADD-MIXIN-TABLE (MAKE-HASH-TABLE :TEST 'STABLEHASH-EQ))) (DEFUN ADD-CLASSOF-DIRECT-MIXIN (SLOT-CLASS) (IF (SUBTYPEP SLOT-CLASS (FIND-CLASS 'CLASSOF-DIRECT-SLOT-DEFINITION-MIXIN)) SLOT-CLASS (OR (GETHASH SLOT-CLASS ADD-MIXIN-TABLE) (SETF (GETHASH SLOT-CLASS ADD-MIXIN-TABLE) (ENSURE-CLASS (MAKE-SYMBOL (CONCATENATE 'STRING (SYMBOL-NAME (CLASS-NAME SLOT-CLASS)) "-WITH-CLASSOF-SUPPORT")) :METACLASS (CLASS-OF SLOT-CLASS) :DIRECT-SUPERCLASSES (LIST SLOT-CLASS (FIND-CLASS 'CLASSOF-DIRECT-SLOT-DEFINITION-MIXIN)))))))) (DEFMETHOD DIRECT-SLOT-DEFINITION-CLASS ((CLASS CLASS-SUPPORTING-CLASSOF-SLOTS) &REST INITARGS) (IF (GETF INITARGS ':PER-SUBCLASS) (ADD-CLASSOF-DIRECT-MIXIN (CALL-NEXT-METHOD)) (CALL-NEXT-METHOD))) (DEFMETHOD INITIALIZE-INSTANCE :AFTER ((SLOT CLASSOF-DIRECT-SLOT-DEFINITION-MIXIN) &REST INITARGS &KEY PER-SUBCLASS) (DECLARE (IGNORE PER-SUBCLASS))) (DEFMETHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS ((CLASS CLASS-SUPPORTING-CLASSOF-SLOTS) DIRECT-SLOT-DEFINITIONS) (IF (TYPEP (FIRST DIRECT-SLOT-DEFINITIONS) 'CLASSOF-DIRECT-SLOT-DEFINITION-MIXIN) (APPEND (CALL-NEXT-METHOD) (LIST ':PER-SUBCLASS T)) (CALL-NEXT-METHOD))) (DEFCLASS CLASSOF-EFFECTIVE-SLOT-DEFINITION-MIXIN NIL ((VALUE-SLOT-NAME :TYPE SYMBOL))) (LET ((ADD-MIXIN-TABLE (MAKE-HASH-TABLE :TEST 'STABLEHASH-EQ))) (DEFUN ADD-CLASSOF-EFFECTIVE-MIXIN (SLOT-CLASS) (IF (SUBTYPEP SLOT-CLASS (FIND-CLASS 'CLASSOF-EFFECTIVE-SLOT-DEFINITION-MIXIN)) SLOT-CLASS (OR (GETHASH SLOT-CLASS ADD-MIXIN-TABLE) (SETF (GETHASH SLOT-CLASS ADD-MIXIN-TABLE) (ENSURE-CLASS (MAKE-SYMBOL (CONCATENATE 'STRING (SYMBOL-NAME (CLASS-NAME SLOT-CLASS)) "-WITH-CLASSOF-SUPPORT")) :METACLASS (CLASS-OF SLOT-CLASS) :DIRECT-SUPERCLASSES (LIST SLOT-CLASS (FIND-CLASS 'CLASSOF-EFFECTIVE-SLOT-DEFINITION-MIXIN)))))))) (DEFMETHOD EFFECTIVE-SLOT-DEFINITION-CLASS ((CLASS CLASS-SUPPORTING-CLASSOF-SLOTS) &REST INITARGS) (IF (GETF INITARGS ':PER-SUBCLASS) (ADD-CLASSOF-EFFECTIVE-MIXIN (CALL-NEXT-METHOD)) (CALL-NEXT-METHOD))) (DEFMETHOD INITIALIZE-INSTANCE :AFTER ((SLOT CLASSOF-EFFECTIVE-SLOT-DEFINITION-MIXIN) &REST INITARGS &KEY PER-SUBCLASS) (DECLARE (IGNORE PER-SUBCLASS))) (DEFMETHOD COMPUTE-SLOTS ((CLASS CLASS-SUPPORTING-CLASSOF-SLOTS)) (LET* ((SLOTS (CALL-NEXT-METHOD)) (DUMMY-SLOTS (LET ((OLD-DUMMYSLOTNAMES (SLOT-VALUE CLASS 'SLOTNAME-TO-DUMMYSLOTNAME)) (NEW-DUMMYSLOTNAMES 'NIL)) (PROG1 (MAPCAN #'(LAMBDA (SLOT) (IF (TYPEP SLOT 'CLASSOF-EFFECTIVE-SLOT-DEFINITION-MIXIN) (LET* ((VALUE-SLOT-NAME (OR (GETF OLD-DUMMYSLOTNAMES (SLOT-DEFINITION-NAME SLOT)) (MAKE-SYMBOL (CONCATENATE 'STRING "VALUE-OF-" (SYMBOL-NAME (SLOT-DEFINITION-NAME SLOT)) "-IN-" (SYMBOL-NAME (CLASS-NAME CLASS)))))) (VALUE-SLOT (MAKE-INSTANCE 'STANDARD-EFFECTIVE-SLOT-DEFINITION :NAME VALUE-SLOT-NAME :ALLOCATION :CLASS :INITFORM (SLOT-DEFINITION-INITFORM SLOT) :INITFUNCTION (SLOT-DEFINITION-INITFUNCTION SLOT) :TYPE (SLOT-DEFINITION-TYPE SLOT)))) (SETF (SLOT-VALUE SLOT 'VALUE-SLOT-NAME) VALUE-SLOT-NAME) (SETF (GETF NEW-DUMMYSLOTNAMES (SLOT-DEFINITION-NAME SLOT)) VALUE-SLOT-NAME) (LIST VALUE-SLOT)) 'NIL)) SLOTS) (SETF (SLOT-VALUE CLASS 'SLOTNAME-TO-DUMMYSLOTNAME) NEW-DUMMYSLOTNAMES))))) (APPEND SLOTS DUMMY-SLOTS))) (DEFMETHOD SLOT-VALUE-USING-CLASS ((CLASS STANDARD-CLASS) OBJECT (SLOT CLASSOF-EFFECTIVE-SLOT-DEFINITION-MIXIN)) (SLOT-VALUE OBJECT (SLOT-VALUE SLOT 'VALUE-SLOT-NAME))) (DEFMETHOD (SETF SLOT-VALUE-USING-CLASS) (NEW-VALUE (CLASS STANDARD-CLASS) OBJECT (SLOT CLASSOF-EFFECTIVE-SLOT-DEFINITION-MIXIN)) (SETF (SLOT-VALUE OBJECT (SLOT-VALUE SLOT 'VALUE-SLOT-NAME)) NEW-VALUE)) (DEFMETHOD SLOT-BOUNDP-USING-CLASS ((CLASS STANDARD-CLASS) OBJECT (SLOT CLASSOF-EFFECTIVE-SLOT-DEFINITION-MIXIN)) (SLOT-BOUNDP OBJECT (SLOT-VALUE SLOT 'VALUE-SLOT-NAME))) (DEFMETHOD SLOT-MAKUNBOUND-USING-CLASS ((CLASS STANDARD-CLASS) OBJECT (SLOT CLASSOF-EFFECTIVE-SLOT-DEFINITION-MIXIN)) (SLOT-MAKUNBOUND OBJECT (SLOT-VALUE SLOT 'VALUE-SLOT-NAME))) (DEFGENERIC INITIALIZE-CLASSOF-SLOT (CLASS SLOT) (:METHOD ((CLASS CLASS-SUPPORTING-CLASSOF-SLOTS) (SLOT CLASSOF-EFFECTIVE-SLOT-DEFINITION-MIXIN)))) (DEFMETHOD INITIALIZE-INSTANCE :AFTER ((CLASS CLASS-SUPPORTING-CLASSOF-SLOTS) &REST INITARGS) (DOLIST (SLOT (CLASS-SLOTS CLASS)) (WHEN (AND (TYPEP SLOT 'CLASSOF-EFFECTIVE-SLOT-DEFINITION-MIXIN) (NOT (SLOT-BOUNDP (CLASS-PROTOTYPE CLASS) (SLOT-DEFINITION-NAME SLOT)))) (INITIALIZE-CLASSOF-SLOT CLASS SLOT)))) (DEFCLASS TESTCLASS29A NIL ((X :ALLOCATION :INSTANCE) (Y :ALLOCATION :CLASS :PER-SUBCLASS T) (Z :ALLOCATION :CLASS)) (:METACLASS CLASS-SUPPORTING-CLASSOF-SLOTS)) (DEFCLASS TESTCLASS29B (TESTCLASS29A) NIL (:METACLASS CLASS-SUPPORTING-CLASSOF-SLOTS)) (LET ((INSTA1 (MAKE-INSTANCE 'TESTCLASS29A)) (INSTA2 (MAKE-INSTANCE 'TESTCLASS29A)) (INSTB1 (MAKE-INSTANCE 'TESTCLASS29B)) (INSTB2 (MAKE-INSTANCE 'TESTCLASS29B))) (SETF (SLOT-VALUE INSTA1 'X) 'X1) (SETF (SLOT-VALUE INSTA1 'Y) 'Y1) (SETF (SLOT-VALUE INSTA1 'Z) 'Z1) (SETF (SLOT-VALUE INSTB1 'X) 'X2) (SETF (SLOT-VALUE INSTB1 'Y) 'Y2) (SETF (SLOT-VALUE INSTB1 'Z) 'Z2) (SETF (SLOT-VALUE INSTB2 'X) 'X3) (SETF (SLOT-VALUE INSTB2 'Y) 'Y3) (SETF (SLOT-VALUE INSTB2 'Z) 'Z3) (SETF (SLOT-VALUE INSTA2 'X) 'X4) (SETF (SLOT-VALUE INSTA2 'Y) 'Y4) (SETF (SLOT-VALUE INSTA2 'Z) 'Z4) (LIST (SLOT-VALUE INSTA1 'X) (SLOT-VALUE INSTA1 'Y) (SLOT-VALUE INSTA1 'Z) (SLOT-VALUE INSTA2 'X) (SLOT-VALUE INSTA2 'Y) (SLOT-VALUE INSTA2 'Z) (SLOT-VALUE INSTB1 'X) (SLOT-VALUE INSTB1 'Y) (SLOT-VALUE INSTB1 'Z) (SLOT-VALUE INSTB2 'X) (SLOT-VALUE INSTB2 'Y) (SLOT-VALUE INSTB2 'Z))))
EQUAL-OK: (X1 Y4 Z4 X4 Y4 Z4 X2 Y3 Z4 X3 Y3 Z4)
(PROGN (LOAD (MERGE-PATHNAMES "mop-aux.lisp" *RUN-TEST-TRUENAME*)) (LOAD (MERGE-PATHNAMES "hash-classes.lisp" *RUN-TEST-TRUENAME*)) T)
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/tests/mop-aux.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/tests/mop-aux.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/tests/hash-classes.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/tests/hash-classes.lisp
EQL-OK: T
(PROGN (DEFCLASS VIRTUAL-CLASS (CLASS-SUPPORTING-CLASSOF-SLOTS STANDARD-CLASS) NIL) (DEFCLASS VIRTUAL-BASE-CLASS (VIRTUAL-CLASS) ((VT-FUNCTIONS :TYPE VECTOR :ACCESSOR VTBASE-VT-FUNCTIONS) (VT-SLOT-NAME :TYPE SYMBOL :ACCESSOR VTBASE-VT-SLOT-NAME))) (DEFMETHOD VALIDATE-SUPERCLASS ((C1 VIRTUAL-CLASS) (C2 VIRTUAL-BASE-CLASS)) T) (DEFMETHOD INITIALIZE-INSTANCE ((CLASS VIRTUAL-BASE-CLASS) &REST INITARGS &KEY (DIRECT-SLOTS 'NIL)) (SETF (VTBASE-VT-FUNCTIONS CLASS) (MAKE-ARRAY 10 :ADJUSTABLE T :FILL-POINTER 0)) (SETF (VTBASE-VT-SLOT-NAME CLASS) (GENSYM "VTABLE")) (APPLY #'CALL-NEXT-METHOD CLASS :DIRECT-SLOTS (CONS (LIST ':NAME (VTBASE-VT-SLOT-NAME CLASS) ':ALLOCATION ':CLASS ':PER-SUBCLASS T ':BASE-CLASS CLASS) DIRECT-SLOTS) INITARGS)) (DEFCLASS VIRTUAL-TABLE-DIRECT-SLOT-DEFINITION (STANDARD-DIRECT-SLOT-DEFINITION CLASSOF-DIRECT-SLOT-DEFINITION-MIXIN) ((BASE-CLASS :INITARG :BASE-CLASS))) (DEFCLASS VIRTUAL-TABLE-EFFECTIVE-SLOT-DEFINITION (STANDARD-EFFECTIVE-SLOT-DEFINITION CLASSOF-EFFECTIVE-SLOT-DEFINITION-MIXIN) ((BASE-CLASS :INITARG :BASE-CLASS))) (DEFMETHOD DIRECT-SLOT-DEFINITION-CLASS ((CLASS VIRTUAL-BASE-CLASS) &REST INITARGS) (IF (GETF INITARGS ':BASE-CLASS) (FIND-CLASS 'VIRTUAL-TABLE-DIRECT-SLOT-DEFINITION) (CALL-NEXT-METHOD))) (DEFMETHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS ((CLASS VIRTUAL-CLASS) DIRECT-SLOT-DEFINITIONS) (IF (TYPEP (FIRST DIRECT-SLOT-DEFINITIONS) 'VIRTUAL-TABLE-DIRECT-SLOT-DEFINITION) (APPEND (CALL-NEXT-METHOD) (LIST ':BASE-CLASS (SLOT-VALUE (FIRST DIRECT-SLOT-DEFINITIONS) 'BASE-CLASS))) (CALL-NEXT-METHOD))) (DEFMETHOD EFFECTIVE-SLOT-DEFINITION-CLASS ((CLASS VIRTUAL-CLASS) &REST INITARGS) (IF (GETF INITARGS ':BASE-CLASS) (FIND-CLASS 'VIRTUAL-TABLE-EFFECTIVE-SLOT-DEFINITION) (CALL-NEXT-METHOD))) (DEFUN COMPUTE-VIRTUAL-GENERIC-FUNCTION-EFFECTIVE-METHOD (GF CLASS) (MULTIPLE-VALUE-BIND (METHODS CERTAIN) (COMPUTE-APPLICABLE-METHODS-USING-CLASSES GF (CONS CLASS (MAKE-LIST (1- (LENGTH (GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER GF))) :INITIAL-ELEMENT (FIND-CLASS 'T)))) (UNLESS CERTAIN (ERROR "Problem determining the applicable methods of ~S on ~S" GF CLASS)) (COMPUTE-EFFECTIVE-METHOD-AS-FUNCTION GF METHODS (CONS (CLASS-PROTOTYPE CLASS) (MAKE-LIST (1- (LENGTH (GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER GF))) :INITIAL-ELEMENT NIL))))) (DEFMETHOD INITIALIZE-CLASSOF-SLOT ((CLASS VIRTUAL-CLASS) (SLOT VIRTUAL-TABLE-EFFECTIVE-SLOT-DEFINITION)) (SETF (SLOT-VALUE (CLASS-PROTOTYPE CLASS) (SLOT-DEFINITION-NAME SLOT)) (LET* ((BASE-CLASS (SLOT-VALUE SLOT 'BASE-CLASS)) (CURRENT-LENGTH (LENGTH (VTBASE-VT-FUNCTIONS BASE-CLASS))) (VTABLE (MAKE-ARRAY CURRENT-LENGTH :ADJUSTABLE T :FILL-POINTER CURRENT-LENGTH))) (DOTIMES (I CURRENT-LENGTH) (SETF (AREF VTABLE I) (COMPUTE-VIRTUAL-GENERIC-FUNCTION-EFFECTIVE-METHOD (AREF (VTBASE-VT-FUNCTIONS BASE-CLASS) I) CLASS))) VTABLE))) (DEFUN COLLECT-ALL-SUBCLASSES (CLASS) (LET ((RESULT 'NIL) (TODO (LIST CLASS))) (LOOP (UNLESS TODO (RETURN)) (LET ((LAST-TODO TODO)) (SETQ TODO 'NIL) (DOLIST (C LAST-TODO) (UNLESS (MEMBER C RESULT) (SETQ TODO (REVAPPEND (CLASS-DIRECT-SUBCLASSES C) TODO)) (PUSH C RESULT))))) (NREVERSE RESULT))) (DEFCLASS VIRTUAL-GENERIC-FUNCTION (STANDARD-GENERIC-FUNCTION) ((BASE-CLASS :TYPE CLASS :ACCESSOR VTGF-BASE-CLASS) (VT-INDEX :TYPE FIXNUM :ACCESSOR VTGF-VT-INDEX)) (:METACLASS FUNCALLABLE-STANDARD-CLASS)) (DEFMETHOD SHARED-INITIALIZE ((GF VIRTUAL-GENERIC-FUNCTION) SITUATION &REST ARGS &KEY (BASE-CLASS NIL BASE-CLASS-P)) (CALL-NEXT-METHOD) (WHEN BASE-CLASS-P (WHEN (CONSP BASE-CLASS) (SETQ BASE-CLASS (CAR BASE-CLASS))) (UNLESS (TYPEP BASE-CLASS 'CLASS) (SETQ BASE-CLASS (FIND-CLASS BASE-CLASS))) (SETF (VTGF-BASE-CLASS GF) BASE-CLASS) (SETF (VTGF-VT-INDEX GF) (OR (POSITION GF (VTBASE-VT-FUNCTIONS BASE-CLASS)) (LET ((INDEX (VECTOR-PUSH-EXTEND GF (VTBASE-VT-FUNCTIONS BASE-CLASS))) (VT-SLOT-NAME (VTBASE-VT-SLOT-NAME BASE-CLASS))) (DOLIST (CL (COLLECT-ALL-SUBCLASSES BASE-CLASS)) (LET ((CL-PROTO (CLASS-PROTOTYPE CL))) (ASSERT (= (FILL-POINTER (SLOT-VALUE CL-PROTO VT-SLOT-NAME)) INDEX)) (VECTOR-PUSH-EXTEND '#:NOT-YET-UPDATED (SLOT-VALUE CL-PROTO VT-SLOT-NAME)))) INDEX)))) GF) (DEFUN UPDATE-VIRTUAL-GENERIC-FUNCTION (GF &OPTIONAL (CLASS (VTGF-BASE-CLASS GF))) (LET ((VT-SLOT-NAME (VTBASE-VT-SLOT-NAME (VTGF-BASE-CLASS GF))) (VT-INDEX (VTGF-VT-INDEX GF))) (DOLIST (CL (COLLECT-ALL-SUBCLASSES CLASS)) (SETF (AREF (SLOT-VALUE (CLASS-PROTOTYPE CL) VT-SLOT-NAME) VT-INDEX) (COMPUTE-VIRTUAL-GENERIC-FUNCTION-EFFECTIVE-METHOD GF CL))))) (DEFCLASS VIRTUAL-GENERIC-FUNCTION-UPDATER NIL NIL) (DEFPARAMETER *VIRTUAL-GENERIC-FUNCTION-UPDATER* (MAKE-INSTANCE 'VIRTUAL-GENERIC-FUNCTION-UPDATER)) (DEFMETHOD UPDATE-DEPENDENT ((GF VIRTUAL-GENERIC-FUNCTION) (DEPENDENT VIRTUAL-GENERIC-FUNCTION-UPDATER) &REST DETAILS) (DECLARE (IGNORE DETAILS)) (UPDATE-VIRTUAL-GENERIC-FUNCTION GF)) (DEFMETHOD INITIALIZE-INSTANCE :AFTER ((GF VIRTUAL-GENERIC-FUNCTION) &REST ARGS) (UPDATE-VIRTUAL-GENERIC-FUNCTION GF) (ADD-DEPENDENT GF *VIRTUAL-GENERIC-FUNCTION-UPDATER*)) (DEFMETHOD ADD-METHOD ((GF VIRTUAL-GENERIC-FUNCTION) (METHOD METHOD)) (LET ((<T> (FIND-CLASS 'T))) (UNLESS (EVERY #'(LAMBDA (SPECIALIZER) (EQ SPECIALIZER <T>)) (REST (METHOD-SPECIALIZERS METHOD))) (ERROR "invalid method for ~S: ~S. May only dispatch on the first argument." GF METHOD))) (UNLESS (TYPEP (FIRST (METHOD-SPECIALIZERS METHOD)) 'CLASS) (ERROR "invalid method for ~S: ~S. The specializer on the first argument must be a class." GF METHOD)) (CALL-NEXT-METHOD)) (DEFMETHOD COMPUTE-DISCRIMINATING-FUNCTION ((GF VIRTUAL-GENERIC-FUNCTION)) (LET ((VT-SLOT-NAME (VTBASE-VT-SLOT-NAME (VTGF-BASE-CLASS GF))) (VT-INDEX (VTGF-VT-INDEX GF))) (ASSERT (EQ (AREF (VTBASE-VT-FUNCTIONS (VTGF-BASE-CLASS GF)) VT-INDEX) GF)) #'(LAMBDA (FIRST-ARG &REST OTHER-ARGS) (APPLY (AREF (SLOT-VALUE FIRST-ARG VT-SLOT-NAME) VT-INDEX) FIRST-ARG OTHER-ARGS)))) (DEFCLASS TESTCLASS30A NIL NIL (:METACLASS VIRTUAL-BASE-CLASS)) (DEFCLASS TESTCLASS30B (TESTCLASS30A) NIL (:METACLASS VIRTUAL-CLASS)) (DEFCLASS TESTCLASS30C NIL NIL (:METACLASS VIRTUAL-BASE-CLASS)) (DEFGENERIC TESTGF30F (X) (:METHOD ((X TESTCLASS30A)) "f on A") (:GENERIC-FUNCTION-CLASS VIRTUAL-GENERIC-FUNCTION) (:BASE-CLASS TESTCLASS30A)) (DEFGENERIC TESTGF30G (X Y) (:METHOD ((X TESTCLASS30A) Y) (LIST "g on A" Y)) (:METHOD ((X TESTCLASS30B) Y) (LIST "g on B" Y)) (:GENERIC-FUNCTION-CLASS VIRTUAL-GENERIC-FUNCTION) (:BASE-CLASS TESTCLASS30A)) (DEFGENERIC TESTGF30H (X Y) (:METHOD ((X TESTCLASS30C) Y) (LIST "h on C" Y)) (:GENERIC-FUNCTION-CLASS VIRTUAL-GENERIC-FUNCTION) (:BASE-CLASS TESTCLASS30C)) (DEFCLASS TESTCLASS30D (TESTCLASS30B TESTCLASS30C) NIL (:METACLASS VIRTUAL-CLASS)) (DEFMETHOD TESTGF30G ((X TESTCLASS30D) Y) (LIST "g on D" Y)) (DEFMETHOD TESTGF30H ((X TESTCLASS30D) Y) (LIST "h on D" Y)) (LET ((INSTA (MAKE-INSTANCE 'TESTCLASS30A)) (INSTC (MAKE-INSTANCE 'TESTCLASS30C)) (INSTD (MAKE-INSTANCE 'TESTCLASS30D))) (LIST (TESTGF30F INSTA) (TESTGF30F INSTD) (TESTGF30G INSTA 10) (TESTGF30G INSTD 20) (TESTGF30H INSTC 30) (TESTGF30H INSTD 40) (SYMBOLS-CLEANUP '(VIRTUAL-CLASS VIRTUAL-BASE-CLASS VIRTUAL-TABLE-DIRECT-SLOT-DEFINITION VIRTUAL-TABLE-EFFECTIVE-SLOT-DEFINITION COMPUTE-VIRTUAL-GENERIC-FUNCTION-EFFECTIVE-METHOD COLLECT-ALL-SUBCLASSES VIRTUAL-GENERIC-FUNCTION UPDATE-VIRTUAL-GENERIC-FUNCTION VIRTUAL-GENERIC-FUNCTION-UPDATER *VIRTUAL-GENERIC-FUNCTION-UPDATER* TESTCLASS30A TESTCLASS30B TESTCLASS30C TESTCLASS30D TESTGF30F TESTGF30G TESTGF30H)))))
WARNING: Adding method
         #<STANDARD-METHOD (#1=#<STANDARD-CLASS VIRTUAL-CLASS> #2=#<STANDARD-CLASS VIRTUAL-TABLE-EFFECTIVE-SLOT-DEFINITION>)>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION INITIALIZE-CLASSOF-SLOT>
WARNING: Adding method
         #<STANDARD-METHOD (#1=#<FUNCALLABLE-STANDARD-CLASS VIRTUAL-GENERIC-FUNCTION> #2=#<STANDARD-CLASS VIRTUAL-GENERIC-FUNCTION-UPDATER>)>
         to an already called generic function
         #<STANDARD-GENERIC-FUNCTION UPDATE-DEPENDENT>EQUAL-OK: ("f on A" "f on A" ("
g on A" 10) ("g on D" 20) ("h on C" 30) ("h on D" 40) NIL)
(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=#<STANDARD-EFFECTIVE-SLOT-DEFINITION BAD-SLOT #x00001000004AB229> in #<CLASS-BAD-SLOT #x00001000004AB809> (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))))
EQUALP-OK: (T #(POSITION NIL NIL) NIL)
(PROGN (DEFCLASS TESTGF38CLASS (STANDARD-GENERIC-FUNCTION) NIL (:METACLASS FUNCALLABLE-STANDARD-CLASS) (:DEFAULT-INITARGS :METHOD-COMBINATION (FIND-METHOD-COMBINATION (CLASS-PROTOTYPE (FIND-CLASS 'TESTGF38CLASS)) '+ 'NIL))) (DEFGENERIC TESTGF38 (X) (:GENERIC-FUNCTION-CLASS TESTGF38CLASS)) (DEFMETHOD TESTGF38 + (X) 0) (SYMBOLS-CLEANUP '(TESTGF38CLASS TESTGF38)))
EQL-OK: NIL
(DEFMACRO WITH-COLLECTING-MOP-WARNINGS (&BODY BODY) `(LET ((ALREADY-CALLED NIL) (REPLACING-METHOD NIL)) (FLET ((WARNING-GF (W) (GENERIC-FUNCTION-NAME (CAR (LAST (SIMPLE-CONDITION-FORMAT-ARGUMENTS W)))))) (WITHOUT-PACKAGE-LOCK ("CL" "CLOS") (DEFMETHOD INITIALIZE-INSTANCE :AFTER ((O GF-ALREADY-CALLED-WARNING) &REST OPTS) (PUSH (WARNING-GF O) ALREADY-CALLED)) (DEFMETHOD INITIALIZE-INSTANCE :AFTER ((O GF-REPLACING-METHOD-WARNING) &REST OPTS) (PUSH (WARNING-GF O) REPLACING-METHOD))) (LIST (PROGN ,@BODY) (LIST ALREADY-CALLED REPLACING-METHOD)))))
EQL-OK: WITH-COLLECTING-MOP-WARNINGS
(WITH-COLLECTING-MOP-WARNINGS (DEFCLASS GRAY-TEST (FUNDAMENTAL-CHARACTER-OUTPUT-STREAM) NIL) (DEFMETHOD STREAM-WRITE-CHAR ((S GRAY-TEST) CH) NIL) (STREAM-WRITE-CHAR (MAKE-INSTANCE 'GRAY-TEST) #\A) (SYMBOL-CLEANUP 'GRAY-TEST))
EQUAL-OK: (T (NIL NIL))
(LET ((BOOK-COUNTER 0) (SALE-STATS (MAKE-HASH-TABLE :TEST 'EQUAL))) (WITH-COLLECTING-MOP-WARNINGS (DEFCLASS WARE NIL ((TITLE :INITARG :TITLE :ACCESSOR TITLE))) (DEFCLASS BOOK (WARE) NIL) (DEFCLASS COMPACT-DISK (WARE) NIL) (DEFCLASS DVD (WARE) NIL) (DEFGENERIC ADD-TO-INVENTORY (OBJECT)) (DEFMETHOD ADD-TO-INVENTORY ((OBJECT WARE)) NIL) (ADD-TO-INVENTORY (MAKE-INSTANCE 'BOOK :TITLE "CLtL1")) (DEFMETHOD ADD-TO-INVENTORY ((OBJECT BOOK)) (INCF BOOK-COUNTER)) (ADD-TO-INVENTORY (MAKE-INSTANCE 'BOOK :TITLE "CLtL2")) (DEFMETHOD ADD-TO-INVENTORY ((OBJECT BOOK)) (SETF (GETHASH (TITLE OBJECT) SALE-STATS) (CONS 0 0))) (ADD-TO-INVENTORY (MAKE-INSTANCE 'BOOK :TITLE "AMOP")) (LIST BOOK-COUNTER (HASH-TABLE-COUNT SALE-STATS) (SYMBOLS-CLEANUP '(WARE BOOK COMPACT-DISK DVD TITLE ADD-TO-INVENTORY)))))
WARNING: Replacing method
         #1=#<STANDARD-METHOD :AFTER (#2=#<STANDARD-CLASS GF-ALREADY-CALLED-WARNING>)>
         in #<STANDARD-GENERIC-FUNCTION INITIALIZE-INSTANCE>
WARNING: Replacing method
         #1=#<STANDARD-METHOD :AFTER (#2=#<STANDARD-CLASS GF-REPLACING-METHOD-WARNING>)>
         in #<STANDARD-GENERIC-FUNCTION INITIALIZE-INSTANCE>
WARNING: Adding method #<STANDARD-METHOD (#1=#<STANDARD-CLASS BOOK>)> to an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION ADD-TO-INVENTORY>
WARNING: Adding method #<STANDARD-METHOD (#1=#<STANDARD-CLASS BOOK>)> to an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION ADD-TO-INVENTORY>
WARNING: Replacing method #1=#<STANDARD-METHOD (#2=#<STANDARD-CLASS BOOK>)> in
         #<STANDARD-GENERIC-FUNCTION ADD-TO-INVENTORY>EQUAL-OK: ((1 1 NIL) ((#1=#:
ADD-TO-INVENTORY #1#) (#1#)))
(LET ((BOOK-COUNTER 0) (SALE-STATS (MAKE-HASH-TABLE :TEST 'EQUAL))) (WITH-COLLECTING-MOP-WARNINGS (DEFCLASS WARE NIL ((TITLE :INITARG :TITLE :ACCESSOR TITLE))) (DEFCLASS BOOK (WARE) NIL) (DEFCLASS COMPACT-DISK (WARE) NIL) (DEFCLASS DVD (WARE) NIL) (DEFGENERIC ADD-TO-INVENTORY (OBJECT) (DECLARE (DYNAMICALLY-MODIFIABLE))) (DEFMETHOD ADD-TO-INVENTORY ((OBJECT WARE)) NIL) (ADD-TO-INVENTORY (MAKE-INSTANCE 'BOOK :TITLE "CLtL1")) (DEFMETHOD ADD-TO-INVENTORY ((OBJECT BOOK)) (INCF BOOK-COUNTER)) (ADD-TO-INVENTORY (MAKE-INSTANCE 'BOOK :TITLE "CLtL2")) (DEFMETHOD ADD-TO-INVENTORY ((OBJECT BOOK)) (SETF (GETHASH (TITLE OBJECT) SALE-STATS) (CONS 0 0))) (ADD-TO-INVENTORY (MAKE-INSTANCE 'BOOK :TITLE "AMOP")) (LIST BOOK-COUNTER (HASH-TABLE-COUNT SALE-STATS) (SYMBOLS-CLEANUP '(WARE BOOK COMPACT-DISK DVD TITLE ADD-TO-INVENTORY)))))
WARNING: Replacing method
         #1=#<STANDARD-METHOD :AFTER (#2=#<STANDARD-CLASS GF-ALREADY-CALLED-WARNING>)>
         in #<STANDARD-GENERIC-FUNCTION INITIALIZE-INSTANCE>
WARNING: Replacing method
         #1=#<STANDARD-METHOD :AFTER (#2=#<STANDARD-CLASS GF-REPLACING-METHOD-WARNING>)>
         in #<STANDARD-GENERIC-FUNCTION INITIALIZE-INSTANCE>
WARNING: Replacing method #1=#<STANDARD-METHOD (#2=#<STANDARD-CLASS BOOK>)> in
         #<STANDARD-GENERIC-FUNCTION ADD-TO-INVENTORY>EQUAL-OK: ((1 1 NIL
) (NIL (#:ADD-TO-INVENTORY)))
(LET (BAD) (DO-ALL-SYMBOLS (S) (WHEN (AND (FBOUNDP S) (TYPEP (FDEFINITION S) 'GENERIC-FUNCTION) (NOT (MEMBER (CLOS::GF-DYNAMICALLY-MODIFIABLE (FDEFINITION S)) '(T NIL)))) (PUSH S BAD))) BAD)
EQL-OK: NIL
(SYMBOLS-CLEANUP '(AS-STRING FOO133 FOO133A FOO133B FOO134 *FORWARDCLASS* FOO134A FOO134B MY-GF-CLASS DEPENDENT-METHODS *TIMESTAMP* PRIORITIZED-DEPENDENT PRIORITIZED-DISPATCHER UNCALLABLE-GENERIC-FUNCTION *SAMPCLASS* SAMPCLASS01 SAMPCLASS02 SAMPCLASS03 SAMPCLASS04 SAMPCLASS05 SAMPCLASS06 SAMPCLASS07 SAMPCLASS08 SAMPCLASS09 SAMPCLASS10 SAMPCLASS11 SAMPCLASS12 SAMPCLASS13 SAMPCLASS14 SAMPCLASS15 SAMPCLASS16 SAMPCLASS17 SAMPCLASS18 SAMPCLASS19 SAMPCLASS20 *SAMPGF* SAMPGF01 SAMPGF02 SAMPGF03 SAMPGF04 SAMPGF05 SAMPGF06 SAMPGF07 SAMPGF08 SAMPGF09 SAMPGF10 SAMPGF11 SAMPGF12 SAMPGF13 SAMPGF14 SAMPGF15 SAMPGF16 SAMPGF17 SAMPGF18 *SAMPMETHOD* SAMPGF19 SAMPGF20 SAMPGF21 SAMPGF22 SAMPGF23 SAMPGF24 SAMPGF25 SAMPGF26 SAMPCLASS21 SAMPCLASS21X SAMPCLASS22 SAMPCLASS22X *SAMPSLOT* SAMPCLASS23 SAMPCLASS24 SAMPCLASS25 SAMPCLASS26 SAMPCLASS27 SAMPCLASS28 SAMPCLASS29 SAMPCLASS30 SAMPCLASS31 SAMPCLASS32 SAMPCLASS33 SAMPCLASS34 SAMPCLASS35 SAMPCLASS36 STRUCT04 STRUCT04RO STRUCT04V STRUCT04ROV STRUCT05 STRUCT05V SAMPCLASS37 SAMPCLASS38 SAMPCLASS39 CLASS-SUPPORTING-CLASSOF-SLOTS CLASSOF-DIRECT-SLOT-DEFINITION-MIXIN ADD-CLASSOF-DIRECT-MIXIN CLASSOF-EFFECTIVE-SLOT-DEFINITION-MIXIN ADD-CLASSOF-EFFECTIVE-MIXIN INITIALIZE-CLASSOF-SLOT TESTCLASS29A TESTCLASS29B CLASS-BAD-SLOT WITH-COLLECTING-MOP-WARNINGS))
WARNING: (SETF FIND-CLASS): redefining class STRUCT05 in top-level, was
         defined in
         /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/mop-tst-defstruct-test.lispEQL-OK: NIL
RUN-TEST: finished "mop" (0 errors out of 225 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"number.tst" @1>
(+ 17009115185923538769 -12047631083067675031)
EQL-OK: 4961484102855863738
(+ 12677011568664239747 3269056182420253574)
EQL-OK: 15946067751084493321
(+ 9315504781982082433 13857624532376678678)
EQL-OK: 23173129314358761111
(+ 15226508728194069537 11481952022080775416)
EQL-OK: 26708460750274844953
(+ 7461641943684774743 12249026721402718630)
EQL-OK: 19710668665087493373
(+ 1180469445886971055 -3208456171287181032)
EQL-OK: -2027986725400209977
(+ 18358552990465743315 221529797579218180385160273426219343697)
EQL-OK: 221529797579218180403518826416685087012
(+ -14819874956616484359 30498815629431206969122152847973230849)
EQL-OK: 30498815629431206954302277891356746490
(+ -11781881800334342169 112219460388643619332860331282276228017)
EQL-OK: 112219460388643619321078449481941885848
(+ 3570694277032201957 284821691832196381859344006870088122712)
EQL-OK: 284821691832196381862914701147120324669
(+ -17005463295060938595 69162171850264911722979835561124066203)
EQL-OK: 69162171850264911705974372266063127608
(+ 15647113311796203488 150750467185419235519670165664526735459)
EQL-OK: 150750467185419235535317278976322938947
(+ -14330150541101371097 -13054027994001826312503071338715966858478218093171762021549815587520723118772963817341751396703629529810372702877555022105594068768886421335353882155416908)
EQL-OK: -13054027994001826312503071338715966858478218093171762021549815587520723118772963817341751396703629529810372702877555022105594068768886435665504423256788005
(+ 7406427184711759740 -4059250217961011548005203450962458026528281798230141192186669580689721046971433745892994467792118611646113962840750314719233572760336084100766391093756252)
EQL-OK: -4059250217961011548005203450962458026528281798230141192186669580689721046971433745892994467792118611646113962840750314719233572760336076694339206381996512
(+ 8819522415901031498 7274905269237471130619913887005155660991437201841760414347836177003483932007334374478344594178179032728521106519295465031750530183363793325150672647162846)
EQL-OK: 7274905269237471130619913887005155660991437201841760414347836177003483932007334374478344594178179032728521106519295465031750530183363802144673088548194344
(+ -7242932332215698200 -10558564312909325527488520195600871241245891651644550509993750377630234801225525279855157008009255586978047154906058790342845859331159009687703010657137320)
EQL-OK: -10558564312909325527488520195600871241245891651644550509993750377630234801225525279855157008009255586978047154906058790342845859331159016930635342872835520
(+ 9794320575955609492 13380937715397052566925484435342184213544885758759259410983243841206628594840271850190097746775475837233042430565529099681550277688470325394342993771343357)
EQL-OK: 13380937715397052566925484435342184213544885758759259410983243841206628594840271850190097746775475837233042430565529099681550277688470335188663569726952849
(+ -18404048401680891243 6690884608978704096379677348142836785900717005050936986370615083929607190833180925295418079551348559691161519822750772440155040888224482801864925665484770)
EQL-OK: 6690884608978704096379677348142836785900717005050936986370615083929607190833180925295418079551348559691161519822750772440155040888224464397816523984593527
(+ -10763220363947284865 -30985722824355332972176356513316569304601382411274079243859710673739383446566598659878378034375348869471278415635671865753349734809209959160389615096293457362383744562507969316522225741589739150453090393424063226271167062127000223628785686999799282795143706407082119829140399988180879618548495395684946331608899565543458192773899200054228140747414544792128323269250618482622488195333106891323515989863192944848391405358725993695671970811097285270641251816244586360288952156538400321933146150313939864593445583603568771077260174826348411367609521412133720180359748539721570562669201065857989876521301209899829037444385)
EQL-OK: -30985722824355332972176356513316569304601382411274079243859710673739383446566598659878378034375348869471278415635671865753349734809209959160389615096293457362383744562507969316522225741589739150453090393424063226271167062127000223628785686999799282795143706407082119829140399988180879618548495395684946331608899565543458192773899200054228140747414544792128323269250618482622488195333106891323515989863192944848391405358725993695671970811097285270641251816244586360288952156538400321933146150313939864593445583603568771077260174826348411367609521412133720180359748539721570562669201065857989876521311973120192984729250
(+ -12742462236537568498 8711131313747826394504271797986775572294949693272674156076339989631171694968899228610359983845552623710580616605402899155485071497929100432998183040757832449369366844015907530612334721882095163137705867337969942902346066961718232788529860214990099385213558935023241940238638069647809530490438245386869385682221280939688108487754251075630026707075310465788398213293782900699868609660892232563106662995330591906155134237356516622436517046191466823447743155250482328613449506396571170001248589926831956459700467126756876526930443317428628239358666456771112897986098390410773312792390699312960051747534683311506465130527)
EQL-OK: 8711131313747826394504271797986775572294949693272674156076339989631171694968899228610359983845552623710580616605402899155485071497929100432998183040757832449369366844015907530612334721882095163137705867337969942902346066961718232788529860214990099385213558935023241940238638069647809530490438245386869385682221280939688108487754251075630026707075310465788398213293782900699868609660892232563106662995330591906155134237356516622436517046191466823447743155250482328613449506396571170001248589926831956459700467126756876526930443317428628239358666456771112897986098390410773312792390699312960051747521940849269927562029
(+ 9991390529516174614 7879872958436992955898278403297937595295396115022400543178444946646147916754852888072481665174663073269556311758611700754643170639645548596647557683044355930340624784190093631808382820554407595007761070026239341594197877214157118335743842022627898879376346092898666610367809537340994845045475091410516226225078052019727419030585524815982151736622865401299588936172760762386183577504972623377661437665668080131418564228642443266935225613702941906491478788336262289516199380144218708241406077806669686589734333554945412904560108150202389909124657090061223183441083590340175629756198442568877659538345749595968764873879)
EQL-OK: 7879872958436992955898278403297937595295396115022400543178444946646147916754852888072481665174663073269556311758611700754643170639645548596647557683044355930340624784190093631808382820554407595007761070026239341594197877214157118335743842022627898879376346092898666610367809537340994845045475091410516226225078052019727419030585524815982151736622865401299588936172760762386183577504972623377661437665668080131418564228642443266935225613702941906491478788336262289516199380144218708241406077806669686589734333554945412904560108150202389909124657090061223183441083590340175629756198442568877659538355740986498281048493
(+ 831234034418847630 -744676478858160349467117341859049692149463503380690495147216354303526704924280287782902146026018180364963325847811379182950159627878800024734206345960410146056000392683000433501805629464626281031086102425271022388473812300724085127447081771317912465921636737545371909901577246384446144919253141375367648958387948463576516115079816552636772639965957498569187848459747361493535081532845254971492261148968198806736512864867151355002902241562014241077734122599581732704243705918200179789271894804233542502502119523149682814025979598424744685548054183678652651244898867735764030968089217841214778606507809487462642341164)
EQL-OK: -744676478858160349467117341859049692149463503380690495147216354303526704924280287782902146026018180364963325847811379182950159627878800024734206345960410146056000392683000433501805629464626281031086102425271022388473812300724085127447081771317912465921636737545371909901577246384446144919253141375367648958387948463576516115079816552636772639965957498569187848459747361493535081532845254971492261148968198806736512864867151355002902241562014241077734122599581732704243705918200179789271894804233542502502119523149682814025979598424744685548054183678652651244898867735764030968089217841214778606506978253428223493534
(+ -6996572501442843347 -16567158719848992553565776505785820491834685475229611199353714982570065913508303466008005931649515528390057456882757990896824841386431756898386429000065518724021230756426613661219891419166146764347562529640689229693578574350948436847247856000438153789455857903402883189892697143647998643667467614427922009931545254965075041050860609824086811877108940020349157317276288348430058535959434983921323332907180869396258655826781438419383792024592535415693101119109484610789291889841197827977530804650015884500878613240443324806805475203272442094530735476095374446946252236490708915034012846683015547314889561060687692538144)
EQL-OK: -16567158719848992553565776505785820491834685475229611199353714982570065913508303466008005931649515528390057456882757990896824841386431756898386429000065518724021230756426613661219891419166146764347562529640689229693578574350948436847247856000438153789455857903402883189892697143647998643667467614427922009931545254965075041050860609824086811877108940020349157317276288348430058535959434983921323332907180869396258655826781438419383792024592535415693101119109484610789291889841197827977530804650015884500878613240443324806805475203272442094530735476095374446946252236490708915034012846683015547314896557633189135381491
(+ -8920936222630165483 -18738991973681679876688842391791783563249057933653045519186959571392922172943405646958686202208790537612746921398028331540617848217445632123805070077600768524509025758950743971128222843292926773668584735575066246660802064630842300367821042873152766467703905048558085377302000898639290554395913805527529259855535801856020623830262396582180677933562523957295341539162448074423901242873918231922121053192425691524797238343327318801359521456598967984637483081312932069399045363737622797213185099130529375169698811801965974416555301085043300426947769193582129151016159057101028336667142913854943018973494705119572045938607)
EQL-OK: -18738991973681679876688842391791783563249057933653045519186959571392922172943405646958686202208790537612746921398028331540617848217445632123805070077600768524509025758950743971128222843292926773668584735575066246660802064630842300367821042873152766467703905048558085377302000898639290554395913805527529259855535801856020623830262396582180677933562523957295341539162448074423901242873918231922121053192425691524797238343327318801359521456598967984637483081312932069399045363737622797213185099130529375169698811801965974416555301085043300426947769193582129151016159057101028336667142913854943018973503626055794676104090
(+ -243510292488206214847646757340020705642 5940577100149745132)
EQL-OK: -243510292488206214841706180239870960510
(+ 35446324064743728955945058978206455057 -6248622708755929572)
EQL-OK: 35446324064743728949696436269450525485
(+ -285342226760657637664173494795024413673 -11942737781617905307)
EQL-OK: -285342226760657637676116232576642318980
(+ 180790435817422032042321866247362452865 12401641959336396832)
EQL-OK: 180790435817422032054723508206698849697
(+ -179994871947239535956826388240542999950 13573822506399140772)
EQL-OK: -179994871947239535943252565734143859178
(+ -308198027295905163635866438671452347268 -8790069282378476990)
EQL-OK: -308198027295905163644656507953830824258
(+ -139324757925833055762410227358605285566 -190622873846936719063564661032771271922)
EQL-OK: -329947631772769774825974888391376557488
(+ 332866352618304570046318203427223999347 147978646177673305481282943528696833018)
EQL-OK: 480844998795977875527601146955920832365
(+ -39471620476300923970352914034802271156 28992893610776120142668950821916856486)
EQL-OK: -10478726865524803827683963212885414670
(+ 274120253734611965146455315763505869288 254675910805265090692978775702306142625)
EQL-OK: 528796164539877055839434091465812011913
(+ -122086811464559635596206661886176775901 287312583034687582188356355813963609701)
EQL-OK: 165225771570127946592149693927786833800
(+ 288576174771266329955482943556556984728 -57843540651903655425270706396868707777)
EQL-OK: 230732634119362674530212237159688276951
(+ -47977736580820486006305788441965482221 984809271313988066640898939725532304075331399066274624928410251834520283291912387208948664716457549646483445981126881113426109906085249657168046936670489)
EQL-OK: 984809271313988066640898939725532304075331399066274624928410251834520283291912387208948664716457549646483445981126833135689529085599243351379604971188268
(+ 21225484205143479814642328762121362291 11839789093732539327981861490012713257538550745921177905266671749716203131127256902110452504526721633943016923389974867770082516862899595554460170417713940)
EQL-OK: 11839789093732539327981861490012713257538550745921177905266671749716203131127256902110452504526721633943016923389974888995566722006379410196788932539076231
(+ -193095363331703875886398909106293703000 4389392021031719669078675478621418677903292147307684123866099084349756491860737402449105804868232530632178577388168068485304437343508442251302846768269976)
EQL-OK: 4389392021031719669078675478621418677903292147307684123866099084349756491860737402449105804868232530632178577388167875389941105639632555852393740474566976
(+ -14827657635864183514988182371035598180 -7256545787852407071411458891023580461638051949278710509801472046178301830006724297747051044450550248499056073213660185258676369175307019300952192657194576)
EQL-OK: -7256545787852407071411458891023580461638051949278710509801472046178301830006724297747051044450550248499056073213660200086334005039490534289134563692792756
(+ 54301423175725658626298504084995819705 -13385853291610595576947504757201441006088030688464261540642594993520424631577281077984278942244446266776534612440941312995898184903431893212829646845766101)
EQL-OK: -13385853291610595576947504757201441006088030688464261540642594993520424631577281077984278942244446266776534612440941258694475009177773266914325561849946396
(+ 195114404067053480147948948510253723990 -8373866462448797623435948949281383906369538962237624940506813188612614128993186653340202956656303504523161255703176374041758276069255591562198514767063594)
EQL-OK: -8373866462448797623435948949281383906369538962237624940506813188612614128993186653340202956656303504523161255703176178927354209015775443613250004513339604
(+ -308030589512186791277525017840002670741 -11922204352024596469278978325035646517433105521287613403902396944414655739824695945028308092245747333098422116078042326104667969967224788442970266049942774583538734406057081597034454910987815490244451193242377705191422489528853976486607580169986057592557285271953385769215318545520155212402919465580052078255078759756709086185424029620805084776442744700501748376290562843380642608395240491162047933014854466267084965223593172702334466729933986413870670083326499598274393380692146118979961818816348097032083332695128587696590646086980241100792624502607816103195636761141133903550454815591457829485684936036414823492160)
EQL-OK: -11922204352024596469278978325035646517433105521287613403902396944414655739824695945028308092245747333098422116078042326104667969967224788442970266049942774583538734406057081597034454910987815490244451193242377705191422489528853976486607580169986057592557285271953385769215318545520155212402919465580052078255078759756709086185424029620805084776442744700501748376290562843380642608395240491162047933014854466267084965223593172702334466729933986413870670083326499598274393380692146118979961818816348097032083332695128587696590646086980241100792624502607816103195636761141133903550762846180970016276962461054254826162901
(+ -172649878347923210775992373331623646864 22180935775581457002090790736532281654456312526625354262953960635330604551829750571440878712430708012807252279301365732385899228826740712544768476577874129759972563823209525283326887563301081200476495752033290851190327066070873711444930389093339915885090143783170994309089448293499799071372787520776773788274677288230540162485916160484352398851925328125588729604931589867889917097887951581817207079060016091919559509735997493084833476849835444339835031436580214492450731100723026312163752403946315983551266206214298679421644737804098691991631489261658890937663698502561036246447760919715595005106669653475931803053499)
EQL-OK: 22180935775581457002090790736532281654456312526625354262953960635330604551829750571440878712430708012807252279301365732385899228826740712544768476577874129759972563823209525283326887563301081200476495752033290851190327066070873711444930389093339915885090143783170994309089448293499799071372787520776773788274677288230540162485916160484352398851925328125588729604931589867889917097887951581817207079060016091919559509735997493084833476849835444339835031436580214492450731100723026312163752403946315983551266206214298679421644737804098691991631489261658890937663698502561036246447588269837247081895893661102600179406635
(+ 17539006966816771902104329685391462527 15609797782337099611892065465036826453911053690739041627254619195700021040383385710184052653282070244915503750549545390475671883312314708978681904377133928647935359080875691628246716591529028104762422990155477702994042953196747769893182153631482194578269859879402160062955490194674372351117284129320011166238130774752386987036267064693133554447596069886693581191241594745541512444806003236372840085705813835001957163976961730871756250344335996073970142337882238844723800849054637237549515249957267772181010402413375667537558243971058326641257721901094391380667244006959028327507917720426571969997513984360849930719808)
EQL-OK: 15609797782337099611892065465036826453911053690739041627254619195700021040383385710184052653282070244915503750549545390475671883312314708978681904377133928647935359080875691628246716591529028104762422990155477702994042953196747769893182153631482194578269859879402160062955490194674372351117284129320011166238130774752386987036267064693133554447596069886693581191241594745541512444806003236372840085705813835001957163976961730871756250344335996073970142337882238844723800849054637237549515249957267772181010402413375667537558243971058326641257721901094391380667244006959028327507935259433538786769416088690535322182335
(+ 244901855797156286376563377540855746602 -22138106346578776369849317622304392466030036563754663379976505966920461958652141160336156065177498990718609170201272980114106671808245437660234479124938853665375934080221740523696180221118540569603989748587853373569525751680828044059607889572522502629277877343410298879764820905044284757389006201848194571453112545228115550224254565141563427486518108434758694923122284117299374156393942906293546318323661938734959824887786185558612820887463537294120950912969343488704744978847504513710882720654330147775174336365363311173472002077960424794151168301281665765411704505095008907760396535767621855642720080219960822554492)
EQL-OK: -22138106346578776369849317622304392466030036563754663379976505966920461958652141160336156065177498990718609170201272980114106671808245437660234479124938853665375934080221740523696180221118540569603989748587853373569525751680828044059607889572522502629277877343410298879764820905044284757389006201848194571453112545228115550224254565141563427486518108434758694923122284117299374156393942906293546318323661938734959824887786185558612820887463537294120950912969343488704744978847504513710882720654330147775174336365363311173472002077960424794151168301281665765411704505095008907760151633911824699356343516842419966807890
(+ -119403662992279138748600939857239307122 26272999248235953724172008428088697264933069743507017434844709711501131900922919455931092196539942532993887162365511473221418376205773427597933886270411672062672089518774390132453916538404354895529975888201032175628249480896964400801763570333497287321002961557096975786141940970260074557095118887294558700145949117395512768347250531196100831164663613049206690894640391431616112104502483838173255614981302462548882276825096564828583591963617871547373532874400764134244496979962241959713525053686209002866840900623246072884125102845824992994967009109046451949348656842486048332953732384499190437432898387573320391878853)
EQL-OK: 26272999248235953724172008428088697264933069743507017434844709711501131900922919455931092196539942532993887162365511473221418376205773427597933886270411672062672089518774390132453916538404354895529975888201032175628249480896964400801763570333497287321002961557096975786141940970260074557095118887294558700145949117395512768347250531196100831164663613049206690894640391431616112104502483838173255614981302462548882276825096564828583591963617871547373532874400764134244496979962241959713525053686209002866840900623246072884125102845824992994967009109046451949348656842486048332953612980836198158294149786633463152571731
(+ 313963939617834410089002930298454269912 23286645405607099799151331553995799851855144387826191186590140820016670502830395945076644578998873585162998873396623634135231418574284200209367505115739462344028303923666952261030907434438322884189133236837089851688275865098623902644385995630973049587854251981548128145516004461191094062488421288607625783540996659060285661398859383778209495884203323937672739376151794507745282074538961033778823733980759695886879886017489555795079194346438911010371103435094677167286870898482214310646392174423422237727456012197253183422715313378603607058548706460095379882633958651034759773864354021315490712575535559549015858088608)
EQL-OK: 23286645405607099799151331553995799851855144387826191186590140820016670502830395945076644578998873585162998873396623634135231418574284200209367505115739462344028303923666952261030907434438322884189133236837089851688275865098623902644385995630973049587854251981548128145516004461191094062488421288607625783540996659060285661398859383778209495884203323937672739376151794507745282074538961033778823733980759695886879886017489555795079194346438911010371103435094677167286870898482214310646392174423422237727456012197253183422715313378603607058548706460095379882633958651034759773864667985255108546985624562479314312358520
(+ 2000877973959266893810594143560134441447453310844726478119781029700338468704683515329516333146806175216349912753585564808803731447160643580198590073658869 -17993015014355471903)
EQL-OK: 2000877973959266893810594143560134441447453310844726478119781029700338468704683515329516333146806175216349912753585564808803731447160625587183575718186966
(+ 5492930533666246223206322654398877802091439062008700770880939594548305919677404080859141226095489505872709347538974725998600861651942609010590873980143878 15372278140141207703)
EQL-OK: 5492930533666246223206322654398877802091439062008700770880939594548305919677404080859141226095489505872709347538974725998600861651942624382869014121351581
(+ -13405500833215428652808705089190188280715732437731292502890523313631564795139560159124390691283401484515088713758307366404145018349044148223082253439210893 -14793401891248640808)
EQL-OK: -13405500833215428652808705089190188280715732437731292502890523313631564795139560159124390691283401484515088713758307366404145018349044163016484144687851701
(+ 9945195259699924701593703207751086973468898794114625092150620088406276196469184233537941913755508476427888065765634203723512911676149274871082481174186606 8699133332160461067)
EQL-OK: 9945195259699924701593703207751086973468898794114625092150620088406276196469184233537941913755508476427888065765634203723512911676149283570215813334647673
(+ -1785165974800693006461065312083337532938610906605533088558498259067461510781028452552786542598361030690629530721209490413999022804146471920873844686294838 -13079925952361275418)
EQL-OK: -1785165974800693006461065312083337532938610906605533088558498259067461510781028452552786542598361030690629530721209490413999022804146485000799797047570256
(+ -4861207515430071951958387366611380234482792653010151054346367776006873932152600469133110239669746470475230906073865131648496652783311445471793936775767736 -9381557743227419896)
EQL-OK: -4861207515430071951958387366611380234482792653010151054346367776006873932152600469133110239669746470475230906073865131648496652783311454853351680003187632
(+ -6638723469626495957966112633999375479181736600737250559572415894485618850919815869703127084789143821420728194272094956858541960962483734293877093635361160 277811698220276334443479876776376776138)
EQL-OK: -6638723469626495957966112633999375479181736600737250559572415894485618850919815869703127084789143821420728194272094679046843740686149290814000317258585022
(+ 1983880417172931934469534542170437296262471214582817006917470485544552211448284732460451903536334682269123998240709059499894818265755197559390728940140016 -118940994129137705779355371753506018694)
EQL-OK: 1983880417172931934469534542170437296262471214582817006917470485544552211448284732460451903536334682269123998240708940558900689128049418204018975434121322
(+ -9354509264984586574958285335910611806441061705184818350015454221731287473282231343722010109181841005578131927454778025302197744540571159656556971614966757 120224841184491944160266976391113485817)
EQL-OK: -9354509264984586574958285335910611806441061705184818350015454221731287473282231343722010109181841005578131927454777905077356560048626999389580580501480940
(+ 4389359421234641412950681847970318834150108533025088077429496538447029921663033978550089607257809597829358374972237448178553189381274150213236222139873594 106674783386899772113212633712093787897)
EQL-OK: 4389359421234641412950681847970318834150108533025088077429496538447029921663033978550089607257809597829358374972237554853336576281046263425869934233661491
(+ -9319417879153488839579936799737117639058244394679644240663244688680826325564084529474537634510092069422987165268448907193562300482925125162731530249763801 192969103435503875767216559494769734726)
EQL-OK: -9319417879153488839579936799737117639058244394679644240663244688680826325564084529474537634510092069422987165268448714224458864979049357946172035480029075
(+ 1394404616168163951844558734723678125985464491792846741433683801962971891047718103736551854371207400145441134823994228143957746922511631911996296931168332 -211230038021470285136061932161632203274)
EQL-OK: 1394404616168163951844558734723678125985464491792846741433683801962971891047718103736551854371207400145441134823994016913919725452226495850064135298965058
(+ -2935941510094051560788359387128767361559188973149773593522440619832472030019457317998381634585179453958737810428870232715146002408187749944694186205812791 -1221176156661231926164756142840452419679061324806989304452215660535991083923207702827717652226257158321829748247784282139952864899457896871473184473608543)
EQL-OK: -4157117666755283486953115529969219781238250297956762897974656280368463113942665020826099286811436612280567558676654514855098867307645646816167370679421334
(+ -1338674579024795395027232680327531457830908239605718353094975139226848400289367913459076082700361212506196070727982446232782659114647371030398516119682505 -1298372177520411182435886041880377054374169787570856408996533471838082317927648953576721017727347029007573543972764860712708420553928791798580799809858729)
EQL-OK: -2637046756545206577463118722207908512205078027176574762091508611064930718217016867035797100427708241513769614700747306945491079668576162828979315929541234
(+ -2072456075229532951804023218627137969798924912365258263779029006567941400203608770518731715660383378937120213112973528605594220795605977413985543331908189 -9744489461776287963808523409593616918248399004543154581056479712028497082820841423941781438667661074968238703192056877665754560746003512076830245760254982)
EQL-OK: -11816945537005820915612546628220754888047323916908412844835508718596438483024450194460513154328044453905358916305030406271348781541609489490815789092163171
(+ -2570682164188734368809161664810917340861573482754788446510182252413437925852206735928397938304353826925422441004271229738766803460790995673395984247950088 656920705293329551826685120408221577679101260931105312141757138825917579070505267306626244216341686712802796891966598838285570807961966448181138356047523)
EQL-OK: -1913761458895404816982476544402695763182472221823683134368425113587520346781701468621771694088012140212619644112304630900481232652829029225214845891902565
(+ 7846359203342053693101523606887617345982401999003795257520576318451663998927274759872692123323796450295314377046602880394071105863527900699633560551732837 3683380639347829102597675045842249667669675715600522157867595962635108482512780509393310714588544837398923613138772339053021025559943198965234376657126821)
EQL-OK: 11529739842689882795699198652729867013652077714604317415388172281086772481440055269266002837912341287694237990185375219447092131423471099664867937208859658
(+ -11692323148567132684205145901751681947225824260005631214936266006610207543813382900867093989444659986091234552140689684476541703112098935301322850961583953 -8534276689564199122569555420819240948691777228327984555753862457592427992599992931175844172478864477440165366128106812103785256271256853749622592560655914)
EQL-OK: -20226599838131331806774701322570922895917601488333615770690128464202635536413375832042938161923524463531399918268796496580326959383355789050945443522239867
(+ -10734754884168724884333968138739681643742524619139397687680049322697740991391014196697040576174049452737571835233123127815762146577096625434481167057340772 17059878151450238567815178684522345445687980385106446646013863901583786249398194029757376950491550197185231926262467028755342392379269039238766592672298850588065335172902157386017520689203005559576263548017475991638498600879259882041932152385436968424098224966518534467302264172016376096778201462205990822825056602379115848799619564610033123837036507127427054121975400703490855123544706355545059512146550901507159940126280812512339749605195422987937677650572797378799103456094203126081464905326203083057134061673694975250599375795827437561275156235513192978645909947341297774926450637694325145427434486258223666250272)
EQL-OK: 17059878151450238567815178684522345445687980385106446646013863901583786249398194029757376950491550197185231926262467028755342392379269039238766592672298850588065335172902157386017520689203005559576263548017475991638498600879259882041932152385436968424098224966518534467302264172016376096778201462205990822825056602379115848799619564610033123837036507127427054121975400703490855123544706355545059512146550901507159940126280812512339749605195422987937677650572797368064348571925478241747496766586521439314609442534297287570550053098086446170260959538472616804596457209769462541803322821932178568330809051777056608909500
(+ 1982582032974021971225071139786536402936929744496433027195224299475980201425925452469321205602618940472354066218156609448199804973454183972974358405933935 -5591374624026484498020036332218412149978824230210339582240360391202660977358546150723165491729699122647688030937226316069237264083850854032732663284717882873051337566653841254365703461654061656817936193716386141166210237666314879751427421825450110467888973152907618520704486700443275358649289847595635931220181024199692771066498714511145489237541761266539978351840438236927937894376002981658065431416811632941197501676956304254109064936038146674412392128883565757325842468006824235119684861972224857533964558963441079998949499582965764591461900562931342373507763081479989957632695010603500633322408246084430203281475)
EQL-OK: -5591374624026484498020036332218412149978824230210339582240360391202660977358546150723165491729699122647688030937226316069237264083850854032732663284717882873051337566653841254365703461654061656817936193716386141166210237666314879751427421825450110467888973152907618520704486700443275358649289847595635931220181024199692771066498714511145489237541761266539978351840438236927937894376002981658065431416811632941197501676956304254109064936038146674412392128883565755343260435032802263894613722185688454597034814467008052803725200106985563165536448093610136770888822609125923739476085562403695659868224273110071797347540
(+ 11532228364136654310006206557545352284448588590560137249197311142901246089838098630841794341370689745410654263817911440601934362503092628725755210859171724 -25776236925500995542036591604259749301547568770017466769502569415611770276300787105037848049555500555975152877716727294374436703766730618054071617947449695177320842403963009384468257891933593584757723535299746543328292715942626303315235241470269740287031317322772461137186093930239744879822272349431389779234805703118929710210161489122272898252221025966631463842234537744822906696719691188223105175714602909117904182229960075276443648211003011686250829474364425483901920822837775032295913486152631638908227467242772081310515646217115760180349854601959031626524004201825198439309850266508687796415478396821644422350208)
EQL-OK: -25776236925500995542036591604259749301547568770017466769502569415611770276300787105037848049555500555975152877716727294374436703766730618054071617947449695177320842403963009384468257891933593584757723535299746543328292715942626303315235241470269740287031317322772461137186093930239744879822272349431389779234805703118929710210161489122272898252221025966631463842234537744822906696719691188223105175714602909117904182229960075276443648211003011686250829474364425472369692458701120722289706928607279354459638876682634832113204503315869670342251223760164690255834258791170934621398409664574325293322849671066433563178484
(+ -2603756427337798371354526130541868239006085657393372011847827118826669474695402075575479286172808099892726251004549675772420422527946534088483901153485670 -10844269742362409682236511127219508926736627172993604953084481596070757241623728297275447608738915355190715664012379562650777199088096670239050254578284071100042116609747208178716191571268815994455064584659920497876052406993834873124981417288518101426395560764186717660091472734401090302285129741058888303693710456902635092811413971399734306158050053239768185860958896447298052082493590498954512083131068867270078638929796561440903919430094619437872896595720463663570751134804664228918188923926951933302878771189484614604311920655871182974081898031051411394311700207305532216445616083858025977851570522763537300875989)
EQL-OK: -10844269742362409682236511127219508926736627172993604953084481596070757241623728297275447608738915355190715664012379562650777199088096670239050254578284071100042116609747208178716191571268815994455064584659920497876052406993834873124981417288518101426395560764186717660091472734401090302285129741058888303693710456902635092811413971399734306158050053239768185860958896447298052082493590498954512083131068867270078638929796561440903919430094619437872896595720463666174507562142462600272715054468820172308964428582856626452139039482540657669483973606530697567119800100031783220995291856278448505798104611247438454361659
(+ -5929887196386997518766568868806997104240129372360669348628384183712406620199102166145939206783172815805659513128544493795329100599632286529420772709366102 24544958491142793859949310604465694574872439331169358241746200808802938771527900616394258199996170862256988647191747967628756772368808644819831481350919782560499270148419601775750932556119448001824346026042068416905254113155445053931789404515589532235225580737103411251232560863878948880220469490014568323308965914171394449781093816607870593225534700167342589927524232815571862258490314644577819742372918446373756857848586825568514909823940075182825283229026250682015641747568282510036326125505522447591703308661608718100933027549520132308555240654655887041040427813131621391320267698106519650611462269033902177180035)
EQL-OK: 24544958491142793859949310604465694574872439331169358241746200808802938771527900616394258199996170862256988647191747967628756772368808644819831481350919782560499270148419601775750932556119448001824346026042068416905254113155445053931789404515589532235225580737103411251232560863878948880220469490014568323308965914171394449781093816607870593225534700167342589927524232815571862258490314644577819742372918446373756857848586825568514909823940075182825283229026250676085754551181284991269757256698525343351573936300939369472548843837113512109453074508716680257867612007472108262775773902777419050979175739613129467813933
(+ -8848084327536592532063677611386811805244460767433749071435930786126721080365289638381557872263825830664387392539638767251180242665642373539064690745095464 -15917950175678012281826361248776190984758236997789474333609547749168308439513527143790323694526378056113636462939674273462177686456811495629631337058042159570336251822399402513133598701991665209363955263097315081570618652783181494594400709239428597117944511110842795526862595552977665064029517628515465251448116061875878430407784298951946811321795808932206846491091803276390661869369638950672478828532423383951689632136029256108992610781912267083149156104328033893238864631158195280554850035949666897861529711006187241710164902350100555999894332438423857208747342184052953230247487231455921360593096823760117493579248)
EQL-OK: -15917950175678012281826361248776190984758236997789474333609547749168308439513527143790323694526378056113636462939674273462177686456811495629631337058042159570336251822399402513133598701991665209363955263097315081570618652783181494594400709239428597117944511110842795526862595552977665064029517628515465251448116061875878430407784298951946811321795808932206846491091803276390661869369638950672478828532423383951689632136029256108992610781912267083149156104328033902086948958694787812618527647336478703105990478439936313146095688476821636365183970819981729472573172848440345769886254482636164026235470362824808238674712
(+ -16314775600714318471451792035636584056297958597339492996728118376578145765736873313518831390349547274517050864260054903974054712997529177834428786007341762649083404743713562157667828894017440065599882523458121037421757904691003094608420565550031561905074671735751685371533975894842331113347413787808917193134135744321547478500861021485075363990553639161661734684228250909589741380076008551020384304303171431833670236949934603973673998262066558668396388979463892768199916011368116729432353268535563246463324517035331079693172060671712718486388759443825620676228470068291448236914050793177812037679396721657020438979754 12553426083939460917)
EQL-OK: -16314775600714318471451792035636584056297958597339492996728118376578145765736873313518831390349547274517050864260054903974054712997529177834428786007341762649083404743713562157667828894017440065599882523458121037421757904691003094608420565550031561905074671735751685371533975894842331113347413787808917193134135744321547478500861021485075363990553639161661734684228250909589741380076008551020384304303171431833670236949934603973673998262066558668396388979463892768199916011368116729432353268535563246463324517035331079693172060671712718486388759443825620676228470068291448236914050793177812037679384168230936499518837
(+ 20637030084881771176788188367974505419050866216433677435050410899110162793040751338330447574748263391136356400036001988938659722098883893353523409458775455519257672423829361150611806294256710309281788819450225670112435352092313483086404714074567539245791066202051788986426960935796927738180831688497683293306590464598379493141645539253898709000874685535467854788184424886911457134522632486730390913239660179785071885982403741669161655812015114272497907946919026898579927936299607156006210124954460880383605958519412435713868501997649784658832599101777001703519408664662715322044086646014163774269660274683400619225321 11620128128044940816)
EQL-OK: 20637030084881771176788188367974505419050866216433677435050410899110162793040751338330447574748263391136356400036001988938659722098883893353523409458775455519257672423829361150611806294256710309281788819450225670112435352092313483086404714074567539245791066202051788986426960935796927738180831688497683293306590464598379493141645539253898709000874685535467854788184424886911457134522632486730390913239660179785071885982403741669161655812015114272497907946919026898579927936299607156006210124954460880383605958519412435713868501997649784658832599101777001703519408664662715322044086646014163774269671894811528664166137
(+ -9838804688358141062268493389453191808060717708062736103828856866310283812230958467655270667206937622979717683919584610288962829724022506216738929136418489468786902364550847498615864720240589837282441807174290461916292258263929411081218952357662703079709351365960916688275651864441386750529258343003652300629003597744958152243494244227986280506395347894285277364095898602965258114321853474000520432831298793365139040664543928707100657375292032051256485942532600998813627925626928634068613637417702688610315924917761411247617905738119218110678854564441914784262998574445847209847985439514580300936248281049628734475702 2380166482232871816)
EQL-OK: -9838804688358141062268493389453191808060717708062736103828856866310283812230958467655270667206937622979717683919584610288962829724022506216738929136418489468786902364550847498615864720240589837282441807174290461916292258263929411081218952357662703079709351365960916688275651864441386750529258343003652300629003597744958152243494244227986280506395347894285277364095898602965258114321853474000520432831298793365139040664543928707100657375292032051256485942532600998813627925626928634068613637417702688610315924917761411247617905738119218110678854564441914784262998574445847209847985439514580300936245900883146501603886
(+ -30961575335426221869515496362216292453766907587859856766456625722888557357647164641922707199324601608700561081422636642523431947551124957385652791834855425829101761914145137205962610515642614866296480715893528289170482422505734612327038754622917335073993027434927547277037587173529054849390646376806910407207016292483185533697336599641898250465186168797820802225861771331652801064811222606773495565340386327294310913503461903243119204619412324538886439122443769008953829820425376589389335553937319588224864611583436327810214798652896733118881040503785110481197462772022447173744898802421806800203373153221004361953729 -10586442965055062759)
EQL-OK: -30961575335426221869515496362216292453766907587859856766456625722888557357647164641922707199324601608700561081422636642523431947551124957385652791834855425829101761914145137205962610515642614866296480715893528289170482422505734612327038754622917335073993027434927547277037587173529054849390646376806910407207016292483185533697336599641898250465186168797820802225861771331652801064811222606773495565340386327294310913503461903243119204619412324538886439122443769008953829820425376589389335553937319588224864611583436327810214798652896733118881040503785110481197462772022447173744898802421806800203383739663969417016488
(+ 8835746018617511846981408800319983340292665114153404569022025834059427359831684523399830234196625160662387716033871154398104436720494608541518837969397374272734698261557358249258503982414578618525420572597611597792132117034895074841909295420434392963714805547538976612884853497014341345150095544449860198192757839489063747595073430612069212219930749783824683135433987509303139260133564905961552149844964215891730262218278214035649706577154652729844092199333026620127958228847111442161350881527928460177763370427262298116900358910460957772350452949782281117704005514462730290063772968929608448642592954601418753021512 -12227722924075527556)
EQL-OK: 8835746018617511846981408800319983340292665114153404569022025834059427359831684523399830234196625160662387716033871154398104436720494608541518837969397374272734698261557358249258503982414578618525420572597611597792132117034895074841909295420434392963714805547538976612884853497014341345150095544449860198192757839489063747595073430612069212219930749783824683135433987509303139260133564905961552149844964215891730262218278214035649706577154652729844092199333026620127958228847111442161350881527928460177763370427262298116900358910460957772350452949782281117704005514462730290063772968929608448642580726878494677493956
(+ -5455184800550144006991157215735481579353213544152145628297990102571936052187486515129266239245491863623978659179559754999567936067584384479787934704340911556625153536160778495579370425428019248950494107696016864499055854257192071541354806671987402367524770228296322497224645429524493838356022616251290117624472061673033274133156467148770562815676767117605001434288573911556053311048284534341905722947046607192815465807736361991479044698448267471087552952494477144251510778491315012457514838113324210534577956298926109164909779987221094000880908857594198276812276890284008572664102792405452379662935026125770444036994 -7349798942312432150)
EQL-OK: -5455184800550144006991157215735481579353213544152145628297990102571936052187486515129266239245491863623978659179559754999567936067584384479787934704340911556625153536160778495579370425428019248950494107696016864499055854257192071541354806671987402367524770228296322497224645429524493838356022616251290117624472061673033274133156467148770562815676767117605001434288573911556053311048284534341905722947046607192815465807736361991479044698448267471087552952494477144251510778491315012457514838113324210534577956298926109164909779987221094000880908857594198276812276890284008572664102792405452379662942375924712756469144
(+ 27233955893140063612427006607965940109569052437681267421929959186535416115028420267622879017163568256526042146282241931623674996867133390355390677118211537487769195270234259640386625552763891339073878417517169618832945750393661600092643257470064376916337734385887099957095417541169462231630821139075814859604097878094729685589777579267192538715202397220666651307185763054526407234767132218634060693076054116575833737797189157152326979078121760900891899319809724675232853322526718686306470372869701173824664984405178677187081936624687293494821338781534163633206006387449585716391843039459733925494003066841874935048611 -66646390577667468207341453008390168215)
EQL-OK: 27233955893140063612427006607965940109569052437681267421929959186535416115028420267622879017163568256526042146282241931623674996867133390355390677118211537487769195270234259640386625552763891339073878417517169618832945750393661600092643257470064376916337734385887099957095417541169462231630821139075814859604097878094729685589777579267192538715202397220666651307185763054526407234767132218634060693076054116575833737797189157152326979078121760900891899319809724675232853322526718686306470372869701173824664984405178677187081936624687293494821338781534163633206006387449585716391776393069156258025795725388866544880396
(+ 15030400024888781078933103028897733817304421960545019199443871381537070197157227994520524631721701055962609956080413517776229513420814407790533237358129529547793422514837651333555776540939235592155512951229106778709351772195248438493792786143040421233061520515971787881798980515709417481015662862327435825812557205663033601853937647320838585333754027488605638576977560072206293290493215523194883494322543800546276353830683084405428005815296131527861252717516620765986589669237487765523936713749717927502645633123584240464131140829496052170285171610845098023517906586134613874506419828208611247177336492131262918439281 -164048419232636429449474429717211197442)
EQL-OK: 15030400024888781078933103028897733817304421960545019199443871381537070197157227994520524631721701055962609956080413517776229513420814407790533237358129529547793422514837651333555776540939235592155512951229106778709351772195248438493792786143040421233061520515971787881798980515709417481015662862327435825812557205663033601853937647320838585333754027488605638576977560072206293290493215523194883494322543800546276353830683084405428005815296131527861252717516620765986589669237487765523936713749717927502645633123584240464131140829496052170285171610845098023517906586134613874506255779789378610747887017701545707241839
(+ -10227062646189307616073129048534031298512434237226774743330733206156788005874968173984804649812506029813402205606562016228122184161577517837608957023376079537037472977098465137152327215807765130656192272994478964341604278041664840636982572214751638093860605132350960802560601354006634296348422600320863531059118477125143903734159707623839282511184908969206873548650544269932394344952983661665472663102992782521888857016369837211403335306200813816060883478434441858442549261115972947741929087886423170398410216855322384956160289855500229952405068604320121652911887067414460828300146993858360430784079225137421074839819 117460076430162201914796277915447781936)
EQL-OK: -10227062646189307616073129048534031298512434237226774743330733206156788005874968173984804649812506029813402205606562016228122184161577517837608957023376079537037472977098465137152327215807765130656192272994478964341604278041664840636982572214751638093860605132350960802560601354006634296348422600320863531059118477125143903734159707623839282511184908969206873548650544269932394344952983661665472663102992782521888857016369837211403335306200813816060883478434441858442549261115972947741929087886423170398410216855322384956160289855500229952405068604320121652911887067414460828300029533781930268582164428859505627057883
(+ 27989453264793973121573869640708223239762902243991948581280654553806618470632044367386680716040316895884976837122054709584963028986161694425215067648887944710852278135008221491665079705797192389681328802747226171436158375378499411314855257919224316919346771317457123252623293612958336691335423245293660257386649100685560072354549579281852792682734916555498283053758141666658137856828164206947320523255487437004565021167276952652515632644458005291855624829941937578229983628962137595011570216766689546500517528191189928660433013004254032861383790553611840534023221000900694995707453499030166286828319347894538505334235 -59175168207571178843658955348404514921)
EQL-OK: 27989453264793973121573869640708223239762902243991948581280654553806618470632044367386680716040316895884976837122054709584963028986161694425215067648887944710852278135008221491665079705797192389681328802747226171436158375378499411314855257919224316919346771317457123252623293612958336691335423245293660257386649100685560072354549579281852792682734916555498283053758141666658137856828164206947320523255487437004565021167276952652515632644458005291855624829941937578229983628962137595011570216766689546500517528191189928660433013004254032861383790553611840534023221000900694995707394323861958715649475688939190100819314
(+ 1178650930337394440162727078866515771626896502845852711186000991913866844090831426017480263676964607121490209778220339316756171449922437605552456088105443130477974682689512446683178356259305893852096425478878588001446154476458310269704392486398646169362313605456233489086567865316333034897433650974160168545492823208575634152241341906068149887959566983066154182855136114289266802474404127414747112706158621650063987662749553991791509795764642256261917497984177610694405881831052199417235241109412927893781778469398975117797578753730248539151297798807326284978255001046995523851829184120171969918537718488250577987049 -151873924489040812813761508259707631973)
EQL-OK: 1178650930337394440162727078866515771626896502845852711186000991913866844090831426017480263676964607121490209778220339316756171449922437605552456088105443130477974682689512446683178356259305893852096425478878588001446154476458310269704392486398646169362313605456233489086567865316333034897433650974160168545492823208575634152241341906068149887959566983066154182855136114289266802474404127414747112706158621650063987662749553991791509795764642256261917497984177610694405881831052199417235241109412927893781778469398975117797578753730248539151297798807326284978255001046995523851677310195682929105723956979990870355076
(+ 28233332719950979786871881804755080223325040620170668729385709165879717973040387558150293205758215739710262749733170837042434162049732587908182282319848154049410849721309988807368466228286699721201975848741931128639324322061892706638973259354962358866000024260698793885547287093369940035337370984725857550291339492871017395328145015077506882578124550084937438336881072124376107623716831044079223921566902242543198986921476998895559488862309653154914291349588095330683589871173449191854284433182368052817373384461363574550061788800329400860372148193491004593903732351395815409821222597665222975816418433744748143385431 -43245950360315656184924888243641533635)
EQL-OK: 28233332719950979786871881804755080223325040620170668729385709165879717973040387558150293205758215739710262749733170837042434162049732587908182282319848154049410849721309988807368466228286699721201975848741931128639324322061892706638973259354962358866000024260698793885547287093369940035337370984725857550291339492871017395328145015077506882578124550084937438336881072124376107623716831044079223921566902242543198986921476998895559488862309653154914291349588095330683589871173449191854284433182368052817373384461363574550061788800329400860372148193491004593903732351395815409821179351714862660160233508856504501851796
(+ 17311283930487575047109155431670372891723312431004343097275158353815289445461275098157423001160013464866170709729134076291306322952612660169010483426086431377525432637844274608988581691477819008626983761905899834444008235608280930166913911248710072733217113558125600345343437000427963292980921009445490627620344145866648036116660335905940809860199697939729919140888034303887423527841395304960072549430314367914315102150378504502158659627719016733307736583749830415574905929299482373462584995162798576853564481617711234957058703455021082855018642616999836886763535412642684228990890160568207941504887072856663966242787 1954009743321912552050341299974626734964446274711484506734354360114801426013796892421541915293157994203607853436799102383078659985249097057923578528366737)
EQL-OK: 17311283930487575047109155431670372891723312431004343097275158353815289445461275098157423001160013464866170709729134076291306322952612660169010483426086431377525432637844274608988581691477819008626983761905899834444008235608280930166913911248710072733217113558125600345343437000427963292980921009445490627620344145866648036116660335905940809860199697939729919140888034303887423527841395304960072549430314367914315102150378504502158659627719016733307736583749830417528915672621394925512926295137425311818010756329195741691413063569822508868815535038541752179921529616250537665789992543646867926753984130780242494609524
(+ 1135960177108146621604027872788612991247811085764456406834564014092038611848908717507207251239454266163702244932570537009884467598603226302482406831131219148530146321028801515381981782506355042255201016953375149829517466449677312249611502599434850555618739830488706171667035140895674806873502543300909514568759918040129665855731078258004983486524477103833885001539135541445685573269814159175744401893663504523858005835387122082112362666991112899837534230326730196110477118156871579503345757821268248575583821695674912517830056856597644827244194658166928026249459511837772775196175188368236573504643083995409774002567 -5513982495816270388232134254127393284677692173792609278582774509636977743203029647121158805174638642867428501907786521939155900331399058909602425073976766)
EQL-OK: 1135960177108146621604027872788612991247811085764456406834564014092038611848908717507207251239454266163702244932570537009884467598603226302482406831131219148530146321028801515381981782506355042255201016953375149829517466449677312249611502599434850555618739830488706171667035140895674806873502543300909514568759918040129665855731078258004983486524477103833885001539135541445685573269814159175744401893663504523858005835387122082112362666991112899837534230326730190596494622340601191271211503693874963897891647903065633935055547219619901624214547537008122851610816644409270867409653249212336242105584174392984700025801
(+ -30369736932762868789456108597366835061749107555998091727589163626331595118680326568212941898571309672187038272915036839449380083450246957904300051802617002374912724325419651633014408152565340519439718081357147324136023867003917288524338643759680061563616479323818330115572573568245719292922176485298767387601922362893307843067637295955606642841006993776777666041277965868780958830666697755738164183356399977211227424725670822944234275611849032230010745799964550976844117943559190671369193871330514473741920389633762695829790016565565261170688485790141638094160105909405353382982945608773290740598479367828342651860878 3451570547959142767282758882796967240086418127970526029661337442068316209707489088420708984628065070358319478649952710478991064476168799556496237099109563)
EQL-OK: -30369736932762868789456108597366835061749107555998091727589163626331595118680326568212941898571309672187038272915036839449380083450246957904300051802617002374912724325419651633014408152565340519439718081357147324136023867003917288524338643759680061563616479323818330115572573568245719292922176485298767387601922362893307843067637295955606642841006993776777666041277965868780958830666697755738164183356399977211227424725670822944234275611849032230010745799964550973392547395600047904086434988533547233655502261663236666168452574497249051463199397369432653466095035551085874733030235129782226264429679811332105552751315
(+ 24749014370880469345815230363662696846133977441600857690896762642529872426102613384561609594131771018575590861342023688138502403609639138062665279129058939911797019091643704220495944170754490238422880589600838613701783818105188827633578438439212856537589855796204839275633245851474930725845096235668385012500773524750522781174430369067441632028068262240870795850561389232369373523415592833273932285308223863420210049445377497367753786125779044716949754454461623397410528064697616617917065021866397277409044449982605591256067763430930720398889239414812509701319783809830072841056369381573100589260104551934136733317845 -9461623592584966196513107657889418526847060851423069480904645009418813160370721071067349946095573698635859409908288864150475056170059858850823883834932131)
EQL-OK: 24749014370880469345815230363662696846133977441600857690896762642529872426102613384561609594131771018575590861342023688138502403609639138062665279129058939911797019091643704220495944170754490238422880589600838613701783818105188827633578438439212856537589855796204839275633245851474930725845096235668385012500773524750522781174430369067441632028068262240870795850561389232369373523415592833273932285308223863420210049445377497367753786125779044716949754454461623387948904472112650421403957363976978750561983598559536110351422754012117560028168168347462563605746085173970662932767505231098044419200245701110252898385714
(+ 19070246171469235561279483225919489206942407814032615339351735800304747459507922411906751965555240682457214768298108831815622470433175555196912899313888991765436434867025639919521068437191248198117664398275835972573354886915721765715992151871453808224011999677700078879590132676060988550961950472536029228350169237717222998397029428440792110955380302156159849645211726041489206565536560827557279129751110297078563108009278363910936720061216511798518178957070787710331228500533067546198458251241005176280410230146430275074766072259256583499095689284871987010372039977403712023630453400259082684930755893684499232318008 12330599952818018622104330691506128012101935028731995985677032980931398338453806827555760801312052792065671886621851470997557806941112316627790755867100463)
EQL-OK: 19070246171469235561279483225919489206942407814032615339351735800304747459507922411906751965555240682457214768298108831815622470433175555196912899313888991765436434867025639919521068437191248198117664398275835972573354886915721765715992151871453808224011999677700078879590132676060988550961950472536029228350169237717222998397029428440792110955380302156159849645211726041489206565536560827557279129751110297078563108009278363910936720061216511798518178957070787722661828453351086168302788942747133188382345258878426260751799053190654921952902516840632788322424832043075598645481924397816889626043072521475255099418471
(+ -20895998178036569919774658790651496115060841511658297683195804524712012347695091074325978179977718571444320688167469052862702339462089668992243209990795362064005869602003990235714500149401994013174762139297327430396441552225926368085284222509085197484452650071390132794942944512235132641643003294762547138305644086106533258432786768644384855008506026923783604514268955071498269812887794817192371944269611642901807443894686178438687102834127061425955994253034824027771176714559050403098437684091684851207513969915720607528045624635094984539637789113651579846373399975502788877555747414523231999341294756679330384323996 764238600803843266244444637050072967342049538611688895792923539838804953492110953673720766879606601435939162680753428779068917662740403667549850724878795)
EQL-OK: -20895998178036569919774658790651496115060841511658297683195804524712012347695091074325978179977718571444320688167469052862702339462089668992243209990795362064005869602003990235714500149401994013174762139297327430396441552225926368085284222509085197484452650071390132794942944512235132641643003294762547138305644086106533258432786768644384855008506026923783604514268955071498269812887794817192371944269611642901807443894686178438687102834127061425955994253034824027006938113755207136853993047041611883865464431304031711735122084796290031047526835439930812966766798539563626196802318635454314336600891089129479659445201
(+ 6243894672855694190803081952962387322599009058758027960092936187687064819462191583137945440936085088260632250436567758576422207449236613172605950116622271404444221039084346501796818945639456207912207604248991842124079786471250102192718092353598850889806607728696519257402580732995770031331187089424192803722612735557735028710899438934171272639518928194764526910590046378401600819132587804143949995694950116915803127294011661411525934100144319021440919928013617766507409909846670172516021888661284467975865076091834094160862228180625536450124272957206172214541444266874056050295270719541605687740822711659847211976891 11877496607682442993105675644902145742318375725225741293060927105303783712520284640625374957608051032540491531573337817824773543104969422017506696018037874641947740606655370938613842356322585858034851150595788166740174872996252792014218946552442572806242471174234462119454014379628228878122072189387777413014452140618318641689597452676091677588204537830401725113931418426919671512011822864583481449136550835952005765386885680701637038206002172218712504732572449659704181315669255320876647592649071711438131711904976335957846353867776093588236311654631696625859173554395714740218099921290128795607292259527492722462071)
EQL-OK: 18121391280538137183908757597864533064917384783983769253153863292990848531982476223763320398544136120801123782009905576401195750554206035190112646134660146046391961645739717440410661301962042065947058754844780008864254659467502894206937038906041423696049078902930981376856595112623998909453259278811970216737064876176053670400496891610262950227723466025166252024521464805321272331144410668727431444831500952867808892680897342113162972306146491240153424660586067426211591225515925493392669481310356179413996787996810430118708582048401630038360584611837868840400617821269770790513370640831734483348114971187339934438962
(+ -24023960171862805266003610953999097357395283354964456554686635290239019705581779621120391229617494503580661676939681517550103414632840981987397485411400553792707518662609532504246677658012933762605038799352109564432278094548068984563394926376371580465135388578139331334464060067790936072127680597181415407099723844313625277987147283697141407959289588588489162704824409673099509423520008795428217612706997355591985894255450783091681112776112997887084157623388943538145736618168104404283342039105202585543852590302154958791010622670839015475427693311663800177428904406869645066988663292128104453773413982185343111560886 -31939808827732134714870375774276102357277346245583282398423150631754622253109692213928642228787888509211781331649081002266227303203259124984426497846441848502574293640959494009564992092503141598640200823656998243767453860939156780549404892392521391484933772285520949470194562525777116137058001008184603332597820522016200623301007194309404025522056113671560767212894303567191067178003014955596425115379852712737129325098876542459702682095445350281859042779889411325882123213577906096942649941285655935053362468972482748617111598313960198743596285343178242282172686940700127068972627110105953098737923773182254460772630)
EQL-OK: -55963768999594939980873986728275199714672629600547738953109785921993641958691471835049033458405383012792443008588762519816330717836100106971823983257842402295281812303569026513811669750516075361245239623009107808199731955487225765112799818768892971950069160863660280804658622593568052209185681605366018739697544366329825901288154478006545433481345702260049929917718713240290576601523023751024642728086850068329115219354327325551383794871558348168943200403278354864027859831746010501225991980390858520597215059274637707408122220984799214219023978654842042459601591347569772135961290402234057552511337755367597572333516
(+ 14513652183174940741664411990199277445706189147726874603036586212536012746892966848269748909379750612027025331446918381470766609543142456872580466135425754204680927122749772612276850998180593344389487924747722210296498854143380696064338777945015153982467675141485724865534995199700908286263993697988986805404864429385840512740226775506122190698806967785494289035976495492863456705096841250592980439363856397663738211335801835896091823148249303370609165910779981271035234045185574995335952208702661648744928539539455138167482396767268362221492607154709559716065850417221174683768503217544145599044845325824451589309835 -12814535978730024053359592817368712576084646962861720729844389627130663192435154658607204342320327460695280260731620465435530495952836598646143907272825807563512741964987882356778796849529260646503692618525570185450780889283642116889481314560395290434301143877809550098309214046129802023655714098730144464028249594406616074059558969757405392170810220921023905546104487938441503430332099605473144930508420331873995741851604525954472341693863067199617721032815462094767522339305487934030130207039176659398466616780628644572276059410087128533031562978399689702766028716401176531098447698206272762966470643604141938670152)
EQL-OK: 1699116204444916688304819172830564869621542184865153873192196585405349554457812189662544567059423151331745070715297916035236113590305858226436558862599946641168185157761890255498054148651332697885795306222152024845717964859738579174857463384619863548166531263676174767225781153571106262608279599258842341376614834979224438680667805748716798527996746864470383489872007554421953274764741645119835508855436065789742469484197309941619481454386236170991444877964519176267711705880087061305822001663484989346461922758826493595206337357181233688461044176309870013299821700819998152670055519337872836078374682220309650639683
(+ 11356479761814008572465147431830778885327227506593483181241437802252618729479905490826767363633131720717461693888023278837835457496021519184903984385091047829540007466025527592005114414671285638168997562037691602144751434208304408870143450743278437854754504713023422097017723330207792526222436928747286558205279330508360438281011315147578105966454344087225699378388309094140949428028313539634103047841948634832398526343605363013644180832752120081735152285507591096001749463421326282317713079361827765412853023201330345752038722069405404812511739634687282327711258974520622248165974215116400638833123609666501349513623 -2451734542868054449539778460457497703609327132304922810342762480808881050209276687756391911546806187586640918078231508181876445466503459873508196878629364924241891220686182517218825181707207808769770392864734466652524094735160185556148554260517746279303022469784592528209667497664672945900929888144529727881050106027775707933311860110618130543481573815538047460723253898548348335762406437618625388229555824532715231231491787570056329865617082709588903922431713098922691537317839185452018617461891748518176708607861270770493263960554805373552348256747200291438630960804647686832667981625018361034564086859426490014044)
EQL-OK: 8904745218945954122925368971373281181717900374288560370898675321443737679270628803070375452086325533130820775809791770655959012029518059311395787506461682905298116245339345074786289232964077829399227169172957135492227339473144223313994896482760691575451482243238829568808055832543119580321507040602756830324229224480584730347699455036959975422972770271687651917665055195592601092265907102015477659612392810299683295112113575443587850967135037372146248363075877997079057926103487096865694461899936016894676314593469074981545458108850599438959391377940082036272628013715974561333306233491382277798559522807074859499579
(+ -1814184401790217165873937825605141478060935014868566665644215718762341535891730598045990231798382966074312671040257824056876679135909008140059087311700216658095793352051583071432744886316274989901835606602224927350560604355249919901932382803472476702792978322468747380191775778902733911968522382089332819162367884984027854067607561808704316828316820133400099093450636968732151876570835173932998599031643640476109466728761033062776578175554441947411139184426213290292577467587355369954997241091769769542810051228504545831588488726789173405585678190671534386784806998695797717346491308862362775748058331375692317599945 15466182953987394334491149436346080039471412309427279110582769586053943302670765125931570041904640518032832554998553018838321871748542118021556398569294085708441934948186080236498081517178574839977996802813431873543309853609838200338534343580791382510179184571852290959723696010410340740895530535423959476873857191548113125728667781953125153120447892632916574768078583174099545013854248664119997703948998871566374080719541931440495888606776561795893839624084254684939434035018741535261951124673664746010067859317726891535170781460914710499572006592206360512398012457295755926986236618644330364227754380084585899275327)
EQL-OK: 13651998552197177168617211610740938561410477294558712444938553867291601766779034527885579810106257551958519883958295194781445192612633109881497311257593869050346141596134497165065336630862299850076161196211206946192749249254588280436601960777318905807386206249383543579531920231507606828927008153334626657711489306564085271661060220144420836292131072499516475674627946205367393137283413490186999104917355231090264613990780898377719310431222119848482700439658041394646856567431386165306953883581894976467257808089222345703582292734125537093986328401534826125613205458599958209639745309781967588479696048708893581675382
(+ -27127130599753372624001250456405972983012981437652156246797208697430661165612459362971759027335854588888552031022264244768883843080959804690580574272908031271224646245152017114094021048441971097191444782106551075175878815012595015584723250801765859461211934306789890718268168352614164589637346918581658850565274510502652089457352942736418509881708568727739912127781455473660768550022762222130489047215089836402367851853412705556570667960548570630054608024914653686223423908494006675057953013815512203710764854485332282975729323105427143207127239069826750682633272289409910001698385240596625059970587393681128674617278 5719655139276246085992066702308194672442413085748146924567717361937179810269300239821879673460959112727066470468217892213025828988023367028158410455624528688729907493639908638553730770145274142147983721694721139760883483821883267129411125364089207412089113869427479340283853501026803387874124668123626271531796990801822527792189514551888019206405597994403243358155410088320317141454525417323186389587327532772638942220300149829241141659063128602316305332848477566686425551944956989370838072872906293845914921103561360871571846865478762953536949621421094416539099628942010528483544062050170673327754206501716239719529)
EQL-OK: -21407475460477126538009183754097778310570568351904009322229491335493481355343159123149879353874895476161485560554046352555858014092936437662422163817283502582494738751512108475540290278296696955043461060411829935414995331190711748455312125437676652049122820437362411377984314851587361201763222250458032579033477519700829561665163428184530490675302970733336668769626045385340451408568236804807302657627762303629728909633112555727329526301485442027738302692066176119536998356549049685687114940942605909864849933381770922104157476239948380253590289448405656266094172660467899473214841178546454386642833187179412434897749
(- 3872339191937382556 13437882608410293981)
EQL-OK: -9565543416472911425
(- 12702320881720530101 13823645380834800545)
EQL-OK: -1121324499114270444
(- 10222969257152373972 -3454292165863475982)
EQL-OK: 13677261423015849954
(- 591233951053628288 -17639978232337836611)
EQL-OK: 18231212183391464899
(- -7878405903223218778 9050739027069287469)
EQL-OK: -16929144930292506247
(- 11347120771894057376 8443917396834074370)
EQL-OK: 2903203375059983006
(- 7831959259127703467 -257470007821066702597399141202130667973)
EQL-OK: 257470007821066702605231100461258371440
(- 1092406341647857980 -325710450166845666190895573961860069495)
EQL-OK: 325710450166845666191987980303507927475
(- -4220606126689357919 73461013742902296577411907972196819778)
EQL-OK: -73461013742902296581632514098886177697
(- -5112059189225304080 334306213789148650102245018234146620793)
EQL-OK: -334306213789148650107357077423371924873
(- 3093346224554776175 -204967241927023874963787190016588249299)
EQL-OK: 204967241927023874966880536241143025474
(- -5735747638156472357 -3881750746805128137401544408305666047)
EQL-OK: 3881750746805128131665796770149193690
(- 17639095392510638323 13312205908441007415860933757605397223142073616822325142416364932887680287063250296996056787873086490231950036662943632990219865746131453861285495087665017)
EQL-OK: -13312205908441007415860933757605397223142073616822325142416364932887680287063250296996056787873086490231950036662943632990219865746131436222190102577026694
(- 16304056910692545233 1463591032326743052350022746892396184459320617971409440301562638996633667625451301419074212369365394140737678584830314878769698416417465834928609990708982)
EQL-OK: -1463591032326743052350022746892396184459320617971409440301562638996633667625451301419074212369365394140737678584830314878769698416417449530871699298163749
(- -10347586523508777315 12614325304787850623826535169596975975360455924114817820074336137897280818245940873677389644701038550150832199897314137414727161192173691528917744363375331)
EQL-OK: -12614325304787850623826535169596975975360455924114817820074336137897280818245940873677389644701038550150832199897314137414727161192173701876504267872152646
(- 16875252323587344863 -10230183557696638447600885112945653217398839137450096120772416948425622105048400944465287395231588821521217980407867153259741079758527788318592431794213674)
EQL-OK: 10230183557696638447600885112945653217398839137450096120772416948425622105048400944465287395231588821521217980407867153259741079758527805193844755381558537
(- 8574302739232756920 2945205250727759066959418729185252318153395797902208079569164623770839848878181416073351760975066439564334127158302281471631001294503759011790017443478716)
EQL-OK: -2945205250727759066959418729185252318153395797902208079569164623770839848878181416073351760975066439564334127158302281471631001294503750437487278210721796
(- -17657597319577965851 -470389901349206124503884936612357721199915776516939967013182926735009022045917047211666512521578494339222795740836335004070464944715357800461845632614015)
EQL-OK: 470389901349206124503884936612357721199915776516939967013182926735009022045917047211666512521578494339222795740836335004070464944715340142864526054648164
(- 11472336850218354926 16764018932433717867649699977474298016589762238077229911249331402108995850754999065988360217500238643747316139204767820295123085026049273617874157749889925712672510963712964034497935503076689670786498045302562704435768723916334451317158760704743066709581593570757498670622547878516907127632802801541072452593999435195637193819500375063696114131057474475407791672955417184592088612921927282233762919112197264895445408873539746256555444555901857369535350160665235184955438709679669964546134487688796078142789125799020704969226557493354453298489954288702387159956161243151013189140749021799388406290339231792790773612376)
EQL-OK: -16764018932433717867649699977474298016589762238077229911249331402108995850754999065988360217500238643747316139204767820295123085026049273617874157749889925712672510963712964034497935503076689670786498045302562704435768723916334451317158760704743066709581593570757498670622547878516907127632802801541072452593999435195637193819500375063696114131057474475407791672955417184592088612921927282233762919112197264895445408873539746256555444555901857369535350160665235184955438709679669964546134487688796078142789125799020704969226557493354453298489954288702387159956161243151013189140749021799388406290327759455940555257450
(- 12682607562584942903 32133619583510009354538204193505267426986629771080807813988708187761849276650847958886764459302043799013813125903744946349479743277662066609741649009023451783267511140245797235200413941774959851628239089013586399425314412329003636059313583335807925401822165199322334470452126484173417518861322963430951772895619791799137157183662289329901964728384697377777905235894234370773419160283767144177627084271804319157013765325677633945370597318765372346484383325176768117059688792498687750479618961541872574768601477738410497806623403054372221338126223825515939164627992974469102910882915893925327931884157735553718792115929)
EQL-OK: -32133619583510009354538204193505267426986629771080807813988708187761849276650847958886764459302043799013813125903744946349479743277662066609741649009023451783267511140245797235200413941774959851628239089013586399425314412329003636059313583335807925401822165199322334470452126484173417518861322963430951772895619791799137157183662289329901964728384697377777905235894234370773419160283767144177627084271804319157013765325677633945370597318765372346484383325176768117059688792498687750479618961541872574768601477738410497806623403054372221338126223825515939164627992974469102910882915893925327931884145052946156207173026
(- 14621880654476679971 -10075923784619510279100488003620810539888599376089081798647754628017452762406215094511315867213396543200861274584884759429891242650999761503100661310915213260386281412125687376866399124849043409890009033179987278297335571911640353059036551139958369871790768643514550179661619387008678118363266091945225880595898524898713646458647465935791224159084684209727153050053537752111696883536364966526666445737103854446009305531519860527938394412863332757413309423156200192973778629503534709731073637828912608835085933003410694216843775182940057891552358942312728978810053715387504707194992816961400377579655168106377696154728)
EQL-OK: 10075923784619510279100488003620810539888599376089081798647754628017452762406215094511315867213396543200861274584884759429891242650999761503100661310915213260386281412125687376866399124849043409890009033179987278297335571911640353059036551139958369871790768643514550179661619387008678118363266091945225880595898524898713646458647465935791224159084684209727153050053537752111696883536364966526666445737103854446009305531519860527938394412863332757413309423156200192973778629503534709731073637828912608835085933003410694216843775182940057891552358942312728978810053715387504707194992816961400377579669789987032172834699
(- -3220156644655019630 -8347829670073174550775641165362740628312221836466572623516708794243074870361401136762432100726575330214254748615114820602945887237367461962207075265579588481261313345359877816874924645801358760718027997416917747796144940020489321523749233377708490614979453376328244189926517907474704635785063100359787580409065317918203485474119227673185211436285930586838616288721370975925191964611302275354365110550116042403226844820172448647475637867255305805337047967053177320593337377763657329816935516961201488840745892529800883680912275812320160312651894919502389242002380151562481051684439333368396132543667539444686619670713)
EQL-OK: 8347829670073174550775641165362740628312221836466572623516708794243074870361401136762432100726575330214254748615114820602945887237367461962207075265579588481261313345359877816874924645801358760718027997416917747796144940020489321523749233377708490614979453376328244189926517907474704635785063100359787580409065317918203485474119227673185211436285930586838616288721370975925191964611302275354365110550116042403226844820172448647475637867255305805337047967053177320593337377763657329816935516961201488840745892529800883680912275812320160312651894919502389242002380151562481051684439333368396132543664319288041964651083
(- 11628988978410243120 21091260149209133824278525560739673446778991946138130571540201996950100883736332286627324787663044982195445635023357027423513202277912840570399895946346028843517588470258087913846945044832851780108963206182331994065720076983528527849542421619745503796476103034657238118665288185878258232226731582201217795631247916614224227701409259346052937919425072595891571572960468193421257458185693656090215937518204243652916583730260295885562094977775951577484951577581277292356830523013216949489797535362720471761788697932265967910160407593278848113303674799017334692501935041730808945554336564957621028111014116286675587727714)
EQL-OK: -21091260149209133824278525560739673446778991946138130571540201996950100883736332286627324787663044982195445635023357027423513202277912840570399895946346028843517588470258087913846945044832851780108963206182331994065720076983528527849542421619745503796476103034657238118665288185878258232226731582201217795631247916614224227701409259346052937919425072595891571572960468193421257458185693656090215937518204243652916583730260295885562094977775951577484951577581277292356830523013216949489797535362720471761788697932265967910160407593278848113303674799017334692501935041730808945554336564957621028111002487297697177484594
(- -15960716439913426281 18799211173341989380260980155501104944815245973352765317821146163884181375747259542484535639646490774929026134833947975785613727050541297797675705933339289016115326958150660323801621778641184271728990164666383865587422591755046779736996211052149338115836473967202556153668963815595875844414662034458693455631979862997316049580586739835122770408911308146605671192538040301857163633538268589024651373766021087864982140201615461513687698136663128896835597598904095187715456109340116329587986878167776146023396961265667934659006280575496363066974484893764810659481361856335795455814679851690737943592227795474197104696127)
EQL-OK: -18799211173341989380260980155501104944815245973352765317821146163884181375747259542484535639646490774929026134833947975785613727050541297797675705933339289016115326958150660323801621778641184271728990164666383865587422591755046779736996211052149338115836473967202556153668963815595875844414662034458693455631979862997316049580586739835122770408911308146605671192538040301857163633538268589024651373766021087864982140201615461513687698136663128896835597598904095187715456109340116329587986878167776146023396961265667934659006280575496363066974484893764810659481361856335795455814679851690737943592243756190637018122408
(- -181065640455671431985325539445069267017 14120143334024043377)
EQL-OK: -181065640455671431999445682779093310394
(- -91295299684959299024846233061686623774 6891102275697080803)
EQL-OK: -91295299684959299031737335337383704577
(- -252582289949155881579950873916766853744 883304029266526072)
EQL-OK: -252582289949155881580834177946033379816
(- -10104159950635417603045689770006558103 17251490913777465304)
EQL-OK: -10104159950635417620297180683784023407
(- 288463495341489091297108607960869684860 -16376960611483226267)
EQL-OK: 288463495341489091313485568572352911127
(- 204661965092367792468062569536290631004 7774991291341524479)
EQL-OK: 204661965092367792460287578244949106525
(- 174559967167400201536723778015754014369 168183438971818617783400303174116396891)
EQL-OK: 6376528195581583753323474841637617478
(- -253300708624436983509156598368557395374 -77166863757693227553099778725240875400)
EQL-OK: -176133844866743755956056819643316519974
(- -38587765028356074196061530813295290944 5999161273284748726648331130480323187)
EQL-OK: -44586926301640822922709861943775614131
(- -236400856885875891058508662756360145662 222191413471626205952456600591947275777)
EQL-OK: -458592270357502097010965263348307421439
(- 212937903940173587742882129816769611096 336470165768472077447806282475185249734)
EQL-OK: -123532261828298489704924152658415638638
(- -264812595676159375893264580577855253845 -247068943830535581577267897204259299723)
EQL-OK: -17743651845623794315996683373595954122
(- -1725732715479127274526681751197327660 -2279805492899538651574406423954277869507456204136276822451602661149698386520868702017367409743272511010382761246500508887739763323997191435566266331339917)
EQL-OK: 2279805492899538651574406423954277869507456204136276822451602661149698386520868702017367409743272511010382761246500507162007047844869916908884515134012257
(- -220007189346579184019349894240059989979 9116030813176547770422918633286023943039811682891023288884273747820892639481842291616424036020927750322528731882517057595815179415042385175627374957565803)
EQL-OK: -9116030813176547770422918633286023943039811682891023288884273747820892639481842291616424036020927750322528731882517277603004525994226404525521615017555782
(- 139683266109784685815165642637380856544 5782493350903499652295971390391981928106911831248674750993968151944332845911526084530951283012280786005612601970108688202931002414214353708335212597807345)
EQL-OK: -5782493350903499652295971390391981928106911831248674750993968151944332845911526084530951283012280786005612601970108548519664892629528538542692575216950801
(- 239160165978290709841254489756277328273 5152132850125501873897264811465207492706871561577273155117982457627773151595716641409297120994045059130053034927464958986304380141364542178714472948085275)
EQL-OK: -5152132850125501873897264811465207492706871561577273155117982457627773151595716641409297120994045059130053034927464719826138401850654700924224716670757002
(- 315772704643232632782106484978382006176 -3689252327480456512393153800679864208480329729627292260734151097785848947569336194072922395859496552999163037466184616218582046814434719444842678248982224)
EQL-OK: 3689252327480456512393153800679864208480329729627292260734151097785848947569336194072922395859496552999163037466184931991286690047067501551327656630988400
(- 82735713197488344149642668226610301853 -12473025194535761005577066561696471986140205263843017221991729197337093872383371857001077050460827652296473928714097816492579684543651922277865558518876774)
EQL-OK: 12473025194535761005577066561696471986140205263843017221991729197337093872383371857001077050460827652296473928714097899228292882031996071920533785129178627
(- 63472235942371758467270296983419551089 -7866520408163137968600317959735552406794938230345293650627055135268307695389903092041438746530663083967329111232451176014649873249349534808700483360707382397988918594143264031213181385790969271527978925616276399184489007642142996251807222768397530946779296600805549276528669432847672215219943599871223372831999133812100481632278022608906065923652981249057846548868473376683960144009223047416366697876553049362242497225174860431577034875737250719899362881567590934060155436179316063810148362442197071642183371654740845983314705249832168923202400873364289483910868432511677656218937984504828452980698439495961392749596)
EQL-OK: 7866520408163137968600317959735552406794938230345293650627055135268307695389903092041438746530663083967329111232451176014649873249349534808700483360707382397988918594143264031213181385790969271527978925616276399184489007642142996251807222768397530946779296600805549276528669432847672215219943599871223372831999133812100481632278022608906065923652981249057846548868473376683960144009223047416366697876553049362242497225174860431577034875737250719899362881567590934060155436179316063810148362442197071642183371654740845983314705249832168923202400873364289483910868432511677656219001456740770824739165709792944812300685
(- -284018520801241078671538235859630240269 -5529748211779294240854894683633173443789067073881249229985499707296461959655918837051490512357840133495603640185675483847478587849599477020706893805485599954539589062532211767295361120129440287144117406526027552427750375526095104163474774446716012360038076376952619723549765229763943818011605991300849052030142173100367582906381575666628005795818339029350398340616624791399526643991489247585213423174803853961438830286737553181353007081438503238779644371968004083452645077716952159339978836669723137339898471600546912430030276920763475622536295311290657163861398519747560279682401429552174530714298081464588450842581)
EQL-OK: 5529748211779294240854894683633173443789067073881249229985499707296461959655918837051490512357840133495603640185675483847478587849599477020706893805485599954539589062532211767295361120129440287144117406526027552427750375526095104163474774446716012360038076376952619723549765229763943818011605991300849052030142173100367582906381575666628005795818339029350398340616624791399526643991489247585213423174803853961438830286737553181353007081438503238779644371968004083452645077716952159339978836669723137339898471600546912430030276920763475622536295311290657163861398519747560279682117411031373289635626543228728820602312
(- -171812101820192353275910956459431262142 11401673303315394031728944442295528921842441448377692701102691446500671963119794838260543877466107345474902885032629120622020177051592733148817057943390167845763358795044702079370835841331467130719834250134674578757640577473495192331790176510774020541399177011446664359866582351045889299070080989390219063301859447807907203943168891690028442190793548699886572720360741686677780644932612683647303776634496172481504075784427704287335805355801794320914944330891519283383694196486986108936857630373759865062862204149003789919218681050221366182434949855054760827976853645027544605870235074909890698574792562001595287630131)
EQL-OK: -11401673303315394031728944442295528921842441448377692701102691446500671963119794838260543877466107345474902885032629120622020177051592733148817057943390167845763358795044702079370835841331467130719834250134674578757640577473495192331790176510774020541399177011446664359866582351045889299070080989390219063301859447807907203943168891690028442190793548699886572720360741686677780644932612683647303776634496172481504075784427704287335805355801794320914944330891519283383694196486986108936857630373759865062862204149003789919218681050221366182434949855054760827976853645027544605870406887011710890928068472958054718892273
(- -243638660221338112796448050030955119997 -32214383478080953899491069562585164652288236626686985994647827422262342469970423345510055643470262764747630363450204055220886177681745412924556264758690138113272748656941509018308925555317383307928766093730384151056027828368474245304944063213926492719166086055718735381341569379006804236876950175122702350552198046290567043195716369691666842524594399597143281611765509174168738392889075290806378316647736667077047013214732267367344808724905727602402784621437141760604478301412768904784950365257469208085143467704875589485635570084387755189599791857576855454112556762755762408826226326879491415484319411662301650468948)
EQL-OK: 32214383478080953899491069562585164652288236626686985994647827422262342469970423345510055643470262764747630363450204055220886177681745412924556264758690138113272748656941509018308925555317383307928766093730384151056027828368474245304944063213926492719166086055718735381341569379006804236876950175122702350552198046290567043195716369691666842524594399597143281611765509174168738392889075290806378316647736667077047013214732267367344808724905727602402784621437141760604478301412768904784950365257469208085143467704875589485635570084387755189599791857576855454112556762755762408825982688219270077371522963612270695348951
(- -126332081511349770866908261827634312283 31497387372874133218238910173378055967910722258532087598053588964599898753455370244114881403020152175272452951858324158004662566613339529101292284073176382818309096142522412043073218657587031893636358434796164444941535757484360125937835242214199979245499374972029624710574236962978707708765065292759037309958875006017588240959790355958632745299212449602934380927677385974488564420550408281673927387615657765312151272852486266800510090872812376232597458154951925709496664568906509814364388823105469855516803225244972466742963619633076158367569109107733990828830121948130235858799809203410103682003414364238243553515261)
EQL-OK: -31497387372874133218238910173378055967910722258532087598053588964599898753455370244114881403020152175272452951858324158004662566613339529101292284073176382818309096142522412043073218657587031893636358434796164444941535757484360125937835242214199979245499374972029624710574236962978707708765065292759037309958875006017588240959790355958632745299212449602934380927677385974488564420550408281673927387615657765312151272852486266800510090872812376232597458154951925709496664568906509814364388823105469855516803225244972466742963619633076158367569109107733990828830121948130235858799935535491615031774281272500071187827544
(- 219979452670016849533060110266815720199 3900115048441644499033281842448985956665866771934663536385503692700586024397767816761943054115584011069129310718114010862034970648115172218305599786238607524420973404711138276011261135403209178420948996472570042497859127324157786975578751148348046315727383390370594954695454631662061021971027739429505825056455676233533511412589936865597034183410893428831818716136282201523804692574965779771140320669492229416601369453681528301333865290947482219850340728455965391492610516639151652595539203632139883064874286555941718154489936421274731413286355640404192677546692090304496817063325766995908926108582896362623757323811)
EQL-OK: -3900115048441644499033281842448985956665866771934663536385503692700586024397767816761943054115584011069129310718114010862034970648115172218305599786238607524420973404711138276011261135403209178420948996472570042497859127324157786975578751148348046315727383390370594954695454631662061021971027739429505825056455676233533511412589936865597034183410893428831818716136282201523804692574965779771140320669492229416601369453681528301333865290947482219850340728455965391492610516639151652595539203632139883064874286555941718154489936421274731413286355640404192677546692090304496817063105787543238909259049836252356941603612
(- 585873325961105129055557280004608765382109855007674169500308242261038324959928764512890600512016613154122762798104714052579267789493643522748210870974797 -1855792162818946202)
EQL-OK: 585873325961105129055557280004608765382109855007674169500308242261038324959928764512890600512016613154122762798104714052579267789493645378540373689920999
(- -3026050092505200332789765255096964033685859497096213532090644235603419347590512426830117415222669642053441336442247132403948783838396746566100575461602162 18009081534399282710)
EQL-OK: -3026050092505200332789765255096964033685859497096213532090644235603419347590512426830117415222669642053441336442247132403948783838396764575182109860884872
(- -11124638695599888462310706699308855434715251048597328942409434888923094027849143412724699165971400546471660924330688750607774759764580214088920441698992069 -4827559068742614723)
EQL-OK: -11124638695599888462310706699308855434715251048597328942409434888923094027849143412724699165971400546471660924330688750607774759764580209261361372956377346
(- 4950293428090696283711882613183655723616682297360442241017758383241177602498881186549809051670562038601658285833496694108818253845693871318067007752043113 17597810481352184048)
EQL-OK: 4950293428090696283711882613183655723616682297360442241017758383241177602498881186549809051670562038601658285833496694108818253845693853720256526399859065
(- -5733769947958740467479139247420201065087494801172241127791526686385518674532830661413722661802560247463032020003355494614502034002778775472609306735864748 -3892174127829225880)
EQL-OK: -5733769947958740467479139247420201065087494801172241127791526686385518674532830661413722661802560247463032020003355494614502034002778771580435178906638868
(- 8320894458193427045187598554188178307429755504967209344418448624882517461814957461249858674758807195827056824653471934409067429988676743031117653237018365 -12861394200627120797)
EQL-OK: 8320894458193427045187598554188178307429755504967209344418448624882517461814957461249858674758807195827056824653471934409067429988676755892511853864139162
(- 13033402737450594044106258936169013897237368708138118260402180886096095497725071502601849887805439844083105685971731015312020770945603825344926844435936044 236396022362585261770052671762207864597)
EQL-OK: 13033402737450594044106258936169013897237368708138118260402180886096095497725071502601849887805439844083105685971730778915998408360342055292255082228071447
(- 12170667278114656173974716189098171384426379753661081475485441559687661443127166543908925678856145097632475832903680828294561265828775791256812588754280222 -276673555533799047589626400978981416789)
EQL-OK: 12170667278114656173974716189098171384426379753661081475485441559687661443127166543908925678856145097632475832903681104968116799627823380883213567735697011
(- -12755594876262399860618168642932232021734362385933348033134635580177924615701078617214764415318471507488803810365565826229169313660087149542130819663319659 -157671440495648010763311068579191828684)
EQL-OK: -12755594876262399860618168642932232021734362385933348033134635580177924615701078617214764415318471507488803810365565668557728818012076386231062240471490975
(- 8664063140780163008577373335591938905735059211566906376953760862047748343846207426667781783874718320339071949903053785280430612875488847226724390758938740 54361107931665215623681874454167019934)
EQL-OK: 8664063140780163008577373335591938905735059211566906376953760862047748343846207426667781783874718320339071949903053730919322681210273223544849936591918806
(- 3699576825118349347309026261327541749454660339251578894574483235547605815416603169143590292164644149607672871236942391817131531474661895913650810587431606 -50508350367572393968128467319633674717)
EQL-OK: 3699576825118349347309026261327541749454660339251578894574483235547605815416603169143590292164644149607672871236942442325481899047055864042118130221106323
(- 5626548453644136572409808769267055618695663227750732922630041368983808478347120771651822300668480671524976882745306794511840379704578900504784165956486985 170502882789371639987361620116696459267)
EQL-OK: 5626548453644136572409808769267055618695663227750732922630041368983808478347120771651822300668480671524976882745306624008957590332938913143164049260027718
(- -10859007735074693411217019392659638207496329895257318665547454149984863458541990037760564769787816800806064437172810158051442267508476778676439633382657890 -7558060977666720080449823996328496253877735754811271086853901493753796001778345391546991917892931500169890406340928835457635973812901681485438886367096185)
EQL-OK: -3300946757407973330767195396331141953618594140446047578693552656231067456763644646213572851894885300636174030831881322593806293695575097191000747015561705
(- 9842028993407961669727766131360795288615020071102475108883839785397865740828387076847892646234215787999498419839351470775471313077046438080666908734795616 8259939762466350877481193620364896193464602165170783019804380181692322874550956777598992104871440502758410340359413403619753571535498118388286469082729503)
EQL-OK: 1582089230941610792246572510995899095150417905931692089079459603705542866277430299248900541362775285241088079479938067155717741541548319692380439652066113
(- 3122315115429970622394662815735050825423438028108957393747131991771456957037829402044934484343765915727397519247940959221091465331254497476137639859816450 10737995515603450913722681305571315249864367824351372254572936648132763616823019940208526402092654554035074813865303483747097673960803093638463005072804384)
EQL-OK: -7615680400173480291328018489836264424440929796242414860825804656361306659785190538163591917748888638307677294617362524526006208629548596162325365212987934
(- 11618335890332522671268040181306950825004789685088262996478365976802329054158653675768163009290064139158450983598701977173152384425333441365287895694522192 -13130287008197231017935223399369698658354829835061356451363818961959486828237111511740029441613108087354987794332115218978284937263725126538295501305403242)
EQL-OK: 24748622898529753689203263580676649483359619520149619447842184938761815882395765187508192450903172226513438777930817196151437321689058567903583396999925434
(- -4829477140897377009195646150061276059814366801005389903693533021027427566117360765323647260121062827801190746646296803957067548167571028717513392985791293 10716557117391614298810040587314742187092120526669273567183969821384063434473189717686678450880765426943205955814024872764413373364846268902370055526485180)
EQL-OK: -15546034258288991308005686737376018246906487327674663470877502842411491000590550483010325711001828254744396702460321676721480921532417297619883448512276473
(- 1560421244904974852620371975782132605421448226892487453928759432083522187778803424020804578027100625536441377609275030418285893555753560195716001014786650 -11797558308994912054526619290334311429749533070145154703018977152548370444659962978040151671210413666186432921816690953994784423526183449271023503069393845)
EQL-OK: 13357979553899886907146991266116444035170981297037642156947736584631892632438766402060956249237514291722874299425965984413070317081937009466739504084180495
(- -7701347923966912534344428538744620884561375267012102797292378941649984539207353887059064943586048644516121387166836442084007442716291792933061162738380376 5290969389374230541016502448421359606252744677802288901830045825873182202718418905866055323957065013553046698199939002159982374580735362593037515863844280108947533575824820196689891621498006303535207762625068798755031433921940066544809959896067184147997503827988613858484669349726945188167613248195147619673963531690938913245110754715059472477991342216448470339490385593605806518967792963339193162830698488489270925945408227996742278697477358272529028932771642478870844024835907350391770605391526921411004262446196112836319091260967898895009427182171643279100998182191816962677328417390867021108292139204864164048286)
EQL-OK: -5290969389374230541016502448421359606252744677802288901830045825873182202718418905866055323957065013553046698199939002159982374580735362593037515863844280108947533575824820196689891621498006303535207762625068798755031433921940066544809959896067184147997503827988613858484669349726945188167613248195147619673963531690938913245110754715059472477991342216448470339490385593605806518967792963339193162830698488489270925945408227996742278697477358272529028932771642486572191948802819884736199144136147805972379529458298910128698032910952438102363314241236586865149642698313204129513770501398309737400085072266026902428662
(- 9733743430220591762422540139212426729307515492818443460852332805653889275463385649305231919846970974905736816260992940027028218064265519723018527155353151 -29407855293830047984154639411082591337348779678279017647951764366455421210163494489475996514661359700145916243499452007595041420522019751347743105082745321262372977262641488359297167392118038994384136863563032667040671405618315550876997904307423736276844997706938133936081058323434935833614475654922773162140266784233792639117145232791514703532554345086520312281500696798706889025860427142771458666376271994240028586899592254884476941388776984078337603148583453255593120138178690189726206775893096279000909079330468718593887702543025737308336025198677457129910473491269839827087491228569718246503140134413881896746751)
EQL-OK: 29407855293830047984154639411082591337348779678279017647951764366455421210163494489475996514661359700145916243499452007595041420522019751347743105082745321262372977262641488359297167392118038994384136863563032667040671405618315550876997904307423736276844997706938133936081058323434935833614475654922773162140266784233792639117145232791514703532554345086520312281500696798706889025860427142771458666376271994240028586899592254884476941388776984078337603148583453265326863568399281952148746915105523008308424572148912179446220508196915012771721674503909376976881448397006656088080431255597936310768659857432409052099902
(- -276731217243271862683214238489380950428392903790808046630969592255272629537001990355375434170910931115552132394269672247616298060929507021008951190291387 100289083769237476480554074865040988004216167545459907207847010762380733541100608695693297149249375537088329431700364201275915507683345148401600569951338052791424407090330310974243070931256108167365334162914085216447196038922091547331474328250886730614683299908003398886233860613008266913065047699535081030427106800418656336608005860846045905149012346378286475449307630537665901621055008855374148058291266835796203075976592585729940879567246284967856356337849150102261744547461816282538319258966892339056695718919291240188920586288417893106046698069355647145603908383687239983874164793005765733782432717429040621674)
EQL-OK: -100289083769237476480554074865040988004216167545459907207847010762380733541100608695693297149249375537088329431700364201275915507683345148401600569951338052791424407090330310974243070931256108167365334162914085216447196038922091547331474328250886730614683299908003398886233860613008266913065047699535081030427106800418656336608005860846045905149012346378286475449307630537665901621055008855374148058291266835796203075976592585729940879567246284967856356337849150378992961790733678965752557748347842767449599509727337871158512841561047430108037053444789818056535023935819634253546412409303826663289453726380230913061
(- 8505070389896098095621766692413480203366379968950158493268895987250690600795955783113900096527432416791184386061684833478921638080978014176210898461637606 -16410711613672171332126342754193842244915477287016327757357714698751777287458963458682349581881560880814595167244857846847668988374679430572782121021084683986742283012573569894084166107235597351093334125816075658348307113218478800035703971671113417712009419861470917307849916674203301497919242668373376352901312309673053175315189945730756118172940886476343290174961420986113367531057713782438374928471960914578818951372282574754612716278516397754222547513576728677459134022062202283647690649100602260948409511070624300011106517649666031530376191755817891213910847547809248990517666613043010292627100428536737652546738)
EQL-OK: 16410711613672171332126342754193842244915477287016327757357714698751777287458963458682349581881560880814595167244857846847668988374679430572782121021084683986742283012573569894084166107235597351093334125816075658348307113218478800035703971671113417712009419861470917307849916674203301497919242668373376352901312309673053175315189945730756118172940886476343290174961420986113367531057713782438374928471960914578818951372282574754612716278516397754222547513576728685964204411958300379269457341514082464314789480020782793280002504900356632326331974869717987741343264338993635052202500091964648373605114604747636114184344
(- -12618010259109779267590315037969998053964054382853891516547435925972388025118492931596200697357628900783311183940584302426381939302632641549019984810957030 -30500906828861638007306362171210132987300359439962044769219457463653547834815716264412200930088623097530758080891972640000479943534665059199377729854850415258341537838023739964147532129877743393965857370995558748807382396090020006195649251292012405690725917389684473999400905751109361754679152179983739269026226054012963756892488872262522587481931950410504651253101938824790285623805566521723062029033001745636445860437154344665483641408727637784045030118212476306906983993748299291616038887011943864441807818857508443930272872365334665976442185494702520760793786640113779099219233665607521784524244604432396247693263)
EQL-OK: 30500906828861638007306362171210132987300359439962044769219457463653547834815716264412200930088623097530758080891972640000479943534665059199377729854850415258341537838023739964147532129877743393965857370995558748807382396090020006195649251292012405690725917389684473999400905751109361754679152179983739269026226054012963756892488872262522587481931950410504651253101938824790285623805566521723062029033001745636445860437154344665483641408727637784045030118212476294288973734638520024025723849041945810477753436003616927382836946392946640857949253898501823403164885856802595158634931239225582481891603055412411436736233
(- 793528769616879938852241178439496352527042950647521648629732169156958768358523029837406526207126598190786120139491813624819360632811627576064199559812277 -7357484069649002655190557040768215614708659708788999334802985986235721030962928900092675952032143512196279092521450986819067071570862007086586132687661085824939677603953832219860573980632016025218580608321648907608385784471745482257672314890331358256478273312255285010343369949412955387472116587504557483184506548209831317705115523967163525846685455369176657510129844566195941925821733027993620517287411895496215426174909366458092382652675628195464969405904518323018004882611048769247228828875493680284766874334247375868318795940759082324831733175858991629741478124633015067484305547002438816473086042218906532116413)
EQL-OK: 7357484069649002655190557040768215614708659708788999334802985986235721030962928900092675952032143512196279092521450986819067071570862007086586132687661085824939677603953832219860573980632016025218580608321648907608385784471745482257672314890331358256478273312255285010343369949412955387472116587504557483184506548209831317705115523967163525846685455369176657510129844566195941925821733027993620517287411895496215426174909366458092382652675628195464969405904518323811533652227928708099470007314990032811809824981769024498050965097717850683354763013265517836868076315419135206976119171821799449284713618283106091928690
(- 30958566711373255787092081401292877738974978442987704470984765018293851031728996862405055424093249924047528792113585028592262445810946419909807061004531455817427671594281537965628880611732831524185850161910304038646992464838306728350704966234151134620041799373762432970330864023007632010865749239024802839173884778578927209741320635135275002489733299806669933393428518104197594560039136096527206600870299327752296492029012993590212340409989598323540081430189567580333356380487749078595746626408529223195894600223743978246922817054226858311823994547784553612982586322603593335538875728113115443554199017672360091721648 9164115638960783470)
EQL-OK: 30958566711373255787092081401292877738974978442987704470984765018293851031728996862405055424093249924047528792113585028592262445810946419909807061004531455817427671594281537965628880611732831524185850161910304038646992464838306728350704966234151134620041799373762432970330864023007632010865749239024802839173884778578927209741320635135275002489733299806669933393428518104197594560039136096527206600870299327752296492029012993590212340409989598323540081430189567580333356380487749078595746626408529223195894600223743978246922817054226858311823994547784553612982586322603593335538875728113115443554189853556721130938178
(- -22540807692474380279530794404584230073523360203115293035869063366926380719566516089428840111682263403627532047214106171892715667227836310498366393991106231487046533598391969789120283294510723096483520917309134391072655861112766764278247568027435618337967113341863713181603534251049249873125130781073437913954718595729437608729446837417196899902194261111827656247095442897532040935029872731410799530408713850806239149348700486268275019296069828199088780767614008685960242354118969741283398882689239770114582524756296906388861630890288875920861344939520380841337675934551587994259348267613541166769237154904791412049964 16928681651977808800)
EQL-OK: -22540807692474380279530794404584230073523360203115293035869063366926380719566516089428840111682263403627532047214106171892715667227836310498366393991106231487046533598391969789120283294510723096483520917309134391072655861112766764278247568027435618337967113341863713181603534251049249873125130781073437913954718595729437608729446837417196899902194261111827656247095442897532040935029872731410799530408713850806239149348700486268275019296069828199088780767614008685960242354118969741283398882689239770114582524756296906388861630890288875920861344939520380841337675934551587994259348267613541166769254083586443389858764
(- -5403850875869356031749551669837202919756114555261706106905659104903792701565965475066159243529680606410723686422444947172225540145977333194008702465610630608545009270872541652430806931212184915840724378685979865349848151917650322286497417985248678815214889868576385900691591784772762893647315325310416150353725001943778473686980157692817497562783521120544549784746647104651038037129984152623720529803205580894126664077380391379306511348324442512538418658728022685805514196592544294177914956734669359073791151050869328577099869772182315103156047405800398706114122356939316464974680113324979723289916823063616573634058 -10755560408227106818)
EQL-OK: -5403850875869356031749551669837202919756114555261706106905659104903792701565965475066159243529680606410723686422444947172225540145977333194008702465610630608545009270872541652430806931212184915840724378685979865349848151917650322286497417985248678815214889868576385900691591784772762893647315325310416150353725001943778473686980157692817497562783521120544549784746647104651038037129984152623720529803205580894126664077380391379306511348324442512538418658728022685805514196592544294177914956734669359073791151050869328577099869772182315103156047405800398706114122356939316464974680113324979723289906067503208346527240
(- 16201587974698660164372991183566748501003872177894450603471850345714117528335101264234127789041855420954511595895378320972957964222386731614839583078498685801156670229700092209313747849610762975747730086443186821337319452128253859293962343891549207804191088925361935683615063225197130192492652062735684739784075955094308092423304262201429421582566117390598395895220976999990205945523225411701169301910362640419341608407294018105959688929256136725564385243617240412649023368133778798063226772467915584333795357813292935080009919284755332034998122912861893282865727947810588086156919649131720183722427134042574317487793 -126159569916621842)
EQL-OK: 16201587974698660164372991183566748501003872177894450603471850345714117528335101264234127789041855420954511595895378320972957964222386731614839583078498685801156670229700092209313747849610762975747730086443186821337319452128253859293962343891549207804191088925361935683615063225197130192492652062735684739784075955094308092423304262201429421582566117390598395895220976999990205945523225411701169301910362640419341608407294018105959688929256136725564385243617240412649023368133778798063226772467915584333795357813292935080009919284755332034998122912861893282865727947810588086156919649131720183722427260202144234109635
(- -9976758107386398142455037422077809088581080675608340830198269021688955930541332630075972471934165382030070969307731206728197760190279942894255740733209190331510591013089699837164445642396864912572863786290237335963836376543389815671640509582958465164874961381137096877288362944469137669502842448492172241151419831252572392809173900377271652074261706120638052379886108764460001026094198502028776365675088466580595870167840105746912975236851293882732079317535103041585285239081516202482201377111734010788198635874359396626004300532752450289119192633850562141516671742961938277967783337559307443617308447853505824391099 13449070890444925581)
EQL-OK: -9976758107386398142455037422077809088581080675608340830198269021688955930541332630075972471934165382030070969307731206728197760190279942894255740733209190331510591013089699837164445642396864912572863786290237335963836376543389815671640509582958465164874961381137096877288362944469137669502842448492172241151419831252572392809173900377271652074261706120638052379886108764460001026094198502028776365675088466580595870167840105746912975236851293882732079317535103041585285239081516202482201377111734010788198635874359396626004300532752450289119192633850562141516671742961938277967783337559307443617321896924396269316680
(- -8570952518585194406209873586517687582701183275108243979199329595605282282125006489076327154374449108678257552384372919282846744626955206382078850958298637157198962032090439427286914716782317030245513658212430127586764421559372214829010306717557679285031617989735914399954286846456953917915955558448774972943731602144914068097214910567329340361564904028964471241318105967747431610163083002382821902859161510204381788262611298660559327478615315484763561786397041779926288206767156863141140852268323253657685018587945456372648431446464389004257999049529945532453598011773843788498650935959375182414447893892341891463988 4431555062692055371)
EQL-OK: -8570952518585194406209873586517687582701183275108243979199329595605282282125006489076327154374449108678257552384372919282846744626955206382078850958298637157198962032090439427286914716782317030245513658212430127586764421559372214829010306717557679285031617989735914399954286846456953917915955558448774972943731602144914068097214910567329340361564904028964471241318105967747431610163083002382821902859161510204381788262611298660559327478615315484763561786397041779926288206767156863141140852268323253657685018587945456372648431446464389004257999049529945532453598011773843788498650935959375182414452325447404583519359
(- 4117976000917214601143188578494558474138167055110060832594841842655428229500889876131794484851166401425675703592388271925904534237338595998991043982676292549088043959446082382516734793718348862105938692342851330680670593768890094290655852108130945387988863730762717733881418314989528719379494082656897158942547008663543153236129762264443358316776532465284014215413819415615612452225913947961681691310132286840303081453109375175436902292224029179426794714036524361081174901146731799945483243427138748119832116750910126386838614645397770107366925613473924955965862778639046707637382775371488874447622330992324750207465 329466253508616383200261654231797136951)
EQL-OK: 4117976000917214601143188578494558474138167055110060832594841842655428229500889876131794484851166401425675703592388271925904534237338595998991043982676292549088043959446082382516734793718348862105938692342851330680670593768890094290655852108130945387988863730762717733881418314989528719379494082656897158942547008663543153236129762264443358316776532465284014215413819415615612452225913947961681691310132286840303081453109375175436902292224029179426794714036524361081174901146731799945483243427138748119832116750910126386838614645397770107366925613473924955965862778639046707637053309117980258064422069338092953070514
(- 28857935543824608075326348244201981931023939250259142606733822094071772153858420201297951828741003977413353359215638528196235956061529059419904405354390715114239219947402126760298132539402386106279333968395498788354937020337343839325588433318100331044091923709732742795159387846354148919054314582749477292946200912006940503778924320301062789466388997936618573519744795661160190636101768486096961991215006236190655062992372061052426455063703038765465688361316141792840153608145888307784845264037109867657483109819380082597605481013612040648149090345778910883349230476481347645708269410828528742743794495302359380494607 126536164564464424337714470705049463978)
EQL-OK: 28857935543824608075326348244201981931023939250259142606733822094071772153858420201297951828741003977413353359215638528196235956061529059419904405354390715114239219947402126760298132539402386106279333968395498788354937020337343839325588433318100331044091923709732742795159387846354148919054314582749477292946200912006940503778924320301062789466388997936618573519744795661160190636101768486096961991215006236190655062992372061052426455063703038765465688361316141792840153608145888307784845264037109867657483109819380082597605481013612040648149090345778910883349230476481347645708142874663964278319456780831654331030629
(- 3146199586408378667812619157270468624370984629500707476575291934586478540055436137993431548830607708293475788354970610669452058906009873485175438772484599603993015239438297747261356407887781450787482447252615210880612867127689283653562498484594955015919746443263740095372831444793239911996227663006098501180972347442107190398034048225264564325230296723559400768342331039755765597288518435463475921534765025262262798267314969774604439319964638461636007229819888743218820584570149249791727508891676067767073852694327748467914037392778283816153183422263956621516748627574334199731850712255885395479903525322397561293553 -169494171680584797187706369710105239124)
EQL-OK: 3146199586408378667812619157270468624370984629500707476575291934586478540055436137993431548830607708293475788354970610669452058906009873485175438772484599603993015239438297747261356407887781450787482447252615210880612867127689283653562498484594955015919746443263740095372831444793239911996227663006098501180972347442107190398034048225264564325230296723559400768342331039755765597288518435463475921534765025262262798267314969774604439319964638461636007229819888743218820584570149249791727508891676067767073852694327748467914037392778283816153183422263956621516748627574334199732020206427565980277091231692107666532677
(- -17024716654716744558842421452239026542281806678754026383430912733874686056449261218428541803113383766132449624540209841726047308927951820311213785345168358108138304716549475322223600292513384537980742126687035576531330089447100646214364923043445903103768701639992829171572718403272488931980504461938688955457870904289239032709146514866818331202329982821151580491257491540240579366183525075936339515949345815704583685855315810611089822402567649542290589282153225725537026309623090382054078872576985425957096858376112688308214148412270019118710904983829984589093557307164347051152307499446188262820058714564165108542508 -26845770031559702758807696432929071597)
EQL-OK: -17024716654716744558842421452239026542281806678754026383430912733874686056449261218428541803113383766132449624540209841726047308927951820311213785345168358108138304716549475322223600292513384537980742126687035576531330089447100646214364923043445903103768701639992829171572718403272488931980504461938688955457870904289239032709146514866818331202329982821151580491257491540240579366183525075936339515949345815704583685855315810611089822402567649542290589282153225725537026309623090382054078872576985425957096858376112688308214148412270019118710904983829984589093557307164347051152280653676156703117299906867732179470911
(- -20875354448001792153279041347864644172439177882677780548397567327274288309764204295853633150227327732322157811413794613378828291977852467550695289535036337326494269114787031260705326469002279939986228049380615128280814933748700667874022724707001736732724010699175779382411342385842744973636495738468838244099596215421975861650998954057316519632062827510021706536194961332185926551767127180751211669386674770139039516623606727799489291663572125587356845055646322930167536458093283930082765496058330805117442824718962237069840252138957395570892073194575112213410604881673785921789655406716271370732069643455590690035701 -321447426701397438572265325285879998363)
EQL-OK: -20875354448001792153279041347864644172439177882677780548397567327274288309764204295853633150227327732322157811413794613378828291977852467550695289535036337326494269114787031260705326469002279939986228049380615128280814933748700667874022724707001736732724010699175779382411342385842744973636495738468838244099596215421975861650998954057316519632062827510021706536194961332185926551767127180751211669386674770139039516623606727799489291663572125587356845055646322930167536458093283930082765496058330805117442824718962237069840252138957395570892073194575112213410604881673785921789333959289569973293497378130304810037338
(- -6750548706930727136186675393752693335334383613941059024795513640678178119089262068912855951615043660442324823673049951182143778744824110223137384940032268718291241014850714197673735719784663896993460156686600813524168487673234842233781654493200950459723884918456280719440022930492599128086690014332139955274261568563155723011697763382009890186816226119314994799655369791620499988988986590903148198659095740939986627235565633349906453726759224441608018598520571182643709143072528030332708598472074166415467718451869993686505339408706320298338691467040585228617379086727764240955696690287600957842671916189752415855520 132223863177855649509430852484092802671)
EQL-OK: -6750548706930727136186675393752693335334383613941059024795513640678178119089262068912855951615043660442324823673049951182143778744824110223137384940032268718291241014850714197673735719784663896993460156686600813524168487673234842233781654493200950459723884918456280719440022930492599128086690014332139955274261568563155723011697763382009890186816226119314994799655369791620499988988986590903148198659095740939986627235565633349906453726759224441608018598520571182643709143072528030332708598472074166415467718451869993686505339408706320298338691467040585228617379086727764240955828914150778813492181347042236508658191
(- 15737797902964168014939893286340956118635524170934156177365242966267432695262586636031957242055461736359478270642576860414422844075672388559647477705484719667060463718865742735598799928335211410004369240278699196301127699945374217439676378682879115442203681638050752745036508637214733712716867800216723838016099572951915042604603457902610639317648800296497583507890473114507231814851908526534709496988648572353272479026750068932474334642929727977996779536604912743446197670724757690108283368934769626461285961947257397454619164856011847736479229692086038931510067165282571276049292116713101550911614590774659556899356 -6114512833799784097991148713266650451765474382378581896952003894922931741133332233338460555227243451198289670274036744955599177213449957470212981501678055)
EQL-OK: 15737797902964168014939893286340956118635524170934156177365242966267432695262586636031957242055461736359478270642576860414422844075672388559647477705484719667060463718865742735598799928335211410004369240278699196301127699945374217439676378682879115442203681638050752745036508637214733712716867800216723838016099572951915042604603457902610639317648800296497583507890473114507231814851908526534709496988648572353272479026750068932474334642929727977996779536604912749560710504524541788099432082201420078226760344325839294406623059778943588869811463030546594158753518363572241550086037072312278764361572060987641058577411
(- -26633154627863501044020127597209297142657179797586777727331879111280843451446814109347357601013807189824906954310855123313836812409388745541128842840054310853220032505914307470215180950497357091093642400638925719682307925365402618310180378684705799724964274776149984064608716300479893889145492885897234574442542501896696821902329473018442082678749291668341477914681413039643187020003425962922948452894682558162414623956491734656939841377698702802567258906642912449969621455596132708975438173455827361542712483153981422051943690720556013580161324856788091093465837542336129629269227369781823515673967591796132853515009 3321161637038961370471515250185392889390643163295535903347391615170504064647249127732639364682803744773593849851778894972403397573953564801884397178069327)
EQL-OK: -26633154627863501044020127597209297142657179797586777727331879111280843451446814109347357601013807189824906954310855123313836812409388745541128842840054310853220032505914307470215180950497357091093642400638925719682307925365402618310180378684705799724964274776149984064608716300479893889145492885897234574442542501896696821902329473018442082678749291668341477914681413039643187020003425962922948452894682558162414623956491734656939841377698702802567258906642912453290783092635094079446953423641220250933355646449517325399335305891060078227410452589427455776269582315929979481048122342185221089627532393680530031584336
(- 27668394897866653012794531261739800318882766882548843941974485394983434533400277607364280566269718161470415771058329222680901477416257843578362127708934184467195154000133252468684612556324066063725677629160438683034201285122508880444372096430021219637788794365539396242345208611990491721052691567092029622640533057073151980959055665792776356282961971341363712186503783566960850166774438868528799819047163739437906559674823146932668464230936946321915236658512741918196732794332451120218658490129307932187658010681746557120172585093207839141764683325214902696969028472942954863209641597556494684135445935915485525220911 204625459185084436546676461283890328511903949966691877662249903659689934813784661695047569885195881142676761876303280806728760511429260843727967794322777)
EQL-OK: 27668394897866653012794531261739800318882766882548843941974485394983434533400277607364280566269718161470415771058329222680901477416257843578362127708934184467195154000133252468684612556324066063725677629160438683034201285122508880444372096430021219637788794365539396242345208611990491721052691567092029622640533057073151980959055665792776356282961971341363712186503783566960850166774438868528799819047163739437906559674823146932668464230936946321915236658512741917992107335147366683671982028845417603675754060715054679457922681433517904327980021630167332811773147330266192986906360790827734172706185092187517730898134
(- 18944451653774463090918576081661764936021793389045063662102219434278236461286997354190032851092512146937346521704215170240383659165117708716738711782597164244188741818096207452074083439983059414271417130274747048227795964884943105011205424198661201055104372863019759130697888820715782179466491256695453118035286889359217448004524564796840711987314064158194625731263591557915838970249677548534895064545467992194029425250039951132361639559343536937119283951538321037694842089561504643350632756961329867761604760788760440497535611072991056505806805291706178639395690245460397975614715123591611301423752799666149495108752 994321141213369910357526037382331323092462599623554452705525887587326552002660849455542761618020243106424015447778226642816634338781654345001677083881111)
EQL-OK: 18944451653774463090918576081661764936021793389045063662102219434278236461286997354190032851092512146937346521704215170240383659165117708716738711782597164244188741818096207452074083439983059414271417130274747048227795964884943105011205424198661201055104372863019759130697888820715782179466491256695453118035286889359217448004524564796840711987314064158194625731263591557915838970249677548534895064545467992194029425250039951132361639559343536937119283951538321036700520948348134732993106719578998544669142161165205987792009723485664504503145955836163417021375447139036382527836488480774976962642098454664472411227641
(- -25075128489482657321316021943980016828761861550379828525731288423212311433274066958090940464803020097932875912251380196071686918459370667428905844496548191635733867314315152547202859654044591981512687559437417616479425752991419002108503390319869665933757684966460526631533822984311725217788657567199485442486045019468844265484117570385156844404625735176559901986920712550964238722824122000259551821135404274194791706113272773768366572120227974096419295159271316157215551931810740200836725504693738229444336470213883741520460842708733150362983831267583568258736572295448486287825894301201018490203520738439038977754991 -7402949251688548738762242219263594861535354011996392637087346760786292549376145193266590582054224293289596877537643409310483743293801574030358189880866069)
EQL-OK: -25075128489482657321316021943980016828761861550379828525731288423212311433274066958090940464803020097932875912251380196071686918459370667428905844496548191635733867314315152547202859654044591981512687559437417616479425752991419002108503390319869665933757684966460526631533822984311725217788657567199485442486045019468844265484117570385156844404625735176559901986920712550964238722824122000259551821135404274194791706113272773768366572120227974096419295159271316149812602680122191462074483285430143367908982458217491104433114081922440600986838638000992986204512279005851608750182484990717275196401946708080849096888922
(- -26509487378481600038412836495388065888781507388737194948728047318975269277448073484403390476243134990463394380967295356958474984927721196047241216945988250219075749832868804186657201899994373052648345989716938779173325348547767647529160988985542438998030764420175306438858518207072038513664360905985908879070216069156102379349899544471658754952888660878997691670566078979940005195987259493512159628198906090101827331841914429358969184839073862821059400943312264269215878469013316796620921077244799814690434355127994011220041638393750697699141479399553359747084811371804524490919966410379714725200415331414459870271869 -9247155945465656153397925559476432992975541781462281935278489123804934847762489500833913193183733932905776020790478662969835879365116238125565077744775032)
EQL-OK: -26509487378481600038412836495388065888781507388737194948728047318975269277448073484403390476243134990463394380967295356958474984927721196047241216945988250219075749832868804186657201899994373052648345989716938779173325348547767647529160988985542438998030764420175306438858518207072038513664360905985908879070216069156102379349899544471658754952888660878997691670566078979940005195987259493512159628198906090101827331841914429358969184839073862821059400943312264259968722523547660643222995517768366821714892573665712075941552514588815849936651978565640166563350878466028503700441303440543835360084177205849382125496837
(- -17010604274474750006607667808593883725990508452473783283717890546525148212376267233909567638545898628257361383837671935903199638230375408397752251127816717091041943873728526445398525706450929660366518707254053655364610471112296477865068960744948010561798109833411657930112293904378353445961131058136287425064317621271289456901138718557297733713446119244533144377470099270824020439428168481914824420861176457152299497728390918971852021025089592998997807574907789524112450146545688385954763667980124432645276563626082835790429598328230426471161191074551543308732791287559033843466623138171520961684959997180979203053477 -17319079025684619178510812811805110270463447771889107440996086020812918555191263705580533644731591929176480040622705607552852994906782176254877135818109655911838591767583157894999741648979817400330572419476101372927546509769818404491634583907246692993992514876697330603464497645633398167129555001859772111887143352351860130929715392173452396253437927361301990735683539169040916027268831202732178553152351117118606495416985612909248422655861312689027789401950549626643389790516560291620711705848717875304929186131258525831197192620523261738944873398924939726689336762464320190834794155527335576391767307110012289717973)
EQL-OK: 308474751209869171903145003211226544472939319415324157278195474287770342814996471670966006185693300919118656785033671649653356676406767857124884690292938820796647893854631449601215942528887739964053712222047717562936038657521926626565623162298682432194405043285672673352203741255044721168423943723484686822825731080570674028576673616154662539991808116768846358213439898216895587840662720817354132291174659966306997688594693937396401630771719690029981827042760102530939643970871905665948037868593442659652622505175690040767594292292835267783682324373396417956545474905286347368171017355814614706807309929033086664496
(- -28362352496476494327713713233021518136860402239251781438945998574753662942796270292818595738100959519541952077905620088422871490191217157269435052965329201030095268586136492980900212955645939325800541690754639292707053269767151001292253701853012092829784482071789669480438026889625605099744553642207773753943711175375843649210118677569597324789367425691177169929576236753018329085700397911235750600921874606148324025962628852167093806152864269874177214562322576097931390470469397118268354868919899638376323751276807304678316688836173746719723312665764603485606350244811113608471530958617108833879194264695174468397461 -4081062111675377984305281082755054920741203741273067094307824323728798665450292976016160959354997082250970415737745853292134965575242789548167162064123232363464302136338349828801951197252612093077640695564825095503535921549690447893467349156939791370286866987224201115453216606688305427702274940837032716124925028835914047967887674858015919302546781010326385758988488478290741665427521820112231266659657169118374988259423444686317389869729817643396097464874333968181509317307320406521221309011946212308190273531009796563611621389720223920155554879800901239072885025170342349379379336047732368458185953903872634982504)
EQL-OK: -24281290384801116343408432150266463216119198497978714344638174251024864277345977316802434778745962437290981662167874235130736524615974367721267890901205968666630966449798143152098261758393327232722900995189814197203517348217460553398786352696072301459497615084565468364984810282937299672042278701370741037818786146539929601242231002711581405486820644680850784170587748274727587420272876091123519334262217437029949037703205407480776416283134452230781117097448242129749881153162076711747133559907953426068133477745797508114705067446453522799567757785963702246533465219640771259092151622569376465421008310791301833414957
(- 10367142604728811799331249565431331488313655422005202933702176605382043644320209814639311439871418581341534233560256605231366966869093495784665834232350567124110194965198962966795893926025854156729633358240069116588609932539289897499402463770167927610848388138020589286461244557962368497723086593344721146859584146431437967506007518396464517349944129896971137720357645026281243138165214047233258394590454775153944241555543594427555914116439316287902470043292624597940465373006598913770411505099332700167695871387948271302951230983772351549087620538875967635100644404345317626621438913980275970160864401622986870735123 -13323117602411502623386235160326625769048477819798659261203460002048250420188223753407093545503703207645050883770850457071863684414849353264890601744588860687970804808452855795406182324143949747985869939791374195222513169904228914579995165180964917538177994190229733465224857616114628815752065632238207474599531507602861647623695058640735949593381112671690796335596142010430124683781417828023076027476816068202219709673411776556090962187853799456968290579708094595903778622705850818245685205707447012659247018940946510378371952655457988959551256869060428488498330109152756599450626641948447980234503249330875085656261)
EQL-OK: 23690260207140314422717484725757957257362133241803862194905636607430294064508433568046404985375121788986585117331107062303230651283942849049556435976939427812080999773651818762202076250169803904715503298031443311811123102443518812079397628951132845149026382328250322751686102174076997313475152225582928621459115654034299615129702577037200466943325242568661934055953787036711367821946631875256334422067270843356163951228955370983646876304293115744870760623000719193844243995712449732016096710806779712826942890328894781681323183639230340508638877407936396123598974513498074226072065555928723950395367650953861956391384
(- -25321281404861286799950777949097462701962113587443565138655462269365151737118518315058035825695270231347401755128007072923189452859397209062457461602335603630181865680063451525170253746137368267674863889514153713728814272332433431604233690200451816570240227260445028630591376891139306370205846627093813889699170594185178241812081296510140572331372738998993116117098817936927692238682202717231675283209016857095739468507690090676681400453024293870135659990528969837132054786661560150259115734877162158755858653364070279937027014730947342216816307219127474721622123875699701715404820384545693058511056735799834754890692 -15870257059811626693754498423136372480069134596343998984549199283973854570508228359295418026089909378687774627821225399931314225867711515277913855368473873536462450935842786002269065816311054834857109074848803122494252885020527074586145467185882674518032764708782999568002770206995683800833252068328835778749976046128872525287656002968632147457840467536682726059599593635219947081138082647985895437016641903078766878782632503812736486529143041369932038649270950453231711525943737962179463585338023463992816994328519710963267459007592689204838965317062070771191372220277256094361390952025057574056586665509010902583686)
EQL-OK: -9451024345049660106196279525961090221892978991099566154106262985391297166610289955762617799605360852659627127306781672991875226991685693784543606233861730093719414744220665522901187929826313432817754814665350591234561387311906357018088223014569142052207462551662029062588606684143622569372594558764978110949194548056305716524425293541508424873532271462310390057499224301707745157544120069245779846192374954016972589725057586863944913923881252500203621341258019383900343260717822188079652149539138694763041659035550568973759555723354653011977341902065403950430751655422445621043429432520635484454470070290823852307006
(- -10064759312484387184876313010284016458560725440641239737323234767636591183611201479885347260175161165340917225306019885202675573016295152797559983194160634880140345743489989007821872426587698574795394887035658449467358615185057180305109018898637903449135520486663185036663238956537895356325733583128141439025002140924158670346599492383552938312402521066705186885506193758499006001382444818328802338159713646715901977137011576113434170842422373328479181457354927400927267448788528116619711184792932525071391797130057189079431487557270366699175956757661488296856660145077706273571985222726397848614141194988258117115194 -3689074607001776735792882994440038588887963294487080609346609068733026224735369468180206799966728461935654851527895876039403151156669223687679382665269013769686991783531091821265184956524448064027733731862929686596729449196238312997460578818232100254940830907672953344544031914926653652310468671685310332327057444910423081752028857828828473637496272809899061573593874011995802487442092326045415689987885712749026491545159340468151000027397821404233369034594141219014219707193746581364791219277489927025992135462852894714639406751538919395016165215641239054420028872350709704191189169571752512626755385998505584006855)
EQL-OK: -6375684705482610449083430015843977869672762146154159127976625698903564958875832011705140460208432703405262373778124009163272421859625929109880600528891621110453353959958897186556687470063250510767661155172728762870629165988818867307648440080405803194194689578990231692119207041611241704015264911442831106697944696013735588594570634554724464674906248256806125311912319746503203513940352492283386648171827933966875485591852235645283170815024551924245812422760786181913047741594781535254919965515442598045399661667204294364792080805731447304159791542020249242436631272726996569380796053154645335987385808989752533108339
(- -4621513851362114851854472268081584822344822740665629177305004335694395719163541988311496405455186973857145245414214464449674464879082042971313025249648887349614046805778335573547862191522938924075560443632614665169520240664970180760364771373836023824195690134618554368845612471858027311791638881380352344527105480173917778084361560336490212845414303819150625355111300877737042696291233444311426721588476948565949641149735838580313236869041013210454558557732497012037162735013212361842433337324577522358968152852532145622765032318936569346015498130151789662274686368870963891262060214274101000058555635785833724062234 20283847238128227963042817384468009365120280641032764409860857066215336820785816567924217697745867082423864450685360959383940995237907453126362378908108545669654749698030305432673477271848544313029448526561606175059997663752601262173667861202924953502866611309434183496911206954880840674239880495147451496219568787221129244201657487090244435562896841733049066453539864301122516559479757096183362477594406691085946787803323712522074578611082872627361465163804239673539339633332349145205596371287028267780080937728455742966681547897652607170788637996317683436193829274172400558140357237480809582038468874094877651383053)
EQL-OK: -24905361089490342814897289652549594187465103381698393587165861401909732539949358556235714103201054056281009696099575423833615460116989496097675404157757433019268796503808641006221339463371483237105008970194220840229517904417571442934032632576760977327062301444052737865756819426738867986031519376527803840746674267395047022286019047426734648408311145552199691808651165178859559255770990540494789199182883639651896428953059551102387815480123885837816023721536736685576502368345561507048029708611605790139049090580987888589446580216589176516804136126469473098468515643043364449402417451754910582097024509880711375445287
(* -1412797070596191471 -15492755620416346417)
EQL-OK: 21888119755986895161222137392796809407
(* 16686841096925954110 1491135775021813104)
EQL-OK: 24882345731730524499708005167300657440
(* 13262412958100188045 -18379071970155621919)
EQL-OK: -243750842254847872704698616507823758355
(* 889503034794263569 -16600674457216690894)
EQL-OK: -14766350309325860687849239111838240686
(* 3148165694020236318 -11771070679825280729)
EQL-OK: -37057280896113409834434531491271315822
(* -4443818546267181727 -12001052312087213799)
EQL-OK: 53330498839175802532024121011435050873
(* 8305259347214213793 -229351169208067535459370186456659711595)
EQL-OK: -1904820941859811670566233132773219565154696335396051029835
(* -18273334758510166901 290047155020180552782039318570071650475)
EQL-OK: -5300128759437251944808204783222405076790289915320785927975
(* -703280433697652940 91110448009482115063492795153459771021)
EQL-OK: -64076195390496041906141380919369524419358692517527451740
(* 15279634596127882146 -220998726467849290098339792307263567896)
EQL-OK: -3376779786638352686104608499923871317791563686466157184816
(* -4472497681184076830 325612942672822430032905460436166528379)
EQL-OK: -1456303131067722058341139305566346079551678140995111358570
(* -6180420673489141029 -161157288800853703711204405567379740552)
EQL-OK: 996019839388256252540244286609069684717518686623358308008
(* 14044956603588468379 10163190459901171254101452124764637970005230126310661589196828892266636678427020930101076689732526935899135126391465178494895371156141265424428405590113790)
EQL-OK: 142741568963316278148132287599703960511135825069792278910440475692913696263448088587778211787403889397993501704943449376875999977937418748662459138952952917221024170426846410
(* 2133283347509865817 10577710515843519541178984366353275630877942729579274295972091544607384358263130633386329706527832990861547566574369528634541156662300858851752195966167381)
EQL-OK: 22565253698228972909216255630133478029433774404794962869038558824053350969301054394347471181756471783852326407546652836376109109470959746153989521923555764579738243072315277
(* 7812722507014599311 -5055959518947106416800910724733658104378582281318226107212861190073091017493970778425583956006925004399967175604321778956828368132273155364830637407968648)
EQL-OK: -39500808728232764770485117356353304373275127104839804121600969932458363071148383405901570717732548020267052999198017578112731079638156026910705662052515278317807704170401528
(* -17560801708050275829 9842515227842383346577123873881045824143545509071137371075701856197189100217561683579562062872293951325890789283651221922663521213150065638405410634222129)
EQL-OK: -172842458224605375239887212582262805312641302639067963604956593404910080268476692854082531021580381176489626536608405283010496488558204787140272050713264572452317265305619941
(* 16743386830114877156 7347065846171565625701636575261347705942035850951855454324853850791855951431141198155170102434274509450315416946729031216385536668189501958761688618635668)
EQL-OK: 123014765528775807847206414290825117502032199391400884957413813554539073118943905948723779020186281150198999824020769031248882909461419778092564985979904308229718874140000208
(* 12697192948029671719 -11416780209809507417142822520376617951137069007568339428552592261458272400645205700952156716454820410468812274673183389934216970221062627926131479014990611)
EQL-OK: -144961061169197993494569769162151457365959287966302572862364500950127981616038900865036521107816831702945678695331078399461327412574397914795455218447174498277798426197230309
(* 17005139720743105479 -29990519259587469661876904501488342396062731024702923152492275204626478246142153608222329335341363164148761307659972897552084842238285026253664841395295138667328930482145590159132144957515157474957872335043653264146346772142483721767458961320947069718037828473530001033848282453826154763424789967441239969918856795769965946388666154136004597297855416503729657013008165049478441197537144135384444157408972370236442813734429031404855591324183846423588871065272526864866155918285777640819778251612915859290336548446745308788013234099839998683451658620461972798204104633072664604846231692505409653434538208644416538994256)
EQL-OK: -509992970306921990341332390474393215554862069848994183152714032617297815196921655222705396130464246880845576204295466273071779248718654338767559016551390771145212884412809612574391658668778295682412755916528976282396155832617323980694289208942491001345059122414240884660276842648466533488559879226195446807748573906940273568334343093922652142252689341425941673567630236228358747411926991658260241924294146562230425295426217833820067881064577380516936937782688004146531121831211284735538742160763820814174631414364095096099434285754767091040812242751724012532803037860394426031234340719537172735695313262283511554154662650333168783128624
(* -15877530153400521290 27863984127681242643954505352420303514833683768731313003271701952957204538094398204984051331105594788039352443762851136101330385230866919393696564428736685568762923746771275677491379334452751710169529933675128178840986001684425353245791752781476028565228371147542431713985092322787978914276414008774443194161599919167210582437024618824616489802661351916633993681556274980075051797120207655478780052593534285265078265845445633803877185868676955831374479850746658711791169579387317321983669227930929736238215792068273805543745311609083833407544342964285215427999724272264458975101474080574470499647168865409458531868592)
EQL-OK: -442411248181132450919255517905812929771246981404050821923231762557171158858876183536414772404562764742655092127161703706239729646027465795612501446223663310668879007072125975886873343449629108246953385822769744013416908613100114754904323190537317463286500657291202287742354250227377164455244103312266617146454847578457073139633297517170508179596166314955134347046515455569689877574427319658085169791949003021426613961459610227430636932814700361914589752207776142403364490846294795496119883683491811246550808038342285518518431538295199537270236275774546666026424361019715280652576803278928827199810150387207105149968313623040090578323680
(* -14162897687527555611 -23016403916121951319848021112075986869602408568431399211927062304968548663313037929311574133954267816204873252195499803324830278637331653769648377216095499136975244697758388851688873078022850203685120154634090802825656419418077380419130449990938627982123188424119187922828250625318327074513352279785514062876718714640725789938556578327139793467832731546881422469843509318627826856881082450937188956068348931459011923844607158528494902828851692203126881727638511348944908726926619613375594042390434147948508706733126737304560579515324106834237197081860910657003346633962662773394999353766192391746258372744063777808796)
EQL-OK: 325978973798843759388794644178802841408656469654887121096165875654577046313115917671847505813174070119516580105483409446057747653173640660143855580491229746795572929387698247460831363721394707501497262525550824977473864621747159715947297817600227665840640555029633517390896890601028716769035575763283168066843141870124768085499453574902575378368669494153555135898430469356384416638130459557518713454927909937610851489821263029886989981438507377741962130296498574556444168140838201069779040087521405032426995145166201901368032136008107323350679784004016321425234898132080844200202007395427054392280809376612533414505539109579739614954356
(* 10844738523441551664 13010289169828379103330191247192587220592807931898339555723704078985668371901953113936581573750666143303899278973814509164982887504269303358034042953769514772858989849512527461308415676004712388964136857232374888643347097138114199889581495448978914022318770898259317738823514820591042321773469959130347470144905381758960436645008051488666423115693738341045851119808222048272924385188356021826450267608127588500233526688704136268009202730309974485584784539415807259862449203760469406037505772435323036790641520939576046423540699016607317147689982042035523118533555744274806239272109508745089640043900389441390176681340)
EQL-OK: 141093184161152226992592021994885140117836445291515772908453669279294934817987511015413332614094493905560980363483549300117114491702466085602279965168041684355125886388302948336158133555051817733078300668260616983283027038746214728386770752826764135491650323133831923154477800324207350667020747545837613879364064704092093040155243919335078139087599906324684688427176309081290932504214653249366429592335409761783188358003723753633106574740731573467850133547164922532633897844647383889253777956821171583261238607289172489135768839436605233457738153233579088224808850428203888700116300637190661108848906846940291749737998056247719674749760
(* -16402132873169057380 8202725117980211375579199554494319645475746305836527475507064811368616698686329266053570766100878145903342129595869654087772486685252653587846560946850102095086896668181099435964053041678323706849735936082196618754721606824996486473796843333331029865501790248862590712245450877098960007272754260813822886287008295409755783478345202299352891066800825979067590290793893933819913530599309037639082839491869155044147367415785329077864525961799400923643936705317921900308490987828345313709179960659814100113658528990241758360711799009722683007157350272749544178688961738222930753008443755881419398858537860612954576778456)
EQL-OK: -134542187307192759584182063854799850608007421111316277594191532129597970622559949723743396309231347084450105499455916612009290113746722460358793168839937004812915757145655285798961178877391232945062437277255128401572171216279188126380587081673725314534095093062983435026047851041796084651601813918099532876684901239903769891552275465470747567830660442193995685219383258617057944010709906130655663966913354414611799232001438943448374556294933488875450563987147224709383408815994320229340710143082135667640802837699940654151297907451396297241124380508001357553893328703788960812706653503939250831164194874527033594779746890593262611805280
(* -12094905083549825231 -7303327854122277566083382629094740392048421584433028903125893639493993705575691832165314461496849401726460344615713884253150283931509897329926825128629833541892164122168618243719393446304446866677253728405617434021389128710195093788280203239300086905325641224801020413858421914412156234316517981228056539721130386645649016559425091470643854813419057026759188125291655398451427686659900364573485593902992038773538760663063071699966278379037038361219424927031644750173900916227834573604566165762753650347331082640552394430002401423199016978155236550541225512734287851807727860645247391524620773399994302380387697957581)
EQL-OK: 88333057189654571362020288527489792875655269960629008914349561689924145109953656394378545526256758871407020025766992398117775520525507898420898102744530402370720932219749861094609497366188371774072368034971851022164946370916317410415503705484491514312339956381120953283812334833067601825812118392757289250628861166579446800637104996060739031010579056633535166403083327528575504427815713481850979373113173151813491831551023902022537957860211597622343157802805275942920911544696695931809085743355666792408029743911424760065578742910735408262758198787195579745280191859776661700139596074108035867940154338953640690242795671183308201526211
(* -81618231044418675360403541307856740187 9751573706924018395)
EQL-OK: -795906195858402819552264165081526765614024708979523739865
(* -167600745660011044249531125104202473984 -12960244919927910377)
EQL-OK: 2172146712516287908809731894157839567367040369214826131968
(* 90306383312124738690336097936949488486 156109477991590792)
EQL-OK: 14097682358164298866835386043901377722456291173827620912
(* 126202800261728727198105694812165074067 -17404362862588500316)
EQL-OK: -2196479330029905727399352310201914876903532806486592905172
(* -80093647977875266525946940496137725572 -9499399805878278852)
EQL-OK: 760841584053111508349403804472960020663660465509267203344
(* 304052889577333477963637861956318521374 7233536405885618691)
EQL-OK: 2199377646072361697737485358722028853038393128548297401434
(* -124787646062877233829165925777950698937 -125798384154373172164515376683173327013)
EQL-OK: 15698084237137783175768362160964949930745617334715009097620154581879012485181
(* 259623502197082370239517374851053110076 307089583871541575627915295134832918432)
EQL-OK: 79727673252974285068387698133566605944659309374400074880377824560177225320832
(* -245358177397026033963771466683003477163 -285087883756432161967673595037725276963)
EQL-OK: 69948643556453419103498093570621669430956866597291662675473644085666220495969
(* 46731711386059374483493216849082745840 -216522280665540473581476116002923812173)
EQL-OK: -10118456728713381305690589407461434638634240429858378588644634276171257110320
(* -301422430661955757433852743238845048860 -737194742467573013847855072675441356)
EQL-OK: 222207031145790358162820429948896977201848379524899474475604149595884654160
(* 109781582310220385246795023904554278713 -273317662617851276579672019029762858338)
EQL-OK: -30005245475518685175699313262818315773200953201653075289648004177366787958994
(* -312236719893391897821327608828679767006 -661158307192284418474080017860142217763949256471548515134335997907628404839044913830388499435166012788226998900468665646723366842553747501004752506346280)
EQL-OK: 206437901167986463762021023207669068873036145952740267172145693855475451354717023377588805030022300923600718715029262618794758202955817341818233889201852381575043965927328029955969846754837680
(* -134379788461141842858846278268259347105 -5535479645589936472405910397299739073641612836770238183712206042659632410776896398062277742229906915852933418684231779996404071421767274180368154310128427)
EQL-OK: 743856583805332082970350662728998610690268824090148728726850517499798631519601137183443104910590855501252539324674812560702657332874686395923181633958702249128106139207076314713649515720653835
(* 278271843790644800793473851247546123375 -3845690285506025443856370771250487683891303505653819308540635173436088084480277686684743918745832832765066355874381847690771330587033980524869033600561589)
EQL-OK: -1070147326395532917564114389205677334125034378502074943828571411806344559859053091006175486397820822872698474899835730026158782698085673635033947150554253148685482702599776833910878579880042875
(* 22345490710865165412267189692679994671 -13168094845644809414256057134926669929759930873747535851687323456073141938879368460977723280750841588750507348317544461824280674332488497533955177541413394)
EQL-OK: -294247541053147552931885013427268298282376074124656716577088212043667912662239091316191145352314750820026626159649861330384837204227899202392764926604802655267738710003310052268554637728023374
(* -223445051950608517881717261787296926498 -2609806601119499724524852022247741111662431776874117401343811680374867931883996125145979162937751368655661775097445043144114599069842524778189198926688379)
EQL-OK: 583148371568187658089071213924575304457465978545376486297236105670932990897420147110485946155066725440999079357995678147717407410446012970360780626554347417807723098476525833332400212113766742
(* 12604140228725912459681435851589379433 10671266866958584640992033560488052420339425977492420594983497264069815016478448589306666811246532193922229713077112601565462530332258877522384022088660628)
EQL-OK: 134502144009302626262781543880199144227907004673612064586081220538754991037447647926963488301214672345398823354945333417956344119228084327815583754032364976497975702972112644238248704660063924
(* -221289678591114384943252477126208006780 20020996887149770966522122735176842174467884990518978494604707026520269232864200848420530223248762875769520715632742683760311747174524709550334825291720803698613541109690224185041740294906022358446325921538593105347423518731748623037078340006459454656405997570119591344894717789372844612253617591807770017562530034107842444403952657949565007792107071767260484233194674888488789619319597151367813735192433631007526015463229060702510632792171187339118004038505860316305860704455466207113207893106982258864355430481457640304138738182009363353560090082819036973601710432437342931523433079941958203038050750205966472435692)
EQL-OK: -4430439966231074415853738608900692925851705818190624801199561884242897308817127146763274284287396980593383317678766559004881552228480591814939402896201244425805503258878061459604511214900528594870260206969839682573246490602076070316760182753341371682323914671418233629420599310422437691170629449435494697829163966912842611408632129590129483811802031178053300073562716917597174161526976287351465154825036851645956354853960835948518860624747958440181683978083391663149733813297698623499283645627889274004656942800842013709298338912226207338477579862672216831422765369078886850523202897989792734789430796029206661261129141144642117177625405158700499049991760
(* 180785619668676509441152734583033930295 -11909038209406834057075682058438206007134213485822042209417443270921391661498900475635417780140585878716264253792335317341527677051828500780153492153490249297998660274828986996948999762620400587091118252205695562417522111840305140989214300921122857271717052213225664738544344394774362885331856170636862181712515248810239601812262573113794334115259873527539564296101166439562124016438281173202196876398090029995104489712272260608848551754611421227761245487365953257890749115194455096508613617028024932657498899001119282498614739316599704645009607294747043489655424155986912576002393048535846081096337705941547991821928)
EQL-OK: -2152982852345560218506186041143281789706715672110278207735389192913214838321097754496849942223194392302524369156102301165660674797665128931611291246607346536492650554391248756408556789391955568308599431054809433808337036546281323840555452571430884302696950144068129601527530304907460164571704857360215834011779559395577299313379666503707563751314135201994045874159291100986903645360754621200008830207429980872071814202801994486961737459218017354210479544121100423399040398021780750351097082070296255480707530391964970754186799748521538525274241709676878827522138880241734356460339681718690408853314007343934035505873192699052380699509877559455199604508760
(* -196121729286794751535600080816329923561 31755463535476988506639447113088283661031267977524968610501132544098607201258848456920865390506381665724254592728643925608893982794532243733117636645689751360224314774452374503339856173343683819017479955914451013484169313685311530532055735999039466721411777061709328450052490025363788971916050033904534189719389237878257877112162843506491071470067738867693853480174965212750301808781573369342701195147083717623066339671595077736036738235636996351642097684597005928843274525502529735435418805821748637387888409663397547514467435322454217015563134545731593492200855670248739786405074231658957946422903165662016649229286)
EQL-OK: -6227936422881500100190187768375947805694946596622670066116457374856427496311253030141271922822486386675428302332027411428470488965226898801659352566022706152307022438261392466548357753526474097246042956052374187605144719189465046544498482461077851578811186829094445089366592317045580466302238653533114619908864036973070346979261546801894831273337217021756025770590122176562027129481076270727248949609326868225755958667670279949371399535144788247565199415296122873444199709788941984099349149684384486618280260678252604631431089580057102263617056951788273430713908768738965854953667135156866028646584137788146112300214498814212865170902491169332389942607446
(* -149247491509558553673630984739524508601 -9241905448313719916485289537122695595500213295294799660583133638026091750542612875183284894676615989153030773719811347110864468582634048542108726080717551794580656021381515769591713295631818532114918070215760259364277583650102628486861397602958930509695263902920994329409932518607260720657755504091822028630927071374796474717671220452208310602827254296323761245420486376569048549643478954846020045263141546849795367522490793641049509748005893155533480849922847230018411440739584477452313387881413141538766185123978087175960946255649923135634987656065468774634483495944248865774633962770893338531522570776854773975281)
EQL-OK: 1379331204929344851843348280532786532350930013132149419346606977890849868537539899667631713548510207947097949976792337278764045110931774279794402312944786743575421497528669859045492875676005849752425421867514661792129580445000023570590786705609341859529483054902802038173138834528021423393677908655442991197348183257271932188161681770513283703502340499171444058119260228931558784004778969491586252899270869275893402714040693571919281494643765571068045362364213060063345212881008657925426024923296369533374671614852576576041747836643356665301762059898161073609265572267138950725010661453917338098901465732991316661901878681888138048552901254914604845891881
(* -246070233154436622785727814428081917418 29761582253452470642591719346200231425423204062498655510037025199574178834762931489817919404889920159374886981199608181795387339523762458361385170203883094308920011218315748466148953320570427838912637152446837553950810011344492780712558515815917745810385725989241835877316836808088478276603934260581342710503593237081689944686263274319354100341139245512159619947319496638082702549196795236216458749363904150768879765280332386830831409591769966706351022328535490587838695167807967607003680703048770719240872629379640571077329748828739281770075441660330884779539288220944313294762143588847790653176774089774033399559617)
EQL-OK: -7323439484151992757431054484912931979861244043627630118213112440051387392428853497035249623931234821362770902740177541812170377563064854590834087655133962963430877452052749127605572395112726398103244974178157574726551814002744001021805127518246639418981066588073652668879613252372759895389345727455380224104332342029151667860553645106555190741775758687650292791318963679857313030729683299101577207875499929500963723267185390425716927303375831321783415003339099100562942730763231688479910689887284950156875532151104047755803876078837921949287811575034368641167438367411569736575067233548122814012421044943430647665260439418887639347030312118291762161708906
(* 203826295936164259559522643510940430939 428315860474710981601019542870649234168732095026625500771233691514247613083810271191136212287636290276352210600151884730196161003906066671915478570992925366265552107746965374246537358349673161970290367972281768471743836339191023211359427335141701167253694144280251188008871929010775436125645541749886873478179599464478734149706121117222690271210887178499620737860802605991262799781279373870647695125320153193063528861104479576369448865373971847676465682752435142074973627172566791961541105525781297462635428308325033717669972726101583722868689418677558787287897456521530400671342257419067050354522203242849353639864)
EQL-OK: 87302035331271280954456598486072605056704393103691656908943847729634903654600322194677794243221825233700566108459784062758955025931450719283517278054268553004951352280583820782976072352456972931479389375165173986780482062859853305469143408707179895843295115510597584169486406323435925707638987591151227843652210256611991940374072593149367903739596883229844326054223707236369465710416960023659329202073724249764308867733476242261506975691004092043954515337899900837434270833782490145948781128533218641649564543508314976001614187701395586824982250794852925954991265270537649691628899148413763865280007928191637215283244406869662872539567459561720369352296
(* -5899540498246269366107488541138263797694914692322476860852796858749106720144552037986906792251681094769894732746138541066810195167688318229720888479512583 5834015210744942902)
EQL-OK: -34418009003174534626858248456163154666511779871358190892629413477534042866009573638264296461516598238780495750056279721797403178867717911762916049857737963922333901125535866
(* -7558198374656605586076446665394545534375963428962439959101805545423930654069723860456022097647139432324162475685494459942871728608277717748075653794546685 -2079670855873590264)
EQL-OK: 15718564882684481784074014915267371190416032453294568239793060140651422710113447422494938907375595456199203928496644205320139985222135619659630853564447794621716315309474840
(* -9442744083812363570102321552182535031605446031706376100893354933468482520577272174689455502380973733378565213055641110431767353396963744600184737808983381 -7204974197101757391)
EQL-OK: 68034727473703353914019458883709211780958983263702756416891835054494728840771498925306650413027883039860202168095834137357212487561983607389479135319040711944281262212918971
(* -10658732210276096534851972646242288663170038580488752611749460640657411087860047053151548660331707024718100598181073744715506934778234716535781332588396176 9193953347013373121)
EQL-OK: -97995886679587166046252015742839992974979220158813197140160489510432960510418039749924861744197553021702396544307690217470606424904065359660871469041838900287446937257585296
(* 3330096979672637104536573277593029682675932033891010715180474877149733802060455951241981993421466123791200840797318740359792251505430948855600408060492000 -9413190658845804679)
EQL-OK: -31346837782105095097578725347257193539696338226258990009265748336528353873277500144838721882313026604404426563737656928378230261942407473822851842589487713775609448642068000
(* 2224201331350479188470378485954814766783857696988331736807430786504130570570323948774102396158334805040994159865821844362926631687258969480929122732089195 10226747830478556903)
EQL-OK: 22746346139936030910929166328517425029735137934434969334578972386859485783192993228082340012742115893176871887387993591191632260444955081663604449277961804869872353878963085
(* -12394770820700925077767705800588617445613665027183406054209162910642613421436080064653443098327137503596792411463268187212855350864330592654862321763110243 336135860956209890623046930607725140868)
EQL-OK: -4166326961171213704571179876442248501325782360170764344978629523457550315208845439497110652079907652744850691289494398473488033083739905461347650605270023127087625641779424751335704552988710924
(* 11792778994619176404079667787533709801900490264171877873621265044313417667869688303207909681289642260521608966405181881416781694320672906600599581862090088 -197661229068721548419113517262926820105)
EQL-OK: -2330975190212228827672814304508257223671550753091700552243633152084831515892056240354560520878171696176381845689952044935988868477421447557890739834031207059212175922089523097911477486879619240
(* 11608994516281296345925963401821217560860934641820086911326880657644311461955556832927259499969983808078591149768068360172431078248807463030805586293656663 -40654941048774156019243747229920736005)
EQL-OK: -471962987694958552110784676392477007070112288398143925079396435246284471999814508543057304008480666763661066976653446723271982094424149279649226771823800871458389214002872916339341019732251315
(* 4821517917539756801293776911844480642406562140007084392649374723119190602353617113036081438891134008988421494142194891002983491670246762173236312873933599 -255528396376819316172341014108564420589)
EQL-OK: -1232034741571035406264710387186737842510579499938716343220834781077329515145216794636313459582844773420679078031627466542930137302257934575129329529129776153159694412903937370462708576694469811
(* 7638751115643228563298483305056828584775811590562130101723525925933790010789130133831569153863129513189315440899053288261039147463032870669035935364282061 114438828287750304954799140618669114911)
EQL-OK: 874169727255956505920153418854946321208907128396839975975317705220623267360648189969313978740314703015845506506608054761304647627635292132043887080298168302864314697920637105700927041824911571
(* -3653826017463740005170218884285271512636869606149686475539243914909566619638259666405831445823138528809165270360144267462878986866506114069923299116957450 215752050445782448772085819939961259625)
EQL-OK: -788320455239949216234629350585027855111249573063377172522422069903710014529292638311216050777840734448624510386643245486023092483841464815987597578151663227035102742664709136512524899527956250
(* -43242564273985683175827997542883970694363047476880657467026050730764924897992516355909421962249292250047896135687573746158665836208681548975073555418266 4424346097667245771102179669235543742385176589624011161914909311078645828684936231569739522607200308028372644149306431599085361996722603718517735348761218)
EQL-OK: -191320070498733614136284309000213964486426347688040889144514933290125387693498098446328694172047943298442181705949005984031677324306763731212307716485454004382079159622650481983102917517993601466178931324415483972311904823997211920702201161092866663969163567426868740120661073974542958600768774774949607988
(* -5093597555679260616199210906198149266592665304134802327659606846977583233938836318559188141955851256260954289429418183711191354912372372976165948043123133 -2240632735861652612028397136046974907251405868353380459030143407902436514978447480884513019736738955326732458088791830752499716417751919868492224207936623)
EQL-OK: 11412881426559848135724717164530530041659963797467536748076144863846600718211858527283843975968920120508569299672573958424908957105703597501013710262110218780710678312197455759181436286391257283676806548463507528765947919856827004176416634630489598937924092540289712219714362500246928243091408698274649199859
(* 6049789822056553589237940133475342650218069231558204589924996117723031491205673061674252841792149409384720347601549237626288416453061224734057079515141650 -826416247951451524584060567988229017033981218652490450160817307801130685352465013890931297548015267655971295627931896259998420078888499206031390299169584)
EQL-OK: -4999644605638856588581238481465237523157457201817697008198975191261856978252081380810200468420738807464233192102972784271159116426108806200426852134469939032473362689081653859652824862066224063273799612269941254948709760659691148103622071316554194507524610166457990087959160807415102946877307193349131573600
(* -1175978338162966145239180473229656000174129248706173549637767835154921467129547950144109700900405904250603515318348888619371004435353505449762899046094747 8633693716102199391202401198009047492431980605560930404972542822133579985462906768067706391388213605203282586546130434156768523403030127356256666478340720)
EQL-OK: -10153036788469908062299722391986722149392791936544969945546931764708792252481931153733789787389051773529081688846141949513463792442701686406966696738286561777611293604311491896230769507535896070984747493738525389837795316954065260075941524322954935690803870500012809797698319359975893462672845329776468197840
(* -5083395547684319640767882199938390155755986838939007846911062687871291096073452055061784159768637502151635665247461348347470360218957222873087414506633886 10813098236568616588240471432239693891825284805405416395976866126102880121934298269375465735278296789484402954117593716698067735458182402220278016922449294)
EQL-OK: -54967255432446073625448401244836956268872685687128644401372608170106281377801209665004925733448944141633739594240156882328181133879414641109484442890809130544146420476457200729843868300396656004198615619691952536924980482714767859804902602805398865249514544806725162402291122143659939645240358379962457176484
(* -8944626200084865988157251013718979706166428261352840753194709093968177704853157211364231059892647813839391802007588961807572842923682104089512428902387812 3814836951264415657788614449012480613328314590744410079075164918748648723114236698412482309581077603776489883375576245233128800002373843611668945838558629)
EQL-OK: -34122290543331565327874124324135450224668275222811493728051290368641401807963502623692504750924543845019291736982354932620821594287780848608647686402233097059022704206628297180782771812500512744911371653368388270442874670230118309469599458827222162362901084328510647514081302476000779049412605744638457029748
(* 5186176030253526423885531264483408352469356233262336223619904269047786350470477526433506158542551137478071074193659876898065998079440819597952826155782068 21428324964794197485898135923805540163916541943812058590308650649384013587098638034673796533027113673143959572855470411726978105342739938341516634354246514986124789451866589211982659199267654387148420461876524076040233779391563396552267276880650559148637067641021059664960876301072636635299261389450890094318429077561092553337025096293793433968243940381587994428364726938534453507046761494257538813861046058298873206568935790790373886840765817404479239485444563488020955730741209738203470138117422899051269778988135668626686262669881048094388220931264751830393793846372816717368806996496715219806062282836392457741918)
EQL-OK: 111131065300898907482632501071313138589398597291097276435916516379173430095773463468344138866282820740991088290299992221985607057347883717514843661030457396422379155394966857856069231504805779448809986906434617741485942621643754096548512120178021034054648207248963478122178145159262707381679354401629366698488021743300737044695960363216253889163551918513521913593214414139637549577618641974388739304727218804595402055185824193445089425262833385286117064481648652550355832014346131722965510192584901901111154083186713580209077544982897821477349293279848852596241762198202012197892321827305803333334823616660229870976569043453639028059771892706354703750763908127611939169337399882784092285804830644630059487027413697220038110815990084742241055099963659761569486906596326424
(* -12615422028124847936088012564413126213419674293830655240645918456932358053670311316461359727921727680491520480380615359506308571290338231702217134487397730 21538722931308708400287621200994476771789912594554241036641406577761480056366647329031140922034590767810855360008375309986798226712928670905618807986829790199948665185268081173685941421700542631395958882077936923141152528333121096909688700106365468854487023847026564219531968849793109908193037522063952753477768381591929787242143631287330811801315216116212154423972654430356675401769729358415036943501470085182304183033246682446978634892995900678975109490698283226559860736462409705544079080978470202336645384768211440438501339641775269445439018148409151795830925198162301321965042997632479354427154223366199106583051)
EQL-OK: -271720079725309675925162538296715595434811519956795637977932956405490708202732964133816538801099235844279338645471102896234318181092598033040518838847055114923365599862266767493227393553801736813141780001130539648588341196802606083178208108557367013886856183999712817955194261262279080641101769944037282423238147653270651419282545398168930625797556638625301898893565965773914460998322350526545278664715332414172614761548301364063397364632709194713561073496860524124460861314674679928692398440036071116570829193414179054372604203478369755566003622621281005164747628075596444178089558747835994702060740334079222508147598079351187013336751322569865313532407367116553748939535664259669808534100091049960040092785009707220249025633808590643620557093069849490009472441113874230
(* 10381022953674450046578890619826448644067144294659610359943634722044183130638243233110364436029778310048006743033299956844491228999113516347401915490861208 -20974871685432829994714153210121536409377362402944992609230062091789259307033495284524234519701670462495676590513192861649457148897274608767543942797542628100823017887236899471151903799837558453043431373811892813126194662218472834650841742305925226558315372771353677064933578639099452438843500601586038910108679737480263349221244638463171088589123712367802373159421798288708123925853179931628847579314900787361946716531755600236755527982132768286927549323465697241340003870259800347640599467922823203446834792229595507968354687630029075884034263531531423883902851487995214646322431057626558858528344843531280263328354)
EQL-OK: -217740624416854507100100919338835880277259264187442792458843251425095703739537223785767883764746809214920580060316177442387941385712712426957388995082877226019966428812240179251716274377143798847348759498926420314709056615470455134468678662646006408843897699718742372199854223008996321568642038054564397441209859567556502098420151667437837356649730396360374136203172669776530655738388121236079327354422138744456395348910073462618440421257604563050031602590345028438897601523520973759458890228893913090702884911857207117714231568437403212806578764580006787626657709435954760239671948147344463295520930250155876010414461245194991189183956653772752290656063730950237649394743456230607077768595983629559996700837383822873994717987698780007691157576205450973669241823945091632
(* -3984492646329789478973994496812455855595578196959138558282015917391108383154917581748539892089090551298072688793487597623310815918942283997753800645644511 22199897116873160263914990610762123553075230334116099569358672964060004245706770678771431369917479502828754815568950371273785689812698287446020480951417047185190067265849637510591502642000414540862689426343523077229502494771352820057572619644085930901096534031496492870227890836816886496090287321502805172125273822231241073590840684742085641304915656543831190976008986490532066597410386596132766422026234488163435487889876791504407434387555507637783709991326338482319227500686541368087892665100076351075069628862376686619537655838590687615291898971286325099164241688147975845320979841704002364545072665891829427213069)
EQL-OK: -88455326811459002089798581395024759975871889172872668466370443703433800509268320055453743803627754859670391415348970278548381190662701716228279482045339649051139909543850883613464992501666524385524517648069873862957915620016943364950043289963237718026629805297916194484838158010754666017024585366330526135823515744339445036315966714684052345462172808299142368905939297220895721123725415007532441824406115746741972351142687017849809593982432484296719999502992792447259391592152463664807498752410740679664044620898308783634092355737296495489953554685938970593890496829484673393665321572846542839714620847185428664388282452532264810310019327395691530430185946743995669191791841546685206884247468693248673484055915613115527492005264289557719000245333079386593840592027314259
(* -10672574004830373997900438516438419278676753890756925443116289034080220708922677740383425352837266631691319394850521121221541344600832530724104047804922665 -7307684417326792807224298894786988180161884427390942431653062127076829842696634441114228528164049031680536693195116703321494895319862805505304314401000204515985676763063862569446064343853536464020413910728442475032187317639476018710375702206456631041987826826225461927793241495220512935434301833094232834266749666697332380140380619185254354273073522191066457437931022783436360434167505326773192959291779779370530770935758482422581712556111319611455306383173529090289274267200543081481693078804068524057891845603351773722737987393428313340760607600482724483853560340630587029610437280601010173185018227638972500038072)
EQL-OK: 77991802747865927212086621295493124451256238920588746597961055391511562690441964216934615500942858653797884925704270904527938466874924049039962754703188019915846345804228044693122758075602494985337649496117180241872910247079655077012999375809878184011356481981590430241786534827516536543734645410817621964035091467871491521760928486006653992134635010794346993161329777270345449763927429735191213854873362673179799811714902439637861750855639857969259787075469241319618538795721956528400353086156169058060112255274542232054021662809196965752800525093125763127895334967094763817500702626282397394521201385439419885607578137159972521677923972708827090645776826953976605193554447841693259586575931864396484621463004541561908426383260772786784541411548146173991869741515701880
(* 1420855003086789510813111205540636553863493314684153860389816109865085846062678305775289632805233481596171530412925552158799875183492757047174905459819169 13897739053062356545217161606361735964779941697726983959749295377836209520566715597422965426908191354971972501742952706730523748574796773473606175934144970768662226027157110240776527834790487577863781140089347362129598158760833470434895693782503529955845076709376071972727346128409008293671217324995682020009675316075606538241192607139905488719485728099428376369506685875348346231688684483781160648420909364963718027571565217314827671844485031440079254478598236877074793221578612249882886835580737423192061550370069895525711885220268707201966615936769696379335772521903910689934596134239331592980694745008817040569590)
EQL-OK: 19746672065138309742065153069587996891492444461032276894328314121573439684229636534026409362850111716212254549198595854140809664451286626009917828620279583631575940837712663100442879662416765138504151063632823014639305658882804073655537352377258786105147057375069447099908107785635606190515362082317465738205179108333064680370909383338688734129396788764959056886328471374018961975554190739706996184818378586233017775166959010668462907838359485424792026496574369912033757997469014639705459505746723512361959074802456098328538419933637295482429555127226978561859965498424173552676019033370307387047798600024901453757451579262061785051932535359410827170361533603618131510421439128567361259204833501190218719779570258541358012741265599985490513564378203502703406698160470710
(* -25117824099635104147178796272946098711514362630774369209876335291088434247131228189812265510495277875692804180473811834186270331245779845635089547499275113671007257221593872123397418355506777725721168216892830217596134983713752526559153149600553468865338887605949011743043425900799896245185282419637806859906582214420191794114207677635194054239563071023206500505880052007267243210206807805387341085613436600843317096291021780624738422589234020279836961194869688005260369009833026575446099544900581955685627511787510900479881434909308757027825050977932238481841909425598834367032841935054158448815026264505726593064239 7846111496222858966)
EQL-OK: -197077248428250572361351389692146917243277049539013604789802566767174747369897711991559940484392921619974209620152008632450612546796556905740493507885376190913893140368029841033442857949219716681475253727058707723386016055991276120001690579154370788782636181079931076758384034193266737114305362492836167078199155929937891579224024229182935372106924021709421948701131654358516297806197381566809357458374057189773041520552821330635689748583803171230633654728360451100477472934847975252390985102859262992904778849652221553818627134153578436315973777720706502751232660284910468721430874674021521629540714057383398858244828214000543075116874
(* -12000343217458212092754251360179138661969968218789048702097501439124892987400633614429800307263114371624489988815324366411323242909652002510513570900627875514001409309670202055060404640758548257776155562167062337394219073071639153822126554525439988062676648294108951003012550815746564810508912122306190725453386412796036693387315128514162061147675205485143205925649214342646148112549805850530430229663418469577245456944558387628002442451042105749848177325651852669794048215063957689756465788955050513359977166122710392613631703123491357791351447110169966270916789849428298930624807758982400706608788793481972190953569 15463017349709835150)
EQL-OK: -185561515374029078700596518575548896805308728003103939537818954646551372890610870275966055765608887701776880889777402229764948269089126750201922167386201171243298907675542965323275634529293654817279957832652909009385491998537031060285890512199675273422070784691446251899120095880199298512230290860589352290462643231396804350623684034400741386070220057232978556614620855818271117742675632435727751812101639747357642295230273344552327870600519422276996860893842363996198017494117619585153346745838853026029459826407782259598477529242420507010652705302341725948095720110508044256096963772599572721279996322424269691990173052929936294150350
(* 20244597897909303129995907707212050478823487084391413473821544089492035634291726811145005824559631386634261268723753786161463497881725871168747275110149007801865428978596190887145324535224079986377522166727137028753272158887188902047835658826867304220850429481233026043496635847568448251753504834367809877190895369288045026559783632709799678639927825194847005181499299410953860627694080906167346078299421796974815616608326704894611151743720515377248152215241639534004099341398238713597030368980166731393247619511322804984829747216779359780372801101821087516269912916462719248736442644433057333788741151270815989388229 17931151643499274580)
EQL-OK: 363008954869078360197158713265773114114991766614027768774402465306840646219477262855625957403406166192075865834283840624408916170935610374573318606346031792128003204902147985329385955814330782527184421959263266167048755628089412213360508944817963403092490479480264538027768728303095523018598016863928762335410109567604756183580676503045557867957273324581082608248341332512325136675167966306268035077761004923732568405295901819511346235524577361289712297365403327125212199451099538443576479787130510546755789504852631291774614010584650672707483555436445926222945298928326313943231688436271883746272589347954697213098866117569339490918820
(* 18134862906191691435095953372467318196853760384894170022863300447691250350836421337333332682828557871096554531436829166444150586004379181099133295174348038948038399079336722004125999533719492457544642570217406286811480006881054375314838605871238868968956868878182133492469763282800195060849734382249696543089869191257451321764806079423169235271658993054867624410589213892458246001270123109841429271429275464249821855221014782727398959126117031823977229309775211695677345378510417534328974531801634095862859684508240122911023047425473036305928743193594967362216559973174709883576295373749738633873828863608550295977368 15082354452174510460)
EQL-OK: 273516430292774638949326170314933525797985748367549139070674899956657807928629067317576809269188258819686207094298714770978509118959142516619521080722291318367607601498107007447014759288176261262818034997399866363248136237609824401265450913244758024085739876914482935655100890803279961929047974391299795570244708811454483314898873277493486428279875241232025231140855860469097028388778917980779775554139507550577255217032521719099071084956515691364008526064349956553916033914728254580848198941020806723485184338914882588931083516851849558411503129184026079582257756707601984686901646494090820169212279581209612798749779318126482639269280
(* 19213874382308276075905228027166553836726993832150876980655958901416537033385379180983129528081628446454583401834309285184752924794893846406622935494758142810049493348116192315865522516744262115026742103678965417868790607689989205765793528434388393584537260717130892518011447327847533083474230074174308157934463971640826422302901570010591182715932658037868980053012095115562188975692530473556182305847290196895478280679341869546292639446526021874910117953225154204035612531584978136604161393474554294315903436682283787080297348697922389355209790646124024053098888687638640826064745026930980189268652291562437512941810 3155416591710364359)
EQL-OK: 60627778016974262766014671335614995348970065077989108071534610098195400001445248886220725085881796599270026085183075312353388418711598523030563716616967792282609748819081238929738105086199457414615236966895805539596649555457494710621217412773036416007129418290246899690911654008867819945724649185574237527152410775686803449108977881160831441280833577932476667657759420192656716352190871667386955409426879693856001112340390304980532208752863058384169885129364117656404549585836664647784765508649117301622797243353610345828189312360124462238989888436478381583689386509617357901461416012201469794664889076397809504626996523928173064949790
(* -6561903839860415551587224953276060627466820222543175464705113686962550773423611522044145975606965294164125376820288981286542044306677764776675868357117109664125730405280822770267329297542599719353907954399688197248115043785617436343303277493146049939491224480136371029084354063731401026459653680017632996944506546122253686805764620116169065663214526857151412139439538335533979733329962892417175374550305659302592107472151941922230309227785266745974334776462642676959433923828440435340579340133192678341787895007461237846313005612116885419002449356480017828933592324336731295317076205553526568668826499450826560670163 14908715577157091280)
EQL-OK: -97829557993133908713082095435440645457469053259814412551982534425389603663024461131358343104414088618618030154957456050473312402460589893359522167472060177968099538846750606564761307960896264958539903740023783283814849937681270591589750181462708056758506230073751440847913386576449367635057595344744119561166438538811561109125506233466453974371464999669336530949393433719456191822836826214814780222021267726528396849558417851727452246676857867278196266042327956933753121947589485377148388716839519782819642328655117625818256334190717182923260613562191698788004591479576661108985313450029332968584240383859113741485244318702724563478640
(* -10378013547095983701124686671659666242518351347561698092030999302329372512356819420877395264401390796163955327080881297568412490286247154759694714275858127906305200295043241717769593877683535229411640745872559018085757273530771413156968541499388413497221629366848027355125816131586610997516488552323667400115617175682996681969687885201321292153656071894385242141321468096793766926179134511319941715949712230831768643024119693594235207988046511542691719002262040067921088838755337917414526554050602539873232518619281766327369577617796816586064895744680567067970817494102948032924671421242699225194947982378019119315136 30004910492448871409155105619400474385)
EQL-OK: -311391367570036811050052853596227388481520279736812036769684195465110674594690412517879149770622679377262288447706750813509857551308594851067359841826754786725926298013483569424123912020079066150719085450400229896983461212531213110847425940968466564079253939695853896434719530729030897976597410468081535234663568150722646854183317007227669132983719314653861536414057481478039579810285535699518386214012059191958557306338432321511585867535008319640705419431310336566447165302011113284064246284641707577414470505948868362067233709611758700034131461348997580441628136979257037186480770286846026250437141175360847735150981343952303257191661069675154710791360
(* 6311357747888359229575837883366949670125882865462293491587368290797766017168248637163030339387377997726585769250585768079027576213724941259801478313127113803503561717311996500019522893295813684259416551410025111443510215766297835872165689077882298506134885487991732718254835036694083204758447948541157893533099634169589161496492972953698758234452126564385255035294546278732684663873459439615228706684138982066055370429797835904846166362278557095045056472775166294675997320598469599722704075215700819354957397052721573993997624711445698656580401684113096559767093466880001548887739825916626416328760047783071058963451 -212654096583990292869707082365869207538)
EQL-OK: -1342136080095566600483524091094048745061145155430997807005186206704767933140306297188996797343723817220160636373424666345108189275851749622201429179882167381735732553825696482751584102093819432866729465599060815670807282181979889263381844726842751894916887860819210652174987999919869623292751389157233409465756974677789790982740267208982768450215563288024088369480574425410032306456026930809228182100949940216614156925537929648841127727165386031716586596638254705402653861723407930666152691102484352058909219619985877341630210918347460471644327858114815713557305185589162775699323253049631349906791700893878999711846225062306568467992135934882289075693638
(* 25104391676237653962996674810232896003857294806799086059884413856421530328279649263948893056601611073815235439115612155497964541323584159786678357898152394779494741995735881624055133443980324145256438160990490767324719276757840825641421547232460969806196141938571103617707677351907526127993230143577974386169402623023560579220343920203666762052525898442578990183400559087522259053245822827313206196194989095468393682721753147596892214609346047051670610252732846805143964713621673722554204896154742594858056891979146566683467510164875593192581407047920719605560716270697985110227952698114701527191421628561835164291236 -205991315859231724218751687295926841150)
EQL-OK: -5171286675233738337789203670843122752625713948587464573381323151628930998435518250812603433784823922283042037694290795352461861058217142213862777203850665369756106838860420507328654214723398688455622487003912073924323587826356928211672752672052670663842775836967587150049181838707784871641183683742967716787111671792311389517753578360293551031540853470719098360013225516593755039537796518619542838794169319227197212817921098393499332268929332950035803734983497370378852859829228973012039890600437082235032378948656232679080766068869430262740600476498399803176452431728914806536862849281928869092524387549297345184969051926149006293586531930828748109161400
(* -25971587288596053786734900662696128734726180676323130693160397208008930123341700520454723462226657743365779183466120836187720332442041321870351823609046027805781414454998487673927365486893294110931852680018706479684281928396163669935417207859889405108139261480861908067489849403284000981453574189898304616775302917687860062501465417706095450121596418236563421425311420755550335597318818628123183624214438801254105808079227429950505879366254661664881055965092586612702279548151277733307180663770432418397550642136953750720624507617115504303570076531620003848642167562950736271141440609700821621532583527124386811144839 -182748557863603655835821910989658558236)
EQL-OK: 4746270122419629115710902425435990509747636609113505336611751359043717100752575149404352359855260443259846554733621122684788488984010741203981300775978945529551335641218319619542248418128319220383298229263331638090009313676486209764655429828385994626323209879925281409485074778611946493692237774852428345451174837474328995186242262565013937544898941834362941815633750896882758939509605799422068815435202904271722442099465950700886702949580264958171808372530471918175963644209760378395316412115175988232945569517230829200985652504383431054550902852797293952515652017940918628980037316292352828228005975466732028971159947131994753006597870175664981312344004
(* 2117427896392849163304163145095251890404997781812823978967013619233450901604407363671467658244435728579079751353560538034596183240362499870272373308111405924505741579887345118857908796509418246599428633956038017783178050402412769812823236255234302205027282366926174916871858199918908361186936687654278623156607813451034087735179167324944824913226799346886951212979149617678949292799645035425029596869092844906629996914674904522806258932192931217652241231736891642224851547474205131131019084734780208254203537633402057673465583362982905095029133132240839391503135932501785844503813910210348239157828902668852795945482 -296778668392678698960782643314222141731)
EQL-OK: -628407431508980610909134894336322264939705333430111861505965183839156278363647883745193463537783397824947515214540990712455315080515980803996660089847066076833542492719707493333185909990202372284811233272987993068106356248349054482194817336258302692039392400931536481136340269417905505366385505196886218794044229758585631131853635721528813397816307666671727692971421531381290925317161326036075629905443938124481334173158440927555118173661486114828362551889594188958723424604273078091320087897088472418346754088900034854230711982602435635574895960156993014703292551046970069204857846207328434544990709459402656908170089318995291341536347275682867153109342
(* 24743327715258194976385899813930363006464428087412805068703455203318769863096919192538751530954777047772548306936907016751357570434930538612382851621309732767199276228580401695793317612267605312672263736938703887622824117576912830029817460033437752668221355377879837833796222831371174014543622739933433581963103361464022058091243110136610854806189138108937004805781857031030005354158991203388998364340053773883952742645161560754545458260688560269655272249435540890073696261770299845722705104648358053080678920468895189601731801025555650490534399590288852165862135571140382055044665678298182909026026068995867606241201 309156501491030456401354118244509785044)
EQL-OK: 7649560631695275371386748526795333430293346807872366006552933839286343590101586516802834568317627508914888989005968805867728947519409222814667350103434422356009252082456906520988877859152125402282765775845766265340707473525444185795403554160270722809642681642831847296672303556012796775586274347178092325226458743113317655523655255626670958156216225968018208281266858684283741496986683426354716284780229004376492833583965647875097951642088252875535823145900129967026856898970545720526282798418382467634180690243423325770596949644122541224189780082061715230852249880601371985342796525016176048518593825361248232406051886794538203297084423942036889326397844
(* 31345149697924857384985323414506591310628538098830133854928154990821019223495435414394178930529373634315044777562902565397455028894455733092896622048288278424884040917250546068175763309233883078972879622697667174865833277342334219810618450605650614585133187005110148963483824629405555603493157452295284935004578187488673124814714326405406894084902824045787647963172437833905574178160343833139650913077173865287057167288286708807322607983179910358234015596109655900840652230258122852488289951986129788952718105898226951651151495867246384586164892018870981480003722043190639707903266193064807571586900961788679579912089 2067227180806746570739122295766566373146995767544546241400900414826379465803168632854028593293108913670556431832056563218709444199286888840721753894461468)
EQL-OK: 64797545442006646811970698282511426059102976298051534827345388707272469591333019870381858263624490336448197115781363489554169207652559213486772008013638214870324260793199674746523791257170452738018910619029072942848422098770309928561867618844814267276213608306045020686764830302020953883994906997293368193331696747777630621086600981981357507299729947717565760536305785574555255589190221698706036770081438750974356437738060098906046001271392354762036427049946092656701257615490057677558059955825843182799904828201890893555678855718728417223845757559310912618029462136640226686626513375024547351747669476392735304999046232068947570708757930233036922714350584650744960478326257916948676866148362166017752159953504981324652709881831381637989229842766220141292801807437886652
(* 1965759082776833678304908699214846485256126608825750175641683294458978302204367346739996602241053060915897480812220051082619942907491598551933638540412113496542245474287364500698693202553692963910123752514310355402167440783023542848697962967771951714434359320001430281377747193083851165947498546085410216620013287853719686698746328198021011905482303248172483782066908570502837009924228011993318265674390462360820566174204659723461994730913995303015012684826295802887547970851558451858623353950391701673651959262042520584275132971807158231859672678070714276061110616753309305801080136339206017351200193800253572481467 -11092241138073130060021642325471345789108575712118027611362686690749327689527135459714040658411176246054106270789083336195599640521602432629024562630323934)
EQL-OK: -21804673765518097879589124792137157558586438669762099454880024920520894260754279593873244443852337739758694535682558790532827482894104906218015712179591886600693703465749571299271429989154199263793230178266758966678432691901731270899259065726530463438316383699558373053423999416350780342222940065486831353604365192968606300436304827279383661172824549131179471364227618431414928702407510473319879188990689163932586727702195573766225861364297410904859137393184592815970592502081722125458353280743087607273547490382023433724488604177909671497082747464946083901888849483505451426245881736990810339421864101129619181017696837017966116165703320918568645290788634265522956017905246042460811062666193790657969385648522736090098231379029903772234867701846824572274796526421531178
(* -4067457132547237558852016696244696525033953641638067592741078194074861352472861925779476293767777560910963786727886946479865734639031042985368829200802420611189793957001730656623744670821921724417176679009632346904384261431052972127975733031277489967119978909321422086102208644766894305071609385305464547231057263658903212521469801833214062476735046735467944834107695748433481665714184831786462886261252526036621257865158497049125410241033365487816324425563483999957660557670189397770488996359512245971368638615503320507431381893539767352426795415898379765583574977542068222040889423739693921998717145084904555464058 9635268828818063607505341812331931088336041632536136269505180222913464638532245578488168867093853062326136774925531196873279749483997619950077042084971972)
EQL-OK: -39191042921786100943542578352486285322085069425292685238158202937549417928185097567102615300826629615520476316505465412722375794150552330462353356124896483739321653441446703127728441315609093330694305784991844511900128172079464896650958648496336601612657347012294121239821167759496102233234525084695798195547141521849769350204659392602605928907953707277320590923278178152903602506284861018886300148663530071056792375593665422754923886137410482547324901798328311927545105456397213670390651819229021443747424183114992653572959318104053511452473611466305149349027962240989590453237778130260105665310067480846969449221473610614214933278048389171979184119355459010233147440293881252851501522689209874112819966647846701257081192324007280573826673895648273593609466000383382376
(* -22047771987573494284336211037167956208924595972749016352929724093971147687332865088249749580556015503923927321586913446367676445848750229391300778587369581738560634537089081840938984779012854694220894920437076215176060179241185151442003472788530160589267677502568156006531439509890061829154786579353177129190813899423306499631144919702707240832059008168851983259611724134448165201725432622521420667808597545410136493805873769372831833878868603946583848422310946469083400330960925084024624317866822897278934924368888332618046649078771617892961267312226309927786691384460940015979582201446635756024251269978545916298961 7481502540911026808093162425787184755732317118387068406204973030847892995155568099553397887864257088525242568880427634318737874025160499293315047534753494)
EQL-OK: -164950462146458057264341765173378248123415893870534274075422323606836246718538063890359159423074703472625232511667875897808555123518162244263016096627959208397334135559180524195701526029092734741010866589515172934676451385008535538102832400604699294088534999994990970130226363762230944961249818769566697211068918154629209895730969522747736738946126971914549491889482944152891334838234907190697109929512401661529882587076352559260375439428815896053844621297552401396168240947357044985051323834074355418902009161796886350497072010833513601114819625605048943438304411954380599728561071485061414856047768286383287807924135081902458690495890129203192613070824670256334683011083767124852354110322463725619194174195587835939047474059288568764831570274891727391545546467943319734
(* 22607201423790553279447786193696575272983924506336369475058795405894123712509544256099524616893423762658394830755129501447553593365768543361107397299007141714383407862976654294384881771985218996697067215804348472693636567074361380875512341556932579903687576929186215185312685712277482751425466251201421842248749944123326048360909954588266368306843116245625635467041934524547983478110533044085242847795585598341867070787331785945399446665919396062565614516404861115244243161694059679274045050270546536781907061002623188435269769778378780371158624481539046590932125320888745103158180784231722265376331553893647061533815 10075764395489719205294189472045365742345400155046712954334138069917417587273618147303160957788995022989479371576840422540097479703418600112174202202728054)
EQL-OK: 227784835187493343385594867881830022845566753253174983274076326016001091958812135049265213053390506720261776960833046225700903422206015373488419693650378821159134369608830936915027161415300759990632038898164509761337714774392506802504397626551196717184785586630245704512525844329038355790338277254618639554796026366029578805283659986085947726260520495140332204643887370987929304924491772630534558682402396784510750317396488402942581973350428066695976988812610467654886227733900635715495731445319565054848075104982244316563526232071957624002266648721592744376122065531440026836549316222728280595228806728872537793522244957258060730038589170810090676474272044568671474692128168357087077816573419470273384256552275636517940058764711467508281344270125535855785388198570146010
(* 21997874907846585575969651776904015812729615626636027149446399573806943459105370044846476738175828244018281160136531735881270437472624605280356112191272531838028896521621800558410217146758345955334174583639352151367532676985598470747138461153212653362188252002768647808852054182649808145379073620834551216386805267446360709820441771932135218282126427988826945094538034579367527908530151926679515746133600376612899354099328788736038811470295396365432559354070365548930628714861826464935305416998192532029724853617023971964507955475554955277722555849603716733374588174421463022213135839490633927005539569058361144905451 -1400498192750070094581812894241996480373581610489471746158083224360249880335094841398529960182484181641387946900090289855375996313447832474435929084180606)
EQL-OK: -30807984052781257825246153008277875918087659020905755686964119182052911551148620538090633516362197112383237624321406969368641524681503231262834662890145617622830207559490089313283375890353617292096501953380469351747504928597461154633889236826060654886877907382241867167198409355653371944304660938495445848950444683274236538890057643038410268234731745456035923559528706349316582901179686671568504971088561096469997823300883298811440849031903066114422309644669680078733839046643542078157684064686933779591609758494599988463628362190034612412739669041368897594110022347872452261447359402810277413572637740870748949093642723240662839444216981630862346445890780016393330114883270596630385367407921496982236074288475142085411632630374714528706189796772213264952893973677883306
(* -270155241925436273159477510619232592261228150696806729750247050 15545126743930076938536195287546926534964892301082800206802745964245668351235397 72127079799316080210744562119267314209211162112457416152560774669179705347659265 58427280233475514109627698916382980237252687770812483048907352594138577656301900 91336330475502063985843547526216808965829995610054777216888670176112782119332811 99495081134815818196404370468895496198561677002653930126818668800341380375657337 6904264296552316628911621065724553059847235903647375662685025031963599691416829398469283631386160328944460790101458427909545198569619131058877708293713734 -16074984786353617526516141164566295497596312655026144270863093715961484079732496604871734572736757225277596743795506589617891195569235287256031608792067121393492186703333733526879481948463529609113624075923052999494363547340563039654910799974388353472433635130983731604982117092991918514078659590068643956240711810902756784590442416249652077644077280371860780741318193975770906075446772544431670392964384669681404295839302410058434872964315897505894833409101781069230919347279857855594782111721176074849502391457684148683668165019969667481755384384017844104770253558111588611189351637275389688093074751942960310850074)
EQL-OK: 17849860827147993486644896214424106325295064110723402251474432199595968349198253682890653243676378684005650871261983711134190416277366473221365848417375107498764965893729640224952922241531788638514200018520970345581414705756736222535562338748426356003659523260330725662384208724142177900990027225665451069059291754155591197426279006090296512196415617974140965334686090032257444820748820516976632201388937358434205022475303705442914044454220818215336283948743042841946229853366515552653568436171217572212088935263340599371830215580988184775240338748954666846379831467518505260487989636951404886967842600777836444030434816421999334066711024026401362115623932221335906548647785232855815515579448393689650116225664467056283988125816950714780486880294535933597118808163054631168063568847830481653855357008353733414826165759079092633441356914450038756281940532159493763482047244493174370100586359619040444818634156576789665732998111907245928253704097384811414269835758656988678207624731164159069547745777423464124959379113843649940896359346515513936964849811155238140671698227057228045173997904545787593258286212427476788605370334985423461194148838623911634821153061693257996982252745844329344589168264774527631972524787804330730506700000
(* 6411564443509812216548163965666668398784964137255201222920640150 65325385402074288043601436729391841747319174569548241717675134253657593233436152 63305037198546989906433329294566491017476837189978173607681765241525113921707860 72383582945810879300930057856704905379805338886592055772943486702915907397618845 35525980101796892634292856352740658817031405780112750352735419884048051630180860 47579150292602967366908574298176357632207539947399443701205872093150879604391127 7775494633965874654516687741429737470333189902121089184439228657893110997221737422210698789286625633365548095171257583020272703565350668755439139356570 -7847653632223099338936161226557020783515367997970448568586056286591257384101422312757649765574456754668588904917800060981155642916520580540801153603733496143328839018174649200566737789874193483124577734129346933208306772618814806884416239295732454033604210880463262467564639515484363761639994642888910703066277724414372379965872478153546766131136324967950786993982228851928269842355632200589446224738709869729930285189047112131897218464505263042012855229737941639093204086147932759923796947642895167078971517834730472596647456786099215405165290569214043431009370032818978995463168133051136053246705694337584724712230)
EQL-OK: -197949741939898550383903354028842356745461597695099989904494711851411610441324234089773644533872304737431480244289438922163630848266242200711131210228027234579469457105291847132071566876246332653149194709623963836885480655282595345693084881617726426841183231475364991154699746506928116505297453355016975688761948609740314324443406930215518937775475617384099331839748494157863510168743547396262979908353122625808170296763676837551973930928848463398657587603606321137626467028732193151671337338929938959296176472483674270114824853018199281637976410726195357458134038379491704909997939715446657856320452698914513791221947734373322868574099599391493563479057703049036936132407025278683219316357543078875410080612067641232277376174351958080693019953378024732243763129075732499165068171168470237875348580987967740148512425201518758344757030205911031119619416763996490581551977913711646761182756531618786226541010835120092904291975494846126923510483263978074437667987560077422810120462938292680423746968095994108344184522240467647491991837793653579480334442342102339933473270535800619630342940590477752278184994533764839125736268376640933720554199782388890444619996919031351334561766248781813883867406045414518951152508504891407920000000
(* 1669833986019218156514274418186396165434871163342486930502417566 58528969848472951398118375496887849181512821636583415470809040929690124231959506 50098163184827557635697120379841225459445103589988345336880332217224622666020381 90445522698871905833766573423181067004916996574451008349087758531794463581708977 92366726802191504770638415639612204654473958526592425718659284841373421985393966 69096133232785816552402133765198624674167660496399099321713067612475604030259084 323971624832697152056406152359288553860210436839331005469891386690556929684663075996719803995137130737141925308417709520389528780839777347463558171582753 2635514624483961079560488004237441873979133312246005082134175818331132377114926863102436691793380965631848192666106793612266994709357524826644421074908075389316030912936338175907209987972553710900613011802455058538786723149316934049388525865455871552882282353445228425640452635081303490379594663330152071465360003249884180020993032086861074931796165970076448856988084523672973069824258299029863033098237556417571526135639288006133579174344589248428714474318969988990720790226604664141927030250855550010512291136517209169959021730625428868037074528890516086527430801590050720467893089085308995719513895962750896813152)
EQL-OK: 2413207990093478676325592386500172980330574558867366638913149256222218924700401110600319869300256745035993991818342784487193857053589994816247466074246569162659879368383295411190237107255160498774228460295857931362161062884154872938368166514128474751716517750517217000290486110198899480877593169193610813452614906598055909439037075588626529658637140089909227353944313408987644743661503976835580507054926908821206921014266535160031749397432350114673787218438589065861056449106115395189057409933330355574558853874223262465965933679584884152813357065227868165556818717270584803360466149860292769520737249610469675917864449261901859162854558012721179400237645357401213337423255109839806528503425658270050436129019270883446965562683284298538825840361267548675967778385927410390726055957928634152514415917053614892441910675109517307682075989998558764742821214685548219206933043196677521610851950501225469125512893859254575460130829051324112015464552874242522140166275233893076603452098841950130740353331198999756316969161591691095397245996664755249875720008141774247384884623389430842799829690618405724986702942913150258769060684255363816662231923570491001519802836627028431389746450987110456127797025006251203111629141890634728548553728
(MULTIPLE-VALUE-LIST (FLOOR 7853255233330224291 -3336928547114505419))
EQUAL-OK: (-3 -2157530408013291966)
(MULTIPLE-VALUE-LIST (FLOOR 14068934522023857270 16292006600125740074))
EQUAL-OK: (0 14068934522023857270)
(MULTIPLE-VALUE-LIST (FLOOR 10985143198741137410 2820546847025452162))
EQUAL-OK: (3 2523502657664780924)
(MULTIPLE-VALUE-LIST (FLOOR -8108344024060626734 17657489924906565585))
EQUAL-OK: (-1 9549145900845938851)
(MULTIPLE-VALUE-LIST (FLOOR 9793321542618752251 18086526939764980195))
EQUAL-OK: (0 9793321542618752251)
(MULTIPLE-VALUE-LIST (FLOOR -17146297557940039430 12031974228591547856))
EQUAL-OK: (-2 6917650899243056282)
(MULTIPLE-VALUE-LIST (FLOOR -11002425733929018635 317353195315898710776749437474283191162))
EQUAL-OK: (-1 317353195315898710765747011740354172527)
(MULTIPLE-VALUE-LIST (FLOOR -7045772845268193739 -89864936462331315327547597221973588375))
EQUAL-OK: (0 -7045772845268193739)
(MULTIPLE-VALUE-LIST (FLOOR -3519209948682231610 336646025916394184314065151550367317320))
EQUAL-OK: (-1 336646025916394184310545941601685085710)
(MULTIPLE-VALUE-LIST (FLOOR -14043580588957562420 -222396907959379818229719625081455476397))
EQUAL-OK: (0 -14043580588957562420)
(MULTIPLE-VALUE-LIST (FLOOR -9551193686327136711 75278849342865310446781730521816023755))
EQUAL-OK: (-1 75278849342865310437230536835488887044)
(MULTIPLE-VALUE-LIST (FLOOR -5159693807678286583 -271047212583781769863421872046042817014))
EQUAL-OK: (0 -5159693807678286583)
(MULTIPLE-VALUE-LIST (FLOOR -468628810409465000 4096333242794181573565417750313678008664626221486481835906739336082806890901464399325558358976385254948318232837795406709018062193288308568894691407903633))
EQUAL-OK: (-1 4096333242794181573565417750313678008664626221486481835906739336082806890901464399325558358976385254948318232837795406709018062193288308100265880998438633)
(MULTIPLE-VALUE-LIST (FLOOR -5244261521146873643 4921965954460062114436531997676458648483262898583452823054595308486273272424691697564822554202559195140246785942292198280651275061385828405859241079703409))
EQUAL-OK: (-1 4921965954460062114436531997676458648483262898583452823054595308486273272424691697564822554202559195140246785942292198280651275061385823161597719932829766)
(MULTIPLE-VALUE-LIST (FLOOR -7155077620310044967 8812163272024170253854686552273644496512722723120222844613502711675792665532423218585794856067792762737333036865054171911349107383532358686613366666267909))
EQUAL-OK: (-1 8812163272024170253854686552273644496512722723120222844613502711675792665532423218585794856067792762737333036865054171911349107383532351531535746356222942)
(MULTIPLE-VALUE-LIST (FLOOR -6816314458740361202 12075686527410596248188273566406493470578404199548730085391183041200273406509336777783445118538744079686672261898288597639090345296674064493442338947240247))
EQUAL-OK: (-1 12075686527410596248188273566406493470578404199548730085391183041200273406509336777783445118538744079686672261898288597639090345296674057677127880206879045)
(MULTIPLE-VALUE-LIST (FLOOR -1890766085089344496 -7408951123352997019624764400646833541081866912262454311449242781355699966135127365870537542305320515188627454777019144990896651509964466134772403923321917))
EQUAL-OK: (0 -1890766085089344496)
(MULTIPLE-VALUE-LIST (FLOOR -17760474272160473768 10671898954663586353020741847122236830297651230263271051052178674502913972809415507874936117140992859978582852208528956402833042707438860216609301338079639))
EQUAL-OK: (-1 10671898954663586353020741847122236830297651230263271051052178674502913972809415507874936117140992859978582852208528956402833042707438842456135029177605871)
(MULTIPLE-VALUE-LIST (FLOOR 17203040353218460773 -2087162439393804055245476778327445230668947133920484097696589818636894139336038424853265430700117127209095408439503149361955520500062568298413951113007815520417010757436097548975086796164496676384718866185751276003374984886645837833063272909444571294955778352876647505220277070946109654595325494251711661808952794932834009121950804034627054856954463330684354292113876259596011570415522831755074832239680022834732540878425796300024337145992774113324576942861121693541507092307262607720008434123040550199401165667835993232451530119579950363100932584067714571588474895040209606410481479858029354372704983248137195749442))
EQUAL-OK: (-1 -2087162439393804055245476778327445230668947133920484097696589818636894139336038424853265430700117127209095408439503149361955520500062568298413951113007815520417010757436097548975086796164496676384718866185751276003374984886645837833063272909444571294955778352876647505220277070946109654595325494251711661808952794932834009121950804034627054856954463330684354292113876259596011570415522831755074832239680022834732540878425796300024337145992774113324576942861121693541507092307262607720008434123040550199401165667835993232451530119579950363100932584067714571588474895040209606410481479858029354372687780207783977288669)
(MULTIPLE-VALUE-LIST (FLOOR -669078238914427842 -2079683283534812796000190145696654156804430677578086735229530182730363039425073862859919937645919418081821481495275802097707156965850792454067873053943961704938117974314269568411834037549827330778321735965757574814268024643310969429104824266062514450939201453648232801402417276979456869834703061150723202264463831469016146310260625377771326468627250569024458585844135123967133684658903385261562998370487428947011971199332502829621504477139578507890165895257527873153869666215808793006714467381179632834850697420959155528830942491523671012905291756947015477293335637719271764878661266856465788562934083754663149622043))
EQUAL-OK: (0 -669078238914427842)
(MULTIPLE-VALUE-LIST (FLOOR 7327608361251253460 -11696871058150243071087622230096689496181624466205249401376348902965608647385664229774648233384515557654898456058685820740766304363182039373157014626506361274439760335671626498691756724181737933201816787306863365879304649516313681157144055793349950077334014446025781487249267998958541998722387302987853596488202173446477234627919885268339967510098356435511938337505060706688248914394292741973765745281640737883810857064447143652281758869836897346742791897670275478332406904414773228555812810686551346417028168391700814494167715137071887755902595471083839770070956620494992791342919563605887139693691074220696797086954))
EQUAL-OK: (-1 -11696871058150243071087622230096689496181624466205249401376348902965608647385664229774648233384515557654898456058685820740766304363182039373157014626506361274439760335671626498691756724181737933201816787306863365879304649516313681157144055793349950077334014446025781487249267998958541998722387302987853596488202173446477234627919885268339967510098356435511938337505060706688248914394292741973765745281640737883810857064447143652281758869836897346742791897670275478332406904414773228555812810686551346417028168391700814494167715137071887755902595471083839770070956620494992791342919563605887139693683746612335545833494)
(MULTIPLE-VALUE-LIST (FLOOR 294675307927425004 -9548883545732446060252072829565833006884749934819836721462955213854827688043000170303649263042149519854567992890424662453846646328000352698376041008580371118805742958892669824820331301849741711055204656684075622499980143446475914450482604391515448002257899292716976191315018524528823574850034894770209999447615978958086058881855069519056370913875205852377738400734853568252684386414540818555760214483168738870291995504569592275824832746669965860852593991220739290892286776371571179317949624919667076576237866033103387061005489130212740740367035039239029315995502459013799346342754507246725497131746887762156527202924))
EQUAL-OK: (-1 -9548883545732446060252072829565833006884749934819836721462955213854827688043000170303649263042149519854567992890424662453846646328000352698376041008580371118805742958892669824820331301849741711055204656684075622499980143446475914450482604391515448002257899292716976191315018524528823574850034894770209999447615978958086058881855069519056370913875205852377738400734853568252684386414540818555760214483168738870291995504569592275824832746669965860852593991220739290892286776371571179317949624919667076576237866033103387061005489130212740740367035039239029315995502459013799346342754507246725497131746593086848599777920)
(MULTIPLE-VALUE-LIST (FLOOR 14347605674351973575 16781108313723465798753322947549009969874803839178924211234447140560213638432451682705091051257464849827979202356053729300113370530117630421654608371240669238603643549128642643200948947465613904905607632005913664436128507306181734648889038561843797684348733053132088104433891457988693229945931772136047702319895617567109469705064237812979865949533824478284021673220084274688077361876364538071423609125747407610677136416454538389383594373243559248761308999294417964846813960148782443892858983199711111035244418968070018974928177662516580063782128203214203321005133744081558995859628472663680467632605080081460859254457))
EQUAL-OK: (0 14347605674351973575)
(MULTIPLE-VALUE-LIST (FLOOR -13687180458303546035 -19965807258690898827399047857329749541944041888361526571512375013574840494217451526698619297248029675659091093507275385543103914023886879938416253663550378748995953654394575052030527774451712268159052917447058332864628753215292671454945836228787137495936035900814206996568155366945096185932229795907560606361081170245972586794828085080152240904698184990372898689089164281206741448028676272453255619644103230837682506759429084083781590844603079867247577101977877828608823440256009103689824572652465343135798570848914557962085239341382269526989381779235955669274286569338275810475113610787290242075588029043316765795281))
EQUAL-OK: (0 -13687180458303546035)
(MULTIPLE-VALUE-LIST (FLOOR -18925243707105550517292233464727657082 9190307209239173280))
EQUAL-OK: (-2059261271274988371 2728041824926269798)
(MULTIPLE-VALUE-LIST (FLOOR -2268729715267556753620172461333386061 2091801429708129323))
EQUAL-OK: (-1084581778674907194 1902605633041663601)
(MULTIPLE-VALUE-LIST (FLOOR 240105871177433673480858499581307555362 -18137436669813972164))
EQUAL-OK: (-13238136984210147236 -7622864679137983342)
(MULTIPLE-VALUE-LIST (FLOOR -262280851402380072992262860428676408462 -16900353177245877861))
EQUAL-OK: (15519252683754978805 -1413263307002672357)
(MULTIPLE-VALUE-LIST (FLOOR 232088877459084367318095567773397104766 6879279671528853911))
EQUAL-OK: (33737380734733937751 5401711328350210605)
(MULTIPLE-VALUE-LIST (FLOOR 28127709642032836544705999676759725409 10932535648386303235))
EQUAL-OK: (2572844081801336427 10537089091686284064)
(MULTIPLE-VALUE-LIST (FLOOR -306937202176830380291551701368328539229 -296436198830834971825518518346845101512))
EQUAL-OK: (1 -10501003345995408466033183021483437717)
(MULTIPLE-VALUE-LIST (FLOOR 53182351345555180643155906117731554036 -239211638592486301383761475381736024507))
EQUAL-OK: (-1 -186029287246931120740605569264004470471)
(MULTIPLE-VALUE-LIST (FLOOR 280879521805922529084106054377533635149 86259942955448859132329436894499980462))
EQUAL-OK: (3 22099692939575951687117743694033693763)
(MULTIPLE-VALUE-LIST (FLOOR 270479016313808755540727122565065208981 324912300098276215771804552548480817149))
EQUAL-OK: (0 270479016313808755540727122565065208981)
(MULTIPLE-VALUE-LIST (FLOOR -36931767825051824504116995033958612864 319307981922121038618879980001580483695))
EQUAL-OK: (-1 282376214097069214114762984967621870831)
(MULTIPLE-VALUE-LIST (FLOOR 107405040163562716679444439233633957914 -141652913538112981614728925754765362880))
EQUAL-OK: (-1 -34247873374550264935284486521131404966)
(MULTIPLE-VALUE-LIST (FLOOR 184790583924323275311064238756309559899 9405763068924930772523308542613843828189472529194204592633223103364008985533829727911596099340788835060163612329614413033927995456162272921833539208882402))
EQUAL-OK: (0 184790583924323275311064238756309559899)
(MULTIPLE-VALUE-LIST (FLOOR -232146313651929815140292892576650425884 127874042542498530491272428412953321188339770863893691736473766303033699167382382296818126363236257463426694846772750451609560841554300961480864245159756))
EQUAL-OK: (-1 127874042542498530491272428412953321188339770863893691736473766303033699167382382296818126363236257463426694846772518305295908911739160668588287594733872)
(MULTIPLE-VALUE-LIST (FLOOR 8728026917336931021644334642968359261 -4025737651718879467086249421940400743845718511565541383201031450532496911741243591880148294568060736532264934821412351158153056198557273134546519285439196))
EQUAL-OK: (-1 -4025737651718879467086249421940400743845718511565541383201031450532496911741243591880148294568060736532264934821412342430126138861626251490211876317079935)
(MULTIPLE-VALUE-LIST (FLOOR -21247806463473594155821742168531145877 9874623814693251335287095436063900170315895560443374584548447111313954604343515085076726174459237734570523327188441412904116251434030306488421699399082287))
EQUAL-OK: (-1 9874623814693251335287095436063900170315895560443374584548447111313954604343515085076726174459237734570523327188441391656309787960436150666679530867936410)
(MULTIPLE-VALUE-LIST (FLOOR 286071012976663674972497644839812778135 8117963470049102990205107814791130105126121536354646949522748212681559213640860255350655907507344188574393108661850973221437234442503731759547377868482253))
EQUAL-OK: (0 286071012976663674972497644839812778135)
(MULTIPLE-VALUE-LIST (FLOOR -31984072490103846239901254171623218449 5692584577100138206704178766874348327662006017031045734962382737701553237360572309466111381682998567474445884555969155997528896962520199289069413649945515))
EQUAL-OK: (-1 5692584577100138206704178766874348327662006017031045734962382737701553237360572309466111381682998567474445884555969124013456406858673959387815242026727066)
(MULTIPLE-VALUE-LIST (FLOOR -118786321298036108045826901623494422286 -13104687393529855246189161514016061367829206536234756076440701117699438900634808212710497707688898041370523685367660273492555927331371333817584456923437812254937564791326005224466260676246116823279440552837098144298072108885163702544652442198253976130758036230979750526665070549806140578651660117367824058664768255971820333797528263566114021182845197585116811208610765478558726491630221448907739229750716647693886681440731920621825762708622208585945445501310666367635378515829380161368994361558247741326227866296163878689192696502960274515396418704173356117106149549811507516298161494760216869495774889685228097554343))
EQUAL-OK: (0 -118786321298036108045826901623494422286)
(MULTIPLE-VALUE-LIST (FLOOR -243504960196882294351576664380857968998 -21587937181410571895883243216668490389074705797891859245233974857468088393972175783210897703383951091997858590608339069503309630378648345491373074180865032523580053667127292664354305946146706860083207200717386662398495588729927890691458790805600368902559075452315483293077820819619965677979632040202844747133012382862591603017396270452230496812292060122531819615885125296991557805051862986461441377986436031061301043809602913037623299360710776463563079053501286633046825608308134411478010516309133407298319800662521169341026639016773610132691088293480775753098006068864600975258749129292334356727402877150032641596013))
EQUAL-OK: (0 -243504960196882294351576664380857968998)
(MULTIPLE-VALUE-LIST (FLOOR -232153120215337418381368832017470265942 30369869998519160635038439385899036531726274899243107662193573776561025086030508184579231487739439638990032661366370630132003795988534362627493292132764049369361254377811101088096885616264297545296183017838644655031800075015262568240918564555865889092855166242732548296118581123607728694721796055009838837557999873738362196508994398492388283391000153200151108985088421583241872508945550713986000643154770628316896294096213588875028875159647959209523043158262383137987983806573391208706198841017176042216759223869369001945418516819972673432636326816040752486579776281338052626173120273068890045743383055115108151149136))
EQUAL-OK: (-1 30369869998519160635038439385899036531726274899243107662193573776561025086030508184579231487739439638990032661366370630132003795988534362627493292132764049369361254377811101088096885616264297545296183017838644655031800075015262568240918564555865889092855166242732548296118581123607728694721796055009838837557999873738362196508994398492388283391000153200151108985088421583241872508945550713986000643154770628316896294096213588875028875159647959209523043158262383137987983806573391208706198841017176042216759223869369001945418516819972673432636326816040752486579776281338052626172888119948674708325001686283090680883194)
(MULTIPLE-VALUE-LIST (FLOOR -259060284965774946595436776839639567158 -21169437398760148980356190208468018621145492999838564155598571671707045137252408058263155870788514173361612648418947991691931017566701206182096411121805142388703524692384188551391839307655250861401059757668540803453257330609840260191124331324376455691656017965418225557221321063048013134701879342357330536176553693912196231407222911508076200690973402778332647229863066211873019193191946948707769594605725700542299351271155436324879464212647734978854222464094486372144771948169422844206687239103281296767882465060755610256361348437002775612357787333990788742488962974294617778863800504758143312112916148210635178700875))
EQUAL-OK: (0 -259060284965774946595436776839639567158)
(MULTIPLE-VALUE-LIST (FLOOR -306407220440527520801126245152934343544 23776904469041910002999929986640006577749806048379780143306978176280330224333859620859305982085584460504452577150094943864349273103240498588108336792264540481132832425653265046674475461727185564436156797869482735166850827691928781085870354146365177855543550807539877079785312955597311473866546268560309551339704009052837019611095284429480282839060448969927393502922337023493529232757886223011597039473438267362519775173848264262428693937605086393282678388857244739695710639089112115821491015511241179389623611704128686301802869094211111183507607222840602723592206395532989319304742353354849715544201896997806941793031))
EQUAL-OK: (-1 23776904469041910002999929986640006577749806048379780143306978176280330224333859620859305982085584460504452577150094943864349273103240498588108336792264540481132832425653265046674475461727185564436156797869482735166850827691928781085870354146365177855543550807539877079785312955597311473866546268560309551339704009052837019611095284429480282839060448969927393502922337023493529232757886223011597039473438267362519775173848264262428693937605086393282678388857244739695710639089112115821491015511241179389623611704128686301802869094211111183507607222840602723592206395532989319304435946134409188023400770752654007449487)
(MULTIPLE-VALUE-LIST (FLOOR -195344089877883615473604540022799066156 3662747206396136814780716441352319011395583880744440623779519524132715621398922492090110915810914165138435343905061143614931233310311653264955206314385113727380922840781471233570237875610273247058183529977038444774890036917021403875269188605058323112809901006876685005810599540694986877767813641408707144817551209014119080068666341132956917595575721029282915413432788003670940873484464479035116187361986468817764174983360339341760904395062935668506379254915132158079325547293981795720009601997338615068852024788929328937759791477545407878160402653256560646902444406842976796122784294159073232675729939439754133572694))
EQUAL-OK: (-1 3662747206396136814780716441352319011395583880744440623779519524132715621398922492090110915810914165138435343905061143614931233310311653264955206314385113727380922840781471233570237875610273247058183529977038444774890036917021403875269188605058323112809901006876685005810599540694986877767813641408707144817551209014119080068666341132956917595575721029282915413432788003670940873484464479035116187361986468817764174983360339341760904395062935668506379254915132158079325547293981795720009601997338615068852024788929328937759791477545407878160402653256560646902444406842976796122588950069195349060256334899731334506538)
(MULTIPLE-VALUE-LIST (FLOOR 9264891165355739565190184416501921531110089392234481682785663537978152834210043205322426048946857682928713233093454298987718151514375312698287977140085629 7037874176512351849))
EQUAL-OK: (1316433191754927814343121270936699199595699278862016004420926865721433832616431797693201713416985056700387482358940219476958754936526117 3725966351458345296)
(MULTIPLE-VALUE-LIST (FLOOR 4200307032774171266112621290628586259036811354993551074625290503853725932886889027855146647188583607214617803535833936888841730747156500044307235280341823 1284895891758199540))
EQUAL-OK: (3268986273297707492966046995014614916998242647231210827092764188090140439361457237468815188241626314878458369000334553644889671709204514 686385384999618263)
(MULTIPLE-VALUE-LIST (FLOOR 4633581426210593840116821588308941075113609939505374670564216205139790589811590001728944069668539972864711443927654873778749890460797761818777105143436310 -2962967916964005701))
EQUAL-OK: (-1563831116658993795279542101101791208522139405163357327177345954575873595639420625598557391282445499923781922172975036467881769387028636 -2305528351410817526)
(MULTIPLE-VALUE-LIST (FLOOR 12717552468498637611743035736272812618998169576927971614333302239794587794960622996075191568720328790968571121428403438724885597787608886055291630047062012 13314634913503466421))
EQUAL-OK: (955155928128432692468469826248574845938797371431354312846155816839032798664341688948121282840353830287784283921940330056923616110441287 3054936783550538185)
(MULTIPLE-VALUE-LIST (FLOOR 12062294501874959722722826646961478850437392058690935960962546316456440331759806886386062852332964852589981740852222339370133938328830299239599161668985128 -16763340409247566945))
EQUAL-OK: (-719563894032763567901416565485723597235798340734444183600832520303761799320002945942723929422229544393458648487318438477478730610009081 -8784252901936442417)
(MULTIPLE-VALUE-LIST (FLOOR 3044847544275515285523698330617680562098304367055502952571345800359603621492376638228899902071703358030930686556600015395721763778348780143354036450288026 -346996692199522190))
EQUAL-OK: (-8774860431593785670059820118794469144363980632658525112469174051232043754755411530275560319174086707639904288765947602493995823751245651 -238735003065207664)
(MULTIPLE-VALUE-LIST (FLOOR 2509912747961300370421908848463238376627618739583712646450568707494390365647434163992939257405972498499963653610934135188560348612028561201284997136414467 -103539220471632131715513528655357150478))
EQUAL-OK: (-24241178719797015812049763065806339919024561304709065585003455368093218973185992185403749066840410575011438662859226 -96472873114015658715754743886276195561)
(MULTIPLE-VALUE-LIST (FLOOR 903584156603757584665316743639288345339689627067279191353819345586609786559389840933430566508676924801215959188934167984436460131912383813696092800782502 331768089796013775863175470747253254043))
EQUAL-OK: (2723541486944457282998823558887230609702011905460231484608706829329099534108144630923237396663979818212898288888162 206235332161320659528701690369799443536)
(MULTIPLE-VALUE-LIST (FLOOR 5673315779132616764913839385550510388979090539569302085655840858178135330568442902409259209441411672724870197775936862625748838206738247202566588717953664 174314453261637397091517016624017866910))
EQUAL-OK: (32546445076572334426551736182476341541840123356058415149120265601377736759669652080905093959104527787429999911903291 116692109360780668718335531020688952854)
(MULTIPLE-VALUE-LIST (FLOOR -1042174796681883628708939541235268651605049912220225874766096393016094308719465113556241387514699104237113811358810257758037463299809921161083533137718034 -222161050831883826404696847740663687900))
EQUAL-OK: (4691077903977550484144586938760520043889189188344556635834217114054282381408390083982959968194813858480017307031811 -99596643070173880773679158795261931134)
(MULTIPLE-VALUE-LIST (FLOOR 514620852714641065399283188571474686623886013323210978774935263256584816823822985571618774823719005380283570413767760460152207111047429811764462688164598 -249379962778237023348159084806351533829))
EQUAL-OK: (-2063601449697349844851896329155481297775287042332288194884672211603708613220802144442049441368964502372230090742486 -95322380544583572818596570976868394296)
(MULTIPLE-VALUE-LIST (FLOOR 4269600385716644031357008587416832262633392539755787971157199376810061034292825362806383550016756143465036715717235613514913396047178769910869994174370663 285417980748490192096950554131180300340))
EQUAL-OK: (14959114960171371128118740711875740516756226597819143207915053559296218628291049058344647983358827408473567791787490 241314195989544958480263376470519624063)
(MULTIPLE-VALUE-LIST (FLOOR 6257762944066060502889009610562625466881502649685643619949901701091938859953222566838296129679249506961399045004819501125771060525963805468605899184284857 2403901388951678895074087838271029994884292204266026258064846860089259517515609086601789420041871201768080771502802345608184755582676267305500365461987443))
EQUAL-OK: (2 1449960166162702712740833934020565477112918241153591103820207980913419824922004393634717289595507103425237501999214809909401549360611270857605168260309971)
(MULTIPLE-VALUE-LIST (FLOOR -11993484600336960787296361130458404039545119394875472848786275539588308627572632551925095053909141197737731742215007587172062102742960429155637516154567478 -10601606227266649325153572936490025724316912773656025997862708934485961793376598665748396482615905529759961488391911046336857148489489874009257983913322770))
EQUAL-OK: (1 -1391878373070311462142788193968378315228206621219446850923566605102346834196033886176698571293235667977770253823096540835204954253470555146379532241244708)
(MULTIPLE-VALUE-LIST (FLOOR -8099353584218727402496117482244315513694479151831901237119469501251316930293170263154474101121202090352876083340578448720444998702069748972927117400667238 3544314361305784888681580682051379178614889611356920001389193108853540699763802421224233206957629368752496825814976307915371579698349690086107445288844845))
EQUAL-OK: (-3 2533589499698627263548624563909822022150189682238858767048109825309305168998237000518225519751686015904614394104350475025669740392979321285395218465867297)
(MULTIPLE-VALUE-LIST (FLOOR -2978635751180326260478380464684854159186938695694356726729544155114559498149136630265180287452727795680214540092030170434165319182046797389540988376220992 -11044560433803724847345327269572156674554851849210901400046696801586678634230888624140822828361962132102290537138655249676050009778590939633587416463610415))
EQUAL-OK: (0 -2978635751180326260478380464684854159186938695694356726729544155114559498149136630265180287452727795680214540092030170434165319182046797389540988376220992)
(MULTIPLE-VALUE-LIST (FLOOR 13340538348613289212198643243040710073441733600226599862111857175429956610033827913042723029883753278922272401272143183977342753296395660841047710386806625 -12505012580354283714273335370179473407347376833608196161777727706326565713505585671787333065372262611606233460666323939469037058474587043990269917174242835))
EQUAL-OK: (-2 -11669486812095278216348027497318236741253020066989792461443598237223174816977343430531943100860771944290194520060504694960731363652778427139492123961679045)
(MULTIPLE-VALUE-LIST (FLOOR -3452499360915990528305851079744650498637858290301947784400848134276013289408593218875969649149167701046100505360083493320272180164238716241369492874982856 -2841735595132421145030480470066423226109731223189024018875906078709951146850527470934664784555907173906888591079310297248898808599295604861461544021697908))
EQUAL-OK: (1 -610763765783569383275370609678227272528127067112923765524942055566062142558065747941304864593260527139211914280773196071373371564943111379907948853284948)
(MULTIPLE-VALUE-LIST (FLOOR -12837726014506093148099404481188410844577204272048603185395045047349565142592994407238657335674129551317417810603584063833795494760777857363295221929632592 -5400672038070763758928059302309515863608512780764658336296609520612929827128710430832496604060142364086061442480255889774184624927820479974807630834638627053061502551989845184646873008822134065011205730341955561862333543891572685472831543459711809182159609688999832404181689665081467086838440500602969410420032314939424736094367166550148605570451238900811316075091818613634658092771400323953464835124475741159313252328998401218032670762735091435255199537815920258090766640501899817468173756745613666544200642455036991967916355826412137450931256645775349763991939102903236911444655964118925598580974976427195132959063))
EQUAL-OK: (0 -12837726014506093148099404481188410844577204272048603185395045047349565142592994407238657335674129551317417810603584063833795494760777857363295221929632592)
(MULTIPLE-VALUE-LIST (FLOOR 6578123342051874578301723989032639872736755816906003001838468752363433436477439123182015773040480790196872643618542950300401093404997067180920740266777136 30227534847135453106177887048045830910966009330493682541426640262878585964314188306388368740002450969080153107270718818194095421631888634061517731024627240634873991685067246458822125591350775226166707968203074411304172314390138208453777131423508042090910198631120304798774511984974823253005683386272038346156403540545900138637964682890471751795844957640450350739073841005154467987598913264762974403365908691068629911370262907886883158252280853615622312950774196097179304856495254526220900137020823369927850276669023897589972466867500466273084668060310345544901231841857904496215091732346299276586847479136514947400671))
EQUAL-OK: (0 6578123342051874578301723989032639872736755816906003001838468752363433436477439123182015773040480790196872643618542950300401093404997067180920740266777136)
(MULTIPLE-VALUE-LIST (FLOOR 12403944923950846249231475663107427245396603223802100275104415443763524399953865335344297718622152249002880852792246968794311649331174399649925724682365691 -12888526328266820415927145054786787145889555649382608442248161845973745960691528655550360088202102799744537495406020539568745771467756467183613368156733378808019164713600978887019905699871417123365613340681673916006626966649924170996253273073733852663021384681382051909095614154557333966638418401258055946731820806422207820872515345183005729150326803604361512295955159943694411555067679327842378949865992521340416781113735936437694218150384351520004302169462501770232864597266654390198260481651327159066598217103147752784312005857617885666670915444340917773878003125490279146098981790584757296196254721882965728596834))
EQUAL-OK: (-1 -12888526328266820415927145054786787145889555649382608442248161845973745960691528655550360088202102799744537495406020539568745771467756467183613368156733378808019164713600978887019905699871417123365613340681673916006626966649924170996253273073733852663021384681382051909095614154557333966638418401258055946731820806422207820872515345183005729150326803604361512295955159943694411555067679327842378949865992521340416781113735936437694218150384351520004302169462501757828919673315808140966784818543899913669994993301047477679896562094093485712805580100043199151725754122609426353852012996273107965021855071957241046231143)
(MULTIPLE-VALUE-LIST (FLOOR 10948926687039959668263034501276830818625159748756208667794639002017960671515169323966433371280908617310031465455790806503858320395456591407286777524363944 15489368888944605373650389556533647343231613227589912336942045556008797399070972592836944702007913599282985878262526911196097512734678645706417084706692047107683744531285802197270639216129852640210205547180574081479052109734758880839510339349237982383997307379952940072013079809351763653427560483156946719035644278683384662348499193303099798764213152890786143522348717903997482162057330324665060570551176318195643585920374603137371921517627526609290876303058743280212715019326447206678291320236859616579863769668727778545628289338458285997742887048186232356815344233169348134282594953756462483528235310248146271138654))
EQUAL-OK: (0 10948926687039959668263034501276830818625159748756208667794639002017960671515169323966433371280908617310031465455790806503858320395456591407286777524363944)
(MULTIPLE-VALUE-LIST (FLOOR 11464576772189320419261665628466949872551044398628568459420638211702970737332076526558331636045640676437486199912474581890841933557822038200509907802936313 -22467560825853172479037421968188386486420879368653733048793951227030601094142939166908251610058992921146938740897141065727494001469172869273657374887890530345239013255211792126218659779037493454354985213639803588241949068595974842726845550080803721118359501094994460828504625140423100683538018569820187798018489678377090273255263020908779694768888896507998040871877361662889436371169588814603494476932238384716309803290555316924487478792149178773379217766514013266795383492328680695659480010501872205935050314706513127406414046031915649062646891311739001532048668245929929298605152418405630093221583825629790103566902))
EQUAL-OK: (-1 -22467560825853172479037421968188386486420879368653733048793951227030601094142939166908251610058992921146938740897141065727494001469172869273657374887890530345239013255211792126218659779037493454354985213639803588241949068595974842726845550080803721118359501094994460828504625140423100683538018569820187798018489678377090273255263020908779694768888896507998040871877361662889436371169588814603494476932238384716309803290555316924487478792149178773379217766514013255330806720139360276397814382034922333384005916077944667985775834328944911730570364753407365486407991808443729386130570527563696535399545625119882300630589)
(MULTIPLE-VALUE-LIST (FLOOR 8938867625495530153186421114297747048040597826172184076413640033054738602015847458230139602813250873350372960139469151926251587994978713194477868118851140 32078375072910127937267277353555359769886046039319229674839329288579279294400524798815635423380870475101996161416889444654312193048344262195882716890119398121411812112449203794619431500846260449790771355510015457009235934372609093350279916863051987911050185220414029935306290325311701907978862607656115228781358052463349741922708496995681137879712967466047121123132315277071458202185149672157950295326835513685167006326116804121841993768353882369640078584371838201520000042076939249781755766637255305083290727182613012935978235950698890245889658464214791358409590524627630419359189066595841389501082705783042993303059))
EQUAL-OK: (0 8938867625495530153186421114297747048040597826172184076413640033054738602015847458230139602813250873350372960139469151926251587994978713194477868118851140)
(MULTIPLE-VALUE-LIST (FLOOR 8722682937170431050833187146084378340001260037987475887522226657702929497643381574300242436757970258082372353322466430729560481174965555877218498123235127972650642792093407571195465205419575987213014443482975328738475261835806620444520634849116095235065774422144459742716160248838471185163698000228745859478158104063095766855794756463409807333016407203497851105737138480852953389782284594500871170431951978989370255765328498664056929197514187424012915608945460596104718351333193752820591185791608965252963085687083606400804224201063308456591357967802486377986437493144904666736661926951141864058594174814702200209409 17412472792254218853))
EQUAL-OK: (500944526446044913245854704095754296476914947449773601840238266000641308362538841153234090543298285278030309320940403936325404298435972916448525262079072487832742313980507689645024811947475736929391921911894727993931203210832413457668815952782782949239897550712034201783959782842323270598876666346488371315244615931371511266927466746002593260083813695350859233907674818312186201150675556646229110170730257749054381148001252368819048293261475322932890858943640868603051493461480912552795132518076648186629059596407623028993206501153697237322059149347109211519809718392500920402797396035977014151301 13717640401691531656)
(MULTIPLE-VALUE-LIST (FLOOR 28355649069936648964480577421600521514076854589748655538478527484386692848040560920378270353295750065522502408426901852657385194373002516782134462463403619404085937808470896616603996134884288656277511001166614643845546560002367982733683422291378278295503032478358197654941019479109634084898326003113897170044006328598213579789377859798284810297339455100733353158770429621612618690067430491463355522146151298846940191011096497912423339688256950368577997428204387561345591508638698782496102293891198658979297125431373501637906166414269821235570899541062164735301390814949753951678580623524363615439367796948526661114273 8633859053023126034))
EQUAL-OK: (3284238125245742016855698157684933898976923158153988299571059835059738533454483417199061360717949675767825259147742326435714596823475742487511565640155717557287585352355724513814056546156034557507060565711152037955657280498048473524523497495066421726381315710512047045674071154161308957202034177182801687183543929989744017034272683534975659632492076519296858840261469439577557507171156150551483889412665000065287799665100306570592222219949067222441707356112651967102951988787499729560738632591896472356839552808850928783757605816255738706660766653939585897846868373880810762740938652879077841365007 8480542101902822035)
(MULTIPLE-VALUE-LIST (FLOOR 695804210379264643979583966247939985121477063798866833769029083451619832314943028815111717357207629373097980486420088049066444875218919515464168730784010670913213630418336413807551517181427706050442981412812560910674568907086122536915068847926867597666432252300779682993163510641754139318056267379096886236384894321926559804092457910184502775704660359338939407870665678723351102313495695271753077268239934810069567863069912893064736153816317584230084541663742856849855885433861537874945479324326871485256528265492542514387227516996450338546971631790859699133015684902494112907242906699969802617955900147949678000702 6681774530135049718))
EQUAL-OK: (104134643759851814351147451693200005177949603843035721223567744815305881538588822665583702468671678158123657386652154620049781061631961328262453617035662063853637317024464861861946266314086911857166878173456014196637218631863393572542109069255296051532325807248516303174349857623773438852122643289226264801658953137748153296436411578898337203701260654377419646372368642303334799023574274991890918545934625239992964365706183254509198057965378271765137299881104144690382322308740670412140492093203922319672781421992523823019735773183797196153517598307995654976625437636949948229208840097078305544042 753510048969320546)
(MULTIPLE-VALUE-LIST (FLOOR 23793846839231724395641481096168600821165863841834871677817770057997115862268350281729411419898015728222764385314741974298570203231459954889026804768374989204737469979104608191592488617915776065920825549826544170491376474603565313317103382409887303248767928207436610335921923003830631904883475966155908755916279914050461058817604412376332860234542206749755476863494453482771627934874030957391163592500144106720406855489772599751499515034904792907346159848425450017939743424553771285003901024075692162881112993617392057913260097840038314973483416617082316428401467936188718832437149607288888734084245887947167600476942 14251636779665730013))
EQUAL-OK: (1669551870223134151303903342674455433642542678166026329327716199552424270739267924882373474967130314854205248773422856606186537084529373808518256136223710801915037299873741750309033582768093390015183894640465684163714303454407585554851774795653260663343812169894506517621409762650950455752948417517702896344204545008148927831629685230911115972567815995382195887880974480058637498609515045000261275580213450984765289759768577989085446697886224919418538617830152205807256503108619376475835548388022966261347231830397100233962945745245326537590040744120991719469590787920917431072137837209281279829978 13846244437708747228)
(MULTIPLE-VALUE-LIST (FLOOR 5157109352853249971318864071100809054313778706912280725237530653514718017885603638808994268309662830522966266131723296476071219223553003512249189605920498878997009866938158487186969488205976122254188731320527219934117903279062529020046834522969499499006879142996400588997334123741485390256248878878301063076286830584096271875934275097457786951285271567141607668681320623976130528011279831938224824782139301311433982239041406699687231975177586985955350651094601995816681979048980035660883809964491229857363116776116215144288428315817606755704237448380042774619545204701291306469557276264456990236770565662987790837189 -10013270743141522218))
EQUAL-OK: (-515027455577944332776599219259294388811187969682242219239790206822600106136108551964834930674442778634657645567794824061780492131991288077428371773780758138983535394992930162959647831148714333399217585802721010849103285390761891312665489859363343081240130486926587552859706337223282598959658826457912110150229463850079329163597771797337822709730777565370953422223408595882843118286956939988955846229075579330815290845722563420243422752650828997772215730429207767090119357203878107337884921705286570049639435686342039828502912430702417787311741719990865608911989344378016685337998208215872207554274 -920760231421022543)
(MULTIPLE-VALUE-LIST (FLOOR 6494479986256116541104296929948745881595810377963953264991072983439840586308068782167240611739100078965050725068818882183756338815160036859027539278041681781661292616356111680897493765185363894557565156777508945778492400417041556530072176186473028646756075186621344659621007329706013704866019055199752880400583535752226648517005237843095412900402261752786336175778761394870284838510406493285835836510084377115102990988520712094164167646661458280428910514014249834132126729469995977022911113044853980749549364759880528586645949565758303087716543654543586861828638440479331739588108393797432477382024670823562517526646 5646044948886972124))
EQUAL-OK: (1150270684178027997729638025310141697535651329313468129284627631873742535270359534840413194117215304029010709513909008920532146218787185595227269977210380838656683242728568521891853665038056999715825712357842110695616824097006318159870253326008969365677078769387050477555367309756230306675796151995910498740461667569866473279089249936015985131524549691332989894205425117195925594673141706705491188937755834316410829046680432307112608812689099288880996341318638564624566449876699247700823589547245730672763432749619618807750355174780947014272103851229064036660484535227006468477136474311066305263226 3785857158573214622)
(MULTIPLE-VALUE-LIST (FLOOR -31360864680221422030140415094508859225037184177278863690330048646310966010764143021431123151508104188281687033827937090369965061135751835578522568620174870624326364591751719134017727476315825913896303730502231987133828454596458972192605628269836766485752863341723932456882638706013143064500915331711791221807863285445277518932935928879510111580179238430718068897684115464091110803073393785115849134031970572952341156248906594900067269723116623961645695573540685417690666812895681389324387236630659047254288574908905115640816788218380202062908240234242061857266935270268131606785945960533363545765413571210356588614272 158731480268028865375787109312788454557))
EQUAL-OK: (-197571802564094255018835618501836237470451780852464910702917947610328490115600879542277218044587953977482033832066853445897949746594340123621010571525423525283265694134335278880857970722363261435835440841138075424370755023622549046990506755720823389094963930373207384718204282462412342807880786115573288541223692700693236309165845190755419998468567231783954117079063183652374494384463667165956585068985935341133217173168221529758860606207789154326413767211275484817995028454435144966634656180655573506329003296926488159246532512031996848763667993503525898127688305577417054301089 22128982064863884081225183621483498301)
(MULTIPLE-VALUE-LIST (FLOOR 6972688127252138459564959519023672734797720350352562732688801457617542500099509865574973489633915033719003377224851429368921013349700580153017928134596084737004044411366993842119504403376959959480789333673755655063117787017101298662107070542628327980482897959181812093955456006698786827411711446400770298021381400926276799694253767942575674933967663793055141073318481678170963516082521833862017762649825976536694779299584090771859213561628651925244725218133964348562464473355036335901024895778660125505334188112559810228121975479770611339038859346371817450184722764849484125019138077786325611240207689562646177214862 212229494710249959442576275005814060115))
EQUAL-OK: (32854472639496801513625266171869868980490382632885983229822011721729192329270622778562010916862699719016516950898363598128121229189750116863530046554995732003476968354657890095157193194509736774942176733534056571834590366060961121671289385934253368995757730753667329275656966343378668081666905678760988072374390324867142186156887369444294667350127131255070935565628787125782523108523608392770938414227072810340675454608542379054058487857197652824285799185253955626498482144435788461420918351383205430463919873128183751743772403931916447474872579786344165522578418757820262494633 202602247999430336716424978770050352067)
(MULTIPLE-VALUE-LIST (FLOOR 16146477881044981814872185978005786543642189695578037880128585850657582227346785609949631520306446259385630057714250080634804935779512167368598228578137970013047546260870411704532863029107179381174130047754949458719207263855344249323475379597824225167477700328511898116621808311449385399905867898699564040099050435706021172544369947305690899952295406293447506146823515423102232662385522802025721933657658703659553626211653699561780784625213816227416468145185123310306319508640423290747072654284738002434784128270456278391972933415297337582959158202392632248570451671740383769937167912379559021602080900933189192375421 -20310422672054016316639412907518719590))
EQUAL-OK: (-794984828319777650694385094127543908631549711061207837016795411776676915426259473368853160688756737034823729254185786121643208845684214393842790938031685686187522759314947140818495607328399712740082388950671812621562726517214947696883370445215206445278987678057453772575168165658852145270562955365137991966349779422574705948837912807073553643238677887356778699590679423929808592396737386221680984966466476609537799000714595283015387280145210362603689829188312020767177147038887361232908826207585485585717770550283815412266616448789002231614634998653868395118016500112836083648523 -11799925147898511149643800539362290149)
(MULTIPLE-VALUE-LIST (FLOOR -13333386402689284528955650425278647711888918022382802858930735354762601039626630790596510115878972126652469762677159574447095103432811719733783031083771953511074739306201836852090205483055377050725227473420407492132102122918222222661174330427122421429872287465154597256840268514193104109407101719163350519145025605863849817679140939130213133277602018019855074419919415918787364400403970284236218639542926948339939839929520062948689163759711059171596722904754429438151009753108425737178467425999202826949155777669899192519705543679208977557190789421238295365156644743397621766685402593133067165504533347334868817548870 107895899863035416090758241115761545328))
EQUAL-OK: (-123576395577726995467509810094692559795501216776624732643654929468261569953970620516962817836961555200657486752392956631475337670018968072148956742753944568338154539759184635744464807131713977468703479999463417456632584312098725347773265375061594795112459950102134313707118281441803361728717545150343139196161174674989680811767284271234273952364761695483244122531302983909975719498713709629935106791776293856798291478157380963024628448230576871460269799644149756524167414024818290038046315016119726155391403548599527926110598142014566712845146844517328059271906387663525750970076 88916219636034843584282198824028056058)
(MULTIPLE-VALUE-LIST (FLOOR 17396957313719309181655810621342598276769983942993211094806395284201495622288603530182348401034532670779772026613959220329662328631746748840677422913897389222211979435071300283979361385673923168895608787064277711550661080470385607194607715097404666355341496134600730286695020337462621706659365279865288817231582460135505994785679557826378614057840182487774381015927951405829305139118747627556929090278010945530871104877221509669969637405745641517281958386251071953311649218819211648218403974139963448683937267881136641329201897530450274203549882462469989176813129608929688681288830465486480047730094845155570312862849 104186547224209978415781641589908237686))
EQUAL-OK: (166978921724711432713743436094800137505239032223722714964309089009506614535895519867110422644603923287110323367280581626196181748165083370852210731028149827924135420402322644021166934074442323617970930798783252483767604446788478644579242675426052418474560530381252273076756647943610269802844827006798614570113552490465455602498689920520721194207399033534120048155924790694559525815508064767545247429922864279482054330586837508112647624007190343625308333109186981945018060033849826856038685383194624273212670683254990051450794748656874003602039616482791671154071071940218956513118 9689041137085346765396894259391897901)
(MULTIPLE-VALUE-LIST (FLOOR 26296668029363560180578472840636347646283515109787546573773133131169235303278230292620358193183994696837168281782424510501462932715289179113988102147665778902989371433141498385910026219307721742927641650208826808587628688330897125412814594284814050899367007933796796475217266168539594147019546294897573039387284123267787652073296654465797846788961105602455421819896924940988943972769457383697764285807789932427485615761627567609238909525216550007481876466503244451415718439500787125259366798747857812030734235875561021422659158282642054300429948383202431010170473103089719168265166132037042278884136592980721399898848 -145151976679874338336058059363314537))
EQUAL-OK: (-181166447959297097309632649706277310462287087273328158550559504514077025970552462585976881228509338936991115036681066334762526041621219901153411893847383132947014037561714726163730996723689359625350327562359371926025189504119439124542211108302015324941630060663441114185165191476531119095379776949183747807676488899740428054170566283213350742091333006110702325305863276507428847828894436119391753135134140918882254262557249907254757481730047992171259860818951015886963391969368286964814563381601392580107247382831740092922947642920341973871311541502943677603328463821550096331015449 -110577937214275422567781046193383265)
(MULTIPLE-VALUE-LIST (FLOOR -19994387832358687564296482880955715923586831477222916410597818184152857711804843023778287694318724091304456899035183525127967566364649938785565453184727547598671504088541688780249133503129117660562371945085803761853547276588271572826270417538713473845464667687405215144939251922714172491714494707146884856110703801489923219443900691887441959990915961809557008130581221371957930424791112777130507507175854695038524747304496126685506502272017923871345301904089286401283977464945598827719321374155830270851832155999413594990591210770207211404582078047399265487243377424091264415562555479103296829671606309227114918559411 -12290727751262531359522445814787932748157034294075544178515373320704162497192584943859172528304649072004548036058435558708785921268699678655127651925033127))
EQUAL-OK: (1626786325187686206254527912536268233229423573477257270053889346415589499220953871015742625081244397640382477041911954315181713027690095532216560352291641519082404655148801601548476351855968135320238312168182690718232048560912434032449056943124604465352409935769208624710904989903415445402236977791654195811881494578919123294926181940156782515461241607944723498957864382829554865120206763098110715049165623436566759235599826844834593966722456940122296028858654743 -9304614710679256891239598861411560332304324920434685965899525875715186019084445758952863067134832791421060008856516918122255022315420901512824783987888050)
(MULTIPLE-VALUE-LIST (FLOOR 29916764548363516315213840380698377536192609328827808911066465815108876776179490417834258307994776308911573596103626976278007330105709262864909645777842169226871227147054313657605129607087589187123503174807369386299991859056839377153696490642393964375926230602462747312790529261100240727992473466712957240583216041201088172946856263144111813006598318253235946940685055230369936673556047728831107329646718919450916347559724523856479721600705891348359262178740659519774585983326669798219391447115538287743254388570949370216658299333436961807924794235560183973249587386381643272943817567729138289488897133971529039695757 8476334091496252719253471844340714224307718865976339399900779938495486609491382968889867250990569753004524377073297071391348967807704774866029247355531618))
EQUAL-OK: (3529446129120492576886933802306348265603546401021071145489371491655402978871242160302127070993421776756377896228018319062438889879832901903630775379375474362476945682118589732246954574638082665328364641573132346715748566497144048040413137331852635046499249704620713985392482170976329565026453768403409435575238922748145312555307402543771398751056417238642358386670853730480256387244547289563589645563705382910276075835741806800308617595407635175179549186349623407 1121598720662440742988451944089192258208677258393969079460095922943603039995215206852920630773807538691962340221388452566848135314318278502721876458313231)
(MULTIPLE-VALUE-LIST (FLOOR -30744743258986840974825934925400463284355151584175701001085034454282509186617636999187209301942468580138651572968436145883508307958710953672541548503099036345172087541186583358599035971842953063792288589346835317805238011836025866089112384348158834439025788655670125182111347815257445264926636792871229400549827577321670531162443103810493815924151448637886392962948822485797619344455378736429734156821345757186019132123507024835777255364976075865806996283635073664232613154449751312293463363442122204887362535000774934247468263702545257658938264075634847752288018235968497021028555508346290918717339789336670514080457 9934634309555858804270980126309615970053320780519373855793924975583204316518242194797388422238716941854010764960600214725109000476250489194524103405530739))
EQUAL-OK: (-3094703066162616114961725586598761886126440000450319657542750158557542422972265973994772432239434133706930345695126019787070526540238058168248601279554005834087067802027491094801318957724338773860374084056857766237802500357570852135835098188033303615905411388899090151866056131910609183545491275118194384669083917607888152562507000146957250511707959497676133004912560741040750644659008842081402439245159076407113469036885418577123982203712293205143214370192534124 4583596897489701137708573201509728063693689464812281935974761545728663079569821440573072545991527054461975034582959468944964678550288258358252037074357179)
(MULTIPLE-VALUE-LIST (FLOOR 24643502519803888691586762836893695554672668882609252497967357925433058477865049537403781351424439957461939549800248300068008928283760882152105280755728186165336818042947891471506568092832294726444765034759769551554808855491501013689374698042749154404230203678454785382207604303955330803002216399957247238380783055267792042696128953561495320963977422797650867160007702447898131066450706964885725041540562948429789541526915479497874153956586286026740960933319749986950590370162278200833957789772606366304927219928607487195862425188567871883130961914293433624774413725427494180502314592349900074269004608052919421088368 2717450167284225996753981867457220829510500841312068511238048532529427648370573174539553585183069673827813696207263846346713773366926177883038970327669336))
EQUAL-OK: (9068612486988930041452615817812610262395413380750714216172624755617167719146150429506179809229439286481063525474263171526993584649905549895379552966354856688607031124385144196292585204982548068977456744404073207215088901248836694827956726571697679223311674675917482789361649212542123782029147076771863216074461137218175127751607336902080642274682219411530926094644805942929937073627694007279189212959755881318530033893691479717411893927131774283641886860168845194 2630363844657415178536247490974293939778607568925570410250370678327072798984411202414449734187268017772490491616031334354084510652181851150192386816317184)
(MULTIPLE-VALUE-LIST (FLOOR 1857471144762621226078309760048781819853808902834007243224510947324703640579895884811355396539307768563652552656687272466757001311647739575925654454617797724205998847128737511426204839085303003071906438273332520201294499647651016586411018765198623236956366866836742835368817430092030307634950795461633849978479504285561783793523293571899866834127333885745234267982498066548934305641020559144124243564372784715821253591393010485777361901806233522170298666402318233462164642692695586402286093353406704474285764942607399336515494566976327035651095257443119526233432484730549923908643983835638400244551332963304703341991 362612878824948204766041465498605121983038344328923889813821008133012829955553725429013872301357114460102737976404433762806451909620639548491755012601032))
EQUAL-OK: (5122463247256360173380682454830667735994909336257131094636868172398931453441644851286253058553683806107714242214425234484025628771776577335533690016729030113210376620329656025707882934177847398968795670307669192526890837607471635669459016090183544133427748745285201703705268883110778706355536331762965138118319801447738265213248123408984033840769670544118622199016226728679039309116650227118501163822195946867970684116882706924781160720494209768961175300546225784 299760236823448232299335077352435634442705524236228994156709162318327253866985319237312495500717724311867426639654094420477947147244359720759776119932903)
(MULTIPLE-VALUE-LIST (FLOOR -15512250050509017569431653406374218468191654707236673402325185299702995515514048891881128604127259128940966966514594946451486134694476273851559935124397715410737724278746590654901453457150411276548615199767807502093455391898384739629715289928761836102897197661380120487438391395985221415090269132778914962364055598932950972975325423902250870789291669816092405224971234605691036355433974706922342506063057313987759468269851537540937400869685698983579620650290591582484180497444639057157757973753179907365231695893268694300775677678977541920955165836544926807198464657683328635157477957240884116233992874779933793654204 3358541127950670805593397985550958371637657834938091938230318311713415017140090677340291997759883758478618605945079413061265904587739160855880393703427541))
EQUAL-OK: (-4618746491270258642196486131268015112521835423420717615093174172980857448220383551186758990917205762587881579670823547496170992786073126440511182401809159567300795932372630208424356476743332043619346311088384079059435373790499576304419282368802375623485321283238175405485184862968207039638749406944454331623523507687428477960605913568521627594126207284882249627708423470608914416155986620408793531083231293214124556072929628635430705354422888702360112306375650944 3005102575063606384680566102915562580638230938191281335082512965430334791588194853068845397234960243041587407778382851298719244486316278864423824018594500)
(MULTIPLE-VALUE-LIST (FLOOR -7795907266149417935880848054805638357926463272237741460640947569644048588447722511612181517607450880049915905557897989678236704307693907736247058983016545076253121570693500226105057772914231058133990872553093077477246778482972908671114493634160355090012802248700706280069417479488180111886570768297449284497993155476453139747448123977064178202693174347058572053686548952330935409613585349836865130827901523001778569465270141666026392762544863707172069660941583975586471593214627992137708766736399392527511202198595607734119123667475481080585901379489987633325665012548140296404667154265922084962379380813206642961141 3266322496024458154155982586177367205241879884975448114046439840444265881425140636480586339953113858345978121218157346057285955670573379845528853928778649121198573716895875372950665878135491926664618467827249347334921049358968885123014320008238518111491029267663871866232098994215220584035091470875989416180732388925174422587186795087858194659347743269411322176680238569785902471836835335166112452646235228206195081915725782645939016905926964169376697807870023636080042287120562847150399762713196525578131013908505157176421364232903071413436786302567498639276925676203136397430977438669196132229839190136276524068288))
EQUAL-OK: (-3 2003060221923956526587099703726463257799176382688602881498371951688749055827699397829577502251890694988018458096574048493621162704026231800339502803319402287342599579994125892746939861492244721859864530928654964527516369593933746697928466390555199244460285554290909318626879503157481640218703644330518964044204011299070128014112261286510405775350055461175394476354166757026772005896920655661472227110804161616806676281907206271790657955236028800958023762668486932653655268147060549313490521403190184206881839526919863795144969031233733159724457528212508284505112016061268895888265161741666311727138189595622929243723)
(MULTIPLE-VALUE-LIST (FLOOR 11613527140000568192482756738253388762224453894786686024705324634643336086154640452808765642911437980109688560443031730927780624431102238262306897218656077453053740901919490705730434109001630505554615644472687423755323577388664893480041595787444776915986509240983988768996984961291424649229547505632144971266842770877960364848817464904515794389771780820407027606373375049573795106795237627834701205331678265805568350911815774813018183599320960878173351437520785364220474506113269284418886794765499703487689302735252054649064328797761871733823998210784410557300554983737071496100764692702245794941065431902323619975581 7587249511488455291481574592043097850017617150850944854151430663857438629054661904725186504711545142985024178310267212940242316767124495452290378757849233879415880641974894427201010329762690544890887138507664079244754338469394276854749839357593153274763991475638253761900794536890806900100092838214316658164432730592513062527370014192403678448098350118128696785002089891158354556141292773760767431084006166964515144211080310413063362654706066932594296395740249062444674285627590937186704887659632200604451417990996813320236575100574875972599186794102474813935877205799664448604353627460661673753990274449050152179527))
EQUAL-OK: (1 4026277628512112901001182146210290912206836743935741170553893970785897457099978548083579138199892837124664382132764517987538307663977742810016518460806843573637860259944596278529423779238939960663728505965023344510569238919270616625291756429851623641222517765345735007096190424400617749129454667417828313102410040285447302321447450712112115941673430702278330821371285158415440550653944854073933774247672098841053206700735464399954820944614893945579055041780536301775800220485678347232181907105867502883237884744255241328827753697186995761224811416681935743364677777937407047496411065241584121187075157453273467796054)
(MULTIPLE-VALUE-LIST (FLOOR -7305781671042805086205879027901218372025263744748476920370936801215407682690507181906856060500614379569331564964369672229742583709815447579920249246854986585035499467980872113078927984775191185433409825799075510115669850322522523768142598684481781858254267858499128954637862215107851239397355311785880257523971110240017078879170794103136756816178851155500522519324993786026829680880063502983144325993463559477297984845168078230705008144229777150602704982383890956566628052218375163513110904344758464487972471262152773773566261138354198738738504010228322403241824600361830597196538559114936352203702189317843297305612 -11937423884971453925821024083751259499642447259766781297912835275709052311299551864192658177304486399283699058384364751376568714457361090099824205847610164922413207048832164141112741434740690851620879666916091683114805059397520385319965609291355819302668926633114618391597972110270104195729524521712155052417250364832858246777602394209216012243471719585422463867924602236259070514326289155605995143153426519592268534452020820494702940294360007255909971183689215427975382460838239606147437401771039532404179010791325434773433170447691511043481857627662741058910094855501029573945308325534013127380693322055343068093073))
EQUAL-OK: (0 -7305781671042805086205879027901218372025263744748476920370936801215407682690507181906856060500614379569331564964369672229742583709815447579920249246854986585035499467980872113078927984775191185433409825799075510115669850322522523768142598684481781858254267858499128954637862215107851239397355311785880257523971110240017078879170794103136756816178851155500522519324993786026829680880063502983144325993463559477297984845168078230705008144229777150602704982383890956566628052218375163513110904344758464487972471262152773773566261138354198738738504010228322403241824600361830597196538559114936352203702189317843297305612)
(MULTIPLE-VALUE-LIST (FLOOR 17209502052655993695999949678678881817732805080961191774214537634467104669997820051278559964292611469011761231649311262525642916746094372962648405298787080759403024379693612743720557853611946286870304197122036126838107226222151419136402861650399432372524638862075613534601535719033760228742681750726602275976151585576407980278472053570791272866409613117043122126348697545507835143620584132787128003876247255766444872271317786602207376422907474443135464267851639815814827163426470735478362760843575789201717413221027220343295978806345517086041608240978720520050196395624694268550345436208830801369557317350938753101681 -25492366031674865714603800130440722297248675391454036922399382654290017832413394991423912006244487394226853780856833445493556957899686872020567315114599762113500546176766623020864155665149937580279148318691466089932874147998457966225079089491216886106456935347049916843309661581230809710698689198580162954443484103521650233141750002940462046212610545804018834324858009370780731978549694951052575612824613445810777717659953126577086301947235560041125102454055651800601741899891885690488712713049609045874194541526013910595588271596050758340197535035493872183554373796733932414738278642683363241812520579194986842248406))
EQUAL-OK: (-1 -8282863979018872018603850451761840479515870310492845148184845019822913162415574940145352041951875925215092549207522182967914041153592499057918909815812681354097521797073010277143597811537991293408844121569429963094766921776306547088676227840817453733932296484974303308708125862197049481956007447853560678467332517945242252863277949369670773346200932686975712198509311825272896834929110818265447608948366190044332845388635339974878925524328085597989638186204011984786914736465414955010349952206033256672477128304986690252292292789705241254155926794515151663504177401109238146187933206474532440442963261844048089146725)
(MULTIPLE-VALUE-LIST (FLOOR -8264418404762904935971540586212553189369665581268178138984287355704267971035469114147004054957406066365602520300857203610010249719556414712966642864630190534880504909484466848336120976452116710282569157883499369927614177722612839620755683557142607127318366680113418741529273669250116389195268121444810596743918472573214391707744942602210637166261703132552343842498400457951297867678005414165609775233338084350550320105330065321705398390488050253072298385134487973139665686164664754618413684815943926055617247418686500187322182211450203615430634564054858334306443836925011966962933359925972720453678168762605413687214 5659270408666391096654451960229302202479994399681938594290004159630195588392730314741316662127233421095165804881532974934939182755121225362126950700260935754690609887023434283325604581248499606543036334396521593447377999307285561199879892626309791285854660250329582118972672086769638010239857182094917068742207521552140484875546416914612991626798295801703343486711676899362639653362756374154843829963089403048720579483739833657436575344900585844370562669493206999896738589003961397524062927929845521761767153927579517203070144813897742036471334901681673999002492983666998353060616069539877603853178826800408499832716))
EQUAL-OK: (-2 3054122412569877257337363334246051215590323218095699049595720963556123205749991515335629269297060775824729089462208746259868115790686036011287258535891680974500714864562401718315088186044882502803503510909543816967141820891958282779004101695476975444390953820545745496416070504289159631284446242745023540740496570531066578043347891227015346087334888470854343130924953340773981439047507334144077884692840721746890838862149601993167752299313121435668826953851926026653811491843258040429712171043747117467917060436472534218818107416345280457512035239308489663698542130408984739158298779153782487252679484838211585978218)
(MULTIPLE-VALUE-LIST (FLOOR 4195250682093770808206657488351701663023767531608220002369022288787894743733460069813218793361969185403525213558437941222523116136985128137372308027033996674188008302853626391013869026313385724383785051935256506784450227965020957296318645208598488161413279403683346821629439117327209071527878791167163980953326296620631874274522101994118890706372879111377721965738161511000396672294975037034526549811513789043244305969633354034500541113123255063232374386942908997046756046017320772897856114275234707703184161983806610888947627465435762937561231247173215724615365040435541390265704981699351563837340527277633975576176 -11523670060248463390302653643248573080204626895667435502164973305972185748470395654926094006744012148505197326052121545710242241891352369937317053719774706293090545099894988182012473466703170157783937873302934404896538337261995680454862441735502556865637909145839304694688324140057229642104588273654096346180116632418345589170248829444934471179206795690822184585196864577932274205101316913141872261673241280391442045565990088555353753789476615480189520529331131737084431448177942371080785938641454814169544682945510387155405628842164935394830439534834414364899293061798829902686953424000191565445443376301466821322836))
EQUAL-OK: (-1 -7328419378154692582095996154896871417180859364059215499795951017184291004736935585112875213382042963101672112493683604487719125754367241799944745692740709618902536797041361790998604440389784433400152821367677898112088109296974723158543796526904068704224629742155957873058885022730020570576709482486932365226790335797713714895726727450815580472833916579444462619458703066931877532806341876107345711861727491348197739596356734520853212676353360416957146142388222740037675402160621598182929824366220106466360520961703776266458001376729172457269208287661198640283928021363288512421248442300840001608102849023832845746660)
(/ 10105597264942543888 14352488138967388642)
EQL-OK: 5052798632471271944/7176244069483694321
(/ -17631701977702695093 3931860028646338313)
EQL-OK: -17631701977702695093/3931860028646338313
(/ -1606495881715082381 16324360910828438638)
EQL-OK: -1606495881715082381/16324360910828438638
(/ -7960193178071300653 -10280747961248435844)
EQL-OK: 7960193178071300653/10280747961248435844
(/ -11544909483975853384 -16041992360613233027)
EQL-OK: 11544909483975853384/16041992360613233027
(/ -5758820541298901548 -2596462557714095861)
EQL-OK: 5758820541298901548/2596462557714095861
(/ -13056342734667572546 46502284983183419157350605242474199851)
EQL-OK: -13056342734667572546/46502284983183419157350605242474199851
(/ 12668118634717482325 -338544675918656078399121171905238525746)
EQL-OK: -12668118634717482325/338544675918656078399121171905238525746
(/ -16738429327795346815 164053836541028518093058940786011794219)
EQL-OK: -16738429327795346815/164053836541028518093058940786011794219
(/ -9884600460121235549 -53914696297933680001835530599748561584)
EQL-OK: 9884600460121235549/53914696297933680001835530599748561584
(/ 6753521264659576004 71759828079371803409570464915096122874)
EQL-OK: 3376760632329788002/35879914039685901704785232457548061437
(/ -6072478784520825268 83641961138289700975241455431547940418)
EQL-OK: -3036239392260412634/41820980569144850487620727715773970209
(/ -6708950756971973620 -9847903810677323447803434015107261150885944735136350527205856921771320298384705376646797569973415403097847060539915279223391112430240736564839483430569706)
EQL-OK: 3354475378485986810/4923951905338661723901717007553630575442972367568175263602928460885660149192352688323398784986707701548923530269957639611695556215120368282419741715284853
(/ 11263779860755455072 2292311486393743282743453705144070351222990311578446825826935237655927864700827857707370158936582804478427014131790879562565658386819339761919809732496450)
EQL-OK: 1877296643459242512/382051914398957213790575617524011725203831718596407804304489206275987977450137976284561693156097134079737835688631813260427609731136556626986634955416075
(/ 9956488981426387585 -12351244248621474338537656633137999145154500022264356186225225426288301330225259889671144104952158102155582320296061124840400655528634050137479515338944145)
EQL-OK: -1991297796285277517/2470248849724294867707531326627599829030900004452871237245045085257660266045051977934228820990431620431116464059212224968080131105726810027495903067788829
(/ -14875992781716065391 4906952781757522095285156014969507916562921709689447567404076064849249737893410245743456952512717420040816186768213920574809530298070437840356629617118643)
EQL-OK: -2125141825959437913/700993254536788870755022287852786845223274529955635366772010866407035676841915749391922421787531060005830883824030560082115647185438633977193804231016949
(/ 16043178952268979636 -4962728781666935768923030490263743715131420507991284894489828489607808897271220927863958149140648859077934323268424257800724618076505149638049461104621679)
EQL-OK: -5347726317422993212/1654242927222311922974343496754581238377140169330428298163276163202602965757073642621319383046882953025978107756141419266908206025501716546016487034873893
(/ -14889985628902581941 3075736124701105220602924325296812116294816310089906623707854625135862902005059305428034753787024827094954645083406870532379125275086885405969947540175361)
EQL-OK: -14889985628902581941/3075736124701105220602924325296812116294816310089906623707854625135862902005059305428034753787024827094954645083406870532379125275086885405969947540175361
(/ -1719613957783789857 19860562547348050982501313785551054055826630539673708970554435103060535649825139319625648954889488501680865494719253019921780044205805557658109807483499994523398090829033362953135186523580359552555144614353929273831853529446536288544481045105104526669277307473478898498061888931858821517694257595658138564305517447595298378933983614114298000880741350618424855028965861930329619462261269994651112266861896630584883581092431090390354633458596611690990999635499563944625720180529318327647519405136188243979680965052005899543797270970540925042201315580510136864931200059448645464256385079735225156720340173280541113382758)
EQL-OK: -1719613957783789857/19860562547348050982501313785551054055826630539673708970554435103060535649825139319625648954889488501680865494719253019921780044205805557658109807483499994523398090829033362953135186523580359552555144614353929273831853529446536288544481045105104526669277307473478898498061888931858821517694257595658138564305517447595298378933983614114298000880741350618424855028965861930329619462261269994651112266861896630584883581092431090390354633458596611690990999635499563944625720180529318327647519405136188243979680965052005899543797270970540925042201315580510136864931200059448645464256385079735225156720340173280541113382758
(/ -10969623867482498359 1292477254230352575769754773488799598312602810841892384475535212194939033905139960602724737178675944133847094464739764817257836826367652752931492512753561670732296265459534230949226553571982695924178928914002527460943582374603078611662312521259541641138419845784008028215876048965254023368247445173694441960256131358058174374542730502334351759171930973722361567186133851896057677818979314942434199157003833234473048838906103902832115569853657335216793235394595479328932380393044485884605451918890395812628720641212850763944658735838941829604119213195707479940053016354291972875689927240247563236506479099606571912595)
EQL-OK: -10969623867482498359/1292477254230352575769754773488799598312602810841892384475535212194939033905139960602724737178675944133847094464739764817257836826367652752931492512753561670732296265459534230949226553571982695924178928914002527460943582374603078611662312521259541641138419845784008028215876048965254023368247445173694441960256131358058174374542730502334351759171930973722361567186133851896057677818979314942434199157003833234473048838906103902832115569853657335216793235394595479328932380393044485884605451918890395812628720641212850763944658735838941829604119213195707479940053016354291972875689927240247563236506479099606571912595
(/ -3716891004757979686 -19452372993227550502015765258932159656814363741878583541173956168837566077148160901999018823586675966076058615847408138956450751813058209394199427182041779436168298455103717521843644244801542056954603631432685194627158423459586845252167819811850263444712218938833443253125954475476481099092216538126519474183531297423759923656571895377587989169731023397615799830371852298135015608612181670362528239430952907458704415974164085176066242388561893721949244663406941558257051263727439679525692652639731850971185056484335828001005009903973037524233097329857690857731943951449292814500362180170793919266389501882641682782987)
EQL-OK: 3716891004757979686/19452372993227550502015765258932159656814363741878583541173956168837566077148160901999018823586675966076058615847408138956450751813058209394199427182041779436168298455103717521843644244801542056954603631432685194627158423459586845252167819811850263444712218938833443253125954475476481099092216538126519474183531297423759923656571895377587989169731023397615799830371852298135015608612181670362528239430952907458704415974164085176066242388561893721949244663406941558257051263727439679525692652639731850971185056484335828001005009903973037524233097329857690857731943951449292814500362180170793919266389501882641682782987
(/ -4863232114852441787 -22963038454503597269981750990033903654256693514059439027985256604978917966584414065892146187253799108250061573972673983350956191446047978392921074610323648301008272837432907303975548030552369880338022067315042332692023645592417869181836251486577977896077712912433381480614752789750181208326525834629219729662085632321271870762094800588296544243340047360684854239747242066367921596241226349790282723168222543448385227922748241223520686047460119733024390425165073367321644498280127168757335614077882325524816799960018589278475564547840614315473357481582710826551932681173443524724802157570101916268510464302946527662720)
EQL-OK: 4863232114852441787/22963038454503597269981750990033903654256693514059439027985256604978917966584414065892146187253799108250061573972673983350956191446047978392921074610323648301008272837432907303975548030552369880338022067315042332692023645592417869181836251486577977896077712912433381480614752789750181208326525834629219729662085632321271870762094800588296544243340047360684854239747242066367921596241226349790282723168222543448385227922748241223520686047460119733024390425165073367321644498280127168757335614077882325524816799960018589278475564547840614315473357481582710826551932681173443524724802157570101916268510464302946527662720
(/ -16248276650501285553 -3381199474840825715485713565301777938368574604710714363907009216856320913536015299178065264912798511857598595067318796576494480424838898250138649774858742984769125731728430552285782315111538920026330816414650913188340281906359149109963139438960274321560117812365241840204034925444652058916966934904097509799291744775242863360284348334605170437300543978049053839829106628489146216325576991696936733592366926096500684308845306493636196092408597450926695579897293944488261001228478152650490677071497874746121221519036861983646423005753475340900508665494162949119110128646472783016552527735050067363030838015919512260159)
EQL-OK: 16248276650501285553/3381199474840825715485713565301777938368574604710714363907009216856320913536015299178065264912798511857598595067318796576494480424838898250138649774858742984769125731728430552285782315111538920026330816414650913188340281906359149109963139438960274321560117812365241840204034925444652058916966934904097509799291744775242863360284348334605170437300543978049053839829106628489146216325576991696936733592366926096500684308845306493636196092408597450926695579897293944488261001228478152650490677071497874746121221519036861983646423005753475340900508665494162949119110128646472783016552527735050067363030838015919512260159
(/ 18296946401228630959 3302341071702763311560113831030141639804425031433511503765833897787925467295486187687396312611805794369889470239777040624530990622212474466940548049117664906468330871893337410618797113677420975837622378808494314918471282099855916016026079371666730617071364751834080179173620476977670099126230223862266413091012344741482772771219725893630556702028108027870656512750807359335108428687238687397060104669074315031780019301768744978815422943986587389425726602444937024004102212071953113581935989741954695450085391443134273670514145585869912689150728183940456773133212037846765421397201956541430155664614978559762638030787)
EQL-OK: 494512064898071107/89252461397371981393516590027841665940660135984689500101779294534808796413391518586145846286805562009997012709183163260122459206005742553160555352678855808282927861402522632719426949018308675022638442670499846349147872489185295027460164307342344070731658506806326491329016769648045137814222438482763957110567901209229264128951884483611636667622381298050558284128400198900948876451006451010731354180245251757615676197345101215643660079567205064579073691957971270919029789515458192258971242965998775552705010579544169558662544475293781424031100761728120453327924649671534200578302755582200815017962566988101692919751
(/ -60488682170925814337492051725122486652 14880088785789146426)
EQL-OK: -30244341085462907168746025862561243326/7440044392894573213
(/ 126617729996196635247771282957911941277 -7166506344996883172)
EQL-OK: -126617729996196635247771282957911941277/7166506344996883172
(/ -278675896803726074870988122161067771390 7744689831802931490)
EQL-OK: -27867589680372607487098812216106777139/774468983180293149
(/ -283351838662873779255871649630248958879 6912311315831153835)
EQL-OK: -14913254666467041013466928927907839941/363805858727955465
(/ -9715584046609700027352634666499181378 3368831995960494221)
EQL-OK: -9715584046609700027352634666499181378/3368831995960494221
(/ -137493547985106345282009151869389470397 -1916381539906956855)
EQL-OK: 137493547985106345282009151869389470397/1916381539906956855
(/ -328662747577960331872949773416436800743 -231069430804205460334599495337085157308)
EQL-OK: 328662747577960331872949773416436800743/231069430804205460334599495337085157308
(/ 213595640581249636406536485951630735277 -48492294677143227478357598229530842959)
EQL-OK: -213595640581249636406536485951630735277/48492294677143227478357598229530842959
(/ 85922846498729014445816145204889624189 193533957681757355413031965695625196813)
EQL-OK: 85922846498729014445816145204889624189/193533957681757355413031965695625196813
(/ 24053342958857142686054803491202486471 196417511107100936775397820630955772553)
EQL-OK: 24053342958857142686054803491202486471/196417511107100936775397820630955772553
(/ 102038936612518756467074084117019701214 -111946989731587760700903475996379168167)
EQL-OK: -102038936612518756467074084117019701214/111946989731587760700903475996379168167
(/ -3006867214208872584699983438179656913 -234257597822744479264249663225224173340)
EQL-OK: 3006867214208872584699983438179656913/234257597822744479264249663225224173340
(/ -279839802710533516603863620922251878907 -3244112647743502769852782626803305310331045534071805654982307107362388474314396636799597033636575215617240554815450017779373048313695795886893032630263219)
EQL-OK: 279839802710533516603863620922251878907/3244112647743502769852782626803305310331045534071805654982307107362388474314396636799597033636575215617240554815450017779373048313695795886893032630263219
(/ 123635964546481689465778244982425098404 7701433613491146708866098469269971554817017737111287276993583150548359764165526640986060909954451793171933304569726872785964805121981749276421956645830854)
EQL-OK: 61817982273240844732889122491212549202/3850716806745573354433049234634985777408508868555643638496791575274179882082763320493030454977225896585966652284863436392982402560990874638210978322915427
(/ 166158110049010486343321316578688184578 4093720847216792748840371965199135052196058344862447621818024731938681519017878880275303125899149558774718190527651555811733139227128378041055212888819294)
EQL-OK: 83079055024505243171660658289344092289/2046860423608396374420185982599567526098029172431223810909012365969340759508939440137651562949574779387359095263825777905866569613564189020527606444409647
(/ 147416259636838312272435267341375281181 -11266711292262839805944890501811605204323255169233519804446548849178247889563130015168799346120099052214488209897402054530713234143622703174309015777885801)
EQL-OK: -147416259636838312272435267341375281181/11266711292262839805944890501811605204323255169233519804446548849178247889563130015168799346120099052214488209897402054530713234143622703174309015777885801
(/ 102557200511608632541115941654031896919 3866177549962722728707550488877109233779215384377007088712280650225992470307822792085413087509167847767889824884877044539352696974351192629898363157976511)
EQL-OK: 102557200511608632541115941654031896919/3866177549962722728707550488877109233779215384377007088712280650225992470307822792085413087509167847767889824884877044539352696974351192629898363157976511
(/ 47794953079190110032282671989549362415 3802290983508829335098916118339496411537222492645529399519373082799614656011270200284796148989094312601047370399228868583158444769807910513767845541589667)
EQL-OK: 47794953079190110032282671989549362415/3802290983508829335098916118339496411537222492645529399519373082799614656011270200284796148989094312601047370399228868583158444769807910513767845541589667
(/ -169956065319483471022234920202991103615 -9934427489865644196610501807375648335352544234206717324511161205173460054921759084767897792996557220898467288533128078406604709773449948420404563411793533441010236017064154469575084055359823982786110746700747423674942932421964955746280671982635899487781780756099620799397239156211815110739544719746684712086075069101799537802834839550142629064374734870047412916259754010150500874430055034366305216104752636211802195447299210332237598443674867760860326529472901775427058078447963316168327741049511844237329137194533000697525539835371015163158135757326482343130221118201740819963770851200676279882978581431999960842565)
EQL-OK: 33991213063896694204446984040598220723/1986885497973128839322100361475129667070508846841343464902232241034692010984351816953579558599311444179693457706625615681320941954689989684080912682358706688202047203412830893915016811071964796557222149340149484734988586484392991149256134396527179897556356151219924159879447831242363022147908943949336942417215013820359907560566967910028525812874946974009482583251950802030100174886011006873261043220950527242360439089459842066447519688734973552172065305894580355085411615689592663233665548209902368847465827438906600139505107967074203032631627151465296468626044223640348163992754170240135255976595716286399992168513
(/ -83006311763073652927964071041666508273 13480787677843057038436344704360462056114592749322481662307876594244244638227291805757775026215166740035048814729231681821563443093991755779505400592913963236010573873554317250153995160235771659208137440518282824497744092608999871327127239673370293239927529076145825972430101380272357235582367639159280348164804218713823424182167974242317526959809443701996053548231667727254858428867000011055354779789221097183515832386890638024105232865079002765479933320220378271026425568216748186200736499581088153390350474814123049637951929317200314355414551809067125550551841102097159644340520444983020267926123546444838010089690)
EQL-OK: -83006311763073652927964071041666508273/13480787677843057038436344704360462056114592749322481662307876594244244638227291805757775026215166740035048814729231681821563443093991755779505400592913963236010573873554317250153995160235771659208137440518282824497744092608999871327127239673370293239927529076145825972430101380272357235582367639159280348164804218713823424182167974242317526959809443701996053548231667727254858428867000011055354779789221097183515832386890638024105232865079002765479933320220378271026425568216748186200736499581088153390350474814123049637951929317200314355414551809067125550551841102097159644340520444983020267926123546444838010089690
(/ -312626207169475064151212222217866488926 6989069923898656093413456232544365450599471748502878018530391549015151484336014906416216966193568842618920902504390187814247729346977677905224098932673981665869061845335443588666641982676550205160521286690015544764015602751932938178737949961754714143180917985455875095030469699198116593730005119922928175789172042067281849364217595912265452199938281052984802042194034638773435768458457616208103331213440768472281882976004050012769415198321241810008696147179275528426468408383757692656341606162350211696837361434874035354680073309142183699892959618671515841112321607728427286289324836870027735590091451421689980776552)
EQL-OK: -52104367861579177358535370369644414821/1164844987316442682235576038757394241766578624750479669755065258169191914056002484402702827698928140436486817084065031302374621557829612984204016488778996944311510307555907264777773663779425034193420214448335924127335933791988823029789658326959119023863486330909312515838411616533019432288334186653821362631528673677880308227369599318710908699989713508830800340365672439795572628076409602701350555202240128078713647162667341668794902533053540301668116024529879254737744734730626282109390267693725035282806226905812339225780012218190363949982159936445252640185386934621404547714887472811671289265015241903614996796092
(/ -151709660794612786408772973806200383563 -26960472721919005254400858042130056790831511338891584787669209989714807518625849812230185079206081782191501696661436514815190623849929065098497737155759771863508038766934134444191240792356114381746781342181881402424707118515655119761011977116554236461222788625158348668147995099157685699761135150772589445239536582228655532345059046596356954495360132444243748421428095867292294626357084961338288369883088525401649234025290736504802104065029036642533076183281468647642956623788270236516849523210698622687255735945678505925047193818483603361307498423724202227256505312543145618362906047473400380196192622607541097732443)
EQL-OK: 151709660794612786408772973806200383563/26960472721919005254400858042130056790831511338891584787669209989714807518625849812230185079206081782191501696661436514815190623849929065098497737155759771863508038766934134444191240792356114381746781342181881402424707118515655119761011977116554236461222788625158348668147995099157685699761135150772589445239536582228655532345059046596356954495360132444243748421428095867292294626357084961338288369883088525401649234025290736504802104065029036642533076183281468647642956623788270236516849523210698622687255735945678505925047193818483603361307498423724202227256505312543145618362906047473400380196192622607541097732443
(/ 138834496986391136939574372853300933725 -8052690543272184576133758511645801940246473546142520821850130421981395129853341888352999304040698251945886555605291324954368612109314080471658982022831338507499254609048475429862437003158379101603576571787302167207044118847876475134352180874260998595377014195145760071923429129767580115085764485254455919915567128572731355497418831212259648020550107573824886521471697331410754043280744066090848295906051303624846301488010249980896364883452154860562864255354208802313850527991005497484253401461375477060954782095047043919500670383372218536999834862885439984085848342867301834247551832677237328664699302165347765799113)
EQL-OK: -15426055220710126326619374761477881525/894743393696909397348195390182866882249608171793613424650014491331266125539260209816999922671188694660654061733921258328263179123257120052406553558092370945277694956560941714429159667017597677955952952420811351911893790983097386126039131208251222066153001577238417785769269903307508901676196053917161768879507458730303483944157647912473294224505567508202765169052410814601194893697860451787872032878450144847205144609778916664544040542605794984506984917261578755812650058665667277498250377940152830784550531343894115991055630042596913170777759429209493331565094260318589092694172425853026369851633255796149751755457
(/ 276499207940187081393841843387608369874 27347897028734618663428054896349668572244941195143856840032842195489553215406302254043947382368793914074147314353589439281000471813879502242851166670252197853998033813694814376228360691543987661407996785043637351295817024680721181205269262470473172181965930243852520386958529041036476807810647578694133804796395977642274699322030062940721165202488695975750512485574440928370802874677938542169620505668128224812441566912043326338714451629730522324228356364241376445033028898865300103247057378058702233150414643818049655628999871012383236520330575609745427181485617250755214922048672375947942288446974485524776744246517)
EQL-OK: 8919329288393131657865865915729302254/882190226733374795594453383753215115233707780488511510968801361144824297271171040453030560721573997228198300463019014170354853929479983943317779570008135414645097864957897237942850344888515731013161186614310882299865065312281328425976427821628166844579546136898468399579307388420531509929375728344972058219238579923944345139420324610991005329112538579862919757599175513818412995957352856199020016311875104026207792481033655688345627471926791042717043753685205691775258996737590325911195399292216201069368214316711279213838705516528491500655825019669207328435019911314684352324150721804772331885386273726605701427307
(/ -8979365591106781219797187096315899769868799444656824967426553299158070014074001230883484015880186603742048949313393413640240595706939311540002219411120389 -1698360947072008877)
EQL-OK: 1282766513015254459971026728045128538552685634950974995346650471308295716296285890126212002268598086248864135616199059091462942243848473077143174201588627/242622992438858411
(/ -12831814656788829919185319784994714617782749504716966706877579983082880759985031662545957372565411439648298939198657738497464024214657609856476819270030801 454910754379715)
EQL-OK: -273017333123166594025219569893504566335803180951424823550586808150699590637979397075445901543944924247836147642524632733988596259886332124605889771702783/9678952220845
(/ -7834266257250691217409788323211914445703052638619784568844628449769010091330019095736167988675873769434766592786720961949649685040028101508217441360672222 -428418418877192732)
EQL-OK: 3917133128625345608704894161605957222851526319309892284422314224884505045665009547868083994337936884717383296393360480974824842520014050754108720680336111/214209209438596366
(/ 5737805823029931079838944835405107564434908634489801628049345331760087020955028323378020396677249341204498685189403657652738071833877470777083253103936452 9588993061977446661)
EQL-OK: 5737805823029931079838944835405107564434908634489801628049345331760087020955028323378020396677249341204498685189403657652738071833877470777083253103936452/9588993061977446661
(/ -4001605821592542867351046644170905984672346731784670159062281252096012802838642896466582343641124674682428297533953704119505640938363392225910275838094045 15760991890495426717)
EQL-OK: -4001605821592542867351046644170905984672346731784670159062281252096012802838642896466582343641124674682428297533953704119505640938363392225910275838094045/15760991890495426717
(/ 2876630161532936743269451364955814480771395635620140205538288339793482694260173239474830738010159518887660000673207712630507802368373928478641773477534499 -6788234478844960330)
EQL-OK: -2876630161532936743269451364955814480771395635620140205538288339793482694260173239474830738010159518887660000673207712630507802368373928478641773477534499/6788234478844960330
(/ 6230070442453337264527950102774203962152836811174649694700041895216739851602598854067104967963392074425258687296947909484969927078206601660837276754799333 190237375887614033974333796608341639595)
EQL-OK: 6230070442453337264527950102774203962152836811174649694700041895216739851602598854067104967963392074425258687296947909484969927078206601660837276754799333/190237375887614033974333796608341639595
(/ -12098771374444180013224380531550204930654718468097503123335711776524055419889032578894177605164827523969169377266342179411916625188550162928371789854647472 -41681385674896602840749705069663453185)
EQL-OK: 12098771374444180013224380531550204930654718468097503123335711776524055419889032578894177605164827523969169377266342179411916625188550162928371789854647472/41681385674896602840749705069663453185
(/ 13185465843955116174925558412278612918939024395488172088108029202384613698982949554556435640011161663974075894844304583900497170806796813871943782330552768 -155202352609947911537719051033334010254)
EQL-OK: -6592732921977558087462779206139306459469512197744086044054014601192306849491474777278217820005580831987037947422152291950248585403398406935971891165276384/77601176304973955768859525516667005127
(/ 12784980722915659825738808684740823452025110516624579136271791852138148426775553817114893299569867520414470532361018804123866264934222335562072872489963044 -249441012384365373362771955533424187237)
EQL-OK: -12784980722915659825738808684740823452025110516624579136271791852138148426775553817114893299569867520414470532361018804123866264934222335562072872489963044/249441012384365373362771955533424187237
(/ 8517839393030302736298983538193047531846908718502576675615969705563208303329257882565359266876007571790337440612227785062203468682754778416335180236967433 -23101645464137481399279134347982485126)
EQL-OK: -8517839393030302736298983538193047531846908718502576675615969705563208303329257882565359266876007571790337440612227785062203468682754778416335180236967433/23101645464137481399279134347982485126
(/ -10157767522292361462005308817460390811646115952647174687477824271227382383351453540195549992670001314693794150879368708343715654899952822395459036505947192 -25611473771508763579433379623726126173)
EQL-OK: 10157767522292361462005308817460390811646115952647174687477824271227382383351453540195549992670001314693794150879368708343715654899952822395459036505947192/25611473771508763579433379623726126173
(/ -8580252632668820290302987230726290672170301642399871646484841866604753910447257372311950907045477729554307803379310475132687855999835211879267570997069974 5347050029330174629945013741349819215851040371727058829687387719215168997632386672310746837193930669173408831178932364105722911104309540550576485594530627)
EQL-OK: -8580252632668820290302987230726290672170301642399871646484841866604753910447257372311950907045477729554307803379310475132687855999835211879267570997069974/5347050029330174629945013741349819215851040371727058829687387719215168997632386672310746837193930669173408831178932364105722911104309540550576485594530627
(/ 7706102251141221799524762336156378964168657337573751909064577951085535246905735244239132983582998872001001594454632956803416956154262109939446710205558308 6334400709835247308796432875490978646658012545184955441452799118298109610816693049400832749087993843490999852355789914065232784070007399786089389453289854)
EQL-OK: 3853051125570610899762381168078189482084328668786875954532288975542767623452867622119566491791499436000500797227316478401708478077131054969723355102779154/3167200354917623654398216437745489323329006272592477720726399559149054805408346524700416374543996921745499926177894957032616392035003699893044694726644927
(/ 12609622044672092190084693450911157599596799695538449568681964257744962273690941575572590166273187189250007688411096790312605666562908125521094386992971478 -8237858212652788898158635047388584411011830102060269605835391741772914864422465141467281143809161251942948659243584296367296559912373856433388249393853968)
EQL-OK: -6304811022336046095042346725455578799798399847769224784340982128872481136845470787786295083136593594625003844205548395156302833281454062760547193496485739/4118929106326394449079317523694292205505915051030134802917695870886457432211232570733640571904580625971474329621792148183648279956186928216694124696926984
(/ -9988492519236282081446302885464711911055350309732728352574982611126604133339499170845224383282665522673248920309221355720665956477799939031063172954469785 -1878204914631111607000020160429571305542722711529281855381736226230242796648854769713662269068364131804626863789957256573308715572826753755672493154125086)
EQL-OK: 9988492519236282081446302885464711911055350309732728352574982611126604133339499170845224383282665522673248920309221355720665956477799939031063172954469785/1878204914631111607000020160429571305542722711529281855381736226230242796648854769713662269068364131804626863789957256573308715572826753755672493154125086
(/ -10729942326579120947061030583094707809945059776287551713953926998992375520903658867971835616518813070294302895655369081976222497359056962112544408591462495 -4917625712783289245414023733273041940212797202855299465496072729329693853584860839801663152618595377553772371725021213143455497822882736730281253858119747)
EQL-OK: 10729942326579120947061030583094707809945059776287551713953926998992375520903658867971835616518813070294302895655369081976222497359056962112544408591462495/4917625712783289245414023733273041940212797202855299465496072729329693853584860839801663152618595377553772371725021213143455497822882736730281253858119747
(/ 8114113595157517238445304590338354472776364877475201453112450680537221171989478096363668912966343706408770932684807802285529572133696646343108263717309148 5443953102973235688784499815692116502566847594605098596244123647428188581304528525010862185203718640610834003873728718183528722470626702382993497913086105)
EQL-OK: 8114113595157517238445304590338354472776364877475201453112450680537221171989478096363668912966343706408770932684807802285529572133696646343108263717309148/5443953102973235688784499815692116502566847594605098596244123647428188581304528525010862185203718640610834003873728718183528722470626702382993497913086105
(/ -7125100205152691887479515774712530950031072786448635736036405923401522078562323494262148946679985384635556474075282302608446439950458673260234175964199684 -23871420315894180764743988478670341498770583257649869670486332228804693253344466615199983955886679924409910043885402198203427975742868174334723967563526738510726448815413356678504144193747696164586135745786501041060322480940451156015256191962506052700295351077719851275026974629635679531161390660244641370183176979934485671396035404817388717005746812037357500295693454623478902942336087760288091719793968445716246099043828787040340339906538864570506773535078524092440112404847904632624419421052178754041718790915772437556681684830937503838434712179830722395832238257078212535157309743054115702650740005055678387806081)
EQL-OK: 7125100205152691887479515774712530950031072786448635736036405923401522078562323494262148946679985384635556474075282302608446439950458673260234175964199684/23871420315894180764743988478670341498770583257649869670486332228804693253344466615199983955886679924409910043885402198203427975742868174334723967563526738510726448815413356678504144193747696164586135745786501041060322480940451156015256191962506052700295351077719851275026974629635679531161390660244641370183176979934485671396035404817388717005746812037357500295693454623478902942336087760288091719793968445716246099043828787040340339906538864570506773535078524092440112404847904632624419421052178754041718790915772437556681684830937503838434712179830722395832238257078212535157309743054115702650740005055678387806081
(/ 4801495919363827077158204249631885157347198552733998896638174958434968555935827788499392382851493568264006507028024783408190862186734863708684652212703744 29234959990138609668202089052356468732793041824333219340488007351402997202222578434579705387840772390513345507274006495462445058795870182760749392281528881636623188890883479914921272700981309656920982410970774047916714087713562927554033500521877735827036675598267184309367127514966388636440710253467328441763131873309183205727440365838789320851968108312559316922678357314418486932673434031479515016224407618177089903730349114511598373251388750023508633761000320088841886505077453257141723747388913336375142897897501529451618927178835485127020789481918641637409265186365292847057986276062625965612268181771076051892980)
EQL-OK: 1200373979840956769289551062407971289336799638183499724159543739608742138983956947124848095712873392066001626757006195852047715546683715927171163053175936/7308739997534652417050522263089117183198260456083304835122001837850749300555644608644926346960193097628336376818501623865611264698967545690187348070382220409155797222720869978730318175245327414230245602742693511979178521928390731888508375130469433956759168899566796077341781878741597159110177563366832110440782968327295801431860091459697330212992027078139829230669589328604621733168358507869878754056101904544272475932587278627899593312847187505877158440250080022210471626269363314285430936847228334093785724474375382362904731794708871281755197370479660409352316296591323211764496569015656491403067045442769012973245
(/ 10769619761532897875307527770350128978615798426116103116325434914975512103385205123955114305107607195469345895102375220593168903042839441996791318999499708 -7224105715967976893083374742254251507019823877014718307738328810406361200631626366722837314776666720638271529652546975342143108973422364041422652163016078890272393678677152791565494865444430757858556891645947268886646732022748338160528677218733159766121781240328812893374941548395710123982510227501927393735585082736583984561348450061452997663109932611188779299623613963995350679177776686423432406091192517292522853783968685873925548901506191291253596763183277703635837071862492572256145656312023955675669362656148946145528559574994353884313568526553663370513565393821926602014407548325293145102073923450066319746913)
EQL-OK: -10769619761532897875307527770350128978615798426116103116325434914975512103385205123955114305107607195469345895102375220593168903042839441996791318999499708/7224105715967976893083374742254251507019823877014718307738328810406361200631626366722837314776666720638271529652546975342143108973422364041422652163016078890272393678677152791565494865444430757858556891645947268886646732022748338160528677218733159766121781240328812893374941548395710123982510227501927393735585082736583984561348450061452997663109932611188779299623613963995350679177776686423432406091192517292522853783968685873925548901506191291253596763183277703635837071862492572256145656312023955675669362656148946145528559574994353884313568526553663370513565393821926602014407548325293145102073923450066319746913
(/ 1505915608160301518246681692927442986955390537144107830770082927276722640395785957392652130911646706470337068266772174699405268120590454296080828168261019 31152879253507543898583880698200027990847289346701738353567402100527465991154555548630544962150902011282973749886327325250084401181379196961322399337408341296727915922288276602390334861175305055229766353672502691855637668618950047400571070157436221479289152631256433294884836727331457389922838951144187501751190662594278336543502171639899940796536926507796271202659224890656712231014450702948847764643603683153113663072089256293587951842007583210791100743318865647555912543508324790181772321217524164822106191538518498016236866957803105254555578252294418243701672226181762763332992886540089416888889135117147250495261)
EQL-OK: 1505915608160301518246681692927442986955390537144107830770082927276722640395785957392652130911646706470337068266772174699405268120590454296080828168261019/31152879253507543898583880698200027990847289346701738353567402100527465991154555548630544962150902011282973749886327325250084401181379196961322399337408341296727915922288276602390334861175305055229766353672502691855637668618950047400571070157436221479289152631256433294884836727331457389922838951144187501751190662594278336543502171639899940796536926507796271202659224890656712231014450702948847764643603683153113663072089256293587951842007583210791100743318865647555912543508324790181772321217524164822106191538518498016236866957803105254555578252294418243701672226181762763332992886540089416888889135117147250495261
(/ -4912349668310730778272626761660101328812783790262451913449395750351147048676353891314609774894027305081515542385381430403698808605768281804457186380542764 6582102431028556562269167182029950958541569095123705594954788174046339660437206159173417583841743892857066740116322758515837624700881569925244230209567223461401193316695082415261197843574563450002486582967745135870782254839990479649574452750850133306720341823136645982650022199634379361313745598455049448887744206616434903460504591098363901961758069797933831934878649993183747273660007900662110776570580293994733189753806312784239743585453090900671308673380802381312083077891736513388250097195232616017027333586286786139736783210630705878401429301217589001317082952461701571026008195534878902572422952568763551674434)
EQL-OK: -2456174834155365389136313380830050664406391895131225956724697875175573524338176945657304887447013652540757771192690715201849404302884140902228593190271382/3291051215514278281134583591014975479270784547561852797477394087023169830218603079586708791920871946428533370058161379257918812350440784962622115104783611730700596658347541207630598921787281725001243291483872567935391127419995239824787226375425066653360170911568322991325011099817189680656872799227524724443872103308217451730252295549181950980879034898966915967439324996591873636830003950331055388285290146997366594876903156392119871792726545450335654336690401190656041538945868256694125048597616308008513666793143393069868391605315352939200714650608794500658541476230850785513004097767439451286211476284381775837217
(/ -11503235648135220410087372678575470255397243144180272745183844970864347348074104828328211521698012119761674096067066173927209129755062269068090560678650614 -5548338218081690289723998288742945948643693817491921699797822887914665364835947234564530865119623677435878746610856459141463506776423054050179729345956931675338102809929977610828639446535095411122377961067651902947030310564736893080382424590568134091858634304377553326990788802662029347894499019277621467098333287442862683493159356014650672092060912274570436879076161496563079759704321556494898013269338428360856068237785049960484767969682269790642298701577934519452927652996671267126348627432295779183359417597868330923329974640383630473044712419371517153268338860560601603043892503067815822312755611206254762903436)
EQL-OK: 5751617824067610205043686339287735127698621572090136372591922485432173674037052414164105760849006059880837048033533086963604564877531134534045280339325307/2774169109040845144861999144371472974321846908745960849898911443957332682417973617282265432559811838717939373305428229570731753388211527025089864672978465837669051404964988805414319723267547705561188980533825951473515155282368446540191212295284067045929317152188776663495394401331014673947249509638810733549166643721431341746579678007325336046030456137285218439538080748281539879852160778247449006634669214180428034118892524980242383984841134895321149350788967259726463826498335633563174313716147889591679708798934165461664987320191815236522356209685758576634169430280300801521946251533907911156377805603127381451718
(/ -22964048032108117904633365483799091488990853392670636861794813863757795874434768543212887316456319246155824842161717179767513360050328383696194174741889496306018655333450647372293193335577883672679165775070112770359697627614883420620410888137853011387271594559450892054491963940112235887802995117234918878648066362268919389271696465517050425727202664230530633207566444357393843669758809938086228366322548799235049875711702216182219182908217345405023677260470015666831191434586902791186444958476491096759363292487221288620810273243009200212776634572092195691654105986099646006756823055390654876878195583529521482548988 10644501761877612307)
EQL-OK: -22964048032108117904633365483799091488990853392670636861794813863757795874434768543212887316456319246155824842161717179767513360050328383696194174741889496306018655333450647372293193335577883672679165775070112770359697627614883420620410888137853011387271594559450892054491963940112235887802995117234918878648066362268919389271696465517050425727202664230530633207566444357393843669758809938086228366322548799235049875711702216182219182908217345405023677260470015666831191434586902791186444958476491096759363292487221288620810273243009200212776634572092195691654105986099646006756823055390654876878195583529521482548988/10644501761877612307
(/ -19058897134776675884737764093896349427183484738023061956638485191239529906311503740032626797095131123523175909943402828257449376045336777553758951620699386266853663342003969442142858702229701661125904623724248177901462857013835790939020450746503125344631958534655024089231193396521561965297735217497608287565163852923704017958259400904834287026933197193592591423799328167149965328232560408884408251535373934831244856695227539243433290481951528897142697352526450162440279318507285454432916819060795455956931254810171588139618689138022062041222735056137988435900866680084665165131313435515187611756148824388549448126467 -8326067459929079652)
EQL-OK: 19058897134776675884737764093896349427183484738023061956638485191239529906311503740032626797095131123523175909943402828257449376045336777553758951620699386266853663342003969442142858702229701661125904623724248177901462857013835790939020450746503125344631958534655024089231193396521561965297735217497608287565163852923704017958259400904834287026933197193592591423799328167149965328232560408884408251535373934831244856695227539243433290481951528897142697352526450162440279318507285454432916819060795455956931254810171588139618689138022062041222735056137988435900866680084665165131313435515187611756148824388549448126467/8326067459929079652
(/ 25828007361450952719858846443651616751980622231808382804245407702688699228397920589229449608543284896555585501243582045708656531815385828908740757435341854996277769645696261182122648194952548457487178342682313459444433667556195761154944956714756269417591048771194019245925463541886773351873002480266654825771525233808830260734678788520487541379982691221386179066818743751876186761036101255542680066874888848011074569355779905086056095043888696435054884292698783753890317487209955316141370052511469715869816445031102161253514609763532756500340262263800747279044587806090353812452308490155782240390040070679663451429071 -16419739031141199968)
EQL-OK: -25828007361450952719858846443651616751980622231808382804245407702688699228397920589229449608543284896555585501243582045708656531815385828908740757435341854996277769645696261182122648194952548457487178342682313459444433667556195761154944956714756269417591048771194019245925463541886773351873002480266654825771525233808830260734678788520487541379982691221386179066818743751876186761036101255542680066874888848011074569355779905086056095043888696435054884292698783753890317487209955316141370052511469715869816445031102161253514609763532756500340262263800747279044587806090353812452308490155782240390040070679663451429071/16419739031141199968
(/ -1669696848499325185991294008037906453080648048592518700324899343297324898656645662186964240087582483813312797482298159224575128489696846451225871663856944749639170892311973606684486632224811435175199158920841554176114937196187087530038509898368755036744105403511353564606301040888877621412514452110348953863172547944175251415725815533087344857665837809749724257466399374547882097484009980477192931829030533366309859182367479867549644502538060694266048652224732348150866071381652452605392696555259221463464108413747443898588713629829490175098280805280460168541344102200890646453100478450456898359263676257882174308268 -3154577849943484396)
EQL-OK: 417424212124831296497823502009476613270162012148129675081224835824331224664161415546741060021895620953328199370574539806143782122424211612806467915964236187409792723077993401671121658056202858793799789730210388544028734299046771882509627474592188759186026350877838391151575260222219405353128613027587238465793136986043812853931453883271836214416459452437431064366599843636970524371002495119298232957257633341577464795591869966887411125634515173566512163056183087037716517845413113151348174138814805365866027103436860974647178407457372543774570201320115042135336025550222661613275119612614224589815919064470543577067/788644462485871099
(/ -2215504974719141921873290809898041836016933916943403987778356628123168736190963062169230280020568365292362281642280014010817115943641228422541948070912910166283758843455538187697141038676028739959626556519808411324617157646799936128314485433146912658200236754847332237438334421065771940922444296618134121662770699950019164632463150784605652351782139277998735272280336096528241168196650073301607171613955878761317417480490869592669781417658461696905996344800864447403426286476662235990122025654999230690604488053668524888833992415515434190712628587043474760836969696399229242018051635699746048823240033842587927229964 -11305319675542865070)
EQL-OK: 1107752487359570960936645404949020918008466958471701993889178314061584368095481531084615140010284182646181140821140007005408557971820614211270974035456455083141879421727769093848570519338014369979813278259904205662308578823399968064157242716573456329100118377423666118719167210532885970461222148309067060831385349975009582316231575392302826175891069638999367636140168048264120584098325036650803585806977939380658708740245434796334890708829230848452998172400432223701713143238331117995061012827499615345302244026834262444416996207757717095356314293521737380418484848199614621009025817849873024411620016921293963614982/5652659837771432535
(/ 24358677073350645219370308521851912760304925518671532565724702185818845784332554892130070740233218685874351979772556877899278790031132507391155876157108663291716896413773711734271947599485714147026138105714458778787734198938526335256418673319464023475137997251085298903419563039860433435847755093653670989129405749785476487449599232956305952768800154351414655365461746574761818724131185410194605648466196476174400166047788352670171627261342369793028465418799251589432585363577887467959594667618177199696618852093807640490831859585621198048572586882398004957371434677752931134884039120875470266936204172511104679441462 8754800987327220648)
EQL-OK: 12179338536675322609685154260925956380152462759335766282862351092909422892166277446065035370116609342937175989886278438949639395015566253695577938078554331645858448206886855867135973799742857073513069052857229389393867099469263167628209336659732011737568998625542649451709781519930216717923877546826835494564702874892738243724799616478152976384400077175707327682730873287380909362065592705097302824233098238087200083023894176335085813630671184896514232709399625794716292681788943733979797333809088599848309426046903820245415929792810599024286293441199002478685717338876465567442019560437735133468102086255552339720731/4377400493663610324
(/ -26302114071841994464108666310942614602208671348774320769941579409198660404735714925432808094014718434192516800374483192192707032773903982752997957629389083405320034044554226640590549491188742685901503166669355807243735533977994184111229208270447279559478659750835531593667003322059717930484363943660175452777363121025595100592911646539549735930625865256846706785601753749996181113742254145758187876411260965175520035400453360390392991183382425735199046574346992179663247011131958270717402007532256308394559029768974932620173103778338779940189812875680687510582798628982957687329572431433891809534332514765287899172737 196971971351558855568201373145365478995)
EQL-OK: -26302114071841994464108666310942614602208671348774320769941579409198660404735714925432808094014718434192516800374483192192707032773903982752997957629389083405320034044554226640590549491188742685901503166669355807243735533977994184111229208270447279559478659750835531593667003322059717930484363943660175452777363121025595100592911646539549735930625865256846706785601753749996181113742254145758187876411260965175520035400453360390392991183382425735199046574346992179663247011131958270717402007532256308394559029768974932620173103778338779940189812875680687510582798628982957687329572431433891809534332514765287899172737/196971971351558855568201373145365478995
(/ -25700334917103749626396366612061842558162882395534131493737229591609654899446089376271023701490708870843231350129849819430092002268875830384992877382393956173037794109904701961390126146975281052960293513473777226100954163054292968509501976296424278813632162404905591038465215586347229260479401862039805429711982871702185657527199220459658257385112793877259572278229045135617281858788415643567614198333459934599272409406206213115625226065750113120833933806486512117533453281522448845990642550827848765145774541658722594353290694745164913189694785762218575339370800538946514325662656804799046877175035545715523049884960 56325873113907570153638933263921340484)
EQL-OK: -6425083729275937406599091653015460639540720598883532873434307397902413724861522344067755925372677217710807837532462454857523000567218957596248219345598489043259448527476175490347531536743820263240073378368444306525238540763573242127375494074106069703408040601226397759616303896586807315119850465509951357427995717925546414381799805114914564346278198469314893069557261283904320464697103910891903549583364983649818102351551553278906306516437528280208483451621628029383363320380612211497660637706962191286443635414680648588322673686291228297423696440554643834842700134736628581415664201199761719293758886428880762471240/14081468278476892538409733315980335121
(/ -25716495567761925495340309269248196976121711927176026606462843116646034561721958499564011513233986043633061335866265799467020807570689498961190839877265773450484494789052182300993137822542881883769593344810286970036960228835955266304979090841345697560418139960733748874044680214388098802745248923989851173047158103142988835055585349795022662576576434371181693607267864646932929998659458265265400181839509356921460222604661909947838434113964465769102604033848276159366897885013231683417270877512514679528402888899725431524867260144325739317224922955028035417867933390409466302057857579158202739536568407090965929352402 -92089830031261826185903006947297196357)
EQL-OK: 25716495567761925495340309269248196976121711927176026606462843116646034561721958499564011513233986043633061335866265799467020807570689498961190839877265773450484494789052182300993137822542881883769593344810286970036960228835955266304979090841345697560418139960733748874044680214388098802745248923989851173047158103142988835055585349795022662576576434371181693607267864646932929998659458265265400181839509356921460222604661909947838434113964465769102604033848276159366897885013231683417270877512514679528402888899725431524867260144325739317224922955028035417867933390409466302057857579158202739536568407090965929352402/92089830031261826185903006947297196357
(/ 6427758281007308443295844679532867042370757542760390680622584758338041709910068192973790897624827722686313216884084305612889554116246627679267186323854642904894988936981064543865794245002470271142875081223308666588659587718561791667575945670118263124267218395749059879636505504607358472659126298770422135028955713148882314050530771750859372048576074912599265823577267962213046012777760882389021047579367276198483178024744924299929585515193595330026399302022065656106472153858484998010254767462854235008343139218888170221421046454280858208068658907389288543063912721882521711363713136166478126504226820360347652405439 80854661163518168674595213426641201760)
EQL-OK: 6427758281007308443295844679532867042370757542760390680622584758338041709910068192973790897624827722686313216884084305612889554116246627679267186323854642904894988936981064543865794245002470271142875081223308666588659587718561791667575945670118263124267218395749059879636505504607358472659126298770422135028955713148882314050530771750859372048576074912599265823577267962213046012777760882389021047579367276198483178024744924299929585515193595330026399302022065656106472153858484998010254767462854235008343139218888170221421046454280858208068658907389288543063912721882521711363713136166478126504226820360347652405439/80854661163518168674595213426641201760
(/ 1960728263483597985471065015024594804771170333646104429205729831998416939777820080209106943861368202560376682136488253096512360698625765514606930980274938979705620987031595592685578710084284618125325617453699875318678007463857705931376750632972266553809944621631324385690517092215690694024807784270742388108802858889381036105223858467345514041786882957807868961085072340965930749117411726729713477739990680381647988935514765113077094375924848051541167125595015542791382355149166582367766443782842193396221676952668624805183924877889696428989259842153378327156342464279071638070457876940165186524833987190050817072048 91266493124541431873557009470479491083)
EQL-OK: 1960728263483597985471065015024594804771170333646104429205729831998416939777820080209106943861368202560376682136488253096512360698625765514606930980274938979705620987031595592685578710084284618125325617453699875318678007463857705931376750632972266553809944621631324385690517092215690694024807784270742388108802858889381036105223858467345514041786882957807868961085072340965930749117411726729713477739990680381647988935514765113077094375924848051541167125595015542791382355149166582367766443782842193396221676952668624805183924877889696428989259842153378327156342464279071638070457876940165186524833987190050817072048/91266493124541431873557009470479491083
(/ 4941680418946960910262990974014623728051861920391294141439502190044830922127013115391726343950340163023958511659132792063033185693862678433421115681422259770928656196358763089894449447854011668445981430826871764812047994423858851467292757304285634515474652989618200442851239459073981986390515468331839802701176644729973346052528164203299481240263263697394061787580128379398464090163611942724580936445878570184925290925246112514015572149640886198984723311273144361235138411362294735799814160816806773736605477503201836095726740734281001021071803299510239436683913500734680524381145064985356627091311888606290704759943 291575320383555320391938911470370670502)
EQL-OK: 1647226806315653636754330324671541242683953973463764713813167396681610307375671038463908781316780054341319503886377597354344395231287559477807038560474086590309552065452921029964816482618003889481993810275623921604015998141286283822430919101428544838491550996539400147617079819691327328796838489443946600900392214909991115350842721401099827080087754565798020595860042793132821363387870647574860312148626190061641763641748704171338524049880295399661574437091048120411712803787431578599938053605602257912201825834400612031908913578093667007023934433170079812227971166911560174793715021661785542363770629535430234919981/97191773461185106797312970490123556834
(/ -17803449239532304707372697093467431202778585961066204978641168716990033159088600623106396534094218402005803618121159982050197012697237961155375180768349707725936023283589475384693590539312637333226292265409814019687105755522332846972859860649558844229320481883408457674560284773922666633054564243260924189551494368660033292970122831009582038986061326503238023206238467592238752824663935316307653075615249537594229930297642710570473007696494702367783692850946455203144153509057520651038068881755863521371187245025834292163874467913915588768778393773565536027848586260129438664753479013894698439967637389690509120223682 -10962227285754340409566802000064407225866105372406170304563353147415988225079632767886653994299800743521362563345682593189107807948342418743229049299449088)
EQL-OK: 8901724619766152353686348546733715601389292980533102489320584358495016579544300311553198267047109201002901809060579991025098506348618980577687590384174853862968011641794737692346795269656318666613146132704907009843552877761166423486429930324779422114660240941704228837280142386961333316527282121630462094775747184330016646485061415504791019493030663251619011603119233796119376412331967658153826537807624768797114965148821355285236503848247351183891846425473227601572076754528760325519034440877931760685593622512917146081937233956957794384389196886782768013924293130064719332376739506947349219983818694845254560111841/5481113642877170204783401000032203612933052686203085152281676573707994112539816383943326997149900371760681281672841296594553903974171209371614524649724544
(/ -11349783565099575757929584771389010505157850113880084607145768380886038854233583951229136273631022011781914171912628263930864052254964518914857757025547156428098062812984733912827827545722979442676567330004437902674729872754963478834939047061999292143602525229120558979819117729589695377623970606315287270030693151486803968345724658003068961239204812937084581894755863859944500186226990319892122692007317326534880413455575446314965159569830188583093978564829748603480193166063624130610256395632946002879039047154077629561745862713628266069928068634042545592328263646730943717246953000457159714049930890865576634096206 -5169948998417532948043886408019867395123131165917923418040862036041756675786217242743410895008311710518018466892169868028617239526646914529999134517417939)
EQL-OK: 11349783565099575757929584771389010505157850113880084607145768380886038854233583951229136273631022011781914171912628263930864052254964518914857757025547156428098062812984733912827827545722979442676567330004437902674729872754963478834939047061999292143602525229120558979819117729589695377623970606315287270030693151486803968345724658003068961239204812937084581894755863859944500186226990319892122692007317326534880413455575446314965159569830188583093978564829748603480193166063624130610256395632946002879039047154077629561745862713628266069928068634042545592328263646730943717246953000457159714049930890865576634096206/5169948998417532948043886408019867395123131165917923418040862036041756675786217242743410895008311710518018466892169868028617239526646914529999134517417939
(/ -4372008041495429462966226028389793326873997497126815043214338280101332483009650104005998792061125254101227371430911497751865710691604158789733634394053254604723940088324934622768312096370232736965692181452463495731681105253628558429524788376108667441329817524961077744083376843098018692898745743361309486938506049017980865957895278210133305721083115513131884239744064081819033733041876411992332060293539102545847193260167588667810376670587099064558298380310132769718526554738650709745767046942440481512965138461694790645096012018276362849398785863823724642554436182185786302301222529261914437437947741031113015699315 -13213007132248918651858333568248204618745148942720942572088217188768868803339938910599097839075045781852237705726227293430250507070717570662238736211897310)
EQL-OK: 874401608299085892593245205677958665374799499425363008642867656020266496601930020801199758412225050820245474286182299550373142138320831757946726878810650920944788017664986924553662419274046547393138436290492699146336221050725711685904957675221733488265963504992215548816675368619603738579749148672261897387701209803596173191579055642026661144216623102626376847948812816363806746608375282398466412058707820509169438652033517733562075334117419812911659676062026553943705310947730141949153409388488096302593027692338958129019202403655272569879757172764744928510887236437157260460244505852382887487589548206222603139863/2642601426449783730371666713649640923749029788544188514417643437753773760667987782119819567815009156370447541145245458686050101414143514132447747242379462
(/ -24003371850945507239307096734506644624830254935119140199726507920301383328662376914775504920527918338079792692943250446679097229950654636321252144129692109999375967030689211646504258922323499994340282315270808545865248969923421472430657741998787024263629527291510416193284540865950122841477102934165296344839654902079279846705581902668360663987722715177845485423354226653585575109653937253382583158263755381721094429734122004436184054214443676096492583897635497699417294183504529284810360226314491839533303380490277211336049582128602304906849999737224506976061216780230350942535246958957024226614847691329767208211525 10686139440491678930358521446524488461285005495304677740436234635584738003880529034339295291091217655777627375148264449580064000634364863951333061091724053)
EQL-OK: -1263335360576079328384584038658244453938434470269428431564553048436914912034861942882921311606732544109462773312802655088373538418455507174802744427878532105230314054246800612973908364332815789175804332382674133992907840522285340654245144315725632855980501436395285062804449519260532781130373838640278754991560784319962097195030626456229508630932774483044499232808117192293977637350207223862241218855987125353741812091269579180851792327075982952446978099875552510495647062289712067621597906648131149449121230552119853228213135901505384468781578933538131946108485093696334260133434050471422327716570931122619326747975/562428391604825206860974812974973076909737131331825144233486033451828315993712054438910278478485139777769861849908655241056000033387624418491213741669687
(/ 11114571678097117920369007866358540243142633567044843952020632081573546909920632543585596494530749645890342978505657174505155646987551523455565703297238406590291026899487431109110746657023874064284362499621762851387854720746040865741433394111425240861542892218169985953747711593827913014379823797703717216676877313898809377467394109623799717556800777662963842899812297087284510893865429864819927951428138755600792987191034272014681606301885821862650098620488569288170357746018556395309910262410994899971436293672676949544989196526035130226777567220128838888396668158456237490064462262193759918857287915854681904206680 4808076329737968688023887165061921594706561818755147855784713748545995818001333418509444774306288638038607173052166709335820929501845348060033808100812677)
EQL-OK: 11114571678097117920369007866358540243142633567044843952020632081573546909920632543585596494530749645890342978505657174505155646987551523455565703297238406590291026899487431109110746657023874064284362499621762851387854720746040865741433394111425240861542892218169985953747711593827913014379823797703717216676877313898809377467394109623799717556800777662963842899812297087284510893865429864819927951428138755600792987191034272014681606301885821862650098620488569288170357746018556395309910262410994899971436293672676949544989196526035130226777567220128838888396668158456237490064462262193759918857287915854681904206680/4808076329737968688023887165061921594706561818755147855784713748545995818001333418509444774306288638038607173052166709335820929501845348060033808100812677
(/ -27971792815424016824370019866875377333122266892537700816201893161065327053508379094007350664178576160161460501442627646041422270472469587140689725524176629653056006769618104516779694726446739085332330345789012312708713495757968594985567285237456431009983022526625885024663335598317191838389804118084831445251467492693688286258834282078888862754754572546522075833632779922232880101875914894393005204887265821991459415144492487189071888581048779385051174007698853920104709378859053075296413813207007405843448595681090932498329066591349910723578718333092115184652723310842559914379989208301125396793101430807658654849482 3169580893680227534064172567436590084742349042688765883461923377455374714865282199177755353861979892274552092801376364846717140845237173266602633583445110)
EQL-OK: -4661965469237336137395003311145896222187044482089616802700315526844221175584729849001225110696429360026910083573771274340237045078744931190114954254029438275509334461603017419463282454407789847555388390964835385451452249292994765830927880872909405168330503754437647504110555933052865306398300686347471907541911248782281381043139047013148143792459095424420345972272129987038813350312652482398834200814544303665243235857415414531511981430174796564175195667949808986684118229809842179216068968867834567640574765946848488749721511098558318453929786388848685864108787218473759985729998201383520899465516905134609775808247/528263482280037922344028761239431680790391507114794313910320562909229119144213699862959225643663315379092015466896060807786190140872862211100438930574185
(/ -138888658164471549506154385143989713534453638138516110941977029 48484067562152384719540184707188444570280914254129306788137384972303743285284814 56428088099244342456240635263153370817851703737803685168591843059886944388583310 6984617762898435035101945891920384937438416626357047934508608980105797822504000 90193136183227859939744547239819443586783276313678017953708293432043879247302040 70539472782976230144489157899475475029273447055080677052149474853222128626227832 2525164589393997980217929709704832829968554364529060039097810436136432713906553063644429644328565051224269893261942396763235990073001625976866246420775436 15614337547041181126817477188043219628044963126229393225781917631975649438502836750353253851523795212263078850399716875892512719059737913422781999218667136371648316387382440793865460028660248325297931269646982047533754121791358966254514009830876592200454797694143082163294323565673200905929297174223061890100210054105027025488322289599106119653451218493916291922340123640475500240519924011764050880374885136181582395113140580448936759383024305870622004464940344826337458060607492042593813585998516868215921180540240201095202617277388950504036371411600204964284568597705251929695275183521036281637399204541958859605054)
EQL-OK: -138888658164471549506154385143989713534453638138516110941977029/4793535847709521198063287553243915170068914691727215964454867625024011698922303669226389748584276840530192157568469968220857898703102351955898913589325705637953049380748829567692600765708909637920797057370082064005557328769108356548100875674196976079597658854339583183901899349355521527519781721778545444496852540362424465770767219571362842157786846795990148969989617793004579188905882473140017509154008696803103206996067638134383708975696867028865870695941933200225325283190379262695816923376790224594063264297952504481719779782130509306530621779762254864669078635401870023086312919956154224782043667754741333688780367667466505233610011253346902821033707597517691608103391952937194719540981992469020284583499872663129517095879706480339710037976698298522952071766717472040399518290905103777436461474880898550115925718887748413534479076504168236430697214654069473800915087572730747027455509241250627470590715812698745630545585772046458363388764449879417348554556621640336029897762172500880501074103433267444717053504878282494505367980026597725927414511391047010801407870379019921551218005714825277162504166028680939100225793768617321830389705750902850499916610355200000
(/ 2902267908619179684129536324641634394442732593027015198805855082 4748067699021154152763168285921806700655154833226062437593302484475663167752990 92172802787151156076284963978247829387076983213530315481815585776147505007251090 15808981285029107672090190966349736198141855760941720122983980047623201110025085 60559202289239963744584432021634662330089323842876293477363484160210450706125345 20641717016962556495214267565148984505293698026059157698737040675346468206231142 142380249473014630955299439077662853963947100833592874440361316474000948841420058017600161066408668117933232436922811486348705081331372574460204309908598 22418721268614574393232189860262616514600143215945007038687873335656746730488694050883006164427390756358558140145027011322151188565843290717535647848841274550496431839061217253488169143292339455650565906288959125935798633464526818546688779845699340483771625364583343140648892889571715648295855169294054985996834093294240640072029711789359793649773566295329912082241637482772608479106201840565936084243727069954911883243252762742415647868355726139789907900798435783365130277592703989608678774745914668128791639635886550753850811717805962562157686110637810320436812644047534536168343578232389700410352900247092236175044)
EQL-OK: 1451133954309589842064768162320817197221366296513507599402927541/13803211377640454778526029288269623376813125655593684775595099045285713415153039020789267800416616529908688645478733023490751981264976732618374046330204398361829051480928696426688037404239513603403603849882719851670264413777889524531938606364925013854252374108222701436535488401321603495905123597139234414735397259257280679663147039651553472142280954446675036289021783142392760217244908768132158498744301278889276778209560846418263599491357632762902447742083022806085077053406738681250354036208472026046315736408632370478801849290705001622808552373129971427533249307210975612625050706661691322027927380443494854794852235813844542319971019369687589916047377092369702778251658652143114091304960406840026816351348391618676357634544120732441610431417230403811846208113160343697557236265319994702483700922393762500190362776377442551539417224595247790865885105594005740401824824367904020732469833438717527758468635665777261969819260766044978137909489986407113029460354144391595512642835261443393260585888868936164331461486646676578398836326366036777321522851855085808626766493197635871100152761464712744017549919220291986785134521319127277292845352756807452050073157340000
(/ 7798204144688205291220879078360728451593323170355809361079096742 35808393784851478122520372074317359817820799318259895240196875729073154197251420 58532175726063855694248618287185551673975962776708803423334853085996022345828434 97834368697888769536063057370864051207348099191057106781292664602519775900739777 92489021460656714290092899983209031746574776013841975324837145038810562509209529 71083733375588666647468985607775761710974844539643116636307037921671845148256816 6123989271760127932230015643359630675168106436173654465119508990415235040641894537960236511442249258231302028977221206744158863083898145166446430168108 -27418900206398855942064397259705713102524342707255992250395147550519659429645343464288092288218160406382406024735131578979728501208163782063519839258876833755387025755815673514708453862847139552613587001235204464673999898312854941659541050445981594990466469147364579547089805525464252876345032296745312923488525701877655352034887018931755379078328147999631937419977103372927428613463482328465834563846802083044643719319690088670748858904291298575733560600669924511028715689681303059001186388754140003746463568171428267337107394361025465082282061651196456268663181772211292647101192148287507051053367729008997838464209)
EQL-OK: -3899102072344102645610439539180364225796661585177904680539548371/113184205287561573324139833190653102440730360395399197973956984769580868365256138025034414373155098575475566747215877030265786675432252675717351889433714136838615056208470421665419618669892136317438270826178251174708190860235979949204785938786562420189510825909814566675745650194525647207897976611434325225523578368855952217879373499055292850828774005130267218801086474623429504045290678320168493275019256514768273116059350700654655821674309331585233552793659038912697151359657915391954687630783641745610431060563252789714638916120291482852533638921356624929690158752601417722733222880768367060672103351737811624242610815140332559619520810810999145535251960674284283045907801934328911198563750515779896457101601178888594882087326241517566336011980952110586199881600553269825310575512911473547251704677890770772166895623118832621335417348044312911888377718725944255218219811801447500167145561774582342171995333086224230231746597452848775656030037837271428187450747141983599129861631612369300880722326218963779650411119279310045263996988089484063433088077868691314162108392639864773907107325220582413508233901954483499166402135445110435112499264825479433389003494762240
(/ 6291885367078853457481986049409245691302078375827782321496819120 20959289231548357352292073342856567687394126070322865796282035211176720583560298 24366038587110130209541647226271577368736240640393242419005751016119649778306566 40118119174220166901790237425673316895032570534639145502274313654443256239236466 73598137358602854818844747625643480865061277528564461120022408463105339470504117 36695182446520138181079917512512743290981469731336486456411609014364293489978544 8671667981598505073194269824535189054936442262459158402875147736469644925300845122881093216273840895555488593258562684601176239455526568314028830532770 15920064019095473156324398162334173238735268739049399738654357508344572552411935473846021991360836375685872129737682603096450566258725052013769725919038955505690389573813769125933987978360857342250911865713011888064725725934341157729878064563080803955584985269499994186472079783942404183377695242296289152788154908185130552013951432753148997632323578507137074131845177376689609114975253308906745794984371839952312988353950198030866538756253618535421214253194954603293145507537939731320546686208032528588232652963255550963088571344119439249328480867640436815434047309164687808223851012490130534705427647158409623238123)
EQL-OK: 1439421788255379275215959765325419043929720157723371200401/1747562187028503746686299553853635643553063923188506902759251937250022196751705340155682655202720363192751787186892107863159676381018035068965958466119538181810433273947829904580526582292369320932134048728374142501965682147541817431447933591106030690334465450755701191781243754499216697336293783127396687916725975251100500896467549458036395977769801208905203001097425041200299917628353220804629035768571072498715030261324138691471497255335498185741379289492513543474304524261634247519034231348033379344777678679950561777846684978640375273167561174451700942154388980887510088060818147834369595669846115248027925007288445161871535514130090907585140894883683709507099726386549038354860875469377442908932714711235823032704493155679240378374325069782368108779247450762222838197717507164088182062062215767468125843278459189085290703729281279344184417197883359351058003644499215541300350121854220342250451978930421772367851329849662028719768708399155817754711362398236471946313773603716759409265530444582884661320404389499624411965234669344882203618613097197387901166904575791500958722726774956950592290330175936039556139052663816485140080963740296685158607671768592
(/ 7377598052472799909620353419322603137723415431070641423056433630 50990728761110292768803869421408199244526424730838143228662194914314857136430737 89434155113971221138805303763480423496687322824531744020762041598590716339098287 91343386111124700155689622654961840380754244946720984970313893805578518003516073 5641075230099727784981579696383316732450130418277879081291954534985607255267932 91040802121912074401640073226003257602385910518707524375098380810792151468159323 59272268188012925764499414539835790113036863511169317924034366016920114706179376837448098952655862721652129333873020625135398431500899131874782270590048 26690053756452308398721390096804652429111408747235998849320348549870126230712525274708597346508961935323823048352116439255386668122483555236157562141222434006899926132549352821247340442387991613448730451171206857242290791156220288682675982609964518905569737166444127835826079348146626921864776959482079234994631361894786436656768739968380067890165160954836874044821979903056957225885565092422439358816023307475581832942250031121721325840673134241504501661692722633100336840768527354183989544434614842654682324213774503456414914613412547380720171088896588158750436205804689590730033393056191028424154915201435563063992)
EQL-OK: 3688799026236399954810176709661301568861707715535320711528216815/169215718032454146095901737002485678790901914179482864125777331106759302744215797822810809511498045518338288799757661725047129775976254373463314416017128993811694804386237923340900604770406784566473173755998386770282409830097844352035251738093305402541509197084964701114515390028814839744480965823142680384744649624767291550851759670297818996073873968006960956353033659153219390871979066743795530136868490210455800714335529013059123604101460242870160400211866883478263106349349114199154533363251799944090298252763172390952446660627602934622584400932001701907172000401485323481964448487312714644861543740014645407417493588261100128985848137181719614326345024112347151970444057551896842474702539258687521054961314443551837168457190568932765925484427579811571491887599619302241390226818415165012748654917331557679228501007751078584244340346651276906088856205294333241792044902850102153793417101337667969641035858108457362954650972654353600494166650067557014544136240962457086782865870886529792004619668808741311540795514394731398977642092124679638585188974746423756335151669217754388004341907440529525288302872368689364872785975840444000802518095138062596107983803117056
(/ -239344771695510351349291992975349015183687755312261264640655565 59880027487583466136533364102518649070390160795136023810470091681171428955831193 48344457085007359228086666145324485903333773379391455489556219681156342646858065 96824393663737121700189215323825147927318524415097221824671795011444303522438090 73240728471954064253765051525185557601431281145369716902120469411886093226662465 53476482728312567840603110355495270554470432250981685279567813448298175801364992 2468459436652089730331798017030410049989399340882712030505584719342958436741536069714790640546086933185494149096286590992747248311590137695839482679011866 -20583944357058654336975302336113341974001469085102805363209530168831840401111182124827636905521584509677325966689931599005216123375088335255672290604710305325984961984791919524676460851699284525672773368217606895110240237523696098521003978238685169880199868729577660354717875890521074505342309726366304528678619465048659607726264456481345739318939431629704180230985397408136331466856633265343276511285483458860216756106887559724757372775728879136089013590836231272961497930729470443491032308329051560641396901204040829291495325588896591482909336032903587307512310970849256645908744180630660878534263566681640143534823)
EQL-OK: 15956318113034023423286132865023267678912517020817417642710371/3718709813392127924163278362562751486187605430152002432053108623099406465632705761508167478249438322470295467114170871555665890539409511492475240415534629792791729596612426725326976353265532166735941330128195885206087665506220364347120981130748862937276841801804372097254983242962029582754709606117339082763083905960784323141929645331591164015455383939302728076410053178677168172481507115685831178503426055335630689722163467637005123748113214310366231893390818795405612007113310547901224920768646006621130651182788173442625298859454337696280614462941186626306295514630883052819172301830539345633711941340491653447613466053205836875456839023743314390098829184111583809697328393569588632000669468187410368485286035179259523632217543401146996259011916302393091677624838641658623073752023082344005134299104409908004250830639232078441523519412192782367689826532215394196055149255026188549091956300108740792221660678858924234682223183500313556198187095251404633698868186071148295957994257417049500872570631774233307260384902571112475241073598945295745287525486108978093728296107260155093397986671349139935376427469718767763295900745932105722655724205000829205748307261900800
(+ -6069217517368004039/4076344942716985944 -399587800008780737/578697755310708616)
EQL-OK: -321318766345655960630110128852941297/147435729263904928853096856396980844
(+ -41285036778370718/305793940074617155 -1396094619926552183/15846027887642356854)
EQL-OK: -1081121118676718273499338028514700537/4845619302294419132297197085940230370
(+ 15975644088444536091/18063939613598316583 17501188199168431305/2979264551795273683)
EQL-OK: 363736076920798535449296038324193823968/53817254956563877935003279344562385189
(+ 10197734562406803221/17452826108659293487 14639450560606090654/236781760961536951)
EQL-OK: 257914422508077920978698094723491089669/4132510899763835955061848877304138137
(+ -16810360766832230069/13652857552883800956 5011749175730438558/4169057419710079215)
EQL-OK: -184295743992738197672588473692806043/6324394120121667288243293659228081060
(+ 2234573531734039025/1128831476977636536 5842177084459535064/10255356071975483971)
EQL-OK: 29511180623959738330730559435115466579/11576568741659658592450950022331964456
(+ 2268894928233321367/45672733521488298991909987382109984899 -10510750087507287356/187832098427494353069556175466145198255)
EQL-OK: -53883392376116199828369509984040539934420061636271022459/8578805378260910951788610598591490227836321974082207035230408675959411151245
(+ 14273433611429514043/7774518083776389556784045601066955324 17247074371340283485/225579726714102822702316919752160926694)
EQL-OK: 1676942472465190408518249346164012571239098147062478293991/876886832336064155131767120243155911448808491410701588797601053820468509428
(+ -384768590020206817/26284423885474502132625533495652664626 -913687410374243983/254477371735734658619949996700223764026)
EQL-OK: -10160887225658731404416073535892287983824191154410167550/557399258996959835387173465565070652935481894323496556880024318994528462023
(+ -4465222504572200650/89674568206322981678158378582739708537 4148550863841320780/74302497820894496090312266744880513261)
EQL-OK: 2118016946376507498169590394563632549990739165791772590/350686547828419379316750498534703170285368675911953477374458878558215968903
(+ -4466938407638238142/281859125741189685767904931589784285893 7302241525893379697/204618108204962312932373858463395271264)
EQL-OK: 1144186926000295881841982161759159994442430111060328362933/57673481089466829503954266461746705742702466399988738560842837126631263478752
(+ 6692616266348342275/280491911593106290120490189988812804382 5414100524539959087/183579771905991028181574615911067652873)
EQL-OK: 2747240373316006570071525025488180559154305534334705425309/51492641151737853299832848099101317109893853469394209716061486746077629289486
(+ -2794289802081124319/15768464977850217600859580216291365931410230647587457388598921425875331529149 10869776169503285673/33805119742344157512165738805682358903614971418053290198565741206390317449856)
EQL-OK: 76938383491719886409504555688515759257937029058461512747558964579607347503639994773101488934213/533054846729186819415263583890627325668798847177803707144003483502948153457972377767011992167761176556555806720273883868208938866192358148729990609852544
(+ -253222140119290489/2123024034843473393742534167007121513293496410591072104903085284304117612082 17957334013642389787/32058972871090153103034645121513493401113378486125580864856088310966601405847)
EQL-OK: 30005809992231287609744177955201962181880644831204431411802631067134766877061419104162728517351/68061969937719269465960475690278941280799593161143759512261685488134507341176789799765185182008442410081522124548392827986923668912612728349293792643454
(+ -13318881947309618/3105936147298438543619802738126617974207009907186580731552500517452462642139 1850968757748704519/36469179946212878965111748233319050931475015876401494718861814560453153824935)
EQL-OK: 5263262069792987469108717688485565287648879759118200779949761992573778798556738644541735401311/113270944257273905484832818286307416845956086746130199501242465128236430928807948126409718436237517505516279133169796919230385184900609912160483959935965
(+ -9937822914683494298/36414156259035675966580098631253549474580108307284844243190992829476777586283 -13712605099585970325/17758145954890657915358548152198427387923366136638180213650029984340849686198)
EQL-OK: -675810254607579372158951115566887998278519717754376916387787672973408477396668549189167387350979/646647901672150721610792561233068038707362067627156669418022102308446036384411330678972562863413004325878365438890328206637571985169324874284800419222034
(+ 2479135971595944301/28169711053558469409458629766960029324030958129245230797895768033968717159836 3427244662960653095/28446538857424788738244844756675951434179713170118835630969510829753715142438)
EQL-OK: 83533664807147783700314944003289704497366290621039272787320536148072960487262393639109696219129/400665390043739792096386856839000624247597803909916773326187593475005945995926511155915226239317839405221783416485999405286913042389632370302962776360084
(+ 14865500635281371370/56222262470894935247131881777606182311286871927285650835673424014252462156319 6436092572090050725/19282524131572095520593158313261757267758159099923763177708581262473988426947)
EQL-OK: 648496060602737474174747620183913927791943082591316359990137585798909535115053578637078811588665/1084107132826611778585714784136700465449309125114745313342842325649687943726086785657821763235618936882528385000712567133180567926723616940173290425928093
(+ 340196811925805824067049620503247332111/14422464039094716975 51285507111580975533385007190438537498/3230944134273302873)
EQL-OK: 1838820276033673324738967436225477772648372110186756083453/46598175588880723338390245118389369175
(+ -210449319160504160992731982827917332322/5436857856220342451 251628249079137248539965770847855056283/4323109210037952829)
EQL-OK: 458271632943884346915405609513071881239303671882386130695/23504130271893362375786510953364243879
(+ -40984360445255688839942109197081457275/6593417935076565019 -138094174027187773198981391229349265879/7135512300754720691)
EQL-OK: -1202957011856131413678873259651070808566709454882536663726/47047414779755620074837011989046108129
(+ -289704472880230079383856507128133962457/10452740760651010288 -55251460678415911958671096669490155237/10333740726609314202)
EQL-OK: -1785630052601050832889834016432677758176770083879794496285/54007956451514283340719766211063255088
(+ 276702099951674677215621541062877777467/3899918017008359516 42623843937285717338660228144403811741/1973785812353331893)
EQL-OK: 712380176058162142132059442064597996057720566915757732387/7697602851312240113570356856612843788
(+ -323480614013303716597188084301661616596/12957985934572321773 -72966206939397711493108854138997499334/4539020357040680881)
EQL-OK: -2413780175334213399707013296172687953960842714316410700258/58816561943270580900205343368941122013
(+ 65443777543319569578713907336699651721/218804857459609839540825438673960136766 -61986861924091374470669233802827103921/65997977315012279293170493460332070399)
EQL-OK: -9243869541956614722377007489838492339200370508580665293676272508698701352807/14440678019033825487758061900150103876633207457375858942267120523885980189634
(+ 75417845823236070411341994633288547531/70553457686181702397810927701121800017 -7132208259849175775323757110664708879/24379326462014713478002790304943339422)
EQL-OK: 1335434330716260509518880689691257567128541829706203586134358870209350816139/1720045777955364955754847231620711706115121721983605654691934662747636370174
(+ -144692585186931942602350348772472248638/135233395864627580439431775527364081053 282512666765911374279543408363363928190/317835040256607665191397469890906044457)
EQL-OK: -7783226336195038987381961251409043080655184208289882004756343793157154115496/42981911818671667582796085276418080952868666330715445603855323471628969373221
(+ 44888992584766727877549626240272070725/30583318432547259097085073976959329092 8004917623696885952432014881247978821/22005016116109025986417835664774768346)
EQL-OK: 616299974987760892931461886440810919939264155149950328291076750435394215691/336493207496148335911511951044490614757807556827643881435283379298939260916
(+ 78378756441281199312006031491361997668/175125578595003447448566412156266355477 41128705932035853424044828385766740319/216359823601433445464965619660717081261)
EQL-OK: 24160702340946845080381231961736762955784254747832931999121777482667650876511/37890139292913914697800186893609983979783140570423836226844401085057321416497
(+ -36669293296367265584135816683983780855/7341750629088488427994322429098120058 -110335983484012479290765295565662258281/5944410911181873015545360879141666465)
EQL-OK: -1028036623331099574157832708037007047972965676333418398303213384036005227873/43642382546729990922161061763293407461832155878510163500678954788762454970
(+ 228535455883892721240720366651075744967/13353170075841095813026701300679754576855418298534901819672803635370738730013 50622643250826426975012800479360461693/18462345430382979738234695697296360785230118465695284267226773073149552698303)
EQL-OK: 4895273294635392498665165879164922265508724130843670837390305811645771221742112327485665544066552056189958877583010/246530838530831602270074647792752210668736478466245992891169449973883874207653264921203783108295835419855394180777469634862446033810927048792871560267939
(+ 11355068601761731966774720678777239425/4604724775053993730579400400679579947095967462408565975449642189823843820753 140083339434585694465706029861026468774/44667214322013486680993684507177513903616004462434123967566781106229226297333)
EQL-OK: 1152244506542792151980649054527153167035843960949499862764543674633978109831264344257976000890169981044543787620347/205680228421222079539939271800361418862113882206694593495620042859527547538342323521609420336002641308832164587573546802806916292021672743366881933951749
(+ -1347509007210283053816302848714698886/1127513773036247565111791991337919355855664936242166138889250311777351432819 -29464928273311615445392112247506626497/61933028109313748081628643142485450090725737246358993405254280723087421657760)
EQL-OK: -116677425670791909053501267317366054796703074907755330120413752187834449333299886015456661052906469074533366060403/69830342199092322009251417145364324484174202256910311362396720371574344280505889954115533896831727771442604285956749924105078563356474162416148250025440
(+ -324250487660721070279458563122233299722/81069650926979269606211148691445887485067008319429991878657612702576019034861 221744296343315457943731256980089803078/69422237643162665956763790134527973903052044485041686255401689654420090859107)
EQL-OK: -1511153903564243978242173323335554031611949546418082039382510246845821774680210236992700372319944685567533765722032/1876012190766999122356500320654631447623282613780323887424324139799202291067983209550065997185860196433399782230215269625922714982832188312141580824109709
(+ -5518324152042099343909980322067306333/114786626838714403445081775763480415805466836213320421844559660900880511042496 -34415425451618992284220085078832944671/96012285963709194218263616278916829663708037691620330613749177799086889040577)
EQL-OK: -121088040955051148243092870850103339772063863319219725752028251933576579890093496821887384992074112246777968211161/297862876779681729593084954525306275464788137269287692384941959703420459939692410434239827100068259769782676124741025632728203586961467995819025176090816
(+ -14763921690861243371082340598041267817/5580497386043551028888310256097864185640794395615400088682607872958152738111 -37917865546640067592937379176813765341/6460563866107795917092814416816176677900242086501650458839130903088333290440)
EQL-OK: -306983808565398982164654624310995401934900925070311336095043743767915008644459192438083753301097540174379867380331/36053159767181973313125557585868206969047484351694148822117591172786449966899079869470557965303954072842600790897257698854023751399649072014440219958840
(+ -50167218239107621378232529938205077788547946059832391744348095230748591585676/15685777859540025727 2959973815535345735348053015389999235839609978295604181643547897863515739931/7556072538495923601)
EQL-OK: -332637648328710384664787658442281566361265475773778265650094684540358159241317316408573560734439/118522875329417757148187346888166482927
(+ 36275100136090483878026478935942224245036692059657264537598788566553406654319/7192442039871568876 31833552596558882106090352174644817045294359487590746360517241517440556146007/5115621724114081523)
EQL-OK: 6795584791386081942310910570767193224876510928834120433155946649367201608618436115134135392229/603177258173744207443043238127434068
(+ 1518304705177739493483387141342904186483658277690975456045607777812450680478/1837349761252804045 -98159070764971437450169149833809835519268242923913777966502463698396945141091/17238232824535200528)
EQL-OK: -154179655228376218743158291724235398278770272999447263973992852061897564252670941977524115620711/31672662964580000612902147746364535760
(+ -16820231344048323866426670709751443650129113909724546927974450301780935205864/4879137683452153951 41987219452495799378686134495924115238909423831017150785452046648616005475639/10470103987572807938)
EQL-OK: 28751853386830083847297108941057082854166610198448421498169760256533906032780671559334244751257/51085078915429149801779227663330863038
(+ 106981694162678522688926793970551228214793665448093395251834862896418045995969/12359470989873920972 57736849967187961211538031441400807467468650239660040144967046985609433512403/9148121311784151716)
EQL-OK: 211534804819567028232303054650327703050869189253958355919997046592895748577556985792570078031065/14133242495605447754080611005730273494
(+ 32477400086615533920132766925666506741908300936974348739732763951610256880146/9045135183308696243 -27444990730472195954051975667481893116650518055101159075033425831129583042846/14815776448343565085)
EQL-OK: 232934248044934592851252865496377968609159820017147884670610366058217203617961573611006127074832/134010700820948737148715427669965475655
(+ -110053921687226074580746319073262192216481755737797790655164396095655530752161/255625377233605953547425802301922658850 104095037267817888539158192425982072195078148060302393917025130946535913363779/52156238014583575190277280296975732513)
EQL-OK: 20869334635774913818120011435677143948904421430726712952150525645851498022294865158343391008006649321440592131083557/13332458017563665620865770931104425383051282278510599570476131200251352190050
(+ -29732769078100192507326444863945498799317005912797369958801703828462203585495/153426302667449722633466432797809987061 36094569840376017510791155197897623093337784636438580042046806320700826250193/73286165979315961333009750429763545174)
EQL-OK: 3358855747298609357265422062476767573626163217619249414656940907348235709105513077913806378841119674678021275101643/11244025482879487592663298816607141776071841230792806495601092332558428993614
(+ -5942892427460131788264792587455286675871284855854073854440582948253436001319/42136930106315714728428443448730580823 4013357443728612356640061171485791666303136232331145404661874650095235381569/4039594279673425548586623641599574814)
EQL-OK: 48367895947790658831309709091377784501687363167039737892874371817395083020674648576881857510385191335175551957207/56738700606823969419119152217721454504573192499839513549171731025354063974
(+ 83833896550100013648317056712064289497247852876055488793078639582729685477353/188580876675619574786621140720273228537 -94310653397371924313725082402708514144086936359594289802762093989853507835016/223423274286761439988276492107364036191)
EQL-OK: 945257965914081840217765265999453398105151083284254483307155736205796420255026737575918161700355729594975143830831/42133356934734885127066999419230498520039134905254787577957770920054881982567
(+ -14753992026457621496269953958381833108089826525439816493815533773338622353285/187171041855711408638339193132645929319 41340837577662628944845446369855468662228665858415210386857356535970453143469/322471558852595372991189266479896691326)
EQL-OK: 993354944176102401496932276511264091214577507066786487301109889019709943488537161608732610457423116833164991120567/20119112546425211128699888199278894685207186285215928241217590790016852128998
(+ 1370528773439579327226257222995383030603284075640526658282329726447335048230/305600505683287165495713194488435114383 65450762047588146235054351616480175308174618406941901794570541085963681607527/78934496562987400429145916504112602768)
EQL-OK: 2234440886428442112499564751364146150136438855986167755259621093816030535881959724370423862435538502079424185584609/2680269118389404699570998335430047660909241475691839354273569734988880268016
(+ -76890617375308981455205142622328108690129081798840077873315966300000409208129/15716637731576156581128288257209679492686622162926707938907282962815471734862 38716252217351070567267262306332875768795464072349655597599997486613800623507/8966639693620677733207403249675415446338239705879120765911896990394928596139)
EQL-OK: -80961151400006413290662155450270992168701818633203071886556882897757813544592915596861717853520674107309124394292702460320442121704840951425284048212897/140925427734207212133604717335369986754855062343668899363006574618520848268718851310007161609443093589067206438198588881828988648068282656538084484897818
(+ -43290760758277846058307167265569849910514905939554272559141355223092464986939/39390771697068809730875092892395235497943839933482798653607450783947201796777 -34021960935937170163894986285771504067448629886312440795733904794894095253649/106500928228745564800818258673435811176493306775154643113582742982704678574998)
EQL-OK: -5950657500399238361998292872481533631424138885403498309639150240712482075115081624153513501886127772738596607451116548616099047843190357858736503567640395/4195153749384427435979718872073512266029328962522899010907363614544821318917440413166534226890289043064894115954085809567292470182917919104836361549181446
(+ 17906146982204022925114071077515882010955693727109005464426577098738402001871/11978213712662686419384559301746021856683603106261241838035626618416021524231 37108371752538653389309509075248119316034595087990649061240232817571629131708/23044877611981158676785639370406786635050056158699399001947422631523989139615)
EQL-OK: 857136973087880657664203854652754375000000796400911171478039451763440064550649429609696307332611304395324153178602635490321877797571177424460384122636213/276036469018466057777760709173569478463866562650149880633721199971933767458324034017734890892482223472007882939609440193626728031771767304374122564511065
(+ -77062185592993847534024832256462395143306675613123510837298699277378172890089/108133793614758275822883834459865239455798743725021300772336023406871185253111 11169356025540464491224577661206910726665825152149521753528516637690366838655/6369000033300801574913390611244042297918207179453133439308688067382050608197)
EQL-OK: 716975776667538986425481530620118513423964367153518065425241139444161780269039780459555836804116752462325735011822817367819625929553250251515977390346172/688704135133337463423649074673019029541747166391680122270752018123634233590688096940261480888455237095078029621363428114402137147558304641222314936350867
(+ 13583698920327742567560325715281067532806062839142769830536738488850089822247/37364394142255392010559408553278838878570049727027927213977555360874308098434 89809462356450792524214360688853318641058652796345720882094866396911421360072/67457610947238032712889230619376608100793287037427539672885124981055281513463)
EQL-OK: 4272000026182362299819817378001862956001381379478285995446709640464951377212652125169846305230835604666564953883168949950485767679005929254184987140738609/2520512763327523955464432226120154092742373168521113224665257966793820057379494860454732800329019773731110452438496395974166220481124541266348389100216942
(+ -56124163112538495128545947597589743957824668875494126834084658670528264380488/4752969512023182700122983723156599300062332404522277372984645779569746369511 -24794747728228571193100294011820993825205231022194400752319729320185378063197/98168688073468429337427023004226732413974455700654808087001957859427678524065)
EQL-OK: -5627484141989830997868845457242226973925524393512774885292323552602180052845805156311097870316601631410500655735815037997645271136502511615781690896430387/466592781448509275992390948177487068548424631274164031114910250651063315574511979617153568070687706304645818907382693929886654490427484894987856595782215
(- 8229768172162771789/4094631553683915058 14916542302144281688/9648520391570031013)
EQL-OK: 18327341244785642013243791303754634353/39507136041685332578233153660317693754
(- 13554976081719376860/5850035209629724601 -6813034992928443315/16012083383654426278)
EQL-OK: 256899901877002811987490932642058619395/93671251573905451634945335611797465078
(- -221798849980968127/896588178875000428 -10118632981534633697/16809799818197706916)
EQL-OK: 333990778095757160537366868413422249/941966737890699707694484674257410003
(- -10398409463665680242/10672871071680021919 908300169382593227/1663860017749090135)
EQL-OK: -2076589873614048366639515256135965791/1366012573135328609279238070700513005
(- -2198518713248421187/494031967775171833 162489257999262168/3608560229859558061)
EQL-OK: -8013762081101965644053022173225152351/1782744111192743850497670941715295813
(- 4025149216228566945/640594137312937394 5467380276809034025/15813352732084653151)
EQL-OK: 60148732603712157399679443099667862845/10129941051434949990590527231467828494
(- 45649282670476595/278386580761220266717341154184065537 -8637266763647548631/320617180101036447149595031898805939080)
EQL-OK: 17040443444897688379155017841073877168061229451634462447/89255520501631886327999278515127058459530587144975987720686743155549485960
(- 5648415331928005377/86815630814151297970860026950116430492 -3858618729527320883/27855468652821710859204555976171379400)
EQL-OK: 123081918822962876101148539477322308270739795776139149559/604572520679633516300271119677141637780408278090307422820905500994965166200
(- 9781572955588417059/112881800445343004034168709823458687843 -5059688483724168531/4577416283528891230944530353546966748)
EQL-OK: 615921077060787960354561606126348783111829996215681822765/516706991472571912574910836774186280180852506048696459094758451180832844564
(- -4967914039344839478/238170260180199675500515253723794945205 1851848905279976507/5731170327270969184071911155742503278)
EQL-OK: -469527297115675955424190428047537920421409443442551107819/1364994327983166854234805393053180119374354994464588574791772715189542881990
(- -16853061581795824324/96404437352723357070647888504166371117 2887610208906060444/32980643277330946266739822018299212963)
EQL-OK: -834203249643667606680245846951263316484378801689149307960/3179480358681967952651970543397987660141008737601948320258541111852875189671
(- -10766003534404571638/1736320411127247334175538439020437437 -220564366893542891/24024005562370344889629855466198025799)
EQL-OK: -11228676451427374102904112111967705085778332338188090365/1813624835433832784217556253227924899981441517333394378436857197512671181
(- -4039872531792560303/2717817538621352660433068255065439787147153801016478776178010367557953211548 -17969900169229544519/10371230759745501411127733226376204123221866394120596070959771442399588297129)
EQL-OK: 6940459580028931824293913174633904994365279610168782399332846513086074139209123514834476635325/28187112855925579976299840753672542065528422968220885043792832460046226866036339425358907691441054924266606457279617295071355282523744922239122018045692
(- 11905720953886477738/26349991043344773150817457299711471013733618033386232710348739943906972457535 -1868508269239354100/7915113871665192715310471309271830385175189228544536787145345883401181858893)
EQL-OK: 15941145914794937177093386304443205602552827651536706608400845076162777444155363739893353329726/23173686625047977587990304423741788120258508897732978034793987736019678129860415537604628640859289817332994555163435451240013483415438259775849311623195
(- -2449440712560236858/3924161613720467738425590715321110829708355586356453490516463081317902575263 3313932993860824279/18392642760231276916239249302906853654153090246504347205856270072174622214792)
EQL-OK: -19352032211145724571420568734409847660231095572377236173431089875006133635431666731719362137971/24058567564857748536604240288023690440577404826273237225585673569644473540232022448230431237781096357243673961302816983638647478040822458289501843963432
(- 2375854596996813469/17171542567603713573317138241061150416263899780234956304631913156611236192733 -1690236091628058998/115698505401619203741389026136939663329574241316722960060260525901879106902321)
EQL-OK: 303906786920788985464713527121698374469813384178920405503303785899916213843318155692692663023083/1986721810512032345893371071989737461519340072368099757524397292434629497187713075053126253107235936414498803590298681018206068059043963268488989361033293
(- -9066703779833220052/53996509329904595759286231403247566365148374715934463324003880626270687736687 10104829441267883881/34350188217372122913844475743718288066233853695548819225257606841719829170673)
EQL-OK: -857068498550946301314281599902676812596945461499639532351672507051201056365247232693696093577243/1854790258563312749374056592838765632813507083399863975139987272744324437901043103651094837595789610803765303659351781344942305171362498886075754606580351
(- -712905705954993103/38361275706852471555340413672243335795384295466685977818182375699688812583403 -3487523845474404757/24004509207225606167828624323100421869226668573968691661898194620137716910067)
EQL-OK: 116672912187985693533424614379662678476187446315443107971581372764612623068602629062267386180170/920843595906060126846114857872490000269306626188013726759480780006531676144330596572087176480154495471428384288229491172449159350622326294294528887818001
(- -104068455909264700529593875361271227125/3443783531459345396 94266182755532992545775726171008609186/10986871169556601787)
EQL-OK: -1468019045636814162670978305715811638938423723806410280031/37836405995984502494576730289263822652
(- 6250188382163250356218308848100308290/74975517450841979 10057222263694104272437942231238950849/1377150882331486572)
EQL-OK: 7853407001895533030925726629648778749078643531548391709/103252600010686800286181264132405988
(- -325869560300902552275820653500571757882/6390430580148850471 94468553562411191993094256419298214695/11908765973274803007)
EQL-OK: -4484399064985071999330976874105690617426359030318059422519/76102142247451389303559481900024166297
(- -93570528036598407567281714804477572547/1681213810574384291 -244906502561054838674546679498356325029/6878656438675875801)
EQL-OK: -231899320744132980638168050942881155823492361410591515708/11564492202898292712047439710761442091
(- -81411835730261219386583131450337332863/716127167248934 305772198898084305417824619321954306670/5852119619187572757)
EQL-OK: -476650772889757879179369019399921041943854248979406203071/4190861845290706865359628655691038
(- 8378821874364768218652992773582270365/264620166167099506 -235085292482743132422942426826553295351/5218853722286899445)
EQL-OK: 105936154887632142427944491040385766054707164161382644031/1381013939193345109641609957531174170
(- -46932041053326337601984043288899377207/83004348019257810472659105973646518650 -172752976692389001100875729845538600392/64697064048458368935602368307247306331)
EQL-OK: 11302882932785858045495103305619355060523322049764297548269071809310077113283/5370137620102451116225827082734739449691101289924623877117727128768254573150
(- -5215113722152182902641295804790889582/37267147737183802417372262122851319461 -174324915479281952095382231256728338942/198797486533978895289571841018885549001)
EQL-OK: 1819946959828587625889363843813156766676787993042778284071188313098762447560/2469538433480866339929667414220581052912334718874062150193407525506073469487
(- -308468863588547635528373349890793262605/277175417813474671446046438490775760091 -88071245580784145343997181342216325733/109042592277517238289414020635536175644)
EQL-OK: -9225060231388102579469362745283215538990500777711808852192407359260779270917/30223926073985207174135233898799350451872811382182855106546181559011381423604
(- -139281160373255540085888405052544101003/21590054032847718908692432707921390245 -175128181843395150044469443628898278945/101874815793501611839718166887463701141)
EQL-OK: -10408215647857282226079103083273257459322595128147732742048301223816698452898/2199482777568107961766315941206227462112836158088743951492692685709912769545
(- -13653637423911886957204229566898836211/6724361745919744069899921221745423919 60537422461958273742622747790343370991/323722395245687564470126807800714703749)
EQL-OK: -4827063738484690108652046326448960810791170812913084889649499536314520788768/2176826490887613088066161490358401961235974091796973399049221882998503572331
(- 207284509647982883454717074874778610186/315575836476247924963087075944676754095 59454580888278446469281150437143941047/3799382139920332759258392540934029749)
EQL-OK: -17974876032324524053425850245755672169670471578477359535347261991433397414151/1198993196898275844180025803639723883733761367273976879884312817813487572155
(- -149255714031984711085009662216310611563/61209488724728410476016289765233999883959861482512968048939594260689484910535 -206353007879160639705730135450663155/12341134377195982958424940281067948493740598784362073339140017508008773524522)
EQL-OK: -1829354061323966095884091779117676852909282652562065419187935424186237303685407507859167669375269438805585201409961/755394525511335693198081866608161950899365908489933659716533239785460293292606918153507868614180865950008697266433342863460741791684603303270127798639270
(- 286228990947356503137685907205210886138/64525193112922470913382853022276019736227442678252533126077234112153953877503 -93778927468512815169462456699065596479/70019706577332037325570327903202382111804035215024271930215402736305222068556)
EQL-OK: 26092773364888269343302672267572690894453186378630697330693315371426642609003667116358459590920104883240139740188665/4518035088612517412858008269349176355736855744033363257986123715832709510554983209440815107866748014413528943649032845277041680450752670951433682692095668
(- 128067958966292694713545212085241612749/50804897676960765097908813878456128842417954009101908722816951877006748778869 -331437715897535092432788513322484606485/102911257177761006574263802557003927106564530572416215828322919550454967864323)
EQL-OK: 30018293903870953799879886574342637699455128356488843398998059810000258259055116602688738404467489640369684487419392/5228395890723542025866546462435908982096651119675992137235094920338650164475761939608730060759309002063498665792819192135030537577109853650729817121390687
(- 27065789167947870065829490227927612633/10795458608984562931374526676297845621730864739104955678079256994070639461197 53314096352440087811254806167289750292/44807028208492548064750449353871285104149154384082409595945081934090139448067)
EQL-OK: 637187458285170434834128234123875152637450428605039275620795715002449318075555518355578432548587274399560043210887/483712418416385035748598509413117409273155809870339120248356475239836262578288026980177669113025449532258001487616187498682131415946755647640047843156199
(- 275528434092876314751862670579225752027/23290954563951481764306221308726902093226107549717031306984541394996363441752 118398743375843543978994815511147957868/26050691402435592629863948804505350954161759382372519491414484055670238339031)
EQL-OK: 4420086456754111377514058698455330162869575963826459083894390154200727636413353382047981846196341965799691593361101/606745469813648893293125236863835131523556569847025597910312571817347251611730291043895952533706547565767925058454286630395458711598751591845070996622312
(- -263828172858355421790882308711676546531/27836884730007976814146538035133148053942251062564400015534567388490010158584 31580638196736633522674344981675107601/26210154715367115936541726366619494863883445533448748701891278370021519416412)
EQL-OK: -1948520953518189888695889830515156795224640917019574042614412953331052369986548949517168001067643449389746489215939/182402263891837359872743630675214135004512597266032306942151126033873543370078488920825920736994254287019873146147276876145783659805845233146169813070152
(- 43029409555492054023102681165249027816896930295612442385573977041111849786681/17478431621804970398 -63831159286570708329826084149841946467426290005331979697932225104261019322894/15909114936773208135)
EQL-OK: 1800228375210677909820927489860838061135888931548234366640994061734196466170531105718785437541747/278066377585826623354880511023167787730
(- -34677827126365037739221949705076349308552841821108642369491195428278121711851/12321935233094032355 2466652720703038662112375481129216761044838204088317060529010755963314905661/458077759838279587)
EQL-OK: -46279076433142446690218423399092373290016631287423134630356063713373023144989129659854095947192/5644404488448083755690706619714037385
(- 75657421640076548917316021979547903196453821552146142751737530624725671569062/5416811919979369403 -51031635143911513328361770575139950616395278082588474953679149885798666896870/16274277637120569843)
EQL-OK: 1507698654622877634185545368063085304919907004898369478770589865697455127479301592176158803465876/88154701093808389139357381843158713729
(- -86696779369804422745383183615836359604633179506005810847902134850836986706763/15354752711854066426 83875579121692496325618937810567731584819474189441279434601944065565889174333/1890321146489013312)
EQL-OK: -725886765676185953186290796464189476910148783977596698524963064505627422317719186476684911836457/14512706875163632554860591439823131456
(- -2824584270835350806110810310308644313069326027498380007733023821989145840779/3128200028313826545 -16485532380752962986834975164722153533427821569516340079793116204530103476885/4044901389917631001)
EQL-OK: 40144878017198534388242075435853869853984060096218401720566307902396394251666454424383286522546/12653260642466969643085415999628721545
(- -71140717297594692514165816539390347954764512441693085945645019026357644035048/15130773661553937219 106518314860779634188990156539381479314908411240039365434170935270962911954978/11202282371121185733)
EQL-OK: -267626990691150539404999353980899804835901788880218020004516046839225745741587662342920970677374/18833244338916713919008552672213388503
(- -31372444086039981530710911528326367048894875160807395940269724829549418985367/149682691887362386596593782520991059630 13980025800771566396092717430902170466939197897483207383178768135899198010674/143215924045734814208985239450703841431)
EQL-OK: -6585601463869631351127457963734548845246885851328680299125624347680443020577881573937479731612385878788264587830797/21436945032301618223045694723696447349670080755369221855700055538448185530530
(- 60002561005149795132492915799111287923312170708430066011808292212167201814322/16346766380600148228286881361520329811 104734497917913613491539581495799848702023341599268915776996571583385896191203/61937476024742321910315674059586179787)
EQL-OK: 19844918952732846654680216616282727016967753441473733514766184661191061075852141231786969917096326062063227788681/10024529215648371311559365663430434349900555024451481776473735938354274557
(- 78980655687309201443760271907411093305339297143458162112992101000746746121121/24094471248783344167514231679460830840 10562090177736342378322146805187203837437609238688017154037816697523731420573/74961473522415640988394298626742882726)
EQL-OK: 2833009175986364875175323375606672657538996734036576482627590142336455915129629838687125527863027857335645122892263/903078534276138789186206765245648729133926893901427360507431923032322034920
(- 96507496069338193466683209170737942070468924698476218759487496209308948365/19252547784216386872197161331387216893 12563973560096321588715986952435909079270363887929001032891628645353358046011/79879611474172059435223762585596250921)
EQL-OK: -234179520035021783886726161079163865833895106001667476480293126893061678147610754451356994012799045797572757769658/1537886036891137155393554113191390737924110193971845147480358562685078008453
(- -95307376781556674397571761484869767912211504027346871580288574968524683908606/128329921725822403056205582017133271311 36170894925879686192917617159219095595164782822289198001474013555499918728596/240886887357120796976726436320063138705)
EQL-OK: -27600105449672599524131749634403660999916186956076872373762346977331203119722064380924286397976905109959929163304586/30912995399316310109755266138690547023211992922143297688759057498082990192255
(- -22104893896795356297688360407985617971036912713007110938688208155601366216839/5790727918973991999188987227357894380 -2339372311396919406471876113751500811577555408710269902369834593304924842262/12937689744925498650506694361349920911)
EQL-OK: -90813196841584888136609582546105640167792279132393576014002859436259486025871518847027719826829986116492656710923/24972880404321196721702428178050372850585634300866259560981343234830460060
(- -3426218098660813853559652497557253942819662042768623922183022792185928242671/2077407536662385613357832628600529321326686191757127715026249042748302985178 102639297566540827510784861997871251414598617775200449087621943894148321803293/83089038429507982364103335021257902316010144851865721965726693103637274338545)
EQL-OK: -497904817589969304680335736144278473886197067420059149312627956679073246109792679236301202959163792633927112737045328517845259242265445360227131779644849/172609794647490471018785535271654901168315737813115654161745630290269473799997219289162551586864155467201760250711449118429648095083028041134558889086010
(- 1543899448831604569141696144740105016328586790221799945430718394112623114412/1094690716976737526626281319975432667416762320123576900412499904933271786567 -101835025746074730017715423582062511397387458863000475669454309217160145993/55116548932808468782187525862059393507883043749327746382569396580129398962)
EQL-OK: 196572266866178229534134252625134989714563665559807019513454337864363053729628560611312158082929567528955985669620113192156991984486011150099776316375/60335574468539540262844259780498204139853746803235564167348945699931512713417761400790104247218084745081610815218855896912895393599203789305655343454
(- -37581128364300495505521143552535972339959603365602244668159915869829949338997/42947503543372015019662104425995959382231280059683481488692141811517675950053 -64888994735350842409379226446854438865448614840503930577860382883594178287934/83188698741706753136718468601650233481619465918167616089202536622553688681087)
EQL-OK: -339504834548876267781536981106771553482515399809961247195394672491113984585270709765073243997043174508213253440272888923497173265137136111635177948889237/3572746933977957867604303713153220827104741303667912510494658617478381525690274918494624922428110123336345510454960178899375325287131764283538305257747611
(- -16230533405187239318665866908175768720879595131719076634847964191318368133798/22572606803697929681675696479626869642065470042484269772607381297011844085929 -3238806615045730440879378702226410558103197865253164974472379309242480970831/7167633180423354812410246140643720752789573307606828791458541239290047771821)
EQL-OK: -43226201536346598702395278529841763047400215735214225929426206339139243925579733185594282160061132691154727543083543034702325848468839969037250195569159/161792165494835249202675342837643048016103040739685489755239980324180308179745586573032524649518850731442178659412287492012066453331740508600962908806709
(- -58154703770626762920775801228739843350302933064569814497417973139312614069763/25655935043535628671780902110427599603857741303802203417196105196580175051005 2291927744682353823611191393035210406213286149316388597509251757479544491322/2075117977066796442381930295725401140983312287419314083032058820231519915051)
EQL-OK: -2848879691864593463404526996418656511058536739346277043463623510210968076493148319480555434626780964688210750895957968447300033820091387019574369485421/845064952814266442598400897276554701819815257830830535600041451476645443978805142044657833921127247033533628716506571358424324423237490438402971304385
(- 16233726784138742204308718138203086218138595789383817317246449554340898453104/16370584482945481446847872945862788646563748664837147378940234530469832625057 14431071141710676049963542765626402177344958369162454874051268130438178883381/21166786163219212747261378458659387864767326410261049063051557406799162784072)
EQL-OK: 107370754167217929909136144689909613387440429633745577224054233373886366171618903318258855919060113440621302505589923655976636732694637334616990468681771/346512661117421566971293748815177161526095870176610277140325665174756629068111228154091043637596506814557119477231243643171068111260010676990408227692104
(* -6520062188352981842/3213004995534018829 -3812444292971845716/15284944374811818089)
EQL-OK: 24857373879807849010516976362973488872/49110602632729971801355498746248797781
(* -844583948128454879/4750740551331102615 -1309778567130405125/4885884698278749707)
EQL-OK: 221243590680205607733892613510570975/4642314113048197066962569716783636761
(* -4579815856418431271/16947444571374397297 7990245706938186906/12540719430158043191)
EQL-OK: -36593853985314806270746820601513137526/212533147427761354206383017714519654727
(* -3587966953201943536/3194797554208122281 975954052071387816/2707062718507963111)
EQL-OK: -3501690886675668292903668827990357376/8648517352177231144330968693325176191
(* 710265334225408429/567023629756400552 -5578988760400430103/4131535930210536898)
EQL-OK: -3962562316545608552741467762441538187/2342678499616965424161446427863567696
(* 18305319006789031727/4480148641441744463 -1641093267260986094/16028097657311023719)
EQL-OK: -30040735777106040963634910981471804338/71808259944297590021537032075729917897
(* 522499067029593907/142530390958606446621834761330018829110 1567459634764499377/31663510497342378306792964160850079086)
EQL-OK: 818996196770998943862055820464495939/4513012530308148429025282037949729145117603192483641232823845248212618993460
(* 6214041481074460220/139497414619784295310756757536261769729 12187470171919324678/129216394212432939561557938117593031955)
EQL-OK: 15146689039532873328968703771155061832/3605070583825050709361064709099418651298807367637359842488375232197429738039
(* 10022419596195177499/91129297586760817507648681092594591108 239769653037576215/24086455608554015268646156321002022494)
EQL-OK: 104481394312031409685890479072416795/95433990476618390508514520731482064738017476445225501421324446942302103624
(* 127731839927226607/59760640855511386051149338950192132591 3679984267166095161/269870724770589242613062477043917992045)
EQL-OK: 470051161348371979221331000573148727/16127647460431744118786930146746069875784110572380855085272434637353123238595
(* 4919926511230586366/29288587285987487013553554568227355149 -2914615432991234299/34407808954885309804037535414452526052)
EQL-OK: -7169846869407694119621783007930483717/503878057947370143933800273784055481319429768630967123178484618174989420874
(* -4322680734125283661/246950524730861178141734701180345535020 11581515233057355754/82204027418720951285150957025638971309)
EQL-OK: -3575942340708251875937466941988609671/1450023407574517046920597087724458064116343346221474061477327267648859624370
(* -5552456004563371781/36434418778024040927761226774271610950778609263056622471030041615086459120568 233319937833204741/228703279535756717601739981368829304509550463672786894384479957768850829340)
EQL-OK: -1295498689806330283646616799874813721/8332671062513255913250553083541810221054209355142441164334390514659539371361850837178162594438925276666798780352514152276296209564179606228713851865120
(* 7279569964232187047/36316165899095632459738478614507512808578186173163489609755035948221062420580 4568992288187244990/18279847281938710983382796940666233712517527808023718591530848159479207220137)
EQL-OK: 1108676634263212048809114991909788151/22128465550033953372731954247755694375180631486898426116907313824243654714198100644737500721615620412852035450119116976232805701601749863504629937973982
(* -8689289043809733973/34365105035540924847908154205433563929060132734873649554594240958996510665976 281724695877043289/3383396067954681850718083474385093262190311835985400909911383280975222535225)
EQL-OK: -2447987313255021583629117408894957197/116270761252098802423406562021935246701911690887646043563899994409915142686943691634418411056232663942535537938126289647041118885713303684881867869004600
(* -4176416206981759902/47077361360975682486641492558477246171356187409295624938308162261216397376441 -10870319933050648575/51626085927005484523186190379579228801774286705829757742503501130303410401261)
EQL-OK: 2670528255498212232918897515060496450/142965876637554026205455979922464979254073063785755559223760631646970673683621524411341782655829702451013418009338618833412062193643308417898164204593653
(* 4496049401725150702/8024116634872885909638996643719901973664008349644172107626390134736213108465 -5231341280619167012/99267989241776204190444307671763754306088564051099822830201760217121508089279)
EQL-OK: -23520368834947889555464127765407042424/796537923785319116837266627763277272873506235001122453584405648384893204423914484193595265931840447141766909166026026228531619859740155558402735330646735
(* -2488955833769033882/80573015130339486598712021266263458487997757617589137912729682647628329090307 17723590657579960683/79078600039601362101827108583564759878924923849842119643649415446502020994810)
EQL-OK: -22056617181258995266120581914227430703/3185800618738432636378738398589185111057563002909241393794402306079667392482341108052833514927720630087013771419748846412352850012097731569487991234153335
(* 24410613567363183821142175154197794689/2233491913446620869 -289777146895293391500645889398422195537/12394177861163531771)
EQL-OK: -7073637953514043162500219088395995153310329907185649946877180402954938102993/27682296026727883467940485833673128999
(* 15029397898618080393623393093137341347/9939158597399833599 268484092305118852707129202725716126526/9752180454987984749)
EQL-OK: 1345051417567645337656755504737828287428006597367109244226136136424901090174/32309489404196149853047846865649927217
(* 175291724581304230067306380062677652261/4791591464449055089 -207911166974886786162808240992513636954/957635297799905137)
EQL-OK: -36445107018739410292029741836217649994267718828374576884161821761303211252994/4588597118993154438342028473487092193
(* 208446980882041538439350888438428103817/11756453246592156788 -99855903858077543170703702663212319708/7775813092266901197)
EQL-OK: -1734555140205305628415286772698507060801514301420325900368570916304368260453/7617998589456250715053087609460739603
(* -49595797981179247160347259926801311825/16426101929443877636 104499598328969971414586784725010079457/3085074725343747115)
EQL-OK: -1036548193567594227670217621556353400490405002875929378150074378019016735805/10135150379689493069951723318357604028
(* -288919818051255959565698296502103975540/9373352185361138021 77343596824463059344208562767410464067/8355013728778983070)
EQL-OK: -319229970313622361785032672064391711775428287673147624981393545586243098874/1118778374191039878067165437747032921
(* 301194765217764762175383920433701358543/150076401641721289621709469985978858175 -109319143590504335906407585568245068241/158084148208214805386290412276525928977)
EQL-OK: -32926353787549066990014316879429253235742017240010356390402491456481443332863/23724700119685440084214937112355810539035473428177368317381421021523605836975
(* 14575317438235510996984657523859363247/6747043355688580686998987940004831062 -98472042392613093668204392119412188287/152397803267436514292317070561082866275)
EQL-OK: -1435261276663720115408306632770383012566806521695455296458086302958691687889/1028234585957093005711368462502470683211464374115746651290896689614112234050
(* 7543367187310376010646193530301789591/61115754966424662873097894247178344192 309940239796651595482411737112678240799/200261667764086238794802895148430893795)
EQL-OK: 2337993034909171213000031444662193658341848356694420878002930517675329723209/12239143016237439360279809707749702660797878084581096344749106125186707088640
(* 306232835922656327867425959604977465100/55646521674811091128956181530575055283 45245255551837746690160535427248646677/3669533234425940180962041078287629087)
EQL-OK: 13855582919684583969821610044729507626133731299765443289084519977056998472700/204196760665922729081584465192637337445710456706084552841012480810023816621
(* -280037880297253633994139513185953058494/23798550327416056573646642830182072429 13967268482262630670960486883264178489/7947215947745048068401387767511847243)
EQL-OK: -434596028812829556627014314125713048434599389957141408329542154357763726174/21014690966139335562014814134594464675233042588696546668504776333756662583
(* 87160410649223805266866345018804635271/204719779683096591635231158476535039583 91197762560765392928084914476898132964/277206223024759381433146631560580134513)
EQL-OK: 7948834435086720002947247338196997812861466884983039250681993725808882173244/56749596904412078223459353928850191672356004665473536520452927516595919428079
(* 272801380449749740391855824723351316848/2170368723435176720708253536680067463416474841046765138040214254204061862261 14545537787709209389572055399030228996/8381323291479119825335849511027103148981778425333781230074116361235206363821)
EQL-OK: 3968042787871071204066360146704950989545352280096012736206796950415592924608/18190561932825050861659739926693806725838682397154479213760300500132465705680046683155463862909993066621811136554677896021527098482779305371951555659281
(* 58980225701104541897366713189611773567/10973700523953435846969235385386214078292603476932194022615006557054104506344 21633357583056027790037764923811848217/41236459355840549300942497778444413350482341379076368704834339005347182486274)
EQL-OK: 1275940312921345964633100864283753667394719832288287163056787891633576680039/452516555639171997520308257003811683819837367444947027711901120987864272999978391252372420644671039873982401560595091423172287702745925783369137325922256
(* -39569537110370574225194522625562874655/36290593978404925051095380486087641410218299612051669925683823165483928853304 39273660356839128453616088747231247259/28875229647500294680887983884278577441525691250738380954940513956990510132534)
EQL-OK: -1554040560950035541902707236381071410695075315482961522429891905381129320645/1047899235170633560739863801929205639611958070150694189488499584527041043137082563721218908614201921449076002548982308540689571766482794493357171683792336
(* 8957762734053174688386697837976422606/712105675122280831038408324375785815130945929819518342973925027507219300067 118977607972668646264715307919875588738/36563306353035936296510796886853084280648109576589600551753305930842020963283)
EQL-OK: 355257727628119695756412145322380851760544279491883270008434507085780737076/8678979318410478400681656718586483785992423192579006235728835173903750764880944673586689792087386144715446501744012435157310426693657188196381455479987
(* 114386050140129336980347743358441052599/11994188887964574384037137314302737861703229337059619512751326848591488081229 -50822174853799566513638003084407139228/97406657802317796912648600328217961853548397771614449630742570869667560514587)
EQL-OK: -5813347841057137571369557065847591420664634372223088557679866032754664253572/1168313852626327929522799656188055465298138284154709873285311568978496136227795809646907486798429717114923178357702460243511883684964123937654308495387423
(* -22147677230189664783449572410799931501/75580058176304394102183955194485040346816524663599269056794063928343401057143 -127672554664595215026114551202414743739/35777311684781371234035985601066874920871049301826919955489852676067316906014)
EQL-OK: 2827650531865200718433745248471704607394596478050653604940563621773668622239/2704051298527551014378337257898371613519363350219566689647796093438747503077807722203668806231503452508016974614236112792032033672965127824348803574358002
(* 3468729773587632113679855593063165286551216344725198121609354788619580819847/7106612002452012151 20863200733446307102600190583661606839853255577505815215312643683864543217073/5700246487811068117)
EQL-OK: 72368805556440529088812813715602124890901251289457147618293618526488567540302416253970205832659523238561757581481150988870947074663135867252252227647831/40509440107213064064897416415172689667
(* 43306673717838918980731699770600730039727453611468399058203483818093233880231/6173575908538565981 106634227988568775671050783423559067905086861634892257032833451008548321218936/17988169594879808463)
EQL-OK: 1539324572884864883885215269788177741067901747630436643318399808029602335378536990210735234944615096105103848497832537965483619535769637171783464984418072/37017110149885307295697375341989232401
(* 61636028396239445662576777415312348317278054920190931147781159688109244233565/149659999183936017 50280832809996410949441105432174396823883728565382915986396125237655209339731/3406752842984125790)
EQL-OK: 206607389257567119017662603624829733217835095238758046754428174885007999774491792658838812826043033826701244157167565054600950156595290052398436186551401/33990308513391731439280046802638562
(* -100579490802304807750359433955474958462342659278486016345156932756807754105945/15683759624513404963 7314396152134987983181095955389244247502417255088677055075146925285457081540/950287995699608967)
EQL-OK: -735678240508074701153113537069655056596152436111651040530896921701439724727486696483134676487497031899584038731663111390949471467249259023050011663755300/14904088498613295322494450308817103221
(* 25984831699359211750216710442693374608159925357093100400945034699383345074385/10463598404993207796 -2395913226491242076662067669730978955981403048697660449593722338244504668974/7015215522730452775)
EQL-OK: -6225740195664363384298636893730784883811595661227613249243163802476751022407971476247993440178871949687923603921101094083879668063131450147131783163099/7340439795432595812648347200273983390
(* 5173661857391320950903772549611256023540539838210520778403003347430938670915/2590493168574884173 100300641976357496491877756123729102910724064566692821682523911939220592349990/15304416107565779147)
EQL-OK: 518921605664943617990486317157527087053001312760892500249127957517476408720600460633868004681188890038115877413554399588737851074382787744833707113540850/39645985375676570588146199684023740431
(* 30299639015164203561126609159677900559022306879488518544803392527841364186955/97638167801975054493877206805944332747 -50150465496280036231382225902610460555496341860773955714344071185921583266663/170117675960786609061777750278261277482)
EQL-OK: -1519541000979732808188648781832621044050652591754537200855596768903085847105531546641139177813880505696192826380113425984545675787584857974943247950981165/16609978191541300835961154615181304582159561006676548938424954151558306303054
(* -34494394944257769716276791009665812125094062960425641316440943461722789694119/69239821080832171466311153221314488591 -68027404272124217088707268142523090163964888591405843143848585935878552833247/257149529774225346004390673137885895872)
EQL-OK: 2346564149995340998782934409780604815295734898030424565252099571337345550054284934036215402972664245125313098735082896555892607540059632597741979943574393/17804987432587488254198543762235568841018786223139145264591718687823557996352
(* 22330754509472350470460807673039908304726422770752644988051418230315708975569/141163736844241522445115344332946835969 -3776092949566234532895208849184634613770861313997034923686862122594334787771/22367110097535579962848998753563258272)
EQL-OK: -9369222740190326741203615957382420344247102784278353165345406236082475331042528539717966581690645628370939381978953360215380653092335198860022382107411/350824982641632215769272917522017419782283768012468846380070797128085153952
(* 1376215273451682681102140384578115142238259557166158859699272578561460124263/3593386179017642636485249017714833669104405991325015697577507088650274886871 37146275008876311604039415809582675415172661567487888072055609579242279390723/55424998453085285819414374477780690192979527887019008768378662580126754826472)
EQL-OK: 51121271019052119686352858568900325361226598163234091421115939503875711782442415328681175322030659510284806538410228985354770913411724825992699509412149/199163423413390889071651575953261174839972499014963134990506980080139461063269751906284862132821075544766093817070661266293471833091996501160433036049112
(* -88175289711320073148300791156190227927348022787624424521937188958291199926437/38194742314758366741668899229532351990874883495690656157862650973602784662629 93421911195279228911508870033119580111709458306921869937709821511660370035352/66371395138592894543765954603571534463846496049156722497129962530412046587003)
EQL-OK: -8237504085028962150049531747535213236460729066521397582683209771842938254589363802757604921456170821878391951762499073662677974506165863935238701489400824/2535038334389561782321790943041741331416028402594806464107449488311138037598457377927652600804722340759363172755193254192462811091332303758223034251210887
(* -88364214910455569163017945328431687038422451206033411348821431934742389780753/43010507830592044720656702803904712217809857004582018186125828892174875808576 10405170283887792832024806983921158923908589830001636723872220129826733402834/4055629711949631304631599195955105801456753694558712994574702123032807265321)
EQL-OK: -459722351572673455425943766571506569631562018487574498847133029199411842205331593858852090421782204158679934054007027833206633183796877753882057444427001/87217346741895687976684378003169607737518608233754137677854312677618987931466495788077930577814677920791330694741284253568592140275298729115088619596448
(MULTIPLE-VALUE-LIST (FLOOR 13918288150951705093/1401140429528746218 8037346830653401534/12140087246062147767))
EQUAL-OK: (15 15819536596165521240797345101333717/5669989019487990500153722689252798402)
(MULTIPLE-VALUE-LIST (FLOOR -3027396677293618661/17394867614909941317 -2291333958125929004/3188627451035828949))
EQUAL-OK: (0 -3027396677293618661/17394867614909941317)
(MULTIPLE-VALUE-LIST (FLOOR 2672347537044132983/1242644867650938739 -18408840898134373335/10231522001278674776))
EQUAL-OK: (-2 -9204560351304414094275545654164256161/6357074151573303338260935869140273732)
(MULTIPLE-VALUE-LIST (FLOOR 2909960574201625242/1140661215026522267 13303037060238089383/18166352033245030796))
EQUAL-OK: (3 7340592943788470245594328177983578849/20721653182840810059519494723194734532)
(MULTIPLE-VALUE-LIST (FLOOR 8198662690782244017/1375380265264517299 -9940234650829186147/17690753691491997765))
EQUAL-OK: (-11 -486100547007747193780627302695509498/2211955773175772955922986386719257885)
(MULTIPLE-VALUE-LIST (FLOOR 3966139130172032305/18040321970861620778 152082737803043526/946729689784517957))
EQUAL-OK: (1 1011240112172972726360628393816617657/17079308423086645837394450304465310546)
(MULTIPLE-VALUE-LIST (FLOOR 10199468022732280591/121419468943382552600797741323914786260 -2627475271750260665/95465240194344921114274153619846654671))
EQUAL-OK: (-4 -302411943986468199606823674581501024373007929237189061039/11591338766949818909386523271402122174353420293128216789558932652732995620460)
(MULTIPLE-VALUE-LIST (FLOOR -8471401573321747185/5927836485002954534423728282157030389 -10006560123550811854/209494971446104969537769985569938393355))
EQUAL-OK: (29 -54515717208483066409886298754350924985999966734110450701/1241851935162873209670541996670866824232223815534136678858726178724570665095)
(MULTIPLE-VALUE-LIST (FLOOR 3041516402669280559/23467966340832028705164128018098446335 6098690148519419819/74694157223362514640536233319542912231))
EQUAL-OK: (1 12008521321399654679364472921217933270209469640706386252/250417138224955291159963090840561809997874350767164909187205124534624089055)
(MULTIPLE-VALUE-LIST (FLOOR 12371726101368968041/23093272201098893335944386552801821150 552920335555268471/59704833009801809998987650097493815639))
EQUAL-OK: (57 10833671498697672110331389655963519805471190684307179149/1378779960416507709477447168250340219220272308941040290894608990101550964850)
(MULTIPLE-VALUE-LIST (FLOOR 3936278768643199217/61530125725985401304656961990591319570 -4622522820386904221/99931589582562481620405120529601200875))
EQUAL-OK: (-2 -11699348415245273343366505594272785590391481515341739671/409920218067509498701508662179031915635595553469094563928706113041525908250)
(MULTIPLE-VALUE-LIST (FLOOR 3378221394828629408/57360271731094852990248264232533113197 -4121489923477642292/582636574825978160767401314647264235))
EQUAL-OK: (-1 -234441506605160102966099186988989055202999923102442904644/33420192252492486160839993475212088893408362946965395344436948483624609295)
(MULTIPLE-VALUE-LIST (FLOOR -3136864170660359113/44018155426864484368550814560728963265607376469242388043913852619483671810359 7592249764621265399/61218932554330370729612969835045191215382261653025522947071546902482986859295))
EQUAL-OK: (-1 142161354082922159316702479104046765633220994190482626315401062617857980099757409386379034462906/2694744488243248258380889922671073488004909384816885899374920518252041793957332742201117787314100221762775952924983170065632438581816845330037820256436905)
(MULTIPLE-VALUE-LIST (FLOOR 8388845076992722039/113324439625023255923060004687633012536810961583168953468887128369059333869915 29270787347930250/338347801532036561796340241450622341080868991428994657767799334610272208941))
EQUAL-OK: (0 8388845076992722039/113324439625023255923060004687633012536810961583168953468887128369059333869915)
(MULTIPLE-VALUE-LIST (FLOOR 4061469742865314937/64801603451247667482343238717974543532449298971352747107214551636724513855613 1344403291462061700/38470586305356068360716898225197866224089081322833216143931662358746898751411))
EQUAL-OK: (1 759644321951821493138045865317431182965861074290543254824595494322779964610920583206631767077/27395117343919593983759778902763691133722708413625034340026933459895718790907695509798551507285536033282436777270923749566119049487283571076783727846373)
(MULTIPLE-VALUE-LIST (FLOOR -6300876868463754766/63495830134457398131576869576746882401947668656296419431644557856865817622371 2683373787654434721/32958906466135519543294750118994566579246721224880398401534853634103601897753))
EQUAL-OK: (-2 133096081053989316587079956940067402118415059770888001584265696499152144351877946562766899046184/2092753126391210514581307904104631961415819403699771474276457943469530908829049497503906750315560161637143522534287446520082226490203274292567625907432363)
(MULTIPLE-VALUE-LIST (FLOOR -472307136668592250/36283411370339306010717878389083492352344779970196813667782297535345620767127 -3180306511295187523/75166923119981694900512094733973876755239261156251968596129974579413418042019))
EQUAL-OK: (0 -472307136668592250/36283411370339306010717878389083492352344779970196813667782297535345620767127)
(MULTIPLE-VALUE-LIST (FLOOR -3148795985647001686/64429795462330994424525695145310698340316900821860011346129307089831843824641 -11298596415200487525/56650030835870774988744337125832477562271330606264442454925440669251648355512))
EQUAL-OK: (0 -3148795985647001686/64429795462330994424525695145310698340316900821860011346129307089831843824641)
(MULTIPLE-VALUE-LIST (FLOOR -102545151309532699273956369870862301497/6030775709520909501 -3288683205470962892631604702141093469/1221554251153305018))
EQUAL-OK: (6 -348033375896483356529697355308057680498851424685117674/409273316984297575168605808523732001)
(MULTIPLE-VALUE-LIST (FLOOR 262657016871433510082498751402781174749/7573480743368102221 51080528722906667824171406466289726452/1601607284756767193))
EQUAL-OK: (1 33815990969774126823949725673411671713268069951579559665/12129741929543448973808409847523235653)
(MULTIPLE-VALUE-LIST (FLOOR 138482489784362691982393629835416135309/3631852344347114410 -24756007176022054565783765242491988918/219932185588761813))
EQUAL-OK: (-1 -59453406054861418860933161489781197608471921856017953163/798761223827929241442393231350025330)
(MULTIPLE-VALUE-LIST (FLOOR -212217151846170123039362268732482984696/11596630494102963285 157767757347916893207763952109296030356/10257360923209581435))
EQUAL-OK: (-2 32941352246943117620876731374547894383947184420447916448/2643351654913607911070701558622724755)
(MULTIPLE-VALUE-LIST (FLOOR -66747006612989726802598039638160699571/2655077042212383298 40811355885089157404164119163071734769/5571784139947382276))
EQUAL-OK: (-4 15382315863254661753182362315746357118308047043239937263/3698379038534340915097856546560906562)
(MULTIPLE-VALUE-LIST (FLOOR 68762140087929702254258676232660238758/15300356027061891153 -35857327153107467171153230588794581375/12686181688605082704))
EQUAL-OK: (-2 -37488456798327399439537660212002603897618511901320984853/32350516076608496130809185423035152952)
(MULTIPLE-VALUE-LIST (FLOOR 242045811640213090811968332747485173382/200549144102874156362839425688475328049 -14720899626826592765120758929463878529/55362986404688226126571951930830517493))
EQUAL-OK: (-5 -1360940123773119189782995319087829718305547957827775584170427519233923828279/11102999538439281856672090511521389719230333671905312848993361013013608061157)
(MULTIPLE-VALUE-LIST (FLOOR -119845294654504250162135973476212065855/100235561394484311088266800183679226574 80594461105267736432364594799413149425/61631997559252488378599155330559465978))
EQUAL-OK: (-1 173031536634535211165479230108382118112369885610634326444128663790131209690/1544429468803790002857581373808877159258315141389178393568445604388376624843)
(MULTIPLE-VALUE-LIST (FLOOR -230485693234637510798211679560546639349/52735224446003804525152654032694494673 -216057981617610709644611545583688426965/260006637986112259187147152181319007048))
EQUAL-OK: (5 -2958479432060194175681245276352090941756054532611547690395592385359334844527/13711508411648488620980405764270377927416829995446554240961159998044485455304)
(MULTIPLE-VALUE-LIST (FLOOR -6594316542549343232263525515993767282/10217421010314527320204876001269664067 150738011702184633072457541580514087744/135040956724953232085930818414328999685))
EQUAL-OK: (-1 216550304321963092517168155612888510209814057236150214483836375316700196226/459923436164837338339599279302608001719626738369225259576013169605366272965)
(MULTIPLE-VALUE-LIST (FLOOR 215280935061082631947114960623303029323/207354325693067193327551969107966799241 79751059907103262336474674983968289237/4337760464235769010513178238272088134))
EQUAL-OK: (0 215280935061082631947114960623303029323/207354325693067193327551969107966799241)
(MULTIPLE-VALUE-LIST (FLOOR 310160128112311271225164732000676894965/86670395306350722800942425502835485142 178141651878134061724955020964246844473/148821875093870378260620578385076958277))
EQUAL-OK: (2 5093132355806944300558276298272344941234347692198850733707837927916021244991/4299483581539365588748720077960621199296398702837049138084337644406995806778)
(MULTIPLE-VALUE-LIST (FLOOR -108659820552054791199784298344597956614/11790531032698157780195997261827578010352156078055016836768011974016954903741 -92538322534416259700833065660026629223/19585963177324586927996277066630337817907750129846119872015696245293090497388))
EQUAL-OK: (1 -1037131280631376361623284528995684848351041247146708940120596004521550738167239284685366257725745514224913041700989/230928906647528953486003129436653219142752591225509660589870619206780147714239888278154624266956202529317853226309156501996262035307639197627615351928508)
(MULTIPLE-VALUE-LIST (FLOOR 5394706491096230323847274166255447931/10999333470518091906908673737442830723710024941373839628113269063387717150756 105688652677006186461732590041930264063/21972728496093720326374563200555762299989227113998910666496198593694363180514))
EQUAL-OK: (0 5394706491096230323847274166255447931/10999333470518091906908673737442830723710024941373839628113269063387717150756)
(MULTIPLE-VALUE-LIST (FLOOR -191689412702065586724423672263415136270/93810201821180445246181740077575222573046098171118578720996957721548578622199 -96035306478379345278597023485459703599/90477882577875726723065337577743037040931870384035502080606137411367114071296))
EQUAL-OK: (1 -8334560691183765714134253806956288712175511004636349604358505688696669629914037375584956898475941052209595993911719/8487748424983587977143569651002086894691875550521839392659856872027244953584789975128015403703285861633097358090901236825413778659897331594626425134299904)
(MULTIPLE-VALUE-LIST (FLOOR -23269937861894460494044792238228308465/36609152344338882339480850660297061488131282119857763060331849352205685148721 325068909216594106686082320524489871331/91177237475655724082435461235746167562462517272459785633509544221351873775622))
EQUAL-OK: (-1 9778808569440655820425835535754928474979020881405653286273845718180424961228320899578451645656486131670752875977421/3337921377082244749772660717107363339434489502423902307989133990817960972244485458695718522007125256227586389900645261310720433804087640398154830854279462)
(MULTIPLE-VALUE-LIST (FLOOR -238326953836192259685740729837504392751/14355772111692545517089448796014758311054554297101342377064555342044509505629 -2243842813596041779461072557214411973/26977869328891440663623277939723739398284518432434090329689171706564354694000))
EQUAL-OK: (199 -6448765647740977471904737113847651808330060639815597135148713750030489976324569684096986913258458168828297495539/129096048048195144296601029799754739460578975322841318685536300111243981862070688561642588911885232705019881753766051653025282618058049676501115190842000)
(MULTIPLE-VALUE-LIST (FLOOR -154358049055187385619395426022892405693/9651466522903571511806795329901971873531573523740147689205585933143787251744 234831599528611417562275088467151900111/23212020955553784427152057042945842586938059290340162186208579138883161355663))
EQUAL-OK: (-2 316658791137724604029754690574124702890700231484127998714230110560397057808441246896564869593555547226559779365903/74676681060487840411987924431521223169933844488425876950176937169482763523750924018302125631058404128587876741120722730563623397211887516476096033675424)
(MULTIPLE-VALUE-LIST (FLOOR -43654015885600226452139253734240763904114948357839504394635758939147918485226/8959421350865475053 -71396498978827369985021009185210519228191289633806094987720268011017813959395/5118659875263168828))
EQUAL-OK: (0 -43654015885600226452139253734240763904114948357839504394635758939147918485226/8959421350865475053)
(MULTIPLE-VALUE-LIST (FLOOR 30206748063040753946799836869317684942154090322823467523870425873885298155111/10481539418044277488 47024848487236673350978260730205414416590483746605328718368229684499622280474/7191921838593099535))
EQUAL-OK: (0 30206748063040753946799836869317684942154090322823467523870425873885298155111/10481539418044277488)
(MULTIPLE-VALUE-LIST (FLOOR -78297878369391722158254897331818780133560455296543117876032852961696240531334/3439835335342974343 -12036259456916995957158314961009661904873237837146662571140339452059150719867/7648180594799196815))
EQUAL-OK: (14 -19197805765101853520494699712598051602631126933023081616555585309855479307669655742300981287876/26308481861074724148503061769552317545)
(MULTIPLE-VALUE-LIST (FLOOR -11644466368871135752271367372638717312589950278007329817169736850185519100737/1311440431008130360 16666792145043036974187190230561351375866940864814143604767927371030164658327/1190204555866760523))
EQUAL-OK: (-1 7998208151350462202845967149504108047636942539158206705970028049633264098721802988652183702269/1560882375733744790369742288085778280)
(MULTIPLE-VALUE-LIST (FLOOR -79973663368880337215592714973251653953011156710750446016524362581184906490344/13217906252057303539 58550120458525994168414457422879483045080411293174816365332363703279727325517/11983119832054095608))
EQUAL-OK: (-2 294743007488634911900879023610601157709203210196036764662698142539282328840165292825377976700087/79195877273629847756913363266891378356)
(MULTIPLE-VALUE-LIST (FLOOR -41283916983957018057492477658728498328100012640087810269690534262888976961251/890401703093780527 37905097813993829793947873722213455441729327992618875876994782685865871567157/6801392244603328629))
EQUAL-OK: (-9 7656253348038361960592683452946138937700391767097248361228404271354846832369355003597180736924/2018657079334544839920956083927269161)
(MULTIPLE-VALUE-LIST (FLOOR -18621387073793741287833632061282985993236184599525107084971126746444001531559/112377251064249742125143336262406044187 -80344252057643577515390451958447799739023169996897035042227858478107352127859/16565237077789941458934656364080562722))
EQUAL-OK: (0 -18621387073793741287833632061282985993236184599525107084971126746444001531559/112377251064249742125143336262406044187)
(MULTIPLE-VALUE-LIST (FLOOR -11067278490740390186400140048488373691939192899502978554850454064301747327289/279730468938850077684950205987597341304 10742600231685337944302634339424380376867728558611903252501449407612160123471/85514692364145379323997472383947484080))
EQUAL-OK: (-1 85775736874497976296219552104494263998937714945890467644689458878788010379480929901293727971077618208617170461961/996711041507662039484243506170638972651237308243642442559705598573661101680)
(MULTIPLE-VALUE-LIST (FLOOR 60114400703399744178227904113253512958642740092037841351403601970012663733574/137652538688206271590219421417082587275 48818636606796573849225811493965362933035106650390076441334389457476994620122/53029693036557887125608655547988906029))
EQUAL-OK: (0 60114400703399744178227904113253512958642740092037841351403601970012663733574/137652538688206271590219421417082587275)
(MULTIPLE-VALUE-LIST (FLOOR 3914498366778062569843980805049542971189141573995351572704819538012574198620/2893535793927099250376915741311683101565016171163532500028982710856616653543 -64455977862771995990556362474021252617135665526576459531278423102067698175925/3427268293660091333898426457103031174054024747619806545506815375759964110507))
EQUAL-OK: (-1 -173089642940460836493548201378493831666834527213381638819285816422714170656111775323359444521902045952676537769939820706047335458029055584112252141651935/9916923483096927116177052980173451074387932639677487416966276325060341893415045555506102924285291258490295955820662010134773377007870870750288985076301)
(MULTIPLE-VALUE-LIST (FLOOR 88685468991633001080737925907185943038820418099572822599681084512202985499349/12356339561700478684701129356342132279853496560835988907745653698832814553183 6529471572210817352014560971376587702394496047549533959161274051805568907/3739659250056306079416159597801009351379164652345884310988690700223397485))
EQUAL-OK: (4 8931962841313470806790103494237286341563410404854617106114803081793820819240374925219641539537617481113314045913411523358730270170471325648745013341/46208499538749877879324553712339970407875860449933229680283463405247211324108302788607460717099015088790299594129098751336540918286885704752480944755)
(MULTIPLE-VALUE-LIST (FLOOR 5294621876959552948152278397535786930445255402598688035901577017296377116948/5881250468392395166026135319241737823103911942970361556821993967308880332607 -65630221834131781450865541487035630878349246622282004360445526978282263449249/98696808137715829282209856003081855629375417101578635063186137762415694777903))
EQUAL-OK: (-2 -249413266253338816038191146071217173249587815937933968995202267999853691656986532179554523041282106904325952906300316562845535251623832095499430051524242/580460649088775579832453445973177920831893989101100068436102498480125976298386547626652311003668489010795846489626845062951616643824353457996671633983121)
(/ 7013212896988366906/12397903473277899947 818833870013215068/2125577647443895255)
EQL-OK: 7453564285301859120853045020886215515/5075911640537211768265804260348400698
(/ -15781329068048599432/14942574238341613337 4388772934226358350/2640112802717985697)
EQL-OK: -20832244458230302534551181278529162052/32789782692450857054331267544650656975
(/ -9015230453321124271/17425619133302730035 -10422000746814766599/14972344381173680534)
EQL-OK: 134979135022768387806775446187867640714/181609815620990738305316999098032100965
(/ -14741075237791868512/12448692140900938227 -1090381863721238817/1060836378253796023)
EQL-OK: 15637868866825840780217685066084527776/13573828137487503515304766902031557459
(/ -7371815071140740177/4722722556038701367 3872455829192658988/994203944294825175)
EQL-OK: -7329087620340161131469364260313555975/18288534491791723206480607737200436596
(/ -9856364379969390509/7988230468709836259 -7208901117187058135/7430860779232874136)
EQL-OK: 1093153305924514768551484985555671272/859497963436269188803272225817371895
(/ -16740689272507881147/56924866550406451570641164619431212169 -14712532880452686095/143481612520580129383584255576273223983)
EQL-OK: 2401981091525408257128502717450566513166280001357873948501/837508970838236191644285394369194561392491093277901090055
(/ 1874027699956565000/65960003455647360668413772300355814843 -172394881832672950/2006879686300828197846469567507151887)
EQL-OK: -75218962452157875130617756878839223573611935155763100/227423340028380523596387094039260091189651621559491937
(/ 851521912886492079/58839621451933520132430725102159653727 -5525838657334730480/268863138354222710211869290179088409033)
EQL-OK: -228942853876053297959532391872114722003932597144466549607/325138254802036127673497464266072288930584674567672498960
(/ 2130823024472312937/30463932363736038600114358208342163020 413938864244113775/131673792970459944919771618253738144891)
EQL-OK: 280573549781056638388629087822719475587456644826399754867/12610205563054396144647765193069861697742251186477600500
(/ 17234694073181371137/253506951459931119968572673772742357160 8407879684613951161/42697666588937447817581914537644794355)
EQL-OK: 147176244259806896721181660841298454615950364713859506327/426291189417673978158704851675227114861497071554451732552
(/ 14739301038477826821/4801125431810347467140397350459581435 -1752125940488995048/127905197451270157484305628763539243969)
EQL-OK: -1885233209620217720514367144506571751170505057476450692549/8412176412616337518572109406238500578932979745867733880
(/ 9194848570227974720/45448499872046683203864930109076126035374684748838016011669264943000310475483 -4572473918523931944/28941042619577200519536336906341131911598596429670188136734086846500956354149)
EQL-OK: -33263563043940787786171015409141766453199063320923723716765930467953050399983260590187417389160/25976510037621464639740779963549572814837984766154635046133743883024710122710674726552171566119
(/ -2662376868940711929/2674240208804755702377222409224408783678596883960539287029565653749020338064 -5046618244273151929/26826013625152995057141957222948811537350409769204161465077735924332004069058)
EQL-OK: 35710479080747854012875521001477955195584454274704368888444222736697434540936425667291700196441/6747934713661461716612153292457811722283965560031580498434684530869001786777260513409206862728
(/ 646980248518054663/28444849537262537816809349756569888989442483441699293309597267649158853799707 -10174938507557455325/16470612178414296088079890015341965945714023680627341561729034923083435428747)
EQL-OK: -10656160760434978971303471120231114671340660575734505071429575384684610862775940451177787597261/289424594898370460244167952344748286246980979584479610186308309369583658143095854438992150589775
(/ 1268676597518744714/6024937921458004492480888468749320142603908196076058575752452561172018490893 17823595902143962912/85935047374548136904062562443188289405155329832270007415035044821925251080203)
EQL-OK: 18170630585125644385503771892175817370913744757273904248648000044618805359154885235028182716157/17897676474595109057512045856227678061218241143085827332930191066967148125532813505892133626736
(/ -3035741006152688190/58890268425224581569217175195410848521985674465189565646495474378301884202047 -4870935665435665519/47998868922405332801456101880162843269583282603435159879276723163289928325531)
EQL-OK: 145712134636693761356266465698326002831562744975420904782663360472436650653549187025441059178890/286850708819506259357726384810790881448875152111132928069815447961129371272624891025817707117393
(/ -4420263280205408439/38682162086456801604593696710774835436326970692840048042132553053971380151628 -758651402628235427/1755534012040040367913026343944696058732638465867705260088080517539506722166)
EQL-OK: 3879961265286134914514096239640695384126081133972137242327715997675029567458817030555062379437/14673138261791601182714628661554161812345431143865809776872034934342213839184709418896670662578
(/ -312487180249669742743295380499853180353/9828632991038934281 -86131955660561774942466932680637336739/10268762916730341592)
EQL-OK: 3208856768501438660232746468300370677374054716853273141976/846559380988100144557815474234956961169507773676687849659
(/ 105376075880566042097567073713047434893/11411565636673693365 -220737802783327232867818580441304577024/5817406274606660773)
EQL-OK: -613015445021032499619145665530563205764250055719854552289/2518963924957071797477174332253152325843619212749200245760
(/ -311533429150518992652072799089375050497/4403073054828470603 -320230219907951760832723580313293021909/1370493254961533625)
EQL-OK: 426954463345823097468320537904981772054351338526938461625/1409997052618498081840381197699863669488222338862641441127
(/ 305676222727436457375950609916137360009/2001517485431820526 324338803123828318219640932070020543912/11123178903397935211)
EQL-OK: 3400091311912189654145957985944153094384781502787164376899/649169785656371151621897383467144093766684841422885937712
(/ 8845112929712368402815105446090151026/8124751572615311799 -107609110538267962880281203537194473336/8714443449141779053)
EQL-OK: -38540118213625599008519681983731393728094066419546629189/437148645036763776481446937412401903340367189496615845732
(/ 152921217721894690043853278309581658066/11705615305395353865 184187448038871874764725486848823516773/4171619104693691390)
EQL-OK: 127585814672335876029018138907883882524550368713261650348/431205482165106014329333719781838993214328411764819575529
(/ 16414254293541341780725162107696242521/155838132618727968561620486302365154071 323320173010032367023620851618405869489/49801924105617352177018959505967933104)
EQL-OK: 817461446577249670665800625691379410535771218196808189195363718417488315184/50385611999847495177988476252475899813264458225659097815552272081452203039719
(/ -188149667625860588508273820953820709614/21438745582767797684161462130971215025 128458309657689922121539794960212789849/134174286369366827879740776978166655691)
EQL-OK: -25244847384333405496229128525982900130397411994350175944375943735942831513274/2753985018743617742875555653653797261370358442640799457019039857068516281225
(/ 1218460641064115152742257147372113443/1773382194117714970762642066492794929 -105212349758139121832338365854603836112/35045896682356785176328011712384921341)
EQL-OK: -42702045738251194875426595475683618047253961691478453648029952948483687063/186581707662369193907913729212042024270164277319717456729276609131940676048
(/ 1467722271775252460214852151179762687/1747611358981474614363356529179985509 25495740211005247928144692929451604259/29615224810946461612486375021101910565)
EQL-OK: 14488975012885720730598332784736375353299643425098519766594278819666029385/14852215066131169889445443721709162270198753408805825268529301698140894277
(/ 6278399735526726207674375684072448068/13890681759576280617381650633747782321 -112063146811220963294237186476216238443/46495820670393894026441353693945662660)
EQL-OK: -291919348200099113895651901892723884699250237261456280525601785996696740880/1556633509331345870779770006255469001211806559199158615405344674499795966203
(/ 248406099260780863433196593538936526373/315762135750029127758352280023694126018 -24578051912523675039725210046249323571/3033769619337997374435389027823294736)
EQL-OK: -376803438597807975522050212312559316811899647514236724224019181136008036264/3880409082236781853269738100403484871805889674074731389226471480469265885139
(/ -305871752543087256004326578375555909668/80170799467978436032303243749692785696371676780847080230403479135749775915991 -208573266832391890136462745593008906685/96016271562601269514856687672805175650907293023094157826925793080307407361434)
EQL-OK: 29368665255505841438632782694581946057561031972462112644657516768267440383833513431444679871238206541553985530943912/16721485549600848123731461311227384049611071114404954309505697259277905994635125654414916826332204568970567318299835
(/ -171651126582338417143004525987733942986/48126955023093310081685702171788275811688444573315712039582092051531229683107 32570134112026732491936310765048378699/18584159151613423191553551933672204731023422884196280183931777685641069715348)
EQL-OK: -3189991854959918631828923606391779823799241149346421336570141741355492000935500642040047513113849334779592681149128/1567501379505627719887579027549074087653888429037997616626567546431482074522690424133509833932668944596793898937793
(/ -31304786393644787215292629624842492472/10539846271603297974613179098685212701091372728582260780054561526149580513583 43496364289252206338797704034889660065/966865502932307025364733802774045297740949567802356684866342045679773834966)
EQL-OK: -30267518040679809082934454680954168768135550720881039440573156734314284479043791824457029301083428211405425375952/458444992982373700837242411005687390212275114474481688646320865335043970683786989531994936463047685893258985162895
(/ 124366625369659591476708994326732418029/107684759001536292829359995221778346870065030877016948429894748600664800488759 -90949754058598173499067700725927605729/79727020098830307921496202496061295138733611655702270828135321391380898414003)
EQL-OK: -9915380440470549523296226431396644117384598256053664887332801972488440466568616812942647849957495261151611303260087/9793902347049141646079571573977765974008832433473016883117384010293158932212528563016145547341801740792289848500311
(/ 26792084925762094333829722201654015569/6815899891200140342329613369008754659665480100088941978786466272502677117648 179968988142253715757129058636648023126/97033837835570527321466682927970125702018459951415339098532052222053589117353)
EQL-OK: 866579607987744230609336186273867662887766686833260209925103055244528379635362816895584608387230956963010276689619/408883535566062149539621907018509777969515872715944952500700527207173412646715462423653890585029605025758308909216
(/ 320794852821756057819990044473359503428/42380074203350930293358543616207018031675687905746455222111844144668904183229 -11813439835454851567822019323728871339/51852159737956631156972450987013128151750117741949546305537111598356497409240)
EQL-OK: -5544635317209327550045071802859986261979158492907374734760649234578367469399038563605323839330681533705071632958240/166884818941132804535892580774781586387104334774784737031184369589400544303785250219152004898392301479219940857877
(/ 63160395612932962868082774785156358041658469338654564454114468396132462549944/5671929772244157797 19541045450680948617094710246839287171374470593288265457341382295544977156173/10827756125123268218)
EQL-OK: 227961786821047895774887365257727015864174017882302289602409601101722343657899277052494444293264/36945145824164509580938949252327087600266044162541122809277442696583642758457532273140841543627
(/ 31389399613343712511677734270541516183531975055644318154870016415582858008412/11320913214023484367 -95931706646769408081251897664360951854776052790951374912970042200868629796051/14301831604104230477)
EQL-OK: -149641969141325406602881756591195860220337618158488775091717625369334526143115090325362684257508/362011508473745439254610688691597507367516106821889963803421575701854031622412859179610532278239
(/ -50845041077039215658764589763556935122444212169574762080162289087527164772395/482986173890811026 -51342299909113507561385579724776151277474630060658338514843664853027455595538/3864573616937705869)
EQL-OK: 196494404298439669659681446421686066898686292162412914850963937042669022612531239234324840686255/24797620991857267698917294149872672843409173617406514673128342148521539559341861421304646801988
(/ 76283614020376921713154299810619585257752996149145061806263596894412414185408/337890011287912517039286436540240936661 70530558237421368381589233382700323659036925075366138096846582768833233488577/12121510300837787759729092713205686989)
EQL-OK: 924672613133132744522463879340347327755455994321131972145048214329608890428265966744607561005512244129921459256512/23831571118985077324412202325831974453532679575894228007993082738742295289254461850021038245882565939546151124021397
(/ 13518475961402756750057330871273933874583566313800024119371308450919239424622/71146816100737230880567880716110051085 -11914742388051168959634071864657967837347162591767656949770878950409478930980/166466796775669753065110807850377519909)
EQL-OK: -1125188695291804746273664719520877594103080002716204716437885631737502681157239448228517736957154781558316254899699/423847992785167635691798025732868758201476408654527740579259436528169254792708107390082891890404030666159494556650
(/ -53624051286117226406327700847140806598091981633622544805551583455315188018537/149060170957501829683988930330276188371 -49540630291338976658332195799658601133012561780540500265134312414843218811481/313014990314092319823049811442768272842)
EQL-OK: 16785131893926373429171158665038393627227592608630727377590747943991201054188961463248027101037470630205119769672154/7384534820569381535972144752572408048556227885764547207137140227958732266609348654686668662110083737942669493487451
(/ 2634758410586745842739353561704344884865889793873131750193619887157306355755/83106075320614705363810122092414199463231740446254118542567688658288107572919 10787649314660479714744029413883607304719873485501736976813666398631455642569/2439964488756696481271244145022481444549967702052558191280867337292105066432)
EQL-OK: 2142905652761565172685487282499186838096673751132490328620490049367034561455889328384026705096013173825469773464105722689198047146574263705663366838720/298839732158850477765824602476778580028064205733214070073086531571837859351705342746223206218407306637658483098569582239416197836311325170250187389329637
(/ -1907320079310938642409293211056905401889419041722087613680756850005726714712/10387378553621846874105702088597026076825105075730032753153301604042569998683 113647247724474559442709588703965365251731833799417671287796250968092484717057/58756890421232187224353930678527831208703723187770044891160428018937233424397)
EQL-OK: -37356065632762902117955690133395145368676268194116097031480521390942668514422835237280325034441435052929702455487858500299401976652159912902024146542888/393498994563785425899168694480259206994308562177080555315323154941891277193612821825931878224565302417504072329241812530787363937691786269618438039211977
(/ -54987418627898620923060954379316763081930842855917193391807940070173620336071/17370345837184638879794373707261631548922174314274224219546763452439685451597 107349939397731511365417710412808670916754334908520065561311453951414109180973/7800708635318451621630266369706695626474649690647985662113853436261704078874)
EQL-OK: -428940831324519456770429889832838610542119304716244392653623661175655561457214418178921042544524225772650432309479656622489393939407340321261255371264054/1864705572939408818246392762570376592749103793151936455808919833872532407312841098160841844995663367019074328670998871082130543124576872890789577304863881
(+ 0.52019s0 0.98203s0)
EQL-OK: 1.50223s0
(+ 0.026268s0 0.6137s0)
EQL-OK: 0.63997s0
(+ -0.338943s0 0.450523s0)
EQL-OK: 0.11158s0
(+ -0.032799s0 0.995186s0)
EQL-OK: 0.96239s0
(+ 0.249222s0 0.96463s0)
EQL-OK: 1.21385s0
(+ -0.46177s0 -0.80114s0)
EQL-OK: -1.26291s0
(+ -0.127754s0 -1.88775s9)
EQL-OK: -1.88775s9
(+ -0.65572s0 -9.1112s9)
EQL-OK: -9.1112s9
(+ -0.99359s0 -7.6134s9)
EQL-OK: -7.6134s9
(+ 0.0169907s0 -5.9027s9)
EQL-OK: -5.9027s9
(+ 0.77272s0 -9.5384s9)
EQL-OK: -9.5384s9
(+ -0.50671s0 1.95366s9)
EQL-OK: 1.95366s9
(+ -0.281487s0 -1.4109s-13)
EQL-OK: -0.281487s0
(+ 0.86259s0 -1.8225s-13)
EQL-OK: 0.86259s0
(+ 0.42874s0 6.326s-14)
EQL-OK: 0.42874s0
(+ -0.53545s0 3.607s-14)
EQL-OK: -0.53545s0
(+ 0.63671s0 -4.723s-14)
EQL-OK: 0.63671s0
(+ 0.34449s0 -4.873s-14)
EQL-OK: 0.34449s0
(+ -0.480698s0 3.03292s19)
EQL-OK: 3.03292s19
(+ 0.85132s0 -6.325s19)
EQL-OK: -6.325s19
(+ -0.54742s0 -2.83806s19)
EQL-OK: -2.83806s19
(+ 0.45269s0 1.62964s19)
EQL-OK: 1.62964s19
(+ -0.5122s0 -3.6148s18)
EQL-OK: -3.6148s18
(+ 0.192093s0 5.3618s19)
EQL-OK: 5.3618s19
(+ -0.43486s0 -8.918s-24)
EQL-OK: -0.43486s0
(+ 0.289955s0 -5.911s-24)
EQL-OK: 0.289955s0
(+ 0.274345s0 -1.6779s-23)
EQL-OK: 0.274345s0
(+ 0.392723s0 -7.441s-24)
EQL-OK: 0.392723s0
(+ -0.62215s0 3.521s-24)
EQL-OK: -0.62215s0
(+ -0.5406s0 -7.718s-24)
EQL-OK: -0.5406s0
(+ 6.5444s9 -0.060898s0)
EQL-OK: 6.5444s9
(+ -8.541s9 -0.181755s0)
EQL-OK: -8.541s9
(+ 3.02993s9 0.694534s0)
EQL-OK: 3.02993s9
(+ 9.3926s9 -0.77226s0)
EQL-OK: 9.3926s9
(+ -6.4481s9 0.252235s0)
EQL-OK: -6.4481s9
(+ -1.1734s8 0.94104s0)
EQL-OK: -1.1734s8
(+ -5.1049s9 1.28059s9)
EQL-OK: -3.82435s9
(+ -7.39554s9 8.9347s9)
EQL-OK: 1.53911s9
(+ 3.11457s9 1.71478s9)
EQL-OK: 4.82935s9
(+ -8.0461s9 9.0508s9)
EQL-OK: 1.00467s9
(+ -8.58006s8 -2.82289s7)
EQL-OK: -8.86235s8
(+ 1.82954s9 -1.83914s9)
EQL-OK: -9601024.0s0
(+ 7.6292s9 1.3988s-13)
EQL-OK: 7.6292s9
(+ -1.43837s9 -2.482s-15)
EQL-OK: -1.43837s9
(+ -6.4696s9 -1.3269s-13)
EQL-OK: -6.4696s9
(+ 9.6744s9 -3.132s-14)
EQL-OK: 9.6744s9
(+ -1.18927s9 -1.9405s-13)
EQL-OK: -1.18927s9
(+ -3.81462s9 -8.602s-14)
EQL-OK: -3.81462s9
(+ 5.5761s9 1.32286s19)
EQL-OK: 1.32286s19
(+ 7.1631s9 -9.3184s19)
EQL-OK: -9.3184s19
(+ 4.7921s9 -5.8008s19)
EQL-OK: -5.8008s19
(+ 7.792s9 9.7695s19)
EQL-OK: 9.7695s19
(+ 8.9575s9 7.0198s19)
EQL-OK: 7.0198s19
(+ 4.4688s9 7.2066s19)
EQL-OK: 7.2066s19
(+ 8.9222s9 -1.3243s-23)
EQL-OK: 8.9222s9
(+ -9.7717s9 3.434s-24)
EQL-OK: -9.7717s9
(+ -4.22478s9 -7.938s-24)
EQL-OK: -4.22478s9
(+ 3.9261s8 7.916s-24)
EQL-OK: 3.9261s8
(+ -3.239s9 -8.986s-24)
EQL-OK: -3.239s9
(+ -4.6268s9 -1.0129s-23)
EQL-OK: -4.6268s9
(+ 1.1171s-13 0.73372s0)
EQL-OK: 0.73372s0
(+ -3.575s-14 0.94588s0)
EQL-OK: 0.94588s0
(+ 3.176s-14 -0.160759s0)
EQL-OK: -0.160759s0
(+ 5.055s-15 -0.0258102s0)
EQL-OK: -0.0258102s0
(+ 6.371s-14 0.480484s0)
EQL-OK: 0.480484s0
(+ -9.257s-14 0.698975s0)
EQL-OK: 0.698975s0
(+ -1.0281s-13 -9.4453s9)
EQL-OK: -9.4453s9
(+ 5.96s-14 -1.71395s9)
EQL-OK: -1.71395s9
(+ 6.805s-14 -5.8515s9)
EQL-OK: -5.8515s9
(+ 1.1645s-13 7.4758s9)
EQL-OK: 7.4758s9
(+ -1.0064s-13 -1.86868s9)
EQL-OK: -1.86868s9
(+ 8.912s-15 -8.4908s9)
EQL-OK: -8.4908s9
(+ 4.036s-14 3.308s-15)
EQL-OK: 4.3668s-14
(+ -2.503s-15 -7.642s-14)
EQL-OK: -7.8923s-14
(+ 4.653s-14 -4.612s-14)
EQL-OK: 4.10262s-16
(+ 4.7s-14 -8.456s-14)
EQL-OK: -3.756s-14
(+ 8.181s-14 -4.658s-14)
EQL-OK: 3.52305s-14
(+ -1.5467s-13 2.3608s-13)
EQL-OK: 8.1409s-14
(+ -4.341s-14 -5.14576s19)
EQL-OK: -5.14576s19
(+ -3.159s-14 -9.4925s19)
EQL-OK: -9.4925s19
(+ -7.325s-14 3.49983s19)
EQL-OK: 3.49983s19
(+ 4.134s-14 7.07955s19)
EQL-OK: 7.07955s19
(+ 4.08s-15 -3.7832s19)
EQL-OK: -3.7832s19
(+ 1.1577s-13 3.30522s19)
EQL-OK: 3.30522s19
(+ -6.838s-14 2.739s-24)
EQL-OK: -6.838s-14
(+ 5.05s-14 6.768s-24)
EQL-OK: 5.05s-14
(+ -1.9477s-13 -6.657s-24)
EQL-OK: -1.9477s-13
(+ -6.348s-14 -5.222s-24)
EQL-OK: -6.348s-14
(+ -8.77s-14 -1.58234s-22)
EQL-OK: -8.77s-14
(+ 7.906s-14 4.9202s-22)
EQL-OK: 7.906s-14
(+ 3.7985s19 0.8199s0)
EQL-OK: 3.7985s19
(+ 9.891s19 0.79037s0)
EQL-OK: 9.891s19
(+ -1.49583s19 -0.360153s0)
EQL-OK: -1.49583s19
(+ -7.36023s19 0.8185s0)
EQL-OK: -7.36023s19
(+ 3.62075s19 -0.364594s0)
EQL-OK: 3.62075s19
(+ 8.0477s19 -0.531815s0)
EQL-OK: 8.0477s19
(+ 3.62182s19 -7.2661s9)
EQL-OK: 3.62182s19
(+ -3.23868s19 -9.6806s9)
EQL-OK: -3.23868s19
(+ -6.08735s19 2.89138s9)
EQL-OK: -6.08735s19
(+ 5.00175s19 -6.3548s9)
EQL-OK: 5.00175s19
(+ 2.82944s19 4.7262s9)
EQL-OK: 2.82944s19
(+ 4.6168s19 -6.8772s9)
EQL-OK: 4.6168s19
(+ 1.15555s19 -3.786s-14)
EQL-OK: 1.15555s19
(+ 8.1897s19 -8.971s-14)
EQL-OK: 8.1897s19
(+ 4.32734s19 -4.794s-14)
EQL-OK: 4.32734s19
(+ -9.4559s19 -1.9717s-13)
EQL-OK: -9.4559s19
(+ -4.20726s19 -8.657s-14)
EQL-OK: -4.20726s19
(+ 9.7697s19 -3.376s-14)
EQL-OK: 9.7697s19
(+ 6.09264s19 -7.5608s18)
EQL-OK: 5.33654s19
(+ -5.2828s19 6.8924s18)
EQL-OK: -4.59356s19
(+ 5.73685s19 -1.4978s19)
EQL-OK: 4.23907s19
(+ -1.30897s19 4.8593s19)
EQL-OK: 3.55036s19
(+ -8.5586s19 -9.712s19)
EQL-OK: -1.82707s20
(+ 3.8772s19 -8.6355s19)
EQL-OK: -4.75833s19
(+ -1.03845s19 6.88s-24)
EQL-OK: -1.03845s19
(+ 8.4716s19 9.614s-24)
EQL-OK: 8.4716s19
(+ -4.3023s19 -7.649s-24)
EQL-OK: -4.3023s19
(+ 5.9593s19 -2.552s-24)
EQL-OK: 5.9593s19
(+ 9.8934s19 1.3093s-23)
EQL-OK: 9.8934s19
(+ -5.70567s19 7.918s-24)
EQL-OK: -5.70567s19
(+ -2.893s-24 -0.93898s0)
EQL-OK: -0.93898s0
(+ 8.795s-24 -0.030014s0)
EQL-OK: -0.030014s0
(+ -9.366s-24 0.200493s0)
EQL-OK: 0.200493s0
(+ -9.3102s-22 -0.28704s0)
EQL-OK: -0.28704s0
(+ 7.142s-24 -0.45701s0)
EQL-OK: -0.45701s0
(+ 9.42s-24 0.957794s0)
EQL-OK: 0.957794s0
(+ 2.975s-24 -6.84104s9)
EQL-OK: -6.84104s9
(+ 2.26822s-22 -8.9898s9)
EQL-OK: -8.9898s9
(+ -1.531s-23 8.1961s9)
EQL-OK: 8.1961s9
(+ 1.7221s-23 -1.53725s9)
EQL-OK: -1.53725s9
(+ -9.488s-24 -4.77676s8)
EQL-OK: -4.77676s8
(+ -1.5077s-23 2.8251s9)
EQL-OK: 2.8251s9
(+ 3.41s-24 -4.701s-14)
EQL-OK: -4.701s-14
(+ -3.361s-24 -4.947s-15)
EQL-OK: -4.947s-15
(+ 9.026s-24 7.353s-14)
EQL-OK: 7.353s-14
(+ -6.385s-24 7.789s-14)
EQL-OK: 7.789s-14
(+ 1.8237s-23 8.517s-14)
EQL-OK: 8.517s-14
(+ 3.4439s-22 -4.345s-14)
EQL-OK: -4.345s-14
(+ -6.817s-24 -9.8611s19)
EQL-OK: -9.8611s19
(+ 6.213s-24 -2.7257s19)
EQL-OK: -2.7257s19
(+ -1.9353s-23 -2.71446s19)
EQL-OK: -2.71446s19
(+ -3.653s-24 -7.7565s19)
EQL-OK: -7.7565s19
(+ 1.2298s-23 -1.56532s19)
EQL-OK: -1.56532s19
(+ 2.905s-24 2.334s19)
EQL-OK: 2.334s19
(+ 3.182s-24 -5.727s-24)
EQL-OK: -2.545s-24
(+ -1.0745s-23 3.64s-24)
EQL-OK: -7.1049s-24
(+ -9.7145s-22 8.77s-24)
EQL-OK: -9.6267s-22
(+ 1.3734s-23 3.225s-24)
EQL-OK: 1.69588s-23
(+ 2.745s-24 1.0505s-23)
EQL-OK: 1.325s-23
(+ 2.78s-24 2.747s-24)
EQL-OK: 5.527s-24
(- 0.57362s0 -0.0545654s0)
EQL-OK: 0.62819s0
(- -0.121063s0 -0.157204s0)
EQL-OK: 0.0361404s0
(- 0.75334s0 -0.186554s0)
EQL-OK: 0.939896s0
(- 0.879036s0 -0.54558s0)
EQL-OK: 1.42462s0
(- -0.245338s0 -0.003891s0)
EQL-OK: -0.241447s0
(- -0.89576s0 0.61608s0)
EQL-OK: -1.51184s0
(- -0.59227s0 6.61s9)
EQL-OK: -6.61s9
(- 0.381363s0 1.88003s9)
EQL-OK: -1.88003s9
(- 0.858986s0 1.31028s9)
EQL-OK: -1.31028s9
(- 0.56377s0 -3.26553s9)
EQL-OK: 3.26553s9
(- 0.80342s0 -1.46217s9)
EQL-OK: 1.46217s9
(- 0.093941s0 8.30203s9)
EQL-OK: -8.30203s9
(- 0.266243s0 4.98s-14)
EQL-OK: 0.266243s0
(- -0.169983s0 8.01s-15)
EQL-OK: -0.169983s0
(- 0.77925s0 -2.777s-15)
EQL-OK: 0.77925s0
(- -0.379807s0 3.99s-15)
EQL-OK: -0.379807s0
(- -0.392517s0 1.108s-13)
EQL-OK: -0.392517s0
(- -0.26274s0 -7.575s-14)
EQL-OK: -0.26274s0
(- 0.72031s0 4.1223s19)
EQL-OK: -4.1223s19
(- 0.589775s0 -2.9271s19)
EQL-OK: 2.9271s19
(- 0.205704s0 -8.4906s19)
EQL-OK: 8.4906s19
(- 0.362556s0 6.8624s19)
EQL-OK: -6.8624s19
(- -0.604004s0 -1.42777s19)
EQL-OK: 1.42777s19
(- -0.53121s0 2.3539s19)
EQL-OK: -2.3539s19
(- -0.684906s0 8.179s-24)
EQL-OK: -0.684906s0
(- 0.43084s0 -5.849s-24)
EQL-OK: 0.43084s0
(- 0.153358s0 3.633s-24)
EQL-OK: 0.153358s0
(- 0.93678s0 9.13s-24)
EQL-OK: 0.93678s0
(- 0.78924s0 -7.766s-24)
EQL-OK: 0.78924s0
(- 0.33867s0 3.51s-24)
EQL-OK: 0.33867s0
(- 8.0573s9 -0.86206s0)
EQL-OK: 8.0573s9
(- 9.3318s9 -0.93273s0)
EQL-OK: 9.3318s9
(- -4.26515s9 0.464104s0)
EQL-OK: -4.26515s9
(- -3.35557s9 -0.93267s0)
EQL-OK: -3.35557s9
(- -6.81614s9 -0.64528s0)
EQL-OK: -6.81614s9
(- -5.099s9 0.67011s0)
EQL-OK: -5.099s9
(- -4.2206s9 4.9182s9)
EQL-OK: -9.1389s9
(- -5.18173s9 2.267s9)
EQL-OK: -7.4487s9
(- 5.53314s9 6.08856s9)
EQL-OK: -5.5542s8
(- 9.88s9 -3.3333s9)
EQL-OK: 1.32132s10
(- 4.87404s9 7.17075s9)
EQL-OK: -2.2967s9
(- -2.9911s9 -1.37177s8)
EQL-OK: -2.85393s9
(- -8.1379s9 3.023s-15)
EQL-OK: -8.1379s9
(- 4.8877s9 -1.1596s-13)
EQL-OK: 4.8877s9
(- -1.89071s9 -4.33s-14)
EQL-OK: -1.89071s9
(- 8.7563s9 -4.676s-14)
EQL-OK: 8.7563s9
(- -4.4533s9 2.743s-15)
EQL-OK: -4.4533s9
(- 4.0261s9 2.1618s-13)
EQL-OK: 4.0261s9
(- 9.1731s9 -8.0954s19)
EQL-OK: 8.0954s19
(- 6.984s9 1.09772s19)
EQL-OK: -1.09772s19
(- -9.8832s9 -8.0905s19)
EQL-OK: 8.0905s19
(- -8.5769s9 -6.24565s19)
EQL-OK: 6.24565s19
(- 8.5486s9 2.77396s19)
EQL-OK: -2.77396s19
(- -9.4026s9 -3.5611s19)
EQL-OK: 3.5611s19
(- 5.1003s9 -1.9535s-23)
EQL-OK: 5.1003s9
(- 1.88706s9 -1.6304s-23)
EQL-OK: 1.88706s9
(- -9.4567s9 -1.9848s-23)
EQL-OK: -9.4567s9
(- 9.6498s9 -1.57531s-21)
EQL-OK: 9.6498s9
(- -5.733s9 1.23215s-21)
EQL-OK: -5.733s9
(- -4.0567s9 -5.229s-24)
EQL-OK: -4.0567s9
(- -4.379s-14 -0.0201035s0)
EQL-OK: 0.0201035s0
(- -4.036s-14 0.82034s0)
EQL-OK: -0.82034s0
(- 1.6661s-13 -0.70753s0)
EQL-OK: 0.70753s0
(- 3.36s-14 0.60217s0)
EQL-OK: -0.60217s0
(- 4.977s-14 -0.95905s0)
EQL-OK: 0.95905s0
(- -2.967s-14 0.55465s0)
EQL-OK: -0.55465s0
(- 4.394s-14 2.01859s9)
EQL-OK: -2.01859s9
(- 3.683s-14 4.77836s9)
EQL-OK: -4.77836s9
(- -6.887s-14 -9.26s9)
EQL-OK: 9.26s9
(- -2.643s-15 -5.6812s9)
EQL-OK: 5.6812s9
(- -8.498s-14 -9.3728s9)
EQL-OK: 9.3728s9
(- 9.033s-14 2.18002s9)
EQL-OK: -2.18002s9
(- 3.113s-14 -9.207s-14)
EQL-OK: 1.232s-13
(- -3.239s-15 -1.2957s-13)
EQL-OK: 1.26331s-13
(- 3.098s-15 -6.117s-15)
EQL-OK: 9.2151s-15
(- 1.7706s-13 4.829s-14)
EQL-OK: 1.2877s-13
(- 2.793s-15 8.62s-14)
EQL-OK: -8.3407s-14
(- -5.019s-14 4.125s-14)
EQL-OK: -9.144s-14
(- -9.495s-14 -6.06994s18)
EQL-OK: 6.06994s18
(- 9.385s-14 -7.9288s19)
EQL-OK: 7.9288s19
(- -3.099s-14 -6.64095s19)
EQL-OK: 6.64095s19
(- 3.397s-15 2.92222s19)
EQL-OK: -2.92222s19
(- -8.463s-14 -4.9708s19)
EQL-OK: 4.9708s19
(- -2.735s-15 -9.2672s19)
EQL-OK: 9.2672s19
(- -2.974s-14 -7.975s-24)
EQL-OK: -2.974s-14
(- -2.1853s-13 2.736s-24)
EQL-OK: -2.1853s-13
(- 3.243s-15 -6.867s-24)
EQL-OK: 3.243s-15
(- 4.792s-14 -2.659s-24)
EQL-OK: 4.792s-14
(- 4.672s-14 7.831s-24)
EQL-OK: 4.672s-14
(- 2.0285s-13 2.741s-24)
EQL-OK: 2.0285s-13
(- -9.1884s19 -0.22573s0)
EQL-OK: -9.1884s19
(- 3.32245s19 0.7651s0)
EQL-OK: 3.32245s19
(- 4.13513s17 0.85135s0)
EQL-OK: 4.13513s17
(- 2.2249s19 0.45778s0)
EQL-OK: 2.2249s19
(- 4.9103s19 0.84862s0)
EQL-OK: 4.9103s19
(- 4.27386s19 -0.06662s0)
EQL-OK: 4.27386s19
(- -6.725s19 5.11246s8)
EQL-OK: -6.725s19
(- -2.40906s19 7.2238s9)
EQL-OK: -2.40906s19
(- 6.1667s19 -7.4303s9)
EQL-OK: 6.1667s19
(- -7.746s19 -4.29687s8)
EQL-OK: -7.746s19
(- -1.81419s19 -5.68164s9)
EQL-OK: -1.81419s19
(- 7.0665s19 -8.9546s8)
EQL-OK: 7.0665s19
(- 2.47788s19 -2.2961s-13)
EQL-OK: 2.47788s19
(- -7.4962s19 -3.378s-14)
EQL-OK: -7.4962s19
(- 1.72135s19 7.168s-14)
EQL-OK: 1.72135s19
(- 8.3699s19 4.887s-14)
EQL-OK: 8.3699s19
(- -4.5701s19 -8.009s-14)
EQL-OK: -4.5701s19
(- -2.845s18 1.1087s-13)
EQL-OK: -2.845s18
(- 6.4084s19 -4.569s19)
EQL-OK: 1.09774s20
(- 1.33888s19 -6.8446s19)
EQL-OK: 8.1835s19
(- -4.0631s19 1.50864s19)
EQL-OK: -5.57174s19
(- -5.61754s18 2.6413s18)
EQL-OK: -8.2588s18
(- -9.0749s19 6.21626s19)
EQL-OK: -1.5291s20
(- -8.5269s19 6.2002s19)
EQL-OK: -1.47271s20
(- 3.15773s19 5.433s-24)
EQL-OK: 3.15773s19
(- 5.1563s19 -1.6366s-23)
EQL-OK: 5.1563s19
(- -5.8449s19 3.282s-24)
EQL-OK: -5.8449s19
(- 4.70947s19 1.564s-23)
EQL-OK: 4.70947s19
(- -4.32334s19 -1.0593s-23)
EQL-OK: -4.32334s19
(- 7.9621s19 5.61s-24)
EQL-OK: 7.9621s19
(- 8.164s-24 0.133362s0)
EQL-OK: -0.133362s0
(- -1.57089s-21 0.3154s0)
EQL-OK: -0.3154s0
(- -3.736s-24 -0.66536s0)
EQL-OK: 0.66536s0
(- -6.923s-24 -0.431366s0)
EQL-OK: 0.431366s0
(- 3.345s-24 0.77436s0)
EQL-OK: -0.77436s0
(- -1.4322s-23 0.799644s0)
EQL-OK: -0.799644s0
(- -1.3249s-23 -4.22035s9)
EQL-OK: 4.22035s9
(- 2.707s-24 -6.5029s9)
EQL-OK: 6.5029s9
(- -3.49s-24 -2.5205s9)
EQL-OK: 2.5205s9
(- -1.0086s-23 1.35048s9)
EQL-OK: -1.35048s9
(- 1.4406s-23 1.55487s9)
EQL-OK: -1.55487s9
(- 3.37s-24 -4.3973s9)
EQL-OK: 4.3973s9
(- -1.31249s-21 3.448s-14)
EQL-OK: -3.448s-14
(- -7.706s-24 -1.9488s-13)
EQL-OK: 1.9488s-13
(- -9.8403s-22 2.294s-13)
EQL-OK: -2.294s-13
(- -3.355s-24 1.0187s-13)
EQL-OK: -1.0187s-13
(- 9.5635s-22 -8.663s-14)
EQL-OK: 8.663s-14
(- -5.713s-24 -3.169s-14)
EQL-OK: 3.169s-14
(- 2.645s-24 -5.2307s19)
EQL-OK: 5.2307s19
(- -9.96s-24 -9.2854s19)
EQL-OK: 9.2854s19
(- 8.036s-24 -7.11434s19)
EQL-OK: 7.11434s19
(- 3.475s-24 -4.845s19)
EQL-OK: 4.845s19
(- -3.062s-24 4.91714s19)
EQL-OK: -4.91714s19
(- -2.541s-24 -2.91276s19)
EQL-OK: 2.91276s19
(- 1.4371s-23 1.1606s-23)
EQL-OK: 2.76508s-24
(- -1.8769s-23 2.965s-24)
EQL-OK: -2.1734s-23
(- 3.713s-24 -1.7581s-23)
EQL-OK: 2.1294s-23
(- -5.954s-24 -2.764s-24)
EQL-OK: -3.19s-24
(- 3.21502s-22 8.56s-24)
EQL-OK: 3.12942s-22
(- 9.969s-24 5.912s-24)
EQL-OK: 4.057s-24
(* -0.56581s0 -0.117477s0)
EQL-OK: 0.06647s0
(* 0.73841s0 0.08886s0)
EQL-OK: 0.065615s0
(* -0.75174s0 -0.173615s0)
EQL-OK: 0.130512s0
(* 0.557236s0 -0.105034s0)
EQL-OK: -0.0585284s0
(* -0.62105s0 0.828835s0)
EQL-OK: -0.51475s0
(* -0.54287s0 -0.92243s0)
EQL-OK: 0.50076s0
(* -0.2173s0 5.5084s9)
EQL-OK: -1.19698s9
(* 0.467354s0 -7.9517s9)
EQL-OK: -3.71625s9
(* -0.95485s0 5.6451s9)
EQL-OK: -5.3902s9
(* 0.0472946s0 -6.774s9)
EQL-OK: -3.20373s8
(* 0.196037s0 7.3548s8)
EQL-OK: 1.44181s8
(* -0.25535s0 4.91907s9)
EQL-OK: -1.25608s9
(* 0.047058s0 6.612s-14)
EQL-OK: 3.11147s-15
(* -0.35054s0 3.764s-14)
EQL-OK: -1.31943s-14
(* 0.372635s0 1.0613s-13)
EQL-OK: 3.9548s-14
(* 0.627266s0 -9.519s-14)
EQL-OK: -5.971s-14
(* -0.0293884s0 1.1626s-13)
EQL-OK: -3.41667s-15
(* -0.88304s0 -1.116s-13)
EQL-OK: 9.8547s-14
(* 0.318016s0 -6.86827s19)
EQL-OK: -2.18422s19
(* 0.605064s0 3.4281s19)
EQL-OK: 2.07422s19
(* -0.65415s0 -8.185s19)
EQL-OK: 5.3542s19
(* 0.87548s0 6.72325s19)
EQL-OK: 5.8861s19
(* 0.45806s0 -9.503s19)
EQL-OK: -4.35295s19
(* -0.995384s0 1.62797s19)
EQL-OK: -1.62045s19
(* 0.26301s0 -1.3169s-23)
EQL-OK: -3.46357s-24
(* 0.82762s0 -3.411s-24)
EQL-OK: -2.82304s-24
(* -0.042412s0 -3.339s-24)
EQL-OK: 1.41613s-25
(* 0.858284s0 -7.61s-24)
EQL-OK: -6.53157s-24
(* 0.75574s0 1.0518s-23)
EQL-OK: 7.9488s-24
(* 0.977s0 -5.944s-24)
EQL-OK: -5.8073s-24
(* 1.1316s9 0.87906s0)
EQL-OK: 9.9474s8
(* 9.7596s9 0.58181s0)
EQL-OK: 5.67824s9
(* 5.5896s9 -0.91708s0)
EQL-OK: -5.12616s9
(* -7.677s9 -0.67695s0)
EQL-OK: 5.19694s9
(* -4.73655s9 0.65572s0)
EQL-OK: -3.10588s9
(* -3.2158s9 -0.30076s0)
EQL-OK: 9.6717s8
(* 5.94916s9 -1.02867s9)
EQL-OK: -6.1197s18
(* -3.19098s9 8.125s9)
EQL-OK: -2.59267s19
(* -6.57215s9 9.4253s9)
EQL-OK: -6.1944s19
(* -5.2792s9 3.93547s9)
EQL-OK: -2.0776s19
(* 2.502s9 4.1275s9)
EQL-OK: 1.0327s19
(* -8.9462s9 -4.72174s9)
EQL-OK: 4.22415s19
(* -8.9588s9 -1.419s-14)
EQL-OK: 1.27126s-4
(* -3.56218s9 -9.982s-14)
EQL-OK: 3.5558s-4
(* -3.4449s9 4.582s-15)
EQL-OK: -1.57845s-5
(* -3.7047s9 1.2985s-14)
EQL-OK: -4.8105s-5
(* -8.9172s8 -7.294s-14)
EQL-OK: 6.5043s-5
(* 1.64864s9 1.8344s-13)
EQL-OK: 3.02427s-4
(* -9.935s8 -7.9116s19)
EQL-OK: 7.8602s28
(* -7.0441s9 -6.3448s19)
EQL-OK: 4.4693s29
(* 7.72866s9 1.44264s19)
EQL-OK: 1.11497s29
(* 3.7816s9 -3.16285s19)
EQL-OK: -1.19606s29
(* -1.06926s9 6.67816s19)
EQL-OK: -7.1407s28
(* 4.04482s9 -3.52235s19)
EQL-OK: -1.42473s29
(* -8.77s8 -3.499s-24)
EQL-OK: 3.06864s-15
(* -9.5508s9 1.0006s-23)
EQL-OK: -9.5566s-14
(* -2.98736s9 -7.07s-24)
EQL-OK: 2.11207s-14
(* 9.9779s9 1.2683s-23)
EQL-OK: 1.26548s-13
(* 7.4813s9 -1.373s-23)
EQL-OK: -1.02719s-13
(* 8.5804s9 6.999s-24)
EQL-OK: 6.0054s-14
(* 4.637s-14 0.895805s0)
EQL-OK: 4.15384s-14
(* 1.0125s-13 -0.322685s0)
EQL-OK: -3.26718s-14
(* 2.31s-16 0.0601425s0)
EQL-OK: 1.38928s-17
(* 1.0579s-13 -0.27089s0)
EQL-OK: -2.86576s-14
(* 9.54s-14 -0.21251s0)
EQL-OK: -2.02735s-14
(* -4.463s-14 -0.96336s0)
EQL-OK: 4.2995s-14
(* 3.27s-14 -5.9141s9)
EQL-OK: -1.93391s-4
(* -6.515s-14 1.01791s9)
EQL-OK: -6.6318s-5
(* 3.695s-14 8.7417s9)
EQL-OK: 3.23005s-4
(* -1.09s-13 -6.75794s9)
EQL-OK: 7.3662s-4
(* 4.551s-14 -7.1112s9)
EQL-OK: -3.2363s-4
(* 5.456s-15 -5.44014s9)
EQL-OK: -2.96813s-5
(* -3.377s-14 3.358s-15)
EQL-OK: -1.13399s-28
(* 3.862s-14 7.278s-14)
EQL-OK: 2.81079s-27
(* 9.449s-14 3.17s-14)
EQL-OK: 2.99533s-27
(* 7.051s-14 -4.234s-14)
EQL-OK: -2.98537s-27
(* -8.955s-14 9.895s-14)
EQL-OK: -8.861s-27
(* -1.6752s-13 -7.341s-14)
EQL-OK: 1.22977s-26
(* 9.42s-14 4.50844s19)
EQL-OK: 4246912.0s0
(* 2.0183s-13 9.598s19)
EQL-OK: 1.93715s7
(* -7.441s-14 -5.7324s19)
EQL-OK: 4265472.0s0
(* 7.241s-14 -5.79135s19)
EQL-OK: -4193504.0s0
(* 7.987s-14 8.1113s19)
EQL-OK: 6478528.0s0
(* -1.1603s-13 7.4468s19)
EQL-OK: -8640512.0s0
(* -4.432s-14 -6.851s-24)
EQL-OK: 3.03637s-37
(* -5.064s-14 -8.119s-24)
EQL-OK: 4.1115s-37
(* 3.553s-15 -6.404s-24)
EQL-OK: -2.27533s-38
(* 8.699s-14 -3.558s-24)
EQL-OK: -3.0951s-37
(* 9.82s-14 -5.771s-24)
EQL-OK: -5.6671s-37
(* -3.477s-14 7.723s-24)
EQL-OK: -2.6853s-37
(* 7.9082s19 0.71604s0)
EQL-OK: 5.6626s19
(* -6.83905s19 -0.36905s0)
EQL-OK: 2.52396s19
(* -7.7697s19 -0.34073s0)
EQL-OK: 2.64736s19
(* -2.10557s19 -0.58961s0)
EQL-OK: 1.24146s19
(* 9.0963s19 -0.37693s0)
EQL-OK: -3.42865s19
(* -4.24076s19 0.91147s0)
EQL-OK: -3.8653s19
(* -3.5865s19 -6.4046s9)
EQL-OK: 2.297s29
(* 7.19225s18 -7.7232s9)
EQL-OK: -5.5547s28
(* 1.98907s19 -9.9239s9)
EQL-OK: -1.97393s29
(* -4.27195s19 7.0734s9)
EQL-OK: -3.02173s29
(* -8.3115s19 5.2947s9)
EQL-OK: -4.40073s29
(* 9.4386s19 8.6548s8)
EQL-OK: 8.169s28
(* 6.21677s19 -3.135s-14)
EQL-OK: -1948960.0s0
(* -6.30774s19 1.5884s-13)
EQL-OK: -1.00192s7
(* 7.6073s19 3.922s-14)
EQL-OK: 2983552.0s0
(* -1.44485s19 -3.355s-14)
EQL-OK: 484748.0s0
(* 3.39653s19 -7.679s-14)
EQL-OK: -2608192.0s0
(* -6.0072s19 1.7825s-13)
EQL-OK: -1.07078s7
(* 1.06812s16 -1.19583s19)
EQL-OK: -1.2773s35
(* 1.1438s19 2.616s-24)
EQL-OK: 2.99218s-5
(* -5.79304s18 -3.095s-24)
EQL-OK: 1.79296s-5
(* -7.6387s19 8.607s-24)
EQL-OK: -6.5746s-4
(* 4.03933s19 3.058s-24)
EQL-OK: 1.23523s-4
(* -2.06994s19 -1.1381s-23)
EQL-OK: 2.3558s-4
(* 3.7857s18 -3.59s-24)
EQL-OK: -1.35906s-5
(* 5.656s-24 -0.096458s0)
EQL-OK: -5.4557s-25
(* -5.799s-24 -0.148445s0)
EQL-OK: 8.6083s-25
(* -9.041s-24 0.86431s0)
EQL-OK: -7.8143s-24
(* -2.645s-24 -0.911865s0)
EQL-OK: 2.41187s-24
(* -9.758s-24 -0.397186s0)
EQL-OK: 3.87574s-24
(* -5.345s-24 -0.27215s0)
EQL-OK: 1.45463s-24
(* -3.713s-24 9.11335s8)
EQL-OK: -3.38382s-15
(* -3.01s-24 -9.5278s9)
EQL-OK: 2.86784s-14
(* -1.6904s-23 -8.37655s9)
EQL-OK: 1.41599s-13
(* -5.074s-24 -9.2804s9)
EQL-OK: 4.7089s-14
(* -6.942s-22 -8.7038s9)
EQL-OK: 6.04217s-12
(* -7.643s-24 -3.1665s9)
EQL-OK: 2.42018s-14
(* -2.659s-24 -9.238s-14)
EQL-OK: 2.4564s-37
(* -1.7036s-23 3.138s-14)
EQL-OK: -5.34586s-37
(* 7.684s-24 8.639s-14)
EQL-OK: 6.6383s-37
(* -3.424s-24 -6.046s-14)
EQL-OK: 2.07014s-37
(* 9.3102s-22 -1.1344s-13)
EQL-OK: -1.05614s-34
(* 8.07s-24 3.573s-14)
EQL-OK: 2.8834s-37
(* 3.557s-24 7.9957s19)
EQL-OK: 2.84407s-4
(* 7.281s-24 -3.45443s19)
EQL-OK: -2.5152s-4
(* -1.6093s-23 3.22463s19)
EQL-OK: -5.1894s-4
(* -1.8628s-23 4.95593s19)
EQL-OK: -9.2319s-4
(* 3.463s-24 -4.44685s19)
EQL-OK: -1.53994s-4
(* -8.081s-24 -1.54701s19)
EQL-OK: 1.25013s-4
(MULTIPLE-VALUE-LIST (FLOOR -0.403114s0 0.64293s0))
EQUAL-OK: (-1 0.239813s0)
(MULTIPLE-VALUE-LIST (FLOOR -0.538574s0 0.74157s0))
EQUAL-OK: (-1 0.202993s0)
(MULTIPLE-VALUE-LIST (FLOOR 0.59919s0 -0.433258s0))
EQUAL-OK: (-2 -0.26733s0)
(MULTIPLE-VALUE-LIST (FLOOR -0.62148s0 -0.185875s0))
EQUAL-OK: (3 -0.063861s0)
(MULTIPLE-VALUE-LIST (FLOOR 0.298317s0 -0.79534s0))
EQUAL-OK: (-1 -0.49703s0)
(MULTIPLE-VALUE-LIST (FLOOR 0.84822s0 9.519s9))
EQUAL-OK: (0 0.84822s0)
(MULTIPLE-VALUE-LIST (FLOOR 0.185059s0 -4.4452s9))
EQUAL-OK: (-1 -4.4452s9)
(MULTIPLE-VALUE-LIST (FLOOR -0.442635s0 -4.64486s9))
EQUAL-OK: (0 -0.442635s0)
(MULTIPLE-VALUE-LIST (FLOOR 0.78401s0 -8.4401s9))
EQUAL-OK: (-1 -8.4401s9)
(MULTIPLE-VALUE-LIST (FLOOR 0.300156s0 -4.4083s9))
EQUAL-OK: (-1 -4.4083s9)
(MULTIPLE-VALUE-LIST (FLOOR 0.67763s0 2.54755s9))
EQUAL-OK: (0 0.67763s0)
(MULTIPLE-VALUE-LIST (FLOOR -0.189995s0 -1.9236s-13))
EQUAL-OK: (987708260352 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR 0.442696s0 -4.184s-15))
EQUAL-OK: (-105806519336960 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR 0.175987s0 -5.055s-15))
EQUAL-OK: (-34814468030464 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR 0.30565s0 -4.296s-14))
EQUAL-OK: (-7114747543552 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR 0.256264s0 4.541s-14))
EQUAL-OK: (5643318591488 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR -0.51656s0 4.057s-14))
EQUAL-OK: (-12732698984448 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR -0.221672s0 -5.9783s19))
EQUAL-OK: (0 -0.221672s0)
(MULTIPLE-VALUE-LIST (FLOOR -0.441925s0 -8.1227s19))
EQUAL-OK: (0 -0.441925s0)
(MULTIPLE-VALUE-LIST (FLOOR 0.73287s0 -3.99683s19))
EQUAL-OK: (-1 -3.99683s19)
(MULTIPLE-VALUE-LIST (FLOOR -0.376198s0 9.1146s19))
EQUAL-OK: (-1 9.1146s19)
(MULTIPLE-VALUE-LIST (FLOOR 0.61628s0 -5.83824s19))
EQUAL-OK: (-1 -5.83824s19)
(MULTIPLE-VALUE-LIST (FLOOR -0.072037s0 4.40705s19))
EQUAL-OK: (-1 4.40705s19)
(MULTIPLE-VALUE-LIST (FLOOR 0.378708s0 3.258s-24))
EQUAL-OK: (116238699015966918967296 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR 0.98937s0 -7.698s-24))
EQUAL-OK: (-128524230569057480343552 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR -0.94075s0 -1.0053s-23))
EQUAL-OK: (93579179764423948500992 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR 0.263123s0 -3.06s-24))
EQUAL-OK: (-85988344578092468011008 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR -0.58892s0 -1.1106s-23))
EQUAL-OK: (53027471682887319814144 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR -0.38977s0 -2.812s-24))
EQUAL-OK: (138609987891358177689600 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR -1.46599s9 0.338676s0))
EQUAL-OK: (-4328587264 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR -6.326s9 0.91743s0))
EQUAL-OK: (-6895370240 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR -3.63617s9 -0.569855s0))
EQUAL-OK: (6380847104 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR -1.45737s9 0.9508s0))
EQUAL-OK: (-1532788736 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR 5.24714s9 0.45768s0))
EQUAL-OK: (11464605696 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR 8.1693s9 0.69472s0))
EQUAL-OK: (11759255552 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR -2.7664s9 -1.9246s9))
EQUAL-OK: (1 -8.418s8)
(MULTIPLE-VALUE-LIST (FLOOR 8.29057s9 -7.18694s9))
EQUAL-OK: (-2 -6.0833s9)
(MULTIPLE-VALUE-LIST (FLOOR 6.7409s9 8.9158s9))
EQUAL-OK: (0 6.7409s9)
(MULTIPLE-VALUE-LIST (FLOOR 9.4039s9 -1.80932s9))
EQUAL-OK: (-6 -1.45206s9)
(MULTIPLE-VALUE-LIST (FLOOR 4.4432s9 -7.587s9))
EQUAL-OK: (-1 -3.14373s9)
(MULTIPLE-VALUE-LIST (FLOOR -4.8365s9 -3.4401s8))
EQUAL-OK: (14 -2.03249s7)
(MULTIPLE-VALUE-LIST (FLOOR 4.70575s9 2.813s-15))
EQUAL-OK: (1672861433068424397848576 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR 8.37706s8 1.1696s-13))
EQUAL-OK: (7162308674587923054592 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR 4.9421s9 3.384s-15))
EQUAL-OK: (1460410281571511491887104 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR 9.4391s8 6.964s-14))
EQUAL-OK: (13554177553722320617472 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR 3.56217s8 3.38s-14))
EQUAL-OK: (10538999588799264063488 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR 7.53166s9 7.011s-14))
EQUAL-OK: (107426919956256787529728 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR -5.3385s9 -7.8903s19))
EQUAL-OK: (0 -5.3385s9)
(MULTIPLE-VALUE-LIST (FLOOR -5.5786s8 -6.5112s19))
EQUAL-OK: (0 -5.5786s8)
(MULTIPLE-VALUE-LIST (FLOOR -7.0502s9 -2.57187s18))
EQUAL-OK: (0 -7.0502s9)
(MULTIPLE-VALUE-LIST (FLOOR 3.48724s9 3.0864s19))
EQUAL-OK: (0 3.48724s9)
(MULTIPLE-VALUE-LIST (FLOOR -1.195s9 6.9068s19))
EQUAL-OK: (-1 6.9068s19)
(MULTIPLE-VALUE-LIST (FLOOR 6.40785s9 6.1696s19))
EQUAL-OK: (0 6.40785s9)
(MULTIPLE-VALUE-LIST (FLOOR -9.9772s9 -3.455s-24))
EQUAL-OK: (2887787295482420840947083445796864 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR 6.3337s9 -2.757s-24))
EQUAL-OK: (-2297319607304237298946798769930240 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR 2.24916s9 8.958s-24))
EQUAL-OK: (251078998767860827355040375111680 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR -4.695s9 -9.695s-24))
EQUAL-OK: (484267288087969338977238606938112 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR -5.84457s9 -7.7713s-22))
EQUAL-OK: (7520717852416051178813723246592 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR -2.01576s9 6.682s-24))
EQUAL-OK: (-301671132293375748429617783898112 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR 1.7042s-13 -0.80732s0))
EQUAL-OK: (-1 -0.80732s0)
(MULTIPLE-VALUE-LIST (FLOOR 4.959s-14 0.9918s0))
EQUAL-OK: (0 4.959s-14)
(MULTIPLE-VALUE-LIST (FLOOR 2.082s-13 0.75837s0))
EQUAL-OK: (0 2.08202s-13)
(MULTIPLE-VALUE-LIST (FLOOR 4.808s-14 0.89121s0))
EQUAL-OK: (0 4.808s-14)
(MULTIPLE-VALUE-LIST (FLOOR -4.005s-14 0.71084s0))
EQUAL-OK: (-1 0.71084s0)
(MULTIPLE-VALUE-LIST (FLOOR 4.497s-14 -0.83223s0))
EQUAL-OK: (-1 -0.83223s0)
(MULTIPLE-VALUE-LIST (FLOOR -4.538s-14 3.81524s9))
EQUAL-OK: (-1 3.81524s9)
(MULTIPLE-VALUE-LIST (FLOOR -1.0888s-13 2.5705s9))
EQUAL-OK: (-1 2.5705s9)
(MULTIPLE-VALUE-LIST (FLOOR -1.0445s-15 3.9579s9))
EQUAL-OK: (-1 3.9579s9)
(MULTIPLE-VALUE-LIST (FLOOR -3.399s-14 3.8115s9))
EQUAL-OK: (-1 3.8115s9)
(MULTIPLE-VALUE-LIST (FLOOR 8.889s-14 1.02951s9))
EQUAL-OK: (0 8.889s-14)
(MULTIPLE-VALUE-LIST (FLOOR -4.408s-14 -5.5562s9))
EQUAL-OK: (0 -4.40806s-14)
(MULTIPLE-VALUE-LIST (FLOOR 1.4679s-13 -1.9105s-13))
EQUAL-OK: (-1 -4.426s-14)
(MULTIPLE-VALUE-LIST (FLOOR 1.274s-14 -4.935s-14))
EQUAL-OK: (-1 -3.661s-14)
(MULTIPLE-VALUE-LIST (FLOOR -4.321s-14 -8.355s-14))
EQUAL-OK: (0 -4.32102s-14)
(MULTIPLE-VALUE-LIST (FLOOR -1.1228s-13 -3.641s-14))
EQUAL-OK: (3 -3.0501s-15)
(MULTIPLE-VALUE-LIST (FLOOR 4.643s-14 9.809s-14))
EQUAL-OK: (0 4.643s-14)
(MULTIPLE-VALUE-LIST (FLOOR 6.832s-14 1.2918s-13))
EQUAL-OK: (0 6.832s-14)
(MULTIPLE-VALUE-LIST (FLOOR -3.186s-15 7.2502s19))
EQUAL-OK: (-1 7.2502s19)
(MULTIPLE-VALUE-LIST (FLOOR 7.57s-14 -6.8838s19))
EQUAL-OK: (-1 -6.8838s19)
(MULTIPLE-VALUE-LIST (FLOOR -1.5446s-14 -8.6798s19))
EQUAL-OK: (0 -1.5446s-14)
(MULTIPLE-VALUE-LIST (FLOOR -1.2496s-13 -8.0029s19))
EQUAL-OK: (0 -1.24963s-13)
(MULTIPLE-VALUE-LIST (FLOOR -3.303s-15 -9.7969s19))
EQUAL-OK: (0 -3.303s-15)
(MULTIPLE-VALUE-LIST (FLOOR -3.832s-14 5.17976s19))
EQUAL-OK: (-1 5.17976s19)
(MULTIPLE-VALUE-LIST (FLOOR -1.1039s-13 1.1031s-23))
EQUAL-OK: (-10007216128 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR -3.303s-14 -1.61171s-21))
EQUAL-OK: (20493824 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR 3.66s-14 -1.3664s-23))
EQUAL-OK: (-2678554624 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR -1.9574s-13 -6.864s-24))
EQUAL-OK: (28516810752 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR 3.285s-14 -3.329s-24))
EQUAL-OK: (-9867755520 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR -3.291s-15 4.2038s-23))
EQUAL-OK: (-78285824 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR -7.18707s19 0.231445s0))
EQUAL-OK: (-310527697906823069696 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR 9.5173s19 -0.0566254s0))
EQUAL-OK: (-1680761395333178589184 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR -6.6524s19 -0.697136s0))
EQUAL-OK: (95424520704539754496 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR 3.42423s19 0.68306s0))
EQUAL-OK: (50130693352167833600 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR -7.2388s19 0.0522995s0))
EQUAL-OK: (-1384100280679029276672 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR 5.9235s18 -0.24643s0))
EQUAL-OK: (-24037400061136601088 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR -2.63137s18 -1.6819s9))
EQUAL-OK: (1564524544 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR 2.4749s19 -2.36457s9))
EQUAL-OK: (-10466623488 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR -2.07847s19 6.4981s9))
EQUAL-OK: (-3198582784 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR -2.54907s19 4.4446s9))
EQUAL-OK: (-5735186432 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR 2.34573s19 3.0757s9))
EQUAL-OK: (7626620928 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR -1.93055s19 4.8192s9))
EQUAL-OK: (-4005953536 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR 4.4928s19 9.588s-14))
EQUAL-OK: (468585063670302141654816501268480 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR -2.17698s19 -3.259s-14))
EQUAL-OK: (667992445198391196335567431270400 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR -8.3605s19 -1.2702s-13))
EQUAL-OK: (658197863607565267600565560410112 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR 5.2775s19 3.555s-15))
EQUAL-OK: (14845297722947765992252704150257664 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR -5.0371s19 6.922s-15))
EQUAL-OK: (-7276948270610150879291824750460928 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR 8.3107s18 -1.0201s-13))
EQUAL-OK: (-81468833985370875891111365181440 0.0s0)
(MULTIPLE-VALUE-LIST (FLOOR -3.8796s19 3.8685s19))
EQUAL-OK: (-2 3.85733s19)
(MULTIPLE-VALUE-LIST (FLOOR 4.11224s18 -7.757s19))
EQUAL-OK: (-1 -7.34577s19)
(MULTIPLE-VALUE-LIST (FLOOR -1.7228s19 -6.0107s19))
EQUAL-OK: (0 -1.72278s19)
(MULTIPLE-VALUE-LIST (FLOOR 9.1191s19 -4.49645s19))
EQUAL-OK: (-3 -4.3702s19)
(MULTIPLE-VALUE-LIST (FLOOR 4.2755s19 8.9417s19))
EQUAL-OK: (0 4.2755s19)
(MULTIPLE-VALUE-LIST (FLOOR -4.3237s19 -1.9687s19))
EQUAL-OK: (2 -3.86314s18)
(MULTIPLE-VALUE-LIST (FLOOR 3.109s-24 0.00614166s0))
EQUAL-OK: (0 3.109s-24)
(MULTIPLE-VALUE-LIST (FLOOR -6.2027s-23 0.0328217s0))
EQUAL-OK: (-1 0.0328217s0)
(MULTIPLE-VALUE-LIST (FLOOR -6.017s-24 0.76966s0))
EQUAL-OK: (-1 0.76966s0)
(MULTIPLE-VALUE-LIST (FLOOR -7.628s-24 0.47249s0))
EQUAL-OK: (-1 0.47249s0)
(MULTIPLE-VALUE-LIST (FLOOR 3.323s-24 -0.86671s0))
EQUAL-OK: (-1 -0.86671s0)
(MULTIPLE-VALUE-LIST (FLOOR -5.302s-24 0.0245514s0))
EQUAL-OK: (-1 0.0245514s0)
(MULTIPLE-VALUE-LIST (FLOOR 5.342s-24 6.0717s9))
EQUAL-OK: (0 5.34194s-24)
(MULTIPLE-VALUE-LIST (FLOOR -2.664s-24 5.573s9))
EQUAL-OK: (-1 5.573s9)
(MULTIPLE-VALUE-LIST (FLOOR -2.83s-24 7.0363s9))
EQUAL-OK: (-1 7.0363s9)
(MULTIPLE-VALUE-LIST (FLOOR -3.176s-24 1.12686s9))
EQUAL-OK: (-1 1.12686s9)
(MULTIPLE-VALUE-LIST (FLOOR -2.2026s-22 -3.99255s9))
EQUAL-OK: (0 -2.2026s-22)
(MULTIPLE-VALUE-LIST (FLOOR 6.994s-24 5.81167s9))
EQUAL-OK: (0 6.994s-24)
(MULTIPLE-VALUE-LIST (FLOOR 6.054s-24 -8.915s-14))
EQUAL-OK: (-1 -8.915s-14)
(MULTIPLE-VALUE-LIST (FLOOR 2.875s-24 3.652s-14))
EQUAL-OK: (0 2.875s-24)
(MULTIPLE-VALUE-LIST (FLOOR -1.57853s-22 -4.501s-14))
EQUAL-OK: (0 -1.57853s-22)
(MULTIPLE-VALUE-LIST (FLOOR -1.388s-23 -1.0479s-13))
EQUAL-OK: (0 -1.388s-23)
(MULTIPLE-VALUE-LIST (FLOOR -8.879s-24 3.974s-14))
EQUAL-OK: (-1 3.974s-14)
(MULTIPLE-VALUE-LIST (FLOOR -1.14395s-21 -4.527s-14))
EQUAL-OK: (0 -1.14395s-21)
(MULTIPLE-VALUE-LIST (FLOOR 6.149s-24 9.418s-24))
EQUAL-OK: (0 6.149s-24)
(MULTIPLE-VALUE-LIST (FLOOR 7.661s-24 -2.956s-24))
EQUAL-OK: (-3 -1.20701s-24)
(MULTIPLE-VALUE-LIST (FLOOR 3.254s-24 1.2764s-22))
EQUAL-OK: (0 3.254s-24)
(MULTIPLE-VALUE-LIST (FLOOR -5.4542s-22 5.574s-24))
EQUAL-OK: (-98 8.2738s-25)
(MULTIPLE-VALUE-LIST (FLOOR -1.4523s-23 3.091s-24))
EQUAL-OK: (-5 9.3198s-25)
(MULTIPLE-VALUE-LIST (FLOOR -5.913s-24 8.419s-24))
EQUAL-OK: (-1 2.506s-24)
(/ 0.4319s0 0.279747s0)
EQL-OK: 1.5439s0
(/ 0.58111s0 0.474937s0)
EQL-OK: 1.22354s0
(/ 0.95817s0 -0.209396s0)
EQL-OK: -4.57587s0
(/ -0.30497s0 -0.182861s0)
EQL-OK: 1.66777s0
(/ -0.69316s0 -0.32908s0)
EQL-OK: 2.10635s0
(/ -0.87152s0 0.518326s0)
EQL-OK: -1.68141s0
(/ -0.81208s0 3.27736s9)
EQL-OK: -2.47784s-10
(/ 0.88465s0 2.15492s9)
EQL-OK: 4.10527s-10
(/ -0.96446s0 8.0971s9)
EQL-OK: -1.19112s-10
(/ -0.65258s0 -3.98033s9)
EQL-OK: 1.6395s-10
(/ 0.663826s0 -7.88726s8)
EQL-OK: -8.41645s-10
(/ -0.31185s0 4.1015s9)
EQL-OK: -7.6033s-11
(/ -0.89607s0 -3.887s-14)
EQL-OK: 2.3053s13
(/ -0.670135s0 -5.027s-14)
EQL-OK: 1.33306s13
(/ 0.94663s0 -6.153s-14)
EQL-OK: -1.5385s13
(/ -0.76772s0 4.033s-14)
EQL-OK: -1.90358s13
(/ -0.446358s0 -1.9017s-13)
EQL-OK: 2.34713s12
(/ -0.157814s0 -2.0401s-13)
EQL-OK: 7.73555s11
(/ 0.636185s0 -3.78516s19)
EQL-OK: -1.68073s-20
(/ -0.90556s0 7.7192s19)
EQL-OK: -1.17314s-20
(/ 0.85053s0 8.3134s19)
EQL-OK: 1.02309s-20
(/ -0.3058s0 3.00674s19)
EQL-OK: -1.01705s-20
(/ 0.219429s0 -8.1184s19)
EQL-OK: -2.70286s-21
(/ 0.319603s0 -2.0739s19)
EQL-OK: -1.54106s-20
(/ 0.58943s0 -5.28s-24)
EQL-OK: -1.11635s23
(/ 0.72955s0 7.852s-24)
EQL-OK: 9.2914s22
(/ -0.66327s0 -3.124s-24)
EQL-OK: 2.12315s23
(/ -0.0137558s0 -7.918s-24)
EQL-OK: 1.73729s21
(/ 0.35823s0 5.467s-24)
EQL-OK: 6.55263s22
(/ 0.93861s0 9.968s-24)
EQL-OK: 9.4163s22
(/ 3.83346s9 0.99782s0)
EQL-OK: 3.84185s9
(/ 8.7033s9 -0.81822s0)
EQL-OK: -1.06369s10
(/ 3.52326s8 -0.79994s0)
EQL-OK: -4.4044s8
(/ 8.0525s9 -0.91803s0)
EQL-OK: -8.7715s9
(/ -2.12784s9 -0.761246s0)
EQL-OK: 2.7952s9
(/ 1.18805s9 -0.903534s0)
EQL-OK: -1.3149s9
(/ -6.50556s9 -5.4642s9)
EQL-OK: 1.19058s0
(/ 3.3333s8 1.8341s8)
EQL-OK: 1.81738s0
(/ 3.70934s9 9.1957s8)
EQL-OK: 4.03375s0
(/ -8.0459s9 4.5511s9)
EQL-OK: -1.76791s0
(/ 3.54982s9 4.6631s8)
EQL-OK: 7.6126s0
(/ -6.27016s9 -3.42858s9)
EQL-OK: 1.8288s0
(/ -4.3213s9 7.223s-15)
EQL-OK: -5.98274s23
(/ -2.57753s9 -2.533s-15)
EQL-OK: 1.01759s24
(/ 3.8858s9 -4.505s-14)
EQL-OK: -8.6256s22
(/ 3.5946s9 -5.067s-14)
EQL-OK: -7.0941s22
(/ 2.94434s9 8.333s-14)
EQL-OK: 3.53333s22
(/ 5.6178s9 -8.241s-14)
EQL-OK: -6.81694s22
(/ 4.9591s8 3.9972s19)
EQL-OK: 1.24064s-11
(/ 2.4166s9 -9.2141s19)
EQL-OK: -2.62272s-11
(/ -1.484s9 2.0281s19)
EQL-OK: -7.3172s-11
(/ 2.2339s8 1.96374s19)
EQL-OK: 1.13758s-11
(/ -6.6306s9 -2.414s19)
EQL-OK: 2.7467s-10
(/ 9.9114s9 9.6187s19)
EQL-OK: 1.03043s-10
(/ 4.4579s9 5.343s-24)
EQL-OK: 8.3434s32
(/ -6.35994s9 -6.301s-24)
EQL-OK: 1.00936s33
(/ 5.49677s9 -1.9306s-25)
EQL-OK: -2.84717s34
(/ -5.007s9 3.692s-24)
EQL-OK: -1.35617s33
(/ 8.6837s9 -1.6358s-23)
EQL-OK: -5.3085s32
(/ 5.5898s9 -5.435s-24)
EQL-OK: -1.02849s33
(/ -5.042s-14 0.79081s0)
EQL-OK: -6.3758s-14
(/ -6.231s-14 0.96946s0)
EQL-OK: -6.4273s-14
(/ 6.016s-14 0.418983s0)
EQL-OK: 1.43587s-13
(/ -1.1682s-13 0.70944s0)
EQL-OK: -1.64663s-13
(/ -1.7485s-13 0.83207s0)
EQL-OK: -2.1014s-13
(/ 7.831s-15 -0.083374s0)
EQL-OK: -9.3926s-14
(/ 3.947s-14 9.2342s9)
EQL-OK: 4.2744s-24
(/ -1.1537s-13 -6.44075s9)
EQL-OK: 1.79124s-23
(/ 6.751s-14 5.8395s8)
EQL-OK: 1.1561s-22
(/ -5.026s-14 7.9677s9)
EQL-OK: -6.308s-24
(/ -1.0105s-13 -1.71082s9)
EQL-OK: 5.9066s-23
(/ -4.996s-14 9.426s9)
EQL-OK: -5.30024s-24
(/ -6.837s-14 -3.573s-14)
EQL-OK: 1.91351s0
(/ -7.736s-14 -4.898s-14)
EQL-OK: 1.57942s0
(/ 3.777s-14 8.025s-14)
EQL-OK: 0.470657s0
(/ -6.239s-14 8.518s-15)
EQL-OK: -7.32446s0
(/ -7.548s-15 -4.573s-14)
EQL-OK: 0.165056s0
(/ 1.6293s-14 4.712s-14)
EQL-OK: 0.345776s0
(/ -4.47s-14 2.73658s19)
EQL-OK: -1.63342s-33
(/ 1.0583s-13 2.52534s19)
EQL-OK: 4.19073s-33
(/ 4.351s-15 2.70326s19)
EQL-OK: 1.60955s-34
(/ 3.699s-14 -6.00707s19)
EQL-OK: -6.1577s-34
(/ 6.358s-14 5.18274s19)
EQL-OK: 1.22677s-33
(/ -2.971s-14 6.153s19)
EQL-OK: -4.8286s-34
(/ -4.968s-14 7.699s-24)
EQL-OK: -6.4528s9
(/ -3.654s-14 8.434s-24)
EQL-OK: -4.3325s9
(/ -9.276s-14 -7.079s-24)
EQL-OK: 1.31035s10
(/ -4.556s-14 1.39s-23)
EQL-OK: -3.27772s9
(/ 3.832s-14 1.55715s-22)
EQL-OK: 2.4609s8
(/ 1.4186s-13 1.64482s-21)
EQL-OK: 8.6246s7
(/ -7.0974s19 -0.705536s0)
EQL-OK: 1.00596s20
(/ -7.687s19 -0.241531s0)
EQL-OK: 3.1826s20
(/ 3.37013s19 -0.425987s0)
EQL-OK: -7.9114s19
(/ 6.56473s19 -0.60696s0)
EQL-OK: -1.08158s20
(/ 4.1598s19 0.60135s0)
EQL-OK: 6.9175s19
(/ 8.8312s19 0.93547s0)
EQL-OK: 9.4404s19
(/ 2.81357s19 -2.62832s9)
EQL-OK: -1.07048s10
(/ 5.9243s19 -4.5189s8)
EQL-OK: -1.311s11
(/ -8.3887s19 9.5761s9)
EQL-OK: -8.7601s9
(/ 7.7606s19 -8.5369s9)
EQL-OK: -9.0906s9
(/ -7.9868s19 5.0173s9)
EQL-OK: -1.59186s10
(/ 7.4128s19 -6.7781s9)
EQL-OK: -1.09364s10
(/ 1.27472s19 1.1699s-13)
EQL-OK: 1.0896s32
(/ 2.97578s19 4.448s-14)
EQL-OK: 6.6901s32
(/ 7.19416s19 1.3834s-13)
EQL-OK: 5.20034s32
(/ 6.61843s19 -4.268s-14)
EQL-OK: -1.55071s33
(/ 2.8579s19 4.364s-14)
EQL-OK: 6.5488s32
(/ 8.2451s18 -6.532s-14)
EQL-OK: -1.26227s32
(/ 4.63364s19 9.4305s19)
EQL-OK: 0.491344s0
(/ -1.81999s19 1.05424s19)
EQL-OK: -1.72636s0
(/ -1.41579s19 -4.03517s19)
EQL-OK: 0.350864s0
(/ -1.88523s18 -3.3165s18)
EQL-OK: 0.568436s0
(/ 8.4152s17 -7.3293s19)
EQL-OK: -0.0114815s0
(/ -8.674s19 -3.63595s19)
EQL-OK: 2.38562s0
(/ -1.64643s-22 0.78035s0)
EQL-OK: -2.10986s-22
(/ -7.455s-24 -0.63174s0)
EQL-OK: 1.18009s-23
(/ -3.259s-24 -0.89363s0)
EQL-OK: 3.64694s-24
(/ 1.5803s-23 -0.11338s0)
EQL-OK: -1.39382s-22
(/ -3.534s-24 0.407562s0)
EQL-OK: -8.6711s-24
(/ -7.221s-24 0.90274s0)
EQL-OK: -7.999s-24
(/ 1.0479s-23 5.66256s8)
EQL-OK: 1.85059s-32
(/ 1.62856s-21 -1.9551s9)
EQL-OK: -8.3298s-31
(/ -8.102s-24 9.7896s9)
EQL-OK: -8.2761s-34
(/ 9.693s-24 -8.777s9)
EQL-OK: -1.10437s-33
(/ 8.643s-24 -1.25557s9)
EQL-OK: -6.8837s-33
(/ 3.224s-24 9.8161s9)
EQL-OK: 3.2844s-34
(/ 1.06582s-21 -1.0408s-13)
EQL-OK: -1.02405s-8
(/ 1.6738s-23 9.851s-14)
EQL-OK: 1.69914s-10
(/ -1.1514s-23 -6.509s-14)
EQL-OK: 1.76893s-10
(/ 9.171s-24 9.292s-14)
EQL-OK: 9.8698s-11
(/ 1.8589s-23 -4.213s-14)
EQL-OK: -4.4123s-10
(/ 1.2837s-23 1.1034s-13)
EQL-OK: 1.16341s-10
(/ 3.671s-24 1.0091s-23)
EQL-OK: 0.363792s0
(/ -3.373s-24 -1.7017s-23)
EQL-OK: 0.198214s0
(/ -2.0157s-23 1.0021s-23)
EQL-OK: -2.01147s0
(/ 8.041s-24 -1.3974s-23)
EQL-OK: -0.575424s0
(/ -5.391s-24 1.1762s-23)
EQL-OK: -0.458344s0
(/ 1.7735s-23 -3.313s-24)
EQL-OK: -5.3531s0
(+ 0.79351956 0.07393837)
EQL-OK: 0.8674579
(+ -0.52145976 -0.14409256)
EQL-OK: -0.6655523
(+ -0.094845235 -0.091273725)
EQL-OK: -0.18611896
(+ -0.11106694 -0.90595967)
EQL-OK: -1.0170267
(+ 0.46902913 0.6453068)
EQL-OK: 1.114336
(+ -0.30989015 0.6634996)
EQL-OK: 0.35360944
(+ -0.58887166 -3.1150198E9)
EQL-OK: -3.1150198E9
(+ 0.08032262 -8.451643E9)
EQL-OK: -8.451643E9
(+ -0.734433 7.601292E9)
EQL-OK: 7.601292E9
(+ 0.77958024 -4.2334996E9)
EQL-OK: -4.2334996E9
(+ -0.5492505 4.4427484E9)
EQL-OK: 4.4427484E9
(+ -0.45681345 4.7386803E9)
EQL-OK: 4.7386803E9
(+ -0.5951412 7.866326E-11)
EQL-OK: -0.5951412
(+ 0.8511461 8.396644E-11)
EQL-OK: 0.8511461
(+ -0.94777477 -7.635105E-11)
EQL-OK: -0.94777477
(+ -0.20783025 -1.7222382E-11)
EQL-OK: -0.20783025
(+ 0.82520634 -5.3449255E-11)
EQL-OK: 0.82520634
(+ 0.7797032 3.7409843E-11)
EQL-OK: 0.7797032
(+ 0.9915549 5.16192E19)
EQL-OK: 5.16192E19
(+ -0.6311349 2.1599532E19)
EQL-OK: 2.1599532E19
(+ 0.42801672 4.8533796E18)
EQL-OK: 4.8533796E18
(+ -0.11165339 6.518633E19)
EQL-OK: 6.518633E19
(+ -0.5133993 -5.5200484E19)
EQL-OK: -5.5200484E19
(+ 0.11643493 -1.0541451E19)
EQL-OK: -1.0541451E19
(+ -0.7063649 8.243067E-21)
EQL-OK: -0.7063649
(+ 8.4728E-4 -7.5151976E-21)
EQL-OK: 8.4728E-4
(+ -0.47157037 -8.748518E-21)
EQL-OK: -0.47157037
(+ 0.7662331 -5.6591384E-21)
EQL-OK: 0.7662331
(+ -0.9418909 -4.455382E-21)
EQL-OK: -0.9418909
(+ -0.88412094 6.6664897E-21)
EQL-OK: -0.88412094
(+ 5.5891533E9 -0.11624104)
EQL-OK: 5.5891533E9
(+ -8.760519E9 0.22073412)
EQL-OK: -8.760519E9
(+ 6.8390047E9 -0.6434584)
EQL-OK: 6.8390047E9
(+ 5.1620844E9 -0.93939686)
EQL-OK: 5.1620844E9
(+ 9.21372E9 -0.93054956)
EQL-OK: 9.21372E9
(+ -2.7403366E9 -0.9354063)
EQL-OK: -2.7403366E9
(+ 6.4755876E9 7.780013E9)
EQL-OK: 1.4255601E10
(+ 3.6402857E9 -4.6589404E9)
EQL-OK: -1.0186547E9
(+ 9.858497E9 -3.1216233E9)
EQL-OK: 6.7368735E9
(+ -5.199144E9 -8.3410964E9)
EQL-OK: -1.354024E10
(+ -2.2145843E9 7.4088115E9)
EQL-OK: 5.194227E9
(+ 3.6034734E9 -4.7355105E9)
EQL-OK: -1.1320371E9
(+ -3.974853E9 8.344858E-11)
EQL-OK: -3.974853E9
(+ 9.633741E9 9.879035E-11)
EQL-OK: 9.633741E9
(+ -5.84563E9 -2.8054357E-11)
EQL-OK: -5.84563E9
(+ 1.6814709E8 -6.702281E-11)
EQL-OK: 1.6814709E8
(+ 6.627381E8 8.1083654E-11)
EQL-OK: 6.627381E8
(+ 6.617609E9 -7.74835E-11)
EQL-OK: 6.617609E9
(+ -4.325255E9 7.48992E19)
EQL-OK: 7.48992E19
(+ 8.963769E9 5.6527995E19)
EQL-OK: 5.6527995E19
(+ 3.2307428E9 -3.772047E19)
EQL-OK: -3.772047E19
(+ -1.5719092E9 9.119215E19)
EQL-OK: 9.119215E19
(+ -3.1338138E9 2.7048826E19)
EQL-OK: 2.7048826E19
(+ -4.4506363E9 9.624759E19)
EQL-OK: 9.624759E19
(+ 1.8499094E9 4.968932E-21)
EQL-OK: 1.8499094E9
(+ 1.1302281E9 1.590079E-21)
EQL-OK: 1.1302281E9
(+ 5.7261727E9 -3.3212954E-21)
EQL-OK: 5.7261727E9
(+ 1.8314988E9 -6.247946E-21)
EQL-OK: 1.8314988E9
(+ -7.301286E9 -8.870309E-21)
EQL-OK: -7.301286E9
(+ 8.0970737E9 -6.944993E-21)
EQL-OK: 8.0970737E9
(+ 9.076142E-11 0.79629874)
EQL-OK: 0.79629874
(+ -2.5569331E-11 -0.11109424)
EQL-OK: -0.11109424
(+ 5.817238E-11 0.8669617)
EQL-OK: 0.8669617
(+ 5.0001194E-11 0.1629681)
EQL-OK: 0.1629681
(+ -5.314657E-11 0.33499128)
EQL-OK: 0.33499128
(+ 3.4244614E-11 0.7846571)
EQL-OK: 0.7846571
(+ 5.016508E-11 1.2850774E9)
EQL-OK: 1.2850774E9
(+ -6.236206E-11 -3.9463657E9)
EQL-OK: -3.9463657E9
(+ -9.461717E-11 -2.86016E9)
EQL-OK: -2.86016E9
(+ 9.271425E-11 9.936099E9)
EQL-OK: 9.936099E9
(+ -9.330213E-12 4.2810826E9)
EQL-OK: 4.2810826E9
(+ 8.8110796E-11 -7.967343E9)
EQL-OK: -7.967343E9
(+ -3.252064E-11 9.310712E-11)
EQL-OK: 6.058648E-11
(+ 9.2616026E-11 -4.2321837E-11)
EQL-OK: 5.029419E-11
(+ -6.138445E-11 2.0083374E-11)
EQL-OK: -4.130108E-11
(+ -1.672895E-11 -4.1673078E-11)
EQL-OK: -5.8402026E-11
(+ -5.054619E-11 -1.9569606E-11)
EQL-OK: -7.0115795E-11
(+ -6.765585E-11 6.200571E-11)
EQL-OK: -5.65014E-12
(+ -8.958499E-11 9.627367E18)
EQL-OK: 9.627367E18
(+ -3.639458E-11 -6.774422E19)
EQL-OK: -6.774422E19
(+ 5.885664E-11 7.710968E19)
EQL-OK: 7.710968E19
(+ -2.8348934E-11 -6.8805507E19)
EQL-OK: -6.8805507E19
(+ 3.783013E-11 -4.363011E19)
EQL-OK: -4.363011E19
(+ 9.9192224E-11 7.840148E19)
EQL-OK: 7.840148E19
(+ 1.5157771E-11 -6.578477E-21)
EQL-OK: 1.5157771E-11
(+ 3.269849E-11 -1.5641468E-21)
EQL-OK: 3.269849E-11
(+ -2.4697334E-11 -5.9471063E-21)
EQL-OK: -2.4697334E-11
(+ -7.226034E-11 -8.027814E-21)
EQL-OK: -7.226034E-11
(+ 6.705153E-12 1.3146739E-21)
EQL-OK: 6.705153E-12
(+ -9.281199E-11 1.940757E-22)
EQL-OK: -9.281199E-11
(+ 6.841885E19 0.29873258)
EQL-OK: 6.841885E19
(+ -7.487633E19 -0.41199452)
EQL-OK: -7.487633E19
(+ 9.324847E19 -0.12986994)
EQL-OK: 9.324847E19
(+ 1.7454827E19 -0.9480438)
EQL-OK: 1.7454827E19
(+ -2.2794772E19 -0.85242146)
EQL-OK: -2.2794772E19
(+ -1.4789046E18 -0.3244334)
EQL-OK: -1.4789046E18
(+ -1.0913384E19 6.2691034E8)
EQL-OK: -1.0913384E19
(+ 9.054158E19 6.7361736E9)
EQL-OK: 9.054158E19
(+ -2.404365E19 2.819194E9)
EQL-OK: -2.404365E19
(+ 3.0628145E19 3.8188636E9)
EQL-OK: 3.0628145E19
(+ -3.7020847E19 -4.248917E8)
EQL-OK: -3.7020847E19
(+ 8.556466E19 -5.431256E9)
EQL-OK: 8.556466E19
(+ 4.8590555E19 -4.0259546E-11)
EQL-OK: 4.8590555E19
(+ -1.990289E19 -3.2150872E-11)
EQL-OK: -1.990289E19
(+ -1.5843934E19 5.37822E-11)
EQL-OK: -1.5843934E19
(+ 1.596058E19 2.465645E-11)
EQL-OK: 1.596058E19
(+ 8.179266E19 -8.080585E-11)
EQL-OK: 8.179266E19
(+ 8.673572E19 -2.1405459E-11)
EQL-OK: 8.673572E19
(+ -4.5302206E19 4.4819714E19)
EQL-OK: -4.824921E17
(+ 2.1413618E19 -7.160984E19)
EQL-OK: -5.0196224E19
(+ 9.760235E19 -7.810464E19)
EQL-OK: 1.949771E19
(+ -7.518544E19 -5.7398474E19)
EQL-OK: -1.32583915E20
(+ -2.459352E19 6.0089863E19)
EQL-OK: 3.5496343E19
(+ -9.009707E19 1.9710512E19)
EQL-OK: -7.0386556E19
(+ 4.9167807E19 -1.261897E-21)
EQL-OK: 4.9167807E19
(+ -8.647001E18 -1.4144885E-21)
EQL-OK: -8.647001E18
(+ -6.2763383E19 6.69688E-21)
EQL-OK: -6.2763383E19
(+ 1.6851938E19 -4.9109547E-21)
EQL-OK: 1.6851938E19
(+ -7.0371058E19 -9.246501E-21)
EQL-OK: -7.0371058E19
(+ -2.8498996E19 3.3614294E-21)
EQL-OK: -2.8498996E19
(+ -4.8211753E-21 0.5153807)
EQL-OK: 0.5153807
(+ -9.730312E-21 0.3705088)
EQL-OK: 0.3705088
(+ -8.83036E-21 0.21063423)
EQL-OK: 0.21063423
(+ 1.8688595E-21 -0.38304192)
EQL-OK: -0.38304192
(+ -7.9137435E-21 -0.9482965)
EQL-OK: -0.9482965
(+ -5.7913193E-21 -0.16538233)
EQL-OK: -0.16538233
(+ -4.667948E-21 5.69782E9)
EQL-OK: 5.69782E9
(+ -1.6254025E-21 1.100067E9)
EQL-OK: 1.100067E9
(+ 5.4919865E-21 9.125866E9)
EQL-OK: 9.125866E9
(+ 2.1973532E-21 -5.218964E9)
EQL-OK: -5.218964E9
(+ -4.018586E-21 -6.5943096E9)
EQL-OK: -6.5943096E9
(+ -7.7845274E-22 4.172669E9)
EQL-OK: 4.172669E9
(+ -2.843846E-21 9.243441E-12)
EQL-OK: 9.243441E-12
(+ 1.1533075E-21 3.327943E-11)
EQL-OK: 3.327943E-11
(+ 5.977113E-21 6.507544E-11)
EQL-OK: 6.507544E-11
(+ 1.1817801E-21 -4.1877824E-11)
EQL-OK: -4.1877824E-11
(+ 1.932947E-21 9.4013144E-11)
EQL-OK: 9.4013144E-11
(+ 8.526454E-21 8.396772E-11)
EQL-OK: 8.396772E-11
(+ -4.8870485E-21 5.9277504E19)
EQL-OK: 5.9277504E19
(+ -4.7174987E-21 2.5545484E19)
EQL-OK: 2.5545484E19
(+ -8.818029E-21 1.2602901E19)
EQL-OK: 1.2602901E19
(+ -1.2268113E-21 -9.071741E19)
EQL-OK: -9.071741E19
(+ -7.0568975E-21 -6.9825405E19)
EQL-OK: -6.9825405E19
(+ 8.723312E-21 -5.802767E19)
EQL-OK: -5.802767E19
(+ 7.1661314E-21 4.10364E-21)
EQL-OK: 1.1269772E-20
(+ 8.181265E-21 -4.6898657E-21)
EQL-OK: 3.4913997E-21
(+ -8.570217E-21 -5.5145446E-21)
EQL-OK: -1.4084761E-20
(+ 1.3507604E-23 -7.152723E-21)
EQL-OK: -7.139215E-21
(+ -7.859527E-21 -9.369602E-21)
EQL-OK: -1.7229128E-20
(+ -4.9014434E-21 1.4580911E-21)
EQL-OK: -3.443352E-21
(- -0.41894162 0.23777992)
EQL-OK: -0.65672153
(- 0.74937063 0.4803756)
EQL-OK: 0.26899505
(- 0.46964037 -0.94880456)
EQL-OK: 1.4184449
(- 0.16453332 0.035123527)
EQL-OK: 0.12940979
(- 0.7353321 -0.3952883)
EQL-OK: 1.1306204
(- -0.33693552 -0.6941588)
EQL-OK: 0.35722327
(- -0.61853 -9.25498E9)
EQL-OK: 9.25498E9
(- 0.5172653 -6.728693E9)
EQL-OK: 6.728693E9
(- 0.1268478 -1.8808037E9)
EQL-OK: 1.8808037E9
(- 0.29479754 -3.4643973E9)
EQL-OK: 3.4643973E9
(- 0.34332883 1.4258218E9)
EQL-OK: -1.4258218E9
(- -0.4093976 -1.6698813E9)
EQL-OK: 1.6698813E9
(- 0.10942185 -2.015636E-11)
EQL-OK: 0.10942185
(- 0.30351585 4.4276416E-11)
EQL-OK: 0.30351585
(- -0.41279083 6.5274E-11)
EQL-OK: -0.41279083
(- 0.7813598 -5.028443E-11)
EQL-OK: 0.7813598
(- -0.72214615 2.5959075E-11)
EQL-OK: -0.72214615
(- -0.8924311 -5.2076333E-11)
EQL-OK: -0.8924311
(- -0.26128495 6.8887236E19)
EQL-OK: -6.8887236E19
(- 0.906616 -2.0519019E18)
EQL-OK: 2.0519019E18
(- 0.96452767 -1.6347343E19)
EQL-OK: 1.6347343E19
(- -0.99801517 8.383864E19)
EQL-OK: -8.383864E19
(- -0.60573876 -4.890489E19)
EQL-OK: 4.890489E19
(- -0.004701972 6.3981E18)
EQL-OK: -6.3981E18
(- 0.34311903 3.52871E-21)
EQL-OK: 0.34311903
(- -0.38159567 -2.3400748E-21)
EQL-OK: -0.38159567
(- -0.6719565 -5.4333447E-21)
EQL-OK: -0.6719565
(- -0.21363729 8.021308E-21)
EQL-OK: -0.21363729
(- 0.5275244 -4.88554E-21)
EQL-OK: 0.5275244
(- 0.9064559 -6.5840867E-21)
EQL-OK: 0.9064559
(- -3.0312538E8 0.26249015)
EQL-OK: -3.0312538E8
(- -9.217122E9 0.22172129)
EQL-OK: -9.217122E9
(- -1.157806E9 -0.95704305)
EQL-OK: -1.157806E9
(- 6.743087E9 -0.37863714)
EQL-OK: 6.743087E9
(- -4.0819942E8 -0.068549395)
EQL-OK: -4.0819942E8
(- 4.586502E9 0.29215187)
EQL-OK: 4.586502E9
(- 5.091125E9 -2.971223E9)
EQL-OK: 8.0623483E9
(- -2.1147072E8 -8.537374E9)
EQL-OK: 8.3259034E9
(- -9.075735E9 -9.072693E9)
EQL-OK: -3041280.0
(- 1.4614451E9 3.0213921E9)
EQL-OK: -1.559947E9
(- 8.960645E9 5.4822825E9)
EQL-OK: 3.4783626E9
(- -3.7246787E9 -2.823592E9)
EQL-OK: -9.010867E8
(- -3.4256804E9 -1.8245674E-11)
EQL-OK: -3.4256804E9
(- 7.0777057E9 3.6826153E-11)
EQL-OK: 7.0777057E9
(- 3.4600579E9 -5.207135E-11)
EQL-OK: 3.4600579E9
(- 9.57872E9 8.222393E-11)
EQL-OK: 9.57872E9
(- 8.388926E9 -1.1216945E-11)
EQL-OK: 8.388926E9
(- 3.8273395E8 1.153788E-11)
EQL-OK: 3.8273395E8
(- -1.2011469E8 -9.879852E19)
EQL-OK: 9.879852E19
(- 3.850388E9 4.8155957E19)
EQL-OK: -4.8155957E19
(- 5.5329756E9 -5.067925E19)
EQL-OK: 5.067925E19
(- 3.3222902E9 5.2892763E19)
EQL-OK: -5.2892763E19
(- 4.431185E9 -8.005187E19)
EQL-OK: 8.005187E19
(- -7.307553E8 -6.8217897E19)
EQL-OK: 6.8217897E19
(- 7.9813893E9 9.68989E-21)
EQL-OK: 7.9813893E9
(- -5.7208223E9 9.790913E-21)
EQL-OK: -5.7208223E9
(- -5.9564112E7 9.217466E-21)
EQL-OK: -5.9564112E7
(- 5.4524237E9 4.947411E-21)
EQL-OK: 5.4524237E9
(- 1.4269632E9 -5.1552662E-21)
EQL-OK: 1.4269632E9
(- 3.7555832E9 -4.168443E-21)
EQL-OK: 3.7555832E9
(- -4.1575327E-11 -0.38582206)
EQL-OK: 0.38582206
(- -5.810516E-11 -0.5456566)
EQL-OK: 0.5456566
(- -1.2386638E-11 -0.6209788)
EQL-OK: 0.6209788
(- 2.0245033E-11 -0.7418727)
EQL-OK: 0.7418727
(- 3.7671637E-11 0.1772576)
EQL-OK: -0.1772576
(- -2.2774244E-11 -0.5959606)
EQL-OK: 0.5959606
(- -5.6623112E-11 6.8330056E9)
EQL-OK: -6.8330056E9
(- -9.2078116E-11 -3.4236897E9)
EQL-OK: 3.4236897E9
(- -3.317883E-11 -3.2438755E8)
EQL-OK: 3.2438755E8
(- 6.711307E-11 -7.9204526E9)
EQL-OK: 7.9204526E9
(- -5.1150143E-11 9.1128E9)
EQL-OK: -9.1128E9
(- -7.3234044E-11 -8.067016E9)
EQL-OK: 8.067016E9
(- -3.217777E-11 -1.6301262E-11)
EQL-OK: -1.5876508E-11
(- 9.6583325E-11 5.882668E-11)
EQL-OK: 3.7756645E-11
(- -7.573351E-11 6.3386435E-11)
EQL-OK: -1.3911994E-10
(- -4.5759726E-11 8.069604E-11)
EQL-OK: -1.2645576E-10
(- -9.538651E-11 -9.01152E-11)
EQL-OK: -5.271311E-12
(- 6.2486766E-11 -3.414284E-11)
EQL-OK: 9.662961E-11
(- 5.530477E-13 -3.1361222E18)
EQL-OK: 3.1361222E18
(- 1.7998643E-11 1.5437615E19)
EQL-OK: -1.5437615E19
(- -4.7948378E-11 2.6669319E19)
EQL-OK: -2.6669319E19
(- -6.8626884E-12 -5.7713735E19)
EQL-OK: 5.7713735E19
(- 6.195949E-11 2.8851469E19)
EQL-OK: -2.8851469E19
(- 2.4957127E-11 -2.661574E18)
EQL-OK: 2.661574E18
(- 9.8157565E-11 -4.561507E-21)
EQL-OK: 9.8157565E-11
(- -9.332288E-11 -9.280375E-21)
EQL-OK: -9.332288E-11
(- -9.916877E-11 -1.6945641E-21)
EQL-OK: -9.916877E-11
(- -6.460804E-11 -3.6695186E-21)
EQL-OK: -6.460804E-11
(- 6.712223E-11 -2.5360524E-21)
EQL-OK: 6.712223E-11
(- 2.3824066E-11 -7.439168E-21)
EQL-OK: 2.3824066E-11
(- -5.189389E19 0.01453203)
EQL-OK: -5.189389E19
(- 7.0132006E19 0.45530832)
EQL-OK: 7.0132006E19
(- 2.9365046E19 0.36346745)
EQL-OK: 2.9365046E19
(- -4.1377934E19 0.37368965)
EQL-OK: -4.1377934E19
(- -1.891423E19 0.159002)
EQL-OK: -1.891423E19
(- 1.8096083E19 -0.6511793)
EQL-OK: 1.8096083E19
(- 6.4361307E19 6.651168E9)
EQL-OK: 6.4361307E19
(- -1.8698508E19 1.1925399E9)
EQL-OK: -1.8698508E19
(- 7.75824E19 7.7361823E9)
EQL-OK: 7.75824E19
(- -7.2570015E19 3.0842496E9)
EQL-OK: -7.2570015E19
(- -1.9014525E19 -3.8941514E9)
EQL-OK: -1.9014525E19
(- 3.2787157E19 -8.612244E9)
EQL-OK: 3.2787157E19
(- 6.4268583E19 -1.2707472E-11)
EQL-OK: 6.4268583E19
(- -6.5179933E19 8.61941E-11)
EQL-OK: -6.5179933E19
(- -8.106952E19 2.1709537E-11)
EQL-OK: -8.106952E19
(- 2.5455064E19 3.5653924E-11)
EQL-OK: 2.5455064E19
(- 1.574235E19 -2.7033407E-11)
EQL-OK: 1.574235E19
(- -1.1099541E19 -8.620364E-12)
EQL-OK: -1.1099541E19
(- -6.346294E19 2.9902512E19)
EQL-OK: -9.336545E19
(- 4.9783164E19 -2.079425E19)
EQL-OK: 7.0577414E19
(- -7.149202E19 1.4282865E19)
EQL-OK: -8.577488E19
(- 6.0978866E19 5.256896E19)
EQL-OK: 8.409905E18
(- -9.961146E19 -1.9834548E19)
EQL-OK: -7.977691E19
(- 2.5196015E18 5.0534214E19)
EQL-OK: -4.8014613E19
(- -3.6981453E19 -1.005367E-21)
EQL-OK: -3.6981453E19
(- 8.881044E19 -9.717088E-22)
EQL-OK: 8.881044E19
(- 4.9637263E19 -7.544846E-21)
EQL-OK: 4.9637263E19
(- -4.2414725E19 1.3904184E-21)
EQL-OK: -4.2414725E19
(- 7.844454E18 -8.659333E-21)
EQL-OK: 7.844454E18
(- 1.5733016E19 8.638849E-21)
EQL-OK: 1.5733016E19
(- 1.7531192E-21 -0.8690463)
EQL-OK: 0.8690463
(- 9.449351E-21 0.7848489)
EQL-OK: -0.7848489
(- 5.5016538E-21 -0.8998171)
EQL-OK: 0.8998171
(- -6.977279E-21 -0.9815793)
EQL-OK: 0.9815793
(- -7.9253305E-21 -0.21357381)
EQL-OK: 0.21357381
(- 4.026555E-21 0.5610563)
EQL-OK: -0.5610563
(- -7.080433E-21 -1.9501078E9)
EQL-OK: 1.9501078E9
(- -8.152211E-21 8.164317E9)
EQL-OK: -8.164317E9
(- 2.177096E-21 -8.591886E9)
EQL-OK: 8.591886E9
(- 9.387247E-21 3.5730028E9)
EQL-OK: -3.5730028E9
(- -7.589234E-21 -4.9193774E9)
EQL-OK: 4.9193774E9
(- 1.5755653E-21 -2.3484498E9)
EQL-OK: 2.3484498E9
(- 9.3034425E-21 8.28104E-11)
EQL-OK: -8.28104E-11
(- -6.417297E-21 -8.352926E-11)
EQL-OK: 8.352926E-11
(- 8.728735E-21 9.160732E-11)
EQL-OK: -9.160732E-11
(- 3.8984202E-21 6.5116944E-12)
EQL-OK: -6.5116944E-12
(- 6.288995E-21 -5.6701328E-11)
EQL-OK: 5.6701328E-11
(- -2.7652023E-22 -1.01428276E-11)
EQL-OK: 1.01428276E-11
(- 4.7200214E-21 -3.726995E18)
EQL-OK: 3.726995E18
(- -2.2945808E-21 -7.3098524E19)
EQL-OK: 7.3098524E19
(- -9.493033E-21 3.4235436E19)
EQL-OK: -3.4235436E19
(- 3.7946773E-21 -5.126768E18)
EQL-OK: 5.126768E18
(- -1.2865209E-21 3.5096026E19)
EQL-OK: -3.5096026E19
(- -8.403449E-21 5.704743E18)
EQL-OK: -5.704743E18
(- 2.928304E-21 -5.574477E-21)
EQL-OK: 8.502781E-21
(- -9.46122E-21 -3.858943E-21)
EQL-OK: -5.602277E-21
(- 7.296878E-22 1.8123137E-21)
EQL-OK: -1.0826259E-21
(- 5.866651E-21 2.4605584E-21)
EQL-OK: 3.4060923E-21
(- -7.633577E-21 9.915102E-21)
EQL-OK: -1.7548679E-20
(- -8.7881085E-24 3.001468E-21)
EQL-OK: -3.0102563E-21
(* 0.3098436 0.0057770014)
EQL-OK: 0.001789967
(* -0.14583993 -0.028087378)
EQL-OK: 0.004096261
(* 0.21399558 0.96054405)
EQL-OK: 0.20555218
(* 0.7590452 0.8427266)
EQL-OK: 0.6396676
(* -0.34523207 0.20272356)
EQL-OK: -0.06998668
(* -0.98096234 0.98158866)
EQL-OK: -0.96290153
(* 0.40309322 4.0009994E9)
EQL-OK: 1.6127757E9
(* 0.15507132 9.481803E9)
EQL-OK: 1.4703557E9
(* 0.5218476 -2.1933102E9)
EQL-OK: -1.1445737E9
(* 0.17258328 2.6295781E8)
EQL-OK: 4.538212E7
(* 0.25962013 8.699164E9)
EQL-OK: 2.258478E9
(* 0.47902477 -1.4075732E9)
EQL-OK: -6.7426246E8
(* 0.9642294 -1.6256952E-11)
EQL-OK: -1.5675431E-11
(* 0.6098744 -8.802921E-12)
EQL-OK: -5.3686764E-12
(* -0.25792134 4.804327E-11)
EQL-OK: -1.2391385E-11
(* -0.8724403 -9.101418E-11)
EQL-OK: 7.940444E-11
(* -0.13318628 8.1157005E-11)
EQL-OK: -1.08089995E-11
(* -0.54116476 -9.353639E-11)
EQL-OK: 5.0618596E-11
(* 0.9018487 7.411783E19)
EQL-OK: 6.6843068E19
(* -0.6835444 -7.590606E19)
EQL-OK: 5.188516E19
(* -0.9896146 5.195105E18)
EQL-OK: -5.141152E18
(* -0.4838531 1.88174E19)
EQL-OK: -9.1048573E18
(* -0.31826657 -3.3103586E19)
EQL-OK: 1.0535765E19
(* 0.6818549 -9.227651E19)
EQL-OK: -6.2919192E19
(* 0.7676919 7.320194E-21)
EQL-OK: 5.6196534E-21
(* 0.49369502 4.9805288E-21)
EQL-OK: 2.4588622E-21
(* 0.9599328 7.903804E-21)
EQL-OK: 7.58712E-21
(* 0.13215566 7.603894E-21)
EQL-OK: 1.0048976E-21
(* -0.35744518 -9.408464E-21)
EQL-OK: 3.36301E-21
(* -0.79346496 9.006081E-21)
EQL-OK: -7.146009E-21
(* 4.1775434E9 -0.13509268)
EQL-OK: -5.643555E8
(* 7.27846E9 -0.8181822)
EQL-OK: -5.9551063E9
(* 2.9669427E9 0.7082195)
EQL-OK: 2.1012467E9
(* 7.609933E9 -0.33963126)
EQL-OK: -2.5845711E9
(* 3.4241843E9 0.3924479)
EQL-OK: 1.3438139E9
(* -3.8366538E9 0.56461394)
EQL-OK: -2.1662282E9
(* 3.7237007E9 1.2646783E9)
EQL-OK: 4.7092836E18
(* -2.7657871E9 -3.6314278E9)
EQL-OK: 1.0043756E19
(* -4.753982E9 -5.8879616E8)
EQL-OK: 2.7991263E18
(* 8.877933E9 7.973602E9)
EQL-OK: 7.07891E19
(* -8.312081E9 -8.941637E9)
EQL-OK: 7.432361E19
(* -4.297749E9 9.913122E9)
EQL-OK: -4.260411E19
(* -7.893335E9 -4.7961794E-11)
EQL-OK: 0.3785785
(* -4.1332334E9 7.221582E-11)
EQL-OK: -0.29848483
(* 1.9981688E9 2.8169871E-11)
EQL-OK: 0.056288157
(* -5.8555295E9 -7.562528E-11)
EQL-OK: 0.44282603
(* 7.377872E9 -1.5020383E-11)
EQL-OK: -0.11081846
(* 8.891134E9 -7.035395E-11)
EQL-OK: -0.6255264
(* -7.1412096E9 5.1873507E19)
EQL-OK: -3.7043958E29
(* 8.0983844E9 9.136914E19)
EQL-OK: 7.399425E29
(* -6.1437537E9 -9.398771E19)
EQL-OK: 5.7743737E29
(* -2.3000973E9 6.8743785E19)
EQL-OK: -1.5811739E29
(* 3.5817969E9 -6.0353143E19)
EQL-OK: -2.161727E29
(* 6.544234E9 8.265139E19)
EQL-OK: 5.4089003E29
(* 2.1273733E8 -2.3684083E-21)
EQL-OK: -5.0384886E-13
(* -4.2644698E9 2.956708E-21)
EQL-OK: -1.2608792E-11
(* -5.1238026E9 5.341445E-21)
EQL-OK: -2.7368509E-11
(* -3.0125368E9 5.201843E-21)
EQL-OK: -1.5670742E-11
(* -4.4709827E9 -1.5399217E-22)
EQL-OK: 6.8849635E-13
(* -4.934225E9 5.9229795E-21)
EQL-OK: -2.9225313E-11
(* -2.1100623E-11 0.9615048)
EQL-OK: -2.028835E-11
(* 6.6090705E-12 0.4100405)
EQL-OK: 2.7099865E-12
(* -9.541609E-11 0.82497185)
EQL-OK: -7.871559E-11
(* -2.7884627E-11 -0.5218528)
EQL-OK: 1.4551671E-11
(* 9.180904E-13 -0.26436818)
EQL-OK: -2.4271386E-13
(* 2.6154882E-11 0.2004636)
EQL-OK: 5.2431015E-12
(* 9.751009E-11 -7.0098227E9)
EQL-OK: -0.6835284
(* -1.312651E-11 1.9450307E8)
EQL-OK: -0.0025531466
(* -4.591856E-11 -4.6141565E8)
EQL-OK: 0.021187542
(* -4.1950752E-11 -9.55923E9)
EQL-OK: 0.4010169
(* -2.1888996E-11 9.976215E9)
EQL-OK: -0.21836932
(* 4.2696267E-11 -7.927695E9)
EQL-OK: -0.33848298
(* 1.9615304E-11 -5.3584637E-12)
EQL-OK: -1.05107896E-22
(* -8.7289814E-11 3.4389686E-11)
EQL-OK: -3.0018693E-21
(* 6.8621386E-11 -1.4248663E-11)
EQL-OK: -9.77763E-22
(* -9.5643375E-11 -7.7591066E-11)
EQL-OK: 7.421071E-21
(* -6.3313584E-11 5.173857E-11)
EQL-OK: -3.2757542E-21
(* -6.968663E-11 -4.966581E-12)
EQL-OK: 3.461043E-22
(* 7.942278E-11 -3.1309486E19)
EQL-OK: -2.4866865E9
(* 1.7023414E-11 2.5512804E19)
EQL-OK: 4.34315E8
(* 2.6554937E-11 9.146128E19)
EQL-OK: 2.4287485E9
(* 9.309172E-13 -3.6298406E19)
EQL-OK: -3.3790812E7
(* -6.106873E-11 3.5271824E18)
EQL-OK: -2.1540056E8
(* -2.8420502E-11 -6.6643682E19)
EQL-OK: 1.8940468E9
(* -5.84991E-11 1.5304011E-21)
EQL-OK: -8.952709E-32
(* 6.30787E-11 -9.366236E-21)
EQL-OK: -5.9081004E-31
(* 1.9745445E-11 7.034156E-21)
EQL-OK: 1.3889253E-31
(* 2.440728E-11 6.50959E-22)
EQL-OK: 1.5888139E-32
(* 6.0243255E-11 -1.7734902E-21)
EQL-OK: -1.0684082E-31
(* 1.0381073E-11 7.167948E-21)
EQL-OK: 7.441099E-32
(* 6.3378214E18 0.022634745)
EQL-OK: 1.43454966E17
(* 5.4942345E19 0.26696533)
EQL-OK: 1.4667702E19
(* 9.807893E19 -0.99720424)
EQL-OK: -9.780473E19
(* -7.1504E18 0.045440495)
EQL-OK: -3.249177E17
(* -7.265508E19 0.37276286)
EQL-OK: -2.7083115E19
(* 9.3705245E19 0.6617385)
EQL-OK: 6.200837E19
(* 7.768628E19 1.37205E9)
EQL-OK: 1.0658947E29
(* 1.5640021E18 9.344063E9)
EQL-OK: 1.4614135E28
(* 3.8593804E19 -9.424651E8)
EQL-OK: -3.6373312E28
(* -9.23689E19 -6.980498E9)
EQL-OK: 6.447809E29
(* 7.926599E19 5.0871127E9)
EQL-OK: 4.0323505E29
(* 3.540541E19 -5.11486E9)
EQL-OK: -1.810937E29
(* -7.023858E19 6.959093E-11)
EQL-OK: -4.8879683E9
(* -2.0809586E19 -4.045683E-12)
EQL-OK: 8.418899E7
(* 5.3608545E19 -7.0354486E-11)
EQL-OK: -3.7716017E9
(* 8.974303E19 -6.383404E-11)
EQL-OK: -5.72866E9
(* -6.8900017E19 9.845904E-11)
EQL-OK: -6.7838295E9
(* 9.325442E19 -3.9829796E-11)
EQL-OK: -3.7143045E9
(* 5.9436735E19 -5.713992E-21)
EQL-OK: -0.33962104
(* 7.266224E18 8.9780915E-21)
EQL-OK: 0.06523682
(* -3.6717237E18 3.3338123E-21)
EQL-OK: -0.012240837
(* 4.119367E19 -7.309974E-21)
EQL-OK: -0.30112466
(* -8.453134E19 4.6281215E-22)
EQL-OK: -0.03912213
(* -3.7493624E19 5.480264E-21)
EQL-OK: -0.20547494
(* 6.3693945E-21 -0.25352144)
EQL-OK: -1.6147781E-21
(* -8.51531E-21 0.6031129)
EQL-OK: -5.135693E-21
(* -9.771993E-21 0.2740926)
EQL-OK: -2.678431E-21
(* -4.2903415E-21 0.5916119)
EQL-OK: -2.5382172E-21
(* -3.7330673E-21 0.9738175)
EQL-OK: -3.6353263E-21
(* 5.860415E-21 -0.9997709)
EQL-OK: -5.8590725E-21
(* -9.4827234E-21 7.6195564E9)
EQL-OK: -7.225415E-11
(* 5.9501194E-21 9.102942E9)
EQL-OK: 5.4163594E-11
(* 2.8867428E-21 -9.615872E9)
EQL-OK: -2.7758549E-11
(* 5.0077543E-21 7.8715663E9)
EQL-OK: 3.941887E-11
(* 7.082003E-21 4.5221494E9)
EQL-OK: 3.2025875E-11
(* -2.9215627E-21 5.131017E9)
EQL-OK: -1.4990589E-11
(* -9.1914904E-21 -2.3301847E-11)
EQL-OK: 2.141787E-31
(* 1.3389891E-21 -7.032628E-11)
EQL-OK: -9.4166125E-32
(* -8.540776E-21 3.052019E-11)
EQL-OK: -2.6066613E-31
(* -2.7608417E-21 -6.8345785E-12)
EQL-OK: 1.886919E-32
(* 1.2978333E-21 -2.1870255E-12)
EQL-OK: -2.8383944E-33
(* 8.2235335E-23 -3.5080876E-11)
EQL-OK: -2.8848876E-33
(* -3.958064E-21 8.038726E19)
EQL-OK: -0.3181779
(* 7.752178E-21 1.0747784E19)
EQL-OK: 0.08331874
(* -5.5964265E-21 -8.700492E19)
EQL-OK: 0.48691663
(* 3.2236927E-21 3.6203593E19)
EQL-OK: 0.116709255
(* -6.308517E-21 -3.8032156E19)
EQL-OK: 0.2399265
(* 4.8663387E-21 9.008218E19)
EQL-OK: 0.43837038
(MULTIPLE-VALUE-LIST (FLOOR -0.8227301 -0.25283414))
EQUAL-OK: (3 -0.06422769)
(MULTIPLE-VALUE-LIST (FLOOR -0.6686161 0.4833234))
EQUAL-OK: (-2 0.29803064)
(MULTIPLE-VALUE-LIST (FLOOR -0.57436657 0.52642506))
EQUAL-OK: (-2 0.47848356)
(MULTIPLE-VALUE-LIST (FLOOR 0.60395426 -0.61624163))
EQUAL-OK: (-1 -0.012287392)
(MULTIPLE-VALUE-LIST (FLOOR -0.21636301 0.90365344))
EQUAL-OK: (-1 0.68729043)
(MULTIPLE-VALUE-LIST (FLOOR 0.8705054 -0.7953333))
EQUAL-OK: (-2 -0.72016126)
(MULTIPLE-VALUE-LIST (FLOOR 0.4544462 -9.890925E9))
EQUAL-OK: (-1 -9.890925E9)
(MULTIPLE-VALUE-LIST (FLOOR -0.4954149 -3.8786918E9))
EQUAL-OK: (0 -0.49541488)
(MULTIPLE-VALUE-LIST (FLOOR -0.692049 6.4791506E9))
EQUAL-OK: (-1 6.4791506E9)
(MULTIPLE-VALUE-LIST (FLOOR 0.75464755 -3.618496E9))
EQUAL-OK: (-1 -3.618496E9)
(MULTIPLE-VALUE-LIST (FLOOR -0.5929247 -5.442471E9))
EQUAL-OK: (0 -0.5929247)
(MULTIPLE-VALUE-LIST (FLOOR -0.30383867 9.262864E9))
EQUAL-OK: (-1 9.262864E9)
(MULTIPLE-VALUE-LIST (FLOOR 0.9345329 3.26737E-11))
EQUAL-OK: (28601991168 0.0)
(MULTIPLE-VALUE-LIST (FLOOR 0.3772617 -7.991702E-11))
EQUAL-OK: (-4720667648 0.0)
(MULTIPLE-VALUE-LIST (FLOOR 0.74438447 -1.0977978E-11))
EQUAL-OK: (-67807064064 0.0)
(MULTIPLE-VALUE-LIST (FLOOR -0.9220973 -1.2655998E-11))
EQUAL-OK: (72858525696 0.0)
(MULTIPLE-VALUE-LIST (FLOOR -0.4615329 6.48833E-11))
EQUAL-OK: (-7113276928 0.0)
(MULTIPLE-VALUE-LIST (FLOOR 0.2851941 -8.262349E-11))
EQUAL-OK: (-3451731456 0.0)
(MULTIPLE-VALUE-LIST (FLOOR 0.61539984 3.5826177E19))
EQUAL-OK: (0 0.61539984)
(MULTIPLE-VALUE-LIST (FLOOR -0.8195054 8.793426E19))
EQUAL-OK: (-1 8.793426E19)
(MULTIPLE-VALUE-LIST (FLOOR -0.26412165 7.015103E18))
EQUAL-OK: (-1 7.015103E18)
(MULTIPLE-VALUE-LIST (FLOOR -0.527393 8.434833E19))
EQUAL-OK: (-1 8.434833E19)
(MULTIPLE-VALUE-LIST (FLOOR -0.1846056 1.8252128E19))
EQUAL-OK: (-1 1.8252128E19)
(MULTIPLE-VALUE-LIST (FLOOR -0.6079822 6.106683E19))
EQUAL-OK: (-1 6.106683E19)
(MULTIPLE-VALUE-LIST (FLOOR 0.5564819 5.953872E-21))
EQUAL-OK: (93465542827563810816 0.0)
(MULTIPLE-VALUE-LIST (FLOOR -0.52575815 -1.8358678E-21))
EQUAL-OK: (286381261476583178240 0.0)
(MULTIPLE-VALUE-LIST (FLOOR -0.6321403 -5.830945E-21))
EQUAL-OK: (108411292344853200896 0.0)
(MULTIPLE-VALUE-LIST (FLOOR -0.9675891 -9.936226E-21))
EQUAL-OK: (97379936163841703936 0.0)
(MULTIPLE-VALUE-LIST (FLOOR -0.63503754 -5.0137436E-21))
EQUAL-OK: (126659359065470140416 0.0)
(MULTIPLE-VALUE-LIST (FLOOR 0.8053654 -3.4055888E-22))
EQUAL-OK: (-2364834534832713236480 0.0)
(MULTIPLE-VALUE-LIST (FLOOR 8.784645E9 0.9775517))
EQUAL-OK: (8986374144 0.0)
(MULTIPLE-VALUE-LIST (FLOOR -9.314413E9 -0.8318871))
EQUAL-OK: (11196726272 0.0)
(MULTIPLE-VALUE-LIST (FLOOR 8.4695936E9 -0.9823455))
EQUAL-OK: (-8621807616 0.0)
(MULTIPLE-VALUE-LIST (FLOOR -5.8406625E9 -0.031723082))
EQUAL-OK: (184113971200 0.0)
(MULTIPLE-VALUE-LIST (FLOOR -7.325545E9 0.93169844))
EQUAL-OK: (-7862571008 0.0)
(MULTIPLE-VALUE-LIST (FLOOR -5.2999526E9 0.11515945))
EQUAL-OK: (-46022733824 0.0)
(MULTIPLE-VALUE-LIST (FLOOR 6.680458E9 7.170729E9))
EQUAL-OK: (0 6.680458E9)
(MULTIPLE-VALUE-LIST (FLOOR -2.2146278E9 5.2909993E9))
EQUAL-OK: (-1 3.0763715E9)
(MULTIPLE-VALUE-LIST (FLOOR 6.4947005E9 3.1265188E9))
EQUAL-OK: (2 2.4166298E8)
(MULTIPLE-VALUE-LIST (FLOOR 7.947109E9 2.464481E9))
EQUAL-OK: (3 5.53666E8)
(MULTIPLE-VALUE-LIST (FLOOR 8.899791E9 3.5788132E9))
EQUAL-OK: (2 1.7421644E9)
(MULTIPLE-VALUE-LIST (FLOOR 5.272568E9 -5.3260964E9))
EQUAL-OK: (-1 -5.3528532E7)
(MULTIPLE-VALUE-LIST (FLOOR 9.729838E8 8.6379175E-11))
EQUAL-OK: (11264101901890748416 0.0)
(MULTIPLE-VALUE-LIST (FLOOR 1.210882E9 -4.412428E-11))
EQUAL-OK: (-27442532596777484288 0.0)
(MULTIPLE-VALUE-LIST (FLOOR 9.169561E9 -9.41537E-11))
EQUAL-OK: (-97389277614631288832 0.0)
(MULTIPLE-VALUE-LIST (FLOOR 9.289745E9 3.1269442E-11))
EQUAL-OK: (297087021478284623872 0.0)
(MULTIPLE-VALUE-LIST (FLOOR -5.334722E9 2.0158666E-11))
EQUAL-OK: (-264636651022615314432 0.0)
(MULTIPLE-VALUE-LIST (FLOOR 9.910798E9 -2.985589E-11))
EQUAL-OK: (-331954558296456691712 0.0)
(MULTIPLE-VALUE-LIST (FLOOR -1.7169357E9 2.220112E19))
EQUAL-OK: (-1 2.220112E19)
(MULTIPLE-VALUE-LIST (FLOOR 4.9906683E9 6.857979E19))
EQUAL-OK: (0 4.9906683E9)
(MULTIPLE-VALUE-LIST (FLOOR -9.90463E9 -2.342953E19))
EQUAL-OK: (0 -9.90463E9)
(MULTIPLE-VALUE-LIST (FLOOR -5.4878054E8 5.438576E19))
EQUAL-OK: (-1 5.438576E19)
(MULTIPLE-VALUE-LIST (FLOOR -6.1080986E9 9.25119E19))
EQUAL-OK: (-1 9.25119E19)
(MULTIPLE-VALUE-LIST (FLOOR -8.4138286E9 -9.682224E19))
EQUAL-OK: (0 -8.4138286E9)
(MULTIPLE-VALUE-LIST (FLOOR 2.7084977E9 2.542436E-23))
EQUAL-OK: (106531597407755826831748572905472 0.0)
(MULTIPLE-VALUE-LIST (FLOOR -5.720767E9 9.438407E-21))
EQUAL-OK: (-606115738076318963177881600000 0.0)
(MULTIPLE-VALUE-LIST (FLOOR -3.4958034E9 9.250327E-21))
EQUAL-OK: (-377911344579488968728001904640 0.0)
(MULTIPLE-VALUE-LIST (FLOOR -8.3702047E9 6.0186186E-21))
EQUAL-OK: (-1390718493086361392338557730816 0.0)
(MULTIPLE-VALUE-LIST (FLOOR -7.517619E9 -9.417701E-21))
EQUAL-OK: (798243593937800371539149848576 0.0)
(MULTIPLE-VALUE-LIST (FLOOR -2.1220838E9 3.931208E-21))
EQUAL-OK: (-539804494597454582830132625408 0.0)
(MULTIPLE-VALUE-LIST (FLOOR -3.9606828E-11 0.34267086))
EQUAL-OK: (-1 0.34267086)
(MULTIPLE-VALUE-LIST (FLOOR 2.495503E-11 -0.4518087))
EQUAL-OK: (-1 -0.4518087)
(MULTIPLE-VALUE-LIST (FLOOR -7.98698E-11 -0.5665642))
EQUAL-OK: (0 -7.98698E-11)
(MULTIPLE-VALUE-LIST (FLOOR 2.1465689E-11 0.17276591))
EQUAL-OK: (0 2.146569E-11)
(MULTIPLE-VALUE-LIST (FLOOR 4.9463066E-11 -0.5659616))
EQUAL-OK: (-1 -0.5659616)
(MULTIPLE-VALUE-LIST (FLOOR -1.8961567E-11 -0.7758364))
EQUAL-OK: (0 -1.8961567E-11)
(MULTIPLE-VALUE-LIST (FLOOR 7.8871874E-11 -5.768549E9))
EQUAL-OK: (-1 -5.768549E9)
(MULTIPLE-VALUE-LIST (FLOOR -9.079439E-11 -3.807195E9))
EQUAL-OK: (0 -9.079439E-11)
(MULTIPLE-VALUE-LIST (FLOOR 7.879919E-12 -1.9198149E9))
EQUAL-OK: (-1 -1.9198149E9)
(MULTIPLE-VALUE-LIST (FLOOR 4.389072E-11 -8.657572E9))
EQUAL-OK: (-1 -8.657572E9)
(MULTIPLE-VALUE-LIST (FLOOR 7.430157E-11 -3.8599355E9))
EQUAL-OK: (-1 -3.8599355E9)
(MULTIPLE-VALUE-LIST (FLOOR -5.8839114E-11 -5.3409536E9))
EQUAL-OK: (0 -5.8839114E-11)
(MULTIPLE-VALUE-LIST (FLOOR -3.3353615E-11 8.9096924E-11))
EQUAL-OK: (-1 5.574331E-11)
(MULTIPLE-VALUE-LIST (FLOOR 6.335122E-11 3.606541E-11))
EQUAL-OK: (1 2.7285809E-11)
(MULTIPLE-VALUE-LIST (FLOOR -5.6885465E-11 7.070333E-12))
EQUAL-OK: (-9 6.7475353E-12)
(MULTIPLE-VALUE-LIST (FLOOR -7.581576E-11 -3.4334775E-11))
EQUAL-OK: (2 -7.1462155E-12)
(MULTIPLE-VALUE-LIST (FLOOR 3.6686505E-11 -1.9221425E-11))
EQUAL-OK: (-2 -1.7563462E-12)
(MULTIPLE-VALUE-LIST (FLOOR 3.066395E-11 -2.3198866E-11))
EQUAL-OK: (-2 -1.573378E-11)
(MULTIPLE-VALUE-LIST (FLOOR 9.1089344E-11 7.429058E19))
EQUAL-OK: (0 9.1089344E-11)
(MULTIPLE-VALUE-LIST (FLOOR -7.2265194E-11 -6.5831596E19))
EQUAL-OK: (0 -7.2265194E-11)
(MULTIPLE-VALUE-LIST (FLOOR -4.9087675E-11 1.9182038E19))
EQUAL-OK: (-1 1.9182038E19)
(MULTIPLE-VALUE-LIST (FLOOR -7.907188E-11 4.405831E19))
EQUAL-OK: (-1 4.405831E19)
(MULTIPLE-VALUE-LIST (FLOOR 6.118759E-11 3.4342181E19))
EQUAL-OK: (0 6.118759E-11)
(MULTIPLE-VALUE-LIST (FLOOR 5.4731882E-11 -5.861447E19))
EQUAL-OK: (-1 -5.861447E19)
(MULTIPLE-VALUE-LIST (FLOOR 6.121101E-11 -1.8234462E-21))
EQUAL-OK: (-33568860160 0.0)
(MULTIPLE-VALUE-LIST (FLOOR 9.788758E-11 -2.65478E-21))
EQUAL-OK: (-36872200192 0.0)
(MULTIPLE-VALUE-LIST (FLOOR 7.827001E-11 -8.5754775E-21))
EQUAL-OK: (-9127189504 0.0)
(MULTIPLE-VALUE-LIST (FLOOR -3.738018E-11 -7.810784E-21))
EQUAL-OK: (4785714176 0.0)
(MULTIPLE-VALUE-LIST (FLOOR 7.31308E-11 -2.0431058E-21))
EQUAL-OK: (-35793936384 0.0)
(MULTIPLE-VALUE-LIST (FLOOR 9.4578095E-11 -3.0466443E-21))
EQUAL-OK: (-31043366912 0.0)
(MULTIPLE-VALUE-LIST (FLOOR -4.8186137E19 -0.95250696))
EQUAL-OK: (50588749896299315200 0.0)
(MULTIPLE-VALUE-LIST (FLOOR 9.548003E18 -0.9061317))
EQUAL-OK: (-10537102614582001664 0.0)
(MULTIPLE-VALUE-LIST (FLOOR 5.5254813E19 0.51959753))
EQUAL-OK: (106341562860634636288 0.0)
(MULTIPLE-VALUE-LIST (FLOOR -4.2787504E19 0.14769173))
EQUAL-OK: (-289708190148186865664 0.0)
(MULTIPLE-VALUE-LIST (FLOOR -4.27109E17 -0.03677529))
EQUAL-OK: (11614021477430460416 0.0)
(MULTIPLE-VALUE-LIST (FLOOR -3.9238043E19 0.26663417))
EQUAL-OK: (-147160597790283792384 0.0)
(MULTIPLE-VALUE-LIST (FLOOR -2.0174873E19 -6.7035556E7))
EQUAL-OK: (300957794304 0.0)
(MULTIPLE-VALUE-LIST (FLOOR 1.6296811E19 -7.2014956E9))
EQUAL-OK: (-2262976000 0.0)
(MULTIPLE-VALUE-LIST (FLOOR 7.794499E19 -7.412829E9))
EQUAL-OK: (-10514876416 0.0)
(MULTIPLE-VALUE-LIST (FLOOR -1.2546485E19 6.1565005E9))
EQUAL-OK: (-2037924864 0.0)
(MULTIPLE-VALUE-LIST (FLOOR 5.4549757E18 -4.778849E9))
EQUAL-OK: (-1141483264 0.0)
(MULTIPLE-VALUE-LIST (FLOOR -8.9214324E18 3.0002557E9))
EQUAL-OK: (-2973557248 0.0)
(MULTIPLE-VALUE-LIST (FLOOR 8.790958E19 -8.224902E-11))
EQUAL-OK: (-1068822197453670185020302557184 0.0)
(MULTIPLE-VALUE-LIST (FLOOR 9.029222E18 1.3127345E-11))
EQUAL-OK: (687817816164697187548814901248 0.0)
(MULTIPLE-VALUE-LIST (FLOOR 6.7356843E19 -9.1816894E-11))
EQUAL-OK: (-733599685837775742566290948096 0.0)
(MULTIPLE-VALUE-LIST (FLOOR 4.0346153E19 2.0593792E-11))
EQUAL-OK: (1959141510822234462049892564992 0.0)
(MULTIPLE-VALUE-LIST (FLOOR 1.3402778E19 -4.8733902E-11))
EQUAL-OK: (-275019611403690085233016700928 0.0)
(MULTIPLE-VALUE-LIST (FLOOR -1.3005549E19 5.6579824E-11))
EQUAL-OK: (-229861963021783171398467846144 0.0)
(MULTIPLE-VALUE-LIST (FLOOR 8.550302E19 6.4624324E19))
EQUAL-OK: (1 2.0878699E19)
(MULTIPLE-VALUE-LIST (FLOOR 4.7897585E19 -1.5724218E19))
EQUAL-OK: (-4 -1.4999288E19)
(MULTIPLE-VALUE-LIST (FLOOR -8.6050445E19 1.4007867E19))
EQUAL-OK: (-7 1.2004627E19)
(MULTIPLE-VALUE-LIST (FLOOR -6.0799387E19 -5.667626E19))
EQUAL-OK: (1 -4.1231221E18)
(MULTIPLE-VALUE-LIST (FLOOR -7.847746E19 -3.972193E19))
EQUAL-OK: (1 -3.875553E19)
(MULTIPLE-VALUE-LIST (FLOOR -6.425414E19 3.0601436E19))
EQUAL-OK: (-3 2.7550168E19)
(MULTIPLE-VALUE-LIST (FLOOR 2.8220074E-21 -0.9401483))
EQUAL-OK: (-1 -0.9401483)
(MULTIPLE-VALUE-LIST (FLOOR 9.867747E-21 0.86288685))
EQUAL-OK: (0 9.867747E-21)
(MULTIPLE-VALUE-LIST (FLOOR 6.2856053E-21 -0.5235996))
EQUAL-OK: (-1 -0.5235996)
(MULTIPLE-VALUE-LIST (FLOOR 8.709991E-22 0.42678982))
EQUAL-OK: (0 8.709991E-22)
(MULTIPLE-VALUE-LIST (FLOOR 1.0493481E-21 0.9355661))
EQUAL-OK: (0 1.0493481E-21)
(MULTIPLE-VALUE-LIST (FLOOR -6.137466E-21 0.4328317))
EQUAL-OK: (-1 0.4328317)
(MULTIPLE-VALUE-LIST (FLOOR 6.5872774E-21 -8.80464E9))
EQUAL-OK: (-1 -8.80464E9)
(MULTIPLE-VALUE-LIST (FLOOR -1.0479629E-22 -9.353607E9))
EQUAL-OK: (0 -1.0479629E-22)
(MULTIPLE-VALUE-LIST (FLOOR -2.636932E-21 9.794678E9))
EQUAL-OK: (-1 9.794678E9)
(MULTIPLE-VALUE-LIST (FLOOR -7.912024E-21 -2.9102356E9))
EQUAL-OK: (0 -7.912024E-21)
(MULTIPLE-VALUE-LIST (FLOOR 1.0071349E-21 8.762459E9))
EQUAL-OK: (0 1.0071349E-21)
(MULTIPLE-VALUE-LIST (FLOOR -6.795979E-21 -9.445545E9))
EQUAL-OK: (0 -6.795979E-21)
(MULTIPLE-VALUE-LIST (FLOOR 6.0598967E-22 -3.961637E-11))
EQUAL-OK: (-1 -3.961637E-11)
(MULTIPLE-VALUE-LIST (FLOOR 3.481348E-21 -7.485006E-11))
EQUAL-OK: (-1 -7.485006E-11)
(MULTIPLE-VALUE-LIST (FLOOR -5.610974E-21 -4.073898E-11))
EQUAL-OK: (0 -5.610974E-21)
(MULTIPLE-VALUE-LIST (FLOOR -6.2362584E-21 8.403202E-11))
EQUAL-OK: (-1 8.403202E-11)
(MULTIPLE-VALUE-LIST (FLOOR 4.2029927E-21 7.823452E-11))
EQUAL-OK: (0 4.2029927E-21)
(MULTIPLE-VALUE-LIST (FLOOR -7.765272E-21 -8.502908E-11))
EQUAL-OK: (0 -7.765272E-21)
(MULTIPLE-VALUE-LIST (FLOOR 2.7845436E-21 3.490416E-21))
EQUAL-OK: (0 2.7845436E-21)
(MULTIPLE-VALUE-LIST (FLOOR -1.4630091E-21 9.193901E-21))
EQUAL-OK: (-1 7.730892E-21)
(MULTIPLE-VALUE-LIST (FLOOR -8.1823826E-21 8.941324E-21))
EQUAL-OK: (-1 7.5894165E-22)
(MULTIPLE-VALUE-LIST (FLOOR -1.8218875E-21 3.8057304E-21))
EQUAL-OK: (-1 1.9838427E-21)
(MULTIPLE-VALUE-LIST (FLOOR 5.8037763E-21 -5.1721612E-21))
EQUAL-OK: (-2 -4.5405462E-21)
(MULTIPLE-VALUE-LIST (FLOOR -8.179982E-21 6.2204556E-21))
EQUAL-OK: (-2 4.2609293E-21)
(/ 0.73739415 0.6416277)
EQL-OK: 1.1492554
(/ 0.6736158 -0.25522494)
EQL-OK: -2.6393025
(/ -0.44216943 0.31134832)
EQL-OK: -1.420176
(/ -0.7041118 -0.26929635)
EQL-OK: 2.6146355
(/ 0.3573562 0.73521775)
EQL-OK: 0.4860549
(/ -0.7661392 0.77110463)
EQL-OK: -0.9935606
(/ -0.91306114 1.6586358E9)
EQL-OK: -5.504892E-10
(/ -0.68994707 4.0230333E8)
EQL-OK: -1.7149921E-9
(/ 0.28498656 -7.617844E9)
EQL-OK: -3.7410394E-11
(/ -0.72419757 -9.226896E9)
EQL-OK: 7.848767E-11
(/ 0.8352187 8.3102536E9)
EQL-OK: 1.00504605E-10
(/ 0.9707725 3.3669448E9)
EQL-OK: 2.8832445E-10
(/ 0.50785017 6.048824E-11)
EQL-OK: 8.3958497E9
(/ -0.17675805 4.1391092E-11)
EQL-OK: -4.270437E9
(/ -0.42162335 -4.4007357E-11)
EQL-OK: 9.580747E9
(/ -7.945299E-4 -5.4965265E-11)
EQL-OK: 1.4455128E7
(/ -0.65178335 -9.78151E-12)
EQL-OK: 6.6634228E10
(/ -0.6209788 -3.8544803E-11)
EQL-OK: 1.611057E10
(/ 0.94332725 -4.9823833E19)
EQL-OK: -1.8933253E-20
(/ 0.30150706 -4.9741757E19)
EQL-OK: -6.061448E-21
(/ -0.8478371 -9.85865E18)
EQL-OK: 8.5999306E-20
(/ -0.28524554 3.1389898E19)
EQL-OK: -9.087176E-21
(/ -0.5260848 -7.936286E19)
EQL-OK: 6.6288534E-21
(/ -0.12941593 -5.3575864E19)
EQL-OK: 2.415564E-21
(/ -0.20859545 -9.867267E-21)
EQL-OK: 2.1140145E19
(/ 0.35158414 -8.2825064E-22)
EQL-OK: -4.2449002E20
(/ -0.05635804 -2.2999601E-21)
EQL-OK: 2.450392E19
(/ -0.003138721 -3.3988403E-21)
EQL-OK: 9.234682E17
(/ -0.91386896 -5.8199337E-21)
EQL-OK: 1.5702395E20
(/ -0.5374476 2.256708E-21)
EQL-OK: -2.3815556E20
(/ 1.9669795E9 -0.58137333)
EQL-OK: -3.3833329E9
(/ -8.9879334E8 0.35829848)
EQL-OK: -2.5085046E9
(/ -9.057627E9 0.4849478)
EQL-OK: -1.867753E10
(/ 3.687799E8 -0.34055912)
EQL-OK: -1.082866E9
(/ -5.1049994E9 -0.16858816)
EQL-OK: 3.0280888E10
(/ -4.512774E9 0.9385354)
EQL-OK: -4.8083154E9
(/ -1.9312024E9 -8.3940613E9)
EQL-OK: 0.2300677
(/ -8.2104387E9 6.769607E9)
EQL-OK: -1.2128383
(/ -6.9613486E9 4.576518E9)
EQL-OK: -1.5211015
(/ -1.486333E9 1.2476433E9)
EQL-OK: -1.1913126
(/ -7.653413E9 5.167656E9)
EQL-OK: -1.4810221
(/ -2.9815204E9 8.942396E9)
EQL-OK: -0.33341402
(/ 9.304549E9 -5.8002263E-11)
EQL-OK: -1.60417E20
(/ -2.0750719E9 1.272735E-11)
EQL-OK: -1.6304037E20
(/ -1.1557549E9 -7.2220556E-11)
EQL-OK: 1.6003129E19
(/ -3.3273495E9 -9.9207274E-11)
EQL-OK: 3.353937E19
(/ -3.2167434E9 7.7474506E-11)
EQL-OK: -4.1520026E19
(/ 4.4169416E9 -4.638272E-11)
EQL-OK: -9.5228166E19
(/ -3.732909E9 -2.2763849E18)
EQL-OK: 1.6398409E-9
(/ -6.243126E9 -4.1274483E19)
EQL-OK: 1.5125873E-10
(/ 4.7162563E9 -7.524631E19)
EQL-OK: -6.267758E-11
(/ -1.3657349E9 7.728982E19)
EQL-OK: -1.7670308E-11
(/ -4.6216906E8 -7.972877E19)
EQL-OK: 5.7967663E-12
(/ 4.4542986E9 3.1531836E19)
EQL-OK: 1.4126353E-10
(/ 1.4738977E9 -9.8130876E-21)
EQL-OK: -1.5019714E29
(/ -5.918336E9 2.9877495E-21)
EQL-OK: -1.9808676E30
(/ -3.7166292E9 -1.0826009E-21)
EQL-OK: 3.433056E30
(/ 7.390683E9 -2.1678685E-22)
EQL-OK: -3.4091935E31
(/ 6.2302886E8 8.9466635E-21)
EQL-OK: 6.963812E28
(/ 5.2357125E9 4.854464E-22)
EQL-OK: 1.0785356E31
(/ -2.7721167E-11 0.99550104)
EQL-OK: -2.7846447E-11
(/ 5.754337E-11 -0.6344538)
EQL-OK: -9.06975E-11
(/ -7.663363E-11 0.020810604)
EQL-OK: -3.6824317E-9
(/ 3.2576632E-11 0.6209498)
EQL-OK: 5.2462586E-11
(/ -9.507874E-11 -0.19174337)
EQL-OK: 4.958645E-10
(/ -9.681176E-11 -0.82680905)
EQL-OK: 1.1709084E-10
(/ 6.458532E-11 3.442031E8)
EQL-OK: 1.8763725E-19
(/ 1.9113166E-11 -7.0712125E9)
EQL-OK: -2.7029546E-21
(/ -2.0099402E-12 2.600844E9)
EQL-OK: -7.7280303E-22
(/ -4.9634992E-12 8.041176E9)
EQL-OK: -6.1726036E-22
(/ 3.2738747E-12 7.299675E9)
EQL-OK: 4.484959E-22
(/ 9.133733E-12 -2.6318538E9)
EQL-OK: -3.470456E-21
(/ -3.4146054E-11 -1.5331155E-11)
EQL-OK: 2.227233
(/ 6.06336E-11 4.3750472E-11)
EQL-OK: 1.385896
(/ -4.229064E-11 -9.169808E-11)
EQL-OK: 0.4611944
(/ 6.166104E-11 -3.5474658E-11)
EQL-OK: -1.7381715
(/ -3.979801E-11 -1.9510412E-11)
EQL-OK: 2.0398343
(/ 9.726933E-11 -5.6926824E-11)
EQL-OK: -1.7086731
(/ 8.041786E-11 2.3718388E19)
EQL-OK: 3.3905282E-30
(/ -6.747094E-11 -6.7324465E19)
EQL-OK: 1.0021756E-30
(/ -3.0713255E-11 -4.8310887E19)
EQL-OK: 6.357419E-31
(/ -2.8496396E-11 -4.9017306E19)
EQL-OK: 5.813538E-31
(/ -9.354275E-12 -9.035095E19)
EQL-OK: 1.0353266E-31
(/ 4.9274265E-12 7.241873E19)
EQL-OK: 6.8040775E-32
(/ -4.377009E-11 7.138917E-21)
EQL-OK: -6.131195E9
(/ 9.422678E-12 -5.8862136E-21)
EQL-OK: -1.6008046E9
(/ -6.83782E-11 -3.6098812E-21)
EQL-OK: 1.8941952E10
(/ -8.1755075E-11 -6.8725736E-21)
EQL-OK: 1.1895846E10
(/ -6.360949E-11 4.2976342E-21)
EQL-OK: -1.4801049E10
(/ 3.3879413E-11 -1.7169743E-21)
EQL-OK: -1.9732044E10
(/ -9.948093E18 -0.8695114)
EQL-OK: 1.1441014E19
(/ 6.2748975E19 -0.94829553)
EQL-OK: -6.6170272E19
(/ -6.204444E18 0.6874813)
EQL-OK: -9.0248915E18
(/ 6.7599936E19 -0.45808762)
EQL-OK: -1.4756988E20
(/ 7.624068E19 0.008471012)
EQL-OK: 9.0001855E21
(/ 8.342225E19 -0.3031574)
EQL-OK: -2.7517803E20
(/ -6.3366795E19 -1.4882481E9)
EQL-OK: 4.2578113E10
(/ -1.7335874E19 -7.42875E9)
EQL-OK: 2.3336195E9
(/ -8.662651E19 1.0327226E9)
EQL-OK: -8.388168E10
(/ -4.9590965E19 8.334462E9)
EQL-OK: -5.95011E9
(/ 8.191562E18 5.930472E9)
EQL-OK: 1.3812664E9
(/ -3.5910857E19 -7.342098E9)
EQL-OK: 4.8910894E9
(/ -3.6083056E19 5.7372277E-11)
EQL-OK: -6.2892843E29
(/ 2.2896613E19 -4.541202E-11)
EQL-OK: -5.0419717E29
(/ 6.1438805E19 8.512014E-11)
EQL-OK: 7.217893E29
(/ 6.3211746E19 -6.185377E-12)
EQL-OK: -1.0219547E31
(/ 4.5452835E18 2.0429606E-11)
EQL-OK: 2.2248514E29
(/ 9.226608E19 1.3297486E-11)
EQL-OK: 6.9386104E30
(/ 1.8852943E19 -1.623413E19)
EQL-OK: -1.1613153
(/ -3.117305E18 -9.5760065E19)
EQL-OK: 0.03255329
(/ -7.719376E19 3.3627052E19)
EQL-OK: -2.295585
(/ 3.1309093E19 -7.820006E19)
EQL-OK: -0.4003717
(/ 3.941958E19 -9.51598E19)
EQL-OK: -0.41424614
(/ -3.6364467E19 -1.0757047E19)
EQL-OK: 3.380525
(/ 2.906561E17 -8.595159E-21)
EQL-OK: -3.3816258E37
(/ -7.826226E-21 -0.21695328)
EQL-OK: 3.6073327E-20
(/ -1.888169E-21 0.5031878)
EQL-OK: -3.7524144E-21
(/ 8.304594E-21 -0.3528648)
EQL-OK: -2.3534775E-20
(/ -8.441606E-21 -0.3639353)
EQL-OK: 2.3195348E-20
(/ -7.815205E-21 0.38263506)
EQL-OK: -2.0424697E-20
(/ -3.2837188E-21 0.46961308)
EQL-OK: -6.992392E-21
(/ -5.1739832E-21 -3.891728E9)
EQL-OK: 1.3294822E-30
(/ -5.3318596E-21 -7.1995423E9)
EQL-OK: 7.405831E-31
(/ -7.4979364E-22 9.148773E9)
EQL-OK: -8.195565E-32
(/ 4.6800053E-21 3.9532006E8)
EQL-OK: 1.1838522E-29
(/ 4.914653E-22 -2.414465E9)
EQL-OK: -2.035504E-31
(/ 5.4722133E-21 -9.977777E9)
EQL-OK: -5.484401E-31
(/ 9.815656E-21 6.059642E-11)
EQL-OK: 1.619841E-10
(/ 7.660357E-21 9.7074675E-11)
EQL-OK: 7.891201E-11
(/ 9.77743E-21 2.5170428E-11)
EQL-OK: 3.8844908E-10
(/ 8.818017E-21 1.18070545E-11)
EQL-OK: 7.468431E-10
(/ 5.445426E-21 9.6208916E-11)
EQL-OK: 5.6600016E-11
(/ 4.6823916E-21 -1.9853067E-11)
EQL-OK: -2.358523E-10
(/ 9.347429E-21 -7.285392E-22)
EQL-OK: -12.830372
(/ -7.304412E-21 6.766496E-21)
EQL-OK: -1.079497
(/ -2.6850204E-21 6.894023E-21)
EQL-OK: -0.38947076
(/ -2.24644E-21 -9.533858E-21)
EQL-OK: 0.23562758
(/ -8.525939E-21 -9.961187E-22)
EQL-OK: 8.559159
(/ 8.145676E-21 4.304153E-22)
EQL-OK: 18.925154
(+ 0.6049332056786565d0 -0.9611373574853808d0)
EQL-OK: -0.35620415180672427d0
(+ -0.4763715667865308d0 0.25936932107685584d0)
EQL-OK: -0.21700224570967497d0
(+ 0.2666481927718355d0 -0.04984768063142031d0)
EQL-OK: 0.21680051214041518d0
(+ -0.29478659758474846d0 0.3371004337672615d0)
EQL-OK: 0.042313836182513054d0
(+ 0.8203063910979178d0 0.28968607542857916d0)
EQL-OK: 1.109992466526497d0
(+ -0.08207985138263585d0 0.4368723951711785d0)
EQL-OK: 0.35479254378854264d0
(+ -0.8659875373355486d0 -6.631430771196765d9)
EQL-OK: -6.631430772062753d9
(+ 0.15071385783307878d0 -7.154424279496395d9)
EQL-OK: -7.154424279345681d9
(+ -0.8969642760814789d0 -2.4070067380831727d8)
EQL-OK: -2.4070067470528156d8
(+ -0.9610362081435054d0 9.070410778399954d9)
EQL-OK: 9.070410777438917d9
(+ 0.5129052501104072d0 -7.47841120327471d9)
EQL-OK: -7.478411202761805d9
(+ 0.3840242289740675d0 7.793048210060242d9)
EQL-OK: 7.793048210444266d9
(+ 0.07603066126204616d0 5.215008470388369d-11)
EQL-OK: 0.07603066131419625d0
(+ -0.17187858025312586d0 -5.116645189173968d-11)
EQL-OK: -0.17187858030429232d0
(+ 0.2521315816245864d0 8.603210607505339d-11)
EQL-OK: 0.2521315817106185d0
(+ -0.3557185853193914d0 -2.0371324697272998d-11)
EQL-OK: -0.3557185853397627d0
(+ 0.7142792289542045d0 -7.106356053331326d-11)
EQL-OK: 0.7142792288831409d0
(+ 0.4380415886629452d0 -3.069969538383403d-11)
EQL-OK: 0.43804158863224546d0
(+ 0.24798614227178573d0 3.972393639614975d19)
EQL-OK: 3.972393639614975d19
(+ -0.5210677288128815d0 4.846393336901129d19)
EQL-OK: 4.846393336901129d19
(+ 0.5825404819115d0 1.9710987361264255d19)
EQL-OK: 1.9710987361264255d19
(+ 0.9105175208730549d0 2.391166552096775d19)
EQL-OK: 2.391166552096775d19
(+ 0.48414423368371695d0 -9.696117779740095d19)
EQL-OK: -9.696117779740095d19
(+ 0.25780758450697716d0 6.094683117025535d19)
EQL-OK: 6.094683117025535d19
(+ 0.9824539149570484d0 -5.4680066990812835d-21)
EQL-OK: 0.9824539149570484d0
(+ -0.9520982941158654d0 3.2513564801568073d-21)
EQL-OK: -0.9520982941158654d0
(+ 0.0630170624560149d0 -9.858852595793203d-21)
EQL-OK: 0.0630170624560149d0
(+ 0.24705141169888878d0 1.4582081178692862d-22)
EQL-OK: 0.24705141169888878d0
(+ 0.7440948700757135d0 -3.0932442581890818d-21)
EQL-OK: 0.7440948700757135d0
(+ -0.5055970869515372d0 4.0277457257516025d-21)
EQL-OK: -0.5055970869515372d0
(+ 1.672355787134947d9 0.0064909681594120805d0)
EQL-OK: 1.672355787141438d9
(+ -9.694504381396599d9 -0.8925470085542831d0)
EQL-OK: -9.694504382289146d9
(+ -1.6695005924298635d9 -0.34426964741306d0)
EQL-OK: -1.6695005927741332d9
(+ -6.085591212594774d9 0.5107956920100049d0)
EQL-OK: -6.085591212083979d9
(+ 7.457486660952688d9 -0.4323787588338597d0)
EQL-OK: 7.457486660520309d9
(+ -8.790796444526546d9 0.911415263281967d0)
EQL-OK: -8.790796443615131d9
(+ 9.667548804251982d9 -1.266547751029956d8)
EQL-OK: 9.540894029148987d9
(+ -6.169561898845145d9 9.627911197121864d9)
EQL-OK: 3.458349298276719d9
(+ -9.870287253215279d9 9.004242781937655d8)
EQL-OK: -8.969862975021513d9
(+ -8.175630881172554d9 -4.08632236263908d9)
EQL-OK: -1.2261953243811634d10
(+ 2.9069444232153206d9 -7.961831315741894d9)
EQL-OK: -5.054886892526573d9
(+ -7.003647401371184d9 -1.768371514817526d9)
EQL-OK: -8.772018916188711d9
(+ -6.418847599138249d9 2.755257250162372d-11)
EQL-OK: -6.418847599138249d9
(+ 2.3093152687241793d9 1.2205440142364766d-11)
EQL-OK: 2.3093152687241793d9
(+ 8.634577667577518d9 -9.065714034538668d-11)
EQL-OK: 8.634577667577518d9
(+ 1.711283212591781d9 -3.235019197733951d-11)
EQL-OK: 1.711283212591781d9
(+ 2.583886638357791d9 -8.199109798920928d-11)
EQL-OK: 2.583886638357791d9
(+ -7.517123950474774d9 5.2057802142431697d-11)
EQL-OK: -7.517123950474774d9
(+ 3.266571938086574d9 -4.4782768261898355d19)
EQL-OK: -4.478276825863179d19
(+ 2.1000389219899452d9 -8.547158903365463d19)
EQL-OK: -8.54715890315546d19
(+ -3.9140926801217155d9 7.387959860641422d19)
EQL-OK: 7.387959860250013d19
(+ -7.087607465790431d9 7.96875093387599d19)
EQL-OK: 7.96875093316723d19
(+ -8.341000808926519d9 6.9360028397637304d19)
EQL-OK: 6.93600283892963d19
(+ -5.507940634743809d9 9.760028858210094d19)
EQL-OK: 9.7600288576593d19
(+ 8.492522971238823d9 -2.8253881864964467d-22)
EQL-OK: 8.492522971238823d9
(+ 1.2731765723336241d9 -5.8473937102910264d-21)
EQL-OK: 1.2731765723336241d9
(+ 9.654280758878323d9 -4.2332114049658973d-22)
EQL-OK: 9.654280758878323d9
(+ -6.864618926120946d9 -1.245648314796599d-21)
EQL-OK: -6.864618926120946d9
(+ -3.9916044043798673d8 1.697737588450543d-21)
EQL-OK: -3.9916044043798673d8
(+ -7.818041624198686d9 4.635421587404246d-21)
EQL-OK: -7.818041624198686d9
(+ 2.0609929543990767d-12 -0.2126306554359736d0)
EQL-OK: -0.2126306554339126d0
(+ -1.5923091695877845d-11 0.515731533720818d0)
EQL-OK: 0.515731533704895d0
(+ 4.794527092905871d-11 -0.9066947202676092d0)
EQL-OK: -0.9066947202196639d0
(+ -8.63854477728633d-11 0.3122982022565777d0)
EQL-OK: 0.3122982021701922d0
(+ -7.577966666552416d-11 -0.24137602092437593d0)
EQL-OK: -0.2413760210001556d0
(+ -4.971730475882754d-11 -0.8202688719750202d0)
EQL-OK: -0.8202688720247375d0
(+ -5.249369194379291d-11 -8.546120620321186d9)
EQL-OK: -8.546120620321186d9
(+ 8.280786962526793d-11 5.758373397436368d9)
EQL-OK: 5.758373397436368d9
(+ 6.370323595535815d-11 -8.470663335712393d9)
EQL-OK: -8.470663335712393d9
(+ 3.59771226839467d-11 3.5042505440266216d8)
EQL-OK: 3.5042505440266216d8
(+ -3.945501687396375d-11 -5.082779978069177d9)
EQL-OK: -5.082779978069177d9
(+ 9.780590963267516d-11 -5.05591945120475d9)
EQL-OK: -5.05591945120475d9
(+ 6.323293597096768d-11 -7.208898910487284d-11)
EQL-OK: -8.85605313390516d-12
(+ -4.549781732354749d-11 -6.095452636416357d-11)
EQL-OK: -1.0645234368771105d-10
(+ -5.372680267837374d-11 2.0748354219485134d-11)
EQL-OK: -3.297844845888861d-11
(+ 3.550879553916665d-11 -4.374873254056574d-11)
EQL-OK: -8.23993700139909d-12
(+ -6.746002242414832d-11 3.0803985031459436d-11)
EQL-OK: -3.665603739268888d-11
(+ -7.902512161494214d-11 -8.907842858073236d-11)
EQL-OK: -1.681035501956745d-10
(+ -4.1465935469350415d-11 6.244210696961323d19)
EQL-OK: 6.244210696961323d19
(+ 4.921297536286578d-11 -1.694436650099881d19)
EQL-OK: -1.694436650099881d19
(+ -7.879478980672654d-11 6.41757969360492d19)
EQL-OK: 6.41757969360492d19
(+ -8.200749317872953d-11 -9.490225542618815d19)
EQL-OK: -9.490225542618815d19
(+ -7.572981329795812d-11 -3.350367078181029d19)
EQL-OK: -3.350367078181029d19
(+ -5.955255565125549d-11 -5.009913629288125d19)
EQL-OK: -5.009913629288125d19
(+ -9.818180775332558d-11 -7.926156011681593d-21)
EQL-OK: -9.818180776125174d-11
(+ -5.2466438379505935d-12 8.468830229031857d-21)
EQL-OK: -5.246643829481763d-12
(+ 3.582774358441715d-11 3.6865211729351863d-22)
EQL-OK: 3.58277435847858d-11
(+ 7.169296413565744d-11 -9.974881413980864d-21)
EQL-OK: 7.169296412568256d-11
(+ -9.615073655516977d-11 4.9552491300097786d-21)
EQL-OK: -9.615073655021452d-11
(+ 6.7696956269187d-11 4.1431488006404866d-21)
EQL-OK: 6.769695627333016d-11
(+ -4.663397365185298d19 0.9758464195927673d0)
EQL-OK: -4.663397365185298d19
(+ -4.77977261393851d19 0.04145189313162445d0)
EQL-OK: -4.77977261393851d19
(+ 7.195364554121596d19 0.5169917736820715d0)
EQL-OK: 7.195364554121596d19
(+ -7.766254779507882d19 0.5919134938460356d0)
EQL-OK: -7.766254779507882d19
(+ -8.411122653901408d19 -0.14463225181516137d0)
EQL-OK: -8.411122653901408d19
(+ -9.101920591747218d19 0.23349918704239836d0)
EQL-OK: -9.101920591747218d19
(+ 7.037477746142529d18 -3.250947575909365d9)
EQL-OK: 7.037477742891581d18
(+ -6.864341752972099d19 -4.0510449339565725d9)
EQL-OK: -6.864341753377203d19
(+ -5.329540273290228d19 8.14869777458878d9)
EQL-OK: -5.329540272475358d19
(+ -9.726234388247201d19 2.053976989398215d9)
EQL-OK: -9.726234388041803d19
(+ -1.910324088450308d19 6.247052535748024d9)
EQL-OK: -1.910324087825603d19
(+ -6.079933001949367d18 6.316829148809886d9)
EQL-OK: -6.079932995632539d18
(+ -4.499107911798452d19 9.659763881732633d-11)
EQL-OK: -4.499107911798452d19
(+ -3.0972208018542522d19 -9.077209886078653d-11)
EQL-OK: -3.0972208018542522d19
(+ -2.3000547840875442d19 -3.2043634522621155d-11)
EQL-OK: -2.3000547840875442d19
(+ 2.124555308489292d19 2.252166800652451d-11)
EQL-OK: 2.124555308489292d19
(+ -7.74280238703686d19 1.7289553748884322d-11)
EQL-OK: -7.74280238703686d19
(+ -8.119446783121816d19 -4.3461802389685114d-11)
EQL-OK: -8.119446783121816d19
(+ -4.70848534032654d18 -4.698316648967506d19)
EQL-OK: -5.169165183000161d19
(+ 2.853799842810312d19 -5.56805968603395d19)
EQL-OK: -2.7142598432236384d19
(+ -2.9128622996090335d19 -5.153369106520702d19)
EQL-OK: -8.066231406129735d19
(+ -5.415993984772977d19 4.481932558278175d19)
EQL-OK: -9.340614264948015d18
(+ -1.4652301908531261d19 7.89284449966826d19)
EQL-OK: 6.427614308815133d19
(+ -8.241911630479252d19 5.377001886877124d19)
EQL-OK: -2.8649097436021277d19
(+ -6.923631123395076d19 7.100129853298664d-22)
EQL-OK: -6.923631123395076d19
(+ -5.864213410820717d19 -2.649878514627326d-21)
EQL-OK: -5.864213410820717d19
(+ 8.660575002861176d19 2.751926085897399d-21)
EQL-OK: 8.660575002861176d19
(+ -3.0252871646631318d19 6.852831573716124d-21)
EQL-OK: -3.0252871646631318d19
(+ -9.155476807340938d19 -5.552907466957205d-21)
EQL-OK: -9.155476807340938d19
(+ -4.03382621358461d19 6.670808279457885d-21)
EQL-OK: -4.03382621358461d19
(+ 8.842980509187577d-21 0.5028466982188534d0)
EQL-OK: 0.5028466982188534d0
(+ 1.7292043381396136d-21 0.19490424064972922d0)
EQL-OK: 0.19490424064972922d0
(+ -5.854820918836103d-21 -0.6700030154364615d0)
EQL-OK: -0.6700030154364615d0
(+ -2.152396491682048d-21 0.5002930268902921d0)
EQL-OK: 0.5002930268902921d0
(+ -1.0897149666610629d-21 0.16555534170490604d0)
EQL-OK: 0.16555534170490604d0
(+ 6.321421497987867d-24 -0.08008112131564671d0)
EQL-OK: -0.08008112131564671d0
(+ -6.1552667309563055d-21 7.235074489769488d9)
EQL-OK: 7.235074489769488d9
(+ -2.2311335001219955d-22 1.220011008333989d9)
EQL-OK: 1.220011008333989d9
(+ 8.523565724937177d-23 -4.1650242034123087d9)
EQL-OK: -4.1650242034123087d9
(+ -2.4400041303825447d-21 4.435554678685388d9)
EQL-OK: 4.435554678685388d9
(+ -3.4479065449345757d-22 8.491084033112451d8)
EQL-OK: 8.491084033112451d8
(+ -7.919939059912893d-21 -7.610637842585286d9)
EQL-OK: -7.610637842585286d9
(+ 4.4958602369105625d-21 5.758376768873417d-11)
EQL-OK: 5.7583767693230034d-11
(+ 2.4375297386412195d-21 9.417086717671841d-11)
EQL-OK: 9.417086717915595d-11
(+ 1.0040647133383462d-21 3.4701016271268983d-12)
EQL-OK: 3.470101628130963d-12
(+ -3.885093055726793d-21 -8.523534862249969d-11)
EQL-OK: -8.523534862638479d-11
(+ 1.027951323422187d-21 -7.65508060829868d-11)
EQL-OK: -7.655080608195885d-11
(+ -9.83813940552434d-21 -5.048380063082019d-11)
EQL-OK: -5.0483800640658324d-11
(+ -7.640856498925806d-21 -5.743808556015994d19)
EQL-OK: -5.743808556015994d19
(+ 8.053891045717591d-21 4.0840032650134725d19)
EQL-OK: 4.0840032650134725d19
(+ -4.794782783871528d-21 -3.431216587740782d18)
EQL-OK: -3.431216587740782d18
(+ 1.860870988390988d-21 -3.757945694933625d19)
EQL-OK: -3.757945694933625d19
(+ 5.445498222566789d-21 7.575823566817991d19)
EQL-OK: 7.575823566817991d19
(+ 2.631896745307223d-21 4.906449817201212d19)
EQL-OK: 4.906449817201212d19
(+ -6.61689881073516d-21 5.357007670385275d-21)
EQL-OK: -1.2598911403498852d-21
(+ 3.0173001109587537d-21 5.2947222461350496d-21)
EQL-OK: 8.312022357093803d-21
(+ -8.792518441030627d-21 -1.0516787854168774d-21)
EQL-OK: -9.844197226447504d-21
(+ 7.349451992884509d-21 -8.427997362671486d-21)
EQL-OK: -1.0785453697869767d-21
(+ -7.881179611953633d-21 3.2080446524364824d-21)
EQL-OK: -4.6731349595171506d-21
(+ -9.614117725927607d-21 -5.35667712698602d-21)
EQL-OK: -1.4970794852913628d-20
(- -0.011326914400453525d0 -0.6668141757661364d0)
EQL-OK: 0.6554872613656829d0
(- -0.46185382764946437d0 0.7488210697846337d0)
EQL-OK: -1.2106748974340982d0
(- -0.35834120541234993d0 -0.30919976341834987d0)
EQL-OK: -0.04914144199400006d0
(- 0.44705025064976966d0 -0.9277893553610955d0)
EQL-OK: 1.3748396060108652d0
(- -0.47647537517067917d0 0.29158058381073604d0)
EQL-OK: -0.7680559589814152d0
(- -0.021697999002707746d0 0.1779871773524142d0)
EQL-OK: -0.19968517635512195d0
(- 0.4179484378019861d0 9.9990307469939d9)
EQL-OK: -9.999030746575953d9
(- -0.7475415524823718d0 1.3993312799214797d9)
EQL-OK: -1.3993312806690214d9
(- 0.2519442433861928d0 -6.699632771871848d9)
EQL-OK: 6.699632772123793d9
(- -0.5124988631497671d0 2.7959244812290273d9)
EQL-OK: -2.795924481741526d9
(- -0.6870193827604301d0 4.851102442573468d9)
EQL-OK: -4.851102443260488d9
(- 0.7609656780357723d0 7.481252865855436d8)
EQL-OK: -7.481252858245779d8
(- -0.6301276042170191d0 -7.099314875214215d-11)
EQL-OK: -0.630127604146026d0
(- -0.4139053484357884d0 -2.897413526398709d-11)
EQL-OK: -0.41390534840681426d0
(- -0.6944623060197281d0 -3.291569879873739d-11)
EQL-OK: -0.6944623059868125d0
(- -0.2057822500703933d0 3.6505182026159854d-11)
EQL-OK: -0.2057822501068985d0
(- -0.8792706674467908d0 8.094527736950817d-11)
EQL-OK: -0.8792706675277361d0
(- -0.6888184243601332d0 9.127622796988807d-11)
EQL-OK: -0.6888184244514094d0
(- -0.980711030497252d0 8.752272461345245d19)
EQL-OK: -8.752272461345245d19
(- 0.8035082489836539d0 -3.903355151264917d19)
EQL-OK: 3.903355151264917d19
(- -0.7537841372394811d0 -5.879942447417834d19)
EQL-OK: 5.879942447417834d19
(- -0.6877475951546845d0 -2.3972266191169642d19)
EQL-OK: 2.3972266191169642d19
(- -0.43128282112433525d0 -5.422824998003439d19)
EQL-OK: 5.422824998003439d19
(- 0.29538116818276694d0 1.1291858990580939d19)
EQL-OK: -1.1291858990580939d19
(- 0.9166687388673976d0 6.395175407123937d-21)
EQL-OK: 0.9166687388673976d0
(- 0.41840538498193025d0 -2.6655662412599155d-21)
EQL-OK: 0.41840538498193025d0
(- -0.8036940092501853d0 6.7473779576832565d-21)
EQL-OK: -0.8036940092501853d0
(- 0.8555054025209989d0 -7.939970418096797d-21)
EQL-OK: 0.8555054025209989d0
(- 0.3365495704567003d0 8.694519827555395d-21)
EQL-OK: 0.3365495704567003d0
(- -0.7430322011471231d0 7.430332379292914d-22)
EQL-OK: -0.7430322011471231d0
(- 5.102372414731216d9 -0.5073635765350494d0)
EQL-OK: 5.10237241523858d9
(- 4.629827365822252d9 0.6534380055543355d0)
EQL-OK: 4.629827365168815d9
(- 7.218192507117569d9 0.9781542046565127d0)
EQL-OK: 7.218192506139415d9
(- 6.595760326622413d8 0.7339510561932947d0)
EQL-OK: 6.595760319282902d8
(- 7.191166637703489d9 0.80792475493853d0)
EQL-OK: 7.191166636895564d9
(- -7.95531405213956d9 0.5353636841430115d0)
EQL-OK: -7.955314052674924d9
(- 5.438904545553836d8 6.533536518165114d9)
EQL-OK: -5.989646063609731d9
(- -7.389650313101625d8 -9.983943153365381d9)
EQL-OK: 9.244978122055218d9
(- 8.364404619492165d9 -7.600563055115287d9)
EQL-OK: 1.5964967674607452d10
(- 2.070813748323649d9 6.421052769114957d9)
EQL-OK: -4.350239020791307d9
(- -2.8555256820439434d9 -3.4077342921686625d8)
EQL-OK: -2.514752252827077d9
(- 9.147878229420991d8 8.439982790150545d9)
EQL-OK: -7.5251949672084465d9
(- -4.315772980070098d9 -6.48869466068404d-11)
EQL-OK: -4.315772980070098d9
(- -3.5186299785635023d9 3.990046539849716d-11)
EQL-OK: -3.5186299785635023d9
(- 2.5645532837267537d9 8.566645694205622d-13)
EQL-OK: 2.5645532837267537d9
(- 6.145110896031829d9 -9.242734002954773d-11)
EQL-OK: 6.145110896031829d9
(- -6.6836855975624d9 9.117930361283473d-11)
EQL-OK: -6.6836855975624d9
(- -1.7472828462085754d8 -5.125838712019503d-11)
EQL-OK: -1.7472828462085754d8
(- 9.05675399397055d9 9.086705650502484d19)
EQL-OK: -9.08670564959681d19
(- -5.834806594586836d9 9.981576053842906d19)
EQL-OK: -9.981576054426386d19
(- 3.047010922754272d9 1.1715352070471352d19)
EQL-OK: -1.1715352067424342d19
(- 7.294295638574767d9 2.845702947515113d19)
EQL-OK: -2.8457029467856835d19
(- 8.264143132493019d9 -1.6322956072452289d19)
EQL-OK: 1.6322956080716431d19
(- -9.597823287256088d9 3.954126758718671d19)
EQL-OK: -3.954126759678453d19
(- 3.229389511771705d9 -4.329831377266493d-21)
EQL-OK: 3.229389511771705d9
(- 6.897089200279753d9 2.4428208790287663d-21)
EQL-OK: 6.897089200279753d9
(- 2.3579775300187545d9 4.729400988996349d-21)
EQL-OK: 2.3579775300187545d9
(- 1.6718929117460046d9 5.8162277016717065d-21)
EQL-OK: 1.6718929117460046d9
(- 2.537177500868296d9 1.4856605280697543d-21)
EQL-OK: 2.537177500868296d9
(- 6.117674696930935d9 -1.6187214719634357d-21)
EQL-OK: 6.117674696930935d9
(- 4.1877888304549216d-11 -0.06920550501017497d0)
EQL-OK: 0.06920550505205286d0
(- 9.61054846124015d-11 0.885309193732889d0)
EQL-OK: -0.8853091936367835d0
(- 2.5559085051828467d-11 -0.8112181469812297d0)
EQL-OK: 0.8112181470067888d0
(- -1.4549570208293283d-12 -0.5049325945871657d0)
EQL-OK: 0.5049325945857107d0
(- -7.091628047158497d-11 0.61946884965934d0)
EQL-OK: -0.6194688497302563d0
(- 2.877466355456826d-11 0.4496491857374d0)
EQL-OK: -0.44964918570862533d0
(- 1.3041612488449928d-12 5.408018587130755d9)
EQL-OK: -5.408018587130755d9
(- -5.379752339715717d-11 -4.009594691514288d9)
EQL-OK: 4.009594691514288d9
(- 7.023042501342336d-12 -3.4153434285746374d9)
EQL-OK: 3.4153434285746374d9
(- 6.968174934871611d-11 4.713087404332662d9)
EQL-OK: -4.713087404332662d9
(- -5.153562653896506d-11 -8.44732228013254d8)
EQL-OK: 8.44732228013254d8
(- -8.424177457818745d-11 1.6817117809824567d9)
EQL-OK: -1.6817117809824567d9
(- 3.374755984316538d-11 8.893678266883364d-11)
EQL-OK: -5.5189222825668264d-11
(- -8.684123447823306d-11 -7.888825869147879d-11)
EQL-OK: -7.952975786754267d-12
(- 7.788477523205632d-11 1.741674745286914d-11)
EQL-OK: 6.046802777918718d-11
(- 6.546622477606044d-11 -4.7719651007530584d-11)
EQL-OK: 1.1318587578359101d-10
(- -1.8595152377503265d-11 5.7288738553553045d-11)
EQL-OK: -7.588389093105631d-11
(- -8.184033550427558d-11 -8.834399228929296d-11)
EQL-OK: 6.503656785017376d-12
(- 5.749469292140762d-11 7.493129199779113d19)
EQL-OK: -7.493129199779113d19
(- -5.2285095120702066d-11 -2.0611179974216552d19)
EQL-OK: 2.0611179974216552d19
(- -8.84727820032067d-11 4.7423077384022024d19)
EQL-OK: -4.7423077384022024d19
(- 3.437676989338625d-11 -3.5368755480277647d19)
EQL-OK: 3.5368755480277647d19
(- 2.2665031619145437d-11 -6.072845659234921d19)
EQL-OK: 6.072845659234921d19
(- -8.429070146313393d-11 5.134329153614969d18)
EQL-OK: -5.134329153614969d18
(- -9.009531819191212d-11 2.301790665456671d-22)
EQL-OK: -9.00953181921423d-11
(- -2.706942469371907d-11 9.282350542107287d-21)
EQL-OK: -2.706942470300142d-11
(- 5.358266626996117d-11 -4.409057695582885d-22)
EQL-OK: 5.358266627040208d-11
(- -7.189537285608088d-11 9.569273217393917d-21)
EQL-OK: -7.189537286565016d-11
(- -4.160295905335358d-11 5.930867524794025d-21)
EQL-OK: -4.160295905928445d-11
(- 6.7922062777334035d-12 -7.747524338474154d-22)
EQL-OK: 6.792206278508156d-12
(- -9.038821102045805d19 0.04779131019959271d0)
EQL-OK: -9.038821102045805d19
(- 2.2020595055495963d19 -0.424631558292516d0)
EQL-OK: 2.2020595055495963d19
(- -8.164003027214308d19 0.6832198147365239d0)
EQL-OK: -8.164003027214308d19
(- -3.878233560364984d19 -0.28756619113600546d0)
EQL-OK: -3.878233560364984d19
(- 7.0829003521450525d19 -0.6071548125948544d0)
EQL-OK: 7.0829003521450525d19
(- 5.968540808784698d19 0.7674294173432648d0)
EQL-OK: 5.968540808784698d19
(- -2.2143621795153547d19 -2.443529365769125d9)
EQL-OK: -2.2143621792710017d19
(- -9.77092538926342d18 5.903189771537687d8)
EQL-OK: -9.77092538985374d18
(- 9.974714452399537d19 -6.980456691485629d9)
EQL-OK: 9.974714453097582d19
(- 1.7428950527159094d18 3.68843657888816d9)
EQL-OK: 1.742895049027473d18
(- -1.1094381875350845d19 -7.157723640671709d9)
EQL-OK: -1.1094381868193122d19
(- -3.638795590369631d19 6.9246542750294075d9)
EQL-OK: -3.6387955910620963d19
(- -5.66543282261991d19 -5.1005028153082024d-11)
EQL-OK: -5.66543282261991d19
(- -3.901527864456216d19 -1.064153465992923d-12)
EQL-OK: -3.901527864456216d19
(- 1.1477489418879848d19 3.327888063907735d-11)
EQL-OK: 1.1477489418879848d19
(- 3.508978072054437d19 9.238453417997638d-11)
EQL-OK: 3.508978072054437d19
(- -4.7642024461416964d19 -4.758309941438892d-11)
EQL-OK: -4.7642024461416964d19
(- -8.307715835429606d19 3.313910202186439d-11)
EQL-OK: -8.307715835429606d19
(- 2.704675010192592d18 -2.6840207147078365d19)
EQL-OK: 2.954488215727096d19
(- -9.860969100714668d18 -4.719594638795429d19)
EQL-OK: 3.7334977287239614d19
(- 7.87799781828944d18 -6.657221298850535d19)
EQL-OK: 7.44502108067948d19
(- -3.3937781740759863d19 4.783805995045389d19)
EQL-OK: -8.177584169121376d19
(- -1.0747572720102216d19 -1.7144708598072445d19)
EQL-OK: 6.397135877970229d18
(- 1.3938845733158445d19 5.604369854609131d19)
EQL-OK: -4.210485281293287d19
(- 6.0938348303695315d19 1.1005522580049531d-21)
EQL-OK: 6.0938348303695315d19
(- -2.4870844028694925d19 1.5391650322730598d-22)
EQL-OK: -2.4870844028694925d19
(- 7.323118607079343d19 6.637280375859432d-21)
EQL-OK: 7.323118607079343d19
(- -4.181201584825501d19 4.768935182006663d-21)
EQL-OK: -4.181201584825501d19
(- 4.1225910279381205d19 6.117191687463543d-21)
EQL-OK: 4.1225910279381205d19
(- 6.438313875980151d17 -1.4883489002691529d-21)
EQL-OK: 6.438313875980151d17
(- -4.573961206963222d-21 0.3586300020381973d0)
EQL-OK: -0.3586300020381973d0
(- 7.74206782371325d-22 0.23168389210368656d0)
EQL-OK: -0.23168389210368656d0
(- 8.572446613640605d-21 0.6114581963443891d0)
EQL-OK: -0.6114581963443891d0
(- -8.539467934859551d-21 0.33474735899049d0)
EQL-OK: -0.33474735899049d0
(- -5.55811309570968d-21 -0.9637216018651454d0)
EQL-OK: 0.9637216018651454d0
(- -6.705839413964189d-21 0.3787619614522374d0)
EQL-OK: -0.3787619614522374d0
(- 1.338539206480238d-22 6.683968625235106d9)
EQL-OK: -6.683968625235106d9
(- -9.64078167549023d-21 3.291420859310843d9)
EQL-OK: -3.291420859310843d9
(- -9.26536204591093d-22 2.9839295142529476d8)
EQL-OK: -2.9839295142529476d8
(- -3.647737608953592d-21 6.115300020921433d8)
EQL-OK: -6.115300020921433d8
(- 1.4069763806331204d-21 -1.183109060480878d9)
EQL-OK: 1.183109060480878d9
(- -6.0037865798761924d-21 -7.442246743849378d9)
EQL-OK: 7.442246743849378d9
(- -5.994118986299138d-21 -9.091558282012836d-11)
EQL-OK: 9.091558281413425d-11
(- 6.969393585974241d-21 3.435352867093995d-11)
EQL-OK: -3.435352866397056d-11
(- -6.278554484817533d-22 -4.7211920270841604d-11)
EQL-OK: 4.721192027021375d-11
(- -8.603262886304741d-21 1.7296517702077242d-11)
EQL-OK: -1.7296517710680505d-11
(- 4.104502790901735d-21 -4.8473213720301105d-11)
EQL-OK: 4.847321372440561d-11
(- -4.449725859444968d-21 -8.944265568403936d-11)
EQL-OK: 8.944265567958964d-11
(- 4.828216540804827d-21 -1.1712152029346877d19)
EQL-OK: 1.1712152029346877d19
(- -5.65034940464881d-21 -9.445303840982011d19)
EQL-OK: 9.445303840982011d19
(- -7.24107519738777d-21 2.340578690102746d19)
EQL-OK: -2.340578690102746d19
(- 1.7659593956231534d-21 -8.048768257390671d18)
EQL-OK: 8.048768257390671d18
(- -3.0538518255248124d-21 8.834631867521575d19)
EQL-OK: -8.834631867521575d19
(- 8.57952908388053d-21 -5.730742870111307d19)
EQL-OK: 5.730742870111307d19
(- -4.5090103564928485d-21 1.8907114777916313d-21)
EQL-OK: -6.399721834284479d-21
(- -3.8487625143236447d-22 5.354282198078924d-21)
EQL-OK: -5.739158449511288d-21
(- 2.6660110440404615d-22 3.833744224501756d-22)
EQL-OK: -1.1677331804612944d-22
(- -7.503762004261027d-22 -9.623906576475644d-21)
EQL-OK: 8.873530376049542d-21
(- -9.113431042260725d-21 -3.5516521546085545d-21)
EQL-OK: -5.56177888765217d-21
(- -3.4813735333296525d-21 -2.6602650182385188d-21)
EQL-OK: -8.211085150911337d-22
(* -0.2554913394465045d0 0.27042187315261135d0)
EQL-OK: -0.0690904465873934d0
(* -0.4489211233229662d0 -0.42892136850270857d0)
EQL-OK: 0.19255186256545986d0
(* -0.44586465919973783d0 -0.15168042462027043d0)
EQL-OK: 0.0676289408305884d0
(* 0.5509395670465355d0 0.3577558280766836d0)
EQL-OK: 0.19710184102894285d0
(* -0.42780066410606965d0 0.22704747885906007d0)
EQL-OK: -0.0971310622395147d0
(* 0.20955388816500042d0 0.605628751935113d0)
EQL-OK: 0.12691185975251945d0
(* 0.9993471610818964d0 -4.363771855901198d9)
EQL-OK: -4.360923015803941d9
(* 0.10502219375257282d0 3.425205053451057d9)
EQL-OK: 3.5972254876582843d8
(* 0.7768651149081368d0 1.666066330143864d9)
EQL-OK: 1.2943088110117908d9
(* -0.6438389801759042d0 2.8922130868526487d9)
EQL-OK: -1.8621195242906134d9
(* -0.7427680566504474d0 6.763974500466173d9)
EQL-OK: -5.02406419494444d9
(* -0.8563035843259611d0 2.9100478627456827d9)
EQL-OK: -2.4918844154292307d9
(* 0.6219502737119671d0 2.8868752190811842d-11)
EQL-OK: 1.7954928326798375d-11
(* 0.6767479505813657d0 2.9324524289075574d-11)
EQL-OK: 1.9845311714405376d-11
(* 0.7944531541461581d0 8.282076647859848d-11)
EQL-OK: 6.579721915772496d-11
(* -0.4662914070981966d0 -6.921260263903422d-11)
EQL-OK: 3.227324187348362d-11
(* 0.037804762510578516d0 -3.044514833184461d-11)
EQL-OK: -1.1509716022847211d-12
(* -0.5364168049485208d0 -3.695280705974925d-11)
EQL-OK: 1.9822106696869836d-11
(* 0.10343751426551051d0 4.8902635121181385d19)
EQL-OK: 5.058367017968255d18
(* -0.45511004829813784d0 1.8210069906740634d19)
EQL-OK: -8.287585794769196d18
(* -0.9675158737162977d0 8.097401718869682d19)
EQL-OK: -7.83436469886405d19
(* -0.06573561186185628d0 2.6049125586869125d19)
EQL-OK: -1.712355208919178d18
(* -0.5574365795036731d0 -8.822383181882661d19)
EQL-OK: 4.917919103979403d19
(* -0.4222667103024276d0 -1.8561723355961213d19)
EQL-OK: 7.837997859065477d18
(* -0.8412207478192143d0 2.3416069046402696d-22)
EQL-OK: -1.9698083114201234d-22
(* 0.24291385591230452d0 -9.448120185342916d-21)
EQL-OK: -2.295079305344525d-21
(* -0.37792600430678414d0 -2.3929024368177364d-21)
EQL-OK: 9.043400566424941d-22
(* -0.007648867433060369d0 -5.3162210182098465d-21)
EQL-OK: 4.066306981313633d-23
(* -0.7631807323096114d0 -4.534410248041209d-21)
EQL-OK: 3.4605745336922964d-21
(* 0.4735366300649959d0 -1.3895270471326203d-21)
EQL-OK: -6.579919552833457d-22
(* -8.64834403600587d9 -0.14057280586223464d0)
EQL-OK: 1.215721987203268d9
(* -1.5525713051163936d9 0.10621224657238759d0)
EQL-OK: -1.64902086280236d8
(* 3.297132746298694d9 0.05318660311813239d0)
EQL-OK: 1.7536329080518654d8
(* 2.1659831568875275d9 0.11704159596099262d0)
EQL-OK: 2.5351012550674528d8
(* -5.533403510176525d9 0.37778599060251605d0)
EQL-OK: -2.0904423264954782d9
(* -2.4217306331294374d9 0.6051350227557695d0)
EQL-OK: -1.465474021787126d9
(* 1.4048311850866513d9 -4.304799039580996d9)
EQL-OK: -6.047515936334449d18
(* -5.070278162013437d9 -9.116233758795675d9)
EQL-OK: 4.622184094703138d19
(* 8.452801605894673d9 -9.002885976919611d9)
EQL-OK: -7.609960904339272d19
(* 6.352601599408395d9 -4.484034289922495d9)
EQL-OK: -2.848528340196373d19
(* -6.565407710101401d8 -6.718825369609182d9)
EQL-OK: 4.4111827884457016d18
(* -9.37193973536698d9 9.577576231327314d9)
EQL-OK: -8.976046725088279d19
(* -1.7766859308675253d9 -4.079350537765101d-11)
EQL-OK: 0.0724772470752413d0
(* 2.3810136983742104d9 9.195156930614704d-11)
EQL-OK: 0.2189379461049417d0
(* -3.313966320976337d9 -3.44704749912067d-11)
EQL-OK: 0.11423399318891611d0
(* 6.598963960681895d9 -2.4298605961767928d-11)
EQL-OK: -0.1603456250365168d0
(* 7.908258993705348d9 1.528909719631646d-11)
EQL-OK: 0.12091014040840486d0
(* -5.906667889594469d9 5.917852809041966d-11)
EQL-OK: -0.3495479116251461d0
(* 4.86261281419926d9 -2.3925611132123714d19)
EQL-OK: -1.1634098327861323d29
(* -9.753392818607462d9 -2.5653634777279775d18)
EQL-OK: 2.502099772078992d28
(* 1.5861252889272392d9 5.12939252547053d19)
EQL-OK: 8.135859201483165d28
(* -8.422142961023593d8 1.0428099441045047d19)
EQL-OK: -8.782694430425161d27
(* -3.109042783121446d9 -4.138252722536039d19)
EQL-OK: 1.286600476173335d29
(* -6.459303282089468d8 1.8408981660472957d19)
EQL-OK: -1.189091956594178d28
(* -1.432764110232635d9 8.98766033001457d-21)
EQL-OK: -1.2877197155806476d-11
(* 8.539623949953406d9 -3.498784805440049d-21)
EQL-OK: -2.987830652026891d-11
(* 7.336784327799637d9 -1.048985206018761d-21)
EQL-OK: -7.696178219612119d-12
(* -4.320357143553698d9 2.591531476439043d-21)
EQL-OK: -1.119634152697768d-11
(* -9.374098076239548d9 5.5773248420603045d-21)
EQL-OK: -5.228239007252054d-11
(* 9.118926580475056d9 -1.379170270330765d-21)
EQL-OK: -1.2576552437120181d-11
(* 8.145792307872788d-11 -0.06511382435429458d0)
EQL-OK: -5.304036895613926d-12
(* -6.1928426627437d-11 0.2526275616632321d0)
EQL-OK: -1.5644827416529785d-11
(* -8.555119338859813d-11 -0.8366318482083728d0)
EQL-OK: 7.157485304113478d-11
(* 8.243060442429263d-12 0.3939656708074719d0)
EQL-OK: 3.2474828367081808d-12
(* 8.600529286105945d-11 -0.891441509265547d0)
EQL-OK: -7.666868807288822d-11
(* -7.531046724969747d-11 0.24398797995196886d0)
EQL-OK: -1.8374848773492595d-11
(* -3.7666526619188126d-12 4.659322150343885d9)
EQL-OK: -0.017550048180330083d0
(* 3.032501107241211d-11 -9.592046453776636d9)
EQL-OK: -0.2908789149178678d0
(* 7.311626957349528d-11 -9.061108567148174d9)
EQL-OK: -0.6625144566303135d0
(* 4.898078204161461d-11 8.88014689134599d9)
EQL-OK: 0.4349565393825394d0
(* 1.278207138618518d-11 -4.279966992086118d9)
EQL-OK: -0.05470684362336102d0
(* -8.538580654966055d-11 -5.191059833953482d8)
EQL-OK: 0.0443242830769665d0
(* 4.0761422500127225d-11 1.527607426117321d-11)
EQL-OK: 6.226745171030001d-22
(* -9.186363051001198d-11 8.557763803549676d-11)
EQL-OK: -7.861472520412421d-21
(* -9.89183505930065d-11 9.717968160611499d-11)
EQL-OK: -9.612853815630427d-21
(* 7.440627873114725d-12 -4.535521332601712d-11)
EQL-OK: -3.374712644646274d-22
(* 8.701410920357686d-11 -7.032883383151379d-12)
EQL-OK: -6.119600827175551d-22
(* 9.866226673114161d-11 -2.814669610817353d-11)
EQL-OK: -2.777016839025002d-21
(* 5.192240545105114d-11 -3.366056660574579d19)
EQL-OK: -1.747737587015645d9
(* -1.372355669576939d-11 -4.819955130360066d19)
EQL-OK: 6.61469275025609d8
(* 3.637511103766519d-11 -4.071776382810416d19)
EQL-OK: -1.4811131804527159d9
(* 7.446388208685151d-13 2.7760294268649034d19)
EQL-OK: 2.0671392791169815d7
(* 6.267855179410938d-11 7.471751480940298d19)
EQL-OK: 4.683185621908299d9
(* -4.336562006766369d-11 8.143188451558233d19)
EQL-OK: -3.5313441652966094d9
(* -1.0432655006975122d-11 -9.379512413340694d-21)
EQL-OK: 9.785321714202411d-32
(* -8.167646898574611d-11 -5.810795749825724d-21)
EQL-OK: 4.746052788431461d-31
(* -4.33805459341994d-11 -2.4289860591796017d-21)
EQL-OK: 1.053707413137707d-31
(* -1.384613082275421d-11 2.2174009100764947d-21)
EQL-OK: -3.070242308741339d-32
(* -4.910905591314494d-11 -5.456657623752349d-21)
EQL-OK: 2.679713043437427d-31
(* 1.3653011366548008d-11 -3.925911962906968d-21)
EQL-OK: -5.360052065363564d-32
(* 7.641468950470222d19 0.9034599537348024d0)
EQL-OK: 6.903761184457755d19
(* 5.146778093125584d19 -0.2791459460022878d0)
EQL-OK: -1.436702239669392d19
(* -8.874303077863696d19 -0.23153988023519345d0)
EQL-OK: 2.054755071819369d19
(* 7.10798162637783d19 -0.4719034863212067d0)
EQL-OK: -3.354281310194779d19
(* -9.820386602197546d19 0.03346146041258036d0)
EQL-OK: -3.286044775256677d18
(* -5.210458089116161d19 0.11173798093222442d0)
EQL-OK: -5.822060666098161d18
(* 3.257626718953688d18 -6.150510855712356d9)
EQL-OK: -2.0036068498783283d28
(* -7.755105754004988d19 5.514896832715505d9)
EQL-OK: -4.27686081601359d29
(* 2.426235084788384d19 8.685431434428486d9)
EQL-OK: 2.1072898472734294d29
(* -2.847383850475709d19 -2.412830829567453d9)
EQL-OK: 6.870255538040273d28
(* 1.4664659669727164d19 -4.8673539253155d9)
EQL-OK: -7.1378088806862425d28
(* -4.24770317054668d19 1.3102543269150825d9)
EQL-OK: -5.5655714586597015d28
(* 2.17116835964837d19 -3.654789326884115d-11)
EQL-OK: -7.935162947711353d8
(* -1.8125809977916906d17 -5.944782899600832d-11)
EQL-OK: 1.0775400519813456d7
(* -7.915462827540546d19 9.762153025588201d-11)
EQL-OK: -7.727195939080587d9
(* -4.360953588949649d19 -7.152431005584812d-11)
EQL-OK: 3.119141966351983d9
(* 3.550776271395866d19 -6.387656982922894d-11)
EQL-OK: -2.268114084477872d9
(* -8.278954580496595d19 -7.359178231519021d-11)
EQL-OK: 6.092630232852524d9
(* -5.5022682113038156d19 -8.979630229039327d19)
EQL-OK: 4.940833395850589d39
(* 1.1716230943203277d19 5.5764415854118265d19)
EQL-OK: 6.533487745596758d38
(* 7.462799608352103d19 6.061883497941003d19)
EQL-OK: 4.523862179431019d39
(* -3.2160334983646097d19 -3.8817785710003675d19)
EQL-OK: 1.2483929917571087d39
(* 5.868090263060238d19 -8.37300331667736d19)
EQL-OK: -4.91335392351655d39
(* -7.3652924769962656d19 9.725738480757314d19)
EQL-OK: -7.163290846555493d39
(* -6.447063647969567d19 4.0587529685661844d-21)
EQL-OK: -0.2616703871973161d0
(* -3.1999317568381926d17 3.015031281949113d-21)
EQL-OK: -9.647894346969533d-4
(* -1.5005852398726605d19 5.391316601974659d-21)
EQL-OK: -0.080901301164036d0
(* 1.0084552719733576d19 2.78150956101201d-21)
EQL-OK: 0.02805027980846861d0
(* -7.171404412051077d19 1.4733392992015492d-21)
EQL-OK: -0.10565911950742231d0
(* -5.909802783283228d19 5.356071274587122d-21)
EQL-OK: -0.31653324926018317d0
(* 8.272641144282955d-22 -0.16191056182923802d0)
EQL-OK: -1.3394279754825238d-22
(* 8.410471541398583d-21 -0.43256058128353736d0)
EQL-OK: -3.63803845881602d-21
(* -7.887238384137063d-22 0.5589746137044918d0)
EQL-OK: -4.408766028968254d-22
(* 4.778995446616728d-21 0.21608373898977795d0)
EQL-OK: 1.0326632047200663d-21
(* 3.992449163872154d-21 0.9593422165456676d0)
EQL-OK: 3.830125030315009d-21
(* -9.700320218813958d-21 -0.42620535269852766d0)
EQL-OK: 4.134328400148262d-21
(* -1.7901566262876555d-21 9.461674014776534d8)
EQL-OK: -1.6937878433325936d-12
(* 1.0928019952544443d-22 8.279199780524873d9)
EQL-OK: 9.047526039267738d-13
(* 9.942869097320962d-21 9.523169242022762d9)
EQL-OK: 9.468762516506561d-11
(* -2.7432601692209267d-21 -4.922145522647528d9)
EQL-OK: 1.3502725759388083d-11
(* -5.97929682563092d-21 -6.147792689359443d8)
EQL-OK: 3.6759477312123895d-12
(* -1.3564305221188254d-21 1.0862842413758955d9)
EQL-OK: -1.473469100698958d-12
(* -5.446806293721964d-21 -1.5358504316888942d-11)
EQL-OK: 8.365479797538665d-32
(* -1.0222776562632463d-21 -1.9781477525280056d-11)
EQL-OK: 2.0222162481967376d-32
(* 8.192540157543917d-21 3.3215076993103644d-11)
EQL-OK: 2.7211585210191467d-31
(* 9.685592607330157d-21 6.034805605641166d-11)
EQL-OK: 5.8450668560672665d-31
(* 6.671870463340688d-21 -9.07657686679269d-11)
EQL-OK: -6.055774510579552d-31
(* -1.109409648670322d-21 -4.7905821901849965d-11)
EQL-OK: 5.314718104539439d-32
(* -3.9052432481663676d-22 2.0306112771345453d19)
EQL-OK: -0.007930030979680168d0
(* 8.596834841113507d-21 -9.453548987989818d19)
EQL-OK: -0.8127059931212419d0
(* 3.946325780779758d-21 -9.084484011754447d19)
EQL-OK: -0.35850333460668093d0
(* 5.3518824877647604d-21 -6.814116447592617d19)
EQL-OK: -0.36468350485460743d0
(* -7.456278485417833d-22 9.61914445493285d19)
EQL-OK: -0.07172301984744206d0
(* -5.0781537010216826d-21 9.216915512986622d19)
EQL-OK: -0.4680491362427718d0
(* 3.2906792172396555d-22 4.571445785546992d-21)
EQL-OK: 1.50431616392373d-42
(* 5.39814714322422d-21 6.687033308557664d-21)
EQL-OK: 3.6097589751235757d-41
(* 4.3506183844841724d-21 7.266196706225928d-21)
EQL-OK: 3.1612448975384865d-41
(* 6.910763289107986d-21 3.910584203890238d-21)
EQL-OK: 2.702512175521024d-41
(* -4.6131515924393325d-21 5.228174479773633d-21)
EQL-OK: -2.411836142691841d-41
(* -2.1886866436065787d-21 6.29322016055891d-22)
EQL-OK: -1.3773886910690934d-42
(MULTIPLE-VALUE-LIST (FLOOR 0.6173351962722496d0 -0.11820538775792844d0))
EQUAL-OK: (-6 -0.09189713027532098d0)
(MULTIPLE-VALUE-LIST (FLOOR -0.17517225806171177d0 0.1118228341753209d0))
EQUAL-OK: (-2 0.04847341028893004d0)
(MULTIPLE-VALUE-LIST (FLOOR -0.9387909021047899d0 -0.16826318310698907d0))
EQUAL-OK: (5 -0.09747498656984459d0)
(MULTIPLE-VALUE-LIST (FLOOR 0.8036728904567848d0 0.6774308237913269d0))
EQUAL-OK: (1 0.1262420666654578d0)
(MULTIPLE-VALUE-LIST (FLOOR 0.6882568422881421d0 0.3302150266778784d0))
EQUAL-OK: (2 0.02782678893238538d0)
(MULTIPLE-VALUE-LIST (FLOOR 0.3618917435888378d0 0.5454396894763598d0))
EQUAL-OK: (0 0.3618917435888378d0)
(MULTIPLE-VALUE-LIST (FLOOR -0.478470818234076d0 9.035797971846054d9))
EQUAL-OK: (-1 9.035797971367584d9)
(MULTIPLE-VALUE-LIST (FLOOR 0.6423779722022549d0 2.0589504447793393d9))
EQUAL-OK: (0 0.6423779722022549d0)
(MULTIPLE-VALUE-LIST (FLOOR 0.21698095744051404d0 1.570908384361449d9))
EQUAL-OK: (0 0.21698095744051404d0)
(MULTIPLE-VALUE-LIST (FLOOR 0.24033995915823747d0 6.968395233824382d9))
EQUAL-OK: (0 0.24033995915823747d0)
(MULTIPLE-VALUE-LIST (FLOOR -0.8531247643149816d0 -5.299783511441018d9))
EQUAL-OK: (0 -0.8531247643149817d0)
(MULTIPLE-VALUE-LIST (FLOOR -0.5134978162655872d0 2.297671112225289d9))
EQUAL-OK: (-1 2.297671111711791d9)
(MULTIPLE-VALUE-LIST (FLOOR 0.6192405432591311d0 5.4403538407469436d-11))
EQUAL-OK: (11382357864 3.744539199218032d-11)
(MULTIPLE-VALUE-LIST (FLOOR -0.20340731452742233d0 5.44351944436815d-12))
EQUAL-OK: (-37366875715 2.4681729170135434d-12)
(MULTIPLE-VALUE-LIST (FLOOR -0.29394735220898527d0 -3.6328318262890404d-12))
EQUAL-OK: (80914109505 -3.3847154436219604d-12)
(MULTIPLE-VALUE-LIST (FLOOR -0.8359336184185098d0 6.064791537508077d-11))
EQUAL-OK: (-13783385847 1.2432123964511977d-11)
(MULTIPLE-VALUE-LIST (FLOOR -0.9762544843227843d0 2.2086465633336306d-11))
EQUAL-OK: (-44201480696 1.1997821346734454d-11)
(MULTIPLE-VALUE-LIST (FLOOR -0.2919696169517234d0 6.922295436251983d-11))
EQUAL-OK: (-4217815025 3.3402028237741715d-11)
(MULTIPLE-VALUE-LIST (FLOOR 0.9452118035872986d0 -1.1093667270485797d19))
EQUAL-OK: (-1 -1.1093667270485797d19)
(MULTIPLE-VALUE-LIST (FLOOR 0.3379784391207531d0 -3.0106029588222304d19))
EQUAL-OK: (-1 -3.0106029588222304d19)
(MULTIPLE-VALUE-LIST (FLOOR 0.3907483945162724d0 -9.823409070968835d19))
EQUAL-OK: (-1 -9.823409070968835d19)
(MULTIPLE-VALUE-LIST (FLOOR -0.4293216868359586d0 5.965415751655242d19))
EQUAL-OK: (-1 5.965415751655242d19)
(MULTIPLE-VALUE-LIST (FLOOR 0.13727607148241305d0 -8.310631671228052d19))
EQUAL-OK: (-1 -8.310631671228052d19)
(MULTIPLE-VALUE-LIST (FLOOR -0.7478116595122868d0 7.235991436975452d19))
EQUAL-OK: (-1 7.235991436975452d19)
(MULTIPLE-VALUE-LIST (FLOOR -0.9425796643098138d0 -1.7749544068364875d-21))
EQUAL-OK: (531044437355311857664 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR 0.20835281321620536d0 2.7983277403481253d-21))
EQUAL-OK: (74456186890490986496 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR -0.5404541167071248d0 9.266841531614177d-22))
EQUAL-OK: (-583212861537931100160 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR -0.06796825059990208d0 -6.350644782153893d-21))
EQUAL-OK: (10702574767038046208 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR 0.30647600932087793d0 -9.704243038852408d-21))
EQUAL-OK: (-31581650221851901952 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR -0.7939481974521416d0 -7.44148349933678d-21))
EQUAL-OK: (106692193501860495360 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR 2.622471924924206d9 0.3428958732728865d0))
EQUAL-OK: (7648012499 0.2776496600055352d0)
(MULTIPLE-VALUE-LIST (FLOOR 9.96303133513731d9 -0.6839887200892081d0))
EQUAL-OK: (-14566075496 -0.09450688719173875d0)
(MULTIPLE-VALUE-LIST (FLOOR 9.438132647041376d8 -0.9350840745499996d0))
EQUAL-OK: (-1009335193 -0.15301271996267998d0)
(MULTIPLE-VALUE-LIST (FLOOR -5.031281076435459d9 0.8566679205528436d0))
EQUAL-OK: (-5873082155 0.5244045303768723d0)
(MULTIPLE-VALUE-LIST (FLOOR -9.504293159523993d9 -0.17779074115973026d0))
EQUAL-OK: (53457750935 -0.058079864158457416d0)
(MULTIPLE-VALUE-LIST (FLOOR 5.593337221858664d8 0.6365106532159245d0))
EQUAL-OK: (878749977 0.3121177083383602d0)
(MULTIPLE-VALUE-LIST (FLOOR -9.849085830660753d9 5.465582064164139d9))
EQUAL-OK: (-2 1.0820782976675239d9)
(MULTIPLE-VALUE-LIST (FLOOR 6.254242990207708d9 1.9986128256161973d9))
EQUAL-OK: (3 2.5840451335911673d8)
(MULTIPLE-VALUE-LIST (FLOOR -9.644949290710447d9 3.677515142398587d9))
EQUAL-OK: (-3 1.3875961364853137d9)
(MULTIPLE-VALUE-LIST (FLOOR 9.966654669106707d9 3.622741134738514d9))
EQUAL-OK: (2 2.7211723996296782d9)
(MULTIPLE-VALUE-LIST (FLOOR -7.024110605080818d9 -1.3131548351819434d9))
EQUAL-OK: (5 -4.583364291711011d8)
(MULTIPLE-VALUE-LIST (FLOOR -4.5982831731090415d8 -4.587607917895467d9))
EQUAL-OK: (0 -4.5982831731090415d8)
(MULTIPLE-VALUE-LIST (FLOOR 6.779683583609543d9 -8.732134194560264d-11))
EQUAL-OK: (-77640625218895380480 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR 3.040910010354103d8 -6.386892985922651d-11))
EQUAL-OK: (-4761172634419539968 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR -9.081490496057175d9 -8.389512916135551d-11))
EQUAL-OK: (108248125807050637312 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR -2.3391140718625803d9 4.078343101769488d-11))
EQUAL-OK: (-57354519065541566464 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR 9.740679130260033d9 -4.1307299498162d-11))
EQUAL-OK: (-235810117064018001920 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR 4.630742761978566d9 -8.36053471494181d-11))
EQUAL-OK: (-55388117146413842432 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR 6.607827158404311d8 1.9791074337467208d19))
EQUAL-OK: (0 6.607827158404311d8)
(MULTIPLE-VALUE-LIST (FLOOR 1.5835379695092866d9 -5.599741962857091d19))
EQUAL-OK: (-1 -5.599741962698737d19)
(MULTIPLE-VALUE-LIST (FLOOR -9.972337740404726d9 -1.4833907125668299d19))
EQUAL-OK: (0 -9.972337740404726d9)
(MULTIPLE-VALUE-LIST (FLOOR -2.8545208802037845d9 5.460276762513134d19))
EQUAL-OK: (-1 5.4602767622276825d19)
(MULTIPLE-VALUE-LIST (FLOOR 3.4574292483978963d9 8.177006210253868d19))
EQUAL-OK: (0 3.4574292483978963d9)
(MULTIPLE-VALUE-LIST (FLOOR -6.94800692720856d9 5.400944544004402d19))
EQUAL-OK: (-1 5.400944543309601d19)
(MULTIPLE-VALUE-LIST (FLOOR 2.2301147741459103d9 4.352417825189536d-22))
EQUAL-OK: (5123852680777023531125296857088 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR 2.855798499915275d9 -2.1597757039453335d-21))
EQUAL-OK: (-1322266240285272897749142994944 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR 6.247757812861889d9 -8.000803060408911d-21))
EQUAL-OK: (-780891338743010366964468023296 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR -8.41352264607702d8 2.4583479152659926d-21))
EQUAL-OK: (-342242958933120698647142465536 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR 9.08798064415713d9 -4.6826703076651156d-21))
EQUAL-OK: (-1940768844921862497464005689344 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR -2.450923950975804d9 -8.516681149015905d-21))
EQUAL-OK: (287779230910741073293637320704 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR -6.535114995775952d-11 -0.4217447234387455d0))
EQUAL-OK: (0 -6.535114995775952d-11)
(MULTIPLE-VALUE-LIST (FLOOR 6.91351782048677d-13 -0.8578740601420116d0))
EQUAL-OK: (-1 -0.8578740601413203d0)
(MULTIPLE-VALUE-LIST (FLOOR -9.879448244992307d-11 -0.6016918305263045d0))
EQUAL-OK: (0 -9.879448244992307d-11)
(MULTIPLE-VALUE-LIST (FLOOR 7.820572196574365d-11 -0.8508242256358738d0))
EQUAL-OK: (-1 -0.8508242255576681d0)
(MULTIPLE-VALUE-LIST (FLOOR -4.4420680878896835d-11 0.6509799475016377d0))
EQUAL-OK: (-1 0.650979947457217d0)
(MULTIPLE-VALUE-LIST (FLOOR -8.35377304874932d-11 -0.7623592484047194d0))
EQUAL-OK: (0 -8.35377304874932d-11)
(MULTIPLE-VALUE-LIST (FLOOR -4.697219220983554d-11 -2.0199834401398075d9))
EQUAL-OK: (0 -4.697219220983554d-11)
(MULTIPLE-VALUE-LIST (FLOOR 4.027899822164905d-11 -3.0043885624092436d8))
EQUAL-OK: (-1 -3.0043885624092436d8)
(MULTIPLE-VALUE-LIST (FLOOR -9.473748837497406d-11 -6.081705720880249d8))
EQUAL-OK: (0 -9.473748837497406d-11)
(MULTIPLE-VALUE-LIST (FLOOR -6.257060775257221d-11 4.479345462936419d9))
EQUAL-OK: (-1 4.479345462936419d9)
(MULTIPLE-VALUE-LIST (FLOOR -4.076402998599221d-11 3.0379052042471523d9))
EQUAL-OK: (-1 3.0379052042471523d9)
(MULTIPLE-VALUE-LIST (FLOOR 3.2516054170046405d-11 9.075782126517027d9))
EQUAL-OK: (0 3.2516054170046405d-11)
(MULTIPLE-VALUE-LIST (FLOOR 7.77186165285192d-12 -7.011585244893556d-11))
EQUAL-OK: (-1 -6.234399079608364d-11)
(MULTIPLE-VALUE-LIST (FLOOR -4.129939073543463d-11 -4.398862671531905d-11))
EQUAL-OK: (0 -4.129939073543463d-11)
(MULTIPLE-VALUE-LIST (FLOOR -4.986332353670153d-11 4.056354917830567d-11))
EQUAL-OK: (-2 3.126377481990981d-11)
(MULTIPLE-VALUE-LIST (FLOOR -6.358815251785654d-11 3.044610839789864d-11))
EQUAL-OK: (-3 2.7750172675839383d-11)
(MULTIPLE-VALUE-LIST (FLOOR -1.5218538547762808d-11 -4.9239841620755075d-11))
EQUAL-OK: (0 -1.5218538547762808d-11)
(MULTIPLE-VALUE-LIST (FLOOR -3.714719523899548d-11 -3.338962509681127d-11))
EQUAL-OK: (1 -3.757570142184203d-12)
(MULTIPLE-VALUE-LIST (FLOOR -3.7559900032627426d-11 -7.103620895893612d19))
EQUAL-OK: (0 -3.7559900032627426d-11)
(MULTIPLE-VALUE-LIST (FLOOR 3.442771371655891d-11 3.2650979291930292d19))
EQUAL-OK: (0 3.442771371655891d-11)
(MULTIPLE-VALUE-LIST (FLOOR -8.026236668129701d-11 -7.030175018925641d19))
EQUAL-OK: (0 -8.026236668129701d-11)
(MULTIPLE-VALUE-LIST (FLOOR 4.0245932625540036d-11 9.919022649131396d19))
EQUAL-OK: (0 4.0245932625540036d-11)
(MULTIPLE-VALUE-LIST (FLOOR 6.558019989897738d-11 9.805879474847002d19))
EQUAL-OK: (0 6.558019989897738d-11)
(MULTIPLE-VALUE-LIST (FLOOR -8.950419173616613d-11 7.8967335533488d19))
EQUAL-OK: (-1 7.8967335533488d19)
(MULTIPLE-VALUE-LIST (FLOOR -4.2555105814142415d-11 -7.367149245343951d-22))
EQUAL-OK: (57763327980 -5.012024424412273d-22)
(MULTIPLE-VALUE-LIST (FLOOR -7.125466497249949d-11 -9.625683307253578d-21))
EQUAL-OK: (7402556545 -6.2922712544984485d-21)
(MULTIPLE-VALUE-LIST (FLOOR 8.076311292972551d-11 5.7198456178965606d-21))
EQUAL-OK: (14119806429 1.262169607592943d-21)
(MULTIPLE-VALUE-LIST (FLOOR -7.024787982764915d-11 1.5125149703168537d-21))
EQUAL-OK: (-46444419531 6.648179051963393d-22)
(MULTIPLE-VALUE-LIST (FLOOR 2.3153240875994985d-11 -1.5025822462858028d-21))
EQUAL-OK: (-15408967419 -1.3907844732195436d-21)
(MULTIPLE-VALUE-LIST (FLOOR 9.445189938981536d-11 -1.8886893988697117d-21))
EQUAL-OK: (-50009228329 -8.218058303553574d-22)
(MULTIPLE-VALUE-LIST (FLOOR -8.982223463756733d19 0.20677548795071854d0))
EQUAL-OK: (-434394983311440412672 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR -2.6872844858317455d19 0.00946240694180256d0))
EQUAL-OK: (-2839958693765316083712 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR -9.566658458393646d19 -0.38847162936974444d0))
EQUAL-OK: (246264018659858710528 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR -4.235085548018657d19 -0.06527446136754045d0))
EQUAL-OK: (648812025299173376000 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR 2.8443413501845017d19 -0.04996947402848739d0))
EQUAL-OK: (-569215787335074643968 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR -4.484750058861429d19 -0.2338784192921971d0))
EQUAL-OK: (191755616975433072640 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR -2.986802109112903d19 5.923385648786668d9))
EQUAL-OK: (-5042390090 3.561083576852057d9)
(MULTIPLE-VALUE-LIST (FLOOR 8.088567504347222d18 9.070536452627407d9))
EQUAL-OK: (891740807 8.158341046664973d9)
(MULTIPLE-VALUE-LIST (FLOOR -3.09688480137261d19 -6.508291621550677d9))
EQUAL-OK: (4758368219 -1.75538588669977d9)
(MULTIPLE-VALUE-LIST (FLOOR 4.226418080435591d19 7.892147197133178d9))
EQUAL-OK: (5355219530 6.335538696917366d8)
(MULTIPLE-VALUE-LIST (FLOOR 1.4013831972690205d19 -2.4924246236187544d9))
EQUAL-OK: (-5622570023 -6.556610185422871d8)
(MULTIPLE-VALUE-LIST (FLOOR 6.1838203826708914d19 8.941814127664919d9))
EQUAL-OK: (6915621700 8.062833976289089d9)
(MULTIPLE-VALUE-LIST (FLOOR -6.916774706038343d18 3.120694095597196d-11))
EQUAL-OK: (-221642189018039718512504602624 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR 9.435687674071892d19 -3.149833308668829d-11))
EQUAL-OK: (-2995614926067172775889444274176 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR -6.212546775235241d19 3.239266009361982d-11))
EQUAL-OK: (-1917887187183768183263136317440 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR 4.749482734068419d19 -5.5235623432819116d-11))
EQUAL-OK: (-859858627258009608103722483712 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR 3.0587261660909548d19 4.4929685621578874d-11))
EQUAL-OK: (680780674018761986414328414208 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR 4.141754743467259d19 5.235000122629564d-11))
EQUAL-OK: (791166121575339566219965497344 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR -1.2481803107227873d19 7.39878580568375d18))
EQUAL-OK: (-2 2.3157685041396265d18)
(MULTIPLE-VALUE-LIST (FLOOR -1.5884453212818639d19 -8.336283910718495d19))
EQUAL-OK: (0 -1.5884453212818639d19)
(MULTIPLE-VALUE-LIST (FLOOR 5.000368279611168d19 -5.031778160332162d19))
EQUAL-OK: (-1 -3.140988072099368d17)
(MULTIPLE-VALUE-LIST (FLOOR -3.6360612893747024d19 4.7875734964388405d19))
EQUAL-OK: (-1 1.1515122070641383d19)
(MULTIPLE-VALUE-LIST (FLOOR 2.357251757890727d19 -4.493498319637942d19))
EQUAL-OK: (-1 -2.136246561747215d19)
(MULTIPLE-VALUE-LIST (FLOOR 5.0747068626287395d19 8.591364094011977d19))
EQUAL-OK: (0 5.0747068626287395d19)
(MULTIPLE-VALUE-LIST (FLOOR 2.1440483442615423d19 9.668454918695627d-21))
EQUAL-OK: (2217570813838780736509865871750106972160 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR 8.818664212173065d19 -8.186497379734964d-21))
EQUAL-OK: (-10772206724212702608743560617665161592832 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR -7.376250633760416d19 -6.382238421048869d-21))
EQUAL-OK: (11557466435965877316178494055246213414912 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR -4.374244855009332d19 3.864539687646209d-21))
EQUAL-OK: (-11318928536282082575630148538694692241408 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR 7.578656580690454d19 9.103502086399884d-22))
EQUAL-OK: (83249902166909342613269419960118328426496 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR 5.759312769216988d19 -9.830658049049094d-21))
EQUAL-OK: (-5858522125865295462884970652182979280896 0.0d0)
(MULTIPLE-VALUE-LIST (FLOOR -7.091696063135083d-21 0.3220521420236615d0))
EQUAL-OK: (-1 0.3220521420236615d0)
(MULTIPLE-VALUE-LIST (FLOOR -7.472975994693659d-21 -0.06404310380828848d0))
EQUAL-OK: (0 -7.472975994693657d-21)
(MULTIPLE-VALUE-LIST (FLOOR 2.2994935284804662d-21 0.8294627436562217d0))
EQUAL-OK: (0 2.2994935284804662d-21)
(MULTIPLE-VALUE-LIST (FLOOR -6.098532726052559d-21 -0.5103342535054871d0))
EQUAL-OK: (0 -6.098532726052559d-21)
(MULTIPLE-VALUE-LIST (FLOOR -7.8237727943808d-21 0.20193503990844952d0))
EQUAL-OK: (-1 0.20193503990844952d0)
(MULTIPLE-VALUE-LIST (FLOOR -5.357065560054238d-21 0.535324456368991d0))
EQUAL-OK: (-1 0.535324456368991d0)
(MULTIPLE-VALUE-LIST (FLOOR 8.67862366495009d-23 5.869284875063336d9))
EQUAL-OK: (0 8.67862366495009d-23)
(MULTIPLE-VALUE-LIST (FLOOR -3.913399519946995d-21 4.645302733766437d9))
EQUAL-OK: (-1 4.645302733766437d9)
(MULTIPLE-VALUE-LIST (FLOOR 6.256033435453117d-21 3.5904533516671333d9))
EQUAL-OK: (0 6.2560334354531166d-21)
(MULTIPLE-VALUE-LIST (FLOOR -7.970558626381476d-21 4.548434922363557d9))
EQUAL-OK: (-1 4.548434922363557d9)
(MULTIPLE-VALUE-LIST (FLOOR 7.442840440717647d-21 -3.3266294818989463d9))
EQUAL-OK: (-1 -3.3266294818989463d9)
(MULTIPLE-VALUE-LIST (FLOOR -4.6732789449833775d-21 5.614289998802058d8))
EQUAL-OK: (-1 5.614289998802058d8)
(MULTIPLE-VALUE-LIST (FLOOR 7.136201304639634d-21 -1.152382297069954d-12))
EQUAL-OK: (-1 -1.1523822899337527d-12)
(MULTIPLE-VALUE-LIST (FLOOR -7.575364316308001d-21 -4.790622052171537d-11))
EQUAL-OK: (0 -7.575364316308001d-21)
(MULTIPLE-VALUE-LIST (FLOOR 9.212759331893804d-21 -6.41398602124991d-11))
EQUAL-OK: (-1 -6.413986020328634d-11)
(MULTIPLE-VALUE-LIST (FLOOR -1.9103188467401064d-21 -5.1860189481412404d-11))
EQUAL-OK: (0 -1.9103188467401064d-21)
(MULTIPLE-VALUE-LIST (FLOOR -4.473075242507236d-21 2.3036197131739102d-11))
EQUAL-OK: (-1 2.303619712726603d-11)
(MULTIPLE-VALUE-LIST (FLOOR 5.138595152941494d-21 2.9424719822474346d-11))
EQUAL-OK: (0 5.138595152941494d-21)
(MULTIPLE-VALUE-LIST (FLOOR -5.137698996313833d-22 2.2468745456943227d19))
EQUAL-OK: (-1 2.2468745456943227d19)
(MULTIPLE-VALUE-LIST (FLOOR -7.229848882029144d-21 -3.031606285079872d19))
EQUAL-OK: (0 -7.229848882029144d-21)
(MULTIPLE-VALUE-LIST (FLOOR -6.85451854164106d-21 1.7676693722776926d19))
EQUAL-OK: (-1 1.7676693722776926d19)
(MULTIPLE-VALUE-LIST (FLOOR 5.372223270507929d-21 -7.439745956384552d19))
EQUAL-OK: (-1 -7.439745956384552d19)
(MULTIPLE-VALUE-LIST (FLOOR 5.598138480271164d-21 5.149401801116799d19))
EQUAL-OK: (0 5.598138480271163d-21)
(MULTIPLE-VALUE-LIST (FLOOR 9.285618896860432d-21 6.546424273112694d19))
EQUAL-OK: (0 9.285618896860432d-21)
(MULTIPLE-VALUE-LIST (FLOOR 7.511556502656318d-21 4.2351039143592516d-21))
EQUAL-OK: (1 3.2764525882970666d-21)
(MULTIPLE-VALUE-LIST (FLOOR 6.050106800286075d-21 -1.187392681676287d-21))
EQUAL-OK: (-6 -1.0742492897716469d-21)
(MULTIPLE-VALUE-LIST (FLOOR 4.274671258683056d-21 8.647095729321104d-21))
EQUAL-OK: (0 4.274671258683056d-21)
(MULTIPLE-VALUE-LIST (FLOOR 7.344809600387072d-21 6.305446958850813d-21))
EQUAL-OK: (1 1.039362641536258d-21)
(MULTIPLE-VALUE-LIST (FLOOR 9.753544125648588d-21 9.227661371269332d-21))
EQUAL-OK: (1 5.258827543792571d-22)
(MULTIPLE-VALUE-LIST (FLOOR -7.227362780459908d-21 -6.70179577363263d-21))
EQUAL-OK: (1 -5.255670068272766d-22)
(/ -0.651381628953465d0 -0.9237050214744277d0)
EQL-OK: 0.7051835962889135d0
(/ 0.5067986732438687d0 0.6260017267692811d0)
EQL-OK: 0.8095803119575966d0
(/ -0.8399445051045212d0 0.1829250718359493d0)
EQL-OK: -4.591740742120902d0
(/ -0.5987041550692662d0 -0.4124053212463479d0)
EQL-OK: 1.4517372211878756d0
(/ 0.5861382519823647d0 -0.7560374696447822d0)
EQL-OK: -0.7752767230673855d0
(/ -0.012882644582824954d0 -0.4671067448591679d0)
EQL-OK: 0.02757965866390787d0
(/ -0.7830198970435231d0 2.1690164135025935d9)
EQL-OK: -3.610022921767931d-10
(/ -0.2339206226652567d0 2.729373380002701d9)
EQL-OK: -8.57048817062271d-11
(/ -0.2285806315782951d0 -2.602073870582813d9)
EQL-OK: 8.784555817667759d-11
(/ -0.5298716781559242d0 1.3509547453340487d9)
EQL-OK: -3.9222015392151683d-10
(/ 0.7287190523338418d0 -8.244205871151566d9)
EQL-OK: -8.839166121309548d-11
(/ 0.18973054487786212d0 6.557593452200545d9)
EQL-OK: 2.893295326415727d-11
(/ 0.5084032300982587d0 4.5431682148621014d-11)
EQL-OK: 1.119049980221105d10
(/ 0.6621212705475221d0 -1.838873437953206d-11)
EQL-OK: -3.600689731450519d10
(/ -0.4041791750277005d0 7.707875701307648d-11)
EQL-OK: -5.243716825365141d9
(/ -0.09569063343466655d0 4.789751448902253d-11)
EQL-OK: -1.9978204392338054d9
(/ -0.6471008513340974d0 1.890250884404079d-11)
EQL-OK: -3.4233596009563705d10
(/ -0.4301276572683971d0 9.134844738134672d-11)
EQL-OK: -4.708647706651978d9
(/ -0.5061027989171409d0 4.246468515299164d19)
EQL-OK: -1.1918204434902915d-20
(/ -0.9601783702217944d0 7.495754288877955d19)
EQL-OK: -1.2809629734615065d-20
(/ -0.6477754868655262d0 -8.507334914535449d19)
EQL-OK: 7.614317449272521d-21
(/ 0.1934462826116784d0 3.6173521417193476d19)
EQL-OK: 5.347731573618163d-21
(/ -0.7794308505212441d0 4.172217291786081d19)
EQL-OK: -1.8681453913144062d-20
(/ -0.8462346361305484d0 7.378170819620111d19)
EQL-OK: -1.1469436759043748d-20
(/ 0.9783005897625496d0 6.175045007596078d-21)
EQL-OK: 1.584280905740958d20
(/ -0.9700832605850568d0 -1.7695051741124812d-21)
EQL-OK: 5.482229013948009d20
(/ 0.07062591404368701d0 -8.855398515753737d-21)
EQL-OK: -7.975464223100028d18
(/ 0.4751383409805402d0 -8.1371029771106d-21)
EQL-OK: -5.8391585103087485d19
(/ -0.5103510786836052d0 8.302178001281015d-21)
EQL-OK: -6.14719509271975d19
(/ 0.7148807879199733d0 4.338856119331781d-21)
EQL-OK: 1.6476250151158982d20
(/ 4.180670608983218d9 -0.8621420131862095d0)
EQL-OK: -4.849167010818503d9
(/ 3.202209376555907d9 0.008113117870009012d0)
EQL-OK: 3.9469528581523615d11
(/ 7.767843042272955d9 -0.04145956871894663d0)
EQL-OK: -1.8735947532235483d11
(/ 1.1937839884817846d9 0.45557753834605563d0)
EQL-OK: 2.6203749921818776d9
(/ -2.4205138097471213d9 -0.3737757916008485d0)
EQL-OK: 6.475844247109412d9
(/ -7.534066568550288d9 -0.3609372553147958d0)
EQL-OK: 2.0873618496321087d10
(/ 6.098867840095913d9 3.0464612528039427d9)
EQL-OK: 2.0019515542771322d0
(/ 4.956687716396978d9 7.035407926465974d9)
EQL-OK: 0.704534515724495d0
(/ 6.969049109639194d9 -8.115758334653503d9)
EQL-OK: -0.8587058438990264d0
(/ -8.0699835500126705d9 -1.1896420666819375d9)
EQL-OK: 6.783539163608158d0
(/ -2.229793060172571d9 -2.658809828346301d9)
EQL-OK: 0.8386433043838396d0
(/ 3.0672739776038485d9 -7.988270854370873d9)
EQL-OK: -0.3839722054398737d0
(/ 2.477055391151669d9 -1.3522358047779648d-11)
EQL-OK: -1.8318220700851785d20
(/ 1.1318646612469008d9 -8.457695758685169d-11)
EQL-OK: -1.3382659929385544d19
(/ -7.978772126259147d9 6.210468872769038d-11)
EQL-OK: -1.2847294286013678d20
(/ -9.057338243339752d9 7.364415429198257d-11)
EQL-OK: -1.2298787772658011d20
(/ -5.341117220720213d9 4.7359651161519756d-11)
EQL-OK: -1.1277779902779204d20
(/ 5.838003830912871d9 -5.0625478501901024d-11)
EQL-OK: -1.153175042225754d20
(/ 6.407156672927742d9 5.006339136594536d19)
EQL-OK: 1.279808758079079d-10
(/ 4.687485139826675d8 -3.5561755068968083d19)
EQL-OK: -1.3181253655045475d-11
(/ -5.838044723576891d9 -6.843985743599882d19)
EQL-OK: 8.530182473036721d-11
(/ 3.9279221543350096d9 -5.882918042982924d19)
EQL-OK: -6.67682623765291d-11
(/ -9.686323716926361d9 -3.44800215666902d19)
EQL-OK: 2.8092568614527606d-10
(/ 7.301304808910639d9 1.2845297359643038d19)
EQL-OK: 5.684029419085038d-10
(/ 4.380345662298534d9 -4.352751895415198d-21)
EQL-OK: -1.0063393842668593d30
(/ 8.239490918139045d9 3.2397577733346748d-21)
EQL-OK: 2.5432428886984834d30
(/ 3.8980499504872713d9 8.311650110069505d-21)
EQL-OK: 4.689862901910189d29
(/ -9.425472285331268d9 -3.294031046828316d-21)
EQL-OK: 2.861379310436876d30
(/ 2.517833161624173d9 3.6891560299469316d-21)
EQL-OK: 6.824957093669991d29
(/ -5.463519676339016d9 -7.298583081866205d-22)
EQL-OK: 7.485726496576409d30
(/ 1.39357009199772d-11 0.417842407627649d0)
EQL-OK: 3.335157146709649d-11
(/ 8.58494900746665d-11 -0.6481371063028898d0)
EQL-OK: -1.3245575548724563d-10
(/ -9.310282234439046d-11 0.9146343299129254d0)
EQL-OK: -1.0179239866631073d-10
(/ -8.800556770159418d-11 -0.9305573406536135d0)
EQL-OK: 9.45729659601417d-11
(/ -1.3361456473382827d-11 0.06420301636905124d0)
EQL-OK: -2.081125970247039d-10
(/ 6.1406425153971765d-12 -0.3082496074575478d0)
EQL-OK: -1.992100676476244d-11
(/ -3.6962256202372035d-11 3.089420488573177d9)
EQL-OK: -1.1964139015418631d-20
(/ -6.145126590884831d-11 -6.225608984106817d9)
EQL-OK: 9.870723661849874d-21
(/ 9.052281678541901d-11 -6.9187138778508625d9)
EQL-OK: -1.3083763598782874d-20
(/ -3.4950245360118636d-11 7.543342567738434d9)
EQL-OK: -4.633257080169575d-21
(/ -3.482822570743636d-11 -3.87599225187502d9)
EQL-OK: 8.985628309909062d-21
(/ -9.42226868788213d-11 7.501937454180854d9)
EQL-OK: -1.2559780383974101d-20
(/ -4.8165035309367155d-11 9.484620130429997d-11)
EQL-OK: -0.5078225026096383d0
(/ 6.880022773725747d-11 -9.699156104509544d-11)
EQL-OK: -0.7093424107822056d0
(/ 1.5817962388036865d-11 -7.11651152335492d-11)
EQL-OK: -0.22227129593095693d0
(/ -7.0140750853949335d-12 -4.4677941652531186d-11)
EQL-OK: 0.15699190307254357d0
(/ -2.6947489262085355d-11 8.365454450205894d-11)
EQL-OK: -0.3221282169723859d0
(/ 8.703167674410303d-11 -4.88739813223768d-11)
EQL-OK: -1.7807363834354917d0
(/ 1.165112061543483d-12 -5.899528740399518d19)
EQL-OK: -1.9749239520860124d-32
(/ 7.126386981630328d-12 5.091741402945837d19)
EQL-OK: 1.3995971942933598d-31
(/ -7.132349854872655d-13 7.70347159367981d19)
EQL-OK: -9.258617712985763d-33
(/ 4.507266517270466d-11 -1.6192737232544485d19)
EQL-OK: -2.7835111831566513d-30
(/ -3.025128309814261d-11 -5.606736896306867d19)
EQL-OK: 5.395523930874836d-31
(/ -5.390258677516223d-11 6.628750121976767d18)
EQL-OK: -8.131636550373976d-30
(/ -8.484515181627938d-11 6.226893371743352d-21)
EQL-OK: -1.3625598954575508d10
(/ 5.110456708789676d-11 -7.434814854731122d-21)
EQL-OK: -6.873683889434922d9
(/ -7.784815533665352d-11 -8.942884975553875d-21)
EQL-OK: 8.705038200698988d9
(/ 6.06871371776654d-11 -8.4720755768444d-21)
EQL-OK: -7.163195916657484d9
(/ 6.395725883763629d-11 3.2465500186809204d-21)
EQL-OK: 1.970006883295217d10
(/ 8.23766365482318d-11 3.5665958051648335d-21)
EQL-OK: 2.3096712116618633d10
(/ -6.882125490660233d19 0.680553203393516d0)
EQL-OK: -1.0112545876418106d20
(/ -8.955858402134752d19 0.11144092291315044d0)
EQL-OK: -8.03641801236189d20
(/ 4.517225460957592d19 -0.5804969398143229d0)
EQL-OK: -7.781652496570381d19
(/ -9.741926397385082d19 -0.9037000739789977d0)
EQL-OK: 1.0780043819728059d20
(/ 9.654390326446178d19 -0.061963385089831124d0)
EQL-OK: -1.558079874501655d21
(/ 9.50855454738802d19 0.30375471599023185d0)
EQL-OK: 3.130339727036138d20
(/ 4.323538184184934d19 -2.6027608151521606d9)
EQL-OK: -1.661135421670383d10
(/ 4.0554081767557594d17 4.814123702784068d9)
EQL-OK: 8.423979995384136d7
(/ 5.12727309625028d19 1.761988796449604d9)
EQL-OK: 2.9099351293162037d10
(/ -7.335661993746345d19 -4.961351435504d9)
EQL-OK: 1.4785612527368061d10
(/ 3.7135994768593306d18 3.273427798269768d8)
EQL-OK: 1.1344681189614824d10
(/ 1.3911083524706402d19 8.651242909451927d9)
EQL-OK: 1.6079866985942366d9
(/ 6.473382688386894d19 -3.700509647679497d-11)
EQL-OK: -1.7493219325738552d30
(/ 7.25328632809461d19 6.793518758100849d-11)
EQL-OK: 1.0676773828651782d30
(/ 7.053090091571119d19 8.009021819073383d-11)
EQL-OK: 8.806431360661643d29
(/ -1.6322872380348074d19 -1.234889420758779d-11)
EQL-OK: 1.3218084231637898d30
(/ -7.716951191497702d19 -2.473367210466666d-11)
EQL-OK: 3.12001839388891d30
(/ -2.1174708383466066d19 -9.66632270128099d-11)
EQL-OK: 2.1905650202077337d29
(/ 4.0902039392392786d18 -5.029423690873208d19)
EQL-OK: -0.08132549951322827d0
(/ 1.4562115759233494d17 4.2665150414889705d19)
EQL-OK: 0.0034131171735308037d0
(/ -3.309692589578652d19 1.1329455009949342d19)
EQL-OK: -2.9213166799922274d0
(/ 3.059130103268258d19 -7.719433592654628d19)
EQL-OK: -0.3962894513632647d0
(/ 5.622979366632147d19 -8.407251901594788d19)
EQL-OK: -0.6688248945610293d0
(/ -7.457587910839625d18 1.102755747735572d19)
EQL-OK: -0.6762683328700153d0
(/ 1.2026615920578564d19 -3.77964792582931d-21)
EQL-OK: -3.1819407935832407d39
(/ -2.74643694419756d19 2.538907641816601d-22)
EQL-OK: -1.0817396028760112d41
(/ 8.267361397156658d18 -4.986401395715489d-21)
EQL-OK: -1.6579815263689556d39
(/ 9.876393891158812d19 -5.792612775193684d-22)
EQL-OK: -1.7049981199250076d41
(/ 3.927461252713038d17 4.810589424292295d-21)
EQL-OK: 8.164199656866003d37
(/ 7.29943837795987d19 -4.8820727437034755d-21)
EQL-OK: -1.4951514983823475d40
(/ -7.837850970911807d-21 0.41514160181315674d0)
EQL-OK: -1.8879945870708947d-20
(/ 1.1499234744049124d-21 0.4643166529612681d0)
EQL-OK: 2.4765932194571437d-21
(/ -1.094368243984769d-21 0.9008053219044149d0)
EQL-OK: -1.2148776404552516d-21
(/ 2.4821206327531197d-21 0.22988631081892086d0)
EQL-OK: 1.0797165885654937d-20
(/ -4.56226662576732d-22 0.6695285124602162d0)
EQL-OK: -6.814148375851899d-22
(/ 6.442796853653397d-21 -0.0419134640377401d0)
EQL-OK: -1.5371663978553802d-19
(/ -5.584403218169678d-21 -8.092869169805251d9)
EQL-OK: 6.9003997235062955d-31
(/ -9.796722996869492d-21 -3.2988270899833827d9)
EQL-OK: 2.9697594719700335d-30
(/ 9.441829923771915d-22 5.464575083746736d9)
EQL-OK: 1.7278250877830762d-31
(/ -6.419360319610147d-21 -7.333962810289677d9)
EQL-OK: 8.752921831841952d-31
(/ 7.973734412555454d-21 -9.367577614661436d9)
EQL-OK: -8.512055880994846d-31
(/ 8.105484193881594d-21 -8.664550975192905d9)
EQL-OK: -9.354765431108951d-31
(/ -5.3151708182942476d-21 -3.406928289732576d-11)
EQL-OK: 1.560106455516696d-10
(/ -7.026602845639829d-21 -9.92483846943868d-11)
EQL-OK: 7.079815824989677d-11
(/ -5.901970468193158d-21 2.074489043942647d-11)
EQL-OK: -2.8450236868815825d-10
(/ -6.40466723844613d-21 -2.551008177490094d-11)
EQL-OK: 2.510641594550906d-10
(/ 8.056066940872177d-21 4.645883100460603d-11)
EQL-OK: 1.7340227394170724d-10
(/ 7.453765056481805d-21 6.956136187014756d-11)
EQL-OK: 1.0715381148511711d-10
(/ 7.357434693258832d-21 -7.093525088486332d19)
EQL-OK: -1.0372042956753416d-40
(/ -3.3759558579798473d-21 9.991075630444324d19)
EQL-OK: -3.3789713769084054d-41
(/ 6.908026973557955d-21 -4.20805893397862d19)
EQL-OK: -1.6416183998227845d-40
(/ 5.181767322756247d-21 7.46986056263721d19)
EQL-OK: 6.936899664063931d-41
(/ -5.7217313601659264d-21 5.604979023134118d19)
EQL-OK: -1.0208301113260054d-40
(/ -9.340193892824771d-21 9.147101848766205d19)
EQL-OK: -1.021109641857176d-40
(/ 8.331002176099931d-21 2.0276444314093977d-21)
EQL-OK: 4.108709617449606d0
(/ -3.747505523684784d-21 4.394623185543803d-21)
EQL-OK: -0.8527478615259381d0
(/ -3.310403953328861d-21 2.3420390876737627d-21)
EQL-OK: -1.413470838617356d0
(/ 6.23845405853013d-21 -8.933620117412232d-21)
EQL-OK: -0.6983119918397873d0
(/ -4.276770609150315d-21 6.853299965034864d-21)
EQL-OK: -0.624045442483205d0
(/ -8.847946637724495d-21 6.33827952828724d-21)
EQL-OK: -1.3959539963860554d0
(+ 0.31465012912061093874L0 -0.07221963987249409544L0)
EQL-OK: 0.2424304892481168433L0
(+ 0.7168586654865411176L0 -0.19348808923554474066L0)
EQL-OK: 0.52337057625099637695L0
(+ -0.64115701400120904706L0 0.70535558267169594756L0)
EQL-OK: 0.0641985686704869005L0
(+ -0.8607621650923123159L0 0.8368256394262067108L0)
EQL-OK: -0.023936525666105605082L0
(+ 0.44168990042410450855L0 -0.6041911435521196045L0)
EQL-OK: -0.16250124312801509594L0
(+ 0.0234267775301613878L0 -0.43594485933986284478L0)
EQL-OK: -0.41251808180970145698L0
(+ -0.99559578594307881024L0 -9.836107054378142702L9)
EQL-OK: -9.836107055373738488L9
(+ -0.72423071295455899397L0 9.238843039595790172L9)
EQL-OK: 9.238843038871559459L9
(+ -0.20719390117857393156L0 -9.029224604657100362L9)
EQL-OK: -9.029224604864294263L9
(+ 0.20816015380514039224L0 -7.4782571284307568003L9)
EQL-OK: -7.4782571282225966468L9
(+ -0.16613875159201114463L0 -1.203554507952656804L9)
EQL-OK: -1.2035545081187955556L9
(+ -0.9837368636729942673L0 7.5892747601936916704L9)
EQL-OK: 7.5892747592099548066L9
(+ -0.92391870362276300936L0 -5.309205414965326826L-11)
EQL-OK: -0.9239187036758550635L0
(+ -0.2308075581152660786L0 -2.5400598439608570973L-11)
EQL-OK: -0.23080755814066667704L0
(+ 0.5668336039528930528L0 1.9300606943253841182L-12)
EQL-OK: 0.56683360395482311353L0
(+ -0.19685144163870526662L0 -8.548847281762266571L-11)
EQL-OK: -0.19685144172419373944L0
(+ 0.053837363417219887007L0 -8.4734948552444605444L-11)
EQL-OK: 0.053837363332484938454L0
(+ 0.24539562474220232599L0 -1.3753029433519360674L-11)
EQL-OK: 0.24539562472844929655L0
(+ -0.83198492765474177585L0 -1.0728971972413839207L19)
EQL-OK: -1.0728971972413839208L19
(+ 0.58494670591273850794L0 -2.6078285749436068966L19)
EQL-OK: -2.6078285749436068966L19
(+ -0.6489422625947265175L0 5.675479528094312524L19)
EQL-OK: 5.675479528094312524L19
(+ 0.82416783003308421654L0 3.4337105673864461624L19)
EQL-OK: 3.4337105673864461624L19
(+ 0.5977825969561704576L0 9.447212597358366985L19)
EQL-OK: 9.447212597358366985L19
(+ 0.81709616259702447027L0 1.8840697606071622024L19)
EQL-OK: 1.8840697606071622024L19
(+ 0.99140689029640294337L0 -7.9441986163714183364L-21)
EQL-OK: 0.99140689029640294337L0
(+ 0.49487318874207713882L0 -2.377409962381832069L-21)
EQL-OK: 0.49487318874207713882L0
(+ 0.050320977002567080524L0 -1.3329877923173878127L-21)
EQL-OK: 0.050320977002567080524L0
(+ -0.25724170819862546218L0 7.609825486664252559L-22)
EQL-OK: -0.25724170819862546218L0
(+ 0.3667308347763138993L0 4.077152141636570548L-21)
EQL-OK: 0.3667308347763138993L0
(+ 0.5130660492586603372L0 -5.091230019243679202L-21)
EQL-OK: 0.5130660492586603372L0
(+ 8.916053557053472733L8 0.59999700846599703845L0)
EQL-OK: 8.916053563053442818L8
(+ 1.250980635471676891L9 -0.46325398810664378442L0)
EQL-OK: 1.2509806350084229029L9
(+ -5.548594356609427516L9 -0.21577258386321002115L0)
EQL-OK: -5.5485943568252001L9
(+ 1.06508055885340104636L9 0.8422978396429581549L0)
EQL-OK: 1.065080559695698886L9
(+ 6.225756677310580186L9 0.49531151031004978726L0)
EQL-OK: 6.2257566778058916964L9
(+ -2.273191688409860673L9 -0.80983784631745405196L0)
EQL-OK: -2.2731916892196985192L9
(+ 5.688674258485728496L8 8.2409948814224157357L9)
EQL-OK: 8.809862307270988585L9
(+ -2.7544302700606018156L9 9.230174236450698873L9)
EQL-OK: 6.4757439663900970574L9
(+ -4.588747139238971857L9 6.342892129519977196L9)
EQL-OK: 1.7541449902810053392L9
(+ 1.5275587581475159762L9 4.3720035959575018324L9)
EQL-OK: 5.8995623541050178087L9
(+ 2.8881760807020099163L9 7.5622154923755766074L9)
EQL-OK: 1.0450391573077586524L10
(+ 6.1044519092512786468L9 1.3858854402983849103L9)
EQL-OK: 7.490337349549663557L9
(+ 4.8767035174458515886L9 6.3051681974292703475L-11)
EQL-OK: 4.8767035174458515886L9
(+ -9.4188975960705796466L8 -8.975187577611984141L-12)
EQL-OK: -9.4188975960705796466L8
(+ -9.689819354179956828L9 -9.7453604450079548966L-11)
EQL-OK: -9.689819354179956828L9
(+ 4.987209054002559248L9 9.284991248759031191L-11)
EQL-OK: 4.987209054002559248L9
(+ -3.5572071813296941216L9 -6.261737879308894803L-11)
EQL-OK: -3.5572071813296941216L9
(+ -7.5872628366112743053L9 2.2152240842834943001L-11)
EQL-OK: -7.5872628366112743053L9
(+ 7.0206128338340270845L9 5.9246012493594508704L19)
EQL-OK: 5.9246012500615121536L19
(+ 5.3017367315254228474L9 -1.0933628665004153848L19)
EQL-OK: -1.0933628659702417116L19
(+ -6.339538144593375358L9 -8.0543624921112893224L19)
EQL-OK: -8.054362492745243137L19
(+ -1.6010717980362600647L9 9.973849926670833376L19)
EQL-OK: 9.973849926510726196L19
(+ 3.2030522063397198562L9 -2.4396867565423101768L19)
EQL-OK: -2.4396867562220049562L19
(+ 8.8622195973163761245L9 -6.4961266512803550736L19)
EQL-OK: -6.496126650394133114L19
(+ 5.45529926142043848L9 6.939479435912862762L-21)
EQL-OK: 5.45529926142043848L9
(+ -4.484627189114150671L9 -1.6571134694524616111L-21)
EQL-OK: -4.484627189114150671L9
(+ 8.813820141949620774L9 -2.8267147580155665537L-21)
EQL-OK: 8.813820141949620774L9
(+ -9.972890003927356798L9 -3.0273462676816521264L-21)
EQL-OK: -9.972890003927356798L9
(+ 6.792889851253184185L9 -5.937539083879130763L-21)
EQL-OK: 6.792889851253184185L9
(+ -3.2663407400779399923L9 -4.0747082067253115984L-21)
EQL-OK: -3.2663407400779399923L9
(+ -3.4242541190221825202L-11 -0.71988400153646663195L0)
EQL-OK: -0.71988400157070917316L0
(+ -7.8906347145510431055L-11 -0.22021321631029436988L0)
EQL-OK: -0.22021321638920071702L0
(+ -7.486719858997914782L-11 0.38102237422222776873L0)
EQL-OK: 0.38102237414736057013L0
(+ -2.6956794925506179954L-12 -0.49627581161649902356L0)
EQL-OK: -0.49627581161919470304L0
(+ -8.312064814531952837L-11 0.5797009072836515581L0)
EQL-OK: 0.57970090720053090995L0
(+ -4.0305959593285763394L-11 0.16233584979062195143L0)
EQL-OK: 0.16233584975031599183L0
(+ 3.731977491280278192L-11 3.0305998235716452734L9)
EQL-OK: 3.0305998235716452734L9
(+ 2.7847304030282320388L-11 -6.146190065628934066L9)
EQL-OK: -6.146190065628934066L9
(+ -1.1797664511795163538L-11 1.4888590774768513251L9)
EQL-OK: 1.4888590774768513251L9
(+ -3.736849276790130025L-11 1.9988395869145483342L9)
EQL-OK: 1.9988395869145483342L9
(+ 5.7818526942690563386L-12 3.5155514714363584847L9)
EQL-OK: 3.5155514714363584847L9
(+ 1.8183862272066184134L-11 -4.635399960322760982L9)
EQL-OK: -4.635399960322760982L9
(+ 3.5539523819420841283L-11 4.3044646394847154864L-11)
EQL-OK: 7.858417021426799615L-11
(+ 8.719537619908441472L-11 -8.580989797275158101L-11)
EQL-OK: 1.3854782263328337111L-12
(+ 2.49701168436805957L-12 -2.6066406246366064513L-11)
EQL-OK: -2.3569394561998004944L-11
(+ 4.2774640500882048993L-11 3.7620100241760410496L-11)
EQL-OK: 8.039474074264245949L-11
(+ 3.9907211434460210612L-11 9.72066373418363098L-11)
EQL-OK: 1.3711384877629652041L-10
(+ -7.851637932849992129L-11 4.9296626910685147652L-11)
EQL-OK: -2.9219752417814773637L-11
(+ 3.14874349918113769L-11 -1.8148353890339025639L19)
EQL-OK: -1.8148353890339025639L19
(+ -8.444922682942673745L-11 -5.0034364072191331772L19)
EQL-OK: -5.0034364072191331772L19
(+ 4.762299619586316462L-12 -1.3412404578328588061L19)
EQL-OK: -1.3412404578328588061L19
(+ -9.22833351501850052L-12 3.1000370791158631634L19)
EQL-OK: 3.1000370791158631634L19
(+ 6.1164399913981911425L-11 6.1863455383782109436L19)
EQL-OK: 6.1863455383782109436L19
(+ -8.413645565754525347L-11 -2.5034082588556447364L19)
EQL-OK: -2.5034082588556447364L19
(+ 3.4875247204061292656L-11 -7.8682893445087250245L-21)
EQL-OK: 3.487524719619300331L-11
(+ -2.1647610944488691768L-11 -8.371089558230910183L-21)
EQL-OK: -2.1647610952859781326L-11
(+ 5.7598234760228848032L-11 2.8011007358408259187L-21)
EQL-OK: 5.7598234763029948767L-11
(+ -9.268425959344303144L-11 -6.4655012698265179856L-21)
EQL-OK: -9.2684259599908532713L-11
(+ 7.067467072298381137L-11 -3.8206328350148818058L-21)
EQL-OK: 7.0674670719163178536L-11
(+ 7.8912028748606542386L-11 8.456364925917236866L-21)
EQL-OK: 7.891202875706290731L-11
(+ -6.976183652817340798L18 0.08822040416435015717L0)
EQL-OK: -6.976183652817340798L18
(+ -1.2414457404200743984L19 -0.85791705029429396234L0)
EQL-OK: -1.2414457404200743985L19
(+ -8.9687515173878579424L19 -0.3328210335620137057L0)
EQL-OK: -8.9687515173878579424L19
(+ -5.438581645592863998L19 -0.67774278184358142436L0)
EQL-OK: -5.438581645592863998L19
(+ -5.4350840695201649084L19 -0.72739900682842943577L0)
EQL-OK: -5.4350840695201649084L19
(+ 7.814697448090367615L19 0.24326892882624165414L0)
EQL-OK: 7.814697448090367615L19
(+ -2.4356768540932142124L19 6.5169042447583127604L9)
EQL-OK: -2.435676853441523788L19
(+ -8.7464253032141704904L19 6.8315507162032823036L9)
EQL-OK: -8.7464253025310154184L19
(+ -2.4810334273518910993L18 -7.638114077520272164L9)
EQL-OK: -2.4810334349900051768L18
(+ -9.80334620432051716L19 4.474822777555302305L9)
EQL-OK: -9.8033462038730348824L19
(+ -1.5185085475715921137L19 8.496315073274781452L9)
EQL-OK: -1.5185085467219606064L19
(+ -9.3842548893937585184L19 -9.948865349103608366L9)
EQL-OK: -9.3842548903886450536L19
(+ 5.939125398081864389L19 5.6213951287112563564L-11)
EQL-OK: 5.939125398081864389L19
(+ -4.8270749631022207188L19 6.506986668488438766L-11)
EQL-OK: -4.8270749631022207188L19
(+ 8.953940231252599753L19 -1.7735448342981541823L-11)
EQL-OK: 8.953940231252599753L19
(+ -6.1065165153181616235L18 -1.8103764902203059955L-11)
EQL-OK: -6.1065165153181616235L18
(+ -9.622495547727516122L19 9.4659333494557267205L-11)
EQL-OK: -9.622495547727516122L19
(+ -9.2620034246522033504L19 -8.920063409062509698L-11)
EQL-OK: -9.2620034246522033504L19
(+ 5.9633456897700879935L18 4.0390945943970882336L19)
EQL-OK: 4.635429163374097033L19
(+ -6.1420542659063065884L19 -3.9869088703267959336L19)
EQL-OK: -1.0128963136233102522L20
(+ 7.804124970286546613L19 8.061318173712112305L19)
EQL-OK: 1.5865443143998658918L20
(+ -7.763817772329800516L19 -4.9349702057713961232L19)
EQL-OK: -1.2698787978101196639L20
(+ -3.1480955091040648274L19 -4.706529024129812914L19)
EQL-OK: -7.8546245332338777416L19
(+ -4.7131343507844737428L19 5.4602299451983202032L19)
EQL-OK: 7.470955944138464604L18
(+ 5.9403761194093478956L19 -6.280541343011718101L-21)
EQL-OK: 5.9403761194093478956L19
(+ -3.763295388652278206L19 -9.963494853851408371L-21)
EQL-OK: -3.763295388652278206L19
(+ 2.5136958358030666948L19 5.335607709622335287L-21)
EQL-OK: 2.5136958358030666948L19
(+ 6.2273952762016960176L19 -5.6012630121574213906L-21)
EQL-OK: 6.2273952762016960176L19
(+ -9.3934610912833028936L19 -2.59552531586503232L-21)
EQL-OK: -9.3934610912833028936L19
(+ 2.9584554660239488776L19 6.875837450751388893L-21)
EQL-OK: 2.9584554660239488776L19
(+ -8.4905558825256936576L-21 0.112912972443893420624L0)
EQL-OK: 0.11291297244389342062L0
(+ -5.3259362300699140443L-21 0.44064771529278198132L0)
EQL-OK: 0.44064771529278198132L0
(+ -9.245572241572266517L-21 0.043497459079983070442L0)
EQL-OK: 0.043497459079983070432L0
(+ 7.6311333407948593004L-22 0.74437178299084331024L0)
EQL-OK: 0.74437178299084331024L0
(+ -7.71114100404407176L-21 -0.30667849853816871164L0)
EQL-OK: -0.30667849853816871164L0
(+ 3.544120177696956032L-21 0.79322122717232419205L0)
EQL-OK: 0.79322122717232419205L0
(+ 7.7913861181291523115L-21 8.526554352243632931L9)
EQL-OK: 8.526554352243632931L9
(+ -3.9196632415032070805L-21 -2.5228304289307799614L9)
EQL-OK: -2.5228304289307799614L9
(+ 7.643174046933518012L-22 2.9248526891356128762L9)
EQL-OK: 2.9248526891356128762L9
(+ 1.8801815336593227227L-21 6.8178694125314363L9)
EQL-OK: 6.8178694125314363L9
(+ -2.6985037225367287349L-21 -4.5571976978858014136L9)
EQL-OK: -4.5571976978858014136L9
(+ 6.0444611510506986126L-21 -8.64585025875790907L9)
EQL-OK: -8.64585025875790907L9
(+ -1.250177749198396931L-21 6.428634063301101147L-11)
EQL-OK: 6.428634063176083372L-11
(+ -1.5666058964343815161L-21 3.552568414787808555L-11)
EQL-OK: 3.5525684146311479653L-11
(+ -5.8078119773790503857L-21 8.896395897015492877L-12)
EQL-OK: 8.8963958912076809L-12
(+ 6.7472260162031965506L-21 -6.617115409846031908L-11)
EQL-OK: -6.617115409171309306L-11
(+ -4.16121984125470857L-21 -3.095053467302410671L-11)
EQL-OK: -3.095053467718532655L-11
(+ -2.114411383443366621L-21 9.716046816037651671L-11)
EQL-OK: 9.716046815826210533L-11
(+ -2.3406730990296292957L-21 7.900725768498098123L18)
EQL-OK: 7.900725768498098123L18
(+ -4.1514248667302411754L-21 -8.4325334951006246184L19)
EQL-OK: -8.4325334951006246184L19
(+ 8.433933541545648577L-21 -4.9459088765496691632L19)
EQL-OK: -4.9459088765496691632L19
(+ 2.2922577085250648752L-21 7.813245819908182463L19)
EQL-OK: 7.813245819908182463L19
(+ 8.887270525300553388L-21 8.651116139112459977L19)
EQL-OK: 8.651116139112459977L19
(+ 1.1406539199130032192L-21 2.3931812472136783544L19)
EQL-OK: 2.3931812472136783544L19
(+ -3.778523001798117503L-21 2.0779948578933832532L-22)
EQL-OK: -3.5707235160087791776L-21
(+ -1.6066062689688361383L-21 -3.5232009896946632975L-21)
EQL-OK: -5.1298072586634994358L-21
(+ 3.9703618511174300454L-21 -8.036088455194107478L-21)
EQL-OK: -4.0657266040766774324L-21
(+ 6.46657477279861825L-21 2.6384883907642781157L-21)
EQL-OK: 9.105063163562896366L-21
(+ 4.9706631077050274314L-21 2.3628052244020145395L-21)
EQL-OK: 7.333468332107041971L-21
(+ 7.065951142271372955L-21 3.1965272324939519L-21)
EQL-OK: 1.02624783747653248544L-20
(- 0.3211111183819802968L0 -0.7024866236309383056L0)
EQL-OK: 1.0235977420129186024L0
(- -0.29770116676264721836L0 0.8494818768850108081L0)
EQL-OK: -1.1471830436476580264L0
(- -0.7677860965279355367L0 0.9474539728585997539L0)
EQL-OK: -1.7152400693865352905L0
(- -0.25414380069764370257L0 0.82619594943351718565L0)
EQL-OK: -1.0803397501311608883L0
(- 0.21685951051311267031L0 0.13084151170902027524L0)
EQL-OK: 0.08601799880409239507L0
(- -0.6658362643286463323L0 -0.101768362258000388376L0)
EQL-OK: -0.56406790207064594393L0
(- -0.8594165074009265017L0 3.58724520062188585L9)
EQL-OK: -3.5872452014813023575L9
(- -0.58779846333918551446L0 -2.8410824560251060135L9)
EQL-OK: 2.84108245543730755L9
(- 0.37819983918255152712L0 1.75837003745458279L9)
EQL-OK: -1.7583700370763829509L9
(- -0.19345242719447268632L0 -8.900743696911070234L9)
EQL-OK: 8.900743696717617807L9
(- 0.9170636757513836193L0 -5.181144559509726756L9)
EQL-OK: 5.1811445604267904316L9
(- 0.20643137049004858552L0 3.3215544303850617772L9)
EQL-OK: -3.3215544301786304067L9
(- -0.4014437452394343757L0 4.7898418688154180505L-11)
EQL-OK: -0.40144374528733279438L0
(- 0.0725076594551243524L0 -3.5321788599004111594L-11)
EQL-OK: 0.072507659490446140996L0
(- -0.65551702819898271043L0 3.1653130032883009534L-11)
EQL-OK: -0.6555170282306358405L0
(- 0.9237105409310637695L0 -8.9028024814928743296L-11)
EQL-OK: 0.9237105410200917943L0
(- 0.8779771368966066218L0 7.399233988536237696L-12)
EQL-OK: 0.8779771368892073878L0
(- 0.51385216558296334914L0 -3.3989256599054576304L-11)
EQL-OK: 0.51385216561695260575L0
(- 0.74939199427992763254L0 -6.6998781480191798724L19)
EQL-OK: 6.6998781480191798724L19
(- 0.8073774220299670944L0 2.0433771569275457978L18)
EQL-OK: -2.043377156927545797L18
(- -0.75286822781531276375L0 -7.7011647701976081504L19)
EQL-OK: 7.7011647701976081504L19
(- -0.6361916050116532222L0 1.2717052281488651182L19)
EQL-OK: -1.2717052281488651183L19
(- 0.08977643006115956575L0 1.2624046205072289204L19)
EQL-OK: -1.2624046205072289204L19
(- -0.4220171145412169327L0 8.9155115345908061576L19)
EQL-OK: -8.9155115345908061576L19
(- 0.397772867452284942L0 5.7785851646148710778L-21)
EQL-OK: 0.397772867452284942L0
(- -0.53062845978690011166L0 -3.648685738612220277L-21)
EQL-OK: -0.53062845978690011166L0
(- 0.25409096540159836552L0 -7.8088660109317384514L-21)
EQL-OK: 0.25409096540159836552L0
(- 0.78038095936361252965L0 5.166705522400390383L-21)
EQL-OK: 0.78038095936361252965L0
(- 0.2384997171475220939L0 9.580584601627251829L-21)
EQL-OK: 0.23849971714752209389L0
(- 0.38777493167494073L0 -7.930455614605653916L-22)
EQL-OK: 0.38777493167494073L0
(- 9.34906594120583919L8 -0.06276538462885111519L0)
EQL-OK: 9.349065941833493036L8
(- 3.8000098261497040978L9 0.08156195452126583918L0)
EQL-OK: 3.8000098260681421433L9
(- -8.5084000619874580647L9 -0.49084164337509169664L0)
EQL-OK: -8.5084000614966164213L9
(- -9.367354572017391158L9 0.7369625068937909906L0)
EQL-OK: -9.367354572754353665L9
(- 6.810025547716964613L9 -0.65456201729278556224L0)
EQL-OK: 6.8100255483715266306L9
(- -2.0476539871173359762L9 -0.61684944260168028793L0)
EQL-OK: -2.0476539865004865336L9
(- 7.927587886187347037L9 -9.075678068210342653L9)
EQL-OK: 1.700326595439768969L10
(- 8.3881162961959078424L9 -8.168276983460029623L9)
EQL-OK: 1.6556393279655937465L10
(- -9.837108887605194379L9 -5.518197215327419734L9)
EQL-OK: -4.3189116722777746445L9
(- 6.0530403690423784372L9 -4.794777582812792957L9)
EQL-OK: 1.0847817951855171394L10
(- -7.6786817362598780694L8 3.0685743382723052597L9)
EQL-OK: -3.8364425118982930668L9
(- -1.035869943077157163L9 6.964469962306024778L8)
EQL-OK: -1.7323169393077596407L9
(- -5.236689202734255992L9 -3.2118444581504684365L-12)
EQL-OK: -5.236689202734255992L9
(- -5.374622629137047618L9 6.0449117144963868685L-11)
EQL-OK: -5.374622629137047618L9
(- -1.03444332932187716727L9 -7.849504746710041045L-11)
EQL-OK: -1.0344433293218771672L9
(- 5.1103879354813158946L8 6.53093826849017485L-11)
EQL-OK: 5.110387935481315894L8
(- -9.748335199611953219L9 -1.0598402609119659922L-11)
EQL-OK: -9.748335199611953219L9
(- -7.3482164921795502603L9 7.644598674874161005L-11)
EQL-OK: -7.3482164921795502603L9
(- -7.4770248834652064083L8 -6.510822784079429222L19)
EQL-OK: 6.5108227840046589732L19
(- 8.3114910321533068423L9 -6.2387352982669333472L19)
EQL-OK: 6.2387352990980824504L19
(- -1.0718584220381511548L9 8.521462332927085385L19)
EQL-OK: -8.521462333034271227L19
(- -1.9155322368803175137L8 1.3150623743950738752L19)
EQL-OK: -1.3150623744142291976L19
(- 3.8652241507510457716L9 8.702412273358053775L19)
EQL-OK: -8.70241227297153136L19
(- 2.922009617968977308L8 -8.409184530486676791L19)
EQL-OK: 8.409184530515896887L19
(- -7.3431860804237713437L9 9.020687655591526829L-21)
EQL-OK: -7.3431860804237713437L9
(- -1.1188563145822172016L9 -2.7575065881283248758L-21)
EQL-OK: -1.1188563145822172016L9
(- 2.5835681218682880315L9 -3.786022710650191692L-21)
EQL-OK: 2.5835681218682880315L9
(- 4.3854765424506375063L9 1.8847509423241615905L-21)
EQL-OK: 4.3854765424506375063L9
(- -3.4713769831512517224L9 -2.322290027198980782L-21)
EQL-OK: -3.4713769831512517224L9
(- 414355.71501652302632L0 3.5411352752491676944L-21)
EQL-OK: 414355.71501652302632L0
(- 9.032857346451659148L-11 0.45111022909893884074L0)
EQL-OK: -0.45111022900861026729L0
(- -6.5860623447077106086L-11 -0.16349916999618723413L0)
EQL-OK: 0.16349916993032661068L0
(- -9.239429491581222244L-11 0.34742997377809253703L0)
EQL-OK: -0.34742997387048683193L0
(- -1.3189202177704638207L-11 0.6447775025861344695L0)
EQL-OK: -0.64477750259932367166L0
(- -8.6095719029859522596L-11 0.36611643318066821885L0)
EQL-OK: -0.3661164332667639379L0
(- -7.9284738631391966236L-11 -0.28883099180012157807L0)
EQL-OK: 0.28883099172083683944L0
(- -9.9602023259578447484L-11 8.944817052366967221L9)
EQL-OK: -8.944817052366967221L9
(- -4.7036434158090755064L-11 -7.652311009876441256L9)
EQL-OK: 7.652311009876441256L9
(- -7.237899450242616437L-11 -2.0865196011945540415L9)
EQL-OK: 2.0865196011945540414L9
(- 1.619466049424876382L-11 5.1184733211578935236L9)
EQL-OK: -5.1184733211578935236L9
(- 4.1799408897021043963L-11 7.3289378733409777703L9)
EQL-OK: -7.3289378733409777703L9
(- -7.1652994078281664426L-11 -8.756819754593247181L9)
EQL-OK: 8.756819754593247181L9
(- -3.7074082585707708083L-11 7.8185038704847907146L-11)
EQL-OK: -1.1525912129055561523L-10
(- -6.236585731179139659L-11 7.2778046100364844843L-11)
EQL-OK: -1.3514390341215624144L-10
(- 4.435573645212270856L-11 -5.0777570123416204425L-11)
EQL-OK: 9.5133306575538912986L-11
(- -8.308776483243665939L-11 9.147453931535851365L-11)
EQL-OK: -1.7456230414779517304L-10
(- 9.9047307392438733836L-11 -2.5521271062995892868L-11)
EQL-OK: 1.245685784554346267L-10
(- 7.964304540045338675L-11 -8.2763721216842256806L-11)
EQL-OK: 1.6240676661729564355L-10
(- 6.3981149909251410836L-11 -8.199461198383311753L19)
EQL-OK: 8.199461198383311753L19
(- 3.2676777703423324814L-11 4.4068061681801047868L19)
EQL-OK: -4.4068061681801047868L19
(- -6.239367423070186989L-11 3.6883672788938434168L19)
EQL-OK: -3.6883672788938434168L19
(- -2.2122757699951901351L-11 2.1264312306673926188L19)
EQL-OK: -2.1264312306673926188L19
(- 8.873182931301984606L-11 1.6930709481447417272L19)
EQL-OK: -1.6930709481447417272L19
(- -6.88393272917067128L-11 9.590650870092490293L19)
EQL-OK: -9.590650870092490293L19
(- 6.858643038376546876L-11 7.344128953107545512L-21)
EQL-OK: 6.858643037642133981L-11
(- 2.6458055358368033053L-11 5.403788941414579396L-21)
EQL-OK: 2.6458055352964244111L-11
(- -2.0808117056914325832L-11 -9.598437242399057154L-21)
EQL-OK: -2.080811704731588859L-11
(- -6.7475294377176982065L-11 7.066634775850918749L-21)
EQL-OK: -6.747529438424361684L-11
(- -9.3542684131795074026L-11 -2.671834604826394793L-22)
EQL-OK: -9.354268413152789057L-11
(- -3.656675383727620855L-11 -5.7226858095399702763L-21)
EQL-OK: -3.656675383155352274L-11
(- 4.4004114393746579576L19 0.9981645829158248139L0)
EQL-OK: 4.4004114393746579576L19
(- -2.1157157847974045162L19 -0.73136590134089295135L0)
EQL-OK: -2.1157157847974045162L19
(- -6.58288354566033103L19 0.6435204448077814454L0)
EQL-OK: -6.58288354566033103L19
(- -6.1300052513232283715L18 0.37782114066015354996L0)
EQL-OK: -6.130005251323228372L18
(- -8.342898746965037642L19 0.092302889297602909923L0)
EQL-OK: -8.342898746965037642L19
(- 4.478146018721476673L18 -0.7594367116407568048L0)
EQL-OK: 4.4781460187214766738L18
(- 3.9553793567888621644L19 7.272309486263127643L9)
EQL-OK: 3.9553793560616312156L19
(- 8.4985452245750157485L18 -8.180191224624705388L9)
EQL-OK: 8.498545232755206973L18
(- -4.9006940756698268444L19 5.635530637330344937L9)
EQL-OK: -4.900694076233379908L19
(- 3.321094625885548145L19 7.739325488496469393L9)
EQL-OK: 3.3210946251116155962L19
(- -4.094717236852398814L19 2.8833151826524522544L9)
EQL-OK: -4.0947172371407303324L19
(- -7.297938416992967256L19 1.7849049534461509205L9)
EQL-OK: -7.2979384171714577512L19
(- -1.6274534493365811085L19 -7.214220253590898893L-11)
EQL-OK: -1.6274534493365811085L19
(- -8.8349360721401487896L19 4.4201546048906225832L-11)
EQL-OK: -8.8349360721401487896L19
(- 2.1193875854469716176L19 5.4852102858193519493L-11)
EQL-OK: 2.1193875854469716176L19
(- 5.8956188285652689564L19 5.2591781987716878005L-12)
EQL-OK: 5.8956188285652689564L19
(- 3.8130742288947136824L19 -6.2032926048476626596L-11)
EQL-OK: 3.8130742288947136824L19
(- -8.2648264381835919784L19 5.240041099543619651L-11)
EQL-OK: -8.2648264381835919784L19
(- -8.979570297959484002L19 5.3071479395700422216L19)
EQL-OK: -1.4286718237529526223L20
(- 7.4902067869555502376L19 8.527286348112666809L18)
EQL-OK: 6.637478152144283557L19
(- -9.945686226441305483L19 -7.164943842935287866L19)
EQL-OK: -2.7807423835060176172L19
(- -6.9451908461424534725L18 1.7337328244166615333L19)
EQL-OK: -2.4282519090309068806L19
(- -7.2554820480127785552L19 -3.6345553532831870424L19)
EQL-OK: -3.6209266947295915128L19
(- 4.80739562024854996L19 -9.8058600290712759904L19)
EQL-OK: 1.46132556493198259504L20
(- -2.2910115296639597206L19 3.7450560231732721633L-21)
EQL-OK: -2.2910115296639597206L19
(- 6.3398397438838205245L18 5.9452907771459291318L-21)
EQL-OK: 6.3398397438838205245L18
(- -3.6223171453314706578L19 -7.3897558037422565484L-21)
EQL-OK: -3.6223171453314706578L19
(- -5.253323265732561348L19 -2.4894382246759080012L-21)
EQL-OK: -5.253323265732561348L19
(- 8.706482285826808214L18 -5.353671688426432468L-21)
EQL-OK: 8.706482285826808214L18
(- 2.2257683364797036278L18 -8.640543721759613242L-21)
EQL-OK: 2.2257683364797036278L18
(- 4.793610535063041737L-21 -0.46707949288138879385L0)
EQL-OK: 0.46707949288138879385L0
(- -8.1177127707349576126L-22 -0.524723160625887566L0)
EQL-OK: 0.524723160625887566L0
(- 4.3845050204409245572L-21 0.25137862247046227512L0)
EQL-OK: -0.25137862247046227512L0
(- 9.521149905664397992L-21 -0.8412363166750659234L0)
EQL-OK: 0.8412363166750659234L0
(- 9.174773471390805996L-21 -0.101196005202611894716L0)
EQL-OK: 0.10119600520261189472L0
(- 7.109559498077443181L-21 0.9205539164614073537L0)
EQL-OK: -0.9205539164614073537L0
(- 4.698785699006337068L-21 -2.1800327611972026394L9)
EQL-OK: 2.1800327611972026394L9
(- 5.613624265510662971L-21 -9.950548243828975189L9)
EQL-OK: 9.950548243828975189L9
(- 4.6909741937286841078L-21 -1.7837781830572891826L9)
EQL-OK: 1.7837781830572891826L9
(- -4.846242463794952647L-21 -8.0162418694778434667L9)
EQL-OK: 8.0162418694778434667L9
(- 2.40959428070040729L-21 -8.889381116534260471L9)
EQL-OK: 8.889381116534260471L9
(- 3.767840665510686708L-21 -6.5742819327593306936L9)
EQL-OK: 6.5742819327593306936L9
(- -4.2984578582437655097L-21 -7.11707524430297521L-11)
EQL-OK: 7.117075243873129424L-11
(- -8.2197602823824843314L-21 5.6157517586290544195L-11)
EQL-OK: -5.6157517594510304478L-11
(- 9.693403466151038911L-21 -2.4790192993953556532L-11)
EQL-OK: 2.4790193003646959998L-11
(- -1.7473025967684817638L-21 -6.763791909706180161L-11)
EQL-OK: 6.763791909531449901L-11
(- -4.545821853960128388L-21 -2.0149758755990572603L-11)
EQL-OK: 2.0149758751444750749L-11
(- -6.727743751498960878L-21 4.6105155267302345166L-11)
EQL-OK: -4.6105155274030088917L-11
(- 3.1693009676315354841L-21 -8.292132887357976433L19)
EQL-OK: 8.292132887357976433L19
(- -1.5197222855116101305L-21 -6.8790212191073234628L19)
EQL-OK: 6.8790212191073234628L19
(- 9.221684449614781083L-21 -5.9085200983462461748L19)
EQL-OK: 5.9085200983462461748L19
(- 8.784720275148798145L-21 -3.507151222326700691L19)
EQL-OK: 3.507151222326700691L19
(- 3.824100155304652155L-21 1.2903444775641864255L19)
EQL-OK: -1.2903444775641864255L19
(- -1.0750770892330241413L-21 2.516785805333378789L19)
EQL-OK: -2.516785805333378789L19
(- -9.607606672669937465L-21 2.8158700323501294737L-21)
EQL-OK: -1.2423476705020066939L-20
(- 7.9685140548406097L-21 -1.4252185339263422407L-21)
EQL-OK: 9.393732588766951941L-21
(- -3.1900732903251523987L-21 1.30212230775860485605L-21)
EQL-OK: -4.4921955980837572548L-21
(- 2.845180721925488069L-21 9.0340678136597289194L-21)
EQL-OK: -6.1888870917342408505L-21
(- -5.1500491616497403683L-21 -5.4818765813663490764L-21)
EQL-OK: 3.3182741971660870814L-22
(- 5.3946808417918276896L-21 2.1630450195342998269L-21)
EQL-OK: 3.2316358222575278627L-21
(* 0.49162375558276684976L0 -0.27595139770835290185L0)
EQL-OK: -0.13566426249969417521L0
(* -0.43085705615141429406L0 0.76537655129782028376L0)
EQL-OK: -0.32976788773950077688L0
(* -0.34725675573811781168L0 -0.44040731024013641718L0)
EQL-OK: 0.15293441375734052306L0
(* -0.47158645084591665022L0 -0.5531952534025612003L0)
EQL-OK: 0.26087938617692133303L0
(* -0.86377959068682791106L0 -0.8711108145957097161L0)
EQL-OK: 0.7524477428743513754L0
(* 0.07688091831246728666L0 -0.727039245375017451L0)
EQL-OK: -0.055895444833634576195L0
(* -0.65693719777446694155L0 -5.4929597366864347663L9)
EQL-OK: 3.6085295769067602507L9
(* 0.9553509506606886749L0 2.7316499794256227606L9)
EQL-OK: 2.609684404716519364L9
(* 0.86245066819702621825L0 -5.6471738746979076876L9)
EQL-OK: -4.8704088816580000957L9
(* -0.0011095142242845852372L0 3.5868904614046262004L9)
EQL-OK: -3979705.9878791318615L0
(* -0.07537979049336559763L0 8.268739091555253606L9)
EQL-OK: -6.2329582036573719373L8
(* -0.67924101443000006024L0 -4.2094803212494913754L9)
EQL-OK: 2.8592516836286270604L9
(* 0.30774277681107480866L0 -2.7334742019139702906L-11)
EQL-OK: -8.412069412384417957L-12
(* -0.35713749207523871768L0 -6.5398928539622633783L-11)
EQL-OK: 2.3356409323048581577L-11
(* -0.14801577485738927266L0 -9.963460779718656755L-11)
EQL-OK: 1.474749367571264873L-11
(* 0.3104124542612814659L0 -2.9286317751062608258L-11)
EQL-OK: -9.09083776938307737L-12
(* -0.11446530018625016218L0 6.4232974401995419684L-11)
EQL-OK: -7.352446696780128213L-12
(* -0.96939447601348607505L0 4.1094462170225605183L-11)
EQL-OK: -3.9836744622561876338L-11
(* 0.051486415762180288123L0 9.676829213398296352L19)
EQL-OK: 4.9822525214063672425L18
(* 0.6313327973134614946L0 3.2653448877462378072L19)
EQL-OK: 2.06151932217404323L19
(* -0.37403303660944479204L0 9.102796469067070187L19)
EQL-OK: -3.4047466049628882508L19
(* 0.8707828063294901403L0 -5.5603708853312765524L19)
EQL-OK: -4.8418753637615606188L19
(* -0.21026381134874289964L0 -8.2572592232280544185L18)
EQL-OK: 1.7362027955704909688L18
(* -0.77817271482774886984L0 -5.862569134483721118L19)
EQL-OK: 4.5620913392465632268L19
(* 0.10774233598980040668L0 8.42277329172514105L-21)
EQL-OK: 9.074892699629673044L-22
(* 0.25190108887664378198L0 9.9261121984538427104L-21)
EQL-OK: 2.5003984711022594346L-21
(* -0.6756036645959631085L0 9.531794528346356556L-21)
EQL-OK: -6.4397153135265482465L-21
(* -0.6857203923976410447L0 -1.6874445000752253093L-21)
EQL-OK: 1.1571151047408247225L-21
(* -0.44633489376857998266L0 2.2805928928283052886L-21)
EQL-OK: -1.0179081865499001544L-21
(* 0.6194914893234261562L0 6.122106446320417613L-21)
EQL-OK: 3.7925928402275834338L-21
(* 6.0914569120648219218L9 -0.13082334282848865785L0)
EQL-OK: -7.969047559320230858L8
(* 3.6214037646489572409L9 -0.42724054260765242458L0)
EQL-OK: -1.5472105094100157093L9
(* -2.3587970682548096273L9 0.30389573937962490564L0)
EQL-OK: -7.168283791037869264L8
(* -1.2092840284272862272L9 -0.9464357317324953064L0)
EQL-OK: 1.1445096143169982957L9
(* 9.742195251878672378L9 -0.8436238049826486367L0)
EQL-OK: -8.2187478272737786206L9
(* -1.6670311480587791415L9 -0.7664626357070004785L0)
EQL-OK: 1.277717087546798815L9
(* -9.63709082566058824L8 3.5038182805272664595L9)
EQL-OK: -3.376661500605117691L18
(* -6.819958133674458717L9 5.570090504807835795L9)
EQL-OK: -3.7987784043567071428L19
(* 5.7990616985027046753L9 5.7633314369957429715L9)
EQL-OK: 3.3421914592058566914L19
(* -8.4466610113280742876L9 -8.965949996407538079L9)
EQL-OK: 7.573234026417263962L19
(* -7.670563670654851578L9 -6.431751468798164421L9)
EQL-OK: 4.9335159155244181172L19
(* 8.268803418474998627L9 -6.6310260568279516366L9)
EQL-OK: -5.4830650926695757004L19
(* -9.461472353405244053L9 -3.3101188730107237675L-11)
EQL-OK: 0.31318598203475886787L0
(* 6.8579221981166585744L9 -8.515361268298587097L-11)
EQL-OK: -0.5839768506684770405L0
(* 1.6137913170162297342L9 -8.897666779537493419L-11)
EQL-OK: -0.14358977390521366923L0
(* 8.022366744559274285L9 6.8759798363047156095L-11)
EQL-OK: 0.5516163197503107306L0
(* 6.268637730252729325L8 3.8798987053952144677L-13)
EQL-OK: 2.4321679414199160154L-4
(* 8.165455714479826517L9 -7.748491839935670887L-11)
EQL-OK: -0.6326996697300302909L0
(* -9.245309913477613381L9 -2.7267702243723164598L19)
EQL-OK: 2.5209835787164953515L29
(* 9.113617507957836761L9 -3.6781774780542862056L19)
EQL-OK: -3.3521502661371744663L29
(* 3695599.756951605604L0 -4.4160607831464309996L19)
EQL-OK: -1.6319993156879467502L26
(* -3.1080975558777002585L9 4.5635619314557275256L19)
EQL-OK: -1.41839956852540638L29
(* 4.379846040113489209L9 -2.380244519018666713L19)
EQL-OK: -1.0425104531125744157L29
(* 7.799437686108443071L9 -8.213835920178370665L19)
EQL-OK: -6.40633014233504056L29
(* -5.0032293022496024175L9 3.9947928432298324106L-21)
EQL-OK: -1.9986864609664499789L-11
(* 5.1002825856458055377L9 -8.630588067810955288L-21)
EQL-OK: -4.4018438026138695895L-11
(* -1.4798783656292287931L9 -2.1821599778945012917L-21)
EQL-OK: 3.2293313416280286032L-12
(* 6.2153176651245460436L9 -4.842239650508967686L-21)
EQL-OK: -3.009605763857489489L-11
(* 1.1476929860538426329L9 8.143327858153323155L-21)
EQL-OK: 9.34604026593943011L-12
(* -6.8097130569212408313L9 -4.5006072118169309446L-21)
EQL-OK: 3.0647843694383655263L-11
(* -8.088711469864653681L-11 0.55856748494727835656L0)
EQL-OK: -4.518091222186502735L-11
(* 4.4880121763658923538L-11 0.14537105272497022953L0)
EQL-OK: 6.52427054720794526L-12
(* 2.0273639671422034382L-11 0.5267742506127895251L0)
EQL-OK: 1.0679631345107062621L-11
(* -9.078881981481347403L-11 0.86040896737522678964L0)
EQL-OK: -7.811551470607918988L-11
(* -7.2713602444015266416L-11 0.029963115152720655096L0)
EQL-OK: -2.1787260431991794891L-12
(* 5.8587076221559354985L-11 0.39205420166003709617L0)
EQL-OK: 2.2969309395639195554L-11
(* 9.465227148840012531L-12 -8.4020295562921954743L9)
EQL-OK: -0.07952711826157309293L0
(* -9.156088652050785426L-11 -7.272635024207867507L9)
EQL-OK: 0.66588891015656744834L0
(* 3.6865969618651574387L-11 4.532198690564411727L9)
EQL-OK: 0.16708389923204005057L0
(* -7.773548969171738747L-11 6.487140494299404015L9)
EQL-OK: -0.5042810430233337584L0
(* 3.181536837232243521L-12 -8.8275599983550392825L8)
EQL-OK: -0.0028085207317644360498L0
(* 3.512130320642090343L-11 -6.775467122704530228L9)
EQL-OK: -0.23796323518164203024L0
(* -7.489684894543042722L-11 1.3562671200654034619L-11)
EQL-OK: -1.015801336211924759L-21
(* -6.615171167169027831L-11 6.4492881876773102747L-11)
EQL-OK: -4.2663145267886736825L-21
(* 5.9969037329081164062L-12 6.979117807067958578L-11)
EQL-OK: 4.1853097629611348155L-22
(* -9.1419010578306515213L-11 -3.0321662473944421986L-11)
EQL-OK: 2.7719763824573648138L-21
(* 8.653994294784604749L-11 -2.618325063862645785L-12)
EQL-OK: -2.2658970164558872502L-22
(* 3.778177082827084054L-11 5.7986141594804582746L-11)
EQL-OK: 2.1908191129505701787L-21
(* 9.107023861930220456L-11 -8.1609888558011610015L18)
EQL-OK: -7.432232024672778029L8
(* -6.185675579794400257L-11 8.145498215172660237L19)
EQL-OK: -5.0385409394852397568L9
(* -5.0086846264250856304L-12 7.333671928137704804L19)
EQL-OK: -3.6732049841708537418L8
(* -6.133300578664362783L-11 -4.647031661618042392L19)
EQL-OK: 2.8501641979273554706L9
(* 4.014159298839782726L-12 7.077385833663047478L18)
EQL-OK: 2.8409754155675469803L7
(* 3.9529027598797003857L-11 3.1931221840357166776L19)
EQL-OK: 1.2622101493907881026L9
(* 5.2407793550579649295L-11 8.178146405814506225L-21)
EQL-OK: 4.2859860846234161862L-31
(* -4.5792905534935737864L-11 -1.1970719995732820388L-21)
EQL-OK: 5.481740499497593831L-32
(* 4.113879746633747024L-11 5.1093090279978304893L-21)
EQL-OK: 2.1019082929573231173L-31
(* 1.9918804321687295055L-11 1.8243807936344826748L-21)
EQL-OK: 3.6339484036649830696L-32
(* -6.1549842617771214656L-11 7.210193834294849238L-22)
EQL-OK: -4.4378629574447235495L-32
(* -3.483482946766538465L-12 7.8771698631837073084L-22)
EQL-OK: -2.743998688718375137L-33
(* -3.0540130142847980374L19 -0.08015004741507677209L0)
EQL-OK: 2.4477928790118809798L18
(* -7.721729897125586787L19 -0.71282981020428696123L0)
EQL-OK: 5.5042792570168003116L19
(* 6.855667806362567159L18 0.83087248440613607433L0)
EQL-OK: 5.69618574253563119L18
(* -1.0247670372283575993L17 -0.21215039186338500874L0)
EQL-OK: 2.1740472851667611836L16
(* -4.2451902701279432204L19 0.363650960045267158L0)
EQL-OK: -1.5437675173068535736L19
(* -2.3286355030172533736L19 0.49713327148260372132L0)
EQL-OK: -1.1576421857055056984L19
(* -6.1529172975127592432L19 -7.1685660040728041152L9)
EQL-OK: 4.4107593764821477366L29
(* 6.7120643409032119372L19 -2.1673488299796731996L9)
EQL-OK: -1.45473847960048627434L29
(* 8.1354429987417636456L19 -7.205222753181797397L9)
EQL-OK: -5.861767900174770815L29
(* 7.1263614941049137416L19 5.4835530180135407083L8)
EQL-OK: 3.907778107845448494L28
(* 5.0833800113097826724L19 -6.2188724451883454807L9)
EQL-OK: -3.1612891880755627472L29
(* -7.0947371956905508468L19 -2.434705753418370145L9)
EQL-OK: 1.7273597469339097183L29
(* 6.6532780031620346828L19 -5.126482819920582625L-11)
EQL-OK: -3.4107915379365690604L9
(* 3.3916052110984390742L19 1.2477416554656457027L-11)
EQL-OK: 4.2318471007818771302L8
(* -2.0596546301412947634L18 1.4681903489886446838L-11)
EQL-OK: -3.0239650502232254483L7
(* 5.4448198096650564945L18 -8.328351500006325204L-11)
EQL-OK: -4.534637322908812735L8
(* -9.010106422125259114L19 -8.313725422339249255L-11)
EQL-OK: 7.4907550819604901853L9
(* 9.807792586975021252L19 -8.1013942555768171325L-11)
EQL-OK: -7.9456794524008327797L9
(* -6.569928333884882197L17 1.8031274577764523257L19)
EQL-OK: -1.1846418174451330701L37
(* 9.966374081256518232L19 1.1925741835931471136L18)
EQL-OK: 1.1885640433338393863L38
(* -5.1958776350000747272L19 9.541066943279536452L19)
EQL-OK: -4.957421634462466998L39
(* 3.0864687811444473814L19 -7.292720897062086383L17)
EQL-OK: -2.2508755378381858676L37
(* -4.9023499593352016396L19 -7.837521201177228469L19)
EQL-OK: 3.8422271741879966693L39
(* 1.1092141282192635266L19 -8.705681388875638857L19)
EQL-OK: -9.656464792316359058L38
(* 9.719341608862581484L18 3.910223765755272544L-21)
EQL-OK: 0.038004800546468552602L0
(* 9.0834836835472717744L19 2.3217130663560934873L-22)
EQL-OK: 0.021089242756124079488L0
(* -8.956950042680554282L19 -6.8114530414478270673L-22)
EQL-OK: 0.061009844610312705923L0
(* -6.250871904307721917L18 -1.7897852706103755451L-21)
EQL-OK: 0.01118771846280218958L0
(* -4.8350255195162635852L19 -5.4114390027140489403L-21)
EQL-OK: 0.26164445675428065787L0
(* -3.787718813779143278L19 4.715777953310022763L-22)
EQL-OK: -0.017862040875357275534L0
(* -9.6946973380533561685L-21 0.29842171245928506197L0)
EQL-OK: -2.8931081813963549629L-21
(* -1.5138229787560283214L-21 -0.63587548364028950173L0)
EQL-OK: 9.626029187622732088L-22
(* 6.9088409628577453984L-21 0.6675889882861618064L0)
EQL-OK: 4.6122661486241942486L-21
(* -5.9331491274547789645L-21 0.1840021396402183602L0)
EQL-OK: -1.0917121342561739605L-21
(* 6.5714942924276749333L-21 0.042451475976117785684L0)
EQL-OK: 2.789696320821885891L-22
(* 8.381861494201174241L-21 -0.14355711097860731382L0)
EQL-OK: -1.2032758207303532943L-21
(* 2.014342763215141127L-21 -1.2338457666735291661L9)
EQL-OK: -2.4853882910224610282L-12
(* -5.670580024618139724L-21 -8.0192486381311308156L8)
EQL-OK: 4.5473791139832611237L-12
(* -1.9225557816894129732L-21 7.9269598913745234357L9)
EQL-OK: -1.5240022570382171054L-11
(* 4.0368254062037218916L-21 -9.5325393449487114215L8)
EQL-OK: -3.848119701332554298L-12
(* 4.2776037356780859957L-21 -5.1221437260809706463L9)
EQL-OK: -2.1910501137364030878L-11
(* -6.7334467986153699064L-21 -7.7745493828541701813L9)
EQL-OK: 5.2349514652656512034L-11
(* -4.315187380180362795L-21 1.3410692406986483366L-11)
EQL-OK: -5.786965063410868682L-32
(* 3.343397258359340776L-21 3.0757040339096610197L-12)
EQL-OK: 1.0283300434498325547L-32
(* 8.5537743863632264L-21 7.5263454541513394514L-11)
EQL-OK: 6.4378660968641032133L-31
(* -2.842610565794174946L-21 3.153716909493170071L-11)
EQL-OK: -8.9647890084490369953L-32
(* 2.8400800161467519014L-22 2.0497242686367281441L-11)
EQL-OK: 5.8213809339661880995L-33
(* 9.982896581447590365L-21 1.6568727649785948007L-11)
EQL-OK: 1.654038946139843086L-31
(* 4.678227176611232891L-21 8.297236114758786796L19)
EQL-OK: 0.38816355482824754693L0
(* -2.7181316933272033506L-21 -7.7081523870452907184L19)
EQL-OK: 0.20951773300223540615L0
(* 3.755562697893016061L-21 -9.043255746258523336L19)
EQL-OK: -0.33962513948155180184L0
(* -6.788248742851763723L-21 -2.3639021583849588926L19)
EQL-OK: 0.16046755854881268057L0
(* -4.100847017987407598L-21 -3.6481227061862975968L19)
EQL-OK: 0.14960393120916230025L0
(* -2.001548479939126796L-21 -8.705055796099425971L19)
EQL-OK: 0.17423591196468091344L0
(* -3.670443367722997441L-21 3.6588667206894740936L-22)
EQL-OK: -1.34296630883370731296L-42
(* -6.6783435670093499397L-22 -8.113066551196750321L-21)
EQL-OK: 5.4181845810903550342L-42
(* 4.816859192586505112L-21 -1.1868626619923445382L-22)
EQL-OK: -5.716950323755514841L-43
(* 4.6402358755296483015L-21 -4.244356902115351796L-22)
EQL-OK: -1.9694817165747535215L-42
(* 9.3247068197076461794L-21 3.5271238356611001996L-21)
EQL-OK: 3.288939568434245211L-41
(* 8.7860048755888267426L-21 7.187872989134290154L-21)
EQL-OK: 6.315268712764710716L-41
(MULTIPLE-VALUE-LIST (FLOOR -0.9677507664075728311L0 0.09829392666835353511L0))
EQUAL-OK: (-10 0.015188500275962520004L0)
(MULTIPLE-VALUE-LIST (FLOOR -0.084596576622269801105L0 -0.78271578747309396924L0))
EQUAL-OK: (0 -0.084596576622269801105L0)
(MULTIPLE-VALUE-LIST (FLOOR 0.97785517019559092334L0 -0.24687352093087197807L0))
EQUAL-OK: (-4 -0.009638913527896988987L0)
(MULTIPLE-VALUE-LIST (FLOOR 0.36348468689259258175L0 0.5156866254701831051L0))
EQUAL-OK: (0 0.36348468689259258175L0)
(MULTIPLE-VALUE-LIST (FLOOR -0.51463186192345608164L0 0.8683136279312965567L0))
EQUAL-OK: (-1 0.35368176600784047506L0)
(MULTIPLE-VALUE-LIST (FLOOR 0.36128372948365635348L0 -0.5061584717303788097L0))
EQUAL-OK: (-1 -0.1448747422467224562L0)
(MULTIPLE-VALUE-LIST (FLOOR -0.83188875677783952054L0 -6.988497329115560525L9))
EQUAL-OK: (0 -0.83188875677783952054L0)
(MULTIPLE-VALUE-LIST (FLOOR -0.09110744229488624391L0 -9.792597852253288497L9))
EQUAL-OK: (0 -0.09110744229488624391L0)
(MULTIPLE-VALUE-LIST (FLOOR 0.23616060202132526459L0 -1.5882829404848723914L9))
EQUAL-OK: (-1 -1.5882829402487117894L9)
(MULTIPLE-VALUE-LIST (FLOOR -0.09652925723903261584L0 6.2261024177069773893L9))
EQUAL-OK: (-1 6.226102417610448132L9)
(MULTIPLE-VALUE-LIST (FLOOR 0.5413601234707634158L0 9.144943549323542538L9))
EQUAL-OK: (0 0.5413601234707634158L0)
(MULTIPLE-VALUE-LIST (FLOOR -0.57037258938648310115L0 4.436821091919698621L9))
EQUAL-OK: (-1 4.4368210913493260317L9)
(MULTIPLE-VALUE-LIST (FLOOR -0.9973297751770725278L0 3.4051851548139874998L-11))
EQUAL-OK: (-29288562291 1.4506986275662661537L-11)
(MULTIPLE-VALUE-LIST (FLOOR 0.6604979952397203417L0 -4.3497555374342239963L-11))
EQUAL-OK: (-15184715315 -1.8114827519649365006L-11)
(MULTIPLE-VALUE-LIST (FLOOR 0.38589975187928444138L0 1.0289103184336123803L-12))
EQUAL-OK: (375056742036 3.5046726009323829848L-13)
(MULTIPLE-VALUE-LIST (FLOOR 0.9402638162334174371L0 4.2262799834524861567L-11))
EQUAL-OK: (22248024738 1.7766010468098603481L-11)
(MULTIPLE-VALUE-LIST (FLOOR -0.8642082843541437474L0 8.911777256338402297L-11))
EQUAL-OK: (-9697373033 6.304376014060421794L-11)
(MULTIPLE-VALUE-LIST (FLOOR 0.7435773981922973139L0 5.910629837324535378L-11))
EQUAL-OK: (12580341159 1.1224045374678474888L-11)
(MULTIPLE-VALUE-LIST (FLOOR 0.7898063255151059068L0 1.2757118849664610875L18))
EQUAL-OK: (0 0.7898063255151059068L0)
(MULTIPLE-VALUE-LIST (FLOOR 0.19544684487626281231L0 -3.6071314846523434156L19))
EQUAL-OK: (-1 -3.6071314846523434156L19)
(MULTIPLE-VALUE-LIST (FLOOR -0.032130218136830583316L0 -3.367647816525978896L18))
EQUAL-OK: (0 -0.032130218136830583316L0)
(MULTIPLE-VALUE-LIST (FLOOR -0.25693079625787854222L0 2.3815464531684079734L19))
EQUAL-OK: (-1 2.3815464531684079734L19)
(MULTIPLE-VALUE-LIST (FLOOR -0.3975875412090936933L0 3.9957351306215043416L19))
EQUAL-OK: (-1 3.9957351306215043416L19)
(MULTIPLE-VALUE-LIST (FLOOR 0.16223305219726616216L0 -5.3922124894358790612L19))
EQUAL-OK: (-1 -5.3922124894358790612L19)
(MULTIPLE-VALUE-LIST (FLOOR 0.14869268750642991106L0 -4.676414410846522305L-21))
EQUAL-OK: (-31796302560686368198 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR 0.4848921957991629974L0 7.275052251851656838L-21))
EQUAL-OK: (66651369504012501536 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR 0.44996459510190342355L0 -3.96515259272563559L-21))
EQUAL-OK: (-113479767696052002376 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR 0.7246909129638354568L0 -1.2540349367528059089L-21))
EQUAL-OK: (-577887339279675740320 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR 0.83383904440522878455L0 3.5186204165781412753L-21))
EQUAL-OK: (236978970643311773536 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR 0.26779759740636464572L0 -6.954613119627800336L-21))
EQUAL-OK: (-38506469418200611672 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR -7.4845680268023566543L9 -0.2629469688312594538L0))
EQUAL-OK: (28464173061 -0.1240146549242767677L0)
(MULTIPLE-VALUE-LIST (FLOOR 6.1612132433805581187L9 -0.09975641287987705455L0))
EQUAL-OK: (-61762578120 -0.083822638930812785824L0)
(MULTIPLE-VALUE-LIST (FLOOR -3.6629628120558108524L9 0.35361739315194823028L0))
EQUAL-OK: (-10358548203 0.32784699422401302726L0)
(MULTIPLE-VALUE-LIST (FLOOR -6.999024858613990497L9 -0.6086338795192380592L0))
EQUAL-OK: (11499564999 -0.48897756390533489348L0)
(MULTIPLE-VALUE-LIST (FLOOR 4.2927999071819381092L9 -0.8483437666321241058L0))
EQUAL-OK: (-5060212707 -0.6341788853647631104L0)
(MULTIPLE-VALUE-LIST (FLOOR -4.377925687006929662L9 0.3220507356662819166L0))
EQUAL-OK: (-13593900595 0.18712780555802854961L0)
(MULTIPLE-VALUE-LIST (FLOOR -9.5387759396672939425L9 7.7154581598602048657L9))
EQUAL-OK: (-2 5.892140380053115789L9)
(MULTIPLE-VALUE-LIST (FLOOR -5.64339842966998351L9 4.025489717604319313L9))
EQUAL-OK: (-2 2.4075810055386551162L9)
(MULTIPLE-VALUE-LIST (FLOOR -4.811594948157823536L9 -7.834071766040306942L9))
EQUAL-OK: (0 -4.811594948157823536L9)
(MULTIPLE-VALUE-LIST (FLOOR 4.4476035118893197435L9 3.0450117757143498866L9))
EQUAL-OK: (1 1.4025917361749698569L9)
(MULTIPLE-VALUE-LIST (FLOOR -7.3465328576805684287L9 -4.603589573313564281L9))
EQUAL-OK: (1 -2.7429432843670041477L9)
(MULTIPLE-VALUE-LIST (FLOOR 4.956277095163508632L9 -6.664438280281275845L9))
EQUAL-OK: (-1 -1.708161185117767213L9)
(MULTIPLE-VALUE-LIST (FLOOR 4.367757792316331005L9 -7.8163461329531150714L-11))
EQUAL-OK: (-55879789840705743024 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR -4.7778036898247465523L8 3.4933422750724630952L-11))
EQUAL-OK: (-13676883951274541565 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR -6.667353710605079077L9 5.3863219342714070564L-11))
EQUAL-OK: (-123783052553596643928 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR -6.6004002390836614547L9 -9.313678706634845693L-11))
EQUAL-OK: (70867811173061956036 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR -9.439278803200832958L9 -6.7075776392225367144L-11))
EQUAL-OK: (140725598880953434976 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR -9.207319097846486017L9 -5.7812820689283059893L-11))
EQUAL-OK: (159260852317369718528 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR -7.564134292866958547L9 6.4508269927189105468L19))
EQUAL-OK: (-1 6.4508269919624971176L19)
(MULTIPLE-VALUE-LIST (FLOOR -5.7520914080101070246L9 -4.4901662701989554116L17))
EQUAL-OK: (0 -5.7520914080101070246L9)
(MULTIPLE-VALUE-LIST (FLOOR -9.801170739094381102L9 9.482698257311007893L19))
EQUAL-OK: (-1 9.482698256330890819L19)
(MULTIPLE-VALUE-LIST (FLOOR 7.471594576665974082L8 3.1667053210759199935L18))
EQUAL-OK: (0 7.471594576665974081L8)
(MULTIPLE-VALUE-LIST (FLOOR -6.4762144691604037974L9 -8.24176243427164629L19))
EQUAL-OK: (0 -6.4762144691604037974L9)
(MULTIPLE-VALUE-LIST (FLOOR -5.5263312844382694187L9 9.5950716135522835064L19))
EQUAL-OK: (-1 9.595071612999650378L19)
(MULTIPLE-VALUE-LIST (FLOOR 3.1312033848911460338L9 -8.61316266389637687L-21))
EQUAL-OK: (-363537008074414891396807786496 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR 2.6279029713558476835L9 -4.516664720059022692L-21))
EQUAL-OK: (-581823786849847663134534270976 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR 4.502075635961923785L9 -9.685834626464620576L-21))
EQUAL-OK: (-464810293545679143271024033792 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR 1.4031562604294053729L9 3.412866773725220897L-21))
EQUAL-OK: (411137132932332056394984325120 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR -4.3024038761755407723L9 2.485284435684751149L-21))
EQUAL-OK: (-1731151498959165530746191347712 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR 6.136473603422627364L9 5.6959828635137213127L-21))
EQUAL-OK: (1077333578850898685241017237504 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR -8.202208473677937235L-11 0.12393605769441814725L0))
EQUAL-OK: (-1 0.123936057612396062516L0)
(MULTIPLE-VALUE-LIST (FLOOR -8.6757073154686102475L-11 -0.37237633673270687662L0))
EQUAL-OK: (0 -8.675707315468610247L-11)
(MULTIPLE-VALUE-LIST (FLOOR 5.6028622390057924218L-11 0.6499341232771672055L0))
EQUAL-OK: (0 5.6028622390057924218L-11)
(MULTIPLE-VALUE-LIST (FLOOR 4.5783899320025937576L-11 -0.7229560019811405793L0))
EQUAL-OK: (-1 -0.7229560019353566799L0)
(MULTIPLE-VALUE-LIST (FLOOR 7.224213822400873615L-11 -0.87051303270552073176L0))
EQUAL-OK: (-1 -0.87051303263327859354L0)
(MULTIPLE-VALUE-LIST (FLOOR -5.5008008233955830292L-11 -0.45974678868400245752L0))
EQUAL-OK: (0 -5.5008008233955830295L-11)
(MULTIPLE-VALUE-LIST (FLOOR -5.949553569817051437L-11 -4.9088361621296460857L9))
EQUAL-OK: (0 -5.949553569817051437L-11)
(MULTIPLE-VALUE-LIST (FLOOR 9.068981360820356321L-11 3.9567179334666110438L9))
EQUAL-OK: (0 9.068981360820356321L-11)
(MULTIPLE-VALUE-LIST (FLOOR 3.4621680776088405294L-13 4.3691679646970805987L9))
EQUAL-OK: (0 3.4621680776088405294L-13)
(MULTIPLE-VALUE-LIST (FLOOR 4.005939678622022073L-11 -9.2132271371400602936L8))
EQUAL-OK: (-1 -9.213227137140060293L8)
(MULTIPLE-VALUE-LIST (FLOOR 6.8015601712459487755L-11 -4.769849366969915586L9))
EQUAL-OK: (-1 -4.769849366969915586L9)
(MULTIPLE-VALUE-LIST (FLOOR 8.736177705951390388L-11 8.3701230195943479203L9))
EQUAL-OK: (0 8.736177705951390388L-11)
(MULTIPLE-VALUE-LIST (FLOOR -8.8368349664293751446L-11 1.7247862508910726963L-11))
EQUAL-OK: (-6 1.5118825389170610328L-11)
(MULTIPLE-VALUE-LIST (FLOOR -2.0922301210797840822L-11 2.9157326021078492393L-11))
EQUAL-OK: (-1 8.235024810280651572L-12)
(MULTIPLE-VALUE-LIST (FLOOR -9.929248815922456709L-11 -6.9934608623319373425L-11))
EQUAL-OK: (1 -2.9357879535905193665L-11)
(MULTIPLE-VALUE-LIST (FLOOR 8.809298490106908006L-11 2.521478295865126635L-11))
EQUAL-OK: (3 1.244863602511528101L-11)
(MULTIPLE-VALUE-LIST (FLOOR 7.3620267190952160604L-11 -5.0806267993123045533L-11))
EQUAL-OK: (-2 -2.7992268795293930463L-11)
(MULTIPLE-VALUE-LIST (FLOOR -9.070716461299934103L-11 1.372581158818204212L-11))
EQUAL-OK: (-7 5.3735165042749538097L-12)
(MULTIPLE-VALUE-LIST (FLOOR -7.459630170957188741L-11 -3.429772398019229389L19))
EQUAL-OK: (0 -7.459630170957188741L-11)
(MULTIPLE-VALUE-LIST (FLOOR 1.9725650506989118904L-11 -1.7770668980460508816L19))
EQUAL-OK: (-1 -1.7770668980460508816L19)
(MULTIPLE-VALUE-LIST (FLOOR 6.3974118251214889016L-12 -5.69117448017374684L19))
EQUAL-OK: (-1 -5.69117448017374684L19)
(MULTIPLE-VALUE-LIST (FLOOR 9.080192761938897539L-11 5.1550284925054312868L19))
EQUAL-OK: (0 9.080192761938897539L-11)
(MULTIPLE-VALUE-LIST (FLOOR 7.694299339180548789L-11 3.1601030797220572842L19))
EQUAL-OK: (0 7.694299339180548789L-11)
(MULTIPLE-VALUE-LIST (FLOOR 5.5788554873601060938L-11 5.5699367746931070664L19))
EQUAL-OK: (0 5.5788554873601060938L-11)
(MULTIPLE-VALUE-LIST (FLOOR -4.087371164243010522L-11 1.7025318283693090775L-21))
EQUAL-OK: (-24007605005 1.5007203773756006028L-21)
(MULTIPLE-VALUE-LIST (FLOOR -7.3575974688385316083L-11 -1.6670029902289832508L-21))
EQUAL-OK: (44136678290 -1.8066891019200848581L-22)
(MULTIPLE-VALUE-LIST (FLOOR 1.0850282868697332469L-11 5.7344803128377181472L-21))
EQUAL-OK: (1892112672 1.4425616831217755076L-21)
(MULTIPLE-VALUE-LIST (FLOOR -9.848519351300913193L-11 -7.121687974823219785L-21))
EQUAL-OK: (13828911609 -2.300608125189343731L-21)
(MULTIPLE-VALUE-LIST (FLOOR 3.0260591554314098406L-12 1.7303586387117179437L-22))
EQUAL-OK: (17488046048 9.689796116124082976L-23)
(MULTIPLE-VALUE-LIST (FLOOR 5.867643793784483945L-11 2.9831220978672803306L-21))
EQUAL-OK: (19669472456 9.594326475082730988L-22)
(MULTIPLE-VALUE-LIST (FLOOR 9.453252855247919707L19 0.3964594556008910194L0))
EQUAL-OK: (238441856328540902016 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR 1.9865852464762410773L17 0.8745495786051183551L0))
EQUAL-OK: (227155245977568008 0.08198902299422984579L0)
(MULTIPLE-VALUE-LIST (FLOOR 5.8003655986843771616L19 -0.57075967601329721915L0))
EQUAL-OK: (-101625357264188433960 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR 6.5463855676706502812L19 0.5124698839969514896L0))
EQUAL-OK: (127741859026189966704 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR 8.053368905864221505L19 0.40679331708739617821L0))
EQUAL-OK: (197972006116659527920 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR 8.572236202953388538L19 0.1793174966141533504L0))
EQUAL-OK: (478047952085719142240 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR -6.6056603867132043536L19 1.8364346532401849241L9))
EQUAL-OK: (-35970026895 8.274070785684816422L8)
(MULTIPLE-VALUE-LIST (FLOOR 2.473965171745108034L19 5.5749126908032718576L9))
EQUAL-OK: (4437675186 5.356910410798194379L9)
(MULTIPLE-VALUE-LIST (FLOOR -4.405924011882179756L19 -6.4568556406242929674L9))
EQUAL-OK: (6823637165 -4.1798826632701602209L8)
(MULTIPLE-VALUE-LIST (FLOOR 2.1093676314099077168L19 5.727620773112868108L8))
EQUAL-OK: (36827990451 1.8408274540307780489L8)
(MULTIPLE-VALUE-LIST (FLOOR -1.0962340119185741432L19 -8.173187675545835245L9))
EQUAL-OK: (1341256380 -4.422519927692124746L9)
(MULTIPLE-VALUE-LIST (FLOOR -9.664836922872330681L19 -4.5461452948374001435L9))
EQUAL-OK: (21259410546 -4.0088028420210172099L9)
(MULTIPLE-VALUE-LIST (FLOOR 9.965462994616849042L19 -6.27691916031617149L-11))
EQUAL-OK: (-1587636026543136775574879469568 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR -1.2700534905234296955L19 -7.6392648594402208417L-11))
EQUAL-OK: (166253365198349054807791108096 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR -7.837735447773461618L18 -8.6041613252133785413L-11))
EQUAL-OK: (91092381366746282195935035392 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR 4.849306367034469812L19 -8.744903371098252931L-11))
EQUAL-OK: (-554529439749024491444258209792 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR -6.3895751736590951245L18 -8.9218106166526971406L-11))
EQUAL-OK: (71617471477514379195326660608 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR -1.1249006547358954392L19 -3.749899421128778124L-11))
EQUAL-OK: (299981553744522252727485464576 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR -4.8298889769606521412L19 3.2897859420995047714L19))
EQUAL-OK: (-2 1.7496829072383574016L19)
(MULTIPLE-VALUE-LIST (FLOOR -7.618272569239742257L19 -2.4246730847406800364L19))
EQUAL-OK: (3 -3.4425331501770214745L18)
(MULTIPLE-VALUE-LIST (FLOOR -9.9344217376670949096L19 -2.187787768895506888L19))
EQUAL-OK: (4 -1.1832706620850673572L19)
(MULTIPLE-VALUE-LIST (FLOOR 3.9222824564168688912L19 -9.476307993509074433L19))
EQUAL-OK: (-1 -5.5540255370922055412L19)
(MULTIPLE-VALUE-LIST (FLOOR -2.012988112115775752L19 -1.01146191266402097525L18))
EQUAL-OK: (19 -9.1210478054135899006L17)
(MULTIPLE-VALUE-LIST (FLOOR 8.61360756236492457L19 -9.374471951386232653L19))
EQUAL-OK: (-1 -7.6086438902130808345L18)
(MULTIPLE-VALUE-LIST (FLOOR -4.0954879593227223964L19 3.4785793369902262412L-21))
EQUAL-OK: (-11773449913223093127289481096658923028480 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR -5.7633820540313762628L19 -6.9799216943629666126L-21))
EQUAL-OK: (8257086979479904139315172946770002968576 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR -4.5945941433359568196L19 -9.26874309885338918L-21))
EQUAL-OK: (4957084357969034092339972319162935541760 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR 9.069653875532044557L19 1.1607862998892810815L-21))
EQUAL-OK: (78133708817868823323292026086376001765376 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR 1.9663881236128118596L19 -7.53224056983834607L-21))
EQUAL-OK: (-2610628411799403924128603371383036051456 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR 3.8155182638858600344L19 -9.78280482738867461L-21))
EQUAL-OK: (-3900229362854759958152852242692868931584 0.0L0)
(MULTIPLE-VALUE-LIST (FLOOR 2.0785751397779279812L-21 0.84874462118484074924L0))
EQUAL-OK: (0 2.0785751397779279812L-21)
(MULTIPLE-VALUE-LIST (FLOOR 9.468679817093889512L-22 -0.14230041428757812886L0))
EQUAL-OK: (-1 -0.14230041428757812886L0)
(MULTIPLE-VALUE-LIST (FLOOR -3.5329587582370771722L-21 -0.75145077780984780047L0))
EQUAL-OK: (0 -3.5329587582370771722L-21)
(MULTIPLE-VALUE-LIST (FLOOR 1.0147425004279850959L-21 0.55049889413410685307L0))
EQUAL-OK: (0 1.0147425004279850959L-21)
(MULTIPLE-VALUE-LIST (FLOOR -9.214176537319943048L-21 -0.45008902557926736644L0))
EQUAL-OK: (0 -9.214176537319943048L-21)
(MULTIPLE-VALUE-LIST (FLOOR -1.146684367801419132L-21 0.3317375182580383851L0))
EQUAL-OK: (-1 0.3317375182580383851L0)
(MULTIPLE-VALUE-LIST (FLOOR 9.8958965362796452575L-23 -8742129.925142999928L0))
EQUAL-OK: (-1 -8742129.925142999928L0)
(MULTIPLE-VALUE-LIST (FLOOR -8.629925553125559817L-22 1.4904768761159059732L9))
EQUAL-OK: (-1 1.4904768761159059732L9)
(MULTIPLE-VALUE-LIST (FLOOR -1.7636696713810751494L-21 1.2803675755746476424L9))
EQUAL-OK: (-1 1.2803675755746476424L9)
(MULTIPLE-VALUE-LIST (FLOOR 7.8572218293550540256L-21 7.311951574932556098L9))
EQUAL-OK: (0 7.8572218293550540256L-21)
(MULTIPLE-VALUE-LIST (FLOOR 5.8831628670454666175L-21 -2.430599936529262355L9))
EQUAL-OK: (-1 -2.430599936529262355L9)
(MULTIPLE-VALUE-LIST (FLOOR 5.891885696934149925L-21 6.0077688200842341403L9))
EQUAL-OK: (0 5.891885696934149925L-21)
(MULTIPLE-VALUE-LIST (FLOOR -5.5378511525885539255L-21 -4.317564477957860586L-11))
EQUAL-OK: (0 -5.5378511525885539255L-21)
(MULTIPLE-VALUE-LIST (FLOOR -1.9525004120740256159L-21 9.454884961900014292L-11))
EQUAL-OK: (-1 9.454884961704764251L-11)
(MULTIPLE-VALUE-LIST (FLOOR 5.461359828153347278L-21 -9.7061135180917529105L-11))
EQUAL-OK: (-1 -9.706113517545616928L-11)
(MULTIPLE-VALUE-LIST (FLOOR 9.644530490453124287L-21 8.28693431641614359L-11))
EQUAL-OK: (0 9.644530490453124287L-21)
(MULTIPLE-VALUE-LIST (FLOOR 8.997549905605484822L-21 5.2672865249640494307L-11))
EQUAL-OK: (0 8.997549905605484822L-21)
(MULTIPLE-VALUE-LIST (FLOOR -1.55338435917637846L-21 5.9708770769690056966L-11))
EQUAL-OK: (-1 5.9708770768136672606L-11)
(MULTIPLE-VALUE-LIST (FLOOR 3.9285675924255819076L-21 5.674913585946206864L19))
EQUAL-OK: (0 3.9285675924255819076L-21)
(MULTIPLE-VALUE-LIST (FLOOR -3.6185336116295331734L-21 -9.043926006483480333L19))
EQUAL-OK: (0 -3.6185336116295331734L-21)
(MULTIPLE-VALUE-LIST (FLOOR -7.32672036508508268L-21 1.205614654464109627L19))
EQUAL-OK: (-1 1.205614654464109627L19)
(MULTIPLE-VALUE-LIST (FLOOR -3.3565132746900103151L-21 8.585503247975515849L19))
EQUAL-OK: (-1 8.585503247975515849L19)
(MULTIPLE-VALUE-LIST (FLOOR -6.9204354176156616745L-21 -3.6158709669328356396L19))
EQUAL-OK: (0 -6.9204354176156616745L-21)
(MULTIPLE-VALUE-LIST (FLOOR -7.5176747956103960436L-21 9.3440027997860057096L19))
EQUAL-OK: (-1 9.3440027997860057096L19)
(MULTIPLE-VALUE-LIST (FLOOR -6.302622462978502841L-21 8.1107309029375862425L-21))
EQUAL-OK: (-1 1.8081084399590834014L-21)
(MULTIPLE-VALUE-LIST (FLOOR 1.4803054325001667241L-22 6.3345497995208400772L-21))
EQUAL-OK: (0 1.4803054325001667241L-22)
(MULTIPLE-VALUE-LIST (FLOOR -5.7089861270321677843L-21 9.540482421100450586L-21))
EQUAL-OK: (-1 3.831496294068282802L-21)
(MULTIPLE-VALUE-LIST (FLOOR 3.3765199428161524112L-21 9.669802014415968729L-21))
EQUAL-OK: (0 3.3765199428161524112L-21)
(MULTIPLE-VALUE-LIST (FLOOR 7.52101063082155294L-21 8.827949370572986921L-21))
EQUAL-OK: (0 7.52101063082155294L-21)
(MULTIPLE-VALUE-LIST (FLOOR 4.196504310402249954L-23 3.785428476220113075L-21))
EQUAL-OK: (0 4.196504310402249954L-23)
(/ 0.8476517865511829377L0 0.14598720922015648169L0)
EQL-OK: 5.8063428370144327317L0
(/ -0.16515392772872533974L0 0.2885771921352848653L0)
EQL-OK: -0.5723041606534907598L0
(/ -0.25791761734650428572L0 -0.17472849542471660309L0)
EQL-OK: 1.4761050664322265015L0
(/ -0.9418668871216534004L0 -0.25801526180943099573L0)
EQL-OK: 3.6504309106230792821L0
(/ -0.25726582509610465451L0 0.7704327058756196045L0)
EQL-OK: -0.33392381078074095957L0
(/ -0.021409432992321506645L0 -0.44293479613874918959L0)
EQL-OK: 0.048335405524597819813L0
(/ -0.26771090178828336857L0 -7.7011892538310270067L9)
EQL-OK: 3.4762280599078659542L-11
(/ 0.82867609196336006595L0 -3.0042819216966844948L9)
EQL-OK: -2.7583166745395210866L-10
(/ 0.40732354689187331287L0 -7.559832309976744222L9)
EQL-OK: -5.387997116739304149L-11
(/ -0.53349543673778000914L0 -5.104278761341346705L8)
EQL-OK: 1.045192595628502556L-9
(/ 0.17669669311850475256L0 -9.181879875841464834L9)
EQL-OK: -1.9244064996255633173L-11
(/ -0.38525727576606363245L0 -4.8936643582468263693L9)
EQL-OK: 7.872572525674472248L-11
(/ 0.028580272067667963345L0 -7.9841173999044091L-11)
EQL-OK: -3.5796407587907142282L8
(/ 0.72167998280372380157L0 -3.6437273419914776347L-12)
EQL-OK: -1.980609181391958688L11
(/ -0.5863461999919387516L0 7.881986348526466578L-11)
EQL-OK: -7.4390664239294943926L9
(/ 0.54541403791059564303L0 -2.6107257402815120583L-11)
EQL-OK: -2.089128051619026705L10
(/ 0.7985324354238058011L0 9.752737902348257611L-12)
EQL-OK: 8.187777047012979847L10
(/ 0.14104671220162837288L0 -1.679932803469743255L-11)
EQL-OK: -8.3959734526470136372L9
(/ 0.84226961154302812054L0 -3.7790325979515268584L19)
EQL-OK: -2.2287968936801211454L-20
(/ -0.17023320737807742781L0 -7.054479312260488177L19)
EQL-OK: 2.4131222141684768152L-21
(/ 0.51147038234753495475L0 7.2890488826322506176L19)
EQL-OK: 7.01697012303244035L-21
(/ 0.15424860911694467965L0 -9.2121691156562017736L19)
EQL-OK: -1.6744005367291526718L-21
(/ 0.18043991101271504866L0 -1.5135729370916590423L19)
EQL-OK: -1.1921454631676461953L-20
(/ -0.8669749687756526617L0 8.7133495928438747096L19)
EQL-OK: -9.949961946754488136L-21
(/ -0.6448505560111598971L0 3.636469578348857873L-21)
EQL-OK: -1.7732873659951112376L20
(/ -0.81857582399766609004L0 5.2916132942068490006L-21)
EQL-OK: -1.546930545536701092L20
(/ 0.77524450276763022L0 -7.652595302708246449L-21)
EQL-OK: -1.0130478250865714831L20
(/ 0.627858729575384142L0 9.627326573065363056L-21)
EQL-OK: 6.5216311590796329432L19
(/ -0.42943946308533227006L0 -2.2414950519882640498L-21)
EQL-OK: 1.915861749078626634L20
(/ -0.34220208112358558038L0 -7.4545803279812700505L-21)
EQL-OK: 4.5904942473972275588L19
(/ 5.560943842255079481L9 -0.55841023848214400133L0)
EQL-OK: -9.958527725728472542L9
(/ -8.661678305761957921L9 -0.87958882986448744696L0)
EQL-OK: 9.847417351919312785L9
(/ 3.6954900583503502368L9 -0.36989453222048823558L0)
EQL-OK: -9.9906587863470431315L9
(/ 6.740385471899914443L8 -0.2745720588185960522L0)
EQL-OK: -2.454869406924301959L9
(/ -5.1381279403866914758L9 -0.32555782051482221485L0)
EQL-OK: 1.578253574821668073L10
(/ -3.2065087686035281697L9 0.50505516522796299416L0)
EQL-OK: -6.3488287802308291444L9
(/ -7.7979994067331648055L9 -6.4459990751639263853L9)
EQL-OK: 1.2097425574847536075L0
(/ -4.7272619195621447717L9 -3.825695015629283172L8)
EQL-OK: 12.356609453314103588L0
(/ -3.5376744034596315073L9 2.7483444719369282795L9)
EQL-OK: -1.2872019645217230068L0
(/ -2.2400216393287578975L9 -3.7058330823204350567L9)
EQL-OK: 0.6044583200509807153L0
(/ 3.0621742151056386386L9 -8.846101104908494769L9)
EQL-OK: -0.34616088814613589822L0
(/ 7.5149875074517868906L9 4.423024956398348232L9)
EQL-OK: 1.6990606161017937287L0
(/ 7.6970261502618782055L9 -9.7716080626747355186L-11)
EQL-OK: -7.876928854384493259L19
(/ -8.725835744855911806L8 8.409822932470646079L-11)
EQL-OK: -1.0375766309139670758L19
(/ 5.820797723708174118L9 -2.882166534035175912L-11)
EQL-OK: -2.0195910454760464445L20
(/ 1.207852991950790034L9 5.840354579417081103L-11)
EQL-OK: 2.068115857567237665L19
(/ 3.1046967393071541823L9 -5.5642977043818474125L-11)
EQL-OK: -5.5796740294147564416L19
(/ 4.392532668212736406L9 -7.535498815249885942L-11)
EQL-OK: -5.8291199771983175508L19
(/ 1.3280881496906639524L9 -1.766515912740190632L19)
EQL-OK: -7.518121632035316941L-11
(/ 1.4277961930808139626L9 -8.986506745304867108L19)
EQL-OK: -1.5888222571321021114L-11
(/ -7.9134656119390343763L9 -3.4095849226963530828L19)
EQL-OK: 2.3209469162249057589L-10
(/ -8.7882725472722691335L9 -5.186325400713441962L19)
EQL-OK: 1.6945085138821670647L-10
(/ 3.8930727351090315925L9 -7.3980221641298868864L19)
EQL-OK: -5.2623155875161027887L-11
(/ 9.998404421166073569L9 -8.1317115085820412065L18)
EQL-OK: -1.2295571984586471158L-9
(/ 4.623792381028250544L9 6.996281129080973142L-21)
EQL-OK: 6.6089287947690416075L29
(/ 8.472924939037688662L9 -4.3460987737519244214L-22)
EQL-OK: -1.9495472560839050376L31
(/ 1.9551595642940545935L9 -7.5324972045717692564L-21)
EQL-OK: -2.5956326450508222435L29
(/ -8.5478772651240992225L9 -2.4212066230883777513L-21)
EQL-OK: 3.5304204042779411337L30
(/ 6.881700625121950854L9 -8.203099619911879591L-21)
EQL-OK: -8.389146717684109215L29
(/ 6.097099876947129031L9 -4.76850418677518328L-21)
EQL-OK: -1.2786189627046213921L30
(/ -5.0358061432469478737L-11 -0.6780392915138573621L0)
EQL-OK: 7.427012278305451381L-11
(/ -1.49762284327640383L-11 0.15227257119521089694L0)
EQL-OK: -9.835145171066142436L-11
(/ -7.1678035946969115934L-11 0.75360681415553320054L0)
EQL-OK: -9.511330656861051013L-11
(/ 4.583894304978394541L-12 0.68934670181533335835L0)
EQL-OK: 6.6496210004445016106L-12
(/ -3.8885547056166489716L-12 -0.010643810658165133798L0)
EQL-OK: 3.6533482513930678043L-10
(/ 9.49880444227161124L-11 -0.122629749019578004226L0)
EQL-OK: -7.745921783428843474L-10
(/ 2.1990660545226500317L-11 -1.4161745224867819854L9)
EQL-OK: -1.552821364602098501L-20
(/ 9.951737846856727225L-11 -6.0164204240154494783L9)
EQL-OK: -1.6540961477912788069L-20
(/ -5.873282338412930208L-11 2.3788798751415933107L9)
EQL-OK: -2.4689276662460085614L-20
(/ 2.2209512664584027642L-11 5.1944018613813348683L9)
EQL-OK: 4.2756631576205975403L-21
(/ -6.722318330051584872L-11 6.7936247801916195024L9)
EQL-OK: -9.895039169151724367L-21
(/ -7.528877773200399613L-12 -9.535757813603057891L9)
EQL-OK: 7.89541630604357328L-22
(/ -2.0857643618410047184L-11 2.701544718271986855L-11)
EQL-OK: -0.77206360780699598463L0
(/ 2.5510439626733908612L-11 1.6734405694946451074L-11)
EQL-OK: 1.5244305708709866576L0
(/ 3.048460642905138835L-11 5.1568899955161432057L-11)
EQL-OK: 0.5911432366321058725L0
(/ 9.876491787625061464L-12 8.667781903943973216L-11)
EQL-OK: 0.113944858062604306884L0
(/ 1.1166642175553123016L-11 -7.759981600144040302L-11)
EQL-OK: -0.14390036923986841014L0
(/ -2.7282824760136843772L-11 -9.160281916489131182L-11)
EQL-OK: 0.2978382653379466574L0
(/ -3.1587174777348029438L-11 -4.9090150171793744104L19)
EQL-OK: 6.4345239659701453497L-31
(/ -4.512784364891002838L-11 5.9600731551720265308L19)
EQL-OK: -7.571692909465218857L-31
(/ -1.431681316436341718L-11 -4.22349605246125618L19)
EQL-OK: 3.3898014788057508284L-31
(/ -6.719040537613210677L-11 -4.545488183802435408L19)
EQL-OK: 1.47817797911258332435L-30
(/ 2.5092238442261623676L-11 3.3004591427193857704L19)
EQL-OK: 7.602650830449936487L-31
(/ -6.198495042920933878L-12 1.8747110273916984954L19)
EQL-OK: -3.306373596972410786L-31
(/ 8.3326031863190006605L-11 6.3679312781687389584L-21)
EQL-OK: 1.3085259281747860217L10
(/ 2.228308172351851791L-11 -4.6204647093882084617L-22)
EQL-OK: -4.822692764700068564L10
(/ 9.7676469315043868665L-11 -6.6370355345926113967L-21)
EQL-OK: -1.4716882078745621587L10
(/ -8.9713798012161717115L-11 -3.669192301028840519L-21)
EQL-OK: 2.445055768459069116L10
(/ 7.214258511983827207L-11 -1.5195990661514104949L-21)
EQL-OK: -4.7474749574931692373L10
(/ 1.4822028144092954099L-12 2.269595713994387529L-21)
EQL-OK: 6.530690929974856047L8
(/ -4.6354687290142894644L19 0.032331325634476806982L0)
EQL-OK: -1.4337391486574910728L21
(/ -2.389352438897577318L19 0.8660312577952003013L0)
EQL-OK: -2.7589678979723536864L19
(/ -2.4109458405628950432L19 0.26688102636777617506L0)
EQL-OK: -9.033785104080363178L19
(/ 8.961066349333904704L19 -0.66178143682771294813L0)
EQL-OK: -1.35408245844568974384L20
(/ 6.6419769467305502364L19 -0.8456142496793601811L0)
EQL-OK: -7.854618047471472417L19
(/ 3.7389082257286159308L19 0.56261989685796304976L0)
EQL-OK: 6.645531462021022254L19
(/ 7.814283695666500025L19 -4.6620013293904720047L9)
EQL-OK: -1.6761650509199167363L10
(/ 6.6434731737611309404L19 -2.858805223329136325L9)
EQL-OK: -2.323863521567472329L10
(/ -1.3409334390407788129L19 6.1497605350647401055L9)
EQL-OK: -2.1804644772671013651L9
(/ 7.0858597943822241668L19 -2.58410378455919273L9)
EQL-OK: -2.7420956684179617314L10
(/ -6.6455998228898640428L19 -7.7545004942277582046L9)
EQL-OK: 8.569990843171226794L9
(/ 2.9602494058183339616L19 -5.7169856186590364077L9)
EQL-OK: -5.1779899465842692843L9
(/ -6.698311323164055808L19 -6.553232827426109497L-11)
EQL-OK: 1.02213846197113193186L30
(/ -7.554561034956199475L19 6.4764910162760040714L-11)
EQL-OK: -1.1664589692120175174L30
(/ 6.7796490729162210612L19 9.9915237995070190003L-11)
EQL-OK: 6.785400514434773617L29
(/ -6.9067747658009050975L18 -2.5761632749585983355L-11)
EQL-OK: 2.681031452058062687L29
(/ 1.629413698021581386L19 -8.612780517302459862L-11)
EQL-OK: -1.8918555915226283107L29
(/ 8.8732593909692189064L19 -4.0536919536865455935L-12)
EQL-OK: -2.1889328277398133904L31
(/ 4.8426213700963381164L19 7.883038261101094331L19)
EQL-OK: 0.61430900240485778846L0
(/ -5.2968355222513127376L19 1.5071497411718048594L19)
EQL-OK: -3.5144719715328600349L0
(/ -6.2610887651422622925L18 1.0358424497888766788L19)
EQL-OK: -0.60444411854509194816L0
(/ -2.4670994205369878408L19 6.9747461294856021948L19)
EQL-OK: -0.3537188844920639511L0
(/ 6.9460731069354980812L19 3.1486762233902586798L19)
EQL-OK: 2.2060296499639734035L0
(/ 8.822828644946363194L19 6.735435431753652773L19)
EQL-OK: 1.3099121406987093833L0
(/ 3.2098388728662261428L19 -2.6305167886064038438L-21)
EQL-OK: -1.2202312818412901165L40
(/ -7.144492994496515916L19 -2.0335028635662185032L-21)
EQL-OK: 3.5133921483478965099L40
(/ -6.3695870249569899508L19 1.9319318539671607067L-21)
EQL-OK: -3.2970039869042198792L40
(/ -5.405605759054511269L19 6.6371220252553042967L-21)
EQL-OK: -8.144502599899959829L39
(/ -4.5534797093596626272L19 9.223324048915255164L-21)
EQL-OK: -4.9369182793650108047L39
(/ 3.920618312396827221L19 -1.6559061178638737343L-21)
EQL-OK: -2.3676573629998072004L40
(/ -8.768637785982664131L-21 -0.18184176456694917492L0)
EQL-OK: 4.8221253279547290195L-20
(/ 2.6823352573966718016L-21 -0.55524799130252431824L0)
EQL-OK: -4.830877912956219511L-21
(/ -4.0350541003620172524L-21 0.27000304046926068644L0)
EQL-OK: -1.4944476526446376082L-20
(/ 6.332356861830292899L-21 0.65544003241974460534L0)
EQL-OK: 9.6612299350294242524L-21
(/ 3.5603120340723305693L-21 -0.124100556644984066966L0)
EQL-OK: -2.86889288035778711L-20
(/ 5.5961094005028721084L-21 0.47201702367299511838L0)
EQL-OK: 1.18557363820414998006L-20
(/ 1.7187188076305931646L-21 8.3685668129856246863L9)
EQL-OK: 2.0537791548292745125L-31
(/ -2.7220241842791803757L-21 2.2892422122227956846L9)
EQL-OK: -1.1890503196846804849L-30
(/ -6.028203796038167925L-21 -5.415224539645905615L9)
EQL-OK: 1.1131955382282900156L-30
(/ 6.6310444174308960725L-21 9.461342958972558645L9)
EQL-OK: 7.0085657460946591684L-31
(/ -8.8033709586752979635L-21 2.8098765759657792274L9)
EQL-OK: -3.1330098389284241575L-30
(/ -3.4027974212452472475L-21 6.219628754500815959L8)
EQL-OK: -5.4710619484849846614L-30
(/ 8.388977931970215088L-21 2.8213325814913435694L-11)
EQL-OK: 2.9734097947204223302L-10
(/ -9.3496400462478483586L-21 -9.381494249123695733L-11)
EQL-OK: 9.966045704415559596L-11
(/ -6.936639418470504025L-21 5.6618206553549859367L-11)
EQL-OK: -1.2251605694909792675L-10
(/ -2.3667892015182913211L-21 -7.1545639578577691874L-11)
EQL-OK: 3.3080830857887236957L-11
(/ -9.576766108065157562L-21 -6.4350290609494113365L-11)
EQL-OK: 1.4882242204905008798L-10
(/ -2.5955914883538434001L-22 5.8091383646322322124L-11)
EQL-OK: -4.4681178609147595716L-12
(/ -2.9619491950657497217L-21 -5.373067072601134649L19)
EQL-OK: 5.512585558757694777L-41
(/ 2.5726455340193007026L-22 3.0037766865540527038L19)
EQL-OK: 8.564703047118500122L-42
(/ -2.8277317971003367574L-21 -4.4068191966128705184L19)
EQL-OK: 6.4167184332721487087L-41
(/ 7.503784949731224261L-21 5.9540210967055505192L19)
EQL-OK: 1.2602886062804146604L-40
(/ 1.4876876016319254574L-22 8.6818746213386148185L18)
EQL-OK: 1.7135557313571827969L-41
(/ 2.699544264870480357L-21 3.6796341400587007856L19)
EQL-OK: 7.3364474893892979093L-41
(/ -7.285812539718203862L-21 5.700589904684711396L-21)
EQL-OK: -1.2780804551000530294L0
(/ 3.6474102791520560028L-21 -6.343773677116707765L-21)
EQL-OK: -0.574959080319812269L0
(/ -4.2510720089860863712L-21 -8.281980897162330288L-21)
EQL-OK: 0.51329169455614642465L0
(/ 5.770684998505203844L-21 6.5700291863604419324L-21)
EQL-OK: 0.8783347584642853315L0
(/ -4.8018196973750014744L-21 -7.3250029580209059804L-21)
EQL-OK: 0.6555382605159211192L0
(/ -3.9261100835261094614L-21 -8.986577968334144672L-21)
EQL-OK: 0.436885997913830856L0
RUN-TEST: finished "number" (0 errors out of 3,655 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"number2.tst" @1>
(DEFUN CHECK-XGCD (A B) (MULTIPLE-VALUE-BIND (G U V) (XGCD A B) (IF (= G (+ (* A U) (* B V))) G (FORMAT T "~& ~d~% ~d~%  ==> ~d~% ~d~% ~d~%" A B G U V))))
EQL-OK: CHECK-XGCD
(CHECK-XGCD 2346026393680644703525505657 17293822570713318399)
EQL-OK: 11
(CHECK-XGCD 77874422 32223899)
EQL-OK: 1
(CHECK-XGCD 560014183 312839871)
EQL-OK: 1
(CHECK-XGCD 3 2)
EQL-OK: 1
(CHECK-XGCD 2 3)
EQL-OK: 1
(CHECK-XGCD -2 3)
EQL-OK: 1
(CHECK-XGCD 576561 -5)
EQL-OK: 1
(CHECK-XGCD 974507656412513757857315037382926980395082974811562770185617915360 -1539496810360685510909469177732386446833404488164283)
EQL-OK: 1
(ISQRT 77371252437321868671713407)
EQL-OK: 8796093021183
(< 0.0 LEAST-POSITIVE-SHORT-FLOAT 1.0)
EQL-OK: T
(> MOST-POSITIVE-SHORT-FLOAT 1.0)
EQL-OK: T
(<= 2.83674s36 10801894066935227181020469351465354205855744/17827)
EQL-OK: T
(EXPT -5.0s0 2.0s0)
EQL-OK: #C(25.0s0 0.0s0)
(EXPT -5.0 2.0)
EQL-OK: #C(25.0 0.0)
(EXPT -5.0d0 2.0d0)
EQL-OK: #C(25.0d0 0.0d0)
(EXPT -5.0L0 2.0L0)
EQL-OK: #C(25.0L0 0.0L0)
(EXPT -5 2)
EQL-OK: 25
(EXPT 5.0s0 3.0s0)
EQL-OK: 125.0s0
(EXPT 5.0 3.0)
EQL-OK: 125.0
(EXPT 5.0d0 3.0d0)
EQL-OK: 125.0d0
(EXPT 5.0L0 3.0L0)
EQL-OK: 125.0L0
(EXPT 5 3)
EQL-OK: 125
(= 0.1d0 (SETQ Z #C(0.1d0 0.0d0)))
EQL-OK: T
(* Z (EXPT Z Z))
EQUALP-OK: #C(0.07943282347242815d0 0.0)
Z
EQL-OK: #C(0.1d0 0.0d0)
(LOG 8.0s0 2.0s0)
EQL-OK: 3.0s0
(LOG 8.0 2.0)
EQL-OK: 3.0
(LOG 8.0d0 2.0d0)
EQL-OK: 3.0d0
(LOG 8.0L0 2.0L0)
EQL-OK: 3.0L0
(LOG -8 -2)
EQL-OK: #C(1.0928407 -0.42078725)
(LOG -8.0s0 -2.0s0)
EQL-OK: #C(1.09283s0 -0.42078s0)
(LOG -8.0 -2.0)
EQL-OK: #C(1.0928407 -0.42078725)
(LOG -8.0d0 -2.0d0)
EQL-OK: #C(1.0928406470908163d0 -0.4207872484158604d0)
(LOG Z)
EQL-OK: #C(-2.3025850929940455d0 0.0d0)
Z
EQL-OK: #C(0.1d0 0.0d0)
(LOG 1)
EQL-OK: 0
(LOG #C(0 1))
EQL-OK: #C(0 1.5707964)
(LOG 0)
[SIMPLE-DIVISION-BY-ZERO]: LOG: division by zero
EQL-OK: ERROR
(LOG 0.0d0)
[SIMPLE-DIVISION-BY-ZERO]: LOG: division by zero
EQL-OK: ERROR
(LOG (COMPLEX #1=0.0 #1#))
[SIMPLE-DIVISION-BY-ZERO]: LOG: division by zero
EQL-OK: ERROR
(CIS 10)
EQL-OK: #C(-0.8390715 -0.5440211)
(CIS 123)
EQL-OK: #C(-0.8879689 -0.45990348)
(CIS (* 7.25d0 PI))
EQL-OK: #C(-0.7071067811865476d0 -0.7071067811865476d0)
(CIS #C(0.0d0 1.0d0))
EQL-OK: #C(0.36787944117144233d0 0.0d0)
(ZEROP (+ (CIS 123) (CIS -123) (* -2 (COS 123))))
EQL-OK: T
(ZEROP (+ (* #C(0 1) (- (CIS 123) (CIS -123))) (* 2 (SIN 123))))
EQL-OK: T
(EXP 0)
EQL-OK: 1
(EXP #C(0 1))
EQL-OK: #C(0.5403023 0.84147096)
(EXP #C(1 1))
EQL-OK: #C(1.468694 2.2873552)
(EXP #C(1 1.0d0))
EQL-OK: #C(1.4686939399158851d0 2.2873552871788423d0)
(EXP #C(1.0d0 1.0d0))
EQL-OK: #C(1.4686939399158851d0 2.2873552871788423d0)
(EXP #C(1.0L0 1))
EQL-OK: #C(1.4686939399158851572L0 2.2873552871788423912L0)
(EXP #C(0 1.0d0))
EQL-OK: #C(0.5403023058681398d0 0.8414709848078965d0)
(EXP 1)
EQL-OK: 2.7182817
(EXP 1.0s0)
EQL-OK: 2.7183s0
(EXP 1.0)
EQL-OK: 2.7182817
(EXP 1.0d0)
EQL-OK: 2.718281828459045d0
(EXP 1.0L0)
EQL-OK: 2.7182818284590452354L0
(SIN 0.0d0)
EQL-OK: 0.0d0
(SINH 0.0d0)
EQL-OK: 0.0d0
(TAN 0.0d0)
EQL-OK: 0.0d0
(TANH 0.0d0)
EQL-OK: 0.0d0
(TAN 1.57)
EQL-OK: 1255.8483
(TAN 1.57d0)
EQL-OK: 1255.7655915007895d0
(TAN Z)
EQL-OK: #C(0.10033467208545055d0 0.0d0)
(= (TAN Z) (TAN (REALPART Z)))
EQL-OK: T
(TANH Z)
EQL-OK: #C(0.09966799462495582d0 0.0d0)
(= (TANH Z) (TANH (REALPART Z)))
EQL-OK: T
(ATAN #C(1 2))
EQL-OK: #C(1.3389726 0.4023595)
(TAN #C(1 2))
EQL-OK: #C(0.033812825 1.0147936)
(TANH #C(20 2))
EQL-OK: #C(1.0 0.0)
(COSH #C(1 2))
EQL-OK: #C(-0.64214814 1.0686074)
(COSH #C(1.0d0 2.0d0))
EQL-OK: #C(-0.64214812471552d0 1.0686074213827783d0)
(LOG -3/4)
EQL-OK: #C(-0.2876821 3.1415927)
(LOG (/ MOST-POSITIVE-DOUBLE-FLOAT 2))
EQL-OK: 709.0895657128241d0
(EQL (SQRT 0) 0)
EQL-OK: T
(EQL (SQRT 1) 1)
EQL-OK: T
(EQL (SQRT 9) 3)
EQL-OK: T
(EQL (SQRT -9) #C(0 3))
EQL-OK: T
(EQL (SQRT #C(-7 24)) #C(3 4))
EQL-OK: T
(EQL (EXP 0) 1)
EQL-OK: T
(EQL (LOG 1) 0)
EQL-OK: T
(EQL (EXPT #C(10 11) 1) #C(10 11))
EQL-OK: T
(EQL (EXPT 0 1/2) 0)
EQL-OK: T
(EQL (EXPT 1 1/2) 1)
EQL-OK: T
(EQL (EXPT 9 1/2) 3)
EQL-OK: T
(EQL (EXPT -9 1/2) #C(0 3))
EQL-OK: T
(EQL (EXPT #C(-7 24) 1/2) #C(3 4))
EQL-OK: T
(EQL (EXPT 729 1/6) 3)
EQL-OK: T
(EQL (EXPT -3 -1) -1/3)
EQL-OK: T
(EQL (EXPT #C(3 4) -1) #C(3/25 -4/25))
EQL-OK: T
(EQL (CONJUGATE #C(4 -1)) #C(4 1))
EQL-OK: T
(EQL (CONJUGATE #C(3 0.4)) #C(3 -0.4))
EQL-OK: T
(EQL (SIN 0) 0)
EQL-OK: T
(EQL (REALPART (SIN #C(0 3.0))) 0)
EQL-OK: T
(EQL (COS 0) 1)
EQL-OK: T
(EQL (IMAGPART (COS #C(0 3.0))) 0)
EQL-OK: T
(EQL (TAN 0) 0)
EQL-OK: T
(EQL (REALPART (TAN #C(0 3.0))) 0)
EQL-OK: T
(EQL (ASIN 0) 0)
EQL-OK: T
(EQL (REALPART (ASIN #C(0 3.0))) 0)
EQL-OK: T
(EQL (ACOS 1) 0)
EQL-OK: T
(EQL (REALPART (ACOS 2.0)) 0)
EQL-OK: T
(EQL (ATAN 0) 0)
EQL-OK: T
(EQL (REALPART (ATAN #C(0 0.5))) 0)
EQL-OK: T
(EQL (SINH 0) 0)
EQL-OK: T
(EQL (REALPART (SINH #C(0 3.0))) 0)
EQL-OK: T
(EQL (COSH 0) 1)
EQL-OK: T
(EQL (IMAGPART (COSH #C(0 3.0))) 0)
EQL-OK: T
(EQL (TANH 0) 0)
EQL-OK: T
(EQL (REALPART (TANH #C(0 3.0))) 0)
EQL-OK: T
(EQL (ASINH 0) 0)
EQL-OK: T
(EQL (REALPART (ASINH #C(0 0.6))) 0)
EQL-OK: T
(EQL (ACOSH 1) 0)
EQL-OK: T
(EQL (REALPART (ACOSH -0.4)) 0)
EQL-OK: T
(EQL (ATANH 0) 0)
EQL-OK: T
(EQL (REALPART (ATANH #C(0 3.0))) 0)
EQL-OK: T
(SQRT 1)
EQL-OK: 1
(SQRT 1.0d0)
EQL-OK: 1.0d0
(SQRT -1)
EQL-OK: #C(0 1)
(SQRT -1.0d0)
EQL-OK: #C(0 1.0d0)
(ABS (SQRT -1))
EQL-OK: 1
(PHASE (SQRT -2))
EQL-OK: 1.5707964
(SIGNUM (SQRT -2))
EQL-OK: #C(0 1.0)
(ASIN 1)
EQL-OK: 1.5707964
(ASIN 2)
EQL-OK: #C(1.5707964 -1.316958)
(ACOS 1)
EQL-OK: 0
(ACOS 2)
EQL-OK: #C(0 1.316958)
(ATAN 1)
EQL-OK: 0.7853981
(ATAN 2)
EQL-OK: 1.1071488
(ATAN 2 3)
EQL-OK: 0.58800256
(SINH 10)
EQL-OK: 11013.232
(COSH 10)
EQL-OK: 11013.233
(TANH 10)
EQL-OK: 1.0
(TANH 3)
EQL-OK: 0.9950548
(ASINH 1)
EQL-OK: 0.88137364
(ACOSH 1)
EQL-OK: 0
(ACOSH 3)
EQL-OK: 1.762747
(ATANH 3)
EQL-OK: #C(0.3465736 1.5707964)
(ATANH 0.9)
EQL-OK: 1.4722193
(LOOP :FOR Z :FROM 1 :TO 1000 :FOR Z*Z = (* Z Z) :FOR |2^Z| = (ASH 1 Z) :FOR Z*2^Z = (ASH Z Z) :FOR Z^Z = (EXPT Z Z) :UNLESS (LOGTEST Z Z) :COLLECT (LIST 'LOGTEST Z) :UNLESS (LOGTEST Z*Z Z*Z) :COLLECT (LIST 'LOGTEST Z 'Z*Z Z*Z) :UNLESS (LOGTEST |2^Z| |2^Z|) :COLLECT (LIST 'LOGTEST Z '|2^Z| |2^Z|) :UNLESS (LOGTEST Z*2^Z Z*2^Z) :COLLECT (LIST 'LOGTEST Z 'Z*2^Z Z*2^Z) :UNLESS (LOGTEST Z*Z Z*Z) :COLLECT (LIST 'LOGTEST Z 'Z*Z Z*Z))
EQL-OK: NIL
(LOOP :FOR Z :FROM 0 :TO 1000 :FOR Z*Z = (* Z Z) :FOR |2^Z| = (ASH 1 Z) :FOR Z*2^Z = (ASH Z Z) :FOR Z^Z = (EXPT Z Z) :UNLESS (= Z (LOGAND Z Z)) :COLLECT (LIST 'LOGAND Z) :UNLESS (= Z*Z (LOGAND Z*Z Z*Z)) :COLLECT (LIST 'LOGAND Z 'Z*Z Z*Z) :UNLESS (= |2^Z| (LOGAND |2^Z| |2^Z|)) :COLLECT (LIST 'LOGAND Z '|2^Z| |2^Z|) :UNLESS (= Z*2^Z (LOGAND Z*2^Z Z*2^Z)) :COLLECT (LIST 'LOGAND Z 'Z*2^Z Z*2^Z) :UNLESS (= Z*Z (LOGAND Z*Z Z*Z)) :COLLECT (LIST 'LOGAND Z 'Z*Z Z*Z))
EQL-OK: NIL
(MOD-EXPT 1432 634 3456)
EQL-OK: 2944
(MOD-EXPT 640785284696442065785559134003308932264708355179002798538113 671286301850793527622248679786362012411973295201562077406347 541607700526106309999871171548445806906603126622271198261079)
EQL-OK: 184927654951560197998922671105024055618160643054333015564836
(DEFUN CHECK-SQRT (NUM EPS) (LET ((S (SQRT NUM))) (> (* EPS 2) (ABS (/ (- S (/ NUM S)) S)))))
EQL-OK: CHECK-SQRT
(CHECK-SQRT MOST-POSITIVE-SHORT-FLOAT SHORT-FLOAT-EPSILON)
EQL-OK: T
(CHECK-SQRT LEAST-POSITIVE-SHORT-FLOAT SHORT-FLOAT-EPSILON)
EQL-OK: T
(CHECK-SQRT LEAST-NEGATIVE-SHORT-FLOAT SHORT-FLOAT-EPSILON)
EQL-OK: T
(CHECK-SQRT MOST-NEGATIVE-SHORT-FLOAT SHORT-FLOAT-EPSILON)
EQL-OK: T
(CHECK-SQRT MOST-POSITIVE-SINGLE-FLOAT SINGLE-FLOAT-EPSILON)
EQL-OK: T
(CHECK-SQRT LEAST-POSITIVE-SINGLE-FLOAT SINGLE-FLOAT-EPSILON)
EQL-OK: T
(CHECK-SQRT LEAST-NEGATIVE-SINGLE-FLOAT SINGLE-FLOAT-EPSILON)
EQL-OK: T
(CHECK-SQRT MOST-NEGATIVE-SINGLE-FLOAT SINGLE-FLOAT-EPSILON)
EQL-OK: T
(CHECK-SQRT MOST-POSITIVE-DOUBLE-FLOAT DOUBLE-FLOAT-EPSILON)
EQL-OK: T
(CHECK-SQRT LEAST-POSITIVE-DOUBLE-FLOAT DOUBLE-FLOAT-EPSILON)
EQL-OK: T
(CHECK-SQRT LEAST-NEGATIVE-DOUBLE-FLOAT DOUBLE-FLOAT-EPSILON)
EQL-OK: T
(CHECK-SQRT MOST-NEGATIVE-DOUBLE-FLOAT DOUBLE-FLOAT-EPSILON)
EQL-OK: T
(CHECK-SQRT MOST-POSITIVE-LONG-FLOAT LONG-FLOAT-EPSILON)
EQL-OK: T
(CHECK-SQRT LEAST-POSITIVE-LONG-FLOAT LONG-FLOAT-EPSILON)
EQL-OK: T
(CHECK-SQRT LEAST-NEGATIVE-LONG-FLOAT LONG-FLOAT-EPSILON)
EQL-OK: T
(CHECK-SQRT MOST-NEGATIVE-LONG-FLOAT LONG-FLOAT-EPSILON)
EQL-OK: T
(DEFUN CHECK-MULT (NUM) (= NUM (* 1 NUM) (/ NUM 1)))
EQL-OK: CHECK-MULT
(CHECK-MULT MOST-POSITIVE-SHORT-FLOAT)
EQL-OK: T
(CHECK-MULT LEAST-POSITIVE-SHORT-FLOAT)
EQL-OK: T
(CHECK-MULT LEAST-NEGATIVE-SHORT-FLOAT)
EQL-OK: T
(CHECK-MULT MOST-NEGATIVE-SHORT-FLOAT)
EQL-OK: T
(CHECK-MULT MOST-POSITIVE-SINGLE-FLOAT)
EQL-OK: T
(CHECK-MULT LEAST-POSITIVE-SINGLE-FLOAT)
EQL-OK: T
(CHECK-MULT LEAST-NEGATIVE-SINGLE-FLOAT)
EQL-OK: T
(CHECK-MULT MOST-NEGATIVE-SINGLE-FLOAT)
EQL-OK: T
(CHECK-MULT MOST-POSITIVE-DOUBLE-FLOAT)
EQL-OK: T
(CHECK-MULT LEAST-POSITIVE-DOUBLE-FLOAT)
EQL-OK: T
(CHECK-MULT LEAST-NEGATIVE-DOUBLE-FLOAT)
EQL-OK: T
(CHECK-MULT MOST-NEGATIVE-DOUBLE-FLOAT)
EQL-OK: T
(CHECK-MULT MOST-POSITIVE-LONG-FLOAT)
EQL-OK: T
(CHECK-MULT LEAST-POSITIVE-LONG-FLOAT)
EQL-OK: T
(CHECK-MULT LEAST-NEGATIVE-LONG-FLOAT)
EQL-OK: T
(CHECK-MULT MOST-NEGATIVE-LONG-FLOAT)
EQL-OK: T
(LOOP :FOR X :IN '(1.0s0 1.0 1.0d0 1.0L0) :FOR EPS :IN (LIST SHORT-FLOAT-EPSILON SINGLE-FLOAT-EPSILON DOUBLE-FLOAT-EPSILON LONG-FLOAT-EPSILON) :FOR EPS2 = (* EPS 9/10) :UNLESS (EQUAL (FUNCALL (COMPILE NIL `(LAMBDA NIL (LIST (+ (+ ,X ,EPS2) ,EPS2) (+ ,EPS2 (+ ,EPS2 ,X)))))) (LIST X X)) :COLLECT (LIST X EPS EPS2))
EQL-OK: NIL
(EXP #C(1.0s0 2.0s0))
EQL-OK: #C(-1.13121s0 2.47174s0)
(EXP #C(1.0 2.0))
EQL-OK: #C(-1.1312044 2.4717267)
(EXP #C(1.0d0 2.0d0))
EQL-OK: #C(-1.1312043837568135d0 2.4717266720048188d0)
(EXP #C(1.0L0 2.0L0))
EQL-OK: #C(-1.1312043837568136384L0 2.4717266720048189277L0)
(SIN #C(1.0s0 2.0s0))
EQL-OK: #C(3.16577s0 1.9596s0)
(SIN #C(1.0 2.0))
EQL-OK: #C(3.1657784 1.959601)
(SIN #C(1.0d0 2.0d0))
EQL-OK: #C(3.165778513216168d0 1.9596010414216058d0)
(SIN #C(1.0L0 2.0L0))
EQL-OK: #C(3.1657785132161681467L0 1.9596010414216058971L0)
(ASIN #C(1.0s0 2.0s0))
EQL-OK: #C(0.427067s0 1.52856s0)
(ASIN #C(1.0 2.0))
EQL-OK: #C(0.42707857 1.5285708)
(ASIN #C(1.0d0 2.0d0))
EQL-OK: #C(0.4270785863924762d0 1.5285709194809982d0)
(ASIN #C(1.0L0 2.0L0))
EQL-OK: #C(0.4270785863924761255L0 1.5285709194809981613L0)
(COS #C(1.0s0 2.0s0))
EQL-OK: #C(2.0327s0 -3.0519s0)
(COS #C(1.0 2.0))
EQL-OK: #C(2.032723 -3.0518978)
(COS #C(1.0d0 2.0d0))
EQL-OK: #C(2.0327230070196656d0 -3.0518977991518d0)
(COS #C(1.0L0 2.0L0))
EQL-OK: #C(2.0327230070196655295L0 -3.0518977991518000574L0)
(ATAN #C(1.0s0 2.0s0))
EQL-OK: #C(1.33897s0 0.40236s0)
(ATAN #C(1.0 2.0))
EQL-OK: #C(1.3389726 0.4023595)
(ATAN #C(1.0d0 2.0d0))
EQL-OK: #C(1.3389725222944935d0 0.40235947810852507d0)
(ATAN #C(1.0L0 2.0L0))
EQL-OK: #C(1.3389725222944935611L0 0.40235947810852509365L0)
(COSH #C(1.0s0 2.0s0))
EQL-OK: #C(-0.64215s0 1.0686s0)
(COSH #C(1.0 2.0))
EQL-OK: #C(-0.64214814 1.0686074)
(COSH #C(1.0d0 2.0d0))
EQL-OK: #C(-0.64214812471552d0 1.0686074213827783d0)
(COSH #C(1.0L0 2.0L0))
EQL-OK: #C(-0.64214812471551996483L0 1.0686074213827783395L0)
(SINH #C(1.0s0 2.0s0))
EQL-OK: #C(-0.489056s0 1.40312s0)
(SINH #C(1.0 2.0))
EQL-OK: #C(-0.48905626 1.4031192)
(SINH #C(1.0d0 2.0d0))
EQL-OK: #C(-0.4890562590412937d0 1.4031192506220407d0)
(SINH #C(1.0L0 2.0L0))
EQL-OK: #C(-0.4890562590412936736L0 1.403119250622040588L0)
(ASINH #C(1.0s0 2.0s0))
EQL-OK: #C(1.46936s0 1.06343s0)
(ASINH #C(1.0 2.0))
EQL-OK: #C(1.4693518 1.0634403)
(ASINH #C(1.0d0 2.0d0))
EQL-OK: #C(1.4693517443681856d0 1.0634400235777521d0)
(ASINH #C(1.0L0 2.0L0))
EQL-OK: #C(1.4693517443681852733L0 1.0634400235777520562L0)
(TANH #C(1.0s0 2.0s0))
EQL-OK: #C(1.16673s0 -0.243458s0)
(TANH #C(1.0 2.0))
EQL-OK: #C(1.1667362 -0.2434582)
(TANH #C(1.0d0 2.0d0))
EQL-OK: #C(1.16673625724092d0 -0.24345820118572525d0)
(TANH #C(1.0L0 2.0L0))
EQL-OK: #C(1.1667362572409198818L0 -0.2434582011857252527L0)
(ACOS #C(1.0s0 2.0s0))
EQL-OK: #C(1.14374s0 -1.52856s0)
(ACOS #C(1.0 2.0))
EQL-OK: #C(1.1437178 -1.5285708)
(ACOS #C(1.0d0 2.0d0))
EQL-OK: #C(1.1437177404024204d0 -1.5285709194809982d0)
(ACOS #C(1.0L0 2.0L0))
EQL-OK: #C(1.1437177404024204937L0 -1.5285709194809981613L0)
(ACOSH #C(1.0s0 2.0s0))
EQL-OK: #C(1.52856s0 1.14372s0)
(ACOSH #C(1.0 2.0))
EQL-OK: #C(1.5285709 1.1437178)
(ACOSH #C(1.0d0 2.0d0))
EQL-OK: #C(1.5285709194809982d0 1.1437177404024204d0)
(ACOSH #C(1.0L0 2.0L0))
EQL-OK: #C(1.528570919480998161L0 1.1437177404024204937L0)
(LOG #C(1.0s0 2.0s0))
EQL-OK: #C(0.80472s0 1.10715s0)
(LOG #C(1.0 2.0))
EQL-OK: #C(0.804719 1.1071488)
(LOG #C(1.0d0 2.0d0))
EQL-OK: #C(0.8047189562170501d0 1.1071487177940904d0)
(LOG #C(1.0L0 2.0L0))
EQL-OK: #C(0.8047189562170501873L0 1.107148717794090503L0)
(ATANH #C(1.0s0 2.0s0))
EQL-OK: #C(0.173286s0 1.1781s0)
(ATANH #C(1.0 2.0))
EQL-OK: #C(0.1732868 1.1780972)
(ATANH #C(1.0d0 2.0d0))
EQL-OK: #C(0.17328679513998632d0 1.1780972450961724d0)
(ATANH #C(1.0L0 2.0L0))
EQL-OK: #C(0.17328679513998632736L0 1.1780972450961724645L0)
(TAN #C(1.0s0 2.0s0))
EQL-OK: #C(0.033813s0 1.0148s0)
(TAN #C(1.0 2.0))
EQL-OK: #C(0.033812825 1.0147936)
(TAN #C(1.0d0 2.0d0))
EQL-OK: #C(0.03381282607989669d0 1.0147936161466335d0)
(TAN #C(1.0L0 2.0L0))
EQL-OK: #C(0.033812826079896690283L0 1.0147936161466335681L0)
(DEFUN TEST-FUNCTION (FUNC MAX MIN &KEY (REPEAT 1000) (EXCEPT NIL)) (LOOP :FOR TYPE :IN '(SHORT-FLOAT SINGLE-FLOAT DOUBLE-FLOAT LONG-FLOAT) :FOR BAD = (MAPCAR (LAMBDA (X) (COERCE X TYPE)) EXCEPT) :NCONC (LOOP :FOR X = (+ (RANDOM (COERCE (- MAX MIN) TYPE)) MIN) :FOR X-BAD = (MEMBER X BAD :TEST #'=) :FOR R = (OR X-BAD (FUNCALL FUNC X)) :REPEAT REPEAT :UNLESS (OR X-BAD (TYPEP R TYPE) (TYPEP R `(COMPLEX ,TYPE))) :COLLECT (LIST X BAD R FUNC TYPE))))
EQL-OK: TEST-FUNCTION
(LOOP :FOR F :IN '(EXP SIN ASIN COS ATAN COSH SINH ASINH TANH) :NCONC (TEST-FUNCTION F 10 -10))
EQL-OK: NIL
(TEST-FUNCTION 'ACOS 1 -1)
EQL-OK: NIL
(TEST-FUNCTION 'ACOSH 20 1)
EQL-OK: NIL
(TEST-FUNCTION 'LOG 10 -10 :EXCEPT '(0))
EQL-OK: NIL
(TEST-FUNCTION 'ATANH 10 -10 :EXCEPT '(-1 1))
EQL-OK: NIL
(TEST-FUNCTION 'TAN 10 -10 :EXCEPT (NCONC (LOOP :FOR X :FROM (/ PI 2) :BY PI :TO 10 :COLLECT X) (LOOP :FOR X :FROM (/ PI -2) :BY PI :DOWNTO -10 :COLLECT X)))
EQL-OK: NIL
(LET ((BOOLE-N-VECTOR (VECTOR BOOLE-CLR BOOLE-AND BOOLE-ANDC1 BOOLE-2 BOOLE-ANDC2 BOOLE-1 BOOLE-XOR BOOLE-IOR BOOLE-NOR BOOLE-EQV BOOLE-C1 BOOLE-ORC1 BOOLE-C2 BOOLE-ORC2 BOOLE-NAND BOOLE-SET))) (LIST (LOOP :FOR N :FROM 0 :TO 15 :UNLESS (= N (LOGAND (BOOLE (AREF BOOLE-N-VECTOR N) 5 3) 15)) :COLLECT N) (FLET ((BOOLE-N (N INTEGER &REST MORE-INTEGERS) (APPLY #'BOOLE (ELT BOOLE-N-VECTOR N) INTEGER MORE-INTEGERS))) (LOOP :FOR N :FROM 0 :TO 15 :COLLECT (BOOLE-N N 5 3)))))
EQUAL-OK: (NIL (0 1 2 3 4 5 6 7 -8 -7 -6 -5 -4 -3 -2 -1))
(LOOP :FOR I :FROM 1 :TO 100 :COLLECT (LIST I (INTEGER-LENGTH (! I))))
EQUAL-OK: ((1 1) (2 2) (3 3) (4 5) (5 7) (6 10) (7 13) (8 16) (9 19) (10 22) (11 26) (12 29) (13 33) (14 37) (15 41) (16 45) (17 49) (18 53) (19 57) (20 62) (21 66) (22 70) (23 75) (24 80) (25 84) (26 89) (27 94) (28 98) (29 103) (30 108) (31 113) (32 118) (33 123) (34 128) (35 133) (36 139) (37 144) (38 149) (39 154) (40 160) (41 165) (42 170) (43 176) (44 181) (45 187) (46 192) (47 198) (48 203) (49 209) (50 215) (51 220) (52 226) (53 232) (54 238) (55 243) (56 249) (57 255) (58 261) (59 267) (60 273) (61 279) (62 285) (63 290) (64 296) (65 303) (66 309) (67 315) (68 321) (69 327) (70 333) (71 339) (72 345) (73 351) (74 358) (75 364) (76 370) (77 376) (78 383) (79 389) (80 395) (81 402) (82 408) (83 414) (84 421) (85 427) (86 434) (87 440) (88 447) (89 453) (90 459) (91 466) (92 473) (93 479) (94 486) (95 492) (96 499) (97 505) (98 512) (99 519) (100 525))
(MULTIPLE-VALUE-LIST (INTEGER-DECODE-FLOAT 1.0d23))
EQUAL-OK: (5960464477539062 24 1)
(PRIN1-TO-STRING 1.0d22)
EQUAL-OK: "1.0d22"
(PRIN1-TO-STRING 1.0d23)
EQUAL-OK: "1.0d23"
(PRIN1-TO-STRING 1.0d24)
EQUAL-OK: "1.0d24"
(LOOP :FOR I :FROM -200 :UPTO 200 :FOR S = (FORMAT NIL "1.0d~d" I) :FOR X = (READ-FROM-STRING S) :UNLESS (OR (<= -3 I 6) (STRING= (PRIN1-TO-STRING X) S)) :COLLECT (LIST I S X))
EQL-OK: NIL
(DEFUN TEST-FLOAT-IO-CONSISTENCY (&KEY FROM TO BY REPEAT) (LOOP :FOR MAX = FROM :THEN (* BY MAX) :WHILE (< MAX TO) :NCONC (LOOP :REPEAT REPEAT :FOR X = (RANDOM MAX) :FOR Y = (IF (ZEROP (RANDOM 2)) X (- X)) :UNLESS (= Y (READ-FROM-STRING (PRIN1-TO-STRING Y))) :COLLECT (CONS Y (MULTIPLE-VALUE-LIST (INTEGER-DECODE-FLOAT Y))))))
WARNING: LOOP: FOR clauses should occur before the loop's main body
WARNING: LOOP: FOR clauses should occur before the loop's main bodyEQL-OK: TEST-FLOAT-IO-CONSISTENCY
(TEST-FLOAT-IO-CONSISTENCY :FROM 1.0s-30 :BY 10 :TO 1.0s30 :REPEAT 100)
EQL-OK: NIL
(TEST-FLOAT-IO-CONSISTENCY :FROM 1.0E-30 :BY 10 :TO 1.0E30 :REPEAT 100)
EQL-OK: NIL
(TEST-FLOAT-IO-CONSISTENCY :FROM 1.0d-300 :BY 100 :TO 1.0d300 :REPEAT 10)
EQL-OK: NIL
(TEST-FLOAT-IO-CONSISTENCY :FROM 1.0L-3000 :BY 1000 :TO 1.0L3000 :REPEAT 10)
EQL-OK: NIL
(LOOP :REPEAT 6400 :FOR X = -100.0L0 :THEN (+ X 0.03125L0) :FOR (X1 X2) = (MULTIPLE-VALUE-LIST (ROUND X)) :FOR (X3 X4) = (MULTIPLE-VALUE-LIST (ROUND (FLOAT X 1.0s0))) :UNLESS (AND (= X1 X3) (= X2 X4)) :COLLECT (LIST X X1 X2 X3 X4))
WARNING: LOOP: FOR clauses should occur before the loop's main body
WARNING: LOOP: FOR clauses should occur before the loop's main body
WARNING: LOOP: FOR clauses should occur before the loop's main bodyEQL-OK: NIL
(NUMBERP (LOG INTERNAL-TIME-UNITS-PER-SECOND))
EQL-OK: T
(LOOP :FOR X :IN '(2.0s0 2.0 2.0d0 2.0L0 -2.0s0 -2.0 -2.0d0 -2.0L0) :ALWAYS (PLUSP (IMAGPART (ATANH (COMPLEX X (FLOAT 0 X))))))
EQL-OK: T
(LOOP :FOR X :IN '(2.0s0 2.0 2.0d0 2.0L0 -2.0s0 -2.0 -2.0d0 -2.0L0) :ALWAYS (PLUSP (IMAGPART (ATANH X))))
EQL-OK: T
(LOOP :WITH MIN = (ASH 1 64) :WITH MAX = (- (ASH 1 200) MIN) :REPEAT 100 :FOR B = (+ MIN (RANDOM MAX)) :FOR S = (SXHASH B) :FOR B1 = (LOGXOR B (ASH 1 (FLOOR (INTEGER-LENGTH B) 2))) :FOR S1 = (SXHASH B1) :WHEN (= S S1) :COLLECT (LIST B S B1 S1))
WARNING: LOOP: FOR clauses should occur before the loop's main body
WARNING: LOOP: FOR clauses should occur before the loop's main body
WARNING: LOOP: FOR clauses should occur before the loop's main body
WARNING: LOOP: FOR clauses should occur before the loop's main bodyEQL-OK: NIL
(TANH 1.0s13)
EQL-OK: 1.0s0
(TANH 1000.0s0)
EQL-OK: 1.0s0
(TANH 100.0s0)
EQL-OK: 1.0s0
(TANH 10.0s0)
EQL-OK: 1.0s0
(TANH 1.0s0)
EQL-OK: 0.7616s0
(TANH 1.0)
EQL-OK: 0.7615942
(TANH 1.0d0)
EQL-OK: 0.7615941559557649d0
(TANH 1.0L0)
EQL-OK: 0.7615941559557648881L0
(TANH 10.0)
EQL-OK: 1.0
(TANH 10.0d0)
EQL-OK: 0.9999999958776927d0
(TANH 10.0L0)
EQL-OK: 0.9999999958776927636L0
(TANH 1.0L100)
EQL-OK: 1.0L0
(TANH 1.0d100)
EQL-OK: 1.0d0
(TANH 1.0E10)
EQL-OK: 1.0
(TANH 1.0s10)
EQL-OK: 1.0s0
(TANH 1.0d-10)
EQL-OK: 1.0d-10
(TANH 1.0L-10)
EQL-OK: 1.0L-10
(TANH 1.0L-17)
EQL-OK: 1.0L-17
(TANH 1.0L-47)
EQL-OK: 1.0L-47
(= (FLOAT (REALPART (LOG (COERCE #C(1.0d0 1.0d-8) '(COMPLEX LONG-FLOAT)))) 0.0d0) (REALPART (LOG #C(1.0d0 1.0d-8))))
EQL-OK: T
(= (FLOAT (REALPART (LOG (COERCE #C(1.000000001d0 1.0d-5) '(COMPLEX LONG-FLOAT)))) 0.0d0) (REALPART (LOG #C(1.000000001d0 1.0d-5))))
EQL-OK: T
(COERCE 1 'DOUBLE-FLOAT)
EQL-OK: 1.0d0
(COERCE 1 '(DOUBLE-FLOAT 0.0d0))
EQL-OK: 1.0d0
(COERCE 1 '(DOUBLE-FLOAT * *))
EQL-OK: 1.0d0
(COERCE 1 '(DOUBLE-FLOAT * -1.0d0))
[SIMPLE-TYPE-ERROR]: COERCE: 1 cannot be coerced to type #1=(DOUBLE-FLOAT * -1.0d0)
EQL-OK: ERROR
(+ (LOG MOST-POSITIVE-SHORT-FLOAT) (LOG LEAST-POSITIVE-SHORT-FLOAT))
EQL-OK: 1.38574s0
(+ (LOG MOST-POSITIVE-SINGLE-FLOAT) (LOG LEAST-POSITIVE-SINGLE-FLOAT))
EQL-OK: 1.3862915
(+ (LOG MOST-POSITIVE-DOUBLE-FLOAT) (LOG LEAST-POSITIVE-DOUBLE-FLOAT))
EQL-OK: 1.3862943611198943d0
(+ (LOG MOST-POSITIVE-LONG-FLOAT) (LOG LEAST-POSITIVE-LONG-FLOAT))
EQL-OK: -0.69314718060195446014L0
(MAPCAR #'LOG '(1.0s0 1.0 1.0d0 1.0L0))
EQUAL-OK: (0.0s0 0.0 0.0d0 0.0L0)
(< (EXPT 10 -100) LEAST-POSITIVE-SHORT-FLOAT)
EQL-OK: T
(WITHOUT-FLOATING-POINT-UNDERFLOW (= (+ LEAST-POSITIVE-SHORT-FLOAT (EXPT 10 -100)) LEAST-POSITIVE-SHORT-FLOAT))
EQL-OK: T
(DEFUN FLOAT-RATIONAL-CMP (X &OPTIONAL (SCALE 10)) (LET* ((R (RATIONAL X)) (N (NUMERATOR R)) (D (DENOMINATOR R)) (Y (/ (1+ (* SCALE N)) (1+ (* SCALE D)))) (Z (/ (1+ (* SCALE SCALE N)) (1+ (* SCALE D))))) (LIST (= Y X) (OR (< (- X) X Z) (> (- X) X Z)) (OR (< 1 Y X) (> 1 Y X)))))
EQL-OK: FLOAT-RATIONAL-CMP
(FLOAT-RATIONAL-CMP PI)
EQUAL-OK: (NIL T T)
(FLOAT-RATIONAL-CMP (FLOAT PI 1.0d0))
EQUAL-OK: (NIL T T)
(FLOAT-RATIONAL-CMP (FLOAT PI 1.0))
EQUAL-OK: (NIL T T)
(FLOAT-RATIONAL-CMP (FLOAT PI 1.0s0))
EQUAL-OK: (NIL T T)
(FLOAT-RATIONAL-CMP (FLOAT PI -1.0d0))
EQUAL-OK: (NIL T T)
(FLOAT-RATIONAL-CMP (FLOAT PI -1.0))
EQUAL-OK: (NIL T T)
(FLOAT-RATIONAL-CMP (FLOAT PI -1.0s0))
EQUAL-OK: (NIL T T)
(FLOAT-RATIONAL-CMP (/ PI))
EQUAL-OK: (NIL T T)
(FLOAT-RATIONAL-CMP (FLOAT (/ PI) 1.0d0))
EQUAL-OK: (NIL T T)
(FLOAT-RATIONAL-CMP (FLOAT (/ PI) 1.0))
EQUAL-OK: (NIL T T)
(FLOAT-RATIONAL-CMP (FLOAT (/ PI) 1.0s0))
EQUAL-OK: (NIL T T)
(FLOAT-RATIONAL-CMP MOST-POSITIVE-SHORT-FLOAT)
EQUAL-OK: (NIL T T)
(FLOAT-RATIONAL-CMP LEAST-POSITIVE-SHORT-FLOAT)
EQUAL-OK: (NIL T T)
(FLOAT-RATIONAL-CMP MOST-POSITIVE-SINGLE-FLOAT)
EQUAL-OK: (NIL T T)
(FLOAT-RATIONAL-CMP LEAST-POSITIVE-SINGLE-FLOAT)
EQUAL-OK: (NIL T T)
(FLOAT-RATIONAL-CMP MOST-POSITIVE-DOUBLE-FLOAT)
EQUAL-OK: (NIL T T)
(FLOAT-RATIONAL-CMP LEAST-POSITIVE-DOUBLE-FLOAT)
EQUAL-OK: (NIL T T)
(FLOAT-RATIONAL-CMP MOST-NEGATIVE-SHORT-FLOAT)
EQUAL-OK: (NIL T T)
(FLOAT-RATIONAL-CMP LEAST-NEGATIVE-SHORT-FLOAT)
EQUAL-OK: (NIL T T)
(FLOAT-RATIONAL-CMP MOST-NEGATIVE-SINGLE-FLOAT)
EQUAL-OK: (NIL T T)
(FLOAT-RATIONAL-CMP LEAST-NEGATIVE-SINGLE-FLOAT)
EQUAL-OK: (NIL T T)
(FLOAT-RATIONAL-CMP MOST-NEGATIVE-DOUBLE-FLOAT)
EQUAL-OK: (NIL T T)
(FLOAT-RATIONAL-CMP LEAST-NEGATIVE-DOUBLE-FLOAT)
EQUAL-OK: (NIL T T)
(LOG (ASH 1 10))
EQL-OK: 6.931472
(LOG (ASH 1 100))
EQL-OK: 69.31472
(LOG (ASH 1 1000))
EQL-OK: 693.14716
(LOG (ASH 1 10000))
EQL-OK: 6931.4717
(LOG (ASH 1 100000))
EQL-OK: 69314.72
(LOG (/ (1+ (ASH 1 100000)) (ASH 1 1000)))
EQL-OK: 68621.57
(LOG (/ (ASH 1 100000) (ASH 1 1000)))
EQL-OK: 68621.57
(LOG (ASH 1 100000))
EQL-OK: 69314.72
(LOG (EXPT 234 108) 10)
EQL-OK: 255.8753
(DEFMACRO CHECK-ERROR (FORM) `(BLOCK CHECK-ERROR (HANDLER-BIND ((ARITHMETIC-ERROR (LAMBDA (C) (PRINC-ERROR C) (RETURN-FROM CHECK-ERROR (CONS (ARITHMETIC-ERROR-OPERATION C) (ARITHMETIC-ERROR-OPERANDS C)))))) ,FORM)))
EQL-OK: CHECK-ERROR
(CHECK-ERROR (EXQUO 13 4))
[SIMPLE-ARITHMETIC-ERROR]: quotient 13 / 4 is not an integer
EQUAL-OK: (EXQUO 4 13)
(CHECK-ERROR (/ 0))
[SIMPLE-DIVISION-BY-ZERO]: /: division by zero
EQUAL-OK: (/)
(CHECK-ERROR (ASH 1 10000000))
[SIMPLE-ARITHMETIC-ERROR]: ASH: shift 10000000 is too large
EQUAL-OK: (ASH 1 10000000)
(CHECK-ERROR (FLOAT (ASH 1 100000) 0.0d0))
[SIMPLE-FLOATING-POINT-OVERFLOW]: FLOAT: floating point overflow
EQUAL-OK: (FLOAT)
(SYMBOLS-CLEANUP '(CHECK-XGCD CHECK-SQRT CHECK-MULT FLOAT-RATIONAL-CMP TEST-FUNCTION CHECK-ERROR))
EQL-OK: NIL
RUN-TEST: finished "number2" (0 errors out of 331 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"pack11.tst" @1>
(PACKAGEP *PACKAGE*)
EQL-OK: T
(EVERY #'PACKAGEP (LIST-ALL-PACKAGES))
EQL-OK: T
(AND (FIND-PACKAGE 'LISP) T)
EQL-OK: T
(AND (FIND-PACKAGE 'USER) T)
EQL-OK: T
(AND (FIND-PACKAGE 'KEYWORD) T)
EQL-OK: T
(AND (FIND-PACKAGE 'SYSTEM) T)
EQL-OK: T
(AND (FIND-PACKAGE 'SYS) T)
EQL-OK: T
(AND (FIND-PACKAGE "sys") T)
EQL-OK: NIL
(AND (FIND-PACKAGE "sys") T)
EQL-OK: NIL
(AND (FIND-PACKAGE "system") T)
EQL-OK: NIL
(AND (FIND-PACKAGE "SYSTEM") T)
EQL-OK: T
(AND (FIND-PACKAGE "SYS") T)
EQL-OK: T
(EQ (FIND-PACKAGE (FIND-PACKAGE "CL")) (FIND-PACKAGE "CL"))
EQL-OK: T
(DEFPARAMETER COMMON-LISP-USER::*SAVED-PACKAGE* *PACKAGE*)
EQL-OK: COMMON-LISP-USER::*SAVED-PACKAGE*
(FIND "SYS" (PACKAGE-NICKNAMES 'SYS) :TEST #'STRING=)
EQUAL-OK: "SYS"
(PACKAGE-NAME 'SYS)
EQUAL-OK: "SYSTEM"
(PACKAGE-NAME 'SYSTEM)
EQUAL-OK: "SYSTEM"
(PACKAGE-NAME "COMMON-LISP-USER")
EQUAL-OK: "COMMON-LISP-USER"
(PACKAGE-NAME "SYS")
EQUAL-OK: "SYSTEM"
(LET ((P (MAKE-PACKAGE #\p))) (PROG1 (EQ P (FIND-PACKAGE #\p)) (DELETE-PACKAGE P)))
EQL-OK: T
(PROGN (MAKE-PACKAGE #\p) (DELETE-PACKAGE #\p))
EQL-OK: T
(PACKAGE-NAME (MAKE-PACKAGE 'PACK11-P1 :NICKNAMES '(T1 TST1)))
EQUAL-OK: "PACK11-P1"
(PACKAGE-NAME (RENAME-PACKAGE (FIND-PACKAGE "PACK11-P1") (FIND-PACKAGE "PACK11-P1")))
EQUAL-OK: "PACK11-P1"
(AND (IN-PACKAGE "PACK11-P1") T)
EQL-OK: T
(EXPORT '(TEST1-Y TEST1-Z) (FIND-PACKAGE '"PACK11-P1"))
EQL-OK: T
(EXPORT '(TEST1-A TEST1-B TEST1-C) (FIND-PACKAGE 'PACK11-P1))
EQL-OK: T
(SETF TEST1-A -2 TEST1-B -1 TEST1-C 0 TEST1-X 1 TEST1-Y 2 TEST1-Z 3)
EQL-OK: 3
(PACKAGE-NAME (DEFPACKAGE PACK11-P2 (:NICKNAMES "PACK11-T2" "PACK11-TST2") (:USE PACK11-P1)))
EQUAL-OK: "PACK11-P2"
(PROGN (IN-PACKAGE "PACK11-P2") T)
EQL-OK: COMMON-LISP:T
(COMMON-LISP:PACKAGE-NAME (COMMON-LISP:FIND-PACKAGE 'PACK11-P2))
EQUAL-OK: "PACK11-P2"
(COMMON-LISP:PACKAGE-NAME COMMON-LISP:*PACKAGE*)
EQUAL-OK: "PACK11-P2"
(COMMON-LISP:IMPORT '(COMMON-LISP:ERROR) (COMMON-LISP:FIND-PACKAGE 'PACK11-P2))
EQL-OK: COMMON-LISP:T
(COMMON-LISP:AND (COMMON-LISP:BOUNDP 'TEST1-X) TEST1-X)
EQL-OK: COMMON-LISP:NIL
(COMMON-LISP:UNINTERN 'TEST1-X)
EQL-OK: COMMON-LISP:T
(EVAL (READ-FROM-STRING "(cl:and (cl:boundp 'pack11-p1:test1-x) pack11-p1:test1-x)"))
[SIMPLE-UNDEFINED-FUNCTION]: COMMON-LISP:EVAL: undefined function EVAL
EQL-OK: ERROR
(COMMON-LISP:AND (COMMON-LISP:BOUNDP 'PACK11-P1::TEST1-X) PACK11-P1::TEST1-X)
EQL-OK: 1
(COMMON-LISP:AND (COMMON-LISP:BOUNDP 'TEST1-Y) TEST1-Y)
EQL-OK: 2
(COMMON-LISP:UNINTERN 'TEST1-Y)
EQL-OK: COMMON-LISP:NIL
(COMMON-LISP:AND (COMMON-LISP:BOUNDP 'TEST1-Y) TEST1-Y)
EQL-OK: 2
(COMMON-LISP:AND (COMMON-LISP:BOUNDP 'TEST1-Y) TEST1-Y)
EQL-OK: 2
(COMMON-LISP:IMPORT '(PACK11-P1::TEST1-X TEST1-Y) (COMMON-LISP:FIND-PACKAGE 'PACK11-P2))
EQL-OK: COMMON-LISP:T
(COMMON-LISP:AND (COMMON-LISP:BOUNDP 'TEST1-X) TEST1-X)
EQL-OK: 1
(EVAL (READ-FROM-STRING "(cl:and (cl:boundp 'pack11-p1:test1-x) pack11-p1:test1-x)"))
[SIMPLE-UNDEFINED-FUNCTION]: COMMON-LISP:EVAL: undefined function EVAL
EQL-OK: ERROR
(COMMON-LISP:AND (COMMON-LISP:BOUNDP 'TEST1-X) TEST1-X)
EQL-OK: 1
(COMMON-LISP:AND (COMMON-LISP:BOUNDP 'TEST1-Z) TEST1-Z)
EQL-OK: 3
(COMMON-LISP:UNINTERN 'TEST1-Z (COMMON-LISP:FIND-PACKAGE 'PACK11-P2))
EQL-OK: COMMON-LISP:NIL
(COMMON-LISP:AND (COMMON-LISP:BOUNDP 'TEST1-Z) TEST1-Z)
EQL-OK: 3
TEST1-Z
EQL-OK: 3
(COMMON-LISP:UNEXPORT '(TEST1-X TEST1-Y) (COMMON-LISP:FIND-PACKAGE 'PACK11-P1))
EQL-OK: COMMON-LISP:T
(COMMON-LISP:AND (COMMON-LISP:BOUNDP 'TEST1-X) TEST1-X)
EQL-OK: 1
(COMMON-LISP:AND (COMMON-LISP:BOUNDP 'TEST1-Y) TEST1-Y)
EQL-OK: 2
(COMMON-LISP:UNINTERN 'TEST1-X (COMMON-LISP:FIND-PACKAGE 'PACK11-P2))
EQL-OK: COMMON-LISP:T
(EVAL (READ-FROM-STRING "pack11-p1:test1-x"))
[SIMPLE-UNDEFINED-FUNCTION]: COMMON-LISP:EVAL: undefined function EVAL
EQL-OK: ERROR
PACK11-P1::TEST1-X
EQL-OK: 1
TEST1-Z
EQL-OK: 3
(COMMON-LISP:UNINTERN 'TEST1-Z (COMMON-LISP:FIND-PACKAGE 'PACK11-P2))
EQL-OK: COMMON-LISP:NIL
TEST1-Z
EQL-OK: 3
TEST1-Z
EQL-OK: 3
(COMMON-LISP:IMPORT 'TEST1-Z (COMMON-LISP:FIND-PACKAGE 'PACK11-P2))
EQL-OK: COMMON-LISP:T
TEST1-Z
EQL-OK: 3
TEST1-Z
EQL-OK: 3
TEST1-Z
EQL-OK: 3
TEST1-C
EQL-OK: 0
(COMMON-LISP:UNINTERN 'TEST-C (COMMON-LISP:FIND-PACKAGE 'PACK11-P2))
EQL-OK: COMMON-LISP:T
TEST1-C
EQL-OK: 0
TEST1-C
EQL-OK: 0
(COMMON-LISP:IMPORT '(TEST1-A TEST1-B TEST1-C) (COMMON-LISP:FIND-PACKAGE 'PACK11-P2))
EQL-OK: COMMON-LISP:T
TEST1-C
EQL-OK: 0
TEST1-C
EQL-OK: 0
TEST1-C
EQL-OK: 0
(COMMON-LISP:EQ 'TEST1-C 'TEST1-C)
EQL-OK: COMMON-LISP:T
(COMMON-LISP:PACKAGEP (COMMON-LISP:MAKE-PACKAGE "PACK11"))
EQL-OK: COMMON-LISP:T
(COMMON-LISP:AND (COMMON-LISP:IN-PACKAGE "PACK11") COMMON-LISP:T)
EQL-OK: T
(SETF X 1 Y 2 Z 3)
EQL-OK: 3
(AND (DEFPACKAGE "PACK11-EDITOR") T)
EQL-OK: T
(AND (IN-PACKAGE "PACK11-EDITOR") T)
EQL-OK: T
(UNINTERN 'X)
EQL-OK: T
(UNINTERN 'Y)
EQL-OK: T
(UNINTERN 'Z)
EQL-OK: T
PACK11::X
EQL-OK: 1
(EVAL (READ-FROM-STRING "pack11:x"))
[SIMPLE-PACKAGE-ERROR]: READ from #<INPUT STRING-INPUT-STREAM>: #1=#<PACKAGE PACK11> has no external symbol with name "X"
EQL-OK: ERROR
X
[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable X has no value
EQL-OK: ERROR
(EQ 'X 'PACK11::X)
EQL-OK: NIL
(UNINTERN 'X)
EQL-OK: T
(EXPORT '(PACK11::X PACK11::Y) (FIND-PACKAGE 'PACK11))
EQL-OK: T
PACK11:X
EQL-OK: 1
PACK11:X
EQL-OK: 1
X
[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable X has no value
EQL-OK: ERROR
(UNINTERN 'X)
EQL-OK: T
(IMPORT 'PACK11:X (FIND-PACKAGE 'PACK11-EDITOR))
EQL-OK: T
X
EQL-OK: 1
(EQ 'X 'X)
EQL-OK: T
(EQ 'X 'X)
EQL-OK: T
(EQ 'X 'X)
EQL-OK: T
(AND (IN-PACKAGE "PACK11") T)
EQL-OK: T
(UNEXPORT 'Y)
EQL-OK: T
(AND (IN-PACKAGE "PACK11-EDITOR") T)
EQL-OK: T
Y
[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable Y has no value
EQL-OK: ERROR
(EVAL (READ-FROM-STRING "pack11:y"))
[SIMPLE-PACKAGE-ERROR]: READ from #<INPUT STRING-INPUT-STREAM>: #1=#<PACKAGE PACK11> has no external symbol with name "Y"
EQL-OK: ERROR
PACK11::Y
EQL-OK: 2
(AND (IN-PACKAGE "PACK11") (PACKAGE-NAME *PACKAGE*))
EQUAL-OK: "PACK11"
(EXT:APPEASE-CERRORS (LET ((*PACKAGE* "not a package - just a string")) (MULTIPLE-VALUE-LIST (READ-FROM-STRING "READ-FROM-STRING"))))
WARNING: The value of *PACKAGE* was not a package and was reset. The old value
         was "not a package - just a string". The new value is
         #<PACKAGE COMMON-LISP>.
EQUAL-OK: (READ-FROM-STRING 16)
(LET ((TMP-SYM (MAKE-SYMBOL "FOO")) (         Proceed with the new value.
OLD-SYM (FIND-SYMBOL "FOO" "PACK11"))) (WHEN OLD-SYM (UNINTERN OLD-SYM "PACK11")) (LIST (IMPORT TMP-SYM "PACK11") (PACKAGE-NAME (SYMBOL-PACKAGE TMP-SYM)) (UNINTERN TMP-SYM "PACK11") (FIND-SYMBOL "FOO" "PACK11")))
EQUAL-OK: (T "PACK11" T NIL)
(SETF D 4 E 5 F 6 Y 111 X 222)
EQL-OK: 222
(EXPORT '(A B C Y X) (FIND-PACKAGE 'PACK11))
EQL-OK: T
(IMPORT '(A B C Y) (FIND-PACKAGE 'PACK11-EDITOR))
[SIMPLE-PACKAGE-ERROR]: Importing Y into #1=#<PACKAGE PACK11-EDITOR> produces a name conflict with PACK11-EDITOR::Y.
EQL-OK: ERROR
(AND (MAKE-PACKAGE 'PACK11-SHADOW) (IN-PACKAGE "PACK11-SHADOW") T)
EQL-OK: T
(SETF X 'PACK11-SHADOW)
EQL-OK: PACK11-SHADOW
(SHADOWING-IMPORT '(PACK11::D PACK11::E PACK11::F PACK11:X) (FIND-PACKAGE 'PACK11-SHADOW))
EQL-OK: T
X
EQL-OK: 222
(EQ X X)
EQL-OK: T
(SHADOW '(E #\F) (FIND-PACKAGE 'PACK11-SHADOW))
EQL-OK: T
(SETF E 'PACK11-SHADOW-E)
EQL-OK: PACK11-SHADOW-E
(EQ 'E 'E)
EQL-OK: T
E
EQL-OK: PACK11-SHADOW-E
(EVAL (READ-FROM-STRING "pack11:e"))
[SIMPLE-PACKAGE-ERROR]: READ from #<INPUT STRING-INPUT-STREAM>: #1=#<PACKAGE PACK11> has no external symbol with name "E"
EQL-OK: ERROR
E
EQL-OK: PACK11-SHADOW-E
(PROGN (SETQ PG3 (MAKE-PACKAGE "PACK11-G3") PG1 (MAKE-PACKAGE "PACK11-G1" :USE (LIST PG3)) PG2 (MAKE-PACKAGE "PACK11-G2" :USE (LIST PG3)) PH (MAKE-PACKAGE "PACK11-H" :USE (LIST PG1 PG2))) (SHADOW "FOO" PH))
EQL-OK: T
(SETQ GSYM (INTERN "FOO" PG3))
EQL-OK: PACK11-G3::FOO
(EXPORT GSYM PG3)
EQL-OK: T
(EXPORT GSYM PG1)
EQL-OK: T
(EXPORT GSYM PG2)
EQL-OK: T
(MULTIPLE-VALUE-LIST (SETF (VALUES SYM ACCESS) (FIND-SYMBOL "FOO" PH)))
EQUAL-OK: (PACK11-H::FOO :INTERNAL)
(PACKAGE-SHADOWING-SYMBOLS PH)
EQUAL-OK: (PACK11-H::FOO)
(EQ SYM GSYM)
EQL-OK: NIL
(EQUAL (SYMBOL-PACKAGE SYM) PH)
EQL-OK: T
(UNINTERN SYM PH)
EQL-OK: T
(SETF (EXT:PACKAGE-LOCK PH) T)
EQL-OK: T
(SYMBOL-NAME (EXT:MUFFLE-CERRORS (READ-FROM-STRING "PACK11-H::QUUX")))
EQUAL-OK: "QUUX"
(SETF (EXT:PACKAGE-LOCK PH) NIL)
EQL-OK: NIL
(DELETE-PACKAGE PH)
EQL-OK: T
(DELETE-PACKAGE PG1)
EQL-OK: T
(DELETE-PACKAGE PG2)
EQL-OK: T
(DELETE-PACKAGE PG3)
EQL-OK: T
(DELETE-PACKAGE "PACK11-P2")
EQL-OK: T
(DELETE-PACKAGE "PACK11-P1")
EQL-OK: T
(AND (MAKE-PACKAGE 'PACK11-USE) (IN-PACKAGE "PACK11-USE") T)
EQL-OK: T
(USE-PACKAGE '(PACK11))
EQL-OK: T
PACK11::D
EQL-OK: 4
(EVAL (READ-FROM-STRING "pack11:d"))
[SIMPLE-PACKAGE-ERROR]: READ from #<INPUT STRING-INPUT-STREAM>: #1=#<PACKAGE PACK11> has no external symbol with name "D"
EQL-OK: ERROR
D
[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable D has no value
EQL-OK: ERROR
(UNUSE-PACKAGE 'PACK11)
EQL-OK: T
PACK11::D
EQL-OK: 4
(EVAL (READ-FROM-STRING "pack11:d"))
[SIMPLE-PACKAGE-ERROR]: READ from #<INPUT STRING-INPUT-STREAM>: #1=#<PACKAGE PACK11> has no external symbol with name "D"
EQL-OK: ERROR
D
[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable D has no value
EQL-OK: ERROR
(AND (MAKE-PACKAGE 'PACK11-INHERIT :NICKNAMES '(INH I)) (IN-PACKAGE "PACK11-INHERIT") T)
EQL-OK: T
(SETF A 'INHERITA B 'INHERITB)
EQL-OK: INHERITB
(EXPORT '(A B) (FIND-PACKAGE 'PACK11-INHERIT))
EQL-OK: T
(AND (MAKE-PACKAGE 'PACK11-INHERIT1 :USE '(PACK11-INHERIT)) (IN-PACKAGE "PACK11-INHERIT1") T)
EQL-OK: COMMON-LISP:T
A
EQL-OK: PACK11-INHERIT::INHERITA
B
EQL-OK: PACK11-INHERIT::INHERITB
(COMMON-LISP:SETF C 'INHERIT1C)
EQL-OK: INHERIT1C
(COMMON-LISP:AND (COMMON-LISP:MAKE-PACKAGE 'PACK11-INHERIT2 :USE '(PACK11-INHERIT1)) (COMMON-LISP:IN-PACKAGE "PACK11-INHERIT2") COMMON-LISP:T)
EQL-OK: COMMON-LISP:T
A
[SIMPLE-UNBOUND-VARIABLE]: COMMON-LISP:EVAL: variable A has no value
EQL-OK: COMMON-LISP:ERROR
B
[SIMPLE-UNBOUND-VARIABLE]: COMMON-LISP:EVAL: variable B has no value
EQL-OK: COMMON-LISP:ERROR
C
[SIMPLE-UNBOUND-VARIABLE]: COMMON-LISP:EVAL: variable C has no value
EQL-OK: COMMON-LISP:ERROR
(EVAL (READ-FROM-STRING "(cl:eq 'c 'pack11-inherit1:c)"))
[SIMPLE-UNDEFINED-FUNCTION]: COMMON-LISP:EVAL: undefined function EVAL
EQL-OK: COMMON-LISP:ERROR
(EVAL (READ-FROM-STRING "(cl:eq 'a 'pack11-inherit:a)"))
[SIMPLE-UNDEFINED-FUNCTION]: COMMON-LISP:EVAL: undefined function EVAL
EQL-OK: COMMON-LISP:ERROR
(EVAL (READ-FROM-STRING "(cl:eq 'b 'pack11-inherit:b)"))
[SIMPLE-UNDEFINED-FUNCTION]: COMMON-LISP:EVAL: undefined function EVAL
EQL-OK: COMMON-LISP:ERROR
(COMMON-LISP:EQ 'C 'PACK11-INHERIT1::C)
EQL-OK: COMMON-LISP:NIL
(COMMON-LISP:EQ 'A 'PACK11-INHERIT:A)
EQL-OK: COMMON-LISP:NIL
(COMMON-LISP:EQ 'B 'PACK11-INHERIT:B)
EQL-OK: COMMON-LISP:NIL
(COMMON-LISP:AND (COMMON-LISP:IN-PACKAGE "PACK11") COMMON-LISP:T)
EQL-OK: T
(DELETE-PACKAGE "PACK11-EDITOR")
EQL-OK: T
(DELETE-PACKAGE "PACK11-SHADOW")
EQL-OK: T
(DELETE-PACKAGE "PACK11-USE")
EQL-OK: T
(DELETE-PACKAGE "PACK11-INHERIT2")
EQL-OK: T
(DELETE-PACKAGE "PACK11-INHERIT1")
EQL-OK: T
(DELETE-PACKAGE "PACK11-INHERIT")
EQL-OK: T
(AND (MEMBER 'X (SETF S (FIND-ALL-SYMBOLS 'X))) T)
EQL-OK: T
(EVAL (READ-FROM-STRING "(and (member 'pack11-editor:x s) t)"))
[SIMPLE-PACKAGE-ERROR]: READ from #<INPUT STRING-INPUT-STREAM>: there is no package with name #1="PACK11-EDITOR"
EQL-OK: ERROR
(AND (MEMBER 'X (SETF S1 (FIND-ALL-SYMBOLS 'X))) T)
EQL-OK: T
(SET-DIFFERENCE S S1)
EQL-OK: NIL
(SETF SYM NIL ESYM NIL ASYM NIL)
EQL-OK: NIL
(DO-SYMBOLS (S (FIND-PACKAGE 'PACK11)) (PUSH (SYMBOL-NAME S) SYM))
EQL-OK: NIL
(DO-EXTERNAL-SYMBOLS (S (FIND-PACKAGE 'PACK11)) (PUSH (SYMBOL-NAME S) ESYM))
EQL-OK: NIL
(DO-ALL-SYMBOLS (S) (PUSH (SYMBOL-NAME S) ASYM))
EQL-OK: NIL
(FIND "ESYM" SYM :TEST #'STRING=)
EQUAL-OK: "ESYM"
(FIND "ESYM" ESYM :TEST #'STRING=)
EQL-OK: NIL
(FIND "LAMBDA-LIST-KEYWORDS" ESYM :TEST #'STRING=)
EQL-OK: NIL
(AND *MODULES* T)
EQL-OK: NIL
(LET ((*MODULES* *MODULES*)) (PROVIDE 'PROVIDE-TEST) (FIND "PROVIDE-TEST" *MODULES* :TEST #'STRING=))
EQUAL-OK: "PROVIDE-TEST"
(UNLESS (MEMBER "z" *MODULES* :TEST #'STRING=) (LET ((*MODULES* *MODULES*)) (PROVIDE "z") (REQUIRE #\z) NIL))
EQL-OK: NIL
(LET ((*MODULES* *MODULES*)) (PROVIDE :ABAZONK) (NOT (MEMBER :ABAZONK *MODULES* :TEST #'STRING=)))
EQL-OK: NIL
(DEFUN 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 do not correspond")) T))
EQL-OK: TEST-PACKAGE-ITERATOR
(COMPILE 'TEST-PACKAGE-ITERATOR)
EQL-OK: TEST-PACKAGE-ITERATOR
(TEST-PACKAGE-ITERATOR :COMMON-LISP-USER)
EQL-OK: T
(TEST-PACKAGE-ITERATOR :COMMON-LISP)
EQL-OK: T
(PROGN (DEFCONSTANT +FAIL-COUNT-LIMIT+ 20) (DEFMACRO TEST-WITH-PACKAGE-ITERATOR (PACKAGE-LIST-EXPR &REST SYMBOL-TYPES) "Build an expression that tests the with-package-iterator form." (LET ((NAME (GENSYM)) (CHT-VAR (GENSYM)) (PKG-LIST-VAR (GENSYM))) `(LET ((,CHT-VAR (MAKE-HASH-TABLE)) (,PKG-LIST-VAR ,PACKAGE-LIST-EXPR) (FAIL-COUNT 0)) (WITH-PACKAGE-ITERATOR (,NAME ,PKG-LIST-VAR ,@(COPY-LIST SYMBOL-TYPES)) (LOOP (BLOCK FAIL (MULTIPLE-VALUE-BIND (MORE SYM ACCESS PKG) (,NAME) (UNLESS MORE (RETURN NIL)) (SETF (GETHASH SYM ,CHT-VAR) T) (UNLESS (MEMBER ACCESS ',(COPY-LIST SYMBOL-TYPES)) (UNLESS (> FAIL-COUNT +FAIL-COUNT-LIMIT+) (FORMAT T "Bad access type: ~S ==> ~A~%" SYM ACCESS)) (WHEN (= FAIL-COUNT +FAIL-COUNT-LIMIT+) (FORMAT T "Further messages suppressed~%")) (INCF FAIL-COUNT) (RETURN-FROM FAIL NIL)) (UNLESS (PACKAGEP PKG) (UNLESS (> FAIL-COUNT +FAIL-COUNT-LIMIT+) (FORMAT T "Not a package: ~S ==> ~S~%" SYM PKG)) (WHEN (= FAIL-COUNT +FAIL-COUNT-LIMIT+) (FORMAT T "Further messages suppressed~%")) (INCF FAIL-COUNT) (RETURN-FROM FAIL NIL)) (MULTIPLE-VALUE-BIND (SYM2 ACCESS2) (FIND-SYMBOL (SYMBOL-NAME SYM) PKG) (UNLESS (OR (EQ SYM SYM2) (MEMBER SYM2 (PACKAGE-SHADOWING-SYMBOLS PKG))) (UNLESS (> FAIL-COUNT +FAIL-COUNT-LIMIT+) (FORMAT T "Not same symbol: ~S ~S~%" SYM SYM2)) (WHEN (= FAIL-COUNT +FAIL-COUNT-LIMIT+) (FORMAT T "Further messages suppressed~%")) (INCF FAIL-COUNT) (RETURN-FROM FAIL NIL)) (UNLESS (EQ ACCESS ACCESS2) (UNLESS (> FAIL-COUNT +FAIL-COUNT-LIMIT+) (FORMAT T "Not same access type: ~S ~S ~S~%" SYM ACCESS ACCESS2)) (WHEN (= FAIL-COUNT +FAIL-COUNT-LIMIT+) (FORMAT T "Further messages suppressed~%")) (INCF FAIL-COUNT) (RETURN-FROM FAIL NIL))))))) (LOOP FOR P IN ,PKG-LIST-VAR DO (BLOCK FAIL (DO-SYMBOLS (SYM P) (MULTIPLE-VALUE-BIND (SYM2 ACCESS) (FIND-SYMBOL (SYMBOL-NAME SYM) P) (UNLESS (EQ SYM SYM2) (UNLESS (> FAIL-COUNT +FAIL-COUNT-LIMIT+) (FORMAT T "Not same symbol (2): ~S ~S~%" SYM SYM2)) (WHEN (= FAIL-COUNT +FAIL-COUNT-LIMIT+) (FORMAT T "Further messages suppressed~%")) (INCF FAIL-COUNT) (RETURN-FROM FAIL NIL)) (UNLESS (OR (NOT (MEMBER ACCESS ',(COPY-LIST SYMBOL-TYPES))) (GETHASH SYM ,CHT-VAR)) (FORMAT T "Symbol not found: ~S~%" SYM) (INCF FAIL-COUNT) (RETURN-FROM FAIL NIL)))))) (OR (ZEROP FAIL-COUNT) FAIL-COUNT)))) (DEFUN WITH-PACKAGE-ITERATOR-INTERNAL (PACKAGES) (TEST-WITH-PACKAGE-ITERATOR PACKAGES :INTERNAL)) (COMPILE 'WITH-PACKAGE-ITERATOR-INTERNAL) (DEFUN WITH-PACKAGE-ITERATOR-EXTERNAL (PACKAGES) (TEST-WITH-PACKAGE-ITERATOR PACKAGES :EXTERNAL)) (COMPILE 'WITH-PACKAGE-ITERATOR-EXTERNAL) (DEFUN WITH-PACKAGE-ITERATOR-INHERITED (PACKAGES) (TEST-WITH-PACKAGE-ITERATOR PACKAGES :INHERITED)) (COMPILE 'WITH-PACKAGE-ITERATOR-INHERITED) (DEFUN WITH-PACKAGE-ITERATOR-ALL (PACKAGES) (TEST-WITH-PACKAGE-ITERATOR PACKAGES :INTERNAL :EXTERNAL :INHERITED)) (COMPILE 'WITH-PACKAGE-ITERATOR-ALL) T)
EQL-OK: T
(WITH-PACKAGE-ITERATOR-INTERNAL (LIST (FIND-PACKAGE "COMMON-LISP-USER")))
EQL-OK: T
(WITH-PACKAGE-ITERATOR-EXTERNAL (LIST (FIND-PACKAGE "COMMON-LISP-USER")))
EQL-OK: T
(WITH-PACKAGE-ITERATOR-INHERITED (LIST (FIND-PACKAGE "COMMON-LISP-USER")))
EQL-OK: T
(WITH-PACKAGE-ITERATOR-ALL (LIST (FIND-PACKAGE "COMMON-LISP-USER")))
EQL-OK: T
(WITH-PACKAGE-ITERATOR-INTERNAL (LIST (FIND-PACKAGE "COMMON-LISP")))
EQL-OK: T
(WITH-PACKAGE-ITERATOR-EXTERNAL (LIST (FIND-PACKAGE "COMMON-LISP")))
EQL-OK: T
(WITH-PACKAGE-ITERATOR-INHERITED (LIST (FIND-PACKAGE "COMMON-LISP")))
EQL-OK: T
(WITH-PACKAGE-ITERATOR-ALL (LIST (FIND-PACKAGE "COMMON-LISP")))
EQL-OK: T
(WITH-PACKAGE-ITERATOR-INTERNAL (LIST (FIND-PACKAGE "COMMON-LISP-USER") (FIND-PACKAGE "COMMON-LISP")))
EQL-OK: T
(WITH-PACKAGE-ITERATOR-EXTERNAL (LIST (FIND-PACKAGE "COMMON-LISP-USER") (FIND-PACKAGE "COMMON-LISP")))
EQL-OK: T
(WITH-PACKAGE-ITERATOR-INHERITED (LIST (FIND-PACKAGE "COMMON-LISP-USER") (FIND-PACKAGE "COMMON-LISP")))
EQL-OK: T
(WITH-PACKAGE-ITERATOR-ALL (LIST (FIND-PACKAGE "COMMON-LISP-USER") (FIND-PACKAGE "COMMON-LISP")))
EQL-OK: T
(MAP NIL #'PRINT (LIST-ALL-PACKAGES))
#<PACKAGE GSTREAM> 
#<PACKAGE GRAY> 
#<PACKAGE I18N> 
#<PACKAGE SOCKET> 
#<PACKAGE SCREEN> 
#<PACKAGE CUSTOM> 
#<PACKAGE EXT> 
#<PACKAGE CLOS> 
#<PACKAGE CS-COMMON-LISP-USER> 
#<PACKAGE CS-COMMON-LISP> 
#<PACKAGE CHARSET> 
#<PACKAGE KEYWORD> 
#<PACKAGE SYSTEM> 
#<PACKAGE COMMON-LISP-USER> 
#<PACKAGE COMMON-LISP> 
#<PACKAGE EXPORTING> 
#<PACKAGE HASH-CLASSES> 
#<PACKAGE |/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/pack11.erg|> 
#<PACKAGE PACK11> 
EQL-OK: NIL
(EXT:APPEASE-CERRORS (LET (SYSTEM::*COUTPUT-STREAM*) (SETQ SYSTEM::*COUTPUT-STREAM* 123)))
WARNING: SETQ(SYSTEM::*COUTPUT-STREAM*): #<PACKAGE SYSTEM> is locked
         IgnoreEQL-OK: 123
(EXT:PACKAGE-CASE-SENSITIVE-P (MAKE-PACKAGE "PACK11-PACKAGE-CASE the lock and proceed
" :CASE-SENSITIVE T :CASE-INVERTED T))
EQL-OK: T
(EXT:PACKAGE-CASE-INVERTED-P (DEFPACKAGE "PACK11-PACKAGE-CASE" (:CASE-SENSITIVE NIL) (:CASE-INVERTED NIL)))
WARNING: One should not change the case sensitiveness of
         #<PACKAGE PACK11-PACKAGE-CASE>.
WARNING: One should not change the case inversion of
         #<PACKAGE PACK11-PACKAGE-CASE>.EQL-OK: NIL
(SETF (EXT:PACKAGE-CASE-INVERTED-P "PACK11-PACKAGE-CASE") T (EXT:PACKAGE-CASE-SENSITIVE-P "PACK11-PACKAGE-CASE") T)
EQL-OK: T
(LET ((*BREAK-ON-SIGNALS* 'WARNING)) (EXT:PACKAGE-CASE-SENSITIVE-P (DEFPACKAGE "PACK11-PACKAGE-CASE" (:CASE-INVERTED T) (:CASE-SENSITIVE T))))
EQL-OK: T
(DELETE-PACKAGE "PACK11-PACKAGE-CASE")
EQL-OK: T
(PROGN (SETQ *PACKAGE* COMMON-LISP-USER::*SAVED-PACKAGE*) (DELETE-PACKAGE "PACK11"))
EQL-OK: T
(LET ((F "pack11-tst.lisp")) (UNWIND-PROTECT (PROGN (WITH-OPEN-FILE (OUT F :DIRECTION :OUTPUT) (PRINC ";; test non-top-level defpackage compilation
(defmacro my-defpackage (name use)
  `(eval-when (:compile-toplevel :load-toplevel :execute)
     (let ((pkg (defpackage ,name (:use))))
       (use-package '(,use) pkg)
       pkg)))
(my-defpackage #:pack11-bar #:cl)
(in-package #:pack11-bar)
(defun baz (x) x)
" OUT)) (LIST (CDR (MULTIPLE-VALUE-LIST (COMPILE-FILE F))) (EQUAL (PACKAGE-USE-LIST '#:PACK11-BAR) (LIST (FIND-PACKAGE '#:CL))))) (DELETE-PACKAGE '#:PACK11-BAR) (POST-COMPILE-FILE-CLEANUP F)))
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/pack11-tst.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/pack11-tst.fas
0 errors, 0 warningsEQUAL-OK: ((NIL NIL) T)
(SYMBOL-CLEANUP 'COMMON-LISP-USER::*SAVED-PACKAGE*)
EQL-OK: NIL
RUN-TEST: finished "pack11" (0 errors out of 211 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"path.tst" @1>
(SETF MY-STRING "path-tst-test-pathname.abc" MY-SYMBOL 'PATH-TST-TEST-PATHNAME.ABC)
EQL-OK: PATH-TST-TEST-PATHNAME.ABC
(SETF PATHSTRING (PATHNAME MY-STRING))
EQUAL-OK: #P"path-tst-test-pathname.abc"
(SETF PATHSYMBOL (PATHNAME MY-SYMBOL))
EQUAL-OK: #P"path-tst-test-pathname.abc"
(SETF PATHPATH (PATHNAME PATHSYMBOL))
EQUAL-OK: #P"path-tst-test-pathname.abc"
(PROGN (SETF MY-STREAM (OPEN MY-STRING :DIRECTION :OUTPUT)) NIL)
EQL-OK: NIL
(MAPCAR #'PATHNAMEP (LIST PATHSTRING PATHSYMBOL PATHPATH))
EQUAL-OK: (T T T)
(PARSE-NAMESTRING "")
EQUAL-OK: #P""
(PARSE-NAMESTRING "./")
EQUAL-OK: #P"./"
(NAMESTRING #P"./")
EQUAL-OK: "./"
(PARSE-NAMESTRING MY-STRING)
EQUAL-OK: #P"path-tst-test-pathname.abc"
(PARSE-NAMESTRING MY-SYMBOL)
EQUAL-OK: #P"path-tst-test-pathname.abc"
(PARSE-NAMESTRING PATHSTRING)
EQUAL-OK: #P"path-tst-test-pathname.abc"
(PARSE-NAMESTRING "path-tst-test-pathname.abc" NIL)
EQUAL-OK: #P"path-tst-test-pathname.abc"
(PARSE-NAMESTRING "abc.123" NIL NIL :START 0 :END 5)
EQUAL-OK: #P"abc.1"
(PARSE-NAMESTRING "abc.123" NIL NIL :START 2 :END 5)
EQUAL-OK: #P"c.1"
(MAKE-PATHNAME :DEVICE NIL :DEFAULTS *DEFAULT-PATHNAME-DEFAULTS*)
EQUAL-OK: #P""
(MAPCAR #'PATHNAMEP (LIST PATHSYMBOL PATHPATH PATHSTRING))
EQUAL-OK: (T T T)
(PROGN (CLOSE MY-STREAM) T)
EQL-OK: T
(PATHNAME "*.*")
EQUAL-OK: #P"*.*"
(PROGN (SETF MY-FILE (OPEN "path-tst-non-existent-file.non" :DIRECTION :INPUT :ELEMENT-TYPE 'STRING-CHAR :IF-DOES-NOT-EXIST :CREATE)) T)
EQL-OK: T
(NULL (PROBE-FILE "path-tst-non-existent-file.non"))
EQL-OK: NIL
(PROGN (CLOSE MY-FILE) T)
EQL-OK: T
(SETF MY-FILE (OPEN "path-tst-non-existent-file.non" :DIRECTION :IO :ELEMENT-TYPE 'STRING-CHAR :IF-EXISTS :ERROR))
[SIMPLE-FILE-ERROR]: OPEN: File #1=#P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-non-existent-file.non" already exists
EQL-OK: ERROR
(PROGN (CLOSE MY-FILE) T)
EQL-OK: T
(NULL (SETF MY-FILE (OPEN "path-tst-non-existent-file.non" :DIRECTION :IO :ELEMENT-TYPE 'STRING-CHAR :IF-EXISTS :NEW-VERSION)))
EQL-OK: NIL
(PROGN (CLOSE MY-FILE) T)
EQL-OK: T
(NULL (SETF MY-FILE (OPEN "path-tst-non-existent-file.non" :DIRECTION :IO :ELEMENT-TYPE 'STRING-CHAR :IF-EXISTS :RENAME)))
EQL-OK: NIL
(PROGN (CLOSE MY-FILE) T)
EQL-OK: T
(NULL (SETF MY-FILE (OPEN "path-tst-non-existent-file.non" :DIRECTION :IO :ELEMENT-TYPE 'STRING-CHAR :IF-EXISTS :RENAME-AND-DELETE)))
EQL-OK: NIL
(PROGN (CLOSE MY-FILE) T)
EQL-OK: T
(NULL (SETF MY-FILE (OPEN "path-tst-non-existent-file.non" :DIRECTION :IO :ELEMENT-TYPE 'STRING-CHAR :IF-EXISTS :OVERWRITE)))
EQL-OK: NIL
(PROGN (CLOSE MY-FILE) T)
EQL-OK: T
(NULL (SETF MY-FILE (OPEN "path-tst-non-existent-file.non" :DIRECTION :IO :ELEMENT-TYPE 'STRING-CHAR :IF-EXISTS :APPEND)))
EQL-OK: NIL
(PROGN (CLOSE MY-FILE) T)
EQL-OK: T
(NULL (SETF MY-FILE (OPEN "path-tst-non-existent-file.non" :DIRECTION :IO :ELEMENT-TYPE 'STRING-CHAR :IF-EXISTS :SUPERSEDE)))
EQL-OK: NIL
(PROGN (CLOSE MY-FILE) T)
EQL-OK: T
(SETF MY-FILE (OPEN "path-tst-non-existent-file.non" :DIRECTION :IO :ELEMENT-TYPE 'STRING-CHAR :IF-EXISTS NIL))
EQL-OK: NIL
(PROGN (CLOSE MY-FILE) T)
[METHOD-CALL-TYPE-ERROR]: NO-APPLICABLE-METHOD: When calling #1=#<STANDARD-GENERIC-FUNCTION CLOSE> with arguments #2=(NIL), no method is applicable.
EQL-OK: ERROR
(SETF MY-FILE (OPEN "non-existent-file.new" :DIRECTION :IO :ELEMENT-TYPE 'STRING-CHAR :IF-DOES-NOT-EXIST :ERROR))
[SIMPLE-FILE-ERROR]: OPEN: File #1=#P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/non-existent-file.new" does not exist
EQL-OK: ERROR
(PROGN (CLOSE MY-FILE) T)
[METHOD-CALL-TYPE-ERROR]: NO-APPLICABLE-METHOD: When calling #1=#<STANDARD-GENERIC-FUNCTION CLOSE> with arguments #2=(NIL), no method is applicable.
EQL-OK: ERROR
(TRUENAME "~/no/ such / path /  non-existent-file.new")
[SIMPLE-FILE-ERROR]: TRUENAME: Directory #1=#P"/builddir/no/" does not exist
EQL-OK: ERROR
(NULL (SETF MY-FILE (OPEN "non-existent-file.new" :DIRECTION :IO :ELEMENT-TYPE 'STRING-CHAR :IF-DOES-NOT-EXIST :CREATE)))
EQL-OK: NIL
(PROGN (CLOSE MY-FILE) T)
EQL-OK: T
(NULL (SETF MY-FILE (OPEN "path-tst-non-existent-file.non" :DIRECTION :IO :ELEMENT-TYPE 'STRING-CHAR :IF-DOES-NOT-EXIST NIL)))
EQL-OK: NIL
(PROGN (CLOSE MY-FILE) T)
EQL-OK: T
(LET ((*DEFAULT-PATHNAME-DEFAULTS* #P"")) (MULTIPLE-VALUE-BIND (NEW-NAME PATHNAME TRUENAME) (RENAME-FILE "path-tst-non-existent-file.non" "path-tst-file.da") (LIST (NAMESTRING NEW-NAME) (NULL PATHNAME) (NULL TRUENAME))))
EQUAL-OK: ("path-tst-file.da" NIL NIL)
(CLOSE (OPEN "path-tst-file.da" :DIRECTION :OUTPUT :IF-EXISTS :RENAME-AND-DELETE))
EQL-OK: T
(PATHNAMEP (PROBE-FILE "path-tst-test-pathname.abc"))
EQL-OK: T
(PROGN (DELETE-FILE "path-tst-test-pathname.abc") T)
EQL-OK: T
(PROGN (MAPC #'DELETE-FILE (DIRECTORY "non-existent-file.*")) T)
EQL-OK: T
(PROGN (DELETE-FILE "path-tst-file.da") T)
EQL-OK: T
(PROGN (SETF (LOGICAL-PATHNAME-TRANSLATIONS "clocc") '(("**;*" "/usr/local/src/clocc/**/*")) (LOGICAL-PATHNAME-TRANSLATIONS "CL-LIBRARY") '((";**;*.*.*" "/tmp/clisp/")) (LOGICAL-PATHNAME-TRANSLATIONS "cl-systems") '((";**;*.*.*" "/usr/share/common-lisp/systems/**/*.*") ("**;*.*.*" "/usr/share/common-lisp/systems/**/*.*") (";*.*.*" "/usr/share/common-lisp/systems/*.*") ("*.*.*" "/usr/share/common-lisp/systems/*.*")) (LOGICAL-PATHNAME-TRANSLATIONS "TEST-SIMPLE") '(("*.*.*" "/usr/local/tmp/*.*.*") ("*.*" "/usr/local/tmp/*.*")) (LOGICAL-PATHNAME-TRANSLATIONS "TEST-SUBDIR") '(("**;*.*" "/usr/local/share/**/*.*") ("**;*.*.*" "/usr/local/share/**/*.*.*") (";**;*.*" "/usr/local/share/r/**/*.*") (";**;*.*.*" "/usr/local/share/r/**/*.*.*"))) NIL)
EQL-OK: NIL
(TRANSLATE-LOGICAL-PATHNAME "clocc:src;port;")
EQUAL-OK: #P"/usr/local/src/clocc/src/port/"
(TRANSLATE-PATHNAME "foobar" "foo*" "*baz")
EQUAL-OK: #P"barbaz"
(TRANSLATE-PATHNAME "foobarbazquux" "foo*baz*" "*baq*zot")
EQUAL-OK: #P"barbaqquuxzot"
(TRANSLATE-PATHNAME "foobarbazquuxfff" "foo*baz*f?" "*baq*zot*")
EQUAL-OK: #P"barbaqquuxfzotf"
(TRANSLATE-PATHNAME "uufoobarbazquuxfff" "u?foo*baz*f?" "**baq*zot*")
EQUAL-OK: #P"ubarbaqquuxfzotf"
(TRANSLATE-PATHNAME "test.txt" "*.txt" "*.text")
EQUAL-OK: #P"test.text"
(TRANSLATE-PATHNAME "foo/bar" "*/bar" "*/baz")
EQUAL-OK: #P"foo/baz"
(TRANSLATE-PATHNAME "bar/foo" "bar/*" "baz/*")
EQUAL-OK: #P"baz/foo"
(MAKE-PATHNAME :DEFAULTS "**/*.FASL" :HOST "CL-LIBRARY")
EQUAL-OK: #S(LOGICAL-PATHNAME :HOST "CL-LIBRARY" :DEVICE :UNSPECIFIC :DIRECTORY (:RELATIVE :WILD-INFERIORS) :NAME :WILD :TYPE "FASL" :VERSION NIL)
(MAKE-PATHNAME :DEFAULTS "/**/*.FASL" :HOST "CL-LIBRARY")
EQUAL-OK: #S(LOGICAL-PATHNAME :HOST "CL-LIBRARY" :DEVICE :UNSPECIFIC :DIRECTORY (:ABSOLUTE :WILD-INFERIORS) :NAME :WILD :TYPE "FASL" :VERSION NIL)
(LOGICAL-PATHNAME ":")
EQUAL-OK: #S(LOGICAL-PATHNAME :HOST "" :DEVICE :UNSPECIFIC :DIRECTORY (:ABSOLUTE) :NAME NIL :TYPE NIL :VERSION NIL)
(MERGE-PATHNAMES (LOGICAL-PATHNAME "cl-systems:") "metering.system")
EQUALP-OK: #S(LOGICAL-PATHNAME :HOST "CL-SYSTEMS" :DEVICE :UNSPECIFIC :DIRECTORY (:ABSOLUTE) :NAME "METERING" :TYPE "SYSTEM" :VERSION :NEWEST)
(MERGE-PATHNAMES (LOGICAL-PATHNAME "cl-systems:") #P"metering.system")
EQUALP-OK: #S(LOGICAL-PATHNAME :HOST "CL-SYSTEMS" :DEVICE :UNSPECIFIC :DIRECTORY (:ABSOLUTE) :NAME "METERING" :TYPE "SYSTEM" :VERSION :NEWEST)
(MERGE-PATHNAMES (LOGICAL-PATHNAME "clocc:clocc.lisp"))
EQUAL-OK: #S(LOGICAL-PATHNAME :HOST "CLOCC" :DEVICE :UNSPECIFIC :DIRECTORY (:ABSOLUTE) :NAME "CLOCC" :TYPE "LISP" :VERSION :NEWEST)
(MERGE-PATHNAMES ".fas" (LOGICAL-PATHNAME "clocc:src;cllib;xml.lisp"))
EQUAL-OK: #S(LOGICAL-PATHNAME :HOST "CLOCC" :DEVICE :UNSPECIFIC :DIRECTORY (:ABSOLUTE "SRC" "CLLIB") :NAME "XML" :TYPE "FAS" :VERSION :NEWEST)
(LOGICAL-PATHNAME "clocc:;foo;bar;")
EQUAL-OK: #S(LOGICAL-PATHNAME :HOST "CLOCC" :DEVICE :UNSPECIFIC :DIRECTORY (:RELATIVE "FOO" "BAR") :NAME NIL :TYPE NIL :VERSION NIL)
(LOGICAL-PATHNAME "clocc:baz;quux.lisp.3")
EQUAL-OK: #S(LOGICAL-PATHNAME :HOST "CLOCC" :DEVICE :UNSPECIFIC :DIRECTORY (:ABSOLUTE "BAZ") :NAME "QUUX" :TYPE "LISP" :VERSION 3)
(MERGE-PATHNAMES (LOGICAL-PATHNAME "clocc:;foo;bar;") (LOGICAL-PATHNAME "clocc:baz;quux.lisp.3"))
EQUAL-OK: #S(LOGICAL-PATHNAME :HOST "CLOCC" :DEVICE :UNSPECIFIC :DIRECTORY (:ABSOLUTE "BAZ" "FOO" "BAR") :NAME "QUUX" :TYPE "LISP" :VERSION 3)
(COMPILE-FILE-PATHNAME (LOGICAL-PATHNAME "clocc:clocc.lisp"))
EQUALP-OK: #S(LOGICAL-PATHNAME :HOST "CLOCC" :DEVICE :UNSPECIFIC :DIRECTORY (:ABSOLUTE) :NAME "CLOCC" :TYPE "FAS" :VERSION :NEWEST)
(COMPILE-FILE-PATHNAME (LOGICAL-PATHNAME "clocc:src;cllib;xml.lisp"))
EQUALP-OK: #S(LOGICAL-PATHNAME :HOST "CLOCC" :DEVICE :UNSPECIFIC :DIRECTORY (:ABSOLUTE "SRC" "CLLIB") :NAME "XML" :TYPE "FAS" :VERSION :NEWEST)
(COMPILE-FILE-PATHNAME (LOGICAL-PATHNAME "clocc:clocc.lisp") :OUTPUT-FILE "/tmp/Bug677/file-TEMP01.fas")
EQUAL-OK: #P"/tmp/Bug677/file-TEMP01.fas"
(PARSE-NAMESTRING "foo;bar;baz.fas.3" "clocc")
EQUAL-OK: #S(LOGICAL-PATHNAME :HOST "CLOCC" :DEVICE :UNSPECIFIC :DIRECTORY (:ABSOLUTE "FOO" "BAR") :NAME "BAZ" :TYPE "FAS" :VERSION 3)
(PARSE-NAMESTRING "foo;bar;baz.fas.3" NIL (LOGICAL-PATHNAME "clocc:"))
EQUAL-OK: #S(LOGICAL-PATHNAME :HOST "CLOCC" :DEVICE :UNSPECIFIC :DIRECTORY (:ABSOLUTE "FOO" "BAR") :NAME "BAZ" :TYPE "FAS" :VERSION 3)
(LET* ((S "abcdefghijk") (D (MAKE-ARRAY 5 :DISPLACED-TO S :DISPLACED-INDEX-OFFSET 3 :ELEMENT-TYPE 'CHARACTER))) (PARSE-NAMESTRING D NIL NIL :START 2 :END 4))
EQUAL-OK: #P"fg"
(TRANSLATE-LOGICAL-PATHNAME (MERGE-PATHNAMES (LOGICAL-PATHNAME "TEST-SUBDIR:;FOO;BAR;") (LOGICAL-PATHNAME "TEST-SIMPLE:ZOT.LISP")))
EQUAL-OK: #P"/usr/local/share/r/foo/bar/zot.lisp"
(TRANSLATE-LOGICAL-PATHNAME (MERGE-PATHNAMES (LOGICAL-PATHNAME "TEST-SUBDIR:FOO;BAR;") (LOGICAL-PATHNAME "TEST-SIMPLE:ZOT.LISP")))
EQUAL-OK: #P"/usr/local/share/foo/bar/zot.lisp"
(MAKE-PATHNAME :DEFAULTS "a.b" :NAME "c" :TYPE NIL)
EQUAL-OK: #P"c"
(MAKE-PATHNAME :DEFAULTS #S(LOGICAL-PATHNAME :HOST "CL-LIBRARY" :DEVICE :UNSPECIFIC :DIRECTORY (:ABSOLUTE "FOO") :NAME "BAR" :TYPE "BAZ" :VERSION 3))
EQUAL-OK: #S(LOGICAL-PATHNAME :HOST "CL-LIBRARY" :DEVICE :UNSPECIFIC :DIRECTORY (:ABSOLUTE "FOO") :NAME "BAR" :TYPE "BAZ" :VERSION 3)
(DEFUN FOO (X HOST) (LET ((DFLT (MAKE-PATHNAME :DIRECTORY '(:RELATIVE :WILD-INFERIORS) :TYPE X :CASE :COMMON))) (IF HOST (MAKE-PATHNAME :DEFAULTS DFLT :HOST HOST :CASE :COMMON) (MAKE-PATHNAME :DEFAULTS DFLT :CASE :COMMON))))
EQL-OK: FOO
(DEFUN PATH= (P1 P2) (FLET ((PATH-COMPONENTS (P) (LIST (TYPE-OF P) (PATHNAME-HOST P) (PATHNAME-DEVICE P) (PATHNAME-DIRECTORY P) (PATHNAME-NAME P) (PATHNAME-TYPE P) (PATHNAME-VERSION P)))) (OR (EQUAL P1 P2) (LIST (PATH-COMPONENTS P1) (PATH-COMPONENTS P2)))))
EQL-OK: PATH=
(STRING= "c" (PATHNAME-TYPE (FOO "c" NIL) :CASE :COMMON))
EQL-OK: T
(STRING= "C" (PATHNAME-TYPE (FOO "C" NIL) :CASE :COMMON))
EQL-OK: T
(STRING= "C" (PATHNAME-TYPE (FOO "c" "CLOCC") :CASE :COMMON))
EQL-OK: T
(STRING= "c" (PATHNAME-TYPE (FOO "C" "CLOCC") :CASE :COMMON))
EQL-OK: T
(NAMESTRING (LOGICAL-PATHNAME "foo:bar;baz"))
EQUAL-OK: "FOO:BAR;BAZ"
(LET* ((FOO (COPY-SEQ "abcdefghijkl")) (BAR (MAKE-ARRAY 5 :DISPLACED-TO FOO :DISPLACED-INDEX-OFFSET 2 :ELEMENT-TYPE 'CHARACTER)) (PATH (MAKE-PATHNAME :DIRECTORY BAR))) (SETF (AREF FOO 3) #\/) (PATH= PATH (MAKE-PATHNAME :DIRECTORY (PATHNAME-DIRECTORY PATH))))
EQL-OK: T
(STRING= (NAMESTRING (MAKE-PATHNAME :NAME "FOO" :CASE :COMMON :DEFAULTS #P"/home/kent/")) (NAMESTRING #P"/home/kent/foo"))
EQL-OK: T
(MAKE-PATHNAME :DIRECTORY '(:ABSOLUTE :WILD) :HOST NIL :DEVICE NIL :NAME NIL :TYPE NIL :VERSION NIL)
EQUAL-OK: #P"/*/"
(PATHNAME-MATCH-P "foo" "foo.*")
EQL-OK: T
(LET ((PN1 (MAKE-PATHNAME :DIRECTORY '(:RELATIVE :WILD))) (PN2 (MAKE-PATHNAME :DIRECTORY '(:RELATIVE)))) (PATHNAME-MATCH-P PN1 PN2))
EQL-OK: NIL
(TRANSLATE-PATHNAME "foo" "foo.*" "bar")
EQUAL-OK: #P"bar"
(TRANSLATE-PATHNAME "foo" "foo.*" "bar.*")
EQUAL-OK: #P"bar"
(PROGN (SETF (LOGICAL-PATHNAME-TRANSLATIONS "FOO") '(("FOO:**;*" "/foo/**/*"))) (TRANSLATE-LOGICAL-PATHNAME "foo:bar;baz;zot.txt"))
EQUAL-OK: #P"/foo/bar/baz/zot.txt"
(PROGN (SETF (LOGICAL-PATHNAME-TRANSLATIONS "FOO") '(("**;*" "/foo/**/*"))) (TRANSLATE-LOGICAL-PATHNAME "foo:bar;baz;zot.txt"))
EQUAL-OK: #P"/foo/bar/baz/zot.txt"
(PATHNAME "/foo/bar/../baz///zot//.././zoo")
EQUAL-OK: #P"/foo/baz/zoo"
(PATHNAME-DIRECTORY "../../../")
EQUAL-OK: (:RELATIVE :UP :UP :UP)
(LISTP (DIRECTORY (MAKE-PATHNAME :VERSION :WILD :DEFAULTS (LOGICAL-PATHNAME "FOO:"))))
EQL-OK: T
(PATHNAME-DIRECTORY (MAKE-PATHNAME :VERSION :WILD :DEFAULTS (LOGICAL-PATHNAME "FOO:")))
EQUAL-OK: (:ABSOLUTE)
(LET ((F "this-directory-does-not-exist") (*MERGE-PATHNAMES-ANSI* T)) (WHEN (DIRECTORY F) (DELETE-FILE F)) (LIST (LET ((D (STRING-CONCAT F "/"))) (WHEN (DIRECTORY D) (DELETE-DIRECTORY D)) (DIRECTORY D)) (DIRECTORY (STRING-CONCAT F "/*"))))
EQUAL-OK: (NIL NIL)
(PATHNAME-DEVICE (LOGICAL-PATHNAME "FOO:"))
EQL-OK: :UNSPECIFIC
(LET* ((OLD "path-tst-foo-bar.old") (NEW (MAKE-PATHNAME :TYPE "new" :DEFAULTS OLD))) (WITH-OPEN-FILE (S OLD :DIRECTION :OUTPUT) (WRITE-LINE "to be renamed" S)) (UNWIND-PROTECT (LIST (LIST (NOT (NOT (PROBE-FILE OLD))) (PROBE-FILE NEW)) (LENGTH (MULTIPLE-VALUE-LIST (RENAME-FILE OLD NEW))) (LIST (PROBE-FILE OLD) (NOT (NOT (PROBE-FILE NEW))))) (DELETE-FILE NEW)))
EQUAL-OK: ((T NIL) 3 (NIL T))
(LET ((SRC "src-file") (DST "dst-file")) (OPEN SRC :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE) (OPEN DST :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE) (UNWIND-PROTECT (HANDLER-CASE (MULTIPLE-VALUE-LIST (RENAME-FILE SRC DST :IF-EXISTS :ERROR)) (ERROR (E) (PRINC-ERROR E) :GOOD)) (DELETE-FILE SRC) (DELETE-FILE DST)))
[SIMPLE-FILE-ERROR]: RENAME-FILE: File #1=#P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/dst-file" already exists
EQL-OK: :GOOD
(LET ((SRC "src-file") (DST "dst-file")) (OPEN SRC :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE) (OPEN DST :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE) (UNWIND-PROTECT (EQUAL (TRUENAME DST) (NTH-VALUE 2 (RENAME-FILE SRC DST :IF-EXISTS :OVERWRITE))) (DELETE-FILE SRC) (DELETE-FILE DST)))
EQL-OK: T
(WILD-PATHNAME-P (MAKE-PATHNAME :VERSION :WILD))
EQL-OK: T
(PATHNAME-VERSION (MERGE-PATHNAMES (MAKE-PATHNAME) (MAKE-PATHNAME :VERSION :NEWEST) NIL))
EQL-OK: :NEWEST
(PATHNAME-VERSION (MERGE-PATHNAMES (MAKE-PATHNAME) (MAKE-PATHNAME :VERSION NIL) :NEWEST))
EQL-OK: :NEWEST
(REMOVE-IF-NOT #'WILD-PATHNAME-P (DIRECTORY (MAKE-PATHNAME :NAME :WILD :TYPE :WILD :VERSION :WILD)))
EQL-OK: NIL
(LET ((FILE "path-tst-this-is-a-temp-file-to-be-removed-immediately")) (UNWIND-PROTECT (LET ((D (DIRECTORY (MAKE-PATHNAME :DEFAULTS (OPEN FILE :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE) :VERSION :WILD)))) (LIST (= (LENGTH D) 1) (NOTANY #'WILD-PATHNAME-P D) (PATH= (CAR D) (TRUENAME FILE)))) (DELETE-FILE FILE)))
EQUAL-OK: (T T T)
(FIRST (PATHNAME-DIRECTORY (TRANSLATE-PATHNAME "foo/bar/baz" #P"" #P"" :ABSOLUTE T)))
EQL-OK: :ABSOLUTE
(LET ((FILE "path-tst-this-is-a-temp-file-to-be-removed-immediately.lisp")) (UNWIND-PROTECT (LET* ((P (PATHNAME (OPEN FILE :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE))) (P1 (MAKE-PATHNAME :TYPE NIL :DEFAULTS P))) (WHEN (PROBE-FILE P1) (DELETE-FILE P1)) (LIST (NOT (NULL (PROBE-FILE P))) (NULL (PROBE-FILE P1)) (LET ((*DEFAULT-PATHNAME-DEFAULTS* (MAKE-PATHNAME :TYPE "lisp"))) (NOT (NULL (PROBE-FILE P1)))))) (DELETE-FILE FILE)))
EQUAL-OK: (T T T)
(LET ((FILE "path-tst-this-is-a-temp-file-to-be-removed-immediately")) (UNWIND-PROTECT (LET* ((P (PATHNAME (OPEN FILE :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE)))) (LIST (NOT (NULL (PROBE-FILE P))) (WITH-OPEN-FILE (S P) (LET ((*DEFAULT-PATHNAME-DEFAULTS* (MAKE-PATHNAME :TYPE "lisp"))) (NOT (NULL (PROBE-FILE S))))))) (DELETE-FILE FILE)))
EQUAL-OK: (T T)
(LET ((FILE "path-tst-this-is-a-temp-file-to-be-removed-immediately")) (UNWIND-PROTECT (WITH-OPEN-FILE (S FILE :DIRECTION :OUTPUT) (LIST (NOT (NULL (PROBE-FILE FILE))) (NOT (NULL (PROBE-FILE S))) (PATH= (TRUENAME S) (TRUENAME FILE)))) (DELETE-FILE FILE)))
EQUAL-OK: (T T T)
(LET ((FILE "path-tst-this-is-a-temp-file-to-be-removed-immediately")) (UNWIND-PROTECT (WITH-OPEN-FILE (S FILE :DIRECTION :OUTPUT) (PATH= (TRUENAME (ENOUGH-NAMESTRING S)) (TRUENAME (ENOUGH-NAMESTRING (TRUENAME S))))) (DELETE-FILE FILE)))
EQL-OK: T
(MULTIPLE-VALUE-LIST (PARSE-NAMESTRING (MAKE-ARRAY 0 :ELEMENT-TYPE 'CHARACTER :DISPLACED-TO "foo" :DISPLACED-INDEX-OFFSET 1)))
EQUAL-OK: (#P"" 0)
(LET ((HOME (USER-HOMEDIR-PATHNAME))) (OR (NULL HOME) (NOT (NOT (PATHNAMEP HOME)))))
EQL-OK: T
(LET ((HOME (USER-HOMEDIR-PATHNAME NIL))) (OR (NULL HOME) (NOT (NOT (PATHNAMEP HOME)))))
EQL-OK: T
(LET ((HOME (USER-HOMEDIR-PATHNAME :UNSPECIFIC))) (OR (NULL HOME) (NOT (NOT (PATHNAMEP HOME)))))
EQL-OK: T
(LET* ((N "path-tst-abazonk") (F (STRING-CONCAT N ".lisp")) (D (STRING-CONCAT N "/"))) (WITH-OPEN-FILE (S F :DIRECTION :OUTPUT) (PRIN1 `(DELETE-DIRECTORY ,D) S)) (ENSURE-DIRECTORIES-EXIST D) (LIST (PROBE-DIRECTORY D) (STRING= N (PATHNAME-NAME (LOAD N))) (NOT (NULL (DELETE-FILE F))) (PROBE-DIRECTORY D)))
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-abazonk.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-abazonk.lisp
EQUAL-OK: (T T T NIL)
(LET* ((N "path-tst-abazonk-logical") (*PARSE-NAMESTRING-ANSI* T) (F (STRING-CONCAT N ".lisp")) (D (STRING-CONCAT N "/"))) (WITH-OPEN-FILE (S F :DIRECTION :OUTPUT) (PRIN1 `(DELETE-DIRECTORY ,D) S)) (ENSURE-DIRECTORIES-EXIST D) (SETF (LOGICAL-PATHNAME-TRANSLATIONS "FOO") '(("*" "./*"))) (LIST (PROBE-DIRECTORY D) (STRING= N (PATHNAME-NAME (LOAD (STRING-CONCAT "FOO:" N)))) (NOT (NULL (DELETE-FILE F))) (PROBE-DIRECTORY D)))
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-abazonk-logical.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-abazonk-logical.lisp
EQUAL-OK: (T T T NIL)
(LET ((F "path-tst-compile-file-ansi-pathname.lisp") (*PRINT-PATHNAMES-ANSI* T)) (WITH-OPEN-FILE (S F :DIRECTION :OUTPUT :IF-EXISTS :SUPERSEDE) (FORMAT S "(defparameter *pathname-var*
  #.(make-pathname :name \"foo.bar\" :type nil))~%")) (UNWIND-PROTECT (PROGN (LOAD (COMPILE-FILE F)) (PATHNAME-NAME *PATHNAME-VAR*)) (POST-COMPILE-FILE-CLEANUP F)))
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-compile-file-ansi-pathname.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-compile-file-ansi-pathname.fas
0 errors, 0 warnings;; Loading file 
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-compile-file-ansi-pathname.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-compile-file-ansi-pathname.fas
EQUAL-OK: "foo.bar"
(LET ((F "path-tst-compile-file-pathname.lisp") CF CFP) (WITH-OPEN-FILE (S F :DIRECTION :OUTPUT :IF-EXISTS :SUPERSEDE) (FORMAT S "(defun cfp-test () #.*compile-file-truename*)~%")) (SETQ CF (COMPILE-FILE F) CFP (TRUENAME (COMPILE-FILE-PATHNAME F))) (LOAD CF) (UNWIND-PROTECT (LIST (PATH= CF CFP) (PATH= (TRUENAME F) (CFP-TEST))) (POST-COMPILE-FILE-CLEANUP F)))
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-compile-file-pathname.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-compile-file-pathname.fas
0 errors, 0 warnings;; Loading file 
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-compile-file-pathname.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-compile-file-pathname.fas
EQUAL-OK: (T T)
(LET ((F (LOGICAL-PATHNAME "FOO:path-tst-compile-file-pathname.lisp")) CF CFP) (WITH-OPEN-FILE (S F :DIRECTION :OUTPUT :IF-EXISTS :SUPERSEDE) (TYPE-OF (TRUENAME S)) (FORMAT S "(defun cfp-test () #.*compile-file-truename*)~%")) (SETQ CF (COMPILE-FILE F) CFP (TRUENAME (COMPILE-FILE-PATHNAME F))) (LOAD (OPEN CF :DIRECTION :PROBE :IF-DOES-NOT-EXIST :ERROR)) (UNWIND-PROTECT (LIST (PATH= CF CFP) (PATH= (TRUENAME F) (CFP-TEST))) (POST-COMPILE-FILE-CLEANUP F)))
;; Compiling file #S(LOGICAL-PATHNAME HOST FOO DEVICE UNSPECIFIC DIRECTORY (ABSOLUTE) NAME PATH-TST-COMPILE-FILE-PATHNAME TYPE LISP VERSION NEWEST) ...
;; Wrote file #S(LOGICAL-PATHNAME HOST FOO DEVICE UNSPECIFIC DIRECTORY (ABSOLUTE) NAME PATH-TST-COMPILE-FILE-PATHNAME TYPE fas VERSION NEWEST)
0 errors, 0 warnings;; Loading file 
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-compile-file-pathname.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-compile-file-pathname.fas
EQUAL-OK: (T T)
(LET ((F "path-tst-compile-file-pathname.lisp")) (WITH-OPEN-FILE (S F :DIRECTION :OUTPUT :IF-EXISTS :SUPERSEDE :IF-DOES-NOT-EXIST :CREATE) (FORMAT S "(defun cfp-test () #.*compile-file-pathname*)~%")) (SETQ CF (COMPILE-FILE F)) (LOAD (OPEN CF :DIRECTION :PROBE :IF-DOES-NOT-EXIST :ERROR)) (UNWIND-PROTECT (PATH= (CFP-TEST) (MERGE-PATHNAMES F)) (POST-COMPILE-FILE-CLEANUP F)))
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-compile-file-pathname.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-compile-file-pathname.fas
0 errors, 0 warnings
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-compile-file-pathname.fas ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-compile-file-pathname.fas
EQL-OK: T
(LET* ((L "path-tst-compile-file-pathname.lisp") (F (COMPILE-FILE-PATHNAME L))) (UNWIND-PROTECT (PROGN (WITH-OPEN-FILE (LS L :DIRECTION :OUTPUT :IF-EXISTS :SUPERSEDE) (FORMAT LS "(defun f () t)~%")) (LIST (WITH-OPEN-FILE (FS F :DIRECTION :OUTPUT :IF-EXISTS :SUPERSEDE) (FORMAT FS #1="first line") (TERPRI FS) (COMPILE-FILE L :OUTPUT-FILE FS) (OPEN-STREAM-P FS)) (WITH-OPEN-FILE (FS F :DIRECTION :INPUT) (STRING= #1# (READ-LINE FS))))) (POST-COMPILE-FILE-CLEANUP L)))
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-compile-file-pathname.lisp ...
;; Wrote file #<OUTPUT BUFFERED FILE-STREAM CHARACTER path-tst-compile-file-pathname.fas>
0 errors, 0 warningsEQUAL-OK: (T T)
(COMPILE-FILE-PATHNAME "foo" :OUTPUT-FILE (LOGICAL-PATHNAME "SYS:foo.fas"))
EQUAL-OK: #S(LOGICAL-PATHNAME :HOST "SYS" :DEVICE :UNSPECIFIC :DIRECTORY (:ABSOLUTE) :NAME "FOO" :TYPE "FAS" :VERSION :NEWEST)
(TRANSLATE-LOGICAL-PATHNAME (LOGICAL-PATHNAME "SYS:FOO.LISP"))
EQUAL-OK: #P"/foo.lisp"
(LET* ((F "path-tst-foo") R (F1 (CONCATENATE 'STRING F "/"))) (DELETE-FILE F) (PUSH (DIRECTORY F) R) (PUSH (DIRECTORY F1) R) (OPEN F :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE) (LET ((DIR (DIRECTORY F)) (TN (LIST (TRUENAME F)))) (PUSH (OR (EQUALP DIR TN) (LIST (MAPCAR #'PATH-COMPONENTS DIR) (MAPCAR #'PATH-COMPONENTS TN))) R)) (PUSH (DIRECTORY F1) R) (DELETE-FILE F) (PUSH (DIRECTORY F) R) (PUSH (DIRECTORY F1) R) (NREVERSE R))
EQUAL-OK: (NIL NIL T NIL NIL NIL)
(GETENV "NO_SUCH_ENV_VAR")
EQL-OK: NIL
(SETF (GETENV "NO_SUCH_ENV_VAR") "FOO")
EQUAL-OK: "FOO"
(GETENV "NO_SUCH_ENV_VAR")
EQUAL-OK: "FOO"
(SETF (GETENV "NO_SUCH_ENV_VAR") "")
EQUAL-OK: ""
(GETENV "NO_SUCH_ENV_VAR")
EQUAL-OK: ""
(SETF (GETENV "NO_SUCH_ENV_VAR") NIL)
EQL-OK: NIL
(GETENV "NO_SUCH_ENV_VAR")
EQL-OK: NIL
(UNWIND-PROTECT (PROGN (SETF (LOGICAL-PATHNAME-TRANSLATIONS "FOO") NIL (GETENV "LOGICAL_HOST_FOO") (WRITE-TO-STRING '(("FOO:**;*" "/foo/**/*")))) (AND (LOAD-LOGICAL-PATHNAME-TRANSLATIONS "FOO") (CADAR (LOGICAL-PATHNAME-TRANSLATIONS "FOO")))) (SETF (GETENV "LOGICAL_HOST_FOO") NIL))
EQUAL-OK: "/foo/**/*"
(TRANSLATE-LOGICAL-PATHNAME "foo:bar;baz;zot.txt")
EQUAL-OK: #P"/foo/bar/baz/zot.txt"
(UNWIND-PROTECT (PROGN (SETF (LOGICAL-PATHNAME-TRANSLATIONS "FOO") NIL (GETENV "LOGICAL_HOST_FOO_FROM") "FOO:**;*" (GETENV "LOGICAL_HOST_FOO_TO") "/foo/**/*") (AND (LOAD-LOGICAL-PATHNAME-TRANSLATIONS "FOO") (CADAR (LOGICAL-PATHNAME-TRANSLATIONS "FOO")))) (SETF (GETENV "LOGICAL_HOST_FOO_FROM") NIL (GETENV "LOGICAL_HOST_FOO_TO") NIL))
EQUAL-OK: "/foo/**/*"
(TRANSLATE-LOGICAL-PATHNAME "foo:bar;baz;zot.txt")
EQUAL-OK: #P"/foo/bar/baz/zot.txt"
(LET ((FILE (FIRST *LOAD-LOGICAL-PATHNAME-TRANSLATIONS-DATABASE*))) (UNWIND-PROTECT (LET ((*LOAD-PATHS* NIL) (*LOAD-VERBOSE* T)) (SETF (LOGICAL-PATHNAME-TRANSLATIONS "FOO") NIL) (WITH-OPEN-FILE (F FILE :DIRECTION :OUTPUT) (FORMAT F "~S~%~S~%" "FOO" ''(("FOO:**;*" "/foo/**/*")))) (AND (LOAD-LOGICAL-PATHNAME-TRANSLATIONS "FOO") (CADAR (LOGICAL-PATHNAME-TRANSLATIONS "FOO")))) (DELETE-FILE FILE)))
;; Loading logical hosts from file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/loghosts ...
;; Defined logical host FOO
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/loghosts
EQUAL-OK: "/foo/**/*"
(TRANSLATE-LOGICAL-PATHNAME "foo:bar;baz;zot.txt")
EQUAL-OK: #P"/foo/bar/baz/zot.txt"
(LET* ((DIR (MAKE-PATHNAME :DIRECTORY (LIST :RELATIVE (PATHNAME-NAME (FIRST *LOAD-LOGICAL-PATHNAME-TRANSLATIONS-DATABASE*))))) (FILE (MERGE-PATHNAMES "FOO" DIR))) (UNWIND-PROTECT (LET ((*LOAD-PATHS* NIL) (*LOAD-VERBOSE* T)) (SETF (LOGICAL-PATHNAME-TRANSLATIONS "FOO") NIL) (MAKE-DIRECTORY DIR) (WITH-OPEN-FILE (F FILE :DIRECTION :OUTPUT) (FORMAT F "~S~%" '(("FOO:**;*" "/foo/**/*")))) (AND (LOAD-LOGICAL-PATHNAME-TRANSLATIONS "FOO") (CADAR (LOGICAL-PATHNAME-TRANSLATIONS "FOO")))) (DELETE-FILE FILE) (DELETE-DIRECTORY DIR)))
;; Loading logical host from file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/loghosts/FOO ...
;; Defined logical host FOO
EQUAL-OK: "/foo/**/*"
(TRANSLATE-LOGICAL-PATHNAME "foo:bar;baz;zot.txt")
EQUAL-OK: #P"/foo/bar/baz/zot.txt"
(DOLIST (DFLT (LIST #P"/home/" (LOGICAL-PATHNAME "CLOCC:SRC;PORT;"))) (DOLIST (DIR '(NIL (:ABSOLUTE "foo"))) (ASSERT (EQUAL DIR (PATHNAME-DIRECTORY (MAKE-PATHNAME :DIRECTORY DIR :DEFAULTS DFLT))))))
EQL-OK: NIL
(MAKE-PATHNAME :DIRECTORY '(:ABSOLUTE :WILD-INFERIORS "subdir"))
EQUAL-OK: #P"/**/subdir/"
(LET* ((LPD (PATHNAME "path-tst-load-path-dir/")) (*MERGE-PATHNAMES-ANSI* T) (FILE (MERGE-PATHNAMES (FIRST *LOAD-LOGICAL-PATHNAME-TRANSLATIONS-DATABASE*) LPD))) (UNWIND-PROTECT (LET ((*LOAD-PATHS* (LIST (MERGE-PATHNAMES "**/" LPD))) (*LOAD-VERBOSE* T)) (MAKE-DIRECTORY LPD) (SETF (LOGICAL-PATHNAME-TRANSLATIONS "FOO") NIL) (WITH-OPEN-FILE (F FILE :DIRECTION :OUTPUT) (FORMAT F "~S~%~S~%" "FOO" ''(("FOO:**;*" "/foo/**/*")))) (AND (LOAD-LOGICAL-PATHNAME-TRANSLATIONS "FOO") (CADAR (LOGICAL-PATHNAME-TRANSLATIONS "FOO")))) (DELETE-FILE FILE) (DELETE-DIRECTORY LPD)))
;; Loading logical hosts from file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-load-path-dir/loghosts ...
;; Defined logical host FOO
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-load-path-dir/loghosts
EQUAL-OK: "/foo/**/*"
(TRANSLATE-LOGICAL-PATHNAME "foo:bar;baz;zot.txt")
EQUAL-OK: #P"/foo/bar/baz/zot.txt"
(LET* ((LPD (PATHNAME "path-tst-load-path-dir/")) (*MERGE-PATHNAMES-ANSI* T) (DIR (MAKE-PATHNAME :DIRECTORY (APPEND (PATHNAME-DIRECTORY LPD) (LIST (PATHNAME-NAME (FIRST *LOAD-LOGICAL-PATHNAME-TRANSLATIONS-DATABASE*)))))) (FILE (MERGE-PATHNAMES "FOO" DIR))) (UNWIND-PROTECT (LET ((*LOAD-PATHS* (LIST (MERGE-PATHNAMES "**/" LPD))) (*LOAD-VERBOSE* T)) (SETF (LOGICAL-PATHNAME-TRANSLATIONS "FOO") NIL) (MAKE-DIRECTORY LPD) (MAKE-DIRECTORY DIR) (WITH-OPEN-FILE (F FILE :DIRECTION :OUTPUT) (FORMAT F "~S~%" '(("FOO:**;*" "/foo/**/*")))) (AND (LOAD-LOGICAL-PATHNAME-TRANSLATIONS "FOO") (CADAR (LOGICAL-PATHNAME-TRANSLATIONS "FOO")))) (DELETE-FILE FILE) (DELETE-DIRECTORY DIR) (DELETE-DIRECTORY LPD)))
;; Loading logical host from file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-load-path-dir/loghosts/FOO ...
;; Defined logical host FOO
EQUAL-OK: "/foo/**/*"
(TRANSLATE-LOGICAL-PATHNAME "foo:bar;baz;zot.txt")
EQUAL-OK: #P"/foo/bar/baz/zot.txt"
(MAKE-DIRECTORY "path-tst-foo/")
EQL-OK: T
(DEFPARAMETER *DIR* (DIRECTORY "path-tst-foo/" :FULL T))
EQL-OK: *DIR*
(CDR *DIR*)
EQL-OK: NIL
(LENGTH (CAR *DIR*))
EQL-OK: 4
(EQUAL (CAAR *DIR*) (CADAR *DIR*))
EQL-OK: T
(EQUAL (CAAR *DIR*) (CAR (DIRECTORY "path-tst-foo/")))
EQL-OK: T
(RENAME-DIRECTORY "path-tst-foo/" "path-tst-bar/")
EQL-OK: T
(EQUAL (CDDAR (DIRECTORY "path-tst-bar/" :FULL T)) (CDDAR *DIR*))
EQL-OK: T
(DIRECTORY "path-tst-foo/")
EQL-OK: NIL
(DELETE-DIRECTORY "path-tst-bar/")
EQL-OK: T
(DIRECTORY "path-tst-bar/" :FULL T)
EQL-OK: NIL
(PATHNAME-VERSION (CAR (DIRECTORY "./")))
EQL-OK: :NEWEST
(LET* ((WD (ENSURE-DIRECTORIES-EXIST "bug-724/")) (F1 (OPEN (MERGE-PATHNAMES WD "file") :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE)) (F2 (OPEN (MERGE-PATHNAMES WD "file.txt") :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE)) (PAT (MAKE-PATHNAME :NAME :WILD :TYPE :WILD :VERSION :WILD :DEFAULTS WD)) (*DEFAULT-PATHNAME-DEFAULTS* (PROBE-PATHNAME "."))) (UNWIND-PROTECT (LIST (SORT (MAPCAR #'ENOUGH-NAMESTRING (DIRECTORY PAT)) #'STRING<) (PATHNAME-MATCH-P F1 PAT) (PATHNAME-MATCH-P F2 PAT)) (DELETE-FILE F1) (DELETE-FILE F2) (DELETE-DIRECTORY WD)))
EQUAL-OK: (("bug-724/file" "bug-724/file.txt") T T)
(LET (LP) (SETF (LOGICAL-PATHNAME-TRANSLATIONS "FOO") '(("*" "./*"))) (SETQ LP (LOGICAL-PATHNAME "FOO:load-test")) (WITH-OPEN-FILE (O LP :DIRECTION :OUTPUT) (WRITE-LINE "(defparameter *load-var* *load-pathname*)" O)) (UNWIND-PROTECT (LIST (EQUALP (TRUENAME LP) (LOAD LP)) (EQUALP (MERGE-PATHNAMES LP) *LOAD-VAR*)) (DELETE-FILE LP) (SETF (LOGICAL-PATHNAME-TRANSLATIONS "FOO") NIL)))
;; Loading file #S(LOGICAL-PATHNAME HOST FOO DEVICE UNSPECIFIC DIRECTORY (ABSOLUTE) NAME LOAD-TEST TYPE NIL VERSION NEWEST) ...
;; Loaded file #S(LOGICAL-PATHNAME HOST FOO DEVICE UNSPECIFIC DIRECTORY (ABSOLUTE) NAME LOAD-TEST TYPE NIL VERSION NEWEST)
EQUAL-OK: (T T)
(LET ((F "path-tst-my-file") TN) (UNWIND-PROTECT (PROGN (SETQ TN (TRUENAME (OPEN F :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE))) (MULTIPLE-VALUE-BIND (TN1 _ FWD) (PROBE-PATHNAME F) (LIST (EQUAL TN (PROBE-FILE F)) (EQUAL TN TN1) (= (FILE-WRITE-DATE TN) FWD) (EQUAL TN (PROBE-PATHNAME (CONCATENATE 'STRING F "/"))) (EQUAL TN (PROBE-PATHNAME (CONCATENATE 'STRING F "///")))))) (DELETE-FILE TN)))
EQUAL-OK: (T T T T T)
(LET* ((D "path-tst-my-dir") (D1 (CONCATENATE 'STRING D "/")) TN) (UNWIND-PROTECT (PROGN (MAKE-DIRECTORY D1) (MULTIPLE-VALUE-BIND (TN1 D2 FWD) (PROBE-PATHNAME D) (SETQ TN (TRUENAME D1) D2 (DIRECTORY TN :FULL T)) (LIST (EQUAL TN TN1) (EQUAL TN (PROBE-PATHNAME D1)) (NULL (CDR D2)) (NOT (NULL (CAR D2))) (= (APPLY #'ENCODE-UNIVERSAL-TIME (THIRD (CAR D2))) FWD) (EQUAL TN (PROBE-PATHNAME (CONCATENATE 'STRING D "///")))))) (DELETE-DIRECTORY TN)))
EQUAL-OK: (T T T T T T)
(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"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d1/s2/" #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d1/s1/" #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d1/" #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d2/s2/" #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d2/s1/" #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d2/" #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/") 
((#P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d1/s2/" #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d1/s2/" (57 7 17 20 5 2024) 4096) (#P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d1/s1/" #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d1/s1/" (57 7 17 20 5 2024) 4096) (#P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d1/" #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d1/" (57 7 17 20 5 2024) 4096) (#P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d2/s2/" #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d2/s2/" (57 7 17 20 5 2024) 4096) (#P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d2/s1/" #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d2/s1/" (57 7 17 20 5 2024) 4096) (#P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d2/" #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d2/" (57 7 17 20 5 2024) 4096) (#P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/" #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/" (57 7 17 20 5 2024) 4096)) 
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d1/f       0   2024-05-20 17:07:57
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d1/s1/f       0   2024-05-20 17:07:57
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d1/s2/f       0   2024-05-20 17:07:57
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d2/f       0   2024-05-20 17:07:57
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d2/s1/f       0   2024-05-20 17:07:57
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d2/s2/f       0   2024-05-20 17:07:57
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/f       0   2024-05-20 17:07:57
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/    4096   2024-05-20 17:07:57
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d1/    4096   2024-05-20 17:07:57
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d1/s1/    4096   2024-05-20 17:07:57
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d1/s2/    4096   2024-05-20 17:07:57
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d2/    4096   2024-05-20 17:07:57
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d2/s1/    4096   2024-05-20 17:07:57
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d2/s2/    4096   2024-05-20 17:07:57
removing file #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d1/s2/f"
removing file #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d1/s1/f"
removing file #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d1/f"
removing file #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d2/s2/f"
removing file #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d2/s1/f"
removing file #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d2/f"
removing file #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/f"
removing directory #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d1/s2/"
removing directory #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d1/s1/"
removing directory #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d1/"
removing directory #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d2/s2/"
removing directory #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d2/s1/"
removing directory #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-my-dir/d2/"
removing directory #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/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"/" 3925184643 4096)
EQL-OK: T
(EQUALP (SHOW (MULTIPLE-VALUE-LIST (PROBE-PATHNAME "/etc"))) (SHOW (MULTIPLE-VALUE-LIST (PROBE-PATHNAME "/etc/"))))
(#P"/etc/" #P"/etc/" 3925184705 4096)
(#P"/etc/" #P"/etc/" 3925184705 4096)
EQL-OK: T
(EQUALP (SHOW (MULTIPLE-VALUE-LIST (PROBE-PATHNAME (DEFAULT-DIRECTORY)))) (SHOW (MULTIPLE-VALUE-LIST (PROBE-PATHNAME ""))))
(#P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/" #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/" 3925184878 4096)
(#P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/" #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/" 3925184878 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"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/test-pathname" #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/test-pathname" 3925184878 0)
(#P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/test-pathname" #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/test-pathname" 3925184878 0)
(#P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/test-pathname" #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/test-pathname" 3925184878 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
         Discard this directory entry[SIMPLE-CHARSET-TYPE-ERROR]: 
DIRECTORY: Invalid byte #xA0 in CHARSET:ASCII conversion
EQUAL-OK: (T NIL T T)
(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 /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-load-weird-dir/path-tst-good-file.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-load-weird-dir/path-tst-good-file.lisp
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-load-weird-dir/path-tst-good-file.lisp      31   2024-05-20 17:07:58
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-load-weird-dir/weird        0   2024-05-20 17:07:58
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-load-weird-dir/    4096   2024-05-20 17:07:58
removing file #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-load-weird-dir/path-tst-good-file.lisp"
removing file #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-load-weird-dir/weird "
removing directory #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/path-tst-load-weird-dir/"
EQUAL-OK: (1234 T)
(LET* ((DIR "tmp-dir/") (FILE (STRING-CONCAT DIR "foo.lisp"))) (MAKE-DIRECTORY DIR) (WITH-OPEN-FILE (OUT FILE :DIRECTION :OUTPUT) (WRITE-LINE "(defparameter *load-var* 100)" OUT)) (UNWIND-PROTECT (LIST (LOAD "foo" :IF-DOES-NOT-EXIST NIL) (EQUALP (LOAD FILE) (TRUENAME FILE)) *LOAD-VAR* (LET ((*LOAD-PATHS* (LIST DIR))) (SETQ *LOAD-VAR* 3) (LOAD "foo") *LOAD-VAR*) (LET ((*LOAD-PATHS* (LIST DIR)) (*DEFAULT-PATHNAME-DEFAULTS* (CD))) (SETQ *LOAD-VAR* 3) (LOAD "foo" :IF-DOES-NOT-EXIST NIL) *LOAD-VAR*) (BLOCK NIL (HANDLER-BIND ((FILE-ERROR (LAMBDA (C) (PRINC C) (RETURN 'FILE-ERROR)))) (REQUIRE "foo"))) (LET ((*LOAD-PATHS* (LIST DIR))) (SETQ *LOAD-VAR* 3) (REQUIRE "foo") *LOAD-VAR*) (LET ((*LOAD-PATHS* (LIST DIR)) (*DEFAULT-PATHNAME-DEFAULTS* (CD))) (SETQ *LOAD-VAR* 3) (REQUIRE "foo") *LOAD-VAR*)) (DELETE-FILE FILE) (DELETE-DIRECTORY DIR)))
;; Loading file tmp-dir/foo.lisp ...
;; Loaded file tmp-dir/foo.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/tmp-dir/foo.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/tmp-dir/foo.lisp
LOAD: A file with name #1=foo does not exist
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/tmp-dir/foo.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/tmp-dir/foo.lisp
;; Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/tmp-dir/foo.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/tmp-dir/foo.lisp
EQUAL-OK: (NIL T 100 100 3 FILE-ERROR 100 100)
(LET* ((FILES (DIRECTORY #1=#P"../**/*" :IF-DOES-NOT-EXIST :DISCARD)) (1ST (CAR FILES)) (COPY (MAKE-PATHNAME :DIRECTORY (PATHNAME-DIRECTORY 1ST) :NAME (PATHNAME-NAME 1ST) :TYPE (PATHNAME-TYPE 1ST)))) (FORMAT T "~&~:D file~:P under ~S~%" (LENGTH FILES) (PROBE-PATHNAME (MAKE-PATHNAME :DIRECTORY (BUTLAST (PATHNAME-DIRECTORY #1#) 1)))) (LIST (DELETE-DUPLICATES (MAPCAR #'PATHNAME-VERSION FILES)) (EQUALP (PROBE-PATHNAME COPY) 1ST) (EQUALP (PROBE-FILE COPY) 1ST) (EQUALP (TRUENAME COPY) 1ST)))
1,030 files under #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/"
EQUAL-OK: ((:NEWEST) T T T)
(LET* ((DIRS (DIRECTORY #1=#P"../**/*/" :IF-DOES-NOT-EXIST :DISCARD)) (1ST (CAR DIRS)) (COPY (MAKE-PATHNAME :DIRECTORY (PATHNAME-DIRECTORY 1ST) :NAME (PATHNAME-NAME 1ST) :TYPE (PATHNAME-TYPE 1ST)))) (FORMAT T "~&~:D director~:@P under ~S~%" (LENGTH DIRS) (PROBE-PATHNAME (MAKE-PATHNAME :DIRECTORY (BUTLAST (PATHNAME-DIRECTORY #1#) 2)))) (LIST (DELETE-DUPLICATES (MAPCAR #'PATHNAME-VERSION DIRS)) (EQUALP (PROBE-PATHNAME COPY) 1ST) (EQUALP (TRUENAME COPY) 1ST)))
48 directories under #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/"
EQUAL-OK: ((:NEWEST) T T)
(PATHNAMEP (TRUENAME "/dev/fd/0"))
EQL-OK: T
(PATHNAMEP (TRUENAME "/dev/fd/1"))
EQL-OK: T
(PATHNAMEP (TRUENAME "/dev/fd/2"))
EQL-OK: T
(SYMBOLS-CLEANUP '(*DIR* A TEST MY-STRING MY-SYMBOL PATHSTRING PATHSYMBOL PATHPATH MY-PATH PATH= MY-STREAM MY-FILE *PATHNAME-VAR* CFP-TEST *LOAD-VAR*))
EQL-OK: NIL
RUN-TEST: finished "path" (0 errors out of 180 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"readtable.tst" @1>
(READTABLEP (SETQ *READTABLE* (COPY-READTABLE NIL)))
EQL-OK: T
(SETQ $ 23)
EQL-OK: 23
(DEFUN SINGLE-DOLLAR-READER (STREAM CHAR) (DECLARE (IGNORE STREAM)) (VALUES (INTERN (STRING CHAR))))
EQL-OK: SINGLE-DOLLAR-READER
(SET-MACRO-CHARACTER #\$ #'SINGLE-DOLLAR-READER)
EQL-OK: T
|$|
EQL-OK: 23
(NTH-VALUE 2 (FUNCTION-LAMBDA-EXPRESSION (GET-MACRO-CHARACTER #\$)))
EQL-OK: SINGLE-DOLLAR-READER
(READTABLEP (SETQ *READTABLE* (COPY-READTABLE NIL)))
EQL-OK: T
(LET ((*READTABLE* (COPY-READTABLE NIL))) (SET-SYNTAX-FROM-CHAR #\" #\() (MULTIPLE-VALUE-LIST (READ-FROM-STRING "\"1 2 3)")))
EQUAL-OK: ((1 2 3) 7)
"1234"
EQUAL-OK: "1234"
(DEFUN INVERTED-PARAM-READER (STREAM CHAR) (READ-DELIMITED-LIST #\( STREAM T))
EQL-OK: INVERTED-PARAM-READER
(LET ((*READTABLE* (COPY-READTABLE NIL))) (SET-MACRO-CHARACTER #\( (GET-MACRO-CHARACTER #\))) (SET-MACRO-CHARACTER #\) #'INVERTED-PARAM-READER) (MULTIPLE-VALUE-LIST (READ-FROM-STRING ")a 1(")))
EQUAL-OK: ((A 1) 5)
(LET ((*READTABLE* (COPY-READTABLE NIL))) (SET-SYNTAX-FROM-CHAR #\" #\() (SET-MACRO-CHARACTER #\( (GET-MACRO-CHARACTER #\))) (SET-MACRO-CHARACTER #\) #'INVERTED-PARAM-READER) (SET-MACRO-CHARACTER #\" #'INVERTED-PARAM-READER) (LIST (MULTIPLE-VALUE-LIST (READ-FROM-STRING "\"1 2 3(")) (MULTIPLE-VALUE-LIST (READ-FROM-STRING ")a 1("))))
EQUAL-OK: (((1 2 3) 7) ((A 1) 5))
"1234"
EQUAL-OK: "1234"
'(1 2 3)
EQUAL-OK: (1 2 3)
(DEFUN MY-DISPATCH-MACRO (STREAM SUBCHAR ARG) (LIST 'MY-DISPATCH-MACRO (STREAMP STREAM) SUBCHAR ARG))
EQL-OK: MY-DISPATCH-MACRO
(LET ((*READTABLE* (COPY-READTABLE NIL))) (LIST (MAKE-DISPATCH-MACRO-CHARACTER #\x) (SET-DISPATCH-MACRO-CHARACTER #\x #\. #'MY-DISPATCH-MACRO) (NTH-VALUE 2 (FUNCTION-LAMBDA-EXPRESSION (GET-DISPATCH-MACRO-CHARACTER #\x #\.))) (MULTIPLE-VALUE-LIST (READ-FROM-STRING "\\XS")) (MULTIPLE-VALUE-LIST (READ-FROM-STRING "123x.45")) (MULTIPLE-VALUE-LIST (READ-FROM-STRING "123x.45" T NIL :START 3)) (MULTIPLE-VALUE-LIST (READ-FROM-STRING "123x.45" T NIL :START 5))))
EQUAL-OK: (T T MY-DISPATCH-MACRO (XS 3) (123 3) ((MY-DISPATCH-MACRO T #\. NIL) 5) (45 7))
(GET-DISPATCH-MACRO-CHARACTER #\x #\.)
[SIMPLE-ERROR]: GET-DISPATCH-MACRO-CHARACTER: #\x is not a dispatch macro character
EQL-OK: ERROR
(GET-DISPATCH-MACRO-CHARACTER #\y #\,)
[SIMPLE-ERROR]: GET-DISPATCH-MACRO-CHARACTER: #\y is not a dispatch macro character
EQL-OK: ERROR
(GET-DISPATCH-MACRO-CHARACTER #\y #\.)
[SIMPLE-ERROR]: GET-DISPATCH-MACRO-CHARACTER: #\y is not a dispatch macro character
EQL-OK: ERROR
(DEFUN |#{-reader| (STREAM CHAR ARG) (DECLARE (IGNORE CHAR ARG)) (MAPCON #'(LAMBDA (X) (MAPCAR #'(LAMBDA (Y) (LIST (CAR X) Y)) (CDR X))) (READ-DELIMITED-LIST #\} STREAM)))
EQL-OK: |#{-reader|
(SET-DISPATCH-MACRO-CHARACTER #\# #\{ #'|#{-reader|)
EQL-OK: T
(SET-SYNTAX-FROM-CHAR #\} #\))
EQL-OK: T
(DEFPARAMETER *READ-ST* (MAKE-STRING-INPUT-STREAM "#{p q z a} #{a b c d e}"))
EQL-OK: *READ-ST*
(READ *READ-ST*)
EQUAL-OK: ((P Q) (P Z) (P A) (Q Z) (Q A) (Z A))
(READ *READ-ST*)
EQUAL-OK: ((A B) (A C) (A D) (A E) (B C) (B D) (B E) (C D) (C E) (D E))
(READTABLEP (SETQ *READTABLE* (COPY-READTABLE NIL NIL)))
EQL-OK: T
(SYMBOLS-CLEANUP '($ SINGLE-DOLLAR-READER INVERTED-PARAM-READER MY-DISPATCH-MACRO |#{-reader| *READ-ST*))
EQL-OK: NIL
RUN-TEST: finished "readtable" (0 errors out of 27 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"setf.tst" @1>
(SETF LI1 '(A (B) ((C) (D))) VEC1 '#(0 1 2 3))
EQUALP-OK: #(0 1 2 3)
(SETF PA 'OLD)
EQL-OK: OLD
(PSETF)
EQL-OK: NIL
(PSETF PA 'NEW PAO PA)
EQL-OK: NIL
PA
EQL-OK: NEW
PAO
EQL-OK: OLD
(SETF (NTH 1 LI1) 'UU)
EQL-OK: UU
(EVAL 'LI1)
EQUAL-OK: (A UU ((C) (D)))
(SETF (ELT LI1 1) 'OO)
EQL-OK: OO
(SETF (ELT VEC1 1) 'OO)
EQL-OK: OO
(EVAL 'LI1)
EQUAL-OK: (A OO ((C) (D)))
(EVAL 'VEC1)
EQUALP-OK: #(0 OO 2 3)
(SETF (REST LI1) '((WW)))
EQUAL-OK: ((WW))
(EVAL 'LI1)
EQUAL-OK: (A (WW))
(SETF (FIRST LI1) 'AA)
EQL-OK: AA
(FIRST LI1)
EQL-OK: AA
(SETF (SECOND LI1) 'BB)
EQL-OK: BB
(EVAL 'LI1)
EQUAL-OK: (AA BB)
(SETF (THIRD LI1) 'BB)
[SIMPLE-TYPE-ERROR]: SYSTEM::%RPLACA: NIL is not a pair
EQL-OK: ERROR
(EVAL 'LI1)
EQUAL-OK: (AA BB)
(SETF (REST LI1) '(2 3 4 5 6 7 8 9 10))
EQUAL-OK: (2 3 4 5 6 7 8 9 10)
(SETF (SECOND LI1) 22)
EQL-OK: 22
(EVAL 'LI1)
EQUAL-OK: (AA 22 3 4 5 6 7 8 9 10)
(SETF (THIRD LI1) '33)
EQL-OK: 33
(SETF (FOURTH LI1) '44)
EQL-OK: 44
(SETF (FIFTH LI1) '55)
EQL-OK: 55
(SETF (SIXTH LI1) '66)
EQL-OK: 66
(SETF (SEVENTH LI1) '77)
EQL-OK: 77
(SETF (EIGHTH LI1) '88)
EQL-OK: 88
(SETF (NINTH LI1) '99)
EQL-OK: 99
(SETF (TENTH LI1) '1010)
EQL-OK: 1010
(EVAL 'LI1)
EQUAL-OK: (AA 22 33 44 55 66 77 88 99 1010)
(SETF (FIRST LI1) '(((A))))
EQUAL-OK: (((A)))
(SETF (CAAAR LI1) 'UU)
EQL-OK: UU
(CAAAR LI1)
EQL-OK: UU
(CAR LI1)
EQUAL-OK: ((UU))
(SETF (CAAR LI1) 'OO)
EQL-OK: OO
(EVAL 'LI1)
EQUAL-OK: ((OO) 22 33 44 55 66 77 88 99 1010)
(SETF (CAR LI1) 'II)
EQL-OK: II
(EVAL 'LI1)
EQUAL-OK: (II 22 33 44 55 66 77 88 99 1010)
(SETF (CDDDR LI1) 'PP)
EQL-OK: PP
(EVAL 'LI1)
EQUAL-OK: (II 22 33 . PP)
(SETF (CADDR LI1) '333)
EQL-OK: 333
(EVAL 'LI1)
EQUAL-OK: (II 22 333 . PP)
(SETF (SVREF VEC1 2) 'KK)
EQL-OK: KK
(EVAL 'VEC1)
EQUALP-OK: #(0 OO KK 3)
(SETF (GET 'A 'B) 'UU)
EQL-OK: UU
(GET 'A 'B)
EQL-OK: UU
(SETF (GETF (CADR (SETQ XX '(AAA (I1 V1 I2 V2)))) 'I2) 'V222)
EQL-OK: V222
(EVAL 'XX)
EQUAL-OK: (AAA (I1 V1 I2 V222))
(GETF (CADR XX) 'I2)
EQL-OK: V222
(GETF (CADR XX) 'I1)
EQL-OK: V1
(SETF (DOCUMENTATION 'BEISPIEL 'TYP1) "doc 1")
EQUAL-OK: "doc 1"
(SETF (DOCUMENTATION 'BEISPIEL 'TYP2) "doc 2")
EQUAL-OK: "doc 2"
(DOCUMENTATION 'BEISPIEL 'TYP2)
EQUAL-OK: "doc 2"
(SETF (DOCUMENTATION 'BEISPIEL 'TYP2) "doc 3")
EQUAL-OK: "doc 3"
(DOCUMENTATION 'BEISPIEL 'TYP2)
EQUAL-OK: "doc 3"
(SYMBOL-PLIST 'BEISPIEL)
EQUAL-OK: (SYSTEM::DOC (TYP2 "doc 3" TYP1 "doc 1"))
(SETF (SYMBOL-VALUE 'XX) 'VOELLIGNEU)
EQL-OK: VOELLIGNEU
(EVAL 'XX)
EQL-OK: VOELLIGNEU
(PROGN (SETF (SYMBOL-FUNCTION 'FF) (COERCE '(LAMBDA (X) (PRINT X) 'HELLO) 'FUNCTION)) NIL)
EQL-OK: NIL
(FF 5)
5 
EQL-OK: HELLO
(DEFUN XX NIL 'A)
EQL-OK: XX
(PROGN (SETF (SYMBOL-FUNCTION 'XX1) (SYMBOL-FUNCTION 'XX)) NIL)
EQL-OK: NIL
(XX1)
EQL-OK: A
(SETQ L '(A 1 C D))
EQUAL-OK: (A 1 C D)
(SETF (THE INTEGER (CADR L)) 100)
EQL-OK: 100
L
EQUAL-OK: (A 100 C D)
(PROGN (SETF A (MAKE-HASH-TABLE)) T)
EQL-OK: T
(SETF (GETHASH 'COLOR A) 'BROWN)
EQL-OK: BROWN
(GETHASH 'COLOR A)
EQL-OK: BROWN
(DEFSTRUCT SCHIFF MASSE NIL ZOT)
EQL-OK: SCHIFF
(SETF S1 (MAKE-SCHIFF :NIL 123))
EQUALP-OK: #S(SCHIFF :MASSE NIL :NIL 123 :ZOT NIL)
(SCHIFF-NIL S1)
EQL-OK: 123
(DOCUMENTATION S1 'TYPE)
EQL-OK: NIL
(SETF (SCHIFF-MASSE S1) 500)
EQL-OK: 500
(SCHIFF-MASSE S1)
EQL-OK: 500
(DEFMACRO SETF-TEST (V) `(SVREF ,V 3))
EQL-OK: SETF-TEST
(PROGN (SETF (MACRO-FUNCTION 'SETF-TEST1) (MACRO-FUNCTION 'SETF-TEST)) NIL)
EQL-OK: NIL
(SETF (SETF-TEST VEC1) 'OHO)
EQL-OK: OHO
(EVAL 'VEC1)
EQUALP-OK: #(0 OO KK OHO)
(SETF (SETF-TEST1 VEC1) 'HIHI)
EQL-OK: HIHI
(EVAL 'VEC1)
EQUALP-OK: #(0 OO KK HIHI)
(PROGN (SETF A (MAKE-ARRAY '(4 3))) NIL)
EQL-OK: NIL
(AREF A 2 2)
EQL-OK: NIL
(SETF (APPLY #'AREF A '(2 2)) 'XXXX)
EQL-OK: XXXX
(AREF A 2 2)
EQL-OK: XXXX
(SETF (AREF '#(A B C) 1) 'II)
EQL-OK: II
(SETF B #*101010)
EQUAL-OK: #*101010
(BIT B 2)
EQL-OK: 1
(SETF (BIT B 2) 0)
EQL-OK: 0
(BIT B 2)
EQL-OK: 0
(SETF (SBIT B 2) 1)
EQL-OK: 1
(SBIT B 2)
EQL-OK: 1
(PROGN (SETF A (MAKE-ARRAY 5 :FILL-POINTER T)) T)
EQL-OK: T
(FILL-POINTER A)
EQL-OK: 5
(SETF (FILL-POINTER A) 3)
EQL-OK: 3
(FILL-POINTER A)
EQL-OK: 3
(SETF STR "hose")
EQUAL-OK: "hose"
(SETF (CHAR STR 0) #\d)
EQL-OK: #\d
STR
EQUAL-OK: "dose"
(SETF STR "aaaxxxccc")
EQUAL-OK: "aaaxxxccc"
(SETF (SUBSEQ STR 3 6) "bbb")
EQUAL-OK: "bbb"
STR
EQUAL-OK: "aaabbbccc"
(SETQ X (LIST 'A 'B 'C))
EQUAL-OK: (A B C)
(SHIFTF (CADR X) 'Z)
EQL-OK: B
X
EQUAL-OK: (A Z C)
(SHIFTF (CADR X) (CDDR X) 'Q)
EQL-OK: Z
X
EQUAL-OK: (A (C) . Q)
(PROGN (DEFUN AD (X) (VALUES (CAR X) (CDR X))) (DEFSETF AD (X) (A B) `(SETF (VALUES (CAR ,X) (CDR ,X)) (VALUES ,A ,B))) (SETQ X (CONS 1 2) Y 3 Z 4 W 5 V 6 U 7))
EQL-OK: 7
(ROTATEF (AD X) (VALUES Y Z) (VALUES W V U))
EQL-OK: NIL
X
EQUAL-OK: (3 . 4)
(LIST Y Z W V U)
EQUAL-OK: (5 6 1 2 NIL)
(MULTIPLE-VALUE-LIST (SHIFTF (AD X) (VALUES Y Z W) (VALUES V U) (FLOOR 89 10)))
EQUAL-OK: (3 4)
X
EQUAL-OK: (5 . 6)
(LIST Y Z W V U)
EQUAL-OK: (2 NIL NIL 8 9)
(MULTIPLE-VALUE-LIST (SETF (VALUES (VALUES) Y Z) (VALUES 1 2 3)))
EQUAL-OK: (NIL 2 3)
Y
EQL-OK: 2
Z
EQL-OK: 3
(MULTIPLE-VALUE-LIST (SETF (VALUES X (VALUES) Z) (VALUES 'X 'Y 'Z)))
EQUAL-OK: (X NIL Z)
X
EQL-OK: X
Z
EQL-OK: Z
(LET ((I 105)) (ROTATEF (LDB (BYTE 4 4) I) (LDB (BYTE 4 0) I)) I)
EQL-OK: 150
(PROGN (DEFSETF MY-SUBSEQ (SEQUENCE START &OPTIONAL END) (NEW-SEQUENCE) `(PROGN (REPLACE ,SEQUENCE ,NEW-SEQUENCE :START1 ,START :END1 ,END) ,NEW-SEQUENCE)) T)
EQL-OK: T
(SETF S "asdfg" (MY-SUBSEQ S 1 3) "xy")
EQUAL-OK: "xy"
S
EQUAL-OK: "axyfg"
(PROGN (DEFSETF MY-SUBSEQ-ENV (SEQUENCE START &OPTIONAL END &ENVIRONMENT ENV) (NEW-SEQUENCE) `(PROGN (REPLACE ,SEQUENCE ,NEW-SEQUENCE :START1 ,START :END1 ,END) ,NEW-SEQUENCE)) T)
EQL-OK: T
(PROGN (DEFSETF TEST-SETF-01 (A B &OPTIONAL C) (NEWVAL) `(PROGN (PRINT (LIST ',A ',B ',C ',NEWVAL)) ,NEWVAL)) (SETF (TEST-SETF-01) 3))
[SIMPLE-PROGRAM-ERROR]: EVAL/APPLY: Too few arguments (2 instead of at least 4) given to SETF-TEST-SETF-01
EQL-OK: ERROR
(PROGN (DEFSETF TEST-SETF-02 (A ((B))) (NEWVAL)) T)
[SIMPLE-SOURCE-PROGRAM-ERROR]: DEFSETF TEST-SETF-02: invalid DEFSETF lambda-list: Invalid lambda list element #1=((B))
EQL-OK: ERROR
(SETF PL (LIST 'A 10 'B 11 'C 12 'D 13 'A 14 'B 15 'C 16 'D 17))
EQUAL-OK: (A 10 B 11 C 12 D 13 A 14 B 15 C 16 D 17)
(GETF PL 'A)
EQL-OK: 10
(GETF PL 'Z 1)
EQL-OK: 1
(GETF PL 'U)
EQL-OK: NIL
(SETF (GETF PL 'Z) 125)
EQL-OK: 125
(REMF PL 'Z)
EQL-OK: T
(REMF PL 'Z)
EQL-OK: NIL
(REMF PL 'C)
EQL-OK: T
(GETF PL 'C)
EQL-OK: 16
(REMF PL 'C)
EQL-OK: T
(REMF PL 'C)
EQL-OK: NIL
(GETF PL 'D)
EQL-OK: 13
(SETF (GETF PL 'D) 100)
EQL-OK: 100
(GETF PL 'D)
EQL-OK: 100
(REMF PL 'D)
EQL-OK: T
(REMF PL 'D)
EQL-OK: T
(GETF PL 'B)
EQL-OK: 11
PL
EQUAL-OK: (A 10 B 11 A 14 B 15)
(UNINTERN 'FOO)
EQL-OK: T
(UNINTERN 'BAR)
EQL-OK: T
(UNWIND-PROTECT (LET ((FORMS '((DEFSTRUCT FOO A B) (DEFSTRUCT (BAR (:INCLUDE FOO) (:CONC-NAME FOO-)) C) (DEFUN QUUX (X) (FOO-A X)) (DEFUN FROBOZZ (X Y) (SETF (FOO-A X) Y)) (LIST (QUUX (MAKE-FOO :A 1)) (QUUX (MAKE-BAR :A 2)) (FROBOZZ (MAKE-FOO) 10) (FROBOZZ (MAKE-BAR) 20))))) (LIST (EVAL `(PROGN ,@FORMS)) (FUNCALL (COMPILE NIL `(LAMBDA NIL ,@FORMS))))) (FMAKUNBOUND 'QUUX) (FMAKUNBOUND 'FROBOZZ) (FMAKUNBOUND 'FOO-A) (FMAKUNBOUND 'FOO-B) (FMAKUNBOUND 'FOO-C))
EQUAL-OK: ((1 2 10 20) (1 2 10 20))
(UNWIND-PROTECT (PROGN (DEFSTRUCT (FOO (:TYPE LIST)) A B C) (FUNCALL (COMPILE NIL (LAMBDA (F) (SETF (FOO-C F) (+ (FOO-A F) (FOO-B F))) F)) (MAKE-FOO :A 10 :B 100))) (FMAKUNBOUND 'FOO-A) (FMAKUNBOUND 'FOO-B) (FMAKUNBOUND 'FOO-C))
EQUAL-OK: (10 100 110)
(DEFSTRUCT DOCUMENTED-STRUCT "Doc String" A B)
EQL-OK: DOCUMENTED-STRUCT
(DOCUMENTATION 'DOCUMENTED-STRUCT 'STRUCTURE)
EQUAL-OK: "Doc String"
(SETF (DOCUMENTATION 'DOCUMENTED-STRUCT 'STRUCTURE) "New Doc")
EQUAL-OK: "New Doc"
(DOCUMENTATION 'DOCUMENTED-STRUCT 'STRUCTURE)
EQUAL-OK: "New Doc"
(DEFSTRUCT (DOCUMENTED-STRUCT (:TYPE VECTOR)) "vector" A B)
EQL-OK: DOCUMENTED-STRUCT
(DOCUMENTATION 'DOCUMENTED-STRUCT 'STRUCTURE)
EQUAL-OK: "vector"
(SETF (DOCUMENTATION 'DOCUMENTED-STRUCT 'STRUCTURE) "vector1")
EQUAL-OK: "vector1"
(DOCUMENTATION 'DOCUMENTED-STRUCT 'STRUCTURE)
EQUAL-OK: "vector1"
(PROGN (PROCLAIM '(INLINE (SETF FOO21))) (DEFUN (SETF FOO21) (X Y) (+ X Y)) (DEFUN BAR21 (X Y) ((SETF FOO21) X Y)) (COMPILE 'BAR21) (DEFUN (SETF FOO21) (X Y) (ERROR "Not inlined")) (BAR21 1 2))
EQL-OK: 3
(DEFSETF FOO22 NIL NIL '(VALUES))
EQL-OK: FOO22
(GET-SETF-EXPANSION '(NTH X Y . Z))
[SIMPLE-TYPE-ERROR]: ENDP: A proper list must not end with Z
EQL-OK: ERROR
(GET-SETF-EXPANSION '(LDB X . Y))
[SIMPLE-TYPE-ERROR]: LENGTH: A proper list must not end with Y
EQL-OK: ERROR
(GET-SETF-EXPANSION '(LDB X Y . Z))
[SIMPLE-TYPE-ERROR]: LENGTH: A proper list must not end with Z
EQL-OK: ERROR
(MACROEXPAND-1 '(PUSH (FOO) L))
EQUAL-OK: (SETQ L (CONS (FOO) L))
(MACROEXPAND-1 '(POP L))
EQUAL-OK: (PROG1 (CAR L) (SETQ L (CDR L)))
(MACROEXPAND-1 '(PUSHNEW (FOO) L))
EQUAL-OK: (SETQ L (ADJOIN (FOO) L))
(MACROEXPAND-1 '(INCF X))
EQUAL-OK: (SETQ X (+ X 1))
(MACROEXPAND-1 '(SETF L (FOO)))
EQUAL-OK: (SETQ L (FOO))
(MACROEXPAND-1 '(SETF (VALUES-LIST L) (FOO)))
EQUAL-OK: (VALUES-LIST (SETF L (MULTIPLE-VALUE-LIST (FOO))))
(DEFINE-SETF-EXPANDER BOTHVARS (X Y) (LET ((G (GENSYM))) (VALUES 'NIL 'NIL (LIST G) `(PROGN (SETQ ,X ,G ,Y ,G)) X)))
EQL-OK: BOTHVARS
(LET (A B) (SETF (BOTHVARS A B) 'NIL) (PUSH (MAKE-ARRAY 2) (BOTHVARS A B)) (EQ A B))
EQL-OK: T
(LENGTH (MULTIPLE-VALUE-LIST (GET-SETF-EXPANSION '(X) NIL)))
EQL-OK: 5
(PROGN (DEFPARAMETER *XY* (MAKE-ARRAY '(10 10) :INITIAL-ELEMENT NIL)) (DEFUN XY-S (&KEY ((X X) 0) ((Y Y) 0)) (AREF *XY* X Y)) (DEFUN XY-K (&KEY (X 0) (Y 0)) (AREF *XY* X Y)) (DEFUN SET-XY-S (NEW-VALUE &KEY ((X X) 0) ((Y Y) 0)) (SETF (AREF *XY* X Y) NEW-VALUE)) (DEFUN SET-XY-K (NEW-VALUE &KEY (X 0) (Y 0)) (SETF (AREF *XY* X Y) NEW-VALUE)) (DEFSETF XY-S (&KEY ((X X) 0) ((Y Y) 0)) (STORE) `(SET-XY-S ,STORE 'X ,X 'Y ,Y)) (DEFSETF XY-K (&KEY (X 0) (Y 0)) (STORE) `(SET-XY-K ,STORE :X ,X :Y ,Y)))
EQL-OK: XY-K
(XY-K :X 1)
EQL-OK: NIL
(XY-S 'X 1)
EQL-OK: NIL
(SETF (XY-K :X 1) 10)
EQL-OK: 10
(SETF (XY-S 'X 2) 20)
EQL-OK: 20
(XY-K :X 2)
EQL-OK: 20
(XY-S 'X 1)
EQL-OK: 10
(LET ((A 'X) (B 'Y)) (SETF (XY-S A 1 B 2) 3) (SETF (XY-S B 5 A 9) 14))
EQL-OK: 14
(XY-K :Y 2 :X 1)
EQL-OK: 3
(XY-S 'Y 2 'X 1)
EQL-OK: 3
(XY-K :X 9 :Y 5)
EQL-OK: 14
(XY-S 'X 9 'Y 5)
EQL-OK: 14
(LET ((FLAG (ZEROP (RANDOM 2)))) (SETF (XY-K (IF FLAG :X :Y) 4 (IF FLAG :Y :X) 2) 42 (XY-S (IF FLAG 'Y 'X) 4 (IF FLAG 'X 'Y) 2) 24) (LIST (XY-K (IF FLAG :Y :X) 4 (IF FLAG :X :Y) 2) (XY-S (IF FLAG 'X 'Y) 4 (IF FLAG 'Y 'X) 2)))
EQUAL-OK: (24 42)
(SETF (DOCUMENTATION (LAMBDA NIL 'ABAZONK) 'FUNCTION) "abazonk doc")
EQUAL-OK: "abazonk doc"
(DOCUMENTATION (LAMBDA NIL 'BAZONK) 'FUNCTION)
EQL-OK: NIL
(SETF (DOCUMENTATION (COMPILE NIL (LAMBDA NIL 'ABAZONK)) 'FUNCTION) "abazonk doc compiled")
EQUAL-OK: "abazonk doc compiled"
(DOCUMENTATION (COMPILE NIL (LAMBDA NIL 'BAZONK)) 'FUNCTION)
EQL-OK: NIL
(DOCUMENTATION (LAMBDA NIL "interpreted anonymous doc" 42) 'FUNCTION)
EQUAL-OK: "interpreted anonymous doc"
(LET ((F (LAMBDA NIL "interpreted anonymous doc" 42))) (SETF (DOCUMENTATION F 'FUNCTION) "new doc") (DOCUMENTATION F 'FUNCTION))
EQUAL-OK: "new doc"
(PROGN (DEFUN FUNC01 NIL "interpreted doc" 42) (LET ((OLD-FUNC #'FUNC01) (NEW-FUNC (LAMBDA NIL "new interpreted doc" 43))) (SETF (FDEFINITION 'FUNC01) NEW-FUNC) (LIST* (DOCUMENTATION OLD-FUNC 'FUNCTION) (DOCUMENTATION NEW-FUNC 'FUNCTION) (DOCUMENTATION 'FUNC01 'FUNCTION) (PROGN (SETF (DOCUMENTATION 'FUNC01 'FUNCTION) "replaced doc") (LIST (DOCUMENTATION OLD-FUNC 'FUNCTION) (DOCUMENTATION NEW-FUNC 'FUNCTION) (DOCUMENTATION 'FUNC01 'FUNCTION))))))
EQUAL-OK: ("interpreted doc" "new interpreted doc" "new interpreted doc" "interpreted doc" "replaced doc" "replaced doc")
(PROGN (DEFMACRO FUNC03 NIL "macro doc" 42) (LET ((OLD-FUNC (MACRO-FUNCTION 'FUNC03)) (NEW-FUNC (LAMBDA (FORM ENV) "new macro doc" 43))) (SETF (MACRO-FUNCTION 'FUNC03) NEW-FUNC) (LIST* (DOCUMENTATION OLD-FUNC 'FUNCTION) (DOCUMENTATION NEW-FUNC 'FUNCTION) (DOCUMENTATION 'FUNC03 'FUNCTION) (PROGN (SETF (DOCUMENTATION 'FUNC03 'FUNCTION) "replaced doc") (LIST (DOCUMENTATION OLD-FUNC 'FUNCTION) (DOCUMENTATION NEW-FUNC 'FUNCTION) (DOCUMENTATION 'FUNC03 'FUNCTION))))))
EQUAL-OK: ("macro doc" "new macro doc" "new macro doc" "macro doc" "replaced doc" "replaced doc")
(LET ((D (DOCUMENTATION 'WHEN 'FUNCTION))) (AND (OR (NULL D) (STRINGP D)) (PROGN (SETF (DOCUMENTATION 'WHEN 'FUNCTION) "when doc") (STRING= "when doc" (DOCUMENTATION 'WHEN 'FUNCTION))) (PROGN (SETF (DOCUMENTATION 'WHEN 'FUNCTION) D) (STRING= D (DOCUMENTATION 'WHEN 'FUNCTION)))))
EQL-OK: T
(DEFUN FOO (Z) "some doc" Z)
EQL-OK: FOO
(DOCUMENTATION 'FOO 'FUNCTION)
EQUAL-OK: "some doc"
(SETF (DOCUMENTATION 'FOO 'FUNCTION) NIL)
EQL-OK: NIL
(DOCUMENTATION 'FOO 'FUNCTION)
EQL-OK: NIL
(COMPILE 'FOO)
EQL-OK: FOO
(DOCUMENTATION 'FOO 'FUNCTION)
EQL-OK: NIL
(SETF (DOCUMENTATION 'FOO 'FUNCTION) "other doc")
EQUAL-OK: "other doc"
(DOCUMENTATION 'FOO 'FUNCTION)
EQUAL-OK: "other doc"
(SETF (DOCUMENTATION 'FOO 'FUNCTION) NIL)
EQL-OK: NIL
(DOCUMENTATION 'FOO 'FUNCTION)
EQL-OK: NIL
(DEFMACRO FOO NIL "docstring" NIL)
EQL-OK: FOO
(DOCUMENTATION 'FOO 'FUNCTION)
EQUAL-OK: "docstring"
(COMPILE 'FOO)
EQL-OK: FOO
(DOCUMENTATION 'FOO 'FUNCTION)
EQUAL-OK: "docstring"
(SYMBOLS-CLEANUP '(XX SCHIFF SETF-TEST AD MY-SUBSEQ MY-SUBSEQ-ENV TEST-SETF-01 TEST-SETF-02 FOO BAR QUUX FROBOZZ DOCUMENTED-STRUCT FOO21 BAR21 FOO22 BOTHVARS *XY* XY-K XY-S SET-XY-K SET-XY-S FUNC01 FUNC02 FUNC03))
EQL-OK: NIL
RUN-TEST: finished "setf" (0 errors out of 210 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"socket.tst" @1>
(DEFUN MAKE-BYTE-ARRAY (N) (MAKE-ARRAY N :ELEMENT-TYPE '(UNSIGNED-BYTE 8)))
EQL-OK: MAKE-BYTE-ARRAY
(DEFUN COERCE-BYTE-ARRAY (L) (COERCE L '(VECTOR (UNSIGNED-BYTE 8))))
EQL-OK: COERCE-BYTE-ARRAY
(LET* ((OS (OPERATING-SYSTEM-TYPE)) (CPU (AND (EQUAL OS "Linux") (LET ((STREAM (RUN-SHELL-COMMAND "uname -m" :OUTPUT :STREAM))) (UNWIND-PROTECT (READ-LINE STREAM) (CLOSE STREAM)))))) (SETQ *OS* OS) (SETQ +EINVAL+ (COND ((EQUAL OS "GNU/Hurd") 1073741846) ((EQUAL OS "Haiku") (- 5 2147483648)) (T 22))) (SETQ +EPIPE+ (COND ((EQUAL OS "GNU/Hurd") 1073741856) ((EQUAL OS "Haiku") (- 24589 2147483648)) (T 32))) (SETQ +EADDRNOTAVAIL+ (COND ((EQUAL OS "GNU/Hurd") 1073741873) ((OR (EQUAL OS "FreeBSD") (EQUAL OS "DragonFly") (EQUAL OS "GNU/kFreeBSD") (EQUAL OS "NetBSD") (EQUAL OS "OpenBSD") (EQUAL OS "Darwin") (AND (EQUAL OS "Linux") (OR (EQL (SEARCH "alpha" CPU) 0) (EQL (SEARCH "sparc" CPU) 0))) (EQUAL OS "Minix")) 49) ((EQUAL OS "AIX") 68) ((OR (EQUAL OS "HP-UX") (AND (EQUAL OS "Linux") (EQL (SEARCH "parisc" CPU) 0))) 227) ((EQUAL OS "IRIX") 236) ((OR (EQUAL OS "SunOS") (AND (EQUAL OS "Linux") (EQL (SEARCH "mips" CPU) 0))) 126) ((EQUAL OS "Linux") 99) ((EQUAL OS "Haiku") (- 28695 2147483648)) ((EQUAL OS "CYGWIN") 125) ((EQUAL OS "Windows") 101) (T 'UNKNOWN))) (SETQ +ECONNRESET+ (COND ((EQUAL OS "GNU/Hurd") 1073741878) ((OR (EQUAL OS "FreeBSD") (EQUAL OS "DragonFly") (EQUAL OS "GNU/kFreeBSD") (EQUAL OS "NetBSD") (EQUAL OS "OpenBSD") (EQUAL OS "Darwin") (AND (EQUAL OS "Linux") (OR (EQL (SEARCH "alpha" CPU) 0) (EQL (SEARCH "sparc" CPU) 0))) (EQUAL OS "Minix")) 54) ((EQUAL OS "AIX") 73) ((OR (EQUAL OS "HP-UX") (AND (EQUAL OS "Linux") (EQL (SEARCH "parisc" CPU) 0))) 232) ((EQUAL OS "IRIX") 131) ((OR (EQUAL OS "SunOS") (AND (EQUAL OS "Linux") (EQL (SEARCH "mips" CPU) 0))) 131) ((EQUAL OS "Linux") 104) ((EQUAL OS "Haiku") (- 28700 2147483648)) ((EQUAL OS "CYGWIN") 104) ((EQUAL OS "Windows") 108) (T 'UNKNOWN))) (SETQ +ECONNREFUSED+ (COND ((EQUAL OS "GNU/Hurd") 1073741885) ((OR (EQUAL OS "FreeBSD") (EQUAL OS "DragonFly") (EQUAL OS "GNU/kFreeBSD") (EQUAL OS "NetBSD") (EQUAL OS "OpenBSD") (EQUAL OS "Darwin") (AND (EQUAL OS "Linux") (OR (EQL (SEARCH "alpha" CPU) 0) (EQL (SEARCH "sparc" CPU) 0))) (EQUAL OS "Minix")) 61) ((EQUAL OS "AIX") 79) ((OR (EQUAL OS "HP-UX") (AND (EQUAL OS "Linux") (EQL (SEARCH "parisc" CPU) 0))) 239) ((EQUAL OS "IRIX") 146) ((OR (EQUAL OS "SunOS") (AND (EQUAL OS "Linux") (EQL (SEARCH "mips" CPU) 0))) 146) ((EQUAL OS "Linux") 111) ((EQUAL OS "Haiku") (- 28704 2147483648)) ((EQUAL OS "CYGWIN") 111) ((EQUAL OS "Windows") 107) (T 'UNKNOWN))) (SETQ +ETIMEDOUT+ (COND ((EQUAL OS "GNU/Hurd") 1073741884) ((OR (EQUAL OS "FreeBSD") (EQUAL OS "DragonFly") (EQUAL OS "GNU/kFreeBSD") (EQUAL OS "NetBSD") (EQUAL OS "OpenBSD") (EQUAL OS "Darwin") (AND (EQUAL OS "Linux") (OR (EQL (SEARCH "alpha" CPU) 0) (EQL (SEARCH "sparc" CPU) 0))) (EQUAL OS "Minix")) 60) ((EQUAL OS "AIX") 78) ((OR (EQUAL OS "HP-UX") (AND (EQUAL OS "Linux") (EQL (SEARCH "parisc" CPU) 0))) 238) ((EQUAL OS "IRIX") 145) ((OR (EQUAL OS "SunOS") (AND (EQUAL OS "Linux") (EQL (SEARCH "mips" CPU) 0))) 145) ((EQUAL OS "Linux") 110) ((EQUAL OS "Haiku") (- 28704 2147483648)) ((EQUAL OS "CYGWIN") 116) ((EQUAL OS "Windows") 138) (T 'UNKNOWN))) NIL)
EQL-OK: NIL
(DEFPARAMETER *FILE* "socket-tst-file.test")
EQL-OK: *FILE*
(WITH-OPEN-FILE (S *FILE* :DIRECTION :OUTPUT) (LOOP :REPEAT 3 :DO (WRITE-LINE "abcdefghijklmnopqrstuvwxyz" S)))
EQL-OK: NIL
(DEFPARAMETER *S* (OPEN *FILE* :ELEMENT-TYPE '(UNSIGNED-BYTE 8) :BUFFERED NIL))
EQL-OK: *S*
(READ-BYTE-SEQUENCE (MAKE-BYTE-ARRAY 4) *S*)
EQL-OK: 4
(READ-BYTE-SEQUENCE (MAKE-BYTE-ARRAY 4) *S* :NO-HANG T)
EQL-OK: 4
(READ-BYTE-SEQUENCE (MAKE-BYTE-ARRAY 4) *S* :INTERACTIVE T)
EQL-OK: 4
(CLOSE *S*)
EQL-OK: T
(WITH-OPEN-FILE (*S* *FILE* :ELEMENT-TYPE '(UNSIGNED-BYTE 8) :BUFFERED NIL) (INTEGERP (READ-BYTE-SEQUENCE (MAKE-BYTE-ARRAY 10000) *S*)))
EQL-OK: T
(WITH-OPEN-FILE (*S* *FILE* :ELEMENT-TYPE '(UNSIGNED-BYTE 8) :BUFFERED NIL) (INTEGERP (READ-BYTE-SEQUENCE (MAKE-BYTE-ARRAY 10000) *S* :NO-HANG T)))
EQL-OK: T
(WITH-OPEN-FILE (*S* *FILE* :ELEMENT-TYPE '(UNSIGNED-BYTE 8) :BUFFERED NIL) (INTEGERP (READ-BYTE-SEQUENCE (MAKE-BYTE-ARRAY 10000) *S* :INTERACTIVE T)))
EQL-OK: T
(PROGN (SETQ *S* (OPEN *FILE* :ELEMENT-TYPE '(UNSIGNED-BYTE 8) :BUFFERED T)) (READ-BYTE-SEQUENCE (MAKE-BYTE-ARRAY 4) *S*))
EQL-OK: 4
(READ-BYTE-SEQUENCE (MAKE-BYTE-ARRAY 4) *S* :NO-HANG T)
EQL-OK: 4
(READ-BYTE-SEQUENCE (MAKE-BYTE-ARRAY 4) *S* :INTERACTIVE T)
EQL-OK: 4
(CLOSE *S*)
EQL-OK: T
(WITH-OPEN-FILE (*S* *FILE* :ELEMENT-TYPE '(UNSIGNED-BYTE 8) :BUFFERED T) (INTEGERP (READ-BYTE-SEQUENCE (MAKE-BYTE-ARRAY 10000) *S*)))
EQL-OK: T
(WITH-OPEN-FILE (*S* *FILE* :ELEMENT-TYPE '(UNSIGNED-BYTE 8) :BUFFERED T) (INTEGERP (READ-BYTE-SEQUENCE (MAKE-BYTE-ARRAY 10000) *S* :NO-HANG T)))
EQL-OK: T
(WITH-OPEN-FILE (*S* *FILE* :ELEMENT-TYPE '(UNSIGNED-BYTE 8) :BUFFERED T) (INTEGERP (READ-BYTE-SEQUENCE (MAKE-BYTE-ARRAY 10000) *S* :INTERACTIVE T)))
EQL-OK: T
(PROGN (SETQ *S* (OPEN *FILE* :DIRECTION :IO :ELEMENT-TYPE '(UNSIGNED-BYTE 8) :BUFFERED NIL)) (LENGTH (WRITE-BYTE-SEQUENCE (COERCE-BYTE-ARRAY '(65 66 67 68)) *S*)))
EQL-OK: 4
(LENGTH (WRITE-BYTE-SEQUENCE (COERCE-BYTE-ARRAY '(69 70 71 72 10)) *S*))
EQL-OK: 5
(CLOSE *S*)
EQL-OK: T
(WITH-OPEN-FILE (*S* *FILE* :DIRECTION :INPUT) (MULTIPLE-VALUE-LIST (READ-LINE *S*)))
EQUAL-OK: ("ABCDEFGH" NIL)
(PROGN (SETQ *S* (OPEN *FILE* :DIRECTION :IO :ELEMENT-TYPE '(UNSIGNED-BYTE 8) :BUFFERED T)) (LENGTH (WRITE-BYTE-SEQUENCE (COERCE-BYTE-ARRAY '(65 66 67 68)) *S*)))
EQL-OK: 4
(LENGTH (WRITE-BYTE-SEQUENCE (COERCE-BYTE-ARRAY '(69 70 71 72 10)) *S*))
EQL-OK: 5
(CLOSE *S*)
EQL-OK: T
(WITH-OPEN-FILE (*S* *FILE* :DIRECTION :INPUT) (MULTIPLE-VALUE-LIST (READ-LINE *S*)))
EQUAL-OK: ("ABCDEFGH" NIL)
(DEFPARAMETER *SERVER* (SHOW (SOCKET-SERVER)))
#<SOCKET-SERVER 0.0.0.0:35935>
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)))
#<IO INPUT-BUFFERED SOCKET-STREAM CHARACTER localhost:35935>
EQL-OK: *SOCKET-1*
(DEFPARAMETER *STATUS-ARG* (LIST (LIST *SERVER*) (LIST *SOCKET-1* :IO)))
EQL-OK: *STATUS-ARG*
(EQ (SOCKET-STATUS *STATUS-ARG* 0) *STATUS-ARG*)
EQL-OK: T
(CDR (ASSOC *SERVER* *STATUS-ARG*))
EQL-OK: T
(CDDR (ASSOC *SOCKET-1* *STATUS-ARG*))
EQL-OK: :OUTPUT
(DEFPARAMETER *SOCKET-2* (SHOW (SOCKET-ACCEPT *SERVER*)))
#<IO INPUT-BUFFERED SOCKET-STREAM CHARACTER 0.0.0.0:35935>
EQL-OK: *SOCKET-2*
(PROGN (PUSH (LIST *SOCKET-2* :IO) *STATUS-ARG*) (EQ *STATUS-ARG* (SOCKET-STATUS *STATUS-ARG* 0)))
EQL-OK: T
(CDR (ASSOC *SERVER* *STATUS-ARG*))
EQL-OK: NIL
(CDDR (ASSOC *SOCKET-1* *STATUS-ARG*))
EQL-OK: :OUTPUT
(CDDR (ASSOC *SOCKET-2* *STATUS-ARG*))
EQL-OK: :OUTPUT
(WRITE-LINE "foo" *SOCKET-1*)
EQUAL-OK: "foo"
(FINISH-OUTPUT *SOCKET-1*)
EQL-OK: NIL
(EQ (SOCKET-STATUS *STATUS-ARG* 0) *STATUS-ARG*)
EQL-OK: T
(CDR (ASSOC *SERVER* *STATUS-ARG*))
EQL-OK: NIL
(CDDR (ASSOC *SOCKET-1* *STATUS-ARG*))
EQL-OK: :OUTPUT
(CDDR (ASSOC *SOCKET-2* *STATUS-ARG*))
EQL-OK: :IO
(MULTIPLE-VALUE-LIST (READ-LINE *SOCKET-2*))
EQUAL-OK: ("foo" NIL)
(CLOSE *SOCKET-1*)
EQL-OK: T
(CLOSE *SOCKET-2*)
EQL-OK: T
(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))))
#<IO INPUT-BUFFERED SOCKET-STREAM (UNSIGNED-BYTE 8) localhost:35935>
EQL-OK: *SOCKET-3*
(DEFPARAMETER *STATUS-ARG* (LIST (LIST *SERVER*) (LIST *SOCKET-3* :IO)))
EQL-OK: *STATUS-ARG*
(EQ (SOCKET-STATUS *STATUS-ARG* 0) *STATUS-ARG*)
EQL-OK: T
(CDR (ASSOC *SERVER* *STATUS-ARG*))
EQL-OK: T
(CDDR (ASSOC *SOCKET-3* *STATUS-ARG*))
EQL-OK: :OUTPUT
(DEFPARAMETER *SOCKET-4* (SHOW (SOCKET-ACCEPT *SERVER* :ELEMENT-TYPE '(UNSIGNED-BYTE 8))))
#<IO INPUT-BUFFERED SOCKET-STREAM (UNSIGNED-BYTE 8) 0.0.0.0:35935>
EQL-OK: *SOCKET-4*
(PROGN (PUSH (LIST *SOCKET-4* :IO) *STATUS-ARG*) (EQ *STATUS-ARG* (SOCKET-STATUS *STATUS-ARG* 0)))
EQL-OK: T
(CDR (ASSOC *SERVER* *STATUS-ARG*))
EQL-OK: NIL
(CDDR (ASSOC *SOCKET-3* *STATUS-ARG*))
EQL-OK: :OUTPUT
(CDDR (ASSOC *SOCKET-4* *STATUS-ARG*))
EQL-OK: :OUTPUT
(READ-BYTE-NO-HANG *SOCKET-3*)
EQL-OK: NIL
(WRITE-BYTE 65 *SOCKET-3*)
EQL-OK: 65
(FINISH-OUTPUT *SOCKET-3*)
EQL-OK: NIL
(EQ (SOCKET-STATUS *STATUS-ARG* 0) *STATUS-ARG*)
EQL-OK: T
(CDR (ASSOC *SERVER* *STATUS-ARG*))
EQL-OK: NIL
(CDDR (ASSOC *SOCKET-3* *STATUS-ARG*))
EQL-OK: :OUTPUT
(CDDR (ASSOC *SOCKET-4* *STATUS-ARG*))
EQL-OK: :IO
(READ-BYTE *SOCKET-4*)
EQL-OK: 65
(CLOSE *SOCKET-3*)
EQL-OK: T
(CLOSE *SOCKET-4*)
EQL-OK: T
(SOCKET-SERVER-CLOSE *SERVER*)
EQL-OK: NIL
(PROGN (SETQ *SERVER* (SHOW (SOCKET-SERVER 9096)) *SOCKET-1* (SHOW (SOCKET-CONNECT 9096 "localhost" :TIMEOUT 0 :BUFFERED NIL)) *SOCKET-2* (SHOW (SOCKET-ACCEPT *SERVER* :BUFFERED NIL))) (WRITE-CHAR #\a *SOCKET-1*))
#<SOCKET-SERVER 0.0.0.0:9096>
#<IO UNBUFFERED SOCKET-STREAM CHARACTER localhost:9096>
#<IO UNBUFFERED SOCKET-STREAM CHARACTER 0.0.0.0:9096>
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 (builder2.x64.stream.opencloudos.tech)" 45408)
 ("127.0.0.1 (localhost)" 9096)
 ("127.0.0.1 (builder2.x64.stream.opencloudos.tech)" 9096)
 ("127.0.0.1 (localhost)" 45408))
EQL-OK: T
(SEARCH " (" (SOCKET-STREAM-LOCAL *SOCKET-1* T))
EQL-OK: NIL
(SEARCH " (" (SOCKET-STREAM-PEER *SOCKET-1* T))
EQL-OK: NIL
(SOCKET-STATUS (CONS *SOCKET-2* :INPUT) 0)
EQL-OK: :INPUT
(READ-CHAR *SOCKET-2*)
EQL-OK: #\a
(SOCKET-STATUS (CONS *SOCKET-2* :INPUT) 0)
EQL-OK: NIL
(CLOSE *SOCKET-1*)
EQL-OK: T
(SOCKET-STATUS (CONS *SOCKET-2* :INPUT) 0)
EQL-OK: :EOF
(CLOSE *SOCKET-2*)
EQL-OK: T
(MULTIPLE-VALUE-LIST (SOCKET-STATUS *SERVER* 0))
EQUAL-OK: (NIL 0)
(SOCKET-SERVER-CLOSE *SERVER*)
EQL-OK: NIL
(CHECK-OS-ERROR (SOCKET-CONNECT 12345 "localhost" :TIMEOUT 30) (:ECONNREFUSED 111))
[OS-ERROR]: OS-ERROR(111): Connection refused
EQL-OK: T
(CHECK-OS-ERROR (SOCKET-CONNECT 12345 "localhost" :TIMEOUT 0) (:ECONNREFUSED 111))
[OS-ERROR]: OS-ERROR(111): Connection refused
EQL-OK: T
(CHECK-OS-ERROR (SOCKET-CONNECT 12345 "localhost" :BUFFERED NIL :TIMEOUT 0) (:ECONNREFUSED 111))
[OS-ERROR]: OS-ERROR(111): Connection refused
EQL-OK: T
(MULTIPLE-VALUE-BIND (RUN ARGS) (CMD-ARGS) (LET ((IS (RUN-PROGRAM RUN :ARGUMENTS (APPEND ARGS '("-q" "-q" "-x" "
            (let ((se (socket:socket-server)))
              (write-line (princ-to-string (socket:socket-server-port se)))
              (with-open-stream (so (socket:socket-accept se))
                (write-line (lisp-implementation-version) so))
              (socket:socket-server-close se))
")) :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))
#<SOCKET-SERVER 0.0.0.0:42207>
#<SOCKET-SERVER 127.0.0.1:34009>
#<SOCKET-SERVER 0.0.0.0:45959>
#<SOCKET-SERVER 127.0.0.1:35767>
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
READ-CHAR
[SIMPLE-END-OF-FILE]: READ: input stream #1=#<IO INPUT-BUFFERED SOCKET-STREAM CHARACTER 0.0.0.0:41863> has reached its end
EQUAL-OK: (: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
(CHECK-OS-ERROR (SOCKET-SERVER 1240 :INTERFACE "[/]=") (:EINVAL 22))
[OS-ERROR]: OS-ERROR(22): Invalid argument
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: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"steele7.tst" @1>
(LET ((F '+)) (APPLY F '(1 2)))
EQL-OK: 3
(LET ((F #'-)) (APPLY F '(1 2)))
EQL-OK: -1
(APPLY #'MAX 3 5 '(2 7 3))
EQL-OK: 7
(APPLY 'CONS '((+ 2 3) 4))
EQUAL-OK: ((+ 2 3) . 4)
(APPLY #'+ 'NIL)
EQL-OK: 0
(APPLY #'(LAMBDA (&KEY A B) (LIST A B)) '(:B 3))
EQUAL-OK: (NIL 3)
(FUNCALL '+ 2 3)
EQL-OK: 5
(LET ((C (SYMBOL-FUNCTION '+))) (FUNCALL C 1 2 3 4))
EQL-OK: 10
(PROGN 1 2 3)
EQL-OK: 3
(PROGN (+ 2 1) 2)
EQL-OK: 2
(PROGN 1 2 (VALUES 2 3))
EQL-OK: 2
(PROGN)
EQL-OK: NIL
(PROG1 1 2 3)
EQL-OK: 1
(PROG1 3 (+ 1 2) 2)
EQL-OK: 3
(PROG1 (VALUES 2 3) 1 2)
EQL-OK: 2
(LET ((X '(A B C))) (PROG1 (CAR X) (RPLACA X 'FOO)))
EQL-OK: A
(PROG2 1 2 3)
EQL-OK: 2
(PROG2 (+ 1 2) 2 3)
EQL-OK: 2
(PROG2 1 (VALUES 2 3) 4)
EQL-OK: 2
(SETF A 0)
EQL-OK: 0
(LET ((A 1) (B 2) C) (DECLARE (INTEGER A B)) (LIST A B C))
EQUAL-OK: (1 2 NIL)
(LET ((A 1) (B A)) (DECLARE (INTEGER A B)) (LIST A B))
EQUAL-OK: (1 0)
(LET (X239) (DECLARE (SPECIAL X239)) (SYMBOL-VALUE 'X239))
EQL-OK: NIL
(LET* ((A 1) (B 2) C) (DECLARE (INTEGER A B)) (LIST A B C))
EQUAL-OK: (1 2 NIL)
(LET* ((A 1) (B A)) (DECLARE (INTEGER A B)) (LIST A B))
EQUAL-OK: (1 1)
(PROGV '(A B C) '(1 2 3) (+ A B C))
EQL-OK: 6
(PROGV '(A B C) '(1 2) (LIST A B C))
[SIMPLE-UNBOUND-VARIABLE]: PROGV: variable C has no value
EQL-OK: ERROR
(LET ((V '(A B C)) (VAL '(3 2 1))) (PROGV V VAL (MAPCAR #'EVAL V)))
EQUAL-OK: (3 2 1)
(DEFUN PLUS (&REST ARGS) (APPLY #'+ ARGS))
EQL-OK: PLUS
(FLET ((PLUS (A B) (+ A B)) (MINUS (A B) (- A B))) (LIST (PLUS 1 2) (MINUS 1 2)))
EQUAL-OK: (3 -1)
(LIST (FLET ((PLUS (A B) (- A B))) (PLUS 3 2)) (+ 3 2))
EQUAL-OK: (1 5)
(FLET ((PLUS (A B) (PLUS (PLUS A B A) B))) (PLUS 3 2))
EQL-OK: 10
(LABELS ((QUEUE (L) (IF (CAR L) (QUEUE (CDR L)) 'ENDE))) (QUEUE '(1 2 3)))
EQL-OK: ENDE
(LABELS ((PLUS (A B) (* A (PLUS A A B)))) (PLUS 1 2 3))
[SIMPLE-PROGRAM-ERROR]: EVAL/APPLY: too many arguments given to PLUS
EQL-OK: ERROR
(LET ((A T) (B NIL)) (LIST (IF A 1 2) (IF B 1 2) (IF A 1) (IF B 1)))
EQUAL-OK: (1 2 1 NIL)
(LET ((A T) (B NIL)) (LIST (WHEN A 1 2) (WHEN B 1 2) (WHEN A 1)))
EQUAL-OK: (2 NIL 1)
(LET ((A T) (B NIL)) (LIST (UNLESS A 1 2) (UNLESS B 1 2) (UNLESS A 1)))
EQUAL-OK: (NIL 2 NIL)
(LET ((A T) (B 10) (C NIL)) (LIST (COND (A 1) (T 'END)) (COND (B) (T 'END)) (COND (C 1) (T 'END))))
EQUAL-OK: (1 10 END)
(CASE (+ 1 2) (1 -1) (2 -2) (3 -3))
EQL-OK: -3
(CASE (+ 1 2) (1 -1) (2 -2))
EQL-OK: NIL
(CASE (+ 1 2) ((1 3) -1) (2 -2) (OTHERWISE 100))
EQL-OK: -1
(TYPECASE (+ 1 2) (LIST -2) (NULL -3) (INTEGER -1))
EQL-OK: -1
(BLOCK BLOCKTEST (IF T (RETURN 0)) 1)
[SIMPLE-SOURCE-PROGRAM-ERROR]: RETURN-FROM: no block named NIL is currently visible
EQL-OK: ERROR
(BLOCK BLOCKTEST (IF T (RETURN-FROM BLOCKTEST 0)) 1)
EQL-OK: 0
(BLOCK BLOCKTEST (IF NIL (RETURN-FROM BLOCKTEST 0)) 1)
EQL-OK: 1
(BLOCK BLOCKTEST (CATCH 'CATCHER (IF T (THROW 'CATCHER 0)) 1))
EQL-OK: 0
(LET ((I 10)) (LOOP (IF (< (DECF I) 1) (RETURN I))))
EQL-OK: 0
(LET ((I 10)) (CATCH 'CATCHER (LOOP (IF (< (DECF I) 1) (RETURN I)))))
EQL-OK: 0
(SETF A 0)
EQL-OK: 0
(DO ((A 1 (+ A 1)) (B A)) ((> A 9) (LIST B C)) (SETF C (+ A B)))
EQUAL-OK: (0 9)
(DO* ((A 1 (+ A 1)) (B A)) ((> A 9) B))
EQL-OK: 1
(LET ((A 0)) (DO* ((A 1 (+ A 1)) (B A)) ((> A 9) A) (DECLARE (INTEGER A B))) A)
EQL-OK: 0
(LET ((L '(1 2 3)) (R 0)) (DOLIST (X L R) (SETF R (+ R X))))
EQL-OK: 6
(LET ((L '(1 2 3))) (DOLIST (X L) (IF (> 0 X) (INCF X) (RETURN 10))))
EQL-OK: 10
(LET ((L '(1 2 3))) (DOLIST (X L) (INCF X)))
EQL-OK: NIL
(LET ((S 0)) (DOTIMES (I (+ 1 9) S) (SETF S (+ S I))))
EQL-OK: 45
(MAPCAR #'ABS '(3 -4 2 -5 -6))
EQUAL-OK: (3 4 2 5 6)
(MAPCAR #'CONS '(A B C) '(1 2 3))
EQUAL-OK: ((A . 1) (B . 2) (C . 3))
(MAPLIST #'(LAMBDA (X) (CONS 'FOO X)) '(A B C D))
EQUAL-OK: ((FOO A B C D) (FOO B C D) (FOO C D) (FOO D))
(MAPLIST #'(LAMBDA (X) (IF (MEMBER (CAR X) (CDR X)) 0 1)) '(A B A C D B C))
EQUAL-OK: (0 0 1 0 1 1 1)
(MAPC #'ABS '(3 -4 2 -5 -6))
EQUAL-OK: (3 -4 2 -5 -6)
(MAPL #'(LAMBDA (X Y) (CONS X Y)) '(A B C D) '(1 2 3 4))
EQUAL-OK: (A B C D)
(MAPCAN #'(LAMBDA (X) (AND (NUMBERP X) (LIST X))) '(A 1 B C 3 4 D 5))
EQUAL-OK: (1 3 4 5)
(MAPCON #'(LAMBDA (X) (AND (ODDP (CAR X)) (LIST (CAR X)))) '(5 4 3 2 1))
EQUAL-OK: (5 3 1)
(LET ((A 0)) (TAGBODY (IF NIL (GO TAG0) (GO TAG1)) (THIS WILL NEVER BE REACHED) TAG0 (SETF A 1) TAG1 (SETF A 2)) A)
EQL-OK: 2
(LET ((A 0)) (TAGBODY (IF T (GO TAG0) (GO TAG1)) (THIS WILL NEVER BE REACHED) TAG0 (SETF A 1)) A)
EQL-OK: 1
(LET ((Z '(1 0))) (PROG* ((Y Z) (X (CAR Y))) (RETURN X)))
EQL-OK: 1
(PROG (A (B 1)) (IF A (GO TAG0) (GO TAG1)) (THIS WILL NEVER BE REACHED) TAG0 (SETF A 1) (THIS WILL NEVER BE REACHED) TAG1 (SETF A 2))
EQL-OK: NIL
(PROG (A (B 1)) (IF A (RETURN NIL) (GO TAG1)) (THIS WILL NEVER BE REACHED) TAG0 (RETURN (LIST A 1)) TAG1 (SETF A 2) (GO TAG0))
EQUAL-OK: (2 1)
(DEFUN ADDER (X Y) (VALUES (+ 1 X) (+ 1 Y)))
EQL-OK: ADDER
(MULTIPLE-VALUE-BIND (A B) (ADDER 1 2) (+ A B))
EQL-OK: 5
(DEFUN ADDER (X Y) (VALUES-LIST (LIST (+ 1 X) (+ 1 Y))))
EQL-OK: ADDER
(MULTIPLE-VALUE-BIND (A B) (ADDER 1 2) (+ A B))
EQL-OK: 5
(MULTIPLE-VALUE-LIST (FLOOR -3 4))
EQUAL-OK: (-1 1)
(MULTIPLE-VALUE-CALL #'+ (FLOOR 5 3) (FLOOR 19 4))
EQL-OK: 10
(MULTIPLE-VALUE-BIND (C D) (MULTIPLE-VALUE-PROG1 (FLOOR -3 4) (+ 1 2)) (LIST C D))
EQUAL-OK: (-1 1)
(MULTIPLE-VALUE-BIND (X) (FLOOR 5 3) (LIST X))
EQUAL-OK: (1)
(MULTIPLE-VALUE-BIND (X Y) (FLOOR 5 3) (LIST X Y))
EQUAL-OK: (1 2)
(MULTIPLE-VALUE-BIND (X Y Z) (FLOOR 5 3) (LIST X Y Z))
EQUAL-OK: (1 2 NIL)
(MULTIPLE-VALUE-SETQ (A B) (VALUES 10 20))
EQL-OK: 10
B
EQL-OK: 20
(FUNCALL (COMPILE NIL (LAMBDA (X) (FLET ((Z (X) (RETURN-FROM Z X))) (Z X)))) 7)
EQL-OK: 7
(FLET ((Z NIL (RETURN-FROM Z 6))) (Z))
EQL-OK: 6
(FUNCALL (COMPILE NIL (LAMBDA NIL (LABELS ((Z NIL (RETURN-FROM Z 5))) (Z)))))
EQL-OK: 5
(LABELS ((Z NIL (RETURN-FROM Z 4))) (Z))
EQL-OK: 4
(SYMBOLS-CLEANUP '(PLUS ADDER A B))
EQL-OK: NIL
RUN-TEST: finished "steele7" (0 errors out of 86 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"streams.tst" @1>
(PRIN1-TO-STRING (MAKE-BROADCAST-STREAM))
EQUAL-OK: "#<OUTPUT BROADCAST-STREAM>"
(PROGN (DEFPARAMETER SAVED-CLHS-ROOT #'CLHS-ROOT) (DEFUN CLHS-ROOT NIL NIL) (DEFPARAMETER SAVED-IMPNOTES-ROOT #'IMPNOTES-ROOT) (DEFUN IMPNOTES-ROOT NIL NIL) NIL)
WARNING: DEFUN/DEFMACRO: redefining function CLHS-ROOT in top-level, was
         defined in
         /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/config.fas
WARNING: DEFUN/DEFMACRO: redefining function IMPNOTES-ROOT in top-level, was
         defined in
         /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/config.fas
EQL-OK: NIL
(DEFUN CLOSE-1 (S) (LET* ((I (INPUT-STREAM-P S)) (O (OUTPUT-STREAM-P S)) (E (STREAM-ELEMENT-TYPE S)) (F (STREAM-EXTERNAL-FORMAT S)) (C (CLOSE S))) (AND (EQ I (INPUT-STREAM-P S)) (EQ O (OUTPUT-STREAM-P S)) (EQUAL E (STREAM-ELEMENT-TYPE S)) (EQUAL F (STREAM-EXTERNAL-FORMAT S)) C)))
EQL-OK: CLOSE-1
(PROGN (SETQ S1 (OPEN "d1.plc" :DIRECTION :OUTPUT)) (SETQ S2 (OPEN "d2.plc" :DIRECTION :OUTPUT)) (SETQ S3 (OPEN "d3.plc" :DIRECTION :OUTPUT)) (SETQ B1 (MAKE-BROADCAST-STREAM S1 S2 S3 *STANDARD-OUTPUT*)) T)
EQL-OK: T
(PRINT "test broadcast satz 1" B1)
"test broadcast satz 1" 
EQUAL-OK: "test broadcast satz 1"
(PRINT "test broadcast satz 2" B1)
"test broadcast satz 2" 
EQUAL-OK: "test broadcast satz 2"
(PRINT "test broadcast satz 3" B1)
"test broadcast satz 3" 
EQUAL-OK: "test broadcast satz 3"
(CLOSE-1 S1)
EQL-OK: T
(CLOSE-1 S2)
EQL-OK: T
(CLOSE-1 S3)
EQL-OK: T
(PROGN (SETQ S (OPEN "d1.plc")) T)
EQL-OK: T
(READ S)
EQUAL-OK: "test broadcast satz 1"
(READ S)
EQUAL-OK: "test broadcast satz 2"
(READ S)
EQUAL-OK: "test broadcast satz 3"
(CLOSE-1 S)
EQL-OK: T
(PROGN (SETQ S (OPEN "d2.plc")) T)
EQL-OK: T
(READ S)
EQUAL-OK: "test broadcast satz 1"
(READ S)
EQUAL-OK: "test broadcast satz 2"
(READ S)
EQUAL-OK: "test broadcast satz 3"
(CLOSE-1 S)
EQL-OK: T
(PROGN (SETQ S (OPEN "d3.plc")) T)
EQL-OK: T
(READ S)
EQUAL-OK: "test broadcast satz 1"
(READ S)
EQUAL-OK: "test broadcast satz 2"
(READ S)
EQUAL-OK: "test broadcast satz 3"
(CLOSE-1 S)
EQL-OK: T
(PROGN (SETQ S (OPEN "t0.plc" :DIRECTION :OUTPUT)) T)
EQL-OK: T
(PRINT 'READ1 S)
EQL-OK: READ1
(PRINT 'READ2 S)
EQL-OK: READ2
(CLOSE-1 S)
EQL-OK: T
(PROGN (SETQ INPTW (OPEN "t0.plc")) (SETQ S1 (OPEN "d1.plc" :DIRECTION :OUTPUT)) (SETQ S2 (OPEN "d2.plc" :DIRECTION :OUTPUT)) (SETQ SY (MAKE-SYNONYM-STREAM 'S2)) (SETQ S3 (OPEN "d3.plc" :DIRECTION :OUTPUT)) (SETQ TW (MAKE-TWO-WAY-STREAM INPTW S3)) (SETQ S4 (OPEN "d4.plc" :DIRECTION :OUTPUT)) (SETQ EC (MAKE-ECHO-STREAM INPTW S4)) (SETQ S5 (OPEN "d5.plc" :DIRECTION :OUTPUT)) (SETQ S6 (OPEN "d6.plc" :DIRECTION :OUTPUT)) (SETQ B1 (MAKE-BROADCAST-STREAM S5 S6)) (SETQ S7 (OPEN "d7.plc" :DIRECTION :OUTPUT)) (SETQ B2 (MAKE-BROADCAST-STREAM S1 SY TW EC B1 S7)) T)
EQL-OK: T
(PRINT "w to b2 1.satz" B2)
EQUAL-OK: "w to b2 1.satz"
(PRINT "w to sy" SY)
EQUAL-OK: "w to sy"
(PRINT "w to b2 2.satz" B2)
EQUAL-OK: "w to b2 2.satz"
(PRINT "w to tw" TW)
EQUAL-OK: "w to tw"
(PRINT "w to b2 3.satz" B2)
EQUAL-OK: "w to b2 3.satz"
(PRINT "w to ec" EC)
EQUAL-OK: "w to ec"
(PRINT "w to b2 4.satz" B2)
EQUAL-OK: "w to b2 4.satz"
(PRINT "w to b1" B1)
EQUAL-OK: "w to b1"
(PRINT "w to b2 5.satz" B2)
EQUAL-OK: "w to b2 5.satz"
(PRINT "w to s7" S7)
EQUAL-OK: "w to s7"
(PRINT "w to b2 6.satz" B2)
EQUAL-OK: "w to b2 6.satz"
(READ TW)
EQL-OK: READ1
(READ EC)
EQL-OK: READ2
(PRINT "w to b2 7.satz" B2)
EQUAL-OK: "w to b2 7.satz"
(PRINT "w to b2 8.satz" B2)
EQUAL-OK: "w to b2 8.satz"
(CLOSE-1 INPTW)
EQL-OK: T
(CLOSE-1 S1)
EQL-OK: T
(CLOSE-1 S2)
EQL-OK: T
(CLOSE-1 S3)
EQL-OK: T
(CLOSE-1 S4)
EQL-OK: T
(CLOSE-1 S5)
EQL-OK: T
(CLOSE-1 S6)
EQL-OK: T
(CLOSE-1 S7)
EQL-OK: T
(PROGN (SETQ S (OPEN "d1.plc")) T)
EQL-OK: T
(READ S)
EQUAL-OK: "w to b2 1.satz"
(READ S)
EQUAL-OK: "w to b2 2.satz"
(READ S)
EQUAL-OK: "w to b2 3.satz"
(READ S)
EQUAL-OK: "w to b2 4.satz"
(READ S)
EQUAL-OK: "w to b2 5.satz"
(READ S)
EQUAL-OK: "w to b2 6.satz"
(READ S)
EQUAL-OK: "w to b2 7.satz"
(READ S)
EQUAL-OK: "w to b2 8.satz"
(CLOSE-1 S)
EQL-OK: T
(PROGN (SETQ S (OPEN "d2.plc")) T)
EQL-OK: T
(READ S)
EQUAL-OK: "w to b2 1.satz"
(READ S)
EQUAL-OK: "w to sy"
(READ S)
EQUAL-OK: "w to b2 2.satz"
(READ S)
EQUAL-OK: "w to b2 3.satz"
(READ S)
EQUAL-OK: "w to b2 4.satz"
(READ S)
EQUAL-OK: "w to b2 5.satz"
(READ S)
EQUAL-OK: "w to b2 6.satz"
(READ S)
EQUAL-OK: "w to b2 7.satz"
(READ S)
EQUAL-OK: "w to b2 8.satz"
(CLOSE-1 S)
EQL-OK: T
(PROGN (SETQ S (OPEN "d3.plc")) T)
EQL-OK: T
(READ S)
EQUAL-OK: "w to b2 1.satz"
(READ S)
EQUAL-OK: "w to b2 2.satz"
(READ S)
EQUAL-OK: "w to tw"
(READ S)
EQUAL-OK: "w to b2 3.satz"
(READ S)
EQUAL-OK: "w to b2 4.satz"
(READ S)
EQUAL-OK: "w to b2 5.satz"
(READ S)
EQUAL-OK: "w to b2 6.satz"
(READ S)
EQUAL-OK: "w to b2 7.satz"
(READ S)
EQUAL-OK: "w to b2 8.satz"
(CLOSE-1 S)
EQL-OK: T
(PROGN (SETQ S (OPEN "d4.plc")) T)
EQL-OK: T
(READ S)
EQUAL-OK: "w to b2 1.satz"
(READ S)
EQUAL-OK: "w to b2 2.satz"
(READ S)
EQUAL-OK: "w to b2 3.satz"
(READ S)
EQUAL-OK: "w to ec"
(READ S)
EQUAL-OK: "w to b2 4.satz"
(READ S)
EQUAL-OK: "w to b2 5.satz"
(READ S)
EQUAL-OK: "w to b2 6.satz"
(READ S)
EQL-OK: READ2
(READ S)
EQUAL-OK: "w to b2 7.satz"
(READ S)
EQUAL-OK: "w to b2 8.satz"
(CLOSE-1 S)
EQL-OK: T
(PROGN (SETQ S (OPEN "d5.plc")) T)
EQL-OK: T
(READ S)
EQUAL-OK: "w to b2 1.satz"
(READ S)
EQUAL-OK: "w to b2 2.satz"
(READ S)
EQUAL-OK: "w to b2 3.satz"
(READ S)
EQUAL-OK: "w to b2 4.satz"
(READ S)
EQUAL-OK: "w to b1"
(READ S)
EQUAL-OK: "w to b2 5.satz"
(READ S)
EQUAL-OK: "w to b2 6.satz"
(READ S)
EQUAL-OK: "w to b2 7.satz"
(READ S)
EQUAL-OK: "w to b2 8.satz"
(CLOSE-1 S)
EQL-OK: T
(PROGN (SETQ S (OPEN "d6.plc")) T)
EQL-OK: T
(READ S)
EQUAL-OK: "w to b2 1.satz"
(READ S)
EQUAL-OK: "w to b2 2.satz"
(READ S)
EQUAL-OK: "w to b2 3.satz"
(READ S)
EQUAL-OK: "w to b2 4.satz"
(READ S)
EQUAL-OK: "w to b1"
(READ S)
EQUAL-OK: "w to b2 5.satz"
(READ S)
EQUAL-OK: "w to b2 6.satz"
(READ S)
EQUAL-OK: "w to b2 7.satz"
(READ S)
EQUAL-OK: "w to b2 8.satz"
(CLOSE-1 S)
EQL-OK: T
(PROGN (SETQ S (OPEN "d7.plc")) T)
EQL-OK: T
(READ S)
EQUAL-OK: "w to b2 1.satz"
(READ S)
EQUAL-OK: "w to b2 2.satz"
(READ S)
EQUAL-OK: "w to b2 3.satz"
(READ S)
EQUAL-OK: "w to b2 4.satz"
(READ S)
EQUAL-OK: "w to b2 5.satz"
(READ S)
EQUAL-OK: "w to s7"
(READ S)
EQUAL-OK: "w to b2 6.satz"
(READ S)
EQUAL-OK: "w to b2 7.satz"
(READ S)
EQUAL-OK: "w to b2 8.satz"
(CLOSE-1 S)
EQL-OK: T
(PROGN (SETQ S (OPEN "t1.plc" :DIRECTION :OUTPUT)) T)
EQL-OK: T
(PRINT "1.satz t1" S)
EQUAL-OK: "1.satz t1"
(PRINT "2.satz t1" S)
EQUAL-OK: "2.satz t1"
(CLOSE-1 S)
EQL-OK: T
(PROGN (SETQ S (OPEN "t2.plc" :DIRECTION :OUTPUT)) T)
EQL-OK: T
(PRINT "1.satz t2" S)
EQUAL-OK: "1.satz t2"
(PRINT "2.satz t2" S)
EQUAL-OK: "2.satz t2"
(CLOSE-1 S)
EQL-OK: T
(PROGN (SETQ S (OPEN "t3.plc" :DIRECTION :OUTPUT)) T)
EQL-OK: T
(PRINT "1.satz t3" S)
EQUAL-OK: "1.satz t3"
(PRINT "2.satz t3" S)
EQUAL-OK: "2.satz t3"
(CLOSE-1 S)
EQL-OK: T
(PROGN (SETQ S (OPEN "t4.plc" :DIRECTION :OUTPUT)) T)
EQL-OK: T
(PRINT "1.satz t4" S)
EQUAL-OK: "1.satz t4"
(PRINT "2.satz t4" S)
EQUAL-OK: "2.satz t4"
(CLOSE-1 S)
EQL-OK: T
(PROGN (SETQ S (OPEN "t5.plc" :DIRECTION :OUTPUT)) T)
EQL-OK: T
(PRINT "1.satz t5" S)
EQUAL-OK: "1.satz t5"
(PRINT "2.satz t5" S)
EQUAL-OK: "2.satz t5"
(CLOSE-1 S)
EQL-OK: T
(PROGN (SETQ S (OPEN "t6.plc" :DIRECTION :OUTPUT)) T)
EQL-OK: T
(PRINT "1.satz t6" S)
EQUAL-OK: "1.satz t6"
(PRINT "2.satz t6" S)
EQUAL-OK: "2.satz t6"
(CLOSE-1 S)
EQL-OK: T
(PROGN (SETQ S (OPEN "t7.plc" :DIRECTION :OUTPUT)) T)
EQL-OK: T
(PRINT "1.satz t7" S)
EQUAL-OK: "1.satz t7"
(PRINT "2.satz t7" S)
EQUAL-OK: "2.satz t7"
(CLOSE-1 S)
EQL-OK: T
(PROGN (SETQ S (OPEN "t8.plc" :DIRECTION :OUTPUT)) T)
EQL-OK: T
(PRINT "1.satz t8" S)
EQUAL-OK: "1.satz t8"
(PRINT "2.satz t8" S)
EQUAL-OK: "2.satz t8"
(CLOSE-1 S)
EQL-OK: T
(PROGN (SETQ S (OPEN "t9.plc" :DIRECTION :OUTPUT)) T)
EQL-OK: T
(PRINT "1.satz t9" S)
EQUAL-OK: "1.satz t9"
(PRINT "2.satz t9" S)
EQUAL-OK: "2.satz t9"
(CLOSE-1 S)
EQL-OK: T
(PROGN (SETQ S (OPEN "t10.plc" :DIRECTION :OUTPUT)) T)
EQL-OK: T
(PRINT "1.satz t10" S)
EQUAL-OK: "1.satz t10"
(PRINT "2.satz t10" S)
EQUAL-OK: "2.satz t10"
(CLOSE-1 S)
EQL-OK: T
(PROGN (SETQ S1 (OPEN "t1.plc")) (SETQ S2 (OPEN "t2.plc")) (SETQ S3 (OPEN "t3.plc")) (SETQ S4 (OPEN "t4.plc")) (SETQ S5 (OPEN "t5.plc")) (SETQ C1 (MAKE-CONCATENATED-STREAM S1 S2 S3)) (SETQ C2 (MAKE-CONCATENATED-STREAM S4 S5)) T)
EQL-OK: T
(READ C1)
EQUAL-OK: "1.satz t1"
(READ C2)
EQUAL-OK: "1.satz t4"
(READ C1)
EQUAL-OK: "2.satz t1"
(READ C1)
EQUAL-OK: "1.satz t2"
(READ C2)
EQUAL-OK: "2.satz t4"
(READ C2)
EQUAL-OK: "1.satz t5"
(READ C1)
EQUAL-OK: "2.satz t2"
(READ C1)
EQUAL-OK: "1.satz t3"
(READ C1)
EQUAL-OK: "2.satz t3"
(READ C2)
EQUAL-OK: "2.satz t5"
(CLOSE-1 S1)
EQL-OK: T
(CLOSE-1 S2)
EQL-OK: T
(CLOSE-1 S3)
EQL-OK: T
(CLOSE-1 S4)
EQL-OK: T
(CLOSE-1 S5)
EQL-OK: T
(PROGN (SETQ S1 (OPEN "t1.plc")) (SETQ S2 (OPEN "t2.plc")) (SETQ S3 (OPEN "t3.plc")) (SETQ S4 (OPEN "t4.plc")) (SETQ S5 (OPEN "t5.plc")) (SETQ S6 (OPEN "t6.plc")) (SETQ S7 (OPEN "t7.plc")) (SETQ S8 (OPEN "t8.plc")) (SETQ S9 (OPEN "t9.plc")) (SETQ S10 (OPEN "t10.plc")) (SETQ C1 (MAKE-CONCATENATED-STREAM S1 S2)) (SETQ C2 (MAKE-CONCATENATED-STREAM S3)) (SETQ C3 (MAKE-CONCATENATED-STREAM C1 C2 S4)) (SETQ C4 (MAKE-CONCATENATED-STREAM S5 S6 S7 S8 S9 S10)) T)
EQL-OK: T
(READ C4)
EQUAL-OK: "1.satz t5"
(READ C3)
EQUAL-OK: "1.satz t1"
(READ C4)
EQUAL-OK: "2.satz t5"
(READ C4)
EQUAL-OK: "1.satz t6"
(READ C3)
EQUAL-OK: "2.satz t1"
(READ C3)
EQUAL-OK: "1.satz t2"
(READ C4)
EQUAL-OK: "2.satz t6"
(READ C4)
EQUAL-OK: "1.satz t7"
(READ C4)
EQUAL-OK: "2.satz t7"
(READ C3)
EQUAL-OK: "2.satz t2"
(READ C3)
EQUAL-OK: "1.satz t3"
(READ C3)
EQUAL-OK: "2.satz t3"
(READ C4)
EQUAL-OK: "1.satz t8"
(READ C4)
EQUAL-OK: "2.satz t8"
(READ C4)
EQUAL-OK: "1.satz t9"
(READ C4)
EQUAL-OK: "2.satz t9"
(READ C3)
EQUAL-OK: "1.satz t4"
(READ C3)
EQUAL-OK: "2.satz t4"
(READ C4)
EQUAL-OK: "1.satz t10"
(READ C4)
EQUAL-OK: "2.satz t10"
(CLOSE-1 S1)
EQL-OK: T
(CLOSE-1 S2)
EQL-OK: T
(CLOSE-1 S3)
EQL-OK: T
(CLOSE-1 S4)
EQL-OK: T
(CLOSE-1 S5)
EQL-OK: T
(CLOSE-1 S6)
EQL-OK: T
(CLOSE-1 S7)
EQL-OK: T
(CLOSE-1 S8)
EQL-OK: T
(CLOSE-1 S9)
EQL-OK: T
(CLOSE-1 S10)
EQL-OK: T
(SETQ STR1 "test 123456")
EQUAL-OK: "test 123456"
(PROGN (SETQ S1 (MAKE-STRING-INPUT-STREAM STR1)) T)
EQL-OK: T
(READ S1)
EQL-OK: TEST
(READ-CHAR S1)
EQL-OK: #\1
(READ-CHAR S1)
EQL-OK: #\2
(UNREAD-CHAR #\2 S1)
EQL-OK: NIL
(READ-CHAR S1)
EQL-OK: #\2
(READ-CHAR S1)
EQL-OK: #\3
(READ-CHAR S1)
EQL-OK: #\4
(UNREAD-CHAR #\A S1)
[SIMPLE-STREAM-ERROR]: UNREAD-CHAR: the last character read from #1=#<INPUT STRING-INPUT-STREAM> was not #\A
EQL-OK: ERROR
(READ-CHAR S1)
EQL-OK: #\5
(READ-CHAR S1)
EQL-OK: #\6
(CLOSE-1 S1)
EQL-OK: T
STR1
EQUAL-OK: "test 123456"
(MULTIPLE-VALUE-LIST (READ-FROM-STRING "012345 789"))
EQUAL-OK: (12345 7)
(MULTIPLE-VALUE-LIST (READ-FROM-STRING "012345 789" T NIL :PRESERVE-WHITESPACE T))
EQUAL-OK: (12345 6)
(MULTIPLE-VALUE-LIST (READ-FROM-STRING "012345 789" T NIL :END 4))
EQUAL-OK: (123 4)
(MULTIPLE-VALUE-LIST (READ-FROM-STRING "012345 789" T NIL :START 2))
EQUAL-OK: (2345 7)
(PROGN (SETQ STRGSTREAM (MAKE-STRING-INPUT-STREAM "0123456789" 5 8)) T)
EQL-OK: T
(READ STRGSTREAM)
EQL-OK: 567
(LET* ((S "0123456789") (D (MAKE-ARRAY 5 :DISPLACED-TO S :DISPLACED-INDEX-OFFSET 3 :ELEMENT-TYPE (ARRAY-ELEMENT-TYPE S))) (I (MAKE-STRING-INPUT-STREAM D 2 5))) (READ I))
EQL-OK: 567
(PROGN (SETQ STRGSTREAM (MAKE-STRING-INPUT-STREAM "wenn alles gut geht ist das ein stream 012")) T)
EQL-OK: T
(READ STRGSTREAM)
EQL-OK: WENN
(READ STRGSTREAM)
EQL-OK: ALLES
(READ STRGSTREAM)
EQL-OK: GUT
(READ STRGSTREAM)
EQL-OK: GEHT
(READ STRGSTREAM)
EQL-OK: IST
(READ STRGSTREAM)
EQL-OK: DAS
(READ STRGSTREAM)
EQL-OK: EIN
(READ STRGSTREAM)
EQL-OK: STREAM
(READ STRGSTREAM)
EQL-OK: 12
(PROGN (SETQ STRGSTREAM (MAKE-STRING-OUTPUT-STREAM)) T)
EQL-OK: T
(PRINC "das " STRGSTREAM)
EQUAL-OK: "das "
(PRINC "ist " STRGSTREAM)
EQUAL-OK: "ist "
(PRINC "ein " STRGSTREAM)
EQUAL-OK: "ein "
(PRINC "string " STRGSTREAM)
EQUAL-OK: "string "
(PRINC "output " STRGSTREAM)
EQUAL-OK: "output "
(PRINC "stream " STRGSTREAM)
EQUAL-OK: "stream "
(GET-OUTPUT-STREAM-STRING STRGSTREAM)
EQUAL-OK: "das ist ein string output stream "
(GET-OUTPUT-STREAM-STRING STRGSTREAM)
EQUAL-OK: ""
(PRINC "das ist ein neuer string output stream" STRGSTREAM)
EQUAL-OK: "das ist ein neuer string output stream"
(GET-OUTPUT-STREAM-STRING STRGSTREAM)
EQUAL-OK: "das ist ein neuer string output stream"
(SETQ *PRINT-LENGTH* 50)
EQL-OK: 50
(WRITE-TO-STRING 123456789)
EQUAL-OK: "123456789"
"(write-to-string '#1=(123456789 . #1#))"
EQUAL-OK: "(write-to-string '#1=(123456789 . #1#))"
(PRIN1-TO-STRING "abc")
EQUAL-OK: "\"abc\""
(PRINC-TO-STRING "abc")
EQUAL-OK: "abc"
(PROGN (SETQ OS (MAKE-STRING-OUTPUT-STREAM)) T)
EQL-OK: T
(SETQ S50 "123456789A123456789B123456789C123456789D12345678
E")
EQUAL-OK: "123456789A123456789B123456789C123456789D12345678
E"
(SETQ S49 "123456789A123456789B123456789C123456789D1234567
*")
EQUAL-OK: "123456789A123456789B123456789C123456789D1234567
*"
(PRINC S50 OS)
EQUAL-OK: "123456789A123456789B123456789C123456789D12345678
E"
(PRINC S50 OS)
EQUAL-OK: "123456789A123456789B123456789C123456789D12345678
E"
(PRINC S50 OS)
EQUAL-OK: "123456789A123456789B123456789C123456789D12345678
E"
(PRINC S50 OS)
EQUAL-OK: "123456789A123456789B123456789C123456789D12345678
E"
(PRINC S50 OS)
EQUAL-OK: "123456789A123456789B123456789C123456789D12345678
E"
(PRINC S50 OS)
EQUAL-OK: "123456789A123456789B123456789C123456789D12345678
E"
(PRINC S50 OS)
EQUAL-OK: "123456789A123456789B123456789C123456789D12345678
E"
(PRINC S49 OS)
EQUAL-OK: "123456789A123456789B123456789C123456789D1234567
*"
(PRINC "A" OS)
EQUAL-OK: "A"
(PRINC "B" OS)
EQUAL-OK: "B"
(PRINC "C" OS)
EQUAL-OK: "C"
(LENGTH (PRINC (GET-OUTPUT-STREAM-STRING OS)))
123456789A123456789B123456789C123456789D12345678
E123456789A123456789B123456789C123456789D12345678
E123456789A123456789B123456789C123456789D12345678
E123456789A123456789B123456789C123456789D12345678
E123456789A123456789B123456789C123456789D12345678
E123456789A123456789B123456789C123456789D12345678
E123456789A123456789B123456789C123456789D12345678
E123456789A123456789B123456789C123456789D1234567
*ABC
EQL-OK: 402
(PRINC S50 OS)
EQUAL-OK: "123456789A123456789B123456789C123456789D12345678
E"
(PRINC S50 OS)
EQUAL-OK: "123456789A123456789B123456789C123456789D12345678
E"
(PRINC S50 OS)
EQUAL-OK: "123456789A123456789B123456789C123456789D12345678
E"
(PRINC S50 OS)
EQUAL-OK: "123456789A123456789B123456789C123456789D12345678
E"
(PRINC S50 OS)
EQUAL-OK: "123456789A123456789B123456789C123456789D12345678
E"
(PRINC S50 OS)
EQUAL-OK: "123456789A123456789B123456789C123456789D12345678
E"
(PRINC S49 OS)
EQUAL-OK: "123456789A123456789B123456789C123456789D1234567
*"
(PRINC S49 OS)
EQUAL-OK: "123456789A123456789B123456789C123456789D1234567
*"
(PRINC S49 OS)
EQUAL-OK: "123456789A123456789B123456789C123456789D1234567
*"
(PRINC S49 OS)
EQUAL-OK: "123456789A123456789B123456789C123456789D1234567
*"
(LENGTH (PRINC (GET-OUTPUT-STREAM-STRING OS)))
123456789A123456789B123456789C123456789D12345678
E123456789A123456789B123456789C123456789D12345678
E123456789A123456789B123456789C123456789D12345678
E123456789A123456789B123456789C123456789D12345678
E123456789A123456789B123456789C123456789D12345678
E123456789A123456789B123456789C123456789D12345678
E123456789A123456789B123456789C123456789D1234567
*123456789A123456789B123456789C123456789D1234567
*123456789A123456789B123456789C123456789D1234567
*123456789A123456789B123456789C123456789D1234567
*
EQL-OK: 496
(PROGN (SETQ OS (OPEN "d0.plc" :DIRECTION :OUTPUT)) (SETQ OS1 (OPEN "d1.plc" :DIRECTION :OUTPUT)) (SETQ IS (OPEN "t0.plc" :DIRECTION :OUTPUT)) T)
EQL-OK: T
(PRINC "'(a b #.(print \"1.zwischenwert\" os1) c d)" IS)
EQUAL-OK: "'(a b #.(print \"1.zwischenwert\" os1) c d)"
(PRINC "'(a b #.(prin1-to-string \"2.zwischenwert\") c d)" IS)
EQUAL-OK: "'(a b #.(prin1-to-string \"2.zwischenwert\") c d)"
(PRINC "'(a b #.(format nil  \"3.zwischenwert\") c d)" IS)
EQUAL-OK: "'(a b #.(format nil  \"3.zwischenwert\") c d)"
(CLOSE-1 IS)
EQL-OK: T
(PROGN (SETQ IS (OPEN "t0.plc")) (SETQ ES (MAKE-ECHO-STREAM IS OS)) T)
EQL-OK: T
(PRINT "ausgabe os1" OS1)
EQUAL-OK: "ausgabe os1"
(READ ES)
EQUAL-OK: '(A B "1.zwischenwert" C D)
(PRINT "ausgabe os1" OS1)
EQUAL-OK: "ausgabe os1"
(READ ES)
EQUAL-OK: '(A B "\"2.zwischenwert\"" C D)
(PRINT "ausgabe os1" OS1)
EQUAL-OK: "ausgabe os1"
(READ ES)
EQUAL-OK: '(A B "3.zwischenwert" C D)
(PRINT "ausgabe os1" OS1)
EQUAL-OK: "ausgabe os1"
(CLOSE-1 IS)
EQL-OK: T
(CLOSE-1 OS)
EQL-OK: T
(PROGN (SETQ IS (OPEN "d0.plc")) T)
EQL-OK: T
(READ IS)
EQUAL-OK: '(A B "1.zwischenwert" C D)
(READ IS)
EQUAL-OK: '(A B "\"2.zwischenwert\"" C D)
(READ IS)
EQUAL-OK: '(A B "3.zwischenwert" C D)
(CLOSE-1 IS)
EQL-OK: T
(CLOSE-1 OS1)
EQL-OK: T
(PROGN (SETQ IS (OPEN "d1.plc")) T)
EQL-OK: T
(READ IS)
EQUAL-OK: "ausgabe os1"
(READ IS)
EQUAL-OK: "1.zwischenwert"
(READ IS)
EQUAL-OK: "ausgabe os1"
(READ IS)
EQUAL-OK: "ausgabe os1"
(READ IS)
EQUAL-OK: "ausgabe os1"
(READ IS)
EQUAL-OK: "1.zwischenwert"
(CLOSE-1 IS)
EQL-OK: T
(PROGN (MAPC #'DELETE-FILE (DIRECTORY "*.plc")) T)
EQL-OK: T
(PROGN (SETQ S1 (MAKE-INSTANCE 'FILL-STREAM :STREAM *STANDARD-OUTPUT*) S2 (MAKE-SYNONYM-STREAM 'S1) S3 (MAKE-BROADCAST-STREAM S1 S2)) (LIST (STREAM-ELEMENT-TYPE S1) (STREAM-ELEMENT-TYPE S2) (STREAM-ELEMENT-TYPE S3)))
EQUAL-OK: (CHARACTER CHARACTER CHARACTER)
(LET ((*PRINT-RIGHT-MARGIN* 15) (*PRINT-PRETTY* T)) (WITH-OUTPUT-TO-STRING (OUT) (WITH-FILL-STREAM (FILL OUT :TEXT-INDENT 3) (FORMAT FILL "~%~S, ~S, ~S, ~S, ~S, ~S, ~S, ~S, ~S, ~S,~%" 'A 'BB 'CCC 'DDDD 'EEEEE 'FFFFFF 'GGGG 'HHH 'II 'J))))
EQUAL-OK: "
   A, BB, CCC,
   DDDD, EEEEE
   , FFFFFF,
   GGGG, HHH,
   II, J,
"
(PROGN (DEFVAR *MY-INDENT-LEVEL*) (WITH-OUTPUT-TO-STRING (OUT) (LET ((*PRINT-RIGHT-MARGIN* 20) (*PRINT-PRETTY* T) (*MY-INDENT-LEVEL* 2)) (WITH-FILL-STREAM (FILL OUT :TEXT-INDENT '*MY-INDENT-LEVEL*) (FORMAT FILL "~%this is some long sentence which will      be broken at spaces") (FORCE-OUTPUT FILL) (LET ((*MY-INDENT-LEVEL* 5)) (FORMAT FILL "~%and    properly indented to the level specified by the ~S argument which can be a ~S or an ~S - cool!" :TEXT-INDENT 'SYMBOL 'INTEGER)) (FORMAT FILL "~%Don't forget  to call ~S on it, and/or use ~S   Pretty formatting of the  S-expressions    printed with ~~S is  preserved: ~S" 'FORCE-OUTPUT 'WITH-FILL-STREAM '(DEFUN QU (X Y Z) (IF X (+ Y Z) (* Y Z))))))))
EQUAL-OK: "
  this is some long
  sentence which
  will be broken at
  spaces
     and properly
     indented to
     the level
     specified by
     the
     :TEXT-INDENT
     argument which
     can be a
     SYMBOL or an
     INTEGER -
  cool!
  Don't forget to
  call FORCE-OUTPUT
  on it, and/or use
  WITH-FILL-STREAM
  Pretty formatting
  of the
  S-expressions
  printed with ~S
  is preserved:
   (DEFUN QU (X Y Z)
    (IF X (+ Y Z)
     (* Y Z)))
"
(WITH-OUTPUT-TO-STRING (*ERROR-OUTPUT*) (LETF ((*CURRENT-LANGUAGE* 'ENGLISH)) (LOOP :WITH *PRINT-PRETTY* = T :WITH *PRINT-RIGHT-MARGIN* = 60 :FOR *FILL-INDENT-SEXP* :IN (LIST 3 20 NIL T #'1+ #'1- (LAMBDA (X) (* X 2))) :DO (FORMAT *ERROR-OUTPUT* "~3%~S~2%" *FILL-INDENT-SEXP*) (LOOP :FOR I :FROM 1 :TO 12 :BY 5 :DO (WARN "This form contains an error, a mistake, a bug, a blunder, a bungle, a blooper: ~S and can therefore not be correctly interpreted, neither today nor tomorrow nor next week nor next month nor next year" (MAKE-LIST I))))))
EQUAL-OK: "
3
WARNING: This form contains an error, a mistake, a bug, a
         blunder, a bungle, a blooper: (NIL) and can
         therefore not be correctly interpreted, neither
         today nor tomorrow nor next week nor next month
         nor next year
WARNING: This form contains an error, a mistake, a bug, a
         blunder, a bungle, a blooper:
         (NIL NIL NIL NIL NIL NIL) and can therefore not be
         correctly interpreted, neither today nor tomorrow
         nor next week nor next month nor next year
WARNING: This form contains an error, a mistake, a bug, a
         blunder, a bungle, a blooper:
         (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL) and
         can therefore not be correctly interpreted,
         neither today nor tomorrow nor next week nor next
         month nor next year
20
WARNING: This form contains an error, a mistake, a bug, a
         blunder, a bungle, a blooper: (NIL) and can
         therefore not be correctly interpreted, neither
         today nor tomorrow nor next week nor next month
         nor next year
WARNING: This form contains an error, a mistake, a bug, a
         blunder, a bungle, a blooper:
         (NIL NIL NIL NIL NIL NIL) and can therefore not be
         correctly interpreted, neither today nor tomorrow
         nor next week nor next month nor next year
WARNING: This form contains an error, a mistake, a bug, a
         blunder, a bungle, a blooper:
                    (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
                     NIL)
         and can therefore not be correctly interpreted,
         neither today nor tomorrow nor next week nor next
         month nor next year
NIL
WARNING: This form contains an error, a mistake, a bug, a
         blunder, a bungle, a blooper: (NIL) and can
         therefore not be correctly interpreted, neither
         today nor tomorrow nor next week nor next month
         nor next year
WARNING: This form contains an error, a mistake, a bug, a
         blunder, a bungle, a blooper:
         (NIL NIL NIL NIL NIL NIL) and can therefore not be
         correctly interpreted, neither today nor tomorrow
         nor next week nor next month nor next year
WARNING: This form contains an error, a mistake, a bug, a
         blunder, a bungle, a blooper:
         (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL) and
         can therefore not be correctly interpreted,
         neither today nor tomorrow nor next week nor next
         month nor next year
T
WARNING: This form contains an error, a mistake, a bug, a
         blunder, a bungle, a blooper: (NIL) and can
         therefore not be correctly interpreted, neither
         today nor tomorrow nor next week nor next month
         nor next year
WARNING: This form contains an error, a mistake, a bug, a
         blunder, a bungle, a blooper:
         (NIL NIL NIL NIL NIL NIL) and can therefore not be
         correctly interpreted, neither today nor tomorrow
         nor next week nor next month nor next year
WARNING: This form contains an error, a mistake, a bug, a
         blunder, a bungle, a blooper:
         (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL) and
         can therefore not be correctly interpreted,
         neither today nor tomorrow nor next week nor next
         month nor next year
#<SYSTEM-FUNCTION 1+>
WARNING: This form contains an error, a mistake, a bug, a
         blunder, a bungle, a blooper: (NIL) and can
         therefore not be correctly interpreted, neither
         today nor tomorrow nor next week nor next month
         nor next year
WARNING: This form contains an error, a mistake, a bug, a
         blunder, a bungle, a blooper:
         (NIL NIL NIL NIL NIL NIL) and can therefore not be
         correctly interpreted, neither today nor tomorrow
         nor next week nor next month nor next year
WARNING: This form contains an error, a mistake, a bug, a
         blunder, a bungle, a blooper:
         (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL) and
         can therefore not be correctly interpreted,
         neither today nor tomorrow nor next week nor next
         month nor next year
#<SYSTEM-FUNCTION 1->
WARNING: This form contains an error, a mistake, a bug, a
         blunder, a bungle, a blooper: (NIL) and can
         therefore not be correctly interpreted, neither
         today nor tomorrow nor next week nor next month
         nor next year
WARNING: This form contains an error, a mistake, a bug, a
         blunder, a bungle, a blooper:
         (NIL NIL NIL NIL NIL NIL) and can therefore not be
         correctly interpreted, neither today nor tomorrow
         nor next week nor next month nor next year
WARNING: This form contains an error, a mistake, a bug, a
         blunder, a bungle, a blooper:
         (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL) and
         can therefore not be correctly interpreted,
         neither today nor tomorrow nor next week nor next
         month nor next year
#<FUNCTION :LAMBDA (X) (* X 2)>
WARNING: This form contains an error, a mistake, a bug, a
         blunder, a bungle, a blooper: (NIL) and can
         therefore not be correctly interpreted, neither
         today nor tomorrow nor next week nor next month
         nor next year
WARNING: This form contains an error, a mistake, a bug, a
         blunder, a bungle, a blooper:
         (NIL NIL NIL NIL NIL NIL) and can therefore not be
         correctly interpreted, neither today nor tomorrow
         nor next week nor next month nor next year
WARNING: This form contains an error, a mistake, a bug, a
         blunder, a bungle, a blooper:
                  (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
                   NIL)
         and can therefore not be correctly interpreted,
         neither today nor tomorrow nor next week nor next
         month nor next year
"
(LET ((C (NTH-VALUE 1 (IGNORE-ERRORS (FORMAT T " ~a ~a,~a~ ~a~%" 1 2 3 4))))) (STRING= (PRINC-TO-STRING C) (WITH-OUTPUT-TO-STRING (S) (WITH-FILL-STREAM (F S) (PRINC C F)))))
EQL-OK: T
(WITH-OUTPUT-TO-STRING (S) (WITH-FILL-STREAM (F S) (FORMAT F "~5T")))
EQUAL-OK: "     "
(LET ((F "streams-tst-foo.bar") FWD1 FWD2) (UNWIND-PROTECT (PROGN (WITH-OPEN-FILE (S F :DIRECTION :OUTPUT) (WRITE F :STREAM S)) (WITH-OPEN-FILE (S F) (SETQ FWD1 (FILE-WRITE-DATE S))) (WITH-OPEN-FILE (S F :DIRECTION :PROBE) (LIST (OR (= FWD1 (SETQ FWD2 (FILE-WRITE-DATE S))) (LIST FWD1 FWD2)) (OPEN-STREAM-P S)))) (DELETE-FILE F)))
EQUAL-OK: (T NIL)
(LET ((F "streams-tst-foo.bar") FWD SIZE DIR DECODED) (UNWIND-PROTECT (PROGN (WITH-OPEN-FILE (S F :DIRECTION :OUTPUT) (WRITE S :STREAM S) (SETQ SIZE (FILE-LENGTH S))) (WITH-OPEN-FILE (S F :DIRECTION :PROBE) (SETQ FWD (FILE-WRITE-DATE S))) (SETQ DIR (FIRST (DIRECTORY F :FULL T)) DECODED (SUBSEQ (MULTIPLE-VALUE-LIST (DECODE-UNIVERSAL-TIME FWD)) 0 6)) (LIST (OR (EQUAL (THIRD DIR) DECODED) (LIST DIR FWD DECODED)) (OR (= (FOURTH DIR) SIZE) (LIST DIR SIZE)))) (DELETE-FILE F)))
EQUAL-OK: (T T)
(LET ((F "streams-tst-foo.bar") POS) (UNWIND-PROTECT (PROGN (WITH-OPEN-FILE (S F :DIRECTION :OUTPUT :IF-EXISTS :SUPERSEDE :EXTERNAL-FORMAT :UNIX) (WRITE-LINE "foo" S) (PUSH (FILE-POSITION S) POS)) (WITH-OPEN-FILE (S F :DIRECTION :OUTPUT :IF-EXISTS :APPEND :EXTERNAL-FORMAT :UNIX) (PUSH (FILE-POSITION S) POS) (WRITE-LINE "bar" S) (PUSH (FILE-POSITION S) POS)) (LIST (NREVERSE POS) (WITH-OPEN-FILE (S F :DIRECTION :INPUT) (LIST (READ-LINE S) (READ-LINE S))))) (DELETE-FILE F)))
EQUAL-OK: ((4 4 8) ("foo" "bar"))
(STRINGP (WITH-OUTPUT-TO-STRING (S) (DESCRIBE (MAKE-ARRAY NIL) S)))
EQL-OK: T
(STRINGP (WITH-OUTPUT-TO-STRING (S) (DESCRIBE (MAKE-ARRAY 1 :ELEMENT-TYPE NIL) S)))
EQL-OK: T
(STRINGP (WITH-OUTPUT-TO-STRING (S) (DESCRIBE (MAKE-ARRAY NIL :ELEMENT-TYPE NIL) S)))
EQL-OK: T
(STRINGP (WITH-OUTPUT-TO-STRING (S) (DESCRIBE NIL S)))
EQL-OK: T
(LET ((S "a   b")) (SEARCH S (WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (DESCRIBE S))))
EQL-OK: 2
(WITH-INPUT-FROM-STRING (*S* "abcde") (DECLARE (SPECIAL *S*)) (LET ((SS (MAKE-SYNONYM-STREAM '*S*))) (ASSERT (TYPEP SS 'STREAM)) (ASSERT (TYPEP SS 'SYNONYM-STREAM)) (ASSERT (INPUT-STREAM-P SS)) (ASSERT (NOT (OUTPUT-STREAM-P SS))) (ASSERT (OPEN-STREAM-P SS)) (ASSERT (STREAMP SS)) (ASSERT (STREAM-ELEMENT-TYPE SS)) (LIST (READ-CHAR *S*) (READ-CHAR SS) (READ-CHAR *S*) (READ-CHAR SS) (READ-CHAR SS))))
EQUAL-OK: (#\a #\b #\c #\d #\e)
(WITH-OUTPUT-TO-STRING (*S*) (DECLARE (SPECIAL *S*)) (LET ((SS (MAKE-SYNONYM-STREAM '*S*))) (ASSERT (TYPEP SS 'STREAM)) (ASSERT (TYPEP SS 'SYNONYM-STREAM)) (ASSERT (OUTPUT-STREAM-P SS)) (ASSERT (NOT (INPUT-STREAM-P SS))) (ASSERT (OPEN-STREAM-P SS)) (ASSERT (STREAMP SS)) (ASSERT (STREAM-ELEMENT-TYPE SS)) (WRITE-CHAR #\a *S*) (WRITE-CHAR #\b SS) (WRITE-CHAR #\x *S*) (WRITE-CHAR #\y SS)))
EQUAL-OK: "abxy"
(STREAM-EXTERNAL-FORMAT (MAKE-BROADCAST-STREAM))
EQL-OK: :DEFAULT
(FILE-LENGTH (MAKE-BROADCAST-STREAM))
EQL-OK: 0
(FILE-POSITION (MAKE-BROADCAST-STREAM))
EQL-OK: 0
(FILE-STRING-LENGTH (MAKE-BROADCAST-STREAM) "foo")
EQL-OK: 1
(STREAM-ELEMENT-TYPE (MAKE-BROADCAST-STREAM))
EQL-OK: T
(LET ((O (OPEN "streams-tst-foo.bin" :DIRECTION :OUTPUT :ELEMENT-TYPE '(UNSIGNED-BYTE 8))) (I (MAKE-STRING-INPUT-STREAM "foo"))) (UNWIND-PROTECT (STREAM-ELEMENT-TYPE (MAKE-TWO-WAY-STREAM I O)) (CLOSE O) (DELETE-FILE O) (CLOSE I)))
EQUAL-OK: (OR CHARACTER (UNSIGNED-BYTE 8))
(STREAM-ELEMENT-TYPE (MAKE-CONCATENATED-STREAM (MAKE-STRING-INPUT-STREAM "foo") (MAKE-STRING-INPUT-STREAM "bar") (MAKE-STRING-INPUT-STREAM "baz") (MAKE-STRING-INPUT-STREAM "zot")))
EQL-OK: CHARACTER
(LET ((S (MAKE-STRING-OUTPUT-STREAM :ELEMENT-TYPE NIL))) (LIST (TYPEP #\z (STREAM-ELEMENT-TYPE S)) (TYPEP #\a (ARRAY-ELEMENT-TYPE (GET-OUTPUT-STREAM-STRING S)))))
EQUAL-OK: (NIL NIL)
(STREAM-ELEMENT-TYPE (MAKE-CONCATENATED-STREAM))
EQL-OK: NIL
(STREAM-ELEMENT-TYPE (MAKE-BROADCAST-STREAM))
EQL-OK: T
(OPEN (MAKE-STRING 5000 :INITIAL-ELEMENT #\x))
[OS-FILE-ERROR]: OS-FILE-ERROR(36): File name too long
EQL-OK: ERROR
(LET ((CS (MAKE-CONCATENATED-STREAM (MAKE-STRING-INPUT-STREAM "a")))) (UNREAD-CHAR (READ-CHAR CS) CS) (EQL (PEEK-CHAR NIL CS) (PEEK-CHAR NIL (FIRST (CONCATENATED-STREAM-STREAMS CS)) NIL NIL)))
EQL-OK: T
(LET ((|2W| (MAKE-TWO-WAY-STREAM (MAKE-STRING-INPUT-STREAM "a") *STANDARD-OUTPUT*))) (UNREAD-CHAR (READ-CHAR |2W|) |2W|) (EQL (PEEK-CHAR NIL |2W|) (PEEK-CHAR NIL (TWO-WAY-STREAM-INPUT-STREAM |2W|) NIL NIL)))
EQL-OK: T
(LET* ((SO (MAKE-STRING-OUTPUT-STREAM)) (VE (MAKE-ARRAY 1)) (EC (MAKE-ECHO-STREAM (MAKE-STRING-INPUT-STREAM "a") SO))) (UNREAD-CHAR (READ-CHAR EC) EC) (UNREAD-CHAR (READ-CHAR EC) EC) (UNREAD-CHAR (READ-CHAR EC) EC) (READ-SEQUENCE VE EC) (UNREAD-CHAR (AREF VE 0) EC) (LIST (EQL (PEEK-CHAR NIL EC) (PEEK-CHAR NIL (ECHO-STREAM-INPUT-STREAM EC) NIL NIL)) (GET-OUTPUT-STREAM-STRING SO)))
EQUAL-OK: (T "a")
(LET* ((SO1 (MAKE-STRING-OUTPUT-STREAM)) (SO2 (MAKE-STRING-OUTPUT-STREAM)) (EC1 (MAKE-ECHO-STREAM (MAKE-STRING-INPUT-STREAM "a") SO1)) (EC2 (MAKE-ECHO-STREAM EC1 SO2))) (UNREAD-CHAR (READ-CHAR EC2) EC2) (UNREAD-CHAR (READ-CHAR EC2) EC2) (UNREAD-CHAR (READ-CHAR EC2) EC2) (LIST (EQL (PEEK-CHAR NIL EC2) (PEEK-CHAR NIL EC1 NIL NIL)) (GET-OUTPUT-STREAM-STRING SO1) (GET-OUTPUT-STREAM-STRING SO2)))
EQUAL-OK: (T "a" "a")
(CLEAR-INPUT *DEBUG-IO*)
EQL-OK: NIL
(CLEAR-INPUT *QUERY-IO*)
EQL-OK: NIL
(CLEAR-INPUT *STANDARD-INPUT*)
EQL-OK: NIL
(CLEAR-INPUT *TERMINAL-IO*)
EQL-OK: NIL
(FINISH-OUTPUT *DEBUG-IO*)
EQL-OK: NIL
(FINISH-OUTPUT *QUERY-IO*)
EQL-OK: NIL
(FINISH-OUTPUT *STANDARD-OUTPUT*)
EQL-OK: NIL
(FINISH-OUTPUT *TERMINAL-IO*)
EQL-OK: NIL
(FORCE-OUTPUT *DEBUG-IO*)
EQL-OK: NIL
(FORCE-OUTPUT *QUERY-IO*)
EQL-OK: NIL
(FORCE-OUTPUT *STANDARD-OUTPUT*)
EQL-OK: NIL
(FORCE-OUTPUT *TERMINAL-IO*)
EQL-OK: NIL
(CLEAR-OUTPUT *DEBUG-IO*)
EQL-OK: NIL
(CLEAR-OUTPUT *QUERY-IO*)
EQL-OK: NIL
(CLEAR-OUTPUT *STANDARD-OUTPUT*)
EQL-OK: NIL
(CLEAR-OUTPUT *TERMINAL-IO*)
EQL-OK: NIL
(LET ((IF "streams-tst-tmp-input-file") (OF "streams-tst-tmp-output-file")) (OPEN IF :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE) (UNWIND-PROTECT (WITH-OPEN-FILE (O OF :DIRECTION :OUTPUT) (WITH-OPEN-FILE (I IF :DIRECTION :INPUT) (WITH-OPEN-STREAM (2WAY (MAKE-TWO-WAY-STREAM I O)) (LIST (EQ (STREAM-EXTERNAL-FORMAT I) (STREAM-EXTERNAL-FORMAT O)) (EQ (STREAM-EXTERNAL-FORMAT I) (STREAM-EXTERNAL-FORMAT 2WAY)) (PROGN (SETF (STREAM-EXTERNAL-FORMAT I) :DOS (STREAM-EXTERNAL-FORMAT I) :MAC) (CONS (EQUALP (STREAM-EXTERNAL-FORMAT I) (STREAM-EXTERNAL-FORMAT O)) (STREAM-EXTERNAL-FORMAT 2WAY))) (PROGN (SETF (STREAM-EXTERNAL-FORMAT 2WAY :INPUT) :UNIX (STREAM-EXTERNAL-FORMAT 2WAY :OUTPUT) :UNIX) (ENCODING-LINE-TERMINATOR (STREAM-EXTERNAL-FORMAT 2WAY))) (TYPE-OF (STREAM-EXTERNAL-FORMAT 2WAY)) (EQUALP (STREAM-EXTERNAL-FORMAT I) (STREAM-EXTERNAL-FORMAT O)))))) (DELETE-FILE IF) (DELETE-FILE OF)))
EQUAL-OK: (T T (NIL . :DEFAULT) :UNIX ENCODING T)
(MAPCAR (LAMBDA (BUF) (LET ((F "streams-tst-tmp-file")) (UNWIND-PROTECT (LET ((LEN (WITH-OPEN-FILE (S F :DIRECTION :OUTPUT) (WRITE-LINE F S) (FILE-LENGTH S)))) (= LEN (WITH-OPEN-FILE (S F :DIRECTION :INPUT :BUFFERED BUF) (FILE-LENGTH S)))) (DELETE-FILE F)))) '(NIL T))
EQUAL-OK: (T T)
(MAPCAR (LAMBDA (BUF) (LET ((F "streams-tst-tmp-file")) (UNWIND-PROTECT (PROGN (WITH-OPEN-FILE (S F :DIRECTION :OUTPUT :BUFFERED BUF) (WRITE-LINE "12345" S) (FILE-POSITION S 2) (WRITE-LINE "12345" S)) (WITH-OPEN-FILE (S F :DIRECTION :INPUT) (READ-LINE S))) (DELETE-FILE F)))) '(T NIL))
EQUAL-OK: ("1212345" "1212345")
(LET* ((S1 (MAKE-STRING-OUTPUT-STREAM)) (S2 (MAKE-STRING-OUTPUT-STREAM)) (B (MAKE-BROADCAST-STREAM S1 S2))) (WRITE-CHAR #\a S1) (LIST (FRESH-LINE B) (GET-OUTPUT-STREAM-STRING S1) (GET-OUTPUT-STREAM-STRING S2)))
EQUAL-OK: (NIL "a
" "")
(LET* ((S1 (MAKE-STRING-OUTPUT-STREAM)) (S2 (MAKE-STRING-OUTPUT-STREAM)) (B (MAKE-BROADCAST-STREAM S2 S1))) (WRITE-CHAR #\a S1) (LIST (FRESH-LINE B) (GET-OUTPUT-STREAM-STRING S1) (GET-OUTPUT-STREAM-STRING S2)))
EQUAL-OK: (T "a
" "")
(WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (WITH-INPUT-FROM-STRING (S "(prin1 1234)") (ASSERT (LOAD S :VERBOSE NIL))))
EQUAL-OK: "1234"
(LET* ((LISP "tmp.lisp") (FAS (COMPILE-FILE-PATHNAME LISP))) (UNWIND-PROTECT (PROGN (WITH-OPEN-FILE (S LISP :DIRECTION :OUTPUT) (WRITE-LINE "1" S)) (WITH-OPEN-FILE (S FAS :DIRECTION :OUTPUT) (WRITE-CHAR #\Null S)) (HANDLER-CASE (LOAD FAS) (ERROR (C) (PRINC-ERROR C))) (HANDLER-CASE (EQUALP (COMPILE-FILE LISP) (TRUENAME FAS)) (ERROR (C) (PRINC-ERROR C)))) (POST-COMPILE-FILE-CLEANUP LISP)))
[SIMPLE-FILE-ERROR]: LOAD: compiled file #1=tmp.fas lacks a version marker
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/tmp.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/tmp.fas
0 errors, 0 warningsEQL-OK: T
(IF (OR (AND (TYPEP *STANDARD-INPUT* 'CONCATENATED-STREAM) (NULL (CONCATENATED-STREAM-STREAMS *STANDARD-INPUT*))) (AND (TYPEP *TERMINAL-IO* 'TWO-WAY-STREAM) (TYPEP (TWO-WAY-STREAM-INPUT-STREAM *TERMINAL-IO*) 'CONCATENATED-STREAM) (NULL (CONCATENATED-STREAM-STREAMS (TWO-WAY-STREAM-INPUT-STREAM *TERMINAL-IO*))))) (PROGN (SETQ S NIL) T) (STREAMP (SETQ S (MAKE-STREAM :INPUT))))
EQL-OK: T
(OR (NULL S) (NOT (SEARCH "#P" (PRIN1-TO-STRING S))) (PATHNAMEP (TRUENAME S)))
EQL-OK: T
(OR (NULL S) (HANDLER-CASE (WRITE-LINE "foo" S) (STREAM-ERROR (C) (PRINC-ERROR C) T)))
[SIMPLE-STREAM-ERROR]: WRITE-CHAR on #1=#<INPUT UNBUFFERED FILE-STREAM CHARACTER #P"/dev/fd/0" @1> is illegal
EQL-OK: T
(OR (NULL S) (WITH-OPEN-FILE (COPY S) (STREAMP COPY)))
EQL-OK: T
(STREAMP (SETQ S (MAKE-STREAM :OUTPUT)))
EQL-OK: T
(OR (NOT (SEARCH "#P" (PRIN1-TO-STRING S))) (PATHNAMEP (TRUENAME S)))
EQL-OK: T
(WRITE-LINE "foo" S)
foo
EQUAL-OK: "foo"
(STREAMP (SETQ S (MAKE-STREAM :ERROR)))
EQL-OK: T
(OR (NOT (SEARCH "#P" (PRIN1-TO-STRING S))) (PATHNAMEP (TRUENAME S)))
EQL-OK: T
(WRITE-LINE "foo" S)
EQUAL-OK: "foo"
(PROGN (SETF (FDEFINITION 'CLHS-ROOT) SAVED-CLHS-ROOT (FDEFINITIONfoo
 'IMPNOTES-ROOT) SAVED-IMPNOTES-ROOT) (LIST (STRINGP (CLHS-ROOT)) (STRINGP (IMPNOTES-ROOT))))
EQUAL-OK: (T T)
(SYMBOLS-CLEANUP '(S S1 S2 S3 S4 S5 S6 S7 S8 S9 S10 B1 B2 C1 C2 C3 C4 INPTW SY SAVED-CLHS-ROOT SAVED-IMPNOTES-ROOT TW EC STR1 STRGSTREAM OS OS1 IS ES S50 S49 *MY-INDENT-LEVEL*))
EQL-OK: NIL
(SETQ *PRINT-LENGTH* NIL)
EQL-OK: NIL
RUN-TEST: finished "streams" (0 errors out of 387 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"streamslong.tst" @1>
(READ-FROM-STRING "123")
EQL-OK: 123
(PRIN1-TO-STRING 123)
EQUAL-OK: "123"
(SETQ *A* (MAKE-ARRAY 10 :ELEMENT-TYPE 'STRING-CHAR :FILL-POINTER 0))
EQUAL-OK: ""
(FORMAT *A* "XXX")
EQL-OK: NIL
*A*
EQUAL-OK: "XXX"
(DEFUN BIN-STREAM-TEST (&KEY (SIZE (INTEGER-LENGTH MOST-POSITIVE-FIXNUM)) (TYPE 'UNSIGNED-BYTE) (FILE-NAME "streamslong-tst-foo") (NUM-BYTES 10) (BYTES (IF (EQ TYPE 'SIGNED-BYTE) (LOOP :REPEAT NUM-BYTES :COLLECT (- (RANDOM (ASH 1 SIZE)) (ASH 1 (1- SIZE)))) (LOOP :REPEAT NUM-BYTES :COLLECT (RANDOM (ASH 1 SIZE)))))) (WITH-OPEN-FILE (FOO FILE-NAME :DIRECTION :OUTPUT :ELEMENT-TYPE (LIST TYPE SIZE)) (DOLIST (BYTE BYTES) (WRITE-BYTE BYTE FOO))) (UNWIND-PROTECT (WITH-OPEN-FILE (FOO FILE-NAME :DIRECTION :INPUT :ELEMENT-TYPE (LIST TYPE SIZE)) (LIST (STREAM-ELEMENT-TYPE FOO) (FILE-LENGTH FOO) BYTES (LOOP :FOR BYTE :IN BYTES :FOR NB = (READ-BYTE FOO) :COLLECT NB :UNLESS (= NB BYTE) :DO (FLET ((BY-OUT (SZ BY) (FORMAT NIL "~v,'0,' ,4:b" (+ SZ (FLOOR SZ 4)) BY))) (ERROR "~& * [(~s ~s)] ~a != ~a~%" TYPE SIZE (BY-OUT SIZE BYTE) (BY-OUT SIZE NB)))))) (DELETE-FILE FILE-NAME)))
EQL-OK: BIN-STREAM-TEST
(LOOP FOR SIZE FROM 2 TO 40 DO (BIN-STREAM-TEST :SIZE SIZE))
EQL-OK: NIL
(LOOP FOR SIZE FROM 2 TO 40 DO (BIN-STREAM-TEST :SIZE SIZE :TYPE 'SIGNED-BYTE))
EQL-OK: NIL
(LET ((NOTICED 'NIL) FILE-WRITTEN) (FLET ((NOTICE (X) (PUSH X NOTICED) X)) (UNWIND-PROTECT (PROGN (WITH-OPEN-FILE (S "streamslong-tst-footest.bin" :ELEMENT-TYPE '(UNSIGNED-BYTE 8) :DIRECTION :OUTPUT :IF-EXISTS :ERROR) (NOTICE (FILE-POSITION S)) (WRITE-BYTE 5 S) (WRITE-BYTE 6 S) (LET ((P (FILE-POSITION S))) (NOTICE P) (NOTICE (WHEN P (FILE-POSITION S (1- P))))) (WRITE-BYTE 7 S) (NOTICE (FILE-POSITION S)) (SETQ FILE-WRITTEN (TRUENAME S))) (WITH-OPEN-FILE (S FILE-WRITTEN :ELEMENT-TYPE '(UNSIGNED-BYTE 8) :DIRECTION :INPUT) (NOTICE (FILE-POSITION S)) (LET ((LENGTH (FILE-LENGTH S))) (NOTICE LENGTH) (WHEN LENGTH (DOTIMES (I LENGTH) (NOTICE (READ-BYTE S)))))) (NREVERSE NOTICED)) (DELETE-FILE FILE-WRITTEN))))
EQUAL-OK: (0 2 1 2 0 2 5 7)
(LET ((S (MAKE-STRING-INPUT-STREAM (MAKE-ARRAY 10 :ELEMENT-TYPE (ARRAY-ELEMENT-TYPE "") :DISPLACED-TO "abcdefghijklmnopqrst" :DISPLACED-INDEX-OFFSET 5)))) (PROG1 (LIST (READ-CHAR S) (READ-CHAR S) (FILE-POSITION S) (FILE-POSITION S 4) (READ-CHAR S) (FILE-POSITION S :START) (READ-CHAR S) (FILE-POSITION S :END) (FILE-POSITION S)) (CLOSE S)))
EQUAL-OK: (#\f #\g 2 4 #\j 0 #\f 10 10)
(LET ((S (MAKE-STRING-OUTPUT-STREAM))) (PROG1 (LIST (WRITE-CHAR #\a S) (WRITE-CHAR #\b S) (FILE-POSITION S) (GET-OUTPUT-STREAM-STRING S) (WRITE-STRING "foo" S) (FILE-POSITION S 1) (WRITE-CHAR #\z S) (GET-OUTPUT-STREAM-STRING S) (FILE-POSITION S :START) (WRITE-CHAR #\u S) (FILE-POSITION S :END) (WRITE-CHAR #\w S) (GET-OUTPUT-STREAM-STRING S)) (CLOSE S)))
EQUAL-OK: (#\a #\b 2 "ab" "foo" 1 #\z "fz" 0 #\u 1 #\w "uw")
(LET ((V (MAKE-ARRAY 3 :ADJUSTABLE T :FILL-POINTER 0 :ELEMENT-TYPE 'CHARACTER))) (WITH-OUTPUT-TO-STRING (S V) (LIST (WRITE-STRING "foo" S) (CONS (FILE-POSITION S) (COPY-SEQ V)) (FILE-POSITION S 2) (WRITE-STRING "bar" S) (CONS (FILE-POSITION S) (COPY-SEQ V)) (FILE-POSITION S :START) (WRITE-STRING "zot" S) (CONS (FILE-POSITION S) (COPY-SEQ V)) (FILE-POSITION S :END) (WRITE-STRING "plonk" S) (CONS (FILE-POSITION S) (COPY-SEQ V)) V)))
EQUAL-OK: ("foo" (3 . "foo") 2 "bar" (5 . "fobar") 0 "zot" (3 . "zot") 3 "plonk" (8 . "zotplonk") "zotplonk")
(LET ((F "streamslong-tst-foo") (S "12345") L) (WITH-OPEN-FILE (O F :DIRECTION :OUTPUT) (WRITE-STRING S O)) (WITH-OPEN-FILE (I F :BUFFERED T) (LISTEN I) (PUSH (READ-CHAR I) L)) (WITH-OPEN-FILE (I F :BUFFERED NIL) (LISTEN I) (PUSH (READ-CHAR I) L)) (DELETE-FILE F) L)
EQUAL-OK: (#\1 #\1)
(LET ((FILE "streamslong-tst-foo") S1 S2) (WITH-OPEN-FILE (OUT FILE :DIRECTION :OUTPUT) (WRITE OUT :STREAM OUT) (TERPRI OUT) (SETQ S1 (WRITE-TO-STRING OUT)) (FORCE-OUTPUT OUT) (APPEASE-CERRORS (WITH-OPEN-FILE (IN FILE :DIRECTION :INPUT) (SETQ S2 (READ-LINE IN))))) (DELETE-FILE FILE) (STRING= S1 S2))
WARNING: OPEN:
         #<OUTPUT BUFFERED FILE-STREAM CHARACTER #P"streamslong-tst-foo">
         already points to file
         "/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/streamslong-tst-foo"
         , opening the file again for :INPUT may produce unexpected results
         Open the file anywayEQL-OK: T
(PROGN (DEFCLASS GRAY-OUT (FUNDAMENTAL-CHARACTER-OUTPUT-STREAM) ((ACCUMULATOR :TYPE STRING))) (DEFMETHOD INITIALIZE-INSTANCE :AFTER ((S GRAY-OUT) &REST ARGS) (SETF (SLOT-VALUE S 'ACCUMULATOR) (MAKE-ARRAY 0 :ELEMENT-TYPE 'CHARACTER :ADJUSTABLE T :FILL-POINTER 0))) (DEFMETHOD STREAM-WRITE-CHAR ((S GRAY-OUT) CH) (VECTOR-PUSH-EXTEND CH (SLOT-VALUE S 'ACCUMULATOR))) (DEFMACRO WITH-G-O ((V) &BODY FORMS) `(LET ((,V (MAKE-INSTANCE 'GRAY-OUT))) ,@FORMS (CLOSE ,V) (COERCE (SLOT-VALUE ,V 'ACCUMULATOR) 'SIMPLE-STRING))) (LIST (WITH-G-O (V) (WRITE-CHAR #\a V)) (WITH-G-O (V) (WRITE-CHAR-SEQUENCE "abc" V)) (HANDLER-CASE (WITH-G-O (V) (WRITE-SEQUENCE #(#\a #\b #\c) V)) (METHOD-CALL-ERROR (E) (GENERIC-FUNCTION-NAME (METHOD-CALL-ERROR-GENERIC-FUNCTION E)))) (WITH-G-O (V) (STREAM-WRITE-CHAR-SEQUENCE V "abc")) (HANDLER-CASE (WITH-G-O (V) (STREAM-WRITE-SEQUENCE V #(#\a #\b #\c))) (METHOD-CALL-ERROR (E) (GENERIC-FUNCTION-NAME (METHOD-CALL-ERROR-GENERIC-FUNCTION E)))) (WITH-G-O (V) (STREAM-WRITE-SEQUENCE "abc" V)) (SETF (FIND-CLASS 'GRAY-OUT) NIL) (FMAKUNBOUND 'WITH-G-O)))
EQUAL-OK: ("a" "abc" STREAM-WRITE-CHAR-SEQUENCE "abc" STREAM-WRITE-SEQUENCE "abc" NIL WITH-G-O)
(LET ((FNAME "streamslong-tst-foo") (VEC (MAKE-ARRAY 5 :ELEMENT-TYPE '(UNSIGNED-BYTE 8)))) (FLET ((FOO (L) (UNWIND-PROTECT (LIST (WITH-OPEN-FILE (F FNAME :EXTERNAL-FORMAT :DOS :DIRECTION :IO) (DOLIST (S L) (WRITE-LINE S F)) (FILE-POSITION F 0) (READ-LINE F) (SETF (STREAM-ELEMENT-TYPE F) '(UNSIGNED-BYTE 8)) (READ-BYTE F NIL)) (MAPCAR (LAMBDA (B) (WITH-OPEN-FILE (F FNAME :DIRECTION :INPUT :BUFFERED B) (READ-LINE F) (SETF (STREAM-ELEMENT-TYPE F) '(UNSIGNED-BYTE 8)) (LIST B (READ-BYTE F NIL)))) '(T NIL)) (MAPCAR (LAMBDA (B) (WITH-OPEN-FILE (F FNAME :DIRECTION :INPUT :BUFFERED B) (READ-LINE F) (SETF (STREAM-ELEMENT-TYPE F) '(UNSIGNED-BYTE 8)) (LIST B (SUBSEQ VEC 0 (READ-SEQUENCE VEC F))))) '(T NIL))) (DELETE-FILE FNAME)))) (LIST (FOO '("1")) (FOO '("1" "2")))))
EQUALP-OK: ((NIL ((T NIL) (NIL NIL)) ((T #()) (NIL #()))) (50 ((T 50) (NIL 50)) ((T #(50 13 10)) (NIL #(50 13 10)))))
(LET ((FNAME "streamslong-tst-foo")) (FLET ((LINE-TERM (S) (ENCODING-LINE-TERMINATOR (STREAM-EXTERNAL-FORMAT S)))) (UNWIND-PROTECT (LIST (WITH-OPEN-FILE (F FNAME :DIRECTION :OUTPUT :EXTERNAL-FORMAT :DOS) (LET ((B (MAKE-BROADCAST-STREAM F))) (LIST (LIST (LINE-TERM B) (LINE-TERM F)) (PROGN (SETF (STREAM-EXTERNAL-FORMAT B :OUTPUT) :UNIX) (LIST (LINE-TERM B) (LINE-TERM F))) (LIST (STREAM-ELEMENT-TYPE B) (STREAM-ELEMENT-TYPE F)) (SETF (STREAM-ELEMENT-TYPE B) '(UNSIGNED-BYTE 8)) (LIST (STREAM-ELEMENT-TYPE B) (STREAM-ELEMENT-TYPE F))))) (WITH-OPEN-FILE (F FNAME :DIRECTION :INPUT :EXTERNAL-FORMAT :DOS) (LET ((C (MAKE-CONCATENATED-STREAM F))) (LIST (LIST (LINE-TERM C) (LINE-TERM F)) (PROGN (SETF (STREAM-EXTERNAL-FORMAT C :INPUT) :UNIX) (LIST (LINE-TERM C) (LINE-TERM F))) (LIST (STREAM-ELEMENT-TYPE C) (STREAM-ELEMENT-TYPE F)) (SETF (STREAM-ELEMENT-TYPE C) '(UNSIGNED-BYTE 8)) (LIST (STREAM-ELEMENT-TYPE C) (STREAM-ELEMENT-TYPE F)))))) (DELETE-FILE FNAME))))
EQUAL-OK: (((:DOS :DOS) (:UNIX :UNIX) (CHARACTER CHARACTER) (UNSIGNED-BYTE 8) ((UNSIGNED-BYTE 8) (UNSIGNED-BYTE 8))) ((:DOS :DOS) (:UNIX :UNIX) (CHARACTER CHARACTER) (UNSIGNED-BYTE 8) ((UNSIGNED-BYTE 8) (UNSIGNED-BYTE 8))))
(LET ((FNAME "test-eof") (*REOPEN-OPEN-FILE* NIL)) (OPEN FNAME :DIRECTION :PROBE :IF-EXISTS :OVERWRITE :IF-DOES-NOT-EXIST :CREATE) (FLET ((F (BUF NEW) (WITH-OPEN-FILE (IN FNAME :DIRECTION :INPUT) (LIST (READ-LINE IN NIL :EOF) (PROGN (WITH-OPEN-FILE (OUT FNAME :DIRECTION :OUTPUT :IF-EXISTS :APPEND) (WRITE-LINE NEW OUT)) (CLEAR-INPUT IN) (READ-LINE IN NIL :EOF)))))) (UNWIND-PROTECT (LIST (F T "foo") (F NIL "bar")) (DELETE-FILE FNAME))))
EQUAL-OK: ((:EOF "foo") ("foo" "bar"))
(LET* ((LIST NIL) (OUT (MAKE-BUFFERED-OUTPUT-STREAM (LAMBDA (C) (PUSH C LIST))))) (LIST (WRITE-CHAR #\a OUT) (CLOSE OUT) LIST))
EQUAL-OK: (#\a T ("a"))
(LET* ((LIST NIL) (OUT (MAKE-BUFFERED-OUTPUT-STREAM (LAMBDA (C) (PUSH C LIST) (ERROR (STRING C)))))) (LIST (WRITE-CHAR #\a OUT) (BLOCK B (HANDLER-BIND ((ERROR (HANDLER-RETURN B LIST))) (CLOSE OUT)))))
[SIMPLE-ERROR]: a
EQUAL-OK: (#\a ("a"))
(LET* ((LIST NIL) (OUT (MAKE-BUFFERED-OUTPUT-STREAM (LAMBDA (C) (PUSH C LIST) (ERROR (STRING C)))))) (LIST (WRITE-CHAR #\a OUT) (CLOSE OUT :ABORT T) LIST (PRINC-TO-STRING OUT)))
EQUAL-OK: (#\a T ("a") "#<CLOSED OUTPUT BUFFERED-OUTPUT-STREAM NIL>")
(LET ((FILE-IN "test-extfmt-in") (FILE-OUT "test-extfmt-out")) (OPEN FILE-IN :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE) (UNWIND-PROTECT (WITH-OPEN-FILE (OUT FILE-OUT :DIRECTION :OUTPUT :EXTERNAL-FORMAT :DOS) (WITH-OPEN-FILE (IN FILE-IN :DIRECTION :INPUT :EXTERNAL-FORMAT :DOS) (WITH-OPEN-STREAM (IO (MAKE-TWO-WAY-STREAM IN OUT)) (LIST (ENCODING-LINE-TERMINATOR (STREAM-EXTERNAL-FORMAT IO)) (ENCODING-LINE-TERMINATOR (SETF (STREAM-EXTERNAL-FORMAT IO) :UNIX)) (ENCODING-LINE-TERMINATOR (STREAM-EXTERNAL-FORMAT IO)) (ENCODING-LINE-TERMINATOR (STREAM-EXTERNAL-FORMAT IN)) (ENCODING-LINE-TERMINATOR (STREAM-EXTERNAL-FORMAT OUT)))))) (DELETE-FILE FILE-IN) (DELETE-FILE FILE-OUT)))
EQUAL-OK: (:DOS :UNIX :UNIX :UNIX :UNIX)
(LET ((FILE "test-extfmt")) (WITH-OPEN-FILE (OUT FILE :DIRECTION :OUTPUT :EXTERNAL-FORMAT :DOS :IF-EXISTS :SUPERSEDE) (TERPRI OUT) (SETF (STREAM-EXTERNAL-FORMAT OUT) :UNIX) (TERPRI OUT)) (UNWIND-PROTECT (WITH-OPEN-FILE (IN FILE :DIRECTION :INPUT :ELEMENT-TYPE '(UNSIGNED-BYTE 8)) (LET ((V (MAKE-ARRAY (FILE-LENGTH IN)))) (READ-SEQUENCE V IN) (MAP 'VECTOR #'CODE-CHAR V))) (DELETE-FILE FILE)))
EQUALP-OK: #(#\Return #\Newline #\Newline)
(LET ((FILE "test-pipe")) (UNWIND-PROTECT (DOLIST (B '(NIL T)) (WITH-OPEN-STREAM (OUT (MAKE-PIPE-OUTPUT-STREAM (FORMAT NIL "/bin/cat > ~A" FILE) :EXTERNAL-FORMAT CHARSET:UTF-8 :BUFFERED B)) (LOOP FOR I BELOW 1000 DO (PRINT I OUT))) (SLEEP 1) (WITH-OPEN-FILE (IN FILE :DIRECTION :INPUT :EXTERNAL-FORMAT CHARSET:UTF-8) (LOOP FOR I BELOW 1000 DO (ASSERT (= I (READ IN)))))) (DELETE-FILE FILE)))
EQL-OK: NIL
(SYMBOLS-CLEANUP '(*A* BIN-STREAM-TEST))
EQL-OK: NIL
RUN-TEST: finished "streamslong" (0 errors out of 25 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"strings.tst" @1>
(CHAR "abcdef-dg1ndh" 0)
EQL-OK: #\a
(CHAR "abcdef-dg1ndh" 1)
EQL-OK: #\b
(CHAR "abcdef-dg1ndh" 6)
EQL-OK: #\-
(CHAR "abcdef-dg1ndh" 20)
[SIMPLE-TYPE-ERROR]: CHAR: index 20 should be less than the length of the string
EQL-OK: ERROR
(CHAR "abcdef-dg1ndh")
[SIMPLE-SOURCE-PROGRAM-ERROR]: EVAL: too few arguments given to CHAR: #1=(CHAR "abcdef-dg1ndh")
EQL-OK: ERROR
(CHAR "abcdef-dg1ndh" -3)
[SIMPLE-TYPE-ERROR]: CHAR: index should not be negative: -3
EQL-OK: ERROR
(CHAR)
[SIMPLE-SOURCE-PROGRAM-ERROR]: EVAL: too few arguments given to CHAR: #1=(CHAR)
EQL-OK: ERROR
(CHAR 2)
[SIMPLE-SOURCE-PROGRAM-ERROR]: EVAL: too few arguments given to CHAR: #1=(CHAR 2)
EQL-OK: ERROR
(CHAR "abcde" 2 4)
[SIMPLE-SOURCE-PROGRAM-ERROR]: EVAL: too many arguments given to CHAR: #1=(CHAR "abcde" 2 4)
EQL-OK: ERROR
(CHAR 'A 0)
[SIMPLE-TYPE-ERROR]: CHAR: argument A is not a string
EQL-OK: ERROR
(CHAR 'ANNA 0)
[SIMPLE-TYPE-ERROR]: CHAR: argument ANNA is not a string
EQL-OK: ERROR
(SCHAR 'A 0)
[SIMPLE-TYPE-ERROR]: SCHAR: argument A is not a SIMPLE-STRING
EQL-OK: ERROR
(SCHAR 'ANNA 0)
[SIMPLE-TYPE-ERROR]: SCHAR: argument ANNA is not a SIMPLE-STRING
EQL-OK: ERROR
(SCHAR "abcdef-dg1ndh" 0)
EQL-OK: #\a
(SCHAR "abcdef-dg1ndh" 1)
EQL-OK: #\b
(SCHAR "abcdef-dg1ndh" 6)
EQL-OK: #\-
(SCHAR "abcdef-dg1ndh" 20)
[SIMPLE-TYPE-ERROR]: SCHAR: index 20 should be less than the length of the string
EQL-OK: ERROR
(SCHAR "abcdef-dg1ndh")
[SIMPLE-SOURCE-PROGRAM-ERROR]: EVAL: too few arguments given to SCHAR: #1=(SCHAR "abcdef-dg1ndh")
EQL-OK: ERROR
(SCHAR "abcdef-dg1ndh" -3)
[SIMPLE-TYPE-ERROR]: SCHAR: index should not be negative: -3
EQL-OK: ERROR
(SCHAR2)
[SIMPLE-UNDEFINED-FUNCTION]: EVAL: undefined function SCHAR2
EQL-OK: ERROR
(SCHAR2 2)
[SIMPLE-UNDEFINED-FUNCTION]: EVAL: undefined function SCHAR2
EQL-OK: ERROR
(SCHAR "abcde" 2 4)
[SIMPLE-SOURCE-PROGRAM-ERROR]: EVAL: too many arguments given to SCHAR: #1=(SCHAR "abcde" 2 4)
EQL-OK: ERROR
(STRING= "foo" "foo")
EQL-OK: T
(STRING= "foo" "Foo")
EQL-OK: NIL
(STRING= "foo" "FOO")
EQL-OK: NIL
(STRING= "foo" "bar")
EQL-OK: NIL
(STRING= "together" "frog" :START1 1 :END1 3 :START2 2)
EQL-OK: T
(STRING= "abcdef" "defghi" :START1 3 :END2 3)
EQL-OK: T
(STRING= "abcdefghi" "uvdefmgnj" :START1 3 :END1 6 :START2 2 :END2 5)
EQL-OK: T
(STRING= "abcdefg" "abcdefg" :END2 4)
EQL-OK: NIL
(STRING= "abcdef" "abcdef" :START1 1 :END1 4 :START2 4 :END2 1)
[SIMPLE-ERROR]: STRING=: :START2-index 4 must not be greater than :END2-index 1
EQL-OK: ERROR
(STRING-EQUAL "foo" "foo")
EQL-OK: T
(STRING-EQUAL "foo" "Foo")
EQL-OK: T
(STRING-EQUAL "foo" "FOO")
EQL-OK: T
(STRING-EQUAL "foo" "bar")
EQL-OK: NIL
(STRING-EQUAL "absDEfg-HijM1#r" "udEFG-hIfvd" :START1 3 :END1 10 :START2 1 :END2 8)
EQL-OK: T
(STRING-EQUAL "ABCdefg" "abcDEFG")
EQL-OK: T
(STRING-EQUAL "ABCdefg" "abcDEFG" :START1 3)
EQL-OK: NIL
(STRING-EQUAL "AbCdEf" "aBcDeF" :START1 5 :END1 3)
[SIMPLE-ERROR]: STRING-EQUAL: :START1-index 5 must not be greater than :END1-index 3
EQL-OK: ERROR
(STRING< "" "abcdefgh")
EQL-OK: 0
(STRING< "a" "abcdefgh")
EQL-OK: 1
(STRING< "abc" "abcdefgh")
EQL-OK: 3
(STRING< "cabc" "abcdefgh")
EQL-OK: NIL
(STRING< "abcdefgh" "abcdefgh")
EQL-OK: NIL
(STRING< "xyzabc" "abcdefgh")
EQL-OK: NIL
(STRING< "abc" "xyzabcdefgh")
EQL-OK: 0
(STRING< "abcdefgh" "abcdefgh" :END1 4)
EQL-OK: 4
(STRING< "xyzabc" "abcdefgh" :START1 3)
EQL-OK: 6
(STRING< "abc" "xyzabcdefgh" :START2 3)
EQL-OK: 3
(STRING< "abc" "xyzabcdefgh" :START2 3 :END2 8)
EQL-OK: 3
(STRING< "abc" "xyzabcdefgh" :START2 3 :END2 5)
EQL-OK: NIL
(STRING< "abcdefgh" "")
EQL-OK: NIL
(STRING< "abcdefgh" "a")
EQL-OK: NIL
(STRING< "abcdefgh" "abc")
EQL-OK: NIL
(STRING< "abcdefgh" "cabc")
EQL-OK: 0
(STRING< "abcdefgh" "xyzabc")
EQL-OK: 0
(STRING< "xyzabcdefgh" "abc")
EQL-OK: NIL
(STRING< "abcdefgh" "abcdefgh" :END2 4)
EQL-OK: NIL
(STRING< "xyzabc" "abcdefgh" :START2 3)
EQL-OK: NIL
(STRING< "abc" "xyzabcdefgh" :START2 3)
EQL-OK: 3
(STRING< "abc" "xyzabcdefgh" :START2 3 :END2 8)
EQL-OK: 3
(STRING< "abc" "xyzabcdefgh" :START2 3 :END2 5)
EQL-OK: NIL
(STRING< "abcdef" "bcdefgh")
EQL-OK: 0
(STRING< "abcdef" "abcdefgh" :START2 2)
EQL-OK: 0
(STRING< "abcdef" "bngdabcdef" :START2 9 :END2 5)
[SIMPLE-ERROR]: STRING<: :START2-index 9 must not be greater than :END2-index 5
EQL-OK: ERROR
(STRING> "" "abcdefgh")
EQL-OK: NIL
(STRING> "a" "abcdefgh")
EQL-OK: NIL
(STRING> "abc" "abcdefgh")
EQL-OK: NIL
(STRING> "cabc" "abcdefgh")
EQL-OK: 0
(STRING> "abcdefgh" "abcdefgh")
EQL-OK: NIL
(STRING> "xyzabc" "abcdefgh")
EQL-OK: 0
(STRING> "abc" "xyzabcdefgh")
EQL-OK: NIL
(STRING> "abcdefgh" "abcdefgh" :END1 4)
EQL-OK: NIL
(STRING> "xyzabc" "abcdefgh" :START1 3)
EQL-OK: NIL
(STRING> "abc" "xyzabcdefgh" :START2 3)
EQL-OK: NIL
(STRING> "abc" "xyzabcdefgh" :START2 3 :END2 8)
EQL-OK: NIL
(STRING> "abc" "xyzabcdefgh" :START2 3 :END2 5)
EQL-OK: 2
(STRING> "abcdefgh" "")
EQL-OK: 0
(STRING> "abcdefgh" "a")
EQL-OK: 1
(STRING> "abcdefgh" "abc")
EQL-OK: 3
(STRING> "abcdefgh" "cabc")
EQL-OK: NIL
(STRING> "abcdefgh" "xyzabc")
EQL-OK: NIL
(STRING> "xyzabcdefgh" "abc")
EQL-OK: 0
(STRING> "abcdefgh" "abcdefgh" :END2 4)
EQL-OK: 4
(STRING> "xyzabc" "abcdefgh" :START2 3)
EQL-OK: 0
(STRING> "abc" "xyzabcdefgh" :START2 3)
EQL-OK: NIL
(STRING> "abc" "xyzabcdefgh" :START2 3 :END2 8)
EQL-OK: NIL
(STRING> "abc" "xyzabcdefgh" :START2 3 :END2 5)
EQL-OK: 2
(STRING> "abcde" "bc")
EQL-OK: NIL
(STRING> "bcdef" "abcde")
EQL-OK: 0
(STRING> "bcdef" "abcdef")
EQL-OK: 0
(STRING> "abcdefghij" "abcdefgh" :START1 1)
EQL-OK: 1
(STRING> "ghijkl" "xyzabcd" :START2 6 :END2 4)
[SIMPLE-ERROR]: STRING>: :START2-index 6 must not be greater than :END2-index 4
EQL-OK: ERROR
(STRING< "" "abcdefgh")
EQL-OK: 0
(STRING<= "a" "abcdefgh")
EQL-OK: 1
(STRING<= "abc" "abcdefgh")
EQL-OK: 3
(STRING<= "aaabce" "aaabcdefgh")
EQL-OK: NIL
(STRING<= "cabc" "abcdefgh")
EQL-OK: NIL
(STRING<= "abcdefgh" "abcdefgh")
EQL-OK: 8
(STRING<= "xyzabc" "abcdefgh")
EQL-OK: NIL
(STRING<= "abc" "xyzabcdefgh")
EQL-OK: 0
(STRING<= "abcdefgh" "abcdefgh" :END1 4)
EQL-OK: 4
(STRING<= "xyzabc" "abcdefgh" :START1 3)
EQL-OK: 6
(STRING<= "abc" "xyzabcdefgh" :START2 3)
EQL-OK: 3
(STRING<= "abc" "xyzabcdefgh" :START2 3 :END2 8)
EQL-OK: 3
(STRING<= "abc" "xyzabcdefgh" :START2 3 :END2 5)
EQL-OK: NIL
(STRING<= "abcdefgh" "")
EQL-OK: NIL
(STRING<= "abcdefgh" "a")
EQL-OK: NIL
(STRING<= "abcdefgh" "abc")
EQL-OK: NIL
(STRING<= "abcdefgh" "cabc")
EQL-OK: 0
(STRING<= "abcdefgh" "xyzabc")
EQL-OK: 0
(STRING<= "xyzabcdefgh" "abc")
EQL-OK: NIL
(STRING<= "abcdefgh" "abcdefgh" :END2 4)
EQL-OK: NIL
(STRING<= "xyzabc" "abcdefgh" :START2 3)
EQL-OK: NIL
(STRING<= "abc" "xyzabcdefgh" :START2 3)
EQL-OK: 3
(STRING<= "abc" "xyzabcdefgh" :START2 3 :END2 8)
EQL-OK: 3
(STRING<= "abc" "xyzabcdefgh" :START2 3 :END2 5)
EQL-OK: NIL
(STRING<= "abcdef" "bcdefgh")
EQL-OK: 0
(STRING<= "abcdef" "abcdefgh" :START2 2)
EQL-OK: 0
(STRING<= "abcdef" "bngdabcdef" :START2 9 :END2 5)
[SIMPLE-ERROR]: STRING<=: :START2-index 9 must not be greater than :END2-index 5
EQL-OK: ERROR
(STRING>= "" "abcdefgh")
EQL-OK: NIL
(STRING>= "a" "abcdefgh")
EQL-OK: NIL
(STRING>= "abc" "abcdefgh")
EQL-OK: NIL
(STRING>= "cabc" "abcdefgh")
EQL-OK: 0
(STRING>= "abcdefgh" "abcdefgh")
EQL-OK: 8
(STRING>= "xyzabc" "abcdefgh")
EQL-OK: 0
(STRING>= "abc" "xyzabcdefgh")
EQL-OK: NIL
(STRING>= "abcdefgh" "abcdefgh" :END1 4)
EQL-OK: NIL
(STRING>= "xyzabc" "abcdefgh" :START1 3)
EQL-OK: NIL
(STRING>= "abc" "xyzabcdefgh" :START2 3)
EQL-OK: NIL
(STRING>= "abc" "xyzabcdefgh" :START2 3 :END2 8)
EQL-OK: NIL
(STRING>= "abc" "xyzabcdefgh" :START2 3 :END2 5)
EQL-OK: 2
(STRING>= "abcdefgh" "")
EQL-OK: 0
(STRING>= "abcdefgh" "a")
EQL-OK: 1
(STRING>= "abcdefgh" "abc")
EQL-OK: 3
(STRING>= "abcdefgh" "cabc")
EQL-OK: NIL
(STRING>= "abcdefgh" "xyzabc")
EQL-OK: NIL
(STRING>= "xyzabcdefgh" "abc")
EQL-OK: 0
(STRING>= "abcdefgh" "abcdefgh" :END2 4)
EQL-OK: 4
(STRING>= "xyzabc" "abcdefgh" :START2 3)
EQL-OK: 0
(STRING>= "xyzabc" "abcdefgh" :START1 3)
EQL-OK: NIL
(STRING>= "abc" "xyzabcdefgh" :START2 3)
EQL-OK: NIL
(STRING>= "abc" "xyzabcdefgh" :START2 3 :END2 8)
EQL-OK: NIL
(STRING>= "abc" "xyzabcdefgh" :START2 3 :END2 5)
EQL-OK: 2
(STRING>= "bcdef" "abcdef")
EQL-OK: 0
(STRING>= "abcdefghij" "abcdefgh" :START1 1)
EQL-OK: 1
(STRING>= "ghijkl" "xyzabcd" :START2 6 :END2 4)
[SIMPLE-ERROR]: STRING>=: :START2-index 6 must not be greater than :END2-index 4
EQL-OK: ERROR
(STRING/= "" "abcdefgh")
EQL-OK: 0
(STRING/= "a" "abcdefgh")
EQL-OK: 1
(STRING/= "abc" "abcdefgh")
EQL-OK: 3
(STRING/= "cabc" "abcdefgh")
EQL-OK: 0
(STRING/= "abcdefgh" "abcdefgh")
EQL-OK: NIL
(STRING/= "xyzabc" "abcdefgh")
EQL-OK: 0
(STRING/= "abc" "xyzabcdefgh")
EQL-OK: 0
(STRING/= "abcdefgh" "abcdefgh" :END1 4)
EQL-OK: 4
(STRING/= "xyzabc" "abcdefgh" :START1 3)
EQL-OK: 6
(STRING/= "abc" "xyzabcdefgh" :START2 3)
EQL-OK: 3
(STRING/= "abc" "xyzabcdefgh" :START2 3 :END2 8)
EQL-OK: 3
(STRING/= "abc" "xyzabcdefgh" :START2 3 :END2 5)
EQL-OK: 2
(STRING/= "abcdefgh" "")
EQL-OK: 0
(STRING/= "abcdefgh" "a")
EQL-OK: 1
(STRING/= "abcdefgh" "abc")
EQL-OK: 3
(STRING/= "abcdefgh" "cabc")
EQL-OK: 0
(STRING/= "abcdefgh" "xyzabc")
EQL-OK: 0
(STRING/= "xyzabcdefgh" "abc")
EQL-OK: 0
(STRING/= "abcdefgh" "abcdefgh" :END2 4)
EQL-OK: 4
(STRING/= "xyzabc" "abcdefgh" :START2 3)
EQL-OK: 0
(STRING/= "abc" "xyzabcdefgh" :START2 3)
EQL-OK: 3
(STRING/= "abc" "xyzabcdefgh" :START2 3 :END2 8)
EQL-OK: 3
(STRING/= "abc" "xyzabcdefgh" :START2 3 :END2 5)
EQL-OK: 2
(STRING/= "abcdefghi" "uvdefmgnj" :START1 3 :END1 6 :START2 2 :END2 5)
EQL-OK: NIL
(STRING/= "abcdefg" "abcdefg" :END2 4)
EQL-OK: 4
(STRING/= "abcdef" "abcdef" :START1 1 :END1 4 :START2 4 :END2 1)
[SIMPLE-ERROR]: STRING/=: :START2-index 4 must not be greater than :END2-index 1
EQL-OK: ERROR
(STRING-LESSP "" "abcDEFgh")
EQL-OK: 0
(STRING-LESSP "a" "Abcdefgh")
EQL-OK: 1
(STRING-LESSP "abc" "aBcDEfgh")
EQL-OK: 3
(STRING-LESSP "cABc" "aBCDefgh")
EQL-OK: NIL
(STRING-LESSP "abCDeFgh" "abCDEfgh")
EQL-OK: NIL
(STRING-LESSP "xyzAbc" "ABcCDfgh")
EQL-OK: NIL
(STRING-LESSP "aBC" "xYZAbcdEfgh")
EQL-OK: 0
(STRING-LESSP "abcDEfgh" "abcDEfgh" :END1 4)
EQL-OK: 4
(STRING-LESSP "XYZabc" "ABcdefgh" :START1 3)
EQL-OK: 6
(STRING-LESSP "aBc" "xyZABcdefgh" :START2 3)
EQL-OK: 3
(STRING-LESSP "abc" "xyzabCDEcdefgh" :START2 3 :END2 8)
EQL-OK: 3
(STRING-LESSP "abc" "xyzABcdefgh" :START2 3 :END2 5)
EQL-OK: NIL
(STRING-LESSP "abcdefgh" "")
EQL-OK: NIL
(STRING-LESSP "Abcdefgh" "a")
EQL-OK: NIL
(STRING-LESSP "ABCdefgh" "abc")
EQL-OK: NIL
(STRING-LESSP "ABCdefgh" "cabc")
EQL-OK: 0
(STRING-LESSP "abcdefgh" "xyzABC")
EQL-OK: 0
(STRING-LESSP "xyzABCdefgh" "abc")
EQL-OK: NIL
(STRING-LESSP "abcdEFgh" "abcdeFGh" :END2 4)
EQL-OK: NIL
(STRING-LESSP "xyzaBC" "abCDefgh" :START2 3)
EQL-OK: NIL
(STRING-LESSP "ABC" "xyzabcdefgh" :START2 3)
EQL-OK: 3
(STRING-LESSP "ABC" "xyzabcdefgh" :START2 3 :END2 8)
EQL-OK: 3
(STRING-LESSP "ABC" "xyzabcdefgh" :START2 3 :END2 5)
EQL-OK: NIL
(STRING-LESSP "aBCDef" "bcdefgh")
EQL-OK: 0
(STRING-LESSP "aBCDef" "abcdefgh" :START2 2)
EQL-OK: 0
(STRING-LESSP "aBCDef" "bngdabcdef" :START2 9 :END2 5)
[SIMPLE-ERROR]: STRING-LESSP: :START2-index 9 must not be greater than :END2-index 5
EQL-OK: ERROR
(STRING-GREATERP "" "abcdefgh")
EQL-OK: NIL
(STRING-GREATERP "A" "abcdefgh")
EQL-OK: NIL
(STRING-GREATERP "ABc" "abcdefgh")
EQL-OK: NIL
(STRING-GREATERP "CAbc" "abcdefgh")
EQL-OK: 0
(STRING-GREATERP "abcdefgh" "abcDEFgh")
EQL-OK: NIL
(STRING-GREATERP "xyzabc" "abCDEfgh")
EQL-OK: 0
(STRING-GREATERP "ABC" "xyzabcdefgh")
EQL-OK: NIL
(STRING-GREATERP "ABCdefgh" "abcdefgh" :END1 4)
EQL-OK: NIL
(STRING-GREATERP "xyzaBc" "ABCdefgh" :START1 3)
EQL-OK: NIL
(STRING-GREATERP "abc" "xyzABcdefgh" :START2 3)
EQL-OK: NIL
(STRING-GREATERP "abc" "xyzABcdefgh" :START2 3 :END2 8)
EQL-OK: NIL
(STRING-GREATERP "abc" "xyZAbcdefgh" :START2 3 :END2 5)
EQL-OK: 2
(STRING-GREATERP "abcdefgh" "")
EQL-OK: 0
(STRING-GREATERP "Abcdefgh" "a")
EQL-OK: 1
(STRING-GREATERP "ABCdefgh" "abc")
EQL-OK: 3
(STRING-GREATERP "ABCdefgh" "cabc")
EQL-OK: NIL
(STRING-GREATERP "ABCdefgh" "xyzabc")
EQL-OK: NIL
(STRING-GREATERP "xyzabcdefgh" "Abc")
EQL-OK: 0
(STRING-GREATERP "abcdefgh" "aBCDefgh" :END2 4)
EQL-OK: 4
(STRING-GREATERP "xyzabc" "abcdEFgh" :START2 3)
EQL-OK: 0
(STRING-GREATERP "ABC" "xyzabcdefgh" :START2 3)
EQL-OK: NIL
(STRING-GREATERP "ABC" "xyzabcdefgh" :START2 3 :END2 8)
EQL-OK: NIL
(STRING-GREATERP "ABC" "xyzabcdefgh" :START2 3 :END2 5)
EQL-OK: 2
(STRING-GREATERP "bCDEf" "abcde")
EQL-OK: 0
(STRING-GREATERP "bcDEF" "abcdef")
EQL-OK: 0
(STRING-GREATERP "abCDEfghij" "abcdefgh" :START1 1)
EQL-OK: 1
(STRING-GREATERP "ghijKl" "xyzabcd" :START2 6 :END2 4)
[SIMPLE-ERROR]: STRING-GREATERP: :START2-index 6 must not be greater than :END2-index 4
EQL-OK: ERROR
(STRING-NOT-GREATERP "" "abcdefgh")
EQL-OK: 0
(STRING-NOT-GREATERP "A" "abcdefgh")
EQL-OK: 1
(STRING-NOT-GREATERP "aBC" "abcdefgh")
EQL-OK: 3
(STRING-NOT-GREATERP "CABc" "abcdefgh")
EQL-OK: NIL
(STRING-NOT-GREATERP "abcDEFgh" "abcdefgh")
EQL-OK: 8
(STRING-NOT-GREATERP "xyzabc" "ABcdefgh")
EQL-OK: NIL
(STRING-NOT-GREATERP "abc" "xyzABcdefgh")
EQL-OK: 0
(STRING-NOT-GREATERP "ABCDEFgh" "abcdefgh" :END1 4)
EQL-OK: 4
(STRING-NOT-GREATERP "xyzabc" "aBCDefgh" :START1 3)
EQL-OK: 6
(STRING-NOT-GREATERP "ABC" "xyzabcdefgh" :START2 3)
EQL-OK: 3
(STRING-NOT-GREATERP "ABC" "xyzabcdefgh" :START2 3 :END2 8)
EQL-OK: 3
(STRING-NOT-GREATERP "ABC" "xyzabcdefgh" :START2 3 :END2 5)
EQL-OK: NIL
(STRING-NOT-GREATERP "abcdefgh" "")
EQL-OK: NIL
(STRING-NOT-GREATERP "Abcdefgh" "a")
EQL-OK: NIL
(STRING-NOT-GREATERP "ABCdefgh" "abc")
EQL-OK: NIL
(STRING-NOT-GREATERP "ABCdefgh" "cabc")
EQL-OK: 0
(STRING-NOT-GREATERP "ABCdefgh" "xyzabc")
EQL-OK: 0
(STRING-NOT-GREATERP "xyzABCdefgh" "abc")
EQL-OK: NIL
(STRING-NOT-GREATERP "abcdeFgh" "abcdefgh" :END2 4)
EQL-OK: NIL
(STRING-NOT-GREATERP "xyzABC" "abcdefgh" :START2 3)
EQL-OK: NIL
(STRING-NOT-GREATERP "ABC" "xyzabcdefgh" :START2 3)
EQL-OK: 3
(STRING-NOT-GREATERP "ABC" "xyzabcdefgh" :START2 3 :END2 8)
EQL-OK: 3
(STRING-NOT-GREATERP "ABC" "xyzabcdefgh" :START2 3 :END2 5)
EQL-OK: NIL
(STRING-NOT-GREATERP "abcDEF" "bcdefgh")
EQL-OK: 0
(STRING-NOT-GREATERP "abcDEF" "abcdefgh" :START2 2)
EQL-OK: 0
(STRING-NOT-GREATERP "abcdef" "bngDAbcdef" :START2 9 :END2 5)
[SIMPLE-ERROR]: STRING-NOT-GREATERP: :START2-index 9 must not be greater than :END2-index 5
EQL-OK: ERROR
(STRING-NOT-LESSP "" "abcdefgh")
EQL-OK: NIL
(STRING-NOT-LESSP "a" "Abcdefgh")
EQL-OK: NIL
(STRING-NOT-LESSP "ABC" "abcdefgh")
EQL-OK: NIL
(STRING-NOT-LESSP "CABc" "abcdefgh")
EQL-OK: 0
(STRING-NOT-LESSP "ABCdefgh" "abcdefgh")
EQL-OK: 8
(STRING-NOT-LESSP "xyzABC" "abcdefgh")
EQL-OK: 0
(STRING-NOT-LESSP "ABC" "xyzabcdefgh")
EQL-OK: NIL
(STRING-NOT-LESSP "ABCdefgh" "abcdefgh" :END1 4)
EQL-OK: NIL
(STRING-NOT-LESSP "xyzABC" "abcdefgh" :START1 3)
EQL-OK: NIL
(STRING-NOT-LESSP "ABC" "xyzabcdefgh" :START2 3)
EQL-OK: NIL
(STRING-NOT-LESSP "ABC" "xyzabcdefgh" :START2 3 :END2 8)
EQL-OK: NIL
(STRING-NOT-LESSP "ABC" "xyzabcdefgh" :START2 3 :END2 5)
EQL-OK: 2
(STRING-NOT-LESSP "abcdefgh" "")
EQL-OK: 0
(STRING-NOT-LESSP "Abcdefgh" "a")
EQL-OK: 1
(STRING-NOT-LESSP "ABCdefgh" "abc")
EQL-OK: 3
(STRING-NOT-LESSP "abCDEfgh" "cabc")
EQL-OK: NIL
(STRING-NOT-LESSP "aBCdefgh" "xyzabc")
EQL-OK: NIL
(STRING-NOT-LESSP "xyzABcdefgh" "abc")
EQL-OK: 0
(STRING-NOT-LESSP "abCDEfgh" "abcdefgh" :END2 4)
EQL-OK: 4
(STRING-NOT-LESSP "xyzABc" "abcdefgh" :START2 3)
EQL-OK: 0
(STRING-NOT-LESSP "ABC" "xyzabcdefgh" :START2 3)
EQL-OK: NIL
(STRING-NOT-LESSP "ABC" "xyzabcdefgh" :START2 3 :END2 8)
EQL-OK: NIL
(STRING-NOT-LESSP "ABC" "xyzabcdefgh" :START2 3 :END2 5)
EQL-OK: 2
(STRING-NOT-LESSP "bCDef" "abcdef")
EQL-OK: 0
(STRING-NOT-LESSP "ABCdefghij" "abcdefgh" :START1 1)
EQL-OK: 1
(STRING-NOT-LESSP "ghIjkl" "xyzabcd" :START2 6 :END2 4)
[SIMPLE-ERROR]: STRING-NOT-LESSP: :START2-index 6 must not be greater than :END2-index 4
EQL-OK: ERROR
(STRING-NOT-EQUAL "" "abcdefgh")
EQL-OK: 0
(STRING-NOT-EQUAL "A" "abcdefgh")
EQL-OK: 1
(STRING-NOT-EQUAL "ABc" "abcdefgh")
EQL-OK: 3
(STRING-NOT-EQUAL "cABc" "abcdefgh")
EQL-OK: 0
(STRING-NOT-EQUAL "ABCdefgh" "abcdefgh")
EQL-OK: NIL
(STRING-NOT-EQUAL "xyzABc" "abcdefgh")
EQL-OK: 0
(STRING-NOT-EQUAL "ABC" "xyzabcdefgh")
EQL-OK: 0
(STRING-NOT-EQUAL "ABCdefgh" "abcdefgh" :END1 4)
EQL-OK: 4
(STRING-NOT-EQUAL "xyzaBC" "abcdefgh" :START1 3)
EQL-OK: 6
(STRING-NOT-EQUAL "ABC" "xyzabcdefgh" :START2 3)
EQL-OK: 3
(STRING-NOT-EQUAL "ABC" "xyzabcdefgh" :START2 3 :END2 8)
EQL-OK: 3
(STRING-NOT-EQUAL "ABC" "xyzabcdefgh" :START2 3 :END2 5)
EQL-OK: 2
(STRING-NOT-EQUAL "abcdefgh" "")
EQL-OK: 0
(STRING-NOT-EQUAL "Abcdefgh" "a")
EQL-OK: 1
(STRING-NOT-EQUAL "aBCdefgh" "abc")
EQL-OK: 3
(STRING-NOT-EQUAL "abcdefgh" "cABc")
EQL-OK: 0
(STRING-NOT-EQUAL "abcdefgh" "xyzAbc")
EQL-OK: 0
(STRING-NOT-EQUAL "xyzabcdefgh" "ABC")
EQL-OK: 0
(STRING-NOT-EQUAL "abcdefgh" "abcDEFgh" :END2 4)
EQL-OK: 4
(STRING-NOT-EQUAL "xyzabc" "aBCDefgh" :START2 3)
EQL-OK: 0
(STRING-NOT-EQUAL "abc" "xyzABCdefgh" :START2 3)
EQL-OK: 3
(STRING-NOT-EQUAL "abc" "xyzABCdefgh" :START2 3 :END2 8)
EQL-OK: 3
(STRING-NOT-EQUAL "abc" "xyzABCdefgh" :START2 3 :END2 5)
EQL-OK: 2
(STRING/= "abcdefghi" "uvdEFmgnj" :START1 3 :END1 6 :START2 2 :END2 5)
EQL-OK: 4
(STRING/= "abcdefg" "abcDEfg" :END2 4)
EQL-OK: 3
(STRING/= "abcdef" "abCDef" :START1 1 :END1 4 :START2 4 :END2 1)
[SIMPLE-ERROR]: STRING/=: :START2-index 4 must not be greater than :END2-index 1
EQL-OK: ERROR
(STRING-TRIM '(#\Space #\Tab #\Newline) " garbanzo beans
   ")
EQUAL-OK: "garbanzo beans"
(STRING-TRIM " (*)" " ( *three(siily) words* ) ")
EQUAL-OK: "three(siily) words"
(STRING-TRIM 'A "ababa")
[SIMPLE-TYPE-ERROR]: FIND: A is not a SEQUENCE
EQL-OK: ERROR
(STRING-TRIM '(A) "ababa")
EQUAL-OK: "ababa"
(STRING-TRIM "a" "ababa")
EQUAL-OK: "bab"
(STRING-TRIM "c e" "    ceabceabce    c")
EQUAL-OK: "abceab"
(STRING-TRIM '(#\a) "abcd")
EQUAL-OK: "bcd"
(STRING-TRIM '(#\a) "xyzabcd")
EQUAL-OK: "xyzabcd"
(STRING-TRIM '(#\a) "abcda")
EQUAL-OK: "bcd"
(STRING-LEFT-TRIM '(#\Space #\Tab #\Newline) " garbanzo beans
   ")
EQUAL-OK: "garbanzo beans
   "
(STRING-LEFT-TRIM " (*)" " ( *three(siily) words* ) ")
EQUAL-OK: "three(siily) words* ) "
(STRING-LEFT-TRIM 'A "ababa")
[SIMPLE-TYPE-ERROR]: FIND: A is not a SEQUENCE
EQL-OK: ERROR
(STRING-LEFT-TRIM '(A) "ababa")
EQUAL-OK: "ababa"
(STRING-LEFT-TRIM "a" "ababa")
EQUAL-OK: "baba"
(STRING-LEFT-TRIM "c e" "    ceabceabce    c")
EQUAL-OK: "abceabce    c"
(STRING-LEFT-TRIM '(#\a) "abcd")
EQUAL-OK: "bcd"
(STRING-LEFT-TRIM '(#\a) "xyzabcd")
EQUAL-OK: "xyzabcd"
(STRING-LEFT-TRIM '(#\a) "abcda")
EQUAL-OK: "bcda"
(STRING-RIGHT-TRIM '(#\Space #\Tab #\Newline) " garbanzo beans
   ")
EQUAL-OK: " garbanzo beans"
(STRING-RIGHT-TRIM " (*)" " ( *three(siily) words* ) ")
EQUAL-OK: " ( *three(siily) words"
(STRING-RIGHT-TRIM 'A "ababa")
[SIMPLE-TYPE-ERROR]: FIND: A is not a SEQUENCE
EQL-OK: ERROR
(STRING-RIGHT-TRIM '(A) "ababa")
EQUAL-OK: "ababa"
(STRING-RIGHT-TRIM "a" "ababa")
EQUAL-OK: "abab"
(STRING-RIGHT-TRIM "c e" "    ceabceabce    c")
EQUAL-OK: "    ceabceab"
(STRING-RIGHT-TRIM '(#\a) "abcd")
EQUAL-OK: "abcd"
(STRING-RIGHT-TRIM '(#\a) "xyzabcd")
EQUAL-OK: "xyzabcd"
(STRING-RIGHT-TRIM '(#\a) "abcda")
EQUAL-OK: "abcd"
(STRING-UPCASE "abCD efGh-ij")
EQUAL-OK: "ABCD EFGH-IJ"
(STRING-UPCASE "abCD efGh-ij" :START 5)
EQUAL-OK: "abCD EFGH-IJ"
(STRING-UPCASE "abCD efGh-ij" :END 5)
EQUAL-OK: "ABCD efGh-ij"
(STRING-UPCASE "abCD efGh-ij" :START 1 :END 6)
EQUAL-OK: "aBCD EfGh-ij"
(STRING-UPCASE "abCD efGh-ij" :START 6 :END 1)
[SIMPLE-ERROR]: STRING-UPCASE: :START-index 6 must not be greater than :END-index 1
EQL-OK: ERROR
(STRING-UPCASE "abCD efGh-ij" :START 3 :END 3)
EQUAL-OK: "abCD efGh-ij"
(STRING-DOWNCASE "abCD efGh-ij")
EQUAL-OK: "abcd efgh-ij"
(STRING-DOWNCASE "abCD efGh-ij" :START 3)
EQUAL-OK: "abCd efgh-ij"
(STRING-DOWNCASE "abCD efGh-ij" :END 3)
EQUAL-OK: "abcD efGh-ij"
(STRING-DOWNCASE "abCD efGh-ij" :START 3 :END 3)
EQUAL-OK: "abCD efGh-ij"
(STRING-DOWNCASE "abCD efGh-ij" :START 1 :END 6)
EQUAL-OK: "abcd efGh-ij"
(STRING-DOWNCASE "abCD efGh-ij" :START 6 :END 1)
[SIMPLE-ERROR]: STRING-DOWNCASE: :START-index 6 must not be greater than :END-index 1
EQL-OK: ERROR
(STRING-CAPITALIZE "abcd def g hi")
EQUAL-OK: "Abcd Def G Hi"
(STRING-CAPITALIZE "abCd dEf G hi")
EQUAL-OK: "Abcd Def G Hi"
(STRING-CAPITALIZE "Abcd Def G Hi")
EQUAL-OK: "Abcd Def G Hi"
(STRING-CAPITALIZE "abcd def g hi" :START 6)
EQUAL-OK: "abcd dEf G Hi"
(STRING-CAPITALIZE "abcd def g hi" :END 6)
EQUAL-OK: "Abcd Def g hi"
(STRING-CAPITALIZE "abcd def g hi" :START 2 :END 10)
EQUAL-OK: "abCd Def G hi"
(STRING-CAPITALIZE "abcd def g hi" :START 10 :END 2)
[SIMPLE-ERROR]: STRING-CAPITALIZE: :START-index 10 must not be greater than :END-index 2
EQL-OK: ERROR
(STRING-CAPITALIZE "don't")
EQUAL-OK: "Don'T"
(STRING-CAPITALIZE "DON'T")
EQUAL-OK: "Don'T"
(STRING-CAPITALIZE "34a 5BC")
EQUAL-OK: "34a 5bc"
(STRING 65)
[SIMPLE-TYPE-ERROR]: STRING: argument 65 should be a string, a symbol or a character
EQL-OK: ERROR
(STRING 'A)
EQUAL-OK: "A"
(STRING #\a)
EQUAL-OK: "a"
(STRING "abc")
EQUAL-OK: "abc"
(NSTRING-UPCASE "abCD efGh-ij")
EQUAL-OK: "ABCD EFGH-IJ"
(NSTRING-UPCASE "abCD efGh-ij" :START 5)
EQUAL-OK: "abCD EFGH-IJ"
(NSTRING-UPCASE "abCD efGh-ij" :END 5)
EQUAL-OK: "ABCD efGh-ij"
(NSTRING-UPCASE "abCD efGh-ij" :START6 :END 1)
[SIMPLE-PROGRAM-ERROR]: NSTRING-UPCASE: keyword arguments in (:START6 :END 1) should occur pairwise
EQL-OK: ERROR
(NSTRING-UPCASE "abCD efGh-ij" :START 3 :END 3)
EQUAL-OK: "abCD efGh-ij"
(NSTRING-DOWNCASE "abCD efGh-ij")
EQUAL-OK: "abcd efgh-ij"
(NSTRING-DOWNCASE "abCD efGh-ij" :START 3)
EQUAL-OK: "abCd efgh-ij"
(NSTRING-UPCASE "abCD efGh-ij" :START 1 :END 6)
EQUAL-OK: "aBCD EfGh-ij"
(NSTRING-DOWNCASE "abCD efGh-ij" :END 3)
EQUAL-OK: "abcD efGh-ij"
(NSTRING-DOWNCASE "abCd efGh-ij" :START 3 :END 3)
EQUAL-OK: "abCd efGh-ij"
(NSTRING-DOWNCASE "abCd efGh-ij" :START 1 :END 6)
EQUAL-OK: "abcd efGh-ij"
(NSTRING-DOWNCASE "abCD efGh-ij" :START 6 :END 1)
[SIMPLE-ERROR]: NSTRING-DOWNCASE: :START-index 6 must not be greater than :END-index 1
EQL-OK: ERROR
(NSTRING-DOWNCASE "abCD efGh-ij" :START NIL :END NIL)
[SIMPLE-TYPE-ERROR]: NSTRING-DOWNCASE: :START-index should be an integer, not NIL
EQL-OK: ERROR
(NSTRING-UPCASE "abDC efGh-oj")
EQUAL-OK: "ABDC EFGH-OJ"
(NSTRING-UPCASE "abCD efGh-ij" :START 1 :END 6)
EQUAL-OK: "aBCD EfGh-ij"
(NSTRING-UPCASE "abCD efGh-fg" :START 1 :END 6)
EQUAL-OK: "aBCD EfGh-fg"
(NSTRING-UPCASE "abCD efGh-ef" :START 3 :END 3)
EQUAL-OK: "abCD efGh-ef"
(NSTRING-UPCASE "abCD efGh-ef" :START 3 :END 3)
EQUAL-OK: "abCD efGh-ef"
(NSTRING-UPCASE "abCD efGh-ef" :START 3 :END 3)
EQUAL-OK: "abCD efGh-ef"
(NSTRING-UPCASE "abCD efGh-ef" :START 3 :END 1)
[SIMPLE-ERROR]: NSTRING-UPCASE: :START-index 3 must not be greater than :END-index 1
EQL-OK: ERROR
(NSTRING-UPCASE "abCD efGh-ef" :START NIL :END NIL)
[SIMPLE-TYPE-ERROR]: NSTRING-UPCASE: :START-index should be an integer, not NIL
EQL-OK: ERROR
(NSTRING-DOWNCASE "saBG efGh-ef")
EQUAL-OK: "sabg efgh-ef"
(NSTRING-DOWNCASE "dfGV efGh-ef" :START 1 :END 6)
EQUAL-OK: "dfgv efGh-ef"
(NSTRING-DOWNCASE "fgCD efGf-ef" :START 1 :END 3)
EQUAL-OK: "fgcD efGf-ef"
(NSTRING-DOWNCASE "dfCF edFg-fg" :START NIL :END NIL)
[SIMPLE-TYPE-ERROR]: NSTRING-DOWNCASE: :START-index should be an integer, not NIL
EQL-OK: ERROR
(NSTRING-DOWNCASE "fgHG edgf-fg" :START 5 :END 1)
[SIMPLE-ERROR]: NSTRING-DOWNCASE: :START-index 5 must not be greater than :END-index 1
EQL-OK: ERROR
(NSTRING-DOWNCASE "scDF edFG-ef" :START 1)
EQUAL-OK: "scdf edfg-ef"
(NSTRING-DOWNCASE "fgHG edFG-ef" :END 4)
EQUAL-OK: "fghg edFG-ef"
(NSTRING-CAPITALIZE "fg hgf fgh")
EQUAL-OK: "Fg Hgf Fgh"
(LET ((X "ABCDEF")) (NSTRING-DOWNCASE X) X)
EQUAL-OK: "abcdef"
(LET* ((S "abcdefgh") (D (MAKE-ARRAY 5 :DISPLACED-TO S :DISPLACED-INDEX-OFFSET 3 :ELEMENT-TYPE (ARRAY-ELEMENT-TYPE S)))) (STRING-UPCASE D :START 2 :END 4))
EQUAL-OK: "deFGh"
(LET* ((S "abcdefgh") (D (MAKE-ARRAY 5 :DISPLACED-TO S :DISPLACED-INDEX-OFFSET 3 :ELEMENT-TYPE (ARRAY-ELEMENT-TYPE S)))) (AND (EQ (NSTRING-UPCASE D :START 2 :END 4) D) D))
EQUAL-OK: "deFGh"
(NSTRING-UPCASE (MAKE-ARRAY 0 :ELEMENT-TYPE NIL))
EQUAL-OK: ""
(LET* ((S (FORMAT NIL "A~CB" (CODE-CHAR 0))) (D (MAKE-ARRAY 2 :DISPLACED-TO S :DISPLACED-INDEX-OFFSET 1 :ELEMENT-TYPE 'CHARACTER))) (LIST (STRING-WIDTH S :START 0 :END 1) (STRING-WIDTH S :START 1 :END 2) (STRING-WIDTH S :START 2 :END 3) (STRING-WIDTH S :START 0 :END 2) (STRING-WIDTH S :START 0 :END 3) (STRING-WIDTH S :START 1 :END 3) (STRING-WIDTH D :START 0 :END 1) (STRING-WIDTH D :START 1 :END 2) (STRING-WIDTH D :START 0 :END 2) (STRING-WIDTH D)))
EQUAL-OK: (1 0 1 1 2 1 0 1 1 1)
(SETQ X (MAKE-ARRAY 10 :FILL-POINTER 5 :ELEMENT-TYPE 'CHARACTER :INITIAL-CONTENTS "abcdefghij"))
EQUAL-OK: "abcde"
(CHAR X 7)
EQL-OK: #\h
(ELT X 7)
[SIMPLE-TYPE-ERROR]: ELT: index 7 for "abcde" is out of range
EQL-OK: ERROR
(SETF (CHAR X 7) #\H)
EQL-OK: #\H
(CHAR X 7)
EQL-OK: #\H
(REVERSE X)
EQUAL-OK: "edcba"
(NREVERSE X)
EQUAL-OK: "edcba"
X
EQUAL-OK: "edcba"
(LET* ((X (MAKE-ARRAY 10 :FILL-POINTER 4 :ELEMENT-TYPE 'CHARACTER :INITIAL-ELEMENT #\Space :ADJUSTABLE T)) (Y (MAKE-ARRAY 10 :FILL-POINTER 4 :ELEMENT-TYPE 'CHARACTER :DISPLACED-TO X))) (ADJUST-ARRAY X '(5)) (CHAR Y 5))
[SIMPLE-ERROR]: An array has been shortened by adjusting it while another array was displaced to it.
EQL-OK: ERROR
(LENGTH (ADJUST-ARRAY (MAKE-ARRAY 0 :ELEMENT-TYPE 'CHARACTER :ADJUSTABLE T) 1))
EQL-OK: 1
(LET ((S (MAKE-ARRAY 10 :ELEMENT-TYPE 'CHARACTER :INITIAL-ELEMENT #\a))) (LIST (MULTIPLE-VALUE-LIST (SYSTEM::STRING-INFO S)) (PROGN (SETF (AREF S 3) (CODE-CHAR 12345)) (MULTIPLE-VALUE-LIST (SYSTEM::STRING-INFO S))) (PROGN (GC) (MULTIPLE-VALUE-LIST (SYSTEM::STRING-INFO S))) (PROGN (SETF (AREF S 3) (CODE-CHAR 123456)) (MULTIPLE-VALUE-LIST (SYSTEM::STRING-INFO S))) (PROGN (GC) (MULTIPLE-VALUE-LIST (SYSTEM::STRING-INFO S)))))
EQUAL-OK: ((8 NIL NIL) (16 NIL T) (16 NIL NIL) (32 NIL T) (32 NIL NIL))
(LENGTH (MAKE-ARRAY '3 :ELEMENT-TYPE 'CHARACTER :INITIAL-CONTENTS '(#\U65E5 #\U672C #\U8A9E)))
EQL-OK: 3
(LET ((X (MAKE-ARRAY '(3 3) :ELEMENT-TYPE 'CHARACTER :INITIAL-CONTENTS '((#\U65E5 #\U672C #\U8A9E) (#\T #\LATIN_SMALL_LETTER_U_WITH_DIAERESIS #\r) (#\k #\LATIN_SMALL_LETTER_C_WITH_CEDILLA #\e))))) (GC) (ARRAY-DIMENSIONS X))
EQUAL-OK: (3 3)
(SYMBOLP (MAKE-SYMBOL (MAKE-ARRAY 0 :ELEMENT-TYPE NIL)))
EQL-OK: T
(STRING= "" (MAKE-ARRAY 0 :ELEMENT-TYPE NIL))
EQL-OK: T
(STRING-INVERTCASE "AbCdEfGh" :START 1 :END 5)
EQUAL-OK: "ABcDefGh"
(TRIM-IF #'SYSTEM::WHITESPACEP "  asdf 	 ")
EQUAL-OK: "asdf"
(PROGN (SYMBOL-CLEANUP 'X))
EQL-OK: T
RUN-TEST: finished "strings" (0 errors out of 409 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"symbol10.tst" @1>
(DEFUN TESTVAR (VAR) (LIST (BOUNDP VAR) (IF (BOUNDP VAR) (SYMBOL-VALUE VAR) NIL) (CONSTANTP VAR) (AND (SPECIAL-VARIABLE-P VAR) (NOT (CONSTANTP VAR))) (AND (FBOUNDP VAR) T) (AND (FBOUNDP VAR) (MACRO-FUNCTION VAR) T) (AND (FBOUNDP VAR) (SPECIAL-OPERATOR-P VAR) T) (AND (OR (GET VAR 'I1) (GET VAR 'I2) (GET VAR 'I3)) T) (GET VAR 'I1) (GET VAR 'I2) (GET VAR 'I3)))
EQL-OK: TESTVAR
(SYMBOL-CLEANUP 'V1)
EQL-OK: T
(TESTVAR 'V1)
EQUAL-OK: (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)
(SETQ V1 'VAL)
EQL-OK: VAL
(TESTVAR 'V1)
EQUAL-OK: (T VAL NIL NIL NIL NIL NIL NIL NIL NIL NIL)
(MAKUNBOUND 'V1)
EQL-OK: V1
(TESTVAR 'V1)
EQUAL-OK: (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)
(SETQ V1 'VAL2)
EQL-OK: VAL2
(TESTVAR 'V1)
EQUAL-OK: (T VAL2 NIL NIL NIL NIL NIL NIL NIL NIL NIL)
(DEFMACRO V1 (X) (LIST 'QUOTE X))
EQL-OK: V1
(TESTVAR 'V1)
EQUAL-OK: (T VAL2 NIL NIL T T NIL NIL NIL NIL NIL)
(FMAKUNBOUND 'V1)
EQL-OK: V1
(TESTVAR 'V1)
EQUAL-OK: (T VAL2 NIL NIL NIL NIL NIL NIL NIL NIL NIL)
(DEFMACRO V1 (X) (LIST 'QUOTE (LIST X X)))
EQL-OK: V1
(V1 33)
EQUAL-OK: (33 33)
(TESTVAR 'V1)
EQUAL-OK: (T VAL2 NIL NIL T T NIL NIL NIL NIL NIL)
(MAKUNBOUND 'V1)
EQL-OK: V1
(TESTVAR 'V1)
EQUAL-OK: (NIL NIL NIL NIL T T NIL NIL NIL NIL NIL)
(SETQ V1 'VAL3)
EQL-OK: VAL3
(TESTVAR 'V1)
EQUAL-OK: (T VAL3 NIL NIL T T NIL NIL NIL NIL NIL)
(SETF (GET 'V1 'I1) 11)
EQL-OK: 11
(SETF (GET 'V1 'I2) 22)
EQL-OK: 22
(SETF (GET 'V1 'I3) 33)
EQL-OK: 33
(TESTVAR 'V1)
EQUAL-OK: (T VAL3 NIL NIL T T NIL T 11 22 33)
(NOT (NULL (REMPROP 'V1 'I2)))
EQL-OK: T
(NOT (NULL (REMPROP 'V1 'I1)))
EQL-OK: T
(NOT (NULL (REMPROP 'V1 'I3)))
EQL-OK: T
(FMAKUNBOUND 'V1)
EQL-OK: V1
(MAKUNBOUND 'V1)
EQL-OK: V1
(TESTVAR 'V1)
EQUAL-OK: (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)
(SETF (GET 'V1 'I1) 99)
EQL-OK: 99
(DEFMACRO V1 (X) (LIST 'QUOTE (LIST X X X)))
EQL-OK: V1
(V1 A)
EQUAL-OK: (A A A)
(SETQ V1 'VAL4)
EQL-OK: VAL4
(TESTVAR 'V1)
EQUAL-OK: (T VAL4 NIL NIL T T NIL T 99 NIL NIL)
(SYMBOL-CLEANUP 'V1)
EQL-OK: T
(TESTVAR 'V1)
EQUAL-OK: (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)
(SYMBOL-CLEANUP 'V2)
EQL-OK: T
(DEFVAR V2 'V2A)
EQL-OK: V2
(TESTVAR 'V2)
EQUAL-OK: (T V2A NIL T NIL NIL NIL NIL NIL NIL NIL)
(SETF (GET 'V2 'I3) 33)
EQL-OK: 33
(SETF (GET 'V2 'I2) 22)
EQL-OK: 22
(SETF (GET 'V2 'I1) 11)
EQL-OK: 11
(TESTVAR 'V2)
EQUAL-OK: (T V2A NIL T NIL NIL NIL T 11 22 33)
(MAKUNBOUND 'V2)
EQL-OK: V2
(NOT (NULL (REMPROP 'V2 'I1)))
EQL-OK: T
(NOT (NULL (REMPROP 'V2 'I2)))
EQL-OK: T
(NOT (NULL (REMPROP 'V2 'I3)))
EQL-OK: T
(TESTVAR 'V2)
EQUAL-OK: (NIL NIL NIL T NIL NIL NIL NIL NIL NIL NIL)
(DEFVAR V2 'V2B)
EQL-OK: V2
(SETF (GET 'V2 'I1) 111)
EQL-OK: 111
(SETF (GET 'V2 'I2) 222)
EQL-OK: 222
(SETF (GET 'V2 'I3) 333)
EQL-OK: 333
(TESTVAR 'V2)
EQUAL-OK: (T V2B NIL T NIL NIL NIL T 111 222 333)
(DEFUN V2 (X) (LIST X X))
EQL-OK: V2
(V2 44)
EQUAL-OK: (44 44)
(TESTVAR 'V2)
EQUAL-OK: (T V2B NIL T T NIL NIL T 111 222 333)
(SYMBOL-CLEANUP 'V2)
EQL-OK: T
(TESTVAR 'V2)
EQUAL-OK: (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)
(SYMBOL-CLEANUP 'V3)
EQL-OK: T
(DEFUN V3 (X Y) (LIST X Y))
EQL-OK: V3
(TESTVAR 'V3)
EQUAL-OK: (NIL NIL NIL NIL T NIL NIL NIL NIL NIL NIL)
(DEFCONSTANT V3 99)
EQL-OK: V3
V3
EQL-OK: 99
(V3 'A 'B)
EQUAL-OK: (A B)
(TESTVAR 'V3)
EQUAL-OK: (T 99 T NIL T NIL NIL NIL NIL NIL NIL)
(MAKUNBOUND 'V3)
[SIMPLE-SOURCE-PROGRAM-ERROR]: MAKUNBOUND: V3 is a constant, may not be used as a variable
EQL-OK: ERROR
(FMAKUNBOUND 'V3)
EQL-OK: V3
(DEFCONSTANT V3 999)
WARNING: (DEFCONSTANT V3 999) redefines the constant V3. Its old value was 99.EQL-OK: V3
(DEFUN V3 (X) (LIST X X))
EQL-OK: V3
(V3 'C)
EQUAL-OK: (C C)
V3
EQL-OK: 999
(TESTVAR 'V3)
EQUAL-OK: (T 999 T NIL T NIL NIL NIL NIL NIL NIL)
(DEFPARAMETER VAR33)
[SIMPLE-SOURCE-PROGRAM-ERROR]: The macro DEFPARAMETER may not be called with 1 arguments: #1=(DEFPARAMETER VAR33)
EQL-OK: ERROR
(DEFPARAMETER VAR3 99)
EQL-OK: VAR3
VAR3
EQL-OK: 99
(TESTVAR 'VAR3)
EQUAL-OK: (T 99 NIL T NIL NIL NIL NIL NIL NIL NIL)
(MAKUNBOUND 'VAR3)
EQL-OK: VAR3
(TESTVAR 'VAR3)
EQUAL-OK: (NIL NIL NIL T NIL NIL NIL NIL NIL NIL NIL)
(SETF (GET 'V3 'I2) 222)
EQL-OK: 222
(SETF (GET 'V3 'I1) 111)
EQL-OK: 111
(TESTVAR 'V3)
EQUAL-OK: (T 999 T NIL T NIL NIL T 111 222 NIL)
(SYMBOL-CLEANUP 'V3)
EQL-OK: T
(TESTVAR 'V3)
EQUAL-OK: (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)
(SYMBOL-CLEANUP 'V4)
EQL-OK: T
(DEFUN V4 (X) X)
EQL-OK: V4
(V4 55)
EQL-OK: 55
(TESTVAR 'V4)
EQUAL-OK: (NIL NIL NIL NIL T NIL NIL NIL NIL NIL NIL)
(FMAKUNBOUND 'V4)
EQL-OK: V4
(TESTVAR 'V4)
EQUAL-OK: (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)
(DEFUN V4 (X) (LIST X))
EQL-OK: V4
(V4 88)
EQUAL-OK: (88)
(TESTVAR 'V4)
EQUAL-OK: (NIL NIL NIL NIL T NIL NIL NIL NIL NIL NIL)
(SETF (GET 'V4 'I1) 11)
EQL-OK: 11
(SETF (GET 'V4 'I2) 22)
EQL-OK: 22
(TESTVAR 'V4)
EQUAL-OK: (NIL NIL NIL NIL T NIL NIL T 11 22 NIL)
(FMAKUNBOUND 'V4)
EQL-OK: V4
(NOT (NULL (REMPROP 'V4 'I1)))
EQL-OK: T
(NOT (NULL (REMPROP 'V4 'I2)))
EQL-OK: T
(TESTVAR 'V4)
EQUAL-OK: (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)
(DEFUN V4 (X) (LIST X X X))
EQL-OK: V4
(V4 44)
EQUAL-OK: (44 44 44)
(SETF (GET 'V4 'I2) 222)
EQL-OK: 222
(SETF (GET 'V4 'I3) 333)
EQL-OK: 333
(TESTVAR 'V4)
EQUAL-OK: (NIL NIL NIL NIL T NIL NIL T NIL 222 333)
(DEFVAR V4 'V4-VALUE)
EQL-OK: V4
(TESTVAR 'V4)
EQUAL-OK: (T V4-VALUE NIL T T NIL NIL T NIL 222 333)
(SYMBOL-CLEANUP 'V4)
EQL-OK: T
(TESTVAR 'V4)
EQUAL-OK: (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)
(SYMBOL-CLEANUP 'V5)
EQL-OK: T
(SETF (GET 'V5 'I1) 1)
EQL-OK: 1
(SETF (GET 'V5 'I2) 2)
EQL-OK: 2
(TESTVAR 'V5)
EQUAL-OK: (NIL NIL NIL NIL NIL NIL NIL T 1 2 NIL)
(NOT (NULL (REMPROP 'V5 'I1)))
EQL-OK: T
(NOT (NULL (REMPROP 'V5 'I2)))
EQL-OK: T
(TESTVAR 'V5)
EQUAL-OK: (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)
(SETF (GET 'V5 'I1) 11)
EQL-OK: 11
(SETF (GET 'V5 'I2) 22)
EQL-OK: 22
(TESTVAR 'V5)
EQUAL-OK: (NIL NIL NIL NIL NIL NIL NIL T 11 22 NIL)
(DEFCONSTANT V5 '123)
EQL-OK: V5
(TESTVAR 'V5)
EQUAL-OK: (T 123 T NIL NIL NIL NIL T 11 22 NIL)
(MAKUNBOUND 'V5)
[SIMPLE-SOURCE-PROGRAM-ERROR]: MAKUNBOUND: V5 is a constant, may not be used as a variable
EQL-OK: ERROR
(NOT (NULL (REMPROP 'V5 'I2)))
EQL-OK: T
(NOT (NULL (REMPROP 'V5 'I1)))
EQL-OK: T
(DEFCONSTANT V5 321)
WARNING: (DEFCONSTANT V5 321) redefines the constant V5. Its old value was 123
         .
EQL-OK: V5
(SETF (GET 'V5 'I3) 333)
EQL-OK: 333
(SETF (GET 'V5 'I2) 222)
EQL-OK: 222
(TESTVAR 'V5)
EQUAL-OK: (T 321 T NIL NIL NIL NIL T NIL 222 333)
(DEFUN V5 (X) X)
EQL-OK: V5
(V5 666)
EQL-OK: 666
(TESTVAR 'V5)
EQUAL-OK: (T 321 T NIL T NIL NIL T NIL 222 333)
(SYMBOL-CLEANUP 'V5)
EQL-OK: T
(TESTVAR 'V5)
EQUAL-OK: (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)
(SYMBOL-CLEANUP 'V6)
EQL-OK: T
(SETF (GET 'V6 'I1) 1)
EQL-OK: 1
(SETF (GET 'V6 'I3) 3)
EQL-OK: 3
(TESTVAR 'V6)
EQUAL-OK: (NIL NIL NIL NIL NIL NIL NIL T 1 NIL 3)
(DEFMACRO V6 (X) (LIST 'QUOTE X))
EQL-OK: V6
(V6 A)
EQL-OK: A
(TESTVAR 'V6)
EQUAL-OK: (NIL NIL NIL NIL T T NIL T 1 NIL 3)
(DEFCONSTANT V6 234)
EQL-OK: V6
(TESTVAR 'V6)
EQUAL-OK: (T 234 T NIL T T NIL T 1 NIL 3)
(SYMBOL-CLEANUP 'V6)
EQL-OK: T
(TESTVAR 'V6)
EQUAL-OK: (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)
(PROGN (MAPC #'UNINTERN '(V1 V2 V3 V4 V5 V6)) T)
EQL-OK: T
(EVAL (READ-FROM-STRING ":abazonk-does-not-exist-yet-0"))
EQL-OK: :ABAZONK-DOES-NOT-EXIST-YET-0
:ABAZONK-DOES-NOT-EXIST-YET-0A
EQL-OK: :ABAZONK-DOES-NOT-EXIST-YET-0A
(EVAL (READ-FROM-STRING "keyword::abazonk-does-not-exist-yet-1"))
EQL-OK: :ABAZONK-DOES-NOT-EXIST-YET-1
:ABAZONK-DOES-NOT-EXIST-YET-1A
EQL-OK: :ABAZONK-DOES-NOT-EXIST-YET-1A
(HANDLER-CASE (READ-FROM-STRING "keyword:abazonk-does-not-exist-yet-2") (PACKAGE-ERROR NIL T) (:NO-ERROR NIL NIL))
EQL-OK: T
(LET ((L (APROPOS-LIST "ABAZONK-DOES-NOT-EXIST-YET"))) (MAPC #'UNINTERN L) (LENGTH L))
EQL-OK: 4
(SYMBOLS-CLEANUP '(TESTVAR V1 V2 V3 V4 V5 V6 VAR3 VAR33))
EQL-OK: NIL
RUN-TEST: finished "symbol10" (0 errors out of 152 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"symbols.tst" @1>
(SYMBOL-NAME 'XYZ)
EQUAL-OK: "XYZ"
(PROGN (SETQ *GENSYM-COUNTER* 32) (GENSYM) T)
EQL-OK: T
(PRIN1-TO-STRING (GENSYM "FOO-"))
EQUAL-OK: "#:FOO-33"
(PRIN1-TO-STRING (GENSYM "garbage-"))
EQUAL-OK: "#:|garbage-34|"
(LET* ((CL-SYMBOLS-REQUIRED '(&ALLOW-OTHER-KEYS *PRINT-MISER-WIDTH* &AUX *PRINT-PPRINT-DISPATCH* &BODY *PRINT-PRETTY* &ENVIRONMENT *PRINT-RADIX* &KEY *PRINT-READABLY* &OPTIONAL *PRINT-RIGHT-MARGIN* &REST *QUERY-IO* &WHOLE *RANDOM-STATE* * *READ-BASE* ** *READ-DEFAULT-FLOAT-FORMAT* *** *READ-EVAL* *BREAK-ON-SIGNALS* *READ-SUPPRESS* *COMPILE-FILE-PATHNAME* *READTABLE* *COMPILE-FILE-TRUENAME* *STANDARD-INPUT* *COMPILE-PRINT* *STANDARD-OUTPUT* *COMPILE-VERBOSE* *TERMINAL-IO* *DEBUG-IO* *TRACE-OUTPUT* *DEBUGGER-HOOK* + *DEFAULT-PATHNAME-DEFAULTS* ++ *ERROR-OUTPUT* +++ *FEATURES* - *GENSYM-COUNTER* / *LOAD-PATHNAME* // *LOAD-PRINT* /// *LOAD-TRUENAME* /= *LOAD-VERBOSE* 1+ *MACROEXPAND-HOOK* 1- *MODULES* < *PACKAGE* <= *PRINT-ARRAY* = *PRINT-BASE* > *PRINT-CASE* >= *PRINT-CIRCLE* ABORT *PRINT-ESCAPE* ABS *PRINT-GENSYM* ACONS *PRINT-LENGTH* ACOS *PRINT-LEVEL* ACOSH *PRINT-LINES* ADD-METHOD ADJOIN ATOM BOUNDP ADJUST-ARRAY BASE-CHAR BREAK ADJUSTABLE-ARRAY-P BASE-STRING BROADCAST-STREAM ALLOCATE-INSTANCE BIGNUM BROADCAST-STREAM-STREAMS ALPHA-CHAR-P BIT BUILT-IN-CLASS ALPHANUMERICP BIT-AND BUTLAST AND BIT-ANDC1 BYTE APPEND BIT-ANDC2 BYTE-POSITION APPLY BIT-EQV BYTE-SIZE APROPOS BIT-IOR CAAAAR APROPOS-LIST BIT-NAND CAAADR AREF BIT-NOR CAAAR ARITHMETIC-ERROR BIT-NOT CAADAR ARITHMETIC-ERROR-OPERANDS BIT-ORC1 CAADDR ARITHMETIC-ERROR-OPERATION BIT-ORC2 CAADR ARRAY BIT-VECTOR CAAR ARRAY-DIMENSION BIT-VECTOR-P CADAAR ARRAY-DIMENSION-LIMIT BIT-XOR CADADR ARRAY-DIMENSIONS BLOCK CADAR ARRAY-DISPLACEMENT BOOLE CADDAR ARRAY-ELEMENT-TYPE BOOLE-1 CADDDR ARRAY-HAS-FILL-POINTER-P BOOLE-2 CADDR ARRAY-IN-BOUNDS-P BOOLE-AND CADR ARRAY-RANK BOOLE-ANDC1 CALL-ARGUMENTS-LIMIT ARRAY-RANK-LIMIT BOOLE-ANDC2 CALL-METHOD ARRAY-ROW-MAJOR-INDEX BOOLE-C1 CALL-NEXT-METHOD ARRAY-TOTAL-SIZE BOOLE-C2 CAR ARRAY-TOTAL-SIZE-LIMIT BOOLE-CLR CASE ARRAYP BOOLE-EQV CATCH ASH BOOLE-IOR CCASE ASIN BOOLE-NAND CDAAAR ASINH BOOLE-NOR CDAADR ASSERT BOOLE-ORC1 CDAAR ASSOC BOOLE-ORC2 CDADAR ASSOC-IF BOOLE-SET CDADDR ASSOC-IF-NOT BOOLE-XOR CDADR ATAN BOOLEAN CDAR ATANH BOTH-CASE-P CDDAAR CDDADR CLEAR-INPUT COPY-TREE CDDAR CLEAR-OUTPUT COS CDDDAR CLOSE COSH CDDDDR CLRHASH COUNT CDDDR CODE-CHAR COUNT-IF CDDR COERCE COUNT-IF-NOT CDR COMPILATION-SPEED CTYPECASE CEILING COMPILE DEBUG CELL-ERROR COMPILE-FILE DECF CELL-ERROR-NAME COMPILE-FILE-PATHNAME DECLAIM CERROR COMPILED-FUNCTION DECLARATION CHANGE-CLASS COMPILED-FUNCTION-P DECLARE CHAR COMPILER-MACRO DECODE-FLOAT CHAR-CODE COMPILER-MACRO-FUNCTION DECODE-UNIVERSAL-TIME CHAR-CODE-LIMIT COMPLEMENT DEFCLASS CHAR-DOWNCASE COMPLEX DEFCONSTANT CHAR-EQUAL COMPLEXP DEFGENERIC CHAR-GREATERP COMPUTE-APPLICABLE-METHODS DEFINE-COMPILER-MACRO CHAR-INT COMPUTE-RESTARTS DEFINE-CONDITION CHAR-LESSP CONCATENATE DEFINE-METHOD-COMBINATION CHAR-NAME CONCATENATED-STREAM DEFINE-MODIFY-MACRO CHAR-NOT-EQUAL CONCATENATED-STREAM-STREAMS DEFINE-SETF-EXPANDER CHAR-NOT-GREATERP COND DEFINE-SYMBOL-MACRO CHAR-NOT-LESSP CONDITION DEFMACRO CHAR-UPCASE CONJUGATE DEFMETHOD CHAR/= CONS DEFPACKAGE CHAR< CONSP DEFPARAMETER CHAR<= CONSTANTLY DEFSETF CHAR= CONSTANTP DEFSTRUCT CHAR> CONTINUE DEFTYPE CHAR>= CONTROL-ERROR DEFUN CHARACTER COPY-ALIST DEFVAR CHARACTERP COPY-LIST DELETE CHECK-TYPE COPY-PPRINT-DISPATCH DELETE-DUPLICATES CIS COPY-READTABLE DELETE-FILE CLASS COPY-SEQ DELETE-IF CLASS-NAME COPY-STRUCTURE DELETE-IF-NOT CLASS-OF COPY-SYMBOL DELETE-PACKAGE DENOMINATOR EQ DEPOSIT-FIELD EQL DESCRIBE EQUAL DESCRIBE-OBJECT EQUALP DESTRUCTURING-BIND ERROR DIGIT-CHAR ETYPECASE DIGIT-CHAR-P EVAL DIRECTORY EVAL-WHEN DIRECTORY-NAMESTRING EVENP DISASSEMBLE EVERY DIVISION-BY-ZERO EXP DO EXPORT DO* EXPT DO-ALL-SYMBOLS EXTENDED-CHAR DO-EXTERNAL-SYMBOLS FBOUNDP DO-SYMBOLS FCEILING DOCUMENTATION FDEFINITION DOLIST FFLOOR DOTIMES FIFTH DOUBLE-FLOAT FILE-AUTHOR DOUBLE-FLOAT-EPSILON FILE-ERROR DOUBLE-FLOAT-NEGATIVE-EPSILON FILE-ERROR-PATHNAME DPB FILE-LENGTH DRIBBLE FILE-NAMESTRING DYNAMIC-EXTENT FILE-POSITION ECASE FILE-STREAM ECHO-STREAM FILE-STRING-LENGTH ECHO-STREAM-INPUT-STREAM FILE-WRITE-DATE ECHO-STREAM-OUTPUT-STREAM FILL ED FILL-POINTER EIGHTH FIND ELT FIND-ALL-SYMBOLS ENCODE-UNIVERSAL-TIME FIND-CLASS END-OF-FILE FIND-IF ENDP FIND-IF-NOT ENOUGH-NAMESTRING FIND-METHOD ENSURE-DIRECTORIES-EXIST ENSURE-GENERIC-FUNCTION FIND-PACKAGE FIND-RESTART FIND-SYMBOL GET-INTERNAL-RUN-TIME FINISH-OUTPUT GET-MACRO-CHARACTER FIRST GET-OUTPUT-STREAM-STRING FIXNUM GET-PROPERTIES FLET GET-SETF-EXPANSION FLOAT GET-UNIVERSAL-TIME FLOAT-DIGITS GETF FLOAT-PRECISION GETHASH FLOAT-RADIX GO FLOAT-SIGN GRAPHIC-CHAR-P FLOATING-POINT-INEXACT HANDLER-BIND FLOATING-POINT-INVALID-OPERATION HANDLER-CASE FLOATING-POINT-OVERFLOW HASH-TABLE FLOATING-POINT-UNDERFLOW HASH-TABLE-COUNT FLOATP HASH-TABLE-P FLOOR HASH-TABLE-REHASH-SIZE FMAKUNBOUND HASH-TABLE-REHASH-THRESHOLD FORCE-OUTPUT HASH-TABLE-SIZE FORMAT HASH-TABLE-TEST FORMATTER HOST-NAMESTRING FOURTH IDENTITY FRESH-LINE IF FROUND IGNORABLE FTRUNCATE IGNORE FTYPE IGNORE-ERRORS FUNCALL IMAGPART FUNCTION IMPORT FUNCTION-KEYWORDS IN-PACKAGE FUNCTION-LAMBDA-EXPRESSION INCF FUNCTIONP INITIALIZE-INSTANCE GCD INLINE GENERIC-FUNCTION INPUT-STREAM-P GENSYM INSPECT GENTEMP INTEGER GET INTEGER-DECODE-FLOAT GET-DECODED-TIME INTEGER-LENGTH GET-DISPATCH-MACRO-CHARACTER INTEGERP GET-INTERNAL-REAL-TIME INTERACTIVE-STREAM-P INTERN LISP-IMPLEMENTATION-TYPE INTERNAL-TIME-UNITS-PER-SECOND LISP-IMPLEMENTATION-VERSION INTERSECTION LIST INVALID-METHOD-ERROR LIST* INVOKE-DEBUGGER LIST-ALL-PACKAGES INVOKE-RESTART LIST-LENGTH INVOKE-RESTART-INTERACTIVELY LISTEN ISQRT LISTP KEYWORD LOAD KEYWORDP LOAD-LOGICAL-PATHNAME-TRANSLATIONS LABELS LOAD-TIME-VALUE LAMBDA LOCALLY LAMBDA-LIST-KEYWORDS LOG LAMBDA-PARAMETERS-LIMIT LOGAND LAST LOGANDC1 LCM LOGANDC2 LDB LOGBITP LDB-TEST LOGCOUNT LDIFF LOGEQV LEAST-NEGATIVE-DOUBLE-FLOAT LOGICAL-PATHNAME LEAST-NEGATIVE-LONG-FLOAT LOGICAL-PATHNAME-TRANSLATIONS LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT LOGIOR LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT LOGNAND LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT LOGNOR LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT LOGNOT LEAST-NEGATIVE-SHORT-FLOAT LOGORC1 LEAST-NEGATIVE-SINGLE-FLOAT LOGORC2 LEAST-POSITIVE-DOUBLE-FLOAT LOGTEST LEAST-POSITIVE-LONG-FLOAT LOGXOR LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT LONG-FLOAT LEAST-POSITIVE-NORMALIZED-LONG-FLOAT LONG-FLOAT-EPSILON LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT LONG-FLOAT-NEGATIVE-EPSILON LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT LONG-SITE-NAME LEAST-POSITIVE-SHORT-FLOAT LOOP LEAST-POSITIVE-SINGLE-FLOAT LOOP-FINISH LENGTH LOWER-CASE-P LET MACHINE-INSTANCE LET* MACHINE-TYPE MACHINE-VERSION MASK-FIELD MACRO-FUNCTION MAX MACROEXPAND MEMBER MACROEXPAND-1 MEMBER-IF MACROLET MEMBER-IF-NOT MAKE-ARRAY MERGE MAKE-BROADCAST-STREAM MERGE-PATHNAMES MAKE-CONCATENATED-STREAM METHOD MAKE-CONDITION METHOD-COMBINATION MAKE-DISPATCH-MACRO-CHARACTER METHOD-COMBINATION-ERROR MAKE-ECHO-STREAM METHOD-QUALIFIERS MAKE-HASH-TABLE MIN MAKE-INSTANCE MINUSP MAKE-INSTANCES-OBSOLETE MISMATCH MAKE-LIST MOD MAKE-LOAD-FORM MOST-NEGATIVE-DOUBLE-FLOAT MAKE-LOAD-FORM-SAVING-SLOTS MOST-NEGATIVE-FIXNUM MAKE-METHOD MOST-NEGATIVE-LONG-FLOAT MAKE-PACKAGE MOST-NEGATIVE-SHORT-FLOAT MAKE-PATHNAME MOST-NEGATIVE-SINGLE-FLOAT MAKE-RANDOM-STATE MOST-POSITIVE-DOUBLE-FLOAT MAKE-SEQUENCE MOST-POSITIVE-FIXNUM MAKE-STRING MOST-POSITIVE-LONG-FLOAT MAKE-STRING-INPUT-STREAM MOST-POSITIVE-SHORT-FLOAT MAKE-STRING-OUTPUT-STREAM MOST-POSITIVE-SINGLE-FLOAT MAKE-SYMBOL MUFFLE-WARNING MAKE-SYNONYM-STREAM MULTIPLE-VALUE-BIND MAKE-TWO-WAY-STREAM MULTIPLE-VALUE-CALL MAKUNBOUND MULTIPLE-VALUE-LIST MAP MULTIPLE-VALUE-PROG1 MAP-INTO MULTIPLE-VALUE-SETQ MAPC MULTIPLE-VALUES-LIMIT MAPCAN NAME-CHAR MAPCAR NAMESTRING MAPCON NBUTLAST MAPHASH NCONC MAPL NEXT-METHOD-P MAPLIST NIL NINTERSECTION PACKAGE-ERROR NINTH PACKAGE-ERROR-PACKAGE NO-APPLICABLE-METHOD PACKAGE-NAME NO-NEXT-METHOD PACKAGE-NICKNAMES NOT PACKAGE-SHADOWING-SYMBOLS NOTANY PACKAGE-USE-LIST NOTEVERY PACKAGE-USED-BY-LIST NOTINLINE PACKAGEP NRECONC PAIRLIS NREVERSE PARSE-ERROR NSET-DIFFERENCE PARSE-INTEGER NSET-EXCLUSIVE-OR PARSE-NAMESTRING NSTRING-CAPITALIZE PATHNAME NSTRING-DOWNCASE PATHNAME-DEVICE NSTRING-UPCASE PATHNAME-DIRECTORY NSUBLIS PATHNAME-HOST NSUBST PATHNAME-MATCH-P NSUBST-IF PATHNAME-NAME NSUBST-IF-NOT PATHNAME-TYPE NSUBSTITUTE PATHNAME-VERSION NSUBSTITUTE-IF PATHNAMEP NSUBSTITUTE-IF-NOT PEEK-CHAR NTH PHASE NTH-VALUE PI NTHCDR PLUSP NULL POP NUMBER POSITION NUMBERP POSITION-IF NUMERATOR POSITION-IF-NOT NUNION PPRINT ODDP PPRINT-DISPATCH OPEN PPRINT-EXIT-IF-LIST-EXHAUSTED OPEN-STREAM-P PPRINT-FILL OPTIMIZE PPRINT-INDENT OR PPRINT-LINEAR OTHERWISE PPRINT-LOGICAL-BLOCK OUTPUT-STREAM-P PPRINT-NEWLINE PACKAGE PPRINT-POP PPRINT-TAB READ-CHAR PPRINT-TABULAR READ-CHAR-NO-HANG PRIN1 READ-DELIMITED-LIST PRIN1-TO-STRING READ-FROM-STRING PRINC READ-LINE PRINC-TO-STRING READ-PRESERVING-WHITESPACE PRINT READ-SEQUENCE PRINT-NOT-READABLE READER-ERROR PRINT-NOT-READABLE-OBJECT READTABLE PRINT-OBJECT READTABLE-CASE PRINT-UNREADABLE-OBJECT READTABLEP PROBE-FILE REAL PROCLAIM REALP PROG REALPART PROG* REDUCE PROG1 REINITIALIZE-INSTANCE PROG2 REM PROGN REMF PROGRAM-ERROR REMHASH PROGV REMOVE PROVIDE REMOVE-DUPLICATES PSETF REMOVE-IF PSETQ REMOVE-IF-NOT PUSH REMOVE-METHOD PUSHNEW REMPROP QUOTE RENAME-FILE RANDOM RENAME-PACKAGE RANDOM-STATE REPLACE RANDOM-STATE-P REQUIRE RASSOC REST RASSOC-IF RESTART RASSOC-IF-NOT RESTART-BIND RATIO RESTART-CASE RATIONAL RESTART-NAME RATIONALIZE RETURN RATIONALP RETURN-FROM READ REVAPPEND READ-BYTE REVERSE ROOM SIMPLE-BIT-VECTOR ROTATEF SIMPLE-BIT-VECTOR-P ROUND SIMPLE-CONDITION ROW-MAJOR-AREF SIMPLE-CONDITION-FORMAT-ARGUMENTS RPLACA SIMPLE-CONDITION-FORMAT-CONTROL RPLACD SIMPLE-ERROR SAFETY SIMPLE-STRING SATISFIES SIMPLE-STRING-P SBIT SIMPLE-TYPE-ERROR SCALE-FLOAT SIMPLE-VECTOR SCHAR SIMPLE-VECTOR-P SEARCH SIMPLE-WARNING SECOND SIN SEQUENCE SINGLE-FLOAT SERIOUS-CONDITION SINGLE-FLOAT-EPSILON SET SINGLE-FLOAT-NEGATIVE-EPSILON SET-DIFFERENCE SINH SET-DISPATCH-MACRO-CHARACTER SIXTH SET-EXCLUSIVE-OR SLEEP SET-MACRO-CHARACTER SLOT-BOUNDP SET-PPRINT-DISPATCH SLOT-EXISTS-P SET-SYNTAX-FROM-CHAR SLOT-MAKUNBOUND SETF SLOT-MISSING SETQ SLOT-UNBOUND SEVENTH SLOT-VALUE SHADOW SOFTWARE-TYPE SHADOWING-IMPORT SOFTWARE-VERSION SHARED-INITIALIZE SOME SHIFTF SORT SHORT-FLOAT SPACE SHORT-FLOAT-EPSILON SPECIAL SHORT-FLOAT-NEGATIVE-EPSILON SPECIAL-OPERATOR-P SHORT-SITE-NAME SPEED SIGNAL SQRT SIGNED-BYTE STABLE-SORT SIGNUM STANDARD SIMPLE-ARRAY STANDARD-CHAR SIMPLE-BASE-STRING STANDARD-CHAR-P STANDARD-CLASS SUBLIS STANDARD-GENERIC-FUNCTION SUBSEQ STANDARD-METHOD SUBSETP STANDARD-OBJECT SUBST STEP SUBST-IF STORAGE-CONDITION SUBST-IF-NOT STORE-VALUE SUBSTITUTE STREAM SUBSTITUTE-IF STREAM-ELEMENT-TYPE SUBSTITUTE-IF-NOT STREAM-ERROR SUBTYPEP STREAM-ERROR-STREAM SVREF STREAM-EXTERNAL-FORMAT SXHASH STREAMP SYMBOL STRING SYMBOL-FUNCTION STRING-CAPITALIZE SYMBOL-MACROLET STRING-DOWNCASE SYMBOL-NAME STRING-EQUAL SYMBOL-PACKAGE STRING-GREATERP SYMBOL-PLIST STRING-LEFT-TRIM SYMBOL-VALUE STRING-LESSP SYMBOLP STRING-NOT-EQUAL SYNONYM-STREAM STRING-NOT-GREATERP SYNONYM-STREAM-SYMBOL STRING-NOT-LESSP T STRING-RIGHT-TRIM TAGBODY STRING-STREAM TAILP STRING-TRIM TAN STRING-UPCASE TANH STRING/= TENTH STRING< TERPRI STRING<= THE STRING= THIRD STRING> THROW STRING>= TIME STRINGP TRACE STRUCTURE TRANSLATE-LOGICAL-PATHNAME STRUCTURE-CLASS TRANSLATE-PATHNAME STRUCTURE-OBJECT TREE-EQUAL STYLE-WARNING TRUENAME TRUNCATE VALUES-LIST TWO-WAY-STREAM VARIABLE TWO-WAY-STREAM-INPUT-STREAM VECTOR TWO-WAY-STREAM-OUTPUT-STREAM VECTOR-POP TYPE VECTOR-PUSH TYPE-ERROR VECTOR-PUSH-EXTEND TYPE-ERROR-DATUM VECTORP TYPE-ERROR-EXPECTED-TYPE WARN TYPE-OF WARNING TYPECASE WHEN TYPEP WILD-PATHNAME-P UNBOUND-SLOT WITH-ACCESSORS UNBOUND-SLOT-INSTANCE WITH-COMPILATION-UNIT UNBOUND-VARIABLE WITH-CONDITION-RESTARTS UNDEFINED-FUNCTION WITH-HASH-TABLE-ITERATOR UNEXPORT WITH-INPUT-FROM-STRING UNINTERN WITH-OPEN-FILE UNION WITH-OPEN-STREAM UNLESS WITH-OUTPUT-TO-STRING UNREAD-CHAR WITH-PACKAGE-ITERATOR UNSIGNED-BYTE WITH-SIMPLE-RESTART UNTRACE WITH-SLOTS UNUSE-PACKAGE WITH-STANDARD-IO-SYNTAX UNWIND-PROTECT WRITE UPDATE-INSTANCE-FOR-DIFFERENT-CLASS WRITE-BYTE UPDATE-INSTANCE-FOR-REDEFINED-CLASS WRITE-CHAR UPGRADED-ARRAY-ELEMENT-TYPE WRITE-LINE UPGRADED-COMPLEX-PART-TYPE WRITE-SEQUENCE UPPER-CASE-P WRITE-STRING USE-PACKAGE WRITE-TO-STRING USE-VALUE Y-OR-N-P USER-HOMEDIR-PATHNAME YES-OR-NO-P VALUES ZEROP)) (CL-SYMBOLS-ACTUAL (LET ((LST NIL)) (DO-EXTERNAL-SYMBOLS (S (FIND-PACKAGE :COMMON-LISP) LST) (PUSH S LST)) LST)) (KNOWN-MISSING NIL) (KNOWN-EXTRA NIL) (MISSING (SET-DIFFERENCE CL-SYMBOLS-REQUIRED CL-SYMBOLS-ACTUAL)) (EXTRA (SET-DIFFERENCE CL-SYMBOLS-ACTUAL CL-SYMBOLS-REQUIRED))) (FORMAT T "~:[~;~&~d missing symbol~:p: ~s~%~]" MISSING (LENGTH MISSING) MISSING) (FORMAT T "~:[~;~d extra symbol~:p: ~s~%~]" EXTRA (LENGTH EXTRA) EXTRA) (DOLIST (SY CL-SYMBOLS-ACTUAL) (LOOP :FOR IP :IN (SYMBOL-PLIST SY) :BY #'CDDR :WHEN (EQ IP (FIND-SYMBOL (SYMBOL-NAME IP) "COMMON-LISP-USER")) :DO (ERROR "~s has an ilegal property ~s" SY IP))) (LIST (SET-DIFFERENCE MISSING KNOWN-MISSING) (SET-DIFFERENCE KNOWN-MISSING MISSING) (SET-DIFFERENCE EXTRA KNOWN-EXTRA) (SET-DIFFERENCE KNOWN-EXTRA EXTRA)))
EQUAL-OK: (NIL NIL NIL NIL)
(WITH-COLLECT (C) (DOLIST (P *SYSTEM-PACKAGE-LIST*) (DO-EXTERNAL-SYMBOLS (S P) (UNLESS (OR (NOT (FBOUNDP S)) (SYSTEM::SUBR-INFO S) (SPECIAL-OPERATOR-P S) (DOCUMENTATION S 'SYSTEM::FILE) (NOT (EQ S (SYSTEM::FUNCTION-NAME (OR (MACRO-FUNCTION S) S))))) (C (LIST S (SYMBOL-PLIST S) (FDEFINITION S)))))))
EQL-OK: NIL
RUN-TEST: finished "symbols" (0 errors out of 6 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"time.tst" @1>
(ENCODE-UNIVERSAL-TIME 0 0 0 1 1 1900 0)
EQL-OK: 0
(ENCODE-UNIVERSAL-TIME 0 0 1 4 7 1976 5)
EQL-OK: 2414296800
(DEFUN CHECK-UNIVERSAL-TIME (TIME &OPTIONAL TZ) "check that DECODE-UNIVERSAL-TIME is the inverse of ENCODE-UNIVERSAL-TIME" (MULTIPLE-VALUE-BIND (SE MI HO DA MO YE WK DS-P ZONE) (DECODE-UNIVERSAL-TIME TIME TZ) (LET ((UT (ENCODE-UNIVERSAL-TIME SE MI HO DA MO YE (OR TZ (IF DS-P (1- ZONE) ZONE))))) (UNLESS (= UT TIME) (LIST TIME (LIST SE MI HO DA MO YE WK DS-P ZONE TZ) UT (- UT TIME))))))
EQL-OK: CHECK-UNIVERSAL-TIME
(STRINGP (DOCUMENTATION 'CHECK-UNIVERSAL-TIME 'FUNCTION))
EQL-OK: T
(COMPILE 'CHECK-UNIVERSAL-TIME)
EQL-OK: CHECK-UNIVERSAL-TIME
(STRINGP (DOCUMENTATION #'CHECK-UNIVERSAL-TIME T))
EQL-OK: T
(CHECK-UNIVERSAL-TIME 2879996399)
EQL-OK: NIL
(CHECK-UNIVERSAL-TIME 2879996400)
EQL-OK: NIL
(CHECK-UNIVERSAL-TIME 3)
EQL-OK: NIL
(CHECK-UNIVERSAL-TIME 3 7)
EQL-OK: NIL
(DEFUN TIME-LOOP (START END STEP &OPTIONAL TZ) "return the periods of badness" (TIME (LOOP :WITH STATE = NIL :WITH RET = NIL :FOR TM :FROM START :BELOW END :BY STEP :FOR CHECK = (CHECK-UNIVERSAL-TIME TM TZ) :DO (CASE STATE ((:GOOD) (WHEN CHECK (SETQ STATE :BAD) (SHOW CHECK) (PUSH CHECK RET))) ((:BAD) (UNLESS CHECK (PUSH (SHOW (LIST TM (MULTIPLE-VALUE-LIST (DECODE-UNIVERSAL-TIME TM TZ)))) (CAR RET)) (SETQ STATE :GOOD))) (T (SETQ STATE (IF CHECK :BAD :GOOD)) (SHOW (LIST STATE TM CHECK)))) :FINALLY (RETURN (NREVERSE RET)))))
EQL-OK: TIME-LOOP
(STRINGP (DOCUMENTATION #'TIME-LOOP T))
EQL-OK: T
(COMPILE 'TIME-LOOP)
EQL-OK: TIME-LOOP
(STRINGP (DOCUMENTATION 'TIME-LOOP 'FUNCTION))
EQL-OK: T
(TIME-LOOP 100000 5000000000 5000)
(:GOOD 100000 NIL)
Real time: 7.653469 sec.
Run time: 7.653207 sec.
Space: 127793488 Bytes
GC: 44, GC time: 0.374137 sec.
EQL-OK: NIL
(TIME-LOOP 4300066700 4300181201 10)
(:GOOD 4300066700 NIL)
Real time: 0.095053 sec.
Run time: 0.095054 sec.
Space: 1465776 Bytes
GC: 1, GC time: 0.00949 sec.
EQL-OK: NIL
(TIME-LOOP 100000 5000000000 5000 0)
(:GOOD 100000 NIL)
Real time: 3.378447 sec.
Run time: 3.378313 sec.
Space: 127793488 Bytes
GC: 43, GC time: 0.344118 sec.
EQL-OK: NIL
(TIME-LOOP 4300066700 4300081201 10 0)
(:GOOD 4300066700 NIL)
Real time: 0.004376 sec.
Run time: 0.004376 sec.
Space: 185776 Bytes
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
WARNING: LOOP: FOR clauses should occur before the loop's main body
0 out of 10,000 bad:   0.0%
EQL-OK: NIL
(LET ((TOTAL 10000)) (LOOP :WITH BAD = 0 :REPEAT TOTAL :FOR TIME = (RANDOM 10000000000) :FOR CHECK = (CHECK-UNIVERSAL-TIME TIME 0) :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
WARNING: LOOP: FOR clauses should occur before the loop's main body
0 out of 10,000 bad:   0.0%
EQL-OK: NIL
(- (ENCODE-UNIVERSAL-TIME 12 34 21 23 12 2208) (ENCODE-UNIVERSAL-TIME 12 34 20 23 12 2208))
EQL-OK: 3600
(PROGN (SYMBOL-CLEANUP 'CHECK-UNIVERSAL-TIME) (SYMBOL-CLEANUP 'TIME-LOOP))
EQL-OK: T
RUN-TEST: finished "time" (0 errors out of 22 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"tread.tst" @1>
27
EQL-OK: 27
27
EQL-OK: 27
27
EQL-OK: 27
27
EQL-OK: 27
27
EQL-OK: 27
27
EQL-OK: 27
27
EQL-OK: 27
'(A B)
EQUAL-OK: (A B)
'(A B)
EQUAL-OK: (A B)
'(A B)
EQUAL-OK: (A B)
'(A B)
EQUAL-OK: (A B)
'(A B)
EQUAL-OK: (A B)
'|foobar|
EQL-OK: |foobar|
'|foobar|
EQL-OK: |foobar|
'|fooBARbaz|
EQL-OK: |fooBARbaz|
'|fooBARbaz|
EQL-OK: |fooBARbaz|
(PROGN (UNLESS (FIND-PACKAGE '|foo|) (MAKE-PACKAGE '|foo|)) T)
EQL-OK: T
'|foo:bar|
EQL-OK: |foo:bar|
(READ-FROM-STRING "|foo|:|bar|")
[SIMPLE-PACKAGE-ERROR]: READ from #<INPUT STRING-INPUT-STREAM>: #1=#<PACKAGE |foo|> has no external symbol with name "bar"
EQL-OK: ERROR
(DELETE-PACKAGE '#:|foo|)
EQL-OK: T
'|1B5000|
EQL-OK: |1B5000|
'|777777Q|
EQL-OK: |777777Q|
'|1.7J|
EQL-OK: |1.7J|
'|-3/4+6.7J|
EQL-OK: |-3/4+6.7J|
'|12/25/83|
EQL-OK: |12/25/83|
'|27^19|
EQL-OK: |27^19|
'|3^4/5|
EQL-OK: |3^4/5|
'|6//7|
EQL-OK: |6//7|
'|3.1.2.6|
EQL-OK: |3.1.2.6|
'|^-43^|
EQL-OK: |^-43^|
'|3.141_592_653_589_793_238_4|
EQL-OK: |3.141_592_653_589_793_238_4|
'|-3.7+2.6I-6.17J+19.6K|
EQL-OK: |-3.7+2.6I-6.17J+19.6K|
'/
EQL-OK: /
'/5
EQL-OK: /5
'+
EQL-OK: +
'1+
EQL-OK: 1+
'1-
EQL-OK: 1-
'FOO+
EQL-OK: FOO+
'AB.CD
EQL-OK: AB.CD
'_
EQL-OK: _
'^
EQL-OK: ^
'^/-
EQL-OK: ^/-
'BAD-FACE
EQL-OK: BAD-FACE
'25-SEC-83
EQL-OK: 25-SEC-83
'A/B
EQL-OK: A/B
'FAD_CAFE
EQL-OK: FAD_CAFE
'F^
EQL-OK: F^
(SETQ *PRINT-BASE* 16)
EQL-OK: 10
'|BAD-FACE|
EQL-OK: |BAD-FACE|
'|25-SEC-83|
EQL-OK: |25-SEC-83|
'|A/B|
EQL-OK: |A/B|
'|FAD_CAFE|
EQL-OK: |FAD_CAFE|
'|F^|
EQL-OK: |F^|
(SETQ *PRINT-BASE* A)
EQL-OK: 10
'|123|
EQL-OK: |123|
'|123E12|
EQL-OK: |123E12|
'|123S12|
EQL-OK: |123S12|
'|123L12|
EQL-OK: |123L12|
'|123D12|
EQL-OK: |123D12|
'|123F12|
EQL-OK: |123F12|
'|123/12|
EQL-OK: |123/12|
'(A . B)
EQUAL-OK: (A . B)
'(A.B)
EQUAL-OK: (A.B)
'(A. B)
EQUAL-OK: (A. B)
'(A |.| B C)
EQUAL-OK: (A |.| B C)
'(A |.| B C)
EQUAL-OK: (A |.| B C)
'(A |...| B C)
EQUAL-OK: (A |...| B C)
'(A |...| B C)
EQUAL-OK: (A |...| B C)
'(A B . C)
EQUAL-OK: (A B . C)
'.AB
EQL-OK: .AB
(READ-FROM-STRING "(. b)")
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: token "." not allowed here
EQL-OK: ERROR
(READ-FROM-STRING "(a .. b)")
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: a token consisting only of dots cannot be meaningfully read in
EQL-OK: ERROR
(READ-FROM-STRING "(a . . 'b   )")
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: token "." not allowed here
EQL-OK: ERROR
(READ-FROM-STRING "(a b c ...)")
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: a token consisting only of dots cannot be meaningfully read in
EQL-OK: ERROR
#\Newline
EQL-OK: #\Newline
#\Newline
EQL-OK: #\Newline
#\Space
EQL-OK: #\Space
#\Rubout
EQL-OK: #\Rubout
#\Page
EQL-OK: #\Page
#\Tab
EQL-OK: #\Tab
#\Backspace
EQL-OK: #\Backspace
#\Return
EQL-OK: #\Return
(SETQ *READ-BASE* 2)
EQL-OK: 2
(SETQ *PRINT-RADIX* T)
EQL-OK: T
(PRIN1-TO-STRING #10r4/3)
EQUAL-OK: "#10r4/3"
(SETQ *PRINT-BASE* 2.)
EQL-OK: #b10
(PRIN1-TO-STRING #b100/11)
EQUAL-OK: "#b100/11"
(SETQ *PRINT-BASE* #b1010)
EQL-OK: 10.
'|123|
EQL-OK: |123|
123.
EQL-OK: 123.
312.
EQL-OK: 312.
(SETQ *READ-BASE* 10.)
EQL-OK: 10.
(SETQ *PRINT-RADIX* NIL)
EQL-OK: NIL
0.1
EQL-OK: 0.1
0.1
EQL-OK: 0.1
-0.1
EQL-OK: -0.1
1.0
EQL-OK: 1.0
1.0
EQL-OK: 1.0
-1.0
EQL-OK: -1.0
10.0
EQL-OK: 10.0
10.0
EQL-OK: 10.0
-10.0
EQL-OK: -10.0
10.0
EQL-OK: 10.0
10.0
EQL-OK: 10.0
-10.0
EQL-OK: -10.0
(SETQ *READ-BASE* 16)
EQL-OK: 16
'|1A1.|
EQL-OK: |1A1.|
'|1R1.|
EQL-OK: |1R1.|
(SETQ *READ-BASE* 10)
EQL-OK: 10
(SETQ *PRINT-LEVEL* 10)
EQL-OK: 10
(SETQ *PRINT-CIRCLE* T)
EQL-OK: T
(PRIN1-TO-STRING '(#1=(A B #1#)))
EQUALP-OK: "(#1=(a b #1#))"
(PRIN1-TO-STRING '(#1=(#1#)))
EQUAL-OK: "(#1=(#1#))"
(PRIN1-TO-STRING '(#1=(A B #1#) (C D #1#)))
EQUALP-OK: "(#1=(a b #1#) (c d #1#))"
(SETQ *PRINT-LEVEL* NIL)
EQL-OK: NIL
(SETQ *PRINT-LENGTH* 11)
EQL-OK: 11
(PRIN1-TO-STRING '(1 2 3 4 (5 5) 6 7 8 9 10 11 ...))
EQUAL-OK: "(1 2 3 4 (5 5) 6 7 8 9 10 11 ...)"
(PRIN1-TO-STRING '#1=(A B . #1#))
EQUAL-OK: "#1=(A B . #1#)"
(SETQ *PRINT-LENGTH* NIL)
EQL-OK: NIL
':ABC
EQL-OK: :ABC
(PROGN (UNLESS (FIND-PACKAGE 'ABC) (MAKE-PACKAGE 'ABC)) T)
EQL-OK: T
(READ-FROM-STRING "abc:de")
[SIMPLE-PACKAGE-ERROR]: READ from #<INPUT STRING-INPUT-STREAM>: #1=#<PACKAGE ABC> has no external symbol with name "DE"
EQL-OK: ERROR
'ABC::DE
EQL-OK: ABC::DE
(READ-FROM-STRING "::111")
EQL-OK: :|111|
(READ-FROM-STRING ":abc:")
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: too many colons in token ":abc:"
EQL-OK: ERROR
(READ-FROM-STRING ":abc:00")
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: too many colons in token ":abc:00"
EQL-OK: ERROR
(READ-FROM-STRING "ab:cd:2")
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: too many colons in token "ab:cd:2"
EQL-OK: ERROR
(READ-FROM-STRING "ab:")
[SIMPLE-PACKAGE-ERROR]: READ from #<INPUT STRING-INPUT-STREAM>: there is no package with name #1="AB"
EQL-OK: ERROR
(READ-FROM-STRING "ab:cd:")
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: too many colons in token "ab:cd:"
EQL-OK: ERROR
(READ-FROM-STRING "abc::")
EQL-OK: ABC::||
(DELETE-PACKAGE '#:ABC)
EQL-OK: T
#0A7
EQUALP-OK: #0A7
#(1 2 3 4 5 6 7 8)
EQUALP-OK: #(1 2 3 4 5 6 7 8)
#2A((1 2 3) (3 2 1))
EQUALP-OK: #2A((1 2 3) (3 2 1))
#3A(((1 2 3) (4 5 6)) ((1 2 3) (4 5 6)))
EQUALP-OK: #3A(((1 2 3) (4 5 6)) ((1 2 3) (4 5 6)))
(READ-FROM-STRING "#a7")
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: bad syntax for array: #A7
EQL-OK: ERROR
#2A((1 2) (3 4) (5 6))
EQUALP-OK: #2A((1 2) (3 4) (5 6))
#3A(((1 2) (3 4) (5 6)) ((7 8) (9 10) (11 12)))
EQUALP-OK: #3A(((1 2) (3 4) (5 6)) ((7 8) (9 10) (11 12)))
(MULTIPLE-VALUE-LIST (READ-FROM-STRING "1(123)"))
EQUAL-OK: (1 1)
(READ-FROM-STRING "#0*111")
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: BIT-VECTOR is longer than the explicitly given length 0
EQL-OK: ERROR
(READ-FROM-STRING "#0(1 1 1 )")
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: VECTOR is longer than the explicitly given length 0
EQL-OK: ERROR
(READ-FROM-STRING "#0r111")
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: The base 0 given between # and R should lie between 2 and 36
EQL-OK: ERROR
(READ-FROM-STRING "#1r111")
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: The base 1 given between # and R should lie between 2 and 36
EQL-OK: ERROR
7
EQL-OK: 7
1333
EQL-OK: 1333
(READ-FROM-STRING "#37r111")
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: The base 37 given between # and R should lie between 2 and 36
EQL-OK: ERROR
(READ-FROM-STRING "#011010")
[SIMPLE-END-OF-FILE]: READ: input stream #1=#<INPUT STRING-INPUT-STREAM> ends within read macro beginning with #\#
EQL-OK: ERROR
-1
EQL-OK: -1
-1
EQL-OK: -1
-1
EQL-OK: -1
0
EQL-OK: 0
0
EQL-OK: 0
0
EQL-OK: 0
0
EQL-OK: 0
'|-12./12|
EQL-OK: |-12./12|
'|-0./12|
EQL-OK: |-0./12|
(LIST 1 2 #\a)
EQUAL-OK: (1 2 #\a)
(READ-FROM-STRING "")
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: illegal character #\Escape
EQL-OK: ERROR
(READ-FROM-STRING "abc")
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: illegal character #\Escape
EQL-OK: ERROR
(READ-FROM-STRING "a|bc")
[SIMPLE-END-OF-FILE]: READ: input stream #1=#<INPUT STRING-INPUT-STREAM> ends within a token after multiple escape character
EQL-OK: ERROR
(READ-FROM-STRING "#2(a b c)")
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: VECTOR is longer than the explicitly given length 2
EQL-OK: ERROR
(READ-FROM-STRING "::")
EQL-OK: :||
(READ-FROM-STRING "#2*1010")
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: BIT-VECTOR is longer than the explicitly given length 2
EQL-OK: ERROR
(READ-FROM-STRING "#1#")
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: undefined label #1#
EQL-OK: ERROR
(READ-FROM-STRING "... ")
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: a token consisting only of dots cannot be meaningfully read in
EQL-OK: ERROR
(PROGN (SETQ *READ-BASE* 40) (READ-FROM-STRING "123"))
[SIMPLE-TYPE-ERROR]: The value of *READ-BASE* should be an integer between 2 and 36, not 40.
It has been reset to 10.
EQL-OK: ERROR
*READ-BASE*
EQL-OK: 10
(SETQ *READ-BASE* 10)
EQL-OK: 10
*READ-BASE*
EQL-OK: 10
(PROGN (SETQ *PRINT-BASE* NIL) (PRIN1-TO-STRING *PRINT-BASE*))
[SIMPLE-TYPE-ERROR]: The value of *PRINT-BASE* should be an integer between 2 and 36, not NIL.
It has been reset to 10.
EQL-OK: ERROR
(PROGN (SETQ *PRINT-BASE* 10) T)
EQL-OK: T
*PRINT-BASE*
EQL-OK: 10
(READ-FROM-STRING "#2a((1 2 3)(1 2)")
[SIMPLE-END-OF-FILE]: READ: input stream #1=#<INPUT STRING-INPUT-STREAM> ends within an object
EQL-OK: ERROR
(READ-FROM-STRING "#2a((1 2 3)(1 2))")
[SIMPLE-ERROR]: MAKE-ARRAY: (1 2) is of incorrect length
EQL-OK: ERROR
(READ-FROM-STRING "#2a(1 2 3}")
[SIMPLE-END-OF-FILE]: READ: input stream #1=#<INPUT STRING-INPUT-STREAM> ends within an object
EQL-OK: ERROR
(SETQ *PRINT-LEVEL* T)
EQL-OK: T
*PRINT-LEVEL*
EQL-OK: T
(SETQ *PRINT-LEVEL* NIL)
EQL-OK: NIL
*PRINT-LEVEL*
EQL-OK: NIL
(SETQ *PRINT-LENGTH* T)
EQL-OK: T
*PRINT-LENGTH*
EQL-OK: T
(SETQ *PRINT-LENGTH* NIL)
EQL-OK: NIL
*PRINT-LENGTH*
EQL-OK: NIL
(MAKE-SYNONYM-STREAM 123)
[SIMPLE-TYPE-ERROR]: MAKE-SYNONYM-STREAM: argument should be a symbol, not 123
EQL-OK: ERROR
(PRIN1-TO-STRING (MAKE-SYNONYM-STREAM '*READ-BASE*))
EQUAL-OK: "#<IO SYNONYM-STREAM *READ-BASE*>"
(READ-FROM-STRING "#(1 2 3 .               )")
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: token "." not allowed here
EQL-OK: ERROR
(READ-FROM-STRING "(a .)")
[SIMPLE-READER-ERROR]: READ-DELIMITED-LIST from #1=#<INPUT STRING-INPUT-STREAM>: illegal end of dotted list
EQL-OK: ERROR
(READ-FROM-STRING "(. a)")
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: token "." not allowed here
EQL-OK: ERROR
(MAKE-ECHO-STREAM PI *STANDARD-OUTPUT*)
[SIMPLE-TYPE-ERROR]: MAKE-ECHO-STREAM: argument #1=3.1415926535897932385L0 is not a stream
EQL-OK: ERROR
(MAKE-TWO-WAY-STREAM PI *STANDARD-OUTPUT*)
[SIMPLE-TYPE-ERROR]: MAKE-TWO-WAY-STREAM: argument #1=3.1415926535897932385L0 is not a stream
EQL-OK: ERROR
(MAKE-ECHO-STREAM *STANDARD-INPUT* PI)
[SIMPLE-TYPE-ERROR]: MAKE-ECHO-STREAM: argument #1=3.1415926535897932385L0 is not a stream
EQL-OK: ERROR
(MAKE-TWO-WAY-STREAM *STANDARD-INPUT* PI)
[SIMPLE-TYPE-ERROR]: MAKE-TWO-WAY-STREAM: argument #1=3.1415926535897932385L0 is not a stream
EQL-OK: ERROR
(PROGN (SETQ *READTABLE* T) (READ-FROM-STRING "123"))
[SIMPLE-TYPE-ERROR]: The value of *READTABLE* was not a readtable. It has been reset.
EQL-OK: ERROR
(PROGN (SETQ *READTABLE* (COPY-READTABLE NIL)) T)
EQL-OK: T
(READ-FROM-STRING "#37R")
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: The base 37 given between # and R should lie between 2 and 36
EQL-OK: ERROR
(READ-FROM-STRING "#10rabc")
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: token "ABC" after #r is not a rational number in base 10
EQL-OK: ERROR
(READ-FROM-STRING "#10ra/b")
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: token "A/B" after #r is not a rational number in base 10
EQL-OK: ERROR
(READ-FROM-STRING "#nocontrol-")
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: After #\# is #\n an undefined dispatch macro character
EQL-OK: ERROR
(READ-FROM-STRING "#control-")
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: bad syntax for complex number: #CONTROL-
EQL-OK: ERROR
(SETQ *PRINT-RADIX* T)
EQL-OK: T
(WRITE-TO-STRING 11111.)
EQUAL-OK: "11111."
(SETQ *PRINT-BASE* 2.)
EQL-OK: #b10
(WRITE-TO-STRING #b10101101100111)
EQUAL-OK: "#b10101101100111"
(SETQ *PRINT-BASE* #b1000)
EQL-OK: #o10
(WRITE-TO-STRING #o25547)
EQUAL-OK: "#o25547"
(SETQ *PRINT-BASE* #o20)
EQL-OK: #x10
(WRITE-TO-STRING #x2B67)
EQUAL-OK: "#x2B67"
(SETQ *PRINT-BASE* #x16)
EQL-OK: #22r10
(WRITE-TO-STRING #22r10L1)
EQUAL-OK: "#22r10L1"
(SETQ *PRINT-BASE* #22rA)
EQL-OK: 10.
(SETQ *PRINT-RADIX* NIL)
EQL-OK: NIL
(WRITE-TO-STRING 11111)
EQUAL-OK: "11111"
(SETQ *PRINT-BASE* 2)
EQL-OK: 10
(WRITE-TO-STRING 10101101100111)
EQUAL-OK: "10101101100111"
(SETQ *PRINT-BASE* 1000)
EQL-OK: 10
(WRITE-TO-STRING 25547)
EQUAL-OK: "25547"
(SETQ *PRINT-BASE* 20)
EQL-OK: 10
(WRITE-TO-STRING 2B67)
EQUAL-OK: "2B67"
(SETQ *PRINT-BASE* 16)
EQL-OK: 10
(WRITE-TO-STRING 10L1)
EQUAL-OK: "10L1"
(SETQ *PRINT-BASE* A)
EQL-OK: 10
0.00999998
EQL-OK: 0.00999998
0.009999998
EQL-OK: 0.009999998
0.01
EQL-OK: 0.01
1.23
EQL-OK: 1.23
(PRIN1-TO-STRING 1.23E20)
EQUAL-OK: "1.23E20"
(PRIN1-TO-STRING 1.23E20)
EQUAL-OK: "1.23E20"
(PRIN1-TO-STRING 1.23s20)
EQUAL-OK: "1.23s20"
1.23d20
EQL-OK: 1.23d20
1.23L20
EQUALP-OK: 1.23d20
(PRIN1-TO-STRING 1.2345679E8)
EQUAL-OK: "1.2345679E8"
(PRIN1-TO-STRING 1.2345678E7)
EQUAL-OK: "1.2345678E7"
(PRIN1-TO-STRING 1234567.1)
EQUAL-OK: "1234567.1"
(PRIN1-TO-STRING 123456.125)
EQUAL-OK: "123456.125"
(PRIN1-TO-STRING 12345.123)
EQUAL-OK: "12345.123"
(PRIN1-TO-STRING 1234.1234)
EQUAL-OK: "1234.1234"
123.123
EQL-OK: 123.123
12.12
EQL-OK: 12.12
1.1
EQL-OK: 1.1
(SETQ *READ-DEFAULT-FLOAT-FORMAT* 'SHORT-FLOAT)
EQL-OK: SHORT-FLOAT
1.23
EQL-OK: 1.23
(PRIN1-TO-STRING 1.23E20)
EQUAL-OK: "1.23E20"
(PRIN1-TO-STRING 1.23f20)
EQUAL-OK: "1.23f20"
(PRIN1-TO-STRING 1.23E20)
EQUAL-OK: "1.23E20"
1.23d20
EQL-OK: 1.23d20
1.23L20
EQUALP-OK: 1.23d20
(PRIN1-TO-STRING 1.23457E8)
EQUAL-OK: "1.23457E8"
(PRIN1-TO-STRING 1.23457E7)
EQUAL-OK: "1.23457E7"
(PRIN1-TO-STRING 1234560.0)
EQUAL-OK: "1234560.0"
(PRIN1-TO-STRING 123456.0)
EQUAL-OK: "123456.0"
(PRIN1-TO-STRING 12345.1)
EQUAL-OK: "12345.1"
(PRIN1-TO-STRING 1234.13)
EQUAL-OK: "1234.13"
(PRIN1-TO-STRING 123.123)
EQUAL-OK: "123.123"
12.12
EQL-OK: 12.12
1.1
EQL-OK: 1.1
(SETQ *READ-DEFAULT-FLOAT-FORMAT* 'DOUBLE-FLOAT)
EQL-OK: DOUBLE-FLOAT
1.23
EQL-OK: 1.23
1.23E20
EQL-OK: 1.23E20
(PRIN1-TO-STRING 1.23f20)
EQUAL-OK: "1.23f20"
(PRIN1-TO-STRING 1.23s20)
EQUAL-OK: "1.23s20"
1.23E20
EQL-OK: 1.23E20
1.23L20
EQUALP-OK: 1.23E20
(PRIN1-TO-STRING 1.2345678912345679E8)
EQUAL-OK: "1.2345678912345679E8"
1.234567812345678E7
EQL-OK: 1.234567812345678E7
1234567.1234567
EQL-OK: 1234567.1234567
123456.123456
EQL-OK: 123456.123456
12345.12345
EQL-OK: 12345.12345
1234.1234
EQL-OK: 1234.1234
123.123
EQL-OK: 123.123
12.12
EQL-OK: 12.12
1.1
EQL-OK: 1.1
(SETQ *READ-DEFAULT-FLOAT-FORMAT* 'LONG-FLOAT)
EQL-OK: LONG-FLOAT
1.23
EQL-OK: 1.23
1.23E20
EQL-OK: 1.23E20
(PRIN1-TO-STRING 1.23f20)
EQUAL-OK: "1.23f20"
(PRIN1-TO-STRING 1.23s20)
EQUAL-OK: "1.23s20"
1.23d20
EQL-OK: 1.23d20
1.23E20
EQL-OK: 1.23E20
(PRIN1-TO-STRING 1.23456789123456789E8)
EQUAL-OK: "1.23456789123456789E8"
1.234567812345678E7
EQL-OK: 1.234567812345678E7
1234567.1234567
EQL-OK: 1234567.1234567
123456.123456
EQL-OK: 123456.123456
12345.12345
EQL-OK: 12345.12345
1234.1234
EQL-OK: 1234.1234
123.123
EQL-OK: 123.123
12.12
EQL-OK: 12.12
1.1
EQL-OK: 1.1
(SETQ *READ-DEFAULT-FLOAT-FORMAT* 'SINGLE-FLOAT)
EQL-OK: SINGLE-FLOAT
(WRITE-TO-STRING 'ABCDE)
EQUAL-OK: "ABCDE"
(WRITE-TO-STRING 'ABCDE-EFGHIJ)
EQUAL-OK: "ABCDE-EFGHIJ"
(WRITE-TO-STRING 'ABCDE1EFGHIJ)
EQUAL-OK: "ABCDE1EFGHIJ"
(WRITE-TO-STRING 'ABCDE-1EFGH)
EQUAL-OK: "ABCDE-1EFGH"
(SETQ *PRINT-CASE* :DOWNCASE)
EQL-OK: :downcase
(write-to-string 'abcde)
EQUAL-OK: "abcde"
(write-to-string 'abcde-efghij)
EQUAL-OK: "abcde-efghij"
(write-to-string 'abcde1efghij)
EQUAL-OK: "abcde1efghij"
(write-to-string 'abcde-1efgh)
EQUAL-OK: "abcde-1efgh"
(setq *print-case* :capitalize)
EQL-OK: :Capitalize
(Write-To-String 'Abcde)
EQUAL-OK: "Abcde"
(Write-To-String 'Abcde-Efghij)
EQUAL-OK: "Abcde-Efghij"
(Write-To-String 'Abcde1efghij)
EQUAL-OK: "Abcde1efghij"
(Write-To-String 'Abcde-1efgh)
EQUAL-OK: "Abcde-1efgh"
(Setq *Print-Case* :Upcase)
EQL-OK: :UPCASE
(LET ((*GENSYM-COUNTER* 1234)) (SYMBOL-NAME (GENSYM "TEST")))
EQUAL-OK: "TEST1234"
(LET ((*PRINT-GENSYM* T) (G (GENSYM 7))) (LIST (PRINC-TO-STRING G) (PRIN1-TO-STRING G)))
EQUAL-OK: ("G7" "#:G7")
(LET ((*PRINT-GENSYM* NIL) (G (GENSYM 20))) (LIST (PRINC-TO-STRING G) (PRIN1-TO-STRING G)))
EQUAL-OK: ("G20" "G20")
(WRITE-TO-STRING NIL)
EQUAL-OK: "NIL"
(WRITE-TO-STRING '(A B NIL C))
EQUAL-OK: "(A B NIL C)"
(WRITE-TO-STRING '(A B (NIL) C))
EQUAL-OK: "(A B (NIL) C)"
(WRITE-TO-STRING '(A B (NIL C) D))
EQUAL-OK: "(A B (NIL C) D)"
(WRITE-TO-STRING '#(A B NIL C (A B NIL C) (NIL)))
EQUAL-OK: "#(A B NIL C (A B NIL C) (NIL))"
(SETQ *PRINT-PRETTY* T)
EQL-OK: T
(WRITE-TO-STRING NIL)
EQUAL-OK: "NIL"
(WRITE-TO-STRING '(A B NIL C))
EQUAL-OK: "(A B NIL C)"
(WRITE-TO-STRING '(A B (NIL) C))
EQUAL-OK: "(A B (NIL) C)"
(WRITE-TO-STRING '(A B (NIL C) D))
EQUAL-OK: "(A B (NIL C) D)"
(WRITE-TO-STRING '#(A B NIL C (A B NIL C) (NIL)))
EQUAL-OK: "#(A B NIL C (A B NIL C) (NIL))"
(SETQ *PRINT-PRETTY* NIL)
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#o33"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#x1b"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#b11011"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#.(* 3 3 3)"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "(a . b)"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "(a.b)"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "(a. b)"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "(a . b c)"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "(a |.| b c)"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "(a ... b c)"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "(a |...| b c)"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "(a b . c)"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING ".ab"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "(. b)"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "(a .. b)"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "(a . . 'b   )"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "(a b c ...)"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (MULTIPLE-VALUE-LIST (READ-FROM-STRING "#\\control-meta-a")))
EQUAL-OK: (NIL 16)
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#\\control-meta-\\a"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#\\linefeed"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#\\newline"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#\\space"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#\\rubout"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#\\page"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#\\tab"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#\\backspace"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#\\return"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#\\control-space"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#\\c-m-return"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#\\control-meta-tab"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#\\h-s-m-c-rubout"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#\\control-%"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#\\control-\""))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#\\meta->"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "xx:xx"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "xx::xx"))
EQL-OK: NIL
(SETQ *PRINT-LEVEL* 10)
EQL-OK: 10
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "(#1=(a b #1#))"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "(#1=(#1#))"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "(#1=(a b #1#) (c d #1#))"))
EQL-OK: NIL
(SETQ *PRINT-LEVEL* NIL)
EQL-OK: NIL
(SETQ *PRINT-LENGTH* 11)
EQL-OK: 11
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#1=(a b . #1#)"))
EQL-OK: NIL
(SETQ *PRINT-LENGTH* NIL)
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#0a7"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#1a(1 2 3 4 5 6 7 8)"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#2a((1 2 3)(3 2 1))"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#3a(((1 2 3 ) (4 5 6))
                                                          ((1 2 3 ) (4 5 6)))"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#a7"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#2a((1 2)(3 4)(5 6))"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#3a(((1 2)(3 4)(5 6))
                                                          ((7 8)(9 10)(11 12)))"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#0*111"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#0(1 1 1 )"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#0r111"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#1r111"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#2r111"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#36r111"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#37r111"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#2(a b c)"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#2*1010"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#1#"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#(1 2 3 .               )"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "(a .)"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "(. a)"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#37R"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#10rabc"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#10ra/b"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#\\nocontrol-"))
EQL-OK: NIL
(LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#\\control-"))
EQL-OK: NIL
(READ-FROM-STRING "#\\break")
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: there is no character with name "bREAK"
EQL-OK: ERROR
(READ-FROM-STRING "#\\home-up")
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: there is no character with name "hOME-UP"
EQL-OK: ERROR
(READ-FROM-STRING "#\\escape")
EQL-OK: #\Escape
NIL
EQL-OK: NIL
NIL
EQL-OK: NIL
(READ-FROM-STRING "#c(pi 0)")
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: bad syntax for complex number: #C(PI 0)
EQL-OK: ERROR
(READ-FROM-STRING "#c(0 pi)")
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: bad syntax for complex number: #C(0 PI)
EQL-OK: ERROR
(SETQ *READTABLE* (COPY-READTABLE NIL) *PRINT-BASE* 10 *PRINT-CASE* :UPCASE *PRINT-CIRCLE* NIL *PRINT-ESCAPE* T *PRINT-GENSYM* T *PRINT-LENGTH* NIL *PRINT-LEVEL* NIL *PRINT-LINES* NIL *PRINT-RADIX* NIL *READ-BASE* 10)
EQL-OK: 10
RUN-TEST: finished "tread" (0 errors out of 395 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"type.tst" @1>
(TYPEP 'A 'SYMBOL)
EQL-OK: T
(TYPEP 'NIL 'SYMBOL)
EQL-OK: T
(TYPEP '(NIL) 'SYMBOL)
EQL-OK: NIL
(TYPEP 3 'INTEGER)
EQL-OK: T
(TYPEP 3 '(INTEGER 0 4))
EQL-OK: T
(TYPEP 3 '(INTEGER 0 3))
EQL-OK: T
(TYPEP 3 '(INTEGER 0 2))
EQL-OK: NIL
(TYPEP 3 '(FLOAT 0.0 2.0))
EQL-OK: NIL
(TYPEP 3 '(FLOAT 0.0 2.0))
EQL-OK: NIL
(TYPEP 3 '(FLOAT 0.0 4.0))
EQL-OK: NIL
(TYPEP 3.2 '(FLOAT 0.0 4.0))
EQL-OK: T
(TYPEP 3.2 '(FLOAT 0.0 3.2))
EQL-OK: T
(TYPEP 3.2 '(FLOAT 0.0 (3.2)))
EQL-OK: NIL
(TYPEP 3.2 '(SHORT-FLOAT 0.0s0 3.2s0))
EQL-OK: NIL
(TYPEP 3.2 '(SINGLE-FLOAT 0.0 3.2))
EQL-OK: T
(TYPEP 3.2 '(DOUBLE-FLOAT 0.0d0 3.2d0))
EQL-OK: NIL
(TYPEP 3.2 '(DOUBLE-FLOAT 0.0d0 3.2d0))
EQL-OK: NIL
(TYPEP 3.2 '(DOUBLE-FLOAT 0.0d0 3.2d0))
EQL-OK: NIL
(TYPEP 3.2s0 '(DOUBLE-FLOAT 0.0d0 3.2d0))
EQL-OK: NIL
(TYPEP 3.2 '(DOUBLE-FLOAT 0.0d0 3.2d0))
EQL-OK: NIL
(TYPEP 3.2 '(FLOAT 0.0 3.2))
EQL-OK: T
(TYPEP 3.2s0 '(FLOAT 0.0s0 3.2s0))
EQL-OK: T
(TYPEP 2.0s0 '(SHORT-FLOAT 0.0s0 3.0s0))
EQL-OK: T
(TYPEP 2.0s0 '(SINGLE-FLOAT 0.0 3.0))
EQL-OK: NIL
(TYPEP 2.0 '(SINGLE-FLOAT 0.0 3.0))
EQL-OK: T
(TYPEP 2.0d0 '(DOUBLE-FLOAT 0.0d0 3.0d0))
EQL-OK: T
(TYPEP 3.0d0 '(DOUBLE-FLOAT 0.0d0 3.0d0))
EQL-OK: T
(TYPEP 3.0d0 '(DOUBLE-FLOAT 0.0d0 (3.0d0)))
EQL-OK: NIL
(TYPEP 4 '(MOD 4))
EQL-OK: NIL
(TYPEP 4 '(MOD 5))
EQL-OK: T
(TYPEP 4 '(RATIONAL 2 5))
EQL-OK: T
(TYPEP 4 '(RATIONAL 2 7/2))
EQL-OK: NIL
(TYPEP 4 '(RATIONAL 2 9/2))
EQL-OK: T
(TYPEP 4 '(RATIONAL 2 4))
EQL-OK: T
(TYPEP 4/3 '(RATIONAL 2 4))
EQL-OK: NIL
(TYPEP 2 '(RATIONAL 2 4))
EQL-OK: T
(TYPEP "abcd" 'STRING)
EQL-OK: T
(TYPEP "abcd" '(STRING 4))
EQL-OK: T
(TYPEP "abcd" '(STRING 43))
EQL-OK: NIL
(TYPEP '#(2 3) '(COMPLEX INTEGER))
EQL-OK: NIL
(TYPEP '#(2 3) 'COMPLEX)
EQL-OK: NIL
(TYPEP #C(2 3) 'COMPLEX)
EQL-OK: T
(TYPEP #C(2 3) '(COMPLEX INTEGER))
EQL-OK: T
(TYPEP #C(2.2 3) '(COMPLEX FLOAT))
EQL-OK: NIL
(TYPEP #C(2 3) '(COMPLEX SYMBOL))
[SIMPLE-ERROR]: UPGRADED-COMPLEX-PART-TYPE: type SYMBOL is not a subtype of REAL
EQL-OK: ERROR
(TYPEP '#(A B C D) 'VECTOR)
EQL-OK: T
(TYPEP '#(A B C D) '(VECTOR * 4))
EQL-OK: T
(TYPEP #C(0 1) '(COMPLEX (EQL 0)))
EQL-OK: NIL
(TYPEP 'A '(SYMBOL CONS))
[SIMPLE-ERROR]: TYPEP: invalid type specification (SYMBOL CONS)
EQL-OK: ERROR
(TYPEP 'A '(OR CONS SYMBOL))
EQL-OK: T
(TYPEP 'A '(OR CONS NUMBER))
EQL-OK: NIL
(TYPEP 'A '(OR ATOM NUMBER))
EQL-OK: T
(TYPEP 'A '(AND ATOM NUMBER))
EQL-OK: NIL
(TYPEP '2 '(AND ATOM NUMBER))
EQL-OK: T
(NOT (NOT (TYPEP '2 '(MEMBER 1 2 3))))
EQL-OK: T
(NOT (NOT (TYPEP '2 '(MEMBER 1 3))))
EQL-OK: NIL
(TYPEP '2 '(NOT (MEMBER 1 3)))
EQL-OK: T
(TYPEP '2 '(NOT (MEMBER 1 2 3)))
EQL-OK: NIL
(TYPEP 2 '(AND NUMBER (NOT SYMBOL)))
EQL-OK: T
(TYPEP 2 '(AND STRING (NOT SYMBOL)))
EQL-OK: NIL
(TYPEP 2 '(OR STRING (NOT SYMBOL)))
EQL-OK: T
(TYPEP 'CONS 'FUNCTION)
EQL-OK: NIL
(TYPEP 'CONS '(SATISFIES FUNCTIONP))
EQL-OK: NIL
(TYPEP 'CONS '(SATISFIES NOT))
EQL-OK: NIL
(TYPEP 'NIL '(SATISFIES NOT))
EQL-OK: T
(TYPEP 'NIL NIL)
EQL-OK: NIL
(TYPEP 'T NIL)
EQL-OK: NIL
(SUBTYPEP 'CONS T)
EQL-OK: T
(SUBTYPEP NIL 'CONS)
EQL-OK: T
(SUBTYPEP 'CONS 'LIST)
EQL-OK: T
(SUBTYPEP 'CONS '(OR ATOM CONS))
EQL-OK: T
(SUBTYPEP 'CONS '(AND ATOM CONS))
EQL-OK: NIL
(SUBTYPEP 'CONS '(NOT ATOM))
EQL-OK: T
(SUBTYPEP 'LIST '(NOT ATOM))
EQL-OK: NIL
(SUBTYPEP '(INTEGER 1 5) '(INTEGER 0 7))
EQL-OK: T
(SUBTYPEP '(INTEGER 1 5) '(INTEGER 0 (5)))
EQL-OK: NIL
(SUBTYPEP '(INTEGER 1 5) '(INTEGER 0 5))
EQL-OK: T
(SUBTYPEP '(INTEGER 1 5) '(MOD 5))
EQL-OK: NIL
(SUBTYPEP '(INTEGER 1 (5)) '(MOD 5))
EQL-OK: T
(SUBTYPEP '(OR (INTEGER 1 (5) FLOAT)) '(OR FLOAT (MOD 5)))
[SIMPLE-ERROR]: SUBTYPEP: invalid type specification (INTEGER 1 (5) FLOAT)
EQL-OK: ERROR
(SUBTYPEP '(OR (INTEGER 1 (5)) FLOAT) '(OR FLOAT (MOD 5)))
EQL-OK: T
(SUBTYPEP '(AND NUMBER (FLOAT 1.0 (5.0))) '(OR FLOAT (MOD 5)))
EQL-OK: T
(SUBTYPEP '(AND NUMBER (NOT (FLOAT 1.0 (5.0)))) '(OR FLOAT (MOD 5)))
EQL-OK: NIL
(SUBTYPEP '(AND FLOAT (NOT (FLOAT 1.0 (5.0)))) '(OR FLOAT (MOD 5)))
EQL-OK: T
(SUBTYPEP '(AND FLOAT (NOT (FLOAT 1.0 (5.0)))) '(OR (FLOAT * 1.0) (FLOAT * 5.0)))
EQL-OK: NIL
(SUBTYPEP '(SATISFIES CONSP) 'LIST)
EQL-OK: NIL
(SUBTYPEP 'SIMPLE-STRING 'ARRAY)
EQL-OK: T
(DEFTYPE MOD1 (N) `(AND NUMBER (FLOAT 0.0 (,N))))
EQL-OK: MOD1
(TYPEP 4.1 '(MOD1 5.0))
EQL-OK: T
(TYPEP 4.1 '(MOD1 4.1))
EQL-OK: NIL
(SUBTYPEP '(FLOAT 2.3 6.7) '(MOD1 6.8))
EQL-OK: T
(SUBTYPEP '(FLOAT 2.3 6.7) '(MOD1 6.7))
EQL-OK: NIL
(DEFUN BELIEBIGER-TEST (A) (MEMBER A '(U I V X)))
EQL-OK: BELIEBIGER-TEST
(NOT (NULL (TYPEP 'U '(SATISFIES BELIEBIGER-TEST))))
EQL-OK: T
(TYPEP 'A '(SATISFIES BELIEBIGER-TEST))
EQL-OK: NIL
(SUBTYPEP '(MEMBER U I) '(SATISFIES BELIEBIGER-TEST))
EQL-OK: T
(SUBTYPEP '(OR (MEMBER U I)) '(SATISFIES BELIEBIGER-TEST))
EQL-OK: T
(SUBTYPEP '(OR (MEMBER U I A)) '(SATISFIES BELIEBIGER-TEST))
EQL-OK: NIL
(SUBTYPEP '(SATISFIES BELIEBIGER-TEST) '(MEMBER U I V X Y))
EQL-OK: NIL
(DEFTYPE BELIEBIGER-TYP NIL '(SATISFIES BELIEBIGER-TEST))
EQL-OK: BELIEBIGER-TYP
(NOT (NULL (TYPEP 'U 'BELIEBIGER-TYP)))
EQL-OK: T
(TYPEP 'A 'BELIEBIGER-TYP)
EQL-OK: NIL
(SUBTYPEP '(MEMBER U I) 'BELIEBIGER-TYP)
EQL-OK: T
(SUBTYPEP 'BELIEBIGER-TYP '(MEMBER U I V X Y))
EQL-OK: NIL
(SUBTYPEP NIL 'FIXNUM)
EQL-OK: T
(SUBTYPEP 'SHORT-FLOAT 'FLOAT)
EQL-OK: T
(SUBTYPEP 'SINGLE-FLOAT 'FLOAT)
EQL-OK: T
(SUBTYPEP 'DOUBLE-FLOAT 'FLOAT)
EQL-OK: T
(SUBTYPEP 'LONG-FLOAT 'FLOAT)
EQL-OK: T
(SUBTYPEP 'NULL 'SYMBOL)
EQL-OK: T
(SUBTYPEP 'NULL 'LIST)
EQL-OK: T
(SUBTYPEP 'CONS 'LIST)
EQL-OK: T
(SUBTYPEP 'STANDARD-CHAR 'STRING-CHAR)
EQL-OK: T
(SUBTYPEP 'STRING-CHAR 'CHARACTER)
EQL-OK: T
(SUBTYPEP 'STRING 'VECTOR)
EQL-OK: T
(SUBTYPEP 'BIT-VECTOR 'VECTOR)
EQL-OK: T
(SUBTYPEP 'VECTOR 'ARRAY)
EQL-OK: T
(SUBTYPEP 'SIMPLE-ARRAY 'ARRAY)
EQL-OK: T
(SUBTYPEP 'SIMPLE-VECTOR 'SIMPLE-ARRAY)
EQL-OK: T
(SUBTYPEP 'SIMPLE-VECTOR 'VECTOR)
EQL-OK: T
(SUBTYPEP 'SIMPLE-STRING 'SIMPLE-ARRAY)
EQL-OK: T
(SUBTYPEP 'SIMPLE-BIT-VECTOR 'SIMPLE-ARRAY)
EQL-OK: T
(SUBTYPEP 'SIMPLE-STRING 'STRING)
EQL-OK: T
(SUBTYPEP 'SIMPLE-STRING 'VECTOR)
EQL-OK: T
(SUBTYPEP 'SIMPLE-STRING 'SIMPLE-VECTOR)
EQL-OK: NIL
(SUBTYPEP 'SIMPLE-BIT-VECTOR 'BIT-VECTOR)
EQL-OK: T
(SUBTYPEP 'BIT-VECTOR 'VECTOR)
EQL-OK: T
(SUBTYPEP 'SIMPLE-BIT-VECTOR 'SIMPLE-VECTOR)
EQL-OK: NIL
(SUBTYPEP 'UNSIGNED-BYTE 'INTEGER)
EQL-OK: T
(SUBTYPEP 'SIGNED-BYTE 'INTEGER)
EQL-OK: T
(SUBTYPEP 'INTEGER '*)
[SIMPLE-ERROR]: SUBTYPEP: invalid type specification *
EQL-OK: ERROR
(TYPE-OF (COERCE '(1 2 3 4) '(SIMPLE-ARRAY (UNSIGNED-BYTE 8))))
EQUAL-OK: (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (4))
(TYPE-OF (COERCE '(1 2 3 4) '(SIMPLE-ARRAY *)))
EQUAL-OK: (SIMPLE-VECTOR 4)
(TYPE-OF (COERCE '(1 2 3 4) '(SIMPLE-ARRAY * (4))))
EQUAL-OK: (SIMPLE-VECTOR 4)
(MULTIPLE-VALUE-LIST (SUBTYPEP 'ATOM 'CONS))
EQUAL-OK: (NIL T)
(MULTIPLE-VALUE-LIST (SUBTYPEP 'ATOM 'LIST))
EQUAL-OK: (NIL T)
(MULTIPLE-VALUE-LIST (SUBTYPEP 'CONS 'ATOM))
EQUAL-OK: (NIL T)
(MULTIPLE-VALUE-LIST (SUBTYPEP 'LIST 'ATOM))
EQUAL-OK: (NIL T)
(MULTIPLE-VALUE-LIST (SUBTYPEP 'STREAM 'ATOM))
EQUAL-OK: (T T)
(MULTIPLE-VALUE-LIST (SUBTYPEP 'STRING 'ATOM))
EQUAL-OK: (T T)
(MULTIPLE-VALUE-LIST (SUBTYPEP 'VECTOR 'ATOM))
EQUAL-OK: (T T)
(MULTIPLE-VALUE-LIST (SUBTYPEP NIL NIL))
EQUAL-OK: (T T)
(MULTIPLE-VALUE-LIST (SUBTYPEP 'EXTENDED-CHAR 'CHARACTER))
EQUAL-OK: (T T)
(MULTIPLE-VALUE-LIST (SUBTYPEP 'ATOM '(OR CONS (SATISFIES UNKNOWN))))
EQUAL-OK: (NIL NIL)
(MULTIPLE-VALUE-LIST (SUBTYPEP '(VECTOR NIL) 'STRING))
EQUAL-OK: (T T)
(MULTIPLE-VALUE-LIST (SUBTYPEP '(AND (NOT BOOLEAN) STANDARD-CHAR) 'STANDARD-CHAR))
EQUAL-OK: (T T)
(LET ((X 1)) (CTYPECASE X (T 'A)))
EQL-OK: A
(LET ((X 1)) (ETYPECASE X (T 'A)))
EQL-OK: A
(MULTIPLE-VALUE-LIST (SUBTYPEP '(AND CONS (NOT (EQL 0))) 'CONS))
EQUAL-OK: (T T)
(MULTIPLE-VALUE-LIST (SUBTYPEP '(INTEGER 1 2) '(REAL 1 2)))
EQUAL-OK: (T T)
(MULTIPLE-VALUE-LIST (SUBTYPEP '(INTEGER 1 2) '(REAL (1) 2)))
EQUAL-OK: (NIL T)
(MULTIPLE-VALUE-LIST (SUBTYPEP '(MOD 10) '(OR (MOD 10) (MOD 10))))
EQUAL-OK: (T T)
(DEFUN TYPEOF-TYPEP-SUBTYPE (X Y) (LIST (TYPE-OF X) (TYPEP X Y) (SUBTYPEP (TYPE-OF X) Y)))
EQL-OK: TYPEOF-TYPEP-SUBTYPE
(TYPEOF-TYPEP-SUBTYPE #\Space 'STANDARD-CHAR)
EQUAL-OK: (STANDARD-CHAR T T)
(TYPEOF-TYPEP-SUBTYPE #\Return 'STANDARD-CHAR)
EQUAL-OK: (BASE-CHAR NIL NIL)
(TYPEOF-TYPEP-SUBTYPE (SYMBOL-FUNCTION 'LET) 'COMPILED-FUNCTION)
EQUAL-OK: (SPECIAL-OPERATOR NIL NIL)
(TYPEOF-TYPEP-SUBTYPE (SYMBOL-FUNCTION 'LET) 'FUNCTION)
EQUAL-OK: (SPECIAL-OPERATOR NIL NIL)
(TYPEOF-TYPEP-SUBTYPE #'CAR 'COMPILED-FUNCTION)
EQUAL-OK: (COMPILED-FUNCTION T T)
(TYPEOF-TYPEP-SUBTYPE #'CAR 'FUNCTION)
EQUAL-OK: (COMPILED-FUNCTION T T)
(TYPEOF-TYPEP-SUBTYPE #'CAR 'GENERIC-FUNCTION)
EQUAL-OK: (COMPILED-FUNCTION NIL NIL)
(TYPEOF-TYPEP-SUBTYPE #'COMPILE 'COMPILED-FUNCTION)
EQUAL-OK: (COMPILED-FUNCTION T T)
(TYPEOF-TYPEP-SUBTYPE #'COMPILE 'FUNCTION)
EQUAL-OK: (COMPILED-FUNCTION T T)
(TYPEOF-TYPEP-SUBTYPE #'COMPILE 'GENERIC-FUNCTION)
EQUAL-OK: (COMPILED-FUNCTION NIL NIL)
(TYPEOF-TYPEP-SUBTYPE #'PRINT-OBJECT 'COMPILED-FUNCTION)
EQUAL-OK: (STANDARD-GENERIC-FUNCTION NIL NIL)
(TYPEOF-TYPEP-SUBTYPE #'PRINT-OBJECT 'FUNCTION)
EQUAL-OK: (STANDARD-GENERIC-FUNCTION T T)
(TYPEOF-TYPEP-SUBTYPE #'PRINT-OBJECT 'GENERIC-FUNCTION)
EQUAL-OK: (STANDARD-GENERIC-FUNCTION T T)
(TYPEOF-TYPEP-SUBTYPE #'PRINT-OBJECT 'STANDARD-GENERIC-FUNCTION)
EQUAL-OK: (STANDARD-GENERIC-FUNCTION T T)
(TYPEOF-TYPEP-SUBTYPE (MAKE-ARRAY 0 :ELEMENT-TYPE NIL) 'STRING)
EQUAL-OK: ((SIMPLE-ARRAY NIL (0)) T T)
(TYPEOF-TYPEP-SUBTYPE (MAKE-ARRAY 0 :ELEMENT-TYPE NIL) '(VECTOR NIL))
EQUAL-OK: ((SIMPLE-ARRAY NIL (0)) T T)
(SUBTYPEP '(MEMBER 0 1 2) '(MOD 3))
EQL-OK: T
(SUBTYPEP '(MOD 3) '(MEMBER 0 1 2))
EQL-OK: T
(SUBTYPEP '(MEMBER 0 1 2 4 8) '(MOD 3))
EQL-OK: NIL
(SUBTYPEP '(MOD 3) '(MEMBER 0 1 2 4 8))
EQL-OK: T
(SUBTYPEP '(OR (INTEGER 0 999) (INTEGER 1001 2000)) '(AND (INTEGER 0 2000) (NOT (EQL 1000))))
EQL-OK: T
(SUBTYPEP '(AND (INTEGER 0 2000) (NOT (EQL 1000))) '(OR (INTEGER 0 999) (INTEGER 1001 2000)))
EQL-OK: T
(SUBTYPEP '(OR (INTEGER 0 1000) (INTEGER 1001 3000)) '(OR (INTEGER 0 2000) (INTEGER 2001 3000)))
EQL-OK: T
(SUBTYPEP 'COMPLEX '(COMPLEX * *))
EQL-OK: T
(SUBTYPEP '(COMPLEX * *) 'COMPLEX)
EQL-OK: T
(SUBTYPEP 'COMPLEX '(COMPLEX REAL REAL))
EQL-OK: T
(SUBTYPEP '(COMPLEX REAL REAL) 'COMPLEX)
EQL-OK: T
(SUBTYPEP '(COMPLEX * *) '(COMPLEX REAL REAL))
EQL-OK: T
(SUBTYPEP '(COMPLEX REAL REAL) '(COMPLEX * *))
EQL-OK: T
(SUBTYPEP '(COMPLEX NIL NIL) 'NIL)
EQL-OK: T
(MULTIPLE-VALUE-LIST (SUBTYPEP '(NOT INTEGER) '(OR NUMBER (SATISFIES ANYTHING))))
EQUAL-OK: (NIL NIL)
(MULTIPLE-VALUE-LIST (SUBTYPEP '(AND SYMBOL NUMBER) 'NIL))
EQUAL-OK: (T T)
(MULTIPLE-VALUE-LIST (SUBTYPEP '(ARRAY T (2 5)) '(OR (ARRAY T (2 3 4)) (ARRAY T (2 4)))))
EQUAL-OK: (NIL T)
(MULTIPLE-VALUE-LIST (SUBTYPEP '(ARRAY T (2 5)) '(NOT (OR (ARRAY T (2 3 4)) (ARRAY T (2 5))))))
EQUAL-OK: (NIL T)
(MULTIPLE-VALUE-LIST (SUBTYPEP '(ARRAY T (2 5)) '(NOT (OR (ARRAY T (2 3 4)) (ARRAY T (2 4))))))
EQUAL-OK: (T T)
(MULTIPLE-VALUE-LIST (SUBTYPEP '(AND (RATIONAL 2/3 1) RATIO) '(AND (RATIONAL 4/5 1) RATIO)))
EQUAL-OK: (NIL T)
(MULTIPLE-VALUE-LIST (SUBTYPEP '(RATIONAL 4/5 1) '(OR (MEMBER 1) (RATIONAL 2/3 (1)))))
EQUAL-OK: (T T)
(LET ((L '(ARRAY BASE-CHAR BASE-STRING BIT-VECTOR BOOLEAN CHARACTER COMPLEX CONS FLOAT FUNCTION GENERIC-FUNCTION HASH-TABLE INTEGER LIST NULL NUMBER PACKAGE PATHNAME LOGICAL-PATHNAME RANDOM-STATE RATIONAL READTABLE REAL SEQUENCE STANDARD-GENERIC-FUNCTION STREAM STRING SYMBOL VECTOR)) (FAILURES 'NIL)) (DOLIST (A L) (DOLIST (B L) (UNLESS (OR (SUBTYPEP A B) (SUBTYPEP B A)) (LET ((CONTAINS-NULL (AND (MEMBER A '(BOOLEAN LIST NULL SEQUENCE SYMBOL)) (MEMBER B '(BOOLEAN LIST NULL SEQUENCE SYMBOL)))) (CONTAINS-VECTOR (AND (MEMBER A '(ARRAY VECTOR SEQUENCE)) (MEMBER B '(ARRAY VECTOR SEQUENCE))))) (UNLESS (IF CONTAINS-NULL (AND (EQUAL (MULTIPLE-VALUE-LIST (SUBTYPEP `(AND ,A ,B) 'NIL)) '(NIL T)) (EQUAL (MULTIPLE-VALUE-LIST (SUBTYPEP `(AND ,A ,B) 'NULL)) '(T T))) (IF CONTAINS-VECTOR (AND (EQUAL (MULTIPLE-VALUE-LIST (SUBTYPEP `(AND ,A ,B) 'NIL)) '(NIL T)) (EQUAL (MULTIPLE-VALUE-LIST (SUBTYPEP `(AND ,A ,B) 'VECTOR)) '(T T))) (EQUAL (MULTIPLE-VALUE-LIST (SUBTYPEP `(AND ,A ,B) 'NIL)) '(T T)))) (PUSH (LIST A B) FAILURES)))))) FAILURES)
EQUAL-OK: ((STREAM STANDARD-GENERIC-FUNCTION) (STREAM GENERIC-FUNCTION) (STREAM FUNCTION) (STANDARD-GENERIC-FUNCTION STREAM) (GENERIC-FUNCTION STREAM) #'STREAM)
(UNINTERN 'BAR)
EQL-OK: T
(UNINTERN 'FOO)
EQL-OK: T
(PROGN (SETQ *DISJOINT-TYPES-LIST* '(CONS SYMBOL ARRAY NUMBER CHARACTER HASH-TABLE FUNCTION READTABLE PACKAGE PATHNAME STREAM RANDOM-STATE CONDITION RESTART)) (DEFCLASS BAR NIL NIL) (DEFSTRUCT FOO))
EQL-OK: FOO
(LOOP FOR TYPE IN *DISJOINT-TYPES-LIST* UNLESS (AND (EQUAL (MULTIPLE-VALUE-LIST (SUBTYPEP TYPE 'BAR)) '(NIL T)) (EQUAL (MULTIPLE-VALUE-LIST (SUBTYPEP 'BAR TYPE)) '(NIL T))) COLLECT TYPE)
EQL-OK: NIL
(LOOP FOR TYPE IN *DISJOINT-TYPES-LIST* UNLESS (AND (EQUAL (MULTIPLE-VALUE-LIST (SUBTYPEP TYPE 'FOO)) '(NIL T)) (EQUAL (MULTIPLE-VALUE-LIST (SUBTYPEP 'FOO TYPE)) '(NIL T))) COLLECT TYPE)
EQL-OK: NIL
(MULTIPLE-VALUE-LIST (SUBTYPEP '(FUNCTION (T T) CONS) 'FUNCTION))
EQUAL-OK: (T T)
(MULTIPLE-VALUE-LIST (SUBTYPEP 'FUNCTION '(FUNCTION (T T) CONS)))
EQUAL-OK: (NIL NIL)
(MULTIPLE-VALUE-LIST (SUBTYPEP '(FUNCTION (INTEGER INTEGER) CONS) '(FUNCTION (T T) CONS)))
EQUAL-OK: (NIL NIL)
(MULTIPLE-VALUE-LIST (SUBTYPEP '(FUNCTION (T T) CONS) '(FUNCTION (INTEGER INTEGER) CONS)))
EQUAL-OK: (NIL NIL)
(MULTIPLE-VALUE-LIST (SUBTYPEP '(EQL #<SYSTEM-FUNCTION CONS>) '(FUNCTION (INTEGER INTEGER) CONS)))
EQUAL-OK: (NIL NIL)
(MULTIPLE-VALUE-LIST (SUBTYPEP '(AND (EQL #<SYSTEM-FUNCTION CONS>) INTEGER) 'CHARACTER))
EQUAL-OK: (T T)
(MULTIPLE-VALUE-LIST (SUBTYPEP '(AND (EQL #<SYSTEM-FUNCTION CONS>) (FUNCTION (T T) CONS)) 'CHARACTER))
EQUAL-OK: (NIL NIL)
(MULTIPLE-VALUE-LIST (SUBTYPEP '(AND (EQL #<SYSTEM-FUNCTION CONS>) FUNCTION) 'CHARACTER))
EQUAL-OK: (NIL T)
(MULTIPLE-VALUE-LIST (SUBTYPEP '(AND (EQL #<SYSTEM-FUNCTION CONS>) INTEGER) '(FUNCTION (INTEGER INTEGER) CONS)))
EQUAL-OK: (T T)
(MULTIPLE-VALUE-LIST (SUBTYPEP '(AND (EQL #<SYSTEM-FUNCTION CONS>) (FUNCTION (T T) CONS)) '(FUNCTION (INTEGER INTEGER) CONS)))
EQUAL-OK: (NIL NIL)
(MULTIPLE-VALUE-LIST (SUBTYPEP '(AND (EQL #<SYSTEM-FUNCTION CONS>) FUNCTION) '(FUNCTION (INTEGER INTEGER) CONS)))
EQUAL-OK: (NIL NIL)
(MULTIPLE-VALUE-LIST (SUBTYPEP '(AND (EQL #<SYSTEM-FUNCTION CONS>) INTEGER) 'FUNCTION))
EQUAL-OK: (T T)
(MULTIPLE-VALUE-LIST (SUBTYPEP '(AND (EQL #<SYSTEM-FUNCTION CONS>) (FUNCTION (T T) CONS)) 'FUNCTION))
EQUAL-OK: (T T)
(MULTIPLE-VALUE-LIST (SUBTYPEP '(AND (EQL #<SYSTEM-FUNCTION CONS>) FUNCTION) 'FUNCTION))
EQUAL-OK: (T T)
(LOOP :WITH CLASS = (FIND-CLASS 'VECTOR) :FOR X :IN '((1 0) #(1 0) #*10) :FOR Y = (COERCE X CLASS) :ALWAYS (AND (EQUALP Y #(1 0)) (VECTORP Y)))
EQL-OK: T
(COERCE 1.0 'COMPLEX)
EQL-OK: #C(1.0 0.0)
(WITHOUT-PACKAGE-LOCK ("CL") (DEFTYPE OTHERWISE NIL NIL))
EQL-OK: OTHERWISE
(TYPECASE 'FOO (OTHERWISE :WRONG) (T :RIGHT))
EQL-OK: :RIGHT
(TYPECASE 'FOO (OTHERWISE :WRONG) (SYMBOL :RIGHT) (T :WRONG2))
EQL-OK: :RIGHT
(THE FIXNUM (+ 5 7))
EQL-OK: 12
(MULTIPLE-VALUE-LIST (THE (VALUES) (TRUNCATE 3.2 2)))
EQUAL-OK: (1 1.2)
(MULTIPLE-VALUE-LIST (THE INTEGER (TRUNCATE 3.2 2)))
EQUAL-OK: (1 1.2)
(MULTIPLE-VALUE-LIST (THE (VALUES INTEGER) (TRUNCATE 3.2 2)))
EQUAL-OK: (1 1.2)
(MULTIPLE-VALUE-LIST (THE (VALUES INTEGER FLOAT) (TRUNCATE 3.2 2)))
EQUAL-OK: (1 1.2)
(MULTIPLE-VALUE-LIST (THE (VALUES INTEGER FLOAT SYMBOL) (TRUNCATE 3.2 2)))
EQUAL-OK: (1 1.2)
(MULTIPLE-VALUE-LIST (THE (VALUES INTEGER FLOAT SYMBOL T NULL LIST) (TRUNCATE 3.2 2)))
EQUAL-OK: (1 1.2)
(LET ((I 100)) (DECLARE (FIXNUM I)) (THE FIXNUM (1+ I)))
EQL-OK: 101
(LET* ((X (LIST 'A 'B 'C)) (Y 5)) (SETF (THE FIXNUM (CAR X)) Y) X)
EQUAL-OK: (5 B C)
(THE (VALUES) 'A)
EQL-OK: A
(MULTIPLE-VALUE-LIST (THE (VALUES &REST SYMBOL) (VALUES 'A 'B)))
EQUAL-OK: (A B)
(HANDLER-CASE (THE FIXNUM 'A) (TYPE-ERROR (C) (CONS (TYPE-ERROR-EXPECTED-TYPE C) (TYPE-ERROR-DATUM C))))
EQUAL-OK: (FIXNUM A)
(TYPE-OF (MAKE-ARRAY '(10 3) :ELEMENT-TYPE NIL))
EQUAL-OK: (SIMPLE-ARRAY NIL (10 3))
(TYPE-OF (MAKE-ARRAY 10 :ELEMENT-TYPE NIL))
EQUAL-OK: (SIMPLE-ARRAY NIL (10))
(SUBTYPEP (TYPE-OF 123) 'UNSIGNED-BYTE)
EQL-OK: T
(SUBTYPEP (TYPE-OF 12345678901234567890) 'UNSIGNED-BYTE)
EQL-OK: T
(DEFSTRUCT (FOO (:TYPE LIST)) A B)
EQL-OK: FOO
(MAKE-FOO :A 123)
EQUAL-OK: (123 NIL)
(MULTIPLE-VALUE-LIST (SUBTYPEP 'FOO 'LIST))
EQUAL-OK: (T T)
(MULTIPLE-VALUE-LIST (SUBTYPEP 'LIST 'FOO))
EQUAL-OK: (NIL T)
(DEFSTRUCT (FOO (:TYPE LIST) :NAMED) A NIL B)
EQL-OK: FOO
(LET* ((Y (MAKE-FOO :A 123)) (Z (COPY-FOO Y))) (SETF (FOO-NIL Z) 321) (LIST Y Z))
EQUAL-OK: ((FOO 123 NIL NIL) (FOO 123 321 NIL))
(PROGN (MAPC #'UNINTERN '(FOO70 FOO71 FOO72 FOO73 FOO74)) T)
EQL-OK: T
(DEFSTRUCT (FOO70 (:TYPE (VECTOR (UNSIGNED-BYTE 8)))) X Y)
EQL-OK: FOO70
(TYPE-OF (MAKE-FOO70 :X 12 :Y 5))
EQUAL-OK: (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (2))
(TYPE-OF (MAKE-FOO70 :X -1 :Y 1))
[SIMPLE-TYPE-ERROR]: SYSTEM::STORE: -1 does not fit into #(0 0), bad type
EQL-OK: ERROR
(TYPEP (MAKE-FOO70 :X 12 :Y 5) 'FOO70)
EQL-OK: T
(DEFSTRUCT (FOO71 (:TYPE LIST) (:INITIAL-OFFSET 5)))
EQL-OK: FOO71
(DEFSTRUCT (FOO72 (:TYPE LIST) (:INITIAL-OFFSET 2) (:INCLUDE FOO71)))
EQL-OK: FOO72
(LIST (LENGTH (MAKE-FOO71)) (LENGTH (MAKE-FOO72)))
EQUAL-OK: (5 7)
(TYPEP (MAKE-LIST 6) 'FOO71)
EQL-OK: T
(TYPEP (MAKE-LIST 6) 'FOO72)
EQL-OK: NIL
(MULTIPLE-VALUE-LIST (SUBTYPEP '(CONS T (CONS T (CONS T (CONS T (CONS T (CONS T NULL)))))) 'FOO71))
EQUAL-OK: (T T)
(MULTIPLE-VALUE-LIST (SUBTYPEP '(CONS T (CONS T (CONS T (CONS T (CONS T (CONS T NULL)))))) 'FOO72))
EQUAL-OK: (NIL T)
(DEFSTRUCT (FOO73 (:TYPE LIST) (:INITIAL-OFFSET 5) :NAMED))
EQL-OK: FOO73
(DEFSTRUCT (FOO74 (:TYPE LIST) (:INITIAL-OFFSET 2) :NAMED (:INCLUDE FOO73)))
EQL-OK: FOO74
(LIST (LENGTH (MAKE-FOO73)) (LENGTH (MAKE-FOO74)))
EQUAL-OK: (6 9)
(TYPEP (LIST NIL NIL NIL NIL NIL 'FOO73 NIL) 'FOO73)
EQL-OK: T
(FOO73-P (LIST NIL NIL NIL NIL NIL 'FOO73 NIL))
EQL-OK: T
(TYPEP (LIST NIL NIL NIL NIL NIL 'FOO73 NIL NIL 'FOO74) 'FOO73)
EQL-OK: T
(FOO74-P (LIST NIL NIL NIL NIL NIL 'FOO73 NIL NIL 'FOO74))
EQL-OK: T
(TYPEP (LIST* NIL NIL NIL NIL NIL 'FOO73 NIL 'TAIL) 'FOO74)
EQL-OK: NIL
(FOO74-P (LIST* NIL NIL NIL NIL NIL 'FOO73 NIL 'TAIL))
EQL-OK: NIL
(MULTIPLE-VALUE-LIST (SUBTYPEP '(CONS T (CONS T (CONS T (CONS T (CONS T (CONS (EQL FOO73) NULL)))))) 'FOO73))
EQUAL-OK: (T T)
(MULTIPLE-VALUE-LIST (SUBTYPEP '(CONS T (CONS T (CONS T (CONS T (CONS T (CONS (EQL FOO73) NULL)))))) 'FOO74))
EQUAL-OK: (NIL T)
(MULTIPLE-VALUE-LIST (SUBTYPEP '(AND SIMPLE-ERROR TYPE-ERROR) 'ERROR))
EQUAL-OK: (T T)
(MULTIPLE-VALUE-LIST (SUBTYPEP '(OR SIMPLE-ERROR TYPE-ERROR) 'CONDITION))
EQUAL-OK: (T T)
(PROGN (DEFSTRUCT (FOO129A (:TYPE LIST)) SLOT1 (SLOT2 T) (SLOT3 (FLOOR PI)) (SLOT4 44)) (DEFSTRUCT (FOO129B (:TYPE LIST) (:INCLUDE FOO129A (SLOT4 -44))) SLOT5 (SLOT6 T) (SLOT7 (FLOOR (* PI PI))) (SLOT8 88)) (LET ((A (MAKE-FOO129B))) (LIST (FOO129B-SLOT1 A) (FOO129B-SLOT2 A) (FOO129B-SLOT3 A) (FOO129B-SLOT4 A) (FOO129B-SLOT5 A) (FOO129B-SLOT6 A) (FOO129B-SLOT7 A) (FOO129B-SLOT8 A))))
EQUAL-OK: (NIL T 3 -44 NIL T 9 88)
(LET ((*BREAK-ON-SIGNALS* T) A) (DEFSTRUCT (FOO139 (:PREDICATE IS-FOO139)) P) (SETQ A (MAKE-FOO139 :P 10)) (LIST (IS-FOO139 A) (FOO139-P A)))
EQUAL-OK: (T 10)
(LET ((*BREAK-ON-SIGNALS* T) A) (DEFSTRUCT (FOO140 (:PREDICATE IS-FOO140) (:TYPE VECTOR) :NAMED) P) (SETQ A (MAKE-FOO140 :P 10)) (LIST (IS-FOO140 A) (FOO140-P A)))
EQUAL-OK: (T 10)
(DEFMACRO CHECK-TYPE-ERROR (&BODY FORMS) `(BLOCK NIL (HANDLER-BIND ((TYPE-ERROR (LAMBDA (C) (RETURN (TYPEP (TYPE-ERROR-DATUM C) (TYPE-ERROR-EXPECTED-TYPE C)))))) ,@FORMS)))
EQL-OK: CHECK-TYPE-ERROR
(CHECK-TYPE-ERROR (GETF '(A . B) 'C))
EQL-OK: NIL
(CHECK-TYPE-ERROR (GET-PROPERTIES '(A 1 B 2 C . D) '(X Y)))
EQL-OK: NIL
(CHECK-TYPE-ERROR (FBOUNDP #'CAR))
EQL-OK: NIL
(TYPEP '#1=(A 1 B 2 #1#) 'SYSTEM::PLIST)
EQL-OK: NIL
(CHECK-TYPE-ERROR (UNION NIL "A"))
EQL-OK: NIL
(MULTIPLE-VALUE-LIST (SUBTYPEP CHARSET:UCS-4 CHARSET:UTF-8))
EQUAL-OK: (T T)
(MULTIPLE-VALUE-LIST (SUBTYPEP CHARSET:UTF-8 CHARSET:UCS-4))
EQUAL-OK: (T T)
(TYPE-OF (BYTE 1 2))
EQL-OK: BYTE
(TYPEP (BYTE 1 2) 'BYTE)
EQL-OK: T
(ETYPECASE (BYTE 1 2) (INTEGER 'INTEGER) (BYTE T) (LIST 'LIST))
EQL-OK: T
(MAPCAN (LAMBDA (TYPE) (AND (TYPEP 0 TYPE) (LIST TYPE))) '(ARRAY ATOM BASE-CHAR BASE-STRING BIGNUM BIT BIT-VECTOR BROADCAST-STREAM BUILT-IN-CLASS CELL-ERROR CHARACTER CLASS COMPILED-FUNCTION COMPLEX CONCATENATED-STREAM CONDITION CONS CONTROL-ERROR DIVISION-BY-ZERO DOUBLE-FLOAT ECHO-STREAM END-OF-FILE ERROR EXTENDED-CHAR FILE-ERROR FILE-STREAM FIXNUM FLOAT FLOATING-POINT-INEXACT FLOATING-POINT-INVALID-OPERATION FLOATING-POINT-OVERFLOW FLOATING-POINT-UNDERFLOW FUNCTION GENERIC-FUNCTION HASH-TABLE INTEGER KEYWORD LIST LOGICAL-PATHNAME LONG-FLOAT METHOD METHOD-COMBINATION NIL NULL NUMBER PACKAGE PACKAGE-ERROR PARSE-ERROR PATHNAME PRINT-NOT-READABLE PROGRAM-ERROR RANDOM-STATE RATIO RATIONAL READER-ERROR READTABLE REAL RESTART SEQUENCE SERIOUS-CONDITION SHORT-FLOAT SIGNED-BYTE SIMPLE-ARRAY SIMPLE-BASE-STRING SIMPLE-BIT-VECTOR SIMPLE-CONDITION SIMPLE-ERROR SIMPLE-STRING SIMPLE-TYPE-ERROR SIMPLE-VECTOR SIMPLE-WARNING SINGLE-FLOAT STANDARD-CHAR STANDARD-CLASS STANDARD-GENERIC-FUNCTION STANDARD-METHOD STANDARD-OBJECT STORAGE-CONDITION STREAM STREAM-ERROR STRING STRING-STREAM STRUCTURE-CLASS STRUCTURE-OBJECT STYLE-WARNING SYMBOL SYNONYM-STREAM T TWO-WAY-STREAM TYPE-ERROR UNBOUND-SLOT UNBOUND-VARIABLE UNDEFINED-FUNCTION UNSIGNED-BYTE VECTOR WARNING))
EQUAL-OK: (ATOM BIT FIXNUM INTEGER NUMBER RATIONAL REAL SIGNED-BYTE T UNSIGNED-BYTE)
(LET ((SYM (GENSYM))) (PROCLAIM `(DECLARATION ,SYM)) (EVAL `(DEFTYPE ,SYM NIL T)))
[SIMPLE-ERROR]: DEFTYPE: #:G2372 names a DECLARATION, cannot name a type
EQL-OK: ERROR
(LET ((SYM (GENSYM))) (PROCLAIM `(DECLARATION ,SYM)) (EVAL `(DEFSTRUCT ,SYM A B C)))
[SIMPLE-ERROR]: DEFSTRUCT: #:G2373 names a DECLARATION, cannot name a type
EQL-OK: ERROR
(LET ((SYM (GENSYM))) (PROCLAIM `(DECLARATION ,SYM)) (EVAL `(DEFCLASS ,SYM NIL (A B C))))
[SIMPLE-ERROR]: DEFCLASS: #:G2374 names a DECLARATION, cannot name a type
EQL-OK: ERROR
(LET ((SYM (GENSYM))) (PROCLAIM `(DECLARATION ,SYM)) (EVAL `(DEFINE-CONDITION ,SYM (CONDITION) (A B C))))
[SIMPLE-ERROR]: DEFINE-CONDITION: #:G2375 names a DECLARATION, cannot name a type
EQL-OK: ERROR
(LET ((SYM (GENSYM))) (EVAL `(DEFTYPE ,SYM NIL T)) (PROCLAIM `(DECLARATION ,SYM)))
[SIMPLE-ERROR]: PROCLAIM: #:G2376 defines a type, cannot be declared a DECLARATION
EQL-OK: ERROR
(LET ((SYM (GENSYM))) (EVAL `(DEFSTRUCT ,SYM A B C)) (PROCLAIM `(DECLARATION ,SYM)))
[SIMPLE-ERROR]: PROCLAIM: #1=#:G2377 defines a type, cannot be declared a DECLARATION
EQL-OK: ERROR
(LET ((SYM (GENSYM))) (EVAL `(DEFCLASS ,SYM NIL (A B C))) (PROCLAIM `(DECLARATION ,SYM)))
[SIMPLE-ERROR]: PROCLAIM: #1=#:G2379 defines a type, cannot be declared a DECLARATION
EQL-OK: ERROR
(LET ((SYM (GENSYM))) (EVAL `(DEFINE-CONDITION ,SYM (CONDITION) (A B C))) (PROCLAIM `(DECLARATION ,SYM)))
[SIMPLE-ERROR]: PROCLAIM: #1=#:G2382 defines a type, cannot be declared a DECLARATION
EQL-OK: ERROR
(LET ((TLDL (SYSTEM::TOP-LEVEL-DECLARATIONS))) (SETF (CDR TLDL) (DELETE-IF-NOT #'SYMBOL-PACKAGE (CDR TLDL))) (EVERY #'SYMBOL-PACKAGE TLDL))
EQL-OK: T
(SYMBOLS-CLEANUP '(MOD1 BELIEBIGER-TEST BELIEBIGER-TYP TYPEOF-TYPEP-SUBTYPE *DISJOINT-TYPES-LIST* BAR FOO FOO70 FOO71 FOO72 FOO73 FOO74 FOO129A FOO129B FOO139 FOO140 CHECK-TYPE-ERROR))
EQL-OK: NIL
RUN-TEST: finished "type" (0 errors out of 287 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"unportable.tst" @1>
(DIGIT-CHAR-P #\KHMER_DIGIT_ZERO)
EQL-OK: 0
(TYPE-OF (READ-FROM-STRING (STRING #\KHMER_DIGIT_ZERO)))
EQL-OK: SYMBOL
(PROCLAIM '(INLINE SOME-FUNCTION))
EQL-OK: NIL
(DECLAIM (INLINE SOME-FUNCTION))
EQL-OK: NIL
(LET (A) (DOTIMES (I 3) (PUSH (LAMBDA NIL I) A)) (LOOP FOR X IN A COLLECT (FUNCALL X)))
EQUAL-OK: (3 3 3)
(LET (A) (DOLIST (I '(0 1 2)) (PUSH (LAMBDA NIL I) A)) (LOOP FOR X IN A COLLECT (FUNCALL X)))
EQUAL-OK: (2 2 2)
(FBOUNDP '(SETF CAR))
EQL-OK: NIL
(LET ((L (LIST 1 2 3))) (NREVERSE L) L)
EQUAL-OK: (3 2 1)
(LET ((L (LIST 1 2 3))) (NRECONC L 'A) L)
EQUAL-OK: (3 2 1 . A)
(LET ((S (MAKE-STRING 2))) (SETF (CHAR S 0) #\a) (SETF (CHAR S 1) #\b) (NREVERSE S) S)
EQUAL-OK: "ba"
(LET ((H (MAKE-HASH-TABLE))) (PUSHNEW 1 (GETHASH 2 H '(1))) (MULTIPLE-VALUE-LIST (GETHASH 2 H)))
EQUAL-OK: ((1) T)
(READ-FROM-STRING "#3()")
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: must specify elements of VECTOR of length 3
EQL-OK: ERROR
(PROGN (PROCLAIM '(SPECIAL FIRST-SPECIAL-THEN-MACRO)) T)
EQL-OK: T
(DEFINE-SYMBOL-MACRO FIRST-SPECIAL-THEN-MACRO *PRINT-CASE*)
[SIMPLE-PROGRAM-ERROR]: SYSTEM::%PROCLAIM-SYMBOL-MACRO: the symbol FIRST-SPECIAL-THEN-MACRO names a global SPECIAL variable
EQL-OK: ERROR
(DEFINE-SYMBOL-MACRO FIRST-MACRO-THEN-SPECIAL *PRINT-CASE*)
EQL-OK: FIRST-MACRO-THEN-SPECIAL
(PROGN (PROCLAIM '(SPECIAL FIRST-MACRO-THEN-SPECIAL)) T)
[SIMPLE-PROGRAM-ERROR]: PROCLAIM: attempting to turn FIRST-MACRO-THEN-SPECIAL into a SPECIAL variable, but it is already a global SYMBOL-MACRO.
EQL-OK: ERROR
(TAGBODY (BLOCK TRY-RETURN (UNWIND-PROTECT (GO EXIT) (RETURN-FROM TRY-RETURN))) EXIT)
EQL-OK: NIL
(BLOCK TRY-RETURN (TAGBODY (BLOCK TRY-RETURN (UNWIND-PROTECT (GO EXIT) (RETURN-FROM TRY-RETURN))) EXIT) (RETURN-FROM TRY-RETURN T))
EQL-OK: T
(BLOCK NIL (PROG ((X (RETURN :OUTER-LET))) (RETURN :NEVER)) (RETURN :CLHS))
EQL-OK: :CLHS
(DOLIST (I '(1 2 . 3) I))
[SIMPLE-TYPE-ERROR]: ENDP: A proper list must not end with 3
EQL-OK: ERROR
(LOOP FOR I IN '(1 2 . 3) COUNT T)
[SIMPLE-TYPE-ERROR]: ENDP: A proper list must not end with 3
EQL-OK: ERROR
(BUTLAST '(1 2 . 3) 0)
EQUAL-OK: (1 2)
(LIST 1 NIL 2)
EQUAL-OK: (1 NIL 2)
(LET ((X (LIST 1))) (MULTIPLE-VALUE-LIST (SETF (VALUES (CAR X) (CDR X)) (VALUES 2 3 4))))
EQUAL-OK: (2 3)
(LET (A (B T) C) (SETF (VALUES (VALUES A B) C) (VALUES 1 2 3 4)) (LIST A B C))
EQUAL-OK: (1 NIL 2)
(LOOP REPEAT 3.5 COUNT T)
EQL-OK: 4
(LOOP FOR I DOWNFROM (- 3.5 1) TO 0 COUNT T)
EQL-OK: 3
(LENGTH '(1 2 . 3))
[SIMPLE-TYPE-ERROR]: LENGTH: A proper list must not end with 3
EQL-OK: ERROR
(LIST-LENGTH '(1 2 . 3))
[SIMPLE-TYPE-ERROR]: LIST-LENGTH: A proper list must not end with 3
EQL-OK: ERROR
(LET ((L (LIST 1 2 3))) (DELETE 2 L) L)
EQUAL-OK: (1 3)
(SYMBOLS-CLEANUP '(FIRST-SPECIAL-THEN-MACRO FIRST-MACRO-THEN-SPECIAL))
EQL-OK: NIL
RUN-TEST: finished "unportable" (0 errors out of 31 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"weak.tst" @1>
(MAPCAR #'(LAMBDA (X) (LIST (WEAK-POINTER-P X) (WEAK-LIST-P X) (WEAK-AND-RELATION-P X) (WEAK-OR-RELATION-P X) (WEAK-MAPPING-P X) (WEAK-AND-MAPPING-P X) (WEAK-OR-MAPPING-P X) (WEAK-ALIST-P X) (STRINGP (WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (DESCRIBE X))))) (LIST '(A B C) #(A B C) (MAKE-WEAK-POINTER (LIST 'X)) (MAKE-WEAK-LIST (LIST 'X 'Y 'Z)) (MAKE-WEAK-AND-RELATION (LIST (LIST 'X))) (MAKE-WEAK-OR-RELATION (LIST (LIST 'X))) (MAKE-WEAK-MAPPING '#:G15 '#:G16) (MAKE-WEAK-AND-MAPPING (LIST '#:G15 '#:G16) '#:G17) (MAKE-WEAK-OR-MAPPING (LIST '#:G15 '#:G16) '#:G17) (MAKE-WEAK-ALIST)))
EQUAL-OK: ((NIL NIL NIL NIL NIL NIL NIL NIL T) (NIL NIL NIL NIL NIL NIL NIL NIL T) (T NIL NIL NIL NIL NIL NIL NIL T) (NIL T NIL NIL NIL NIL NIL NIL T) (NIL NIL T NIL NIL NIL NIL NIL T) (NIL NIL NIL T NIL NIL NIL NIL T) (NIL NIL NIL NIL T NIL NIL NIL T) (NIL NIL NIL NIL NIL T NIL NIL T) (NIL NIL NIL NIL NIL NIL T NIL T) (NIL NIL NIL NIL NIL NIL NIL T T))
(LET ((A (LIST 'X))) (LET ((W (MAKE-WEAK-POINTER A))) (GC) (MULTIPLE-VALUE-LIST (WEAK-POINTER-VALUE W))))
EQUAL-OK: ((X) T)
(LET ((A (LIST 'X))) (LET ((W (MAKE-WEAK-POINTER A))) (SETQ A (LIST 'Y)) (GC) (MULTIPLE-VALUE-LIST (WEAK-POINTER-VALUE W))))
EQUAL-OK: (NIL NIL)
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-LIST (LIST A B C)))) (GC) (WEAK-LIST-LIST W)))
EQUAL-OK: ((X) (Y) (Z))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-LIST (LIST A B C)))) (SETQ A NIL) (GC) (WEAK-LIST-LIST W)))
EQUAL-OK: ((Y) (Z))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-LIST (LIST A B C)))) (SETQ B NIL) (GC) (WEAK-LIST-LIST W)))
EQUAL-OK: ((X) (Z))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-LIST (LIST A B C)))) (SETQ C NIL) (GC) (WEAK-LIST-LIST W)))
EQUAL-OK: ((X) (Y))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-LIST (LIST A B C)))) (SETQ A 1 B 2 C 3) (GC) (WEAK-LIST-LIST W)))
EQL-OK: NIL
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-LIST (LIST A B C)))) (SETQ A NIL) (GC) (SETF (WEAK-LIST-LIST W) (LIST C B)) (GC) (WEAK-LIST-LIST W)))
EQUAL-OK: ((Z) (Y))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-LIST (LIST A B C)))) (SETQ A NIL C NIL) (GC) (SETQ C (LIST 'ZZ)) (SETF (WEAK-LIST-LIST W) (LIST C C B C)) (GC) (WEAK-LIST-LIST W)))
EQUAL-OK: ((ZZ) (ZZ) (Y) (ZZ))
(LET ((LI 'NIL)) (LOOP :FOR I :FROM 0 :TO 1000 :FOR STRING = (FORMAT NIL "~r" I) :DO (PUSH STRING LI)) (SETQ LI (NREVERSE LI)) (LET ((W (MAKE-WEAK-LIST LI))) (LIST (PROGN (GC) (LENGTH (WEAK-LIST-LIST W))) (PROGN (SETQ LI NIL) (GC) (LENGTH (WEAK-LIST-LIST W))))))
EQUAL-OK: (1001 0)
(LET ((A (LIST 'X))) (LET ((W (MAKE-WEAK-AND-RELATION (LIST A)))) (GC) (WEAK-AND-RELATION-LIST W)))
EQUAL-OK: ((X))
(LET ((A (LIST 'X))) (LET ((W (MAKE-WEAK-AND-RELATION (LIST A)))) (SETQ A (LIST 'Y)) (GC) (WEAK-AND-RELATION-LIST W)))
EQL-OK: NIL
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-AND-RELATION (LIST A B C)))) (GC) (WEAK-AND-RELATION-LIST W)))
EQUAL-OK: ((X) (Y) (Z))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-AND-RELATION (LIST A B C)))) (SETQ A NIL) (GC) (WEAK-AND-RELATION-LIST W)))
EQL-OK: NIL
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-AND-RELATION (LIST A B C)))) (SETQ B NIL) (GC) (WEAK-AND-RELATION-LIST W)))
EQL-OK: NIL
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-AND-RELATION (LIST A B C)))) (SETQ C NIL) (GC) (WEAK-AND-RELATION-LIST W)))
EQL-OK: NIL
(LET ((A (LIST 'X)) (B (LIST 'Y))) (LET ((W (MAKE-WEAK-AND-RELATION (LIST A (MAKE-WEAK-AND-RELATION (LIST A B)))))) (GC) (WEAK-AND-RELATION-LIST W)))
EQL-OK: NIL
(LET ((A (LIST 'X))) (LET ((W (MAKE-WEAK-OR-RELATION (LIST A)))) (GC) (WEAK-OR-RELATION-LIST W)))
EQUAL-OK: ((X))
(LET ((A (LIST 'X))) (LET ((W (MAKE-WEAK-OR-RELATION (LIST A)))) (SETQ A (LIST 'Y)) (GC) (WEAK-OR-RELATION-LIST W)))
EQL-OK: NIL
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-OR-RELATION (LIST A B C)))) (GC) (WEAK-OR-RELATION-LIST W)))
EQUAL-OK: ((X) (Y) (Z))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-OR-RELATION (LIST A B C)))) (SETQ A NIL B NIL) (GC) (WEAK-OR-RELATION-LIST W)))
EQUAL-OK: ((X) (Y) (Z))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-OR-RELATION (LIST A B C)))) (SETQ B NIL C NIL) (GC) (WEAK-OR-RELATION-LIST W)))
EQUAL-OK: ((X) (Y) (Z))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-OR-RELATION (LIST A B C)))) (SETQ A NIL C NIL) (GC) (WEAK-OR-RELATION-LIST W)))
EQUAL-OK: ((X) (Y) (Z))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-OR-RELATION (LIST A B C)))) (SETQ A NIL B NIL C NIL) (GC) (WEAK-OR-RELATION-LIST W)))
EQL-OK: NIL
(LET ((A (LIST 'X)) (B (LIST 'Y))) (LET ((W (MAKE-WEAK-OR-RELATION (LIST A (MAKE-WEAK-OR-RELATION (LIST A B)))))) (GC) (MAPCAR #'TYPE-OF (WEAK-OR-RELATION-LIST W))))
EQUAL-OK: (CONS WEAK-OR-RELATION)
(LET ((A (LIST 'X)) (B (LIST 'Y))) (LET ((W (MAKE-WEAK-OR-RELATION (LIST A (MAKE-WEAK-OR-RELATION (LIST A B)))))) (SETQ B NIL) (GC) (WEAK-OR-RELATION-LIST (SECOND (WEAK-OR-RELATION-LIST W)))))
EQUAL-OK: ((X) (Y))
(LET ((A (LIST 'X)) (B (LIST 'Y))) (LET ((W (MAKE-WEAK-OR-RELATION (LIST (MAKE-WEAK-OR-RELATION (LIST A B)) B)))) (SETQ A NIL) (GC) (WEAK-OR-RELATION-LIST (FIRST (WEAK-OR-RELATION-LIST W)))))
EQUAL-OK: ((X) (Y))
(LET ((A (LIST 'X)) (B (LIST 'Y))) (LET ((W (MAKE-WEAK-MAPPING A B))) (GC) (LIST (MULTIPLE-VALUE-LIST (WEAK-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-MAPPING-VALUE W)))))
EQUAL-OK: (((X) (Y) T) ((Y)))
(LET ((A (LIST 'X)) (B (LIST 'Y))) (LET ((W (MAKE-WEAK-MAPPING A B))) (SETQ B NIL) (GC) (LIST (MULTIPLE-VALUE-LIST (WEAK-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-MAPPING-VALUE W)))))
EQUAL-OK: (((X) (Y) T) ((Y)))
(LET ((A (LIST 'X)) (B (LIST 'Y))) (LET ((W (MAKE-WEAK-MAPPING A B))) (SETQ A NIL) (GC) (LIST (MULTIPLE-VALUE-LIST (WEAK-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-MAPPING-VALUE W)))))
EQUAL-OK: ((NIL NIL NIL) (NIL))
(LET ((A (LIST 'X)) (B (LIST 'Y))) (LET ((W (MAKE-WEAK-MAPPING A B))) (SETQ A NIL B NIL) (GC) (LIST (MULTIPLE-VALUE-LIST (WEAK-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-MAPPING-VALUE W)))))
EQUAL-OK: ((NIL NIL NIL) (NIL))
(LET ((A1 (LIST 'X1)) (A2 (LIST 'X2)) (A3 (LIST 'X3)) (A4 (LIST 'X4)) (A5 (LIST 'X5))) (LET ((W1 (MAKE-WEAK-MAPPING A3 A4)) (W2 (MAKE-WEAK-MAPPING A1 A2)) (W3 (MAKE-WEAK-MAPPING A4 A5)) (W4 (MAKE-WEAK-MAPPING A2 A3))) (SETQ A2 NIL A3 NIL A4 NIL A5 NIL) (GC) (LIST (WEAK-MAPPING-VALUE W2) (WEAK-MAPPING-VALUE W4) (WEAK-MAPPING-VALUE W1) (WEAK-MAPPING-VALUE W3))))
EQUAL-OK: ((X2) (X3) (X4) (X5))
(LET ((A1 (LIST 'X1)) (A2 (LIST 'X2)) (A3 (LIST 'X3)) (A4 (LIST 'X4)) (A5 (LIST 'X5))) (LET ((W1 (MAKE-WEAK-MAPPING A3 A4)) (W2 (MAKE-WEAK-MAPPING A1 A2)) (W3 (MAKE-WEAK-MAPPING A4 A5)) (W4 (MAKE-WEAK-MAPPING A2 A3))) (SETQ A1 NIL A3 NIL A4 NIL A5 NIL) (GC) (LIST (WEAK-MAPPING-VALUE W2) (WEAK-MAPPING-VALUE W4) (WEAK-MAPPING-VALUE W1) (WEAK-MAPPING-VALUE W3))))
EQUAL-OK: (NIL (X3) (X4) (X5))
(LET ((A1 (LIST 'X1)) (A2 (LIST 'X2)) (A3 (LIST 'X3)) (A4 (LIST 'X4)) (A5 (LIST 'X5))) (LET ((W1 (MAKE-WEAK-MAPPING A3 A4)) (W2 (MAKE-WEAK-MAPPING A1 A2)) (W3 (MAKE-WEAK-MAPPING A4 A5)) (W4 (MAKE-WEAK-MAPPING A2 A3))) (SETQ A1 NIL A2 NIL A4 NIL A5 NIL) (GC) (LIST (WEAK-MAPPING-VALUE W2) (WEAK-MAPPING-VALUE W4) (WEAK-MAPPING-VALUE W1) (WEAK-MAPPING-VALUE W3))))
EQUAL-OK: (NIL NIL (X4) (X5))
(LET ((A1 (LIST 'X1)) (A2 (LIST 'X2)) (A3 (LIST 'X3)) (A4 (LIST 'X4)) (A5 (LIST 'X5))) (LET ((W1 (MAKE-WEAK-MAPPING A3 A4)) (W2 (MAKE-WEAK-MAPPING A1 A2)) (W3 (MAKE-WEAK-MAPPING A4 A5)) (W4 (MAKE-WEAK-MAPPING A2 A3))) (SETQ A1 NIL A2 NIL A3 NIL A5 NIL) (GC) (LIST (WEAK-MAPPING-VALUE W2) (WEAK-MAPPING-VALUE W4) (WEAK-MAPPING-VALUE W1) (WEAK-MAPPING-VALUE W3))))
EQUAL-OK: (NIL NIL NIL (X5))
(LET ((A1 (LIST 'X1)) (A2 (LIST 'X2)) (A3 (LIST 'X3)) (A4 (LIST 'X4)) (A5 (LIST 'X5))) (LET ((W1 (MAKE-WEAK-MAPPING A3 A4)) (W2 (MAKE-WEAK-MAPPING A1 A2)) (W3 (MAKE-WEAK-MAPPING A4 A5)) (W4 (MAKE-WEAK-MAPPING A2 A3))) (SETQ A1 NIL A2 NIL A3 NIL A4 NIL) (GC) (LIST (WEAK-MAPPING-VALUE W2) (WEAK-MAPPING-VALUE W4) (WEAK-MAPPING-VALUE W1) (WEAK-MAPPING-VALUE W3))))
EQUAL-OK: (NIL NIL NIL NIL)
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-MAPPING A B))) (SETF (WEAK-MAPPING-VALUE W) C) (LIST (MULTIPLE-VALUE-LIST (WEAK-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-MAPPING-VALUE W)))))
EQUAL-OK: (((X) (Z) T) ((Z)))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-MAPPING A B))) (SETF (WEAK-MAPPING-VALUE W) C) (GC) (LIST (MULTIPLE-VALUE-LIST (WEAK-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-MAPPING-VALUE W)))))
EQUAL-OK: (((X) (Z) T) ((Z)))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-MAPPING A B))) (GC) (SETF (WEAK-MAPPING-VALUE W) C) (LIST (MULTIPLE-VALUE-LIST (WEAK-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-MAPPING-VALUE W)))))
EQUAL-OK: (((X) (Z) T) ((Z)))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-MAPPING A B))) (SETQ A NIL) (SETF (WEAK-MAPPING-VALUE W) C) (GC) (LIST (MULTIPLE-VALUE-LIST (WEAK-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-MAPPING-VALUE W)))))
EQUAL-OK: ((NIL NIL NIL) (NIL))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-MAPPING A B))) (SETQ A NIL) (GC) (SETF (WEAK-MAPPING-VALUE W) C) (LIST (MULTIPLE-VALUE-LIST (WEAK-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-MAPPING-VALUE W)))))
EQUAL-OK: ((NIL NIL NIL) (NIL))
(LET ((A (LIST 'X)) (B (LIST 'Y))) (LET ((W (MAKE-WEAK-AND-MAPPING (LIST A) B))) (GC) (LIST (MULTIPLE-VALUE-LIST (WEAK-AND-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-AND-MAPPING-VALUE W)))))
EQUAL-OK: ((((X)) (Y) T) ((Y)))
(LET ((A (LIST 'X)) (B (LIST 'Y))) (LET ((W (MAKE-WEAK-AND-MAPPING (LIST A) B))) (SETQ B NIL) (GC) (LIST (MULTIPLE-VALUE-LIST (WEAK-AND-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-AND-MAPPING-VALUE W)))))
EQUAL-OK: ((((X)) (Y) T) ((Y)))
(LET ((A (LIST 'X)) (B (LIST 'Y))) (LET ((W (MAKE-WEAK-AND-MAPPING (LIST A) B))) (SETQ A NIL) (GC) (LIST (MULTIPLE-VALUE-LIST (WEAK-AND-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-AND-MAPPING-VALUE W)))))
EQUAL-OK: ((NIL NIL NIL) (NIL))
(LET ((A (LIST 'X)) (B (LIST 'Y))) (LET ((W (MAKE-WEAK-AND-MAPPING (LIST A) B))) (SETQ A NIL B NIL) (GC) (LIST (MULTIPLE-VALUE-LIST (WEAK-AND-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-AND-MAPPING-VALUE W)))))
EQUAL-OK: ((NIL NIL NIL) (NIL))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z)) (D (LIST 'R))) (LET ((W (MAKE-WEAK-AND-MAPPING (LIST A B C) D))) (SETQ D NIL) (GC) (LIST (MULTIPLE-VALUE-LIST (WEAK-AND-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-AND-MAPPING-VALUE W)))))
EQUAL-OK: ((((X) (Y) (Z)) (R) T) ((R)))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z)) (D (LIST 'R))) (LET ((W (MAKE-WEAK-AND-MAPPING (LIST A B C) D))) (SETQ A NIL D NIL) (GC) (LIST (MULTIPLE-VALUE-LIST (WEAK-AND-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-AND-MAPPING-VALUE W)))))
EQUAL-OK: ((NIL NIL NIL) (NIL))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z)) (D (LIST 'R))) (LET ((W (MAKE-WEAK-AND-MAPPING (LIST A B C) D))) (SETQ B NIL D NIL) (GC) (LIST (MULTIPLE-VALUE-LIST (WEAK-AND-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-AND-MAPPING-VALUE W)))))
EQUAL-OK: ((NIL NIL NIL) (NIL))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z)) (D (LIST 'R))) (LET ((W (MAKE-WEAK-AND-MAPPING (LIST A B C) D))) (SETQ C NIL D NIL) (GC) (LIST (MULTIPLE-VALUE-LIST (WEAK-AND-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-AND-MAPPING-VALUE W)))))
EQUAL-OK: ((NIL NIL NIL) (NIL))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (D (LIST 'R))) (LET ((W (MAKE-WEAK-AND-MAPPING (LIST A (MAKE-WEAK-AND-MAPPING (LIST A B) D)) D))) (SETQ D NIL) (GC) (LIST (MULTIPLE-VALUE-LIST (WEAK-AND-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-AND-MAPPING-VALUE W)))))
EQUAL-OK: ((NIL NIL NIL) (NIL))
(LET ((A1 (LIST 'X1)) (A2 (LIST 'X2)) (A3 (LIST 'X3)) (A4 (LIST 'X4)) (A5 (LIST 'X5))) (LET ((W1 (MAKE-WEAK-AND-MAPPING (LIST A3) A4)) (W2 (MAKE-WEAK-AND-MAPPING (LIST A1) A2)) (W3 (MAKE-WEAK-AND-MAPPING (LIST A4) A5)) (W4 (MAKE-WEAK-AND-MAPPING (LIST A2) A3))) (SETQ A2 NIL A3 NIL A4 NIL A5 NIL) (GC) (LIST (WEAK-AND-MAPPING-VALUE W2) (WEAK-AND-MAPPING-VALUE W4) (WEAK-AND-MAPPING-VALUE W1) (WEAK-AND-MAPPING-VALUE W3))))
EQUAL-OK: ((X2) (X3) (X4) (X5))
(LET ((A1 (LIST 'X1)) (A2 (LIST 'X2)) (A3 (LIST 'X3)) (A4 (LIST 'X4)) (A5 (LIST 'X5))) (LET ((W1 (MAKE-WEAK-AND-MAPPING (LIST A3) A4)) (W2 (MAKE-WEAK-AND-MAPPING (LIST A1) A2)) (W3 (MAKE-WEAK-AND-MAPPING (LIST A4) A5)) (W4 (MAKE-WEAK-AND-MAPPING (LIST A2) A3))) (SETQ A1 NIL A3 NIL A4 NIL A5 NIL) (GC) (LIST (WEAK-AND-MAPPING-VALUE W2) (WEAK-AND-MAPPING-VALUE W4) (WEAK-AND-MAPPING-VALUE W1) (WEAK-AND-MAPPING-VALUE W3))))
EQUAL-OK: (NIL (X3) (X4) (X5))
(LET ((A1 (LIST 'X1)) (A2 (LIST 'X2)) (A3 (LIST 'X3)) (A4 (LIST 'X4)) (A5 (LIST 'X5))) (LET ((W1 (MAKE-WEAK-AND-MAPPING (LIST A3) A4)) (W2 (MAKE-WEAK-AND-MAPPING (LIST A1) A2)) (W3 (MAKE-WEAK-AND-MAPPING (LIST A4) A5)) (W4 (MAKE-WEAK-AND-MAPPING (LIST A2) A3))) (SETQ A1 NIL A2 NIL A4 NIL A5 NIL) (GC) (LIST (WEAK-AND-MAPPING-VALUE W2) (WEAK-AND-MAPPING-VALUE W4) (WEAK-AND-MAPPING-VALUE W1) (WEAK-AND-MAPPING-VALUE W3))))
EQUAL-OK: (NIL NIL (X4) (X5))
(LET ((A1 (LIST 'X1)) (A2 (LIST 'X2)) (A3 (LIST 'X3)) (A4 (LIST 'X4)) (A5 (LIST 'X5))) (LET ((W1 (MAKE-WEAK-AND-MAPPING (LIST A3) A4)) (W2 (MAKE-WEAK-AND-MAPPING (LIST A1) A2)) (W3 (MAKE-WEAK-AND-MAPPING (LIST A4) A5)) (W4 (MAKE-WEAK-AND-MAPPING (LIST A2) A3))) (SETQ A1 NIL A2 NIL A3 NIL A5 NIL) (GC) (LIST (WEAK-AND-MAPPING-VALUE W2) (WEAK-AND-MAPPING-VALUE W4) (WEAK-AND-MAPPING-VALUE W1) (WEAK-AND-MAPPING-VALUE W3))))
EQUAL-OK: (NIL NIL NIL (X5))
(LET ((A1 (LIST 'X1)) (A2 (LIST 'X2)) (A3 (LIST 'X3)) (A4 (LIST 'X4)) (A5 (LIST 'X5))) (LET ((W1 (MAKE-WEAK-AND-MAPPING (LIST A3) A4)) (W2 (MAKE-WEAK-AND-MAPPING (LIST A1) A2)) (W3 (MAKE-WEAK-AND-MAPPING (LIST A4) A5)) (W4 (MAKE-WEAK-AND-MAPPING (LIST A2) A3))) (SETQ A1 NIL A2 NIL A3 NIL A4 NIL) (GC) (LIST (WEAK-AND-MAPPING-VALUE W2) (WEAK-AND-MAPPING-VALUE W4) (WEAK-AND-MAPPING-VALUE W1) (WEAK-AND-MAPPING-VALUE W3))))
EQUAL-OK: (NIL NIL NIL NIL)
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-AND-MAPPING (LIST A) B))) (SETF (WEAK-AND-MAPPING-VALUE W) C) (LIST (MULTIPLE-VALUE-LIST (WEAK-AND-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-AND-MAPPING-VALUE W)))))
EQUAL-OK: ((((X)) (Z) T) ((Z)))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-AND-MAPPING (LIST A) B))) (SETF (WEAK-AND-MAPPING-VALUE W) C) (GC) (LIST (MULTIPLE-VALUE-LIST (WEAK-AND-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-AND-MAPPING-VALUE W)))))
EQUAL-OK: ((((X)) (Z) T) ((Z)))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-AND-MAPPING (LIST A) B))) (GC) (SETF (WEAK-AND-MAPPING-VALUE W) C) (LIST (MULTIPLE-VALUE-LIST (WEAK-AND-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-AND-MAPPING-VALUE W)))))
EQUAL-OK: ((((X)) (Z) T) ((Z)))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-AND-MAPPING (LIST A) B))) (SETQ A NIL) (SETF (WEAK-AND-MAPPING-VALUE W) C) (GC) (LIST (MULTIPLE-VALUE-LIST (WEAK-AND-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-AND-MAPPING-VALUE W)))))
EQUAL-OK: ((NIL NIL NIL) (NIL))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-AND-MAPPING (LIST A) B))) (SETQ A NIL) (GC) (SETF (WEAK-AND-MAPPING-VALUE W) C) (LIST (MULTIPLE-VALUE-LIST (WEAK-AND-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-AND-MAPPING-VALUE W)))))
EQUAL-OK: ((NIL NIL NIL) (NIL))
(LET ((A (LIST 'X)) (B (LIST 'Y))) (LET ((W (MAKE-WEAK-OR-MAPPING (LIST A) B))) (GC) (LIST (MULTIPLE-VALUE-LIST (WEAK-OR-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-OR-MAPPING-VALUE W)))))
EQUAL-OK: ((((X)) (Y) T) ((Y)))
(LET ((A (LIST 'X)) (B (LIST 'Y))) (LET ((W (MAKE-WEAK-OR-MAPPING (LIST A) B))) (SETQ B NIL) (GC) (LIST (MULTIPLE-VALUE-LIST (WEAK-OR-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-OR-MAPPING-VALUE W)))))
EQUAL-OK: ((((X)) (Y) T) ((Y)))
(LET ((A (LIST 'X)) (B (LIST 'Y))) (LET ((W (MAKE-WEAK-OR-MAPPING (LIST A) B))) (SETQ A NIL) (GC) (LIST (MULTIPLE-VALUE-LIST (WEAK-OR-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-OR-MAPPING-VALUE W)))))
EQUAL-OK: ((NIL NIL NIL) (NIL))
(LET ((A (LIST 'X)) (B (LIST 'Y))) (LET ((W (MAKE-WEAK-OR-MAPPING (LIST A) B))) (SETQ A NIL B NIL) (GC) (LIST (MULTIPLE-VALUE-LIST (WEAK-OR-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-OR-MAPPING-VALUE W)))))
EQUAL-OK: ((NIL NIL NIL) (NIL))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z)) (D (LIST 'R))) (LET ((W (MAKE-WEAK-OR-MAPPING (LIST A B C) D))) (SETQ D NIL) (GC) (LIST (MULTIPLE-VALUE-LIST (WEAK-OR-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-OR-MAPPING-VALUE W)))))
EQUAL-OK: ((((X) (Y) (Z)) (R) T) ((R)))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z)) (D (LIST 'R))) (LET ((W (MAKE-WEAK-OR-MAPPING (LIST A B C) D))) (SETQ A NIL B NIL D NIL) (GC) (LIST (MULTIPLE-VALUE-LIST (WEAK-OR-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-OR-MAPPING-VALUE W)))))
EQUAL-OK: ((((X) (Y) (Z)) (R) T) ((R)))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z)) (D (LIST 'R))) (LET ((W (MAKE-WEAK-OR-MAPPING (LIST A B C) D))) (SETQ B NIL C NIL D NIL) (GC) (LIST (MULTIPLE-VALUE-LIST (WEAK-OR-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-OR-MAPPING-VALUE W)))))
EQUAL-OK: ((((X) (Y) (Z)) (R) T) ((R)))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z)) (D (LIST 'R))) (LET ((W (MAKE-WEAK-OR-MAPPING (LIST A B C) D))) (SETQ A NIL C NIL D NIL) (GC) (LIST (MULTIPLE-VALUE-LIST (WEAK-OR-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-OR-MAPPING-VALUE W)))))
EQUAL-OK: ((((X) (Y) (Z)) (R) T) ((R)))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z)) (D (LIST 'R))) (LET ((W (MAKE-WEAK-OR-MAPPING (LIST A B C) D))) (SETQ A NIL B NIL C NIL D NIL) (GC) (LIST (MULTIPLE-VALUE-LIST (WEAK-OR-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-OR-MAPPING-VALUE W)))))
EQUAL-OK: ((NIL NIL NIL) (NIL))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (D (LIST 'R))) (LET ((W (MAKE-WEAK-OR-MAPPING (LIST A (MAKE-WEAK-OR-MAPPING (LIST A B) D)) D))) (SETQ D NIL) (GC) (MAPCAR #'TYPE-OF (WEAK-OR-MAPPING-PAIR W))))
EQUAL-OK: (CONS WEAK-OR-MAPPING)
(LET ((A (LIST 'X)) (B (LIST 'Y)) (D (LIST 'R))) (LET ((W (MAKE-WEAK-OR-MAPPING (LIST A (MAKE-WEAK-OR-MAPPING (LIST A B) D)) D))) (SETQ B NIL D NIL) (GC) (WEAK-OR-MAPPING-PAIR (SECOND (WEAK-OR-MAPPING-PAIR W)))))
EQUAL-OK: ((X) (Y))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (D (LIST 'R))) (LET ((W (MAKE-WEAK-OR-MAPPING (LIST (MAKE-WEAK-OR-MAPPING (LIST A B) D) B) D))) (SETQ A NIL D NIL) (GC) (WEAK-OR-MAPPING-PAIR (FIRST (WEAK-OR-MAPPING-PAIR W)))))
EQUAL-OK: ((X) (Y))
(LET ((A1 (LIST 'X1)) (A2 (LIST 'X2)) (A3 (LIST 'X3)) (A4 (LIST 'X4)) (A5 (LIST 'X5))) (LET ((W1 (MAKE-WEAK-OR-MAPPING (LIST A3) A4)) (W2 (MAKE-WEAK-OR-MAPPING (LIST A1) A2)) (W3 (MAKE-WEAK-OR-MAPPING (LIST A4) A5)) (W4 (MAKE-WEAK-OR-MAPPING (LIST A2) A3))) (SETQ A2 NIL A3 NIL A4 NIL A5 NIL) (GC) (LIST (WEAK-OR-MAPPING-VALUE W2) (WEAK-OR-MAPPING-VALUE W4) (WEAK-OR-MAPPING-VALUE W1) (WEAK-OR-MAPPING-VALUE W3))))
EQUAL-OK: ((X2) (X3) (X4) (X5))
(LET ((A1 (LIST 'X1)) (A2 (LIST 'X2)) (A3 (LIST 'X3)) (A4 (LIST 'X4)) (A5 (LIST 'X5))) (LET ((W1 (MAKE-WEAK-OR-MAPPING (LIST A3) A4)) (W2 (MAKE-WEAK-OR-MAPPING (LIST A1) A2)) (W3 (MAKE-WEAK-OR-MAPPING (LIST A4) A5)) (W4 (MAKE-WEAK-OR-MAPPING (LIST A2) A3))) (SETQ A1 NIL A3 NIL A4 NIL A5 NIL) (GC) (LIST (WEAK-OR-MAPPING-VALUE W2) (WEAK-OR-MAPPING-VALUE W4) (WEAK-OR-MAPPING-VALUE W1) (WEAK-OR-MAPPING-VALUE W3))))
EQUAL-OK: (NIL (X3) (X4) (X5))
(LET ((A1 (LIST 'X1)) (A2 (LIST 'X2)) (A3 (LIST 'X3)) (A4 (LIST 'X4)) (A5 (LIST 'X5))) (LET ((W1 (MAKE-WEAK-OR-MAPPING (LIST A3) A4)) (W2 (MAKE-WEAK-OR-MAPPING (LIST A1) A2)) (W3 (MAKE-WEAK-OR-MAPPING (LIST A4) A5)) (W4 (MAKE-WEAK-OR-MAPPING (LIST A2) A3))) (SETQ A1 NIL A2 NIL A4 NIL A5 NIL) (GC) (LIST (WEAK-OR-MAPPING-VALUE W2) (WEAK-OR-MAPPING-VALUE W4) (WEAK-OR-MAPPING-VALUE W1) (WEAK-OR-MAPPING-VALUE W3))))
EQUAL-OK: (NIL NIL (X4) (X5))
(LET ((A1 (LIST 'X1)) (A2 (LIST 'X2)) (A3 (LIST 'X3)) (A4 (LIST 'X4)) (A5 (LIST 'X5))) (LET ((W1 (MAKE-WEAK-OR-MAPPING (LIST A3) A4)) (W2 (MAKE-WEAK-OR-MAPPING (LIST A1) A2)) (W3 (MAKE-WEAK-OR-MAPPING (LIST A4) A5)) (W4 (MAKE-WEAK-OR-MAPPING (LIST A2) A3))) (SETQ A1 NIL A2 NIL A3 NIL A5 NIL) (GC) (LIST (WEAK-OR-MAPPING-VALUE W2) (WEAK-OR-MAPPING-VALUE W4) (WEAK-OR-MAPPING-VALUE W1) (WEAK-OR-MAPPING-VALUE W3))))
EQUAL-OK: (NIL NIL NIL (X5))
(LET ((A1 (LIST 'X1)) (A2 (LIST 'X2)) (A3 (LIST 'X3)) (A4 (LIST 'X4)) (A5 (LIST 'X5))) (LET ((W1 (MAKE-WEAK-OR-MAPPING (LIST A3) A4)) (W2 (MAKE-WEAK-OR-MAPPING (LIST A1) A2)) (W3 (MAKE-WEAK-OR-MAPPING (LIST A4) A5)) (W4 (MAKE-WEAK-OR-MAPPING (LIST A2) A3))) (SETQ A1 NIL A2 NIL A3 NIL A4 NIL) (GC) (LIST (WEAK-OR-MAPPING-VALUE W2) (WEAK-OR-MAPPING-VALUE W4) (WEAK-OR-MAPPING-VALUE W1) (WEAK-OR-MAPPING-VALUE W3))))
EQUAL-OK: (NIL NIL NIL NIL)
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-OR-MAPPING (LIST A) B))) (SETF (WEAK-OR-MAPPING-VALUE W) C) (LIST (MULTIPLE-VALUE-LIST (WEAK-OR-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-OR-MAPPING-VALUE W)))))
EQUAL-OK: ((((X)) (Z) T) ((Z)))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-OR-MAPPING (LIST A) B))) (SETF (WEAK-OR-MAPPING-VALUE W) C) (GC) (LIST (MULTIPLE-VALUE-LIST (WEAK-OR-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-OR-MAPPING-VALUE W)))))
EQUAL-OK: ((((X)) (Z) T) ((Z)))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-OR-MAPPING (LIST A) B))) (GC) (SETF (WEAK-OR-MAPPING-VALUE W) C) (LIST (MULTIPLE-VALUE-LIST (WEAK-OR-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-OR-MAPPING-VALUE W)))))
EQUAL-OK: ((((X)) (Z) T) ((Z)))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-OR-MAPPING (LIST A) B))) (SETQ A NIL) (SETF (WEAK-OR-MAPPING-VALUE W) C) (GC) (LIST (MULTIPLE-VALUE-LIST (WEAK-OR-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-OR-MAPPING-VALUE W)))))
EQUAL-OK: ((NIL NIL NIL) (NIL))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-OR-MAPPING (LIST A) B))) (SETQ A NIL) (GC) (SETF (WEAK-OR-MAPPING-VALUE W) C) (LIST (MULTIPLE-VALUE-LIST (WEAK-OR-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (WEAK-OR-MAPPING-VALUE W)))))
EQUAL-OK: ((NIL NIL NIL) (NIL))
(LET ((KA (LIST 'KX)) (VA (LIST 'VX)) (KB (LIST 'KY)) (VB (LIST 'VY)) (KC (LIST 'KZ)) (VC (LIST 'VZ))) (LET ((W (MAKE-WEAK-ALIST :TYPE :KEY :INITIAL-CONTENTS (LIST (CONS KA VA) (CONS KB VB) (CONS KC VC))))) (GC) (WEAK-ALIST-TYPE W)))
EQL-OK: :KEY
(LET ((KA (LIST 'KX)) (VA (LIST 'VX)) (KB (LIST 'KY)) (VB (LIST 'VY)) (KC (LIST 'KZ)) (VC (LIST 'VZ))) (LET ((W (MAKE-WEAK-ALIST :TYPE :VALUE :INITIAL-CONTENTS (LIST (CONS KA VA) (CONS KB VB) (CONS KC VC))))) (GC) (WEAK-ALIST-TYPE W)))
EQL-OK: :VALUE
(LET ((KA (LIST 'KX)) (VA (LIST 'VX)) (KB (LIST 'KY)) (VB (LIST 'VY)) (KC (LIST 'KZ)) (VC (LIST 'VZ))) (LET ((W (MAKE-WEAK-ALIST :TYPE :KEY-AND-VALUE :INITIAL-CONTENTS (LIST (CONS KA VA) (CONS KB VB) (CONS KC VC))))) (GC) (WEAK-ALIST-TYPE W)))
EQL-OK: :KEY-AND-VALUE
(LET ((KA (LIST 'KX)) (VA (LIST 'VX)) (KB (LIST 'KY)) (VB (LIST 'VY)) (KC (LIST 'KZ)) (VC (LIST 'VZ))) (LET ((W (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS KA VA) (CONS KB VB) (CONS KC VC)) :TYPE :KEY-OR-VALUE))) (GC) (WEAK-ALIST-TYPE W)))
EQL-OK: :KEY-OR-VALUE
(LET ((KA (LIST 'KX)) (VA (LIST 'VX)) (KB (LIST 'KY)) (VB (LIST 'VY)) (KC (LIST 'KZ)) (VC (LIST 'VZ))) (LET ((W (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS KA VA) (CONS KB VB) (CONS KC VC))))) (GC) (WEAK-ALIST-TYPE W)))
EQL-OK: :KEY
(LET ((W (MAKE-WEAK-ALIST))) (GC) (WEAK-ALIST-CONTENTS W))
EQL-OK: NIL
(LET ((KA (LIST 'KX)) (VA (LIST 'VX)) (KB (LIST 'KY)) (VB (LIST 'VY)) (KC (LIST 'KZ)) (VC (LIST 'VZ))) (LET ((W (MAKE-WEAK-ALIST :TYPE :KEY :INITIAL-CONTENTS (LIST (CONS KA VA) (CONS KB VB) (CONS KC VC))))) (GC) (WEAK-ALIST-CONTENTS W)))
EQUAL-OK: (((KX) VX) ((KY) VY) ((KZ) VZ))
(LET ((KA (LIST 'KX)) (VA (LIST 'VX)) (KB (LIST 'KY)) (VB (LIST 'VY)) (KC (LIST 'KZ)) (VC (LIST 'VZ))) (LET ((W (MAKE-WEAK-ALIST :TYPE :KEY :INITIAL-CONTENTS (LIST (CONS KA VA) (CONS KB VB) (CONS KC VC))))) (SETQ KA NIL) (GC) (WEAK-ALIST-CONTENTS W)))
EQUAL-OK: (((KY) VY) ((KZ) VZ))
(LET ((KA (LIST 'KX)) (VA (LIST 'VX)) (KB (LIST 'KY)) (VB (LIST 'VY)) (KC (LIST 'KZ)) (VC (LIST 'VZ))) (LET ((W (MAKE-WEAK-ALIST :TYPE :KEY :INITIAL-CONTENTS (LIST (CONS KA VA) (CONS KB VB) (CONS KC VC))))) (SETQ KB NIL) (GC) (WEAK-ALIST-CONTENTS W)))
EQUAL-OK: (((KX) VX) ((KZ) VZ))
(LET ((KA (LIST 'KX)) (VA (LIST 'VX)) (KB (LIST 'KY)) (VB (LIST 'VY)) (KC (LIST 'KZ)) (VC (LIST 'VZ))) (LET ((W (MAKE-WEAK-ALIST :TYPE :KEY :INITIAL-CONTENTS (LIST (CONS KA VA) (CONS KB VB) (CONS KC VC))))) (SETQ KC NIL) (GC) (WEAK-ALIST-CONTENTS W)))
EQUAL-OK: (((KX) VX) ((KY) VY))
(LET ((KA (LIST 'KX)) (VA (LIST 'VX)) (KB (LIST 'KY)) (VB (LIST 'VY)) (KC (LIST 'KZ)) (VC (LIST 'VZ))) (LET ((W (MAKE-WEAK-ALIST :TYPE :KEY :INITIAL-CONTENTS (LIST (CONS KA VA) (CONS KB VB) (CONS KC VC))))) (SETQ KA 1 KB 2 KC 3) (GC) (WEAK-ALIST-CONTENTS W)))
EQL-OK: NIL
(LET ((KA (LIST 'KX)) (VA (LIST 'VX)) (KB (LIST 'KY)) (VB (LIST 'VY)) (KC (LIST 'KZ)) (VC (LIST 'VZ))) (LET ((W (MAKE-WEAK-ALIST :TYPE :KEY :INITIAL-CONTENTS (LIST (CONS KA VA) (CONS KB VB) (CONS KC VC))))) (SETQ KA NIL) (GC) (SETF (WEAK-ALIST-CONTENTS W) (LIST (CONS KC VC) (CONS KB VB))) (GC) (WEAK-ALIST-CONTENTS W)))
EQUAL-OK: (((KZ) VZ) ((KY) VY))
(LET ((KA (LIST 'KX)) (VA (LIST 'VX)) (KB (LIST 'KY)) (VB (LIST 'VY)) (KC (LIST 'KZ)) (VC (LIST 'VZ))) (LET ((W (MAKE-WEAK-ALIST :TYPE :KEY :INITIAL-CONTENTS (LIST (CONS KA VA) (CONS KB VB) (CONS KC VC))))) (SETQ KA NIL KC NIL) (GC) (SETQ KC (LIST 'ZZ)) (SETF (WEAK-ALIST-CONTENTS W) (LIST (CONS KC VC) (CONS KC VC) (CONS KB VB) (CONS KC VC))) (GC) (WEAK-ALIST-CONTENTS W)))
EQUAL-OK: (((ZZ) VZ) ((ZZ) VZ) ((KY) VY) ((ZZ) VZ))
(LET ((A (LIST 'X)) (B (LIST 'Y))) (LET ((W (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS A B))))) (GC) (WEAK-ALIST-CONTENTS W)))
EQUAL-OK: (((X) Y))
(LET ((A (LIST 'X)) (B (LIST 'Y))) (LET ((W (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS A B))))) (SETQ B NIL) (GC) (WEAK-ALIST-CONTENTS W)))
EQUAL-OK: (((X) Y))
(LET ((A (LIST 'X)) (B (LIST 'Y))) (LET ((W (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS A B))))) (SETQ A NIL) (GC) (WEAK-ALIST-CONTENTS W)))
EQL-OK: NIL
(LET ((A (LIST 'X)) (B (LIST 'Y))) (LET ((W (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS A B))))) (SETQ A NIL B NIL) (GC) (WEAK-ALIST-CONTENTS W)))
EQL-OK: NIL
(LET ((A1 (LIST 'X1)) (A2 (LIST 'X2)) (A3 (LIST 'X3)) (A4 (LIST 'X4)) (A5 (LIST 'X5))) (LET ((W1 (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS A3 A4)))) (W2 (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS A1 A2)))) (W3 (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS A4 A5)))) (W4 (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS A2 A3))))) (SETQ A2 NIL A3 NIL A4 NIL A5 NIL) (GC) (LIST (WEAK-ALIST-CONTENTS W2) (WEAK-ALIST-CONTENTS W4) (WEAK-ALIST-CONTENTS W1) (WEAK-ALIST-CONTENTS W3))))
EQUAL-OK: ((((X1) X2)) (((X2) X3)) (((X3) X4)) (((X4) X5)))
(LET ((A1 (LIST 'X1)) (A2 (LIST 'X2)) (A3 (LIST 'X3)) (A4 (LIST 'X4)) (A5 (LIST 'X5))) (LET ((W1 (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS A3 A4)))) (W2 (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS A1 A2)))) (W3 (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS A4 A5)))) (W4 (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS A2 A3))))) (SETQ A1 NIL A3 NIL A4 NIL A5 NIL) (GC) (LIST (WEAK-ALIST-CONTENTS W2) (WEAK-ALIST-CONTENTS W4) (WEAK-ALIST-CONTENTS W1) (WEAK-ALIST-CONTENTS W3))))
EQUAL-OK: (NIL (((X2) X3)) (((X3) X4)) (((X4) X5)))
(LET ((A1 (LIST 'X1)) (A2 (LIST 'X2)) (A3 (LIST 'X3)) (A4 (LIST 'X4)) (A5 (LIST 'X5))) (LET ((W1 (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS A3 A4)))) (W2 (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS A1 A2)))) (W3 (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS A4 A5)))) (W4 (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS A2 A3))))) (SETQ A1 NIL A2 NIL A4 NIL A5 NIL) (GC) (LIST (WEAK-ALIST-CONTENTS W2) (WEAK-ALIST-CONTENTS W4) (WEAK-ALIST-CONTENTS W1) (WEAK-ALIST-CONTENTS W3))))
EQUAL-OK: (NIL NIL (((X3) X4)) (((X4) X5)))
(LET ((A1 (LIST 'X1)) (A2 (LIST 'X2)) (A3 (LIST 'X3)) (A4 (LIST 'X4)) (A5 (LIST 'X5))) (LET ((W1 (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS A3 A4)))) (W2 (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS A1 A2)))) (W3 (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS A4 A5)))) (W4 (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS A2 A3))))) (SETQ A1 NIL A2 NIL A3 NIL A5 NIL) (GC) (LIST (WEAK-ALIST-CONTENTS W2) (WEAK-ALIST-CONTENTS W4) (WEAK-ALIST-CONTENTS W1) (WEAK-ALIST-CONTENTS W3))))
EQUAL-OK: (NIL NIL NIL (((X4) X5)))
(LET ((A1 (LIST 'X1)) (A2 (LIST 'X2)) (A3 (LIST 'X3)) (A4 (LIST 'X4)) (A5 (LIST 'X5))) (LET ((W1 (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS A3 A4)))) (W2 (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS A1 A2)))) (W3 (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS A4 A5)))) (W4 (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS A2 A3))))) (SETQ A1 NIL A2 NIL A3 NIL A4 NIL) (GC) (LIST (WEAK-ALIST-CONTENTS W2) (WEAK-ALIST-CONTENTS W4) (WEAK-ALIST-CONTENTS W1) (WEAK-ALIST-CONTENTS W3))))
EQUAL-OK: (NIL NIL NIL NIL)
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS A B))))) (SETF (WEAK-ALIST-VALUE A W) C) (WEAK-ALIST-CONTENTS W)))
EQUAL-OK: (((X) Z))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS A B))))) (SETF (WEAK-ALIST-VALUE A W) C) (GC) (WEAK-ALIST-CONTENTS W)))
EQUAL-OK: (((X) Z))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS A B))))) (GC) (SETF (WEAK-ALIST-VALUE A W) C) (WEAK-ALIST-CONTENTS W)))
EQUAL-OK: (((X) Z))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS A B))))) (SETQ A (LIST 'X2)) (SETF (WEAK-ALIST-VALUE A W) C) (GC) (WEAK-ALIST-CONTENTS W)))
EQUAL-OK: (((X2) Z))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS A B))))) (SETQ A (LIST 'X2)) (GC) (SETF (WEAK-ALIST-VALUE A W) C) (WEAK-ALIST-CONTENTS W)))
EQUAL-OK: (((X2) Z))
(LET ((KA (LIST 'KX)) (VA (LIST 'VX)) (KB (LIST 'KY)) (VB (LIST 'VY)) (KC (LIST 'KZ)) (VC (LIST 'VZ))) (LET ((W (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS KA VA) (CONS KB VB) (CONS KA VC) (CONS KC VC))))) (LIST (WEAK-ALIST-ASSOC KA W) (WEAK-ALIST-ASSOC KB W) (WEAK-ALIST-ASSOC KC W) (WEAK-ALIST-ASSOC VA W) (WEAK-ALIST-ASSOC VB W) (WEAK-ALIST-ASSOC VC W))))
EQUAL-OK: (((KX) VX) ((KY) VY) ((KZ) VZ) NIL NIL NIL)
(LET ((KA (LIST 'KX)) (VA (LIST 'VX)) (KB (LIST 'KY)) (VB (LIST 'VY)) (KC (LIST 'KZ)) (VC (LIST 'VZ))) (LET ((W (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS KA VA) (CONS KB VB) (CONS KA VC) (CONS KC VC))))) (LIST (WEAK-ALIST-RASSOC KA W) (WEAK-ALIST-RASSOC KB W) (WEAK-ALIST-RASSOC KC W) (WEAK-ALIST-RASSOC VA W) (WEAK-ALIST-RASSOC VB W) (WEAK-ALIST-RASSOC VC W))))
EQUAL-OK: (NIL NIL NIL ((KX) VX) ((KY) VY) ((KX) VZ))
(LET ((KA (LIST 'KX)) (VA (LIST 'VX)) (KB (LIST 'KY)) (VB (LIST 'VY)) (KC (LIST 'KZ)) (VC (LIST 'VZ))) (LET ((W (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS KA VA) (CONS KB VB) (CONS KA VC) (CONS KC VC))))) (LIST (WEAK-ALIST-VALUE KA W) (WEAK-ALIST-VALUE KB W) (WEAK-ALIST-VALUE KC W) (WEAK-ALIST-VALUE VA W) (WEAK-ALIST-VALUE VB W) (WEAK-ALIST-VALUE VC W))))
EQUAL-OK: ((VX) (VY) (VZ) NIL NIL NIL)
(LET ((KA (LIST 'KX)) (VA (LIST 'VX)) (KB (LIST 'KY)) (VB (LIST 'VY)) (KC (LIST 'KZ)) (VC (LIST 'VZ))) (LET ((W (MAKE-WEAK-ALIST :TYPE :VALUE :INITIAL-CONTENTS (LIST (CONS KA VA) (CONS KB VB) (CONS KA VC) (CONS KC VC))))) (SETQ VA NIL) (GC) (LIST (WEAK-ALIST-ASSOC KA W) (WEAK-ALIST-ASSOC KB W) (WEAK-ALIST-ASSOC KC W) (WEAK-ALIST-ASSOC VB W) (WEAK-ALIST-ASSOC VC W))))
EQUAL-OK: (((KX) VZ) ((KY) VY) ((KZ) VZ) NIL NIL)
(LET ((KA (LIST 'KX)) (VA (LIST 'VX)) (KB (LIST 'KY)) (VB (LIST 'VY)) (KC (LIST 'KZ)) (VC (LIST 'VZ))) (LET ((W (MAKE-WEAK-ALIST :TYPE :VALUE :INITIAL-CONTENTS (LIST (CONS KA VA) (CONS KB VB) (CONS KA VC) (CONS KC VC))))) (SETQ VA NIL) (GC) (LIST (WEAK-ALIST-RASSOC KA W) (WEAK-ALIST-RASSOC KB W) (WEAK-ALIST-RASSOC KC W) (WEAK-ALIST-RASSOC VB W) (WEAK-ALIST-RASSOC VC W))))
EQUAL-OK: (NIL NIL NIL ((KY) VY) ((KX) VZ))
(LET ((KA (LIST 'KX)) (VA (LIST 'VX)) (KB (LIST 'KY)) (VB (LIST 'VY)) (KC (LIST 'KZ)) (VC (LIST 'VZ))) (LET ((W (MAKE-WEAK-ALIST :TYPE :VALUE :INITIAL-CONTENTS (LIST (CONS KA VA) (CONS KB VB) (CONS KA VC) (CONS KC VC))))) (SETQ VA NIL) (GC) (LIST (WEAK-ALIST-VALUE KA W) (WEAK-ALIST-VALUE KB W) (WEAK-ALIST-VALUE KC W) (WEAK-ALIST-VALUE VB W) (WEAK-ALIST-VALUE VC W))))
EQUAL-OK: ((VZ) (VY) (VZ) NIL NIL)
(LET ((KA (LIST 'X)) (VA (LIST '|x|)) (KB (LIST 'Y)) (VB (LIST '|y|)) (KC (LIST 'Z)) (VC (LIST '|z|))) (LET ((W (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS KA VA) (CONS KB VB) (CONS KA VC) (CONS KC VC))))) (LIST (WEAK-ALIST-ASSOC (CAR KA) W :TEST #'STRING-EQUAL :KEY #'CAR) (WEAK-ALIST-ASSOC (CAR KB) W :TEST #'STRING-EQUAL :KEY #'CAR) (WEAK-ALIST-ASSOC (CAR KC) W :TEST #'STRING-EQUAL :KEY #'CAR) (WEAK-ALIST-ASSOC (CAR VA) W :TEST #'STRING-EQUAL :KEY #'CAR) (WEAK-ALIST-ASSOC (CAR VB) W :TEST #'STRING-EQUAL :KEY #'CAR) (WEAK-ALIST-ASSOC (CAR VC) W :TEST #'STRING-EQUAL :KEY #'CAR))))
EQUAL-OK: (((X) |x|) ((Y) |y|) ((Z) |z|) ((X) |x|) ((Y) |y|) ((Z) |z|))
(LET ((KA (LIST 'X)) (VA (LIST '|x|)) (KB (LIST 'Y)) (VB (LIST '|y|)) (KC (LIST 'Z)) (VC (LIST '|z|))) (LET ((W (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS KA VA) (CONS KB VB) (CONS KA VC) (CONS KC VC))))) (LIST (WEAK-ALIST-RASSOC (CAR KA) W :TEST #'STRING-EQUAL :KEY #'CAR) (WEAK-ALIST-RASSOC (CAR KB) W :TEST #'STRING-EQUAL :KEY #'CAR) (WEAK-ALIST-RASSOC (CAR KC) W :TEST #'STRING-EQUAL :KEY #'CAR) (WEAK-ALIST-RASSOC (CAR VA) W :TEST #'STRING-EQUAL :KEY #'CAR) (WEAK-ALIST-RASSOC (CAR VB) W :TEST #'STRING-EQUAL :KEY #'CAR) (WEAK-ALIST-RASSOC (CAR VC) W :TEST #'STRING-EQUAL :KEY #'CAR))))
EQUAL-OK: (((X) |x|) ((Y) |y|) ((X) |z|) ((X) |x|) ((Y) |y|) ((X) |z|))
(LET ((KA (LIST 'X)) (VA (LIST '|x|)) (KB (LIST 'Y)) (VB (LIST '|y|)) (KC (LIST 'Z)) (VC (LIST '|z|))) (LET ((W (MAKE-WEAK-ALIST :INITIAL-CONTENTS (LIST (CONS KA VA) (CONS KB VB) (CONS KA VC) (CONS KC VC))))) (LIST (WEAK-ALIST-VALUE KA W :TEST #'(LAMBDA (U V) (STRING-EQUAL (CAR U) (CAR V)))) (WEAK-ALIST-VALUE KB W :TEST #'(LAMBDA (U V) (STRING-EQUAL (CAR U) (CAR V)))) (WEAK-ALIST-VALUE KC W :TEST #'(LAMBDA (U V) (STRING-EQUAL (CAR U) (CAR V)))) (WEAK-ALIST-VALUE VA W :TEST #'(LAMBDA (U V) (STRING-EQUAL (CAR U) (CAR V)))) (WEAK-ALIST-VALUE VB W :TEST #'(LAMBDA (U V) (STRING-EQUAL (CAR U) (CAR V)))) (WEAK-ALIST-VALUE VC W :TEST #'(LAMBDA (U V) (STRING-EQUAL (CAR U) (CAR V)))))))
EQUAL-OK: ((|x|) (|y|) (|z|) (|x|) (|y|) (|z|))
(LET* ((LI 'NIL) (W (LET ((ALI 'NIL)) (LOOP :FOR I :FROM 0 :TO 1000 :FOR STRING = (FORMAT NIL "~r" I) :DO (PUSH STRING LI) (PUSH (CONS STRING I) ALI)) (SETQ LI (NREVERSE LI)) (SETQ ALI (NREVERSE ALI)) (MAKE-WEAK-ALIST :INITIAL-CONTENTS ALI)))) (LIST (PROGN (GC) (LENGTH (WEAK-ALIST-CONTENTS W))) (PROGN (SETQ LI NIL) (GC) (LENGTH (WEAK-ALIST-CONTENTS W)))))
EQUAL-OK: (1001 0)
RUN-TEST: finished "weak" (0 errors out of 120 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"weakhash.tst" @1>
(DEFUN WEAK-HT-FILL-INITIALLY (TAB) (SETF (GETHASH (COPY-SEQ "foo") TAB) 1) (SETF (GETHASH 1 TAB) (COPY-SEQ "bar")) (SETF (GETHASH (COPY-SEQ "zoo") TAB) (COPY-SEQ "zot")))
EQL-OK: WEAK-HT-FILL-INITIALLY
(LET ((TAB (MAKE-HASH-TABLE :TEST 'EQUAL :WEAK :KEY))) (WEAK-HT-FILL-INITIALLY TAB) (GC) (LIST (GETHASH "foo" TAB) (GETHASH 1 TAB) (GETHASH "zoo" TAB)))
EQUAL-OK: (NIL "bar" NIL)
(LET ((TAB (MAKE-HASH-TABLE :TEST 'EQ :WEAK :KEY))) (LET ((A (LIST 'X))) (LET ((B (LIST 'Y))) (SETF (GETHASH A TAB) 'XXX) (SETF (GETHASH B TAB) (CONS 'YYY B))) (GC) (LIST (HASH-TABLE-COUNT TAB) (GETHASH A TAB) (LET ((L NIL)) (MAPHASH #'(LAMBDA (K V) (PUSH K L)) TAB) L))))
EQUAL-OK: (1 XXX ((X)))
(PROGN (DEFUN MAKE-FREAK-MAPPING (A B) (LET ((TAB (MAKE-HASH-TABLE :TEST 'EQ :WEAK :KEY))) (SETF (GETHASH A TAB) B) TAB)) (DEFUN FREAK-MAPPING-PAIR (TAB) (LET (A B C) (MAPHASH #'(LAMBDA (K V) (SETQ A K B V C T)) TAB) (VALUES A B C))) (DEFUN FREAK-MAPPING-VALUE (TAB) (BLOCK NIL (MAPHASH #'(LAMBDA (K V) (RETURN-FROM NIL V)) TAB) NIL)) (DEFUN (SETF FREAK-MAPPING-VALUE) (NEW-VALUE TAB) (BLOCK NIL (MAPHASH #'(LAMBDA (K V) (SETF (GETHASH K TAB) NEW-VALUE) (RETURN-FROM NIL)) TAB)) NEW-VALUE) T)
EQL-OK: T
(LET ((A (LIST 'X)) (B (LIST 'Y))) (LET ((W (MAKE-FREAK-MAPPING A B))) (GC) (LIST (MULTIPLE-VALUE-LIST (FREAK-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (FREAK-MAPPING-VALUE W)))))
EQUAL-OK: (((X) (Y) T) ((Y)))
(LET ((A (LIST 'X)) (B (LIST 'Y))) (LET ((W (MAKE-FREAK-MAPPING A B))) (SETQ B NIL) (GC) (LIST (MULTIPLE-VALUE-LIST (FREAK-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (FREAK-MAPPING-VALUE W)))))
EQUAL-OK: (((X) (Y) T) ((Y)))
(LET ((A (LIST 'X)) (B (LIST 'Y))) (LET ((W (MAKE-FREAK-MAPPING A B))) (SETQ A NIL) (GC) (LIST (MULTIPLE-VALUE-LIST (FREAK-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (FREAK-MAPPING-VALUE W)))))
EQUAL-OK: ((NIL NIL NIL) (NIL))
(LET ((A (LIST 'X)) (B (LIST 'Y))) (LET ((W (MAKE-FREAK-MAPPING A B))) (SETQ A NIL B NIL) (GC) (LIST (MULTIPLE-VALUE-LIST (FREAK-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (FREAK-MAPPING-VALUE W)))))
EQUAL-OK: ((NIL NIL NIL) (NIL))
(LET ((A1 (LIST 'X1)) (A2 (LIST 'X2)) (A3 (LIST 'X3)) (A4 (LIST 'X4)) (A5 (LIST 'X5))) (LET ((W1 (MAKE-FREAK-MAPPING A3 A4)) (W2 (MAKE-FREAK-MAPPING A1 A2)) (W3 (MAKE-FREAK-MAPPING A4 A5)) (W4 (MAKE-FREAK-MAPPING A2 A3))) (SETQ A2 NIL A3 NIL A4 NIL A5 NIL) (GC) (LIST (FREAK-MAPPING-VALUE W2) (FREAK-MAPPING-VALUE W4) (FREAK-MAPPING-VALUE W1) (FREAK-MAPPING-VALUE W3))))
EQUAL-OK: ((X2) (X3) (X4) (X5))
(LET ((A1 (LIST 'X1)) (A2 (LIST 'X2)) (A3 (LIST 'X3)) (A4 (LIST 'X4)) (A5 (LIST 'X5))) (LET ((W1 (MAKE-FREAK-MAPPING A3 A4)) (W2 (MAKE-FREAK-MAPPING A1 A2)) (W3 (MAKE-FREAK-MAPPING A4 A5)) (W4 (MAKE-FREAK-MAPPING A2 A3))) (SETQ A1 NIL A3 NIL A4 NIL A5 NIL) (GC) (LIST (FREAK-MAPPING-VALUE W2) (FREAK-MAPPING-VALUE W4) (FREAK-MAPPING-VALUE W1) (FREAK-MAPPING-VALUE W3))))
EQUAL-OK: (NIL (X3) (X4) (X5))
(LET ((A1 (LIST 'X1)) (A2 (LIST 'X2)) (A3 (LIST 'X3)) (A4 (LIST 'X4)) (A5 (LIST 'X5))) (LET ((W1 (MAKE-FREAK-MAPPING A3 A4)) (W2 (MAKE-FREAK-MAPPING A1 A2)) (W3 (MAKE-FREAK-MAPPING A4 A5)) (W4 (MAKE-FREAK-MAPPING A2 A3))) (SETQ A1 NIL A2 NIL A4 NIL A5 NIL) (GC) (LIST (FREAK-MAPPING-VALUE W2) (FREAK-MAPPING-VALUE W4) (FREAK-MAPPING-VALUE W1) (FREAK-MAPPING-VALUE W3))))
EQUAL-OK: (NIL NIL (X4) (X5))
(LET ((A1 (LIST 'X1)) (A2 (LIST 'X2)) (A3 (LIST 'X3)) (A4 (LIST 'X4)) (A5 (LIST 'X5))) (LET ((W1 (MAKE-FREAK-MAPPING A3 A4)) (W2 (MAKE-FREAK-MAPPING A1 A2)) (W3 (MAKE-FREAK-MAPPING A4 A5)) (W4 (MAKE-FREAK-MAPPING A2 A3))) (SETQ A1 NIL A2 NIL A3 NIL A5 NIL) (GC) (LIST (FREAK-MAPPING-VALUE W2) (FREAK-MAPPING-VALUE W4) (FREAK-MAPPING-VALUE W1) (FREAK-MAPPING-VALUE W3))))
EQUAL-OK: (NIL NIL NIL (X5))
(LET ((A1 (LIST 'X1)) (A2 (LIST 'X2)) (A3 (LIST 'X3)) (A4 (LIST 'X4)) (A5 (LIST 'X5))) (LET ((W1 (MAKE-FREAK-MAPPING A3 A4)) (W2 (MAKE-FREAK-MAPPING A1 A2)) (W3 (MAKE-FREAK-MAPPING A4 A5)) (W4 (MAKE-FREAK-MAPPING A2 A3))) (SETQ A1 NIL A2 NIL A3 NIL A4 NIL) (GC) (LIST (FREAK-MAPPING-VALUE W2) (FREAK-MAPPING-VALUE W4) (FREAK-MAPPING-VALUE W1) (FREAK-MAPPING-VALUE W3))))
EQUAL-OK: (NIL NIL NIL NIL)
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-FREAK-MAPPING A B))) (SETF (FREAK-MAPPING-VALUE W) C) (LIST (MULTIPLE-VALUE-LIST (FREAK-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (FREAK-MAPPING-VALUE W)))))
EQUAL-OK: (((X) (Z) T) ((Z)))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-FREAK-MAPPING A B))) (SETF (FREAK-MAPPING-VALUE W) C) (GC) (LIST (MULTIPLE-VALUE-LIST (FREAK-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (FREAK-MAPPING-VALUE W)))))
EQUAL-OK: (((X) (Z) T) ((Z)))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-FREAK-MAPPING A B))) (GC) (SETF (FREAK-MAPPING-VALUE W) C) (LIST (MULTIPLE-VALUE-LIST (FREAK-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (FREAK-MAPPING-VALUE W)))))
EQUAL-OK: (((X) (Z) T) ((Z)))
(LET ((A (LIST 'X)) (B (LIST 'Y)) (C (LIST 'Z))) (LET ((W (MAKE-FREAK-MAPPING A B))) (SETQ A NIL) (SETF (FREAK-MAPPING-VALUE W) C) (GC) (LIST (MULTIPLE-VALUE-LIST (FREAK-MAPPING-PAIR W)) (MULTIPLE-VALUE-LIST (FREAK-MAPPING-VALUE W)))))
EQUAL-OK: ((NIL NIL NIL) (NIL))
(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.013547 sec.
Run time: 0.013546 sec.
Space: 0 Bytes
GC: 1, GC time: 0.013538 sec.
Real time: 0.009113 sec.
Run time: 0.009113 sec.
Space: 0 Bytes
GC: 1, GC time: 0.009105 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.013318 sec.
Run time: 0.013318 sec.
Space: 0 Bytes
GC: 1, GC time: 0.013308 sec.
Real time: 0.009787 sec.
Run time: 0.009787 sec.
Space: 0 Bytes
GC: 1, GC time: 0.009779 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)
(LET ((TAB (MAKE-HASH-TABLE :TEST 'EQUAL :WEAK :VALUE))) (WEAK-HT-FILL-INITIALLY TAB) (GC) (LIST (GETHASH "foo" TAB) (GETHASH 1 TAB) (GETHASH "zoo" TAB)))
EQUAL-OK: (1 NIL NIL)
(LET ((TAB (MAKE-HASH-TABLE :TEST 'EQ :WEAK :VALUE))) (LET ((A (LIST 'X))) (LET ((B (LIST 'Y))) (SETF (GETHASH 'XXX TAB) A) (SETF (GETHASH (CONS 'YYY B) TAB) B)) (GC) (LIST (HASH-TABLE-COUNT TAB) (EQ (GETHASH 'XXX TAB) A) (LET ((L NIL)) (MAPHASH #'(LAMBDA (K V) (PUSH V L)) TAB) L))))
EQUAL-OK: (1 T ((X)))
(LET ((TAB (MAKE-HASH-TABLE :TEST 'EQUAL :WEAK :KEY-AND-VALUE))) (WEAK-HT-FILL-INITIALLY TAB) (GC) (LIST (GETHASH "foo" TAB) (GETHASH 1 TAB) (GETHASH "zoo" TAB)))
EQUAL-OK: (NIL NIL NIL)
(LET ((TAB (MAKE-HASH-TABLE :TEST 'EQUAL :WEAK :KEY-OR-VALUE))) (WEAK-HT-FILL-INITIALLY TAB) (GC) (LIST (GETHASH "foo" TAB) (GETHASH 1 TAB) (GETHASH "zoo" TAB)))
EQUAL-OK: (1 "bar" NIL)
(SYMBOLS-CLEANUP '(WEAK-HT-FILL-INITIALLY MAKE-FREAK-MAPPING FREAK-MAPPING-PAIR FREAK-MAPPING-VALUE TEST-WEAK-MAPPING-CHAIN TEST-WEAK-MAPPING-CHAIN-REVERSE))
EQL-OK: NIL
RUN-TEST: finished "weakhash" (0 errors out of 26 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"weakhash2.tst" @1>
(HASH-TABLE-WEAK-P (PROGN (SETQ TAB (MAKE-HASH-TABLE :WEAK :KEY :TEST 'EQUAL :INITIAL-CONTENTS '((1 . 2) ("foo" . "bar")))) TAB))
EQL-OK: :KEY
(GETHASH 1 TAB)
EQL-OK: 2
(GETHASH "foo" TAB)
EQUAL-OK: "bar"
(GETHASH "zot" TAB)
EQL-OK: NIL
(GETHASH "bar" TAB)
EQL-OK: NIL
(PROGN (GC) T)
EQL-OK: T
(GETHASH 1 TAB)
EQL-OK: 2
(GETHASH "foo" TAB)
EQL-OK: NIL
(GETHASH "zot" TAB)
EQL-OK: NIL
(GETHASH "bar" TAB)
EQL-OK: NIL
(SETF (HASH-TABLE-WEAK-P TAB) NIL)
EQL-OK: NIL
(GETHASH 1 TAB)
EQL-OK: 2
(GETHASH "foo" TAB)
EQL-OK: NIL
(SETF (GETHASH "foo" TAB) "bar")
EQUAL-OK: "bar"
(GETHASH "foo" TAB)
EQUAL-OK: "bar"
(PROGN (GC) T)
EQL-OK: T
(GETHASH "foo" TAB)
EQUAL-OK: "bar"
(SETF (HASH-TABLE-WEAK-P TAB) :KEY)
EQL-OK: :KEY
(PROGN (GC) T)
EQL-OK: T
(GETHASH "foo" TAB)
EQL-OK: NIL
(SETF (HASH-TABLE-WEAK-P TAB) :VALUE)
EQL-OK: :VALUE
(SETF (GETHASH "foo" TAB) 1)
EQL-OK: 1
(SETF (GETHASH 1 TAB) "bar")
EQUAL-OK: "bar"
(SETF (GETHASH "zoo" TAB) "zot")
EQUAL-OK: "zot"
(PROGN (GC) T)
EQL-OK: T
(GETHASH "foo" TAB)
EQL-OK: 1
(GETHASH 1 TAB)
EQL-OK: NIL
(GETHASH "zoo" TAB)
EQL-OK: NIL
(SETF (HASH-TABLE-WEAK-P TAB) :KEY-AND-VALUE)
EQL-OK: :KEY-AND-VALUE
(SETF (GETHASH "foo" TAB) 1)
EQL-OK: 1
(SETF (GETHASH 1 TAB) "bar")
EQUAL-OK: "bar"
(SETF (GETHASH "zoo" TAB) "zot")
EQUAL-OK: "zot"
(PROGN (GC) T)
EQL-OK: T
(GETHASH "foo" TAB)
EQL-OK: NIL
(GETHASH 1 TAB)
EQL-OK: NIL
(GETHASH "zoo" TAB)
EQL-OK: NIL
(SETF (HASH-TABLE-WEAK-P TAB) :KEY-OR-VALUE)
EQL-OK: :KEY-OR-VALUE
(SETF (GETHASH "foo" TAB) 1)
EQL-OK: 1
(SETF (GETHASH 1 TAB) "bar")
EQUAL-OK: "bar"
(SETF (GETHASH "zoo" TAB) "zot")
EQUAL-OK: "zot"
(PROGN (GC) T)
EQL-OK: T
(GETHASH "foo" TAB)
EQL-OK: 1
(GETHASH 1 TAB)
EQUAL-OK: "bar"
(GETHASH "zoo" TAB)
EQL-OK: NIL
(LET ((HTV (MAKE-HASH-TABLE :TEST 'EQL :WEAK :VALUE)) (HTK (MAKE-HASH-TABLE :TEST 'EQL :WEAK :KEY)) (LI NIL)) (LOOP :FOR I :FROM 0 :TO 1000 :FOR STRING = (FORMAT NIL "~r" I) :DO (PUSH STRING LI) (SETF (GETHASH I HTV) STRING (GETHASH STRING HTK) I)) (LIST (LENGTH LI) (CONS (HASH-TABLE-COUNT HTV) (HASH-TABLE-COUNT HTK)) (PROGN (GC) (CONS (HASH-TABLE-COUNT HTV) (HASH-TABLE-COUNT HTK))) (PROGN (SETQ LI NIL) (GC) (CONS (HASH-TABLE-COUNT HTV) (HASH-TABLE-COUNT HTK)))))
EQUAL-OK: (1001 (1001 . 1001) (1001 . 1001) (0 . 0))
(FLET ((HT_KVTABLE (HT) (IF (INTEGERP (SYSTEM::%RECORD-REF HT 1)) (SYSTEM::%RECORD-REF HT 2) (SYSTEM::%RECORD-REF HT 1))) (WHAL_ITABLE (KVT) (SYSTEM::%RECORD-REF KVT 1))) (LET* ((HT (MAKE-HASH-TABLE :TEST 'STABLEHASH-EQ :WEAK :KEY)) (KVT (HT_KVTABLE HT))) (ASSERT (SIMPLE-VECTOR-P (WHAL_ITABLE KVT))) (GC) (GC) (AND (EQ (HT_KVTABLE HT) KVT) (SIMPLE-VECTOR-P (WHAL_ITABLE KVT)))))
EQL-OK: T
(PROGN (SYMBOL-CLEANUP 'TAB))
EQL-OK: T
RUN-TEST: finished "weakhash2" (0 errors out of 47 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"bind.tst" @1>
(LET ((X 5)) (LET ((X (1+ X))) (DECLARE (SPECIAL X)) X))
EQL-OK: 6
(LET ((X 5)) (LET* ((X (1+ X))) (DECLARE (SPECIAL X)) X))
EQL-OK: 6
(LET ((X 5)) (MULTIPLE-VALUE-BIND (X) (1+ X) (DECLARE (SPECIAL X)) X))
EQL-OK: 6
(LET ((X 5)) ((LAMBDA (X) (DECLARE (SPECIAL X)) X) (1+ X)))
EQL-OK: 6
(BLOCK FOO (HANDLER-BIND ((UNBOUND-VARIABLE (HANDLER-RETURN FOO 'GOOD))) (LET ((X (1+ X))) (DECLARE (SPECIAL X)) X)))
[SIMPLE-UNBOUND-VARIABLE]: LET: variable X has no value
EQL-OK: GOOD
(BLOCK FOO (HANDLER-BIND ((UNBOUND-VARIABLE (HANDLER-RETURN FOO 'GOOD))) (LET* ((X (1+ X))) (DECLARE (SPECIAL X)) X)))
[SIMPLE-UNBOUND-VARIABLE]: LET*: variable X has no value
EQL-OK: GOOD
(BLOCK FOO (HANDLER-BIND ((UNBOUND-VARIABLE (HANDLER-RETURN FOO 'GOOD))) (MULTIPLE-VALUE-BIND (X) (1+ X) (DECLARE (SPECIAL X)) X)))
[SIMPLE-UNBOUND-VARIABLE]: MULTIPLE-VALUE-BIND: variable X has no value
EQL-OK: GOOD
(BLOCK FOO (HANDLER-BIND ((UNBOUND-VARIABLE (HANDLER-RETURN FOO 'GOOD))) ((LAMBDA (X) (DECLARE (SPECIAL X)) X) (1+ X))))
[SIMPLE-UNBOUND-VARIABLE]: :LAMBDA: variable X has no value
EQL-OK: GOOD
(LET ((X 5)) (LET ((Y (1+ X))) (DECLARE (SPECIAL X)) Y))
EQL-OK: 6
(LET ((X 5)) (LET* ((Y (1+ X))) (DECLARE (SPECIAL X)) Y))
EQL-OK: 6
(LET ((X 5)) (MULTIPLE-VALUE-BIND (Y) (1+ X) (DECLARE (SPECIAL X)) Y))
EQL-OK: 6
(LET ((X 5)) ((LAMBDA (Y) (DECLARE (SPECIAL X)) Y) (1+ X)))
EQL-OK: 6
(LET ((X 5)) (LET ((X (1+ X))) X))
EQL-OK: 6
(LET ((X 5)) (LET* ((X (1+ X))) X))
EQL-OK: 6
(LET ((X 5)) (MULTIPLE-VALUE-BIND (X) (1+ X) X))
EQL-OK: 6
(LET ((X 5)) ((LAMBDA (X) X) (1+ X)))
EQL-OK: 6
(LET ((X 5)) (PROGV '(X) '(20) (LET ((X (1+ X)) (Z (1+ X))) (DECLARE (SPECIAL X)) Z)))
EQL-OK: 6
(LET ((X 5)) (PROGV '(X) '(20) (LET* ((X (1+ X)) (Z (1+ X))) (DECLARE (SPECIAL X)) Z)))
EQL-OK: 7
(LET ((X 5)) (PROGV '(X) '(20) (MULTIPLE-VALUE-BIND (X Z) (VALUES (1+ X) (1+ X)) (DECLARE (SPECIAL X)) Z)))
EQL-OK: 6
(LET ((X 5)) (PROGV '(X) '(20) ((LAMBDA (&OPTIONAL (X (1+ X)) (Z (1+ X))) (DECLARE (SPECIAL X)) Z))))
EQL-OK: 7
(LET ((X 5)) (PROGV '(X Y) '(20 120) (LET ((X (1+ X)) (Y (1+ X)) (Z (1+ X))) (DECLARE (SPECIAL X)) (LIST Z (LOCALLY (DECLARE (SPECIAL Y)) Y) X Y))))
EQUAL-OK: (6 120 6 6)
(LET ((X 5)) (PROGV '(X Y) '(20 120) (LET* ((X (1+ X)) (Y (1+ X)) (Z (1+ X))) (DECLARE (SPECIAL X)) (LIST Z (LOCALLY (DECLARE (SPECIAL Y)) Y) X Y))))
EQUAL-OK: (7 120 6 7)
(LET ((X 5)) (PROGV '(X Y) '(20 120) (MULTIPLE-VALUE-BIND (X Y Z) (VALUES (1+ X) (1+ X) (1+ X)) (DECLARE (SPECIAL X)) (LIST Z (LOCALLY (DECLARE (SPECIAL Y)) Y) X Y))))
EQUAL-OK: (6 120 6 6)
(LET ((X 5)) (PROGV '(X Y) '(20 120) ((LAMBDA (&OPTIONAL (X (1+ X)) (Y (1+ X)) (Z (1+ X))) (DECLARE (SPECIAL X)) (LIST Z (LOCALLY (DECLARE (SPECIAL Y)) Y) X Y)))))
EQUAL-OK: (7 120 6 7)
(LET ((X 5)) (PROGV '(X) '(20) (LET ((Y (1+ X)) (Z (1+ X))) (DECLARE (SPECIAL X)) Z)))
EQL-OK: 6
(LET ((X 5)) (PROGV '(X) '(20) (LET* ((Y (1+ X)) (Z (1+ X))) (DECLARE (SPECIAL X)) Z)))
EQL-OK: 6
(LET ((X 5)) (PROGV '(X) '(20) (MULTIPLE-VALUE-BIND (Y Z) (VALUES (1+ X) (1+ X)) (DECLARE (SPECIAL X)) Z)))
EQL-OK: 6
(LET ((X 5)) (PROGV '(X) '(20) ((LAMBDA (&OPTIONAL (Y (1+ X)) (Z (1+ X))) (DECLARE (SPECIAL X)) Z))))
EQL-OK: 6
(PROGN (DEFPARAMETER *GLOBAL-VAR-FOR-BIND.TST* 123) (LET ((*GLOBAL-VAR-FOR-BIND.TST* 5)) (LIST (LET ((*GLOBAL-VAR-FOR-BIND.TST* (1+ *GLOBAL-VAR-FOR-BIND.TST*))) (DECLARE (SPECIAL *GLOBAL-VAR-FOR-BIND.TST*)) *GLOBAL-VAR-FOR-BIND.TST*) *GLOBAL-VAR-FOR-BIND.TST*)))
EQUAL-OK: (6 5)
(PROGN (DEFPARAMETER *GLOBAL-VAR-FOR-BIND.TST* 123) (LET ((*GLOBAL-VAR-FOR-BIND.TST* 5)) (LIST (LET* ((*GLOBAL-VAR-FOR-BIND.TST* (1+ *GLOBAL-VAR-FOR-BIND.TST*))) (DECLARE (SPECIAL *GLOBAL-VAR-FOR-BIND.TST*)) *GLOBAL-VAR-FOR-BIND.TST*) *GLOBAL-VAR-FOR-BIND.TST*)))
EQUAL-OK: (6 5)
(PROGN (DEFPARAMETER *GLOBAL-VAR-FOR-BIND.TST* 123) (LET ((*GLOBAL-VAR-FOR-BIND.TST* 5)) (LIST (MULTIPLE-VALUE-BIND (*GLOBAL-VAR-FOR-BIND.TST*) (1+ *GLOBAL-VAR-FOR-BIND.TST*) (DECLARE (SPECIAL *GLOBAL-VAR-FOR-BIND.TST*)) *GLOBAL-VAR-FOR-BIND.TST*) *GLOBAL-VAR-FOR-BIND.TST*)))
EQUAL-OK: (6 5)
(PROGN (DEFPARAMETER *GLOBAL-VAR-FOR-BIND.TST* 123) (LET ((*GLOBAL-VAR-FOR-BIND.TST* 5)) (LIST ((LAMBDA (*GLOBAL-VAR-FOR-BIND.TST*) (DECLARE (SPECIAL *GLOBAL-VAR-FOR-BIND.TST*)) *GLOBAL-VAR-FOR-BIND.TST*) (1+ *GLOBAL-VAR-FOR-BIND.TST*)) *GLOBAL-VAR-FOR-BIND.TST*)))
EQUAL-OK: (6 5)
(PROGN (DEFPARAMETER *GLOBAL-VAR-FOR-BIND.TST* 123) (LET ((*GLOBAL-VAR-FOR-BIND.TST* 5)) (LIST (LET ((*GLOBAL-VAR-FOR-BIND.TST* (1+ *GLOBAL-VAR-FOR-BIND.TST*))) *GLOBAL-VAR-FOR-BIND.TST*) *GLOBAL-VAR-FOR-BIND.TST*)))
EQUAL-OK: (6 5)
(PROGN (DEFPARAMETER *GLOBAL-VAR-FOR-BIND.TST* 123) (LET ((*GLOBAL-VAR-FOR-BIND.TST* 5)) (LIST (LET* ((*GLOBAL-VAR-FOR-BIND.TST* (1+ *GLOBAL-VAR-FOR-BIND.TST*))) *GLOBAL-VAR-FOR-BIND.TST*) *GLOBAL-VAR-FOR-BIND.TST*)))
EQUAL-OK: (6 5)
(PROGN (DEFPARAMETER *GLOBAL-VAR-FOR-BIND.TST* 123) (LET ((*GLOBAL-VAR-FOR-BIND.TST* 5)) (LIST (MULTIPLE-VALUE-BIND (*GLOBAL-VAR-FOR-BIND.TST*) (1+ *GLOBAL-VAR-FOR-BIND.TST*) *GLOBAL-VAR-FOR-BIND.TST*) *GLOBAL-VAR-FOR-BIND.TST*)))
EQUAL-OK: (6 5)
(PROGN (DEFPARAMETER *GLOBAL-VAR-FOR-BIND.TST* 123) (LET ((*GLOBAL-VAR-FOR-BIND.TST* 5)) (LIST ((LAMBDA (*GLOBAL-VAR-FOR-BIND.TST*) *GLOBAL-VAR-FOR-BIND.TST*) (1+ *GLOBAL-VAR-FOR-BIND.TST*)) *GLOBAL-VAR-FOR-BIND.TST*)))
EQUAL-OK: (6 5)
(EVAL-WHEN (EVAL COMPILE LOAD) (DEFMACRO CHK-TYPE (FORM TYPE) (LET ((OBJ (GENSYM))) `(LET ((,OBJ ,FORM)) (ASSERT (TYPEP ,OBJ ',TYPE)) (THE ,TYPE ,OBJ)))))
EQL-OK: CHK-TYPE
(SYMBOL-MACROLET ((X (LIST 'SYMBOL))) (MACROLET ((FOO (FORM) `(CHK-TYPE ,FORM ,@X))) (FOO 'BAR)))
EQL-OK: BAR
(LET ((X 5)) (PROGV '(X) '(20) (SYMBOL-MACROLET ((X (LIST 'SYMBOL))) (MACROLET ((FOO (FORM) `(CHK-TYPE ,FORM ,@X))) (FOO 'BAR)))))
EQL-OK: BAR
(LET ((X :GOOD)) (DECLARE (SPECIAL X)) (LET ((X :BAD)) (SYMBOL-MACROLET NIL (DECLARE (SPECIAL X)) X)))
EQL-OK: :GOOD
(LOCALLY (DECLARE (SPECIAL SYMBOL-TYPE)) (SETQ SYMBOL-TYPE (LIST 'SYMBOL)))
EQUAL-OK: (SYMBOL)
(LOCALLY (DECLARE (SPECIAL SYMBOL-TYPE)) (MACROLET ((FOO (FORM) `(CHK-TYPE ,FORM ,@SYMBOL-TYPE))) (FOO 'BAR)))
EQL-OK: BAR
(DEFPARAMETER *SYMBOL-TYPE* (LIST 'SYMBOL))
EQL-OK: *SYMBOL-TYPE*
(LET ((*SYMBOL-TYPE* (LIST 'SYMBOL))) (MACROLET ((FOO (FORM) `(CHK-TYPE ,FORM ,@*SYMBOL-TYPE*))) (FOO 'BAR)))
EQL-OK: BAR
(PROGV '(X) '((SYMBOL)) (LET ((X (LIST 'SYMBOL))) (MACROLET ((FOO (FORM) `(CHK-TYPE ,FORM ,@X))) (FOO 'BAR))))
[SIMPLE-SOURCE-PROGRAM-ERROR]: Invalid access to the value of the lexical variable X from within a MACROLET definition
EQL-OK: ERROR
(PROGV '(X) '((SYMBOL)) (LET ((X (LIST 'SYMBOL))) (DEFUN TESTFN NIL (MACROLET ((FOO (FORM) `(CHK-TYPE ,FORM ,@X))) (FOO 'BAR)))) (TESTFN))
[SIMPLE-SOURCE-PROGRAM-ERROR]: Invalid access to the value of the lexical variable X from within a MACROLET definition
EQL-OK: ERROR
(PROGV '(X) '((SYMBOL)) (LET ((X (LIST 'SYMBOL))) (MACROLET ((FOO (FORM) `(CHK-TYPE ,FORM ,@X))) (DEFUN TESTFN NIL (FOO 'BAR)))) (TESTFN))
[SIMPLE-SOURCE-PROGRAM-ERROR]: Invalid access to the value of the lexical variable X from within a MACROLET definition
EQL-OK: ERROR
(MACROLET ((X NIL '(LIST 'SYMBOL))) (MACROLET ((FOO (FORM) `(CHK-TYPE ,FORM ,@(X)))) (FOO 'BAR)))
EQL-OK: BAR
(DEFUN SYMBOL-TYPE-FN NIL (LIST 'SYMBOL))
EQL-OK: SYMBOL-TYPE-FN
(FLET ((SYMBOL-TYPE-FN NIL (LIST 'SYMBOL))) (MACROLET ((FOO (FORM) `(CHK-TYPE ,FORM ,@(SYMBOL-TYPE-FN)))) (FOO 'BAR)))
[SIMPLE-SOURCE-PROGRAM-ERROR]: Invalid access to the local function definition of SYMBOL-TYPE-FN from within a MACROLET definition
EQL-OK: ERROR
(PROGN (FLET ((SYMBOL-TYPE-FN NIL (LIST 'SYMBOL))) (DEFUN TESTFN NIL (MACROLET ((FOO (FORM) `(CHK-TYPE ,FORM ,@(SYMBOL-TYPE-FN)))) (FOO 'BAR)))) (TESTFN))
[SIMPLE-SOURCE-PROGRAM-ERROR]: Invalid access to the local function definition of SYMBOL-TYPE-FN from within a MACROLET definition
EQL-OK: ERROR
(PROGN (FLET ((SYMBOL-TYPE-FN NIL (LIST 'SYMBOL))) (MACROLET ((FOO (FORM) `(CHK-TYPE ,FORM ,@(SYMBOL-TYPE-FN)))) (DEFUN TESTFN NIL (FOO 'BAR)))) (TESTFN))
[SIMPLE-SOURCE-PROGRAM-ERROR]: Invalid access to the local function definition of SYMBOL-TYPE-FN from within a MACROLET definition
EQL-OK: ERROR
(BLOCK DONE (LET ((X :GOOD)) (DECLARE (SPECIAL X)) (LET ((X :BAD)) (DO* ((I 0 (RETURN-FROM DONE X))) (NIL NIL) (DECLARE (SPECIAL X))))))
EQL-OK: :GOOD
(LET ((X :GOOD)) (DECLARE (SPECIAL X)) (LET ((X :BAD)) (MULTIPLE-VALUE-BIND (A B) (FLOOR 13 4) (DECLARE (SPECIAL X)) (LIST A B X))))
EQUAL-OK: (3 1 :GOOD)
(LET ((X 1)) (DECLARE (SPECIAL X)) (LET ((X 2)) (DEFUN BIND-TEST-FUNCTION-1 (&OPTIONAL (Y X)) (DECLARE (SPECIAL X)) (LIST Y X)) (BIND-TEST-FUNCTION-1)))
EQUAL-OK: (2 1)
(LET ((X 5)) (LET ((X (1+ X)) (Z (1+ X))) (DECLARE (SPECIAL X)) Z))
EQL-OK: 6
(LET ((X 5)) (LET* ((X (1+ X)) (Z (1+ X))) (DECLARE (SPECIAL X)) Z))
EQL-OK: 7
(LET ((X 5)) (MULTIPLE-VALUE-BIND (X Z) (VALUES (1+ X) (1+ X)) (DECLARE (SPECIAL X)) Z))
EQL-OK: 6
(LET ((X 5)) ((LAMBDA (X Z) (DECLARE (SPECIAL X)) Z) (1+ X) (1+ X)))
EQL-OK: 6
(LET ((X 5)) ((LAMBDA (&OPTIONAL X Z) (DECLARE (SPECIAL X)) Z) (1+ X) (1+ X)))
EQL-OK: 6
(LET ((-X- NIL)) (DECLARE (SPECIAL -X-)) (LET ((-F- #'(LAMBDA NIL -X-))) (DECLARE (SPECIAL -F-)) (EVAL `(MACROLET ((%M (-X-) (DECLARE (SPECIAL -F-)) (FUNCALL -F-))) (%M T)))))
EQL-OK: NIL
(LET ((-X- NIL)) (DECLARE (SPECIAL -X-)) (LET ((-F- #'(LAMBDA NIL -X-))) (DECLARE (SPECIAL -F-)) (MACROLET ((%M (-X-) '(FUNCALL -F-))) (DECLARE (SPECIAL -F-)) (%M T))))
EQL-OK: NIL
(LET ((-X- NIL)) (DECLARE (SPECIAL -X-)) (LET ((-F- #'(LAMBDA NIL -X-))) (DECLARE (SPECIAL -F-)) (EVAL `(MACROLET ((%M (-X-) (DECLARE (SPECIAL -F- -X-)) (FUNCALL -F-))) (%M T)))))
EQL-OK: T
(LET ((-X- NIL)) (DECLARE (SPECIAL -X-)) (LET ((-F- #'(LAMBDA NIL -X-))) (DECLARE (SPECIAL -F-)) (MACROLET ((%M (-X-) '(FUNCALL -F-))) (DECLARE (SPECIAL -F- -X-)) (%M T))))
EQL-OK: NIL
(LET ((-X- NIL)) (DECLARE (SPECIAL -X-)) (LET ((-F- #'(LAMBDA NIL -X-))) (DECLARE (SPECIAL -F-)) (EVAL `(MACROLET ((%M ((-X-)) (DECLARE (SPECIAL -F- -X-)) (FUNCALL -F-))) (%M (T))))))
EQL-OK: T
(LET ((-X- NIL)) (DECLARE (SPECIAL -X-)) (LET ((-F- #'(LAMBDA NIL -X-))) (DECLARE (SPECIAL -F-)) (MACROLET ((%M ((-X-)) '(FUNCALL -F-))) (DECLARE (SPECIAL -F- -X-)) (%M (T)))))
EQL-OK: NIL
(LET ((X :SPECIAL)) (DECLARE (SPECIAL X)) (LET ((X :LEXICAL)) (MACROLET ((F NIL 'X)) (DECLARE (SPECIAL X)) (LIST X (F)))))
EQUAL-OK: (:SPECIAL :SPECIAL)
(LET ((X :SPECIAL)) (DECLARE (SPECIAL X)) (LET ((X :LEXICAL)) (FLET ((F NIL X)) (DECLARE (SPECIAL X)) (LIST X (F)))))
EQUAL-OK: (:SPECIAL :LEXICAL)
(LET ((X :SPECIAL)) (DECLARE (SPECIAL X)) (LET ((X :LEXICAL)) (LABELS ((F NIL X)) (DECLARE (SPECIAL X)) (LIST X (F)))))
EQUAL-OK: (:SPECIAL :LEXICAL)
(LET ((X :SPECIAL)) (DECLARE (SPECIAL X)) (LET ((X :LEXICAL)) (LABELS NIL (DECLARE (SPECIAL X)) X)))
EQL-OK: :SPECIAL
(LET ((X :SPECIAL)) (DECLARE (SPECIAL X)) (LET ((X :LEXICAL)) (LOCALLY (DECLARE (SPECIAL X)) X)))
EQL-OK: :SPECIAL
(SYMBOLS-CLEANUP '(*GLOBAL-VAR-FOR-BIND.TST* CHK-TYPE *SYMBOL-TYPE* TESTFN SYMBOL-TYPE-FN BIND-TEST-FUNCTION-1))
EQL-OK: NIL
RUN-TEST: finished "bind" (0 errors out of 72 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"bind.tst" @1>
(LET ((X 5)) (LET ((X (1+ X))) (DECLARE (SPECIAL X)) X))
EQL-OK: 6
(LET ((X 5)) (LET* ((X (1+ X))) (DECLARE (SPECIAL X)) X))
EQL-OK: 6
(LET ((X 5)) (MULTIPLE-VALUE-BIND (X) (1+ X) (DECLARE (SPECIAL X)) X))
EQL-OK: 6
(LET ((X 5)) ((LAMBDA (X) (DECLARE (SPECIAL X)) X) (1+ X)))
EQL-OK: 6
(BLOCK FOO (HANDLER-BIND ((UNBOUND-VARIABLE (HANDLER-RETURN FOO 'GOOD))) (LET ((X (1+ X))) (DECLARE (SPECIAL X)) X)))
WARNING: X is neither declared nor bound,
         it will be treated as if it were declared SPECIAL.[SIMPLE-UNBOUND-VARIABLE]: 
NIL: variable X has no value
EQL-OK: GOOD
(BLOCK FOO (HANDLER-BIND ((UNBOUND-VARIABLE (HANDLER-RETURN FOO 'GOOD))) (LET* ((X (1+ X))) (DECLARE (SPECIAL X)) X)))
WARNING: X is neither declared nor bound,
         it will be treated as if it were declared SPECIAL.[SIMPLE-UNBOUND-VARIABLE]: 
NIL: variable X has no value
EQL-OK: GOOD
(BLOCK FOO (HANDLER-BIND ((UNBOUND-VARIABLE (HANDLER-RETURN FOO 'GOOD))) (MULTIPLE-VALUE-BIND (X) (1+ X) (DECLARE (SPECIAL X)) X)))
[SIMPLE-UNBOUND-VARIABLE]: NIL: variable X has no value
EQL-OK: GOOD
(BLOCK FOO (HANDLER-BIND ((UNBOUND-VARIABLE (HANDLER-RETURN FOO 'GOOD))) ((LAMBDA (X) (DECLARE (SPECIAL X)) X) (1+ X))))
[SIMPLE-UNBOUND-VARIABLE]: WARNING: X is neither declared nor bound,
         it will be treated as if it were declared SPECIAL.
WARNING: X is neither declared nor bound,
         it will be treated as if it were declared SPECIAL.
NIL: variable X has no value
EQL-OK: GOOD
(LET ((X 5)) (LET ((Y (1+ X))) (DECLARE (SPECIAL X)) Y))
EQL-OK: 6
(LET ((X 5)) (LET* ((Y (1+ X))) (DECLARE (SPECIAL X)) Y))
EQL-OK: 6
(LET ((X 5)) (MULTIPLE-VALUE-BIND (Y) (1+ X) (DECLARE (SPECIAL X)) Y))
EQL-OK: 6
(LET ((X 5)) ((LAMBDA (Y) (DECLARE (SPECIAL X)) Y) (1+ X)))
EQL-OK: 6
(LET ((X 5)) (LET ((X (1+ X))) X))
EQL-OK: 6
(LET ((X 5)) (LET* ((X (1+ X))) X))
EQL-OK: 6
(LET ((X 5)) (MULTIPLE-VALUE-BIND (X) (1+ X) X))
EQL-OK: 6
(LET ((X 5)) ((LAMBDA (X) X) (1+ X)))
EQL-OK: 6
(LET ((X 5)) (PROGV '(X) '(20) (LET ((X (1+ X)) (Z (1+ X))) (DECLARE (SPECIAL X)) Z)))
EQL-OK: 6
(LET ((X 5)) (PROGV '(X) '(20) (LET* ((X (1+ X)) (Z (1+ X))) (DECLARE (SPECIAL X)) Z)))
EQL-OK: 7
(LET ((X 5)) (PROGV '(X) '(20) (MULTIPLE-VALUE-BIND (X Z) (VALUES (1+ X) (1+ X)) (DECLARE (SPECIAL X)) Z)))
EQL-OK: 6
(LET ((X 5)) (PROGV '(X) '(20) ((LAMBDA (&OPTIONAL (X (1+ X)) (Z (1+ X))) (DECLARE (SPECIAL X)) Z))))
EQL-OK: 7
(LET ((X 5)) (PROGV '(X Y) '(20 120) (LET ((X (1+ X)) (Y (1+ X)) (Z (1+ X))) (DECLARE (SPECIAL X)) (LIST Z (LOCALLY (DECLARE (SPECIAL Y)) Y) X Y))))
EQUAL-OK: (6 120 6 6)
(LET ((X 5)) (PROGV '(X Y) '(20 120) (LET* ((X (1+ X)) (Y (1+ X)) (Z (1+ X))) (DECLARE (SPECIAL X)) (LIST Z (LOCALLY (DECLARE (SPECIAL Y)) Y) X Y))))
EQUAL-OK: (7 120 6 7)
(LET ((X 5)) (PROGV '(X Y) '(20 120) (MULTIPLE-VALUE-BIND (X Y Z) (VALUES (1+ X) (1+ X) (1+ X)) (DECLARE (SPECIAL X)) (LIST Z (LOCALLY (DECLARE (SPECIAL Y)) Y) X Y))))
EQUAL-OK: (6 120 6 6)
(LET ((X 5)) (PROGV '(X Y) '(20 120) ((LAMBDA (&OPTIONAL (X (1+ X)) (Y (1+ X)) (Z (1+ X))) (DECLARE (SPECIAL X)) (LIST Z (LOCALLY (DECLARE (SPECIAL Y)) Y) X Y)))))
EQUAL-OK: (7 120 6 7)
(LET ((X 5)) (PROGV '(X) '(20) (LET ((Y (1+ X)) (Z (1+ X))) (DECLARE (SPECIAL X)) Z)))
WARNING: variable Y is not used.
         Misspelled or missing IGNORE declaration?EQL-OK: 6
(LET ((X 5)) (PROGV '(X) '(20) (LET* ((Y (1+ X)) (Z (1+ X))) (DECLARE (SPECIAL X)) Z)))
WARNING: variable Y is not used.
         Misspelled or missing IGNORE declaration?EQL-OK: 6
(LET ((X 5)) (PROGV '(X) '(20) (MULTIPLE-VALUE-BIND (Y Z) (VALUES (1+ X) (1+ X)) (DECLARE (SPECIAL X)) Z)))
WARNING: variable Y is not used.
         Misspelled or missing IGNORE declaration?EQL-OK: 6
(LET ((X 5)) (PROGV '(X) '(20) ((LAMBDA (&OPTIONAL (Y (1+ X)) (Z (1+ X))) (DECLARE (SPECIAL X)) Z))))
WARNING: variable Y is not used.
         EQL-OK: 6
(PROGN (DEFPARAMETER *GLOBAL-VAR-FOR-BIND.TST* 123) (LET ((*GLOBAL-VAR-FOR-BIND.TST* 5)) (LIST (LET ((*GLOBAL-VAR-FOR-BIND.TST* (1+ *GLOBAL-VAR-FOR-BIND.TST*))) (DECLARE (SPECIAL *GLOBAL-VAR-FOR-BIND.TST*)) *GLOBAL-VAR-FOR-BIND.TST*) *GLOBAL-VAR-FOR-BIND.TST*)))
EQUAL-OK: (6 5)
(PROGN (DEFPARAMETER *GLOBAL-VAR-FOR-BIND.TST* 123) (LET ((*GLOBAL-VAR-FOR-BIND.TST* 5)) (LIST (LET* ((*GLOBAL-VAR-FOR-BIND.TST* (1+ *GLOBAL-VAR-FOR-BIND.TST*))) (DECLARE (SPECIAL *GLOBAL-VAR-FOR-BIND.TST*)) *GLOBAL-VAR-FOR-BIND.TST*) *GLOBAL-VAR-FOR-BIND.TST*)))
EQUAL-OK: (6 5)
(PROGN (DEFPARAMETER *GLOBAL-VAR-FOR-BIND.TST* 123) (LET ((*GLOBAL-VAR-FOR-BIND.TST* 5)) (LIST (MULTIPLE-VALUE-BIND (*GLOBAL-VAR-FOR-BIND.TST*) (1+ *GLOBAL-VAR-FOR-BIND.TST*) (DECLARE (SPECIAL *GLOBAL-VAR-FOR-BIND.TST*)) *GLOBAL-VAR-FOR-BIND.TST*) *GLOBAL-VAR-FOR-BIND.TST*)))
EQUAL-OK: (6 5)
(PROGN (DEFPARAMETER *GLOBAL-VAR-FOR-BIND.TST* 123) (LET ((*GLOBAL-VAR-FOR-BIND.TST* 5)) (LIST ((LAMBDA (*GLOBAL-VAR-FOR-BIND.TST*) (DECLARE (SPECIAL *GLOBAL-VAR-FOR-BIND.TST*)) *GLOBAL-VAR-FOR-BIND.TST*) (1+ *GLOBAL-VAR-FOR-BIND.TST*)) *GLOBAL-VAR-FOR-BIND.TST*)))
EQUAL-OK: (6 5)
(PROGN (DEFPARAMETER *GLOBAL-VAR-FOR-BIND.TST* 123) (LET ((*GLOBAL-VAR-FOR-BIND.TST* 5)) (LIST (LET ((*GLOBAL-VAR-FOR-BIND.TST* (1+ *GLOBAL-VAR-FOR-BIND.TST*))) *GLOBAL-VAR-FOR-BIND.TST*) *GLOBAL-VAR-FOR-BIND.TST*)))
EQUAL-OK: (6 5)
(PROGN (DEFPARAMETER *GLOBAL-VAR-FOR-BIND.TST* 123) (LET ((*GLOBAL-VAR-FOR-BIND.TST* 5)) (LIST (LET* ((*GLOBAL-VAR-FOR-BIND.TST* (1+ *GLOBAL-VAR-FOR-BIND.TST*))) *GLOBAL-VAR-FOR-BIND.TST*) *GLOBAL-VAR-FOR-BIND.TST*)))
EQUAL-OK: (6 5)
(PROGN (DEFPARAMETER *GLOBAL-VAR-FOR-BIND.TST* 123) (LET ((*GLOBAL-VAR-FOR-BIND.TST* 5)) (LIST (MULTIPLE-VALUE-BIND (*GLOBAL-VAR-FOR-BIND.TST*) (1+ *GLOBAL-VAR-FOR-BIND.TST*) *GLOBAL-VAR-FOR-BIND.TST*) *GLOBAL-VAR-FOR-BIND.TST*)))
EQUAL-OK: (6 5)
(PROGN (DEFPARAMETER *GLOBAL-VAR-FOR-BIND.TST* 123) (LET ((*GLOBAL-VAR-FOR-BIND.TST* 5)) (LIST ((LAMBDA (*GLOBAL-VAR-FOR-BIND.TST*) *GLOBAL-VAR-FOR-BIND.TST*) (1+ *GLOBAL-VAR-FOR-BIND.TST*)) *GLOBAL-VAR-FOR-BIND.TST*)))
EQUAL-OK: (6 5)
(EVAL-WHEN (EVAL COMPILE LOAD) (DEFMACRO CHK-TYPE (FORM TYPE) (LET ((OBJ (GENSYM))) `(LET ((,OBJ ,FORM)) (ASSERT (TYPEP ,OBJ ',TYPE)) (THE ,TYPE ,OBJ)))))
EQL-OK: CHK-TYPE
(SYMBOL-MACROLET ((X (LIST 'SYMBOL))) (MACROLET ((FOO (FORM) `(CHK-TYPE ,FORM ,@X))) (FOO 'BAR)))
EQL-OK: BAR
(LET ((X 5)) (PROGV '(X) '(20) (SYMBOL-MACROLET ((X (LIST 'SYMBOL))) (MACROLET ((FOO (FORM) `(CHK-TYPE ,FORM ,@X))) (FOO 'BAR)))))
EQL-OK: BAR
(LET ((X :GOOD)) (DECLARE (SPECIAL X)) (LET ((X :BAD)) (SYMBOL-MACROLET NIL (DECLARE (SPECIAL X)) X)))
EQL-OK: :GOOD
(LOCALLY (DECLARE (SPECIAL SYMBOL-TYPE)) (SETQ SYMBOL-TYPE (LIST 'SYMBOL)))
EQUAL-OK: (SYMBOL)
(LOCALLY (DECLARE (SPECIAL SYMBOL-TYPE)) (MACROLET ((FOO (FORM) `(CHK-TYPE ,FORM ,@SYMBOL-TYPE))) (FOO 'BAR)))
Misspelled or missing IGNORE declaration?
WARNING: variable X is not used.
         Misspelled or missing IGNORE declaration?
WARNING: variable X is not used.
         Misspelled or missing IGNORE declaration?
EQL-OK: BAR
(DEFPARAMETER *SYMBOL-TYPE* (LIST 'SYMBOL))
EQL-OK: *SYMBOL-TYPE*
(LET ((*SYMBOL-TYPE* (LIST 'SYMBOL))) (MACROLET ((FOO (FORM) `(CHK-TYPE ,FORM ,@*SYMBOL-TYPE*))) (FOO 'BAR)))
EQL-OK: BAR
(PROGV '(X) '((SYMBOL)) (LET ((X (LIST 'SYMBOL))) (MACROLET ((FOO (FORM) `(CHK-TYPE ,FORM ,@X))) (FOO 'BAR))))
[SIMPLE-SOURCE-PROGRAM-ERROR]: Invalid access to the value of the lexical variable X from within a MACROLET definition
EQL-OK: ERROR
(PROGV '(X) '((SYMBOL)) (LET ((X (LIST 'SYMBOL))) (DEFUN TESTFN NIL (MACROLET ((FOO (FORM) `(CHK-TYPE ,FORM ,@X))) (FOO 'BAR)))) (TESTFN))
[SIMPLE-SOURCE-PROGRAM-ERROR]: Invalid access to the value of the lexical variable X from within a MACROLET definition
EQL-OK: ERROR
(PROGV '(X) '((SYMBOL)) (LET ((X (LIST 'SYMBOL))) (MACROLET ((FOO (FORM) `(CHK-TYPE ,FORM ,@X))) (DEFUN TESTFN NIL (FOO 'BAR)))) (TESTFN))
[SIMPLE-SOURCE-PROGRAM-ERROR]: Invalid access to the value of the lexical variable X from within a MACROLET definition
EQL-OK: ERROR
(MACROLET ((X NIL '(LIST 'SYMBOL))) (MACROLET ((FOO (FORM) `(CHK-TYPE ,FORM ,@(X)))) (FOO 'BAR)))
EQL-OK: BAR
(DEFUN SYMBOL-TYPE-FN NIL (LIST 'SYMBOL))
EQL-OK: SYMBOL-TYPE-FN
(FLET ((SYMBOL-TYPE-FN NIL (LIST 'SYMBOL))) (MACROLET ((FOO (FORM) `(CHK-TYPE ,FORM ,@(SYMBOL-TYPE-FN)))) (FOO 'BAR)))
[SIMPLE-SOURCE-PROGRAM-ERROR]: Invalid access to the local function definition of SYMBOL-TYPE-FN from within a MACROLET definition
EQL-OK: ERROR
(PROGN (FLET ((SYMBOL-TYPE-FN NIL (LIST 'SYMBOL))) (DEFUN TESTFN NIL (MACROLET ((FOO (FORM) `(CHK-TYPE ,FORM ,@(SYMBOL-TYPE-FN)))) (FOO 'BAR)))) (TESTFN))
[SIMPLE-SOURCE-PROGRAM-ERROR]: Invalid access to the local function definition of SYMBOL-TYPE-FN from within a MACROLET definition
EQL-OK: ERROR
(PROGN (FLET ((SYMBOL-TYPE-FN NIL (LIST 'SYMBOL))) (MACROLET ((FOO (FORM) `(CHK-TYPE ,FORM ,@(SYMBOL-TYPE-FN)))) (DEFUN TESTFN NIL (FOO 'BAR)))) (TESTFN))
[SIMPLE-SOURCE-PROGRAM-ERROR]: Invalid access to the local function definition of SYMBOL-TYPE-FN from within a MACROLET definition
EQL-OK: ERROR
(BLOCK DONE (LET ((X :GOOD)) (DECLARE (SPECIAL X)) (LET ((X :BAD)) (DO* ((I 0 (RETURN-FROM DONE X))) (NIL NIL) (DECLARE (SPECIAL X))))))
WARNING: variable I is assigned but not read
WARNING: variable X is not used.
         Misspelled or missing IGNORE declaration?EQL-OK: :GOOD
(LET ((X :GOOD)) (DECLARE (SPECIAL X)) (LET ((X :BAD)) (MULTIPLE-VALUE-BIND (A B) (FLOOR 13 4) (DECLARE (SPECIAL X)) (LIST A B X))))
WARNING: variable X is not used.
         Misspelled or missing IGNORE declaration?EQUAL-OK: (3 1 :GOOD
)
(LET ((X 1)) (DECLARE (SPECIAL X)) (LET ((X 2)) (DEFUN BIND-TEST-FUNCTION-1 (&OPTIONAL (Y X)) (DECLARE (SPECIAL X)) (LIST Y X)) (BIND-TEST-FUNCTION-1)))
WARNING: Function BIND-TEST-FUNCTION-1 is not definedEQUAL-OK: (2 1)
(LET ((X 5)) (LET ((X (1+ X)) (Z (1+ X))) (DECLARE (SPECIAL X)) Z))
EQL-OK: 6
(LET ((X 5)) (LET* ((X (1+ X)) (Z (1+ X))) (DECLARE (SPECIAL X)) Z))
EQL-OK: 7
(LET ((X 5)) (MULTIPLE-VALUE-BIND (X Z) (VALUES (1+ X) (1+ X)) (DECLARE (SPECIAL X)) Z))
EQL-OK: 6
(LET ((X 5)) ((LAMBDA (X Z) (DECLARE (SPECIAL X)) Z) (1+ X) (1+ X)))
EQL-OK: 6
(LET ((X 5)) ((LAMBDA (&OPTIONAL X Z) (DECLARE (SPECIAL X)) Z) (1+ X) (1+ X)))
EQL-OK: 6
(LET ((-X- NIL)) (DECLARE (SPECIAL -X-)) (LET ((-F- #'(LAMBDA NIL -X-))) (DECLARE (SPECIAL -F-)) (EVAL `(MACROLET ((%M (-X-) (DECLARE (SPECIAL -F-)) (FUNCALL -F-))) (%M T)))))
EQL-OK: NIL
(LET ((-X- NIL)) (DECLARE (SPECIAL -X-)) (LET ((-F- #'(LAMBDA NIL -X-))) (DECLARE (SPECIAL -F-)) (MACROLET ((%M (-X-) '(FUNCALL -F-))) (DECLARE (SPECIAL -F-)) (%M T))))
EQL-OK: NIL
(LET ((-X- NIL)) (DECLARE (SPECIAL -X-)) (LET ((-F- #'(LAMBDA NIL -X-))) (DECLARE (SPECIAL -F-)) (EVAL `(MACROLET ((%M (-X-) (DECLARE (SPECIAL -F- -X-)) (FUNCALL -F-))) (%M T)))))
EQL-OK: T
(LET ((-X- NIL)) (DECLARE (SPECIAL -X-)) (LET ((-F- #'(LAMBDA NIL -X-))) (DECLARE (SPECIAL -F-)) (MACROLET ((%M (-X-) '(FUNCALL -F-))) (DECLARE (SPECIAL -F- -X-)) (%M T))))
EQL-OK: NIL
(LET ((-X- NIL)) (DECLARE (SPECIAL -X-)) (LET ((-F- #'(LAMBDA NIL -X-))) (DECLARE (SPECIAL -F-)) (EVAL `(MACROLET ((%M ((-X-)) (DECLARE (SPECIAL -F- -X-)) (FUNCALL -F-))) (%M (T))))))
EQL-OK: T
(LET ((-X- NIL)) (DECLARE (SPECIAL -X-)) (LET ((-F- #'(LAMBDA NIL -X-))) (DECLARE (SPECIAL -F-)) (MACROLET ((%M ((-X-)) '(FUNCALL -F-))) (DECLARE (SPECIAL -F- -X-)) (%M (T)))))
EQL-OK: NIL
(LET ((X :SPECIAL)) (DECLARE (SPECIAL X)) (LET ((X :LEXICAL)) (MACROLET ((F NIL 'X)) (DECLARE (SPECIAL X)) (LIST X (F)))))
WARNING: variable X is not used.
         Misspelled or missing IGNORE declaration?EQUAL-OK: (:SPECIAL :SPECIAL)
(LET ((X :SPECIAL)) (DECLARE (SPECIAL X)) (LET ((X :LEXICAL)) (FLET ((F NIL X)) (DECLARE (SPECIAL X)) (LIST X (F)))))
EQUAL-OK: (:SPECIAL :LEXICAL)
(LET ((X :SPECIAL)) (DECLARE (SPECIAL X)) (LET ((X :LEXICAL)) (LABELS ((F NIL X)) (DECLARE (SPECIAL X)) (LIST X (F)))))
EQUAL-OK: (:SPECIAL :LEXICAL)
(LET ((X :SPECIAL)) (DECLARE (SPECIAL X)) (LET ((X :LEXICAL)) (LABELS NIL (DECLARE (SPECIAL X)) X)))
EQL-OK: :SPECIAL
(LET ((X :SPECIAL)) (DECLARE (SPECIAL X)) (LET ((X :LEXICAL)) (LOCALLY (DECLARE (SPECIAL X)) X)))
EQL-OK: :SPECIAL
(SYMBOLS-CLEANUP '(*GLOBAL-VAR-FOR-BIND.TST* CHK-TYPE *SYMBOL-TYPE* TESTFN SYMBOL-TYPE-FN BIND-TEST-FUNCTION-1))
EQL-OK: NIL
RUN-TEST: finished "bind" (0 errors out of 72 tests)
WARNING: variable X is not used.
         Misspelled or missing IGNORE declaration?
WARNING: variable X is not used.
         Misspelled or missing IGNORE declaration?
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"conditions.tst" @1>
(DEFUN MY-CPL (CLASS) (CLASS-PRECEDENCE-LIST (FIND-CLASS CLASS)))
EQL-OK: MY-CPL
(DEFUN CHECK-SUPERCLASSES (CLASS EXPECTED) (LET ((EXPECTED (LIST* CLASS 'T 'STANDARD-OBJECT 'CONDITION EXPECTED)) (SUPER (MAPCAR #'CLASS-NAME (MY-CPL CLASS)))) (LIST (SET-DIFFERENCE SUPER EXPECTED) (SET-DIFFERENCE EXPECTED SUPER))))
EQL-OK: CHECK-SUPERCLASSES
(MULTIPLE-VALUE-BIND (VALUE CONDITION) (IGNORE-ERRORS (ERROR "Foo")) (LIST VALUE (TYPE-OF CONDITION)))
EQUAL-OK: (NIL SIMPLE-ERROR)
(MULTIPLE-VALUE-LIST (IGNORE-ERRORS (VALUES 23 42)))
EQUAL-OK: (23 42)
(CHECK-SUPERCLASSES 'WARNING 'NIL)
EQUAL-OK: (NIL NIL)
(CHECK-SUPERCLASSES 'STYLE-WARNING '(WARNING))
EQUAL-OK: (NIL NIL)
(CHECK-SUPERCLASSES 'SERIOUS-CONDITION 'NIL)
EQUAL-OK: (NIL NIL)
(CHECK-SUPERCLASSES 'ERROR '(SERIOUS-CONDITION))
EQUAL-OK: (NIL NIL)
(CHECK-SUPERCLASSES 'CELL-ERROR '(ERROR SERIOUS-CONDITION))
EQUAL-OK: (NIL NIL)
(CHECK-SUPERCLASSES 'PARSE-ERROR '(ERROR SERIOUS-CONDITION))
EQUAL-OK: (NIL NIL)
(CHECK-SUPERCLASSES 'STORAGE-CONDITION '(SERIOUS-CONDITION))
EQUAL-OK: (NIL NIL)
(CHECK-SUPERCLASSES 'SIMPLE-ERROR '(SIMPLE-CONDITION ERROR SERIOUS-CONDITION))
EQUAL-OK: (NIL NIL)
(CHECK-SUPERCLASSES 'SIMPLE-CONDITION 'NIL)
EQUAL-OK: (NIL NIL)
(CHECK-SUPERCLASSES 'SIMPLE-WARNING '(SIMPLE-CONDITION WARNING))
EQUAL-OK: (NIL NIL)
(CHECK-SUPERCLASSES 'FILE-ERROR '(ERROR SERIOUS-CONDITION))
EQUAL-OK: (NIL NIL)
(CHECK-SUPERCLASSES 'CONTROL-ERROR '(ERROR SERIOUS-CONDITION))
EQUAL-OK: (NIL NIL)
(CHECK-SUPERCLASSES 'PROGRAM-ERROR '(ERROR SERIOUS-CONDITION))
EQUAL-OK: (NIL NIL)
(CHECK-SUPERCLASSES 'UNDEFINED-FUNCTION '(CELL-ERROR ERROR SERIOUS-CONDITION))
EQUAL-OK: (NIL NIL)
(CHECK-SUPERCLASSES 'ARITHMETIC-ERROR '(ERROR SERIOUS-CONDITION))
EQUAL-OK: (NIL NIL)
(CHECK-SUPERCLASSES 'DIVISION-BY-ZERO '(ARITHMETIC-ERROR ERROR SERIOUS-CONDITION))
EQUAL-OK: (NIL NIL)
(CHECK-SUPERCLASSES 'FLOATING-POINT-INVALID-OPERATION '(ARITHMETIC-ERROR ERROR SERIOUS-CONDITION))
EQUAL-OK: (NIL NIL)
(CHECK-SUPERCLASSES 'FLOATING-POINT-INEXACT '(ARITHMETIC-ERROR ERROR SERIOUS-CONDITION))
EQUAL-OK: (NIL NIL)
(CHECK-SUPERCLASSES 'FLOATING-POINT-OVERFLOW '(ARITHMETIC-ERROR ERROR SERIOUS-CONDITION))
EQUAL-OK: (NIL NIL)
(CHECK-SUPERCLASSES 'FLOATING-POINT-UNDERFLOW '(ARITHMETIC-ERROR ERROR SERIOUS-CONDITION))
EQUAL-OK: (NIL NIL)
(CHECK-SUPERCLASSES 'UNBOUND-SLOT '(CELL-ERROR ERROR SERIOUS-CONDITION))
EQUAL-OK: (NIL NIL)
(CHECK-SUPERCLASSES 'PACKAGE-ERROR '(ERROR SERIOUS-CONDITION))
EQUAL-OK: (NIL NIL)
(CHECK-SUPERCLASSES 'PRINT-NOT-READABLE '(ERROR SERIOUS-CONDITION))
EQUAL-OK: (NIL NIL)
(CHECK-SUPERCLASSES 'READER-ERROR '(PARSE-ERROR STREAM-ERROR ERROR SERIOUS-CONDITION))
EQUAL-OK: (NIL NIL)
(CHECK-SUPERCLASSES 'STREAM-ERROR '(ERROR SERIOUS-CONDITION))
EQUAL-OK: (NIL NIL)
(CHECK-SUPERCLASSES 'END-OF-FILE '(STREAM-ERROR ERROR SERIOUS-CONDITION))
EQUAL-OK: (NIL NIL)
(CHECK-SUPERCLASSES 'UNBOUND-VARIABLE '(CELL-ERROR ERROR SERIOUS-CONDITION))
EQUAL-OK: (NIL NIL)
(CHECK-SUPERCLASSES 'TYPE-ERROR '(ERROR SERIOUS-CONDITION))
EQUAL-OK: (NIL NIL)
(CHECK-SUPERCLASSES 'SIMPLE-TYPE-ERROR '(SIMPLE-CONDITION TYPE-ERROR ERROR SERIOUS-CONDITION))
EQUAL-OK: (NIL NIL)
(DEFINE-CONDITION TEST NIL NIL)
EQL-OK: TEST
(CHECK-SUPERCLASSES 'TEST 'NIL)
EQUAL-OK: (NIL NIL)
(DEFINE-CONDITION TEST2 (TEST) NIL)
EQL-OK: TEST2
(CHECK-SUPERCLASSES 'TEST2 '(TEST))
EQUAL-OK: (NIL NIL)
(DEFINE-CONDITION TEST3 (TEST2 SIMPLE-CONDITION) NIL)
EQL-OK: TEST3
(CHECK-SUPERCLASSES 'TEST3 '(TEST2 TEST SIMPLE-CONDITION))
EQUAL-OK: (NIL NIL)
(PROGN (MAKE-CONDITION 'TEST) T)
EQL-OK: T
(IGNORE-ERRORS (PROGN (MAKE-CONDITION 'INTEGER) T))
EQL-OK: NIL
(DEFINE-CONDITION TEST4 (TEST3) NIL (:REPORT (LAMBDA (CONDITION STREAM) (FORMAT STREAM "Yow! -- ~S" (TYPE-OF CONDITION)))))
EQL-OK: TEST4
(WITH-OUTPUT-TO-STRING (S) (PRINC (MAKE-CONDITION 'TEST4) S))
EQUAL-OK: "Yow! -- TEST4"
(DEFINE-CONDITION TEST5 (TEST4) NIL)
EQL-OK: TEST5
(WITH-OUTPUT-TO-STRING (S) (PRINC (MAKE-CONDITION 'TEST5) S))
EQUAL-OK: "Yow! -- TEST5"
(WITH-OUTPUT-TO-STRING (S) (PRINC (MAKE-CONDITION 'TEST3 :FORMAT-CONTROL "And How! -- ~S" :FORMAT-ARGUMENTS '(23)) S))
EQUAL-OK: "And How! -- 23"
(DEFINE-CONDITION TEST6 (TEST4) ((FOO :INITARG :FOO :INITFORM 23 :ACCESSOR TEST6-FOO)) (:REPORT (LAMBDA (CONDITION STREAM) (FORMAT STREAM "~S -- ~S" (TYPE-OF CONDITION) (TEST6-FOO CONDITION)))))
EQL-OK: TEST6
(TEST6-FOO (MAKE-CONDITION 'TEST6))
EQL-OK: 23
(TEST6-FOO (MAKE-CONDITION 'TEST6 :FOO 42))
EQL-OK: 42
(SETF (TEST6-FOO (MAKE-CONDITION 'TEST6 :FOO 42)) 17)
EQL-OK: 17
(WITH-OUTPUT-TO-STRING (S) (PRINC (MAKE-CONDITION 'TEST6 :FOO 42) S))
EQUAL-OK: "TEST6 -- 42"
(LET ((TYPE '(OR PROGRAM-ERROR TYPE-ERROR))) (TYPEP (MAKE-CONDITION TYPE) TYPE))
EQL-OK: T
(LET ((TYPE '(AND SIMPLE-ERROR TYPE-ERROR))) (TYPEP (MAKE-CONDITION TYPE) TYPE))
EQL-OK: T
(IGNORE-ERRORS (HANDLER-BIND NIL (ERROR "Foo")))
EQL-OK: NIL
(MULTIPLE-VALUE-LIST (BLOCK FOO (HANDLER-BIND ((ERROR (HANDLER-RETURN FOO 23))) (VALUES 42 17))))
EQUAL-OK: (42 17)
(MULTIPLE-VALUE-LIST (BLOCK FOO (HANDLER-BIND ((ERROR (HANDLER-RETURN FOO (VALUES 23 17)))) (ERROR "Foo"))))
[SIMPLE-ERROR]: Foo
EQUAL-OK: (23 17)
(IGNORE-ERRORS (BLOCK FOO (HANDLER-BIND ((TYPE-ERROR (HANDLER-RETURN FOO 23))) (ERROR "Foo"))))
EQL-OK: NIL
(BLOCK FOO (HANDLER-BIND (((OR TYPE-ERROR ERROR) (HANDLER-RETURN FOO 23))) (ERROR "Foo")))
[SIMPLE-ERROR]: Foo
EQL-OK: 23
(IGNORE-ERRORS (BLOCK FOO (LET ((FIRST-TIME T)) (HANDLER-BIND ((ERROR #'(LAMBDA (C) (PRINC-ERROR C) (IF FIRST-TIME (PROGN (SETQ FIRST-TIME NIL) (ERROR "Bar")) (RETURN-FROM FOO 23))))) (ERROR "Foo")))))
[SIMPLE-ERROR]: Foo
EQL-OK: NIL
(BLOCK FOO (LET ((FIRST-TIME T)) (HANDLER-BIND ((ERROR (HANDLER-RETURN FOO 23))) (HANDLER-BIND ((ERROR #'(LAMBDA (C) (PRINC-ERROR C) (IF FIRST-TIME (PROGN (SETQ FIRST-TIME NIL) (ERROR "Bar")) (RETURN-FROM FOO 42))))) (ERROR "Foo")))))
[SIMPLE-ERROR]: Foo
[SIMPLE-ERROR]: Bar
EQL-OK: 23
(IGNORE-ERRORS (BLOCK FOO (HANDLER-BIND ((ERROR #'(LAMBDA (C) (PRINC-ERROR C) NIL)) (ERROR (HANDLER-RETURN FOO 23))) (ERROR "Foo"))))
[SIMPLE-ERROR]: Foo
[SIMPLE-ERROR]: Foo
EQL-OK: 23
(BLOCK FOO (HANDLER-BIND ((TYPE-ERROR (HANDLER-RETURN FOO 42)) (ERROR (HANDLER-RETURN FOO 23))) (ERROR "Foo")))
[SIMPLE-ERROR]: Foo
EQL-OK: 23
(BLOCK FOO (HANDLER-BIND ((ERROR (HANDLER-RETURN FOO 23))) (BLOCK BAR (HANDLER-BIND ((ERROR (HANDLER-RETURN FOO 42))) (RETURN-FROM BAR))) (ERROR "Foo")))
[SIMPLE-ERROR]: Foo
EQL-OK: 23
(MULTIPLE-VALUE-LIST (HANDLER-CASE (ERROR "Foo") (ERROR (C) (WHEN (TYPEP C 'ERROR) (VALUES 23 42)))))
EQUAL-OK: (23 42)
(IGNORE-ERRORS (HANDLER-CASE (ERROR "Foo") (TYPE-ERROR NIL 23)))
EQL-OK: NIL
(IGNORE-ERRORS (HANDLER-CASE (ERROR "Foo")))
EQL-OK: NIL
(MULTIPLE-VALUE-LIST (HANDLER-CASE (VALUES 42 17) (ERROR NIL 23)))
EQUAL-OK: (42 17)
(MULTIPLE-VALUE-LIST (HANDLER-CASE (VALUES 23 42) (:NO-ERROR (A B) (VALUES B A))))
EQUAL-OK: (42 23)
(HANDLER-CASE (ERROR "Foo") (ERROR NIL 23) (:NO-ERROR (&REST ARGS) (DECLARE (IGNORE ARGS)) 42))
EQL-OK: 23
(HANDLER-CASE 23 (:NO-ERROR (V) (1+ V)) (ERROR NIL 42))
EQL-OK: 24
(HANDLER-CASE (ERROR "Foo") (TYPE-ERROR NIL 23) (ERROR NIL 42))
EQL-OK: 42
(IGNORE-ERRORS (PROGN (BLOCK FOO (HANDLER-CASE (RETURN-FROM FOO 23) (ERROR NIL 42))) (ERROR "Foo")))
EQL-OK: NIL
(IGNORE-ERRORS (BLOCK FOO (LET ((FIRST-TIME T)) (HANDLER-CASE (ERROR "Foo") (ERROR NIL (IF FIRST-TIME (PROGN (SETF FIRST-TIME NIL) (ERROR "Bar")) (RETURN-FROM FOO 23)))))))
EQL-OK: NIL
(MACROLET ((%M (&REST ARGS) (CONS 'ERROR ARGS))) (HANDLER-BIND ((ERROR #'(LAMBDA (C2) (INVOKE-RESTART (FIND-RESTART 'FOO C2))))) (HANDLER-BIND ((ERROR #'(LAMBDA (C) (PRINC-ERROR C) (ERROR "blah")))) (RESTART-CASE (RESTART-CASE (%M "boo!") (FOO NIL 'BAD)) (FOO NIL 'GOOD)))))
[SIMPLE-ERROR]: boo!
EQL-OK: GOOD
(SYMBOL-MACROLET ((%S (ERROR "boo!"))) (HANDLER-BIND ((ERROR #'(LAMBDA (C2) (INVOKE-RESTART (FIND-RESTART 'FOO C2))))) (HANDLER-BIND ((ERROR #'(LAMBDA (C) (PRINC-ERROR C) (ERROR "blah")))) (RESTART-CASE (RESTART-CASE %S (FOO NIL 'BAD)) (FOO NIL 'GOOD)))))
[SIMPLE-ERROR]: boo!
EQL-OK: GOOD
(MACROLET ((%M2 (&REST ARGS) (CONS 'ERROR ARGS))) (MACROLET ((%M (&REST ARGS &ENVIRONMENT ENV) (MACROEXPAND (CONS '%M2 ARGS) ENV))) (HANDLER-BIND ((ERROR #'(LAMBDA (C2) (INVOKE-RESTART (FIND-RESTART 'FOO C2))))) (HANDLER-BIND ((ERROR #'(LAMBDA (C) (PRINC-ERROR C) (ERROR "blah")))) (RESTART-CASE (RESTART-CASE (%M "boo!") (FOO NIL 'BAD)) (FOO NIL 'GOOD))))))
[SIMPLE-ERROR]: boo!
EQL-OK: GOOD
(MACROLET ((%M2 (&REST ARGS) (CONS 'ERROR ARGS))) (MACROLET ((%M (&REST ARGS &ENVIRONMENT ENV) (MACROEXPAND (CONS '%M2 ARGS) ENV))) (HANDLER-BIND ((ERROR #'(LAMBDA (C2) (INVOKE-RESTART (FIND-RESTART 'FOO C2))))) (HANDLER-BIND ((ERROR #'(LAMBDA (C) (PRINC-ERROR C) (ERROR "blah")))) (RESTART-CASE (WITH-RESTARTS ((FOO NIL 'BAD)) (%M "boo!")) (FOO NIL 'GOOD))))))
[SIMPLE-ERROR]: boo!
EQL-OK: GOOD
(MULTIPLE-VALUE-LIST (WITH-SIMPLE-RESTART (FOO "zzz") (INVOKE-RESTART 'FOO)))
EQUAL-OK: (NIL T)
(MULTIPLE-VALUE-LIST (FLET ((%F NIL (INVOKE-RESTART 'FOO))) (WITH-SIMPLE-RESTART (FOO "zzz") (%F))))
EQUAL-OK: (NIL T)
(MULTIPLE-VALUE-LIST (WITH-SIMPLE-RESTART (NIL "") (INVOKE-RESTART (FIRST (COMPUTE-RESTARTS)))))
EQUAL-OK: (NIL T)
(RESTART-CASE (INVOKE-RESTART 'FOO) (FOO NIL :TEST (LAMBDA (C) (PRINC-ERROR C) NIL) 'BAD) (FOO NIL 'GOOD))
[NULL]: NIL
EQL-OK: GOOD
(BLOCK NIL (HANDLER-BIND ((TYPE-ERROR (LAMBDA (C) (RETURN (LIST (TYPE-ERROR-EXPECTED-TYPE C) (TYPE-ERROR-DATUM C)))))) (COERCE '(1 2 3) 'INTEGER)))
EQUAL-OK: (INTEGER (1 2 3))
(BLOCK NIL (HANDLER-BIND ((TYPE-ERROR (LAMBDA (C) (RETURN (LIST (TYPE-ERROR-EXPECTED-TYPE C) (TYPE-ERROR-DATUM C)))))) (COERCE '(1 2 3) '(INTEGER 1))))
EQUAL-OK: ((INTEGER 1) (1 2 3))
(LET ((DONE NIL)) (BLOCK TEST (SYSTEM::DRIVER #'(LAMBDA NIL (WHEN DONE (RETURN-FROM TEST NIL)) (SETQ DONE T) (HANDLER-BIND ((ERROR (LAMBDA (C) (THROW 'SYSTEM::DONE-SIGNALING NIL)))) (LET ((*DEBUG-IO* (MAKE-TWO-WAY-STREAM (MAKE-STRING-INPUT-STREAM "") *TERMINAL-IO*))) (ASSERT (= 1 2))))))))
*** - (= 1 2) must evaluate to a non-NIL value.EQL-OK: NIL
(BLOCK NIL (HANDLER-BIND ((UNBOUND-VARIABLE (HANDLER-RETURN NIL :GOOD))) (LET ((FOO (GENSYM "UNBOUND-"))) (DECLARE (COMPILE) (OPTIMIZE SAFETY (DEBUG 1))) (PROGN (SYMBOL-VALUE FOO) :BAD))))
[SIMPLE-UNBOUND-VARIABLE]: SYMBOL-VALUE: variable #1=#:UNBOUND-21471 has no value
EQL-OK: :GOOD
(BLOCK NIL (DECLAIM (OPTIMIZE SAFETY (DEBUG 1))) (UNWIND-PROTECT (HANDLER-BIND ((UNBOUND-VARIABLE (HANDLER-RETURN NIL :GOOD))) (LET ((FOO (GENSYM "UNBOUND-"))) (DECLARE (COMPILE)) (PROGN (SYMBOL-VALUE FOO) :BAD))) (DECLAIM (OPTIMIZE (SAFETY 1)))))
[SIMPLE-UNBOUND-VARIABLE]: SYMBOL-VALUE: variable #1=#:UNBOUND-21479 has no value
EQL-OK: :GOOD
(BLOCK NIL (HANDLER-BIND ((UNBOUND-VARIABLE (HANDLER-RETURN NIL :GOOD))) (LET ((FOO (GENSYM "UNBOUND-"))) (PROGN (SYMBOL-VALUE FOO) :BAD))))
[SIMPLE-UNBOUND-VARIABLE]: SYMBOL-VALUE: variable #1=#:UNBOUND-21486 has no value
EQL-OK: :GOOD
(BLOCK NIL (HANDLER-BIND ((READER-ERROR (LAMBDA (C) (PRINC-ERROR C) (RETURN (STREAMP (STREAM-ERROR-STREAM C)))))) (READ-FROM-STRING ")")))
[SIMPLE-READER-ERROR]: READ from #1=#<INPUT STRING-INPUT-STREAM>: an object cannot start with #\)
EQL-OK: T
(BLOCK NIL (HANDLER-BIND ((READER-ERROR (LAMBDA (C) (PRINC-ERROR C) (RETURN (STREAMP (STREAM-ERROR-STREAM C)))))) (READ-FROM-STRING ",1")))
[SIMPLE-READER-ERROR]: READ: comma is illegal outside of backquote
EQL-OK: T
(BLOCK NIL (HANDLER-BIND ((STYLE-WARNING (HANDLER-RETURN NIL T))) (DEFUN TEST~ (B $) (DECLARE (COMPILE)) (COND (B NIL) (T T)))))
[SIMPLE-STYLE-WARNING]: in TEST~ : variable $ is not used.
Misspelled or missing IGNORE declaration?
EQL-OK: T
(LET (BAD) (DECLARE (OPTIMIZE SAFETY)) (DOLIST (TP '(ARITHMETIC-ERROR CELL-ERROR CONDITION CONTROL-ERROR DIVISION-BY-ZERO END-OF-FILE ERROR FILE-ERROR FLOATING-POINT-INEXACT FLOATING-POINT-INVALID-OPERATION FLOATING-POINT-UNDERFLOW FLOATING-POINT-OVERFLOW PACKAGE-ERROR PARSE-ERROR PRINT-NOT-READABLE PROGRAM-ERROR READER-ERROR SERIOUS-CONDITION SIMPLE-CONDITION SIMPLE-ERROR SIMPLE-TYPE-ERROR SIMPLE-WARNING STORAGE-CONDITION STREAM-ERROR STYLE-WARNING TYPE-ERROR UNBOUND-SLOT UNBOUND-VARIABLE UNDEFINED-FUNCTION WARNING) BAD) (UNLESS (TYPEP (HANDLER-CASE (MAKE-CONDITION TP) (ERROR NIL NIL)) 'CONDITION) (PUSH TP BAD))))
EQL-OK: NIL
(WITH-OUTPUT-TO-STRING (S) (DEFINE-CONDITION MY-SIMPLE (SIMPLE-CONDITION) NIL (:REPORT (LAMBDA (C S) (FORMAT S "good: ~S overrides SIMPLE-CONDITION" (TYPE-OF C))))) (PRINC (MAKE-CONDITION 'MY-SIMPLE :FORMAT-CONTROL "bad: SIMPLE-CONDITION overrides MY-SIMPLE") S))
EQUAL-OK: "good: MY-SIMPLE overrides SIMPLE-CONDITION"
(HANDLER-CASE (COMPILE NIL (LAMBDA NIL (DEFINE-CONDITION C (CONDITION) NIL (:REPORT (LAMBDA (C) (PRINC C)))))) (WARNING (W) (PRINC-ERROR W) 'WARNING))
[SIMPLE-WARNING]: in #:|1-1| : Cannot call #'(LAMBDA (C) (PRINC C)) on 2 arguments
EQL-OK: WARNING
(HANDLER-CASE (COMPILE NIL (LAMBDA NIL (MAPCAR (LAMBDA NIL 1) '(1 2 3)))) (WARNING (W) (PRINC-ERROR W) 'WARNING))
[SIMPLE-WARNING]: Cannot call #'(LAMBDA NIL 1) on 1 argument
EQL-OK: WARNING
(LET ((CLOSURE (COMPILE NIL (LAMBDA (X Y) (IGNORE-ERRORS (= X Y)))))) (FIND-IF #'SYSTEM::CLOSUREP (SYSTEM::CLOSURE-CONSTS CLOSURE)))
EQL-OK: NIL
(FIND-IF #'SYSTEM::CLOSUREP (SYSTEM::CLOSURE-CONSTS #'CLOS::ANY-METHOD-COMBINATION-CHECK-OPTIONS))
EQL-OK: NIL
(FIND-IF #'SYSTEM::CLOSUREP (SYSTEM::CLOSURE-CONSTS (COMPILE NIL (LAMBDA (ARG) (HANDLER-BIND ((ERROR (CONSTANTLY NIL))) (CAR ARG))))))
EQL-OK: NIL
(SYMBOLS-CLEANUP '(MY-CPL CHECK-SUPERCLASSES C MY-SIMPLE TEST TEST2 TEST3 TEST4 TEST5 TEST6 TEST~))
EQL-OK: NIL
RUN-TEST: finished "conditions" (0 errors out of 98 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"restarts.tst" @1>
(DEFUN HANDLER-USE-VALUE (VALUE) (LAMBDA (C) (PRINC-ERROR C) (USE-VALUE VALUE)))
EQL-OK: HANDLER-USE-VALUE
(DEFMACRO CHECK-USE-VALUE (FUN GOOD BAD &KEY (TYPE 'TYPE-ERROR) (TEST 'EQL)) `(HANDLER-BIND ((,TYPE (HANDLER-USE-VALUE ',GOOD))) (,TEST (,FUN ',GOOD) (,FUN ',BAD))))
EQL-OK: CHECK-USE-VALUE
(CHECK-USE-VALUE CHAR-CODE #\1 12 :TEST =)
[SIMPLE-TYPE-ERROR]: CHAR-CODE: argument 12 is not a character
EQL-OK: T
(CHECK-USE-VALUE SYMBOL-NAME GOOD "bad" :TEST STRING=)
[SIMPLE-TYPE-ERROR]: SYMBOL-NAME: #1="bad" is not a symbol
EQL-OK: T
(CHECK-USE-VALUE INTERN "BAR" BAR :TEST EQ)
[SIMPLE-TYPE-ERROR]: INTERN: argument BAR is not a string
EQL-OK: T
(CHECK-USE-VALUE FBOUNDP CONS "CONS")
[SIMPLE-TYPE-ERROR]: FBOUNDP: #1="CONS" is not a function name; try using a symbol instead
EQL-OK: T
(CHECK-USE-VALUE FDEFINITION CONS "CONS")
[SIMPLE-TYPE-ERROR]: FDEFINITION: #1="CONS" is not a function name; try using a symbol instead
EQL-OK: T
(CHECK-USE-VALUE STRING "123" 123)
[SIMPLE-TYPE-ERROR]: STRING: argument 123 should be a string, a symbol or a character
EQL-OK: T
(CHECK-USE-VALUE (LAMBDA (A) (AREF A 2)) #(A B C D) 1)
[SIMPLE-TYPE-ERROR]: AREF: argument 1 is not an array
EQL-OK: T
(CHECK-USE-VALUE (LAMBDA (A) (SETF (AREF A 2) 'X)) #(A B C D) 1)
[SIMPLE-TYPE-ERROR]: SYSTEM::STORE: argument 1 is not an array
EQL-OK: T
(CHECK-USE-VALUE (LAMBDA (A) (ROW-MAJOR-AREF A 3)) #2A((A B) (C D)) 1)
[SIMPLE-TYPE-ERROR]: ROW-MAJOR-AREF: argument 1 is not an array
EQL-OK: T
(CHECK-USE-VALUE (LAMBDA (A) (SETF (ROW-MAJOR-AREF A 3) 'X)) #2A((A B) (C D)) 1)
[SIMPLE-TYPE-ERROR]: SYSTEM::ROW-MAJOR-STORE: argument 1 is not an array
EQL-OK: T
(CHECK-USE-VALUE ARRAY-ELEMENT-TYPE #*1001 1)
[SIMPLE-TYPE-ERROR]: ARRAY-ELEMENT-TYPE: argument 1 is not an array
EQL-OK: T
(CHECK-USE-VALUE ARRAY-RANK #(A B C D) 1)
[SIMPLE-TYPE-ERROR]: ARRAY-RANK: argument 1 is not an array
EQL-OK: T
(CHECK-USE-VALUE (LAMBDA (A) (ARRAY-DIMENSION A 1)) #2A((A B) (C D)) 1)
[SIMPLE-TYPE-ERROR]: ARRAY-DIMENSION: argument 1 is not an array
EQL-OK: T
(CHECK-USE-VALUE ARRAY-DIMENSIONS #2A((A B) (C D)) 1 :TEST EQUAL)
[SIMPLE-TYPE-ERROR]: ARRAY-DIMENSIONS: argument 1 is not an array
EQL-OK: T
(CHECK-USE-VALUE (LAMBDA (A) (ARRAY-IN-BOUNDS-P A 1 2)) #2A((A B) (C D)) 1)
[SIMPLE-TYPE-ERROR]: ARRAY-IN-BOUNDS-P: argument 1 is not an array
EQL-OK: T
(CHECK-USE-VALUE (LAMBDA (A) (ARRAY-ROW-MAJOR-INDEX A 2)) #(A B C D) 1)
[SIMPLE-TYPE-ERROR]: ARRAY-ROW-MAJOR-INDEX: argument 1 is not an array
EQL-OK: T
(CHECK-USE-VALUE (LAMBDA (A) (ARRAY-ROW-MAJOR-INDEX A 1 1)) #2A((A B) (C D)) 1)
[SIMPLE-TYPE-ERROR]: ARRAY-ROW-MAJOR-INDEX: argument 1 is not an array
EQL-OK: T
(CHECK-USE-VALUE ADJUSTABLE-ARRAY-P #2A((A B) (C D)) 1)
[SIMPLE-TYPE-ERROR]: ADJUSTABLE-ARRAY-P: argument 1 is not an array
EQL-OK: T
(CHECK-USE-VALUE (LAMBDA (A) (BIT A 2)) #*1011 1)
[SIMPLE-TYPE-ERROR]: BIT: argument 1 is not an array
EQL-OK: T
(CHECK-USE-VALUE (LAMBDA (A) (SBIT A 2)) #*1011 1)
[SIMPLE-TYPE-ERROR]: SBIT: argument 1 is not an array
EQL-OK: T
(CHECK-USE-VALUE ARRAY-HAS-FILL-POINTER-P #2A((A B) (C D)) 1)
[SIMPLE-TYPE-ERROR]: ARRAY-HAS-FILL-POINTER-P: argument 1 is not an array
EQL-OK: T
(LET ((BS (MAKE-BROADCAST-STREAM))) (HANDLER-BIND ((TYPE-ERROR (HANDLER-USE-VALUE BS))) (BROADCAST-STREAM-STREAMS 10)))
[SIMPLE-TYPE-ERROR]: BROADCAST-STREAM-STREAMS: argument 10 is not a stream of type BROADCAST-STREAM
EQL-OK: NIL
(HANDLER-BIND ((ERROR (HANDLER-USE-VALUE #\#))) (EQ (GET-DISPATCH-MACRO-CHARACTER #\a #\() (GET-DISPATCH-MACRO-CHARACTER #\# #\()))
[SIMPLE-ERROR]: GET-DISPATCH-MACRO-CHARACTER: #\a is not a dispatch macro character
EQL-OK: T
(WITH-OUTPUT-TO-STRING (O) (HANDLER-BIND ((TYPE-ERROR (HANDLER-USE-VALUE O))) (PRINC "no error!" 123)))
[SIMPLE-TYPE-ERROR]: PRINC: argument 123 is not a stream
EQUAL-OK: "no error!"
(HANDLER-BIND ((TYPE-ERROR (HANDLER-USE-VALUE 16))) (PARSE-INTEGER "ABC" :RADIX 'LAMBDA))
[SIMPLE-TYPE-ERROR]: PARSE-INTEGER: :RADIX argument LAMBDA is not an integer between 2 and 36
EQL-OK: 2748
(WITH-INPUT-FROM-STRING (S "bazonk") (HANDLER-BIND ((TYPE-ERROR (HANDLER-USE-VALUE S))) (LIST (READ-CHAR 123) (READ-CHAR 1) (READ-CHAR 'READ-CHAR))))
[SIMPLE-TYPE-ERROR]: READ-CHAR: argument 123 is not a stream
[SIMPLE-TYPE-ERROR]: READ-CHAR: argument 1 is not a stream
[SIMPLE-TYPE-ERROR]: READ-CHAR: argument READ-CHAR is not a stream
EQUAL-OK: (#\b #\a #\z)
(HANDLER-BIND ((TYPE-ERROR (LAMBDA (C) (PRINC-ERROR C) (USE-VALUE (CASE (TYPE-ERROR-DATUM C) (1 *READTABLE*) (2 :UPCASE) (T (ERROR "huh?"))))))) (SETF (READTABLE-CASE 1) 2))
[SIMPLE-TYPE-ERROR]: SYSTEM::SET-READTABLE-CASE: new value 2 should be :UPCASE, :DOWNCASE, :PRESERVE or :INVERT.
[SIMPLE-TYPE-ERROR]: SYSTEM::SET-READTABLE-CASE: argument 1 is not a READTABLE
EQL-OK: :UPCASE
(HANDLER-BIND ((TYPE-ERROR (LAMBDA (C) (PRINC-ERROR C) (USE-VALUE (CASE (TYPE-ERROR-DATUM C) (1 #\#) (2 *READTABLE*) (T (ERROR "huh?"))))))) (NTH-VALUE 1 (GET-MACRO-CHARACTER 1 2)))
[SIMPLE-TYPE-ERROR]: GET-MACRO-CHARACTER: argument 1 is not a character
[SIMPLE-TYPE-ERROR]: GET-MACRO-CHARACTER: argument 2 is not a READTABLE
EQL-OK: T
(HANDLER-BIND ((TYPE-ERROR (HANDLER-USE-VALUE 7))) (LIST (DIGIT-CHAR-P #\3 300) (DIGIT-CHAR-P #\8 'DIGIT-CHAR-P)))
[SIMPLE-TYPE-ERROR]: DIGIT-CHAR-P: the radix must be an integer between 2 and 36, not 300
[SIMPLE-TYPE-ERROR]: DIGIT-CHAR-P: the radix must be an integer between 2 and 36, not DIGIT-CHAR-P
EQUAL-OK: (3 NIL)
(HANDLER-BIND ((TYPE-ERROR (LAMBDA (C) (PRINC-ERROR C) (USE-VALUE (CHAR (TYPE-ERROR-DATUM C) 0))))) (LIST (CHAR= "abc" "a") (CHAR-EQUAL "ABC" "a")))
[SIMPLE-TYPE-ERROR]: CHAR=: argument #1="abc" is not a character
[SIMPLE-TYPE-ERROR]: CHAR=: argument #1="a" is not a character
[SIMPLE-TYPE-ERROR]: CHAR-EQUAL: argument #1="ABC" is not a character
[SIMPLE-TYPE-ERROR]: CHAR-EQUAL: argument #1="a" is not a character
EQUAL-OK: (T T)
(HANDLER-BIND ((TYPE-ERROR (LAMBDA (C) (PRINC-ERROR C) (USE-VALUE (STRING (TYPE-ERROR-DATUM C)))))) (STRING-CONCAT "foo-" 'BAR "-baz"))
[SIMPLE-TYPE-ERROR]: STRING-CONCAT: argument BAR is not a string
EQUAL-OK: "foo-BAR-baz"
(HANDLER-BIND ((UNDEFINED-FUNCTION (LAMBDA (C) (PRINC-ERROR C) (STORE-VALUE (LAMBDA (NEW-CAR PAIR) (SETF (CAR PAIR) NEW-CAR)))))) (LET ((A '(1 . 2))) (SETF (ZZ A) 12) A))
[SIMPLE-UNDEFINED-FUNCTION]: FUNCTION: undefined function #1=(SETF ZZ)
EQUAL-OK: (12 . 2)
(FMAKUNBOUND '(SETF ZZ))
EQUAL-OK: (SETF ZZ)
(HANDLER-BIND ((UNDEFINED-FUNCTION (LAMBDA (C) (PRINC-ERROR C) (STORE-VALUE #'CAR)))) (ZZ '(1 . 2)))
[SIMPLE-UNDEFINED-FUNCTION]: EVAL: undefined function ZZ
EQL-OK: 1
(FMAKUNBOUND 'ZZ)
EQL-OK: ZZ
(DEFUN USE-VALUE-READ (C) (PRINC-ERROR C) (USE-VALUE (READ-FROM-STRING (ETYPECASE C (SOURCE-PROGRAM-ERROR (SOURCE-PROGRAM-ERROR-FORM C)) (TYPE-ERROR (TYPE-ERROR-DATUM C)) (CELL-ERROR (CELL-ERROR-NAME C))))))
EQL-OK: USE-VALUE-READ
(LET ((TABLE (COPY-READTABLE NIL))) (AND (EQ :UPCASE (READTABLE-CASE TABLE)) (SETF (READTABLE-CASE TABLE) :INVERT) (LET ((COPY (COPY-READTABLE TABLE))) (AND (NOT (EQ TABLE COPY)) (EQ (READTABLE-CASE COPY) :INVERT)))))
EQL-OK: T
(HANDLER-BIND ((TYPE-ERROR #'USE-VALUE-READ)) (SETF (READTABLE-CASE (COPY-READTABLE NIL)) ":UPCASE"))
[SIMPLE-TYPE-ERROR]: SYSTEM::SET-READTABLE-CASE: new value #1=":UPCASE" should be :UPCASE, :DOWNCASE, :PRESERVE or :INVERT.
EQL-OK: :UPCASE
(HANDLER-BIND ((ERROR (HANDLER-USE-VALUE '+))) (EVAL '#'"+"))
[SIMPLE-SOURCE-PROGRAM-ERROR]: FUNCTION: #1="+" is not a function name; try using a symbol instead
EQL-OK: #<SYSTEM-FUNCTION +>
(HANDLER-BIND ((ERROR #'USE-VALUE-READ)) (FUNCALL "+" 1 2 3))
[SIMPLE-TYPE-ERROR]: FUNCALL: #1="+" is not a function name; try using a symbol instead
EQL-OK: 6
(HANDLER-BIND ((TYPE-ERROR #'USE-VALUE-READ)) (PROGV '("foo") '(123) FOO))
[SIMPLE-TYPE-ERROR]: PROGV: #1="foo" is not a symbol
EQL-OK: 123
(HANDLER-BIND ((PROGRAM-ERROR (HANDLER-USE-VALUE 'ZZ))) (PROGV '(:CONST-VAR) '(123) ZZ))
[SIMPLE-SOURCE-PROGRAM-ERROR]: PROGV: :CONST-VAR is a constant, may not be used as a variable
EQL-OK: 123
(LET ((FORM '(PROGV '("foo" :CONST) '(123 321) (+ FOO ZZ)))) (HANDLER-BIND ((TYPE-ERROR #'USE-VALUE-READ) (PROGRAM-ERROR (HANDLER-USE-VALUE 'ZZ))) (LIST (EVAL FORM) FORM)))
[SIMPLE-TYPE-ERROR]: PROGV: #1="foo" is not a symbol
[SIMPLE-SOURCE-PROGRAM-ERROR]: PROGV: :CONST is a constant, may not be used as a variable
EQUAL-OK: (444 (PROGV '("foo" :CONST) '(123 321) (+ FOO ZZ)))
(HANDLER-BIND ((TYPE-ERROR #'USE-VALUE-READ)) (MULTIPLE-VALUE-SETQ (BAZ "foo") (VALUES 123 321)) (LIST FOO BAZ))
[SIMPLE-TYPE-ERROR]: MULTIPLE-VALUE-SETQ: #1="foo" is not a symbol
EQUAL-OK: (321 123)
(HANDLER-BIND ((PROGRAM-ERROR (HANDLER-USE-VALUE 'ZZ))) (SETQ :CONST-VAR 125) ZZ)
[SIMPLE-SOURCE-PROGRAM-ERROR]: SETQ: :CONST-VAR is a constant, may not be used as a variable
EQL-OK: 125
(HANDLER-BIND ((PROGRAM-ERROR (HANDLER-USE-VALUE '(ZZ 48)))) (LET (("foo" 32)) ZZ))
[SIMPLE-SOURCE-PROGRAM-ERROR]: LET: illegal variable specification #1=("foo" 32)
EQL-OK: 48
(HANDLER-BIND ((PROGRAM-ERROR (HANDLER-USE-VALUE 'ZZ))) (LET ((:CONST-VAR 64)) ZZ))
[SIMPLE-SOURCE-PROGRAM-ERROR]: LET: :CONST-VAR is a constant, may not be used as a variable
EQL-OK: 64
(HANDLER-BIND ((TYPE-ERROR #'USE-VALUE-READ) (SOURCE-PROGRAM-ERROR #'USE-VALUE-READ)) (FUNCALL "CAR" '(1 . 1)))
[SIMPLE-TYPE-ERROR]: FUNCALL: #1="CAR" is not a function name; try using a symbol instead
EQL-OK: 1
(HANDLER-BIND ((TYPE-ERROR #'USE-VALUE-READ) (SOURCE-PROGRAM-ERROR #'USE-VALUE-READ)) (SETQ "FOO" 1) (SYMBOL-VALUE 'FOO))
[SIMPLE-TYPE-ERROR]: SETQ: #1="FOO" is not a symbol
EQL-OK: 1
(LET ((COUNT 5)) (FLET ((HANDLER (C) (PRINC-ERROR C) (DECF COUNT) (USE-VALUE (IF (ZEROP COUNT) 'X COUNT)))) (HANDLER-BIND ((PROGRAM-ERROR #'HANDLER) (TYPE-ERROR #'HANDLER)) (SETQ :CONST-VAR 12))) (LIST COUNT X))
[SIMPLE-SOURCE-PROGRAM-ERROR]: SETQ: :CONST-VAR is a constant, may not be used as a variable
[SIMPLE-TYPE-ERROR]: SETQ: 4 is not a symbol
[SIMPLE-TYPE-ERROR]: SETQ: 3 is not a symbol
[SIMPLE-TYPE-ERROR]: SETQ: 2 is not a symbol
[SIMPLE-TYPE-ERROR]: SETQ: 1 is not a symbol
EQUAL-OK: (0 12)
(FLET ((MHT (TEST) (MAKE-HASH-TABLE :TEST TEST))) (CHECK-USE-VALUE MHT EQL BAZONK :TEST EQUALP))
[SIMPLE-TYPE-ERROR]: MAKE-HASH-TABLE: Illegal :TEST argument BAZONK
EQL-OK: T
(FLET ((MHT (W) (MAKE-HASH-TABLE :WEAK W))) (CHECK-USE-VALUE MHT NIL BAZONK :TEST EQUALP))
[SIMPLE-TYPE-ERROR]: MAKE-HASH-TABLE: argument BAZONK should be :KEY-OR-VALUE, :KEY-AND-VALUE, :VALUE, :KEY or NIL.
EQL-OK: T
(FLET ((MHT (S) (MAKE-HASH-TABLE :SIZE S))) (CHECK-USE-VALUE MHT 10 BAZONK :TEST EQUALP))
[SIMPLE-TYPE-ERROR]: MAKE-HASH-TABLE: :SIZE argument should be a fixnum >=0, not BAZONK
EQL-OK: T
(FLET ((MHT (RS) (MAKE-HASH-TABLE :REHASH-SIZE RS))) (CHECK-USE-VALUE MHT 2.0d0 BAZONK :TEST EQUALP))
[SIMPLE-TYPE-ERROR]: MAKE-HASH-TABLE: :REHASH-SIZE argument should be an integer or a float > 1, not BAZONK
EQL-OK: T
(FLET ((MHT (TR) (MAKE-HASH-TABLE :REHASH-THRESHOLD TR))) (CHECK-USE-VALUE MHT 0.5d0 BAZONK :TEST EQUALP))
[SIMPLE-TYPE-ERROR]: MAKE-HASH-TABLE: :REHASH-THRESHOLD argument should be a real between 0 and 1, not BAZONK
EQL-OK: T
(HANDLER-BIND ((PROGRAM-ERROR (HANDLER-USE-VALUE '1+)) (TYPE-ERROR (HANDLER-USE-VALUE '1-))) (LIST (EVAL '(1 10)) (FUNCALL 1 100) (APPLY 1 '(1000))))
[SIMPLE-SOURCE-PROGRAM-ERROR]: EVAL: 1 is not a function name; try using a symbol instead
[SIMPLE-TYPE-ERROR]: FUNCALL: 1 is not a function name; try using a symbol instead
[SIMPLE-TYPE-ERROR]: APPLY: 1 is not a function name; try using a symbol instead
EQUAL-OK: (11 99 999)
(PROGN (MAKUNBOUND 'BAR) (HANDLER-BIND ((UNBOUND-VARIABLE (LAMBDA (C) (PRINC-ERROR C) (STORE-VALUE 41)))) (1+ BAR)))
[SIMPLE-UNBOUND-VARIABLE]: :LAMBDA: variable BAR has no value
EQL-OK: 42
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=#<ZOT #x000010000051AAF9> has no value
EQL-OK: 42
(SLOT-VALUE BAR 'ZOT-FOO)
EQL-OK: 41
(PROGN (DEFINE-CONDITION XYZZY NIL ((F1 :ACCESSOR MY-F1 :INITARG :F1-IS)) (:REPORT (LAMBDA (C S) (FORMAT S "~1Txyzzy: My f1 is ~A" (MY-F1 C))))) (PRINC-TO-STRING (MAKE-CONDITION 'XYZZY :F1-IS "a silly string")))
EQUAL-OK: " xyzzy: My f1 is a silly string"
(LET* ((P1 (MAKE-PACKAGE "PACK-1" :USE NIL)) (P2 (MAKE-PACKAGE "PACK-2" :USE NIL)) (P3 (MAKE-PACKAGE "PACK-3" :USE NIL)) (P4 (MAKE-PACKAGE "PACK-4" :USE NIL)) (P5 (MAKE-PACKAGE "PACK-5" :USE NIL)) (BAR-NAME (SYMBOL-NAME (GENSYM "BAR-"))) (FOO1 (INTERN "FOO" P1)) (FOO2 (INTERN "FOO" P2)) (BAR1 (INTERN BAR-NAME P1)) (BAR2 (INTERN BAR-NAME P2)) (BAR3 (INTERN BAR-NAME P3)) (BAR4 (INTERN BAR-NAME P4)) (S12 (INTERN "SYM-1" P2)) (S22 (INTERN "SYM-2" P2)) (S13 (INTERN "SYM-1" P3)) (S23 (INTERN "SYM-2" P3)) (S14 (INTERN "SYM-1" P4)) (S24 (INTERN "SYM-2" P4)) (S15 (INTERN "SYM-1" P5)) (S25 (INTERN "SYM-2" P5))) (EXPORT (LIST S12 S22) P2) (EXPORT (LIST S13 S23) P3) (EXPORT (LIST S14 S24) P4) (HANDLER-BIND ((PACKAGE-ERROR (LAMBDA (C) (PRINC-ERROR C) (INVOKE-RESTART :PACK-3)))) (USE-PACKAGE (LIST P2 P3 P4) P1)) (ASSERT (NULL (SET-EXCLUSIVE-OR (LIST P2 P3 P4) (PACKAGE-USE-LIST P1)))) (ASSERT (EQ (FIND-SYMBOL "SYM-1" P1) S13)) (ASSERT (EQ (FIND-SYMBOL "SYM-2" P1) S23)) (HANDLER-BIND ((PACKAGE-ERROR (LAMBDA (C) (PRINC-ERROR C) (INVOKE-RESTART 'IMPORT)))) (EXPORT S15 P1)) (ASSERT (EQ (FIND-SYMBOL "SYM-1" P1) S15)) (HANDLER-BIND ((PACKAGE-ERROR (LAMBDA (C) (PRINC-ERROR C) (INVOKE-RESTART :PACK-2)))) (EXPORT FOO2 P2)) (ASSERT (EQ (FIND-SYMBOL "FOO" P1) FOO2)) (ASSERT (NULL (SET-EXCLUSIVE-OR (LIST BAR1 BAR2 BAR3 BAR4) (FIND-ALL-SYMBOLS BAR-NAME)))) (HANDLER-BIND ((PACKAGE-ERROR (LAMBDA (C) (PRINC-ERROR C) (INVOKE-RESTART :PACK-1)))) (EXPORT BAR2 P2)) (ASSERT (EQ (FIND-SYMBOL BAR-NAME P1) BAR1)) (EXPORT BAR3 P3) (EXPORT BAR4 P4) (HANDLER-BIND ((PACKAGE-ERROR (LAMBDA (C) (PRINC-ERROR C) (INVOKE-RESTART :PACK-4)))) (UNINTERN BAR1 P1)) (ASSERT (EQ (FIND-SYMBOL BAR-NAME P1) BAR4)) (DELETE-PACKAGE P5) (HANDLER-BIND ((PACKAGE-ERROR (LAMBDA (C) (PRINC-ERROR C) (CONTINUE C)))) (DELETE-PACKAGE P2) (DELETE-PACKAGE P3) (DELETE-PACKAGE P4)) (DELETE-PACKAGE P1))
[SIMPLE-PACKAGE-ERROR]: (USE-PACKAGE (#<PACKAGE PACK-4> #<PACKAGE PACK-3> #<PACKAGE PACK-2>) #1=#<PACKAGE PACK-1>): 2 name conflicts remain
Which symbol with name "SYM-2" should be accessible in #1#?
[SIMPLE-PACKAGE-ERROR]: (USE-PACKAGE (#<PACKAGE PACK-4> #<PACKAGE PACK-3> #<PACKAGE PACK-2>) #1=#<PACKAGE PACK-1>): 1 name conflicts remain
Which symbol with name "SYM-1" should be accessible in #1#?
[SIMPLE-PACKAGE-ERROR]: EXPORT: Symbol PACK-5::SYM-1 should be imported into #1=#<PACKAGE PACK-1> before being exported.
[SIMPLE-PACKAGE-ERROR]: Importing PACK-5::SYM-1 into #1=#<PACKAGE PACK-1> produces a name conflict with PACK-3:SYM-1 and other symbols.
[SIMPLE-PACKAGE-ERROR]: Exporting PACK-2::FOO from #1=#<PACKAGE PACK-2> produces a name conflict with PACK-1::FOO from #2=#<PACKAGE PACK-1>.
You may choose which symbol should be accessible in #2#.
[SIMPLE-PACKAGE-ERROR]: Exporting PACK-2::BAR-22368 from #1=#<PACKAGE PACK-2> produces a name conflict with PACK-1::BAR-22368 from #2=#<PACKAGE PACK-1>.
You may choose which symbol should be accessible in #2#.
[SIMPLE-PACKAGE-ERROR]: Uninterning PACK-1::BAR-22368 from #1=#<PACKAGE PACK-1> uncovers a name conflict.
You may choose the symbol in favour of which to resolve the conflict.
[SIMPLE-PACKAGE-ERROR]: DELETE-PACKAGE: #1=#<PACKAGE PACK-2> is used by #<PACKAGE PACK-1>.
[SIMPLE-PACKAGE-ERROR]: DELETE-PACKAGE: #1=#<PACKAGE PACK-3> is used by #<PACKAGE PACK-1>.
[SIMPLE-PACKAGE-ERROR]: DELETE-PACKAGE: #1=#<PACKAGE PACK-4> is used by #<PACKAGE PACK-1>.
EQL-OK: T
(LET ((P1 (MAKE-PACKAGE "PACK" :USE NIL)) P2 P3 P4 (BAR-NAME (SYMBOL-NAME (GENSYM "BAR-")))) (HANDLER-BIND ((PACKAGE-ERROR (LAMBDA (C) (PRINC-ERROR C) (INVOKE-RESTART 'CONTINUE)))) (ASSERT (EQ P1 (MAKE-PACKAGE "PACK")))) (HANDLER-BIND ((PACKAGE-ERROR (LAMBDA (C) (PRINC-ERROR C) (INVOKE-RESTART 'READ "KCAP")))) (SETQ P2 (MAKE-PACKAGE "PACK"))) (ASSERT (STRING= "KCAP" (PACKAGE-NAME P2))) (HANDLER-BIND ((PACKAGE-ERROR (LAMBDA (C) (PRINC-ERROR C) (INVOKE-RESTART 'CONTINUE)))) (SETQ P3 (MAKE-PACKAGE "FOO" :NICKNAMES (LIST "CL" BAR-NAME "KCAP")))) (ASSERT (EQUAL (LIST BAR-NAME) (PACKAGE-NICKNAMES P3))) (HANDLER-BIND ((PACKAGE-ERROR (LAMBDA (C) (PRINC-ERROR C) (INVOKE-RESTART 'READ "ZOT")))) (SETQ P4 (MAKE-PACKAGE "QUUX" :NICKNAMES (LIST "CL" BAR-NAME "KCAP")))) (ASSERT (EQUAL (LIST "ZOT") (PACKAGE-NICKNAMES P4))) (DELETE-PACKAGE P1) (DELETE-PACKAGE P2) (DELETE-PACKAGE P3) (DELETE-PACKAGE P4))
[SIMPLE-PACKAGE-ERROR]: MAKE-PACKAGE: a package with name "PACK" already exists.
[SIMPLE-PACKAGE-ERROR]: MAKE-PACKAGE: a package with name "PACK" already exists.
[SIMPLE-PACKAGE-ERROR]: MAKE-PACKAGE: a package with name "KCAP" already exists.
[SIMPLE-PACKAGE-ERROR]: MAKE-PACKAGE: a package with name "CL" already exists.
[SIMPLE-PACKAGE-ERROR]: MAKE-PACKAGE: a package with name "KCAP" already exists.
[SIMPLE-PACKAGE-ERROR]: MAKE-PACKAGE: a package with name "BAR-22433" already exists.
[SIMPLE-PACKAGE-ERROR]: MAKE-PACKAGE: a package with name "CL" already exists.
EQL-OK: T
(HANDLER-BIND ((ERROR (HANDLER-USE-VALUE '(9 8 7 6)))) (LIST (BUTLAST 123 2) (BUTLAST '#1=(1 2 3 . #1#) 2) (LAST 123 2) (LAST '#1# 2)))
[SIMPLE-TYPE-ERROR]: BUTLAST: 123 is not a list
[SIMPLE-ERROR]: BUTLAST: #1=(1 2 3 . #1#) is a circular list
[SIMPLE-TYPE-ERROR]: LAST: 123 is not a list
[SIMPLE-ERROR]: LAST: #1=(1 2 3 . #1#) is a circular list
EQUAL-OK: ((9 8) (9 8) (7 6) (7 6))
(HANDLER-BIND ((ERROR (HANDLER-USE-VALUE 'CHECK-USE-VALUE))) (SETF (DOCUMENTATION '(CHECK-USE-VALUE) 'FUNCTION) "docstring for check-use-value") (DOCUMENTATION 'CHECK-USE-VALUE 'FUNCTION))
[SIMPLE-SOURCE-PROGRAM-ERROR]: (SETF DOCUMENTATION): #1=(CHECK-USE-VALUE) is not a function name; try using a symbol instead
EQUAL-OK: "docstring for check-use-value"
(HANDLER-BIND ((ERROR (HANDLER-USE-VALUE 'USE-VALUE-READ))) (SETF (DOCUMENTATION '(USE-VALUE-READ) 'FUNCTION) "docstring for use-value-read") (DOCUMENTATION 'USE-VALUE-READ 'FUNCTION))
[SIMPLE-SOURCE-PROGRAM-ERROR]: (SETF DOCUMENTATION): #1=(USE-VALUE-READ) is not a function name; try using a symbol instead
EQUAL-OK: "docstring for use-value-read"
(MACROLET ((U (V) `(HANDLER-USE-VALUE ,V))) (HANDLER-BIND ((TYPE-ERROR (U "docstring for use-value-read")) (ERROR (U 'USE-VALUE-READ))) (STRING= '(FOO) (DOCUMENTATION '(FOO) 'FUNCTION))))
[SIMPLE-SOURCE-PROGRAM-ERROR]: DOCUMENTATION: #1=(FOO) is not a function name; try using a symbol instead
[SIMPLE-TYPE-ERROR]: STRING=: argument #1=(FOO) should be a string, a symbol or a character
EQL-OK: T
(SYMBOL-MACROLET ((U (HANDLER-USE-VALUE 1))) (HANDLER-BIND ((TYPE-ERROR U)) (+ 'SYMBOL-MACROLET 'HANDLER-BIND 'TYPE-ERROR)))
[SIMPLE-TYPE-ERROR]: +: SYMBOL-MACROLET is not a number
[SIMPLE-TYPE-ERROR]: +: HANDLER-BIND is not a number
[SIMPLE-TYPE-ERROR]: +: TYPE-ERROR is not a number
EQL-OK: 3
(SYMBOLS-CLEANUP '(CHECK-USE-VALUE USE-VALUE-READ ZOT FOO BAR BAZ XYZZY))
EQL-OK: NIL
RUN-TEST: finished "restarts" (0 errors out of 71 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"excepsit.tst" @1>
(INVOKE-RESTART 'NONEXISTENT-RESTART)
OK: CONTROL-ERROR
(ACOS 'X)
OK: TYPE-ERROR
(ACOSH 'X)
OK: TYPE-ERROR
(PROGN (DEFGENERIC FOO01 (X)) (DEFMETHOD FOO01 ((X NUMBER)) T) (LET ((M (FIND-METHOD #'FOO01 NIL (LIST (FIND-CLASS 'NUMBER))))) (REMOVE-METHOD #'FOO01 M) (DEFGENERIC FOO01 (X Y)) (ADD-METHOD #'FOO01 M)))
OK: ERROR
(ADJUST-ARRAY (MAKE-ARRAY 5 :ADJUSTABLE T) 4 :FILL-POINTER 1)
OK: TYPE-ERROR
(ADJUST-ARRAY "foo" 10 :FILL-POINTER T)
OK: TYPE-ERROR
(ADJUSTABLE-ARRAY-P '(X))
OK: TYPE-ERROR
(ALPHA-CHAR-P 33)
OK: TYPE-ERROR
(ALPHANUMERICP 33)
OK: TYPE-ERROR
(ARRAY-DIMENSIONS '(X))
OK: TYPE-ERROR
(ARRAY-DISPLACEMENT '(X))
OK: TYPE-ERROR
(ARRAY-ELEMENT-TYPE '(X))
OK: TYPE-ERROR
(ARRAY-HAS-FILL-POINTER-P '(X))
OK: TYPE-ERROR
(ARRAY-RANK '(X))
OK: TYPE-ERROR
(ARRAY-TOTAL-SIZE '(X))
OK: TYPE-ERROR
(ASH 3/4 2)
OK: TYPE-ERROR
(ASH 3 4.0)
OK: TYPE-ERROR
(ASIN 'X)
OK: TYPE-ERROR
(ASINH 'X)
OK: TYPE-ERROR
(ATAN 'X)
OK: TYPE-ERROR
(ATAN #C(0 0.4) 3.4)
OK: TYPE-ERROR
(ATAN -4 #C(3 4))
OK: TYPE-ERROR
(ATANH 'X)
OK: TYPE-ERROR
(BOOLE 'X 3 4)
OK: TYPE-ERROR
(BOOLE BOOLE-AND 3/4 -7)
OK: TYPE-ERROR
(BOOLE BOOLE-SET 5 #C(-3 4))
OK: TYPE-ERROR
(BOTH-CASE-P 33)
OK: TYPE-ERROR
(BOUNDP 47)
OK: TYPE-ERROR
(BUTLAST '(A B C) -1)
OK: TYPE-ERROR
(BUTLAST '#(A B C))
OK: TYPE-ERROR
(CAR 'X)
OK: TYPE-ERROR
(CDR '#(A B C))
OK: TYPE-ERROR
(CDADAR '((X Y)))
OK: TYPE-ERROR
(PROGN (DEFGENERIC FOO04 (X)) (DEFMETHOD FOO04 ((X REAL)) 'OK) (DEFMETHOD FOO04 ((X INTEGER)) (CALL-NEXT-METHOD (SQRT X))) (FOO04 -1))
OK: ERROR
(PROGN (DEFGENERIC FOO041 (X)) (DEFMETHOD FOO041 ((X REAL)) 'OK) (DEFMETHOD FOO041 ((X INTEGER)) (CALL-NEXT-METHOD (SQRT X))) (FOO04 2))
OK: ERROR
(CCASE 'X)
OK: TYPE-ERROR
(CHAR-CODE 33)
OK: TYPE-ERROR
(CHAR-DOWNCASE 33)
OK: TYPE-ERROR
(CHAR-EQUAL)
OK: PROGRAM-ERROR
(CHAR-GREATERP)
OK: PROGRAM-ERROR
(CHAR-LESSP)
OK: PROGRAM-ERROR
(CHAR-NAME 33)
OK: TYPE-ERROR
(CHAR-NOT-EQUAL)
OK: PROGRAM-ERROR
(CHAR-NOT-GREATERP)
OK: PROGRAM-ERROR
(CHAR-NOT-LESSP)
OK: PROGRAM-ERROR
(CHAR-UPCASE 33)
OK: TYPE-ERROR
(CHAR/=)
OK: PROGRAM-ERROR
(CHAR<)
OK: PROGRAM-ERROR
(CHAR<=)
OK: PROGRAM-ERROR
(CHAR=)
OK: PROGRAM-ERROR
(CHAR>)
OK: PROGRAM-ERROR
(CHAR>=)
OK: PROGRAM-ERROR
(CHARACTER "abc")
OK: TYPE-ERROR
(CHARACTER "")
OK: TYPE-ERROR
(CLEAR-INPUT '*TERMINAL-IO*)
OK: TYPE-ERROR
(CLEAR-OUTPUT '*TERMINAL-IO*)
OK: TYPE-ERROR
(COERCE '(A B C) '(VECTOR * 4))
OK: TYPE-ERROR
(COERCE '#(A B C) '(VECTOR * 4))
OK: TYPE-ERROR
(COERCE '(A B C) '(VECTOR * 2))
OK: TYPE-ERROR
(COERCE '#(A B C) '(VECTOR * 2))
OK: TYPE-ERROR
(COERCE "foo" '(STRING 2))
OK: TYPE-ERROR
(COERCE '#(#\a #\b #\c) '(STRING 2))
OK: TYPE-ERROR
(COERCE '(0 1) '(SIMPLE-BIT-VECTOR 3))
OK: TYPE-ERROR
(COERCE NIL 'NIL)
OK: TYPE-ERROR
(COERCE '#:NONEXISTENT 'FUNCTION)
OK: ERROR
(COERCE 'AND 'FUNCTION)
OK: ERROR
(COERCE -1 '(INTEGER 0 100))
OK: TYPE-ERROR
(COMPILE-FILE "./12836123.lisp")
OK: FILE-ERROR
(CONCATENATE 'SYMBOL)
OK: ERROR
(CONCATENATE '(STRING 3) "ab" "cd")
OK: TYPE-ERROR
(COPY-PPRINT-DISPATCH 'X)
OK: TYPE-ERROR
(COPY-SEQ 'X)
OK: TYPE-ERROR
(COPY-SYMBOL #\x)
OK: TYPE-ERROR
(COS 'X)
OK: TYPE-ERROR
(COSH 'X)
OK: TYPE-ERROR
(COUNT #\x 'X)
OK: TYPE-ERROR
(LET ((X NIL)) (CTYPECASE X))
OK: TYPE-ERROR
(DECODE-FLOAT 2/3)
OK: TYPE-ERROR
(DEFCLASS FOO05 NIL (A B A))
OK: PROGRAM-ERROR
(DEFCLASS FOO06 NIL (A B) (:DEFAULT-INITARGS X A X B))
OK: PROGRAM-ERROR
(DEFCLASS FOO07 NIL ((A :ALLOCATION :CLASS :ALLOCATION :CLASS)))
OK: PROGRAM-ERROR
(DEFCLASS FOO08 NIL ((A :INITFORM 42 :INITFORM 42)))
OK: PROGRAM-ERROR
(DEFCLASS FOO09 NIL ((A :TYPE REAL :TYPE REAL)))
OK: PROGRAM-ERROR
(DEFCLASS FOO10 NIL ((A :DOCUMENTATION "bla" :DOCUMENTATION "blabla")))
OK: PROGRAM-ERROR
(DEFGENERIC IF (X))
OK: PROGRAM-ERROR
(DEFUN IF NIL)
OK: PROGRAM-ERROR
(PROGN (DEFMACRO FOO11 (X) X) (DEFGENERIC FOO11 (X)))
OK: PROGRAM-ERROR
(DEFUN ! (A B C) (+ A B C))
OK: PACKAGE-ERROR
(DEFTYPE CAR NIL T)
OK: PACKAGE-ERROR
(PROCLAIM '(DECLARATION CAR))
OK: PACKAGE-ERROR
(DEFGENERIC OTHERWISE (X))
OK: PACKAGE-ERROR
(DEFMETHOD OTHERWISE ((X INTEGER)) (1+ X))
OK: PACKAGE-ERROR
(DEFMACRO OTHERWISE (&BODY BODY) `(PROGN ,@BODY))
OK: PACKAGE-ERROR
(DEFUN FOO11 ((X Y 1) Z) (LIST X Y Z))
OK: PROGRAM-ERROR
(LAMBDA ((X Y 1) Z) (LIST X Y Z))
OK: PROGRAM-ERROR
(PROGN (DEFUN FOO12 (X) X) (DEFGENERIC FOO12 (X)))
OK: PROGRAM-ERROR
(DEFGENERIC FOO13 (X Y &REST L) (:METHOD (X Y)))
OK: ERROR
(DEFGENERIC FOO14 (X) (:DOCUMENTATION "bla") (:DOCUMENTATION "blabla"))
OK: PROGRAM-ERROR
(DEFGENERIC FOO15 (X) (:MY-OPTION T))
OK: PROGRAM-ERROR
(PROGN (DEFVAR FOO16-1) (DEFINE-SYMBOL-MACRO FOO16-1 T))
OK: PROGRAM-ERROR
(PROGN (DEFINE-SYMBOL-MACRO FOO16-2 T) (DEFVAR FOO16-2))
OK: PROGRAM-ERROR
(DEFINE-SYMBOL-MACRO :FOO16-3 T)
OK: PROGRAM-ERROR
(DEFMETHOD IF (X) NIL)
OK: ERROR
(PROGN (DEFMACRO FOO17 (X) X) (DEFMETHOD FOO17 (X) NIL))
OK: ERROR
(PROGN (DEFUN FOO18 (X) X) (DEFMETHOD FOO18 (X) NIL))
OK: ERROR
(PROGN (DEFGENERIC FOO19 (X)) (DEFMETHOD FOO19 (X Y) NIL))
OK: ERROR
(PROGN (DEFPACKAGE "FOO20") (DEFPACKAGE "FOO21" (:NICKNAMES "FOO20")))
OK: PACKAGE-ERROR
(DEFPACKAGE "FOO22" (:SIZE 20) (:SIZE 20))
OK: PROGRAM-ERROR
(DEFPACKAGE "FOO23" (:DOCUMENTATION "bla") (:DOCUMENTATION "blabla"))
OK: PROGRAM-ERROR
(DEFPACKAGE "FOO24" (:MY-OPTION T))
OK: PROGRAM-ERROR
(DEFPACKAGE "FOO25" (:SHADOW "IF") (:INTERN "IF"))
OK: PROGRAM-ERROR
(DEFPACKAGE "FOO26" (:SHADOW "IF") (:IMPORT-FROM "USER" "IF"))
OK: PROGRAM-ERROR
(DEFPACKAGE "FOO27" (:SHADOW "IF") (:SHADOWING-IMPORT-FROM "USER" "IF"))
OK: PROGRAM-ERROR
(DEFPACKAGE "FOO28" (:INTERN "IF") (:IMPORT-FROM "USER" "IF"))
OK: PROGRAM-ERROR
(DEFPACKAGE "FOO29" (:INTERN "IF") (:SHADOWING-IMPORT-FROM "USER" "IF"))
OK: PROGRAM-ERROR
(DEFPACKAGE "FOO30" (:IMPORT-FROM "USER" "IF") (:SHADOWING-IMPORT-FROM "USER" "IF"))
OK: PROGRAM-ERROR
(DEFPACKAGE "FOO31" (:EXPORT "IF") (:INTERN "IF"))
OK: PROGRAM-ERROR
(DEFSTRUCT FOO32 A FOO20::A)
OK: PROGRAM-ERROR
(PROGN (DEFSTRUCT FOO33 A) (DEFSTRUCT (FOO34 (:INCLUDE FOO33)) FOO20::A))
OK: PROGRAM-ERROR
(DELETE #\x 'X)
OK: TYPE-ERROR
(DELETE-DUPLICATES 'ABBA)
OK: TYPE-ERROR
(PROGN (WITH-OPEN-FILE (S "./excepsit-tst-foo35.tmp" :DIRECTION :OUTPUT)) (DELETE-FILE "./excepsit-tst-foo35.tmp/bar"))
OK: FILE-ERROR
(DESTRUCTURING-BIND (A) '(1 2) A)
OK: ERROR
(DESTRUCTURING-BIND ((A B C)) '((1)) `(,A ,B ,B))
OK: ERROR
(ECASE 'X)
OK: TYPE-ERROR
(ELT 'X 0)
OK: TYPE-ERROR
(ELT "abc" 4)
OK: TYPE-ERROR
(ELT '(A B C) 4)
OK: TYPE-ERROR
(ELT '#(A B C) 4)
OK: TYPE-ERROR
(ELT (MAKE-ARRAY 3 :FILL-POINTER 3 :ADJUSTABLE T) 4)
OK: TYPE-ERROR
(ENDP 'X)
OK: TYPE-ERROR
(ENSURE-DIRECTORIES-EXIST "/*/")
OK: FILE-ERROR
(ERROR 42)
OK: TYPE-ERROR
(LET ((X NIL)) (ETYPECASE X))
OK: TYPE-ERROR
(EVERY '(LAMBDA (X) X) NIL)
OK: TYPE-ERROR
(EVERY #'IDENTITY 'X)
OK: TYPE-ERROR
(FBOUNDP '(PSETF AREF))
OK: TYPE-ERROR
(FDEFINITION '(PSETF AREF))
OK: TYPE-ERROR
(FDEFINITION '#:NONEXISTENT)
OK: UNDEFINED-FUNCTION
(FILE-AUTHOR "*")
OK: FILE-ERROR
(FILE-LENGTH *TERMINAL-IO*)
OK: TYPE-ERROR
(WITH-OPEN-FILE (S "./excepsit-tst-foo35.tmp" :DIRECTION :OUTPUT) (FILE-POSITION S 0.0))
OK: ERROR
(WITH-OPEN-FILE (S "./excepsit-tst-foo35.tmp" :DIRECTION :OUTPUT) (FILE-POSITION S -1))
OK: ERROR
(WITH-OPEN-FILE (S "./excepsit-tst-foo35.tmp" :DIRECTION :INPUT) (FILE-POSITION S (+ (FILE-LENGTH S) 1000)))
OK: ERROR
(DELETE-FILE "./excepsit-tst-foo35.tmp")
no error, value: #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/excepsit-tst-foo35.tmp"
OK: NULL
(FILE-WRITE-DATE "*")
OK: FILE-ERROR
(FILL 'X #\x)
OK: TYPE-ERROR
(FILL (MAKE-LIST 3) 'X :START NIL)
OK: TYPE-ERROR
(FILL (MAKE-LIST 3) 'X :START -1)
OK: TYPE-ERROR
(FILL (MAKE-LIST 3) 'X :START 1 :END -1)
OK: TYPE-ERROR
(FILL-POINTER "abc")
OK: TYPE-ERROR
(FIND #\x 'X)
OK: TYPE-ERROR
(FIND-CLASS '#:NONEXISTENT T)
OK: ERROR
(PROGN (DEFGENERIC FOO36 (X Y)) (FIND-METHOD #'FOO36 NIL (LIST (FIND-CLASS 'NUMBER))))
OK: ERROR
(PROGN (DEFGENERIC FOO37 (X)) (FIND-METHOD #'FOO37 NIL (LIST (FIND-CLASS 'NUMBER))))
OK: ERROR
(FINISH-OUTPUT '*TERMINAL-IO*)
OK: TYPE-ERROR
(FLOAT-DIGITS 2/3)
OK: TYPE-ERROR
(FLOAT-PRECISION 2/3)
OK: TYPE-ERROR
(FLOAT-RADIX 2/3)
OK: TYPE-ERROR
(FLOAT-SIGN 2/3)
OK: TYPE-ERROR
(FLOAT-SIGN -4.5 2/3)
OK: TYPE-ERROR
(FMAKUNBOUND '(PSETF AREF))
OK: TYPE-ERROR
(FORCE-OUTPUT '*TERMINAL-IO*)
OK: TYPE-ERROR
(FUNCALL 'FOO38)
OK: UNDEFINED-FUNCTION
(FUNCALL 'AND)
OK: UNDEFINED-FUNCTION
(GCD 4 3/4)
OK: TYPE-ERROR
(GENSYM #\x)
OK: TYPE-ERROR
(GENTEMP 'T)
OK: TYPE-ERROR
(GENTEMP "X" 24)
OK: TYPE-ERROR
(GET "a" 'X)
OK: TYPE-ERROR
(GET-DISPATCH-MACRO-CHARACTER #\0 #\#)
OK: ERROR
(GRAPHIC-CHAR-P 33)
OK: TYPE-ERROR
(HASH-TABLE-REHASH-SIZE *READTABLE*)
OK: TYPE-ERROR
(HASH-TABLE-REHASH-THRESHOLD *PACKAGE*)
OK: TYPE-ERROR
(HASH-TABLE-SIZE *RANDOM-STATE*)
OK: TYPE-ERROR
(HASH-TABLE-TEST '#(A B C))
OK: TYPE-ERROR
(IMAGPART #\c)
OK: TYPE-ERROR
(IN-PACKAGE "FOO39")
OK: PACKAGE-ERROR
(INPUT-STREAM-P (PATHNAME "abc"))
OK: TYPE-ERROR
(INTEGER-DECODE-FLOAT 2/3)
OK: TYPE-ERROR
(INTEGER-LENGTH 0.0)
OK: TYPE-ERROR
(INTERACTIVE-STREAM-P (PATHNAME "abc"))
OK: TYPE-ERROR
(INVOKE-RESTART 'FOO40)
OK: CONTROL-ERROR
(INVOKE-RESTART-INTERACTIVELY 'FOO41)
OK: CONTROL-ERROR
(ISQRT -1)
OK: TYPE-ERROR
(ISQRT #C(3 4))
OK: TYPE-ERROR
(LAST '(A B C) -1)
OK: TYPE-ERROR
(LCM 4/7 8)
OK: TYPE-ERROR
(LENGTH 'X)
OK: TYPE-ERROR
(LIST-LENGTH 'X)
OK: TYPE-ERROR
(LIST-LENGTH '(X . Y))
OK: TYPE-ERROR
(LOAD "./128347234.lsp")
OK: FILE-ERROR
(LOAD "*.lsp")
OK: FILE-ERROR
(LOAD-LOGICAL-PATHNAME-TRANSLATIONS "FOO41")
OK: ERROR
(LOGAND -3 2.3)
OK: TYPE-ERROR
(LOGBITP -1 5)
OK: TYPE-ERROR
(LOGBITP 2 3/7)
OK: TYPE-ERROR
(LOGCOUNT #*01010011)
OK: TYPE-ERROR
(LOGICAL-PATHNAME '#(#\A #\B))
OK: TYPE-ERROR
(LOGICAL-PATHNAME-TRANSLATIONS '#(#\A #\B))
OK: TYPE-ERROR
(LOGICAL-PATHNAME-TRANSLATIONS "FOO41")
OK: TYPE-ERROR
(LOWER-CASE-P 33)
OK: TYPE-ERROR
(MAKE-BROADCAST-STREAM (MAKE-STRING-INPUT-STREAM "abc"))
OK: TYPE-ERROR
(MAKE-CONCATENATED-STREAM (MAKE-STRING-OUTPUT-STREAM))
OK: TYPE-ERROR
(PROGN (DEFCLASS FOO42 NIL NIL) (MAKE-INSTANCE 'FOO42 :X 1))
OK: ERROR
(MAKE-LIST -1)
OK: TYPE-ERROR
(PROGN (DEFSTRUCT FOO43) (MAKE-LOAD-FORM (MAKE-FOO43)))
OK: ERROR
(MAKE-RANDOM-STATE 'X)
OK: TYPE-ERROR
(MAKE-SEQUENCE 'X 5)
OK: TYPE-ERROR
(MAKE-SEQUENCE 'SEQUENCE 5)
OK: TYPE-ERROR
(MAKE-SEQUENCE '(STRING 3) 4)
OK: TYPE-ERROR
(MAKE-SEQUENCE 'NULL 5)
OK: TYPE-ERROR
(MAKE-SEQUENCE 'CONS 0)
OK: TYPE-ERROR
(MAKE-SYMBOL 'X)
OK: TYPE-ERROR
(MAKE-SYNONYM-STREAM *TERMINAL-IO*)
OK: TYPE-ERROR
(MAKE-TWO-WAY-STREAM (MAKE-STRING-INPUT-STREAM "abc") (MAKE-STRING-INPUT-STREAM "def"))
OK: TYPE-ERROR
(MAKE-TWO-WAY-STREAM (MAKE-STRING-OUTPUT-STREAM) (MAKE-STRING-OUTPUT-STREAM))
OK: TYPE-ERROR
(MAKUNBOUND "xx")
OK: TYPE-ERROR
(MAP 'X #'IDENTITY "abc")
OK: TYPE-ERROR
(MAP '(STRING 3) #'IDENTITY "ab")
OK: TYPE-ERROR
(MAX 3 #C(4 0.0))
OK: TYPE-ERROR
(MAP 'LIST #'IDENTITY '(A B . C))
OK: TYPE-ERROR
(LENGTH '(A B . C))
OK: TYPE-ERROR
(REDUCE #'+ '(1 2 . 3))
OK: TYPE-ERROR
(MERGE '(VECTOR * 5) '(3 1) '(2 4) #'<)
OK: TYPE-ERROR
(MIN 3 #C(4 0.0))
OK: TYPE-ERROR
(MINUSP #C(4 -3/4))
OK: TYPE-ERROR
(MUFFLE-WARNING)
OK: CONTROL-ERROR
(NAME-CHAR '#(#\N #\u #\l))
OK: TYPE-ERROR
(NBUTLAST '(A B C) -1)
OK: TYPE-ERROR
(NBUTLAST '#(A B C))
OK: TYPE-ERROR
(NO-APPLICABLE-METHOD #'CONS)
OK: ERROR
(NO-NEXT-METHOD #'PRINT-OBJECT (FIND-METHOD #'PRINT-OBJECT NIL (LIST (FIND-CLASS 'STANDARD-OBJECT) (FIND-CLASS 'T))))
OK: ERROR
(NOTANY '(LAMBDA (X) X) NIL)
OK: TYPE-ERROR
(NOTANY #'IDENTITY 'X)
OK: TYPE-ERROR
(NOTEVERY '(LAMBDA (X) X) NIL)
OK: TYPE-ERROR
(NOTEVERY #'IDENTITY 'X)
OK: TYPE-ERROR
(NTHCDR 2 '(A . B))
OK: TYPE-ERROR
(ODDP 3.5)
OK: TYPE-ERROR
(PROGN (OPEN "/etc/passwd" :DIRECTION :INPUT :IF-EXISTS :ERROR) (/ 0))
OK: DIVISION-BY-ZERO
(PROGN (OPEN "/etc/nonexistent" :DIRECTION :INPUT :IF-EXISTS :ERROR) (/ 0))
OK: FILE-ERROR
(OPEN "./foo44nonexistent" :DIRECTION :INPUT :IF-DOES-NOT-EXIST :ERROR)
OK: FILE-ERROR
(OPEN "./*" :DIRECTION :INPUT)
OK: FILE-ERROR
(OPEN "/etc/mtab" :DIRECTION :INPUT :EXTERNAL-FORMAT 'MTAB-ENTRIES)
OK: ERROR
(OPEN-STREAM-P (PATHNAME "foo45"))
OK: TYPE-ERROR
(OUTPUT-STREAM-P (PATHNAME "foo46"))
OK: TYPE-ERROR
(PACKAGE-NAME 47)
OK: TYPE-ERROR
(PACKAGE-NICKNAMES (PATHNAME "foo47"))
OK: TYPE-ERROR
(PACKAGE-SHADOWING-SYMBOLS (VECTOR 'A 'B 'C))
OK: TYPE-ERROR
(PACKAGE-USE-LIST (LIST 'A 'B 'C))
OK: TYPE-ERROR
(PACKAGE-USED-BY-LIST (LIST 'A 'B 'C))
OK: TYPE-ERROR
(PARSE-INTEGER "x-y")
OK: ERROR
(PARSE-NAMESTRING (COERCE (LIST #\f #\o #\o (CODE-CHAR 0) #\4 #\8) 'STRING))
OK: PARSE-ERROR
(PARSE-NAMESTRING "foo48:a" (LOGICAL-PATHNAME "foo49:"))
OK: ERROR
(PARSE-NAMESTRING "sys:foo.bar." "sys")
OK: PARSE-ERROR
(PATHNAME-MATCH-P 34 "*")
OK: TYPE-ERROR
(PATHNAME-MATCH-P "x" 34)
OK: TYPE-ERROR
(PEEK-CHAR NIL (MAKE-STRING-INPUT-STREAM "") T)
OK: END-OF-FILE
(PEEK-CHAR #\Space (MAKE-STRING-INPUT-STREAM "") T)
OK: END-OF-FILE
(PHASE 'X)
OK: TYPE-ERROR
(PLUSP #C(0 4.2))
OK: TYPE-ERROR
(PPRINT-DISPATCH NIL T)
OK: TYPE-ERROR
(PPRINT-EXIT-IF-LIST-EXHAUSTED)
OK: ERROR
(PPRINT-INDENT NIL 2)
OK: ERROR
(LET ((X (MAKE-STRING-OUTPUT-STREAM))) (PPRINT-LOGICAL-BLOCK (X NIL :PREFIX 24)))
OK: TYPE-ERROR
(LET ((X (MAKE-STRING-OUTPUT-STREAM))) (PPRINT-LOGICAL-BLOCK (X NIL :PREFIX "a" :PER-LINE-PREFIX "b")))
OK: ERROR
(PPRINT-NEWLINE :FRESH)
OK: TYPE-ERROR
(PPRINT-POP)
OK: ERROR
(PPRINT-TAB :PARAGRAPH 0 1)
OK: ERROR
(LET ((*PRINT-READABLY* T)) (PRINT-UNREADABLE-OBJECT (NIL *STANDARD-OUTPUT*)))
OK: PRINT-NOT-READABLE
(LET ((*PRINT-PATHNAMES-ANSI* T) (*PARSE-NAMESTRING-DOT-FILE* :NAME)) (WRITE-TO-STRING (MAKE-PATHNAME :NAME "foo.bar") :READABLY T))
OK: PRINT-NOT-READABLE
(LET ((*PRINT-PATHNAMES-ANSI* T) (*PARSE-NAMESTRING-DOT-FILE* :TYPE)) (WRITE-TO-STRING (MAKE-PATHNAME :NAME "foo.bar") :READABLY T))
OK: PRINT-NOT-READABLE
(LET ((*PRINT-PATHNAMES-ANSI* T) (*PARSE-NAMESTRING-DOT-FILE* :NAME)) (WRITE-TO-STRING (MAKE-PATHNAME :TYPE "bar") :READABLY T))
OK: PRINT-NOT-READABLE
(LET ((*PRINT-PATHNAMES-ANSI* T) (*PARSE-NAMESTRING-DOT-FILE* :TYPE)) (WRITE-TO-STRING (MAKE-PATHNAME :NAME "foo.bar") :READABLY T))
OK: PRINT-NOT-READABLE
(PRINT 1 2)
OK: TYPE-ERROR
(PROBE-FILE "*")
OK: FILE-ERROR
(PROVIDE 25)
OK: TYPE-ERROR
(RANDOM -2.3)
OK: TYPE-ERROR
(RANDOM 1/2)
OK: TYPE-ERROR
(RATIONAL #C(2.4 -0.3))
OK: TYPE-ERROR
(RATIONALIZE #C(2.4 -0.3))
OK: TYPE-ERROR
(READ (MAKE-STRING-INPUT-STREAM "((a b)") NIL)
OK: END-OF-FILE
(READ (MAKE-STRING-INPUT-STREAM " ") T)
OK: END-OF-FILE
(READ-BYTE (PATHNAME "foo50"))
OK: TYPE-ERROR
(READ-BYTE (MAKE-STRING-INPUT-STREAM "abc"))
OK: ERROR
(LET ((FILENAME "./excepsit-tst-foo51.bin")) (WITH-OPEN-FILE (S FILENAME :DIRECTION :OUTPUT :IF-EXISTS :OVERWRITE :IF-DOES-NOT-EXIST :CREATE)) (WITH-OPEN-FILE (S FILENAME :DIRECTION :INPUT :ELEMENT-TYPE '(UNSIGNED-BYTE 8)) (READ-BYTE S T)))
OK: END-OF-FILE
(DELETE-FILE "./excepsit-tst-foo51.bin")
no error, value: #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/excepsit-tst-foo51.bin"
OK: NULL
(LET ((FILENAME "./excepsit-tst-foo52.txt")) (WITH-OPEN-FILE (S FILENAME :DIRECTION :OUTPUT :IF-EXISTS :OVERWRITE :IF-DOES-NOT-EXIST :CREATE)) (WITH-OPEN-FILE (S FILENAME :DIRECTION :INPUT) (READ-CHAR S T)))
OK: END-OF-FILE
(DELETE-FILE "./excepsit-tst-foo52.txt")
no error, value: #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/excepsit-tst-foo52.txt"
OK: NULL
(LET ((FILENAME "./excepsit-tst-foo53.txt")) (WITH-OPEN-FILE (S FILENAME :DIRECTION :OUTPUT :IF-EXISTS :OVERWRITE :IF-DOES-NOT-EXIST :CREATE)) (WITH-OPEN-FILE (S FILENAME :DIRECTION :INPUT) (READ-CHAR-NO-HANG S T)))
OK: END-OF-FILE
(DELETE-FILE "./excepsit-tst-foo53.txt")
no error, value: #P"/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/excepsit-tst-foo53.txt"
OK: NULL
(READ-FROM-STRING "((a b))" NIL NIL :END 6)
OK: END-OF-FILE
(READ-FROM-STRING " () () " T NIL :START 3 :END 4)
OK: END-OF-FILE
(READ-LINE (MAKE-STRING-INPUT-STREAM "") T)
OK: END-OF-FILE
(READ-SEQUENCE (LIST 1 2 3) (MAKE-STRING-INPUT-STREAM "") :START NIL)
OK: TYPE-ERROR
(READ-SEQUENCE (LIST 1 2 3) (MAKE-STRING-INPUT-STREAM "") :END -1)
OK: TYPE-ERROR
(READTABLE-CASE NIL)
OK: TYPE-ERROR
(SETF (READTABLE-CASE *READTABLE*) ':UNKNOWN)
OK: TYPE-ERROR
(WITH-INPUT-FROM-STRING (S "#1=(#1#)") (READ S NIL NIL T))
OK: ERROR
(REALPART #\c)
OK: TYPE-ERROR
(PROGN (DEFCLASS FOO54 NIL NIL) (REINITIALIZE-INSTANCE (MAKE-INSTANCE 'FOO54) :DUMMY 0))
OK: ERROR
(REMOVE #\x 'X)
OK: TYPE-ERROR
(REMOVE-DUPLICATES 'ABBA)
OK: TYPE-ERROR
(REMPROP 55 'ABC)
OK: TYPE-ERROR
(RPLACA NIL 5)
OK: TYPE-ERROR
(RPLACD NIL 5)
OK: TYPE-ERROR
(SCALE-FLOAT 2/3 -1)
OK: TYPE-ERROR
(SCALE-FLOAT 3.4 1.0)
OK: TYPE-ERROR
(SET-DISPATCH-MACRO-CHARACTER #\0 #\# #'(LAMBDA (S C N) (LOOP)))
OK: ERROR
(SET-PPRINT-DISPATCH '(VECTOR * 2) NIL #C(3 4))
OK: ERROR
(SIN 'X)
OK: TYPE-ERROR
(SINH 'X)
OK: TYPE-ERROR
(SLEEP -1)
OK: TYPE-ERROR
(PROGN (DEFCLASS FOO55 NIL (A)) (SLOT-BOUNDP (MAKE-INSTANCE 'FOO55) ':A))
OK: ERROR
(PROGN (DEFCLASS FOO56 NIL (A)) (SLOT-MAKUNBOUND (MAKE-INSTANCE 'FOO56) ':A))
OK: ERROR
(SLOT-MISSING (FIND-CLASS 'T) NIL ':A 'SETF)
OK: ERROR
(SLOT-UNBOUND (FIND-CLASS 'T) NIL ':A)
OK: UNBOUND-SLOT
(PROGN (DEFCLASS FOO57 NIL (A)) (SLOT-VALUE (MAKE-INSTANCE 'FOO57) ':A))
OK: ERROR
(SOME '(LAMBDA (X) X) NIL)
OK: TYPE-ERROR
(SOME #'IDENTITY 'X)
OK: TYPE-ERROR
(SPECIAL-OPERATOR-P '(AND X Y))
OK: TYPE-ERROR
(SPECIAL-OPERATOR-P '(SETF AREF))
OK: TYPE-ERROR
(SQRT 'X)
OK: TYPE-ERROR
(STANDARD-CHAR-P 33)
OK: TYPE-ERROR
(STREAM-ELEMENT-TYPE '*TERMINAL-IO)
OK: TYPE-ERROR
(STRING 33)
OK: TYPE-ERROR
(SYMBOL-FUNCTION 33)
OK: TYPE-ERROR
(SYMBOL-FUNCTION ':COMPILE)
OK: UNDEFINED-FUNCTION
(SYMBOL-MACROLET ((T TRUE)))
OK: PROGRAM-ERROR
(SYMBOL-MACROLET ((*PRINT-PRETTY* (STREAM-PRINT-PRETTY *STANDARD-OUTPUT*))))
OK: PROGRAM-ERROR
(SYMBOL-MACROLET ((FOO58 T)) (DECLARE (SPECIAL FOO58)))
OK: PROGRAM-ERROR
(SYMBOL-NAME '(SETF FOO59))
OK: TYPE-ERROR
(SYMBOL-PACKAGE '(SETF FOO59))
OK: TYPE-ERROR
(SYMBOL-PLIST '(SETF FOO59))
OK: TYPE-ERROR
(SYMBOL-VALUE '(SETF FOO59))
OK: TYPE-ERROR
(SYMBOL-VALUE '#:NONEXISTENT)
OK: UNBOUND-VARIABLE
(TAN 'X)
OK: TYPE-ERROR
(TANH 'X)
OK: TYPE-ERROR
(THROW '#:NONEXISTENT NIL)
OK: CONTROL-ERROR
(TRANSLATE-LOGICAL-PATHNAME (MAKE-BROADCAST-STREAM))
OK: TYPE-ERROR
(TRANSLATE-LOGICAL-PATHNAME (LOGICAL-PATHNAME "foo61:"))
OK: FILE-ERROR
(TRANSLATE-PATHNAME "x" "y" "z")
OK: ERROR
(TRUENAME "./foo62nonexistent")
OK: FILE-ERROR
(TRUENAME "./*/x")
OK: FILE-ERROR
(MAKE-PATHNAME :DIRECTORY '(:ABSOLUTE :UP))
OK: FILE-ERROR
(MAKE-PATHNAME :DIRECTORY '(:ABSOLUTE :BACK))
OK: FILE-ERROR
(MAKE-PATHNAME :DIRECTORY '(:ABSOLUTE :WILD-INFERIORS :UP))
OK: FILE-ERROR
(MAKE-PATHNAME :DIRECTORY '(:RELATIVE :WILD-INFERIORS :BACK))
OK: FILE-ERROR
(TYPEP NIL 'VALUES)
OK: ERROR
(TYPEP #'CONS '(VALUES T))
OK: ERROR
(TYPEP #'CONS '(FUNCTION (T T) LIST))
OK: ERROR
(UNEXPORT ':FOO63)
OK: PACKAGE-ERROR
(UNWIND-PROTECT (PROGN (DEFPACKAGE "FOO64" (:EXPORT "XYZ")) (DEFPACKAGE "FOO65" (:EXPORT "XYZ")) (DEFPACKAGE "FOO66" (:USE "FOO64" "FOO65") (:SHADOW "XYZ")) (UNINTERN (FIND-SYMBOL "XYZ" (FIND-PACKAGE "FOO66")) (FIND-PACKAGE "FOO66"))) (DELETE-PACKAGE "FOO20") (DELETE-PACKAGE "FOO66") (DELETE-PACKAGE "FOO65") (DELETE-PACKAGE "FOO64"))
OK: ERROR
(UPPER-CASE-P 33)
OK: TYPE-ERROR
(VALUES-LIST '(A B . C))
OK: TYPE-ERROR
(VALUES-LIST (MAKE-LIST MULTIPLE-VALUES-LIMIT))
OK: ERROR
(VECTOR-POP "foo67")
OK: TYPE-ERROR
(VECTOR-POP (MAKE-ARRAY 10 :FILL-POINTER 0))
OK: ERROR
(VECTOR-PUSH 'X (MAKE-ARRAY 10))
OK: ERROR
(LET ((A (MAKE-ARRAY 5 :FILL-POINTER 0))) (DOTIMES (I 100) (VECTOR-PUSH-EXTEND 'X A)))
OK: ERROR
(WARN (MAKE-CONDITION 'ERROR))
OK: TYPE-ERROR
(WARN (MAKE-CONDITION 'WARNING) "x")
OK: TYPE-ERROR
(WARN 'ERROR)
OK: TYPE-ERROR
(WILD-PATHNAME-P #\x)
OK: TYPE-ERROR
(WRITE-BYTE 1 (PATHNAME "foo67"))
OK: TYPE-ERROR
(WRITE-BYTE 1 (MAKE-STRING-OUTPUT-STREAM))
OK: ERROR
(WRITE-SEQUENCE '(#\1 #\2 #\3) (MAKE-STRING-OUTPUT-STREAM) :START NIL)
OK: TYPE-ERROR
(WRITE-SEQUENCE '(#\1 #\2 #\3) (MAKE-STRING-OUTPUT-STREAM) :END -1)
OK: TYPE-ERROR
(ZEROP 'X)
OK: TYPE-ERROR
(READ-FROM-STRING "-35/000")
OK: READER-ERROR
(READ-FROM-STRING "31e300")
OK: READER-ERROR
(WITH-STANDARD-IO-SYNTAX (LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "')")))
OK: READER-ERROR
(WITH-STANDARD-IO-SYNTAX (LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#<")))
OK: READER-ERROR
(WITH-STANDARD-IO-SYNTAX (LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "# ")))
OK: READER-ERROR
(WITH-STANDARD-IO-SYNTAX (LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "#)")))
OK: READER-ERROR
(LOOP FOR X IN '(1 2 3) FOR X IN '(4 5 6) COLLECT X)
OK: PROGRAM-ERROR
(LOOP FOR (X . X) IN '((1 2) (3 4) (5 6)) COLLECT X)
OK: PROGRAM-ERROR
(LOOP FOR E ACROSS (VECTOR '(X . Y) '(U . V)) FOR E FROM 1 TO 5 COLLECT E)
OK: PROGRAM-ERROR
(LOOP FOR X = '(NIL NIL NIL) FOR X = 1 COUNT X UNTIL T)
OK: PROGRAM-ERROR
(LOOP WITH FOO = '(A B) FOR X IN '(C D) COLLECTING X INTO FOO FINALLY (RETURN FOO))
OK: PROGRAM-ERROR
(LOOP 42)
OK: PROGRAM-ERROR
(FDEFINITION (LIST 'SETF (GENSYM)))
OK: UNDEFINED-FUNCTION
(PROCLAIM '(INTEGER . FOO))
OK: TYPE-ERROR
(ASH 1 66610000)
OK: ARITHMETIC-ERROR
(RATIONAL MOST-POSITIVE-LONG-FLOAT)
OK: ARITHMETIC-ERROR
(RATIONAL LEAST-POSITIVE-LONG-FLOAT)
OK: ARITHMETIC-ERROR
(RATIONAL MOST-NEGATIVE-LONG-FLOAT)
OK: ARITHMETIC-ERROR
(RATIONAL LEAST-NEGATIVE-LONG-FLOAT)
OK: ARITHMETIC-ERROR
(EXPT 10 10000000)
OK: ARITHMETIC-ERROR
(APPLY #'CAR '(1 2))
OK: PROGRAM-ERROR
(APPLY #'CAR '(1 . 2))
OK: PROGRAM-ERROR
(APPLY #'LIST 1 2)
OK: PROGRAM-ERROR
(APPLY #'WARN 1 2 3)
OK: PROGRAM-ERROR
(CONVERT-STRING-FROM-BYTES #(1) CHARSET:UCS-4)
OK: SIMPLE-CHARSET-TYPE-ERROR
(PROGN (SYMBOLS-CLEANUP '(FOO01 FOO02 FOO03 FOO04 FOO041 FOO05 FOO06 FOO07 FOO08 FOO09 FOO10 FOO11 FOO12 FOO13 FOO14 FOO15 FOO16-1 FOO16-2 FOO17 FOO18 FOO19 FOO32 FOO33 FOO34 FOO36 FOO37 FOO42 FOO43 FOO54 FOO55 FOO56 FOO57)) (ERROR "no error"))
OK: ERROR
RUN-TEST: finished "excepsit" (0 errors out of 395 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"weakptr.tst" @1>
(DEFMACRO WEAKPTR-TEST (&BODY BODY) `(PROGN (MAKE-LIST 100) ,@BODY (MAKE-ARRAY 200) (LIST (EQ CO (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-LIST (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-BIND (V P) (WEAK-POINTER-VALUE WPP) (LIST (TYPE-OF V) P)))))
EQL-OK: WEAKPTR-TEST
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER CO) WPP (MAKE-WEAK-POINTER WP)))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO NIL) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER 1)))
EQUAL-OK: (NIL (1 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO) (GC))
EQUAL-OK: (T ((1 . 2) T) (NULL NIL))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 2 (WEAK-POINTER-VALUE WPP) CO) (GC))
EQUAL-OK: (NIL (2 T) (CONS T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO (WEAK-POINTER-VALUE WPP) WP) (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 3 CO NIL) (GC))
EQUAL-OK: (NIL (3 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) (CONS 1 2)) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(LET ((*PRINT-CIRCLE* T)) (SETF (WEAK-POINTER-VALUE WP) WPP) (PRIN1-TO-STRING WP))
EQUAL-OK: "#1=#<WEAK-POINTER #<WEAK-POINTER #1#>>"
(SYMBOLS-CLEANUP '(CO WP WPP))
EQL-OK: NIL
(PROGN (GC) (SYMBOL-CLEANUP 'WEAKPTR-TEST))
EQL-OK: T
RUN-TEST: finished "weakptr" (0 errors out of 13 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"weakptr.tst" @1>
(DEFMACRO WEAKPTR-TEST (&BODY BODY) `(PROGN (MAKE-LIST 100) ,@BODY (MAKE-ARRAY 200) (LIST (EQ CO (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-LIST (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-BIND (V P) (WEAK-POINTER-VALUE WPP) (LIST (TYPE-OF V) P)))))
EQL-OK: WEAKPTR-TEST
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER CO) WPP (MAKE-WEAK-POINTER WP)))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO NIL) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER 1)))
EQUAL-OK: (NIL (1 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO) (GC))
EQUAL-OK: (T ((1 . 2) T) (NULL NIL))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 2 (WEAK-POINTER-VALUE WPP) CO) (GC))
EQUAL-OK: (NIL (2 T) (CONS T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO (WEAK-POINTER-VALUE WPP) WP) (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 3 CO NIL) (GC))
EQUAL-OK: (NIL (3 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) (CONS 1 2)) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(LET ((*PRINT-CIRCLE* T)) (SETF (WEAK-POINTER-VALUE WP) WPP) (PRIN1-TO-STRING WP))
EQUAL-OK: "#1=#<WEAK-POINTER #<WEAK-POINTER #1#>>"
(SYMBOLS-CLEANUP '(CO WP WPP))
EQL-OK: NIL
(PROGN (GC) (SYMBOL-CLEANUP 'WEAKPTR-TEST))
EQL-OK: T
RUN-TEST: finished "weakptr" (0 errors out of 13 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"weakptr.tst" @1>
(DEFMACRO WEAKPTR-TEST (&BODY BODY) `(PROGN (MAKE-LIST 100) ,@BODY (MAKE-ARRAY 200) (LIST (EQ CO (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-LIST (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-BIND (V P) (WEAK-POINTER-VALUE WPP) (LIST (TYPE-OF V) P)))))
EQL-OK: WEAKPTR-TEST
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER CO) WPP (MAKE-WEAK-POINTER WP)))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO NIL) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER 1)))
EQUAL-OK: (NIL (1 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO) (GC))
EQUAL-OK: (T ((1 . 2) T) (NULL NIL))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 2 (WEAK-POINTER-VALUE WPP) CO) (GC))
EQUAL-OK: (NIL (2 T) (CONS T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO (WEAK-POINTER-VALUE WPP) WP) (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 3 CO NIL) (GC))
EQUAL-OK: (NIL (3 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) (CONS 1 2)) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(LET ((*PRINT-CIRCLE* T)) (SETF (WEAK-POINTER-VALUE WP) WPP) (PRIN1-TO-STRING WP))
EQUAL-OK: "#1=#<WEAK-POINTER #<WEAK-POINTER #1#>>"
(SYMBOLS-CLEANUP '(CO WP WPP))
EQL-OK: NIL
(PROGN (GC) (SYMBOL-CLEANUP 'WEAKPTR-TEST))
EQL-OK: T
RUN-TEST: finished "weakptr" (0 errors out of 13 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"weakptr.tst" @1>
(DEFMACRO WEAKPTR-TEST (&BODY BODY) `(PROGN (MAKE-LIST 100) ,@BODY (MAKE-ARRAY 200) (LIST (EQ CO (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-LIST (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-BIND (V P) (WEAK-POINTER-VALUE WPP) (LIST (TYPE-OF V) P)))))
EQL-OK: WEAKPTR-TEST
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER CO) WPP (MAKE-WEAK-POINTER WP)))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO NIL) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER 1)))
EQUAL-OK: (NIL (1 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO) (GC))
EQUAL-OK: (T ((1 . 2) T) (NULL NIL))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 2 (WEAK-POINTER-VALUE WPP) CO) (GC))
EQUAL-OK: (NIL (2 T) (CONS T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO (WEAK-POINTER-VALUE WPP) WP) (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 3 CO NIL) (GC))
EQUAL-OK: (NIL (3 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) (CONS 1 2)) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(LET ((*PRINT-CIRCLE* T)) (SETF (WEAK-POINTER-VALUE WP) WPP) (PRIN1-TO-STRING WP))
EQUAL-OK: "#1=#<WEAK-POINTER #<WEAK-POINTER #1#>>"
(SYMBOLS-CLEANUP '(CO WP WPP))
EQL-OK: NIL
(PROGN (GC) (SYMBOL-CLEANUP 'WEAKPTR-TEST))
EQL-OK: T
RUN-TEST: finished "weakptr" (0 errors out of 13 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"weakptr.tst" @1>
(DEFMACRO WEAKPTR-TEST (&BODY BODY) `(PROGN (MAKE-LIST 100) ,@BODY (MAKE-ARRAY 200) (LIST (EQ CO (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-LIST (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-BIND (V P) (WEAK-POINTER-VALUE WPP) (LIST (TYPE-OF V) P)))))
EQL-OK: WEAKPTR-TEST
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER CO) WPP (MAKE-WEAK-POINTER WP)))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO NIL) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER 1)))
EQUAL-OK: (NIL (1 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO) (GC))
EQUAL-OK: (T ((1 . 2) T) (NULL NIL))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 2 (WEAK-POINTER-VALUE WPP) CO) (GC))
EQUAL-OK: (NIL (2 T) (CONS T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO (WEAK-POINTER-VALUE WPP) WP) (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 3 CO NIL) (GC))
EQUAL-OK: (NIL (3 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) (CONS 1 2)) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(LET ((*PRINT-CIRCLE* T)) (SETF (WEAK-POINTER-VALUE WP) WPP) (PRIN1-TO-STRING WP))
EQUAL-OK: "#1=#<WEAK-POINTER #<WEAK-POINTER #1#>>"
(SYMBOLS-CLEANUP '(CO WP WPP))
EQL-OK: NIL
(PROGN (GC) (SYMBOL-CLEANUP 'WEAKPTR-TEST))
EQL-OK: T
RUN-TEST: finished "weakptr" (0 errors out of 13 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"weakptr.tst" @1>
(DEFMACRO WEAKPTR-TEST (&BODY BODY) `(PROGN (MAKE-LIST 100) ,@BODY (MAKE-ARRAY 200) (LIST (EQ CO (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-LIST (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-BIND (V P) (WEAK-POINTER-VALUE WPP) (LIST (TYPE-OF V) P)))))
EQL-OK: WEAKPTR-TEST
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER CO) WPP (MAKE-WEAK-POINTER WP)))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO NIL) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER 1)))
EQUAL-OK: (NIL (1 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO) (GC))
EQUAL-OK: (T ((1 . 2) T) (NULL NIL))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 2 (WEAK-POINTER-VALUE WPP) CO) (GC))
EQUAL-OK: (NIL (2 T) (CONS T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO (WEAK-POINTER-VALUE WPP) WP) (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 3 CO NIL) (GC))
EQUAL-OK: (NIL (3 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) (CONS 1 2)) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(LET ((*PRINT-CIRCLE* T)) (SETF (WEAK-POINTER-VALUE WP) WPP) (PRIN1-TO-STRING WP))
EQUAL-OK: "#1=#<WEAK-POINTER #<WEAK-POINTER #1#>>"
(SYMBOLS-CLEANUP '(CO WP WPP))
EQL-OK: NIL
(PROGN (GC) (SYMBOL-CLEANUP 'WEAKPTR-TEST))
EQL-OK: T
RUN-TEST: finished "weakptr" (0 errors out of 13 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"weakptr.tst" @1>
(DEFMACRO WEAKPTR-TEST (&BODY BODY) `(PROGN (MAKE-LIST 100) ,@BODY (MAKE-ARRAY 200) (LIST (EQ CO (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-LIST (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-BIND (V P) (WEAK-POINTER-VALUE WPP) (LIST (TYPE-OF V) P)))))
EQL-OK: WEAKPTR-TEST
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER CO) WPP (MAKE-WEAK-POINTER WP)))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO NIL) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER 1)))
EQUAL-OK: (NIL (1 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO) (GC))
EQUAL-OK: (T ((1 . 2) T) (NULL NIL))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 2 (WEAK-POINTER-VALUE WPP) CO) (GC))
EQUAL-OK: (NIL (2 T) (CONS T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO (WEAK-POINTER-VALUE WPP) WP) (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 3 CO NIL) (GC))
EQUAL-OK: (NIL (3 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) (CONS 1 2)) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(LET ((*PRINT-CIRCLE* T)) (SETF (WEAK-POINTER-VALUE WP) WPP) (PRIN1-TO-STRING WP))
EQUAL-OK: "#1=#<WEAK-POINTER #<WEAK-POINTER #1#>>"
(SYMBOLS-CLEANUP '(CO WP WPP))
EQL-OK: NIL
(PROGN (GC) (SYMBOL-CLEANUP 'WEAKPTR-TEST))
EQL-OK: T
RUN-TEST: finished "weakptr" (0 errors out of 13 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"weakptr.tst" @1>
(DEFMACRO WEAKPTR-TEST (&BODY BODY) `(PROGN (MAKE-LIST 100) ,@BODY (MAKE-ARRAY 200) (LIST (EQ CO (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-LIST (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-BIND (V P) (WEAK-POINTER-VALUE WPP) (LIST (TYPE-OF V) P)))))
EQL-OK: WEAKPTR-TEST
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER CO) WPP (MAKE-WEAK-POINTER WP)))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO NIL) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER 1)))
EQUAL-OK: (NIL (1 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO) (GC))
EQUAL-OK: (T ((1 . 2) T) (NULL NIL))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 2 (WEAK-POINTER-VALUE WPP) CO) (GC))
EQUAL-OK: (NIL (2 T) (CONS T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO (WEAK-POINTER-VALUE WPP) WP) (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 3 CO NIL) (GC))
EQUAL-OK: (NIL (3 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) (CONS 1 2)) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(LET ((*PRINT-CIRCLE* T)) (SETF (WEAK-POINTER-VALUE WP) WPP) (PRIN1-TO-STRING WP))
EQUAL-OK: "#1=#<WEAK-POINTER #<WEAK-POINTER #1#>>"
(SYMBOLS-CLEANUP '(CO WP WPP))
EQL-OK: NIL
(PROGN (GC) (SYMBOL-CLEANUP 'WEAKPTR-TEST))
EQL-OK: T
RUN-TEST: finished "weakptr" (0 errors out of 13 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"weakptr.tst" @1>
(DEFMACRO WEAKPTR-TEST (&BODY BODY) `(PROGN (MAKE-LIST 100) ,@BODY (MAKE-ARRAY 200) (LIST (EQ CO (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-LIST (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-BIND (V P) (WEAK-POINTER-VALUE WPP) (LIST (TYPE-OF V) P)))))
EQL-OK: WEAKPTR-TEST
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER CO) WPP (MAKE-WEAK-POINTER WP)))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO NIL) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER 1)))
EQUAL-OK: (NIL (1 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO) (GC))
EQUAL-OK: (T ((1 . 2) T) (NULL NIL))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 2 (WEAK-POINTER-VALUE WPP) CO) (GC))
EQUAL-OK: (NIL (2 T) (CONS T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO (WEAK-POINTER-VALUE WPP) WP) (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 3 CO NIL) (GC))
EQUAL-OK: (NIL (3 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) (CONS 1 2)) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(LET ((*PRINT-CIRCLE* T)) (SETF (WEAK-POINTER-VALUE WP) WPP) (PRIN1-TO-STRING WP))
EQUAL-OK: "#1=#<WEAK-POINTER #<WEAK-POINTER #1#>>"
(SYMBOLS-CLEANUP '(CO WP WPP))
EQL-OK: NIL
(PROGN (GC) (SYMBOL-CLEANUP 'WEAKPTR-TEST))
EQL-OK: T
RUN-TEST: finished "weakptr" (0 errors out of 13 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"weakptr.tst" @1>
(DEFMACRO WEAKPTR-TEST (&BODY BODY) `(PROGN (MAKE-LIST 100) ,@BODY (MAKE-ARRAY 200) (LIST (EQ CO (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-LIST (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-BIND (V P) (WEAK-POINTER-VALUE WPP) (LIST (TYPE-OF V) P)))))
EQL-OK: WEAKPTR-TEST
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER CO) WPP (MAKE-WEAK-POINTER WP)))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO NIL) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER 1)))
EQUAL-OK: (NIL (1 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO) (GC))
EQUAL-OK: (T ((1 . 2) T) (NULL NIL))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 2 (WEAK-POINTER-VALUE WPP) CO) (GC))
EQUAL-OK: (NIL (2 T) (CONS T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO (WEAK-POINTER-VALUE WPP) WP) (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 3 CO NIL) (GC))
EQUAL-OK: (NIL (3 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) (CONS 1 2)) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(LET ((*PRINT-CIRCLE* T)) (SETF (WEAK-POINTER-VALUE WP) WPP) (PRIN1-TO-STRING WP))
EQUAL-OK: "#1=#<WEAK-POINTER #<WEAK-POINTER #1#>>"
(SYMBOLS-CLEANUP '(CO WP WPP))
EQL-OK: NIL
(PROGN (GC) (SYMBOL-CLEANUP 'WEAKPTR-TEST))
EQL-OK: T
RUN-TEST: finished "weakptr" (0 errors out of 13 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"weakptr.tst" @1>
(DEFMACRO WEAKPTR-TEST (&BODY BODY) `(PROGN (MAKE-LIST 100) ,@BODY (MAKE-ARRAY 200) (LIST (EQ CO (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-LIST (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-BIND (V P) (WEAK-POINTER-VALUE WPP) (LIST (TYPE-OF V) P)))))
EQL-OK: WEAKPTR-TEST
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER CO) WPP (MAKE-WEAK-POINTER WP)))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO NIL) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER 1)))
EQUAL-OK: (NIL (1 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO) (GC))
EQUAL-OK: (T ((1 . 2) T) (NULL NIL))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 2 (WEAK-POINTER-VALUE WPP) CO) (GC))
EQUAL-OK: (NIL (2 T) (CONS T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO (WEAK-POINTER-VALUE WPP) WP) (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 3 CO NIL) (GC))
EQUAL-OK: (NIL (3 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) (CONS 1 2)) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(LET ((*PRINT-CIRCLE* T)) (SETF (WEAK-POINTER-VALUE WP) WPP) (PRIN1-TO-STRING WP))
EQUAL-OK: "#1=#<WEAK-POINTER #<WEAK-POINTER #1#>>"
(SYMBOLS-CLEANUP '(CO WP WPP))
EQL-OK: NIL
(PROGN (GC) (SYMBOL-CLEANUP 'WEAKPTR-TEST))
EQL-OK: T
RUN-TEST: finished "weakptr" (0 errors out of 13 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"weakptr.tst" @1>
(DEFMACRO WEAKPTR-TEST (&BODY BODY) `(PROGN (MAKE-LIST 100) ,@BODY (MAKE-ARRAY 200) (LIST (EQ CO (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-LIST (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-BIND (V P) (WEAK-POINTER-VALUE WPP) (LIST (TYPE-OF V) P)))))
EQL-OK: WEAKPTR-TEST
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER CO) WPP (MAKE-WEAK-POINTER WP)))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO NIL) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER 1)))
EQUAL-OK: (NIL (1 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO) (GC))
EQUAL-OK: (T ((1 . 2) T) (NULL NIL))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 2 (WEAK-POINTER-VALUE WPP) CO) (GC))
EQUAL-OK: (NIL (2 T) (CONS T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO (WEAK-POINTER-VALUE WPP) WP) (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 3 CO NIL) (GC))
EQUAL-OK: (NIL (3 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) (CONS 1 2)) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(LET ((*PRINT-CIRCLE* T)) (SETF (WEAK-POINTER-VALUE WP) WPP) (PRIN1-TO-STRING WP))
EQUAL-OK: "#1=#<WEAK-POINTER #<WEAK-POINTER #1#>>"
(SYMBOLS-CLEANUP '(CO WP WPP))
EQL-OK: NIL
(PROGN (GC) (SYMBOL-CLEANUP 'WEAKPTR-TEST))
EQL-OK: T
RUN-TEST: finished "weakptr" (0 errors out of 13 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"weakptr.tst" @1>
(DEFMACRO WEAKPTR-TEST (&BODY BODY) `(PROGN (MAKE-LIST 100) ,@BODY (MAKE-ARRAY 200) (LIST (EQ CO (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-LIST (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-BIND (V P) (WEAK-POINTER-VALUE WPP) (LIST (TYPE-OF V) P)))))
EQL-OK: WEAKPTR-TEST
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER CO) WPP (MAKE-WEAK-POINTER WP)))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO NIL) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER 1)))
EQUAL-OK: (NIL (1 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO) (GC))
EQUAL-OK: (T ((1 . 2) T) (NULL NIL))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 2 (WEAK-POINTER-VALUE WPP) CO) (GC))
EQUAL-OK: (NIL (2 T) (CONS T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO (WEAK-POINTER-VALUE WPP) WP) (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 3 CO NIL) (GC))
EQUAL-OK: (NIL (3 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) (CONS 1 2)) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(LET ((*PRINT-CIRCLE* T)) (SETF (WEAK-POINTER-VALUE WP) WPP) (PRIN1-TO-STRING WP))
EQUAL-OK: "#1=#<WEAK-POINTER #<WEAK-POINTER #1#>>"
(SYMBOLS-CLEANUP '(CO WP WPP))
EQL-OK: NIL
(PROGN (GC) (SYMBOL-CLEANUP 'WEAKPTR-TEST))
EQL-OK: T
RUN-TEST: finished "weakptr" (0 errors out of 13 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"weakptr.tst" @1>
(DEFMACRO WEAKPTR-TEST (&BODY BODY) `(PROGN (MAKE-LIST 100) ,@BODY (MAKE-ARRAY 200) (LIST (EQ CO (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-LIST (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-BIND (V P) (WEAK-POINTER-VALUE WPP) (LIST (TYPE-OF V) P)))))
EQL-OK: WEAKPTR-TEST
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER CO) WPP (MAKE-WEAK-POINTER WP)))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO NIL) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER 1)))
EQUAL-OK: (NIL (1 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO) (GC))
EQUAL-OK: (T ((1 . 2) T) (NULL NIL))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 2 (WEAK-POINTER-VALUE WPP) CO) (GC))
EQUAL-OK: (NIL (2 T) (CONS T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO (WEAK-POINTER-VALUE WPP) WP) (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 3 CO NIL) (GC))
EQUAL-OK: (NIL (3 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) (CONS 1 2)) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(LET ((*PRINT-CIRCLE* T)) (SETF (WEAK-POINTER-VALUE WP) WPP) (PRIN1-TO-STRING WP))
EQUAL-OK: "#1=#<WEAK-POINTER #<WEAK-POINTER #1#>>"
(SYMBOLS-CLEANUP '(CO WP WPP))
EQL-OK: NIL
(PROGN (GC) (SYMBOL-CLEANUP 'WEAKPTR-TEST))
EQL-OK: T
RUN-TEST: finished "weakptr" (0 errors out of 13 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"weakptr.tst" @1>
(DEFMACRO WEAKPTR-TEST (&BODY BODY) `(PROGN (MAKE-LIST 100) ,@BODY (MAKE-ARRAY 200) (LIST (EQ CO (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-LIST (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-BIND (V P) (WEAK-POINTER-VALUE WPP) (LIST (TYPE-OF V) P)))))
EQL-OK: WEAKPTR-TEST
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER CO) WPP (MAKE-WEAK-POINTER WP)))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO NIL) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER 1)))
EQUAL-OK: (NIL (1 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO) (GC))
EQUAL-OK: (T ((1 . 2) T) (NULL NIL))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 2 (WEAK-POINTER-VALUE WPP) CO) (GC))
EQUAL-OK: (NIL (2 T) (CONS T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO (WEAK-POINTER-VALUE WPP) WP) (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 3 CO NIL) (GC))
EQUAL-OK: (NIL (3 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) (CONS 1 2)) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(LET ((*PRINT-CIRCLE* T)) (SETF (WEAK-POINTER-VALUE WP) WPP) (PRIN1-TO-STRING WP))
EQUAL-OK: "#1=#<WEAK-POINTER #<WEAK-POINTER #1#>>"
(SYMBOLS-CLEANUP '(CO WP WPP))
EQL-OK: NIL
(PROGN (GC) (SYMBOL-CLEANUP 'WEAKPTR-TEST))
EQL-OK: T
RUN-TEST: finished "weakptr" (0 errors out of 13 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"weakptr.tst" @1>
(DEFMACRO WEAKPTR-TEST (&BODY BODY) `(PROGN (MAKE-LIST 100) ,@BODY (MAKE-ARRAY 200) (LIST (EQ CO (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-LIST (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-BIND (V P) (WEAK-POINTER-VALUE WPP) (LIST (TYPE-OF V) P)))))
EQL-OK: WEAKPTR-TEST
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER CO) WPP (MAKE-WEAK-POINTER WP)))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO NIL) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER 1)))
EQUAL-OK: (NIL (1 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO) (GC))
EQUAL-OK: (T ((1 . 2) T) (NULL NIL))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 2 (WEAK-POINTER-VALUE WPP) CO) (GC))
EQUAL-OK: (NIL (2 T) (CONS T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO (WEAK-POINTER-VALUE WPP) WP) (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 3 CO NIL) (GC))
EQUAL-OK: (NIL (3 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) (CONS 1 2)) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(LET ((*PRINT-CIRCLE* T)) (SETF (WEAK-POINTER-VALUE WP) WPP) (PRIN1-TO-STRING WP))
EQUAL-OK: "#1=#<WEAK-POINTER #<WEAK-POINTER #1#>>"
(SYMBOLS-CLEANUP '(CO WP WPP))
EQL-OK: NIL
(PROGN (GC) (SYMBOL-CLEANUP 'WEAKPTR-TEST))
EQL-OK: T
RUN-TEST: finished "weakptr" (0 errors out of 13 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"weakptr.tst" @1>
(DEFMACRO WEAKPTR-TEST (&BODY BODY) `(PROGN (MAKE-LIST 100) ,@BODY (MAKE-ARRAY 200) (LIST (EQ CO (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-LIST (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-BIND (V P) (WEAK-POINTER-VALUE WPP) (LIST (TYPE-OF V) P)))))
EQL-OK: WEAKPTR-TEST
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER CO) WPP (MAKE-WEAK-POINTER WP)))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO NIL) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER 1)))
EQUAL-OK: (NIL (1 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO) (GC))
EQUAL-OK: (T ((1 . 2) T) (NULL NIL))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 2 (WEAK-POINTER-VALUE WPP) CO) (GC))
EQUAL-OK: (NIL (2 T) (CONS T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO (WEAK-POINTER-VALUE WPP) WP) (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 3 CO NIL) (GC))
EQUAL-OK: (NIL (3 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) (CONS 1 2)) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(LET ((*PRINT-CIRCLE* T)) (SETF (WEAK-POINTER-VALUE WP) WPP) (PRIN1-TO-STRING WP))
EQUAL-OK: "#1=#<WEAK-POINTER #<WEAK-POINTER #1#>>"
(SYMBOLS-CLEANUP '(CO WP WPP))
EQL-OK: NIL
(PROGN (GC) (SYMBOL-CLEANUP 'WEAKPTR-TEST))
EQL-OK: T
RUN-TEST: finished "weakptr" (0 errors out of 13 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"weakptr.tst" @1>
(DEFMACRO WEAKPTR-TEST (&BODY BODY) `(PROGN (MAKE-LIST 100) ,@BODY (MAKE-ARRAY 200) (LIST (EQ CO (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-LIST (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-BIND (V P) (WEAK-POINTER-VALUE WPP) (LIST (TYPE-OF V) P)))))
EQL-OK: WEAKPTR-TEST
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER CO) WPP (MAKE-WEAK-POINTER WP)))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO NIL) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER 1)))
EQUAL-OK: (NIL (1 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO) (GC))
EQUAL-OK: (T ((1 . 2) T) (NULL NIL))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 2 (WEAK-POINTER-VALUE WPP) CO) (GC))
EQUAL-OK: (NIL (2 T) (CONS T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO (WEAK-POINTER-VALUE WPP) WP) (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 3 CO NIL) (GC))
EQUAL-OK: (NIL (3 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) (CONS 1 2)) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(LET ((*PRINT-CIRCLE* T)) (SETF (WEAK-POINTER-VALUE WP) WPP) (PRIN1-TO-STRING WP))
EQUAL-OK: "#1=#<WEAK-POINTER #<WEAK-POINTER #1#>>"
(SYMBOLS-CLEANUP '(CO WP WPP))
EQL-OK: NIL
(PROGN (GC) (SYMBOL-CLEANUP 'WEAKPTR-TEST))
EQL-OK: T
RUN-TEST: finished "weakptr" (0 errors out of 13 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"weakptr.tst" @1>
(DEFMACRO WEAKPTR-TEST (&BODY BODY) `(PROGN (MAKE-LIST 100) ,@BODY (MAKE-ARRAY 200) (LIST (EQ CO (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-LIST (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-BIND (V P) (WEAK-POINTER-VALUE WPP) (LIST (TYPE-OF V) P)))))
EQL-OK: WEAKPTR-TEST
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER CO) WPP (MAKE-WEAK-POINTER WP)))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO NIL) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER 1)))
EQUAL-OK: (NIL (1 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO) (GC))
EQUAL-OK: (T ((1 . 2) T) (NULL NIL))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 2 (WEAK-POINTER-VALUE WPP) CO) (GC))
EQUAL-OK: (NIL (2 T) (CONS T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO (WEAK-POINTER-VALUE WPP) WP) (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 3 CO NIL) (GC))
EQUAL-OK: (NIL (3 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) (CONS 1 2)) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(LET ((*PRINT-CIRCLE* T)) (SETF (WEAK-POINTER-VALUE WP) WPP) (PRIN1-TO-STRING WP))
EQUAL-OK: "#1=#<WEAK-POINTER #<WEAK-POINTER #1#>>"
(SYMBOLS-CLEANUP '(CO WP WPP))
EQL-OK: NIL
(PROGN (GC) (SYMBOL-CLEANUP 'WEAKPTR-TEST))
EQL-OK: T
RUN-TEST: finished "weakptr" (0 errors out of 13 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"weakptr.tst" @1>
(DEFMACRO WEAKPTR-TEST (&BODY BODY) `(PROGN (MAKE-LIST 100) ,@BODY (MAKE-ARRAY 200) (LIST (EQ CO (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-LIST (WEAK-POINTER-VALUE WP)) (MULTIPLE-VALUE-BIND (V P) (WEAK-POINTER-VALUE WPP) (LIST (TYPE-OF V) P)))))
EQL-OK: WEAKPTR-TEST
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER CO) WPP (MAKE-WEAK-POINTER WP)))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO NIL) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(WEAKPTR-TEST (SETQ CO (CONS 1 2) WP (MAKE-WEAK-POINTER 1)))
EQUAL-OK: (NIL (1 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO) (GC))
EQUAL-OK: (T ((1 . 2) T) (NULL NIL))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 2 (WEAK-POINTER-VALUE WPP) CO) (GC))
EQUAL-OK: (NIL (2 T) (CONS T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) CO (WEAK-POINTER-VALUE WPP) WP) (GC))
EQUAL-OK: (T ((1 . 2) T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) 3 CO NIL) (GC))
EQUAL-OK: (NIL (3 T) (WEAK-POINTER T))
(WEAKPTR-TEST (SETF (WEAK-POINTER-VALUE WP) (CONS 1 2)) (GC))
EQUAL-OK: (T (NIL NIL) (WEAK-POINTER T))
(LET ((*PRINT-CIRCLE* T)) (SETF (WEAK-POINTER-VALUE WP) WPP) (PRIN1-TO-STRING WP))
EQUAL-OK: "#1=#<WEAK-POINTER #<WEAK-POINTER #1#>>"
(SYMBOLS-CLEANUP '(CO WP WPP))
EQL-OK: NIL
(PROGN (GC) (SYMBOL-CLEANUP 'WEAKPTR-TEST))
EQL-OK: T
RUN-TEST: finished "weakptr" (0 errors out of 13 tests)
finished  55 files:               0 errors out of  11,649 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
  4                    bin-io:    0 errors out of      15 tests
  5                characters:    0 errors out of     221 tests
  6                      clos:    0 errors out of     496 tests
  7                   defhash:    0 errors out of       6 tests
  8                  encoding:    0 errors out of      36 tests
  9                    eval20:    0 errors out of      50 tests
 10                 ext-clisp:    0 errors out of     134 tests
 11                    floeps:    0 errors out of      20 tests
 12                    format:    0 errors out of     307 tests
 13                 genstream:    0 errors out of      14 tests
 14                      hash:    0 errors out of      48 tests
 15                  hashlong:    0 errors out of      14 tests
 16                 hashtable:    0 errors out of      10 tests
 17                    iofkts:    0 errors out of     228 tests
 18                    lambda:    0 errors out of      90 tests
 19                  lists151:    0 errors out of     201 tests
 20                  lists152:    0 errors out of     255 tests
 21                  lists153:    0 errors out of       1 test
 22                  lists154:    0 errors out of      46 tests
 23                  lists155:    0 errors out of      25 tests
 24                  lists156:    0 errors out of      20 tests
 25                  list-set:    0 errors out of      10 tests
 26                      loop:    0 errors out of     178 tests
 27                    macro8:    0 errors out of     253 tests
 28                       map:    0 errors out of      64 tests
 29                       mop:    0 errors out of     225 tests
 30                    number:    0 errors out of   3,655 tests
 31                   number2:    0 errors out of     331 tests
 32                    pack11:    0 errors out of     211 tests
 33                      path:    0 errors out of     180 tests
 34                 readtable:    0 errors out of      27 tests
 35                      setf:    0 errors out of     210 tests
 36                    socket:    0 errors out of      92 tests
 37                   steele7:    0 errors out of      86 tests
 38                   streams:    0 errors out of     387 tests
 39               streamslong:    0 errors out of      25 tests
 40                   strings:    0 errors out of     409 tests
 41                  symbol10:    0 errors out of     152 tests
 42                   symbols:    0 errors out of       6 tests
 43                      time:    0 errors out of      22 tests
 44                     tread:    0 errors out of     395 tests
 45                      type:    0 errors out of     287 tests
 46                unportable:    0 errors out of      31 tests
 47                      weak:    0 errors out of     120 tests
 48                  weakhash:    0 errors out of      26 tests
 49                 weakhash2:    0 errors out of      47 tests
 50                 bind-eval:    0 errors out of      72 tests
 51              bind-compile:    0 errors out of      72 tests
 52                conditions:    0 errors out of      98 tests
 53                  restarts:    0 errors out of      71 tests
 54                  excepsit:    0 errors out of     395 tests
 55                   weakptr:    0 errors out of     260 tests
Real time: 37.937595 sec.
Run time: 35.39851 sec.
Space: 1352268264 Bytes
GC: 803, GC time: 6.278599 sec.
0
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.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests'
mkdir sacla-tests
cd sacla-tests && ln -s ../../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.93+ (2018-02-18) <http://clisp.org/>
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 tests.lisp ...
;;  Loading file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/tests.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/tests/tests.fas
;; Loaded file tests.lisp
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"must-condition.lisp" @1>
(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 #<INPUT BUFFERED FILE-STREAM CHARACTER #P"must-array.lisp" @1>
(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 #<INPUT BUFFERED FILE-STREAM CHARACTER #P"must-character.lisp" @1>
(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 #<INPUT BUFFERED FILE-STREAM CHARACTER #P"must-cons.lisp" @1>
(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 #<INPUT BUFFERED FILE-STREAM CHARACTER #P"must-data-and-control.lisp" @1>
(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 #<INPUT BUFFERED FILE-STREAM CHARACTER #P"must-do.lisp" @1>
(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 #<INPUT BUFFERED FILE-STREAM CHARACTER #P"must-eval.lisp" @1>
(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 #<INPUT BUFFERED FILE-STREAM CHARACTER #P"must-hash-table.lisp" @1>
(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 #<INPUT BUFFERED FILE-STREAM CHARACTER #P"must-loop.lisp" @1>
(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-KEYEQL-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-KEYSEQL-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-KEYEQL-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-KEYSEQL-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-KEYEQL-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-KEYSEQL-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-KEYEQL-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-KEYSEQL-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-VALUEEQL-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-VALUESEQL-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-VALUEEQL-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-VALUESEQL-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-VALUEEQL-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-VALUESEQL-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-VALUEEQL-OK: NIL
WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not
         HASH-VALUES
(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))))
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
         SYMBOLSEQL-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 SYMBOLEQL-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
         SYMBOLSEQL-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 SYMBOLEQL-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-SYMBOLSEQL-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-SYMBOLEQL-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-SYMBOLSEQL-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-SYMBOLEQL-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-SYMBOLSEQL-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-SYMBOLEQL-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-SYMBOLSEQL-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-SYMBOLEQL-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
         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)))))
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)))))
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)))))
SYMBOLS
WARNING: LOOP: After THE a plural loop keyword is required, not SYMBOL
WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not
         SYMBOLS
WARNING: LOOP: After THE a plural loop keyword is required, not SYMBOLEQL-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-SYMBOLSEQL-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-SYMBOLEQL-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-SYMBOLSEQL-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-SYMBOLEQL-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-SYMBOLSEQL-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-SYMBOLEQL-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-SYMBOLSEQL-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-SYMBOLEQL-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 #<INPUT BUFFERED FILE-STREAM CHARACTER #P"must-package.lisp" @1>
(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 #<INPUT BUFFERED FILE-STREAM CHARACTER #P"must-printer.lisp" @1>
(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 #<INPUT BUFFERED FILE-STREAM CHARACTER #P"must-reader.lisp" @1>
(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 "#<invalid-token>") (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 "#<abc") (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-CHAR S T NIL T) (READ S T NIL T))) (EQ 'BC (READ-FROM-STRING "#<abc")) (SETQ *READTABLE* (COPY-READTABLE)) (EQ 'BC (READ-FROM-STRING "#<abc")) (SETQ *READTABLE* (COPY-READTABLE NIL)) (HANDLER-CASE (READ-FROM-STRING "#<abc") (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 (HANDLER-CASE (READ-FROM-STRING "#<abc") (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-CHAR S T NIL T) (READ S T NIL T))) (EQ 'BC (READ-FROM-STRING "#<abc")) (SETQ *READTABLE* (COPY-READTABLE)) (EQ 'BC (READ-FROM-STRING "#<abc")) (SET-DISPATCH-MACRO-CHARACTER #\# #\< #'(LAMBDA (S C N) (DECLARE (IGNORE C N)) (READ-CHAR S T NIL T) (READ-CHAR S T NIL T) (READ S T NIL T))) (EQ 'C (READ-FROM-STRING "#<abc")) (SETQ *READTABLE* (COPY-READTABLE NIL)) (HANDLER-CASE (READ-FROM-STRING "#<abc") (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))))
EQL-OK: NIL
(NOT (LET ((TABLE (COPY-READTABLE NIL))) (AND (EQ :UPCASE (READTABLE-CASE TABLE)) (SETF (READTABLE-CASE TABLE) :INVERT) (LET ((COPY (COPY-READTABLE TABLE))) (AND (NOT (EQ TABLE COPY)) (EQ (READTABLE-CASE COPY) :INVERT))))))
EQL-OK: NIL
(NOT (LET ((TABLE (COPY-READTABLE NIL)) COPY) (AND (EQ :UPCASE (READTABLE-CASE TABLE)) (SETF (READTABLE-CASE TABLE) :INVERT) (EQ (READTABLE-CASE TABLE) :INVERT) (SETQ COPY (COPY-READTABLE TABLE)) (EQ (READTABLE-CASE COPY) :INVERT) (SETF (READTABLE-CASE COPY) :PRESERVE) (EQ (READTABLE-CASE TABLE) :INVERT))))
EQL-OK: NIL
(NOT (EQ :UPCASE (LET ((X (COPY-READTABLE NIL))) (READTABLE-CASE X))))
EQL-OK: NIL
(NOT (LET ((X (COPY-READTABLE NIL))) (AND (EQ (SETF (READTABLE-CASE X) :UPCASE) (READTABLE-CASE X)) (EQ (SETF (READTABLE-CASE X) :DOWNCASE) (READTABLE-CASE X)) (EQ (SETF (READTABLE-CASE X) :PRESERVE) (READTABLE-CASE X)) (EQ (SETF (READTABLE-CASE X) :INVERT) (READTABLE-CASE X)))))
EQL-OK: NIL
(NOT (HANDLER-CASE (READTABLE-CASE 'NOT-A-READTABLE) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))
EQL-OK: NIL
(NOT (HANDLER-CASE (SETF (READTABLE-CASE (COPY-READTABLE NIL)) :NO-SUCH-MODE) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))
EQL-OK: NIL
(NOT (LET ((TABLE (COPY-READTABLE NIL))) (AND (EQ :UPCASE (READTABLE-CASE TABLE)) (SETF (READTABLE-CASE TABLE) :DOWNCASE) (EQ :DOWNCASE (READTABLE-CASE (COPY-READTABLE TABLE))))))
EQL-OK: NIL
(NOT (NOT (READTABLEP NIL)))
EQL-OK: NIL
(NOT (NOT (READTABLEP 'READTABLE)))
EQL-OK: NIL
(NOT (READTABLEP *READTABLE*))
EQL-OK: NIL
(NOT (READTABLEP (COPY-READTABLE)))
EQL-OK: NIL
(NOT (NOT (READTABLEP '*READTABLE*)))
EQL-OK: NIL
(NOT (NULL (GET-DISPATCH-MACRO-CHARACTER #\# #\0)))
EQL-OK: NIL
(NOT (NULL (GET-DISPATCH-MACRO-CHARACTER #\# #\1)))
EQL-OK: NIL
(NOT (NULL (GET-DISPATCH-MACRO-CHARACTER #\# #\2)))
EQL-OK: NIL
(NOT (NULL (GET-DISPATCH-MACRO-CHARACTER #\# #\3)))
EQL-OK: NIL
(NOT (NULL (GET-DISPATCH-MACRO-CHARACTER #\# #\4)))
EQL-OK: NIL
(NOT (NULL (GET-DISPATCH-MACRO-CHARACTER #\# #\5)))
EQL-OK: NIL
(NOT (NULL (GET-DISPATCH-MACRO-CHARACTER #\# #\6)))
EQL-OK: NIL
(NOT (NULL (GET-DISPATCH-MACRO-CHARACTER #\# #\7)))
EQL-OK: NIL
(NOT (NULL (GET-DISPATCH-MACRO-CHARACTER #\# #\8)))
EQL-OK: NIL
(NOT (NULL (GET-DISPATCH-MACRO-CHARACTER #\# #\9)))
EQL-OK: NIL
(NOT (GET-DISPATCH-MACRO-CHARACTER #\# #\\))
EQL-OK: NIL
(NOT (GET-DISPATCH-MACRO-CHARACTER #\# #\'))
EQL-OK: NIL
(NOT (GET-DISPATCH-MACRO-CHARACTER #\# #\())
EQL-OK: NIL
(NOT (GET-DISPATCH-MACRO-CHARACTER #\# #\*))
EQL-OK: NIL
(NOT (GET-DISPATCH-MACRO-CHARACTER #\# #\:))
EQL-OK: NIL
(NOT (GET-DISPATCH-MACRO-CHARACTER #\# #\.))
EQL-OK: NIL
(NOT (GET-DISPATCH-MACRO-CHARACTER #\# #\b))
EQL-OK: NIL
(NOT (GET-DISPATCH-MACRO-CHARACTER #\# #\o))
EQL-OK: NIL
(NOT (GET-DISPATCH-MACRO-CHARACTER #\# #\x))
EQL-OK: NIL
(NOT (GET-DISPATCH-MACRO-CHARACTER #\# #\r))
EQL-OK: NIL
(NOT (GET-DISPATCH-MACRO-CHARACTER #\# #\c))
EQL-OK: NIL
(NOT (GET-DISPATCH-MACRO-CHARACTER #\# #\a))
EQL-OK: NIL
(NOT (GET-DISPATCH-MACRO-CHARACTER #\# #\s))
EQL-OK: NIL
(NOT (GET-DISPATCH-MACRO-CHARACTER #\# #\p))
EQL-OK: NIL
(NOT (GET-DISPATCH-MACRO-CHARACTER #\# #\=))
EQL-OK: NIL
(NOT (GET-DISPATCH-MACRO-CHARACTER #\# #\#))
EQL-OK: NIL
(NOT (GET-DISPATCH-MACRO-CHARACTER #\# #\+))
EQL-OK: NIL
(NOT (GET-DISPATCH-MACRO-CHARACTER #\# #\-))
EQL-OK: NIL
(NOT (GET-DISPATCH-MACRO-CHARACTER #\# #\|))
EQL-OK: NIL
(NOT (GET-DISPATCH-MACRO-CHARACTER #\# #\Newline))
EQL-OK: NIL
(NOT (GET-DISPATCH-MACRO-CHARACTER #\# #\ ))
EQL-OK: NIL
(NOT (HANDLER-CASE (GET-DISPATCH-MACRO-CHARACTER #\a #\b) (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))
EQL-OK: NIL
(NOT (HANDLER-CASE (GET-DISPATCH-MACRO-CHARACTER #\a #\b NIL) (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))
EQL-OK: NIL
(NOT (HANDLER-CASE (GET-DISPATCH-MACRO-CHARACTER #\a #\b *READTABLE*) (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))
EQL-OK: NIL
(NOT (HANDLER-CASE (SET-DISPATCH-MACRO-CHARACTER #\a #\b #'IDENTITY) (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))
EQL-OK: NIL
(NOT (HANDLER-CASE (SET-DISPATCH-MACRO-CHARACTER #\a #\b #'IDENTITY *READTABLE*) (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))
EQL-OK: NIL
(NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (AND (EQ T (SET-DISPATCH-MACRO-CHARACTER #\# #\{ #'(LAMBDA (S C N) (DECLARE (IGNORE C)) (LET ((LIST (READ S NIL (VALUES) T))) (WHEN (CONSP LIST) (UNLESS (AND N (< 0 N (LENGTH LIST))) (SETQ N 0)) (SETQ LIST (NTH N LIST))) LIST)))) (= 1 (READ-FROM-STRING "#{(1 2 3 4)")) (= 3 (READ-FROM-STRING "#3{(0 1 2 3)")) (= 123 (READ-FROM-STRING "#{123")))))
EQL-OK: NIL
(NOT (LET ((*READTABLE* (COPY-READTABLE)) (DOLLAR #'(LAMBDA (STREAM SUBCHAR ARG) (DECLARE (IGNORE SUBCHAR ARG)) (LIST 'DOLLARS (READ STREAM T NIL T))))) (AND (EQ T (SET-DISPATCH-MACRO-CHARACTER #\# #\$ DOLLAR)) (EQUAL '(DOLLARS FOO) (READ-FROM-STRING "#$foo")))))
EQL-OK: NIL
(NOT (AND (LET ((*READTABLE* (COPY-READTABLE))) (AND (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "ABC" (SYMBOL-NAME (READ-FROM-STRING "abc"))) (STRING= "abc" (SYMBOL-NAME (READ-FROM-STRING "ABC"))) (STRING= "AbC" (SYMBOL-NAME (READ-FROM-STRING "AbC"))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "abc" (SYMBOL-NAME (READ-FROM-STRING "abc"))) (STRING= "ABC" (SYMBOL-NAME (READ-FROM-STRING "ABC"))) (STRING= "AbC" (SYMBOL-NAME (READ-FROM-STRING "AbC"))))) (EQ (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "ABC" (SYMBOL-NAME (READ-FROM-STRING "abc"))) (STRING= "ABC" (SYMBOL-NAME (READ-FROM-STRING "ABC"))) (STRING= "ABC" (SYMBOL-NAME (READ-FROM-STRING "AbC")))))
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)) T) (SET-MACRO-CHARACTER #\> (GET-MACRO-CHARACTER #\))) (EQUAL '(A B) (READ-FROM-STRING "<a b>")))))
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 "xyz<A b>jKl") (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 "#<abc") (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-CHAR S T NIL T) (READ S T NIL T))) (EQ 'BC (READ-FROM-STRING "#<abc")) (SETQ *READTABLE* (COPY-READTABLE)) (EQ 'BC (READ-FROM-STRING "#<abc")) (SET-DISPATCH-MACRO-CHARACTER #\# #\< #'(LAMBDA (S C N) (DECLARE (IGNORE C N)) (READ-CHAR S T NIL T) (READ-CHAR S T NIL T) (READ S T NIL T))) (EQ 'C (READ-FROM-STRING "#<abc")) (SETQ *READTABLE* (COPY-READTABLE NIL)) (HANDLER-CASE (READ-FROM-STRING "#<abc") (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))))
EQL-OK: NIL
(NOT (LET ((*READTABLE* (COPY-READTABLE))) (AND (EQ T (MAKE-DISPATCH-MACRO-CHARACTER #\{)) (EQ T (SET-DISPATCH-MACRO-CHARACTER #\{ #\s #'(LAMBDA (S C N) (DECLARE (IGNORE C N)) `(SECTION ,(READ S T NIL T))))) (EQUAL '(SECTION (X Y Z)) (READ-FROM-STRING "{s (x y z)")) (EQUAL '(SECTION (X Y Z)) (READ-FROM-STRING "{S (x y z)")))))
EQL-OK: NIL
(NOT (MULTIPLE-VALUE-BIND #'NON-TERMINATING-P (GET-MACRO-CHARACTER #\") (AND FUNCTION (NOT NON-TERMINATING-P))))
EQL-OK: NIL
(NOT (MULTIPLE-VALUE-BIND #'NON-TERMINATING-P (GET-MACRO-CHARACTER #\#) (AND FUNCTION NON-TERMINATING-P)))
EQL-OK: NIL
(NOT (MULTIPLE-VALUE-BIND #'NON-TERMINATING-P (GET-MACRO-CHARACTER #\') (AND FUNCTION (NOT NON-TERMINATING-P))))
EQL-OK: NIL
(NOT (MULTIPLE-VALUE-BIND #'NON-TERMINATING-P (GET-MACRO-CHARACTER #\() (AND FUNCTION (NOT NON-TERMINATING-P))))
EQL-OK: NIL
(NOT (MULTIPLE-VALUE-BIND #'NON-TERMINATING-P (GET-MACRO-CHARACTER #\)) (AND FUNCTION (NOT NON-TERMINATING-P))))
EQL-OK: NIL
(NOT (MULTIPLE-VALUE-BIND #'NON-TERMINATING-P (GET-MACRO-CHARACTER #\,) (AND FUNCTION (NOT NON-TERMINATING-P))))
EQL-OK: NIL
(NOT (MULTIPLE-VALUE-BIND #'NON-TERMINATING-P (GET-MACRO-CHARACTER #\;) (AND FUNCTION (NOT NON-TERMINATING-P))))
EQL-OK: NIL
(NOT (MULTIPLE-VALUE-BIND #'NON-TERMINATING-P (GET-MACRO-CHARACTER #\`) (AND FUNCTION (NOT NON-TERMINATING-P))))
EQL-OK: NIL
(NOT (MULTIPLE-VALUE-BIND #'NON-TERMINATING-P (GET-MACRO-CHARACTER #\a) (AND (NULL FUNCTION) (NOT NON-TERMINATING-P))))
EQL-OK: NIL
(NOT (MULTIPLE-VALUE-BIND #'NON-TERMINATING-P (GET-MACRO-CHARACTER #\z) (AND (NULL FUNCTION) (NOT NON-TERMINATING-P))))
EQL-OK: NIL
(NOT (MULTIPLE-VALUE-BIND #'NON-TERMINATING-P (GET-MACRO-CHARACTER #\ ) (AND (NULL FUNCTION) (NOT NON-TERMINATING-P))))
EQL-OK: NIL
(NOT (MULTIPLE-VALUE-BIND #'NON-TERMINATING-P (GET-MACRO-CHARACTER #\Tab) (AND (NULL FUNCTION) (NOT NON-TERMINATING-P))))
EQL-OK: NIL
(NOT (MULTIPLE-VALUE-BIND #'NON-TERMINATING-P (GET-MACRO-CHARACTER #\" NIL) (AND FUNCTION (NOT NON-TERMINATING-P))))
EQL-OK: NIL
(NOT (MULTIPLE-VALUE-BIND #'NON-TERMINATING-P (GET-MACRO-CHARACTER #\# NIL) (AND FUNCTION NON-TERMINATING-P)))
EQL-OK: NIL
(NOT (MULTIPLE-VALUE-BIND #'NON-TERMINATING-P (GET-MACRO-CHARACTER #\' NIL) (AND FUNCTION (NOT NON-TERMINATING-P))))
EQL-OK: NIL
(NOT (MULTIPLE-VALUE-BIND #'NON-TERMINATING-P (GET-MACRO-CHARACTER #\( NIL) (AND FUNCTION (NOT NON-TERMINATING-P))))
EQL-OK: NIL
(NOT (MULTIPLE-VALUE-BIND #'NON-TERMINATING-P (GET-MACRO-CHARACTER #\) NIL) (AND FUNCTION (NOT NON-TERMINATING-P))))
EQL-OK: NIL
(NOT (MULTIPLE-VALUE-BIND #'NON-TERMINATING-P (GET-MACRO-CHARACTER #\, NIL) (AND FUNCTION (NOT NON-TERMINATING-P))))
EQL-OK: NIL
(NOT (MULTIPLE-VALUE-BIND #'NON-TERMINATING-P (GET-MACRO-CHARACTER #\; NIL) (AND FUNCTION (NOT NON-TERMINATING-P))))
EQL-OK: NIL
(NOT (MULTIPLE-VALUE-BIND #'NON-TERMINATING-P (GET-MACRO-CHARACTER #\` NIL) (AND FUNCTION (NOT NON-TERMINATING-P))))
EQL-OK: NIL
(NOT (MULTIPLE-VALUE-BIND #'NON-TERMINATING-P (GET-MACRO-CHARACTER #\a NIL) (AND (NULL FUNCTION) (NOT NON-TERMINATING-P))))
EQL-OK: NIL
(NOT (MULTIPLE-VALUE-BIND #'NON-TERMINATING-P (GET-MACRO-CHARACTER #\z NIL) (AND (NULL FUNCTION) (NOT NON-TERMINATING-P))))
EQL-OK: NIL
(NOT (MULTIPLE-VALUE-BIND #'NON-TERMINATING-P (GET-MACRO-CHARACTER #\  NIL) (AND (NULL FUNCTION) (NOT NON-TERMINATING-P))))
EQL-OK: NIL
(NOT (MULTIPLE-VALUE-BIND #'NON-TERMINATING-P (GET-MACRO-CHARACTER #\Tab NIL) (AND (NULL FUNCTION) (NOT NON-TERMINATING-P))))
EQL-OK: NIL
(NOT (AND (LET ((*READTABLE* (COPY-READTABLE))) (AND (EQ T (SET-MACRO-CHARACTER #\$ #'(LAMBDA (S C) (DECLARE (IGNORE C)) `(DOLLARS ,(READ S T NIL T))))) (EQUAL '(DOLLARS 100) (READ-FROM-STRING "$100")) (EQ '$100 (READ-FROM-STRING "\\$100")) (EQ '$100 (READ-FROM-STRING "|$|100")))) (NULL (GET-MACRO-CHARACTER #\$)) (EQ '$100 (READ-FROM-STRING "$100"))))
EQL-OK: NIL
(NOT (LET ((*READTABLE* (COPY-READTABLE))) (AND (EQ T (SET-SYNTAX-FROM-CHAR #\[ #\()) (EQUAL '(0 1 2 3) (READ-FROM-STRING "[0 1 2 3)")))))
EQL-OK: NIL
(NOT (LET ((TABLE1 (COPY-READTABLE NIL)) (TABLE2 (COPY-READTABLE NIL))) (AND (EQ T (SET-SYNTAX-FROM-CHAR #\[ #\( TABLE1 TABLE1)) (EQUAL '(0 1 2 3) (LET ((*READTABLE* TABLE1)) (READ-FROM-STRING "[0 1 2 3)"))) (EQ T (SET-SYNTAX-FROM-CHAR #\{ #\[ TABLE2 TABLE1)) (EQUAL '(0 1 2 3) (LET ((*READTABLE* TABLE2)) (READ-FROM-STRING "{0 1 2 3)"))))))
EQL-OK: NIL
(NOT (LET ((*READTABLE* (COPY-READTABLE))) (AND (EQ T (SET-SYNTAX-FROM-CHAR #\[ #\.)) (EQ '3[0 (READ-FROM-STRING "3[0")))))
EQL-OK: NIL
(NOT (LET* ((STR (CONCATENATE 'STRING (LOOP REPEAT 100 COLLECTING #\() "kernel" (LOOP REPEAT 100 COLLECTING #\)))) (THING (READ-FROM-STRING STR))) (AND (= 1 (LENGTH THING)) (EQ 'KERNEL (LOOP REPEAT 101 FOR X = THING THEN (CAR X) FINALLY (RETURN X))))))
WARNING: LOOP: FOR clauses should occur before the loop's main bodyEQL-OK: NIL
(NOT (NULL (LET ((*READ-SUPPRESS* T)) (READ-FROM-STRING "abc"))))
EQL-OK: NIL
(NOT (NULL (LET ((*READ-SUPPRESS* T)) (WITH-INPUT-FROM-STRING (STREAM "abc") (READ STREAM)))))
EQL-OK: NIL
(NOT (NULL (LET ((*READ-SUPPRESS* T)) (WITH-INPUT-FROM-STRING (STREAM "abc") (READ-PRESERVING-WHITESPACE STREAM)))))
EQL-OK: NIL
(NOT (NULL (LET ((*READ-SUPPRESS* T)) (WITH-INPUT-FROM-STRING (STREAM "abc xyz)") (READ-DELIMITED-LIST #\) STREAM)))))
EQL-OK: NIL
(NOT (FLET ((NUM2STR (N BASE) (LET* ((BASE-DIGITS "0123456789ABCDEFGHIJKLMNOPQRSTUV") (MINUS-P (< N 0)) (N (IF MINUS-P (- N) N)) DIGITS) (LOOP WITH X = N DO (MULTIPLE-VALUE-BIND (Q R) (FLOOR X BASE) (PUSH (AREF BASE-DIGITS R) DIGITS) (SETQ X Q) (WHEN (ZEROP Q) (RETURN)))) (WHEN MINUS-P (PUSH #\- DIGITS)) (MAKE-ARRAY (LENGTH DIGITS) :ELEMENT-TYPE 'CHARACTER :INITIAL-CONTENTS DIGITS)))) (LOOP FOR BASE FROM 2 UPTO 32 ALWAYS (LOOP FOR N FROM -100 UPTO 100 ALWAYS (= N (LET ((*READ-BASE* BASE)) (READ-FROM-STRING (NUM2STR N BASE))))))))
EQL-OK: NIL
(NOT (LABELS ((INT2STR (N BASE) (LET* ((BASE-DIGITS "0123456789ABCDEFGHIJKLMNOPQRSTUV") (MINUS-P (< N 0)) (N (IF MINUS-P (- N) N)) DIGITS) (LOOP WITH X = N DO (MULTIPLE-VALUE-BIND (Q R) (FLOOR X BASE) (PUSH (AREF BASE-DIGITS R) DIGITS) (SETQ X Q) (WHEN (ZEROP Q) (RETURN)))) (WHEN MINUS-P (PUSH #\- DIGITS)) (MAKE-ARRAY (LENGTH DIGITS) :ELEMENT-TYPE 'CHARACTER :INITIAL-CONTENTS DIGITS))) (RATIO2STR (R BASE) (CONCATENATE 'STRING (INT2STR (NUMERATOR R) BASE) "/" (INT2STR (DENOMINATOR R) BASE)))) (LOOP FOR BASE FROM 2 UPTO 32 ALWAYS (LOOP FOR NUMERATOR FROM -100 UPTO 100 BY 23 ALWAYS (LOOP FOR DENOMINATOR FROM 1 UPTO 300 BY 51 ALWAYS (= (/ NUMERATOR DENOMINATOR) (LET ((*READ-BASE* BASE)) (READ-FROM-STRING (RATIO2STR (/ NUMERATOR DENOMINATOR) BASE)))))))))
EQL-OK: NIL
RUN-TEST: finished "must-reader" (0 errors out of 1,558 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"must-sequence.lisp" @1>
(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 #<INPUT BUFFERED FILE-STREAM CHARACTER #P"must-string.lisp" @1>
(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 #<INPUT BUFFERED FILE-STREAM CHARACTER #P"must-symbol.lisp" @1>
(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 #<INPUT BUFFERED FILE-STREAM CHARACTER #P"should-array.lisp" @1>
(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 #<INPUT BUFFERED FILE-STREAM CHARACTER #P"should-character.lisp" @1>
(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 #<INPUT BUFFERED FILE-STREAM CHARACTER #P"should-cons.lisp" @1>
(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 #<INPUT BUFFERED FILE-STREAM CHARACTER #P"should-data-and-control.lisp" @1>
(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 #<INPUT BUFFERED FILE-STREAM CHARACTER #P"should-eval.lisp" @1>
(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 #<INPUT BUFFERED FILE-STREAM CHARACTER #P"should-hash-table.lisp" @1>
(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 #<INPUT BUFFERED FILE-STREAM CHARACTER #P"should-package.lisp" @1>
(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 #<INPUT BUFFERED FILE-STREAM CHARACTER #P"should-sequence.lisp" @1>
(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 #<INPUT BUFFERED FILE-STREAM CHARACTER #P"should-string.lisp" @1>
RUN-TEST: finished "should-string" (0 errors out of 0 tests)
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"should-symbol.lisp" @1>
(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 ../../benchmarks/Makefile .
cd benchmarks && ln -s ../../benchmarks/*.lisp .
CLISP="/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/clisp -norc"; export CLISP; cd benchmarks; make CLISP="$CLISP" clisp
make[1]: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks'
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/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.93+ (2018-02-18) <http://clisp.org/>
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 /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/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 /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/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 warningsBye.
/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/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.93+ (2018-02-18) <http://clisp.org/>
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 #<COMPILED-FUNCTION BENCHMARKS-RUN-1> 
("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 /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/acker.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/acker.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/bfib.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/bfib.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/boyer.lisp ...
WARNING: in BOYER-TEST in lines 493..512 : variable ANS is assigned but not
         read
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/boyer.fas
0 errors, 1 warning
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/browse.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/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 /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/ctak.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/ctak.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/dderiv.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/dderiv.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/deriv.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/deriv.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/destru.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/destru.fas
0 errors, 0 warnings;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/div2.lisp
 ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/div2.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/fac.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/fac.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/fft.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/fft.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/fprint.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/fprint.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/fread.lisp ...
Define FPRINT.TST by running the FPRINT benchmark!
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/fread.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/frpoly.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/frpoly.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/puzzle.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/puzzle.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/stak.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/stak.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/stream.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/stream.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/tak.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/tak.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/takl.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/takl.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/takr.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/takr.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/tprint.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/tprint.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/traverse.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/traverse.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/triang.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks/triang.fas
0 errors, 0 warningsunchecked: 
("acker" "bfib" "boyer" "browse" "ctak" "dderiv" "deriv" "destru" "div2" "fac"
 "fft" "fprint" "fread" "frpoly" "puzzle" "stak" "stream" "tak" "takl" "takr"
 "tprint" "traverse" "triang")
elapsed: 0.308099 sec [scaled: 0.15523501601768658]
 * file: "fac"
 > form: (fac 1000)
unchecked: 402387260077093773543702433923003985719374864210714632543799910429938512398629020592044208486969404800479988610197196058631666872994808558901323829669944590997424504087073759918823627727188732519779505950995276120874975462497043601418278094646496291056393887437886487337119181045825783647849977012476632889835955735432513185323958463075557409114262417474349347553428646576611667797396668820291207379143853719588249808126867838374559731746136085379534524221586593201928090878297308431392844403281231558611036976801357304216168747609675871348312025478589320767169132448426236131412508780208000261683151027341827977704784635868170164365024153691398281264810213092761244896359928705114964975419909342221566832572080821333186116811553615836546984046708975602900950537616475847728421889679646244945160765353408198901385442487984959953319101723355556602139450399736280750137837615307127761926849034352625200015888535147331611702103968175921510907788019393178114194545257223865541461062892187960223838971476088506276862967146674697562911234082439208160153780889893964518263243671616762179168909779911903754031274622289988005195444414282012187361745992642956581746628302955570299024324153181617210465832036786906117260158783520751516284225540265170483304226143974286933061690897968482590125458327168226458066526769958652682272807075781391858178889652208164348344825993266043367660176999612831860788386150279465955131156552036093988180612138558600301435694527224206344631797460594682573103790084024432438465657245014402821885252470935190620929023136493273497565513958720559654228749774011413346962715422845862377387538230483865688976461927383814900140767310446640259899490222221765904339901886018566526485061799702356193897017860040811889729918311021171229845901641921068884387121855646124960798722908519296819372388642614839657382291123125024186649353143970137428531926649875337218940694281434118520158014123344828015051399694290153483077644569099073152433278288269864602789864321139083506217095002597389863554277196742822248757586765752344220207573630569498825087968928162753848863396909959826280956121450994871701244516461260379029309120889086942028510640182154399457156805941872748998094254742173582401063677404595741785160829230135358081840096996372524230560855903700624271243416909004153690105933983835777939410970027753472000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
elapsed: 0.214597 sec [scaled: 0.10812423517229036]
 * file: "acker"
 > form: (acker 3 5)
correct: 253
elapsed: 0.027342 sec [scaled: 0.013776207673363388]
 > form: (acker 3 6)
correct: 509
elapsed: 0.059515 sec [scaled: 0.02998650426743552]
 > form: (acker 3 7)
correct: 1021
elapsed: 0.082457 sec [scaled: 0.0415457814396359]
 * file: "bfib"
 > form: (bfib-test)
correct: 6765
elapsed: 0.242794 sec [scaled: 0.12233123274985701]
 * file: "ctak"
 > form: (ctak 18 12 6)
correct: 7
elapsed: 0.352671 sec [scaled: 0.17769252199446783]
 * file: "stak"
 > form: (stak 18 12 6)
correct: 7
elapsed: 0.343835 sec [scaled: 0.17324052246985958]
 * file: "tak"
 > form: (tak 18 12 6)
correct: 7
elapsed: 0.290098 sec [scaled: 0.14616525102872402]
 * file: "takl"
 > form: (mas-bench)
correct: (7 6 5 4 3 2 1)
elapsed: 0.266483 sec [scaled: 0.13426688425941394]
 * file: "takr"
 > form: (tak0 18 12 6)
correct: 7
elapsed: 0.311902 sec [scaled: 0.15715114935766905]
 * file: "boyer"
 > form: (boyer-test)
correct: NIL
elapsed: 0.243516 sec [scaled: 0.12269501089118422]
 * file: "browse"
 > form: (browse)
correct: NIL
elapsed: 0.332408 sec [scaled: 0.167483053188771]
 * file: "dderiv"
 > form: (dderiv-run)
correct: NIL
elapsed: 0.574339 sec [scaled: 0.2893794652516954]
 * file: "deriv"
 > form: (deriv-run)
correct: NIL
elapsed: 0.129027 sec [scaled: 0.06500997540308162]
 * file: "destru"
 > form: (destructive 600 50)
correct: NIL
elapsed: 0.253045 sec [scaled: 0.12749617696972565]
 * file: "div2"
 > form: (test-div2-iterative)
correct: NIL
elapsed: 0.228876 sec [scaled: 0.11531867849640548]
 > form: (test-div2-recursive)
correct: NIL
elapsed: 0.244767 sec [scaled: 0.12332532454049215]
 * file: "fft"
 > form: (fft-bench)
correct: NIL
elapsed: 0.248384 sec [scaled: 0.12514774218201635]
 * file: "fprint"
 > form: (fprint)
correct: T
elapsed: 0.462454 sec [scaled: 0.23300644954200833]
 * file: "fread"
 > form: (fread)
correct: T
elapsed: 0.254538 sec [scaled: 0.12824842179659754]
 * file: "frpoly"
 > form: (pexptsq (Z 1 1 0 (Y 1 1 0 (X 1 1 0 1))) 2)
correct: NIL
elapsed: 0.000167 sec [scaled: 0.00008414258947595954]
 > form: (pexptsq (Z 1 100000 0 (Y 1 100000 0 (X 1 100000 0 100000))) 2)
correct: NIL
elapsed: 0.000154 sec [scaled: 0.0000775925675407052]
 > form: (pexptsq (Z 1 1.0 0 (Y 1 1.0 0 (X 1 1.0 0 1.0))) 2)
correct: NIL
elapsed: 0.000169 sec [scaled: 0.00008515028515830635]
 > form: (pexptsq (Z 1 1 0 (Y 1 1 0 (X 1 1 0 1))) 5)
correct: NIL
elapsed: 0.001534 sec [scaled: 0.0007729025883600115]
 > form: (pexptsq (Z 1 100000 0 (Y 1 100000 0 (X 1 100000 0 100000))) 5)
correct: NIL
elapsed: 0.001746 sec [scaled: 0.0008797183306887746]
 > form: (pexptsq (Z 1 1.0 0 (Y 1 1.0 0 (X 1 1.0 0 1.0))) 5)
correct: NIL
elapsed: 0.00167 sec [scaled: 0.0008414258947595954]
 > form: (pexptsq (Z 1 1 0 (Y 1 1 0 (X 1 1 0 1))) 10)
correct: NIL
elapsed: 0.016853 sec [scaled: 0.008491347667295486]
 > form: (pexptsq (Z 1 100000 0 (Y 1 100000 0 (X 1 100000 0 100000))) 10)
correct: NIL
elapsed: 0.015508 sec [scaled: 0.007813672320917248]
 > form: (pexptsq (Z 1 1.0 0 (Y 1 1.0 0 (X 1 1.0 0 1.0))) 10)
correct: NIL
elapsed: 0.013789 sec [scaled: 0.0069475578819401555]
 > form: (pexptsq (Z 1 1 0 (Y 1 1 0 (X 1 1 0 1))) 15)
correct: NIL
elapsed: 0.097958 sec [scaled: 0.04935592682566494]
 > form: (pexptsq (Z 1 100000 0 (Y 1 100000 0 (X 1 100000 0 100000))) 15)
correct: NIL
elapsed: 0.049877 sec [scaled: 0.02513041877420619]
 > form: (pexptsq (Z 1 1.0 0 (Y 1 1.0 0 (X 1 1.0 0 1.0))) 15)
correct: NIL
elapsed: 0.037962 sec [scaled: 0.019127071746625007]
 * 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.225215 sec [scaled: 0.11347409154986962]
 * file: "stream"
 > form: (nth-prime 50)
correct: 229
elapsed: 0.030511 sec [scaled: 0.015372901482041925]
 > form: (nth-prime 100)
correct: 541
elapsed: 0.180286 sec [scaled: 0.09083671189378947]
 > form: (nth-prime 150)
correct: 863
elapsed: 0.222332 sec [scaled: 0.11202149822376668]
 * file: "tprint"
 > form: (tprint-test 100)
correct: T
elapsed: 0.442702 sec [scaled: 0.22305444698315113]
 * file: "traverse"
 > form: (init-traverse)
correct: NIL
elapsed: 0.036173 sec [scaled: 0.018225687958765772]
 > form: (run-traverse)
correct: NIL
elapsed: 0.162254 sec [scaled: 0.08175132762175054]
 * file: "triang"
 > form: (gogogo 22)
correct: NIL
elapsed: 0.970097 sec [scaled: 0.4887812791788019]
Real time: 8.306123 sec.
Run time: 8.223964 sec.
Space: 640298648 Bytes
GC: 340, GC time: 1.952621 sec.
 * :COMPILED: 2024:05:20 17:08:22
 * CLISP [2.49.93+ (2018-02-18) (built 3925184752) (memory 3925184846)]
compilation        0.30810 sec     0.15524 scaled
fac                0.21460 sec     0.10812 scaled
acker              0.16931 sec     0.08531 scaled
bfib               0.24279 sec     0.12233 scaled
ctak               0.35267 sec     0.17769 scaled
stak               0.34384 sec     0.17324 scaled
tak                0.29010 sec     0.14617 scaled
takl               0.26648 sec     0.13427 scaled
takr               0.31190 sec     0.15715 scaled
boyer              0.24352 sec     0.12270 scaled
browse             0.33241 sec     0.16748 scaled
dderiv             0.57434 sec     0.28938 scaled
deriv              0.12903 sec     0.06501 scaled
destru             0.25305 sec     0.12750 scaled
div2               0.47364 sec     0.23864 scaled
fft                0.24838 sec     0.12515 scaled
fprint             0.46245 sec     0.23301 scaled
fread              0.25454 sec     0.12825 scaled
frpoly             0.23739 sec     0.11961 scaled
puzzle             0.22521 sec     0.11347 scaled
stream             0.43313 sec     0.21823 scaled
tprint             0.44270 sec     0.22305 scaled
traverse           0.19843 sec     0.09998 scaled
triang             0.97010 sec     0.48878 scaled
total              7.97810 sec     4.01975 scaled
NIL
Bye.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build/benchmarks'
make: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build'
+ make -C build extracheck
make: Entering directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build'
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -M lispinit.mem -x "(saveinitmem \"image\" :executable t :norc t)"
  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.93+ (2018-02-18) <http://clisp.org/>
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.
;; Wrote the memory image into image (10,405,360 bytes)
Bytes permanently allocated:            167,456
Bytes currently in use:               2,977,800
Bytes available until next GC:        1,484,088
2977800 ;
1484088 ;
167456 ;
1 ;
105888 ;
4184
Bye.
./image -x "(setq zz 10) (saveinitmem \"image\")"
  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.93+ (2018-02-18) <http://clisp.org/>
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.
10
;; Wrote the memory image into image.mem (3,147,912 bytes)
Bytes permanently allocated:            167,456
Bytes currently in use:               2,977,696
Bytes available until next GC:        1,483,964
2977696 ;
1483964 ;
167456 ;
1 ;
27016 ;
4057
Bye.
./image -norc -M image.mem -x zz
  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.93+ (2018-02-18) <http://clisp.org/>
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.
10
Bye.
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -M lispinit.mem -x "(saveinitmem \"image\" :executable t :norc t :quiet t :init-function (lambda () (prin1 *args*) (exit)))" -- a 1
  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.93+ (2018-02-18) <http://clisp.org/>
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.
;; Wrote the memory image into image (10,406,416 bytes)
Bytes permanently allocated:            167,456
Bytes currently in use:               2,978,856
Bytes available until next GC:        1,484,616
2978856 ;
1484616 ;
167456 ;
1 ;
111152 ;
4304
Bye.
test "`./image b | tr -d '\r'`" = '("b")' || exit 1
test "`./image b 2 | tr -d '\r'`" = '("b" "2")' || exit 1
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -M lispinit.mem -x "(saveinitmem \"image\" :executable t :norc t :quiet t :init-function (function exit))"
  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.93+ (2018-02-18) <http://clisp.org/>
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.
;; Wrote the memory image into image (10,405,824 bytes)
Bytes permanently allocated:            167,456
Bytes currently in use:               2,978,264
Bytes available until next GC:        1,484,320
2978264 ;
1484320 ;
167456 ;
1 ;
110824 ;
4279
Bye.
./image
test -z "`./image`" || exit 1
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -M lispinit.mem -x '(saveinitmem "image" :executable t :norc t :quiet t :init-function (lambda () (setq *error-output* *standard-output*) (error "myerror")))'
  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.93+ (2018-02-18) <http://clisp.org/>
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.
;; Wrote the memory image into image (10,406,616 bytes)
Bytes permanently allocated:            167,456
Bytes currently in use:               2,979,056
Bytes available until next GC:        1,484,716
2979056 ;
1484716 ;
167456 ;
1 ;
111120 ;
4224
Bye.
output="`./image -on-error exit | tr -d '\r'`"; test "$output" = '*** - myerror' || exit 1
if ./image -on-error exit; then exit 1; fi
*** - myerror
./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -M lispinit.mem -x '(saveinitmem "image" :executable t :norc t :quiet t :init-function (lambda () (exit-on-error (setq *error-output* *standard-output*) (error "myerror"))))'
  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.93+ (2018-02-18) <http://clisp.org/>
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.
;; Wrote the memory image into image (10,408,544 bytes)
Bytes permanently allocated:            167,456
Bytes currently in use:               2,980,984
Bytes available until next GC:        1,485,680
2980984 ;
1485680 ;
167456 ;
1 ;
112664 ;
4149
Bye.
output="`./image | tr -d '\r'`"; test "$output" = '*** - myerror' || exit 1
if ./image; then exit 1; fi
*** - myerror
ls -l lisp.run lispinit.mem image image.mem
-rwxr-xr-x 1 mockbuild mock 10408544 May 20 17:08 image
-rw-r--r-- 1 mockbuild mock  3147912 May 20 17:08 image.mem
-rwxr-xr-x 1 mockbuild mock  7257296 May 20 17:06 lisp.run
-rw-r--r-- 1 mockbuild mock  3157632 May 20 17:06 lispinit.mem
rm -f image image.mem
make: Leaving directory '/builddir/build/BUILD/clisp-66924971790e4cbee3d58f36e530caa0ad568e5f/build'
+ RPM_EC=0
++ jobs -p
+ exit 0
Processing files: clisp-2.49.93-1.ocs23.x86_64
Executing(%license): /bin/sh -e /var/tmp/rpm-tmp.VONmnQ
+ umask 022
+ cd /builddir/build/BUILD
+ cd clisp-66924971790e4cbee3d58f36e530caa0ad568e5f
+ LICENSEDIR=/builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/licenses/clisp
+ export LC_ALL=C
+ LC_ALL=C
+ export LICENSEDIR
+ /usr/bin/mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/licenses/clisp
+ cp -pr COPYRIGHT /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/licenses/clisp
+ cp -pr GNU-GPL /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/licenses/clisp
+ RPM_EC=0
++ jobs -p
+ exit 0
Provides: bundled(gnulib) clisp = 2.49.93-1.ocs23 clisp(x86-64) = 2.49.93-1.ocs23 lib-clx.so()(64bit) lib-gdbm.so()(64bit) lib-pcre.so()(64bit) lib-rawsock.so()(64bit)
Requires(rpmlib): rpmlib(CompressedFileNames) <= 3.0.4-1 rpmlib(FileDigests) <= 4.6.0-1 rpmlib(PayloadFilesHavePrefix) <= 4.0-1
Requires: libX11.so.6()(64bit) libXau.so.6()(64bit) libXext.so.6()(64bit) libXpm.so.4()(64bit) libc.so.6()(64bit) libc.so.6(GLIBC_2.11)(64bit) libc.so.6(GLIBC_2.14)(64bit) libc.so.6(GLIBC_2.15)(64bit) libc.so.6(GLIBC_2.17)(64bit) libc.so.6(GLIBC_2.2.5)(64bit) libc.so.6(GLIBC_2.25)(64bit) libc.so.6(GLIBC_2.3)(64bit) libc.so.6(GLIBC_2.3.3)(64bit) libc.so.6(GLIBC_2.3.4)(64bit) libc.so.6(GLIBC_2.33)(64bit) libc.so.6(GLIBC_2.34)(64bit) libc.so.6(GLIBC_2.38)(64bit) libc.so.6(GLIBC_2.4)(64bit) libgdbm.so.6()(64bit) libm.so.6()(64bit) libm.so.6(GLIBC_2.2.5)(64bit) libm.so.6(GLIBC_2.23)(64bit) libpcre.so.1()(64bit) libreadline.so.8()(64bit) libsigsegv.so.2()(64bit) libtinfo.so.6()(64bit) libunistring.so.5()(64bit) rtld(GNU_HASH)
Processing files: clisp-devel-2.49.93-1.ocs23.x86_64
Executing(%doc): /bin/sh -e /var/tmp/rpm-tmp.azCcka
+ umask 022
+ cd /builddir/build/BUILD
+ cd clisp-66924971790e4cbee3d58f36e530caa0ad568e5f
+ DOCDIR=/builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/doc/clisp-devel
+ export LC_ALL=C
+ LC_ALL=C
+ export DOCDIR
+ /usr/bin/mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/doc/clisp-devel
+ cp -pr modules/clx/clx-manual /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64/usr/share/doc/clisp-devel
+ RPM_EC=0
++ jobs -p
+ exit 0
Provides: clisp-devel = 2.49.93-1.ocs23 clisp-devel(x86-64) = 2.49.93-1.ocs23 clisp-static = 2.49.93-1.ocs23
Requires(rpmlib): rpmlib(CompressedFileNames) <= 3.0.4-1 rpmlib(FileDigests) <= 4.6.0-1 rpmlib(PayloadFilesHavePrefix) <= 4.0-1
Requires: /usr/bin/sh
Processing files: clisp-debugsource-2.49.93-1.ocs23.x86_64
Provides: clisp-debugsource = 2.49.93-1.ocs23 clisp-debugsource(x86-64) = 2.49.93-1.ocs23
Requires(rpmlib): rpmlib(CompressedFileNames) <= 3.0.4-1 rpmlib(FileDigests) <= 4.6.0-1 rpmlib(PayloadFilesHavePrefix) <= 4.0-1
Processing files: clisp-debuginfo-2.49.93-1.ocs23.x86_64
Provides: clisp-debuginfo = 2.49.93-1.ocs23 clisp-debuginfo(x86-64) = 2.49.93-1.ocs23 debuginfo(build-id) = 0abb861a0e2d61a82628faef0890240db7256c5d debuginfo(build-id) = 25fa3cbdd4a8ffb1fa62915ee408edfb33cd0627 debuginfo(build-id) = 5c75328486d538230a9ac9f92f06ff993a8669e5 debuginfo(build-id) = 606292f325cfbf6389793051240ce0d3d1cb6157 debuginfo(build-id) = afd64ab1e7ea74ff463b66f060313c57226c04ec debuginfo(build-id) = b01ef43ca44e884d9fefa798d948c98ad68f056d debuginfo(build-id) = ef76d2903edf8faad042a91c388e5616898e3720 lib-clx.so-2.49.93-1.ocs23.x86_64.debug()(64bit) lib-gdbm.so-2.49.93-1.ocs23.x86_64.debug()(64bit) lib-pcre.so-2.49.93-1.ocs23.x86_64.debug()(64bit) lib-rawsock.so-2.49.93-1.ocs23.x86_64.debug()(64bit)
Requires(rpmlib): rpmlib(CompressedFileNames) <= 3.0.4-1 rpmlib(FileDigests) <= 4.6.0-1 rpmlib(PayloadFilesHavePrefix) <= 4.0-1
Recommends: clisp-debugsource(x86-64) = 2.49.93-1.ocs23
Checking for unpackaged file(s): /usr/lib/rpm/check-files /builddir/build/BUILDROOT/clisp-2.49.93-1.ocs23.x86_64
Wrote: /builddir/build/RPMS/clisp-devel-2.49.93-1.ocs23.x86_64.rpm
Wrote: /builddir/build/RPMS/clisp-debugsource-2.49.93-1.ocs23.x86_64.rpm
Wrote: /builddir/build/RPMS/clisp-debuginfo-2.49.93-1.ocs23.x86_64.rpm
Wrote: /builddir/build/RPMS/clisp-2.49.93-1.ocs23.x86_64.rpm
Child return code was: 0