Mock Version: 5.5
Mock Version: 5.5
Mock Version: 5.5
ENTER ['do_with_status'](['bash', '--login', '-c', '/usr/bin/rpmbuild -bs --noclean --target riscv64 --nodeps /builddir/build/SPECS/clisp.spec'], chrootPath='/var/lib/mock/f41-build-847125-163727/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 0x3f73cd8140>timeout=604800uid=989gid=135user='mockbuild'nspawn_args=['--capability=cap_ipc_lock', '--bind=/tmp/mock-resolv.15gq1fe0:/etc/resolv.conf', '--bind=/dev/btrfs-control', '--bind=/dev/mapper/control', '--bind=/dev/fuse', '--bind=/dev/loop-control', '--bind=/dev/loop0', '--bind=/dev/loop1', '--bind=/dev/loop2', '--bind=/dev/loop3', '--bind=/dev/loop4', '--bind=/dev/loop5', '--bind=/dev/loop6', '--bind=/dev/loop7', '--bind=/dev/loop8', '--bind=/dev/loop9', '--bind=/dev/loop10', '--bind=/dev/loop11']unshare_net=TrueprintOutput=False)
Using nspawn with args ['--capability=cap_ipc_lock', '--bind=/tmp/mock-resolv.15gq1fe0:/etc/resolv.conf', '--bind=/dev/btrfs-control', '--bind=/dev/mapper/control', '--bind=/dev/fuse', '--bind=/dev/loop-control', '--bind=/dev/loop0', '--bind=/dev/loop1', '--bind=/dev/loop2', '--bind=/dev/loop3', '--bind=/dev/loop4', '--bind=/dev/loop5', '--bind=/dev/loop6', '--bind=/dev/loop7', '--bind=/dev/loop8', '--bind=/dev/loop9', '--bind=/dev/loop10', '--bind=/dev/loop11']
Executing command: ['/usr/bin/systemd-nspawn', '-q', '-M', '92bcec1ade104a069234ba00919b63a3', '-D', '/var/lib/mock/f41-build-847125-163727/root', '-a', '-u', 'mockbuild', '--capability=cap_ipc_lock', '--bind=/tmp/mock-resolv.15gq1fe0:/etc/resolv.conf', '--bind=/dev/btrfs-control', '--bind=/dev/mapper/control', '--bind=/dev/fuse', '--bind=/dev/loop-control', '--bind=/dev/loop0', '--bind=/dev/loop1', '--bind=/dev/loop2', '--bind=/dev/loop3', '--bind=/dev/loop4', '--bind=/dev/loop5', '--bind=/dev/loop6', '--bind=/dev/loop7', '--bind=/dev/loop8', '--bind=/dev/loop9', '--bind=/dev/loop10', '--bind=/dev/loop11', '--console=pipe', '--setenv=TERM=vt100', '--setenv=SHELL=/bin/bash', '--setenv=HOME=/builddir', '--setenv=HOSTNAME=mock', '--setenv=PATH=/usr/bin:/bin:/usr/sbin:/sbin', '--setenv=PROMPT_COMMAND=printf "\\033]0;<mock-chroot>\\007"', '--setenv=PS1=<mock-chroot> \\s-\\v\\$ ', '--setenv=LANG=C.UTF-8', '--resolv-conf=off', 'bash', '--login', '-c', '/usr/bin/rpmbuild -bs --noclean --target riscv64 --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', 'SYSTEMD_NSPAWN_TMPFS_TMP': '0', 'SYSTEMD_SECCOMP': '0'} and shell False
Building target platforms: riscv64
Building for target riscv64
setting SOURCE_DATE_EPOCH=1725321600
Wrote: /builddir/build/SRPMS/clisp-2.49.93-39.20240901gitc735dd5.fc41.src.rpm
Child return code was: 0
ENTER ['do_with_status'](['bash', '--login', '-c', '/usr/bin/rpmbuild -bb --noclean --target riscv64 --nodeps /builddir/build/SPECS/clisp.spec'], chrootPath='/var/lib/mock/f41-build-847125-163727/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 0x3f73cd8140>timeout=604800uid=989gid=135user='mockbuild'nspawn_args=['--capability=cap_ipc_lock', '--bind=/tmp/mock-resolv.15gq1fe0:/etc/resolv.conf', '--bind=/dev/btrfs-control', '--bind=/dev/mapper/control', '--bind=/dev/fuse', '--bind=/dev/loop-control', '--bind=/dev/loop0', '--bind=/dev/loop1', '--bind=/dev/loop2', '--bind=/dev/loop3', '--bind=/dev/loop4', '--bind=/dev/loop5', '--bind=/dev/loop6', '--bind=/dev/loop7', '--bind=/dev/loop8', '--bind=/dev/loop9', '--bind=/dev/loop10', '--bind=/dev/loop11']unshare_net=TrueprintOutput=False)
Using nspawn with args ['--capability=cap_ipc_lock', '--bind=/tmp/mock-resolv.15gq1fe0:/etc/resolv.conf', '--bind=/dev/btrfs-control', '--bind=/dev/mapper/control', '--bind=/dev/fuse', '--bind=/dev/loop-control', '--bind=/dev/loop0', '--bind=/dev/loop1', '--bind=/dev/loop2', '--bind=/dev/loop3', '--bind=/dev/loop4', '--bind=/dev/loop5', '--bind=/dev/loop6', '--bind=/dev/loop7', '--bind=/dev/loop8', '--bind=/dev/loop9', '--bind=/dev/loop10', '--bind=/dev/loop11']
Executing command: ['/usr/bin/systemd-nspawn', '-q', '-M', '2c767f5a8f804f218718eb1f4703fde7', '-D', '/var/lib/mock/f41-build-847125-163727/root', '-a', '-u', 'mockbuild', '--capability=cap_ipc_lock', '--bind=/tmp/mock-resolv.15gq1fe0:/etc/resolv.conf', '--bind=/dev/btrfs-control', '--bind=/dev/mapper/control', '--bind=/dev/fuse', '--bind=/dev/loop-control', '--bind=/dev/loop0', '--bind=/dev/loop1', '--bind=/dev/loop2', '--bind=/dev/loop3', '--bind=/dev/loop4', '--bind=/dev/loop5', '--bind=/dev/loop6', '--bind=/dev/loop7', '--bind=/dev/loop8', '--bind=/dev/loop9', '--bind=/dev/loop10', '--bind=/dev/loop11', '--console=pipe', '--setenv=TERM=vt100', '--setenv=SHELL=/bin/bash', '--setenv=HOME=/builddir', '--setenv=HOSTNAME=mock', '--setenv=PATH=/usr/bin:/bin:/usr/sbin:/sbin', '--setenv=PROMPT_COMMAND=printf "\\033]0;<mock-chroot>\\007"', '--setenv=PS1=<mock-chroot> \\s-\\v\\$ ', '--setenv=LANG=C.UTF-8', '--resolv-conf=off', 'bash', '--login', '-c', '/usr/bin/rpmbuild -bb --noclean --target riscv64 --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', 'SYSTEMD_NSPAWN_TMPFS_TMP': '0', 'SYSTEMD_SECCOMP': '0'} and shell False
Building target platforms: riscv64
Building for target riscv64
setting SOURCE_DATE_EPOCH=1725321600
Executing(%mkbuilddir): /bin/sh -e /var/tmp/rpm-tmp.e7kqMj
+ umask 022
+ cd /builddir/build/BUILD/clisp-2.49.93-build
+ test -d /builddir/build/BUILD/clisp-2.49.93-build
+ /usr/bin/chmod -Rf a+rX,u+w,g-w,o-w /builddir/build/BUILD/clisp-2.49.93-build
+ /usr/bin/rm -rf /builddir/build/BUILD/clisp-2.49.93-build
+ /usr/bin/mkdir -p /builddir/build/BUILD/clisp-2.49.93-build
+ /usr/bin/mkdir -p /builddir/build/BUILD/clisp-2.49.93-build/SPECPARTS
+ RPM_EC=0
++ jobs -p
+ exit 0
Executing(%prep): /bin/sh -e /var/tmp/rpm-tmp.lhrRIo
+ umask 022
+ cd /builddir/build/BUILD/clisp-2.49.93-build
+ cd /builddir/build/BUILD/clisp-2.49.93-build
+ rm -rf clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae
+ /usr/lib/rpm/rpmuncompress -x /builddir/build/SOURCES/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae.tar.bz2
+ STATUS=0
+ '[' 0 -ne 0 ']'
+ cd clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae
+ /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 -p0 -s --fuzz=0 --no-backup-if-mismatch -f
+ /usr/lib/rpm/rpmuncompress /builddir/build/SOURCES/clisp-format.patch
+ /usr/bin/patch -p0 -s --fuzz=0 --no-backup-if-mismatch -f
+ /usr/lib/rpm/rpmuncompress /builddir/build/SOURCES/clisp-register-volatile.patch
+ /usr/bin/patch -p0 -s --fuzz=0 --no-backup-if-mismatch -f
+ /usr/lib/rpm/rpmuncompress /builddir/build/SOURCES/clisp-pts-access.patch
+ /usr/bin/patch -p0 -s --fuzz=0 --no-backup-if-mismatch -f
+ /usr/lib/rpm/rpmuncompress /builddir/build/SOURCES/clisp-c99.patch
+ /usr/bin/patch -p0 -s --fuzz=0 --no-backup-if-mismatch -f
+ /usr/lib/rpm/rpmuncompress /builddir/build/SOURCES/clisp-bdb-mismatched-pointer.patch
+ /usr/bin/patch -p0 -s --fuzz=0 --no-backup-if-mismatch -f
+ /usr/lib/rpm/rpmuncompress /builddir/build/SOURCES/clisp-new-clx.patch
+ /usr/bin/patch -p0 -s --fuzz=0 --no-backup-if-mismatch -f
+ /usr/lib/rpm/rpmuncompress /builddir/build/SOURCES/clisp-siginterrupt.patch
+ /usr/bin/patch -p0 -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.vFxOZl
+ umask 022
+ cd /builddir/build/BUILD/clisp-2.49.93-build
+ CFLAGS='-O2  -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer '
+ export CFLAGS
+ CXXFLAGS='-O2  -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer '
+ export CXXFLAGS
+ FFLAGS='-O2  -fexceptions -g -grecord-gcc-switches -pipe -Wall -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -I/usr/lib64/gfortran/modules '
+ export FFLAGS
+ FCFLAGS='-O2  -fexceptions -g -grecord-gcc-switches -pipe -Wall -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -I/usr/lib64/gfortran/modules '
+ export FCFLAGS
+ VALAFLAGS=-g
+ export VALAFLAGS
+ RUSTFLAGS='-Copt-level=3 -Cdebuginfo=2 -Ccodegen-units=1 -Cstrip=none -Cforce-frame-pointers=yes -Clink-arg=-specs=/usr/lib/rpm/redhat/redhat-package-notes --cap-lints=warn'
+ export RUSTFLAGS
+ LDFLAGS='-Wl,-z,relro -Wl,--as-needed   -Wl,-z,now -specs=/usr/lib/rpm/redhat/redhat-hardened-ld -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -Wl,--build-id=sha1 -specs=/usr/lib/rpm/redhat/redhat-package-notes '
+ export LDFLAGS
+ LT_SYS_LIBRARY_PATH=/usr/lib64:
+ export LT_SYS_LIBRARY_PATH
+ CC=gcc
+ export CC
+ CXX=g++
+ export CXX
+ cd clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae
+ ./configure --prefix=/usr --libdir=/usr/lib64 --mandir=/usr/share/man --infodir=/usr/share/info --docdir=/usr/share/doc/clisp --fsstnd=redhat --with-module=asdf --with-module=berkeley-db --with-module=bindings/glibc --with-module=clx/new-clx --with-module=dbus --with-module=fastcgi --with-module=gdbm --with-module=gtk2 --with-module=libsvm --with-module=pari --with-module=postgresql --with-module=rawsock --with-module=zlib --with-libreadline-prefix=/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline --with-ffcall --config build CPPFLAGS=-I/usr/include/libsvm 'CFLAGS=-O2  -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer  -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 --fsstnd=redhat --with-module=asdf --with-module=berkeley-db --with-module=bindings/glibc --with-module=clx/new-clx --with-module=dbus --with-module=fastcgi --with-module=gdbm --with-module=gtk2 --with-module=libsvm --with-module=pari --with-module=postgresql --with-module=rawsock --with-module=zlib --with-libreadline-prefix=/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline --with-ffcall --config build CPPFLAGS=-I/usr/include/libsvm CFLAGS=-O2  -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer  -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 sleep supports fractional seconds... yes
checking filesystem timestamp resolution... 0.01
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
checking xargs -n works... yes
configure: ** check for host type
checking build system type... riscv64-unknown-linux-gnu
checking host system type... riscv64-unknown-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 byteswap.h... yes
checking for xlocale.h... no
checking for uchar.h... yes
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 crtdefs.h... no
checking for wctype.h... yes
checking for langinfo.h... yes
checking for math.h... yes
checking for sys/mman.h... yes
checking for pthread.h... yes
checking for malloc.h... yes
checking for sys/select.h... yes
checking for stdbool.h... yes
checking for stdckdint.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 vfork.h... no
checking whether it is safe to define __EXTENSIONS__... yes
checking whether _XOPEN_SOURCE should be defined... no
checking for egrep -e... /usr/bin/grep -E
checking for Minix Amsterdam compiler... no
checking for ar... ar
checking for ranlib... ranlib
checking for gcc option to support large files... none needed
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 grep that handles long lines and -e... /usr/bin/grep
checking for egrep... /usr/bin/grep -E
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 riscv64-unknown-linux-gnu file names to riscv64-unknown-linux-gnu format... func_convert_file_noop
checking how to convert riscv64-unknown-linux-gnu file names to toolchain format... func_convert_file_noop
checking for /usr/bin/ld option to reload object files... -r
checking for file... file
checking for objdump... objdump
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... no
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) 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 gcc option to support large files... (cached) none needed
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 mbrtowc... yes
checking for mbsinit... 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 getdtablesize... yes
checking for gettimeofday... yes
checking for isblank... yes
checking for iswcntrl... yes
checking for readlink... yes
checking for lstat... yes
checking for mprotect... yes
checking for mknod... yes
checking for mkstemp... yes
checking for iswctype... yes
checking for setenv... yes
checking for __xpg_strerror_r... yes
checking for snprintf... yes
checking for strptime... yes
checking for localtime_r... yes
checking for mquery... no
checking for pstat_getprocvm... no
checking for wcrtomb... 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 for gcc options needed to detect all undeclared functions... none needed
checking for uselocale... yes
checking whether uselocale works... yes
checking whether char8_t is correctly defined... yes
checking whether char16_t is correctly defined... yes
checking whether char32_t is correctly defined... yes
checking for bit size of wchar_t... 32
checking for mbstate_t... 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 whether mbrtowc handles incomplete characters... yes
checking whether mbrtowc works as well as mbtowc... yes
checking whether mbrtoc32 is declared... yes
checking for mbrtoc32... yes
checking whether mbrtoc32 works as well as mbrtowc... yes
checking whether c32rtomb is declared... yes
checking for c32rtomb... yes
checking whether c32rtomb works as well as wcrtomb... 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 whether ctype.h defines __header_inline... no
checking for working fcntl.h... yes
checking for pid_t... yes
checking for mode_t... yes
checking whether stdin defaults to large file offsets... yes
checking for off64_t... 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... (cached) 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... riscv64-lp64d
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... ../src/configure: line 26703: cd: /lib64/lp64d/../lib64/lp64d/: No such file or directory
../src/configure: line 26703: cd: /usr/lib64/lp64d/../lib64/lp64d/: No such file or directory
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 WORD_BIT, BOOL_WIDTH etc.... yes
checking whether limits.h has SSIZE_MAX... 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 iswcntrl works... yes
checking for towlower... yes
checking for wctype_t... yes
checking for wctrans_t... yes
checking whether wctype supports the "blank" and "punct" character classes... 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 good max_align_t... yes
checking whether NULL can be used in arbitrary expressions... yes
checking for unreachable... no
checking whether nullptr_t needs <stddef.h>... no
checking for clean definition of __STDC_VERSION_STDDEF_H__... 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 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 for O_CLOEXEC... yes
checking for promoted mode_t type... mode_t
checking for pthread_t... yes
checking for pthread_spinlock_t... yes
checking for pthread_spin_init... yes
checking for glibc-compatible sys/cdefs.h... yes
checking for sched.h... yes
checking for struct sched_param... yes
checking whether <sys/select.h> is self-contained... yes
checking for library containing setsockopt... none needed
checking whether setenv is declared... yes
checking whether _putenv is declared... no
checking for search.h... yes
checking for tsearch... yes
checking for sigset_t... yes
checking for uid_t... yes
checking for gid_t... yes
checking for volatile sig_atomic_t... yes
checking for sighandler_t... yes
checking whether fcloseall is declared... yes
checking whether getw is declared... yes
checking whether putw 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 MB_CUR_MAX is correct... yes
checking whether strerror(0) succeeds... yes
checking for strerror_r... 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 strerror_r returns char *... yes
checking whether strnlen is declared... yes
checking for struct tm.tm_gmtoff... yes
checking for struct tm.tm_zone... 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 for unistring/woe32dll.h... yes
checking whether execvpe is declared... yes
checking whether unsetenv is declared... yes
checking whether wcsdup is declared... yes
checking for C compiler option to allow warnings... -Wno-error
checking for alignas and alignof... yes, <stdalign.h> macros
checking for alloca as a compiler built-in... yes
checking for static_assert... yes, an <assert.h> macro
checking whether btowc(0) is correct... yes
checking whether btowc(EOF) is correct... yes
checking whether btowc is consistent with mbrtowc in the C locale... no
checking for __builtin_expect... yes
checking for working bswap_16, bswap_32, bswap_64... yes
checking for nl_langinfo... yes
checking for strtod_l... yes
checking for library containing clock_gettime... none required
checking for clock_getres... yes
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 for __fpurge... yes
checking whether fpurge is declared... no
checking for __freading... yes
checking whether free is known to preserve errno... yes
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 for getrandom... 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 whether the compiler generally respects inline... yes
checking for ioctl... yes
checking for ioctl with POSIX signature... no
checking for iswblank... yes
checking whether iswblank is declared... yes
checking whether iswdigit is ISO C compliant... yes
checking whether iswpunct is consistent with ispunct... yes
checking whether iswxdigit is ISO C compliant... yes
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 whether localeconv works... yes
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 SEEK_DATA works but is incompatible with GNU... no
checking whether mbrtoc32 works on empty input... yes
checking whether the C locale is free of encoding errors... no
checking whether mbrtoc32 works in an UTF-8 locale... 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 mbsrtowcs works... yes
checking whether the C locale is free of encoding errors... (cached) no
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 whether <netinet/in.h> is self-contained... yes
checking for nl_langinfo... (cached) yes
checking whether YESEXPR works... yes
checking whether open recognizes a trailing slash... yes
checking for PTHREAD_CREATE_DETACHED... yes
checking for PTHREAD_MUTEX_RECURSIVE... yes
checking for PTHREAD_MUTEX_ROBUST... yes
checking for PTHREAD_PROCESS_SHARED... yes
checking whether pthread_once works... 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... 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 bool, true, false... no
checking for strcasecmp... yes
checking for strncasecmp... yes
checking whether strncasecmp is declared... yes
checking for catgets... yes
checking for working strnlen... yes
checking whether strtod obeys C99... yes
checking for strverscmp... yes
checking whether strverscmp works... yes
checking whether localtime_r is declared... yes
checking whether localtime_r is compatible with its POSIX signature... yes
checking for uname... yes
checking for unsetenv... yes
checking for unsetenv() return type... int
checking whether unsetenv obeys POSIX... yes
checking for variable-length arrays... yes
checking whether wcrtomb works in the C locale... yes
checking whether wcrtomb return value is correct... yes
checking for wmemchr... yes
checking for wmempcpy... 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 how to link with libffcall... /usr/lib64/libffcall.so
checking for avcall.h... yes
checking for callback.h... yes
checking for library containing ffcall_get_version... none required
checking whether libffcall is installed... yes
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) yes
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... 0x0000000038000000
checking for the shared library address range... 0x0000003F9D000000
checking for the stack address range... 0x0000003FFD000000
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)
checking for highest bit number which can be included in mmaped addresses... 37
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... yes
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:        yes (user requested: yes)
  readline:   yes (user requested: default)
  libsigsegv: yes
./makemake --with-dynamic-ffi  --prefix=/usr --libdir=/usr/lib64 --mandir=/usr/share/man --infodir=/usr/share/info --docdir=/usr/share/doc/clisp --fsstnd=redhat --with-module=asdf --with-module=berkeley-db --with-module=bindings/glibc --with-module=clx/new-clx --with-module=dbus --with-module=fastcgi --with-module=gdbm --with-module=gtk2 --with-module=libsvm --with-module=pari --with-module=postgresql --with-module=rawsock --with-module=zlib --with-libreadline-prefix=/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC " top_srcdir="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src"
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib'
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
  -e 's|@''HAVE_ALLOCA_H''@|1|g' \
  ../../src/gllib/alloca.in.h > alloca.h-t
mv alloca.h-t alloca.h
/usr/bin/mkdir -p 'arpa'
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -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
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -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
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -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
/usr/bin/mkdir -p 'malloc'
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
  -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'
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -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
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -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_IMAXABS''@/0/g' \
      -e 's/@''REPLACE_IMAXDIV''@/0/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
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -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
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -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
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -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_UNSAFE''@/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
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -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_GETPAYLOAD''@/0/g' \
      -e 's/@''GNULIB_GETPAYLOADF''@/0/g' \
      -e 's/@''GNULIB_GETPAYLOADL''@/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 > math.h-t1
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_LDEXP''@/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_SETPAYLOAD''@/0/g' \
      -e 's/@''GNULIB_SETPAYLOADF''@/0/g' \
      -e 's/@''GNULIB_SETPAYLOADL''@/0/g' \
      -e 's/@''GNULIB_SETPAYLOADSIG''@/0/g' \
      -e 's/@''GNULIB_SETPAYLOADSIGF''@/0/g' \
      -e 's/@''GNULIB_SETPAYLOADSIGL''@/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_TOTALORDER''@/0/g' \
      -e 's/@''GNULIB_TOTALORDERF''@/0/g' \
      -e 's/@''GNULIB_TOTALORDERL''@/0/g' \
      -e 's/@''GNULIB_TOTALORDERMAG''@/0/g' \
      -e 's/@''GNULIB_TOTALORDERMAGF''@/0/g' \
      -e 's/@''GNULIB_TOTALORDERMAGL''@/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' \
      < math.h-t1 > math.h-t2
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_GETPAYLOAD''@|1|g' \
      -e 's|@''HAVE_GETPAYLOADF''@|1|g' \
      -e 's|@''HAVE_GETPAYLOADL''@|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_SETPAYLOAD''@|1|g' \
      -e 's|@''HAVE_SETPAYLOADF''@|1|g' \
      -e 's|@''HAVE_SETPAYLOADL''@|1|g' \
      -e 's|@''HAVE_SETPAYLOADSIG''@|1|g' \
      -e 's|@''HAVE_SETPAYLOADSIGF''@|1|g' \
      -e 's|@''HAVE_SETPAYLOADSIGL''@|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_TOTALORDER''@|1|g' \
      -e 's|@''HAVE_TOTALORDERF''@|1|g' \
      -e 's|@''HAVE_TOTALORDERL''@|1|g' \
      -e 's|@''HAVE_TOTALORDERMAG''@|1|g' \
      -e 's|@''HAVE_TOTALORDERMAGF''@|1|g' \
      -e 's|@''HAVE_TOTALORDERMAGL''@|1|g' \
      < math.h-t2 > math.h-t3
sed \
      -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' \
      < math.h-t3 > math.h-t4
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_GETPAYLOAD''@|0|g' \
      -e 's|@''REPLACE_GETPAYLOADF''@|0|g' \
      -e 's|@''REPLACE_GETPAYLOADL''@|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' \
      < math.h-t4 > math.h-t5
sed \
      -e 's|@''REPLACE_LDEXP''@|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_TOTALORDER''@|0|g' \
      -e 's|@''REPLACE_TOTALORDERF''@|0|g' \
      -e 's|@''REPLACE_TOTALORDERL''@|0|g' \
      -e 's|@''REPLACE_TOTALORDERMAG''@|0|g' \
      -e 's|@''REPLACE_TOTALORDERMAGF''@|0|g' \
      -e 's|@''REPLACE_TOTALORDERMAGL''@|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-t5 > math.h-t6
rm -f math.h-t1 math.h-t2 math.h-t3 math.h-t4 math.h-t5
mv math.h-t6 math.h
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -e 's|@''GUARD_PREFIX''@|GL|g' \
      -e 's|@''HAVE_PTHREAD_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_PTHREAD_H''@|<pthread.h>|g' \
      -e 's/@''GNULIB_PTHREAD_THREAD''@/0/g' \
      -e 's/@''GNULIB_PTHREAD_ONCE''@/1/g' \
      -e 's/@''GNULIB_PTHREAD_MUTEX''@/0/g' \
      -e 's/@''GNULIB_PTHREAD_RWLOCK''@/0/g' \
      -e 's/@''GNULIB_PTHREAD_COND''@/0/g' \
      -e 's/@''GNULIB_PTHREAD_TSS''@/0/g' \
      -e 's/@''GNULIB_PTHREAD_SPIN''@/0/g' \
      -e 's/@''GNULIB_PTHREAD_MUTEX_TIMEDLOCK''@/0/g' \
      -e 's|@''HAVE_PTHREAD_T''@|1|g' \
      -e 's|@''HAVE_PTHREAD_SPINLOCK_T''@|1|g' \
      -e 's|@''HAVE_PTHREAD_CREATE_DETACHED''@|1|g' \
      -e 's|@''HAVE_PTHREAD_MUTEX_RECURSIVE''@|1|g' \
      -e 's|@''HAVE_PTHREAD_MUTEX_ROBUST''@|1|g' \
      -e 's|@''HAVE_PTHREAD_PROCESS_SHARED''@|1|g' \
      -e 's|@''HAVE_PTHREAD_CREATE''@|1|g' \
      -e 's|@''HAVE_PTHREAD_ATTR_INIT''@|1|g' \
      -e 's|@''HAVE_PTHREAD_ATTR_GETDETACHSTATE''@|1|g' \
      -e 's|@''HAVE_PTHREAD_ATTR_SETDETACHSTATE''@|1|g' \
      -e 's|@''HAVE_PTHREAD_ATTR_DESTROY''@|1|g' \
      -e 's|@''HAVE_PTHREAD_SELF''@|1|g' \
      -e 's|@''HAVE_PTHREAD_EQUAL''@|1|g' \
      -e 's|@''HAVE_PTHREAD_DETACH''@|1|g' \
      -e 's|@''HAVE_PTHREAD_JOIN''@|1|g' \
      -e 's|@''HAVE_PTHREAD_EXIT''@|1|g' \
      < ../../src/gllib/pthread.in.h > pthread.h-t1
sed \
      -e 's|@''HAVE_PTHREAD_ONCE''@|1|g' \
      -e 's|@''HAVE_PTHREAD_MUTEX_INIT''@|1|g' \
      -e 's|@''HAVE_PTHREAD_MUTEXATTR_INIT''@|1|g' \
      -e 's|@''HAVE_PTHREAD_MUTEXATTR_GETTYPE''@|1|g' \
      -e 's|@''HAVE_PTHREAD_MUTEXATTR_SETTYPE''@|1|g' \
      -e 's|@''HAVE_PTHREAD_MUTEXATTR_GETROBUST''@|1|g' \
      -e 's|@''HAVE_PTHREAD_MUTEXATTR_SETROBUST''@|1|g' \
      -e 's|@''HAVE_PTHREAD_MUTEXATTR_DESTROY''@|1|g' \
      -e 's|@''HAVE_PTHREAD_MUTEX_LOCK''@|1|g' \
      -e 's|@''HAVE_PTHREAD_MUTEX_TRYLOCK''@|1|g' \
      -e 's|@''HAVE_PTHREAD_MUTEX_TIMEDLOCK''@|1|g' \
      -e 's|@''HAVE_PTHREAD_MUTEX_UNLOCK''@|1|g' \
      -e 's|@''HAVE_PTHREAD_MUTEX_DESTROY''@|1|g' \
      -e 's|@''HAVE_PTHREAD_RWLOCK_INIT''@|1|g' \
      -e 's|@''HAVE_PTHREAD_RWLOCKATTR_INIT''@|1|g' \
      -e 's|@''HAVE_PTHREAD_RWLOCKATTR_DESTROY''@|1|g' \
      -e 's|@''HAVE_PTHREAD_RWLOCK_RDLOCK''@|1|g' \
      -e 's|@''HAVE_PTHREAD_RWLOCK_WRLOCK''@|1|g' \
      -e 's|@''HAVE_PTHREAD_RWLOCK_TRYRDLOCK''@|1|g' \
      -e 's|@''HAVE_PTHREAD_RWLOCK_TRYWRLOCK''@|1|g' \
      -e 's|@''HAVE_PTHREAD_RWLOCK_TIMEDRDLOCK''@|1|g' \
      -e 's|@''HAVE_PTHREAD_RWLOCK_TIMEDWRLOCK''@|1|g' \
      -e 's|@''HAVE_PTHREAD_RWLOCK_UNLOCK''@|1|g' \
      -e 's|@''HAVE_PTHREAD_RWLOCK_DESTROY''@|1|g' \
      -e 's|@''HAVE_PTHREAD_COND_INIT''@|1|g' \
      -e 's|@''HAVE_PTHREAD_CONDATTR_INIT''@|1|g' \
      -e 's|@''HAVE_PTHREAD_CONDATTR_DESTROY''@|1|g' \
      -e 's|@''HAVE_PTHREAD_COND_WAIT''@|1|g' \
      -e 's|@''HAVE_PTHREAD_COND_TIMEDWAIT''@|1|g' \
      -e 's|@''HAVE_PTHREAD_COND_SIGNAL''@|1|g' \
      -e 's|@''HAVE_PTHREAD_COND_BROADCAST''@|1|g' \
      -e 's|@''HAVE_PTHREAD_COND_DESTROY''@|1|g' \
      -e 's|@''HAVE_PTHREAD_KEY_CREATE''@|1|g' \
      -e 's|@''HAVE_PTHREAD_SETSPECIFIC''@|1|g' \
      -e 's|@''HAVE_PTHREAD_GETSPECIFIC''@|1|g' \
      -e 's|@''HAVE_PTHREAD_KEY_DELETE''@|1|g' \
      -e 's|@''HAVE_PTHREAD_SPIN_INIT''@|1|g' \
      -e 's|@''HAVE_PTHREAD_SPIN_LOCK''@|1|g' \
      -e 's|@''HAVE_PTHREAD_SPIN_TRYLOCK''@|1|g' \
      -e 's|@''HAVE_PTHREAD_SPIN_UNLOCK''@|1|g' \
      -e 's|@''HAVE_PTHREAD_SPIN_DESTROY''@|1|g' \
      < pthread.h-t1 > pthread.h-t2
sed \
      -e 's|@''REPLACE_PTHREAD_CREATE''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_ATTR_INIT''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_ATTR_GETDETACHSTATE''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_ATTR_SETDETACHSTATE''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_ATTR_DESTROY''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_SELF''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_EQUAL''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_DETACH''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_JOIN''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_EXIT''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_ONCE''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_MUTEX_INIT''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_MUTEXATTR_INIT''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_MUTEXATTR_GETTYPE''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_MUTEXATTR_SETTYPE''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_MUTEXATTR_GETROBUST''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_MUTEXATTR_SETROBUST''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_MUTEXATTR_DESTROY''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_MUTEX_LOCK''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_MUTEX_TRYLOCK''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_MUTEX_TIMEDLOCK''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_MUTEX_UNLOCK''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_MUTEX_DESTROY''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_RWLOCK_INIT''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_RWLOCKATTR_INIT''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_RWLOCKATTR_DESTROY''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_RWLOCK_RDLOCK''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_RWLOCK_WRLOCK''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_RWLOCK_TRYRDLOCK''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_RWLOCK_TRYWRLOCK''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_RWLOCK_TIMEDRDLOCK''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_RWLOCK_TIMEDWRLOCK''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_RWLOCK_UNLOCK''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_RWLOCK_DESTROY''@|0|g' \
      < pthread.h-t2 > pthread.h-t3
sed \
      -e 's|@''REPLACE_PTHREAD_COND_INIT''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_CONDATTR_INIT''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_CONDATTR_DESTROY''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_COND_WAIT''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_COND_TIMEDWAIT''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_COND_SIGNAL''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_COND_BROADCAST''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_COND_DESTROY''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_KEY_CREATE''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_SETSPECIFIC''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_GETSPECIFIC''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_KEY_DELETE''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_SPIN_INIT''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_SPIN_LOCK''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_SPIN_TRYLOCK''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_SPIN_UNLOCK''@|0|g' \
      -e 's|@''REPLACE_PTHREAD_SPIN_DESTROY''@|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' \
      < pthread.h-t3 > pthread.h-t4
rm -f pthread.h-t1 pthread.h-t2 pthread.h-t3
mv pthread.h-t4 pthread.h
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -e 's|@''GUARD_PREFIX''@|GL|g' \
      -e 's|@''HAVE_SCHED_H''@|1|g' \
      -e 's|@''HAVE_SYS_CDEFS_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_SCHED_H''@|<sched.h>|g' \
      -e 's|@''HAVE_STRUCT_SCHED_PARAM''@|1|g' \
      -e 's/@''GNULIB_SCHED_YIELD''@/0/g' \
      -e 's|@''HAVE_SCHED_YIELD''@|1|g' \
      -e 's|@''REPLACE_SCHED_YIELD''@|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/sched.in.h > sched.h-t
mv sched.h-t sched.h
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -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
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -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_STDDEF_H''@|<stddef.h>|g' \
      -e 's|@''NULLPTR_T_NEEDS_STDDEF''@|0|g' \
      -e 's|@''STDDEF_NOT_IDEMPOTENT''@|0|g' \
      -e 's|@''REPLACE_NULL''@|0|g' \
      -e 's|@''HAVE_MAX_ALIGN_T''@|1|g' \
      ../../src/gllib/stddef.in.h > stddef.h-t
mv stddef.h-t stddef.h
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -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_DZPRINTF''@/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_FOPEN_GNU''@/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_FZPRINTF''@/0/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_OBSTACK_ZPRINTF''@/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_SNZPRINTF''@/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_SZPRINTF''@/0/g' \
      -e 's/@''GNULIB_TMPFILE''@/0/g' \
      -e 's/@''GNULIB_VASPRINTF''@/0/g' \
      -e 's/@''GNULIB_VASZPRINTF''@/0/g' \
      -e 's/@''GNULIB_VDPRINTF''@/0/g' \
      -e 's/@''GNULIB_VDZPRINTF''@/0/g' \
      -e 's/@''GNULIB_VFPRINTF''@/1/g' \
      -e 's/@''GNULIB_VFPRINTF_POSIX''@/0/g' \
      -e 's/@''GNULIB_VFZPRINTF''@/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_VSNZPRINTF''@/0/g' \
      -e 's/@''GNULIB_VSPRINTF_POSIX''@/0/g' \
      -e 's/@''GNULIB_VSZPRINTF''@/0/g' \
      -e 's/@''GNULIB_VZPRINTF''@/0/g' \
      -e 's/@''GNULIB_ZPRINTF''@/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 > stdio.h-t1
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_GETW''@|1|g' \
      -e 's|@''HAVE_DECL_OBSTACK_PRINTF''@|1|g' \
      -e 's|@''HAVE_DECL_PUTW''@|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' \
      < stdio.h-t1 > stdio.h-t2
sed \
      -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_FOPEN_FOR_FOPEN_GNU''@|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-t2 > stdio.h-t3
rm -f stdio.h-t1 stdio.h-t2
mv stdio.h-t3 stdio.h
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -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_ABORT_DEBUG''@/0/g' \
      -e 's/@''GNULIB_ALIGNED_ALLOC''@/0/g' \
      -e 's/@''GNULIB_ATOLL''@/0/g' \
      -e 's/@''GNULIB_CALLOC_GNU''@/0/g' \
      -e 's/@''GNULIB_CALLOC_POSIX''@/0/g' \
      -e 's/@''GNULIB_CANONICALIZE_FILE_NAME''@/0/g' \
      -e 's/@''GNULIB_FREE_POSIX''@/1/g' \
      -e 's/@''GNULIB_GETLOADAVG''@/1/g' \
      -e 's/@''GNULIB_GETPROGNAME''@/0/g' \
      -e 's/@''GNULIB_GETSUBOPT''@/0/g' \
      -e 's/@''GNULIB_GRANTPT''@/0/g' \
      -e 's/@''GNULIB_MALLOC_GNU''@/0/g' \
      -e 's/@''GNULIB_MALLOC_POSIX''@/1/g' \
      -e 's/@''GNULIB_MBSTOWCS''@/0/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_RAND''@/0/g' \
      -e 's/@''GNULIB_RANDOM''@/0/g' \
      -e 's/@''GNULIB_RANDOM_R''@/0/g' \
      -e 's/@''GNULIB_REALLOC_GNU''@/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_STRTOF''@/0/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 > stdlib.h-t1
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_DECL_PROGRAM_INVOCATION_NAME''@|1|g' \
      -e 's|@''HAVE_GETPROGNAME''@|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_STRTOF''@|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' \
      < stdlib.h-t1 > stdlib.h-t2
sed \
      -e 's|@''REPLACE__EXIT''@|0|g' \
      -e 's|@''REPLACE_ABORT''@|0|g' \
      -e 's|@''REPLACE_ALIGNED_ALLOC''@|0|g' \
      -e 's|@''REPLACE_CALLOC_FOR_CALLOC_GNU''@|0|g' \
      -e 's|@''REPLACE_CALLOC_FOR_CALLOC_POSIX''@|0|g' \
      -e 's|@''REPLACE_CANONICALIZE_FILE_NAME''@|0|g' \
      -e 's|@''REPLACE_FREE''@|0|g' \
      -e 's|@''REPLACE_GETLOADAVG''@|0|g' \
      -e 's|@''REPLACE_GETPROGNAME''@|0|g' \
      -e 's|@''REPLACE_GETSUBOPT''@|0|g' \
      -e 's|@''REPLACE_INITSTATE''@|0|g' \
      -e 's|@''REPLACE_MALLOC_FOR_MALLOC_GNU''@|0|g' \
      -e 's|@''REPLACE_MALLOC_FOR_MALLOC_POSIX''@|0|g' \
      -e 's|@''REPLACE_MB_CUR_MAX''@|0|g' \
      -e 's|@''REPLACE_MBSTOWCS''@|0|g' \
      -e 's|@''REPLACE_MBTOWC''@|0|g' \
      -e 's|@''REPLACE_MKOSTEMP''@|0|g' \
      -e 's|@''REPLACE_MKOSTEMPS''@|0|g' \
      -e 's|@''REPLACE_MKSTEMP''@|0|g' \
      -e 's|@''REPLACE_POSIX_MEMALIGN''@|0|g' \
      -e 's|@''REPLACE_POSIX_OPENPT''@|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_RAND''@|0|g' \
      -e 's|@''REPLACE_RANDOM''@|0|g' \
      -e 's|@''REPLACE_RANDOM_R''@|0|g' \
      -e 's|@''REPLACE_REALLOC_FOR_REALLOC_GNU''@|0|g' \
      -e 's|@''REPLACE_REALLOC_FOR_REALLOC_POSIX''@|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_STRTOF''@|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-t2 > stdlib.h-t3
rm -f stdlib.h-t1 stdlib.h-t2
mv stdlib.h-t3 stdlib.h
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -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_MEMSET_EXPLICIT''@/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''@/0/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' \
      -e 's/@''GNULIB_FREE_POSIX''@/1/g' \
      < ../../src/gllib/string.in.h > string.h-t1
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_MEMSET_EXPLICIT''@|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_MEMPCPY''@|0|g' \
      -e 's|@''REPLACE_MEMSET_EXPLICIT''@|0|g' \
      -e 's|@''REPLACE_FREE''@|0|g' \
      -e 's|@''REPLACE_STPCPY''@|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|@''REPLACE_STRVERSCMP''@|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' \
      < string.h-t1 > string.h-t2
rm -f string.h-t1
mv string.h-t2 string.h
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -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'
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -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'
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -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 sys/random.h-t sys/random.h
/usr/bin/mkdir -p 'sys'
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -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'
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -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 sys/socket.h-t sys/socket.h
/usr/bin/mkdir -p 'sys'
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -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_CHMOD''@/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_CHMOD''@|0|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'
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -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'
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -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|@''HAVE_OFF64_T''@|1|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'
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -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 sys/uio.h-t sys/uio.h
/usr/bin/mkdir -p 'sys'
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -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'
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -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
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -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_TIME''@/0/g' \
      -e 's/@''GNULIB_TIMEGM''@/0/g' \
      -e 's/@''GNULIB_TIMESPEC_GET''@/0/g' \
      -e 's/@''GNULIB_TIMESPEC_GETRES''@/0/g' \
      -e 's/@''GNULIB_TIME_R''@/1/g' \
      -e 's/@''GNULIB_TIME_RZ''@/0/g' \
      -e 's/@''GNULIB_TZNAME''@/0/g' \
      -e 's/@''GNULIB_TZSET''@/0/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_TIMESPEC_GETRES''@|1|g' \
      -e 's|@''HAVE_TIMEZONE_T''@|0|g' \
      -e 's|@''REPLACE_CTIME''@|0|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''@|0|g' \
      -e 's|@''REPLACE_STRFTIME''@|0|g' \
      -e 's|@''REPLACE_TIME''@|0|g' \
      -e 's|@''REPLACE_TIMEGM''@|0|g' \
      -e 's|@''REPLACE_TIMESPEC_GET''@|0|g' \
      -e 's|@''REPLACE_TIMESPEC_GETRES''@|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
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -e 's|@''GUARD_PREFIX''@|GL|g' \
      -e 's/@''HAVE_UCHAR_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_UCHAR_H''@|<uchar.h>|g' \
      -e 's|@''CXX_HAS_CHAR8_TYPE''@|0|g' \
      -e 's|@''CXX_HAS_UCHAR_TYPES''@|0|g' \
      -e 's|@''SMALL_WCHAR_T''@|0|g' \
      -e 's|@''GNULIBHEADERS_OVERRIDE_CHAR8_T''@|0|g' \
      -e 's|@''GNULIBHEADERS_OVERRIDE_CHAR16_T''@|0|g' \
      -e 's|@''GNULIBHEADERS_OVERRIDE_CHAR32_T''@|0|g' \
      -e 's/@''GNULIB_BTOC32''@/1/g' \
      -e 's/@''GNULIB_BTOWC''@/1/g' \
      -e 's/@''GNULIB_C32ISALNUM''@/1/g' \
      -e 's/@''GNULIB_C32ISALPHA''@/1/g' \
      -e 's/@''GNULIB_C32ISBLANK''@/1/g' \
      -e 's/@''GNULIB_C32ISCNTRL''@/1/g' \
      -e 's/@''GNULIB_C32ISDIGIT''@/1/g' \
      -e 's/@''GNULIB_C32ISGRAPH''@/1/g' \
      -e 's/@''GNULIB_C32ISLOWER''@/1/g' \
      -e 's/@''GNULIB_C32ISPRINT''@/1/g' \
      -e 's/@''GNULIB_C32ISPUNCT''@/1/g' \
      -e 's/@''GNULIB_C32ISSPACE''@/1/g' \
      -e 's/@''GNULIB_C32ISUPPER''@/1/g' \
      -e 's/@''GNULIB_C32ISXDIGIT''@/1/g' \
      -e 's/@''GNULIB_C32TOLOWER''@/1/g' \
      -e 's/@''GNULIB_C32TOUPPER''@/0/g' \
      -e 's/@''GNULIB_C32WIDTH''@/0/g' \
      -e 's/@''GNULIB_C32RTOMB''@/0/g' \
      -e 's/@''GNULIB_C32SNRTOMBS''@/0/g' \
      -e 's/@''GNULIB_C32SRTOMBS''@/0/g' \
      -e 's/@''GNULIB_C32STOMBS''@/0/g' \
      -e 's/@''GNULIB_C32SWIDTH''@/0/g' \
      -e 's/@''GNULIB_C32TOB''@/0/g' \
      -e 's/@''GNULIB_C32_APPLY_MAPPING''@/0/g' \
      -e 's/@''GNULIB_C32_APPLY_TYPE_TEST''@/1/g' \
      -e 's/@''GNULIB_C32_GET_MAPPING''@/0/g' \
      -e 's/@''GNULIB_C32_GET_TYPE_TEST''@/1/g' \
      -e 's/@''GNULIB_ISWCTYPE''@/1/g' \
      -e 's/@''GNULIB_ISWDIGIT''@/1/g' \
      -e 's/@''GNULIB_ISWXDIGIT''@/1/g' \
      -e 's/@''GNULIB_MBRTOC16''@/0/g' \
      -e 's/@''GNULIB_MBRTOC32''@/1/g' \
      -e 's/@''GNULIB_MBSNRTOC32S''@/0/g' \
      -e 's/@''GNULIB_MBSNRTOWCS''@/0/g' \
      -e 's/@''GNULIB_MBSRTOC32S''@/1/g' \
      -e 's/@''GNULIB_MBSRTOWCS''@/1/g' \
      -e 's/@''GNULIB_MBSTOC32S''@/0/g' \
      -e 's/@''GNULIB_TOWCTRANS''@/0/g' \
      -e 's/@''GNULIB_WCSNRTOMBS''@/0/g' \
      -e 's/@''GNULIB_WCSRTOMBS''@/0/g' \
      -e 's/@''GNULIB_WCSWIDTH''@/0/g' \
      -e 's/@''GNULIB_WCTOB''@/0/g' \
      -e 's/@''GNULIB_WCTRANS''@/0/g' \
      -e 's/@''GNULIB_WCTYPE''@/1/g' \
      -e 's/@''GNULIB_WCWIDTH''@/0/g' \
      -e 's|@''HAVE_C32RTOMB''@|1|g' \
      -e 's|@''HAVE_MBRTOC16''@|1|g' \
      -e 's|@''HAVE_MBRTOC32''@|1|g' \
      -e 's|@''REPLACE_C32RTOMB''@|0|g' \
      -e 's|@''REPLACE_MBRTOC16''@|0|g' \
      -e 's|@''REPLACE_MBRTOC32''@|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/uchar.in.h > uchar.h-t
mv uchar.h-t uchar.h
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -e 's|@''HAVE_UNISTRING_WOE32DLL_H''@|1|g' \
      -e 's/@''GNULIB_UNICASE_EMPTY_PREFIX_CONTEXT_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICASE_EMPTY_SUFFIX_CONTEXT_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      ../../src/gllib/unicase.in.h > unicase.h-t
mv unicase.h-t unicase.h
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -e 's|@''HAVE_UNISTRING_WOE32DLL_H''@|1|g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_L_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_LC_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_LU_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_LL_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_LT_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_LM_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_LO_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_M_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_MN_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_MC_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_ME_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_N_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_ND_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_NL_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_NO_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_P_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_PC_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_PD_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_PS_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_PE_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_PI_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_PF_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_PO_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_S_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_SM_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_SC_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_SK_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_SO_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_Z_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_ZS_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_ZL_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_ZP_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_C_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_CC_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_CF_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_CS_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_CO_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_CATEGORY_CN_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      < ../../src/gllib/unictype.in.h > unictype.h-t1
sed \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_WHITE_SPACE_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_ALPHABETIC_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_OTHER_ALPHABETIC_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_NOT_A_CHARACTER_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_DEFAULT_IGNORABLE_CODE_POINT_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_OTHER_DEFAULT_IGNORABLE_CODE_POINT_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_DEPRECATED_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_LOGICAL_ORDER_EXCEPTION_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_VARIATION_SELECTOR_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_PRIVATE_USE_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_UNASSIGNED_CODE_VALUE_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_UPPERCASE_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_OTHER_UPPERCASE_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_LOWERCASE_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_OTHER_LOWERCASE_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_TITLECASE_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_CASED_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_CASE_IGNORABLE_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_CHANGES_WHEN_LOWERCASED_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_CHANGES_WHEN_UPPERCASED_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_CHANGES_WHEN_TITLECASED_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_CHANGES_WHEN_CASEFOLDED_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_CHANGES_WHEN_CASEMAPPED_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_SOFT_DOTTED_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      < unictype.h-t1 > unictype.h-t2
sed \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_ID_START_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_OTHER_ID_START_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_ID_CONTINUE_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_OTHER_ID_CONTINUE_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_XID_START_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_XID_CONTINUE_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_ID_COMPAT_MATH_START_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_ID_COMPAT_MATH_CONTINUE_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_PATTERN_WHITE_SPACE_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_PATTERN_SYNTAX_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_JOIN_CONTROL_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_GRAPHEME_BASE_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_GRAPHEME_EXTEND_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_OTHER_GRAPHEME_EXTEND_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_GRAPHEME_LINK_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_BIDI_CONTROL_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_BIDI_LEFT_TO_RIGHT_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_BIDI_HEBREW_RIGHT_TO_LEFT_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_BIDI_ARABIC_RIGHT_TO_LEFT_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_BIDI_EUROPEAN_DIGIT_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_BIDI_EUR_NUM_SEPARATOR_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_BIDI_EUR_NUM_TERMINATOR_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_BIDI_ARABIC_DIGIT_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_BIDI_COMMON_SEPARATOR_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_BIDI_BLOCK_SEPARATOR_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_BIDI_SEGMENT_SEPARATOR_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_BIDI_WHITESPACE_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_BIDI_NON_SPACING_MARK_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_BIDI_BOUNDARY_NEUTRAL_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_BIDI_PDF_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_BIDI_EMBEDDING_OR_OVERRIDE_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_BIDI_OTHER_NEUTRAL_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      < unictype.h-t2 > unictype.h-t3
sed \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_HEX_DIGIT_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_ASCII_HEX_DIGIT_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_IDEOGRAPHIC_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_UNIFIED_IDEOGRAPH_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_RADICAL_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_IDS_UNARY_OPERATOR_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_IDS_BINARY_OPERATOR_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_IDS_TRINARY_OPERATOR_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_EMOJI_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_EMOJI_PRESENTATION_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_EMOJI_MODIFIER_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_EMOJI_MODIFIER_BASE_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_EMOJI_COMPONENT_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_EXTENDED_PICTOGRAPHIC_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_ZERO_WIDTH_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_SPACE_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_NON_BREAK_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_ISO_CONTROL_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_FORMAT_CONTROL_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_PREPENDED_CONCATENATION_MARK_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_DASH_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_HYPHEN_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_PUNCTUATION_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_LINE_SEPARATOR_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_PARAGRAPH_SEPARATOR_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_QUOTATION_MARK_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_SENTENCE_TERMINAL_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_TERMINAL_PUNCTUATION_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_CURRENCY_SYMBOL_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_MATH_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_OTHER_MATH_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_PAIRED_PUNCTUATION_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_LEFT_OF_PAIR_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_COMBINING_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_COMPOSITE_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_DECIMAL_DIGIT_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_NUMERIC_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_DIACRITIC_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_EXTENDER_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_IGNORABLE_CONTROL_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNICTYPE_PROPERTY_REGIONAL_INDICATOR_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      < unictype.h-t3 > unictype.h-t4
rm -f unictype.h-t1 unictype.h-t2 unictype.h-t3
mv unictype.h-t4 unictype.h
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -e 's|@''HAVE_UNISTRING_WOE32DLL_H''@|1|g' \
      -e 's/@''GNULIB_UNINORM_NFD_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNINORM_NFC_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNINORM_NFKD_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      -e 's/@''GNULIB_UNINORM_NFKC_DLL_VARIABLE''@/LIBUNISTRING_DLL_VARIABLE/g' \
      ../../src/gllib/uninorm.in.h > uninorm.h-t
mv uninorm.h-t uninorm.h
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -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' \
      < ../../src/gllib/unistd.in.h > unistd.h-t1
sed \
      -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_GETPASS_GNU''@/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' \
      < unistd.h-t1 > unistd.h-t2
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' \
      < unistd.h-t2 > unistd.h-t3
sed \
      -e 's|@''REPLACE_ACCESS''@|0|g' \
      -e 's|@''REPLACE_CHOWN''@|0|g' \
      -e 's|@''REPLACE_CLOSE''@|0|g' \
      -e 's|@''REPLACE_COPY_FILE_RANGE''@|0|g' \
      -e 's|@''REPLACE_DUP''@|0|g' \
      -e 's|@''REPLACE_DUP2''@|0|g' \
      -e 's|@''REPLACE_DUP3''@|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_FCHDIR''@|0|g' \
      -e 's|@''REPLACE_FCHOWNAT''@|0|g' \
      -e 's|@''REPLACE_FDATASYNC''@|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_GETENTROPY''@|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_GETPASS_FOR_GETPASS_GNU''@|0|g' \
      -e 's|@''REPLACE_GETUSERSHELL''@|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_PIPE2''@|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_SETHOSTNAME''@|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-t3 > unistd.h-t4
rm -f unistd.h-t1 unistd.h-t2 unistd.h-t3
mv unistd.h-t4 unistd.h
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G -n -e 'w unistr.h-t' ../../src/gllib/unistr.in.h
mv unistr.h-t unistr.h
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -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_MBSZERO''@/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_WGETCWD''@/0/g' \
      -e 's/@''GNULIB_MDA_WCSDUP''@/1/g' \
      -e 's/@''GNULIB_FREE_POSIX''@/1/g' \
      < ../../src/gllib/wchar.in.h > wchar.h-t1
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' \
      < wchar.h-t1 > wchar.h-t2
sed \
      -e 's|@''REPLACE_MBSTATE_T''@|0|g' \
      -e 's|@''REPLACE_BTOWC''@|1|g' \
      -e 's|@''REPLACE_WCTOB''@|0|g' \
      -e 's|@''REPLACE_FREE''@|0|g' \
      -e 's|@''REPLACE_MBSINIT''@|0|g' \
      -e 's|@''REPLACE_MBRTOWC''@|1|g' \
      -e 's|@''REPLACE_MBRLEN''@|0|g' \
      -e 's|@''REPLACE_MBSRTOWCS''@|1|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_WCSCMP''@|0|g' \
      -e 's|@''REPLACE_WCSNCMP''@|0|g' \
      -e 's|@''REPLACE_WCSSTR''@|0|g' \
      -e 's|@''REPLACE_WCSTOK''@|0|g' \
      -e 's|@''REPLACE_WMEMCMP''@|0|g' \
      -e 's|@''REPLACE_WMEMPCPY''@|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-t2 > wchar.h-t3
rm -f wchar.h-t1 wchar.h-t2
mv wchar.h-t3 wchar.h
sed -e 1h -e '1s,.*,/* DO NOT EDIT! GENERATED AUTOMATICALLY! */,' -e 1G \
      -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''@/1/g' \
      -e 's/@''GNULIB_ISWDIGIT''@/1/g' \
      -e 's/@''GNULIB_ISWPUNCT''@/1/g' \
      -e 's/@''GNULIB_ISWXDIGIT''@/1/g' \
      -e 's/@''GNULIB_WCTYPE''@/1/g' \
      -e 's/@''GNULIB_ISWCTYPE''@/1/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_ISWPUNCT''@/0/g' \
      -e 's/@''REPLACE_ISWXDIGIT''@/0/g' \
      -e 's/@''REPLACE_ISWCNTRL''@/0/g' \
      -e 's/@''REPLACE_TOWLOWER''@/0/g' \
      -e 's/@''REPLACE_WCTRANS''@/0/g' \
      -e 's/@''REPLACE_WCTYPE''@/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/wctype.in.h > wctype.h-t
mv wctype.h-t wctype.h
make  all-recursive
make[2]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib'
make[3]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib'
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-basename-lgpl.o -MD -MP -MF .deps/libgnu_a-basename-lgpl.Tpo -c -o libgnu_a-basename-lgpl.o `test -f 'basename-lgpl.c' || echo '../../src/gllib/'`basename-lgpl.c
mv -f .deps/libgnu_a-basename-lgpl.Tpo .deps/libgnu_a-basename-lgpl.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-btoc32.o -MD -MP -MF .deps/libgnu_a-btoc32.Tpo -c -o libgnu_a-btoc32.o `test -f 'btoc32.c' || echo '../../src/gllib/'`btoc32.c
mv -f .deps/libgnu_a-btoc32.Tpo .deps/libgnu_a-btoc32.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-btowc.o -MD -MP -MF .deps/libgnu_a-btowc.Tpo -c -o libgnu_a-btowc.o `test -f 'btowc.c' || echo '../../src/gllib/'`btowc.c
mv -f .deps/libgnu_a-btowc.Tpo .deps/libgnu_a-btowc.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-c-ctype.o -MD -MP -MF .deps/libgnu_a-c-ctype.Tpo -c -o libgnu_a-c-ctype.o `test -f 'c-ctype.c' || echo '../../src/gllib/'`c-ctype.c
mv -f .deps/libgnu_a-c-ctype.Tpo .deps/libgnu_a-c-ctype.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-c-strtod.o -MD -MP -MF .deps/libgnu_a-c-strtod.Tpo -c -o libgnu_a-c-strtod.o `test -f 'c-strtod.c' || echo '../../src/gllib/'`c-strtod.c
mv -f .deps/libgnu_a-c-strtod.Tpo .deps/libgnu_a-c-strtod.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-c32_apply_type_test.o -MD -MP -MF .deps/libgnu_a-c32_apply_type_test.Tpo -c -o libgnu_a-c32_apply_type_test.o `test -f 'c32_apply_type_test.c' || echo '../../src/gllib/'`c32_apply_type_test.c
mv -f .deps/libgnu_a-c32_apply_type_test.Tpo .deps/libgnu_a-c32_apply_type_test.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-c32_get_type_test.o -MD -MP -MF .deps/libgnu_a-c32_get_type_test.Tpo -c -o libgnu_a-c32_get_type_test.o `test -f 'c32_get_type_test.c' || echo '../../src/gllib/'`c32_get_type_test.c
mv -f .deps/libgnu_a-c32_get_type_test.Tpo .deps/libgnu_a-c32_get_type_test.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-c32isalnum.o -MD -MP -MF .deps/libgnu_a-c32isalnum.Tpo -c -o libgnu_a-c32isalnum.o `test -f 'c32isalnum.c' || echo '../../src/gllib/'`c32isalnum.c
mv -f .deps/libgnu_a-c32isalnum.Tpo .deps/libgnu_a-c32isalnum.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-c32isalpha.o -MD -MP -MF .deps/libgnu_a-c32isalpha.Tpo -c -o libgnu_a-c32isalpha.o `test -f 'c32isalpha.c' || echo '../../src/gllib/'`c32isalpha.c
mv -f .deps/libgnu_a-c32isalpha.Tpo .deps/libgnu_a-c32isalpha.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-c32isblank.o -MD -MP -MF .deps/libgnu_a-c32isblank.Tpo -c -o libgnu_a-c32isblank.o `test -f 'c32isblank.c' || echo '../../src/gllib/'`c32isblank.c
mv -f .deps/libgnu_a-c32isblank.Tpo .deps/libgnu_a-c32isblank.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-c32iscntrl.o -MD -MP -MF .deps/libgnu_a-c32iscntrl.Tpo -c -o libgnu_a-c32iscntrl.o `test -f 'c32iscntrl.c' || echo '../../src/gllib/'`c32iscntrl.c
mv -f .deps/libgnu_a-c32iscntrl.Tpo .deps/libgnu_a-c32iscntrl.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-c32isdigit.o -MD -MP -MF .deps/libgnu_a-c32isdigit.Tpo -c -o libgnu_a-c32isdigit.o `test -f 'c32isdigit.c' || echo '../../src/gllib/'`c32isdigit.c
mv -f .deps/libgnu_a-c32isdigit.Tpo .deps/libgnu_a-c32isdigit.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-c32isgraph.o -MD -MP -MF .deps/libgnu_a-c32isgraph.Tpo -c -o libgnu_a-c32isgraph.o `test -f 'c32isgraph.c' || echo '../../src/gllib/'`c32isgraph.c
mv -f .deps/libgnu_a-c32isgraph.Tpo .deps/libgnu_a-c32isgraph.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-c32islower.o -MD -MP -MF .deps/libgnu_a-c32islower.Tpo -c -o libgnu_a-c32islower.o `test -f 'c32islower.c' || echo '../../src/gllib/'`c32islower.c
mv -f .deps/libgnu_a-c32islower.Tpo .deps/libgnu_a-c32islower.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-c32isprint.o -MD -MP -MF .deps/libgnu_a-c32isprint.Tpo -c -o libgnu_a-c32isprint.o `test -f 'c32isprint.c' || echo '../../src/gllib/'`c32isprint.c
mv -f .deps/libgnu_a-c32isprint.Tpo .deps/libgnu_a-c32isprint.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-c32ispunct.o -MD -MP -MF .deps/libgnu_a-c32ispunct.Tpo -c -o libgnu_a-c32ispunct.o `test -f 'c32ispunct.c' || echo '../../src/gllib/'`c32ispunct.c
mv -f .deps/libgnu_a-c32ispunct.Tpo .deps/libgnu_a-c32ispunct.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-c32isspace.o -MD -MP -MF .deps/libgnu_a-c32isspace.Tpo -c -o libgnu_a-c32isspace.o `test -f 'c32isspace.c' || echo '../../src/gllib/'`c32isspace.c
mv -f .deps/libgnu_a-c32isspace.Tpo .deps/libgnu_a-c32isspace.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-c32isupper.o -MD -MP -MF .deps/libgnu_a-c32isupper.Tpo -c -o libgnu_a-c32isupper.o `test -f 'c32isupper.c' || echo '../../src/gllib/'`c32isupper.c
mv -f .deps/libgnu_a-c32isupper.Tpo .deps/libgnu_a-c32isupper.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-c32isxdigit.o -MD -MP -MF .deps/libgnu_a-c32isxdigit.Tpo -c -o libgnu_a-c32isxdigit.o `test -f 'c32isxdigit.c' || echo '../../src/gllib/'`c32isxdigit.c
mv -f .deps/libgnu_a-c32isxdigit.Tpo .deps/libgnu_a-c32isxdigit.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-c32tolower.o -MD -MP -MF .deps/libgnu_a-c32tolower.Tpo -c -o libgnu_a-c32tolower.o `test -f 'c32tolower.c' || echo '../../src/gllib/'`c32tolower.c
mv -f .deps/libgnu_a-c32tolower.Tpo .deps/libgnu_a-c32tolower.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-cloexec.o -MD -MP -MF .deps/libgnu_a-cloexec.Tpo -c -o libgnu_a-cloexec.o `test -f 'cloexec.c' || echo '../../src/gllib/'`cloexec.c
mv -f .deps/libgnu_a-cloexec.Tpo .deps/libgnu_a-cloexec.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-af_alg.o -MD -MP -MF .deps/libgnu_a-af_alg.Tpo -c -o libgnu_a-af_alg.o `test -f 'af_alg.c' || echo '../../src/gllib/'`af_alg.c
mv -f .deps/libgnu_a-af_alg.Tpo .deps/libgnu_a-af_alg.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-sha1-stream.o -MD -MP -MF .deps/libgnu_a-sha1-stream.Tpo -c -o libgnu_a-sha1-stream.o `test -f 'sha1-stream.c' || echo '../../src/gllib/'`sha1-stream.c
mv -f .deps/libgnu_a-sha1-stream.Tpo .deps/libgnu_a-sha1-stream.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-sha1.o -MD -MP -MF .deps/libgnu_a-sha1.Tpo -c -o libgnu_a-sha1.o `test -f 'sha1.c' || echo '../../src/gllib/'`sha1.c
mv -f .deps/libgnu_a-sha1.Tpo .deps/libgnu_a-sha1.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-dirname-lgpl.o -MD -MP -MF .deps/libgnu_a-dirname-lgpl.Tpo -c -o libgnu_a-dirname-lgpl.o `test -f 'dirname-lgpl.c' || echo '../../src/gllib/'`dirname-lgpl.c
mv -f .deps/libgnu_a-dirname-lgpl.Tpo .deps/libgnu_a-dirname-lgpl.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-stripslash.o -MD -MP -MF .deps/libgnu_a-stripslash.Tpo -c -o libgnu_a-stripslash.o `test -f 'stripslash.c' || echo '../../src/gllib/'`stripslash.c
mv -f .deps/libgnu_a-stripslash.Tpo .deps/libgnu_a-stripslash.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-fcntl.o -MD -MP -MF .deps/libgnu_a-fcntl.Tpo -c -o libgnu_a-fcntl.o `test -f 'fcntl.c' || echo '../../src/gllib/'`fcntl.c
mv -f .deps/libgnu_a-fcntl.Tpo .deps/libgnu_a-fcntl.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-fd-hook.o -MD -MP -MF .deps/libgnu_a-fd-hook.Tpo -c -o libgnu_a-fd-hook.o `test -f 'fd-hook.c' || echo '../../src/gllib/'`fd-hook.c
mv -f .deps/libgnu_a-fd-hook.Tpo .deps/libgnu_a-fd-hook.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-fflush.o -MD -MP -MF .deps/libgnu_a-fflush.Tpo -c -o libgnu_a-fflush.o `test -f 'fflush.c' || echo '../../src/gllib/'`fflush.c
mv -f .deps/libgnu_a-fflush.Tpo .deps/libgnu_a-fflush.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-fpurge.o -MD -MP -MF .deps/libgnu_a-fpurge.Tpo -c -o libgnu_a-fpurge.o `test -f 'fpurge.c' || echo '../../src/gllib/'`fpurge.c
mv -f .deps/libgnu_a-fpurge.Tpo .deps/libgnu_a-fpurge.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-freading.o -MD -MP -MF .deps/libgnu_a-freading.Tpo -c -o libgnu_a-freading.o `test -f 'freading.c' || echo '../../src/gllib/'`freading.c
mv -f .deps/libgnu_a-freading.Tpo .deps/libgnu_a-freading.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-fseek.o -MD -MP -MF .deps/libgnu_a-fseek.Tpo -c -o libgnu_a-fseek.o `test -f 'fseek.c' || echo '../../src/gllib/'`fseek.c
mv -f .deps/libgnu_a-fseek.Tpo .deps/libgnu_a-fseek.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-fseeko.o -MD -MP -MF .deps/libgnu_a-fseeko.Tpo -c -o libgnu_a-fseeko.o `test -f 'fseeko.c' || echo '../../src/gllib/'`fseeko.c
mv -f .deps/libgnu_a-fseeko.Tpo .deps/libgnu_a-fseeko.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT malloc/libgnu_a-dynarray_at_failure.o -MD -MP -MF malloc/.deps/libgnu_a-dynarray_at_failure.Tpo -c -o malloc/libgnu_a-dynarray_at_failure.o `test -f 'malloc/dynarray_at_failure.c' || echo '../../src/gllib/'`malloc/dynarray_at_failure.c
mv -f malloc/.deps/libgnu_a-dynarray_at_failure.Tpo malloc/.deps/libgnu_a-dynarray_at_failure.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT malloc/libgnu_a-dynarray_emplace_enlarge.o -MD -MP -MF malloc/.deps/libgnu_a-dynarray_emplace_enlarge.Tpo -c -o malloc/libgnu_a-dynarray_emplace_enlarge.o `test -f 'malloc/dynarray_emplace_enlarge.c' || echo '../../src/gllib/'`malloc/dynarray_emplace_enlarge.c
mv -f malloc/.deps/libgnu_a-dynarray_emplace_enlarge.Tpo malloc/.deps/libgnu_a-dynarray_emplace_enlarge.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT malloc/libgnu_a-dynarray_finalize.o -MD -MP -MF malloc/.deps/libgnu_a-dynarray_finalize.Tpo -c -o malloc/libgnu_a-dynarray_finalize.o `test -f 'malloc/dynarray_finalize.c' || echo '../../src/gllib/'`malloc/dynarray_finalize.c
mv -f malloc/.deps/libgnu_a-dynarray_finalize.Tpo malloc/.deps/libgnu_a-dynarray_finalize.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT malloc/libgnu_a-dynarray_resize.o -MD -MP -MF malloc/.deps/libgnu_a-dynarray_resize.Tpo -c -o malloc/libgnu_a-dynarray_resize.o `test -f 'malloc/dynarray_resize.c' || echo '../../src/gllib/'`malloc/dynarray_resize.c
mv -f malloc/.deps/libgnu_a-dynarray_resize.Tpo malloc/.deps/libgnu_a-dynarray_resize.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT malloc/libgnu_a-dynarray_resize_clear.o -MD -MP -MF malloc/.deps/libgnu_a-dynarray_resize_clear.Tpo -c -o malloc/libgnu_a-dynarray_resize_clear.o `test -f 'malloc/dynarray_resize_clear.c' || echo '../../src/gllib/'`malloc/dynarray_resize_clear.c
mv -f malloc/.deps/libgnu_a-dynarray_resize_clear.Tpo malloc/.deps/libgnu_a-dynarray_resize_clear.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-hard-locale.o -MD -MP -MF .deps/libgnu_a-hard-locale.Tpo -c -o libgnu_a-hard-locale.o `test -f 'hard-locale.c' || echo '../../src/gllib/'`hard-locale.c
mv -f .deps/libgnu_a-hard-locale.Tpo .deps/libgnu_a-hard-locale.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-ioctl.o -MD -MP -MF .deps/libgnu_a-ioctl.Tpo -c -o libgnu_a-ioctl.o `test -f 'ioctl.c' || echo '../../src/gllib/'`ioctl.c
mv -f .deps/libgnu_a-ioctl.Tpo .deps/libgnu_a-ioctl.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-localcharset.o -MD -MP -MF .deps/libgnu_a-localcharset.Tpo -c -o libgnu_a-localcharset.o `test -f 'localcharset.c' || echo '../../src/gllib/'`localcharset.c
mv -f .deps/libgnu_a-localcharset.Tpo .deps/libgnu_a-localcharset.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT glthread/libgnu_a-lock.o -MD -MP -MF glthread/.deps/libgnu_a-lock.Tpo -c -o glthread/libgnu_a-lock.o `test -f 'glthread/lock.c' || echo '../../src/gllib/'`glthread/lock.c
mv -f glthread/.deps/libgnu_a-lock.Tpo glthread/.deps/libgnu_a-lock.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-malloca.o -MD -MP -MF .deps/libgnu_a-malloca.Tpo -c -o libgnu_a-malloca.o `test -f 'malloca.c' || echo '../../src/gllib/'`malloca.c
mv -f .deps/libgnu_a-malloca.Tpo .deps/libgnu_a-malloca.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-math.o -MD -MP -MF .deps/libgnu_a-math.Tpo -c -o libgnu_a-math.o `test -f 'math.c' || echo '../../src/gllib/'`math.c
mv -f .deps/libgnu_a-math.Tpo .deps/libgnu_a-math.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-mbrtoc32.o -MD -MP -MF .deps/libgnu_a-mbrtoc32.Tpo -c -o libgnu_a-mbrtoc32.o `test -f 'mbrtoc32.c' || echo '../../src/gllib/'`mbrtoc32.c
mv -f .deps/libgnu_a-mbrtoc32.Tpo .deps/libgnu_a-mbrtoc32.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-mbrtowc.o -MD -MP -MF .deps/libgnu_a-mbrtowc.Tpo -c -o libgnu_a-mbrtowc.o `test -f 'mbrtowc.c' || echo '../../src/gllib/'`mbrtowc.c
mv -f .deps/libgnu_a-mbrtowc.Tpo .deps/libgnu_a-mbrtowc.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-mbsrtoc32s.o -MD -MP -MF .deps/libgnu_a-mbsrtoc32s.Tpo -c -o libgnu_a-mbsrtoc32s.o `test -f 'mbsrtoc32s.c' || echo '../../src/gllib/'`mbsrtoc32s.c
mv -f .deps/libgnu_a-mbsrtoc32s.Tpo .deps/libgnu_a-mbsrtoc32s.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-mbsrtowcs.o -MD -MP -MF .deps/libgnu_a-mbsrtowcs.Tpo -c -o libgnu_a-mbsrtowcs.o `test -f 'mbsrtowcs.c' || echo '../../src/gllib/'`mbsrtowcs.c
mv -f .deps/libgnu_a-mbsrtowcs.Tpo .deps/libgnu_a-mbsrtowcs.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-mbszero.o -MD -MP -MF .deps/libgnu_a-mbszero.Tpo -c -o libgnu_a-mbszero.o `test -f 'mbszero.c' || echo '../../src/gllib/'`mbszero.c
mv -f .deps/libgnu_a-mbszero.Tpo .deps/libgnu_a-mbszero.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-setlocale_null.o -MD -MP -MF .deps/libgnu_a-setlocale_null.Tpo -c -o libgnu_a-setlocale_null.o `test -f 'setlocale_null.c' || echo '../../src/gllib/'`setlocale_null.c
mv -f .deps/libgnu_a-setlocale_null.Tpo .deps/libgnu_a-setlocale_null.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-setlocale_null-unlocked.o -MD -MP -MF .deps/libgnu_a-setlocale_null-unlocked.Tpo -c -o libgnu_a-setlocale_null-unlocked.o `test -f 'setlocale_null-unlocked.c' || echo '../../src/gllib/'`setlocale_null-unlocked.c
mv -f .deps/libgnu_a-setlocale_null-unlocked.Tpo .deps/libgnu_a-setlocale_null-unlocked.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-sockets.o -MD -MP -MF .deps/libgnu_a-sockets.Tpo -c -o libgnu_a-sockets.o `test -f 'sockets.c' || echo '../../src/gllib/'`sockets.c
mv -f .deps/libgnu_a-sockets.Tpo .deps/libgnu_a-sockets.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-stat-time.o -MD -MP -MF .deps/libgnu_a-stat-time.Tpo -c -o libgnu_a-stat-time.o `test -f 'stat-time.c' || echo '../../src/gllib/'`stat-time.c
mv -f .deps/libgnu_a-stat-time.Tpo .deps/libgnu_a-stat-time.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-strnlen1.o -MD -MP -MF .deps/libgnu_a-strnlen1.Tpo -c -o libgnu_a-strnlen1.o `test -f 'strnlen1.c' || echo '../../src/gllib/'`strnlen1.c
mv -f .deps/libgnu_a-strnlen1.Tpo .deps/libgnu_a-strnlen1.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-sys_socket.o -MD -MP -MF .deps/libgnu_a-sys_socket.Tpo -c -o libgnu_a-sys_socket.o `test -f 'sys_socket.c' || echo '../../src/gllib/'`sys_socket.c
mv -f .deps/libgnu_a-sys_socket.Tpo .deps/libgnu_a-sys_socket.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-tempname.o -MD -MP -MF .deps/libgnu_a-tempname.Tpo -c -o libgnu_a-tempname.o `test -f 'tempname.c' || echo '../../src/gllib/'`tempname.c
mv -f .deps/libgnu_a-tempname.Tpo .deps/libgnu_a-tempname.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT glthread/libgnu_a-threadlib.o -MD -MP -MF glthread/.deps/libgnu_a-threadlib.Tpo -c -o glthread/libgnu_a-threadlib.o `test -f 'glthread/threadlib.c' || echo '../../src/gllib/'`glthread/threadlib.c
mv -f glthread/.deps/libgnu_a-threadlib.Tpo glthread/.deps/libgnu_a-threadlib.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT unictype/libgnu_a-ctype_alnum.o -MD -MP -MF unictype/.deps/libgnu_a-ctype_alnum.Tpo -c -o unictype/libgnu_a-ctype_alnum.o `test -f 'unictype/ctype_alnum.c' || echo '../../src/gllib/'`unictype/ctype_alnum.c
mv -f unictype/.deps/libgnu_a-ctype_alnum.Tpo unictype/.deps/libgnu_a-ctype_alnum.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT unictype/libgnu_a-ctype_alpha.o -MD -MP -MF unictype/.deps/libgnu_a-ctype_alpha.Tpo -c -o unictype/libgnu_a-ctype_alpha.o `test -f 'unictype/ctype_alpha.c' || echo '../../src/gllib/'`unictype/ctype_alpha.c
mv -f unictype/.deps/libgnu_a-ctype_alpha.Tpo unictype/.deps/libgnu_a-ctype_alpha.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT unictype/libgnu_a-ctype_graph.o -MD -MP -MF unictype/.deps/libgnu_a-ctype_graph.Tpo -c -o unictype/libgnu_a-ctype_graph.o `test -f 'unictype/ctype_graph.c' || echo '../../src/gllib/'`unictype/ctype_graph.c
mv -f unictype/.deps/libgnu_a-ctype_graph.Tpo unictype/.deps/libgnu_a-ctype_graph.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT unictype/libgnu_a-ctype_print.o -MD -MP -MF unictype/.deps/libgnu_a-ctype_print.Tpo -c -o unictype/libgnu_a-ctype_print.o `test -f 'unictype/ctype_print.c' || echo '../../src/gllib/'`unictype/ctype_print.c
mv -f unictype/.deps/libgnu_a-ctype_print.Tpo unictype/.deps/libgnu_a-ctype_print.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT unictype/libgnu_a-ctype_punct.o -MD -MP -MF unictype/.deps/libgnu_a-ctype_punct.Tpo -c -o unictype/libgnu_a-ctype_punct.o `test -f 'unictype/ctype_punct.c' || echo '../../src/gllib/'`unictype/ctype_punct.c
mv -f unictype/.deps/libgnu_a-ctype_punct.Tpo unictype/.deps/libgnu_a-ctype_punct.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT uniname/libgnu_a-uniname.o -MD -MP -MF uniname/.deps/libgnu_a-uniname.Tpo -c -o uniname/libgnu_a-uniname.o `test -f 'uniname/uniname.c' || echo '../../src/gllib/'`uniname/uniname.c
mv -f uniname/.deps/libgnu_a-uniname.Tpo uniname/.deps/libgnu_a-uniname.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-unistd.o -MD -MP -MF .deps/libgnu_a-unistd.Tpo -c -o libgnu_a-unistd.o `test -f 'unistd.c' || echo '../../src/gllib/'`unistd.c
mv -f .deps/libgnu_a-unistd.Tpo .deps/libgnu_a-unistd.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT unistr/libgnu_a-u32-pcpy.o -MD -MP -MF unistr/.deps/libgnu_a-u32-pcpy.Tpo -c -o unistr/libgnu_a-u32-pcpy.o `test -f 'unistr/u32-pcpy.c' || echo '../../src/gllib/'`unistr/u32-pcpy.c
mv -f unistr/.deps/libgnu_a-u32-pcpy.Tpo unistr/.deps/libgnu_a-u32-pcpy.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT uniwidth/libgnu_a-width.o -MD -MP -MF uniwidth/.deps/libgnu_a-width.Tpo -c -o uniwidth/libgnu_a-width.o `test -f 'uniwidth/width.c' || echo '../../src/gllib/'`uniwidth/width.c
mv -f uniwidth/.deps/libgnu_a-width.Tpo uniwidth/.deps/libgnu_a-width.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-vma-iter.o -MD -MP -MF .deps/libgnu_a-vma-iter.Tpo -c -o libgnu_a-vma-iter.o `test -f 'vma-iter.c' || echo '../../src/gllib/'`vma-iter.c
mv -f .deps/libgnu_a-vma-iter.Tpo .deps/libgnu_a-vma-iter.Po
gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I..   -I/usr/include/libsvm   -Wno-cast-qual -Wno-conversion -Wno-float-equal -Wno-sign-compare -Wno-undef -Wno-unused-function -Wno-unused-parameter -Wno-float-conversion -Wimplicit-fallthrough -Wno-pedantic -Wno-sign-conversion -Wno-type-limits -Wno-unsuffixed-float-constants -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT libgnu_a-wctype-h.o -MD -MP -MF .deps/libgnu_a-wctype-h.Tpo -c -o libgnu_a-wctype-h.o `test -f 'wctype-h.c' || echo '../../src/gllib/'`wctype-h.c
mv -f .deps/libgnu_a-wctype-h.Tpo .deps/libgnu_a-wctype-h.Po
depbase=`echo mbsrtoc32s-state.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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT mbsrtoc32s-state.o -MD -MP -MF $depbase.Tpo -c -o mbsrtoc32s-state.o ../../src/gllib/mbsrtoc32s-state.c &&\
mv -f $depbase.Tpo $depbase.Po
depbase=`echo mbsrtowcs-state.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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -MT mbsrtowcs-state.o -MD -MP -MF $depbase.Tpo -c -o mbsrtowcs-state.o ../../src/gllib/mbsrtowcs-state.c &&\
mv -f $depbase.Tpo $depbase.Po
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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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
rm -f libgnu.a
ar cr libgnu.a  libgnu_a-basename-lgpl.o  libgnu_a-btoc32.o libgnu_a-btowc.o  libgnu_a-c-ctype.o libgnu_a-c-strtod.o libgnu_a-c32_apply_type_test.o libgnu_a-c32_get_type_test.o libgnu_a-c32isalnum.o libgnu_a-c32isalpha.o libgnu_a-c32isblank.o libgnu_a-c32iscntrl.o libgnu_a-c32isdigit.o libgnu_a-c32isgraph.o libgnu_a-c32islower.o libgnu_a-c32isprint.o libgnu_a-c32ispunct.o libgnu_a-c32isspace.o libgnu_a-c32isupper.o libgnu_a-c32isxdigit.o libgnu_a-c32tolower.o libgnu_a-cloexec.o   libgnu_a-af_alg.o libgnu_a-sha1-stream.o libgnu_a-sha1.o libgnu_a-dirname-lgpl.o libgnu_a-stripslash.o  libgnu_a-fcntl.o libgnu_a-fd-hook.o libgnu_a-fflush.o   libgnu_a-fpurge.o libgnu_a-freading.o  libgnu_a-fseek.o libgnu_a-fseeko.o             malloc/libgnu_a-dynarray_at_failure.o malloc/libgnu_a-dynarray_emplace_enlarge.o malloc/libgnu_a-dynarray_finalize.o malloc/libgnu_a-dynarray_resize.o malloc/libgnu_a-dynarray_resize_clear.o libgnu_a-hard-locale.o   libgnu_a-ioctl.o        libgnu_a-localcharset.o  glthread/libgnu_a-lock.o   libgnu_a-malloca.o libgnu_a-math.o libgnu_a-mbrtoc32.o libgnu_a-mbrtowc.o  libgnu_a-mbsrtoc32s.o libgnu_a-mbsrtowcs.o libgnu_a-mbszero.o                       libgnu_a-setlocale_null.o  libgnu_a-setlocale_null-unlocked.o    libgnu_a-sockets.o  libgnu_a-stat-time.o       libgnu_a-strnlen1.o    libgnu_a-sys_socket.o libgnu_a-tempname.o glthread/libgnu_a-threadlib.o    unictype/libgnu_a-ctype_alnum.o unictype/libgnu_a-ctype_alpha.o    unictype/libgnu_a-ctype_graph.o  unictype/libgnu_a-ctype_print.o unictype/libgnu_a-ctype_punct.o    uniname/libgnu_a-uniname.o libgnu_a-unistd.o   unistr/libgnu_a-u32-pcpy.o   uniwidth/libgnu_a-width.o  libgnu_a-vma-iter.o   libgnu_a-wctype-h.o       mbsrtoc32s-state.o mbsrtowcs-state.o strerror_r.o 
ranlib libgnu.a
make[3]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib'
make[2]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib'
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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:667:12: warning: this statement may fall through [-Wimplicit-fallthrough=]
  667 |         if (!(((c>='0') && (c<='9')) || (c=='.')))
      |            ^
../utils/gctrigger.c:669:7: note: here
  669 |       case '0': case '1': case '2': case '3': case '4':
      |       ^~~~
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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:1332:12: warning: this statement may fall through [-Wimplicit-fallthrough=]
 1332 |         if (!(((c>='0') && (c<='9')) || (c=='.')))
      |            ^
../utils/varbrace.c:1334:7: note: here
 1334 |       case '0': case '1': case '2': case '3': case '4':
      |       ^~~~
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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:543:16: warning: this statement may fall through [-Wimplicit-fallthrough=]
  543 |             if (!((c >= '0' && c <= '9') || c == '.'))
      |                ^
../utils/ccmp2c.c:546:11: note: here
  546 |           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/foreign.d | ./gctrigger | ./varbrace > foreign.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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -c spvw.c
In file included from ../src/spvw.d:23:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
In file included from ../src/spvw.d:23:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16433:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16433:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16433:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   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/subr.d:1381:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1381 | LISPFUNN(sizeof,1)
      |                                                                            ^     
../src/subr.d:1382:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1382 | LISPFUNN(bitsizeof,1)
      |                                                                            ^     
../src/subr.d:1383:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1383 | LISPFUNNR(validp,1)
      |                                                                            ^     
../src/subr.d:1384:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1384 | LISPFUNN(set_validp,2)
      |                                                                            ^     
../src/subr.d:1385:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1385 | LISPFUNNR(foreign_pointer,1)
      |                                                                            ^     
../src/subr.d:1386:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1386 | LISPFUNN(set_foreign_pointer,2)
      |                                                                            ^     
../src/subr.d:1387:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1387 | LISPFUNNR(unsigned_foreign_address,1)
      |                                                                            ^     
../src/subr.d:1388:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1388 | LISPFUNNR(foreign_address_unsigned,1)
      |                                                                            ^     
../src/subr.d:1389:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1389 | LISPFUNNR(foreign_address,1)
      |                                                                            ^     
../src/subr.d:1391:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1391 | LISPFUNN(foreign_pointer_info,1)
      |                                                                            ^     
../src/subr.d:1395:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1395 | LISPFUNN(close_foreign_library,1)
      |                                                                            ^     
../src/subr.d:1397:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1397 | LISPFUNNF(parse_foreign_inttype,2)
      |                                                                            ^     
../src/subr.d:1399:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1399 | LISPFUNN(find_foreign_variable,5)
      |                                                                            ^     
../src/subr.d:1401:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1401 | LISPFUNN(foreign_value,1)
      |                                                                            ^     
../src/subr.d:1402:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1402 | LISPFUNN(set_foreign_value,2)
      |                                                                            ^     
../src/subr.d:1403:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1403 | LISPFUNN(foreign_type,1)
      |                                                                            ^     
../src/subr.d:1404:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1404 | LISPFUN(element,seclass_default,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1405:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1405 | LISPFUNN(deref,1)
      |                                                                            ^     
../src/subr.d:1406:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1406 | LISPFUNN(slot,2)
      |                                                                            ^     
../src/subr.d:1407:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1407 | LISPFUNN(cast,2)
      |                                                                            ^     
../src/subr.d:1408:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1408 | LISPFUNN(offset,3)
      |                                                                            ^     
../src/subr.d:1409:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1409 | LISPFUN(read_memory_as,seclass_default,2,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1410:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1410 | LISPFUN(write_memory_as,seclass_default,3,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1411:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1411 | LISPFUN(exec_on_stack,seclass_default,2,1,norest,nokey,0,NIL)
      |                                                                            ^     
../src/subr.d:1412:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1412 | LISPFUNN(call_with_foreign_string,6)
      |                                                                            ^     
../src/subr.d:1416:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1416 | LISPFUNN(find_foreign_function,6)
      |                                                                            ^     
../src/subr.d:1417:76: warning: unused variable ‘vecptr’ [-Wunused-variable]
 1417 | LISPFUN(foreign_call_out,seclass_default,1,0,rest,nokey,0,NIL)
      |                                                                            ^     
../src/spvw.d: In function ‘init_memory’:
../src/spvw.d:3488:17: warning: unused variable ‘teil’ [-Wunused-variable]
 3488 |         var uintM teil = free_reserved/teile; /* a sub block, a 1/16 of the room */
      |                 ^~~~
../src/spvw.d:3478:15: warning: unused variable ‘for_objects’ [-Wunused-variable]
 3478 |       var uintM for_objects;    /* number of bytes for Lisp-objects */
      |               ^~~~~~~~~~~
../src/spvw.d:3477:15: warning: variable ‘for_STACK’ set but not used [-Wunused-but-set-variable]
 3477 |       var uintM for_STACK;      /* number of bytes for Lisp-stack */
      |               ^~~~~~~~~
../src/spvw.d:3148:13: warning: unused variable ‘pagesize’ [-Wunused-variable]
 3148 |     var uintL pagesize =        /* size of a page */
      |             ^~~~~~~~
../src/spvw.d: In function ‘dynload_modules’:
../src/spvw.d:4604:26: warning: unused variable ‘err’ [-Wunused-variable]
 4604 |           var const char * err;
      |                          ^~~
../src/spvw.d:4603:19: warning: unused variable ‘len’ [-Wunused-variable]
 4603 |           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:2525:11: warning: this statement may fall through [-Wimplicit-fallthrough=]
 2525 |       val *= sizeof(gcv_object_t); /*FALLTHROUGH*/
      |       ~~~~^~~~~~~~~~~~~~~~~~~~~~~
../src/spvw.d:2526:5: note: here
 2526 |     case 'b': case 'B':            /* in bytes */
      |     ^~~~
../src/spvw.d: In function ‘install_global_handlers’:
../src/spvw.d:2392:7: warning: this statement may fall through [-Wimplicit-fallthrough=]
 2392 |       funcall(S(set_global_handler),2);
      |       ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                           
../src/spvw.d:2394:5: note: here
 2394 |     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:513:14: warning: ‘mmap_filemap’ defined but not used [-Wunused-function]
  513 | 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.constprop’:
../src/spvw.d:3883:13: warning: variable ‘count’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered]
 3883 |     var uintL count = p->argv_init_filecount;
      |             ^~~~~
../src/spvw.d:3901:36: warning: variable ‘fileptr’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered]
 3901 |       var const argv_compile_file_t* fileptr = &p->argv_compile_files[0];
      |                                    ^~~~~~~
../src/spvw.d:3902:15: warning: variable ‘count’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered]
 3902 |       var uintL count = p->argv_compile_filecount;
      |               ^~~~~
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -c spvwtabf.c
In file included from ../src/spvwtabf.d:8:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
In file included from ../src/spvwtabf.d:8:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16433:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16433:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16433:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -c spvwtabs.c
In file included from ../src/spvwtabs.d:8:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
In file included from ../src/spvwtabs.d:8:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16433:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16433:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16433:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -c spvwtabo.c
In file included from ../src/spvwtabo.d:8:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
In file included from ../src/spvwtabo.d:8:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16433:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16433:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16433:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -c eval.c
In file included from ../src/eval.d:7:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
In file included from ../src/eval.d:7:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16433:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16433:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16433:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   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 ‘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;
      |                 ^
../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) {
      |                        ~~~~~~~^~~~
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -c control.c
In file included from ../src/control.d:8:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
In file included from ../src/control.d:8:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16433:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16433:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16433:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -falign-functions=8 -c encoding.c
In file included from ../src/encoding.d:7:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
In file included from ../src/encoding.d:7:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16433:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16433:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16433:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   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: {
      |          ^~~~~~~~~~~~~~~~~~~
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -c pathname.c
In file included from ../src/pathname.d:9:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
In file included from ../src/pathname.d:9:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16433:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16433:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16433:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   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:8750:15: warning: ignoring return value of ‘nice’ declared with attribute ‘warn_unused_result’ [-Wunused-result]
 8750 |     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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -falign-functions=8 -c stream.c
In file included from ../src/stream.d:10:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
In file included from ../src/stream.d:10:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16433:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16433:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16433:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   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:4808:50: warning: unused parameter ‘tty_p’ [-Wunused-parameter]
 4808 | local listen_t listen_handle (Handle handle, bool tty_p, int *byte) {
../src/stream.d: In function ‘low_write_unbuffered_handle’:
../src/stream.d:5468:2: warning: label ‘restart_it’ defined but not used [-Wunused-label]
 5468 |  restart_it:
      |  ^~~~~~~~~~
../src/stream.d: In function ‘rd_ch_keyboard’:
../src/stream.d:8799:4: warning: label ‘next_char_is_read’ defined but not used [-Wunused-label]
 8799 |    next_char_is_read: { /* increase the buffer: */
      |    ^~~~~~~~~~~~~~~~~
../src/stream.d: In function ‘make_keyboard_stream’:
../src/stream.d:9158:7: warning: label ‘xterm’ defined but not used [-Wunused-label]
 9158 |       xterm:
      |       ^~~~~
../src/stream.d: In function ‘rd_ch_terminal3’:
../src/stream.d:9708:17: warning: the comparison will always evaluate as ‘true’ for the address of ‘prompt’ will never be NULL [-Waddress]
 9708 |       if (prompt!=NULL) {
      |                 ^~
../src/stream.d:9707:14: note: ‘prompt’ declared here
 9707 |       var DYNAMIC_ARRAY(prompt,char,Sbvector_length(lastline)+1); /* Prompt: last output line */
      |              ^~~~~~
../src/stream.d:9720:49: warning: the comparison will always evaluate as ‘false’ for the address of ‘prompt’ will never be NULL [-Waddress]
 9720 |       var char* line = strip_white(readline(prompt==NULL ? "" : prompt));
      |                                                 ^~
../src/stream.d:9707:14: note: ‘prompt’ declared here
 9707 |       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:13835:13: warning: this statement may fall through [-Wimplicit-fallthrough=]
13835 |         obj = TheStream(obj)->strm_twoway_socket_input;
      |         ~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
../src/stream.d:13837:7: note: here
13837 |       case strmtype_socket:
      |       ^~~~
../src/stream.d: In function ‘C_socket_stream_shutdown’:
../src/stream.d:14725:13: warning: this statement may fall through [-Wimplicit-fallthrough=]
14725 |             get_handle_and_mark(TheStream(STACK_0)->strm_twoway_socket_output,
      |             ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
14726 |                                 strmflags_wr_B,strm_ochannel_position);
      |                                 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
../src/stream.d:14728:11: note: here
14728 |           case DIRECTION_INPUT: case DIRECTION_INPUT_IMMUTABLE:
      |           ^~~~
../src/stream.d: In function ‘C_stream_external_format’:
../src/stream.d:15730:130: warning: this statement may fall through [-Wimplicit-fallthrough=]
15730 |         if (streamp(stream)) {
      |             ~~~~~~~~~~~~~~~~~~                                                                                                   ^                                                           
../src/stream.d:15734:7: note: here
15734 |       default:
      |       ^~~~~~~
../src/stream.d: In function ‘interactive_stream_p’:
../src/stream.d:15962:10: warning: this statement may fall through [-Wimplicit-fallthrough=]
15962 |       if (nullp(TheStream(stream)->strm_isatty))
      |          ^
../src/stream.d:15967:5: note: here
15967 |     case strmtype_keyboard:
      |     ^~~~
../src/stream.d: In function ‘C_read_byte_no_hang’:
../src/stream.d:17089:7: warning: this statement may fall through [-Wimplicit-fallthrough=]
17089 |       var object obj = read_byte(stream);
      |       ^
../src/stream.d:17096:5: note: here
17096 |     case LISTEN_ERROR: OS_filestream_error(STACK_2);
      |     ^~~~
../src/stream.d: At top level:
../src/stream.d:13304:11: warning: ‘sock_error_eof_p’ defined but not used [-Wunused-function]
13304 | local bool sock_error_eof_p (void) {
      |           ^~~~~~~~~~~~~~~~
../src/stream.d: In function ‘lisp_completion’:
../src/stream.d:9324:22: warning: variable ‘ptr1’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered]
 9324 |       var const chart* ptr1;
      |                      ^~~~
../src/stream.d: In function ‘handle_isset’:
../src/stream.d:14300:124: warning: ‘ret’ may be used uninitialized [-Wmaybe-uninitialized]
14300 |   if (!nullp(status_cons)) Cdr(status_cons) = ret;
      |                                                                                                                            ^    
../src/stream.d:14264:18: note: ‘ret’ was declared here
14264 |   var object sock, ret;
      |                  ^~~
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -falign-functions=8 -c socket.c
In file included from ../src/socket.d:44:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
In file included from ../src/socket.d:44:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16433:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16433:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16433:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -c io.c
In file included from ../src/io.d:9:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
In file included from ../src/io.d:9:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16433:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16433:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16433:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -falign-functions=8 -c funarg.c
In file included from ../src/funarg.d:7:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
In file included from ../src/funarg.d:7:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16433:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16433:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16433:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -c array.c
In file included from ../src/array.d:8:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
In file included from ../src/array.d:8:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16433:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16433:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16433:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   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_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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -O1 -falign-functions=8 -c hashtabl.c
In file included from ../src/hashtabl.d:8:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
In file included from ../src/hashtabl.d:8:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16433:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16433:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16433:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -c list.c
In file included from ../src/list.d:8:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
In file included from ../src/list.d:8:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16433:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16433:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16433:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -c package.c
In file included from ../src/package.d:8:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
In file included from ../src/package.d:8:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16433:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16433:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16433:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -c record.c
In file included from ../src/record.d:7:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
In file included from ../src/record.d:7:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16433:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16433:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16433:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -c weak.c
In file included from ../src/weak.d:6:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
In file included from ../src/weak.d:6:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16433:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16433:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16433:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -c sequence.c
In file included from ../src/sequence.d:7:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
In file included from ../src/sequence.d:7:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16433:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16433:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16433:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -c charstrg.c
In file included from ../src/charstrg.d:8:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
In file included from ../src/charstrg.d:8:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16433:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16433:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16433:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -c debug.c
In file included from ../src/debug.d:9:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
In file included from ../src/debug.d:9:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16433:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16433:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16433:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -c error.c
In file included from ../src/error.d:9:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
In file included from ../src/error.d:9:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16433:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16433:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16433:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -c misc.c
In file included from ../src/misc.d:7:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
In file included from ../src/misc.d:7:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16433:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16433:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16433:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -c time.c
In file included from ../src/time.d:8:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
In file included from ../src/time.d:8:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16433:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16433:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16433:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -falign-functions=8 -c predtype.c
In file included from ../src/predtype.d:8:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
In file included from ../src/predtype.d:8:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16433:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16433:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16433:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -c symbol.c
In file included from ../src/symbol.d:8:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
In file included from ../src/symbol.d:8:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16433:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16433:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16433:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -c lisparit.c
In file included from ../src/lisparit.d:8:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
In file included from ../src/lisparit.d:8:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16433:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16433:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16433:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   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:611:3924: warning: ‘__array[1]’ may be used uninitialized [-Wmaybe-uninitialized]
  611 |     I_abs_to_NUDS(a); # (abs a) als NUDS erzeugen
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    ^  
../src/intgcd.d:612:3924: warning: ‘__array[1]’ may be used uninitialized [-Wmaybe-uninitialized]
  612 |     I_abs_to_NUDS(b); # (abs b) 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=,);
      |         ^~~~~~~~~~~~~~~~~
../src/sfloat.d:660:82: warning: ‘I_to_NDS_room_649’ may be used uninitialized [-Wmaybe-uninitialized]
  660 |   DOCONSTTIMES(32/intDsize,NEXT_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=,);
      |         ^~~~~~~~~~~~~~~~~
../src/ffloat.d:771:82: warning: ‘I_to_NDS_room_760’ may be used uninitialized [-Wmaybe-uninitialized]
  771 |   DOCONSTTIMES(32/intDsize,NEXT_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.isra’:
../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:472:219: warning: array subscript -1 is outside array bounds of ‘uintD[65536]’ {aka ‘unsigned int[65536]’} [-Warray-bounds=]
  472 |                 DS_1_plus(midptr,len-xlen);
      |                                                                                                                                                                                                                           ^        
../src/intplus.d:444:264: note: at offset -4 into object of size [4, 262144] allocated by ‘__builtin_alloca’
  444 |           BN_to_NDS_1(y, MSDptr=,len=,LSDptr=); # NDS zu y bilden.
      |                                                                                                                                                                                                                                                                        ^                                     
../src/intplus.d:479:253: warning: array subscript -1 is outside array bounds of ‘uintD[65536]’ {aka ‘unsigned int[65536]’} [-Warray-bounds=]
  479 |                 DS_minus1_plus(midptr,len-xlen);
      |                                                                                                                                                                                                                                                             ^        
../src/intplus.d:444:264: note: at offset -4 into object of size [4, 262144] allocated by ‘__builtin_alloca’
  444 |           BN_to_NDS_1(y, MSDptr=,len=,LSDptr=); # NDS zu y bilden.
      |                                                                                                                                                                                                                                                                        ^                                     
../src/intplus.d:356:275: warning: array subscript -1 is outside array bounds of ‘uintD[65536]’ {aka ‘unsigned int[65536]’} [-Warray-bounds=]
  356 |                 DS_minus1_plus(midptr,len-pFN_maxlength);
      |                                                                                                                                                                                                                                                                                   ^        
../src/intplus.d:325:264: note: at offset -4 into object of size [4, 262144] allocated by ‘__builtin_alloca’
  325 |           BN_to_NDS_1(y, MSDptr=,len=,LSDptr=); # NDS zu y bilden.
      |                                                                                                                                                                                                                                                                        ^                                     
../src/intplus.d:349:241: warning: array subscript -1 is outside array bounds of ‘uintD[65536]’ {aka ‘unsigned int[65536]’} [-Warray-bounds=]
  349 |                 DS_1_plus(midptr,len-pFN_maxlength);
      |                                                                                                                                                                                                                                                 ^        
../src/intplus.d:325:264: note: at offset -4 into object of size [4, 262144] allocated by ‘__builtin_alloca’
  325 |           BN_to_NDS_1(y, MSDptr=,len=,LSDptr=); # NDS zu y bilden.
      |                                                                                                                                                                                                                                                                        ^                                     
../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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -c i18n.c
In file included from ../src/i18n.d:7:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
In file included from ../src/i18n.d:7:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16433:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16433:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16433:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -c foreign.c
In file included from ../src/foreign.d:7:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
In file included from ../src/foreign.d:7:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16433:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16433:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16433:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
../src/foreign.d: In function ‘foreign_pointer’:
../src/foreign.d:362:13: warning: this statement may fall through [-Wimplicit-fallthrough=]
  362 |         obj = TheFfunction(obj)->ff_address;
      |         ~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~            
../src/foreign.d:363:7: note: here
  363 |       case Rectype_Faddress: foreign_address:
      |       ^~~~
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -c unixaux.c
In file included from ../src/unixaux.d:7:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
In file included from ../src/unixaux.d:7:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16433:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16433:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16433:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES"' >> cflags.h.new
echo '#define LDFLAGS "-Wl,-z,relro -Wl,--as-needed   -Wl,-z,now -specs=/usr/lib/rpm/redhat/redhat-hardened-ld -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -Wl,--build-id=sha1 -specs=/usr/lib/rpm/redhat/redhat-package-notes "' >> 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/libffcall.so  /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl "' >> cflags.h.new
echo '#define CPPFLAGS "-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer "' >> 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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -c built.c
In file included from ../src/built.d:7:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
In file included from ../src/built.d:7:
../src/lispbibl.d: In function ‘schar’:
../src/lispbibl.d:16433:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                         ^    
../src/lispbibl.d:16433:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ^    
../src/lispbibl.d:16433:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs]
16433 |   SstringDispatch(string,X, {
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^    
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -DCOMPILE_STANDALONE -O1 -c genclisph.c
In file included from ../src/genclisph.d:7:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
gcc -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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
In file included from clisp-test.c:5:
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
In file included from ../src/lispbibl.d:331:
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
./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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -I. -c ../src/modules.c
In file included from ../src/modules.c:12:
./clisp.h: In function ‘check_byte_vector’:
./clisp.h:7019:157: warning: result of ‘10^2’ is 8; did you mean ‘1e2’? [-Wxor-used-as-pow]
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                             ^
      |                                                                                                                                                          --
      |                                                                                                                                                          1  e
./clisp.h:7019:154: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10)
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                          ^~
      |                                                                                                                                                          0xa
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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/po'
make[1]: Nothing to be done for 'all'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/po'
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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 foreign.o unixaux.o built.o modules.o -Wl,--whole-archive libgnu.a -Wl,--no-whole-archive  -lreadline -lncurses /usr/lib64/libffcall.so  /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+ (2024-07-04) <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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/room.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/room.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/functions.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/functions.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/trace.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/trace.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/cmacros.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/cmacros.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/compiler.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/compiler.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/defs2.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/defs2.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/loop.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/loop.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos.lisp ...
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-slots1.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-slots1.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-method1.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-method1.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-methcomb1.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-methcomb1.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun1.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun1.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun2a.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun2a.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-methcomb2.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-methcomb2.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun2b.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun2b.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-method2.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-method2.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun3.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun3.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-dependent.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-dependent.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun4.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun4.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-method3.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-method3.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-methcomb3.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-methcomb3.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-slots2.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-slots2.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-slotdef2.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-slotdef2.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-stablehash2.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-stablehash2.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-specializer2.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-specializer2.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-class4.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-class4.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-class5.lisp ...
WARNING:
DEFGENERIC: redefining function SHARED-INITIALIZE in /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-class5.lisp, was defined in top-level
WARNING:
DEFGENERIC: redefining function REINITIALIZE-INSTANCE in /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-class5.lisp, was defined in top-level
WARNING:
DEFGENERIC: redefining function INITIALIZE-INSTANCE in /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-class5.lisp, was defined in top-level;;  
Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-class5.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-slotdef3.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-slotdef3.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-specializer3.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-specializer3.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-class6.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-class6.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-method4.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-method4.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-methcomb4.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-methcomb4.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun5.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun5.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-print.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-print.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-custom.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-custom.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/documentation.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/documentation.lisp
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gray.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gray.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/fill-out.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/fill-out.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/disassem.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/disassem.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/condition.lisp ...
WARNING:
DEFUN/DEFMACRO: redefining function MUFFLE-CERRORS in /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/condition.lisp, was defined in C;; 
Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/condition.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/loadform.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/loadform.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gstream.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gstream.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/xcharin.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/xcharin.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/keyboard.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/keyboard.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/screen.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/screen.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/runprog.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/runprog.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/query.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/query.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/reploop.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/reploop.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/savemem.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/savemem.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/dribble.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/dribble.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/pprint.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/pprint.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/describe.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/describe.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/edit.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/edit.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clhs.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clhs.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/inspect.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/inspect.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/macros3.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/macros3.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/complete.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/complete.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/case-sensitive.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/case-sensitive.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/foreign1.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/foreign1.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/exporting.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/exporting.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/danish.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/danish.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/german.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/german.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/french.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/french.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/spanish.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/spanish.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/dutch.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/dutch.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/russian.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/russian.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/deprecated.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/deprecated.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/config.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/config.lisp
Bytes permanently allocated:            173,664
Bytes currently in use:              10,354,408
Bytes available until next GC:        5,177,204
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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/compiler.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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+ (2024-07-04) <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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/room.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/room.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/functions.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/functions.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/trace.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/trace.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/cmacros.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/cmacros.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/compiler.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/compiler.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/defs2.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/defs2.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/loop.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/loop.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos.lisp ...
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-slots1.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-slots1.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-method1.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-method1.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-methcomb1.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-methcomb1.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun1.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun1.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun2a.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun2a.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-methcomb2.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-methcomb2.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun2b.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun2b.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-method2.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-method2.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun3.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun3.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-dependent.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-dependent.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun4.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun4.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-method3.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-method3.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-methcomb3.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-methcomb3.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-slots2.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-slots2.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-slotdef2.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-slotdef2.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-stablehash2.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-stablehash2.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-specializer2.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-specializer2.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-class4.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-class4.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-class5.lisp ...
WARNING:
DEFGENERIC: redefining function SHARED-INITIALIZE in /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-class5.lisp, was defined in top-level
WARNING:
DEFGENERIC: redefining function REINITIALIZE-INSTANCE in /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-class5.lisp, was defined in top-level
WARNING:
DEFGENERIC: redefining function INITIALIZE-INSTANCE in /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-class5.lisp, was defined in top-level;;  
Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-class5.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-slotdef3.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-slotdef3.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-specializer3.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-specializer3.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-class6.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-class6.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-method4.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-method4.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-methcomb4.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-methcomb4.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun5.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun5.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-print.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-print.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-custom.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-custom.lisp
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/documentation.lisp ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/documentation.lisp
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gray.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gray.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/fill-out.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/fill-out.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/disassem.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/disassem.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/condition.lisp ...
WARNING:
DEFUN/DEFMACRO: redefining function MUFFLE-CERRORS in /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/condition.lisp, was defined in C;; 
Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/condition.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/loadform.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/loadform.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gstream.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gstream.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/xcharin.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/xcharin.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/keyboard.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/keyboard.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/screen.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/screen.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/runprog.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/runprog.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/query.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/query.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/reploop.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/reploop.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/savemem.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/savemem.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/dribble.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/dribble.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/pprint.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/pprint.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/describe.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/describe.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/edit.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/edit.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clhs.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clhs.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/inspect.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/inspect.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/macros3.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/macros3.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/complete.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/complete.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/case-sensitive.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/case-sensitive.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/foreign1.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/foreign1.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/exporting.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/exporting.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/danish.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/danish.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/german.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/german.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/french.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/french.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/spanish.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/spanish.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/dutch.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/dutch.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/russian.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/russian.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/deprecated.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/deprecated.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/config.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/config.lisp
Bytes permanently allocated:            173,664
Bytes currently in use:               8,902,616
Bytes available until next GC:        4,451,308
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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/init.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/defseq.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/backquote.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/defmacro.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/macros1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/macros2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/defs1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/lambdalist.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/places.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/floatprint.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/defpackage.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/type.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/subtypep.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-package.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-macros.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-class0.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-metaobject1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-slotdef1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-stablehash1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-specializer1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-class1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-class2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/defstruct.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/international.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/functions.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/trace.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/cmacros.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/defs2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/loop.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-stablehash2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-specializer2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-specializer3.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-class4.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-class5.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-class6.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-slotdef2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-slotdef3.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-slots1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-slots2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-method2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-method3.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-method4.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-methcomb1.lisp ...
WARNING: Redefining metaobject class #<STANDARD-CLASS METHOD-COMBINATION> has
         no effect.
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-methcomb2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-methcomb3.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-methcomb4.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun2a.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun2b.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun3.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun4.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun5.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-dependent.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-print.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-custom.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/documentation.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/fill-out.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/disassem.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/condition.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/loadform.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gstream.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/xcharin.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/keyboard.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/screen.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/runprog.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/query.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/reploop.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/dribble.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/complete.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/pprint.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/describe.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/room.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/edit.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/macros3.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clhs.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/inspect.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gray.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/case-sensitive.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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/foreign1.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/foreign1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/foreign1.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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/exporting.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/german.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/french.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/spanish.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/russian.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/danish.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/dutch.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/deprecated.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/config.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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+ (2024-07-04) <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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/room.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/room.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/functions.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/functions.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/trace.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/trace.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/cmacros.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/cmacros.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/compiler.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/compiler.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/defs2.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/defs2.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/loop.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/loop.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos.fas ...
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-slots1.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-slots1.fas
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-method1.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-method1.fas
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-methcomb1.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-methcomb1.fas
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-genfun1.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-genfun1.fas
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-genfun2a.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-genfun2a.fas
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-methcomb2.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-methcomb2.fas
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-genfun2b.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-genfun2b.fas
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-method2.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-method2.fas
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-genfun3.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-genfun3.fas
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-dependent.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-dependent.fas
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-genfun4.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-genfun4.fas
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-method3.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-method3.fas
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-methcomb3.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-methcomb3.fas
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-slots2.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-slots2.fas
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-slotdef2.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-slotdef2.fas
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-stablehash2.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-stablehash2.fas
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-specializer2.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-specializer2.fas
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-class4.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-class4.fas
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-class5.fas ...
WARNING:
DEFGENERIC: redefining function SHARED-INITIALIZE in /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-class5.fas, was defined in top-level
WARNING:
DEFGENERIC: redefining function REINITIALIZE-INSTANCE in /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-class5.fas, was defined in top-level
WARNING:
DEFGENERIC: redefining function INITIALIZE-INSTANCE in /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-class5.fas, was defined in top-level;;  Loaded file 
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-class5.fas
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-slotdef3.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-slotdef3.fas
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-specializer3.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-specializer3.fas
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-class6.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-class6.fas
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-method4.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-method4.fas
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-methcomb4.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-methcomb4.fas
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-genfun5.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-genfun5.fas
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-print.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-print.fas
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-custom.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-custom.fas
;;  Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/documentation.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/documentation.fas
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gray.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gray.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/fill-out.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/fill-out.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/disassem.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/disassem.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/condition.fas ...
WARNING:
DEFUN/DEFMACRO: redefining function MUFFLE-CERRORS in /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/condition.fas, was defined in C;; 
Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/condition.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/loadform.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/loadform.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gstream.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gstream.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/xcharin.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/xcharin.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/keyboard.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/keyboard.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/screen.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/screen.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/runprog.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/runprog.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/query.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/query.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/reploop.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/reploop.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/savemem.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/savemem.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dribble.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dribble.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/pprint.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/pprint.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/describe.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/describe.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/edit.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/edit.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clhs.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clhs.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/inspect.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/inspect.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/macros3.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/macros3.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/complete.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/complete.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/case-sensitive.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/case-sensitive.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/foreign1.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/foreign1.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/exporting.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/exporting.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/danish.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/danish.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/german.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/german.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/french.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/french.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/spanish.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/spanish.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dutch.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dutch.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/russian.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/russian.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/deprecated.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/deprecated.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/config.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/config.fas
;; Wrote the memory image into lispinit.mem (3,314,736 bytes)
Bytes permanently allocated:            173,664
Bytes currently in use:               3,137,304
Bytes available until next GC:        1,565,100
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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/assert.h:35,
                 from config.h:3048,
                 from ../src/lispbibl.d:331,
                 from gen-README.c:1:
/usr/include/features.h:422:4: warning: #warning _FORTIFY_SOURCE requires compiling with optimization (-O) [-Wcpp]
  422 | #  warning _FORTIFY_SOURCE requires compiling with optimization (-O)
      |    ^~~~~~~
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
./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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/assert.h:35,
                 from config.h:3048,
                 from ../src/lispbibl.d:331,
                 from gen-READMEde.c:1:
/usr/include/features.h:422:4: warning: #warning _FORTIFY_SOURCE requires compiling with optimization (-O) [-Wcpp]
  422 | #  warning _FORTIFY_SOURCE requires compiling with optimization (-O)
      |    ^~~~~~~
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
./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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/assert.h:35,
                 from config.h:3048,
                 from ../src/lispbibl.d:331,
                 from gen-READMEes.c:1:
/usr/include/features.h:422:4: warning: #warning _FORTIFY_SOURCE requires compiling with optimization (-O) [-Wcpp]
  422 | #  warning _FORTIFY_SOURCE requires compiling with optimization (-O)
      |    ^~~~~~~
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
./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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/assert.h:35,
                 from config.h:3048,
                 from ../src/lispbibl.d:331,
                 from gen-clisp1.c:1:
/usr/include/features.h:422:4: warning: #warning _FORTIFY_SOURCE requires compiling with optimization (-O) [-Wcpp]
  422 | #  warning _FORTIFY_SOURCE requires compiling with optimization (-O)
      |    ^~~~~~~
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
./gen-clisp1 | grep -v '^ *$' | sed -e "s,@PLATFORM@,riscv64-unknown-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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/assert.h:35,
                 from config.h:3048,
                 from ../src/lispbibl.d:331,
                 from gen-clisphtml.c:1:
/usr/include/features.h:422:4: warning: #warning _FORTIFY_SOURCE requires compiling with optimization (-O) [-Wcpp]
  422 | #  warning _FORTIFY_SOURCE requires compiling with optimization (-O)
      |    ^~~~~~~
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
./gen-clisphtml | sed -e "s,@PLATFORM@,riscv64-unknown-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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/assert.h:35,
                 from config.h:3048,
                 from ../src/lispbibl.d:331,
                 from gen-clisp-link1.c:1:
/usr/include/features.h:422:4: warning: #warning _FORTIFY_SOURCE requires compiling with optimization (-O) [-Wcpp]
  422 | #  warning _FORTIFY_SOURCE requires compiling with optimization (-O)
      |    ^~~~~~~
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
./gen-clisp-link1 | grep -v '^ *$' | sed -e "s,@PLATFORM@,riscv64-unknown-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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/assert.h:35,
                 from config.h:3048,
                 from ../src/lispbibl.d:331,
                 from gen-clisp-linkhtml.c:1:
/usr/include/features.h:422:4: warning: #warning _FORTIFY_SOURCE requires compiling with optimization (-O) [-Wcpp]
  422 | #  warning _FORTIFY_SOURCE requires compiling with optimization (-O)
      |    ^~~~~~~
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
./gen-clisp-linkhtml | sed -e "s,@PLATFORM@,riscv64-unknown-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 -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 foreign.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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/modules.c modules.c
cd linkkit && ln -s /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp.h clisp.h
cd linkkit && ln -s /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/utils/modprep.lisp modprep.lisp
(echo 'CC='"'"'gcc'"'" ;\
 echo 'CPPFLAGS='"'"'-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib'"'" ;\
 echo 'CFLAGS='"'"'-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/assert.h:35,
                 from config.h:3048,
                 from ../src/lispbibl.d:331,
                 from gen-clispc.c:1:
/usr/include/features.h:422:4: warning: #warning _FORTIFY_SOURCE requires compiling with optimization (-O) [-Wcpp]
  422 | #  warning _FORTIFY_SOURCE requires compiling with optimization (-O)
      |    ^~~~~~~
../src/lispbibl.d:1292:11: warning: "alignof" redefined
 1292 |   #define alignof(type)  offsetof(struct { char slot1; type slot2; }, slot2)
      |           ^~~~~~~
config.h:2971:12: note: this is the location of the previous definition
 2971 | #   define alignof _Alignof
      |            ^~~~~~~
./gen-clispc > clisp.c
rm -f gen-clispc.c gen-clispc
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /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+ (2024-07-04) (built 3934324800) (memory 3935307128)
checking for CLISP libdir... /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/
checking for CLISP linking set... /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/i18n'
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K boot  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/i18n/i18n.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/i18n/i18n.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/i18n/i18n.fas
0 errors, 0 warnings
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K boot  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -C /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/modprep /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/i18n/gettext.c ./
;; MODPREP: "/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/i18n/gettext.c" --> #P"gettext.m.c"
;; MODPREP: reading "/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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,793 bytes)
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC -I. -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit \
	-c gettext.m.c -o gettext.o
In file included from /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/i18n/gettext.c:8:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h: In function ‘check_byte_vector’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:157: warning: result of ‘10^2’ is 8; did you mean ‘1e2’? [-Wxor-used-as-pow]
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                             ^
      |                                                                                                                                                          --
      |                                                                                                                                                          1  e
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:154: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10)
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                          ^~
      |                                                                                                                                                          0xa
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/i18n/gettext.c: In function ‘bool_char_lconv’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/i18n/gettext.c:283:41: warning: comparison is always true due to limited range of data type [-Wtype-limits]
  283 |       pushSTACK(sfixnum(val));
      |                                         ^ 
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/i18n/gettext.c:286:20: warning: comparison is always true due to limited range of data type [-Wtype-limits]
  286 |       return sfixnum(val);
      |                    ^~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/i18n/gettext.c:279:19: warning: case label value is less than minimum value for type [-Wswitch-outside-range]
  279 |     case CHAR_MAX: case -1: return S(Kunspecific);
      |                   ^~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/i18n/gettext.c: In function ‘int_char_lconv’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/i18n/gettext.c:292:27: warning: comparison is always true due to limited range of data type [-Wtype-limits]
  292 |     default: return sfixnum(val);
      |                           ^~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/i18n/gettext.c:291:19: warning: case label value is less than minimum value for type [-Wswitch-outside-range]
  291 |     case CHAR_MAX: case -1: return S(Kunspecific);
      |                   ^~~~
ln -s /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/i18n/preload.lisp .
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /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+ (2024-07-04) (built 3934324800) (memory 3935307128)
checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/
checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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 sleep supports fractional seconds... (cached) yes
checking filesystem timestamp resolution... (cached) 0.01
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 xargs -n works... (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) riscv64-unknown-linux-gnu
checking host system type... (cached) riscv64-unknown-linux-gnu
checking for gcc option to support large files... (cached) none needed
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 egrep -e... (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... (cached) yes
checking for gid_t... (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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls'
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K boot  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -m 2MW -C /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/modprep /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/syscalls/calls.c ./
;; MODPREP: "/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/syscalls/calls.c" --> #P"calls.m.c"
;; MODPREP: reading "/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/syscalls/calls.c": 241,631 bytes, 4,661 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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/syscalls/calls.c"
         :5638: fixed object case ":ERROR_ITERATED_DATA_EXCEEDS_64k"
WARNING: 
         "/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/syscalls/calls.c"
         :5638: 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,531 bytes)
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC -I. -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit \
	-c calls.m.c -o calls.o
In file included from /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/syscalls/calls.c:20:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h: In function ‘check_byte_vector’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:157: warning: result of ‘10^2’ is 8; did you mean ‘1e2’? [-Wxor-used-as-pow]
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                             ^
      |                                                                                                                                                          --
      |                                                                                                                                                          1  e
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:154: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10)
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                          ^~
      |                                                                                                                                                          0xa
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/syscalls/calls.c: In function ‘C_subr_posix_file_size’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/syscalls/calls.c:466:49: warning: cast between incompatible function types from ‘int (*)(const char * restrict,  struct stat * restrict)’ to ‘void * (*)(const char *, void *)’ [-Wcast-function-type]
  466 |     if (ON_PNAMESTRING(STACK_0,stat,&buf))
      |                                                 ^
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/syscalls/calls.c: In function ‘C_subr_posix_file_stat’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/syscalls/calls.c:1944:51: warning: cast between incompatible function types from ‘int (*)(const char * restrict,  struct stat * restrict)’ to ‘void * (*)(const char *, void *)’ [-Wcast-function-type]
 1944 |       if (ON_PNAMESTRING(STACK_1,*(link_p ? &stat : &lstat),&buf))
      |                                                   ^
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/syscalls/calls.c:1986:2: warning: label ‘call_make_file_stat’ defined but not used [-Wunused-label]
 1986 |  call_make_file_stat:
      |  ^~~~~~~~~~~~~~~~~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/syscalls/calls.c: In function ‘C_subr_posix_set_file_stat’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/syscalls/calls.c:2139:51: warning: cast between incompatible function types from ‘int (*)(const char * restrict,  struct stat * restrict)’ to ‘void * (*)(const char *, void *)’ [-Wcast-function-type]
 2139 |       if (ON_PNAMESTRING(STACK_0,stat,&st)) OS_file_error(value1);
      |                                                   ^
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/syscalls/calls.c:2156:51: warning: cast between incompatible function types from ‘int (*)(const char * restrict,  struct stat * restrict)’ to ‘void * (*)(const char *, void *)’ [-Wcast-function-type]
 2156 |       if (ON_PNAMESTRING(STACK_1,stat,&st)) OS_file_error(value1);
      |                                                   ^
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/syscalls/calls.c: In function ‘C_subr_posix_stat_vfs’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/syscalls/calls.c:2392:51: warning: cast between incompatible function types from ‘int (*)(const char * restrict,  struct statvfs * restrict)’ to ‘void * (*)(const char *, void *)’ [-Wcast-function-type]
 2392 |       if (ON_PNAMESTRING(STACK_0,statvfs,&buf))
      |                                                   ^
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/syscalls/calls.c: In function ‘C_subr_os_file_owner’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/syscalls/calls.c:2647:98: warning: cast between incompatible function types from ‘const char * (*)(const char *)’ to ‘void * (*)(const char *, void *)’ [-Wcast-function-type]
 2647 |   VALUES1(safe_to_string((char*)ON_PNAMESTRING(popSTACK(),get_owner,NULL)));
      |                                                                                                  ^
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/syscalls/calls.c: In function ‘copy_attributes_and_close’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/syscalls/calls.c:2952:49: warning: cast between incompatible function types from ‘int (*)(const char *, const struct utimbuf *)’ to ‘void * (*)(const char *, void *)’ [-Wcast-function-type]
 2952 |     if (ON_PNAMESTRING(STACK_0,utime,&utb)) {
      |                                                 ^
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/syscalls/calls.c:2959:2: warning: label ‘close_success’ defined but not used [-Wunused-label]
 2959 |  close_success:
      |  ^~~~~~~~~~~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/syscalls/calls.c: In function ‘C_subr_posix__25sethostid’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/syscalls/calls.c:1848:34: warning: ignoring return value of ‘sethostid’ declared with attribute ‘warn_unused_result’ [-Wunused-result]
 1848 |   begin_system_call(); errno = 0; sethostid(hid); e = errno; end_system_call();
      |                                  ^~~~~~~~~~~~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K boot  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/syscalls/posix.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/syscalls/posix.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/syscalls/preload.lisp .
ln -s /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/syscalls/datemsk .
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /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+ (2024-07-04) (built 3934324800) (memory 3935307128)
checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/
checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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 sleep supports fractional seconds... (cached) yes
checking filesystem timestamp resolution... (cached) 0.01
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 xargs -n works... (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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/regexp'
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K boot  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/regexp/regexp.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/regexp/regexp.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K boot  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -C /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/modprep /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/regexp/regexi.c ./
;; MODPREP: "/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/regexp/regexi.c" --> #P"regexi.m.c"
;; MODPREP: reading "/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/regexp/regexi.c": 6,375 bytes, 161 lines
;; MODPREP: 11 objects, 3 DEFUNs
;; packages: ("REGEXP")
MODPREP: wrote regexi.m.c (11,402 bytes)
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC -I. -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit \
	-c regexi.m.c -o regexi.o
In file included from /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/regexp/regexi.c:7:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h: In function ‘check_byte_vector’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:157: warning: result of ‘10^2’ is 8; did you mean ‘1e2’? [-Wxor-used-as-pow]
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                             ^
      |                                                                                                                                                          --
      |                                                                                                                                                          1  e
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:154: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10)
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                          ^~
      |                                                                                                                                                          0xa
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/regexp/regexi.c: In function ‘C_subr_regexp_regexp_exec’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/regexp/regexi.c:120: note: here
ln -s /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/regexp/preload.lisp .
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/regexp'
mkdir -p readline
m=`cd ../modules/readline; pwd`; \
if test -f $m/configure && { test ! -f readline/config.status || test -n "`find $m/configure -prune -newer readline/config.status`"; } ; then ( cd readline ;\
    cache=`echo readline/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \
    if test -f ${cache} ; then \
      . ${cache}; \
      if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \
      if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \
      if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \
      if test "${ac_cv_env_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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 readline/Makefile || test -n "`find $m/Makefile -prune -newer readline/Makefile`"; } ; then \
  sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > readline/Makefile ; \
fi ; \
CLISP="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K boot  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd readline ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /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+ (2024-07-04) (built 3934324800) (memory 3935307128)
checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/
checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build
configure: ** Readline (Common)
checking for CLISP... (cached) yes
checking for FFI in 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: ** Readline (Headers, Variables & Functions)
checking for library containing tgetent... (cached) -lncurses
checking build system type... (cached) riscv64-unknown-linux-gnu
checking host system type... (cached) riscv64-unknown-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 egrep -e... (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 for gcc options needed to detect all undeclared functions... (cached) none needed
checking for readline/readline.h... (cached) yes
checking for readline... (cached) yes
checking for rl_filename_completion_function... (cached) yes
checking for filename_completion_function declaration... (cached) extern char* rl_filename_completion_function(const char*, int);
checking whether rl_already_prompted is declared... (cached) yes
checking whether rl_readline_name is declared... (cached) yes
checking whether rl_gnu_readline_p is declared... (cached) yes
checking whether rl_deprep_term_function is declared... (cached) yes
checking for readline 4.1 or newer... found GNU readline 4.1 or newer
checking whether rl_library_version is declared... yes
checking whether rl_readline_version is declared... yes
checking whether rl_editing_mode is declared... yes
checking whether rl_insert_mode is declared... yes
checking whether rl_readline_state is declared... yes
checking whether rl_line_buffer is declared... yes
checking whether rl_point is declared... yes
checking whether rl_end is declared... yes
checking whether rl_mark is declared... yes
checking whether rl_done is declared... yes
checking whether rl_num_chars_to_read is declared... yes
checking whether rl_pending_input is declared... yes
checking whether rl_dispatching is declared... yes
checking whether rl_erase_empty_line is declared... yes
checking whether rl_prompt is declared... yes
checking whether rl_terminal_name is declared... yes
checking whether rl_display_prompt is declared... yes
checking whether rl_instream is declared... yes
checking whether rl_outstream is declared... yes
checking whether rl_last_func is declared... yes
checking whether rl_startup_hook is declared... yes
checking whether rl_pre_input_hook is declared... yes
checking whether rl_prefer_env_winsize is declared... yes
checking whether rl_gnu_readline_p is declared... (cached) yes
checking whether rl_readline_name is declared... (cached) yes
checking whether rl_explicit_arg is declared... yes
checking whether rl_numeric_arg is declared... yes
checking whether rl_executing_macro is declared... yes
checking whether rl_completion_type is declared... yes
checking whether rl_filename_quoting_desired is declared... yes
checking whether rl_attempted_completion_over is declared... yes
checking whether rl_completion_invoking_key is declared... yes
checking whether rl_completion_query_items is declared... yes
checking whether rl_completion_append_character is declared... yes
checking whether rl_completion_suppress_append is declared... yes
checking whether rl_completion_quote_character is declared... yes
checking whether rl_completion_found_quote is declared... yes
checking whether rl_completion_suppress_quote is declared... yes
checking whether rl_sort_completion_matches is declared... yes
checking whether rl_completion_mark_symlink_dirs is declared... yes
checking whether rl_ignore_completion_duplicates is declared... yes
checking whether rl_inhibit_completion is declared... yes
checking whether rl_event_hook is declared... yes
checking whether rl_getc_function is declared... yes
checking whether rl_input_available_hook is declared... yes
checking whether rl_free_keymap is declared... yes
checking for rl_set_prompt... yes
checking for rl_initialize... yes
checking for rl_read_init_file... yes
checking for rl_add_defun... yes
checking for rl_make_bare_keymap... yes
checking for rl_copy_keymap... yes
checking for rl_make_keymap... yes
checking for rl_discard_keymap... yes
checking for rl_get_keymap... yes
checking for rl_set_keymap... yes
checking for rl_get_keymap_by_name... yes
checking for rl_bind_key... yes
checking for rl_bind_key_in_map... yes
checking for rl_bind_key_if_unbound... yes
checking for rl_bind_key_if_unbound_in_map... yes
checking for rl_unbind_key... yes
checking for rl_unbind_key_in_map... yes
checking for rl_unbind_function_in_map... yes
checking for rl_unbind_command_in_map... yes
checking for rl_bind_keyseq... yes
checking for rl_bind_keyseq_in_map... yes
checking for rl_bind_keyseq_if_unbound... yes
checking for rl_bind_keyseq_if_unbound_in_map... yes
checking for rl_generic_bind... yes
checking for rl_parse_and_bind... yes
checking for rl_named_function... yes
checking for rl_function_of_keyseq... yes
checking for rl_invoking_keyseqs... yes
checking for rl_invoking_keyseqs_in_map... yes
checking for rl_function_dumper... yes
checking for rl_list_funmap_names... yes
checking for rl_funmap_names... yes
checking for rl_add_funmap_entry... yes
checking for rl_begin_undo_group... yes
checking for rl_end_undo_group... yes
checking for rl_add_undo... yes
checking for rl_free_undo_list... yes
checking for rl_do_undo... yes
checking for rl_modifying... yes
checking for rl_redisplay... yes
checking for rl_forced_update_display... yes
checking for rl_on_new_line... yes
checking for rl_on_new_line_with_prompt... yes
checking for rl_clear_visible_line... yes
checking for rl_reset_line_state... yes
checking for rl_crlf... yes
checking for rl_show_char... yes
checking for rl_message... yes
checking for rl_clear_message... yes
checking for rl_save_prompt... yes
checking for rl_restore_prompt... yes
checking for rl_expand_prompt... yes
checking for rl_insert_text... yes
checking for rl_delete_text... yes
checking for rl_copy_text... yes
checking for rl_kill_text... yes
checking for rl_push_macro_input... yes
checking for rl_read_key... yes
checking for rl_getc... yes
checking for rl_stuff_char... yes
checking for rl_execute_next... yes
checking for rl_clear_pending_input... yes
checking for rl_set_keyboard_input_timeout... yes
checking for rl_prep_terminal... yes
checking for rl_deprep_terminal... yes
checking for rl_tty_set_default_bindings... yes
checking for rl_reset_terminal... yes
checking for rl_replace_line... yes
checking for rl_extend_line_buffer... yes
checking for rl_ding... yes
checking for rl_alphabetic... yes
checking for rl_free... yes
checking for rl_display_match_list... yes
checking for rl_variable_value... yes
checking for rl_variable_bind... yes
checking for rl_macro_dumper... yes
checking for rl_variable_dumper... yes
checking for rl_echo_signal_char... yes
checking for rl_set_paren_blink_timeout... yes
checking for rl_clear_history... yes
checking for rl_get_termcap... yes
checking for rl_resize_terminal... yes
checking for rl_set_screen_size... yes
checking for rl_get_screen_size... yes
checking for rl_reset_screen_size... yes
checking for rl_callback_handler_install... yes
checking for rl_callback_read_char... yes
checking for rl_callback_handler_remove... yes
checking for using_history... yes
checking for add_history... yes
checking for clear_history... yes
checking for stifle_history... yes
checking for unstifle_history... yes
checking for history_is_stifled... yes
checking for where_history... yes
checking for history_total_bytes... yes
checking for history_set_pos... yes
checking for history_search... yes
checking for history_search_prefix... yes
checking for history_search_pos... yes
checking for read_history... yes
checking for read_history_range... yes
checking for write_history... yes
checking for append_history... yes
checking for history_truncate_file... yes
checking for tilde_expand... yes
checking for rl_free_keymap... yes
configure: ** Readline (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: ** Readline (Done)
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/readline'
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K boot  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/readline/readline.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/readline/readline.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/readline/readline.fas
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/readline/readline.c
0 errors, 0 warnings
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit -c readline.c
In file included from readline.c:1:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h: In function ‘check_byte_vector’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:157: warning: result of ‘10^2’ is 8; did you mean ‘1e2’? [-Wxor-used-as-pow]
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                             ^
      |                                                                                                                                                          --
      |                                                                                                                                                          1  e
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:154: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10)
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                          ^~
      |                                                                                                                                                          0xa
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/readline'
rm -rf base
MAKE=make CLISP="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K boot  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" with_dynamic_modules=no ./clisp-link add boot base i18n syscalls regexp readline || (rm -rf base ; exit 1)
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/i18n'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/i18n'
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls'
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/regexp'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/regexp'
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/readline'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/readline'
gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit -c modules.c
In file included from modules.c:12:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h: In function ‘check_byte_vector’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:157: warning: result of ‘10^2’ is 8; did you mean ‘1e2’? [-Wxor-used-as-pow]
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                             ^
      |                                                                                                                                                          --
      |                                                                                                                                                          1  e
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:154: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10)
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                          ^~
      |                                                                                                                                                          0xa
gcc -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic modules.o readline.o -lreadline -lncurses regexi.o calls.o -lm gettext.o lisp.a -Wl,--whole-archive libgnu.a -Wl,--no-whole-archive -lreadline -lncurses /usr/lib64/libffcall.so /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,306,960 bytes)
Bytes permanently allocated:            173,664
Bytes currently in use:               3,130,448
Bytes available until next GC:        1,560,292
3130448 ;
1560292 ;
173664 ;
1 ;
249112 ;
28556
base/lisp.run -B . -M base/lispinit.mem -norc -q -i i18n/i18n -i syscalls/posix -i regexp/regexp -i readline/readline -x (saveinitmem "base/lispinit.mem")
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/i18n/i18n.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/i18n/i18n.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls/posix.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls/posix.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/regexp/regexp.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/regexp/regexp.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/readline/readline.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/readline/readline.fas
;; Wrote the memory image into base/lispinit.mem (3,788,936 bytes)
Bytes permanently allocated:            180,160
Bytes currently in use:               3,600,672
Bytes available until next GC:        1,795,404
3600672 ;
1795404 ;
180160 ;
2 ;
1561040 ;
69489
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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/asdf'
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -m 2MW -c /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/asdf/asdf.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/asdf/asdf.fas
0 errors, 3 warnings
ln -s /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/asdf/link.sh .
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/asdf'
mkdir -p berkeley-db
m=`cd ../modules/berkeley-db; pwd`; \
if test -f $m/configure && { test ! -f berkeley-db/config.status || test -n "`find $m/configure -prune -newer berkeley-db/config.status`"; } ; then ( cd berkeley-db ;\
    cache=`echo berkeley-db/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \
    if test -f ${cache} ; then \
      . ${cache}; \
      if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \
      if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \
      if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \
      if test "${ac_cv_env_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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 berkeley-db/Makefile || test -n "`find $m/Makefile -prune -newer berkeley-db/Makefile`"; } ; then \
  sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > berkeley-db/Makefile ; \
fi ; \
CLISP="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd berkeley-db ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /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+ (2024-07-04) (built 3934324800) (memory 3935307128)
checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/
checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build
configure: ** Berkeley-DB (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) riscv64-unknown-linux-gnu
checking host system type... (cached) riscv64-unknown-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 egrep -e... (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 libdb... /usr/lib64/libdb.so
checking for gcc option to support large files... (cached) none needed
configure: ** Berkeley-DB (Headers)
checking for db.h... yes
configure: ** Berkeley-DB (Functions)
checking for library containing db_env_create... none required
checking for DB_ENV.get_home... yes
checking for DB_ENV.set_msgcall... yes
checking size of db_recno_t... 4
checking whether DB->stat() accepts TXNid... yes
checking whether DB_ENV->set_errcall() accepts DBE... yes
checking whether DB->get_transactional() accepts just 1 argument... yes
checking for DB_LOCK_STAT.st_nconflicts... no
checking for DB_LOCK_STAT.st_lock_wait... yes
checking for DB_LOCK_STAT.st_nnowaits... no
checking for DB_LOCK_STAT.st_lock_nowait... yes
checking for DB_ENV.mutex_set_tas_spins... yes
checking for DB_ENV.mutex_get_tas_spins... yes
checking for DB_ENV.mutex_set_align... yes
checking for DB_ENV.mutex_get_align... yes
checking for gcc options needed to detect all undeclared functions... (cached) none needed
checking whether DB_LOCK_READ_UNCOMMITTED is declared... yes
checking for DB_ENV.log_set_config... yes
checking for DB_ENV.get_intermediate_dir_mode... yes
checking for DB_TXN_ACTIVE.gid... yes
checking for DB_TXN_ACTIVE.status... yes
checking for db_full_version... yes
checking for DB.compact... yes
configure: ** Berkeley-DB (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: ** Berkeley-DB (Done)
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/berkeley-db'
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -C /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/modprep /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/berkeley-db/bdb.c ./
;; MODPREP: "/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/berkeley-db/bdb.c" --> #P"bdb.m.c"
;; MODPREP: reading "/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/berkeley-db/bdb.c": 108,554 bytes, 2,714 lines
;; MODPREP: 285 objects, 62 DEFUNs, 1 DEFVAR (1 init)
;; packages: ("BDB")
MODPREP: wrote bdb.m.c (211,512 bytes)
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC -I. -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit \
	-c bdb.m.c -o bdb.o
In file included from /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/berkeley-db/bdb.c:6:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h: In function ‘check_byte_vector’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:157: warning: result of ‘10^2’ is 8; did you mean ‘1e2’? [-Wxor-used-as-pow]
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                             ^
      |                                                                                                                                                          --
      |                                                                                                                                                          1  e
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:154: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10)
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                          ^~
      |                                                                                                                                                          0xa
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/berkeley-db/bdb.c: In function ‘error_callback’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/berkeley-db/bdb.c:150:43: warning: unused parameter ‘dbe’ [-Wunused-parameter]
  150 | static void error_callback (const DB_ENV* dbe,
      |                             ~~~~~~~~~~~~~~^~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/berkeley-db/bdb.c: In function ‘check_dbt_object’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/berkeley-db/bdb.c:1268:108: warning: result of ‘10^2’ is 8; did you mean ‘1e2’? [-Wxor-used-as-pow]
 1268 |   while (!bit_vector_p(Atype_8Bit,obj) && !stringp(obj)
      |                                                                                                            ^
      |                                                                                                         --
      |                                                                                                         1  e
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/berkeley-db/bdb.c:1268:105: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10)
 1268 |   while (!bit_vector_p(Atype_8Bit,obj) && !stringp(obj)
      |                                                                                                         ^ 
      |                                                                                                         0xa
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/berkeley-db/bdb.c: In function ‘fill_dbt’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/berkeley-db/bdb.c:1327:111: warning: result of ‘10^2’ is 8; did you mean ‘1e2’? [-Wxor-used-as-pow]
 1327 |   } else if (bit_vector_p(Atype_8Bit,obj)) {
      |                                                                                                               ^
      |                                                                                                            --
      |                                                                                                            1  e
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/berkeley-db/bdb.c:1327:108: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10)
 1327 |   } else if (bit_vector_p(Atype_8Bit,obj)) {
      |                                                                                                            ^ 
      |                                                                                                            0xa
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/berkeley-db/bdb.c: In function ‘C_subr_bdb_dbe_get_options’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/berkeley-db/bdb.c:1175:103: warning: this statement may fall through [-Wimplicit-fallthrough=]
 1175 |       case DB_ENCRYPT_AES: VALUES1(`:ENCRYPT-AES`);
      |                                                                                                       ^  
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/berkeley-db/bdb.c:1176:7: note: here
 1176 |       case 0: VALUES1(NIL);
      |       ^~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/berkeley-db/bdb.c:1176:97: warning: this statement may fall through [-Wimplicit-fallthrough=]
 1176 |       case 0: VALUES1(NIL);
      |                                                                                                 ^  
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/berkeley-db/bdb.c:1177:7: note: here
 1177 |       default: NOTREACHED;
      |       ^~~~~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/berkeley-db/bdb.c: In function ‘dbt_to_object’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/berkeley-db/bdb.c:1384:10: warning: this statement may fall through [-Wimplicit-fallthrough=]
 1384 |       if (key_type == -1) {
      |          ^
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/berkeley-db/bdb.c:1409:5: note: here
 1409 |     default: NOTREACHED;
      |     ^~~~~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/berkeley-db/bdb.c: In function ‘C_subr_bdb_db_get_options’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/berkeley-db/bdb.c:2119:103: warning: this statement may fall through [-Wimplicit-fallthrough=]
 2119 |       case DB_ENCRYPT_AES: VALUES1(`:ENCRYPT-AES`);
      |                                                                                                       ^  
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/berkeley-db/bdb.c:2120:7: note: here
 2120 |       case 0: VALUES1(NIL);
      |       ^~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/berkeley-db/bdb.c:2120:97: warning: this statement may fall through [-Wimplicit-fallthrough=]
 2120 |       case 0: VALUES1(NIL);
      |                                                                                                 ^  
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/berkeley-db/bdb.c:2121:7: note: here
 2121 |       default: NOTREACHED;
      |       ^~~~~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/berkeley-db/dbi.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/berkeley-db/dbi.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/berkeley-db/dbi.fas
The following functions were used but not defined:
 BDB:DBE-CLOSE BDB:DB-CLOSE BDB:DBC-CLOSE BDB:LOCK-CLOSE BDB:LOGC-CLOSE
 BDB:TXN-ABORT BDB:TXN-COMMIT
0 errors, 0 warnings
ln -s /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/berkeley-db/preload.lisp .
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/berkeley-db'
mkdir -p bindings/glibc
m=`cd ../modules/bindings/glibc; pwd`; \
if test -f $m/configure && { test ! -f bindings/glibc/config.status || test -n "`find $m/configure -prune -newer bindings/glibc/config.status`"; } ; then ( cd bindings/glibc ;\
    cache=`echo bindings/glibc/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \
    if test -f ${cache} ; then \
      . ${cache}; \
      if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \
      if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \
      if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \
      if test "${ac_cv_env_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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 bindings/glibc/Makefile || test -n "`find $m/Makefile -prune -newer bindings/glibc/Makefile`"; } ; then \
  sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > bindings/glibc/Makefile ; \
fi ; \
CLISP="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd bindings/glibc ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc'
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/bindings/glibc/linux.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/bindings/glibc/linux.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/linux.fas
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/linux.c
0 errors, 0 warnings
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC -I$(/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -b)/linkkit -c linux.c
In file included from linux.c:1:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h: In function ‘check_byte_vector’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:157: warning: result of ‘10^2’ is 8; did you mean ‘1e2’? [-Wxor-used-as-pow]
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                             ^
      |                                                                                                                                                          --
      |                                                                                                                                                          1  e
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:154: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10)
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                          ^~
      |                                                                                                                                                          0xa
linux.c: In function ‘module__linux__init_function_2’:
linux.c:979:3: warning: ‘readdir_r’ is deprecated [-Wdeprecated-declarations]
  979 |   register_foreign_function((void*)&readdir_r,"readdir_r",1024);
      |   ^~~~~~~~~~~~~~~~~~~~~~~~~
In file included from linux.c:23:
/usr/include/dirent.h:185:12: note: declared here
  185 | extern int readdir_r (DIR *__restrict __dirp,
      |            ^~~~~~~~~
linux.c:980:3: warning: ‘readdir64_r’ is deprecated [-Wdeprecated-declarations]
  980 |   register_foreign_function((void*)&readdir64_r,"readdir64_r",1024);
      |   ^~~~~~~~~~~~~~~~~~~~~~~~~
/usr/include/dirent.h:203:12: note: declared here
  203 | extern int readdir64_r (DIR *__restrict __dirp,
      |            ^~~~~~~~~~~
linux.c:1033:3: warning: ‘sigpause’ is deprecated: Use the sigsuspend function instead [-Wdeprecated-declarations]
 1033 |   register_foreign_function((void*)&sigpause,"sigpause",1024);
      |   ^~~~~~~~~~~~~~~~~~~~~~~~~
In file included from /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib/signal.h:52,
                 from /usr/include/sys/wait.h:36,
                 from /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib/sys/wait.h:28,
                 from linux.c:17:
/usr/include/signal.h:151:12: note: declared here
  151 | extern int sigpause (int __sig) __asm__ ("__xpg_sigpause")
      |            ^~~~~~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/bindings/glibc/wrap.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/bindings/glibc/wrap.lisp ...
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/linux.lib ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/linux.lib
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/wrap.fas
0 errors, 0 warnings
ln -s /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/bindings/glibc/link.sh .
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc'
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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /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+ (2024-07-04) (built 3934324800) (memory 3935307128)
checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/
checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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 build system type... (cached) riscv64-unknown-linux-gnu
checking host system type... (cached) riscv64-unknown-linux-gnu
checking for gcc option to support large files... (cached) none needed
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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clx/new-clx'
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -i /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx-preload.lisp -c /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.lisp -o ./
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx-preload.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx-preload.lisp
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -i /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx-preload.lisp -c /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/image.lisp -o ./
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx-preload.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx-preload.lisp
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/image.lisp ...
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clx/new-clx/clx.lib
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -i /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx-preload.lisp -c /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/resource.lisp -o ./
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx-preload.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx-preload.lisp
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/resource.lisp ...
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clx/new-clx/clx.lib
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f > genclx.c
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC -DWANT_XPM=1 -DWANT_XSHAPE=1 -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit genclx.c -o genclx
In file included from genclx.c:1:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h: In function ‘check_byte_vector’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:157: warning: result of ‘10^2’ is 8; did you mean ‘1e2’? [-Wxor-used-as-pow]
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                             ^
      |                                                                                                                                                          --
      |                                                                                                                                                          1  e
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:154: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10)
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                          ^~
      |                                                                                                                                                          0xa
./genclx -l -o clx.d > clx.d
rm -f genclx.c
rm -f genclx
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -C /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/modprep clx.d clx.c
;; MODPREP: "clx.d" --> #P"clx.c"
;; MODPREP: reading "clx.d": 358,290 bytes, 8,806 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":5416:XLIB:CHANGE-PROPERTY: emulating signature (5 0 &KEY)
WARNING: "clx.d":6171:XLIB:QUEUE-EVENT: emulating signature (2 0
         &ALLOW-OTHER-KEYS)
WARNING: "clx.d":6267:XLIB:SEND-EVENT: emulating signature (3 0
         &ALLOW-OTHER-KEYS)
WARNING: "clx.d":6413:XLIB:WARP-POINTER-IF-INSIDE: emulating signature (6 2)
WARNING: "clx.d":6433: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 (604,081 bytes)
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit -c clx.c
In file included from /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f:414:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h: In function ‘check_byte_vector’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:157: warning: result of ‘10^2’ is 8; did you mean ‘1e2’? [-Wxor-used-as-pow]
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                             ^
      |                                                                                                                                                          --
      |                                                                                                                                                          1  e
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:154: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10)
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                          ^~
      |                                                                                                                                                          0xa
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f: In function ‘get_color’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f:1652:33: warning: unused parameter ‘dpy’ [-Wunused-parameter]
 1652 | {
      |                                 ^  
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_make_event_mask’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_make_state_mask’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_open_display’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_set_gcontext_display’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_display_trace’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_copy_gcontext_components’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_copy_area’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f:3608:131: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 3608 | {
      |                                                                                                                                   ^                
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_copy_plane’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_draw_line’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f:3697:131: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 3697 | {
      |                                                                                                                                   ^                
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_draw_rectangle’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f:3783:141: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 3783 | {
      |                                                                                                                                             ^                
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_draw_arc’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_draw_glyph’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f:4031:133: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 4031 | { NOTIMPLEMENTED; }
      |                                                                                                                                     ^                
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_draw_glyphs’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f:4038:135: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 4038 | {
      |                                                                                                                                       ^                
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_draw_image_glyph’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f:4044:145: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 4044 | { NOTIMPLEMENTED; }
      |                                                                                                                                                 ^                
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_draw_image_glyphs’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f:4049:147: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 4049 | {
      |                                                                                                                                                   ^                
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_put_image’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f:4368:22: warning: variable ‘bg’ set but not used [-Wunused-but-set-variable]
 4368 | 
      |                      ^ 
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f:4368:19: warning: variable ‘fg’ set but not used [-Wunused-but-set-variable]
 4368 | 
      |                   ^ 
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_text_extents’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f:4743:7: warning: unused variable ‘start’ [-Wunused-variable]
 4743 |   int start = get_uint16_0 (STACK_2);
      |       ^~~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_text_width’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f:4791:9: warning: unused variable ‘start’ [-Wunused-variable]
 4791 |     int start = get_uint16_0 (STACK_2);
      |         ^~~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f:4813:9: warning: unused variable ‘end’ [-Wunused-variable]
 4813 |     int end   = missingp(STACK_1) ? vector_length (STACK_3) : get_uint16 (STACK_1);
      |         ^~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f:4812:9: warning: unused variable ‘start’ [-Wunused-variable]
 4812 |     int start = get_uint16_0 (STACK_2);
      |         ^~~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_change_property’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f:5416:143: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 5416 | {
      |                                                                                                                                               ^                
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_queue_event’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f:6171:135: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 6171 | {
      |                                                                                                                                       ^                
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_send_event’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f:6267:133: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 6267 | {
      |                                                                                                                                     ^                
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_global_pointer_position’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f:6340:7: warning: variable ‘same_screen_p’ set but not used [-Wunused-but-set-variable]
 6340 | 
      |       ^            
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_warp_pointer_if_inside’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f:6413:157: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 6413 | {
      |                                                                                                                                                             ^                
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_warp_pointer_relative_if_inside’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f:6433:175: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 6433 | {
      |                                                                                                                                                                               ^                
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_set_pointer_mapping’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f:7008:7: warning: variable ‘result’ set but not used [-Wunused-but-set-variable]
 7008 |   int result;
      |       ^~~~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f: In function ‘keycode2keysym’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f:7253:3: warning: ‘XKeycodeToKeysym’ is deprecated [-Wdeprecated-declarations]
 7253 |   /* There is a comment in MIT-CLX, translate.lisp, which I want to quote here:
      |   ^~
In file included from /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f:415:
/usr/include/X11/Xlib.h:1683:15: note: declared here
 1683 | extern KeySym XKeycodeToKeysym(
      |               ^~~~~~~~~~~~~~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f:7253:2: warning: ‘XKeycodeToKeysym’ is deprecated [-Wdeprecated-declarations]
 7253 |   /* There is a comment in MIT-CLX, translate.lisp, which I want to quote here:
      |  ^~
/usr/include/X11/Xlib.h:1683:15: note: declared here
 1683 | extern KeySym XKeycodeToKeysym(
      |               ^~~~~~~~~~~~~~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_keysym__3Echaracter’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f:7364:12: warning: variable ‘dpy’ set but not used [-Wunused-but-set-variable]
 7364 |   KeySym keysym;
      |            ^~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_keysym’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f:7413:125: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter]
 7413 |   if (uint8_p(STACK_(argcount))) {
      |                                                                                                                             ^                
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_default_keysym_index’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f:8083:12: warning: unused variable ‘dpy’ [-Wunused-variable]
 8083 |   Display *dpy = pop_display();
      |            ^~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f:8082:11: warning: unused variable ‘keycode’ [-Wunused-variable]
 8082 |   KeyCode keycode = get_uint8(popSTACK());
      |           ^~~~~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f:8081:7: warning: unused variable ‘state’ [-Wunused-variable]
 8081 |   int state = get_uint32(popSTACK());
      |       ^~~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.f: At top level:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx-preload.lisp .
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clx/new-clx'
mkdir -p dbus
m=`cd ../modules/dbus; pwd`; \
if test -f $m/configure && { test ! -f dbus/config.status || test -n "`find $m/configure -prune -newer dbus/config.status`"; } ; then ( cd dbus ;\
    cache=`echo dbus/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \
    if test -f ${cache} ; then \
      . ${cache}; \
      if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \
      if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \
      if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \
      if test "${ac_cv_env_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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 dbus/Makefile || test -n "`find $m/Makefile -prune -newer dbus/Makefile`"; } ; then \
  sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > dbus/Makefile ; \
fi ; \
CLISP="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd dbus ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /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+ (2024-07-04) (built 3934324800) (memory 3935307128)
checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/
checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build
configure: ** Dbus (Common)
checking for CLISP... (cached) yes
checking for FFI in 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
configure: ** Dbus (Headers and Libraries)
checking for pkg-config... /usr/bin/pkg-config
checking pkg-config is at least version 0.9.0... yes
checking for DBUS... yes
checking for dbus_int64_t... yes
checking for dbus_int32_t... yes
checking for dbus_uint32_t... yes
checking for dbus_int16_t... yes
checking for dbus_unichar_t... yes
checking for dbus_bool_t... yes
configure: ** Dbus (Functions)
checking for dbus_error_init... yes
checking for dbus_error_free... yes
checking for dbus_set_error... yes
checking for dbus_set_error_const... yes
checking for dbus_move_error... yes
checking for dbus_error_has_name... yes
checking for dbus_error_is_set... yes
checking for dbus_parse_address... yes
checking for dbus_address_entry_get_value... yes
checking for dbus_address_entry_get_method... yes
checking for dbus_address_entries_free... yes
checking for dbus_address_escape_value... yes
checking for dbus_address_unescape_value... yes
checking for dbus_malloc... yes
checking for dbus_malloc0... yes
checking for dbus_realloc... yes
checking for dbus_free... yes
checking for dbus_free_string_array... yes
checking for dbus_shutdown... yes
checking for dbus_message_new... yes
checking for dbus_message_new_method_call... yes
checking for dbus_message_new_method_return... yes
checking for dbus_message_new_signal... yes
checking for dbus_message_new_error... yes
checking for dbus_message_copy... yes
checking for dbus_message_ref... yes
checking for dbus_message_unref... yes
checking for dbus_message_get_type... yes
checking for dbus_message_set_path... yes
checking for dbus_message_get_path... yes
checking for dbus_message_has_path... yes
checking for dbus_message_set_interface... yes
checking for dbus_message_get_interface... yes
checking for dbus_message_has_interface... yes
checking for dbus_message_set_member... yes
checking for dbus_message_get_member... yes
checking for dbus_message_has_member... yes
checking for dbus_message_set_error_name... yes
checking for dbus_message_get_error_name... yes
checking for dbus_message_set_destination... yes
checking for dbus_message_get_destination... yes
checking for dbus_message_set_sender... yes
checking for dbus_message_get_sender... yes
checking for dbus_message_get_signature... yes
checking for dbus_message_set_no_reply... yes
checking for dbus_message_get_no_reply... yes
checking for dbus_message_is_method_call... yes
checking for dbus_message_is_signal... yes
checking for dbus_message_is_error... yes
checking for dbus_message_has_destination... yes
checking for dbus_message_has_sender... yes
checking for dbus_message_has_signature... yes
checking for dbus_message_get_serial... yes
checking for dbus_message_set_serial... yes
checking for dbus_message_set_reply_serial... yes
checking for dbus_message_get_reply_serial... yes
checking for dbus_message_set_auto_start... yes
checking for dbus_message_get_auto_start... yes
checking for dbus_message_get_path_decomposed... yes
checking for dbus_message_append_args... yes
checking for dbus_message_append_args_valist... yes
checking for dbus_message_get_args... yes
checking for dbus_message_get_args_valist... yes
checking for dbus_message_iter_init... yes
checking for dbus_message_iter_has_next... yes
checking for dbus_message_iter_next... yes
checking for dbus_message_iter_get_signature... yes
checking for dbus_message_iter_get_arg_type... yes
checking for dbus_message_iter_get_element_type... yes
checking for dbus_message_iter_recurse... yes
checking for dbus_message_iter_get_basic... yes
checking for dbus_message_iter_get_fixed_array... yes
checking for dbus_message_iter_init_append... yes
checking for dbus_message_iter_append_basic... yes
checking for dbus_message_iter_append_fixed_array... yes
checking for dbus_message_iter_open_container... yes
checking for dbus_message_iter_close_container... yes
checking for dbus_message_lock... yes
checking for dbus_set_error_from_message... yes
checking for dbus_message_allocate_data_slot... yes
checking for dbus_message_free_data_slot... yes
checking for dbus_message_set_data... yes
checking for dbus_message_get_data... yes
checking for dbus_message_type_from_string... yes
checking for dbus_message_type_to_string... yes
checking for dbus_message_marshal... yes
checking for dbus_message_demarshal... yes
checking for dbus_message_demarshal_bytes_needed... yes
checking for dbus_connection_open... yes
checking for dbus_connection_open_private... yes
checking for dbus_connection_ref... yes
checking for dbus_connection_unref... yes
checking for dbus_connection_close... yes
checking for dbus_connection_get_is_connected... yes
checking for dbus_connection_get_is_authenticated... yes
checking for dbus_connection_get_is_anonymous... yes
checking for dbus_connection_get_server_id... yes
checking for dbus_connection_set_exit_on_disconnect... yes
checking for dbus_connection_flush... yes
checking for dbus_connection_read_write_dispatch... yes
checking for dbus_connection_read_write... yes
checking for dbus_connection_borrow_message... yes
checking for dbus_connection_return_message... yes
checking for dbus_connection_steal_borrowed_message... yes
checking for dbus_connection_pop_message... yes
checking for dbus_connection_get_dispatch_status... yes
checking for dbus_connection_dispatch... yes
checking for dbus_connection_has_messages_to_send... yes
checking for dbus_connection_send... yes
checking for dbus_connection_send_with_reply... yes
checking for dbus_connection_send_with_reply_and_block... yes
checking for dbus_connection_set_watch_functions... yes
checking for dbus_connection_set_timeout_functions... yes
checking for dbus_connection_set_wakeup_main_function... yes
checking for dbus_connection_set_dispatch_status_function... yes
checking for dbus_connection_get_unix_user... yes
checking for dbus_connection_get_unix_process_id... yes
checking for dbus_connection_get_adt_audit_session_data... yes
checking for dbus_connection_set_unix_user_function... yes
checking for dbus_connection_get_windows_user... yes
checking for dbus_connection_set_windows_user_function... yes
checking for dbus_connection_set_allow_anonymous... yes
checking for dbus_connection_set_route_peer_messages... yes
checking for dbus_connection_add_filter... yes
checking for dbus_connection_remove_filter... yes
checking for dbus_connection_allocate_data_slot... yes
checking for dbus_connection_free_data_slot... yes
checking for dbus_connection_set_data... yes
checking for dbus_connection_get_data... yes
checking for dbus_connection_set_change_sigpipe... yes
checking for dbus_connection_set_max_message_size... yes
checking for dbus_connection_get_max_message_size... yes
checking for dbus_connection_set_max_received_size... yes
checking for dbus_connection_get_max_received_size... yes
checking for dbus_connection_get_outgoing_size... yes
checking for dbus_connection_preallocate_send... yes
checking for dbus_connection_free_preallocated_send... yes
checking for dbus_connection_send_preallocated... yes
checking for dbus_connection_try_register_object_path... yes
checking for dbus_connection_register_object_path... yes
checking for dbus_connection_try_register_fallback... yes
checking for dbus_connection_register_fallback... yes
checking for dbus_connection_unregister_object_path... yes
checking for dbus_connection_get_object_path_data... yes
checking for dbus_connection_list_registered... yes
checking for dbus_connection_get_unix_fd... yes
checking for dbus_connection_get_socket... yes
checking for dbus_get_local_machine_id... yes
checking for dbus_watch_get_fd... yes
checking for dbus_watch_get_unix_fd... yes
checking for dbus_watch_get_socket... yes
checking for dbus_watch_get_flags... yes
checking for dbus_watch_get_data... yes
checking for dbus_watch_set_data... yes
checking for dbus_watch_handle... yes
checking for dbus_watch_get_enabled... yes
checking for dbus_timeout_get_interval... yes
checking for dbus_timeout_get_data... yes
checking for dbus_timeout_set_data... yes
checking for dbus_timeout_handle... yes
checking for dbus_timeout_get_enabled... yes
checking for dbus_bus_get... yes
checking for dbus_bus_get_private... yes
checking for dbus_bus_register... yes
checking for dbus_bus_set_unique_name... yes
checking for dbus_bus_get_unique_name... yes
checking for dbus_bus_get_unix_user... yes
checking for dbus_bus_get_id... yes
checking for dbus_bus_request_name... yes
checking for dbus_bus_release_name... yes
checking for dbus_bus_name_has_owner... yes
checking for dbus_bus_start_service_by_name... yes
checking for dbus_bus_add_match... yes
checking for dbus_bus_remove_match... yes
checking for dbus_pending_call_ref... yes
checking for dbus_pending_call_unref... yes
checking for dbus_pending_call_set_notify... yes
checking for dbus_pending_call_cancel... yes
checking for dbus_pending_call_get_completed... yes
checking for dbus_pending_call_steal_reply... yes
checking for dbus_pending_call_block... yes
checking for dbus_pending_call_allocate_data_slot... yes
checking for dbus_pending_call_free_data_slot... yes
checking for dbus_pending_call_set_data... yes
checking for dbus_pending_call_get_data... yes
checking for dbus_server_listen... yes
checking for dbus_server_ref... yes
checking for dbus_server_unref... yes
checking for dbus_server_disconnect... yes
checking for dbus_server_get_is_connected... yes
checking for dbus_server_get_address... yes
checking for dbus_server_get_id... yes
checking for dbus_server_set_new_connection_function... yes
checking for dbus_server_set_watch_functions... yes
checking for dbus_server_set_timeout_functions... yes
checking for dbus_server_set_auth_mechanisms... yes
checking for dbus_server_allocate_data_slot... yes
checking for dbus_server_free_data_slot... yes
checking for dbus_server_set_data... yes
checking for dbus_server_get_data... yes
checking for dbus_signature_iter_init... yes
checking for dbus_signature_iter_get_current_type... yes
checking for dbus_signature_iter_get_signature... yes
checking for dbus_signature_iter_get_element_type... yes
checking for dbus_signature_iter_next... yes
checking for dbus_signature_iter_recurse... yes
checking for dbus_signature_validate... yes
checking for dbus_signature_validate_single... yes
checking for dbus_type_is_basic... yes
checking for dbus_type_is_container... yes
checking for dbus_type_is_fixed... yes
checking for dbus_threads_init... yes
checking for dbus_threads_init_default... yes
configure: ** Dbus (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: ** Dbus (Done)
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dbus'
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/dbus/dbus.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/dbus/dbus.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dbus/dbus.fas
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dbus/dbus.c
0 errors, 0 warnings
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit -I/usr/include/dbus-1.0 -I/usr/lib64/dbus-1.0/include -c dbus.c
In file included from dbus.c:1:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h: In function ‘check_byte_vector’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:157: warning: result of ‘10^2’ is 8; did you mean ‘1e2’? [-Wxor-used-as-pow]
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                             ^
      |                                                                                                                                                          --
      |                                                                                                                                                          1  e
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:154: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10)
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                          ^~
      |                                                                                                                                                          0xa
dbus.c: In function ‘module__dbus__init_function_2’:
dbus.c:913:3: warning: ‘dbus_watch_get_fd’ is deprecated [-Wdeprecated-declarations]
  913 |   register_foreign_function((void*)&dbus_watch_get_fd,"dbus_watch_get_fd",1024);
      |   ^~~~~~~~~~~~~~~~~~~~~~~~~
In file included from /usr/include/dbus-1.0/dbus/dbus-bus.h:30,
                 from /usr/include/dbus-1.0/dbus/dbus.h:31,
                 from dbus.c:6:
/usr/include/dbus-1.0/dbus/dbus-connection.h:481:38: note: declared here
  481 | DBUS_DEPRECATED int dbus_watch_get_fd      (DBusWatch        *watch);
      |                                      ^~~~~~~~~~~~~~~~~
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dbus'
mkdir -p fastcgi
m=`cd ../modules/fastcgi; pwd`; \
if test -f $m/configure && { test ! -f fastcgi/config.status || test -n "`find $m/configure -prune -newer fastcgi/config.status`"; } ; then ( cd fastcgi ;\
    cache=`echo fastcgi/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \
    if test -f ${cache} ; then \
      . ${cache}; \
      if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \
      if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \
      if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \
      if test "${ac_cv_env_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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 fastcgi/Makefile || test -n "`find $m/Makefile -prune -newer fastcgi/Makefile`"; } ; then \
  sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > fastcgi/Makefile ; \
fi ; \
CLISP="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd fastcgi ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /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+ (2024-07-04) (built 3934324800) (memory 3935307128)
checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/
checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build
configure: ** FastCGI (Common)
checking for CLISP... (cached) yes
checking for FFI in 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
configure: ** FastCGI (Programs)
checking whether ln -s works... yes
checking whether make sets $(MAKE)... (cached) yes
checking build system type... (cached) riscv64-unknown-linux-gnu
checking host system type... (cached) riscv64-unknown-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 egrep -e... (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 libfcgi... /usr/lib64/libfcgi.so
configure: ** FastCGI (Headers)
checking for fcgi_stdio.h... yes
configure: ** FastCGI (Types)
checking for size_t... (cached) yes
configure: ** FastCGI (Functions)
checking for strchr... yes
configure: ** FastCGI (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: ** FastCGI (Done)
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/fastcgi'
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/fastcgi/fastcgi.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/fastcgi/fastcgi.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/fastcgi/fastcgi.fas
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/fastcgi/fastcgi.c
0 errors, 0 warnings
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit -I.. -c fastcgi.c
In file included from fastcgi.c:1:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h: In function ‘check_byte_vector’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:157: warning: result of ‘10^2’ is 8; did you mean ‘1e2’? [-Wxor-used-as-pow]
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                             ^
      |                                                                                                                                                          --
      |                                                                                                                                                          1  e
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:154: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10)
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                          ^~
      |                                                                                                                                                          0xa
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit -I.. -c /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/fastcgi/fastcgi_wrappers.c
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/fastcgi/fastcgi_wrappers.c:53:8: warning: no previous declaration for ‘fcgi_getenv’ [-Wmissing-declarations]
   53 | char * fcgi_getenv(char * var) {
      |        ^~~~~~~~~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/fastcgi/fastcgi_wrappers.c:71:9: warning: no previous declaration for ‘fcgi_env’ [-Wmissing-declarations]
   71 | char ** fcgi_env() {
      |         ^~~~~~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/fastcgi/fastcgi_wrappers.c:113:8: warning: no previous declaration for ‘fcgi_read_stdin’ [-Wmissing-declarations]
  113 | char * fcgi_read_stdin() {
      |        ^~~~~~~~~~~~~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/fastcgi/fastcgi_wrappers.c: In function ‘read_stdio’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/fastcgi/fastcgi_wrappers.c:126:10: warning: pointer targets in returning ‘unsigned char *’ from a function with return type ‘char *’ differ in signedness [-Wpointer-sign]
  126 |   return buf;
      |          ^~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/fastcgi/fastcgi_wrappers.c: At top level:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/fastcgi/fastcgi_wrappers.c:130:5: warning: no previous declaration for ‘fcgi_write_stdout’ [-Wmissing-declarations]
  130 | int fcgi_write_stdout(char * data, int len) {
      |     ^~~~~~~~~~~~~~~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/fastcgi/fastcgi_wrappers.c:133:5: warning: no previous declaration for ‘fcgi_write_stderr’ [-Wmissing-declarations]
  133 | int fcgi_write_stderr(char * data, int len) {
      |     ^~~~~~~~~~~~~~~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/fastcgi/fastcgi_wrappers.c:147:5: warning: no previous declaration for ‘fcgi_is_cgi_wrapper’ [-Wmissing-declarations]
  147 | int fcgi_is_cgi_wrapper() {
      |     ^~~~~~~~~~~~~~~~~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/fastcgi/fastcgi_wrappers.c:150:5: warning: no previous declaration for ‘fcgi_accept_wrapper’ [-Wmissing-declarations]
  150 | int fcgi_accept_wrapper() {
      |     ^~~~~~~~~~~~~~~~~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/fastcgi/fastcgi_wrappers.c:153:6: warning: no previous declaration for ‘fcgi_finish_wrapper’ [-Wmissing-declarations]
  153 | void fcgi_finish_wrapper() {
      |      ^~~~~~~~~~~~~~~~~~~
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/fastcgi'
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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /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+ (2024-07-04) (built 3934324800) (memory 3935307128)
checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/
checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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) riscv64-unknown-linux-gnu
checking host system type... (cached) riscv64-unknown-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 egrep -e... (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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gdbm'
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/gdbm/gdbm.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/gdbm/gdbm.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gdbm/gdbm.fas
0 errors, 0 warnings
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -C /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/modprep /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/gdbm/gdbm.c ./
;; MODPREP: "/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/gdbm/gdbm.c" --> #P"gdbm.m.c"
;; MODPREP: reading "/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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,419 bytes)
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC -I. -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit \
	-c gdbm.m.c -o gdbm.o
In file included from /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/gdbm/gdbm.c:9:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h: In function ‘check_byte_vector’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:157: warning: result of ‘10^2’ is 8; did you mean ‘1e2’? [-Wxor-used-as-pow]
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                             ^
      |                                                                                                                                                          --
      |                                                                                                                                                          1  e
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:154: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10)
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                          ^~
      |                                                                                                                                                          0xa
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/gdbm/gdbm.c: In function ‘coerce_bitvector’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/gdbm/gdbm.c:197:104: warning: result of ‘10^2’ is 8; did you mean ‘1e2’? [-Wxor-used-as-pow]
  197 |   if (bit_vector_p(Atype_8Bit,arg)) return arg;
      |                                                                                                        ^
      |                                                                                                     --
      |                                                                                                     1  e
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/gdbm/gdbm.c:197:101: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10)
  197 |   if (bit_vector_p(Atype_8Bit,arg)) return arg;
      |                                                                                                     ^ 
      |                                                                                                     0xa
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/gdbm/gdbm.c:201:123: warning: result of ‘10^2’ is 8; did you mean ‘1e2’? [-Wxor-used-as-pow]
  201 |     if (!bit_vector_p(Atype_8Bit,value1)) { NOTREACHED; }
      |                                                                                                                           ^
      |                                                                                                                        --
      |                                                                                                                        1  e
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/gdbm/gdbm.c:201:120: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10)
  201 |     if (!bit_vector_p(Atype_8Bit,value1)) { NOTREACHED; }
      |                                                                                                                        ^ 
      |                                                                                                                        0xa
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/gdbm/gdbm.c: In function ‘C_subr_gdbm_gdbm_fetch’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/gdbm/gdbm.c:341:2881: warning: result of ‘10^2’ is 8; did you mean ‘1e2’? [-Wxor-used-as-pow]
  341 |   with_datum(STACK_0, key, res = gdbm_fetch(dbf,key));
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ^
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              --
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              1  e
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/gdbm/gdbm.c:341:2878: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10)
  341 |   with_datum(STACK_0, key, res = gdbm_fetch(dbf,key));
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ^ 
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              0xa
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/gdbm/gdbm.c: In function ‘C_subr_gdbm_gdbm_delete’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/gdbm/gdbm.c:352:2885: warning: result of ‘10^2’ is 8; did you mean ‘1e2’? [-Wxor-used-as-pow]
  352 |   with_datum(STACK_0, key, status = gdbm_delete(dbf,key));
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     ^
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  --
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  1  e
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/gdbm/gdbm.c:352:2882: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10)
  352 |   with_datum(STACK_0, key, status = gdbm_delete(dbf,key));
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ^ 
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  0xa
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/gdbm/gdbm.c: In function ‘C_subr_gdbm_gdbm_nextkey’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/gdbm/gdbm.c:375:2883: warning: result of ‘10^2’ is 8; did you mean ‘1e2’? [-Wxor-used-as-pow]
  375 |   with_datum(STACK_1, key, res = gdbm_nextkey(dbf,key));
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   ^
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                --
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                1  e
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/gdbm/gdbm.c:375:2880: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10)
  375 |   with_datum(STACK_1, key, res = gdbm_nextkey(dbf,key));
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ^ 
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                0xa
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/gdbm/gdbm.c: In function ‘C_subr_gdbm_gdbm_exists’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/gdbm/gdbm.c:410:2886: warning: result of ‘10^2’ is 8; did you mean ‘1e2’? [-Wxor-used-as-pow]
  410 |   with_datum(STACK_0, key, status = gdbm_exists(dbf, key));
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ^
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   --
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   1  e
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/gdbm/gdbm.c:410:2883: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10)
  410 |   with_datum(STACK_0, key, status = gdbm_exists(dbf, key));
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   ^ 
      |                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   0xa
ln -s /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/gdbm/preload.lisp .
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gdbm'
mkdir -p gtk2
m=`cd ../modules/gtk2; pwd`; \
if test -f $m/configure && { test ! -f gtk2/config.status || test -n "`find $m/configure -prune -newer gtk2/config.status`"; } ; then ( cd gtk2 ;\
    cache=`echo gtk2/ | 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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 gtk2/Makefile || test -n "`find $m/Makefile -prune -newer gtk2/Makefile`"; } ; then \
  sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > gtk2/Makefile ; \
fi ; \
CLISP="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd gtk2 ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /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+ (2024-07-04) (built 3934324800) (memory 3935307128)
checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/
checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build
configure: ** GTK2 (Common)
checking for CLISP... (cached) yes
checking for FFI in 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 pkg-config... (cached) /usr/bin/pkg-config
checking pkg-config is at least version 0.9.0... yes
checking for pkg-config... (cached) /usr/bin/pkg-config
checking pkg-config is at least version 0.7... yes
checking for GTK+ - version >= 2.0.0... yes (version 2.24.33)
checking for LIBGLADE... yes
configure: ** GTK2 (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: ** GTK2 (Done)
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gtk2'
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/gtk2/gtk.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/gtk2/gtk.lisp ...
;; Reading 31,362 bytes from /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/gtk2/gtk-server.cfg
;; Defined 335 functions
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gtk2/gtk.fas
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gtk2/gtk.c
0 errors, 0 warnings
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit -I/usr/include/gtk-2.0 -I/usr/lib64/gtk-2.0/include -I/usr/include/pango-1.0 -I/usr/include/atk-1.0 -I/usr/include/gdk-pixbuf-2.0 -I/usr/include/webp -I/usr/include/libmount -I/usr/include/blkid -I/usr/include/fribidi -I/usr/include/cairo -I/usr/include/libxml2 -I/usr/include/pixman-1 -I/usr/include/harfbuzz -I/usr/include/freetype2 -I/usr/include/libpng16 -DWITH_GZFILEOP -I/usr/include/glib-2.0 -I/usr/lib64/glib-2.0/include -I/usr/include/sysprof-6 -pthread \
	-I/usr/include/libglade-2.0 -I/usr/include/gtk-2.0 -I/usr/lib64/gtk-2.0/include -I/usr/include/pango-1.0 -I/usr/include/atk-1.0 -I/usr/include/gdk-pixbuf-2.0 -I/usr/include/webp -I/usr/include/libmount -I/usr/include/blkid -I/usr/include/fribidi -I/usr/include/cairo -I/usr/include/pixman-1 -I/usr/include/harfbuzz -I/usr/include/freetype2 -I/usr/include/libpng16 -I/usr/include/glib-2.0 -I/usr/lib64/glib-2.0/include -I/usr/include/sysprof-6 -pthread -I/usr/include/libxml2 -DWITH_GZFILEOP -c gtk.c
In file included from gtk.c:1:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h: In function ‘check_byte_vector’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:157: warning: result of ‘10^2’ is 8; did you mean ‘1e2’? [-Wxor-used-as-pow]
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                             ^
      |                                                                                                                                                          --
      |                                                                                                                                                          1  e
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:154: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10)
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                          ^~
      |                                                                                                                                                          0xa
In file included from /usr/include/gtk-2.0/gtk/gtkobject.h:37,
                 from /usr/include/gtk-2.0/gtk/gtkwidget.h:36,
                 from /usr/include/gtk-2.0/gtk/gtkcontainer.h:35,
                 from /usr/include/gtk-2.0/gtk/gtkbin.h:35,
                 from /usr/include/gtk-2.0/gtk/gtkwindow.h:36,
                 from /usr/include/gtk-2.0/gtk/gtkdialog.h:35,
                 from /usr/include/gtk-2.0/gtk/gtkaboutdialog.h:32,
                 from /usr/include/gtk-2.0/gtk/gtk.h:33,
                 from gtk.c:104:
/usr/include/gtk-2.0/gtk/gtktypeutils.h: At top level:
/usr/include/gtk-2.0/gtk/gtktypeutils.h:236:1: warning: ‘GTypeDebugFlags’ is deprecated [-Wdeprecated-declarations]
  236 | void            gtk_type_init   (GTypeDebugFlags    debug_flags);
      | ^~~~
In file included from /usr/include/glib-2.0/gobject/gobject.h:26,
                 from /usr/include/glib-2.0/gobject/gbinding.h:31,
                 from /usr/include/glib-2.0/glib-object.h:24,
                 from /usr/include/glib-2.0/gio/gioenums.h:30,
                 from /usr/include/glib-2.0/gio/giotypes.h:30,
                 from /usr/include/glib-2.0/gio/gio.h:28,
                 from /usr/include/gtk-2.0/gdk/gdkapplaunchcontext.h:30,
                 from /usr/include/gtk-2.0/gdk/gdk.h:32,
                 from /usr/include/gtk-2.0/gtk/gtk.h:32:
/usr/include/glib-2.0/gobject/gtype.h:725:1: note: declared here
  725 | {
      | ^
In file included from /usr/include/gtk-2.0/gtk/gtktoolitem.h:31,
                 from /usr/include/gtk-2.0/gtk/gtktoolbutton.h:30,
                 from /usr/include/gtk-2.0/gtk/gtkmenutoolbutton.h:30,
                 from /usr/include/gtk-2.0/gtk/gtk.h:126:
/usr/include/gtk-2.0/gtk/gtktooltips.h:73:3: warning: ‘GTimeVal’ is deprecated: Use 'GDateTime' instead [-Wdeprecated-declarations]
   73 |   GTimeVal last_popdown;
      |   ^~~~~~~~
In file included from /usr/include/glib-2.0/glib/galloca.h:34,
                 from /usr/include/glib-2.0/glib.h:32,
                 from /usr/include/glib-2.0/gobject/gbinding.h:30:
/usr/include/glib-2.0/glib/gtypes.h:580:8: note: declared here
  580 | struct _GTimeVal
      |        ^~~~~~~~~
ln -s /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/gtk2/preload.lisp .
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gtk2'
mkdir -p libsvm
m=`cd ../modules/libsvm; pwd`; \
if test -f $m/configure && { test ! -f libsvm/config.status || test -n "`find $m/configure -prune -newer libsvm/config.status`"; } ; then ( cd libsvm ;\
    cache=`echo libsvm/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \
    if test -f ${cache} ; then \
      . ${cache}; \
      if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \
      if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \
      if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \
      if test "${ac_cv_env_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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 libsvm/Makefile || test -n "`find $m/Makefile -prune -newer libsvm/Makefile`"; } ; then \
  sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > libsvm/Makefile ; \
fi ; \
CLISP="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd libsvm ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /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+ (2024-07-04) (built 3934324800) (memory 3935307128)
checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/
checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build
configure: ** LibSVM (Common)
checking for CLISP... (cached) yes
checking for FFI in 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) riscv64-unknown-linux-gnu
checking host system type... (cached) riscv64-unknown-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 egrep -e... (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 libsvm... /usr/lib64/libsvm.so
configure: ** LibSVM (Headers)
checking for svm.h... yes
configure: ** LibSVM (Functions)
checking for library containing svm_train... none required
checking for svm_check_parameter... yes
checking for svm_check_probability_model... yes
checking for svm_cross_validation... yes
checking for svm_destroy_model... no
checking for svm_destroy_param... yes
checking for svm_free_and_destroy_model... yes
checking for svm_get_labels... yes
checking for svm_get_nr_class... yes
checking for svm_get_svm_type... yes
checking for svm_get_svr_probability... yes
checking for svm_load_model... yes
checking for svm_predict... yes
checking for svm_predict_probability... yes
checking for svm_predict_values... yes
checking for svm_save_model... yes
checking for svm_train... yes
checking for svm_set_print_string_function... yes
configure: ** Libsvm (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: ** Libsvm (Done)
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/libsvm'
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/libsvm/libsvm.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/libsvm/libsvm.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/libsvm/libsvm.fas
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/libsvm/libsvm.c
0 errors, 0 warnings
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit -c libsvm.c
In file included from libsvm.c:1:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h: In function ‘check_byte_vector’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:157: warning: result of ‘10^2’ is 8; did you mean ‘1e2’? [-Wxor-used-as-pow]
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                             ^
      |                                                                                                                                                          --
      |                                                                                                                                                          1  e
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:154: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10)
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                          ^~
      |                                                                                                                                                          0xa
libsvm.c: At top level:
libsvm.c:18:6: warning: no previous declaration for ‘svm_destroy_model’ [-Wmissing-declarations]
   18 | void svm_destroy_model (struct svm_model *model){ svm_free_and_destroy_model(&model); }
      |      ^~~~~~~~~~~~~~~~~
ln -s /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/libsvm/preload.lisp .
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/libsvm'
mkdir -p pari
m=`cd ../modules/pari; pwd`; \
if test -f $m/configure && { test ! -f pari/config.status || test -n "`find $m/configure -prune -newer pari/config.status`"; } ; then ( cd pari ;\
    cache=`echo pari/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \
    if test -f ${cache} ; then \
      . ${cache}; \
      if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \
      if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \
      if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \
      if test "${ac_cv_env_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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 pari/Makefile || test -n "`find $m/Makefile -prune -newer pari/Makefile`"; } ; then \
  sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > pari/Makefile ; \
fi ; \
CLISP="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd pari ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /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+ (2024-07-04) (built 3934324800) (memory 3935307128)
checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/
checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build
configure: ** PARI (Common)
checking for CLISP... (cached) yes
checking for FFI in 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) riscv64-unknown-linux-gnu
checking host system type... (cached) riscv64-unknown-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 egrep -e... (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 libpari... /usr/lib64/libpari.so
configure: ** PARI (Headers)
checking for pari/pari.h... yes
configure: ** PARI (Functions)
checking for library containing pari_kernel_init... none required
checking for pari_init... yes
checking for pari_init_opts... yes
checking for pari_close... yes
configure: ** PARI (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: ** PARI (Done)
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/pari'
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/pari/desc2lisp.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/pari/desc2lisp.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/pari/desc2lisp.fas
0 errors, 0 warnings
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -i desc2lisp -c /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/pari/pari.lisp -o ./ /usr/share/pari
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/pari/desc2lisp.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/pari/desc2lisp.fas
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/pari/pari.lisp ...
Reading "/usr/share/pari/pari.desc" (1,705,982 bytes)
WARNING: Existing name: "arg" (arg :INTERNAL)
WARNING: Existing name: "arity" (arity :INTERNAL)
WARNING: Existing name: "default" (default :INTERNAL)
WARNING: Existing name: "digits" (digits :INTERNAL)
WARNING: Existing name: "prime" (prime :INTERNAL)
WARNING: Existing name: "shift" (shift :INTERNAL)
WARNING: Existing name: "sign" (sign :INTERNAL)Read 1,477 functions
Ignored:
              non-basic: 148
              no C-name: 103
  programming/internals:  84
               obsolete:  50
                   sums:  40
                wrapped:  36
                graphic:  35
    programming/control:  30
   programming/parallel:  11
Classes:
          basic: 1,329
  gp2c_internal:    72
        default:    46
         header:    20
             gp:     6
           gp2c:     4
Sections:
           number_fields: 209
      number_theoretical: 128
         elliptic_curves:  98
    programming/specific:  90
          linear_algebra:  90
   programming/internals:  84
                     nil:  76
          transcendental:  74
           modular_forms:  71
                algebras:  69
             polynomials:  64
             conversions:  61
      symbolic_operators:  47
                 default:  47
        member_functions:  45
                    sums:  40
                 graphic:  35
         modular_symbols:  32
             l_functions:  30
     programming/control:  30
           combinatorics:  22
  hypergeometric_motives:  13
               operators:  11
    programming/parallel:  11
Emitted 1,082 functions
WARNING: parse-prototype("Ser":"GDnDGDP"): mismatch: params=
          ((precdl long :IN :NONE pari-series-precision)
           (nil pari-gen :IN :NONE nil) (varno long :IN :NONE -1)
           (nil pari-gen))
         arglist=(s (v 'x) (d seriesprecision)) in
          #S(desc :lisp-name Ser :function "Ser" :class "basic"
             :section "conversions" :c-name "Ser0" :prototype "GDnDGDP"
             :help
             ("Ser(s,{v='x},{d=seriesprecision}): convert s into a power series with"
              " variable v and precision d, starting with the constant coefficient.")
             :iterator nil
             :doc
             ("transforms the object $s$ into a power series with main variable $v$"
              " ($x$ by default) and precision (number of significant terms) equal to"
              " $d \\geq 0$ ($d = \\kbd{seriesprecision}$ by default). If $s$ is a"
              " scalar, this gives a constant power series in $v$ with precision \\kbd{d}."
              " If $s$ is a polynomial, the polynomial is truncated to $d$ terms if needed"
              " \\bprog" " ? \\ps" "   seriesprecision = 16 significant terms"
              " ? Ser(1)  \\\\ 16 terms by default" " %1 = 1 + O(x^16)"
              " ? Ser(1, 'y, 5)" " %2 = 1 + O(y^5)" " ? Ser(x^2,, 5)"
              " %3 = x^2 + O(x^7)" " ? T = polcyclo(100)"
              " %4 = x^40 - x^30 + x^20 - x^10 + 1" " ? Ser(T, 'x, 11)"
              " %5 = 1 - x^10 + O(x^11)"
              " @eprog\\noindent The function is more or less equivalent with multiplication by"
              " $1 + O(v^d)$ in theses cases, only faster." " "
              " For the remaining types, vectors and power series, we first explain what"
              " occurs if $d$ is omitted. In this case, the function uses exactly the amount"
              " of information given in the input:" " "
              " \\item If $s$ is already a power series in $v$, we return it verbatim;"
              " "
              " \\item If $s$ is a vector, the coefficients of the vector are"
              " understood to be the coefficients of the power series starting from the"
              " constant term (as in \\tet{Polrev}$(x)$); in other words we convert"
              " \\typ{VEC} / \\typ{COL} to the power series whose significant terms are exactly"
              " given by the vector entries." " "
              " On the other hand, if $d$ is explicitly given, we abide by its value"
              " and return a series, truncated or extended with zeros as needed, with"
              " $d$ significant terms." " " " \\bprog" " ? v = [1,2,3];"
              " ? Ser(v, t) \\\\ 3 terms: seriesprecision is ignored!"
              " %7 = 1 + 2*t + 3*t^2 + O(t^3)"
              " ? Ser(v, t, 7)  \\\\ 7 terms as explicitly requested"
              " %8 = 1 + 2*t + 3*t^2 + O(t^7)" " ? s = 1+x+O(x^2);" " ? Ser(s)"
              " %10 = 1 + x + O(x^2)  \\\\ 2 terms: seriesprecision is ignored"
              " ? Ser(s, x, 7)  \\\\ extend to 7 terms" " %11 = 1 + x + O(x^7)"
              " ? Ser(s, x, 1)  \\\\ truncate to 1 term" " %12 = 1 + O(x)"
              " @eprog\\noindent"
              " The warning given for \\kbd{Pol} also applies here: this is not a substitution"
              " function." "")
             :wrapper nil :description nil :obsolete nil :variant nil)
WARNING: parse-prototype("gcharlocal":"GGGpD&"): mismatch: params=
          ((nil (c-ptr pari-gen) :OUT :ALLOCA) (prec long) (nil pari-gen)
           (nil pari-gen) (nil pari-gen))
         arglist=(gc chi v (&BID)) in
          #S(desc :lisp-name gcharlocal :function "gcharlocal" :class "basic"
             :section "number_fields" :c-name "gcharlocal" :prototype "GGGpD&"
             :help
             ("gcharlocal(gc,chi,v,{&BID}): if v is a place, return the local character"
              " chi_v. If v is a prime dividing the modulus and the optional argument 'BID'"
              " is present, set BID to the corresponding idealstar structure.")
             :iterator nil
             :doc
             ("\\kbd{gc} being a gchar structure initialised by \\kbd{gcharinit}, returns"
              " the local component $\\chi_v$, where $v$ is either an integer between~$1$"
              " and~$r_1+r_2$ encoding an infinite place, or a prime ideal structure encoding a"
              " finite place." " "
              " \\item if~$v$ is a real place, $\\chi_v(x) = {\\rm sign}(x)^k"
              " |x|^{i\\varphi}$ is encoded as~$[k,\\varphi]$;" " "
              " \\item if~$v$ is a complex place, $\\chi_v(z) = (z/|z|)^k |z|^{2i\\varphi}$ is"
              " encoded as~$[k,\\varphi]$;" " "
              " \\item if~$v = \\goth{p}$ is a finite place not dividing~\\var{gc}\\kbd{.mod},"
              " $\\chi_v(\\pi_v) = \\exp(2i\\pi \\theta)$ is encoded as~$[\\theta]$;"
              " "
              " \\item if~$v = \\goth{p}$ is a finite place dividing~\\var{gc}\\kbd{.mod},"
              " we can define a \\var{bid} structure attached to the multiplicative group"
              " $G = (\\Z_K/\\goth{p}^k)^*$, where $\\goth{p}^k$ divides exactly"
              " \\var{gc}\\kbd{.mod} (see \\kbd{idealstar})."
              " Then~$\\chi_v$ is encoded as~$[c_1,\\dots,c_n,\\theta]$ where~$[c_1,\\dots,c_n]$"
              " defines a character on $G$"
              " (see \\kbd{gchareval}) and~$\\chi_v(\\pi_v) = \\exp(2i\\pi\\theta)$. This \\var{bid}"
              " structure only depends on \\kbd{gc} and $v$ (and not on the character $\\chi$);"
              " it can be recovered through the optional argument \\var{BID}."
              " \\bprog" " ? bnf = bnfinit(x^3-x-1);"
              " ? gc = gcharinit(bnf,1);" " ? gc.cyc" " % = [0, 0, 0.E-57]"
              " ? chi = [0,1,1/3]~;" " ? pr = idealprimedec(bnf,5)[1];"
              " ? gcharlocal(gc,chi,1)"
              " % = [0, -4.8839310048284836274074581373242545693 - 1/3*I]"
              " ? gcharlocal(gc,chi,2)"
              " % = [6, 2.4419655024142418137037290686621272847 - 1/3*I]"
              " ? gcharlocal(gc,chi,pr)"
              " % = [0.115465135184293124024408915 + 0.0853833331211293579127218326*I]"
              " ? bnf = bnfinit(x^2+1,1);" " ? pr3 = idealprimedec(bnf,3)[1];"
              " ? pr5 = idealprimedec(bnf,5)[1];"
              " ? gc = gcharinit(bnf,[pr3,2;pr5,3]);" " ? gc.cyc"
              " % = [600, 3, 0, 0.E-57]" " ? chi = [1,1,1]~;"
              " ? gcharlocal(gc,chi,pr3,&bid)" " % = [1, 1, -21/50]"
              " ? bid.cyc" " % = [24, 3]" " ? gcharlocal(gc,chi,pr5,&bid)"
              " % = [98, -0.30120819117478336291229946188762973702]"
              " ? bid.cyc" " % = [100]" " @eprog" "")
             :wrapper nil :description nil :obsolete nil :variant nil)
WARNING: parse-prototype("polsturm":"lGDGDG"): mismatch: params=
          ((nil pari-gen :IN :NONE nil) (nil pari-gen :IN :NONE nil)
           (nil pari-gen))
         arglist=(T (ab)) in
          #S(desc :lisp-name polsturm :function "polsturm" :class "basic"
             :section "polynomials" :c-name "sturmpart" :prototype "lGDGDG"
             :help
             ("polsturm(T,{ab}): number of distinct real roots of the polynomial"
              " T (in the interval ab = [a,b] if present).")
             :iterator nil
             :doc
             ("number of distinct real roots of the real polynomial \\var{T}. If"
              " the argument \\var{ab} is present, it must be a vector $[a,b]$ with"
              " two real components (of type \\typ{INT}, \\typ{REAL}, \\typ{FRAC}"
              " or  \\typ{INFINITY}) and we count roots belonging to that closed interval."
              " "
              " If possible, you should stick to exact inputs, that is avoid \\typ{REAL}s in"
              " $T$ and the bounds $a,b$: the result is then guaranteed and we use a fast"
              " algorithm (Uspensky's method, relying on Descartes's rule of sign, see"
              " \\tet{polrootsreal}). Otherwise, the polynomial is rescaled and rounded first"
              " and the result may be wrong due to that initial error. If only $a$ or $b$ is"
              " inexact, on the other hand, the interval is first thickened using rational"
              " endpoints and the result remains guaranteed unless there exist a root"
              " \\emph{very} close to a nonrational endpoint (which may be missed or unduly"
              " included)." " \\bprog" " ? T = (x-1)*(x-2)*(x-3);"
              " ? polsturm(T)" " %2 = 3" " ? polsturm(T, [-oo,2])" " %3 = 2"
              " ? polsturm(T, [1/2,+oo])" " %4 = 3"
              " ? polsturm(T, [1, Pi])  \\\\ Pi inexact: not recommended !"
              " %5 = 3"
              " ? polsturm(T*1., [0, 4])  \\\\ T*1. inexact: not recommended !"
              " %6 = 3"
              " ? polsturm(T^2, [0, 4])  \\\\ not squarefree: roots are not repeated!"
              " %7 = 3" " @eprog" " %\\syn{NO}" " "
              " The library syntax is \\fun{long}{RgX_sturmpart}{GEN T, GEN ab} or"
              " \\fun{long}{sturm}{GEN T} (for the case \\kbd{ab = NULL}). The function"
              " \\fun{long}{sturmpart}{GEN T, GEN a, GEN b} is obsolete and deprecated."
              "")
             :wrapper nil :description nil :obsolete nil :variant nil)
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/pari/pari.fas
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/pari/pari.c
0 errors, 10 warnings
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/pari  -c pari.c
In file included from pari.c:1:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h: In function ‘check_byte_vector’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:157: warning: result of ‘10^2’ is 8; did you mean ‘1e2’? [-Wxor-used-as-pow]
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                             ^
      |                                                                                                                                                          --
      |                                                                                                                                                          1  e
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:154: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10)
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                          ^~
      |                                                                                                                                                          0xa
pari.c: At top level:
pari.c:7:7: warning: no previous declaration for ‘get_entry_doc’ [-Wmissing-declarations]
    7 | char* get_entry_doc (char* s) { entree *e = is_entry(s); return e==NULL?NULL:(char*)e->help; }
      |       ^~~~~~~~~~~~~
pari.c:10:6: warning: no previous declaration for ‘get_integer_data’ [-Wmissing-declarations]
   10 | void get_integer_data (GEN x, ulong len, ulong *data)
      |      ^~~~~~~~~~~~~~~~
pari.c:12:6: warning: no previous declaration for ‘set_integer_data’ [-Wmissing-declarations]
   12 | void set_integer_data (GEN x, ulong len, ulong *data) {
      |      ^~~~~~~~~~~~~~~~
gcc -I. -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/pari  -c /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/pari/cpari.c
In file included from /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/pari/cpari.c:8:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h: In function ‘check_byte_vector’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:157: warning: result of ‘10^2’ is 8; did you mean ‘1e2’? [-Wxor-used-as-pow]
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                             ^
      |                                                                                                                                                          --
      |                                                                                                                                                          1  e
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:154: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10)
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                          ^~
      |                                                                                                                                                          0xa
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/pari/cpari.c: At top level:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/pari/cpari.c:18:6: warning: no previous declaration for ‘clisp_out_putc’ [-Wmissing-declarations]
   18 | void clisp_out_putc(char c) {
      |      ^~~~~~~~~~~~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/pari/cpari.c:22:6: warning: no previous declaration for ‘clisp_out_puts’ [-Wmissing-declarations]
   22 | void clisp_out_puts(const char *s) {
      |      ^~~~~~~~~~~~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/pari/cpari.c:27:6: warning: no previous declaration for ‘clisp_out_flush’ [-Wmissing-declarations]
   27 | void clisp_out_flush(void) {
      |      ^~~~~~~~~~~~~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/pari/cpari.c:32:6: warning: no previous declaration for ‘clisp_err_putc’ [-Wmissing-declarations]
   32 | void clisp_err_putc(char c) {
      |      ^~~~~~~~~~~~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/pari/cpari.c:36:6: warning: no previous declaration for ‘clisp_err_puts’ [-Wmissing-declarations]
   36 | void clisp_err_puts(const char *s) {
      |      ^~~~~~~~~~~~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/pari/cpari.c:41:6: warning: no previous declaration for ‘clisp_err_flush’ [-Wmissing-declarations]
   41 | void clisp_err_flush(void) {
      |      ^~~~~~~~~~~~~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/pari/cpari.c:45:6: warning: no previous declaration for ‘clisp_err_recover’ [-Wmissing-declarations]
   45 | void clisp_err_recover(long errnum) {
      |      ^~~~~~~~~~~~~~~~~
ln -s /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/pari/preload.lisp .
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/pari'
mkdir -p postgresql
m=`cd ../modules/postgresql; pwd`; \
if test -f $m/configure && { test ! -f postgresql/config.status || test -n "`find $m/configure -prune -newer postgresql/config.status`"; } ; then ( cd postgresql ;\
    cache=`echo postgresql/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \
    if test -f ${cache} ; then \
      . ${cache}; \
      if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \
      if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \
      if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \
      if test "${ac_cv_env_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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 postgresql/Makefile || test -n "`find $m/Makefile -prune -newer postgresql/Makefile`"; } ; then \
  sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > postgresql/Makefile ; \
fi ; \
CLISP="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd postgresql ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /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+ (2024-07-04) (built 3934324800) (memory 3935307128)
checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/
checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build
configure: ** PostgreSQL (Common)
checking for CLISP... (cached) yes
checking for FFI in 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) riscv64-unknown-linux-gnu
checking host system type... (cached) riscv64-unknown-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 egrep -e... (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 libpq... /usr/lib64/libpq.so
configure: ** PostgreSQL (Headers)
checking for postgres_ext.h... yes
checking for postgresql/postgres_ext.h... no
checking for pgsql/postgres_ext.h... no
configure: ** PostgreSQL (Functions)
checking for library containing PQconnectdb... none required
checking for Oid... yes
checking for pqbool... no
checking for PQconnectStart... yes
checking for PQconnectPoll... yes
checking for PQconnectdb... yes
checking for PQsetdbLogin... yes
checking for PQfinish... yes
checking for PQconndefaults... yes
checking for PQconninfoFree... yes
checking for PQresetStart... yes
checking for PQresetPoll... yes
checking for PQreset... yes
checking for PQgetCancel... yes
checking for PQfreeCancel... yes
checking for PQcancel... yes
checking for PQrequestCancel... yes
checking for PQdb... yes
checking for PQuser... yes
checking for PQpass... yes
checking for PQhost... yes
checking for PQport... yes
checking for PQtty... yes
checking for PQoptions... yes
checking for PQstatus... yes
checking for PQtransactionStatus... yes
checking for PQparameterStatus... yes
checking for PQprotocolVersion... yes
checking for PQserverVersion... yes
checking for PQerrorMessage... yes
checking for PQsocket... yes
checking for PQbackendPID... yes
checking for PQconnectionNeedsPassword... yes
checking for PQconnectionUsedPassword... yes
checking for PQconninfoParse... yes
checking for PQclientEncoding... yes
checking for PQsetClientEncoding... yes
checking for PQgetssl... yes
checking for PQinitSSL... yes
checking for PQinitOpenSSL... yes
checking for PQsetErrorVerbosity... yes
checking for PQtrace... yes
checking for PQuntrace... yes
checking for PQsetNoticeReceiver... yes
checking for PQsetNoticeProcessor... yes
checking for PQexec... yes
checking for PQexecParams... yes
checking for PQprepare... yes
checking for PQexecPrepared... yes
checking for PQsendQuery... yes
checking for PQsendQueryParams... yes
checking for PQsendPrepare... yes
checking for PQsendQueryPrepared... yes
checking for PQgetResult... yes
checking for PQisBusy... yes
checking for PQconsumeInput... yes
checking for PQnotifies... yes
checking for PQputCopyData... yes
checking for PQputCopyEnd... yes
checking for PQgetCopyData... yes
checking for PQgetline... yes
checking for PQputline... yes
checking for PQgetlineAsync... yes
checking for PQputnbytes... yes
checking for PQendcopy... yes
checking for PQsetnonblocking... yes
checking for PQisnonblocking... yes
checking for PQflush... yes
checking for PQfn... yes
checking for PQresultStatus... yes
checking for PQresStatus... yes
checking for PQresultErrorMessage... yes
checking for PQisthreadsafe... yes
checking for PQnparams... yes
checking for PQparamtype... yes
checking for PQdescribePrepared... yes
checking for PQdescribePortal... yes
checking for PQsendDescribePrepared... yes
checking for PQsendDescribePortal... yes
checking for PQresultErrorField... yes
checking for PQntuples... yes
checking for PQnfields... yes
checking for PQbinaryTuples... yes
checking for PQfname... yes
checking for PQfnumber... yes
checking for PQftable... yes
checking for PQftablecol... yes
checking for PQfformat... yes
checking for PQftype... yes
checking for PQfsize... yes
checking for PQfmod... yes
checking for PQcmdStatus... yes
checking for PQoidStatus... yes
checking for PQoidValue... yes
checking for PQcmdTuples... yes
checking for PQgetvalue... yes
checking for PQgetlength... yes
checking for PQgetisnull... yes
checking for PQclear... yes
checking for PQfreemem... yes
checking for PQmakeEmptyPGresult... yes
checking for PQescapeString... yes
checking for PQescapeBytea... yes
checking for PQcopyResult... yes
checking for PQsetResultAttrs... yes
checking for PQresultAlloc... yes
checking for PQsetvalue... yes
checking for PQescapeStringConn... yes
checking for PQescapeByteaConn... yes
checking for PQunescapeBytea... yes
checking for PQprint... yes
checking for PQdisplayTuples... yes
checking for PQprintTuples... yes
checking for lo_open... yes
checking for lo_close... yes
checking for lo_read... yes
checking for lo_write... yes
checking for lo_lseek... yes
checking for lo_creat... yes
checking for lo_tell... yes
checking for lo_unlink... yes
checking for lo_import... yes
checking for lo_import_with_oid... yes
checking for lo_export... yes
checking for lo_create... yes
checking for lo_truncate... yes
checking for PQmblen... yes
checking for PQdsplen... yes
checking for PQenv2encoding... yes
checking for PQencryptPassword... yes
checking for pg_char_to_encoding... yes
checking for pg_encoding_to_char... yes
checking for pg_valid_server_encoding_id... yes
configure: ** PostgreSQL (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: ** PostgreSQL (Done)
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/postgresql'
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/postgresql/postgresql.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/postgresql/postgresql.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/postgresql/postgresql.fas
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/postgresql/postgresql.c
0 errors, 0 warnings
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit \
	-c postgresql.c
In file included from postgresql.c:1:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h: In function ‘check_byte_vector’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:157: warning: result of ‘10^2’ is 8; did you mean ‘1e2’? [-Wxor-used-as-pow]
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                             ^
      |                                                                                                                                                          --
      |                                                                                                                                                          1  e
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:154: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10)
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                          ^~
      |                                                                                                                                                          0xa
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/postgresql/sql.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/postgresql/sql.lisp ...
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/postgresql/postgresql.lib ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/postgresql/postgresql.lib
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/postgresql/sql.fas
0 errors, 0 warnings
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/postgresql'
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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /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+ (2024-07-04) (built 3934324800) (memory 3935307128)
checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/
checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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) riscv64-unknown-linux-gnu
checking host system type... (cached) riscv64-unknown-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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/rawsock'
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/rawsock/sock.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/rawsock/sock.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -C /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/modprep /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/rawsock/rawsock.c ./
;; MODPREP: "/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/rawsock/rawsock.c" --> #P"rawsock.m.c"
;; MODPREP: reading "/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/rawsock/rawsock.c": 59,766 bytes, 1,489 lines
WARNING: 
         "/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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,451 bytes)
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC -I. -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit \
	-c rawsock.m.c -o rawsock.o
In file included from /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/rawsock/rawsock.c:10:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h: In function ‘check_byte_vector’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:157: warning: result of ‘10^2’ is 8; did you mean ‘1e2’? [-Wxor-used-as-pow]
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                             ^
      |                                                                                                                                                          --
      |                                                                                                                                                          1  e
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:154: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10)
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                          ^~
      |                                                                                                                                                          0xa
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/rawsock/rawsock.c: In function ‘C_subr_rawsock_recvfrom’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/rawsock/rawsock.c:962:9: warning: unused variable ‘buffer’ [-Wunused-variable]
  962 |   void *buffer;
      |         ^~~~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/rawsock/rawsock.c: In function ‘C_subr_rawsock_sock_read’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/rawsock/rawsock.c:1051:13: warning: unused variable ‘pinned_count’ [-Wunused-variable]
 1051 |     ssize_t pinned_count = retval;
      |             ^~~~~~~~~~~~
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/rawsock/rawsock.c: In function ‘C_subr_rawsock_sock_write’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/rawsock/preload.lisp .
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/rawsock'
mkdir -p zlib
m=`cd ../modules/zlib; pwd`; \
if test -f $m/configure && { test ! -f zlib/config.status || test -n "`find $m/configure -prune -newer zlib/config.status`"; } ; then ( cd zlib ;\
    cache=`echo zlib/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \
    if test -f ${cache} ; then \
      . ${cache}; \
      if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \
      if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \
      if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \
      if test "${ac_cv_env_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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 zlib/Makefile || test -n "`find $m/Makefile -prune -newer zlib/Makefile`"; } ; then \
  sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > zlib/Makefile ; \
fi ; \
CLISP="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd zlib ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /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+ (2024-07-04) (built 3934324800) (memory 3935307128)
checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/
checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build
configure: ** Zlib (Common)
checking for CLISP... (cached) yes
checking for FFI in 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) riscv64-unknown-linux-gnu
checking host system type... (cached) riscv64-unknown-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 egrep -e... (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 libz... /usr/lib64/libz.so
configure: ** Zlib (Headers)
checking for zlib.h... yes
configure: ** Zlib (Functions)
checking for library containing compress2... none required
checking for compressBound... yes
configure: ** Zlib (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: ** Zlib (Done)
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/zlib'
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/zlib/zlib.lisp -o ./
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/zlib/zlib.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/zlib/zlib.fas
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/zlib/zlib.c
0 errors, 0 warnings
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES  -fPIC -DPIC -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit -c zlib.c
In file included from zlib.c:1:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h: In function ‘check_byte_vector’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:157: warning: result of ‘10^2’ is 8; did you mean ‘1e2’? [-Wxor-used-as-pow]
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                             ^
      |                                                                                                                                                          --
      |                                                                                                                                                          1  e
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:154: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10)
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                          ^~
      |                                                                                                                                                          0xa
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/zlib'
rm -rf full
rm -rf dynmod; mkdir dynmod
MAKE=make CLISP="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ./clisp-link add base full asdf berkeley-db bindings/glibc clx/new-clx dbus fastcgi gdbm gtk2 libsvm pari postgresql rawsock zlib || (rm -rf full ; exit 1)
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/asdf'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/asdf'
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/berkeley-db'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/berkeley-db'
gcc -Wl,--as-needed -shared -fPIC -DPIC bdb.o /usr/lib64/libdb.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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-bdb.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-bdb.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc'
gcc -Wl,--as-needed -shared -fPIC -DPIC linux.o -lm -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-linux.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-linux.so
/usr/bin/ld: linux.o: in function `module__linux__init_function_2':
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/linux.c:965:(.text+0x29da): warning: the use of `tempnam' is dangerous, better use `mkstemp'
/usr/bin/ld: /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/linux.c:963:(.text+0x29a2): warning: the use of `tmpnam' is dangerous, better use `mkstemp'
/usr/bin/ld: /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/linux.c:964:(.text+0x29be): warning: the use of `tmpnam_r' is dangerous, better use `mkstemp'
/usr/bin/ld: /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/linux.c:689:(.text+0xc8a): warning: the use of `mktemp' is dangerous, better use `mkstemp' or `mkdtemp'
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clx/new-clx'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-clx.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-clx.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dbus'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dbus'
gcc -Wl,--as-needed -shared -fPIC -DPIC dbus.o -ldbus-1 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-dbus.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-dbus.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/fastcgi'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/fastcgi'
gcc -Wl,--as-needed -shared -fPIC -DPIC fastcgi.o fastcgi_wrappers.o /usr/lib64/libfcgi.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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-fastcgi.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-fastcgi.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gdbm'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-gdbm.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-gdbm.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gtk2'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gtk2'
gcc -Wl,--as-needed -shared -fPIC -DPIC gtk.o -lgtk-x11-2.0 -lgdk-x11-2.0 -lpangocairo-1.0 -latk-1.0 -lcairo -lgdk_pixbuf-2.0 -lgio-2.0 -lpangoft2-1.0 -lpango-1.0 -lgobject-2.0 -lglib-2.0 -lharfbuzz -lfontconfig -lfreetype -lglade-2.0 -lgtk-x11-2.0 -lgdk-x11-2.0 -lpangocairo-1.0 -latk-1.0 -lcairo -lgdk_pixbuf-2.0 -lgio-2.0 -lpangoft2-1.0 -lpango-1.0 -lgobject-2.0 -lglib-2.0 -lharfbuzz -lfontconfig -lfreetype -lxml2 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-gtk.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-gtk.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/libsvm'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/libsvm'
gcc -Wl,--as-needed -shared -fPIC -DPIC libsvm.o -lm /usr/lib64/libsvm.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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-libsvm.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-libsvm.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/pari'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/pari'
gcc -Wl,--as-needed -shared -fPIC -DPIC cpari.o pari.o -lm /usr/lib64/libpari.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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-pari.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-pari.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/postgresql'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/postgresql'
gcc -Wl,--as-needed -shared -fPIC -DPIC postgresql.o /usr/lib64/libpq.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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-postgresql.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-postgresql.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/rawsock'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-rawsock.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-rawsock.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/zlib'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/zlib'
gcc -Wl,--as-needed -shared -fPIC -DPIC zlib.o /usr/lib64/libz.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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-zlib.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-zlib.so
gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit -c modules.c
In file included from modules.c:12:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h: In function ‘check_byte_vector’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:157: warning: result of ‘10^2’ is 8; did you mean ‘1e2’? [-Wxor-used-as-pow]
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                             ^
      |                                                                                                                                                          --
      |                                                                                                                                                          1  e
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:154: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10)
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                          ^~
      |                                                                                                                                                          0xa
gcc -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic modules.o zlib.o /usr/lib64/libz.so rawsock.o postgresql.o /usr/lib64/libpq.so cpari.o pari.o -lm /usr/lib64/libpari.so libsvm.o -lm /usr/lib64/libsvm.so gtk.o -lgtk-x11-2.0 -lgdk-x11-2.0 -lpangocairo-1.0 -latk-1.0 -lcairo -lgdk_pixbuf-2.0 -lgio-2.0 -lpangoft2-1.0 -lpango-1.0 -lgobject-2.0 -lglib-2.0 -lharfbuzz -lfontconfig -lfreetype -lglade-2.0 -lgtk-x11-2.0 -lgdk-x11-2.0 -lpangocairo-1.0 -latk-1.0 -lcairo -lgdk_pixbuf-2.0 -lgio-2.0 -lpangoft2-1.0 -lpango-1.0 -lgobject-2.0 -lglib-2.0 -lharfbuzz -lfontconfig -lfreetype -lxml2 gdbm.o /usr/lib64/libgdbm.so fastcgi.o fastcgi_wrappers.o /usr/lib64/libfcgi.so dbus.o -ldbus-1 clx.o -lXpm -lXext -lXau -lSM -lICE -lX11 linux.o -lm bdb.o /usr/lib64/libdb.so readline.o -lreadline -lncurses regexi.o calls.o -lm gettext.o lisp.a -Wl,--whole-archive libgnu.a -Wl,--no-whole-archive -lreadline -lncurses /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl -o lisp.run
/usr/bin/ld: linux.o: in function `module__linux__init_function_2':
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/linux.c:965:(.text+0x29da): warning: the use of `tempnam' is dangerous, better use `mkstemp'
/usr/bin/ld: /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/linux.c:963:(.text+0x29a2): warning: the use of `tmpnam' is dangerous, better use `mkstemp'
/usr/bin/ld: /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/linux.c:964:(.text+0x29be): warning: the use of `tmpnam_r' is dangerous, better use `mkstemp'
/usr/bin/ld: /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/linux.c:689:(.text+0xc8a): warning: the use of `mktemp' is dangerous, better use `mkstemp' or `mkdtemp'
base/lisp.run -B . -M base/lispinit.mem -norc -q -i berkeley-db/preload.lisp -i clx/new-clx/clx-preload.lisp -i gdbm/preload.lisp -i gtk2/preload -i libsvm/preload -i pari/preload.lisp -i rawsock/preload.lisp -x (saveinitmem "full/lispinit.mem")
;; Loading file berkeley-db/preload.lisp ...
;; Loaded file berkeley-db/preload.lisp
;; 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 /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gtk2/preload.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gtk2/preload.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/libsvm/preload.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/libsvm/preload.lisp
;; Loading file pari/preload.lisp ...
;; Loaded file pari/preload.lisp
;; Loading file rawsock/preload.lisp ...
;; Loaded file rawsock/preload.lisp
;; Wrote the memory image into full/lispinit.mem (3,793,560 bytes)
Bytes permanently allocated:            180,160
Bytes currently in use:               3,605,296
Bytes available until next GC:        1,797,716
3605296 ;
1797716 ;
180160 ;
1 ;
501800 ;
34677
full/lisp.run -B . -M full/lispinit.mem -norc -q -i asdf/asdf -i berkeley-db/dbi -i bindings/glibc/linux -i bindings/glibc/wrap -i clx/new-clx/clx -i clx/new-clx/image -i clx/new-clx/resource -i dbus/dbus -i fastcgi/fastcgi -i gdbm/gdbm -i gtk2/gtk -i libsvm/libsvm -i pari/pari -i postgresql/postgresql -i postgresql/sql -i rawsock/sock -i zlib/zlib -x (saveinitmem "full/lispinit.mem")
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/asdf/asdf.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/asdf/asdf.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/berkeley-db/dbi.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/berkeley-db/dbi.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/linux.fas ...
WARNING: FFI:DEF-C-CONST(SIGUNUSED): CPP constant SIGUNUSED is not defined;; Loaded file 
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/linux.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/wrap.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/wrap.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clx/new-clx/clx.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clx/new-clx/image.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clx/new-clx/image.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clx/new-clx/resource.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clx/new-clx/resource.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dbus/dbus.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dbus/dbus.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/fastcgi/fastcgi.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/fastcgi/fastcgi.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gdbm/gdbm.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gdbm/gdbm.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gtk2/gtk.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gtk2/gtk.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/libsvm/libsvm.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/libsvm/libsvm.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/pari/pari.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/pari/pari.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/postgresql/postgresql.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/postgresql/postgresql.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/postgresql/sql.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/postgresql/sql.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/rawsock/sock.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/rawsock/sock.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/zlib/zlib.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/zlib/zlib.fas
;; Wrote the memory image into full/lispinit.mem (9,953,184 bytes)
Bytes permanently allocated:            209,504
Bytes currently in use:               9,726,384
Bytes available until next GC:        4,858,260
9726384 ;
4858260 ;
209504 ;
23 ;
62941416 ;
1599402
+ cd -
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae
+ RPM_EC=0
++ jobs -p
+ exit 0
Executing(%install): /bin/sh -e /var/tmp/rpm-tmp.HdME8a
+ umask 022
+ cd /builddir/build/BUILD/clisp-2.49.93-build
+ '[' /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT '!=' / ']'
+ rm -rf /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT
++ dirname /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT
+ mkdir -p /builddir/build/BUILD/clisp-2.49.93-build
+ mkdir /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT
+ CFLAGS='-O2  -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer '
+ export CFLAGS
+ CXXFLAGS='-O2  -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer '
+ export CXXFLAGS
+ FFLAGS='-O2  -fexceptions -g -grecord-gcc-switches -pipe -Wall -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -I/usr/lib64/gfortran/modules '
+ export FFLAGS
+ FCFLAGS='-O2  -fexceptions -g -grecord-gcc-switches -pipe -Wall -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -I/usr/lib64/gfortran/modules '
+ export FCFLAGS
+ VALAFLAGS=-g
+ export VALAFLAGS
+ RUSTFLAGS='-Copt-level=3 -Cdebuginfo=2 -Ccodegen-units=1 -Cstrip=none -Cforce-frame-pointers=yes -Clink-arg=-specs=/usr/lib/rpm/redhat/redhat-package-notes --cap-lints=warn'
+ export RUSTFLAGS
+ LDFLAGS='-Wl,-z,relro -Wl,--as-needed   -Wl,-z,now -specs=/usr/lib/rpm/redhat/redhat-hardened-ld -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -Wl,--build-id=sha1 -specs=/usr/lib/rpm/redhat/redhat-package-notes '
+ export LDFLAGS
+ LT_SYS_LIBRARY_PATH=/usr/lib64:
+ export LT_SYS_LIBRARY_PATH
+ CC=gcc
+ export CC
+ CXX=g++
+ export CXX
+ cd clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae
+ make -C build DESTDIR=/builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT install
make: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/i18n'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/regexp'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/regexp'
mkdir -p readline
m=`cd ../modules/readline; pwd`; \
if test -f $m/configure && { test ! -f readline/config.status || test -n "`find $m/configure -prune -newer readline/config.status`"; } ; then ( cd readline ;\
    cache=`echo readline/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \
    if test -f ${cache} ; then \
      . ${cache}; \
      if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \
      if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \
      if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \
      if test "${ac_cv_env_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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 readline/Makefile || test -n "`find $m/Makefile -prune -newer readline/Makefile`"; } ; then \
  sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > readline/Makefile ; \
fi ; \
CLISP="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K boot  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd readline ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/readline'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/readline'
rm -rf base
MAKE=make CLISP="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K boot  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" with_dynamic_modules=no ./clisp-link add boot base i18n syscalls regexp readline || (rm -rf base ; exit 1)
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/i18n'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/i18n'
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls'
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/regexp'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/regexp'
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/readline'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/readline'
gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit -c modules.c
In file included from modules.c:12:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h: In function ‘check_byte_vector’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:157: warning: result of ‘10^2’ is 8; did you mean ‘1e2’? [-Wxor-used-as-pow]
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                             ^
      |                                                                                                                                                          --
      |                                                                                                                                                          1  e
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:154: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10)
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                          ^~
      |                                                                                                                                                          0xa
gcc -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic modules.o readline.o -lreadline -lncurses regexi.o calls.o -lm gettext.o lisp.a -Wl,--whole-archive libgnu.a -Wl,--no-whole-archive -lreadline -lncurses /usr/lib64/libffcall.so /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,306,960 bytes)
Bytes permanently allocated:            173,664
Bytes currently in use:               3,130,448
Bytes available until next GC:        1,560,292
3130448 ;
1560292 ;
173664 ;
1 ;
249112 ;
28401
base/lisp.run -B . -M base/lispinit.mem -norc -q -i i18n/i18n -i syscalls/posix -i regexp/regexp -i readline/readline -x (saveinitmem "base/lispinit.mem")
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/i18n/i18n.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/i18n/i18n.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls/posix.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls/posix.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/regexp/regexp.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/regexp/regexp.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/readline/readline.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/readline/readline.fas
;; Wrote the memory image into base/lispinit.mem (3,788,936 bytes)
Bytes permanently allocated:            180,160
Bytes currently in use:               3,600,672
Bytes available until next GC:        1,795,404
3600672 ;
1795404 ;
180160 ;
2 ;
1561040 ;
69610
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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/asdf'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/asdf'
mkdir -p berkeley-db
m=`cd ../modules/berkeley-db; pwd`; \
if test -f $m/configure && { test ! -f berkeley-db/config.status || test -n "`find $m/configure -prune -newer berkeley-db/config.status`"; } ; then ( cd berkeley-db ;\
    cache=`echo berkeley-db/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \
    if test -f ${cache} ; then \
      . ${cache}; \
      if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \
      if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \
      if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \
      if test "${ac_cv_env_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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 berkeley-db/Makefile || test -n "`find $m/Makefile -prune -newer berkeley-db/Makefile`"; } ; then \
  sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > berkeley-db/Makefile ; \
fi ; \
CLISP="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd berkeley-db ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/berkeley-db'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/berkeley-db'
mkdir -p bindings/glibc
m=`cd ../modules/bindings/glibc; pwd`; \
if test -f $m/configure && { test ! -f bindings/glibc/config.status || test -n "`find $m/configure -prune -newer bindings/glibc/config.status`"; } ; then ( cd bindings/glibc ;\
    cache=`echo bindings/glibc/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \
    if test -f ${cache} ; then \
      . ${cache}; \
      if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \
      if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \
      if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \
      if test "${ac_cv_env_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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 bindings/glibc/Makefile || test -n "`find $m/Makefile -prune -newer bindings/glibc/Makefile`"; } ; then \
  sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > bindings/glibc/Makefile ; \
fi ; \
CLISP="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd bindings/glibc ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc'
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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clx/new-clx'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clx/new-clx'
mkdir -p dbus
m=`cd ../modules/dbus; pwd`; \
if test -f $m/configure && { test ! -f dbus/config.status || test -n "`find $m/configure -prune -newer dbus/config.status`"; } ; then ( cd dbus ;\
    cache=`echo dbus/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \
    if test -f ${cache} ; then \
      . ${cache}; \
      if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \
      if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \
      if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \
      if test "${ac_cv_env_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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 dbus/Makefile || test -n "`find $m/Makefile -prune -newer dbus/Makefile`"; } ; then \
  sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > dbus/Makefile ; \
fi ; \
CLISP="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd dbus ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dbus'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dbus'
mkdir -p fastcgi
m=`cd ../modules/fastcgi; pwd`; \
if test -f $m/configure && { test ! -f fastcgi/config.status || test -n "`find $m/configure -prune -newer fastcgi/config.status`"; } ; then ( cd fastcgi ;\
    cache=`echo fastcgi/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \
    if test -f ${cache} ; then \
      . ${cache}; \
      if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \
      if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \
      if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \
      if test "${ac_cv_env_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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 fastcgi/Makefile || test -n "`find $m/Makefile -prune -newer fastcgi/Makefile`"; } ; then \
  sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > fastcgi/Makefile ; \
fi ; \
CLISP="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd fastcgi ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/fastcgi'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/fastcgi'
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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gdbm'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gdbm'
mkdir -p gtk2
m=`cd ../modules/gtk2; pwd`; \
if test -f $m/configure && { test ! -f gtk2/config.status || test -n "`find $m/configure -prune -newer gtk2/config.status`"; } ; then ( cd gtk2 ;\
    cache=`echo gtk2/ | 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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 gtk2/Makefile || test -n "`find $m/Makefile -prune -newer gtk2/Makefile`"; } ; then \
  sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > gtk2/Makefile ; \
fi ; \
CLISP="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd gtk2 ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gtk2'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gtk2'
mkdir -p libsvm
m=`cd ../modules/libsvm; pwd`; \
if test -f $m/configure && { test ! -f libsvm/config.status || test -n "`find $m/configure -prune -newer libsvm/config.status`"; } ; then ( cd libsvm ;\
    cache=`echo libsvm/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \
    if test -f ${cache} ; then \
      . ${cache}; \
      if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \
      if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \
      if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \
      if test "${ac_cv_env_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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 libsvm/Makefile || test -n "`find $m/Makefile -prune -newer libsvm/Makefile`"; } ; then \
  sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > libsvm/Makefile ; \
fi ; \
CLISP="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd libsvm ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/libsvm'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/libsvm'
mkdir -p pari
m=`cd ../modules/pari; pwd`; \
if test -f $m/configure && { test ! -f pari/config.status || test -n "`find $m/configure -prune -newer pari/config.status`"; } ; then ( cd pari ;\
    cache=`echo pari/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \
    if test -f ${cache} ; then \
      . ${cache}; \
      if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \
      if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \
      if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \
      if test "${ac_cv_env_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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 pari/Makefile || test -n "`find $m/Makefile -prune -newer pari/Makefile`"; } ; then \
  sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > pari/Makefile ; \
fi ; \
CLISP="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd pari ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/pari'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/pari'
mkdir -p postgresql
m=`cd ../modules/postgresql; pwd`; \
if test -f $m/configure && { test ! -f postgresql/config.status || test -n "`find $m/configure -prune -newer postgresql/config.status`"; } ; then ( cd postgresql ;\
    cache=`echo postgresql/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \
    if test -f ${cache} ; then \
      . ${cache}; \
      if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \
      if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \
      if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \
      if test "${ac_cv_env_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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 postgresql/Makefile || test -n "`find $m/Makefile -prune -newer postgresql/Makefile`"; } ; then \
  sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > postgresql/Makefile ; \
fi ; \
CLISP="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd postgresql ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/postgresql'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/postgresql'
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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/rawsock'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/rawsock'
mkdir -p zlib
m=`cd ../modules/zlib; pwd`; \
if test -f $m/configure && { test ! -f zlib/config.status || test -n "`find $m/configure -prune -newer zlib/config.status`"; } ; then ( cd zlib ;\
    cache=`echo zlib/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \
    if test -f ${cache} ; then \
      . ${cache}; \
      if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \
      if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \
      if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \
      if test "${ac_cv_env_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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CC=gcc' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 zlib/Makefile || test -n "`find $m/Makefile -prune -newer zlib/Makefile`"; } ; then \
  sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > zlib/Makefile ; \
fi ; \
CLISP="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -K base  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \
cd zlib ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/libffcall.so  /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/zlib'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/zlib'
rm -rf full
rm -rf dynmod; mkdir dynmod
MAKE=make CLISP="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp  -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ./clisp-link add base full asdf berkeley-db bindings/glibc clx/new-clx dbus fastcgi gdbm gtk2 libsvm pari postgresql rawsock zlib || (rm -rf full ; exit 1)
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/asdf'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/asdf'
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/berkeley-db'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/berkeley-db'
gcc -Wl,--as-needed -shared -fPIC -DPIC bdb.o /usr/lib64/libdb.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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-bdb.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-bdb.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc'
gcc -Wl,--as-needed -shared -fPIC -DPIC linux.o -lm -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-linux.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-linux.so
/usr/bin/ld: linux.o: in function `module__linux__init_function_2':
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/linux.c:965:(.text+0x29da): warning: the use of `tempnam' is dangerous, better use `mkstemp'
/usr/bin/ld: /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/linux.c:963:(.text+0x29a2): warning: the use of `tmpnam' is dangerous, better use `mkstemp'
/usr/bin/ld: /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/linux.c:964:(.text+0x29be): warning: the use of `tmpnam_r' is dangerous, better use `mkstemp'
/usr/bin/ld: /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/linux.c:689:(.text+0xc8a): warning: the use of `mktemp' is dangerous, better use `mkstemp' or `mkdtemp'
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clx/new-clx'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-clx.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-clx.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dbus'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dbus'
gcc -Wl,--as-needed -shared -fPIC -DPIC dbus.o -ldbus-1 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-dbus.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-dbus.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/fastcgi'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/fastcgi'
gcc -Wl,--as-needed -shared -fPIC -DPIC fastcgi.o fastcgi_wrappers.o /usr/lib64/libfcgi.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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-fastcgi.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-fastcgi.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gdbm'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-gdbm.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-gdbm.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gtk2'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gtk2'
gcc -Wl,--as-needed -shared -fPIC -DPIC gtk.o -lgtk-x11-2.0 -lgdk-x11-2.0 -lpangocairo-1.0 -latk-1.0 -lcairo -lgdk_pixbuf-2.0 -lgio-2.0 -lpangoft2-1.0 -lpango-1.0 -lgobject-2.0 -lglib-2.0 -lharfbuzz -lfontconfig -lfreetype -lglade-2.0 -lgtk-x11-2.0 -lgdk-x11-2.0 -lpangocairo-1.0 -latk-1.0 -lcairo -lgdk_pixbuf-2.0 -lgio-2.0 -lpangoft2-1.0 -lpango-1.0 -lgobject-2.0 -lglib-2.0 -lharfbuzz -lfontconfig -lfreetype -lxml2 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-gtk.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-gtk.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/libsvm'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/libsvm'
gcc -Wl,--as-needed -shared -fPIC -DPIC libsvm.o -lm /usr/lib64/libsvm.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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-libsvm.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-libsvm.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/pari'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/pari'
gcc -Wl,--as-needed -shared -fPIC -DPIC cpari.o pari.o -lm /usr/lib64/libpari.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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-pari.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-pari.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/postgresql'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/postgresql'
gcc -Wl,--as-needed -shared -fPIC -DPIC postgresql.o /usr/lib64/libpq.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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-postgresql.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-postgresql.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/rawsock'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-rawsock.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-rawsock.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/zlib'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/zlib'
gcc -Wl,--as-needed -shared -fPIC -DPIC zlib.o /usr/lib64/libz.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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-zlib.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-zlib.so
gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit -c modules.c
In file included from modules.c:12:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h: In function ‘check_byte_vector’:
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:157: warning: result of ‘10^2’ is 8; did you mean ‘1e2’? [-Wxor-used-as-pow]
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                             ^
      |                                                                                                                                                          --
      |                                                                                                                                                          1  e
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit/clisp.h:7019:154: note: you can silence this warning by using a hexadecimal constant (0xa rather than 10)
 7019 | static inline object check_byte_vector (object obj) { if (!((((oint)(obj) & 3) == (1UL+0)) && ((((sintB)((((Record)((oint)(obj)-1UL)))->tfl & 0xFF)) & ~(Rectype_Sbvector ^ Rectype_bvector)) == (Rectype_Sbvector & Rectype_bvector) + (3)) )) obj = check_byte_vector_replacement(obj); return obj; }
      |                                                                                                                                                          ^~
      |                                                                                                                                                          0xa
gcc -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic modules.o zlib.o /usr/lib64/libz.so rawsock.o postgresql.o /usr/lib64/libpq.so cpari.o pari.o -lm /usr/lib64/libpari.so libsvm.o -lm /usr/lib64/libsvm.so gtk.o -lgtk-x11-2.0 -lgdk-x11-2.0 -lpangocairo-1.0 -latk-1.0 -lcairo -lgdk_pixbuf-2.0 -lgio-2.0 -lpangoft2-1.0 -lpango-1.0 -lgobject-2.0 -lglib-2.0 -lharfbuzz -lfontconfig -lfreetype -lglade-2.0 -lgtk-x11-2.0 -lgdk-x11-2.0 -lpangocairo-1.0 -latk-1.0 -lcairo -lgdk_pixbuf-2.0 -lgio-2.0 -lpangoft2-1.0 -lpango-1.0 -lgobject-2.0 -lglib-2.0 -lharfbuzz -lfontconfig -lfreetype -lxml2 gdbm.o /usr/lib64/libgdbm.so fastcgi.o fastcgi_wrappers.o /usr/lib64/libfcgi.so dbus.o -ldbus-1 clx.o -lXpm -lXext -lXau -lSM -lICE -lX11 linux.o -lm bdb.o /usr/lib64/libdb.so readline.o -lreadline -lncurses regexi.o calls.o -lm gettext.o lisp.a -Wl,--whole-archive libgnu.a -Wl,--no-whole-archive -lreadline -lncurses /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl -o lisp.run
/usr/bin/ld: linux.o: in function `module__linux__init_function_2':
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/linux.c:965:(.text+0x29da): warning: the use of `tempnam' is dangerous, better use `mkstemp'
/usr/bin/ld: /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/linux.c:963:(.text+0x29a2): warning: the use of `tmpnam' is dangerous, better use `mkstemp'
/usr/bin/ld: /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/linux.c:964:(.text+0x29be): warning: the use of `tmpnam_r' is dangerous, better use `mkstemp'
/usr/bin/ld: /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/linux.c:689:(.text+0xc8a): warning: the use of `mktemp' is dangerous, better use `mkstemp' or `mkdtemp'
base/lisp.run -B . -M base/lispinit.mem -norc -q -i berkeley-db/preload.lisp -i clx/new-clx/clx-preload.lisp -i gdbm/preload.lisp -i gtk2/preload -i libsvm/preload -i pari/preload.lisp -i rawsock/preload.lisp -x (saveinitmem "full/lispinit.mem")
;; Loading file berkeley-db/preload.lisp ...
;; Loaded file berkeley-db/preload.lisp
;; 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 /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gtk2/preload.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gtk2/preload.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/libsvm/preload.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/libsvm/preload.lisp
;; Loading file pari/preload.lisp ...
;; Loaded file pari/preload.lisp
;; Loading file rawsock/preload.lisp ...
;; Loaded file rawsock/preload.lisp
;; Wrote the memory image into full/lispinit.mem (3,793,560 bytes)
Bytes permanently allocated:            180,160
Bytes currently in use:               3,605,296
Bytes available until next GC:        1,797,716
3605296 ;
1797716 ;
180160 ;
1 ;
501800 ;
34427
full/lisp.run -B . -M full/lispinit.mem -norc -q -i asdf/asdf -i berkeley-db/dbi -i bindings/glibc/linux -i bindings/glibc/wrap -i clx/new-clx/clx -i clx/new-clx/image -i clx/new-clx/resource -i dbus/dbus -i fastcgi/fastcgi -i gdbm/gdbm -i gtk2/gtk -i libsvm/libsvm -i pari/pari -i postgresql/postgresql -i postgresql/sql -i rawsock/sock -i zlib/zlib -x (saveinitmem "full/lispinit.mem")
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/asdf/asdf.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/asdf/asdf.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/berkeley-db/dbi.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/berkeley-db/dbi.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/linux.fas ...
WARNING: FFI:DEF-C-CONST(SIGUNUSED): CPP constant SIGUNUSED is not defined;; Loaded file 
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/linux.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/wrap.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/wrap.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clx/new-clx/clx.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clx/new-clx/image.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clx/new-clx/image.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clx/new-clx/resource.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clx/new-clx/resource.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dbus/dbus.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dbus/dbus.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/fastcgi/fastcgi.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/fastcgi/fastcgi.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gdbm/gdbm.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gdbm/gdbm.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gtk2/gtk.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gtk2/gtk.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/libsvm/libsvm.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/libsvm/libsvm.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/pari/pari.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/pari/pari.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/postgresql/postgresql.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/postgresql/postgresql.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/postgresql/sql.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/postgresql/sql.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/rawsock/sock.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/rawsock/sock.fas
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/zlib/zlib.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/zlib/zlib.fas
;; Wrote the memory image into full/lispinit.mem (9,953,184 bytes)
Bytes permanently allocated:            209,504
Bytes currently in use:               9,726,384
Bytes available until next GC:        4,858,260
9726384 ;
4858260 ;
209504 ;
23 ;
62941416 ;
1599143
mkdir -p /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/dynmod
DESTDIR=`cd "/builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+"; pwd` CLISP='./clisp -q -norc' ./clisp-link install asdf berkeley-db bindings/glibc clx/new-clx dbus fastcgi gdbm gtk2 libsvm pari postgresql rawsock zlib
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/asdf'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/asdf'
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/asdf'
cp Makefile asdf.fas link.sh /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/asdf/asdf.lisp /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/asdf
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/asdf'
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/berkeley-db'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/berkeley-db'
gcc -Wl,--as-needed -shared -fPIC -DPIC bdb.o /usr/lib64/libdb.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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-bdb.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-bdb.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/berkeley-db'
cp link.sh Makefile bdb.o dbi.fas preload.lisp /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/berkeley-db/dbi.lisp /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/berkeley-db
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/berkeley-db'
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc'
gcc -Wl,--as-needed -shared -fPIC -DPIC linux.o -lm -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-linux.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-linux.so
/usr/bin/ld: linux.o: in function `module__linux__init_function_2':
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/linux.c:965:(.text+0x29da): warning: the use of `tempnam' is dangerous, better use `mkstemp'
/usr/bin/ld: /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/linux.c:963:(.text+0x29a2): warning: the use of `tmpnam' is dangerous, better use `mkstemp'
/usr/bin/ld: /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/linux.c:964:(.text+0x29be): warning: the use of `tmpnam_r' is dangerous, better use `mkstemp'
/usr/bin/ld: /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc/linux.c:689:(.text+0xc8a): warning: the use of `mktemp' is dangerous, better use `mkstemp' or `mkdtemp'
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc'
cp Makefile linux.o linux.fas wrap.fas link.sh /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/bindings/glibc/linux.lisp /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/bindings/glibc/wrap.lisp /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/bindings/glibc
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/bindings/glibc'
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clx/new-clx'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-clx.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-clx.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clx/new-clx'
cp link.sh Makefile clx.fas image.fas resource.fas clx.o clx-preload.lisp /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/README /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/clx.lisp /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/image.lisp /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/resource.lisp /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/clx/new-clx
mkdir -p /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/clx/new-clx/demos
cp /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/demos/*.lisp /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/demos/README /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/clx/new-clx/demos/
mkdir -p /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/clx/new-clx/demos/screens /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/clx/new-clx/demos/xpms
cp /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/demos/screens/screen.* /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/clx/new-clx/demos/screens/
cp /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/clx/new-clx/demos/xpms/*.xpm /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/clx/new-clx/demos/xpms/
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clx/new-clx'
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dbus'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dbus'
gcc -Wl,--as-needed -shared -fPIC -DPIC dbus.o -ldbus-1 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-dbus.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-dbus.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dbus'
cp link.sh Makefile dbus.o dbus.fas /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/dbus/dbus.lisp /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/dbus
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dbus'
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/fastcgi'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/fastcgi'
gcc -Wl,--as-needed -shared -fPIC -DPIC fastcgi.o fastcgi_wrappers.o /usr/lib64/libfcgi.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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-fastcgi.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-fastcgi.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/fastcgi'
cp link.sh Makefile fastcgi.o fastcgi.fas fastcgi_wrappers.o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/fastcgi/fastcgi.lisp /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/fastcgi/README /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/fastcgi
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/fastcgi'
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gdbm'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-gdbm.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-gdbm.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gdbm'
cp link.sh Makefile gdbm.fas gdbm.o preload.lisp /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/gdbm/gdbm.lisp /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/gdbm
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gdbm'
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gtk2'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gtk2'
gcc -Wl,--as-needed -shared -fPIC -DPIC gtk.o -lgtk-x11-2.0 -lgdk-x11-2.0 -lpangocairo-1.0 -latk-1.0 -lcairo -lgdk_pixbuf-2.0 -lgio-2.0 -lpangoft2-1.0 -lpango-1.0 -lgobject-2.0 -lglib-2.0 -lharfbuzz -lfontconfig -lfreetype -lglade-2.0 -lgtk-x11-2.0 -lgdk-x11-2.0 -lpangocairo-1.0 -latk-1.0 -lcairo -lgdk_pixbuf-2.0 -lgio-2.0 -lpangoft2-1.0 -lpango-1.0 -lgobject-2.0 -lglib-2.0 -lharfbuzz -lfontconfig -lfreetype -lxml2 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-gtk.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-gtk.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gtk2'
cp link.sh Makefile gtk.fas gtk.o preload.lisp /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/gtk2/gtk-server.cfg /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/gtk2/gtk.lisp /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/gtk2/ui.glade /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/gtk2
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gtk2'
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/libsvm'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/libsvm'
gcc -Wl,--as-needed -shared -fPIC -DPIC libsvm.o -lm /usr/lib64/libsvm.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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-libsvm.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-libsvm.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/libsvm'
cp link.sh Makefile libsvm.fas libsvm.o preload.lisp /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/libsvm/libsvm.lisp /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/libsvm/README /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/libsvm
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/libsvm'
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/pari'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/pari'
gcc -Wl,--as-needed -shared -fPIC -DPIC cpari.o pari.o -lm /usr/lib64/libpari.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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-pari.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-pari.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/pari'
cp link.sh Makefile pari.o cpari.o pari.fas preload.lisp /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/pari/pari.lisp /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/pari/desc2lisp.lisp /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/pari/README /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/pari
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/pari'
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/postgresql'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/postgresql'
gcc -Wl,--as-needed -shared -fPIC -DPIC postgresql.o /usr/lib64/libpq.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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-postgresql.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-postgresql.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/postgresql'
cp link.sh Makefile postgresql.o postgresql.fas sql.fas /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/postgresql/postgresql.lisp /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/postgresql/sql.lisp /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/postgresql/README /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/postgresql
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/postgresql'
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/rawsock'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-rawsock.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-rawsock.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/rawsock'
cp link.sh Makefile sock.fas rawsock.o preload.lisp /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/rawsock/sock.lisp /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/rawsock
mkdir -p /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/rawsock/demos
cp /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/rawsock/demos/*.lisp /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/rawsock/demos/README /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/rawsock/demos/
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/rawsock'
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/zlib'
make[1]: Nothing to be done for 'clisp-module'.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/zlib'
gcc -Wl,--as-needed -shared -fPIC -DPIC zlib.o /usr/lib64/libz.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,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-zlib.so -o /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dynmod/lib-zlib.so
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/zlib'
cp link.sh Makefile zlib.o zlib.fas /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/zlib/zlib.lisp /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/zlib
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/zlib'
mkdir -p /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr
mkdir -p /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr
mkdir -p /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64
mkdir -p /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+
mkdir -p /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/data
/usr/bin/install -c -m 644 data/UnicodeDataFull.txt /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/data/UnicodeDataFull.txt
/usr/bin/install -c -m 644 data/Symbol-Table.text /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/data/Symbol-Table.text
(cd /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+ && rm -rf base full)
mkdir -p /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/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/BUILD/clisp-2.49.93-build/BUILDROOT/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/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/$d; \
  case $f in \
    */lisp.run) /usr/bin/install -c $f /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/$f;; \
    *) /usr/bin/install -c -m 644 $f /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/$f;; \
  esac; \
done; done
mkdir -p /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/bin
/usr/bin/install -c clisp-link /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/bin/clisp-link
cd po && make install DESTDIR='/builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT' prefix='/usr' exec_prefix='/usr'
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/po'
installing ../../src/po/en.gmo as /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/locale/en/LC_MESSAGES/clisp.mo
installing ../../src/po/clisplow_en.gmo as /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/locale/en/LC_MESSAGES/clisplow.mo
installing ../../src/po/da.gmo as /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/locale/da/LC_MESSAGES/clisp.mo
installing ../../src/po/clisplow_da.gmo as /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/locale/da/LC_MESSAGES/clisplow.mo
installing ../../src/po/de.gmo as /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/locale/de/LC_MESSAGES/clisp.mo
installing ../../src/po/clisplow_de.gmo as /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/locale/de/LC_MESSAGES/clisplow.mo
installing ../../src/po/fr.gmo as /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/locale/fr/LC_MESSAGES/clisp.mo
installing ../../src/po/clisplow_fr.gmo as /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/locale/fr/LC_MESSAGES/clisplow.mo
installing ../../src/po/es.gmo as /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/locale/es/LC_MESSAGES/clisp.mo
installing ../../src/po/clisplow_es.gmo as /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/locale/es/LC_MESSAGES/clisplow.mo
installing ../../src/po/nl.gmo as /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/locale/nl/LC_MESSAGES/clisp.mo
installing ../../src/po/clisplow_nl.gmo as /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/locale/nl/LC_MESSAGES/clisplow.mo
installing ../../src/po/ru.gmo as /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/locale/ru/LC_MESSAGES/clisp.mo
installing ../../src/po/clisplow_ru.gmo as /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/locale/ru/LC_MESSAGES/clisplow.mo
installing ../../src/po/sv.gmo as /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/locale/sv/LC_MESSAGES/clisp.mo
installing ../../src/po/clisplow_sv.gmo as /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/locale/sv/LC_MESSAGES/clisplow.mo
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/po'
gcc -I/usr/include/libsvm  -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/gllib -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -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 -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -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/BUILD/clisp-2.49.93-build/BUILDROOT/usr/bin/clisp
mkdir -p /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/emacs/site-lisp
/usr/bin/install -c -m 644 ../emacs/clisp-coding.el /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/emacs/site-lisp/clisp-coding.el
/usr/bin/install -c -m 644 ../emacs/clisp-indent.el /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/emacs/site-lisp/clisp-indent.el
/usr/bin/install -c -m 644 ../emacs/clisp-indent.lisp /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/emacs/site-lisp/clisp-indent.lisp
/usr/bin/install -c -m 644 ../emacs/clisp-ffi.el /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/emacs/site-lisp/clisp-ffi.el
mkdir -p /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/vim/vimfiles/after/syntax
/usr/bin/install -c -m 644 ../emacs/lisp.vim /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/vim/vimfiles/after/syntax/lisp.vim
mkdir -p /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/aclocal
/usr/bin/install -c -m 644 ../src/m4/clisp.m4 /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/aclocal/clisp.m4
mkdir -p /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr
mkdir -p /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr
mkdir -p /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share
mkdir -p /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/man
mkdir -p /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/man/man1
/usr/bin/install -c -m 644 clisp.1 /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/man/man1/clisp.1
/usr/bin/install -c -m 644 clisp-link.1 /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/man/man1/clisp-link.1
mkdir -p /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr
mkdir -p /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr
mkdir -p /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/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/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/doc/clisp/
mkdir -p /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/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/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/doc/clisp/doc/
make: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build'
+ cp -a build/full /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+
+ rm -f /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/doc/clisp/doc/clisp.dvi /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/doc/clisp/doc/clisp.1 /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/doc/clisp/doc/clisp.ps
+ rm -f /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/doc/clisp/COPYRIGHT /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/doc/clisp/GNU-GPL
+ cp -p doc/mop-spec.pdf /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/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/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/doc/clisp/doc
+ cp -p doc/Why-CLISP-is-under-GPL /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/doc/clisp/doc
+ cp -p doc/regexp.html /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/doc/clisp/doc
+ find /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64 -name '*.dvi' -exec rm -f '{}' +
+ /usr/lib/rpm/find-lang.sh /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT clisp
+ /usr/lib/rpm/find-lang.sh /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT clisplow
+ cat clisplow.lang
+ pushd /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/emacs/site-lisp
~/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/share/emacs/site-lisp ~/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae
+ /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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae
+ cp -p config.rpath.orig /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/build-aux/config.rpath
+ chmod a+x /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/build-aux/depcomp
++ find /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64 -name Makefile
+ for mk in $(find /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64 -name Makefile)
+ sed -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/asdf/Makefile
+ for mk in $(find /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64 -name Makefile)
+ sed -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/berkeley-db/Makefile
+ for mk in $(find /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64 -name Makefile)
+ sed -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/bindings/glibc/Makefile
+ for mk in $(find /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64 -name Makefile)
+ sed -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/clx/new-clx/Makefile
+ for mk in $(find /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64 -name Makefile)
+ sed -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/dbus/Makefile
+ for mk in $(find /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64 -name Makefile)
+ sed -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/fastcgi/Makefile
+ for mk in $(find /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64 -name Makefile)
+ sed -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/gdbm/Makefile
+ for mk in $(find /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64 -name Makefile)
+ sed -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/gtk2/Makefile
+ for mk in $(find /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64 -name Makefile)
+ sed -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/libsvm/Makefile
+ for mk in $(find /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64 -name Makefile)
+ sed -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/pari/Makefile
+ for mk in $(find /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64 -name Makefile)
+ sed -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/postgresql/Makefile
+ for mk in $(find /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64 -name Makefile)
+ sed -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/rawsock/Makefile
+ for mk in $(find /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64 -name Makefile)
+ sed -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/zlib/Makefile
+ for mk in /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/{base,full}/makevars
+ sed -e 's, -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae[^'\'']*,,' -e 's,/usr/lib64/lib\([[:alnum:]]*\)\.so,-l\1,g' -i /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/base/makevars
+ for mk in /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/{base,full}/makevars
+ sed -e 's, -I/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae[^'\'']*,,' -e 's,/usr/lib64/lib\([[:alnum:]]*\)\.so,-l\1,g' -i /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/full/makevars
+ for dir in /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/*
++ basename /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/asdf
+ cp -p build/asdf/config.h /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/asdf
cp: cannot stat 'build/asdf/config.h': No such file or directory
+ :
+ for dir in /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/*
++ basename /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/base
+ cp -p build/base/config.h /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/base
cp: cannot stat 'build/base/config.h': No such file or directory
+ :
+ for dir in /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/*
++ basename /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/berkeley-db
+ cp -p build/berkeley-db/config.h /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/berkeley-db
+ for dir in /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/*
++ basename /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/bindings
+ cp -p build/bindings/config.h /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/bindings
cp: cannot stat 'build/bindings/config.h': No such file or directory
+ :
+ for dir in /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/*
++ basename /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/build-aux
+ cp -p build/build-aux/config.h /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/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/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/*
++ basename /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/clx
+ cp -p build/clx/config.h /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/clx
cp: cannot stat 'build/clx/config.h': No such file or directory
+ :
+ for dir in /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/*
++ basename /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/data
+ cp -p build/data/config.h /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/data
cp: cannot stat 'build/data/config.h': No such file or directory
+ :
+ for dir in /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/*
++ basename /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/dbus
+ cp -p build/dbus/config.h /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/dbus
+ for dir in /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/*
++ basename /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/dynmod
+ cp -p build/dynmod/config.h /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/dynmod
cp: cannot stat 'build/dynmod/config.h': No such file or directory
+ :
+ for dir in /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/*
++ basename /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/fastcgi
+ cp -p build/fastcgi/config.h /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/fastcgi
+ for dir in /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/*
++ basename /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/full
+ cp -p build/full/config.h /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/full
cp: cannot stat 'build/full/config.h': No such file or directory
+ :
+ for dir in /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/*
++ basename /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/gdbm
+ cp -p build/gdbm/config.h /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/gdbm
+ for dir in /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/*
++ basename /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/gtk2
+ cp -p build/gtk2/config.h /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/gtk2
+ for dir in /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/*
++ basename /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/libsvm
+ cp -p build/libsvm/config.h /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/libsvm
+ for dir in /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/*
++ basename /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/linkkit
+ cp -p build/linkkit/config.h /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/linkkit
cp: cannot stat 'build/linkkit/config.h': No such file or directory
+ :
+ for dir in /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/*
++ basename /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/pari
+ cp -p build/pari/config.h /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/pari
+ for dir in /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/*
++ basename /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/postgresql
+ cp -p build/postgresql/config.h /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/postgresql
+ for dir in /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/*
++ basename /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/rawsock
+ cp -p build/rawsock/config.h /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/rawsock
+ for dir in /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/*
++ basename /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/zlib
+ cp -p build/zlib/config.h /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/zlib
+ cp -p build/config.h /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+
+ cp -p build/clx/new-clx/config.h /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/clx/new-clx
+ pushd /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/full
~/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/full ~/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae
+ 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
+ for obj in cpari pari
+ rm -f cpari.o
+ ln -s ../pari/cpari.o cpari.o
+ for obj in cpari pari
+ rm -f pari.o
+ ln -s ../pari/pari.o pari.o
+ rm -f bdb.o
+ ln -s ../berkeley-db/bdb.o bdb.o
+ rm -f clx.o
+ ln -s ../clx/new-clx/clx.o clx.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 gtk.o
+ ln -s ../gtk2/gtk.o gtk.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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae
+ ln -s ../../src/modules.c build/base/modules.c
+ ln -s ../../src/modules.c build/full/modules.c
+ /usr/bin/find-debuginfo -j4 --strict-build-id -m -i --build-id-seed 2.49.93-39.20240901gitc735dd5.fc41 --unique-debug-suffix -2.49.93-39.20240901gitc735dd5.fc41.riscv64 --unique-debug-src-base clisp-2.49.93-39.20240901gitc735dd5.fc41.riscv64 --run-dwz --dwz-low-mem-die-limit 10000000 --dwz-max-die-limit 50000000 -S debugsourcefiles.list /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae
find-debuginfo: starting
Extracting debug info from 15 files
DWARF-compressing 15 files
sepdebugcrcfix: Updated 15 CRC32s, 0 CRC32s did match.
Creating .debug symlinks for symlinks to ELF files
Copying sources found by 'debugedit -l' to /usr/src/debug/clisp-2.49.93-39.20240901gitc735dd5.fc41.riscv64
cpio: build/src/kernel/none/level1.h: Cannot stat: No such file or directory
39830 blocks
find-debuginfo: done
+ /usr/lib/rpm/check-buildroot
+ /usr/lib/rpm/redhat/brp-ldconfig
+ /usr/lib/rpm/brp-compress
+ /usr/lib/rpm/redhat/brp-strip-lto /usr/bin/strip
+ /usr/lib/rpm/brp-strip-static-archive /usr/bin/strip
+ /usr/lib/rpm/check-rpaths
+ /usr/lib/rpm/redhat/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/brp-remove-la-files
+ env /usr/lib/rpm/redhat/brp-python-bytecompile '' 1 0 -j4
+ /usr/lib/rpm/redhat/brp-python-hardlink
+ /usr/bin/add-determinism --brp -j4 /builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT
/builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/base/libnoreadline.a: replacing with normalized version
/builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/base/libgnu.a: replacing with normalized version
/builddir/build/BUILD/clisp-2.49.93-build/BUILDROOT/usr/lib64/clisp-2.49.93+/base/lisp.a: replacing with normalized version
Scanned 116 directories and 684 files,
               processed 7 inodes,
               3 modified (3 replaced + 0 rewritten),
               0 unsupported format, 0 errors
Reading /builddir/build/BUILD/clisp-2.49.93-build/SPECPARTS/rpm-debuginfo.specpart
Executing(%check): /bin/sh -e /var/tmp/rpm-tmp.z8bf3R
+ umask 022
+ cd /builddir/build/BUILD/clisp-2.49.93-build
+ CFLAGS='-O2  -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer '
+ export CFLAGS
+ CXXFLAGS='-O2  -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer '
+ export CXXFLAGS
+ FFLAGS='-O2  -fexceptions -g -grecord-gcc-switches -pipe -Wall -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -I/usr/lib64/gfortran/modules '
+ export FFLAGS
+ FCFLAGS='-O2  -fexceptions -g -grecord-gcc-switches -pipe -Wall -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -fasynchronous-unwind-tables -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -I/usr/lib64/gfortran/modules '
+ export FCFLAGS
+ VALAFLAGS=-g
+ export VALAFLAGS
+ RUSTFLAGS='-Copt-level=3 -Cdebuginfo=2 -Ccodegen-units=1 -Cstrip=none -Cforce-frame-pointers=yes -Clink-arg=-specs=/usr/lib/rpm/redhat/redhat-package-notes --cap-lints=warn'
+ export RUSTFLAGS
+ LDFLAGS='-Wl,-z,relro -Wl,--as-needed   -Wl,-z,now -specs=/usr/lib/rpm/redhat/redhat-hardened-ld -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1  -Wl,--build-id=sha1 -specs=/usr/lib/rpm/redhat/redhat-package-notes '
+ export LDFLAGS
+ LT_SYS_LIBRARY_PATH=/usr/lib64:
+ export LT_SYS_LIBRARY_PATH
+ CC=gcc
+ export CC
+ CXX=g++
+ export CXX
+ cd clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae
+ make -C build check
make: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/init.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/defseq.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/backquote.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/defmacro.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/macros1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/macros2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/defs1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/lambdalist.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/places.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/floatprint.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/defpackage.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/type.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/subtypep.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-package.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-macros.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-class0.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-metaobject1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-slotdef1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-stablehash1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-specializer1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-class1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-class2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/defstruct.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/international.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/functions.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/trace.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/cmacros.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/compiler.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/defs2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/loop.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-stablehash2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-specializer2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-specializer3.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-class4.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-class5.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-class6.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-slotdef2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-slotdef3.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-slots1.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-slots2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-method2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-method3.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-method4.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-methcomb1.lisp ...
WARNING: Redefining metaobject class #<STANDARD-CLASS METHOD-COMBINATION> has
         no effect.
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-methcomb2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-methcomb3.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-methcomb4.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun2a.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun2b.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun3.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun4.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-genfun5.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-dependent.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-print.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clos-custom.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/documentation.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/fill-out.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/disassem.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/condition.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/loadform.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gstream.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/xcharin.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/keyboard.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/screen.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/runprog.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/query.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/reploop.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/dribble.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/complete.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/pprint.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/describe.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/room.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/edit.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/macros3.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/clhs.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/inspect.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/gray.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/case-sensitive.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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/foreign1.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/foreign1.lisp ...
WARNING: DEFINE-COMPILER-MACRO: redefining compiler macro PARSE-C-TYPE in
         /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/foreign1.lisp,
         was defined in top-level
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/stage/foreign1.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/exporting.lisp -o stage/
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/exporting.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/german.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/french.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/spanish.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/russian.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/danish.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/dutch.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/src/deprecated.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/config.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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 foreign1.fas stage/foreign1.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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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/29389/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/29391/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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+ (2024-07-04) <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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/tests.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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+ (2024-07-04) <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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/tests.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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+ (2024-07-04) (built 3934324800) (memory 3935307128)"
EQL-OK: T
(STRINGP (SHOW (MACHINE-INSTANCE)))
"2c767f5a8f804f218718eb1f4703fde7 [127.0.0.2]"
EQL-OK: T
(STRINGP (SHOW (MACHINE-TYPE)))
"RISCV64"
EQL-OK: T
(STRINGP (SHOW (MACHINE-VERSION)))
"RISCV64"
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>
WARNING: Replacing method
         #1=#<STANDARD-METHOD (#2=#<BUILT-IN-CLASS INTEGER> #3=#<BUILT-IN-CLASS NUMBER>)>
         in #<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)
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>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))))
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>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*))
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/clos-tst-make-load-form-demo.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/clos-tst-make-load-form-demo.fas
0 errors, 0 warnings
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/clos-tst-make-load-form-demo.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/clos-tst-mlf-tmp.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/clos-tst-mlf-tmp.fas
0 errors, 0 warnings
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/clos-tst-mlf-tmp.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/clos-tst-mlf-tmp.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/clos-tst-mlf-tmp.fas
0 errors, 0 warnings;; 
Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/clos-tst-mlf-tmp.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/clos-tst-make-load-form-demo.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/clos-tst-make-load-form-demo.fas
0 errors, 0 warnings
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/clos-tst-make-load-form-demo.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/clos-tst-make-load-form-demo.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/clos-tst-make-load-form-demo.fas
0 errors, 0 warnings
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/clos-tst-make-load-form-demo.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/clos-tst.lisp ...
WARNING: (SETF FIND-CLASS): redefining class FOO in
         /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/clos-tst.lisp,
         was defined in top-level
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/clos-tst.fas
0 errors, 1 warning
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/clos-tst.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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
(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)))
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 obsoleteEQUAL-OK: (X-Y-POSITION 1.0000000000000002
d0 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)))
WARNING: DEFCLASS: Class FOO70 (or one of its ancestors) is being redefined,
         instances are obsoleteEQUAL-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)))
WARNING: DEFCLASS: Class FOO71 (or one of its ancestors) is being redefined,
         instances are obsoleteEQUAL-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)))
WARNING: DEFCLASS: Class FOO72 (or one of its ancestors) is being redefined,
         instances are obsolete
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)))
WARNING: DEFCLASS: Class FOO73 (or one of its ancestors) is being redefined,
         instances are obsoleteEQUAL-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)))
WARNING: DEFCLASS: Class FOO74 (or one of its ancestors) is being redefined,
         instances are obsoleteEQUAL-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)))
WARNING: DEFCLASS: Class FOO75 (or one of its ancestors) is being redefined,
         instances are obsoleteEQUAL-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)))
WARNING: DEFCLASS: Class FOO76 (or one of its ancestors) is being redefined,
         instances are obsoleteEQUAL-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)))
WARNING: DEFCLASS: Class FOO77 (or one of its ancestors) is being redefined,
         instances are obsoleteEQUAL-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)))
WARNING: DEFCLASS: Class FOO80B (or one of its ancestors) is being redefined,
         instances are obsoleteEQUAL-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)))
WARNING: DEFCLASS: Class FOO81B (or one of its ancestors) is being redefined,
         instances are obsoleteEQUAL-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)))
WARNING: DEFCLASS: Class FOO82B (or one of its ancestors) is being redefined,
         instances are obsoleteEQUAL-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)))
WARNING: DEFCLASS: Class FOO83B (or one of its ancestors) is being redefined,
         instances are obsoleteEQUAL-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)))
WARNING: DEFCLASS: Class FOO84B (or one of its ancestors) is being redefined,
         instances are obsoleteEQUAL-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)))
WARNING: DEFCLASS: Class FOO85B (or one of its ancestors) is being redefined,
         instances are obsoleteEQUAL-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)))
WARNING: DEFCLASS: Class FOO86B (or one of its ancestors) is being redefined,
         instances are obsoleteEQUAL-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)))
WARNING: DEFCLASS: Class FOO87B (or one of its ancestors) is being redefined,
         instances are obsoleteEQUAL-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))))))
WARNING: DEFCLASS: Class FOO90B (or one of its ancestors) is being redefined,
         instances are obsoleteEQUAL-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=#:G9198: inconsistent precedence graph, cycle (#2=#<STANDARD-CLASS #:G9201> #3=#<STANDARD-CLASS #:G9202>)
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 #x0000000080428449>: 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 #x0000000080428449>: 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 #x0000000080428449>: 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 #x000000008034BC21>:
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.
         Misspelled 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?EQUALP-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)
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 #x000000008039AF91>: 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 #x00000000803D5229>: 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 #:G13639 &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) #:G13683 &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) #:G13823 &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 #:G15304 &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) #:G15348 &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) #:G15488 &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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clos-custom.fas
WARNING: (SETF FIND-CLASS): redefining class FORWARD-REFERENCED-CLASS in
         top-level, was defined in
         /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/tests/listeners.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/eval20-tst-eval-when-test.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/eval20-tst-eval-when-test.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/eval20-tst-eval-when-test.fas
0 errors, 0 warnings;; 
Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/eval20-tst-eval-when-test.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/eval20-tst-eval-when-test.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/eval20-tst-eval-when-test.fas
0 errors, 0 warnings
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/eval20-tst-eval-when-test.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/eval20-tst-eval-when-test.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/eval20-tst-eval-when-test.fas
0 errors, 0 warnings
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/eval20-tst-eval-when-test.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/eval20-tst-eval-when-test.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/eval20-tst-eval-when-test.fas
0 errors, 0 warnings
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/eval20-tst-eval-when-test.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/eval20-tst-eval-when-test.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/eval20-tst-eval-when-test.fas
0 errors, 0 warnings
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/eval20-tst-eval-when-test.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/decl.fas
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*0 errors, 2 warnings
) WARNINGS)
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/decl.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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))
EQL-OK: 1
(LET ((X 1)) (LOCALLY (DECLARE (SYSTEM::IMPLEMENTATION-DEPENDENT X)) T))
EQL-OK: WARNING: Reference to X is implementation-dependent, per ANSI CL 6.1.1.4.
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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/ext-clisp-tst/
Creating directory: /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/ext-clisp-tst/foo/
Creating directory: /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/ext-clisp-tst/foo/bar/
Creating directory: /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/ext-clisp-tst/foo/bar/baz/
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/ext-clisp-tst/foo/bar/baz/zot.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/ext-clisp-tst/foo/bar/baz/zot.lisp
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/ext-clisp-tst/foo/bar/baz/zot.lisp      29   2024-09-14 09:24:46
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/ext-clisp-tst/       6   2024-09-14 09:24:46
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/ext-clisp-tst/foo/       6   2024-09-14 09:24:46
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/ext-clisp-tst/foo/bar/       6   2024-09-14 09:24:46
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/ext-clisp-tst/foo/bar/baz/      16   2024-09-14 09:24:46
removing file #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/ext-clisp-tst/foo/bar/baz/zot.lisp"
removing directory #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/ext-clisp-tst/foo/bar/baz/"
removing directory #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/ext-clisp-tst/foo/bar/"
removing directory #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/ext-clisp-tst/foo/"
removing directory #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/ext-clisp-tst/"
EQUAL-OK: (#P"")
(CHECK-LOAD "ext-clisp-tst/foo/bar/baz/zot")
Creating directory: /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/ext-clisp-tst/
Creating directory: /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/ext-clisp-tst/foo/
Creating directory: /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/ext-clisp-tst/foo/bar/
Creating directory: /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/ext-clisp-tst/foo/bar/baz/
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/ext-clisp-tst/foo/bar/baz/zot ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/ext-clisp-tst/foo/bar/baz/zot
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/ext-clisp-tst/foo/bar/baz/zot      29   2024-09-14 09:24:46
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/ext-clisp-tst/       6   2024-09-14 09:24:46
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/ext-clisp-tst/foo/       6   2024-09-14 09:24:46
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/ext-clisp-tst/foo/bar/       6   2024-09-14 09:24:46
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/ext-clisp-tst/foo/bar/baz/       6   2024-09-14 09:24:46
removing file #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/ext-clisp-tst/foo/bar/baz/zot"
removing directory #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/ext-clisp-tst/foo/bar/baz/"
removing directory #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/ext-clisp-tst/foo/bar/"
removing directory #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/ext-clisp-tst/foo/"
removing directory #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/ext-clisp-tst-abazonk"
         , opening the file again for :INPUT may produce unexpected resultsEQL-OK: *S3*
(OPEN-STREAM-P *S1*)
EQL-OK: T
(OPEN-STREAM-P *S2*)
EQL-OK: T
(OPEN-STREAM-P *S3*)
EQL-OK: T
(EQUAL (TRUENAME *S1*) (TRUENAME *S3*))
EQL-OK: T
(DEFPARAMETER *S4* (LET ((*REOPEN-OPEN-FILE* 'CLOSE)) (OPEN "ext-clisp-tst-abazonk")))
WARNING: 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"))
[SIMPLE-FILE-ERROR]: OPEN: The value of *REOPEN-OPEN-FILE* should be one of ERROR, WARN,
         CLOSE, or NIL, not 0. It has been changed to ERROR.
OPEN: #<OUTPUT BUFFERED FILE-STREAM CHARACTER #P"ext-clisp-tst-abazonk"> already points to file #1="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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))))
29405
[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/ U000DFC86]"
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)))
[SIMPLE-ERROR]: SYSTEM::SET-CURRENT-LANGUAGE: locales "de_DE.UTF-8" and "de_DE" are not installed on this system
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)))
[SIMPLE-ERROR]: SYSTEM::SET-CURRENT-LANGUAGE: locales "ru_RU.UTF-8" and "ru_RU" are not installed on this system
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"ffi.tst" @1>
(ENCODING-CHARSET *DEFAULT-FILE-ENCODING*)
EQL-OK: CHARSET:UTF-8
(USE-PACKAGE "FFI")
EQL-OK: T
(MULTIPLE-VALUE-LIST (SIZEOF 'UINT8))
EQUAL-OK: (1 1)
(BITSIZEOF 'SINT32)
EQL-OK: 32
(MULTIPLE-VALUE-LIST (SIZEOF '(C-POINTER INT)))
EQUAL-OK: (8 8)
(FOREIGN-ADDRESS-UNSIGNED (UNSIGNED-FOREIGN-ADDRESS 3))
EQL-OK: 3
(HANDLER-CASE (PROGN (DEF-CALL-OUT STRERROR (:ARGUMENTS (ERRNUM INT)) (:LANGUAGE :STDC) (:LIBRARY :DEFAULT) (:RETURN-TYPE C-STRING :NONE)) (LOOP :FOR I :FROM 0 :TO 100 :DO (SHOW (STRERROR I))) (DEF-C-VAR ERRNO (:TYPE INT) (:LIBRARY :DEFAULT)) (DEFUN MY-OS-ERROR (WHERE) (ERROR "~S failed: errno=~D: ~S" WHERE ERRNO (STRERROR ERRNO)))) (ERROR (C) (PRINC-ERROR C) (DEFUN MY-OS-ERROR (WHERE) (ERROR "~S failed" WHERE))))
"Success"
"Operation not permitted"
"No such file or directory"
"No such process"
"Interrupted system call"
"Input/output error"
"No such device or address"
"Argument list too long"
"Exec format error"
"Bad file descriptor"
"No child processes"
"Resource temporarily unavailable"
"Cannot allocate memory"
"Permission denied"
"Bad address"
"Block device required"
"Device or resource busy"
"File exists"
"Invalid cross-device link"
"No such device"
"Not a directory"
"Is a directory"
"Invalid argument"
"Too many open files in system"
"Too many open files"
"Inappropriate ioctl for device"
"Text file busy"
"File too large"
"No space left on device"
"Illegal seek"
"Read-only file system"
"Too many links"
"Broken pipe"
"Numerical argument out of domain"
"Numerical result out of range"
"Resource deadlock avoided"
"File name too long"
"No locks available"
"Function not implemented"
"Directory not empty"
"Too many levels of symbolic links"
"Unknown error 41"
"No message of desired type"
"Identifier removed"
"Channel number out of range"
"Level 2 not synchronized"
"Level 3 halted"
"Level 3 reset"
"Link number out of range"
"Protocol driver not attached"
"No CSI structure available"
"Level 2 halted"
"Invalid exchange"
"Invalid request descriptor"
"Exchange full"
"No anode"
"Invalid request code"
"Invalid slot"
"Unknown error 58"
"Bad font file format"
"Device not a stream"
"No data available"
"Timer expired"
"Out of streams resources"
"Machine is not on the network"
"Package not installed"
"Object is remote"
"Link has been severed"
"Advertise error"
"Srmount error"
"Communication error on send"
"Protocol error"
"Multihop attempted"
"RFS specific error"
"Bad message"
"Value too large for defined data type"
"Name not unique on network"
"File descriptor in bad state"
"Remote address changed"
"Can not access a needed shared library"
"Accessing a corrupted shared library"
".lib section in a.out corrupted"
"Attempting to link in too many shared libraries"
"Cannot exec a shared library directly"
"Invalid or incomplete multibyte or wide character"
"Interrupted system call should be restarted"
"Streams pipe error"
"Too many users"
"Socket operation on non-socket"
"Destination address required"
"Message too long"
"Protocol wrong type for socket"
"Protocol not available"
"Protocol not supported"
"Socket type not supported"
"Operation not supported"
"Protocol family not supported"
"Address family not supported by protocol"
"Address already in use"
"Cannot assign requested address"
"Network is down"
EQL-OK: MY-OS-ERROR
(DEF-CALL-OUT GETHOSTNAME1 (:NAME "gethostname") (:ARGUMENTS (NAME (C-PTR (C-ARRAY-MAX CHARACTER 256)) :OUT :ALLOCA) (LEN INT)) (:RETURN-TYPE INT) (:LANGUAGE :STDC) (:LIBRARY :DEFAULT))
EQL-OK: GETHOSTNAME1
(DEFUN MYHOSTNAME1 NIL (MULTIPLE-VALUE-BIND (SUCCESS NAME) (GETHOSTNAME1 256) (IF (ZEROP SUCCESS) NAME (MY-OS-ERROR 'MYHOSTNAME1))))
EQL-OK: MYHOSTNAME1
(DEF-CALL-OUT GETHOSTNAME2 (:NAME "gethostname") (:ARGUMENTS (NAME (C-PTR (C-ARRAY-MAX CHAR 256)) :OUT :ALLOCA) (LEN INT)) (:RETURN-TYPE INT) (:LANGUAGE :STDC) (:LIBRARY :DEFAULT))
EQL-OK: GETHOSTNAME2
(DEFUN MYHOSTNAME2 NIL (MULTIPLE-VALUE-BIND (SUCCESS NAME) (GETHOSTNAME2 256) (IF (ZEROP SUCCESS) NAME (MY-OS-ERROR 'MYHOSTNAME2))))
EQL-OK: MYHOSTNAME2
(DEF-CALL-OUT GETHOSTNAME3 (:NAME "gethostname") (:ARGUMENTS (NAME C-POINTER) (LEN INT)) (:RETURN-TYPE INT) (:LANGUAGE :STDC) (:LIBRARY :DEFAULT))
EQL-OK: GETHOSTNAME3
(DEFUN MYHOSTNAME3 NIL (WITH-FOREIGN-OBJECT (NAME '(C-ARRAY-MAX CHARACTER 256)) (LET ((SUCCESS (GETHOSTNAME3 NAME 256))) (IF (ZEROP SUCCESS) (FOREIGN-VALUE NAME) (MY-OS-ERROR 'MYHOSTNAME3)))))
EQL-OK: MYHOSTNAME3
(DEFUN MYHOSTNAME4 NIL (WITH-FOREIGN-OBJECT (NAME '(C-ARRAY-MAX CHAR 256)) (LET ((SUCCESS (GETHOSTNAME3 NAME 256))) (IF (ZEROP SUCCESS) (FOREIGN-VALUE NAME) (MY-OS-ERROR 'MYHOSTNAME4)))))
EQL-OK: MYHOSTNAME4
(STRING= (MYHOSTNAME1) (MYHOSTNAME3))
EQL-OK: T
(EQUALP (MYHOSTNAME2) (MYHOSTNAME4))
EQL-OK: T
(LET ((N1 (SHOW (MYHOSTNAME1))) (MI (SHOW (MACHINE-INSTANCE)))) (OR (AND (>= (LENGTH MI) (LENGTH N1)) (STRING= N1 MI :END2 (LENGTH N1))) (PROGN (DEF-CALL-OUT GETHOSTBYNAME (:NAME "gethostbyname") (:ARGUMENTS (NAME C-STRING)) (:LANGUAGE :STDC) (:LIBRARY :DEFAULT) (:RETURN-TYPE (C-PTR (C-STRUCT LIST (NAME C-STRING))))) (SETQ N1 (FIRST (SHOW (GETHOSTBYNAME N1)))) (STRING= N1 MI :END2 (LENGTH N1)))))
"2c767f5a8f804f218718eb1f4703fde7"
"2c767f5a8f804f218718eb1f4703fde7 [127.0.0.2]"
EQL-OK: T
(STRING= (MYHOSTNAME1) (CONVERT-STRING-FROM-BYTES (MYHOSTNAME2) CHARSET:UTF-8))
EQL-OK: T
(DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:DOCUMENTATION "return the pointer argument as is") (:ARGUMENTS (OBJ C-POINTER)) (:RETURN-TYPE C-POINTER) (:LANGUAGE :STDC))
EQL-OK: C-SELF
(SYSTEM::GET-SIGNATURE #'C-SELF)
EQUALP-OK: #(1 0 NIL NIL NIL NIL)
(DESCRIBE #'C-SELF)
#<FOREIGN-FUNCTION "ffi_identity" #x00000000000F03AE> is a foreign function of
foreign type
(C-FUNCTION (:ARGUMENTS ((:|arg1| C-POINTER :IN :NONE))) (:RETURN-TYPE C-POINTER :NONE) (:LANGUAGE :STDC))
.
EQL-OK: NIL
(DOCUMENTATION 'C-SELF 'FUNCTION)
EQUAL-OK: "return the pointer argument as is"
(SETF (DOCUMENTATION 'C-SELF 'FUNCTION) "junk")
EQUAL-OK: "junk"
(DOCUMENTATION 'C-SELF 'FUNCTION)
EQUAL-OK: "junk"
(SETF (DOCUMENTATION 'C-SELF 'FUNCTION) NIL)
EQL-OK: NIL
(DOCUMENTATION 'C-SELF 'FUNCTION)
EQL-OK: NIL
(SETF (DOCUMENTATION 'C-SELF 'FUNCTION) "return argument")
EQUAL-OK: "return argument"
(DOCUMENTATION 'C-SELF 'FUNCTION)
EQUAL-OK: "return argument"
(TYPEP #'C-SELF 'FUNCTION)
EQL-OK: T
(TYPEP #'C-SELF 'FOREIGN-FUNCTION)
EQL-OK: T
(SUBTYPEP 'FOREIGN-FUNCTION 'FUNCTION)
EQL-OK: T
(CHECK-TYPE #'C-SELF FOREIGN-FUNCTION)
EQL-OK: NIL
(INTEGERP (FOREIGN-ADDRESS-UNSIGNED #'C-SELF))
EQL-OK: T
(EQL (FOREIGN-ADDRESS-UNSIGNED #'C-SELF) (SYSTEM::CODE-ADDRESS-OF #'C-SELF))
EQL-OK: T
(FUNCTIONP (SETQ PARSE-C-TYPE-OPTIMIZER (COMPILER-MACRO-FUNCTION 'PARSE-C-TYPE)))
EQL-OK: T
(FUNCALL PARSE-C-TYPE-OPTIMIZER '(PARSE-C-TYPE 'C-POINTER) NIL)
EQUAL-OK: 'C-POINTER
(FUNCALL PARSE-C-TYPE-OPTIMIZER '(PARSE-C-TYPE 'C-POINTER 'OPAQUE) NIL)
EQUAL-OK: (PARSE-C-TYPE 'C-POINTER 'OPAQUE)
(DEF-C-TYPE OPAQUE C-POINTER)
EQL-OK: OPAQUE
(FUNCALL PARSE-C-TYPE-OPTIMIZER '(PARSE-C-TYPE 'OPAQUE) NIL)
EQUAL-OK: 'C-POINTER
(FUNCALL PARSE-C-TYPE-OPTIMIZER '(PARSE-C-TYPE '(C-PTR UINT8)) NIL)
EQUAL-OK: (PARSE-C-TYPE '(C-PTR UINT8))
(CAR (FUNCALL PARSE-C-TYPE-OPTIMIZER '(PARSE-C-TYPE `(C-ARRAY UINT8 ,L)) NIL))
EQL-OK: VECTOR
(CAR (FUNCALL PARSE-C-TYPE-OPTIMIZER '(PARSE-C-TYPE `(C-ARRAY ,TYPE ,L)) NIL))
EQL-OK: PARSE-C-TYPE
(LET NIL (DECLARE (COMPILE)) (WITH-C-VAR (PLACE 'LONG -12345678) PLACE))
EQL-OK: -12345678
(LET NIL (DECLARE (COMPILE)) (WITH-FOREIGN-OBJECT (FV 'LONG -12345678) (FOREIGN-VALUE FV)))
EQL-OK: -12345678
(WITH-C-VAR (PLACE '(C-ARRAY SINT8 (2 3)) #2A((-1 -2 -3) (-9 -8 -7))) PLACE)
EQUALP-OK: #2A((-1 -2 -3) (-9 -8 -7))
(WITH-C-VAR (PLACE '(C-ARRAY SINT8 (2 3)) #(#(-1 -2 -3) #(-9 -8 -7))) PLACE)
[SIMPLE-ERROR]: FFI::EXEC-ON-STACK: #(#(-1 -2 -3) #(-9 -8 -7)) cannot be converted to the foreign type #(C-ARRAY SINT8 2 3)
EQL-OK: ERROR
(WITH-C-VAR (PLACE '(C-ARRAY SINT8 (2 3)) #2A((-1 -2 -3) (-9 -8 -7))) (CAST PLACE '(C-ARRAY SINT8 (3 2))))
EQUALP-OK: #2A((-1 -2) (-3 -9) (-8 -7))
(WITH-FOREIGN-OBJECT (A '(C-ARRAY SINT32 4) #(122222 928389716 -1987234239 -123141)) (MEMORY-AS A 'SINT32 8))
EQL-OK: -1987234239
(WITH-C-VAR (A '(C-ARRAY SINT32 4) #(122222 928389716 -19 -123141)) (SETF (MEMORY-AS (C-VAR-ADDRESS A) 'SINT32 8) 478798798) A)
EQUALP-OK: #(122222 928389716 478798798 -123141)
(WITH-C-VAR (A '(C-ARRAY SINT32 4) #(122222 928389716 -19 -123141)) (SETF (MEMORY-AS (C-VAR-ADDRESS A) 'SINT32 8) 478798798))
EQL-OK: 478798798
(WITH-FOREIGN-OBJECT (A '(C-ARRAY DOUBLE-FLOAT 2) #(9.05d12 -1.2765d-12)) (MEMORY-AS A 'DOUBLE-FLOAT 0))
EQL-OK: 9.05d12
(WITH-FOREIGN-OBJECT (A '(C-ARRAY SINGLE-FLOAT 2) #(9.05E12 -1.2765E-12)) (MEMORY-AS A 'SINGLE-FLOAT 0))
EQL-OK: 9.05E12
(WITH-FOREIGN-OBJECT (X 'SINGLE-FLOAT) (LIST (SETF (MEMORY-AS X 'SINGLE-FLOAT) -2.823E-14) (FOREIGN-VALUE X)))
EQUAL-OK: (-2.823E-14 -2.823E-14)
(WITH-C-VAR (P '(C-PTR SINT32) -823498) (= (FOREIGN-ADDRESS-UNSIGNED (MEMORY-AS (C-VAR-ADDRESS P) 'C-POINTER)) (FOREIGN-ADDRESS-UNSIGNED (C-VAR-ADDRESS (DEREF P)))))
EQL-OK: T
(WITH-FOREIGN-OBJECT (P '(C-PTR SINT32) -823498) (= (FOREIGN-ADDRESS-UNSIGNED (MEMORY-AS P 'C-POINTER)) (FOREIGN-ADDRESS-UNSIGNED P)))
EQL-OK: NIL
(WITH-FOREIGN-OBJECT (P '(C-PTR SINT16)) (WITH-FOREIGN-OBJECT (I 'SINT16 -32765) (LIST (EQ (SETF (MEMORY-AS P 'C-POINTER) I) I) (FOREIGN-VALUE P))))
EQUAL-OK: (T -32765)
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (OBJ (C-POINTER SHORT))) (:RETURN-TYPE (C-PTR-NULL SHORT)) (:LANGUAGE :STDC)) (C-SELF NIL))
EQL-OK: NIL
(WITH-FOREIGN-OBJECT (X 'SHORT -29876) (C-SELF X))
EQL-OK: -29876
(WITH-FOREIGN-OBJECT (X 'SHORT -19635) (C-SELF (FOREIGN-ADDRESS X)))
EQL-OK: -19635
(WITH-FOREIGN-OBJECT (X 'CHARACTER #\t) (C-SELF X))
[SIMPLE-ERROR]: FFI::FOREIGN-CALL-OUT: #<FOREIGN-VARIABLE "EXEC-ON-STACK" #x0000003FDF6770D0> cannot be converted to the foreign type SHORT
EQL-OK: ERROR
(TYPE-OF (FOREIGN-FUNCTION #'C-SELF (PARSE-C-TYPE '(C-FUNCTION (:ARGUMENTS (OBJ (C-POINTER SHORT))) (:RETURN-TYPE (C-PTR-NULL SHORT)) (:LANGUAGE :STDC)))))
EQL-OK: FOREIGN-FUNCTION
(FUNCALL (FOREIGN-FUNCTION #'C-SELF (PARSE-C-TYPE '(C-FUNCTION (:ARGUMENTS (OBJ LONG)) (:RETURN-TYPE LONG) (:LANGUAGE :STDC))) :NAME "foo1") 1734829927)
EQL-OK: 1734829927
(FUNCALL (FOREIGN-FUNCTION (FOREIGN-ADDRESS #'C-SELF) (PARSE-C-TYPE '(C-FUNCTION (:ARGUMENTS (OBJ LONG)) (:RETURN-TYPE LONG) (:LANGUAGE :STDC))) :NAME "foo2") 1987475062)
EQL-OK: 1987475062
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (OBJ C-POINTER)) (:RETURN-TYPE (C-POINTER CHAR)) (:LANGUAGE :STDC)) (C-SELF NIL))
EQL-OK: NIL
(WITH-C-VAR (X 'CHAR -112) (LET ((REF (C-SELF (C-VAR-ADDRESS X)))) (LIST (TYPEP REF 'FOREIGN-VARIABLE) (FOREIGN-VALUE REF))))
EQUAL-OK: (T -112)
(DEF-C-STRUCT TRIV (I INT))
EQL-OK: TRIV
(DEF-CALL-OUT TRIGGER (:ARGUMENTS (STRUCT_ARRAY (C-ARRAY-PTR (C-PTR TRIV)))) (:NAME "ffi_identity") (:LANGUAGE :STDC) (:RETURN-TYPE (C-ARRAY-PTR (C-PTR TRIV))))
EQL-OK: TRIGGER
(TRIGGER (VECTOR (MAKE-TRIV :I 0) (MAKE-TRIV :I 1) (MAKE-TRIV :I 3) (MAKE-TRIV :I 4) (MAKE-TRIV :I 5) (MAKE-TRIV :I 6)))
EQUALP-OK: #(#S(TRIV :I 0) #S(TRIV :I 1) #S(TRIV :I 3) #S(TRIV :I 4) #S(TRIV :I 5) #S(TRIV :I 6))
(WITH-FOREIGN-OBJECT (X '(C-ARRAY-PTR INT) (VECTOR -4 6 7)) (FOREIGN-VALUE X))
EQUALP-OK: #(-4 6 7)
(LET ((V (ALLOCATE-DEEP 'TRIV (MAKE-TRIV :I 42)))) (PROG1 (LIST (TYPEOF (FOREIGN-VALUE V)) (SLOT (FOREIGN-VALUE V) 'I)) (FOREIGN-FREE V)))
EQUAL-OK: ((C-STRUCT TRIV (I INT)) 42)
(DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (OBJ C-POINTER)) (:RETURN-TYPE (C-POINTER TRIV)) (:LANGUAGE :STDC))
EQL-OK: C-SELF
(WITH-C-VAR (V 'TRIV (MAKE-TRIV :I 8476272)) (WITH-C-PLACE (W (C-SELF (C-VAR-OBJECT V))) (SETF (SLOT V 'I) -74590302) (LIST (TYPEOF W) (SLOT W 'I))))
EQUAL-OK: ((C-STRUCT TRIV (I INT)) -74590302)
(LIST (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (OBJ (C-POINTER TRIV))) (:RETURN-TYPE C-POINTER) (:LANGUAGE :STDC)) (C-SELF NIL))
EQUAL-OK: (C-SELF NIL)
(TYPE-OF (SETQ ORIG-ENCODING *FOREIGN-ENCODING*))
EQL-OK: ENCODING
(TYPEP (SETF *FOREIGN-ENCODING* (MAKE-ENCODING :CHARSET 'CHARSET:ISO-8859-1)) 'ENCODING)
EQL-OK: T
(TYPEP (SETF *FOREIGN-ENCODING* (MAKE-ENCODING :CHARSET 'CHARSET:UTF-8)) 'ENCODING)
EQL-OK: T
(TYPEP (FFI::FIND-FOREIGN-VARIABLE "ffi_user_pointer" (PARSE-C-TYPE 'C-POINTER) NIL NIL NIL) 'FOREIGN-VARIABLE)
EQL-OK: T
(FFI::FIND-FOREIGN-VARIABLE "ffi_user_pointer" (PARSE-C-TYPE 'UINT) NIL NIL NIL)
[SIMPLE-ERROR]: FFI::FIND-FOREIGN-VARIABLE: type specifications for foreign variable #<FOREIGN-VARIABLE "ffi_user_pointer" #x0000000000299FB0> conflict: C-POINTER and UINT
EQL-OK: ERROR
(TYPEP (FFI::FIND-FOREIGN-VARIABLE "ffi_user_pointer" (PARSE-C-TYPE '(C-ARRAY-PTR SINT8)) NIL NIL NIL) 'FOREIGN-VARIABLE)
EQL-OK: T
(DEF-C-VAR USER-POINTER (:TYPE C-POINTER) (:NAME "ffi_user_pointer"))
EQL-OK: USER-POINTER
(DESCRIBE (GET 'USER-POINTER 'FOREIGN-VARIABLE))
#<FOREIGN-VARIABLE "ffi_user_pointer" #x0000000000299FB0> is a foreign
variable of foreign type C-POINTER.
EQL-OK: NIL
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (OBJ (C-PTR-NULL (C-ARRAY CHARACTER 3)))) (:RETURN-TYPE (C-PTR (C-ARRAY UINT8 3))) (:LANGUAGE :STDC)) (C-SELF "@A0"))
EQUALP-OK: #(64 65 48)
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (OBJ (C-PTR-NULL (C-ARRAY SINT8 4)))) (:RETURN-TYPE (C-ARRAY-PTR UINT8)) (:LANGUAGE :STDC)) (LIST (C-SELF #(127 64 63 0)) (C-SELF NIL)))
EQUALP-OK: (#(127 64 63) NIL)
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (OBJ (C-PTR-NULL (C-ARRAY UINT8 5)))) (:RETURN-TYPE (C-ARRAY-PTR SINT8)) (:LANGUAGE :STDC)) (C-SELF (MAKE-ARRAY 5 :ELEMENT-TYPE '(UNSIGNED-BYTE 8) :INITIAL-CONTENTS '(127 63 64 0 6))))
EQUALP-OK: #(127 63 64)
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (OBJ C-STRING)) (:RETURN-TYPE (C-ARRAY-PTR UINT8)) (:LANGUAGE :STDC)) (C-SELF (COERCE '(#\@ #\A #\Newline #\2) 'STRING)))
EQUALP-OK: #(64 65 10 50)
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (OBJ (C-PTR (C-ARRAY-MAX UINT16 4)) :IN-OUT)) (:RETURN-TYPE NIL) (:LANGUAGE :STDC)) (C-SELF (MAKE-ARRAY 4 :ELEMENT-TYPE '(UNSIGNED-BYTE 16) :INITIAL-CONTENTS '(128 255 0 127))))
EQUALP-OK: #(128 255)
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (A1 (C-PTR (C-ARRAY-MAX UINT32 4))) (A2 (C-PTR (C-ARRAY-MAX UINT8 4))) (A3 (C-PTR (C-ARRAY-MAX UINT8 4))) (A4 (C-PTR (C-ARRAY UINT32 2)))) (:RETURN-TYPE (C-PTR (C-ARRAY-MAX SINT32 4))) (:LANGUAGE :STDC)) (C-SELF (MAKE-ARRAY 3 :ELEMENT-TYPE '(UNSIGNED-BYTE 32) :INITIAL-CONTENTS '(128 0 127)) (VECTOR 1 2 3) (MAKE-ARRAY 2 :ELEMENT-TYPE '(UNSIGNED-BYTE 8) :INITIAL-CONTENTS '(241 17)) (MAKE-ARRAY 2 :ELEMENT-TYPE '(UNSIGNED-BYTE 32) :INITIAL-CONTENTS '(1299 192225))))
EQUALP-OK: #(128)
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (OBJ (C-PTR (C-ARRAY SINT8 4)) :IN-OUT)) (:RETURN-TYPE NIL) (:LANGUAGE :STDC)) (C-SELF #(-128 -99 0 127)))
EQUALP-OK: #(-128 -99 0 127)
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (OBJ (C-PTR (C-ARRAY UINT16 4)) :IN-OUT)) (:RETURN-TYPE NIL) (:LANGUAGE :STDC)) (C-SELF (MAKE-ARRAY 4 :ELEMENT-TYPE '(UNSIGNED-BYTE 16) :INITIAL-CONTENTS '(128 255 0 127))))
EQUALP-OK: #(128 255 0 127)
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (FIRST BOOLEAN) (OBJ (C-PTR (C-ARRAY UINT16 4)) :IN-OUT)) (:RETURN-TYPE NIL) (:LANGUAGE :STDC)) (C-SELF T #(1000 255 0 127)))
EQUALP-OK: #(1000 255 0 127)
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (OBJ (C-PTR (C-UNION (C1 CHARACTER) (S (C-ARRAY-PTR CHARACTER)))))) (:RETURN-TYPE (C-PTR CHARACTER)) (:LANGUAGE :STDC)) (C-SELF #\w))
EQL-OK: #\w
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (FIRST BOOLEAN) (OBJ (C-PTR (C-UNION (C CHARACTER) (B BOOLEAN) (P C-POINTER))) :IN-OUT)) (:RETURN-TYPE NIL) (:LANGUAGE :STDC)) (C-SELF T #\j))
EQL-OK: #\j
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (FIRST C-STRING)) (:RETURN-TYPE (C-PTR (C-ARRAY CHARACTER 4))) (:LANGUAGE :STDC)) (C-SELF "zrewp"))
EQUAL-OK: "zrew"
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (FIRST (C-ARRAY-PTR UINT8))) (:RETURN-TYPE (C-PTR (C-ARRAY CHARACTER 4))) (:LANGUAGE :STDC)) (C-SELF #(64 65 66 67 68)))
EQUAL-OK: "@ABC"
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (FIRST (C-ARRAY-PTR UINT8))) (:RETURN-TYPE C-STRING) (:LANGUAGE :STDC)) (C-SELF #(230 151 165 230 156 172 232 170 158)))
EQUAL-OK: "日本語"
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (FIRST (C-ARRAY-PTR UINT8))) (:RETURN-TYPE (C-PTR (C-ARRAY CHARACTER 9))) (:LANGUAGE :STDC)) (C-SELF #(230 151 165 230 156 172 232 170 158)))
EQUAL-OK: "日本語"
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (FIRST (C-ARRAY-PTR UINT8))) (:RETURN-TYPE (C-PTR (C-ARRAY-MAX CHARACTER 20))) (:LANGUAGE :STDC)) (C-SELF #(230 151 165 230 156 172 232 170 158 0 158 170 232 172 156 230 165 151 230 10)))
EQUAL-OK: "日本語"
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (FIRST (C-ARRAY-PTR UINT8))) (:RETURN-TYPE (C-ARRAY-PTR CHARACTER)) (:LANGUAGE :STDC)) (C-SELF #(230 151 165 230 156 172 232 170 158 0 158 170 232 172 156 230 165 151 230 10)))
EQUAL-OK: "日本語"
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (FIRST UINT8)) (:RETURN-TYPE CHARACTER) (:LANGUAGE :STDC)) (C-SELF 97))
EQL-OK: #\a
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (FIRST UINT8)) (:RETURN-TYPE CHARACTER) (:LANGUAGE :STDC)) (C-SELF 158))
[SIMPLE-CHARSET-TYPE-ERROR]: FFI::FOREIGN-CALL-OUT: Invalid byte #x9E in CHARSET:ASCII conversion
EQL-OK: ERROR
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (FIRST (C-ARRAY-PTR UINT8))) (:RETURN-TYPE (C-PTR (C-ARRAY CHARACTER (3 3)))) (:LANGUAGE :STDC)) (C-SELF #(97 98 99 100 101 102 103 104 105)))
EQUALP-OK: #2A((#\a #\b #\c) (#\d #\e #\f) (#\g #\h #\i))
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (FIRST (C-ARRAY-PTR UINT8))) (:RETURN-TYPE (C-PTR (C-ARRAY CHARACTER (3 3)))) (:LANGUAGE :STDC)) (ARRAY-DIMENSIONS (C-SELF #(230 151 165 230 156 172 232 170 158))))
[SIMPLE-CHARSET-TYPE-ERROR]: FFI::FOREIGN-CALL-OUT: Invalid byte #xE6 in CHARSET:ASCII conversion
EQL-OK: ERROR
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (FIRST (C-ARRAY-PTR UINT8))) (:RETURN-TYPE (C-PTR CHARACTER)) (:LANGUAGE :STDC)) (C-SELF #(97 98 99 100 101 102 103 104 105)))
EQL-OK: #\a
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (FIRST (C-ARRAY-PTR UINT8))) (:RETURN-TYPE (C-PTR CHARACTER)) (:LANGUAGE :STDC)) (C-SELF #(230 151 165 230 156 172 232 170 158)))
[SIMPLE-CHARSET-TYPE-ERROR]: FFI::FOREIGN-CALL-OUT: Invalid byte #xE6 in CHARSET:ASCII conversion
EQL-OK: ERROR
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (FIRST (C-ARRAY-PTR UINT8))) (:RETURN-TYPE (C-PTR-NULL CHARACTER)) (:LANGUAGE :STDC)) (C-SELF #(97 98 99 100 101 102 103 104 105)))
EQL-OK: #\a
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (FIRST (C-ARRAY-PTR UINT8))) (:RETURN-TYPE (C-PTR-NULL CHARACTER)) (:LANGUAGE :STDC)) (C-SELF #(230 151 165 230 156 172 232 170 158)))
[SIMPLE-CHARSET-TYPE-ERROR]: FFI::FOREIGN-CALL-OUT: Invalid byte #xE6 in CHARSET:ASCII conversion
EQL-OK: ERROR
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (FIRST C-STRING)) (:RETURN-TYPE (C-ARRAY-PTR UINT8)) (:LANGUAGE :STDC)) (C-SELF "日本語"))
EQUALP-OK: #(230 151 165 230 156 172 232 170 158)
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (FIRST (C-PTR (C-ARRAY CHARACTER 9)))) (:RETURN-TYPE (C-PTR (C-ARRAY UINT8 9))) (:LANGUAGE :STDC)) (C-SELF "日本語"))
EQUALP-OK: #(230 151 165 230 156 172 232 170 158)
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (FIRST (C-PTR (C-ARRAY-MAX CHARACTER 20)))) (:RETURN-TYPE (C-ARRAY-PTR UINT8)) (:LANGUAGE :STDC)) (C-SELF "日本語"))
EQUALP-OK: #(230 151 165 230 156 172 232 170 158)
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (FIRST (C-PTR (C-ARRAY-MAX CHARACTER 7)))) (:RETURN-TYPE (C-ARRAY-PTR UINT8)) (:LANGUAGE :STDC)) (C-SELF "日本語"))
EQUALP-OK: #(230 151 165 230 156 172)
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (FIRST (C-ARRAY-PTR CHARACTER))) (:RETURN-TYPE (C-ARRAY-PTR UINT8)) (:LANGUAGE :STDC)) (C-SELF "日本語"))
EQUALP-OK: #(230 151 165 230 156 172 232 170 158)
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (FIRST CHARACTER)) (:RETURN-TYPE UINT8) (:LANGUAGE :STDC)) (C-SELF #\a))
EQL-OK: 97
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (FIRST CHARACTER)) (:RETURN-TYPE UINT8) (:LANGUAGE :STDC)) (C-SELF #\LATIN_SMALL_LETTER_O_WITH_STROKE))
[SIMPLE-CHARSET-TYPE-ERROR]: FFI::FOREIGN-CALL-OUT: Character #\u00F8 cannot be represented in the character set CHARSET:ASCII
EQL-OK: ERROR
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (FIRST (C-PTR (C-ARRAY CHARACTER (3 3))))) (:RETURN-TYPE (C-PTR (C-ARRAY UINT8 9))) (:LANGUAGE :STDC)) (C-SELF #2A("abc" "def" "ghi")))
EQUALP-OK: #(97 98 99 100 101 102 103 104 105)
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (FIRST (C-PTR (C-ARRAY CHARACTER (3 3))))) (:RETURN-TYPE (C-PTR (C-ARRAY UINT8 9))) (:LANGUAGE :STDC)) (C-SELF #2A("日本語" "Tür" "kçe")))
[SIMPLE-CHARSET-TYPE-ERROR]: FFI::FOREIGN-CALL-OUT: Character #\u65E5 cannot be represented in the character set CHARSET:ASCII
EQL-OK: ERROR
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (FIRST (C-PTR (C-ARRAY CHARACTER (3 3))))) (:RETURN-TYPE (C-PTR (C-ARRAY UINT8 9))) (:LANGUAGE :STDC)) (C-SELF #2A("日" "本" "語")))
[SIMPLE-ERROR]: FFI::FOREIGN-CALL-OUT: #2A("日" "本" "語") cannot be converted to the foreign type #(C-ARRAY CHARACTER 3 3)
EQL-OK: ERROR
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (FIRST (C-PTR CHARACTER))) (:RETURN-TYPE (C-PTR (C-ARRAY UINT8 1))) (:LANGUAGE :STDC)) (C-SELF #\a))
EQUALP-OK: #(97)
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (FIRST (C-PTR CHARACTER))) (:RETURN-TYPE (C-PTR (C-ARRAY UINT8 1))) (:LANGUAGE :STDC)) (C-SELF #\LATIN_SMALL_LETTER_O_WITH_STROKE))
[SIMPLE-CHARSET-TYPE-ERROR]: FFI::FOREIGN-CALL-OUT: Character #\u00F8 cannot be represented in the character set CHARSET:ASCII
EQL-OK: ERROR
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (FIRST (C-PTR-NULL CHARACTER))) (:RETURN-TYPE (C-PTR (C-ARRAY UINT8 1))) (:LANGUAGE :STDC)) (C-SELF #\a))
EQUALP-OK: #(97)
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (FIRST (C-PTR-NULL CHARACTER))) (:RETURN-TYPE (C-PTR (C-ARRAY UINT8 1))) (:LANGUAGE :STDC)) (C-SELF #\LATIN_SMALL_LETTER_O_WITH_STROKE))
[SIMPLE-CHARSET-TYPE-ERROR]: FFI::FOREIGN-CALL-OUT: Character #\u00F8 cannot be represented in the character set CHARSET:ASCII
EQL-OK: ERROR
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (FIRST C-STRING) (OBJ (C-PTR (C-ARRAY SINT16 4)) :IN-OUT)) (:RETURN-TYPE NIL) (:LANGUAGE :STDC)) (C-SELF "abc" #(-32768 -255 0 -256)))
EQUALP-OK: #(-32768 -255 0 -256)
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (FIRST C-STRING) (OBJ (C-PTR (C-ARRAY UINT32 4)) :IN-OUT)) (:RETURN-TYPE NIL) (:LANGUAGE :STDC)) (C-SELF NIL #(4294967295 16777215 0 127)))
EQUALP-OK: #(4294967295 16777215 0 127)
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (OBJ (C-PTR (C-ARRAY-MAX SINT16 17)) :OUT)) (:RETURN-TYPE NIL) (:LANGUAGE :STDC)) (C-SELF))
EQUALP-OK: #()
(WITH-FOREIGN-OBJECT (FV 'LONG -12345678) (TYPEP FV 'FOREIGN-VARIABLE))
EQL-OK: T
(PROGN (DEFPARAMETER *X* 0) (DEFUN CALLBACK (X) (SETF *X* (THE (UNSIGNED-BYTE 16) X)) (THE (UNSIGNED-BYTE 16) (1+ (* 2 X)))) *X*)
EQL-OK: 0
(DEF-C-TYPE UINT->UINT (C-FUNCTION (:ARGUMENTS (X UINT)) (:RETURN-TYPE UINT) (:LANGUAGE :STDC)))
EQL-OK: UINT->UINT
(DEFPARAMETER *CALLBACKF* (WITH-C-VAR (X 'UINT->UINT #'CALLBACK) X))
EQL-OK: *CALLBACKF*
(LIST (FUNCALL *CALLBACKF* 32767) *X*)
EQUAL-OK: (65535 32767)
(WITH-FOREIGN-OBJECT (X 'UINT->UINT *CALLBACKF*))
EQL-OK: NIL
(WITH-FOREIGN-OBJECT (X '(C-FUNCTION (:ARGUMENTS (X INT)) (:RETURN-TYPE UINT) (:LANGUAGE :STDC)) *CALLBACKF*))
[SIMPLE-ERROR]: #<FOREIGN-FUNCTION #x0000003F9A317008> cannot be converted to a foreign function with another calling convention.
EQL-OK: ERROR
(PROGN (FOREIGN-FREE *CALLBACKF*) (MAKUNBOUND '*CALLBACKF*))
EQL-OK: *CALLBACKF*
(PROGN (DEFPARAMETER *X* 0) (DEFUN PASS-FLOAT (X) (THE DOUBLE-FLOAT X) (SETF *X* X) (THE SINGLE-FLOAT (FLOAT X 1.0))) *X*)
EQL-OK: 0
(DEF-C-TYPE IDFPFUN (C-FUNCTION (:ARGUMENTS (X DOUBLE-FLOAT)) (:RETURN-TYPE SINGLE-FLOAT) (:LANGUAGE :STDC)))
EQL-OK: IDFPFUN
(DEFPARAMETER *FPCALLBACK* (WITH-C-VAR (X 'IDFPFUN #'PASS-FLOAT) X))
EQL-OK: *FPCALLBACK*
(LIST (FUNCALL *FPCALLBACK* 3.5d0) *X*)
EQUAL-OK: (3.5 3.5d0)
(FOREIGN-FREE *FPCALLBACK*)
EQL-OK: NIL
(FUNCALL *FPCALLBACK* -7.5d0)
[SIMPLE-ERROR]: FFI::FOREIGN-CALL-OUT: #<INVALID FOREIGN-POINTER #x0000003F9A317008> comes from a previous Lisp session and is invalid
EQL-OK: ERROR
(MAKUNBOUND '*FPCALLBACK*)
EQL-OK: *FPCALLBACK*
(WITH-C-VAR (X 'SINT64) X)
EQL-OK: 0
(WITH-C-VAR (X 'SINT64 1229782938247303441) T)
EQL-OK: T
(WITH-C-VAR (X 'UINT64 1229782938247303441) (OFFSET X 0 'UINT32))
EQL-OK: 286331153
(WITH-C-VAR (X 'UINT64 2459565876494606882) (OFFSET X 4 'UINT32))
EQL-OK: 572662306
(WITH-C-VAR (F '(C-FUNCTION (:RETURN-TYPE UINT64) (:LANGUAGE :STDC)) #'(LAMBDA NIL 12297848146326139699)) (FUNCALL F))
EQL-OK: 12297848146326139699
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (P (C-PTR-NULL SINT64))) (:RETURN-TYPE (C-PTR SINT64)) (:LANGUAGE :STDC)) (C-SELF -1311768467284833366))
EQL-OK: -1311768467284833366
(WITH-C-VAR (F '(C-FUNCTION (:ARGUMENTS (N SINT64)) (:RETURN-TYPE UINT64) (:LANGUAGE :STDC)) #'(LAMBDA (X) (- X))) (FUNCALL F -4837315111622064792))
EQL-OK: 4837315111622064792
(WITH-C-VAR (S '(C-STRUCT LIST (C CHARACTER) (D SINT64)) '(#\a -7378753924192827255)) S)
EQUAL-OK: (#\a -7378753924192827255)
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (P SINT64)) (:RETURN-TYPE NIL) (:LANGUAGE :STDC)) (MULTIPLE-VALUE-LIST (C-SELF -1311768467284833366)))
EQL-OK: NIL
(DEF-CALL-OUT FOREIGN-AS-STRING (:NAME "ffi_identity") (:ARGUMENTS (OBJ C-POINTER)) (:RETURN-TYPE C-STRING) (:LANGUAGE :STDC))
EQL-OK: FOREIGN-AS-STRING
(WITH-FOREIGN-STRING (FV E B "ABC" :ENCODING CHARSET:ASCII :NULL-TERMINATED-P NIL) (LIST E B))
EQUAL-OK: (3 3)
(WITH-FOREIGN-STRING (FV E B "ABC" :ENCODING CHARSET:ASCII :NULL-TERMINATED-P T) (LIST E B))
EQUAL-OK: (4 4)
(WITH-FOREIGN-STRING (F E B "abc" :START 1 :END 2) (FOREIGN-AS-STRING (FOREIGN-ADDRESS F)))
EQUAL-OK: "b"
(WITH-FOREIGN-STRING (F E B "abcd" :START 1 :END 3 :ENCODING CHARSET:ASCII) (MEMORY-AS F 'CHARACTER 1))
EQL-OK: #\c
(WITH-C-VAR (F 'DOUBLE-FLOAT 1) F)
EQL-OK: 1.0d0
(WITH-C-VAR (F 'DOUBLE-FLOAT PI) F)
EQL-OK: 3.141592653589793d0
(WITH-C-VAR (F 'SINGLE-FLOAT 0) F)
EQL-OK: 0.0
(WITH-C-VAR (F 'SINGLE-FLOAT PI) F)
EQL-OK: 3.1415927
(WITH-FOREIGN-STRING (F E B "abcde" :START 1 :END 4 :ENCODING CHARSET:ASCII) (MEMORY-AS F 'STRING 1))
EQUAL-OK: "cd"
(LET ((F (WITH-FOREIGN-STRING (FV E B "ABC") FV))) (VALIDP F))
EQL-OK: NIL
(BLOCK ABORT (WITH-FOREIGN-STRING (FV E B "ABC") (SETQ FM FV) (RETURN-FROM ABORT 123)))
EQL-OK: 123
(VALIDP FM)
EQL-OK: NIL
(BLOCK ABORT (WITH-FOREIGN-OBJECT (FV 'SINT16 -563) (SETQ FM FV) (RETURN-FROM ABORT 246)))
EQL-OK: 246
(VALIDP FM)
EQL-OK: NIL
(FOREIGN-VALUE FM)
[SIMPLE-ERROR]: FOREIGN-VALUE: #<INVALID FOREIGN-POINTER #x0000003FDF676CF0> comes from a previous Lisp session and is invalid
EQL-OK: ERROR
(WITH-C-VAR (X '(C-ARRAY-MAX CHARACTER 32) "") X)
EQUAL-OK: ""
(TYPE-OF (SETQ FM (ALLOCATE-DEEP 'C-STRING "abc" :READ-ONLY T)))
EQL-OK: FOREIGN-VARIABLE
(FOREIGN-VALUE FM)
EQUAL-OK: "abc"
(WITH-C-PLACE (X FM) X)
EQUAL-OK: "abc"
(WITH-C-PLACE (X FM) (SETF X "xyz"))
[SIMPLE-ERROR]: FFI::SET-FOREIGN-VALUE: foreign variable #<FOREIGN-VARIABLE FOREIGN-ALLOCATE #x0000000010E35930> may not be modified
EQL-OK: ERROR
(FOREIGN-VALUE (FFI::%CAST FM (PARSE-C-TYPE '(C-PTR (C-ARRAY-MAX CHARACTER 20)))))
EQUAL-OK: "abc"
(WITH-C-PLACE (X FM) (CAST X '(C-PTR (C-ARRAY-MAX CHARACTER 2))))
EQUAL-OK: "ab"
(TYPE-OF (FOREIGN-VARIABLE FM (PARSE-C-TYPE '(C-PTR (C-ARRAY UINT8 2)))))
EQL-OK: FOREIGN-VARIABLE
(FOREIGN-VALUE (FOREIGN-VARIABLE FM (PARSE-C-TYPE '(C-PTR (C-ARRAY UINT8 2)))))
EQUALP-OK: #(97 98)
(FOREIGN-VALUE (FOREIGN-VARIABLE (FOREIGN-ADDRESS FM) (PARSE-C-TYPE '(C-PTR (C-ARRAY UINT8 2))) :NAME "conversion"))
EQUALP-OK: #(97 98)
(FOREIGN-VARIABLE "abc" (PARSE-C-TYPE 'C-POINTER))
[SIMPLE-TYPE-ERROR]: FOREIGN-VARIABLE: #1="abc" is not of type #2=(OR FOREIGN-VARIABLE FOREIGN-ADDRESS)
EQL-OK: ERROR
(FOREIGN-VARIABLE FM (PARSE-C-TYPE 'C-POINTER) :NAME 123)
[SIMPLE-TYPE-ERROR]: FOREIGN-VARIABLE: argument 123 is not a string
EQL-OK: ERROR
(FOREIGN-VARIABLE #'C-SELF (PARSE-C-TYPE 'C-POINTER))
[SIMPLE-TYPE-ERROR]: FOREIGN-VARIABLE: #1=#<FOREIGN-FUNCTION "ffi_identity" #x00000000000F03AE> is not of type #2=(OR FOREIGN-VARIABLE FOREIGN-ADDRESS)
EQL-OK: ERROR
(PROGN (FOREIGN-FREE FM) 0)
EQL-OK: 0
(TYPE-OF (SETQ FA (FOREIGN-ADDRESS FM)))
EQL-OK: FOREIGN-ADDRESS
(EQ (FOREIGN-POINTER FA) (FOREIGN-POINTER FM))
EQL-OK: T
(TYPE-OF (SETQ FV (UNSIGNED-FOREIGN-ADDRESS (FOREIGN-ADDRESS-UNSIGNED FM))))
EQL-OK: FOREIGN-ADDRESS
(EQ (FOREIGN-POINTER FV) (FOREIGN-POINTER FM))
EQL-OK: NIL
(PROGN (SET-FOREIGN-POINTER FV FM) 1)
EQL-OK: 1
(EQ (FOREIGN-POINTER FM) (FOREIGN-POINTER FV))
EQL-OK: T
(EQ (FOREIGN-POINTER FM) (FOREIGN-POINTER FA))
EQL-OK: T
(TYPE-OF (SETQ FP (FOREIGN-POINTER FA)))
EQL-OK: FOREIGN-POINTER
(EQ (FOREIGN-POINTER FA) FP)
EQL-OK: T
(EQ (FOREIGN-POINTER (SET-FOREIGN-POINTER FA :COPY)) FP)
EQL-OK: NIL
(EQ (FOREIGN-POINTER FM) (FOREIGN-POINTER FP))
EQL-OK: NIL
(PROGN (SETF (VALIDP FM) NIL) 1)
EQL-OK: 1
(PROGN (SETF (VALIDP FM) NIL) 2)
EQL-OK: 2
(LET ((RESTARTS (LIST (UNSIGNED-FOREIGN-ADDRESS 123450)))) (FOREIGN-ADDRESS-UNSIGNED (HANDLER-BIND ((TYPE-ERROR (LAMBDA (C &AUX (RETRY (POP RESTARTS))) (DECLARE (IGNORE C)) (WHEN RETRY (USE-VALUE RETRY))))) (FOREIGN-VARIABLE "abc" (PARSE-C-TYPE 'CHAR)))))
EQL-OK: 123450
(LET ((RESTARTS (LIST #'C-SELF))) (FOREIGN-ADDRESS-UNSIGNED (HANDLER-BIND ((TYPE-ERROR (LAMBDA (C &AUX (RETRY (POP RESTARTS))) (DECLARE (IGNORE C)) (WHEN RETRY (USE-VALUE RETRY))))) (FOREIGN-FUNCTION "abc" (PARSE-C-TYPE '(C-FUNCTION (:LANGUAGE :STDC)))))))
EQL-OK: 983982
(WITH-FOREIGN-OBJECT (P 'OPAQUE) (EQUALP (SET-FOREIGN-POINTER (UNSIGNED-FOREIGN-ADDRESS (FOREIGN-ADDRESS-UNSIGNED P)) P) (FOREIGN-ADDRESS P)))
EQL-OK: T
(EQUALP (SET-FOREIGN-POINTER (UNSIGNED-FOREIGN-ADDRESS (FOREIGN-ADDRESS-UNSIGNED #'C-SELF)) #'C-SELF) (FOREIGN-ADDRESS #'C-SELF))
EQL-OK: T
(PROGN (SETQ FM (ALLOCATE-DEEP 'CHARACTER "abc" :COUNT 5)) (TYPE-OF FM))
EQL-OK: FOREIGN-VARIABLE
(EQUALP (SET-FOREIGN-POINTER (UNSIGNED-FOREIGN-ADDRESS (FOREIGN-ADDRESS-UNSIGNED FM)) FM) (FOREIGN-ADDRESS FM))
EQL-OK: T
(WITH-C-PLACE (X FM) (IDENTITY (TYPEOF X)))
EQUAL-OK: (C-ARRAY-MAX CHARACTER 5)
(WITH-C-PLACE (X FM) (TYPEOF X))
EQUAL-OK: (C-ARRAY-MAX CHARACTER 5)
(WITH-FOREIGN-OBJECT (FV `(C-ARRAY-MAX CHARACTER ,5) "abc") (WITH-C-PLACE (X FV) (TYPEOF X)))
EQUAL-OK: (C-ARRAY-MAX CHARACTER 5)
(LET NIL (DECLARE (COMPILE)) (WITH-FOREIGN-OBJECT (FV `(C-ARRAY-MAX CHARACTER ,5) "abc") (WITH-C-PLACE (X FV) (TYPEOF X))))
EQUAL-OK: (C-ARRAY-MAX CHARACTER 5)
(LET NIL (DECLARE (COMPILE)) (WITH-C-VAR (X `(C-ARRAY UINT32 ,1)) (TYPEOF (CAST X `(C-ARRAY UINT8 ,4)))))
EQUAL-OK: (C-ARRAY UINT8 4)
(LET NIL (DECLARE (COMPILE)) (WITH-C-VAR (X `(C-ARRAY-MAX UINT32 ,1) #(286331153)) (CAST X `(C-ARRAY UINT8 ,4))))
EQUALP-OK: #(17 17 17 17)
(WITH-C-PLACE (X FM) (SETF (ELEMENT X 1) #\Z))
EQL-OK: #\Z
(FOREIGN-VALUE FM)
EQUAL-OK: "aZc"
(WITH-C-PLACE (X FM) (CAST X '(C-ARRAY CHARACTER 3)))
[SIMPLE-ERROR]: FFI::%CAST: #<FOREIGN-VARIABLE FOREIGN-ALLOCATE #x0000000010E35930> cannot be converted to the foreign type #(C-ARRAY CHARACTER 3)
EQL-OK: ERROR
(WITH-C-PLACE (X FM) (OFFSET X 1 '(C-ARRAY CHARACTER 2)))
EQUAL-OK: "Zc"
(WITH-C-PLACE (X FM) (SLOT (CAST X '(C-UNION (S (C-ARRAY CHARACTER 5)) (C CHARACTER))) 'C))
EQL-OK: #\a
(PROGN (FOREIGN-FREE FM) (VALIDP FM))
EQL-OK: T
(PROGN (SETF (VALIDP FM) NIL) (VALIDP FM))
EQL-OK: NIL
(MAKUNBOUND 'FM)
EQL-OK: FM
(WITH-C-VAR (PLACE 'LONG -12345678) PLACE)
EQL-OK: -12345678
(WITH-C-VAR (PLACE 'C-STRING "abc") PLACE)
EQUAL-OK: "abc"
(WITH-C-VAR (PLACE `(C-ARRAY CHARACTER ,6) "abcdef") PLACE)
EQUAL-OK: "abcdef"
(WITH-C-VAR (PLACE `(C-ARRAY CHARACTER ,6) "abcdefghi") PLACE)
[SIMPLE-ERROR]: FFI::EXEC-ON-STACK: "abcdefghi" cannot be converted to the foreign type #(C-ARRAY CHARACTER 6)
EQL-OK: ERROR
(WITH-C-VAR (PLACE '(C-ARRAY CHARACTER 7) "abc") PLACE)
[SIMPLE-ERROR]: FFI::EXEC-ON-STACK: "abc" cannot be converted to the foreign type #(C-ARRAY CHARACTER 7)
EQL-OK: ERROR
(WITH-C-VAR (PLACE `(C-ARRAY-MAX CHARACTER ,6) "abcdefgh") PLACE)
EQUAL-OK: "abcdef"
(WITH-C-VAR (PLACE `(C-ARRAY-MAX CHARACTER ,7) "abc") PLACE)
EQUAL-OK: "abc"
(PROGN (SETQ FM (ALLOCATE-SHALLOW 'CHARACTER :COUNT 3)) (TYPE-OF FM))
EQL-OK: FOREIGN-VARIABLE
(FOREIGN-VALUE FM)
EQUAL-OK: ""
(PROGN (FOREIGN-FREE FM) T)
EQL-OK: T
(ALLOCATE-SHALLOW 'ULONG :COUNT 0)
[SIMPLE-ERROR]: FOREIGN-ALLOCATE: element type has size 0: #(C-ARRAY ULONG 0)
EQL-OK: ERROR
(PROGN (SETQ FM (ALLOCATE-SHALLOW 'LONG :COUNT 2)) (TYPE-OF FM))
EQL-OK: FOREIGN-VARIABLE
(FOREIGN-VALUE FM)
EQUALP-OK: #(0 0)
(WITH-C-PLACE (A FM) (DOTIMES (I 3) (SETF (ELEMENT A I) (+ 100000000 I))))
[SIMPLE-ERROR]: FFI::%ELEMENT: subscripts (2) for #<FOREIGN-VARIABLE FOREIGN-ALLOCATE #x0000000010E35AE0> are out of range
EQL-OK: ERROR
(WITH-C-PLACE (A FM) A)
EQUALP-OK: #(100000000 100000001)
(DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (OBJ (C-POINTER (C-ARRAY LONG 2)))) (:RETURN-TYPE (C-POINTER (C-ARRAY LONG 2))) (:LANGUAGE :STDC))
EQL-OK: C-SELF
(FOREIGN-VALUE (C-SELF FM))
EQUALP-OK: #(100000000 100000001)
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (OBJ (C-POINTER (C-ARRAY LONG 2)))) (:RETURN-TYPE (C-PTR (C-ARRAY LONG 2))) (:LANGUAGE :STDC)) (C-SELF FM))
EQUALP-OK: #(100000000 100000001)
(PROGN (FOREIGN-FREE FM) (MAKUNBOUND 'FM))
EQL-OK: FM
(WITH-C-VAR (PLACE '(C-PTR (C-STRUCT VECTOR (A (C-ARRAY LONG 2)) (S (C-ARRAY CHARACTER 3)))) '#(#(-2000000000 -1000333111) "abc")) (SLOT (DEREF PLACE) 'A))
EQUALP-OK: #(-2000000000 -1000333111)
(WITH-C-VAR (PLACE '(C-PTR (C-STRUCT LIST (A (C-ARRAY LONG 2)) (S (C-ARRAY CHARACTER 3)))) '(#(-3 -1) #(#\a #\b #\c))) (SLOT (DEREF PLACE) 'S))
EQUAL-OK: "abc"
(PROGN (FOREIGN-FREE (ALLOCATE-DEEP '(C-PTR (C-STRUCT LIST (A (C-ARRAY LONG 2)) (S (C-ARRAY CHARACTER 3)))) '(#(-2 -3) "abc")) :FULL T) NIL)
EQL-OK: NIL
(WITH-FOREIGN-OBJECT (X '(C-ARRAY-PTR INT) (VECTOR -4 6 7)) (FOREIGN-VALUE X))
EQUALP-OK: #(-4 6 7)
(WITH-FOREIGN-OBJECT (X '(C-STRUCT LIST (A (C-ARRAY-PTR ULONG)) (B (C-ARRAY-PTR ULONG)) (C (C-ARRAY-PTR ULONG)) (D (C-PTR (C-ARRAY ULONG 2)))) '(#(123456789) #(987654321) #(543235263) #(936272894 1333222444))) (FOREIGN-VALUE X))
EQUALP-OK: (#(123456789) #(987654321) #(543235263) #(936272894 1333222444))
(LET ((SY (FIND-SYMBOL "UTF-16" "CHARSET"))) (IF (AND SY (BOUNDP SY) (SYSTEM::ENCODINGP (SYMBOL-VALUE SY))) (WITH-FOREIGN-STRING (FV E B "ABC" :ENCODING (SYMBOL-VALUE SY)) (LIST E B)) '(4 10)))
EQUAL-OK: (4 10)
(SETF (VALIDP (UNSIGNED-FOREIGN-ADDRESS 4)) NIL)
[SIMPLE-ERROR]: FFI::SET-VALIDP: must not invalidate the sole FFI session pointer
EQL-OK: ERROR
(WITH-C-VAR (PLACE '(C-PTR (C-STRUCT LIST (A (C-ARRAY LONG 2)) (S (C-ARRAY CHARACTER 3)))) '(#(-3 -1) #(#\a #\b #\c))) (SLOT (DEREF PLACE) 'S))
EQUAL-OK: "abc"
(WITH-C-VAR (PLACE '(C-PTR (C-STRUCT VECTOR (A (C-ARRAY LONG 2)) (S (C-ARRAY CHARACTER 3)))) '#(#(-3 -1) #(#\a #\b #\c))) PLACE)
EQUALP-OK: #(#(-3 -1) "abc")
(DEF-CALL-OUT MAKE-FOREIGN-STRING (:ARGUMENTS (S C-STRING :IN :MALLOC-FREE)) (:NAME "ffi_identity") (:LANGUAGE :STDC) (:RETURN-TYPE C-POINTER))
EQL-OK: MAKE-FOREIGN-STRING
(PROGN (SETF *X* (MAKE-FOREIGN-STRING "abcd")) (WITH-C-VAR (P 'C-POINTER *X*) (CAST P '(C-PTR (C-ARRAY UINT8 4)))))
EQUALP-OK: #(97 98 99 100)
(WITH-C-VAR (P 'C-POINTER *X*) (CAST P '(C-PTR (C-ARRAY CHARACTER 4))))
EQUAL-OK: "abcd"
(PROGN (FOREIGN-FREE *X*) (MAKUNBOUND '*X*))
EQL-OK: *X*
(DEF-C-TYPE LINK-NODE (C-STRUCT LIST (X ULONG) (S (C-PTR (C-ARRAY-MAX CHARACTER 3))) (P (C-POINTER LINK-NODE))))
EQL-OK: LINK-NODE
(TYPE-OF (SETQ FM (ALLOCATE-DEEP 'LINK-NODE '(834687632 "Ef" NIL))))
EQL-OK: FOREIGN-VARIABLE
(PROGN (DEF-CALL-OUT C-SELF (:NAME "ffi_identity") (:ARGUMENTS (OBJ (C-POINTER LINK-NODE))) (:RETURN-TYPE (C-POINTER LINK-NODE)) (:LANGUAGE :STDC)) (FOREIGN-VALUE (C-SELF FM)))
EQUAL-OK: (834687632 "Ef" NIL)
(WITH-C-VAR (P 'LINK-NODE (LIST 298734222 "IyH" FM)) (CAST P '(C-STRUCT VECTOR (X ULONG) (S (C-PTR (C-ARRAY-MAX CHARACTER 3))) (P (C-PTR-NULL LINK-NODE)))))
EQUALP-OK: #(298734222 "IyH" (834687632 "Ef" NIL))
(PROGN (FOREIGN-FREE FM :FULL T) (MAKUNBOUND 'FM))
EQL-OK: FM
(TYPE-OF (SETQ *FOREIGN-ENCODING* ORIG-ENCODING))
EQL-OK: ENCODING
(LIST (DEF-CALL-OUT C-MALLOC (:ARGUMENTS (L LONG)) (:NAME "malloc") (:LANGUAGE :STDC) (:RETURN-TYPE C-POINTER) (:LIBRARY :DEFAULT)) (DEF-CALL-OUT C-FREE (:ARGUMENTS (P C-POINTER)) (:NAME "free") (:LANGUAGE :STDC) (:RETURN-TYPE NIL) (:LIBRARY :DEFAULT)))
EQUAL-OK: (C-MALLOC C-FREE)
(LET ((M (C-MALLOC 4)) RET) (UNWIND-PROTECT (WITH-C-VAR (V '(C-PTR (C-ARRAY UINT8 4))) (SETF (CAST V 'C-POINTER) M) (WITH-C-VAR (I '(C-PTR UINT32)) (SETF (CAST I 'C-POINTER) M) (SETQ I 0) (PUSH V RET) (SETQ I (1- (ASH 1 32))) (PUSH V RET) (SETQ V #(1 2 3 4)) (ASSERT (IF SYSTEM::*BIG-ENDIAN* (= I (+ (ASH 1 24) (ASH 2 16) (ASH 3 8) 4)) (= I (+ (ASH 4 24) (ASH 3 16) (ASH 2 8) 1))))) (NREVERSE RET)) (C-FREE M)))
EQUALP-OK: (#(0 0 0 0) #(255 255 255 255))
(INTEGERP (SYSTEM::CODE-ADDRESS-OF #'C-MALLOC))
EQL-OK: T
(STRINGP (NTH-VALUE 2 (FUNCTION-LAMBDA-EXPRESSION #'C-MALLOC)))
EQL-OK: T
(TYPE-OF (OPEN-FOREIGN-LIBRARY :DEFAULT))
EQL-OK: FOREIGN-POINTER
(LISTP (MACROEXPAND '(DEF-C-VAR FOO-VAR (:TYPE INT))))
EQL-OK: T
(LISTP (MACROEXPAND '(DEF-C-CONST FOO-CONST)))
EQL-OK: T
(DEF-C-TYPE FFI_UINTP)
EQL-OK: FFI_UINTP
(DEF-CALL-OUT MY-UINTP (:NAME "ffi_identity") (:ARGUMENTS (OBJ FFI_UINTP)) (:RETURN-TYPE FFI_UINTP) (:LANGUAGE :STDC))
WARNING: (DEF-C-CONST FOO-CONST): No :LANGUAGE argument and no
         DEFAULT-FOREIGN-LANGUAGE form in this compilation unit; :STDC assumed
         now and for the rest of this unit
EQL-OK: MY-UINTP
(MY-UINTP 123)
EQL-OK: 123
(DEF-CALL-OUT TOUPPER (:LIBRARY :DEFAULT) (:LANGUAGE :STDC) (:ARGUMENTS (C CHARACTER)) (:RETURN-TYPE CHARACTER))
EQL-OK: TOUPPER
(TOUPPER #\a)
EQL-OK: #\A
(WHEN (IGNORE-ERRORS (OPEN-FOREIGN-LIBRARY "libpcre.so")) (DEF-CALL-OUT PCRE-VERSION (:NAME "pcre_version") (:LIBRARY :DEFAULT) (:LANGUAGE :STDC) (:ARGUMENTS) (:RETURN-TYPE C-STRING)) (NOT (STRINGP (SHOW (PCRE-VERSION)))))
EQL-OK: NIL
(PROGN (DEF-CALL-OUT STRLEN (:ARGUMENTS (S C-STRING)) (:RETURN-TYPE SIZE_T) (:LIBRARY :DEFAULT) (:LANGUAGE :STDC)) (STRLEN "foo"))
EQL-OK: 3
(SYMBOLS-CLEANUP '(STRERROR ERRNO MY-OS-ERROR GETHOSTNAME1 MYHOSTNAME1 GETHOSTNAME2 MYHOSTNAME2 GETHOSTNAME3 MYHOSTNAME3 MYHOSTNAME4 GETHOSTBYNAME C-SELF OPAQUE TRIV TRIGGER USER-POINTER *X* CALLBACK UINT->UINT *CALLBACKF* PASS-FLOAT IDFPFUN *FPCALLBACK* FOREIGN-AS-STRING MAKE-FOREIGN-STRING LINK-NODE COMMAND-LINE C-MALLOC C-FREE FOO-VAR FOO-CONST FFI_UINTP MY-UINTP TOUPPER PCRE-VERSION STRLEN))
EQL-OK: NIL
RUN-TEST: finished "ffi" (0 errors out of 263 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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/lambda-tst-function-lambda-expression-test.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/lambda-tst-function-lambda-expression-test.fas
0 errors, 0 warnings;; 
Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/lambda-tst-function-lambda-expression-test.fas ...
WARNING: DEFUN/DEFMACRO: redefining function FOO in
         /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/lambda-tst-function-lambda-expression-test.fas,;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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 #x00000000801E1FA9>
(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-495030 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-495040 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))))
WARNING: OTHERWISE used as a key in (OTHERWISE 4), it would be better to use
         parentheses.
EQUAL-OK: (NO YES)
(MACROLET ((%M (NIL) :GOOD)) (%M NIL))
EQL-OK: :GOOD
(MACROLET ((%M (NIL) :GOOD)) (%M 10))
[SIMPLE-SOURCE-PROGRAM-ERROR]: %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)
WARNING: in #:FUNC-495321 : #:B-495323 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
EQL-OK: T
(PROGN (DEFINE-SYMBOL-MACRO FOO140 1) (APPEASE-CERRORS (DEFCONSTANT FOO140 T)) FOO140)
WARNING: SYSTEM::%PROCLAIM-CONSTANT: attempting to turn FOO140 into a
         constant, but it is already a global SYMBOL-MACRO.
         Remove the global SYMBOL-MACRO definitionEQL-OK: T
(LET ((S (MAKE-SYMBOL "FOO141"))) (EVAL `(DEFINE-SYMBOL-MACRO ,S T)) (APPEASE-CERRORS (IMPORT S "KEYWORD")) (EQ S (SYMBOL-VALUE S)))
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-MACROEQL-OK: T
(PROGN (DEFVAR FOO142 1) (APPEASE-CERRORS (DEFINE-SYMBOL-MACRO FOO142 T)) FOO142)
 definition
WARNING: SYSTEM::%PROCLAIM-SYMBOL-MACRO: the symbol FOO142 names a global
         EQL-OK: T
(LET ((S (SPECIAL variable
         Remove the global SPECIAL variable binding
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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-tmp.lisp,
         was defined in top-level
0 errors, 1 warning
;; 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 ...
WARNING: in FOO : CONS was called with 3 arguments, but it requires 2
         arguments.
WARNING: DEFUN/DEFMACRO: redefining function FOO in
         /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-tmp1.lisp,
         was defined in
         /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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
;; Loaded file macro8-tst-tmp1.lisp0 errors, 1 warning
0 errors, 1 warning
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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-tmp.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-tmp.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-tmp.fas
0 errors, 0 warnings;; 
Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-tmp.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-tmp.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-tmp.fas
0 errors, 0 warnings;; 
Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-tmp.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-tmp.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-tmp.fas
0 errors, 0 warnings;; 
Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-tmp.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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 read
EQUAL-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.
         Misspelled or missing IGNORE declaration?
WARNING: in %F1 : variable F1-1 is not used.
         Misspelled or missing IGNORE declaration?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*)))
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.
         Misspelled or missing IGNORE declaration?
EQUAL-OK: (T NIL NIL)
(PROGN (LOAD (MERGE-PATHNAMES "bug001.lisp" *RUN-TEST-TRUENAME*)) T)
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/tests/bug001.lisp ...
WARNING: function %F13 is not used.
         Misspelled or missing IGNORE declaration?EVAL: -105424
COMPILE: -105424
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/tests/bug001.lisp
EQL-OK: T
(PROGN (LOAD (MERGE-PATHNAMES "bug002.lisp" *RUN-TEST-TRUENAME*)) T)
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-donc.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-donc.fas
0 errors, 0 warnings;; 
Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-donc.fas ...
WARNING: G is already compiled.
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-donc.lisp,
         was defined in
         /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-tmp1.lisp;; Loaded file macro8-tst-donc.lisp
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-donc.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-donc.fas
0 errors, 0 warnings;; 
Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-donc.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-test-compiled-file-p.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-test-compile-time-value.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-test-compile-time-value.fas
0 errors, 0 warnings;; 
Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-test-compile-time-value.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-test-crlf-print-read.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-test-crlf-print-read.fas
0 errors, 0 warnings;; 
Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-test-crlf-print-read.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-test-crlf-print-read.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-test-crlf-print-read.fas
0 errors, 0 warnings
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-test-crlf-print-read.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-test-crlf-print-read.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-test-crlf-print-read.fas
0 errors, 0 warnings;; 
Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-test-crlf-print-read.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-test-pr-kw.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-test-pr-kw.fas
0 errors, 0 warnings;; 
Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8-tst-test-pr-kw.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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))
WARNING: DEFUN/DEFMACRO: redefining TEST-MACRO-ARGLIST; it was traced!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)))))
TEST-MACRO-ARGLIST is the symbol TEST-MACRO-ARGLIST, lies in
#<PACKAGE |/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8.erg|>
, is accessible in 1 package
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/macro8.erg|> is 
 the package named
 /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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)
(MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA NIL (FLET ((F (Z) (1+ Z))) #'F))))
Misspelled or missing IGNORE declaration?
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 (LAMBDA (Y) (FLET ((F (Z) (1+ Z))) (DECLARE (Misspelled or missing IGNORE declaration?
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 IGNOREEQUAL-OK: (X 1 NIL)
( declaration?
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 read
EQUAL-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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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>,EQL-OK: NIL
(CLASS-DIRECT-SLOTS *FORWARDCLASS*)
 but class
         FORWARDCLASS03 is not yet defined.
WARNING: CLASS-DIRECT-SLOTS being called on
         #1=#<FORWARD-REFERENCED-CLASS FORWARDCLASS03>,EQL-OK: NIL
(CLASS-DIRECT-DEFAULT-INITARGS *FORWARDCLASS*)
 but class
         FORWARDCLASS03 is not yet defined.
WARNING: CLASS-DIRECT-DEFAULT-INITARGS being called on
         #1=#<FORWARD-REFERENCED-CLASS FORWARDCLASS03>,EQL-OK: NIL
(CLASS-PRECEDENCE-LIST *FORWARDCLASS*)
 but class
         FORWARDCLASS03 is not yet defined.
[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
(CLASS-DIRECT-SLOTS *FORWARDCLASS*)
 but class
         FORWARDCLASS04 is not yet defined.
WARNING: CLASS-DIRECT-SLOTS being called on
         #1=#<FORWARD-REFERENCED-CLASS FORWARDCLASS04>,EQL-OK: NIL
(CLASS-DIRECT-DEFAULT-INITARGS *FORWARDCLASS*)
 but class
         FORWARDCLASS04 is not yet defined.
WARNING: CLASS-DIRECT-DEFAULT-INITARGS being called on
         #1=#<FORWARD-REFERENCED-CLASS FORWARDCLASS04>,EQL-OK: NIL
(CLASS-PRECEDENCE-LIST *FORWARDCLASS*)
[ but class
         FORWARDCLASS04 is not yet defined.
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>))> EQL-OK: ERROR
from
         an already called generic function
         #<STANDARD-GENERIC-FUNCTION CLASS-DEFAULT-INITARGS>
(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>))>EQL-OK: ERROR
 from
         an already called generic function
         #<STANDARD-GENERIC-FUNCTION CLASS-DIRECT-DEFAULT-INITARGS>
(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>))> EQL-OK: ERROR
(LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS07 NIL from
         an already called generic function
         #<STANDARD-GENERIC-FUNCTION CLASS-DIRECT-SLOTS>
NIL))) (DEFMETHOD CLASS-DIRECT-SUPERCLASSES ((C (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)
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-CLASS SAMPCLASS09>))> to an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION CLASS-FINALIZED-P>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))))
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-CLASS SAMPCLASS10>))> to an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION CLASS-FINALIZED-P>[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
WARNING: Removing method
         #1=#<STANDARD-METHOD ((EQL #2=#<STANDARD-CLASS SAMPCLASS10>))>EQL-OK: ERROR
(LET (( from
         an already called generic function
         #<STANDARD-GENERIC-FUNCTION CLASS-FINALIZED-P>
*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)
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-CLASS SAMPCLASS11>))> to an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION CLASS-PRECEDENCE-LIST>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))))
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-CLASS SAMPCLASS12>))> to an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION CLASS-PRECEDENCE-LIST>[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: Removing method
         #1=#<STANDARD-METHOD ((EQL #2=#<STANDARD-CLASS SAMPCLASS12>))>EQL-OK: ERROR
 from
         an already called generic function
         #<STANDARD-GENERIC-FUNCTION CLASS-PRECEDENCE-LIST>
(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 #x000000008043A4D9>
Values returned by the extending method: #1#, T
WARNING: Removing method
         #1=#<STANDARD-METHOD ((EQL #2=#<STANDARD-CLASS SAMPCLASS14>))>EQL-OK: ERROR
(LET ((*SAMPCLASS* ( from
         an already called generic function
         #<STANDARD-GENERIC-FUNCTION CLASS-PROTOTYPE>
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
(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))))
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-CLASS SAMPCLASS16>))> to an
         already called generic function
         #<STANDARD-GENERIC-FUNCTION CLASS-SLOTS>[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>))> EQL-OK: ERROR
(LET ((*SAMPCLASS* (from
         an already called generic function
         #<STANDARD-GENERIC-FUNCTION CLASS-SLOTS>
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>))> EQL-OK: ERROR
from
         an already called generic function
         #<STANDARD-GENERIC-FUNCTION FINALIZE-INHERITANCE>
(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 #x00000000801E1FA9>
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
         #<STANDARD-GENERIC-FUNCTION FIND-METHOD-COMBINATION>
EQL-OK: ERROR
(LET ((*SAMPGF* (DEFGENERIC SAMPGF03 (X 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>))>EQL-OK: ERROR
(LET ((*SAMPGF* 
         from an already called generic function
         #<STANDARD-GENERIC-FUNCTION GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER>
(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>))>EQL-OK: ERROR
         from an already called generic function
         #<STANDARD-GENERIC-FUNCTION GENERIC-FUNCTION-DECLARATIONS>
(LET ((*SAMPGF* (DEFGENERIC SAMPGF07 (X Y)))) (DEFMETHOD GENERIC-FUNCTION-LAMBDA-LIST ((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>))>EQL-OK: ERROR
         from an already called generic function
         #<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>))>EQL-OK: ERROR
         from an already called generic function
         #<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 #x00000000801E1FA9>
Values returned by the extending method: #1#, T
WARNING: Removing method
         #1=#<STANDARD-METHOD ((EQL #<STANDARD-GENERIC-FUNCTION SAMPGF12>))>EQL-OK: ERROR
         from an already called generic function
         #<STANDARD-GENERIC-FUNCTION GENERIC-FUNCTION-METHOD-COMBINATION>
(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>))>
EQL-OK: ERROR
(LET ((*SAMPGF* (DEFGENERIC SAMPGF15 (X Y)))) (DEFMETHOD GENERIC-FUNCTION-NAME ((GF (EQL *SAMPGF*))) (CALL-NEXT-METHOD)) (GENERIC-FUNCTION-NAME *SAMPGF*) T)
         from an already called generic function
         #<STANDARD-GENERIC-FUNCTION GENERIC-FUNCTION-METHODS>
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>))>EQL-OK: ERROR
         from an already called generic function
         #<STANDARD-GENERIC-FUNCTION GENERIC-FUNCTION-NAME>
(LET ((*SAMPGF* (DEFGENERIC SAMPGF17 (X Y)))) (DEFMETHOD (SETF GENERIC-FUNCTION-NAME) (NEW-VALUE (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>))>EQL-OK: ERROR
         from an already called generic function
         #<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>))>
         EQL-OK: ERROR
(LET ((*SAMPMETHOD* (from an already called generic function
         #<STANDARD-GENERIC-FUNCTION METHOD-FUNCTION>
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>))>
         EQL-OK: ERROR
(LET ((*SAMPMETHOD* (DEFMETHOD SAMPGF25 NIL 'BAR))) (from an already called generic function
         #<STANDARD-GENERIC-FUNCTION METHOD-LAMBDA-LIST>
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>))>
         fromEQL-OK: ERROR
 an already called generic function
         #<STANDARD-GENERIC-FUNCTION METHOD-SPECIALIZERS>
(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 #x0000000080491621>
Values returned by the extending method: #1#, T
WARNING: Removing method
         #1=#<STANDARD-METHOD ((EQL #2=#<STANDARD-READER-METHOD (#3=#<STANDARD-CLASS SAMPCLASS22>)>))>
         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)
from an already called generic function
         #<STANDARD-GENERIC-FUNCTION ACCESSOR-METHOD-SLOT-DEFINITION>
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-DIRECT-SLOT-DEFINITION X #x000000008050CCA9>))>
         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 #x0000000080539539>))>
         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 #x0000000080539539>))>EQL-OK: ERROR
         from an already called generic function
         #<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 #x00000000805B2581>))>
         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 #x00000000805E3461>))>
         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 #x00000000805E3461>))>EQL-OK: ERROR
         from an already called generic function
         #<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-INITARGS>
(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 #x000000008043E241>))>
         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 #x000000008046F229>))>
         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 #x000000008046F229>))>EQL-OK: ERROR
         from an already called generic function
         #<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-INITFORM>
(LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS29 NIL ((X))))))) (DEFMETHOD SLOT-DEFINITION-INITFUNCTION ((SLOTDEF (EQL *SAMPSLOT*))) (CALL-NEXT-METHOD)) (SLOT-DEFINITION-INITFUNCTION *SAMPSLOT*) T)
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-DIRECT-SLOT-DEFINITION X #x00000000804E86D9>))>
         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 #x00000000805152B9>))>
         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 #x00000000805152B9>))>
         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)
from an already called generic function
         #<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-INITFUNCTION>
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-DIRECT-SLOT-DEFINITION X #x000000008058EEA9>))>
         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 #x00000000805BFF41>))>
         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 #x0000000080490749>))>
         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 #x00000000804BDE59>))>
         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 #x00000000804BDE59>))>
         EQL-OK: ERROR
(LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS35 NIL ((X))))))) (DEFMETHOD SLOT-DEFINITION-READERS ((SLOTDEF (EQL *SAMPSLOT*))) (CALL-NEXT-METHOD)) (SLOT-DEFINITION-READERS *SAMPSLOT*) T)
from an already called generic function
         #<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-TYPE>
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-DIRECT-SLOT-DEFINITION X #x0000000080538121>))>
         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 #x0000000080569699>))>
         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 #x0000000080569699>))>EQL-OK: ERROR
         from an already called generic function
         #<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-READERS>
(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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/mop-tst-defstruct-test.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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 #x00000000804F5571>))>
         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 #x0000000080522699>))>
         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 #x0000000080522699>))>EQL-OK: ERROR
         from an already called generic function
         #<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-WRITERS>
(LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS39 NIL ((X))))) (UNLESS (CLASS-FINALIZED-P *SAMPCLASS*) (FINALIZE-INHERITANCE *SAMPCLASS*)) (LET ((*SAMPSLOT* (FIRST (CLASS-SLOTS *SAMPCLASS*)))) (DEFMETHOD SLOT-DEFINITION-LOCATION ((SLOTDEF (EQL *SAMPSLOT*))) (CALL-NEXT-METHOD)) (SLOT-DEFINITION-LOCATION *SAMPSLOT*) T))
WARNING: Adding method
         #<STANDARD-METHOD ((EQL #1=#<STANDARD-EFFECTIVE-SLOT-DEFINITION X #x000000008059DBD1>))>
         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 #x00000000805CF849>))>
         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 #x00000000805CF849>))>
         EQL-OK: ERROR
(LET ((ADD-METHOD-CALLED NIL)) (DEFCLASS TESTGENERICFUNCTION142 (STANDARD-GENERIC-FUNCTION) NIL (:METACLASS FUNCALLABLE-STANDARD-CLASS)) (DEFMETHOD ADD-METHOD :BEFORE ((GF from an already called generic function
         #<STANDARD-GENERIC-FUNCTION SLOT-DEFINITION-LOCATION>
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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/tests/mop-aux.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/tests/mop-aux.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/tests/hash-classes.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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 #x0000000080550CF9> in #<CLASS-BAD-SLOT #x00000000805512D9> (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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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")) (OLD-SYM (FIND-SYMBOL "FOO" "PACK11"))) (WHEN OLD-SYM (UNINTERN OLD-SYM "PACK11")) (LIST (IMPORT TMP-SYM "PACK11")          Proceed with the new value.
(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 FFI> 
#<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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/pack11.erg|> 
#<PACKAGE PACK11> 
EQL-OK: NIL
(EXT:APPEASE-CERRORS (LET (SYSTEM::*COUTPUT-STREAM*) (SETQ SYSTEM::*COUTPUT-STREAM* 123)))
EQL-OK: 123
(EXT:PACKAGE-CASE-SENSITIVE-P (MAKE-PACKAGE "PACK11-PACKAGE-CASE" :CASE-SENSITIVE T :CASE-INVERTED T))
WARNING: SETQ(SYSTEM::*COUTPUT-STREAM*): #<PACKAGE SYSTEM> is locked
         Ignore the lock and proceed
WARNING: One should not change the case sensitiveness of
         #<PACKAGE PACK11-PACKAGE-CASE>.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 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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/pack11-tst.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-abazonk.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-abazonk-logical.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-compile-file-ansi-pathname.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-compile-file-ansi-pathname.fas
0 errors, 0 warnings
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-compile-file-ansi-pathname.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-compile-file-pathname.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-compile-file-pathname.fas
0 errors, 0 warnings;; 
Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-compile-file-pathname.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-compile-file-pathname.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-compile-file-pathname.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-compile-file-pathname.fas
0 errors, 0 warnings;; 
Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-compile-file-pathname.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/loghosts ...
;; Defined logical host FOO
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-load-path-dir/loghosts ...
;; Defined logical host FOO
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d2/s2/" #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d2/s1/" #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d2/" #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d1/s2/" #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d1/s1/" #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d1/" #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/") 
((#P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d2/s2/" #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d2/s2/" (26 25 9 14 9 2024) 2) (#P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d2/s1/" #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d2/s1/" (26 25 9 14 9 2024) 2) (#P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d2/" #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d2/" (26 25 9 14 9 2024) 10) (#P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d1/s2/" #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d1/s2/" (26 25 9 14 9 2024) 2) (#P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d1/s1/" #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d1/s1/" (26 25 9 14 9 2024) 2) (#P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d1/" #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d1/" (26 25 9 14 9 2024) 10) (#P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/" #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/" (26 25 9 14 9 2024) 10)) 
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d1/f       0   2024-09-14 09:25:26
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d1/s1/f       0   2024-09-14 09:25:26
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d1/s2/f       0   2024-09-14 09:25:26
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d2/f       0   2024-09-14 09:25:26
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d2/s1/f       0   2024-09-14 09:25:26
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d2/s2/f       0   2024-09-14 09:25:26
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/f       0   2024-09-14 09:25:26
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/      10   2024-09-14 09:25:26
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d1/      10   2024-09-14 09:25:26
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d1/s1/       2   2024-09-14 09:25:26
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d1/s2/       2   2024-09-14 09:25:26
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d2/      10   2024-09-14 09:25:26
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d2/s1/       2   2024-09-14 09:25:26
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d2/s2/       2   2024-09-14 09:25:26
removing file #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d2/s2/f"
removing file #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d2/s1/f"
removing file #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d2/f"
removing file #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d1/s2/f"
removing file #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d1/s1/f"
removing file #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d1/f"
removing file #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/f"
removing directory #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d2/s2/"
removing directory #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d2/s1/"
removing directory #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d2/"
removing directory #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d1/s2/"
removing directory #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d1/s1/"
removing directory #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-my-dir/d1/"
removing directory #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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"/" 3935306057 218)
EQL-OK: T
(EQUALP (SHOW (MULTIPLE-VALUE-LIST (PROBE-PATHNAME "/etc"))) (SHOW (MULTIPLE-VALUE-LIST (PROBE-PATHNAME "/etc/"))))
(#P"/etc/" #P"/etc/" 3935306337 1720)
(#P"/etc/" #P"/etc/" 3935306337 1720)
EQL-OK: T
(EQUALP (SHOW (MULTIPLE-VALUE-LIST (PROBE-PATHNAME (DEFAULT-DIRECTORY)))) (SHOW (MULTIPLE-VALUE-LIST (PROBE-PATHNAME ""))))
(#P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/" #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/" 3935309126 1472)
(#P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/" #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/" 3935309126 1472)
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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/test-pathname" #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/test-pathname" 3935309126 0)
(#P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/test-pathname" #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/test-pathname" 3935309126 0)
(#P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/test-pathname" #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/test-pathname" 3935309126 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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-load-weird-dir/path-tst-good-file.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-load-weird-dir/path-tst-good-file.lisp
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-load-weird-dir/path-tst-good-file.lisp      31   2024-09-14 09:25:26
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-load-weird-dir/weird        0   2024-09-14 09:25:26
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-load-weird-dir/      58   2024-09-14 09:25:26
removing file #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-load-weird-dir/path-tst-good-file.lisp"
removing file #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/path-tst-load-weird-dir/weird "
removing directory #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/tmp-dir/foo.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/tmp-dir/foo.lisp
LOAD: A file with name #1=foo does not exist
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/tmp-dir/foo.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/tmp-dir/foo.lisp
;; Loading file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/tmp-dir/foo.lisp ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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,256 files under #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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)))
64 directories under #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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) ((AND (EQUAL OS "Linux") (EQL (SEARCH "parisc" CPU) 0)) 227) ((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) ((AND (EQUAL OS "Linux") (EQL (SEARCH "parisc" CPU) 0)) 232) ((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) ((AND (EQUAL OS "Linux") (EQL (SEARCH "parisc" CPU) 0)) 239) ((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) ((AND (EQUAL OS "Linux") (EQL (SEARCH "parisc" CPU) 0)) 238) ((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:40369>
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:40369>
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:40369>
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:40369>
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:40369>
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 (2c767f5a8f804f218718eb1f4703fde7)" 43472)
 ("127.0.0.1 (localhost)" 9096)
 ("127.0.0.1 (2c767f5a8f804f218718eb1f4703fde7)" 9096)
 ("127.0.0.1 (localhost)" 43472))
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:42867>
#<SOCKET-SERVER 127.0.0.1:43727>
#<SOCKET-SERVER 0.0.0.0:43781>
#<SOCKET-SERVER 127.0.0.1:43001>
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:32777> 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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/config.fas
WARNING: DEFUN/DEFMACRO: redefining function IMPNOTES-ROOT in top-level, was
         defined in
         /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/config.fasEQL-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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/tmp.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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 (FDEFINITION '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)
foo
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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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: 44.08481 sec.
Run time: 43.34794 sec.
Space: 127793360 Bytes
GC: 43, GC time: 2.52628 sec.
EQL-OK: NIL
(TIME-LOOP 4300066700 4300181201 10)
(:GOOD 4300066700 NIL)
Real time: 0.469259 sec.
Run time: 0.461736 sec.
Space: 1465776 Bytes
EQL-OK: NIL
(TIME-LOOP 100000 5000000000 5000 0)
(:GOOD 100000 NIL)
Real time: 22.189676 sec.
Run time: 21.804728 sec.
Space: 127793488 Bytes
GC: 43, GC time: 2.523256 sec.
EQL-OK: NIL
(TIME-LOOP 4300066700 4300081201 10 0)
(:GOOD 4300066700 NIL)
Real time: 0.028188 sec.
Run time: 0.027731 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
(TYPEP #\A 'FFI:FOREIGN-ADDRESS)
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 'FFI:FOREIGN-FUNCTION 'FUNCTION))
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: #:G2376 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: #:G2377 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: #:G2378 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: #:G2379 names a DECLARATION, cannot name a type
EQL-OK: ERROR
(LET ((SYM (GENSYM))) (EVAL `(DEFTYPE ,SYM NIL T)) (PROCLAIM `(DECLARATION ,SYM)))
[SIMPLE-ERROR]: PROCLAIM: #:G2380 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=#:G2381 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=#:G2383 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=#:G2386 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 289 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.120143 sec.
Run time: 0.117185 sec.
Space: 0 Bytes
GC: 1, GC time: 0.117138 sec.
Real time: 0.076654 sec.
Run time: 0.074752 sec.
Space: 0 Bytes
GC: 1, GC time: 0.074707 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.122761 sec.
Run time: 0.119637 sec.
Space: 0 Bytes
GC: 1, GC time: 0.11959 sec.
Real time: 0.076581 sec.
Run time: 0.074648 sec.
Space: 0 Bytes
GC: 1, GC time: 0.074602 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)))
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))) ((LAMBDA (X) (DECLARE (SPECIAL X)) X) (1+ 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
(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.
         Misspelled or missing IGNORE declaration?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)))))
WARNING: variable X is not used.
         Misspelled or missing IGNORE declaration?EQL-OK: BAR
(LET ((X :GOOD)) (DECLARE (SPECIAL X)) (LET ((X :BAD)) (SYMBOL-MACROLET NIL (DECLARE (SPECIAL X)) X)))
WARNING: variable X is not used.
         Misspelled or missing IGNORE declaration?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))))))
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)))
WARNING: variable X is not used.
         Misspelled or missing IGNORE declaration?EQL-OK: :SPECIAL
(LET ((X :SPECIAL)) (DECLARE (SPECIAL X)) (LET ((X :LEXICAL)) (LOCALLY (DECLARE (SPECIAL X)) X)))
WARNING: variable X is not used.
         Misspelled or missing IGNORE declaration?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"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-21475 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-21483 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-21490 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 #x00000000804F1B61> 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-22372 from #1=#<PACKAGE PACK-2> produces a name conflict with PACK-1::BAR-22372 from #2=#<PACKAGE PACK-1>.
You may choose which symbol should be accessible in #2#.
[SIMPLE-PACKAGE-ERROR]: Uninterning PACK-1::BAR-22372 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-22437" 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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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  56 files:               0 errors out of  11,914 tests
  1                   alltest:    0 errors out of     636 tests
  2                     array:    0 errors out of     290 tests
  3                  backquot:    0 errors out of      89 tests
  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                       ffi:    0 errors out of     263 tests
 12                    floeps:    0 errors out of      20 tests
 13                    format:    0 errors out of     307 tests
 14                 genstream:    0 errors out of      14 tests
 15                      hash:    0 errors out of      48 tests
 16                  hashlong:    0 errors out of      14 tests
 17                 hashtable:    0 errors out of      10 tests
 18                    iofkts:    0 errors out of     228 tests
 19                    lambda:    0 errors out of      90 tests
 20                  lists151:    0 errors out of     201 tests
 21                  lists152:    0 errors out of     255 tests
 22                  lists153:    0 errors out of       1 test
 23                  lists154:    0 errors out of      46 tests
 24                  lists155:    0 errors out of      25 tests
 25                  lists156:    0 errors out of      20 tests
 26                  list-set:    0 errors out of      10 tests
 27                      loop:    0 errors out of     178 tests
 28                    macro8:    0 errors out of     253 tests
 29                       map:    0 errors out of      64 tests
 30                       mop:    0 errors out of     225 tests
 31                    number:    0 errors out of   3,655 tests
 32                   number2:    0 errors out of     331 tests
 33                    pack11:    0 errors out of     211 tests
 34                      path:    0 errors out of     180 tests
 35                 readtable:    0 errors out of      27 tests
 36                      setf:    0 errors out of     210 tests
 37                    socket:    0 errors out of      92 tests
 38                   steele7:    0 errors out of      86 tests
 39                   streams:    0 errors out of     387 tests
 40               streamslong:    0 errors out of      25 tests
 41                   strings:    0 errors out of     409 tests
 42                  symbol10:    0 errors out of     152 tests
 43                   symbols:    0 errors out of       6 tests
 44                      time:    0 errors out of      22 tests
 45                     tread:    0 errors out of     395 tests
 46                      type:    0 errors out of     289 tests
 47                unportable:    0 errors out of      31 tests
 48                      weak:    0 errors out of     120 tests
 49                  weakhash:    0 errors out of      26 tests
 50                 weakhash2:    0 errors out of      47 tests
 51                 bind-eval:    0 errors out of      72 tests
 52              bind-compile:    0 errors out of      72 tests
 53                conditions:    0 errors out of      98 tests
 54                  restarts:    0 errors out of      71 tests
 55                  excepsit:    0 errors out of     395 tests
 56                   weakptr:    0 errors out of     260 tests
Real time: 226.77089 sec.
Run time: 220.10857 sec.
Space: 1364759040 Bytes
GC: 792, GC time: 45.27825 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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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+ (2024-07-04) <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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/tests.fas ...
;;  Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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
(NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING EACH HASH-VALUES IN TABLE USING (HASH-KEY K) DO (PUSH (LIST K V) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL))))
WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not
         HASH-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 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
         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 AS SYM BEING THE SYMBOL OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG)))))
WARNING: LOOP: After THE a plural loop keyword is required, not 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 OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG)))))
EQL-OK: NIL
(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING THE SYMBOLS IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG)))))
EQL-OK: NIL
(NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING EACH SYMBOLS IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG)))))
WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not
         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 AS SYM BEING THE SYMBOL IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG)))))
WARNING: LOOP: After THE a plural loop keyword is required, not 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))))))
EQL-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))))))))
WARNING: LOOP: FOR clauses should occur before the loop's main body
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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/clisp -norc"; export CLISP; cd benchmarks; make CLISP="$CLISP" clisp
make[1]: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks'
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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+ (2024-07-04) <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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/run-all.fas
The following functions were used but not defined:
 FAC ACKER BFIB-TEST CTAK STAK TAK MAS-BENCH TAK0 BOYER-SETUP BOYER-TEST
 BROWSE DDERIV-RUN DERIV-RUN DESTRUCTIVE TEST-DIV2-ITERATIVE
 TEST-DIV2-RECURSIVE FFT-BENCH FPRINT FREAD PEXPTSQ PUZZLE-START
 NTH-PRIME TPRINT-TEST INIT-TRAVERSE RUN-TRAVERSE GOGOGO
The following special variables were not defined:
 FRPOLY-R FRPOLY-R2 FRPOLY-R3
0 errors, 12 warnings
Bye.
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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+ (2024-07-04) <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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/acker.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/acker.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/bfib.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/bfib.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/boyer.fas
0 errors, 1 warning
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/browse.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/ctak.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/ctak.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/dderiv.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/dderiv.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/deriv.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/deriv.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/destru.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/destru.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/div2.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/div2.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/fac.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/fac.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/fft.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/fft.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/fprint.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/fprint.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/fread.lisp ...
Define FPRINT.TST by running the FPRINT benchmark!
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/fread.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/frpoly.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/frpoly.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/puzzle.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/puzzle.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/stak.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/stak.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/stream.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/stream.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/tak.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/tak.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/takl.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/takl.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/takr.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/takr.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/tprint.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/tprint.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/traverse.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/traverse.fas
0 errors, 0 warnings
;; Compiling file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/triang.lisp ...
;; Wrote file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks/triang.fas
unchecked: 
("acker" "bfib" "boyer" "browse" "ctak" "dderiv" "deriv" "destru" "div2" "fac"
 "fft" "fprint" "fread" "frpoly" "puzzle" "stak" "stream" "tak" "takl" "takr"
 "tprint" "traverse" "triang")
elapsed: 1.867062 sec [scaled: 3.73949761836603270 errors, 0 warnings
]
 * file: "fac"
 > form: (fac 1000)
unchecked: 402387260077093773543702433923003985719374864210714632543799910429938512398629020592044208486969404800479988610197196058631666872994808558901323829669944590997424504087073759918823627727188732519779505950995276120874975462497043601418278094646496291056393887437886487337119181045825783647849977012476632889835955735432513185323958463075557409114262417474349347553428646576611667797396668820291207379143853719588249808126867838374559731746136085379534524221586593201928090878297308431392844403281231558611036976801357304216168747609675871348312025478589320767169132448426236131412508780208000261683151027341827977704784635868170164365024153691398281264810213092761244896359928705114964975419909342221566832572080821333186116811553615836546984046708975602900950537616475847728421889679646244945160765353408198901385442487984959953319101723355556602139450399736280750137837615307127761926849034352625200015888535147331611702103968175921510907788019393178114194545257223865541461062892187960223838971476088506276862967146674697562911234082439208160153780889893964518263243671616762179168909779911903754031274622289988005195444414282012187361745992642956581746628302955570299024324153181617210465832036786906117260158783520751516284225540265170483304226143974286933061690897968482590125458327168226458066526769958652682272807075781391858178889652208164348344825993266043367660176999612831860788386150279465955131156552036093988180612138558600301435694527224206344631797460594682573103790084024432438465657245014402821885252470935190620929023136493273497565513958720559654228749774011413346962715422845862377387538230483865688976461927383814900140767310446640259899490222221765904339901886018566526485061799702356193897017860040811889729918311021171229845901641921068884387121855646124960798722908519296819372388642614839657382291123125024186649353143970137428531926649875337218940694281434118520158014123344828015051399694290153483077644569099073152433278288269864602789864321139083506217095002597389863554277196742822248757586765752344220207573630569498825087968928162753848863396909959826280956121450994871701244516461260379029309120889086942028510640182154399457156805941872748998094254742173582401063677404595741785160829230135358081840096996372524230560855903700624271243416909004153690105933983835777939410970027753472000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
elapsed: 1.466013 sec [scaled: 2.936245353391394]
 * file: "acker"
 > form: (acker 3 5)
correct: 253
elapsed: 0.259135 sec [scaled: 0.5190158202219755]
 > form: (acker 3 6)
correct: 509
elapsed: 0.599057 sec [scaled: 1.1998381546866146]
 > form: (acker 3 7)
correct: 1021
elapsed: 0.784213 sec [scaled: 1.5706830548699946]
 * file: "bfib"
 > form: (bfib-test)
correct: 6765
elapsed: 1.791777 sec [scaled: 3.588710939509794]
 * file: "ctak"
 > form: (ctak 18 12 6)
correct: 7
elapsed: 2.085178 sec [scaled: 4.176357381206006]
 * file: "stak"
 > form: (stak 18 12 6)
correct: 7
elapsed: 2.466449 sec [scaled: 4.939996722830459]
 * file: "tak"
 > form: (tak 18 12 6)
correct: 7
elapsed: 1.740877 sec [scaled: 3.4867644434776155]
 * file: "takl"
 > form: (mas-bench)
correct: (7 6 5 4 3 2 1)
elapsed: 1.683846 sec [scaled: 3.37253830172494]
 * file: "takr"
 > form: (tak0 18 12 6)
correct: 7
elapsed: 1.985435 sec [scaled: 3.9765843094233424]
 * file: "boyer"
 > form: (boyer-test)
correct: NIL
elapsed: 1.84403 sec [scaled: 3.6933673296310006]
 * file: "browse"
 > form: (browse)
correct: NIL
elapsed: 2.466531 sec [scaled: 4.940160958835855]
 * file: "dderiv"
 > form: (dderiv-run)
correct: NIL
elapsed: 4.165727 sec [scaled: 8.343443439619616]
 * file: "deriv"
 > form: (deriv-run)
correct: NIL
elapsed: 0.897917 sec [scaled: 1.7984183080103247]
 * file: "destru"
 > form: (destructive 600 50)
correct: NIL
elapsed: 1.831646 sec [scaled: 3.6685636870600282]
 * file: "div2"
 > form: (test-div2-iterative)
correct: NIL
elapsed: 1.529008 sec [scaled: 3.0624166602194305]
 > form: (test-div2-recursive)
correct: NIL
elapsed: 1.838043 sec [scaled: 3.681376098359004]
 * file: "fft"
 > form: (fft-bench)
correct: NIL
elapsed: 1.783513 sec [scaled: 3.5721591547708953]
 * file: "fprint"
 > form: (fprint)
correct: T
elapsed: 2.965798 sec [scaled: 5.94013190646842]
 * file: "fread"
 > form: (fread)
correct: T
elapsed: 1.585195 sec [scaled: 3.1749523728433995]
 * file: "frpoly"
 > form: (pexptsq (Z 1 1 0 (Y 1 1 0 (X 1 1 0 1))) 2)
correct: NIL
elapsed: 0.001072 sec [scaled: 0.0021470853388309476]
 > form: (pexptsq (Z 1 100000 0 (Y 1 100000 0 (X 1 100000 0 100000))) 2)
correct: NIL
elapsed: 0.001086 sec [scaled: 0.002175125632435083]
 > form: (pexptsq (Z 1 1.0 0 (Y 1 1.0 0 (X 1 1.0 0 1.0))) 2)
correct: NIL
elapsed: 0.00113 sec [scaled: 0.002263252269476652]
 > form: (pexptsq (Z 1 1 0 (Y 1 1 0 (X 1 1 0 1))) 5)
correct: NIL
elapsed: 0.010818 sec [scaled: 0.021667135443538425]
 > form: (pexptsq (Z 1 100000 0 (Y 1 100000 0 (X 1 100000 0 100000))) 5)
correct: NIL
elapsed: 0.011929 sec [scaled: 0.023892333028838038]
 > form: (pexptsq (Z 1 1.0 0 (Y 1 1.0 0 (X 1 1.0 0 1.0))) 5)
correct: NIL
elapsed: 0.011522 sec [scaled: 0.023077161636203526]
 > form: (pexptsq (Z 1 1 0 (Y 1 1 0 (X 1 1 0 1))) 10)
correct: NIL
elapsed: 0.120266 sec [scaled: 0.24087813932821153]
 > form: (pexptsq (Z 1 100000 0 (Y 1 100000 0 (X 1 100000 0 100000))) 10)
correct: NIL
elapsed: 0.107552 sec [scaled: 0.2154135469794273]
 > form: (pexptsq (Z 1 1.0 0 (Y 1 1.0 0 (X 1 1.0 0 1.0))) 10)
correct: NIL
elapsed: 0.097985 sec [scaled: 0.19625201205722986]
 > form: (pexptsq (Z 1 1 0 (Y 1 1 0 (X 1 1 0 1))) 15)
correct: NIL
elapsed: 0.728429 sec [scaled: 1.4589545021262018]
 > form: (pexptsq (Z 1 100000 0 (Y 1 100000 0 (X 1 100000 0 100000))) 15)
correct: NIL
elapsed: 0.360165 sec [scaled: 0.7213665961381048]
 > form: (pexptsq (Z 1 1.0 0 (Y 1 1.0 0 (X 1 1.0 0 1.0))) 15)
correct: NIL
elapsed: 0.277804 sec [scaled: 0.5564075517430901]
 * file: "puzzle"
 > form: (puzzle-start)
Success in 2005 trials.
Success in 2005 trials.
Success in 2005 trials.
Success in 2005 trials.correct: NIL
elapsed: 1.586731 sec [scaled: 3.1780287936273957]
 * file: "stream"
 > form: (nth-prime 50)
correct: 229
elapsed: 0.221765 sec [scaled: 0.4441682650800794]
 > form: (nth-prime 100)
correct: 541
elapsed: 1.242857 sec [scaled: 2.4892910848539325]
 > form: (nth-prime 150)
correct: 863
elapsed: 1.62992 sec [scaled: 3.2645310965180396]
 * file: "tprint"
 > form: (tprint-test 100)
correct: T
elapsed: 2.893276 sec [scaled: 5.79487917984277]
 * file: "traverse"
 > form: (init-traverse)
correct: NIL
elapsed: 0.251369 sec [scaled: 0.5034614687841386]
 > form: (run-traverse)
correct: NIL
elapsed: 1.439202 sec [scaled: 2.88254618826136]
 * file: "triang"
 > form: (gogogo 22)
correct: NIL
elapsed: 7.80225 sec [scaled: 15.626955769490449]
Real time: 59.46378 sec.
Run time: 58.281418 sec.
Space: 640692456 Bytes
GC: 319, GC time: 14.998734 sec.
 * :COMPILED: 2024:09:14 09:27:24
 * CLISP [2.49.93+ (2024-07-04) (built 3934324800) (memory 3935308606)]
compilation        1.86706 sec     3.73950 scaled
fac                1.46601 sec     2.93625 scaled
acker              1.64241 sec     3.28954 scaled
bfib               1.79178 sec     3.58871 scaled
ctak               2.08518 sec     4.17636 scaled
stak               2.46645 sec     4.94000 scaled
tak                1.74088 sec     3.48676 scaled
takl               1.68385 sec     3.37254 scaled
takr               1.98544 sec     3.97658 scaled
boyer              1.84403 sec     3.69337 scaled
browse             2.46653 sec     4.94016 scaled
dderiv             4.16573 sec     8.34344 scaled
deriv              0.89792 sec     1.79842 scaled
destru             1.83165 sec     3.66856 scaled
div2               3.36705 sec     6.74379 scaled
fft                1.78351 sec     3.57216 scaled
fprint             2.96580 sec     5.94013 scaled
fread              1.58519 sec     3.17495 scaled
frpoly             1.72976 sec     3.46449 scaled
puzzle             1.58673 sec     3.17803 scaled
stream             3.09454 sec     6.19799 scaled
tprint             2.89328 sec     5.79488 scaled
traverse           1.69057 sec     3.38601 scaled
triang             7.80225 sec    15.62696 scaled
total             56.43358 sec   113.02958 scaled
NIL
Bye.
make[1]: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/benchmarks'
make: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build'
+ make -C build extracheck
make: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/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+ (2024-07-04) <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 (12,946,944 bytes)
Bytes permanently allocated:            173,664
Bytes currently in use:               3,128,552
Bytes available until next GC:        1,559,464
3128552 ;
1559464 ;
173664 ;
1 ;
107208 ;
28288
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+ (2024-07-04) <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,304,992 bytes)
Bytes permanently allocated:            173,664
Bytes currently in use:               3,128,448
Bytes available until next GC:        1,559,340
3128448 ;
1559340 ;
173664 ;
1 ;
27768 ;
26741
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+ (2024-07-04) <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+ (2024-07-04) <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 (12,948,000 bytes)
Bytes permanently allocated:            173,664
Bytes currently in use:               3,129,608
Bytes available until next GC:        1,559,992
3129608 ;
1559992 ;
173664 ;
1 ;
112736 ;
28269
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+ (2024-07-04) <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 (12,947,408 bytes)
Bytes permanently allocated:            173,664
Bytes currently in use:               3,129,016
Bytes available until next GC:        1,559,696
3129016 ;
1559696 ;
173664 ;
1 ;
112408 ;
28212
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+ (2024-07-04) <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 (12,948,200 bytes)
Bytes permanently allocated:            173,664
Bytes currently in use:               3,129,808
Bytes available until next GC:        1,560,092
3129808 ;
1560092 ;
173664 ;
1 ;
112704 ;
28317
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+ (2024-07-04) <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 (12,950,128 bytes)
Bytes permanently allocated:            173,664
Bytes currently in use:               3,131,736
Bytes available until next GC:        1,561,056
3131736 ;
1561056 ;
173664 ;
1 ;
114248 ;
28464
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 12950128 Sep 14 09:28 image
-rw-r--r--. 1 mockbuild mock  3304992 Sep 14 09:28 image.mem
-rwxr-xr-x. 1 mockbuild mock  9641800 Sep 14 08:49 lisp.run
-rw-r--r--. 1 mockbuild mock  3314736 Sep 14 08:52 lispinit.mem
rm -f image image.mem
make: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build'
+ make -C build base-mod-check
make: Entering directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build'
for m in "" i18n syscalls regexp readline; do test -n "$m" && rm -f $m/*.erg; done
z=""; for m in "" i18n syscalls regexp readline; do test -n "$m" && z=$z" \""$m/\"; done; ./clisp -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -C -i tests/tests -x "(ext:exit (plusp (or (run-some-tests :dirlist '($z) :srcdir \"../modules/\" :outdir \"./\") 0)))"
  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+ (2024-07-04) <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-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/tests.fas ...
;; Loaded file /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/tests/tests.fas0 errors, 0 warnings
RUN-TEST: started 
#<INPUT BUFFERED FILE-STREAM CHARACTER
  #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/i18n/test.tst"
  @1>
(NULL (REQUIRE "i18n"))
EQL-OK: T
(LISTP (SHOW (MULTIPLE-VALUE-LIST (MODULE-INFO "i18n" T)) :PRETTY T))
("i18n" 9
 (TEXTDOMAINDIR TEXTDOMAIN I18N::SET-TEXTDOMAINDIR I18N::SET-TEXTDOMAIN
  SET-LOCALE NGETTEXT LOCALE-CONV LANGUAGE-INFORMATION GETTEXT)
 73
 ((OR NULL INTEGER
   (MEMBER :ALL :COLLATE :CTYPE :MESSAGES :MONETARY :NUMERIC :TIME :PAPER :NAME
    :ADDRESS :TELEPHONE :MEASUREMENT :IDENTIFICATION))
  (OR INTEGER
   (MEMBER :CODESET :D_T_FMT :D_FMT :T_FMT :T_FMT_AMPM :AM_STR :PM_STR :DAY_1
    :DAY_2 :DAY_3 :DAY_4 :DAY_5 :DAY_6 :DAY_7 :ABDAY_1 :ABDAY_2 :ABDAY_3
    :ABDAY_4 :ABDAY_5 :ABDAY_6 :ABDAY_7 :MON_1 :MON_2 :MON_3 :MON_4 :MON_5
    :MON_6 :MON_7 :MON_8 :MON_9 :MON_10 :MON_11 :MON_12 :ABMON_1 :ABMON_2
    :ABMON_3 :ABMON_4 :ABMON_5 :ABMON_6 :ABMON_7 :ABMON_8 :ABMON_9 :ABMON_10
    :ABMON_11 :ABMON_12 :ERA :ERA_D_FMT :ERA_D_T_FMT :ERA_T_FMT :ALT_DIGITS
    :RADIXCHAR :THOUSEP :YESEXPR :NOEXPR :YESSTR :NOSTR :CRNCYSTR))
  :YESSTR :YESEXPR :T_FMT_AMPM :T_FMT :TIME :THOUSEP :TELEPHONE :RADIXCHAR
  :PM_STR :PAPER :NUMERIC :NOSTR :NOEXPR :NAME :MON_9 :MON_8 :MON_7 :MON_6
  :MON_5 :MON_4 :MON_3 :MON_2 :MON_12 :MON_11 :MON_10 :MON_1 :MONETARY
  :MESSAGES :MEASUREMENT :IDENTIFICATION :ERA_T_FMT :ERA_D_T_FMT :ERA_D_FMT
  :ERA :D_T_FMT :D_FMT :DAY_7 :DAY_6 :DAY_5 :DAY_4 :DAY_3 :DAY_2 :DAY_1 :CTYPE
  :CRNCYSTR :COLLATE :CODESET :AM_STR :ALT_DIGITS :ALL :ADDRESS :ABMON_9
  :ABMON_8 :ABMON_7 :ABMON_6 :ABMON_5 :ABMON_4 :ABMON_3 :ABMON_2 :ABMON_12
  :ABMON_11 :ABMON_10 :ABMON_1 :ABDAY_7 :ABDAY_6 :ABDAY_5 :ABDAY_4 :ABDAY_3
  :ABDAY_2 :ABDAY_1 I18N::MK-LOCALE-CONV))
EQL-OK: T
(GETTEXT "foo")
EQUAL-OK: "foo"
(NGETTEXT "abazonk" "abazonk" 12)
EQUAL-OK: "abazonk"
(TYPEP (SHOW (TEXTDOMAIN)) '(OR NULL STRING))
"messages"
EQL-OK: T
(SETF (TEXTDOMAIN) "zot")
EQUAL-OK: "zot"
(TYPEP (SHOW (TEXTDOMAINDIR "foo")) '(OR NULL PATHNAME))
#P"/usr/share/locale/"
EQL-OK: T
(PATHNAMEP (SETF (TEXTDOMAINDIR "foo") (CAR (DIRECTORY "./"))))
EQL-OK: T
(LISTP (SHOW (SET-LOCALE) :PRETTY T))
(:ALL
 "LC_CTYPE=C.UTF-8;LC_NUMERIC=C;LC_TIME=C.UTF-8;LC_COLLATE=C.UTF-8;LC_MONETARY=C.UTF-8;LC_MESSAGES=C.UTF-8;LC_PAPER=C;LC_NAME=C;LC_ADDRESS=C;LC_TELEPHONE=C;LC_MEASUREMENT=C;LC_IDENTIFICATION=C"
 :COLLATE "C.UTF-8" :CTYPE "C.UTF-8" :MESSAGES "C.UTF-8" :MONETARY "C.UTF-8"
 :NUMERIC "C" :TIME "C.UTF-8" :PAPER "C" :NAME "C" :ADDRESS "C" :TELEPHONE "C"
 :MEASUREMENT "C" :IDENTIFICATION "C")
EQL-OK: T
(IF (FBOUNDP 'LOCALE-CONV) (LOCALE-CONV-P (SHOW (LOCALE-CONV) :PRETTY T)) T)
#<LOCALE-CONV :DECIMAL_POINT "." :THOUSANDS_SEP "" :GROUPING #(0)
  :INT_CURR_SYMBOL "" :CURRENCY_SYMBOL "" :MON_DECIMAL_POINT ""
  :MON_THOUSANDS_SEP "" :MON_GROUPING #(0) :POSITIVE_SIGN "" :NEGATIVE_SIGN ""
  :INT_FRAC_DIGITS :UNSPECIFIC :FRAC_DIGITS :UNSPECIFIC
  :P_CS_PRECEDES :UNSPECIFIC :P_SEP_BY_SPACE :UNSPECIFIC
  :N_CS_PRECEDES :UNSPECIFIC :N_SEP_BY_SPACE :UNSPECIFIC
  :P_SIGN_POSN :UNSPECIFIC :N_SIGN_POSN :UNSPECIFIC
  :INT_P_CS_PRECEDES :UNSPECIFIC :INT_N_CS_PRECEDES :UNSPECIFIC
  :INT_P_SEP_BY_SPACE :UNSPECIFIC :INT_N_SEP_BY_SPACE :UNSPECIFIC
  :INT_P_SIGN_POSN :UNSPECIFIC :INT_N_SIGN_POSN :UNSPECIFIC>
EQL-OK: T
(IF (FBOUNDP 'LANGUAGE-INFORMATION) (LISTP (SHOW (LANGUAGE-INFORMATION) :PRETTY T)) T)
(:CODESET "UTF-8" :D_T_FMT "%a %b %e %H:%M:%S %Y" :D_FMT "%m/%d/%y" :T_FMT
 "%H:%M:%S" :T_FMT_AMPM "%I:%M:%S %p" :AM_STR "AM" :PM_STR "PM" :DAY_1 "Sunday"
 :DAY_2 "Monday" :DAY_3 "Tuesday" :DAY_4 "Wednesday" :DAY_5 "Thursday" :DAY_6
 "Friday" :DAY_7 "Saturday" :ABDAY_1 "Sun" :ABDAY_2 "Mon" :ABDAY_3 "Tue"
 :ABDAY_4 "Wed" :ABDAY_5 "Thu" :ABDAY_6 "Fri" :ABDAY_7 "Sat" :MON_1 "January"
 :MON_2 "February" :MON_3 "March" :MON_4 "April" :MON_5 "May" :MON_6 "June"
 :MON_7 "July" :MON_8 "August" :MON_9 "September" :MON_10 "October" :MON_11
 "November" :MON_12 "December" :ABMON_1 "Jan" :ABMON_2 "Feb" :ABMON_3 "Mar"
 :ABMON_4 "Apr" :ABMON_5 "May" :ABMON_6 "Jun" :ABMON_7 "Jul" :ABMON_8 "Aug"
 :ABMON_9 "Sep" :ABMON_10 "Oct" :ABMON_11 "Nov" :ABMON_12 "Dec" :ERA ""
 :ERA_D_FMT "" :ERA_D_T_FMT "" :ERA_T_FMT "" :ALT_DIGITS "" :RADIXCHAR "."
 :THOUSEP "" :YESEXPR "^[yY]" :NOEXPR "^[nN]" :YESSTR "" :NOSTR "" :CRNCYSTR
 "-")
EQL-OK: T
RUN-TEST: finished #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/i18n/test.tst" (0 errors out of 11 tests)
RUN-TEST: started 
#<INPUT BUFFERED FILE-STREAM CHARACTER
  #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/syscalls/test.tst"
  @1>
(NULL (REQUIRE "syscalls"))
EQL-OK: T
(LISTP (SHOW (MULTIPLE-VALUE-LIST (MODULE-INFO "syscalls" T)) :PRETTY T))
("syscalls" 104
 (STRERROR POSIX::%UNGETC POSIX::%SYSLOG POSIX::%STDIO POSIX::%SET-FILE-SIZE
  POSIX::%SETUID POSIX::%SETPGID POSIX::%SETHOSTID POSIX::%SETGROUPS
  POSIX::%SETGID POSIX::%SETEUID POSIX::%SETEGID POSIX::%SETDOMAINNAME
  POSIX::%FPUTC POSIX::%FGETC YN Y1 Y0 WAIT USER-SHELLS USER-INFO USAGE UNAME
  UMASK UID TGAMMA SYSCONF SYNC STRING-TIME STREAM-OPTIONS STREAM-LOCK STAT-VFS
  POSIX::SET-RLIMIT SET-FILE-STAT SETUTXENT SETSID SETREUID SETREGID SETPGRP
  SETLOGMASK SERVICE RLIMIT RESOLVE-HOST-IPADDR PUTUTXLINE PGID PATHCONF
  OPENLOG MKSTEMP MKNOD MKDTEMP LOADAVG LGAMMA KILL JN J1 J0 HOSTID GROUP-INFO
  GROUPS GID GETUTXLINE GETUTXID GETUTXENT GETSID GETPPID GETPGRP GETDATE
  FREOPEN FOPEN FNMATCH FILE-TREE-WALK FILE-STAT FILE-SIZE FILENO FFLUSH FERROR
  FEOF FDOPEN FCLOSE EUID ERRNO ERFC ERF POSIX::END-SUBPROCESSES ENDUTXENT EGID
  DUPLICATE-HANDLE DOMAINNAME COPY-FILE CONVERT-MODE CONFSTR CLOSELOG CLEARERR
  CHROOT POSIX::BEGIN-SUBPROCESSES POSIX::%SET-PRIORITY VERSION-COMPARE
  VERSION>= VERSION> VERSION<= VERSION< PRIORITY FILE-OWNER BOGOMIPS)
 561
 (#<FOREIGN-POINTER #x0000003F93821320> #<FOREIGN-POINTER #x0000003F93821400>
  #<FOREIGN-POINTER #x0000003F93820770>
  (OR NULL INTEGER
   (MEMBER :REALTIME :HIGH :ABOVE-NORMAL :NORMAL :BELOW-NORMAL :LOW :IDLE))
  (OR NULL INTEGER (MEMBER :PROCESS :PGRP :USER))
  (OR NULL INTEGER
   (MEMBER :KERN :USER :MAIL :NEWS :UUCP :DAEMON :AUTH :CRON :LPR :SYSLOG
    :AUTHPRIV :FTP :LOCAL0 :LOCAL1 :LOCAL2 :LOCAL3 :LOCAL4 :LOCAL5 :LOCAL6
    :LOCAL7))
  (OR INTEGER
   (MEMBER :AIO-LISTIO-MAX :AIO-MAX :AIO-PRIO-DELTA-MAX :ARG-MAX :ATEXIT-MAX
    :BC-BASE-MAX :BC-DIM-MAX :BC-SCALE-MAX :BC-STRING-MAX :CHILD-MAX :CLK-TCK
    :COLL-WEIGHTS-MAX :DELAYTIMER-MAX :EXPR-NEST-MAX :HOST-NAME-MAX :IOV-MAX
    :LINE-MAX :LOGIN-NAME-MAX :NGROUPS-MAX :GETGR-R-SIZE-MAX :GETPW-R-SIZE-MAX
    :MQ-OPEN-MAX :MQ-PRIO-MAX :OPEN-MAX :ADVISORY-INFO :BARRIERS
    :ASYNCHRONOUS-IO :CLOCK-SELECTION :CPUTIME :FSYNC :IPV6 :JOB-CONTROL
    :MAPPED-FILES :MEMLOCK :MEMLOCK-RANGE :MEMORY-PROTECTION :MESSAGE-PASSING
    :MONOTONIC-CLOCK :PRIORITIZED-IO :PRIORITY-SCHEDULING :RAW-SOCKETS
    :READER-WRITER-LOCKS :REALTIME-SIGNALS :REGEXP :SAVED-IDS :SEMAPHORES
    :SHARED-MEMORY-OBJECTS :SHELL :SPAWN :SPIN-LOCKS :SPORADIC-SERVER
    :SS-REPL-MAX :SYNCHRONIZED-IO :THREAD-ATTR-STACKADDR :THREAD-ATTR-STACKSIZE
    :THREAD-CPUTIME :THREAD-PRIO-INHERIT :THREAD-PRIO-PROTECT
    :THREAD-PRIORITY-SCHEDULING :THREAD-PROCESS-SHARED :THREAD-SAFE-FUNCTIONS
    :THREAD-SPORADIC-SERVER :THREAD-ROBUST-PRIO-INHERIT
    :THREAD-ROBUST-PRIO-PROTECT :THREADS :TIMEOUTS :TIMERS :TRACE
    :TRACE-EVENT-FILTER :TRACE-EVENT-NAME-MAX :TRACE-INHERIT :TRACE-LOG
    :TRACE-NAME-MAX :TRACE-SYS-MAX :TRACE-USER-EVENT-MAX :TYPED-MEMORY-OBJECTS
    :VERSION :XBS5-ILP32-OFF32 :XBS5-ILP32-OFFBIG :XBS5-LP64-OFF64
    :XBS5-LPBIG-OFFBIG :V6-ILP32-OFF32 :V6-ILP32-OFFBIG :V6-LP64-OFF64
    :V6-LPBIG-OFFBIG :V7-ILP32-OFF32 :V7-ILP32-OFFBIG :V7-LP64-OFF64
    :V7-LPBIG-OFFBIG :2-C-BIND :2-C-DEV :2-CHAR-TERM :2-FORT-DEV :2-FORT-RUN
    :2-LOCALEDEF :2-PBS :2-PBS-ACCOUNTING :2-PBS-CHECKPOINT :2-PBS-LOCATE
    :2-PBS-MESSAGE :2-PBS-TRACK :2-SW-DEV :2-UPE :2-VERSION :PAGESIZE
    :PHYS-PAGES :AVPHYS-PAGES :THREAD-DESTRUCTOR-ITERATIONS :THREAD-KEYS-MAX
    :THREAD-STACK-MIN :THREAD-THREADS-MAX :RE-DUP-MAX :RTSIG-MAX :SEM-NSEMS-MAX
    :SEM-VALUE-MAX :SIGQUEUE-MAX :STREAM-MAX :SYMLOOP-MAX :TIMER-MAX
    :TTY-NAME-MAX :TZNAME-MAX :XOPEN-CRYPT :XOPEN-ENH-I18N :XOPEN-LEGACY
    :XOPEN-REALTIME :XOPEN-REALTIME-THREADS :XOPEN-SHM :XOPEN-STREAMS
    :XOPEN-UNIX :XOPEN-VERSION :NPROCESSORS-CONF :NPROCESSORS-ONLN))
  (OR INTEGER
   (MEMBER :FILESIZEBITS :LINK-MAX :MAX-CANON :MAX-INPUT :NAME-MAX :PATH-MAX
    :PIPE-BUF :2-SYMLINKS :ALLOC-SIZE-MIN :REC-INCR-XFER-SIZE
    :REC-MAX-XFER-SIZE :REC-MIN-XFER-SIZE :REC-XFER-ALIGN :SYMLINK-MAX
    :CHOWN-RESTRICTED :NO-TRUNC :VDISABLE :ASYNC-IO :PRIO-IO :SYNC-IO
    :SOCK-MAXBUF))
  (OR INTEGER
   (MEMBER :PATH :POSIX-V6-ILP32-OFF32-CFLAGS :POSIX-V6-ILP32-OFF32-LDFLAGS
    :POSIX-V6-ILP32-OFF32-LIBS :POSIX-V6-ILP32-OFFBIG-CFLAGS
    :POSIX-V6-ILP32-OFFBIG-LDFLAGS :POSIX-V6-ILP32-OFFBIG-LIBS
    :POSIX-V6-LP64-OFF64-CFLAGS :POSIX-V6-LP64-OFF64-LDFLAGS
    :POSIX-V6-LP64-OFF64-LIBS :POSIX-V6-LPBIG-OFFBIG-CFLAGS
    :POSIX-V6-LPBIG-OFFBIG-LDFLAGS :POSIX-V6-LPBIG-OFFBIG-LIBS
    :POSIX-V6-WIDTH-RESTRICTED-ENVS :V7-ENV :POSIX-V7-ILP32-OFF32-CFLAGS
    :POSIX-V7-ILP32-OFF32-LDFLAGS :POSIX-V7-ILP32-OFF32-LIBS
    :POSIX-V7-ILP32-OFFBIG-CFLAGS :POSIX-V7-ILP32-OFFBIG-LDFLAGS
    :POSIX-V7-ILP32-OFFBIG-LIBS :POSIX-V7-LP64-OFF64-CFLAGS
    :POSIX-V7-LP64-OFF64-LDFLAGS :POSIX-V7-LP64-OFF64-LIBS
    :POSIX-V7-LPBIG-OFFBIG-CFLAGS :POSIX-V7-LPBIG-OFFBIG-LDFLAGS
    :POSIX-V7-LPBIG-OFFBIG-LIBS :POSIX-V7-WIDTH-RESTRICTED-ENVS
    :XBS5-ILP32-OFF32-CFLAGS :XBS5-ILP32-OFF32-LDFLAGS :XBS5-ILP32-OFF32-LIBS
    :XBS5-ILP32-OFF32-LINTFLAGS :XBS5-ILP32-OFFBIG-CFLAGS
    :XBS5-ILP32-OFFBIG-LDFLAGS :XBS5-ILP32-OFFBIG-LIBS
    :XBS5-ILP32-OFFBIG-LINTFLAGS :XBS5-LP64-OFF64-CFLAGS
    :XBS5-LP64-OFF64-LDFLAGS :XBS5-LP64-OFF64-LIBS :XBS5-LP64-OFF64-LINTFLAGS
    :XBS5-LPBIG-OFFBIG-CFLAGS :XBS5-LPBIG-OFFBIG-LDFLAGS
    :XBS5-LPBIG-OFFBIG-LIBS :XBS5-LPBIG-OFFBIG-LINTFLAGS))
  (OR INTEGER
   (MEMBER :SUID :SGID :SVTX :RWXU :RUSR :WUSR :XUSR :RWXG :RGRP :WGRP :XGRP
    :RWXO :ROTH :WOTH :XOTH))
  (OR INTEGER (MEMBER :FIFO :FSOCK :FCHR :FDIR :FBLK :FREG))
  (OR INTEGER
   (MEMBER :ST_RDONLY :ST_NOSUID :ST_NODEV :ST_NOEXEC :ST_SYNCHRONOUS
    :ST_MANDLOCK :ST_WRITE :ST_APPEND :ST_IMMUTABLE :ST_NOATIME
    :ST_NODIRATIME))
  (OR INTEGER
   (MEMBER :SIGABRT :SIGALRM :SIGBUS :SIGCHLD :SIGCONT :SIGFPE :SIGHUP :SIGILL
    :SIGINT :SIGKILL :SIGPIPE :SIGQUIT :SIGSEGV :SIGSTOP :SIGTERM :SIGTSTP
    :SIGTTIN :SIGTTOU :SIGUSR1 :SIGUSR2 :SIGPOLL :SIGPROF :SIGSYS :SIGTRAP
    :SIGURG :SIGVTALRM :SIGXCPU :SIGXFSZ))
  (OR INTEGER (MEMBER :SELF :CHILDREN :THREAD :LWP))
  (OR INTEGER
   (MEMBER :CPU :FSIZE :DATA :STACK :CORE :RSS :NOFILE :AS :NPROC :MEMLOCK
    :LOCKS))
  (OR INTEGER
   (MEMBER :RDONLY :WRONLY :RDWR :APPEND :CREAT :TRUNC :EXCL :NOCTTY :SYNC
    :NONBLOCK :BINARY :TEXT :DIRECT :LARGEFILE :DIRECTORY :NOFOLLOW))
  (OR INTEGER (MEMBER :EMERG :ALERT :CRIT :ERR :WARNING :NOTICE :INFO :DEBUG))
  (OR INTEGER (MEMBER :FD :FL))
  (OR INTEGER (MEMBER :F :D :DP :SL :SLN :DNR :NS))
  (OR INTEGER (MEMBER :CLOEXEC))
  (OR INTEGER
   (MEMBER :EMPTY :RUN-LVL :BOOT-TIME :OLD-TIME :NEW-TIME :USER-PROCESS
    :INIT-PROCESS :LOGIN-PROCESS :DEAD-PROCESS :ACCOUNTING))
  (OR INTEGER
   (MEMBER :E2BIG :EACCES :EADDRINUSE :EADDRNOTAVAIL :EAFNOSUPPORT :EAGAIN
    :EALREADY :EBADF :EBADMSG :EBUSY :ECANCELED :ECHILD :ECONNABORTED
    :ECONNREFUSED :ECONNRESET :EDEADLK :EDESTADDRREQ :EDOM :EDQUOT :EEXIST
    :EFAULT :EFBIG :EHOSTUNREACH :EIDRM :EILSEQ :EINPROGRESS :EINTR :EINVAL
    :EIO :EISCONN :EISDIR :ELOOP :EMFILE :EMLINK :EMSGSIZE :EMULTIHOP
    :ENAMETOOLONG :ENETDOWN :ENETRESET :ENETUNREACH :ENFILE :ENOBUFS :ENODATA
    :ENODEV :ENOENT :ENOEXEC :ENOLCK :ENOLINK :ENOMEM :ENOMSG :ENOPROTOOPT
    :ENOSPC :ENOSR :ENOSTR :ENOSYS :ENOTCONN :ENOTDIR :ENOTEMPTY :ENOTSOCK
    :ENOTSUP :ENOTTY :ENXIO :EOPNOTSUPP :EOVERFLOW :EPERM :EPIPE :EPROTO
    :EPROTONOSUPPORT :EPROTOTYPE :ERANGE :EROFS :ESPIPE :ESRCH :ESTALE :ETIME
    :ETIMEDOUT :ETXTBSY :EWOULDBLOCK :EXDEV :EADV :EBADE :EBADFD :EBADR
    :EBADRQC :EBADSLT :EBFONT :ECHRNG :ECOMM :EDEADLOCK :EDOTDOT :EHOSTDOWN
    :EISNAM :EL2HLT :EL2NSYNC :EL3HLT :EL3RST :ELIBACC :ELIBBAD :ELIBEXEC
    :ELIBMAX :ELIBSCN :ELNRNG :EMEDIUMTYPE :ENAVAIL :ENOANO :ENOCSI :ENOMEDIUM
    :ENONET :ENOPKG :ENOTBLK :ENOTNAM :ENOTUNIQ :EPFNOSUPPORT :EREMCHG :EREMOTE
    :EREMOTEIO :ERESTART :ESHUTDOWN :ESOCKTNOSUPPORT :ESRMNT :ESTRPIPE
    :ETOOMANYREFS :EUCLEAN :EUNATCH :EUSERS :EXFULL :ENOKEY :EKEYEXPIRED
    :EKEYREVOKED :EKEYREJECTED :ERFKILL :EHWPOISON :ENOTRECOVERABLE
    :EOWNERDEAD))
  (OR NULL INTEGER (MEMBER :COPY :SYMLINK :HARDLINK :HARDLINK-OR-COPY :RENAME))
  (MEMBER 0 1 2) UTMPX RLIMIT RESOLVE-HOST-IPADDR MAKE-UTMPX MAKE-USER-INFO
  MAKE-USAGE MAKE-UNAME MAKE-STAT-VFS MAKE-SERVICE MAKE-RLIMIT MAKE-HOSTENT
  MAKE-GROUP-INFO MAKE-FILE-STAT COPY-FILE :XUSR :XOTH :XOPEN-VERSION
  :XOPEN-UNIX :XOPEN-STREAMS :XOPEN-SHM :XOPEN-REALTIME-THREADS :XOPEN-REALTIME
  :XOPEN-LEGACY :XOPEN-ENH-I18N :XOPEN-CRYPT :XGRP :XBS5-LPBIG-OFFBIG-LINTFLAGS
  :XBS5-LPBIG-OFFBIG-LIBS :XBS5-LPBIG-OFFBIG-LDFLAGS :XBS5-LPBIG-OFFBIG-CFLAGS
  :XBS5-LPBIG-OFFBIG :XBS5-LP64-OFF64-LINTFLAGS :XBS5-LP64-OFF64-LIBS
  :XBS5-LP64-OFF64-LDFLAGS :XBS5-LP64-OFF64-CFLAGS :XBS5-LP64-OFF64
  :XBS5-ILP32-OFFBIG-LINTFLAGS :XBS5-ILP32-OFFBIG-LIBS
  :XBS5-ILP32-OFFBIG-LDFLAGS :XBS5-ILP32-OFFBIG-CFLAGS :XBS5-ILP32-OFFBIG
  :XBS5-ILP32-OFF32-LINTFLAGS :XBS5-ILP32-OFF32-LIBS :XBS5-ILP32-OFF32-LDFLAGS
  :XBS5-ILP32-OFF32-CFLAGS :XBS5-ILP32-OFF32 :WUSR :WRONLY :WOTH :WGRP :WARNING
  :VERSION :VDISABLE :V7-LPBIG-OFFBIG :V7-LP64-OFF64 :V7-ILP32-OFFBIG
  :V7-ILP32-OFF32 :V7-ENV :V6-LPBIG-OFFBIG :V6-LP64-OFF64 :V6-ILP32-OFFBIG
  :V6-ILP32-OFF32 :UUCP :USER-PROCESS :USER :USAGE :UNTRACED :UID :TZNAME-MAX
  :TYPED-MEMORY-OBJECTS :TTY-NAME-MAX :TRUNC :TRACE-USER-EVENT-MAX
  :TRACE-SYS-MAX :TRACE-NAME-MAX :TRACE-LOG :TRACE-INHERIT
  :TRACE-EVENT-NAME-MAX :TRACE-EVENT-FILTER :TRACE :TIMER-MAX :TIMERS :TIMEOUTS
  :THREAD-THREADS-MAX :THREAD-STACK-MIN :THREAD-SPORADIC-SERVER
  :THREAD-SAFE-FUNCTIONS :THREAD-ROBUST-PRIO-PROTECT
  :THREAD-ROBUST-PRIO-INHERIT :THREAD-PROCESS-SHARED :THREAD-PRIO-PROTECT
  :THREAD-PRIO-INHERIT :THREAD-PRIORITY-SCHEDULING :THREAD-KEYS-MAX
  :THREAD-DESTRUCTOR-ITERATIONS :THREAD-CPUTIME :THREAD-ATTR-STACKSIZE
  :THREAD-ATTR-STACKADDR :THREADS :THREAD :TEXT :SYSLOG :SYNC-IO
  :SYNCHRONIZED-IO :SYNC :SYMLOOP-MAX :SYMLINK-MAX :SYMLINK :SVTX :SUID
  :ST_WRITE :ST_SYNCHRONOUS :ST_RDONLY :ST_NOSUID :ST_NOEXEC :ST_NODIRATIME
  :ST_NODEV :ST_NOATIME :ST_MANDLOCK :ST_IMMUTABLE :ST_APPEND :STREAM-MAX
  :STOPPED :START :STACK :SS-REPL-MAX :SPORADIC-SERVER :SPIN-LOCKS :SPAWN
  :SOCK-MAXBUF :SLN :SL :SIGXFSZ :SIGXCPU :SIGVTALRM :SIGUSR2 :SIGUSR1 :SIGURG
  :SIGTTOU :SIGTTIN :SIGTSTP :SIGTRAP :SIGTERM :SIGSYS :SIGSTOP :SIGSEGV
  :SIGQUIT :SIGQUEUE-MAX :SIGPROF :SIGPOLL :SIGPIPE :SIGNALED :SIGKILL :SIGINT
  :SIGILL :SIGHUP :SIGFPE :SIGCONT :SIGCHLD :SIGBUS :SIGALRM :SIGABRT :SHELL
  :SHARED-MEMORY-OBJECTS :SHARED :SGID :SEM-VALUE-MAX :SEM-NSEMS-MAX
  :SEMAPHORES :SELF :SAVED-IDS :RWXU :RWXO :RWXG :RUSR :RUN-LVL :RTSIG-MAX :RSS
  :ROTH :RGRP :RE-DUP-MAX :RENAME :REGEXP :REC-XFER-ALIGN :REC-MIN-XFER-SIZE
  :REC-MAX-XFER-SIZE :REC-INCR-XFER-SIZE :REALTIME-SIGNALS :REALTIME
  :READER-WRITER-LOCKS :RDWR :RDONLY :RAW-SOCKETS :PROCESS :PRIO-IO
  :PRIORITY-SCHEDULING :PRIORITIZED-IO :PRESERVE
  :POSIX-V7-WIDTH-RESTRICTED-ENVS :POSIX-V7-LPBIG-OFFBIG-LIBS
  :POSIX-V7-LPBIG-OFFBIG-LDFLAGS :POSIX-V7-LPBIG-OFFBIG-CFLAGS
  :POSIX-V7-LP64-OFF64-LIBS :POSIX-V7-LP64-OFF64-LDFLAGS
  :POSIX-V7-LP64-OFF64-CFLAGS :POSIX-V7-ILP32-OFFBIG-LIBS
  :POSIX-V7-ILP32-OFFBIG-LDFLAGS :POSIX-V7-ILP32-OFFBIG-CFLAGS
  :POSIX-V7-ILP32-OFF32-LIBS :POSIX-V7-ILP32-OFF32-LDFLAGS
  :POSIX-V7-ILP32-OFF32-CFLAGS :POSIX-V6-WIDTH-RESTRICTED-ENVS
  :POSIX-V6-LPBIG-OFFBIG-LIBS :POSIX-V6-LPBIG-OFFBIG-LDFLAGS
  :POSIX-V6-LPBIG-OFFBIG-CFLAGS :POSIX-V6-LP64-OFF64-LIBS
  :POSIX-V6-LP64-OFF64-LDFLAGS :POSIX-V6-LP64-OFF64-CFLAGS
  :POSIX-V6-ILP32-OFFBIG-LIBS :POSIX-V6-ILP32-OFFBIG-LDFLAGS
  :POSIX-V6-ILP32-OFFBIG-CFLAGS :POSIX-V6-ILP32-OFF32-LIBS
  :POSIX-V6-ILP32-OFF32-LDFLAGS :POSIX-V6-ILP32-OFF32-CFLAGS :PIPE-BUF :PID
  :PHYS-PAGES :PHYS :PGRP :PERIOD :PATH-MAX :PATHNAME :PATH :PAGESIZE :OPEN-MAX
  :OLD-TIME :ODELAY :NS :NPROCESSORS-ONLN :NPROCESSORS-CONF :NPROC :NO-TRUNC
  :NOWAIT :NOTICE :NORMAL :NONBLOCK :NOHANG :NOFOLLOW :NOFILE :NOESCAPE :NOCTTY
  :NGROUPS-MAX :NEW-TIME :NEWS :NDELAY :NAME-MAX :MTIME :MQ-PRIO-MAX
  :MQ-OPEN-MAX :MOUNT :MONOTONIC-CLOCK :MODE :METHOD :MESSAGE-PASSING
  :MEMORY-PROTECTION :MEMLOCK-RANGE :MEMLOCK :MAX-INPUT :MAX-CANON
  :MAPPED-FILES :MAIL :LWP :LPR :LOW :LOGIN-PROCESS :LOGIN-NAME-MAX :LOCKS
  :LOCAL7 :LOCAL6 :LOCAL5 :LOCAL4 :LOCAL3 :LOCAL2 :LOCAL1 :LOCAL0 :LINK-MAX
  :LINE-MAX :LENGTH :LARGEFILE :KERN :JOB-CONTROL :IPV6 :IOV-MAX :INIT-PROCESS
  :INFO :IF-EXISTS :IF-DOES-NOT-EXIST :IDLE :HOST-NAME-MAX :HIGH
  :HARDLINK-OR-COPY :HARDLINK :GID :GETPW-R-SIZE-MAX :GETGR-R-SIZE-MAX :FTP
  :FSYNC :FSOCK :FSIZE :FREG :FL :FILESIZEBITS :FIFO :FD-LIMIT :FDIR :FD :FCHR
  :FBLK :FACILITY :F :EXTERNAL-FORMAT :EXPR-NEST-MAX :EXITED :EXFULL :EXDEV
  :EXCL :EWOULDBLOCK :EUSERS :EUNATCH :EUCLEAN :ETXTBSY :ETOOMANYREFS
  :ETIMEDOUT :ETIME :ESTRPIPE :ESTALE :ESRMNT :ESRCH :ESPIPE :ESOCKTNOSUPPORT
  :ESHUTDOWN :ERR :EROFS :ERFKILL :ERESTART :EREMOTEIO :EREMOTE :EREMCHG
  :ERANGE :EPROTOTYPE :EPROTONOSUPPORT :EPROTO :EPIPE :EPFNOSUPPORT :EPERM
  :EOWNERDEAD :EOVERFLOW :EOPNOTSUPP :ENXIO :ENOTUNIQ :ENOTTY :ENOTSUP
  :ENOTSOCK :ENOTRECOVERABLE :ENOTNAM :ENOTEMPTY :ENOTDIR :ENOTCONN :ENOTBLK
  :ENOSYS :ENOSTR :ENOSR :ENOSPC :ENOPROTOOPT :ENOPKG :ENONET :ENOMSG :ENOMEM
  :ENOMEDIUM :ENOLINK :ENOLCK :ENOKEY :ENOEXEC :ENOENT :ENODEV :ENODATA :ENOCSI
  :ENOBUFS :ENOANO :ENFILE :ENETUNREACH :ENETRESET :ENETDOWN :ENAVAIL
  :ENAMETOOLONG :EMULTIHOP :EMSGSIZE :EMPTY :EMLINK :EMFILE :EMERG :EMEDIUMTYPE
  :ELOOP :ELNRNG :ELIBSCN :ELIBMAX :ELIBEXEC :ELIBBAD :ELIBACC :ELEMENT-TYPE
  :EL3RST :EL3HLT :EL2NSYNC :EL2HLT :EKEYREVOKED :EKEYREJECTED :EKEYEXPIRED
  :EISNAM :EISDIR :EISCONN :EIO :EINVAL :EINTR :EINPROGRESS :EILSEQ :EIDRM
  :EHWPOISON :EHOSTUNREACH :EHOSTDOWN :EFBIG :EFAULT :EEXIST :EDQUOT :EDOTDOT
  :EDOM :EDESTADDRREQ :EDEADLOCK :EDEADLK :ECONNRESET :ECONNREFUSED
  :ECONNABORTED :ECOMM :ECHRNG :ECHILD :ECANCELED :EBUSY :EBFONT :EBADSLT
  :EBADRQC :EBADR :EBADMSG :EBADFD :EBADF :EBADE :EALREADY :EAGAIN
  :EAFNOSUPPORT :EADV :EADDRNOTAVAIL :EADDRINUSE :EACCES :E2BIG :DP :DNR
  :DIRECTORY :DIRECTION :DIRECT :DEPTH :DELAYTIMER-MAX :DEBUG :DEAD-PROCESS
  :DATA :DAEMON :D :CRON :CRIT :CREAT :CPUTIME :CPU :CORE :COPY :CONTINUED
  :CONS :COLL-WEIGHTS-MAX :CLOEXEC :CLOCK-SELECTION :CLK-TCK :CHOWN-RESTRICTED
  :CHILD-MAX :CHILDREN :CHDIR :CASE-SENSITIVE :BUFFERED :BOOT-TIME :BLOCK
  :BINARY :BELOW-NORMAL :BC-STRING-MAX :BC-SCALE-MAX :BC-DIM-MAX :BC-BASE-MAX
  :BARRIERS :AVPHYS-PAGES :AUTHPRIV :AUTH :ATIME :ATEXIT-MAX :ASYNC-IO
  :ASYNCHRONOUS-IO :AS :ARG-MAX :APPEND :ALLOC-SIZE-MIN :ALERT
  :AIO-PRIO-DELTA-MAX :AIO-MAX :AIO-LISTIO-MAX :ADVISORY-INFO :ACCOUNTING
  :ABOVE-NORMAL :2-VERSION :2-UPE :2-SYMLINKS :2-SW-DEV :2-PBS-TRACK
  :2-PBS-MESSAGE :2-PBS-LOCATE :2-PBS-CHECKPOINT :2-PBS-ACCOUNTING :2-PBS
  :2-LOCALEDEF :2-FORT-RUN :2-FORT-DEV :2-C-DEV :2-C-BIND :2-CHAR-TERM
  DECODE-UNIVERSAL-TIME))
EQL-OK: T
(HOSTENT-P (SHOW (RESOLVE-HOST-IPADDR "localhost")))
#<HOSTENT :NAME "localhost" :ALIASES ("localhost.localdomain" "localhost.localdomain" "localhost6" "localhost6.localdomain6") :ADDR-LIST ("127.0.0.1" "127.0.0.1") :ADDRTYPE 2>
EQL-OK: T
(LISTP (SHOW (RESOLVE-HOST-IPADDR) :PRETTY T))
(#<HOSTENT :NAME "localhost" :ALIASES ("localhost.localdomain")
   :ADDR-LIST ("127.0.0.1") :ADDRTYPE 2>
 #<HOSTENT :NAME "localhost"
   :ALIASES ("localhost.localdomain" "localhost6" "localhost6.localdomain6")
   :ADDR-LIST ("127.0.0.1") :ADDRTYPE 2>)
EQL-OK: T
(SERVICE-P (SHOW (SERVICE "smtp")))
#<SERVICE :NAME "smtp" :ALIASES ("mail") :PORT 25 :PROTO "tcp">
EQL-OK: T
(SERVICE-P (SHOW (SERVICE 25)))
#<SERVICE :NAME "smtp" :ALIASES ("mail") :PORT 25 :PROTO "tcp">
EQL-OK: T
(> (LENGTH (SHOW (SERVICE) :PRETTY T)) (LENGTH (SERVICE NIL "tcp")))
(#<SERVICE :NAME "tcpmux" :ALIASES NIL :PORT 1 :PROTO "tcp">
 #<SERVICE :NAME "tcpmux" :ALIASES NIL :PORT 1 :PROTO "udp">
 #<SERVICE :NAME "rje" :ALIASES NIL :PORT 5 :PROTO "tcp">
 #<SERVICE :NAME "rje" :ALIASES NIL :PORT 5 :PROTO "udp">
 #<SERVICE :NAME "echo" :ALIASES NIL :PORT 7 :PROTO "tcp">
 #<SERVICE :NAME "echo" :ALIASES NIL :PORT 7 :PROTO "udp">
 #<SERVICE :NAME "discard" :ALIASES ("sink" "null") :PORT 9 :PROTO "tcp">
 #<SERVICE :NAME "discard" :ALIASES ("sink" "null") :PORT 9 :PROTO "udp">
 #<SERVICE :NAME "systat" :ALIASES ("users") :PORT 11 :PROTO "tcp">
 #<SERVICE :NAME "systat" :ALIASES ("users") :PORT 11 :PROTO "udp">
 #<SERVICE :NAME "daytime" :ALIASES NIL :PORT 13 :PROTO "tcp">
 #<SERVICE :NAME "daytime" :ALIASES NIL :PORT 13 :PROTO "udp">
 #<SERVICE :NAME "qotd" :ALIASES ("quote") :PORT 17 :PROTO "tcp">
 #<SERVICE :NAME "qotd" :ALIASES ("quote") :PORT 17 :PROTO "udp">
 #<SERVICE :NAME "chargen" :ALIASES ("ttytst" "source") :PORT 19 :PROTO "tcp">
 #<SERVICE :NAME "chargen" :ALIASES ("ttytst" "source") :PORT 19 :PROTO "udp">
 #<SERVICE :NAME "ftp-data" :ALIASES NIL :PORT 20 :PROTO "tcp">
 #<SERVICE :NAME "ftp-data" :ALIASES NIL :PORT 20 :PROTO "udp">
 #<SERVICE :NAME "ftp" :ALIASES NIL :PORT 21 :PROTO "tcp">
 #<SERVICE :NAME "ftp" :ALIASES ("fsp" "fspd") :PORT 21 :PROTO "udp">
 #<SERVICE :NAME "ssh" :ALIASES NIL :PORT 22 :PROTO "tcp">
 #<SERVICE :NAME "ssh" :ALIASES NIL :PORT 22 :PROTO "udp">
 #<SERVICE :NAME "telnet" :ALIASES NIL :PORT 23 :PROTO "tcp">
 #<SERVICE :NAME "telnet" :ALIASES NIL :PORT 23 :PROTO "udp">
 #<SERVICE :NAME "lmtp" :ALIASES NIL :PORT 24 :PROTO "tcp">
 #<SERVICE :NAME "lmtp" :ALIASES NIL :PORT 24 :PROTO "udp">
 #<SERVICE :NAME "smtp" :ALIASES ("mail") :PORT 25 :PROTO "tcp">
 #<SERVICE :NAME "smtp" :ALIASES ("mail") :PORT 25 :PROTO "udp">
 #<SERVICE :NAME "time" :ALIASES ("timserver") :PORT 37 :PROTO "tcp">
 #<SERVICE :NAME "time" :ALIASES ("timserver") :PORT 37 :PROTO "udp">
 #<SERVICE :NAME "rlp" :ALIASES ("resource") :PORT 39 :PROTO "tcp">
 #<SERVICE :NAME "rlp" :ALIASES ("resource") :PORT 39 :PROTO "udp">
 #<SERVICE :NAME "nameserver" :ALIASES ("name") :PORT 42 :PROTO "tcp">
 #<SERVICE :NAME "nameserver" :ALIASES ("name") :PORT 42 :PROTO "udp">
 #<SERVICE :NAME "nicname" :ALIASES ("whois") :PORT 43 :PROTO "tcp">
 #<SERVICE :NAME "nicname" :ALIASES ("whois") :PORT 43 :PROTO "udp">
 #<SERVICE :NAME "tacacs" :ALIASES NIL :PORT 49 :PROTO "tcp">
 #<SERVICE :NAME "tacacs" :ALIASES NIL :PORT 49 :PROTO "udp">
 #<SERVICE :NAME "re-mail-ck" :ALIASES NIL :PORT 50 :PROTO "tcp">
 #<SERVICE :NAME "re-mail-ck" :ALIASES NIL :PORT 50 :PROTO "udp">
 #<SERVICE :NAME "domain" :ALIASES NIL :PORT 53 :PROTO "tcp">
 #<SERVICE :NAME "domain" :ALIASES NIL :PORT 53 :PROTO "udp">
 #<SERVICE :NAME "whois++" :ALIASES ("whoispp") :PORT 63 :PROTO "tcp">
 #<SERVICE :NAME "whois++" :ALIASES ("whoispp") :PORT 63 :PROTO "udp">
 #<SERVICE :NAME "bootps" :ALIASES NIL :PORT 67 :PROTO "tcp">
 #<SERVICE :NAME "bootps" :ALIASES NIL :PORT 67 :PROTO "udp">
 #<SERVICE :NAME "bootpc" :ALIASES ("dhcpc") :PORT 68 :PROTO "tcp">
 #<SERVICE :NAME "bootpc" :ALIASES ("dhcpc") :PORT 68 :PROTO "udp">
 #<SERVICE :NAME "tftp" :ALIASES NIL :PORT 69 :PROTO "tcp">
 #<SERVICE :NAME "tftp" :ALIASES NIL :PORT 69 :PROTO "udp">
 #<SERVICE :NAME "gopher" :ALIASES NIL :PORT 70 :PROTO "tcp">
 #<SERVICE :NAME "gopher" :ALIASES NIL :PORT 70 :PROTO "udp">
 #<SERVICE :NAME "netrjs-1" :ALIASES NIL :PORT 71 :PROTO "tcp">
 #<SERVICE :NAME "netrjs-1" :ALIASES NIL :PORT 71 :PROTO "udp">
 #<SERVICE :NAME "netrjs-2" :ALIASES NIL :PORT 72 :PROTO "tcp">
 #<SERVICE :NAME "netrjs-2" :ALIASES NIL :PORT 72 :PROTO "udp">
 #<SERVICE :NAME "netrjs-3" :ALIASES NIL :PORT 73 :PROTO "tcp">
 #<SERVICE :NAME "netrjs-3" :ALIASES NIL :PORT 73 :PROTO "udp">
 #<SERVICE :NAME "netrjs-4" :ALIASES NIL :PORT 74 :PROTO "tcp">
 #<SERVICE :NAME "netrjs-4" :ALIASES NIL :PORT 74 :PROTO "udp">
 #<SERVICE :NAME "finger" :ALIASES NIL :PORT 79 :PROTO "tcp">
 #<SERVICE :NAME "finger" :ALIASES NIL :PORT 79 :PROTO "udp">
 #<SERVICE :NAME "http" :ALIASES ("www" "www-http") :PORT 80 :PROTO "tcp">
 #<SERVICE :NAME "http" :ALIASES ("www" "www-http") :PORT 80 :PROTO "udp">
 #<SERVICE :NAME "http" :ALIASES NIL :PORT 80 :PROTO "sctp">
 #<SERVICE :NAME "kerberos" :ALIASES ("kerberos5" "krb5") :PORT 88
   :PROTO "tcp">
 #<SERVICE :NAME "kerberos" :ALIASES ("kerberos5" "krb5") :PORT 88
   :PROTO "udp">
 #<SERVICE :NAME "supdup" :ALIASES NIL :PORT 95 :PROTO "tcp">
 #<SERVICE :NAME "supdup" :ALIASES NIL :PORT 95 :PROTO "udp">
 #<SERVICE :NAME "hostname" :ALIASES ("hostnames") :PORT 101 :PROTO "tcp">
 #<SERVICE :NAME "hostname" :ALIASES ("hostnames") :PORT 101 :PROTO "udp">
 #<SERVICE :NAME "iso-tsap" :ALIASES ("tsap") :PORT 102 :PROTO "tcp">
 #<SERVICE :NAME "csnet-ns" :ALIASES ("cso") :PORT 105 :PROTO "tcp">
 #<SERVICE :NAME "csnet-ns" :ALIASES ("cso") :PORT 105 :PROTO "udp">
 #<SERVICE :NAME "rtelnet" :ALIASES NIL :PORT 107 :PROTO "tcp">
 #<SERVICE :NAME "rtelnet" :ALIASES NIL :PORT 107 :PROTO "udp">
 #<SERVICE :NAME "pop2" :ALIASES ("pop-2" "postoffice") :PORT 109 :PROTO "tcp">
 #<SERVICE :NAME "pop2" :ALIASES ("pop-2") :PORT 109 :PROTO "udp">
 #<SERVICE :NAME "pop3" :ALIASES ("pop-3") :PORT 110 :PROTO "tcp">
 #<SERVICE :NAME "pop3" :ALIASES ("pop-3") :PORT 110 :PROTO "udp">
 #<SERVICE :NAME "sunrpc" :ALIASES ("portmapper" "rpcbind") :PORT 111
   :PROTO "tcp">
 #<SERVICE :NAME "sunrpc" :ALIASES ("portmapper" "rpcbind") :PORT 111
   :PROTO "udp">
 #<SERVICE :NAME "auth" :ALIASES ("authentication" "tap" "ident") :PORT 113
   :PROTO "tcp">
 #<SERVICE :NAME "auth" :ALIASES ("authentication" "tap" "ident") :PORT 113
   :PROTO "udp">
 #<SERVICE :NAME "sftp" :ALIASES NIL :PORT 115 :PROTO "tcp">
 #<SERVICE :NAME "sftp" :ALIASES NIL :PORT 115 :PROTO "udp">
 #<SERVICE :NAME "uucp-path" :ALIASES NIL :PORT 117 :PROTO "tcp">
 #<SERVICE :NAME "uucp-path" :ALIASES NIL :PORT 117 :PROTO "udp">
 #<SERVICE :NAME "nntp" :ALIASES ("readnews" "untp") :PORT 119 :PROTO "tcp">
 #<SERVICE :NAME "nntp" :ALIASES ("readnews" "untp") :PORT 119 :PROTO "udp">
 #<SERVICE :NAME "ntp" :ALIASES NIL :PORT 123 :PROTO "tcp">
 #<SERVICE :NAME "ntp" :ALIASES NIL :PORT 123 :PROTO "udp">
 #<SERVICE :NAME "netbios-ns" :ALIASES NIL :PORT 137 :PROTO "tcp">
 #<SERVICE :NAME "netbios-ns" :ALIASES NIL :PORT 137 :PROTO "udp">
 #<SERVICE :NAME "netbios-dgm" :ALIASES NIL :PORT 138 :PROTO "tcp">
 #<SERVICE :NAME "netbios-dgm" :ALIASES NIL :PORT 138 :PROTO "udp">
 #<SERVICE :NAME "netbios-ssn" :ALIASES NIL :PORT 139 :PROTO "tcp">
 #<SERVICE :NAME "netbios-ssn" :ALIASES NIL :PORT 139 :PROTO "udp">
 #<SERVICE :NAME "imap" :ALIASES ("imap2") :PORT 143 :PROTO "tcp">
 #<SERVICE :NAME "imap" :ALIASES ("imap2") :PORT 143 :PROTO "udp">
 #<SERVICE :NAME "snmp" :ALIASES NIL :PORT 161 :PROTO "tcp">
 #<SERVICE :NAME "snmp" :ALIASES NIL :PORT 161 :PROTO "udp">
 #<SERVICE :NAME "snmptrap" :ALIASES NIL :PORT 162 :PROTO "tcp">
 #<SERVICE :NAME "snmptrap" :ALIASES ("snmp-trap") :PORT 162 :PROTO "udp">
 #<SERVICE :NAME "cmip-man" :ALIASES NIL :PORT 163 :PROTO "tcp">
 #<SERVICE :NAME "cmip-man" :ALIASES NIL :PORT 163 :PROTO "udp">
 #<SERVICE :NAME "cmip-agent" :ALIASES NIL :PORT 164 :PROTO "tcp">
 #<SERVICE :NAME "cmip-agent" :ALIASES NIL :PORT 164 :PROTO "udp">
 #<SERVICE :NAME "mailq" :ALIASES NIL :PORT 174 :PROTO "tcp">
 #<SERVICE :NAME "mailq" :ALIASES NIL :PORT 174 :PROTO "udp">
 #<SERVICE :NAME "xdmcp" :ALIASES NIL :PORT 177 :PROTO "tcp">
 #<SERVICE :NAME "xdmcp" :ALIASES NIL :PORT 177 :PROTO "udp">
 #<SERVICE :NAME "nextstep" :ALIASES ("NeXTStep" "NextStep") :PORT 178
   :PROTO "tcp">
 #<SERVICE :NAME "nextstep" :ALIASES ("NeXTStep" "NextStep") :PORT 178
   :PROTO "udp">
 #<SERVICE :NAME "bgp" :ALIASES NIL :PORT 179 :PROTO "tcp">
 #<SERVICE :NAME "bgp" :ALIASES NIL :PORT 179 :PROTO "udp">
 #<SERVICE :NAME "bgp" :ALIASES NIL :PORT 179 :PROTO "sctp">
 #<SERVICE :NAME "prospero" :ALIASES NIL :PORT 191 :PROTO "tcp">
 #<SERVICE :NAME "prospero" :ALIASES NIL :PORT 191 :PROTO "udp">
 #<SERVICE :NAME "irc" :ALIASES NIL :PORT 194 :PROTO "tcp">
 #<SERVICE :NAME "irc" :ALIASES NIL :PORT 194 :PROTO "udp">
 #<SERVICE :NAME "smux" :ALIASES NIL :PORT 199 :PROTO "tcp">
 #<SERVICE :NAME "smux" :ALIASES NIL :PORT 199 :PROTO "udp">
 #<SERVICE :NAME "at-rtmp" :ALIASES NIL :PORT 201 :PROTO "tcp">
 #<SERVICE :NAME "at-rtmp" :ALIASES NIL :PORT 201 :PROTO "udp">
 #<SERVICE :NAME "at-nbp" :ALIASES NIL :PORT 202 :PROTO "tcp">
 #<SERVICE :NAME "at-nbp" :ALIASES NIL :PORT 202 :PROTO "udp">
 #<SERVICE :NAME "at-echo" :ALIASES NIL :PORT 204 :PROTO "tcp">
 #<SERVICE :NAME "at-echo" :ALIASES NIL :PORT 204 :PROTO "udp">
 #<SERVICE :NAME "at-zis" :ALIASES NIL :PORT 206 :PROTO "tcp">
 #<SERVICE :NAME "at-zis" :ALIASES NIL :PORT 206 :PROTO "udp">
 #<SERVICE :NAME "qmtp" :ALIASES NIL :PORT 209 :PROTO "tcp">
 #<SERVICE :NAME "qmtp" :ALIASES NIL :PORT 209 :PROTO "udp">
 #<SERVICE :NAME "z39.50" :ALIASES ("z3950" "z39-50" "wais") :PORT 210
   :PROTO "tcp">
 #<SERVICE :NAME "z39.50" :ALIASES ("z3950" "z39-50" "wais") :PORT 210
   :PROTO "udp">
 #<SERVICE :NAME "ipx" :ALIASES NIL :PORT 213 :PROTO "tcp">
 #<SERVICE :NAME "ipx" :ALIASES NIL :PORT 213 :PROTO "udp">
 #<SERVICE :NAME "imap3" :ALIASES NIL :PORT 220 :PROTO "tcp">
 #<SERVICE :NAME "imap3" :ALIASES NIL :PORT 220 :PROTO "udp">
 #<SERVICE :NAME "link" :ALIASES ("ttylink") :PORT 245 :PROTO "tcp">
 #<SERVICE :NAME "link" :ALIASES ("ttylink") :PORT 245 :PROTO "udp">
 #<SERVICE :NAME "gist" :ALIASES NIL :PORT 270 :PROTO "udp">
 #<SERVICE :NAME "fatserv" :ALIASES NIL :PORT 347 :PROTO "tcp">
 #<SERVICE :NAME "fatserv" :ALIASES NIL :PORT 347 :PROTO "udp">
 #<SERVICE :NAME "rsvp_tunnel" :ALIASES ("rsvp-tunnel") :PORT 363 :PROTO "tcp">
 #<SERVICE :NAME "rsvp_tunnel" :ALIASES ("rsvp-tunnel") :PORT 363 :PROTO "udp">
 #<SERVICE :NAME "odmr" :ALIASES NIL :PORT 366 :PROTO "tcp">
 #<SERVICE :NAME "odmr" :ALIASES NIL :PORT 366 :PROTO "udp">
 #<SERVICE :NAME "rpc2portmap" :ALIASES NIL :PORT 369 :PROTO "tcp">
 #<SERVICE :NAME "rpc2portmap" :ALIASES NIL :PORT 369 :PROTO "udp">
 #<SERVICE :NAME "codaauth2" :ALIASES NIL :PORT 370 :PROTO "tcp">
 #<SERVICE :NAME "codaauth2" :ALIASES NIL :PORT 370 :PROTO "udp">
 #<SERVICE :NAME "ulistproc" :ALIASES ("ulistserv") :PORT 372 :PROTO "tcp">
 #<SERVICE :NAME "ulistproc" :ALIASES ("ulistserv") :PORT 372 :PROTO "udp">
 #<SERVICE :NAME "ldap" :ALIASES NIL :PORT 389 :PROTO "tcp">
 #<SERVICE :NAME "ldap" :ALIASES NIL :PORT 389 :PROTO "udp">
 #<SERVICE :NAME "osb-sd" :ALIASES NIL :PORT 400 :PROTO "tcp">
 #<SERVICE :NAME "osb-sd" :ALIASES NIL :PORT 400 :PROTO "udp">
 #<SERVICE :NAME "svrloc" :ALIASES NIL :PORT 427 :PROTO "tcp">
 #<SERVICE :NAME "svrloc" :ALIASES NIL :PORT 427 :PROTO "udp">
 #<SERVICE :NAME "mobileip-agent" :ALIASES NIL :PORT 434 :PROTO "tcp">
 #<SERVICE :NAME "mobileip-agent" :ALIASES NIL :PORT 434 :PROTO "udp">
 #<SERVICE :NAME "mobilip-mn" :ALIASES NIL :PORT 435 :PROTO "tcp">
 #<SERVICE :NAME "mobilip-mn" :ALIASES NIL :PORT 435 :PROTO "udp">
 #<SERVICE :NAME "https" :ALIASES NIL :PORT 443 :PROTO "tcp">
 #<SERVICE :NAME "https" :ALIASES NIL :PORT 443 :PROTO "udp">
 #<SERVICE :NAME "https" :ALIASES NIL :PORT 443 :PROTO "sctp">
 #<SERVICE :NAME "snpp" :ALIASES NIL :PORT 444 :PROTO "tcp">
 #<SERVICE :NAME "snpp" :ALIASES NIL :PORT 444 :PROTO "udp">
 #<SERVICE :NAME "microsoft-ds" :ALIASES NIL :PORT 445 :PROTO "tcp">
 #<SERVICE :NAME "microsoft-ds" :ALIASES NIL :PORT 445 :PROTO "udp">
 #<SERVICE :NAME "kpasswd" :ALIASES ("kpwd") :PORT 464 :PROTO "tcp">
 #<SERVICE :NAME "kpasswd" :ALIASES ("kpwd") :PORT 464 :PROTO "udp">
 #<SERVICE :NAME "photuris" :ALIASES NIL :PORT 468 :PROTO "tcp">
 #<SERVICE :NAME "photuris" :ALIASES NIL :PORT 468 :PROTO "udp">
 #<SERVICE :NAME "saft" :ALIASES NIL :PORT 487 :PROTO "tcp">
 #<SERVICE :NAME "saft" :ALIASES NIL :PORT 487 :PROTO "udp">
 #<SERVICE :NAME "gss-http" :ALIASES NIL :PORT 488 :PROTO "tcp">
 #<SERVICE :NAME "gss-http" :ALIASES NIL :PORT 488 :PROTO "udp">
 #<SERVICE :NAME "pim-rp-disc" :ALIASES NIL :PORT 496 :PROTO "tcp">
 #<SERVICE :NAME "pim-rp-disc" :ALIASES NIL :PORT 496 :PROTO "udp">
 #<SERVICE :NAME "isakmp" :ALIASES NIL :PORT 500 :PROTO "tcp">
 #<SERVICE :NAME "isakmp" :ALIASES NIL :PORT 500 :PROTO "udp">
 #<SERVICE :NAME "gdomap" :ALIASES NIL :PORT 538 :PROTO "tcp">
 #<SERVICE :NAME "gdomap" :ALIASES NIL :PORT 538 :PROTO "udp">
 #<SERVICE :NAME "iiop" :ALIASES NIL :PORT 535 :PROTO "tcp">
 #<SERVICE :NAME "iiop" :ALIASES NIL :PORT 535 :PROTO "udp">
 #<SERVICE :NAME "dhcpv6-client" :ALIASES NIL :PORT 546 :PROTO "tcp">
 #<SERVICE :NAME "dhcpv6-client" :ALIASES NIL :PORT 546 :PROTO "udp">
 #<SERVICE :NAME "dhcpv6-server" :ALIASES NIL :PORT 547 :PROTO "tcp">
 #<SERVICE :NAME "dhcpv6-server" :ALIASES NIL :PORT 547 :PROTO "udp">
 #<SERVICE :NAME "rtsp" :ALIASES NIL :PORT 554 :PROTO "tcp">
 #<SERVICE :NAME "rtsp" :ALIASES NIL :PORT 554 :PROTO "udp">
 #<SERVICE :NAME "nntps" :ALIASES NIL :PORT 563 :PROTO "tcp">
 #<SERVICE :NAME "nntps" :ALIASES NIL :PORT 563 :PROTO "udp">
 #<SERVICE :NAME "whoami" :ALIASES NIL :PORT 565 :PROTO "tcp">
 #<SERVICE :NAME "whoami" :ALIASES NIL :PORT 565 :PROTO "udp">
 #<SERVICE :NAME "submission" :ALIASES ("msa") :PORT 587 :PROTO "tcp">
 #<SERVICE :NAME "submission" :ALIASES ("msa") :PORT 587 :PROTO "udp">
 #<SERVICE :NAME "npmp-local" :ALIASES ("dqs313_qmaster") :PORT 610
   :PROTO "tcp">
 #<SERVICE :NAME "npmp-local" :ALIASES ("dqs313_qmaster") :PORT 610
   :PROTO "udp">
 #<SERVICE :NAME "npmp-gui" :ALIASES ("dqs313_execd") :PORT 611 :PROTO "tcp">
 #<SERVICE :NAME "npmp-gui" :ALIASES ("dqs313_execd") :PORT 611 :PROTO "udp">
 #<SERVICE :NAME "hmmp-ind" :ALIASES ("dqs313_intercell") :PORT 612
   :PROTO "tcp">
 #<SERVICE :NAME "hmmp-ind" :ALIASES ("dqs313_intercell") :PORT 612
   :PROTO "udp">
 #<SERVICE :NAME "ipp" :ALIASES NIL :PORT 631 :PROTO "tcp">
 #<SERVICE :NAME "ipp" :ALIASES NIL :PORT 631 :PROTO "udp">
 #<SERVICE :NAME "ldaps" :ALIASES NIL :PORT 636 :PROTO "tcp">
 #<SERVICE :NAME "ldaps" :ALIASES NIL :PORT 636 :PROTO "udp">
 #<SERVICE :NAME "acap" :ALIASES NIL :PORT 674 :PROTO "tcp">
 #<SERVICE :NAME "acap" :ALIASES NIL :PORT 674 :PROTO "udp">
 #<SERVICE :NAME "ha-cluster" :ALIASES NIL :PORT 694 :PROTO "tcp">
 #<SERVICE :NAME "ha-cluster" :ALIASES NIL :PORT 694 :PROTO "udp">
 #<SERVICE :NAME "kerberos-adm" :ALIASES NIL :PORT 749 :PROTO "tcp">
 #<SERVICE :NAME "kerberos-adm" :ALIASES NIL :PORT 749 :PROTO "udp">
 #<SERVICE :NAME "kerberos-iv"
   :ALIASES ("kerberos4" "kerberos-sec" "kdc" "loadav") :PORT 750 :PROTO "udp">
 #<SERVICE :NAME "kerberos-iv"
   :ALIASES ("kerberos4" "kerberos-sec" "kdc" "rfile") :PORT 750 :PROTO "tcp">
 #<SERVICE :NAME "webster" :ALIASES NIL :PORT 765 :PROTO "tcp">
 #<SERVICE :NAME "webster" :ALIASES NIL :PORT 765 :PROTO "udp">
 #<SERVICE :NAME "phonebook" :ALIASES NIL :PORT 767 :PROTO "tcp">
 #<SERVICE :NAME "phonebook" :ALIASES NIL :PORT 767 :PROTO "udp">
 #<SERVICE :NAME "rsync" :ALIASES NIL :PORT 873 :PROTO "tcp">
 #<SERVICE :NAME "rsync" :ALIASES NIL :PORT 873 :PROTO "udp">
 #<SERVICE :NAME "rquotad" :ALIASES NIL :PORT 875 :PROTO "tcp">
 #<SERVICE :NAME "rquotad" :ALIASES NIL :PORT 875 :PROTO "udp">
 #<SERVICE :NAME "telnets" :ALIASES NIL :PORT 992 :PROTO "tcp">
 #<SERVICE :NAME "telnets" :ALIASES NIL :PORT 992 :PROTO "udp">
 #<SERVICE :NAME "imaps" :ALIASES NIL :PORT 993 :PROTO "tcp">
 #<SERVICE :NAME "imaps" :ALIASES NIL :PORT 993 :PROTO "udp">
 #<SERVICE :NAME "pop3s" :ALIASES NIL :PORT 995 :PROTO "tcp">
 #<SERVICE :NAME "pop3s" :ALIASES NIL :PORT 995 :PROTO "udp">
 #<SERVICE :NAME "exec" :ALIASES NIL :PORT 512 :PROTO "tcp">
 #<SERVICE :NAME "biff" :ALIASES ("comsat") :PORT 512 :PROTO "udp">
 #<SERVICE :NAME "login" :ALIASES NIL :PORT 513 :PROTO "tcp">
 #<SERVICE :NAME "who" :ALIASES ("whod") :PORT 513 :PROTO "udp">
 #<SERVICE :NAME "shell" :ALIASES ("cmd") :PORT 514 :PROTO "tcp">
 #<SERVICE :NAME "syslog" :ALIASES NIL :PORT 514 :PROTO "udp">
 #<SERVICE :NAME "printer" :ALIASES ("spooler") :PORT 515 :PROTO "tcp">
 #<SERVICE :NAME "printer" :ALIASES ("spooler") :PORT 515 :PROTO "udp">
 #<SERVICE :NAME "talk" :ALIASES NIL :PORT 517 :PROTO "udp">
 #<SERVICE :NAME "ntalk" :ALIASES NIL :PORT 518 :PROTO "udp">
 #<SERVICE :NAME "utime" :ALIASES ("unixtime") :PORT 519 :PROTO "tcp">
 #<SERVICE :NAME "utime" :ALIASES ("unixtime") :PORT 519 :PROTO "udp">
 #<SERVICE :NAME "efs" :ALIASES NIL :PORT 520 :PROTO "tcp">
 #<SERVICE :NAME "router" :ALIASES ("route" "routed") :PORT 520 :PROTO "udp">
 #<SERVICE :NAME "ripng" :ALIASES NIL :PORT 521 :PROTO "tcp">
 #<SERVICE :NAME "ripng" :ALIASES NIL :PORT 521 :PROTO "udp">
 #<SERVICE :NAME "timed" :ALIASES ("timeserver") :PORT 525 :PROTO "tcp">
 #<SERVICE :NAME "timed" :ALIASES ("timeserver") :PORT 525 :PROTO "udp">
 #<SERVICE :NAME "tempo" :ALIASES ("newdate") :PORT 526 :PROTO "tcp">
 #<SERVICE :NAME "courier" :ALIASES ("rpc") :PORT 530 :PROTO "tcp">
 #<SERVICE :NAME "conference" :ALIASES ("chat") :PORT 531 :PROTO "tcp">
 #<SERVICE :NAME "netnews" :ALIASES NIL :PORT 532 :PROTO "tcp">
 #<SERVICE :NAME "netwall" :ALIASES NIL :PORT 533 :PROTO "udp">
 #<SERVICE :NAME "uucp" :ALIASES ("uucpd") :PORT 540 :PROTO "tcp">
 #<SERVICE :NAME "klogin" :ALIASES NIL :PORT 543 :PROTO "tcp">
 #<SERVICE :NAME "kshell" :ALIASES ("krcmd") :PORT 544 :PROTO "tcp">
 #<SERVICE :NAME "afpovertcp" :ALIASES NIL :PORT 548 :PROTO "tcp">
 #<SERVICE :NAME "afpovertcp" :ALIASES NIL :PORT 548 :PROTO "udp">
 #<SERVICE :NAME "remotefs" :ALIASES ("rfs_server" "rfs") :PORT 556
   :PROTO "tcp">
 #<SERVICE :NAME "socks" :ALIASES NIL :PORT 1080 :PROTO "tcp">
 #<SERVICE :NAME "socks" :ALIASES NIL :PORT 1080 :PROTO "udp">
 #<SERVICE :NAME "bvcontrol" :ALIASES ("rmtcfg") :PORT 1236 :PROTO "tcp">
 #<SERVICE :NAME "bvcontrol" :ALIASES NIL :PORT 1236 :PROTO "udp">
 #<SERVICE :NAME "h323hostcallsc" :ALIASES NIL :PORT 1300 :PROTO "tcp">
 #<SERVICE :NAME "h323hostcallsc" :ALIASES NIL :PORT 1300 :PROTO "udp">
 #<SERVICE :NAME "ms-sql-s" :ALIASES NIL :PORT 1433 :PROTO "tcp">
 #<SERVICE :NAME "ms-sql-s" :ALIASES NIL :PORT 1433 :PROTO "udp">
 #<SERVICE :NAME "ms-sql-m" :ALIASES NIL :PORT 1434 :PROTO "tcp">
 #<SERVICE :NAME "ms-sql-m" :ALIASES NIL :PORT 1434 :PROTO "udp">
 #<SERVICE :NAME "ica" :ALIASES NIL :PORT 1494 :PROTO "tcp">
 #<SERVICE :NAME "ica" :ALIASES NIL :PORT 1494 :PROTO "udp">
 #<SERVICE :NAME "wins" :ALIASES NIL :PORT 1512 :PROTO "tcp">
 #<SERVICE :NAME "wins" :ALIASES NIL :PORT 1512 :PROTO "udp">
 #<SERVICE :NAME "ingreslock" :ALIASES NIL :PORT 1524 :PROTO "tcp">
 #<SERVICE :NAME "ingreslock" :ALIASES NIL :PORT 1524 :PROTO "udp">
 #<SERVICE :NAME "prospero-np" :ALIASES ("orasrv") :PORT 1525 :PROTO "tcp">
 #<SERVICE :NAME "prospero-np" :ALIASES ("orasrv") :PORT 1525 :PROTO "udp">
 #<SERVICE :NAME "datametrics" :ALIASES ("old-radius" "sightline") :PORT 1645
   :PROTO "tcp">
 #<SERVICE :NAME "datametrics" :ALIASES ("old-radius" "sightline") :PORT 1645
   :PROTO "udp">
 #<SERVICE :NAME "sa-msg-port" :ALIASES ("old-radacct") :PORT 1646
   :PROTO "tcp">
 #<SERVICE :NAME "sa-msg-port" :ALIASES ("old-radacct") :PORT 1646
   :PROTO "udp">
 #<SERVICE :NAME "kermit" :ALIASES NIL :PORT 1649 :PROTO "tcp">
 #<SERVICE :NAME "kermit" :ALIASES NIL :PORT 1649 :PROTO "udp">
 #<SERVICE :NAME "l2tp" :ALIASES ("l2f") :PORT 1701 :PROTO "tcp">
 #<SERVICE :NAME "l2tp" :ALIASES ("l2f") :PORT 1701 :PROTO "udp">
 #<SERVICE :NAME "h323gatedisc" :ALIASES NIL :PORT 1718 :PROTO "tcp">
 #<SERVICE :NAME "h323gatedisc" :ALIASES NIL :PORT 1718 :PROTO "udp">
 #<SERVICE :NAME "h323gatestat" :ALIASES NIL :PORT 1719 :PROTO "tcp">
 #<SERVICE :NAME "h323gatestat" :ALIASES NIL :PORT 1719 :PROTO "udp">
 #<SERVICE :NAME "h323hostcall" :ALIASES NIL :PORT 1720 :PROTO "tcp">
 #<SERVICE :NAME "h323hostcall" :ALIASES NIL :PORT 1720 :PROTO "udp">
 #<SERVICE :NAME "h323hostcall" :ALIASES NIL :PORT 1720 :PROTO "sctp">
 #<SERVICE :NAME "tftp-mcast" :ALIASES NIL :PORT 1758 :PROTO "tcp">
 #<SERVICE :NAME "tftp-mcast" :ALIASES NIL :PORT 1758 :PROTO "udp">
 #<SERVICE :NAME "mtftp" :ALIASES ("spss-lm") :PORT 1759 :PROTO "udp">
 #<SERVICE :NAME "vdab" :ALIASES NIL :PORT 1775 :PROTO "tcp">
 #<SERVICE :NAME "hello" :ALIASES NIL :PORT 1789 :PROTO "tcp">
 #<SERVICE :NAME "hello" :ALIASES NIL :PORT 1789 :PROTO "udp">
 #<SERVICE :NAME "radius" :ALIASES NIL :PORT 1812 :PROTO "tcp">
 #<SERVICE :NAME "radius" :ALIASES NIL :PORT 1812 :PROTO "udp">
 #<SERVICE :NAME "radius-acct" :ALIASES ("radacct") :PORT 1813 :PROTO "tcp">
 #<SERVICE :NAME "radius-acct" :ALIASES ("radacct") :PORT 1813 :PROTO "udp">
 #<SERVICE :NAME "mtp" :ALIASES NIL :PORT 1911 :PROTO "tcp">
 #<SERVICE :NAME "mtp" :ALIASES NIL :PORT 1911 :PROTO "udp">
 #<SERVICE :NAME "hsrp" :ALIASES NIL :PORT 1985 :PROTO "tcp">
 #<SERVICE :NAME "hsrp" :ALIASES NIL :PORT 1985 :PROTO "udp">
 #<SERVICE :NAME "licensedaemon" :ALIASES NIL :PORT 1986 :PROTO "tcp">
 #<SERVICE :NAME "licensedaemon" :ALIASES NIL :PORT 1986 :PROTO "udp">
 #<SERVICE :NAME "gdp-port" :ALIASES NIL :PORT 1997 :PROTO "tcp">
 #<SERVICE :NAME "gdp-port" :ALIASES NIL :PORT 1997 :PROTO "udp">
 #<SERVICE :NAME "sieve-filter" :ALIASES ("cisco-sccp") :PORT 2000
   :PROTO "tcp">
 #<SERVICE :NAME "sieve-filter" :ALIASES ("cisco-sccp") :PORT 2000
   :PROTO "udp">
 #<SERVICE :NAME "nfs" :ALIASES ("nfsd" "shilp") :PORT 2049 :PROTO "tcp">
 #<SERVICE :NAME "nfs" :ALIASES ("nfsd" "shilp") :PORT 2049 :PROTO "udp">
 #<SERVICE :NAME "nfs" :ALIASES ("nfsd" "shilp") :PORT 2049 :PROTO "sctp">
 #<SERVICE :NAME "zephyr-srv" :ALIASES NIL :PORT 2102 :PROTO "tcp">
 #<SERVICE :NAME "zephyr-srv" :ALIASES NIL :PORT 2102 :PROTO "udp">
 #<SERVICE :NAME "zephyr-clt" :ALIASES NIL :PORT 2103 :PROTO "tcp">
 #<SERVICE :NAME "zephyr-clt" :ALIASES NIL :PORT 2103 :PROTO "udp">
 #<SERVICE :NAME "zephyr-hm" :ALIASES NIL :PORT 2104 :PROTO "tcp">
 #<SERVICE :NAME "zephyr-hm" :ALIASES NIL :PORT 2104 :PROTO "udp">
 #<SERVICE :NAME "dali" :ALIASES NIL :PORT 2378 :PROTO "udp">
 #<SERVICE :NAME "cvspserver" :ALIASES NIL :PORT 2401 :PROTO "tcp">
 #<SERVICE :NAME "cvspserver" :ALIASES NIL :PORT 2401 :PROTO "udp">
 #<SERVICE :NAME "venus" :ALIASES NIL :PORT 2430 :PROTO "tcp">
 #<SERVICE :NAME "venus" :ALIASES NIL :PORT 2430 :PROTO "udp">
 #<SERVICE :NAME "venus-se" :ALIASES NIL :PORT 2431 :PROTO "tcp">
 #<SERVICE :NAME "venus-se" :ALIASES NIL :PORT 2431 :PROTO "udp">
 #<SERVICE :NAME "codasrv" :ALIASES NIL :PORT 2432 :PROTO "tcp">
 #<SERVICE :NAME "codasrv" :ALIASES NIL :PORT 2432 :PROTO "udp">
 #<SERVICE :NAME "codasrv-se" :ALIASES NIL :PORT 2433 :PROTO "tcp">
 #<SERVICE :NAME "codasrv-se" :ALIASES NIL :PORT 2433 :PROTO "udp">
 #<SERVICE :NAME "hpstgmgr" :ALIASES ("zebrasrv") :PORT 2600 :PROTO "tcp">
 #<SERVICE :NAME "hpstgmgr" :ALIASES NIL :PORT 2600 :PROTO "udp">
 #<SERVICE :NAME "discp-client" :ALIASES ("zebra") :PORT 2601 :PROTO "tcp">
 #<SERVICE :NAME "discp-client" :ALIASES NIL :PORT 2601 :PROTO "udp">
 #<SERVICE :NAME "discp-server" :ALIASES ("ripd") :PORT 2602 :PROTO "tcp">
 #<SERVICE :NAME "discp-server" :ALIASES NIL :PORT 2602 :PROTO "udp">
 #<SERVICE :NAME "servicemeter" :ALIASES ("ripngd") :PORT 2603 :PROTO "tcp">
 #<SERVICE :NAME "servicemeter" :ALIASES NIL :PORT 2603 :PROTO "udp">
 #<SERVICE :NAME "nsc-ccs" :ALIASES ("ospfd") :PORT 2604 :PROTO "tcp">
 #<SERVICE :NAME "nsc-ccs" :ALIASES NIL :PORT 2604 :PROTO "udp">
 #<SERVICE :NAME "nsc-posa" :ALIASES ("bgpd") :PORT 2605 :PROTO "tcp">
 #<SERVICE :NAME "nsc-posa" :ALIASES NIL :PORT 2605 :PROTO "udp">
 #<SERVICE :NAME "netmon" :ALIASES ("ospf6d") :PORT 2606 :PROTO "tcp">
 #<SERVICE :NAME "netmon" :ALIASES NIL :PORT 2606 :PROTO "udp">
 #<SERVICE :NAME "dict" :ALIASES NIL :PORT 2628 :PROTO "tcp">
 #<SERVICE :NAME "dict" :ALIASES NIL :PORT 2628 :PROTO "udp">
 #<SERVICE :NAME "corbaloc" :ALIASES NIL :PORT 2809 :PROTO "tcp">
 #<SERVICE :NAME "icpv2" :ALIASES NIL :PORT 3130 :PROTO "tcp">
 #<SERVICE :NAME "icpv2" :ALIASES NIL :PORT 3130 :PROTO "udp">
 #<SERVICE :NAME "mysql" :ALIASES NIL :PORT 3306 :PROTO "tcp">
 #<SERVICE :NAME "mysql" :ALIASES NIL :PORT 3306 :PROTO "udp">
 #<SERVICE :NAME "trnsprntproxy" :ALIASES NIL :PORT 3346 :PROTO "tcp">
 #<SERVICE :NAME "trnsprntproxy" :ALIASES NIL :PORT 3346 :PROTO "udp">
 #<SERVICE :NAME "pxe" :ALIASES ("altserviceboot") :PORT 4011 :PROTO "udp">
 #<SERVICE :NAME "minirem" :ALIASES NIL :PORT 4120 :PROTO "tcp">
 #<SERVICE :NAME "aws-wsp" :ALIASES NIL :PORT 4195 :PROTO "tcp">
 #<SERVICE :NAME "aws-wsp" :ALIASES NIL :PORT 4195 :PROTO "udp">
 #<SERVICE :NAME "aws-wsp" :ALIASES NIL :PORT 4195 :PROTO "sctp">
 #<SERVICE :NAME "aws-wsp" :ALIASES NIL :PORT 4195 :PROTO "dccp">
 #<SERVICE :NAME "fud" :ALIASES NIL :PORT 4201 :PROTO "udp">
 #<SERVICE :NAME "opentelemetry" :ALIASES NIL :PORT 4317 :PROTO "tcp">
 #<SERVICE :NAME "rwhois" :ALIASES NIL :PORT 4321 :PROTO "tcp">
 #<SERVICE :NAME "rwhois" :ALIASES NIL :PORT 4321 :PROTO "udp">
 #<SERVICE :NAME "getty-focus" :ALIASES NIL :PORT 4332 :PROTO "tcp">
 #<SERVICE :NAME "krb524" :ALIASES ("nv-video") :PORT 4444 :PROTO "tcp">
 #<SERVICE :NAME "krb524" :ALIASES ("nv-video") :PORT 4444 :PROTO "udp">
 #<SERVICE :NAME "ntske" :ALIASES NIL :PORT 4460 :PROTO "tcp">
 #<SERVICE :NAME "sixid" :ALIASES NIL :PORT 4606 :PROTO "tcp">
 #<SERVICE :NAME "dots-signal" :ALIASES NIL :PORT 4646 :PROTO "tcp">
 #<SERVICE :NAME "dots-signal" :ALIASES NIL :PORT 4646 :PROTO "udp">
 #<SERVICE :NAME "xcap-portal" :ALIASES NIL :PORT 4888 :PROTO "tcp">
 #<SERVICE :NAME "xcap-control" :ALIASES NIL :PORT 4889 :PROTO "tcp">
 #<SERVICE :NAME "burp" :ALIASES NIL :PORT 4971 :PROTO "tcp">
 #<SERVICE :NAME "rfe" :ALIASES NIL :PORT 5002 :PROTO "tcp">
 #<SERVICE :NAME "rfe" :ALIASES NIL :PORT 5002 :PROTO "udp">
 #<SERVICE :NAME "cfengine" :ALIASES NIL :PORT 5308 :PROTO "tcp">
 #<SERVICE :NAME "cfengine" :ALIASES NIL :PORT 5308 :PROTO "udp">
 #<SERVICE :NAME "coap" :ALIASES NIL :PORT 5683 :PROTO "tcp">
 #<SERVICE :NAME "coaps" :ALIASES NIL :PORT 5684 :PROTO "tcp">
 #<SERVICE :NAME "cvsup" :ALIASES ("CVSup") :PORT 5999 :PROTO "tcp">
 #<SERVICE :NAME "cvsup" :ALIASES ("CVSup") :PORT 5999 :PROTO "udp">
 #<SERVICE :NAME "x11" :ALIASES ("X") :PORT 6000 :PROTO "tcp">
 #<SERVICE :NAME "heliosd" :ALIASES NIL :PORT 6440 :PROTO "tcp">
 #<SERVICE :NAME "checkmk-agent" :ALIASES NIL :PORT 6556 :PROTO "tcp">
 #<SERVICE :NAME "babel-dtls" :ALIASES NIL :PORT 6699 :PROTO "udp">
 #<SERVICE :NAME "split-ping" :ALIASES NIL :PORT 6924 :PROTO "tcp">
 #<SERVICE :NAME "split-ping" :ALIASES NIL :PORT 6924 :PROTO "udp">
 #<SERVICE :NAME "afs3-fileserver" :ALIASES NIL :PORT 7000 :PROTO "tcp">
 #<SERVICE :NAME "afs3-fileserver" :ALIASES NIL :PORT 7000 :PROTO "udp">
 #<SERVICE :NAME "afs3-callback" :ALIASES NIL :PORT 7001 :PROTO "tcp">
 #<SERVICE :NAME "afs3-callback" :ALIASES NIL :PORT 7001 :PROTO "udp">
 #<SERVICE :NAME "afs3-prserver" :ALIASES NIL :PORT 7002 :PROTO "tcp">
 #<SERVICE :NAME "afs3-prserver" :ALIASES NIL :PORT 7002 :PROTO "udp">
 #<SERVICE :NAME "afs3-vlserver" :ALIASES NIL :PORT 7003 :PROTO "tcp">
 #<SERVICE :NAME "afs3-vlserver" :ALIASES NIL :PORT 7003 :PROTO "udp">
 #<SERVICE :NAME "afs3-kaserver" :ALIASES NIL :PORT 7004 :PROTO "tcp">
 #<SERVICE :NAME "afs3-kaserver" :ALIASES NIL :PORT 7004 :PROTO "udp">
 #<SERVICE :NAME "afs3-volser" :ALIASES NIL :PORT 7005 :PROTO "tcp">
 #<SERVICE :NAME "afs3-volser" :ALIASES NIL :PORT 7005 :PROTO "udp">
 #<SERVICE :NAME "afs3-errors" :ALIASES NIL :PORT 7006 :PROTO "tcp">
 #<SERVICE :NAME "afs3-errors" :ALIASES NIL :PORT 7006 :PROTO "udp">
 #<SERVICE :NAME "afs3-bos" :ALIASES NIL :PORT 7007 :PROTO "tcp">
 #<SERVICE :NAME "afs3-bos" :ALIASES NIL :PORT 7007 :PROTO "udp">
 #<SERVICE :NAME "afs3-update" :ALIASES NIL :PORT 7008 :PROTO "tcp">
 #<SERVICE :NAME "afs3-update" :ALIASES NIL :PORT 7008 :PROTO "udp">
 #<SERVICE :NAME "afs3-rmtsys" :ALIASES NIL :PORT 7009 :PROTO "tcp">
 #<SERVICE :NAME "afs3-rmtsys" :ALIASES NIL :PORT 7009 :PROTO "udp">
 #<SERVICE :NAME "loreji-panel" :ALIASES NIL :PORT 7026 :PROTO "tcp">
 #<SERVICE :NAME "iba-cfg" :ALIASES NIL :PORT 7072 :PROTO "tcp">
 #<SERVICE :NAME "iba-cfg-disc" :ALIASES NIL :PORT 7072 :PROTO "udp">
 #<SERVICE :NAME "asa-gateways" :ALIASES NIL :PORT 7234 :PROTO "tcp">
 #<SERVICE :NAME "ipluminary" :ALIASES NIL :PORT 7420 :PROTO "udp">
 #<SERVICE :NAME "rome" :ALIASES NIL :PORT 7663 :PROTO "tcp">
 #<SERVICE :NAME "rome" :ALIASES NIL :PORT 7663 :PROTO "udp">
 #<SERVICE :NAME "p2pevolvenet" :ALIASES NIL :PORT 8004 :PROTO "tcp">
 #<SERVICE :NAME "warppipe" :ALIASES NIL :PORT 8007 :PROTO "tcp">
 #<SERVICE :NAME "warppipe" :ALIASES NIL :PORT 8007 :PROTO "udp">
 #<SERVICE :NAME "nvme-disc" :ALIASES NIL :PORT 8009 :PROTO "tcp">
 #<SERVICE :NAME "cfg-cloud" :ALIASES NIL :PORT 8015 :PROTO "tcp">
 #<SERVICE :NAME "ads-s" :ALIASES NIL :PORT 8016 :PROTO "tcp">
 #<SERVICE :NAME "arca-api" :ALIASES NIL :PORT 8023 :PROTO "tcp">
 #<SERVICE :NAME "arca-api" :ALIASES NIL :PORT 8023 :PROTO "udp">
 #<SERVICE :NAME "papachi-p2p-srv" :ALIASES NIL :PORT 8027 :PROTO "tcp">
 #<SERVICE :NAME "papachi-p2p-srv" :ALIASES NIL :PORT 8027 :PROTO "udp">
 #<SERVICE :NAME "enguity-xccetp" :ALIASES NIL :PORT 8041 :PROTO "tcp">
 #<SERVICE :NAME "enguity-xccetp" :ALIASES NIL :PORT 8041 :PROTO "udp">
 #<SERVICE :NAME "websnp" :ALIASES NIL :PORT 8084 :PROTO "tcp">
 #<SERVICE :NAME "skynetflow" :ALIASES NIL :PORT 8111 :PROTO "udp">
 #<SERVICE :NAME "aruba-papi" :ALIASES NIL :PORT 8211 :PROTO "udp">
 #<SERVICE :NAME "espeasy-p2p" :ALIASES NIL :PORT 8266 :PROTO "udp">
 #<SERVICE :NAME "semi-grpc" :ALIASES NIL :PORT 8710 :PROTO "tcp">
 #<SERVICE :NAME "core-of-source" :ALIASES NIL :PORT 8767 :PROTO "tcp">
 #<SERVICE :NAME "sandpolis" :ALIASES NIL :PORT 8768 :PROTO "tcp">
 #<SERVICE :NAME "oktaauthenticat" :ALIASES NIL :PORT 8769 :PROTO "tcp">
 #<SERVICE :NAME "pfcp" :ALIASES NIL :PORT 8805 :PROTO "udp">
 #<SERVICE :NAME "hes-clip" :ALIASES NIL :PORT 8807 :PROTO "udp">
 #<SERVICE :NAME "3gpp-monp" :ALIASES NIL :PORT 8809 :PROTO "udp">
 #<SERVICE :NAME "dpp" :ALIASES NIL :PORT 8908 :PROTO "tcp">
 #<SERVICE :NAME "d-star" :ALIASES NIL :PORT 9011 :PROTO "udp">
 #<SERVICE :NAME "cisco-aqos" :ALIASES NIL :PORT 9081 :PROTO "udp">
 #<SERVICE :NAME "hexxorecore" :ALIASES NIL :PORT 9111 :PROTO "tcp">
 #<SERVICE :NAME "hexxorecore" :ALIASES NIL :PORT 9111 :PROTO "udp">
 #<SERVICE :NAME "sapms" :ALIASES NIL :PORT 9310 :PROTO "tcp">
 #<SERVICE :NAME "gnmi-gnoi" :ALIASES NIL :PORT 9339 :PROTO "tcp">
 #<SERVICE :NAME "p4runtime" :ALIASES NIL :PORT 9559 :PROTO "tcp">
 #<SERVICE :NAME "x510" :ALIASES NIL :PORT 9877 :PROTO "tcp">
 #<SERVICE :NAME "visweather" :ALIASES NIL :PORT 9979 :PROTO "tcp">
 #<SERVICE :NAME "amanda" :ALIASES NIL :PORT 10080 :PROTO "tcp">
 #<SERVICE :NAME "amanda" :ALIASES NIL :PORT 10080 :PROTO "udp">
 #<SERVICE :NAME "cimple" :ALIASES NIL :PORT 10125 :PROTO "tcp">
 #<SERVICE :NAME "cirrossp" :ALIASES NIL :PORT 10443 :PROTO "tcp">
 #<SERVICE :NAME "xcompute" :ALIASES NIL :PORT 11235 :PROTO "tcp">
 #<SERVICE :NAME "xcompute" :ALIASES NIL :PORT 11235 :PROTO "sctp">
 #<SERVICE :NAME "pgpkeyserver" :ALIASES ("hkp") :PORT 11371 :PROTO "tcp">
 #<SERVICE :NAME "pgpkeyserver" :ALIASES ("hkp") :PORT 11371 :PROTO "udp">
 #<SERVICE :NAME "asgcypresstcps" :ALIASES NIL :PORT 11489 :PROTO "tcp">
 #<SERVICE :NAME "h323callsigalt" :ALIASES ("323callsigalt") :PORT 11720
   :PROTO "tcp">
 #<SERVICE :NAME "h323callsigalt" :ALIASES ("323callsigalt") :PORT 11720
   :PROTO "udp">
 #<SERVICE :NAME "tibsd" :ALIASES NIL :PORT 11971 :PROTO "tcp">
 #<SERVICE :NAME "bprd" :ALIASES NIL :PORT 13720 :PROTO "tcp">
 #<SERVICE :NAME "bprd" :ALIASES NIL :PORT 13720 :PROTO "udp">
 #<SERVICE :NAME "bpdbm" :ALIASES NIL :PORT 13721 :PROTO "tcp">
 #<SERVICE :NAME "bpdbm" :ALIASES NIL :PORT 13721 :PROTO "udp">
 #<SERVICE :NAME "bpjava-msvc" :ALIASES NIL :PORT 13722 :PROTO "tcp">
 #<SERVICE :NAME "bpjava-msvc" :ALIASES NIL :PORT 13722 :PROTO "udp">
 #<SERVICE :NAME "vnetd" :ALIASES NIL :PORT 13724 :PROTO "tcp">
 #<SERVICE :NAME "vnetd" :ALIASES NIL :PORT 13724 :PROTO "udp">
 #<SERVICE :NAME "bpcd" :ALIASES NIL :PORT 13782 :PROTO "tcp">
 #<SERVICE :NAME "bpcd" :ALIASES NIL :PORT 13782 :PROTO "udp">
 #<SERVICE :NAME "vopied" :ALIASES NIL :PORT 13783 :PROTO "tcp">
 #<SERVICE :NAME "vopied" :ALIASES NIL :PORT 13783 :PROTO "udp">
 #<SERVICE :NAME "heythings" :ALIASES NIL :PORT 18516 :PROTO "udp">
 #<SERVICE :NAME "faircom-db" :ALIASES NIL :PORT 19790 :PROTO "tcp">
 #<SERVICE :NAME "trinket-agent" :ALIASES NIL :PORT 21212 :PROTO "tcp">
 #<SERVICE :NAME "cohesity-agent" :ALIASES NIL :PORT 21213 :PROTO "tcp">
 #<SERVICE :NAME "wnn6" :ALIASES ("wnn4") :PORT 22273 :PROTO "tcp">
 #<SERVICE :NAME "wnn6" :ALIASES ("wnn4") :PORT 22273 :PROTO "udp">
 #<SERVICE :NAME "showcockpit-net" :ALIASES NIL :PORT 22333 :PROTO "tcp">
 #<SERVICE :NAME "showcockpit-net" :ALIASES NIL :PORT 22333 :PROTO "udp">
 #<SERVICE :NAME "vrmg-ip" :ALIASES NIL :PORT 24323 :PROTO "tcp">
 #<SERVICE :NAME "quake" :ALIASES NIL :PORT 26000 :PROTO "tcp">
 #<SERVICE :NAME "quake" :ALIASES NIL :PORT 26000 :PROTO "udp">
 #<SERVICE :NAME "wnn6-ds" :ALIASES NIL :PORT 26208 :PROTO "tcp">
 #<SERVICE :NAME "wnn6-ds" :ALIASES NIL :PORT 26208 :PROTO "udp">
 #<SERVICE :NAME "flex-lmadmin" :ALIASES NIL :PORT 27010 :PROTO "tcp">
 #<SERVICE :NAME "mongodb" :ALIASES NIL :PORT 27017 :PROTO "tcp">
 #<SERVICE :NAME "gruber-cashreg" :ALIASES NIL :PORT 28010 :PROTO "tcp">
 #<SERVICE :NAME "saltd-licensing" :ALIASES NIL :PORT 29000 :PROTO "tcp">
 #<SERVICE :NAME "gs-realtime" :ALIASES NIL :PORT 30400 :PROTO "tcp">
 #<SERVICE :NAME "wg-endpt-comms" :ALIASES NIL :PORT 33000 :PROTO "tcp">
 #<SERVICE :NAME "traceroute" :ALIASES NIL :PORT 33434 :PROTO "tcp">
 #<SERVICE :NAME "traceroute" :ALIASES NIL :PORT 33434 :PROTO "udp">
 #<SERVICE :NAME "mtrace" :ALIASES NIL :PORT 33435 :PROTO "udp">
 #<SERVICE :NAME "digilent-adept" :ALIASES NIL :PORT 33890 :PROTO "tcp">
 #<SERVICE :NAME "3gpp-w1ap" :ALIASES NIL :PORT 37472 :PROTO "sctp">
 #<SERVICE :NAME "ng-control" :ALIASES NIL :PORT 38412 :PROTO "sctp">
 #<SERVICE :NAME "xn-control" :ALIASES NIL :PORT 38422 :PROTO "sctp">
 #<SERVICE :NAME "e1-interface" :ALIASES NIL :PORT 38462 :PROTO "sctp">
 #<SERVICE :NAME "f1-control" :ALIASES NIL :PORT 38472 :PROTO "sctp">
 #<SERVICE :NAME "hmip-routing" :ALIASES NIL :PORT 43438 :PROTO "udp">
 #<SERVICE :NAME "acronis-backup" :ALIASES NIL :PORT 44445 :PROTO "tcp">
 #<SERVICE :NAME "juka" :ALIASES NIL :PORT 48048 :PROTO "tcp">
 #<SERVICE :NAME "inspider" :ALIASES NIL :PORT 49150 :PROTO "tcp">
 #<SERVICE :NAME "rtmp" :ALIASES NIL :PORT 1 :PROTO "ddp">
 #<SERVICE :NAME "nbp" :ALIASES NIL :PORT 2 :PROTO "ddp">
 #<SERVICE :NAME "echo" :ALIASES NIL :PORT 4 :PROTO "ddp">
 #<SERVICE :NAME "zip" :ALIASES NIL :PORT 6 :PROTO "ddp">
 #<SERVICE :NAME "kerberos_master" :ALIASES ("pump") :PORT 751 :PROTO "udp">
 #<SERVICE :NAME "kerberos_master" :ALIASES ("pump") :PORT 751 :PROTO "tcp">
 #<SERVICE :NAME "passwd_server" :ALIASES ("qrh") :PORT 752 :PROTO "udp">
 #<SERVICE :NAME "krbupdate" :ALIASES ("kreg" "ns") :PORT 760 :PROTO "tcp">
 #<SERVICE :NAME "kpop" :ALIASES NIL :PORT 1109 :PROTO "tcp">
 #<SERVICE :NAME "knetd" :ALIASES ("lot105-ds-upd") :PORT 2053 :PROTO "tcp">
 #<SERVICE :NAME "krb5_prop" :ALIASES ("tell") :PORT 754 :PROTO "tcp">
 #<SERVICE :NAME "eklogin" :ALIASES ("minipay") :PORT 2105 :PROTO "tcp">
 #<SERVICE :NAME "supfilesrv" :ALIASES NIL :PORT 871 :PROTO "tcp">
 #<SERVICE :NAME "supfiledbg" :ALIASES ("kwdb-commn") :PORT 1127 :PROTO "tcp">
 #<SERVICE :NAME "netstat" :ALIASES NIL :PORT 15 :PROTO "tcp">
 #<SERVICE :NAME "poppassd" :ALIASES NIL :PORT 106 :PROTO "tcp">
 #<SERVICE :NAME "poppassd" :ALIASES NIL :PORT 106 :PROTO "udp">
 #<SERVICE :NAME "omirr" :ALIASES ("omirrd") :PORT 808 :PROTO "tcp">
 #<SERVICE :NAME "omirr" :ALIASES ("omirrd") :PORT 808 :PROTO "udp">
 #<SERVICE :NAME "swat" :ALIASES ("smpnameres") :PORT 901 :PROTO "tcp">
 #<SERVICE :NAME "rndc" :ALIASES NIL :PORT 953 :PROTO "tcp">
 #<SERVICE :NAME "rndc" :ALIASES NIL :PORT 953 :PROTO "udp">
 #<SERVICE :NAME "skkserv" :ALIASES ("sgi-storman") :PORT 1178 :PROTO "tcp">
 #<SERVICE :NAME "xtel" :ALIASES ("bmc_patroldb" "bmc-patroldb") :PORT 1313
   :PROTO "tcp">
 #<SERVICE :NAME "support" :ALIASES ("prmsd" "gnatsd" "coauthor") :PORT 1529
   :PROTO "tcp">
 #<SERVICE :NAME "cfinger" :ALIASES ("brutus") :PORT 2003 :PROTO "tcp">
 #<SERVICE :NAME "ninstall" :ALIASES ("dynamic3d") :PORT 2150 :PROTO "tcp">
 #<SERVICE :NAME "ninstall" :ALIASES ("dynamic3d") :PORT 2150 :PROTO "udp">
 #<SERVICE :NAME "afbackup" :ALIASES ("hippad") :PORT 2988 :PROTO "tcp">
 #<SERVICE :NAME "afbackup" :ALIASES ("hippad") :PORT 2988 :PROTO "udp">
 #<SERVICE :NAME "squid" :ALIASES ("ndl-aas") :PORT 3128 :PROTO "tcp">
 #<SERVICE :NAME "prsvp" :ALIASES NIL :PORT 3455 :PROTO "tcp">
 #<SERVICE :NAME "prsvp" :ALIASES NIL :PORT 3455 :PROTO "udp">
 #<SERVICE :NAME "distcc" :ALIASES NIL :PORT 3632 :PROTO "tcp">
 #<SERVICE :NAME "svn" :ALIASES NIL :PORT 3690 :PROTO "tcp">
 #<SERVICE :NAME "svn" :ALIASES NIL :PORT 3690 :PROTO "udp">
 #<SERVICE :NAME "postgres" :ALIASES ("postgresql") :PORT 5432 :PROTO "tcp">
 #<SERVICE :NAME "postgres" :ALIASES ("postgresql") :PORT 5432 :PROTO "udp">
 #<SERVICE :NAME "fax" :ALIASES NIL :PORT 4557 :PROTO "tcp">
 #<SERVICE :NAME "hylafax" :ALIASES NIL :PORT 4559 :PROTO "tcp">
 #<SERVICE :NAME "sgi-dgl" :ALIASES ("csedaemon") :PORT 5232 :PROTO "tcp">
 #<SERVICE :NAME "sgi-dgl" :ALIASES NIL :PORT 5232 :PROTO "udp">
 #<SERVICE :NAME "llmnr" :ALIASES ("hostmon") :PORT 5355 :PROTO "tcp">
 #<SERVICE :NAME "llmnr" :ALIASES ("hostmon") :PORT 5355 :PROTO "udp">
 #<SERVICE :NAME "canna" :ALIASES ("auriga-router") :PORT 5680 :PROTO "tcp">
 #<SERVICE :NAME "x11-ssh-offset" :ALIASES NIL :PORT 6010 :PROTO "tcp">
 #<SERVICE :NAME "xfs" :ALIASES ("font-service") :PORT 7100 :PROTO "tcp">
 #<SERVICE :NAME "tircproxy" :ALIASES NIL :PORT 7666 :PROTO "tcp">
 #<SERVICE :NAME "webcache" :ALIASES ("http-alt") :PORT 8080 :PROTO "tcp">
 #<SERVICE :NAME "webcache" :ALIASES ("http-alt") :PORT 8080 :PROTO "udp">
 #<SERVICE :NAME "tproxy" :ALIASES ("sunproxyadmin") :PORT 8081 :PROTO "tcp">
 #<SERVICE :NAME "tproxy" :ALIASES ("sunproxyadmin") :PORT 8081 :PROTO "udp">
 #<SERVICE :NAME "jetdirect"
   :ALIASES ("laserjet" "hplj" "hp-pdl-datastr" "pdl-datastream") :PORT 9100
   :PROTO "tcp">
 #<SERVICE :NAME "mandelspawn" :ALIASES ("mandelbrot") :PORT 9359 :PROTO "udp">
 #<SERVICE :NAME "kamanda" :ALIASES ("famdc") :PORT 10081 :PROTO "tcp">
 #<SERVICE :NAME "kamanda" :ALIASES ("famdc") :PORT 10081 :PROTO "udp">
 #<SERVICE :NAME "amandaidx" :ALIASES NIL :PORT 10082 :PROTO "tcp">
 #<SERVICE :NAME "amidxtape" :ALIASES NIL :PORT 10083 :PROTO "tcp">
 #<SERVICE :NAME "isdnlog" :ALIASES NIL :PORT 20011 :PROTO "tcp">
 #<SERVICE :NAME "isdnlog" :ALIASES NIL :PORT 20011 :PROTO "udp">
 #<SERVICE :NAME "wnn4_Kr" :ALIASES ("cis") :PORT 22305 :PROTO "tcp">
 #<SERVICE :NAME "wnn4_Cn" :ALIASES NIL :PORT 22289 :PROTO "tcp">
 #<SERVICE :NAME "wnn4_Tw" :ALIASES NIL :PORT 22321 :PROTO "tcp">
 #<SERVICE :NAME "binkp" :ALIASES NIL :PORT 24554 :PROTO "tcp">
 #<SERVICE :NAME "binkp" :ALIASES NIL :PORT 24554 :PROTO "udp">
 #<SERVICE :NAME "sdtvwcam" :ALIASES NIL :PORT 24666 :PROTO "tcp">
 #<SERVICE :NAME "canditv" :ALIASES NIL :PORT 24676 :PROTO "tcp">
 #<SERVICE :NAME "canditv" :ALIASES NIL :PORT 24676 :PROTO "udp">
 #<SERVICE :NAME "asp" :ALIASES NIL :PORT 27374 :PROTO "tcp">
 #<SERVICE :NAME "asp" :ALIASES NIL :PORT 27374 :PROTO "udp">
 #<SERVICE :NAME "tfido" :ALIASES NIL :PORT 60177 :PROTO "tcp">
 #<SERVICE :NAME "tfido" :ALIASES NIL :PORT 60177 :PROTO "udp">
 #<SERVICE :NAME "fido" :ALIASES NIL :PORT 60179 :PROTO "tcp">
 #<SERVICE :NAME "fido" :ALIASES NIL :PORT 60179 :PROTO "udp">
 #<SERVICE :NAME "compressnet" :ALIASES NIL :PORT 2 :PROTO "tcp">
 #<SERVICE :NAME "compressnet" :ALIASES NIL :PORT 2 :PROTO "udp">
 #<SERVICE :NAME "discard" :ALIASES NIL :PORT 9 :PROTO "sctp">
 #<SERVICE :NAME "discard" :ALIASES NIL :PORT 9 :PROTO "dccp">
 #<SERVICE :NAME "ftp-data" :ALIASES NIL :PORT 20 :PROTO "sctp">
 #<SERVICE :NAME "ftp" :ALIASES NIL :PORT 21 :PROTO "sctp">
 #<SERVICE :NAME "ssh" :ALIASES NIL :PORT 22 :PROTO "sctp">
 #<SERVICE :NAME "nsw-fe" :ALIASES NIL :PORT 27 :PROTO "tcp">
 #<SERVICE :NAME "nsw-fe" :ALIASES NIL :PORT 27 :PROTO "udp">
 #<SERVICE :NAME "msg-icp" :ALIASES NIL :PORT 29 :PROTO "tcp">
 #<SERVICE :NAME "msg-icp" :ALIASES NIL :PORT 29 :PROTO "udp">
 #<SERVICE :NAME "msg-auth" :ALIASES NIL :PORT 31 :PROTO "tcp">
 #<SERVICE :NAME "msg-auth" :ALIASES NIL :PORT 31 :PROTO "udp">
 #<SERVICE :NAME "dsp" :ALIASES NIL :PORT 33 :PROTO "tcp">
 #<SERVICE :NAME "dsp" :ALIASES NIL :PORT 33 :PROTO "udp">
 #<SERVICE :NAME "graphics" :ALIASES NIL :PORT 41 :PROTO "tcp">
 #<SERVICE :NAME "graphics" :ALIASES NIL :PORT 41 :PROTO "udp">
 #<SERVICE :NAME "mpm-flags" :ALIASES NIL :PORT 44 :PROTO "tcp">
 #<SERVICE :NAME "mpm-flags" :ALIASES NIL :PORT 44 :PROTO "udp">
 #<SERVICE :NAME "mpm" :ALIASES NIL :PORT 45 :PROTO "tcp">
 #<SERVICE :NAME "mpm" :ALIASES NIL :PORT 45 :PROTO "udp">
 #<SERVICE :NAME "mpm-snd" :ALIASES NIL :PORT 46 :PROTO "tcp">
 #<SERVICE :NAME "mpm-snd" :ALIASES NIL :PORT 46 :PROTO "udp">
 #<SERVICE :NAME "ni-ftp" :ALIASES NIL :PORT 47 :PROTO "tcp">
 #<SERVICE :NAME "ni-ftp" :ALIASES NIL :PORT 47 :PROTO "udp">
 #<SERVICE :NAME "auditd" :ALIASES NIL :PORT 48 :PROTO "tcp">
 #<SERVICE :NAME "auditd" :ALIASES NIL :PORT 48 :PROTO "udp">
 #<SERVICE :NAME "la-maint" :ALIASES NIL :PORT 51 :PROTO "tcp">
 #<SERVICE :NAME "la-maint" :ALIASES NIL :PORT 51 :PROTO "udp">
 #<SERVICE :NAME "xns-time" :ALIASES NIL :PORT 52 :PROTO "tcp">
 #<SERVICE :NAME "xns-time" :ALIASES NIL :PORT 52 :PROTO "udp">
 #<SERVICE :NAME "xns-ch" :ALIASES NIL :PORT 54 :PROTO "tcp">
 #<SERVICE :NAME "xns-ch" :ALIASES NIL :PORT 54 :PROTO "udp">
 #<SERVICE :NAME "isi-gl" :ALIASES NIL :PORT 55 :PROTO "tcp">
 #<SERVICE :NAME "isi-gl" :ALIASES NIL :PORT 55 :PROTO "udp">
 #<SERVICE :NAME "xns-auth" :ALIASES NIL :PORT 56 :PROTO "tcp">
 #<SERVICE :NAME "xns-auth" :ALIASES NIL :PORT 56 :PROTO "udp">
 #<SERVICE :NAME "xns-mail" :ALIASES NIL :PORT 58 :PROTO "tcp">
 #<SERVICE :NAME "xns-mail" :ALIASES NIL :PORT 58 :PROTO "udp">
 #<SERVICE :NAME "ni-mail" :ALIASES NIL :PORT 61 :PROTO "tcp">
 #<SERVICE :NAME "ni-mail" :ALIASES NIL :PORT 61 :PROTO "udp">
 #<SERVICE :NAME "acas" :ALIASES NIL :PORT 62 :PROTO "tcp">
 #<SERVICE :NAME "acas" :ALIASES NIL :PORT 62 :PROTO "udp">
 #<SERVICE :NAME "covia" :ALIASES NIL :PORT 64 :PROTO "tcp">
 #<SERVICE :NAME "covia" :ALIASES NIL :PORT 64 :PROTO "udp">
 #<SERVICE :NAME "tacacs-ds" :ALIASES NIL :PORT 65 :PROTO "tcp">
 #<SERVICE :NAME "tacacs-ds" :ALIASES NIL :PORT 65 :PROTO "udp">
 #<SERVICE :NAME "sql*net" :ALIASES NIL :PORT 66 :PROTO "tcp">
 #<SERVICE :NAME "sql*net" :ALIASES NIL :PORT 66 :PROTO "udp">
 #<SERVICE :NAME "deos" :ALIASES NIL :PORT 76 :PROTO "tcp">
 #<SERVICE :NAME "deos" :ALIASES NIL :PORT 76 :PROTO "udp">
 #<SERVICE :NAME "vettcp" :ALIASES NIL :PORT 78 :PROTO "tcp">
 #<SERVICE :NAME "vettcp" :ALIASES NIL :PORT 78 :PROTO "udp">
 #<SERVICE :NAME "xfer" :ALIASES NIL :PORT 82 :PROTO "tcp">
 #<SERVICE :NAME "xfer" :ALIASES NIL :PORT 82 :PROTO "udp">
 #<SERVICE :NAME "ctf" :ALIASES NIL :PORT 84 :PROTO "tcp">
 #<SERVICE :NAME "ctf" :ALIASES NIL :PORT 84 :PROTO "udp">
 #<SERVICE :NAME "mfcobol" :ALIASES NIL :PORT 86 :PROTO "tcp">
 #<SERVICE :NAME "mfcobol" :ALIASES NIL :PORT 86 :PROTO "udp">
 #<SERVICE :NAME "su-mit-tg" :ALIASES NIL :PORT 89 :PROTO "tcp">
 #<SERVICE :NAME "su-mit-tg" :ALIASES NIL :PORT 89 :PROTO "udp">
 #<SERVICE :NAME "dnsix" :ALIASES NIL :PORT 90 :PROTO "tcp">
 #<SERVICE :NAME "dnsix" :ALIASES NIL :PORT 90 :PROTO "udp">
 #<SERVICE :NAME "mit-dov" :ALIASES NIL :PORT 91 :PROTO "tcp">
 #<SERVICE :NAME "mit-dov" :ALIASES NIL :PORT 91 :PROTO "udp">
 #<SERVICE :NAME "dcp" :ALIASES NIL :PORT 93 :PROTO "tcp">
 #<SERVICE :NAME "dcp" :ALIASES NIL :PORT 93 :PROTO "udp">
 #<SERVICE :NAME "objcall" :ALIASES NIL :PORT 94 :PROTO "tcp">
 #<SERVICE :NAME "objcall" :ALIASES NIL :PORT 94 :PROTO "udp">
 #<SERVICE :NAME "dixie" :ALIASES NIL :PORT 96 :PROTO "tcp">
 #<SERVICE :NAME "dixie" :ALIASES NIL :PORT 96 :PROTO "udp">
 #<SERVICE :NAME "swift-rvf" :ALIASES NIL :PORT 97 :PROTO "tcp">
 #<SERVICE :NAME "swift-rvf" :ALIASES NIL :PORT 97 :PROTO "udp">
 #<SERVICE :NAME "tacnews" :ALIASES NIL :PORT 98 :PROTO "tcp">
 #<SERVICE :NAME "tacnews" :ALIASES NIL :PORT 98 :PROTO "udp">
 #<SERVICE :NAME "metagram" :ALIASES NIL :PORT 99 :PROTO "tcp">
 #<SERVICE :NAME "metagram" :ALIASES NIL :PORT 99 :PROTO "udp">
 #<SERVICE :NAME "newacct" :ALIASES NIL :PORT 100 :PROTO "tcp">
 #<SERVICE :NAME "iso-tsap" :ALIASES NIL :PORT 102 :PROTO "udp">
 #<SERVICE :NAME "gppitnp" :ALIASES NIL :PORT 103 :PROTO "tcp">
 #<SERVICE :NAME "gppitnp" :ALIASES NIL :PORT 103 :PROTO "udp">
 #<SERVICE :NAME "acr-nema" :ALIASES NIL :PORT 104 :PROTO "tcp">
 #<SERVICE :NAME "acr-nema" :ALIASES NIL :PORT 104 :PROTO "udp">
 #<SERVICE :NAME "snagas" :ALIASES NIL :PORT 108 :PROTO "tcp">
 #<SERVICE :NAME "snagas" :ALIASES NIL :PORT 108 :PROTO "udp">
 #<SERVICE :NAME "mcidas" :ALIASES NIL :PORT 112 :PROTO "tcp">
 #<SERVICE :NAME "mcidas" :ALIASES NIL :PORT 112 :PROTO "udp">
 #<SERVICE :NAME "ansanotify" :ALIASES NIL :PORT 116 :PROTO "tcp">
 #<SERVICE :NAME "ansanotify" :ALIASES NIL :PORT 116 :PROTO "udp">
 #<SERVICE :NAME "sqlserv" :ALIASES NIL :PORT 118 :PROTO "tcp">
 #<SERVICE :NAME "sqlserv" :ALIASES NIL :PORT 118 :PROTO "udp">
 #<SERVICE :NAME "cfdptkt" :ALIASES NIL :PORT 120 :PROTO "tcp">
 #<SERVICE :NAME "cfdptkt" :ALIASES NIL :PORT 120 :PROTO "udp">
 #<SERVICE :NAME "erpc" :ALIASES NIL :PORT 121 :PROTO "tcp">
 #<SERVICE :NAME "erpc" :ALIASES NIL :PORT 121 :PROTO "udp">
 #<SERVICE :NAME "smakynet" :ALIASES NIL :PORT 122 :PROTO "tcp">
 #<SERVICE :NAME "smakynet" :ALIASES NIL :PORT 122 :PROTO "udp">
 #<SERVICE :NAME "ansatrader" :ALIASES NIL :PORT 124 :PROTO "tcp">
 #<SERVICE :NAME "ansatrader" :ALIASES NIL :PORT 124 :PROTO "udp">
 #<SERVICE :NAME "locus-map" :ALIASES NIL :PORT 125 :PROTO "tcp">
 #<SERVICE :NAME "locus-map" :ALIASES NIL :PORT 125 :PROTO "udp">
 #<SERVICE :NAME "nxedit" :ALIASES NIL :PORT 126 :PROTO "tcp">
 #<SERVICE :NAME "nxedit" :ALIASES NIL :PORT 126 :PROTO "udp">
 #<SERVICE :NAME "locus-con" :ALIASES NIL :PORT 127 :PROTO "tcp">
 #<SERVICE :NAME "locus-con" :ALIASES NIL :PORT 127 :PROTO "udp">
 #<SERVICE :NAME "gss-xlicen" :ALIASES NIL :PORT 128 :PROTO "tcp">
 #<SERVICE :NAME "gss-xlicen" :ALIASES NIL :PORT 128 :PROTO "udp">
 #<SERVICE :NAME "pwdgen" :ALIASES NIL :PORT 129 :PROTO "tcp">
 #<SERVICE :NAME "pwdgen" :ALIASES NIL :PORT 129 :PROTO "udp">
 #<SERVICE :NAME "cisco-fna" :ALIASES NIL :PORT 130 :PROTO "tcp">
 #<SERVICE :NAME "cisco-fna" :ALIASES NIL :PORT 130 :PROTO "udp">
 #<SERVICE :NAME "cisco-tna" :ALIASES NIL :PORT 131 :PROTO "tcp">
 #<SERVICE :NAME "cisco-tna" :ALIASES NIL :PORT 131 :PROTO "udp">
 #<SERVICE :NAME "cisco-sys" :ALIASES NIL :PORT 132 :PROTO "tcp">
 #<SERVICE :NAME "cisco-sys" :ALIASES NIL :PORT 132 :PROTO "udp">
 #<SERVICE :NAME "statsrv" :ALIASES NIL :PORT 133 :PROTO "tcp">
 #<SERVICE :NAME "statsrv" :ALIASES NIL :PORT 133 :PROTO "udp">
 #<SERVICE :NAME "ingres-net" :ALIASES NIL :PORT 134 :PROTO "tcp">
 #<SERVICE :NAME "ingres-net" :ALIASES NIL :PORT 134 :PROTO "udp">
 #<SERVICE :NAME "epmap" :ALIASES NIL :PORT 135 :PROTO "tcp">
 #<SERVICE :NAME "epmap" :ALIASES NIL :PORT 135 :PROTO "udp">
 #<SERVICE :NAME "profile" :ALIASES NIL :PORT 136 :PROTO "tcp">
 #<SERVICE :NAME "profile" :ALIASES NIL :PORT 136 :PROTO "udp">
 #<SERVICE :NAME "emfis-data" :ALIASES NIL :PORT 140 :PROTO "tcp">
 #<SERVICE :NAME "emfis-data" :ALIASES NIL :PORT 140 :PROTO "udp">
 #<SERVICE :NAME "emfis-cntl" :ALIASES NIL :PORT 141 :PROTO "tcp">
 #<SERVICE :NAME "emfis-cntl" :ALIASES NIL :PORT 141 :PROTO "udp">
 #<SERVICE :NAME "bl-idm" :ALIASES NIL :PORT 142 :PROTO "tcp">
 #<SERVICE :NAME "bl-idm" :ALIASES NIL :PORT 142 :PROTO "udp">
 #<SERVICE :NAME "uaac" :ALIASES NIL :PORT 145 :PROTO "tcp">
 #<SERVICE :NAME "uaac" :ALIASES NIL :PORT 145 :PROTO "udp">
 #<SERVICE :NAME "iso-tp0" :ALIASES NIL :PORT 146 :PROTO "tcp">
 #<SERVICE :NAME "iso-tp0" :ALIASES NIL :PORT 146 :PROTO "udp">
 #<SERVICE :NAME "iso-ip" :ALIASES NIL :PORT 147 :PROTO "tcp">
 #<SERVICE :NAME "iso-ip" :ALIASES NIL :PORT 147 :PROTO "udp">
 #<SERVICE :NAME "jargon" :ALIASES NIL :PORT 148 :PROTO "tcp">
 #<SERVICE :NAME "jargon" :ALIASES NIL :PORT 148 :PROTO "udp">
 #<SERVICE :NAME "aed-512" :ALIASES NIL :PORT 149 :PROTO "tcp">
 #<SERVICE :NAME "aed-512" :ALIASES NIL :PORT 149 :PROTO "udp">
 #<SERVICE :NAME "sql-net" :ALIASES NIL :PORT 150 :PROTO "tcp">
 #<SERVICE :NAME "sql-net" :ALIASES NIL :PORT 150 :PROTO "udp">
 #<SERVICE :NAME "hems" :ALIASES NIL :PORT 151 :PROTO "tcp">
 #<SERVICE :NAME "hems" :ALIASES NIL :PORT 151 :PROTO "udp">
 #<SERVICE :NAME "bftp" :ALIASES NIL :PORT 152 :PROTO "tcp">
 #<SERVICE :NAME "bftp" :ALIASES NIL :PORT 152 :PROTO "udp">
 #<SERVICE :NAME "sgmp" :ALIASES NIL :PORT 153 :PROTO "tcp">
 #<SERVICE :NAME "sgmp" :ALIASES NIL :PORT 153 :PROTO "udp">
 #<SERVICE :NAME "netsc-prod" :ALIASES NIL :PORT 154 :PROTO "tcp">
 #<SERVICE :NAME "netsc-prod" :ALIASES NIL :PORT 154 :PROTO "udp">
 #<SERVICE :NAME "netsc-dev" :ALIASES NIL :PORT 155 :PROTO "tcp">
 #<SERVICE :NAME "netsc-dev" :ALIASES NIL :PORT 155 :PROTO "udp">
 #<SERVICE :NAME "sqlsrv" :ALIASES NIL :PORT 156 :PROTO "tcp">
 #<SERVICE :NAME "sqlsrv" :ALIASES NIL :PORT 156 :PROTO "udp">
 #<SERVICE :NAME "knet-cmp" :ALIASES NIL :PORT 157 :PROTO "tcp">
 #<SERVICE :NAME "knet-cmp" :ALIASES NIL :PORT 157 :PROTO "udp">
 #<SERVICE :NAME "pcmail-srv" :ALIASES NIL :PORT 158 :PROTO "tcp">
 #<SERVICE :NAME "pcmail-srv" :ALIASES NIL :PORT 158 :PROTO "udp">
 #<SERVICE :NAME "nss-routing" :ALIASES NIL :PORT 159 :PROTO "tcp">
 #<SERVICE :NAME "nss-routing" :ALIASES NIL :PORT 159 :PROTO "udp">
 #<SERVICE :NAME "sgmp-traps" :ALIASES NIL :PORT 160 :PROTO "tcp">
 #<SERVICE :NAME "sgmp-traps" :ALIASES NIL :PORT 160 :PROTO "udp">
 #<SERVICE :NAME "xns-courier" :ALIASES NIL :PORT 165 :PROTO "tcp">
 #<SERVICE :NAME "xns-courier" :ALIASES NIL :PORT 165 :PROTO "udp">
 #<SERVICE :NAME "s-net" :ALIASES NIL :PORT 166 :PROTO "tcp">
 #<SERVICE :NAME "s-net" :ALIASES NIL :PORT 166 :PROTO "udp">
 #<SERVICE :NAME "namp" :ALIASES NIL :PORT 167 :PROTO "tcp">
 #<SERVICE :NAME "namp" :ALIASES NIL :PORT 167 :PROTO "udp">
 #<SERVICE :NAME "rsvd" :ALIASES NIL :PORT 168 :PROTO "tcp">
 #<SERVICE :NAME "rsvd" :ALIASES NIL :PORT 168 :PROTO "udp">
 #<SERVICE :NAME "send" :ALIASES NIL :PORT 169 :PROTO "tcp">
 #<SERVICE :NAME "send" :ALIASES NIL :PORT 169 :PROTO "udp">
 #<SERVICE :NAME "print-srv" :ALIASES NIL :PORT 170 :PROTO "tcp">
 #<SERVICE :NAME "print-srv" :ALIASES NIL :PORT 170 :PROTO "udp">
 #<SERVICE :NAME "multiplex" :ALIASES NIL :PORT 171 :PROTO "tcp">
 #<SERVICE :NAME "multiplex" :ALIASES NIL :PORT 171 :PROTO "udp">
 #<SERVICE :NAME "cl/1" :ALIASES ("cl-1") :PORT 172 :PROTO "tcp">
 #<SERVICE :NAME "cl/1" :ALIASES ("cl-1") :PORT 172 :PROTO "udp">
 #<SERVICE :NAME "xyplex-mux" :ALIASES NIL :PORT 173 :PROTO "tcp">
 #<SERVICE :NAME "xyplex-mux" :ALIASES NIL :PORT 173 :PROTO "udp">
 #<SERVICE :NAME "vmnet" :ALIASES NIL :PORT 175 :PROTO "tcp">
 #<SERVICE :NAME "vmnet" :ALIASES NIL :PORT 175 :PROTO "udp">
 #<SERVICE :NAME "genrad-mux" :ALIASES NIL :PORT 176 :PROTO "tcp">
 #<SERVICE :NAME "genrad-mux" :ALIASES NIL :PORT 176 :PROTO "udp">
 #<SERVICE :NAME "ris" :ALIASES NIL :PORT 180 :PROTO "tcp">
 #<SERVICE :NAME "ris" :ALIASES NIL :PORT 180 :PROTO "udp">
 #<SERVICE :NAME "unify" :ALIASES NIL :PORT 181 :PROTO "tcp">
 #<SERVICE :NAME "unify" :ALIASES NIL :PORT 181 :PROTO "udp">
 #<SERVICE :NAME "audit" :ALIASES NIL :PORT 182 :PROTO "tcp">
 #<SERVICE :NAME "audit" :ALIASES NIL :PORT 182 :PROTO "udp">
 #<SERVICE :NAME "ocbinder" :ALIASES NIL :PORT 183 :PROTO "tcp">
 #<SERVICE :NAME "ocbinder" :ALIASES NIL :PORT 183 :PROTO "udp">
 #<SERVICE :NAME "ocserver" :ALIASES NIL :PORT 184 :PROTO "tcp">
 #<SERVICE :NAME "ocserver" :ALIASES NIL :PORT 184 :PROTO "udp">
 #<SERVICE :NAME "remote-kis" :ALIASES NIL :PORT 185 :PROTO "tcp">
 #<SERVICE :NAME "remote-kis" :ALIASES NIL :PORT 185 :PROTO "udp">
 #<SERVICE :NAME "kis" :ALIASES NIL :PORT 186 :PROTO "tcp">
 #<SERVICE :NAME "kis" :ALIASES NIL :PORT 186 :PROTO "udp">
 #<SERVICE :NAME "aci" :ALIASES NIL :PORT 187 :PROTO "tcp">
 #<SERVICE :NAME "aci" :ALIASES NIL :PORT 187 :PROTO "udp">
 #<SERVICE :NAME "mumps" :ALIASES NIL :PORT 188 :PROTO "tcp">
 #<SERVICE :NAME "mumps" :ALIASES NIL :PORT 188 :PROTO "udp">
 #<SERVICE :NAME "qft" :ALIASES NIL :PORT 189 :PROTO "tcp">
 #<SERVICE :NAME "qft" :ALIASES NIL :PORT 189 :PROTO "udp">
 #<SERVICE :NAME "gacp" :ALIASES NIL :PORT 190 :PROTO "tcp">
 #<SERVICE :NAME "gacp" :ALIASES NIL :PORT 190 :PROTO "udp">
 #<SERVICE :NAME "osu-nms" :ALIASES NIL :PORT 192 :PROTO "tcp">
 #<SERVICE :NAME "osu-nms" :ALIASES NIL :PORT 192 :PROTO "udp">
 #<SERVICE :NAME "srmp" :ALIASES NIL :PORT 193 :PROTO "tcp">
 #<SERVICE :NAME "srmp" :ALIASES NIL :PORT 193 :PROTO "udp">
 #<SERVICE :NAME "dn6-nlm-aud" :ALIASES NIL :PORT 195 :PROTO "tcp">
 #<SERVICE :NAME "dn6-nlm-aud" :ALIASES NIL :PORT 195 :PROTO "udp">
 #<SERVICE :NAME "dn6-smm-red" :ALIASES NIL :PORT 196 :PROTO "tcp">
 #<SERVICE :NAME "dn6-smm-red" :ALIASES NIL :PORT 196 :PROTO "udp">
 #<SERVICE :NAME "dls-mon" :ALIASES NIL :PORT 198 :PROTO "tcp">
 #<SERVICE :NAME "dls-mon" :ALIASES NIL :PORT 198 :PROTO "udp">
 #<SERVICE :NAME "src" :ALIASES NIL :PORT 200 :PROTO "tcp">
 #<SERVICE :NAME "src" :ALIASES NIL :PORT 200 :PROTO "udp">
 #<SERVICE :NAME "at-3" :ALIASES NIL :PORT 203 :PROTO "tcp">
 #<SERVICE :NAME "at-3" :ALIASES NIL :PORT 203 :PROTO "udp">
 #<SERVICE :NAME "at-5" :ALIASES NIL :PORT 205 :PROTO "tcp">
 #<SERVICE :NAME "at-5" :ALIASES NIL :PORT 205 :PROTO "udp">
 #<SERVICE :NAME "at-7" :ALIASES NIL :PORT 207 :PROTO "tcp">
 #<SERVICE :NAME "at-7" :ALIASES NIL :PORT 207 :PROTO "udp">
 #<SERVICE :NAME "at-8" :ALIASES NIL :PORT 208 :PROTO "tcp">
 #<SERVICE :NAME "at-8" :ALIASES NIL :PORT 208 :PROTO "udp">
 #<SERVICE :NAME "914c/g" :ALIASES ("914c-g") :PORT 211 :PROTO "tcp">
 #<SERVICE :NAME "914c/g" :ALIASES ("914c-g") :PORT 211 :PROTO "udp">
 #<SERVICE :NAME "anet" :ALIASES NIL :PORT 212 :PROTO "tcp">
 #<SERVICE :NAME "anet" :ALIASES NIL :PORT 212 :PROTO "udp">
 #<SERVICE :NAME "vmpwscs" :ALIASES NIL :PORT 214 :PROTO "tcp">
 #<SERVICE :NAME "vmpwscs" :ALIASES NIL :PORT 214 :PROTO "udp">
 #<SERVICE :NAME "softpc" :ALIASES NIL :PORT 215 :PROTO "tcp">
 #<SERVICE :NAME "softpc" :ALIASES NIL :PORT 215 :PROTO "udp">
 #<SERVICE :NAME "CAIlic" :ALIASES NIL :PORT 216 :PROTO "tcp">
 #<SERVICE :NAME "CAIlic" :ALIASES NIL :PORT 216 :PROTO "udp">
 #<SERVICE :NAME "dbase" :ALIASES NIL :PORT 217 :PROTO "tcp">
 #<SERVICE :NAME "dbase" :ALIASES NIL :PORT 217 :PROTO "udp">
 #<SERVICE :NAME "mpp" :ALIASES NIL :PORT 218 :PROTO "tcp">
 #<SERVICE :NAME "mpp" :ALIASES NIL :PORT 218 :PROTO "udp">
 #<SERVICE :NAME "uarps" :ALIASES NIL :PORT 219 :PROTO "tcp">
 #<SERVICE :NAME "uarps" :ALIASES NIL :PORT 219 :PROTO "udp">
 #<SERVICE :NAME "fln-spx" :ALIASES NIL :PORT 221 :PROTO "tcp">
 #<SERVICE :NAME "fln-spx" :ALIASES NIL :PORT 221 :PROTO "udp">
 #<SERVICE :NAME "rsh-spx" :ALIASES NIL :PORT 222 :PROTO "tcp">
 #<SERVICE :NAME "rsh-spx" :ALIASES NIL :PORT 222 :PROTO "udp">
 #<SERVICE :NAME "cdc" :ALIASES NIL :PORT 223 :PROTO "tcp">
 #<SERVICE :NAME "cdc" :ALIASES NIL :PORT 223 :PROTO "udp">
 #<SERVICE :NAME "masqdialer" :ALIASES NIL :PORT 224 :PROTO "tcp">
 #<SERVICE :NAME "masqdialer" :ALIASES NIL :PORT 224 :PROTO "udp">
 #<SERVICE :NAME "direct" :ALIASES NIL :PORT 242 :PROTO "tcp">
 #<SERVICE :NAME "direct" :ALIASES NIL :PORT 242 :PROTO "udp">
 #<SERVICE :NAME "sur-meas" :ALIASES NIL :PORT 243 :PROTO "tcp">
 #<SERVICE :NAME "sur-meas" :ALIASES NIL :PORT 243 :PROTO "udp">
 #<SERVICE :NAME "inbusiness" :ALIASES NIL :PORT 244 :PROTO "tcp">
 #<SERVICE :NAME "inbusiness" :ALIASES NIL :PORT 244 :PROTO "udp">
 #<SERVICE :NAME "dsp3270" :ALIASES NIL :PORT 246 :PROTO "tcp">
 #<SERVICE :NAME "dsp3270" :ALIASES NIL :PORT 246 :PROTO "udp">
 #<SERVICE :NAME "subntbcst_tftp" :ALIASES ("subntbcst-tftp") :PORT 247
   :PROTO "tcp">
 #<SERVICE :NAME "subntbcst_tftp" :ALIASES ("subntbcst-tftp") :PORT 247
   :PROTO "udp">
 #<SERVICE :NAME "bhfhs" :ALIASES NIL :PORT 248 :PROTO "tcp">
 #<SERVICE :NAME "bhfhs" :ALIASES NIL :PORT 248 :PROTO "udp">
 #<SERVICE :NAME "set" :ALIASES NIL :PORT 257 :PROTO "tcp">
 #<SERVICE :NAME "set" :ALIASES NIL :PORT 257 :PROTO "udp">
 #<SERVICE :NAME "esro-gen" :ALIASES NIL :PORT 259 :PROTO "tcp">
 #<SERVICE :NAME "esro-gen" :ALIASES NIL :PORT 259 :PROTO "udp">
 #<SERVICE :NAME "openport" :ALIASES NIL :PORT 260 :PROTO "tcp">
 #<SERVICE :NAME "openport" :ALIASES NIL :PORT 260 :PROTO "udp">
 #<SERVICE :NAME "nsiiops" :ALIASES NIL :PORT 261 :PROTO "tcp">
 #<SERVICE :NAME "nsiiops" :ALIASES NIL :PORT 261 :PROTO "udp">
 #<SERVICE :NAME "arcisdms" :ALIASES NIL :PORT 262 :PROTO "tcp">
 #<SERVICE :NAME "arcisdms" :ALIASES NIL :PORT 262 :PROTO "udp">
 #<SERVICE :NAME "hdap" :ALIASES NIL :PORT 263 :PROTO "tcp">
 #<SERVICE :NAME "hdap" :ALIASES NIL :PORT 263 :PROTO "udp">
 #<SERVICE :NAME "bgmp" :ALIASES NIL :PORT 264 :PROTO "tcp">
 #<SERVICE :NAME "bgmp" :ALIASES NIL :PORT 264 :PROTO "udp">
 #<SERVICE :NAME "x-bone-ctl" :ALIASES NIL :PORT 265 :PROTO "tcp">
 #<SERVICE :NAME "x-bone-ctl" :ALIASES NIL :PORT 265 :PROTO "udp">
 #<SERVICE :NAME "sst" :ALIASES NIL :PORT 266 :PROTO "tcp">
 #<SERVICE :NAME "sst" :ALIASES NIL :PORT 266 :PROTO "udp">
 #<SERVICE :NAME "td-service" :ALIASES NIL :PORT 267 :PROTO "tcp">
 #<SERVICE :NAME "td-service" :ALIASES NIL :PORT 267 :PROTO "udp">
 #<SERVICE :NAME "td-replica" :ALIASES NIL :PORT 268 :PROTO "tcp">
 #<SERVICE :NAME "td-replica" :ALIASES NIL :PORT 268 :PROTO "udp">
 #<SERVICE :NAME "manet" :ALIASES NIL :PORT 269 :PROTO "tcp">
 #<SERVICE :NAME "manet" :ALIASES NIL :PORT 269 :PROTO "udp">
 #<SERVICE :NAME "http-mgmt" :ALIASES NIL :PORT 280 :PROTO "tcp">
 #<SERVICE :NAME "http-mgmt" :ALIASES NIL :PORT 280 :PROTO "udp">
 #<SERVICE :NAME "personal-link" :ALIASES NIL :PORT 281 :PROTO "tcp">
 #<SERVICE :NAME "personal-link" :ALIASES NIL :PORT 281 :PROTO "udp">
 #<SERVICE :NAME "cableport-ax" :ALIASES NIL :PORT 282 :PROTO "tcp">
 #<SERVICE :NAME "cableport-ax" :ALIASES NIL :PORT 282 :PROTO "udp">
 #<SERVICE :NAME "rescap" :ALIASES NIL :PORT 283 :PROTO "tcp">
 #<SERVICE :NAME "rescap" :ALIASES NIL :PORT 283 :PROTO "udp">
 #<SERVICE :NAME "corerjd" :ALIASES NIL :PORT 284 :PROTO "tcp">
 #<SERVICE :NAME "corerjd" :ALIASES NIL :PORT 284 :PROTO "udp">
 #<SERVICE :NAME "k-block" :ALIASES NIL :PORT 287 :PROTO "tcp">
 #<SERVICE :NAME "k-block" :ALIASES NIL :PORT 287 :PROTO "udp">
 #<SERVICE :NAME "novastorbakcup" :ALIASES NIL :PORT 308 :PROTO "tcp">
 #<SERVICE :NAME "novastorbakcup" :ALIASES NIL :PORT 308 :PROTO "udp">
 #<SERVICE :NAME "entrusttime" :ALIASES NIL :PORT 309 :PROTO "tcp">
 #<SERVICE :NAME "entrusttime" :ALIASES NIL :PORT 309 :PROTO "udp">
 #<SERVICE :NAME "bhmds" :ALIASES NIL :PORT 310 :PROTO "tcp">
 #<SERVICE :NAME "bhmds" :ALIASES NIL :PORT 310 :PROTO "udp">
 #<SERVICE :NAME "asip-webadmin" :ALIASES NIL :PORT 311 :PROTO "tcp">
 #<SERVICE :NAME "asip-webadmin" :ALIASES NIL :PORT 311 :PROTO "udp">
 #<SERVICE :NAME "vslmp" :ALIASES NIL :PORT 312 :PROTO "tcp">
 #<SERVICE :NAME "vslmp" :ALIASES NIL :PORT 312 :PROTO "udp">
 #<SERVICE :NAME "magenta-logic" :ALIASES NIL :PORT 313 :PROTO "tcp">
 #<SERVICE :NAME "magenta-logic" :ALIASES NIL :PORT 313 :PROTO "udp">
 #<SERVICE :NAME "opalis-robot" :ALIASES NIL :PORT 314 :PROTO "tcp">
 #<SERVICE :NAME "opalis-robot" :ALIASES NIL :PORT 314 :PROTO "udp">
 #<SERVICE :NAME "dpsi" :ALIASES NIL :PORT 315 :PROTO "tcp">
 #<SERVICE :NAME "dpsi" :ALIASES NIL :PORT 315 :PROTO "udp">
 #<SERVICE :NAME "decauth" :ALIASES NIL :PORT 316 :PROTO "tcp">
 #<SERVICE :NAME "decauth" :ALIASES NIL :PORT 316 :PROTO "udp">
 #<SERVICE :NAME "zannet" :ALIASES NIL :PORT 317 :PROTO "tcp">
 #<SERVICE :NAME "zannet" :ALIASES NIL :PORT 317 :PROTO "udp">
 #<SERVICE :NAME "pkix-timestamp" :ALIASES NIL :PORT 318 :PROTO "tcp">
 #<SERVICE :NAME "pkix-timestamp" :ALIASES NIL :PORT 318 :PROTO "udp">
 #<SERVICE :NAME "ptp-event" :ALIASES NIL :PORT 319 :PROTO "tcp">
 #<SERVICE :NAME "ptp-event" :ALIASES NIL :PORT 319 :PROTO "udp">
 #<SERVICE :NAME "ptp-general" :ALIASES NIL :PORT 320 :PROTO "tcp">
 #<SERVICE :NAME "ptp-general" :ALIASES NIL :PORT 320 :PROTO "udp">
 #<SERVICE :NAME "rtsps" :ALIASES NIL :PORT 322 :PROTO "tcp">
 #<SERVICE :NAME "rtsps" :ALIASES NIL :PORT 322 :PROTO "udp">
 #<SERVICE :NAME "rpki-rtr" :ALIASES NIL :PORT 323 :PROTO "tcp">
 #<SERVICE :NAME "rpki-rtr-tls" :ALIASES NIL :PORT 324 :PROTO "tcp">
 #<SERVICE :NAME "texar" :ALIASES NIL :PORT 333 :PROTO "tcp">
 #<SERVICE :NAME "texar" :ALIASES NIL :PORT 333 :PROTO "udp">
 #<SERVICE :NAME "pdap" :ALIASES NIL :PORT 344 :PROTO "tcp">
 #<SERVICE :NAME "pdap" :ALIASES NIL :PORT 344 :PROTO "udp">
 #<SERVICE :NAME "pawserv" :ALIASES NIL :PORT 345 :PROTO "tcp">
 #<SERVICE :NAME "pawserv" :ALIASES NIL :PORT 345 :PROTO "udp">
 #<SERVICE :NAME "zserv" :ALIASES NIL :PORT 346 :PROTO "tcp">
 #<SERVICE :NAME "zserv" :ALIASES NIL :PORT 346 :PROTO "udp">
 #<SERVICE :NAME "csi-sgwp" :ALIASES NIL :PORT 348 :PROTO "tcp">
 #<SERVICE :NAME "csi-sgwp" :ALIASES NIL :PORT 348 :PROTO "udp">
 #<SERVICE :NAME "matip-type-a" :ALIASES NIL :PORT 350 :PROTO "tcp">
 #<SERVICE :NAME "matip-type-a" :ALIASES NIL :PORT 350 :PROTO "udp">
 #<SERVICE :NAME "matip-type-b" :ALIASES ("bhoetty") :PORT 351 :PROTO "tcp">
 #<SERVICE :NAME "matip-type-b" :ALIASES ("bhoetty") :PORT 351 :PROTO "udp">
 #<SERVICE :NAME "dtag-ste-sb" :ALIASES ("bhoedap4") :PORT 352 :PROTO "tcp">
 #<SERVICE :NAME "dtag-ste-sb" :ALIASES ("bhoedap4") :PORT 352 :PROTO "udp">
 #<SERVICE :NAME "ndsauth" :ALIASES NIL :PORT 353 :PROTO "tcp">
 #<SERVICE :NAME "ndsauth" :ALIASES NIL :PORT 353 :PROTO "udp">
 #<SERVICE :NAME "bh611" :ALIASES NIL :PORT 354 :PROTO "tcp">
 #<SERVICE :NAME "bh611" :ALIASES NIL :PORT 354 :PROTO "udp">
 #<SERVICE :NAME "datex-asn" :ALIASES NIL :PORT 355 :PROTO "tcp">
 #<SERVICE :NAME "datex-asn" :ALIASES NIL :PORT 355 :PROTO "udp">
 #<SERVICE :NAME "cloanto-net-1" :ALIASES NIL :PORT 356 :PROTO "tcp">
 #<SERVICE :NAME "cloanto-net-1" :ALIASES NIL :PORT 356 :PROTO "udp">
 #<SERVICE :NAME "bhevent" :ALIASES NIL :PORT 357 :PROTO "tcp">
 #<SERVICE :NAME "bhevent" :ALIASES NIL :PORT 357 :PROTO "udp">
 #<SERVICE :NAME "shrinkwrap" :ALIASES NIL :PORT 358 :PROTO "tcp">
 #<SERVICE :NAME "shrinkwrap" :ALIASES NIL :PORT 358 :PROTO "udp">
 #<SERVICE :NAME "nsrmp" :ALIASES NIL :PORT 359 :PROTO "tcp">
 #<SERVICE :NAME "nsrmp" :ALIASES NIL :PORT 359 :PROTO "udp">
 #<SERVICE :NAME "scoi2odialog" :ALIASES NIL :PORT 360 :PROTO "tcp">
 #<SERVICE :NAME "scoi2odialog" :ALIASES NIL :PORT 360 :PROTO "udp">
 #<SERVICE :NAME "semantix" :ALIASES NIL :PORT 361 :PROTO "tcp">
 #<SERVICE :NAME "semantix" :ALIASES NIL :PORT 361 :PROTO "udp">
 #<SERVICE :NAME "srssend" :ALIASES NIL :PORT 362 :PROTO "tcp">
 #<SERVICE :NAME "srssend" :ALIASES NIL :PORT 362 :PROTO "udp">
 #<SERVICE :NAME "aurora-cmgr" :ALIASES NIL :PORT 364 :PROTO "tcp">
 #<SERVICE :NAME "aurora-cmgr" :ALIASES NIL :PORT 364 :PROTO "udp">
 #<SERVICE :NAME "dtk" :ALIASES NIL :PORT 365 :PROTO "tcp">
 #<SERVICE :NAME "dtk" :ALIASES NIL :PORT 365 :PROTO "udp">
 #<SERVICE :NAME "mortgageware" :ALIASES NIL :PORT 367 :PROTO "tcp">
 #<SERVICE :NAME "mortgageware" :ALIASES NIL :PORT 367 :PROTO "udp">
 #<SERVICE :NAME "qbikgdp" :ALIASES NIL :PORT 368 :PROTO "tcp">
 #<SERVICE :NAME "qbikgdp" :ALIASES NIL :PORT 368 :PROTO "udp">
 #<SERVICE :NAME "clearcase" :ALIASES NIL :PORT 371 :PROTO "tcp">
 #<SERVICE :NAME "clearcase" :ALIASES NIL :PORT 371 :PROTO "udp">
 #<SERVICE :NAME "legent-1" :ALIASES NIL :PORT 373 :PROTO "tcp">
 #<SERVICE :NAME "legent-1" :ALIASES NIL :PORT 373 :PROTO "udp">
 #<SERVICE :NAME "legent-2" :ALIASES NIL :PORT 374 :PROTO "tcp">
 #<SERVICE :NAME "legent-2" :ALIASES NIL :PORT 374 :PROTO "udp">
 #<SERVICE :NAME "hassle" :ALIASES NIL :PORT 375 :PROTO "tcp">
 #<SERVICE :NAME "hassle" :ALIASES NIL :PORT 375 :PROTO "udp">
 #<SERVICE :NAME "nip" :ALIASES NIL :PORT 376 :PROTO "tcp">
 #<SERVICE :NAME "nip" :ALIASES NIL :PORT 376 :PROTO "udp">
 #<SERVICE :NAME "tnETOS" :ALIASES NIL :PORT 377 :PROTO "tcp">
 #<SERVICE :NAME "tnETOS" :ALIASES NIL :PORT 377 :PROTO "udp">
 #<SERVICE :NAME "dsETOS" :ALIASES NIL :PORT 378 :PROTO "tcp">
 #<SERVICE :NAME "dsETOS" :ALIASES NIL :PORT 378 :PROTO "udp">
 #<SERVICE :NAME "is99c" :ALIASES NIL :PORT 379 :PROTO "tcp">
 #<SERVICE :NAME "is99c" :ALIASES NIL :PORT 379 :PROTO "udp">
 #<SERVICE :NAME "is99s" :ALIASES NIL :PORT 380 :PROTO "tcp">
 #<SERVICE :NAME "is99s" :ALIASES NIL :PORT 380 :PROTO "udp">
 #<SERVICE :NAME "hp-collector" :ALIASES NIL :PORT 381 :PROTO "tcp">
 #<SERVICE :NAME "hp-collector" :ALIASES NIL :PORT 381 :PROTO "udp">
 #<SERVICE :NAME "hp-managed-node" :ALIASES NIL :PORT 382 :PROTO "tcp">
 #<SERVICE :NAME "hp-managed-node" :ALIASES NIL :PORT 382 :PROTO "udp">
 #<SERVICE :NAME "hp-alarm-mgr" :ALIASES NIL :PORT 383 :PROTO "tcp">
 #<SERVICE :NAME "hp-alarm-mgr" :ALIASES NIL :PORT 383 :PROTO "udp">
 #<SERVICE :NAME "arns" :ALIASES NIL :PORT 384 :PROTO "tcp">
 #<SERVICE :NAME "arns" :ALIASES NIL :PORT 384 :PROTO "udp">
 #<SERVICE :NAME "ibm-app" :ALIASES NIL :PORT 385 :PROTO "tcp">
 #<SERVICE :NAME "ibm-app" :ALIASES NIL :PORT 385 :PROTO "udp">
 #<SERVICE :NAME "asa" :ALIASES NIL :PORT 386 :PROTO "tcp">
 #<SERVICE :NAME "asa" :ALIASES NIL :PORT 386 :PROTO "udp">
 #<SERVICE :NAME "aurp" :ALIASES NIL :PORT 387 :PROTO "tcp">
 #<SERVICE :NAME "aurp" :ALIASES NIL :PORT 387 :PROTO "udp">
 #<SERVICE :NAME "unidata-ldm" :ALIASES NIL :PORT 388 :PROTO "tcp">
 #<SERVICE :NAME "unidata-ldm" :ALIASES NIL :PORT 388 :PROTO "udp">
 #<SERVICE :NAME "uis" :ALIASES NIL :PORT 390 :PROTO "tcp">
 #<SERVICE :NAME "uis" :ALIASES NIL :PORT 390 :PROTO "udp">
 #<SERVICE :NAME "synotics-relay" :ALIASES NIL :PORT 391 :PROTO "tcp">
 #<SERVICE :NAME "synotics-relay" :ALIASES NIL :PORT 391 :PROTO "udp">
 #<SERVICE :NAME "synotics-broker" :ALIASES NIL :PORT 392 :PROTO "tcp">
 #<SERVICE :NAME "synotics-broker" :ALIASES NIL :PORT 392 :PROTO "udp">
 #<SERVICE :NAME "meta5" :ALIASES NIL :PORT 393 :PROTO "tcp">
 #<SERVICE :NAME "meta5" :ALIASES NIL :PORT 393 :PROTO "udp">
 #<SERVICE :NAME "embl-ndt" :ALIASES NIL :PORT 394 :PROTO "tcp">
 #<SERVICE :NAME "embl-ndt" :ALIASES NIL :PORT 394 :PROTO "udp">
 #<SERVICE :NAME "netcp" :ALIASES NIL :PORT 395 :PROTO "tcp">
 #<SERVICE :NAME "netcp" :ALIASES NIL :PORT 395 :PROTO "udp">
 #<SERVICE :NAME "netware-ip" :ALIASES NIL :PORT 396 :PROTO "tcp">
 #<SERVICE :NAME "netware-ip" :ALIASES NIL :PORT 396 :PROTO "udp">
 #<SERVICE :NAME "mptn" :ALIASES NIL :PORT 397 :PROTO "tcp">
 #<SERVICE :NAME "mptn" :ALIASES NIL :PORT 397 :PROTO "udp">
 #<SERVICE :NAME "kryptolan" :ALIASES NIL :PORT 398 :PROTO "tcp">
 #<SERVICE :NAME "kryptolan" :ALIASES NIL :PORT 398 :PROTO "udp">
 #<SERVICE :NAME "iso-tsap-c2" :ALIASES NIL :PORT 399 :PROTO "tcp">
 #<SERVICE :NAME "iso-tsap-c2" :ALIASES NIL :PORT 399 :PROTO "udp">
 #<SERVICE :NAME "ups" :ALIASES NIL :PORT 401 :PROTO "tcp">
 #<SERVICE :NAME "ups" :ALIASES NIL :PORT 401 :PROTO "udp">
 #<SERVICE :NAME "genie" :ALIASES NIL :PORT 402 :PROTO "tcp">
 #<SERVICE :NAME "genie" :ALIASES NIL :PORT 402 :PROTO "udp">
 #<SERVICE :NAME "decap" :ALIASES NIL :PORT 403 :PROTO "tcp">
 #<SERVICE :NAME "decap" :ALIASES NIL :PORT 403 :PROTO "udp">
 #<SERVICE :NAME "nced" :ALIASES NIL :PORT 404 :PROTO "tcp">
 #<SERVICE :NAME "nced" :ALIASES NIL :PORT 404 :PROTO "udp">
 #<SERVICE :NAME "ncld" :ALIASES NIL :PORT 405 :PROTO "tcp">
 #<SERVICE :NAME "ncld" :ALIASES NIL :PORT 405 :PROTO "udp">
 #<SERVICE :NAME "imsp" :ALIASES NIL :PORT 406 :PROTO "tcp">
 #<SERVICE :NAME "imsp" :ALIASES NIL :PORT 406 :PROTO "udp">
 #<SERVICE :NAME "timbuktu" :ALIASES NIL :PORT 407 :PROTO "tcp">
 #<SERVICE :NAME "timbuktu" :ALIASES NIL :PORT 407 :PROTO "udp">
 #<SERVICE :NAME "prm-sm" :ALIASES NIL :PORT 408 :PROTO "tcp">
 #<SERVICE :NAME "prm-sm" :ALIASES NIL :PORT 408 :PROTO "udp">
 #<SERVICE :NAME "prm-nm" :ALIASES NIL :PORT 409 :PROTO "tcp">
 #<SERVICE :NAME "prm-nm" :ALIASES NIL :PORT 409 :PROTO "udp">
 #<SERVICE :NAME "decladebug" :ALIASES NIL :PORT 410 :PROTO "tcp">
 #<SERVICE :NAME "decladebug" :ALIASES NIL :PORT 410 :PROTO "udp">
 #<SERVICE :NAME "rmt" :ALIASES NIL :PORT 411 :PROTO "tcp">
 #<SERVICE :NAME "rmt" :ALIASES NIL :PORT 411 :PROTO "udp">
 #<SERVICE :NAME "synoptics-trap" :ALIASES NIL :PORT 412 :PROTO "tcp">
 #<SERVICE :NAME "synoptics-trap" :ALIASES NIL :PORT 412 :PROTO "udp">
 #<SERVICE :NAME "smsp" :ALIASES NIL :PORT 413 :PROTO "tcp">
 #<SERVICE :NAME "smsp" :ALIASES NIL :PORT 413 :PROTO "udp">
 #<SERVICE :NAME "infoseek" :ALIASES NIL :PORT 414 :PROTO "tcp">
 #<SERVICE :NAME "infoseek" :ALIASES NIL :PORT 414 :PROTO "udp">
 #<SERVICE :NAME "bnet" :ALIASES NIL :PORT 415 :PROTO "tcp">
 #<SERVICE :NAME "bnet" :ALIASES NIL :PORT 415 :PROTO "udp">
 #<SERVICE :NAME "silverplatter" :ALIASES NIL :PORT 416 :PROTO "tcp">
 #<SERVICE :NAME "silverplatter" :ALIASES NIL :PORT 416 :PROTO "udp">
 #<SERVICE :NAME "onmux" :ALIASES NIL :PORT 417 :PROTO "tcp">
 #<SERVICE :NAME "onmux" :ALIASES NIL :PORT 417 :PROTO "udp">
 #<SERVICE :NAME "hyper-g" :ALIASES NIL :PORT 418 :PROTO "tcp">
 #<SERVICE :NAME "hyper-g" :ALIASES NIL :PORT 418 :PROTO "udp">
 #<SERVICE :NAME "ariel1" :ALIASES NIL :PORT 419 :PROTO "tcp">
 #<SERVICE :NAME "ariel1" :ALIASES NIL :PORT 419 :PROTO "udp">
 #<SERVICE :NAME "smpte" :ALIASES NIL :PORT 420 :PROTO "tcp">
 #<SERVICE :NAME "smpte" :ALIASES NIL :PORT 420 :PROTO "udp">
 #<SERVICE :NAME "ariel2" :ALIASES NIL :PORT 421 :PROTO "tcp">
 #<SERVICE :NAME "ariel2" :ALIASES NIL :PORT 421 :PROTO "udp">
 #<SERVICE :NAME "ariel3" :ALIASES NIL :PORT 422 :PROTO "tcp">
 #<SERVICE :NAME "ariel3" :ALIASES NIL :PORT 422 :PROTO "udp">
 #<SERVICE :NAME "opc-job-start" :ALIASES NIL :PORT 423 :PROTO "tcp">
 #<SERVICE :NAME "opc-job-start" :ALIASES NIL :PORT 423 :PROTO "udp">
 #<SERVICE :NAME "opc-job-track" :ALIASES NIL :PORT 424 :PROTO "tcp">
 #<SERVICE :NAME "opc-job-track" :ALIASES NIL :PORT 424 :PROTO "udp">
 #<SERVICE :NAME "icad-el" :ALIASES NIL :PORT 425 :PROTO "tcp">
 #<SERVICE :NAME "icad-el" :ALIASES NIL :PORT 425 :PROTO "udp">
 #<SERVICE :NAME "smartsdp" :ALIASES NIL :PORT 426 :PROTO "tcp">
 #<SERVICE :NAME "smartsdp" :ALIASES NIL :PORT 426 :PROTO "udp">
 #<SERVICE :NAME "ocs_cmu" :ALIASES ("ocs-cmu") :PORT 428 :PROTO "tcp">
 #<SERVICE :NAME "ocs_cmu" :ALIASES ("ocs-cmu") :PORT 428 :PROTO "udp">
 #<SERVICE :NAME "ocs_amu" :ALIASES ("ocs-amu") :PORT 429 :PROTO "tcp">
 #<SERVICE :NAME "ocs_amu" :ALIASES ("ocs-amu") :PORT 429 :PROTO "udp">
 #<SERVICE :NAME "utmpsd" :ALIASES NIL :PORT 430 :PROTO "tcp">
 #<SERVICE :NAME "utmpsd" :ALIASES NIL :PORT 430 :PROTO "udp">
 #<SERVICE :NAME "utmpcd" :ALIASES NIL :PORT 431 :PROTO "tcp">
 #<SERVICE :NAME "utmpcd" :ALIASES NIL :PORT 431 :PROTO "udp">
 #<SERVICE :NAME "iasd" :ALIASES NIL :PORT 432 :PROTO "tcp">
 #<SERVICE :NAME "iasd" :ALIASES NIL :PORT 432 :PROTO "udp">
 #<SERVICE :NAME "nnsp" :ALIASES NIL :PORT 433 :PROTO "tcp">
 #<SERVICE :NAME "nnsp" :ALIASES NIL :PORT 433 :PROTO "udp">
 #<SERVICE :NAME "dna-cml" :ALIASES NIL :PORT 436 :PROTO "tcp">
 #<SERVICE :NAME "dna-cml" :ALIASES NIL :PORT 436 :PROTO "udp">
 #<SERVICE :NAME "comscm" :ALIASES NIL :PORT 437 :PROTO "tcp">
 #<SERVICE :NAME "comscm" :ALIASES NIL :PORT 437 :PROTO "udp">
 #<SERVICE :NAME "dsfgw" :ALIASES NIL :PORT 438 :PROTO "tcp">
 #<SERVICE :NAME "dsfgw" :ALIASES NIL :PORT 438 :PROTO "udp">
 #<SERVICE :NAME "dasp" :ALIASES NIL :PORT 439 :PROTO "tcp">
 #<SERVICE :NAME "dasp" :ALIASES NIL :PORT 439 :PROTO "udp">
 #<SERVICE :NAME "sgcp" :ALIASES NIL :PORT 440 :PROTO "tcp">
 #<SERVICE :NAME "sgcp" :ALIASES NIL :PORT 440 :PROTO "udp">
 #<SERVICE :NAME "decvms-sysmgt" :ALIASES NIL :PORT 441 :PROTO "tcp">
 #<SERVICE :NAME "decvms-sysmgt" :ALIASES NIL :PORT 441 :PROTO "udp">
 #<SERVICE :NAME "cvc_hostd" :ALIASES ("cvc-hostd") :PORT 442 :PROTO "tcp">
 #<SERVICE :NAME "cvc_hostd" :ALIASES ("cvc-hostd") :PORT 442 :PROTO "udp">
 #<SERVICE :NAME "ddm-rdb" :ALIASES NIL :PORT 446 :PROTO "tcp">
 #<SERVICE :NAME "ddm-rdb" :ALIASES NIL :PORT 446 :PROTO "udp">
 #<SERVICE :NAME "ddm-dfm" :ALIASES NIL :PORT 447 :PROTO "tcp">
 #<SERVICE :NAME "ddm-dfm" :ALIASES NIL :PORT 447 :PROTO "udp">
 #<SERVICE :NAME "ddm-ssl" :ALIASES NIL :PORT 448 :PROTO "tcp">
 #<SERVICE :NAME "ddm-ssl" :ALIASES NIL :PORT 448 :PROTO "udp">
 #<SERVICE :NAME "as-servermap" :ALIASES NIL :PORT 449 :PROTO "tcp">
 #<SERVICE :NAME "as-servermap" :ALIASES NIL :PORT 449 :PROTO "udp">
 #<SERVICE :NAME "tserver" :ALIASES NIL :PORT 450 :PROTO "tcp">
 #<SERVICE :NAME "tserver" :ALIASES NIL :PORT 450 :PROTO "udp">
 #<SERVICE :NAME "sfs-smp-net" :ALIASES NIL :PORT 451 :PROTO "tcp">
 #<SERVICE :NAME "sfs-smp-net" :ALIASES NIL :PORT 451 :PROTO "udp">
 #<SERVICE :NAME "sfs-config" :ALIASES NIL :PORT 452 :PROTO "tcp">
 #<SERVICE :NAME "sfs-config" :ALIASES NIL :PORT 452 :PROTO "udp">
 #<SERVICE :NAME "macon-tcp" :ALIASES NIL :PORT 456 :PROTO "tcp">
 #<SERVICE :NAME "macon-udp" :ALIASES NIL :PORT 456 :PROTO "udp">
 #<SERVICE :NAME "scohelp" :ALIASES NIL :PORT 457 :PROTO "tcp">
 #<SERVICE :NAME "scohelp" :ALIASES NIL :PORT 457 :PROTO "udp">
 #<SERVICE :NAME "appleqtc" :ALIASES NIL :PORT 458 :PROTO "tcp">
 #<SERVICE :NAME "appleqtc" :ALIASES NIL :PORT 458 :PROTO "udp">
 #<SERVICE :NAME "ampr-rcmd" :ALIASES NIL :PORT 459 :PROTO "tcp">
 #<SERVICE :NAME "ampr-rcmd" :ALIASES NIL :PORT 459 :PROTO "udp">
 #<SERVICE :NAME "skronk" :ALIASES NIL :PORT 460 :PROTO "tcp">
 #<SERVICE :NAME "skronk" :ALIASES NIL :PORT 460 :PROTO "udp">
 #<SERVICE :NAME "datasurfsrv" :ALIASES NIL :PORT 461 :PROTO "tcp">
 #<SERVICE :NAME "datasurfsrv" :ALIASES NIL :PORT 461 :PROTO "udp">
 #<SERVICE :NAME "datasurfsrvsec" :ALIASES NIL :PORT 462 :PROTO "tcp">
 #<SERVICE :NAME "datasurfsrvsec" :ALIASES NIL :PORT 462 :PROTO "udp">
 #<SERVICE :NAME "alpes" :ALIASES NIL :PORT 463 :PROTO "tcp">
 #<SERVICE :NAME "alpes" :ALIASES NIL :PORT 463 :PROTO "udp">
 #<SERVICE :NAME "urd" :ALIASES ("smtps") :PORT 465 :PROTO "tcp">
 #<SERVICE :NAME "igmpv3lite" :ALIASES NIL :PORT 465 :PROTO "udp">
 #<SERVICE :NAME "digital-vrc" :ALIASES NIL :PORT 466 :PROTO "tcp">
 #<SERVICE :NAME "digital-vrc" :ALIASES NIL :PORT 466 :PROTO "udp">
 #<SERVICE :NAME "mylex-mapd" :ALIASES NIL :PORT 467 :PROTO "tcp">
 #<SERVICE :NAME "mylex-mapd" :ALIASES NIL :PORT 467 :PROTO "udp">
 #<SERVICE :NAME "rcp" :ALIASES NIL :PORT 469 :PROTO "tcp">
 #<SERVICE :NAME "rcp" :ALIASES NIL :PORT 469 :PROTO "udp">
 #<SERVICE :NAME "scx-proxy" :ALIASES NIL :PORT 470 :PROTO "tcp">
 #<SERVICE :NAME "scx-proxy" :ALIASES NIL :PORT 470 :PROTO "udp">
 #<SERVICE :NAME "mondex" :ALIASES NIL :PORT 471 :PROTO "tcp">
 #<SERVICE :NAME "mondex" :ALIASES NIL :PORT 471 :PROTO "udp">
 #<SERVICE :NAME "ljk-login" :ALIASES NIL :PORT 472 :PROTO "tcp">
 #<SERVICE :NAME "ljk-login" :ALIASES NIL :PORT 472 :PROTO "udp">
 #<SERVICE :NAME "hybrid-pop" :ALIASES NIL :PORT 473 :PROTO "tcp">
 #<SERVICE :NAME "hybrid-pop" :ALIASES NIL :PORT 473 :PROTO "udp">
 #<SERVICE :NAME "tn-tl-w1" :ALIASES NIL :PORT 474 :PROTO "tcp">
 #<SERVICE :NAME "tn-tl-w2" :ALIASES NIL :PORT 474 :PROTO "udp">
 #<SERVICE :NAME "tcpnethaspsrv" :ALIASES NIL :PORT 475 :PROTO "tcp">
 #<SERVICE :NAME "tcpnethaspsrv" :ALIASES NIL :PORT 475 :PROTO "udp">
 #<SERVICE :NAME "tn-tl-fd1" :ALIASES NIL :PORT 476 :PROTO "tcp">
 #<SERVICE :NAME "tn-tl-fd1" :ALIASES NIL :PORT 476 :PROTO "udp">
 #<SERVICE :NAME "ss7ns" :ALIASES NIL :PORT 477 :PROTO "tcp">
 #<SERVICE :NAME "ss7ns" :ALIASES NIL :PORT 477 :PROTO "udp">
 #<SERVICE :NAME "spsc" :ALIASES NIL :PORT 478 :PROTO "tcp">
 #<SERVICE :NAME "spsc" :ALIASES NIL :PORT 478 :PROTO "udp">
 #<SERVICE :NAME "iafserver" :ALIASES NIL :PORT 479 :PROTO "tcp">
 #<SERVICE :NAME "iafserver" :ALIASES NIL :PORT 479 :PROTO "udp">
 #<SERVICE :NAME "iafdbase" :ALIASES NIL :PORT 480 :PROTO "tcp">
 #<SERVICE :NAME "iafdbase" :ALIASES NIL :PORT 480 :PROTO "udp">
 #<SERVICE :NAME "ph" :ALIASES NIL :PORT 481 :PROTO "tcp">
 #<SERVICE :NAME "ph" :ALIASES NIL :PORT 481 :PROTO "udp">
 #<SERVICE :NAME "bgs-nsi" :ALIASES NIL :PORT 482 :PROTO "tcp">
 #<SERVICE :NAME "bgs-nsi" :ALIASES NIL :PORT 482 :PROTO "udp">
 #<SERVICE :NAME "ulpnet" :ALIASES NIL :PORT 483 :PROTO "tcp">
 #<SERVICE :NAME "ulpnet" :ALIASES NIL :PORT 483 :PROTO "udp">
 #<SERVICE :NAME "integra-sme" :ALIASES NIL :PORT 484 :PROTO "tcp">
 #<SERVICE :NAME "integra-sme" :ALIASES NIL :PORT 484 :PROTO "udp">
 #<SERVICE :NAME "powerburst" :ALIASES NIL :PORT 485 :PROTO "tcp">
 #<SERVICE :NAME "powerburst" :ALIASES NIL :PORT 485 :PROTO "udp">
 #<SERVICE :NAME "avian" :ALIASES NIL :PORT 486 :PROTO "tcp">
 #<SERVICE :NAME "avian" :ALIASES NIL :PORT 486 :PROTO "udp">
 #<SERVICE :NAME "nest-protocol" :ALIASES NIL :PORT 489 :PROTO "tcp">
 #<SERVICE :NAME "nest-protocol" :ALIASES NIL :PORT 489 :PROTO "udp">
 #<SERVICE :NAME "micom-pfs" :ALIASES NIL :PORT 490 :PROTO "tcp">
 #<SERVICE :NAME "micom-pfs" :ALIASES NIL :PORT 490 :PROTO "udp">
 #<SERVICE :NAME "go-login" :ALIASES NIL :PORT 491 :PROTO "tcp">
 #<SERVICE :NAME "go-login" :ALIASES NIL :PORT 491 :PROTO "udp">
 #<SERVICE :NAME "ticf-1" :ALIASES NIL :PORT 492 :PROTO "tcp">
 #<SERVICE :NAME "ticf-1" :ALIASES NIL :PORT 492 :PROTO "udp">
 #<SERVICE :NAME "ticf-2" :ALIASES NIL :PORT 493 :PROTO "tcp">
 #<SERVICE :NAME "ticf-2" :ALIASES NIL :PORT 493 :PROTO "udp">
 #<SERVICE :NAME "pov-ray" :ALIASES NIL :PORT 494 :PROTO "tcp">
 #<SERVICE :NAME "pov-ray" :ALIASES NIL :PORT 494 :PROTO "udp">
 #<SERVICE :NAME "intecourier" :ALIASES NIL :PORT 495 :PROTO "tcp">
 #<SERVICE :NAME "intecourier" :ALIASES NIL :PORT 495 :PROTO "udp">
 #<SERVICE :NAME "retrospect" :ALIASES NIL :PORT 497 :PROTO "tcp">
 #<SERVICE :NAME "retrospect" :ALIASES NIL :PORT 497 :PROTO "udp">
 #<SERVICE :NAME "siam" :ALIASES NIL :PORT 498 :PROTO "tcp">
 #<SERVICE :NAME "siam" :ALIASES NIL :PORT 498 :PROTO "udp">
 #<SERVICE :NAME "iso-ill" :ALIASES NIL :PORT 499 :PROTO "tcp">
 #<SERVICE :NAME "iso-ill" :ALIASES NIL :PORT 499 :PROTO "udp">
 #<SERVICE :NAME "stmf" :ALIASES NIL :PORT 501 :PROTO "tcp">
 #<SERVICE :NAME "stmf" :ALIASES NIL :PORT 501 :PROTO "udp">
 #<SERVICE :NAME "mbap" :ALIASES NIL :PORT 502 :PROTO "tcp">
 #<SERVICE :NAME "mbap" :ALIASES NIL :PORT 502 :PROTO "udp">
 #<SERVICE :NAME "intrinsa" :ALIASES NIL :PORT 503 :PROTO "tcp">
 #<SERVICE :NAME "intrinsa" :ALIASES NIL :PORT 503 :PROTO "udp">
 #<SERVICE :NAME "citadel" :ALIASES NIL :PORT 504 :PROTO "tcp">
 #<SERVICE :NAME "citadel" :ALIASES NIL :PORT 504 :PROTO "udp">
 #<SERVICE :NAME "mailbox-lm" :ALIASES NIL :PORT 505 :PROTO "tcp">
 #<SERVICE :NAME "mailbox-lm" :ALIASES NIL :PORT 505 :PROTO "udp">
 #<SERVICE :NAME "ohimsrv" :ALIASES NIL :PORT 506 :PROTO "tcp">
 #<SERVICE :NAME "ohimsrv" :ALIASES NIL :PORT 506 :PROTO "udp">
 #<SERVICE :NAME "crs" :ALIASES NIL :PORT 507 :PROTO "tcp">
 #<SERVICE :NAME "crs" :ALIASES NIL :PORT 507 :PROTO "udp">
 #<SERVICE :NAME "xvttp" :ALIASES NIL :PORT 508 :PROTO "tcp">
 #<SERVICE :NAME "xvttp" :ALIASES NIL :PORT 508 :PROTO "udp">
 #<SERVICE :NAME "snare" :ALIASES NIL :PORT 509 :PROTO "tcp">
 #<SERVICE :NAME "snare" :ALIASES NIL :PORT 509 :PROTO "udp">
 #<SERVICE :NAME "fcp" :ALIASES NIL :PORT 510 :PROTO "tcp">
 #<SERVICE :NAME "fcp" :ALIASES NIL :PORT 510 :PROTO "udp">
 #<SERVICE :NAME "passgo" :ALIASES NIL :PORT 511 :PROTO "tcp">
 #<SERVICE :NAME "passgo" :ALIASES NIL :PORT 511 :PROTO "udp">
 #<SERVICE :NAME "videotex" :ALIASES NIL :PORT 516 :PROTO "tcp">
 #<SERVICE :NAME "videotex" :ALIASES NIL :PORT 516 :PROTO "udp">
 #<SERVICE :NAME "talk" :ALIASES NIL :PORT 517 :PROTO "tcp">
 #<SERVICE :NAME "ntalk" :ALIASES NIL :PORT 518 :PROTO "tcp">
 #<SERVICE :NAME "ulp" :ALIASES NIL :PORT 522 :PROTO "tcp">
 #<SERVICE :NAME "ulp" :ALIASES NIL :PORT 522 :PROTO "udp">
 #<SERVICE :NAME "ibm-db2" :ALIASES NIL :PORT 523 :PROTO "tcp">
 #<SERVICE :NAME "ibm-db2" :ALIASES NIL :PORT 523 :PROTO "udp">
 #<SERVICE :NAME "ncp" :ALIASES NIL :PORT 524 :PROTO "tcp">
 #<SERVICE :NAME "ncp" :ALIASES NIL :PORT 524 :PROTO "udp">
 #<SERVICE :NAME "tempo" :ALIASES NIL :PORT 526 :PROTO "udp">
 #<SERVICE :NAME "stx" :ALIASES NIL :PORT 527 :PROTO "tcp">
 #<SERVICE :NAME "stx" :ALIASES NIL :PORT 527 :PROTO "udp">
 #<SERVICE :NAME "custix" :ALIASES NIL :PORT 528 :PROTO "tcp">
 #<SERVICE :NAME "custix" :ALIASES NIL :PORT 528 :PROTO "udp">
 #<SERVICE :NAME "irc-serv" :ALIASES NIL :PORT 529 :PROTO "tcp">
 #<SERVICE :NAME "irc-serv" :ALIASES NIL :PORT 529 :PROTO "udp">
 #<SERVICE :NAME "courier" :ALIASES NIL :PORT 530 :PROTO "udp">
 #<SERVICE :NAME "conference" :ALIASES NIL :PORT 531 :PROTO "udp">
 #<SERVICE :NAME "netnews" :ALIASES NIL :PORT 532 :PROTO "udp">
 #<SERVICE :NAME "netwall" :ALIASES NIL :PORT 533 :PROTO "tcp">
 #<SERVICE :NAME "windream" :ALIASES NIL :PORT 534 :PROTO "tcp">
 #<SERVICE :NAME "windream" :ALIASES NIL :PORT 534 :PROTO "udp">
 #<SERVICE :NAME "opalis-rdv" :ALIASES NIL :PORT 536 :PROTO "tcp">
 #<SERVICE :NAME "opalis-rdv" :ALIASES NIL :PORT 536 :PROTO "udp">
 #<SERVICE :NAME "apertus-ldp" :ALIASES NIL :PORT 539 :PROTO "tcp">
 #<SERVICE :NAME "apertus-ldp" :ALIASES NIL :PORT 539 :PROTO "udp">
 #<SERVICE :NAME "uucp" :ALIASES NIL :PORT 540 :PROTO "udp">
 #<SERVICE :NAME "uucp-rlogin" :ALIASES NIL :PORT 541 :PROTO "tcp">
 #<SERVICE :NAME "uucp-rlogin" :ALIASES NIL :PORT 541 :PROTO "udp">
 #<SERVICE :NAME "commerce" :ALIASES NIL :PORT 542 :PROTO "tcp">
 #<SERVICE :NAME "commerce" :ALIASES NIL :PORT 542 :PROTO "udp">
 #<SERVICE :NAME "klogin" :ALIASES NIL :PORT 543 :PROTO "udp">
 #<SERVICE :NAME "kshell" :ALIASES NIL :PORT 544 :PROTO "udp">
 #<SERVICE :NAME "appleqtcsrvr" :ALIASES NIL :PORT 545 :PROTO "tcp">
 #<SERVICE :NAME "appleqtcsrvr" :ALIASES NIL :PORT 545 :PROTO "udp">
 #<SERVICE :NAME "idfp" :ALIASES NIL :PORT 549 :PROTO "tcp">
 #<SERVICE :NAME "idfp" :ALIASES NIL :PORT 549 :PROTO "udp">
 #<SERVICE :NAME "new-rwho" :ALIASES NIL :PORT 550 :PROTO "tcp">
 #<SERVICE :NAME "new-rwho" :ALIASES NIL :PORT 550 :PROTO "udp">
 #<SERVICE :NAME "cybercash" :ALIASES NIL :PORT 551 :PROTO "tcp">
 #<SERVICE :NAME "cybercash" :ALIASES NIL :PORT 551 :PROTO "udp">
 #<SERVICE :NAME "devshr-nts" :ALIASES NIL :PORT 552 :PROTO "tcp">
 #<SERVICE :NAME "devshr-nts" :ALIASES NIL :PORT 552 :PROTO "udp">
 #<SERVICE :NAME "pirp" :ALIASES NIL :PORT 553 :PROTO "tcp">
 #<SERVICE :NAME "pirp" :ALIASES NIL :PORT 553 :PROTO "udp">
 #<SERVICE :NAME "dsf" :ALIASES NIL :PORT 555 :PROTO "tcp">
 #<SERVICE :NAME "dsf" :ALIASES NIL :PORT 555 :PROTO "udp">
 #<SERVICE :NAME "remotefs" :ALIASES NIL :PORT 556 :PROTO "udp">
 #<SERVICE :NAME "openvms-sysipc" :ALIASES NIL :PORT 557 :PROTO "tcp">
 #<SERVICE :NAME "openvms-sysipc" :ALIASES NIL :PORT 557 :PROTO "udp">
 #<SERVICE :NAME "sdnskmp" :ALIASES NIL :PORT 558 :PROTO "tcp">
 #<SERVICE :NAME "sdnskmp" :ALIASES NIL :PORT 558 :PROTO "udp">
 #<SERVICE :NAME "teedtap" :ALIASES NIL :PORT 559 :PROTO "tcp">
 #<SERVICE :NAME "teedtap" :ALIASES NIL :PORT 559 :PROTO "udp">
 #<SERVICE :NAME "rmonitor" :ALIASES NIL :PORT 560 :PROTO "tcp">
 #<SERVICE :NAME "rmonitor" :ALIASES NIL :PORT 560 :PROTO "udp">
 #<SERVICE :NAME "monitor" :ALIASES NIL :PORT 561 :PROTO "tcp">
 #<SERVICE :NAME "monitor" :ALIASES NIL :PORT 561 :PROTO "udp">
 #<SERVICE :NAME "chshell" :ALIASES NIL :PORT 562 :PROTO "tcp">
 #<SERVICE :NAME "chshell" :ALIASES NIL :PORT 562 :PROTO "udp">
 #<SERVICE :NAME "9pfs" :ALIASES NIL :PORT 564 :PROTO "tcp">
 #<SERVICE :NAME "9pfs" :ALIASES NIL :PORT 564 :PROTO "udp">
 #<SERVICE :NAME "streettalk" :ALIASES NIL :PORT 566 :PROTO "tcp">
 #<SERVICE :NAME "streettalk" :ALIASES NIL :PORT 566 :PROTO "udp">
 #<SERVICE :NAME "banyan-rpc" :ALIASES NIL :PORT 567 :PROTO "tcp">
 #<SERVICE :NAME "banyan-rpc" :ALIASES NIL :PORT 567 :PROTO "udp">
 #<SERVICE :NAME "ms-shuttle" :ALIASES NIL :PORT 568 :PROTO "tcp">
 #<SERVICE :NAME "ms-shuttle" :ALIASES NIL :PORT 568 :PROTO "udp">
 #<SERVICE :NAME "ms-rome" :ALIASES NIL :PORT 569 :PROTO "tcp">
 #<SERVICE :NAME "ms-rome" :ALIASES NIL :PORT 569 :PROTO "udp">
 #<SERVICE :NAME "sonar" :ALIASES NIL :PORT 572 :PROTO "tcp">
 #<SERVICE :NAME "sonar" :ALIASES NIL :PORT 572 :PROTO "udp">
 #<SERVICE :NAME "banyan-vip" :ALIASES NIL :PORT 573 :PROTO "tcp">
 #<SERVICE :NAME "banyan-vip" :ALIASES NIL :PORT 573 :PROTO "udp">
 #<SERVICE :NAME "ftp-agent" :ALIASES NIL :PORT 574 :PROTO "tcp">
 #<SERVICE :NAME "ftp-agent" :ALIASES NIL :PORT 574 :PROTO "udp">
 #<SERVICE :NAME "vemmi" :ALIASES NIL :PORT 575 :PROTO "tcp">
 #<SERVICE :NAME "vemmi" :ALIASES NIL :PORT 575 :PROTO "udp">
 #<SERVICE :NAME "ipcd" :ALIASES NIL :PORT 576 :PROTO "tcp">
 #<SERVICE :NAME "ipcd" :ALIASES NIL :PORT 576 :PROTO "udp">
 #<SERVICE :NAME "vnas" :ALIASES NIL :PORT 577 :PROTO "tcp">
 #<SERVICE :NAME "vnas" :ALIASES NIL :PORT 577 :PROTO "udp">
 #<SERVICE :NAME "ipdd" :ALIASES NIL :PORT 578 :PROTO "tcp">
 #<SERVICE :NAME "ipdd" :ALIASES NIL :PORT 578 :PROTO "udp">
 #<SERVICE :NAME "decbsrv" :ALIASES NIL :PORT 579 :PROTO "tcp">
 #<SERVICE :NAME "decbsrv" :ALIASES NIL :PORT 579 :PROTO "udp">
 #<SERVICE :NAME "sntp-heartbeat" :ALIASES NIL :PORT 580 :PROTO "tcp">
 #<SERVICE :NAME "sntp-heartbeat" :ALIASES NIL :PORT 580 :PROTO "udp">
 #<SERVICE :NAME "bdp" :ALIASES NIL :PORT 581 :PROTO "tcp">
 #<SERVICE :NAME "bdp" :ALIASES NIL :PORT 581 :PROTO "udp">
 #<SERVICE :NAME "scc-security" :ALIASES NIL :PORT 582 :PROTO "tcp">
 #<SERVICE :NAME "scc-security" :ALIASES NIL :PORT 582 :PROTO "udp">
 #<SERVICE :NAME "philips-vc" :ALIASES NIL :PORT 583 :PROTO "tcp">
 #<SERVICE :NAME "philips-vc" :ALIASES NIL :PORT 583 :PROTO "udp">
 #<SERVICE :NAME "keyserver" :ALIASES NIL :PORT 584 :PROTO "tcp">
 #<SERVICE :NAME "keyserver" :ALIASES NIL :PORT 584 :PROTO "udp">
 #<SERVICE :NAME "password-chg" :ALIASES NIL :PORT 586 :PROTO "tcp">
 #<SERVICE :NAME "password-chg" :ALIASES NIL :PORT 586 :PROTO "udp">
 #<SERVICE :NAME "cal" :ALIASES NIL :PORT 588 :PROTO "tcp">
 #<SERVICE :NAME "cal" :ALIASES NIL :PORT 588 :PROTO "udp">
 #<SERVICE :NAME "eyelink" :ALIASES NIL :PORT 589 :PROTO "tcp">
 #<SERVICE :NAME "eyelink" :ALIASES NIL :PORT 589 :PROTO "udp">
 #<SERVICE :NAME "tns-cml" :ALIASES NIL :PORT 590 :PROTO "tcp">
 #<SERVICE :NAME "tns-cml" :ALIASES NIL :PORT 590 :PROTO "udp">
 #<SERVICE :NAME "eudora-set" :ALIASES NIL :PORT 592 :PROTO "tcp">
 #<SERVICE :NAME "eudora-set" :ALIASES NIL :PORT 592 :PROTO "udp">
 #<SERVICE :NAME "http-rpc-epmap" :ALIASES NIL :PORT 593 :PROTO "tcp">
 #<SERVICE :NAME "http-rpc-epmap" :ALIASES NIL :PORT 593 :PROTO "udp">
 #<SERVICE :NAME "tpip" :ALIASES NIL :PORT 594 :PROTO "tcp">
 #<SERVICE :NAME "tpip" :ALIASES NIL :PORT 594 :PROTO "udp">
 #<SERVICE :NAME "cab-protocol" :ALIASES NIL :PORT 595 :PROTO "tcp">
 #<SERVICE :NAME "cab-protocol" :ALIASES NIL :PORT 595 :PROTO "udp">
 #<SERVICE :NAME "smsd" :ALIASES NIL :PORT 596 :PROTO "tcp">
 #<SERVICE :NAME "smsd" :ALIASES NIL :PORT 596 :PROTO "udp">
 #<SERVICE :NAME "ptcnameservice" :ALIASES NIL :PORT 597 :PROTO "tcp">
 #<SERVICE :NAME "ptcnameservice" :ALIASES NIL :PORT 597 :PROTO "udp">
 #<SERVICE :NAME "sco-websrvrmg3" :ALIASES NIL :PORT 598 :PROTO "tcp">
 #<SERVICE :NAME "sco-websrvrmg3" :ALIASES NIL :PORT 598 :PROTO "udp">
 #<SERVICE :NAME "acp" :ALIASES NIL :PORT 599 :PROTO "tcp">
 #<SERVICE :NAME "acp" :ALIASES NIL :PORT 599 :PROTO "udp">
 #<SERVICE :NAME "ipcserver" :ALIASES NIL :PORT 600 :PROTO "tcp">
 #<SERVICE :NAME "ipcserver" :ALIASES NIL :PORT 600 :PROTO "udp">
 #<SERVICE :NAME "syslog-conn" :ALIASES NIL :PORT 601 :PROTO "tcp">
 #<SERVICE :NAME "syslog-conn" :ALIASES NIL :PORT 601 :PROTO "udp">
 #<SERVICE :NAME "xmlrpc-beep" :ALIASES NIL :PORT 602 :PROTO "tcp">
 #<SERVICE :NAME "xmlrpc-beep" :ALIASES NIL :PORT 602 :PROTO "udp">
 #<SERVICE :NAME "idxp" :ALIASES NIL :PORT 603 :PROTO "tcp">
 #<SERVICE :NAME "idxp" :ALIASES NIL :PORT 603 :PROTO "udp">
 #<SERVICE :NAME "tunnel" :ALIASES NIL :PORT 604 :PROTO "tcp">
 #<SERVICE :NAME "tunnel" :ALIASES NIL :PORT 604 :PROTO "udp">
 #<SERVICE :NAME "soap-beep" :ALIASES NIL :PORT 605 :PROTO "tcp">
 #<SERVICE :NAME "soap-beep" :ALIASES NIL :PORT 605 :PROTO "udp">
 #<SERVICE :NAME "urm" :ALIASES NIL :PORT 606 :PROTO "tcp">
 #<SERVICE :NAME "urm" :ALIASES NIL :PORT 606 :PROTO "udp">
 #<SERVICE :NAME "nqs" :ALIASES NIL :PORT 607 :PROTO "tcp">
 #<SERVICE :NAME "nqs" :ALIASES NIL :PORT 607 :PROTO "udp">
 #<SERVICE :NAME "sift-uft" :ALIASES NIL :PORT 608 :PROTO "tcp">
 #<SERVICE :NAME "sift-uft" :ALIASES NIL :PORT 608 :PROTO "udp">
 #<SERVICE :NAME "npmp-trap" :ALIASES NIL :PORT 609 :PROTO "tcp">
 #<SERVICE :NAME "npmp-trap" :ALIASES NIL :PORT 609 :PROTO "udp">
 #<SERVICE :NAME "hmmp-op" :ALIASES NIL :PORT 613 :PROTO "tcp">
 #<SERVICE :NAME "hmmp-op" :ALIASES NIL :PORT 613 :PROTO "udp">
 #<SERVICE :NAME "sshell" :ALIASES NIL :PORT 614 :PROTO "tcp">
 #<SERVICE :NAME "sshell" :ALIASES NIL :PORT 614 :PROTO "udp">
 #<SERVICE :NAME "sco-inetmgr" :ALIASES NIL :PORT 615 :PROTO "tcp">
 #<SERVICE :NAME "sco-inetmgr" :ALIASES NIL :PORT 615 :PROTO "udp">
 #<SERVICE :NAME "sco-sysmgr" :ALIASES ("gii") :PORT 616 :PROTO "tcp">
 #<SERVICE :NAME "sco-sysmgr" :ALIASES NIL :PORT 616 :PROTO "udp">
 #<SERVICE :NAME "sco-dtmgr" :ALIASES NIL :PORT 617 :PROTO "tcp">
 #<SERVICE :NAME "sco-dtmgr" :ALIASES NIL :PORT 617 :PROTO "udp">
 #<SERVICE :NAME "dei-icda" :ALIASES NIL :PORT 618 :PROTO "tcp">
 #<SERVICE :NAME "dei-icda" :ALIASES NIL :PORT 618 :PROTO "udp">
 #<SERVICE :NAME "compaq-evm" :ALIASES NIL :PORT 619 :PROTO "tcp">
 #<SERVICE :NAME "compaq-evm" :ALIASES NIL :PORT 619 :PROTO "udp">
 #<SERVICE :NAME "sco-websrvrmgr" :ALIASES NIL :PORT 620 :PROTO "tcp">
 #<SERVICE :NAME "sco-websrvrmgr" :ALIASES NIL :PORT 620 :PROTO "udp">
 #<SERVICE :NAME "escp-ip" :ALIASES NIL :PORT 621 :PROTO "tcp">
 #<SERVICE :NAME "escp-ip" :ALIASES NIL :PORT 621 :PROTO "udp">
 #<SERVICE :NAME "collaborator" :ALIASES NIL :PORT 622 :PROTO "tcp">
 #<SERVICE :NAME "collaborator" :ALIASES NIL :PORT 622 :PROTO "udp">
 #<SERVICE :NAME "oob-ws-http" :ALIASES NIL :PORT 623 :PROTO "tcp">
 #<SERVICE :NAME "asf-rmcp" :ALIASES NIL :PORT 623 :PROTO "udp">
 #<SERVICE :NAME "cryptoadmin" :ALIASES NIL :PORT 624 :PROTO "tcp">
 #<SERVICE :NAME "cryptoadmin" :ALIASES NIL :PORT 624 :PROTO "udp">
 #<SERVICE :NAME "dec_dlm" :ALIASES ("dec-dlm") :PORT 625 :PROTO "tcp">
 #<SERVICE :NAME "dec_dlm" :ALIASES ("dec-dlm") :PORT 625 :PROTO "udp">
 #<SERVICE :NAME "asia" :ALIASES NIL :PORT 626 :PROTO "tcp">
 #<SERVICE :NAME "asia" :ALIASES NIL :PORT 626 :PROTO "udp">
 #<SERVICE :NAME "passgo-tivoli" :ALIASES NIL :PORT 627 :PROTO "tcp">
 #<SERVICE :NAME "passgo-tivoli" :ALIASES NIL :PORT 627 :PROTO "udp">
 #<SERVICE :NAME "qmqp" :ALIASES NIL :PORT 628 :PROTO "tcp">
 #<SERVICE :NAME "qmqp" :ALIASES NIL :PORT 628 :PROTO "udp">
 #<SERVICE :NAME "3com-amp3" :ALIASES NIL :PORT 629 :PROTO "tcp">
 #<SERVICE :NAME "3com-amp3" :ALIASES NIL :PORT 629 :PROTO "udp">
 #<SERVICE :NAME "rda" :ALIASES NIL :PORT 630 :PROTO "tcp">
 #<SERVICE :NAME "rda" :ALIASES NIL :PORT 630 :PROTO "udp">
 #<SERVICE :NAME "bmpp" :ALIASES NIL :PORT 632 :PROTO "tcp">
 #<SERVICE :NAME "bmpp" :ALIASES NIL :PORT 632 :PROTO "udp">
 #<SERVICE :NAME "servstat" :ALIASES NIL :PORT 633 :PROTO "tcp">
 #<SERVICE :NAME "servstat" :ALIASES NIL :PORT 633 :PROTO "udp">
 #<SERVICE :NAME "ginad" :ALIASES NIL :PORT 634 :PROTO "tcp">
 #<SERVICE :NAME "ginad" :ALIASES NIL :PORT 634 :PROTO "udp">
 #<SERVICE :NAME "rlzdbase" :ALIASES NIL :PORT 635 :PROTO "tcp">
 #<SERVICE :NAME "rlzdbase" :ALIASES NIL :PORT 635 :PROTO "udp">
 #<SERVICE :NAME "lanserver" :ALIASES NIL :PORT 637 :PROTO "tcp">
 #<SERVICE :NAME "lanserver" :ALIASES NIL :PORT 637 :PROTO "udp">
 #<SERVICE :NAME "mcns-sec" :ALIASES NIL :PORT 638 :PROTO "tcp">
 #<SERVICE :NAME "mcns-sec" :ALIASES NIL :PORT 638 :PROTO "udp">
 #<SERVICE :NAME "msdp" :ALIASES NIL :PORT 639 :PROTO "tcp">
 #<SERVICE :NAME "msdp" :ALIASES NIL :PORT 639 :PROTO "udp">
 #<SERVICE :NAME "entrust-sps" :ALIASES NIL :PORT 640 :PROTO "tcp">
 #<SERVICE :NAME "entrust-sps" :ALIASES NIL :PORT 640 :PROTO "udp">
 #<SERVICE :NAME "repcmd" :ALIASES NIL :PORT 641 :PROTO "tcp">
 #<SERVICE :NAME "repcmd" :ALIASES NIL :PORT 641 :PROTO "udp">
 #<SERVICE :NAME "esro-emsdp" :ALIASES NIL :PORT 642 :PROTO "tcp">
 #<SERVICE :NAME "esro-emsdp" :ALIASES NIL :PORT 642 :PROTO "udp">
 #<SERVICE :NAME "sanity" :ALIASES NIL :PORT 643 :PROTO "tcp">
 #<SERVICE :NAME "sanity" :ALIASES NIL :PORT 643 :PROTO "udp">
 #<SERVICE :NAME "dwr" :ALIASES NIL :PORT 644 :PROTO "tcp">
 #<SERVICE :NAME "dwr" :ALIASES NIL :PORT 644 :PROTO "udp">
 #<SERVICE :NAME "pssc" :ALIASES NIL :PORT 645 :PROTO "tcp">
 #<SERVICE :NAME "pssc" :ALIASES NIL :PORT 645 :PROTO "udp">
 #<SERVICE :NAME "ldp" :ALIASES NIL :PORT 646 :PROTO "tcp">
 #<SERVICE :NAME "ldp" :ALIASES NIL :PORT 646 :PROTO "udp">
 #<SERVICE :NAME "dhcp-failover" :ALIASES NIL :PORT 647 :PROTO "tcp">
 #<SERVICE :NAME "dhcp-failover" :ALIASES NIL :PORT 647 :PROTO "udp">
 #<SERVICE :NAME "rrp" :ALIASES NIL :PORT 648 :PROTO "tcp">
 #<SERVICE :NAME "rrp" :ALIASES NIL :PORT 648 :PROTO "udp">
 #<SERVICE :NAME "cadview-3d" :ALIASES NIL :PORT 649 :PROTO "tcp">
 #<SERVICE :NAME "cadview-3d" :ALIASES NIL :PORT 649 :PROTO "udp">
 #<SERVICE :NAME "obex" :ALIASES NIL :PORT 650 :PROTO "tcp">
 #<SERVICE :NAME "obex" :ALIASES NIL :PORT 650 :PROTO "udp">
 #<SERVICE :NAME "ieee-mms" :ALIASES NIL :PORT 651 :PROTO "tcp">
 #<SERVICE :NAME "ieee-mms" :ALIASES NIL :PORT 651 :PROTO "udp">
 #<SERVICE :NAME "hello-port" :ALIASES NIL :PORT 652 :PROTO "tcp">
 #<SERVICE :NAME "hello-port" :ALIASES NIL :PORT 652 :PROTO "udp">
 #<SERVICE :NAME "repscmd" :ALIASES NIL :PORT 653 :PROTO "tcp">
 #<SERVICE :NAME "repscmd" :ALIASES NIL :PORT 653 :PROTO "udp">
 #<SERVICE :NAME "aodv" :ALIASES NIL :PORT 654 :PROTO "tcp">
 #<SERVICE :NAME "aodv" :ALIASES NIL :PORT 654 :PROTO "udp">
 #<SERVICE :NAME "tinc" :ALIASES NIL :PORT 655 :PROTO "tcp">
 #<SERVICE :NAME "tinc" :ALIASES NIL :PORT 655 :PROTO "udp">
 #<SERVICE :NAME "spmp" :ALIASES NIL :PORT 656 :PROTO "tcp">
 #<SERVICE :NAME "spmp" :ALIASES NIL :PORT 656 :PROTO "udp">
 #<SERVICE :NAME "rmc" :ALIASES NIL :PORT 657 :PROTO "tcp">
 #<SERVICE :NAME "rmc" :ALIASES NIL :PORT 657 :PROTO "udp">
 #<SERVICE :NAME "tenfold" :ALIASES NIL :PORT 658 :PROTO "tcp">
 #<SERVICE :NAME "tenfold" :ALIASES NIL :PORT 658 :PROTO "udp">
 #<SERVICE :NAME "mac-srvr-admin" :ALIASES NIL :PORT 660 :PROTO "tcp">
 #<SERVICE :NAME "mac-srvr-admin" :ALIASES NIL :PORT 660 :PROTO "udp">
 #<SERVICE :NAME "hap" :ALIASES NIL :PORT 661 :PROTO "tcp">
 #<SERVICE :NAME "hap" :ALIASES NIL :PORT 661 :PROTO "udp">
 #<SERVICE :NAME "pftp" :ALIASES NIL :PORT 662 :PROTO "tcp">
 #<SERVICE :NAME "pftp" :ALIASES NIL :PORT 662 :PROTO "udp">
 #<SERVICE :NAME "purenoise" :ALIASES NIL :PORT 663 :PROTO "tcp">
 #<SERVICE :NAME "purenoise" :ALIASES NIL :PORT 663 :PROTO "udp">
 #<SERVICE :NAME "oob-ws-https" :ALIASES NIL :PORT 664 :PROTO "tcp">
 #<SERVICE :NAME "asf-secure-rmcp" :ALIASES NIL :PORT 664 :PROTO "udp">
 #<SERVICE :NAME "sun-dr" :ALIASES NIL :PORT 665 :PROTO "tcp">
 #<SERVICE :NAME "sun-dr" :ALIASES NIL :PORT 665 :PROTO "udp">
 #<SERVICE :NAME "mdqs" :ALIASES ("doom") :PORT 666 :PROTO "tcp">
 #<SERVICE :NAME "mdqs" :ALIASES ("doom") :PORT 666 :PROTO "udp">
 #<SERVICE :NAME "disclose" :ALIASES NIL :PORT 667 :PROTO "tcp">
 #<SERVICE :NAME "disclose" :ALIASES NIL :PORT 667 :PROTO "udp">
 #<SERVICE :NAME "mecomm" :ALIASES NIL :PORT 668 :PROTO "tcp">
 #<SERVICE :NAME "mecomm" :ALIASES NIL :PORT 668 :PROTO "udp">
 #<SERVICE :NAME "meregister" :ALIASES NIL :PORT 669 :PROTO "tcp">
 #<SERVICE :NAME "meregister" :ALIASES NIL :PORT 669 :PROTO "udp">
 #<SERVICE :NAME "vacdsm-sws" :ALIASES NIL :PORT 670 :PROTO "tcp">
 #<SERVICE :NAME "vacdsm-sws" :ALIASES NIL :PORT 670 :PROTO "udp">
 #<SERVICE :NAME "vacdsm-app" :ALIASES NIL :PORT 671 :PROTO "tcp">
 #<SERVICE :NAME "vacdsm-app" :ALIASES NIL :PORT 671 :PROTO "udp">
 #<SERVICE :NAME "vpps-qua" :ALIASES NIL :PORT 672 :PROTO "tcp">
 #<SERVICE :NAME "vpps-qua" :ALIASES NIL :PORT 672 :PROTO "udp">
 #<SERVICE :NAME "cimplex" :ALIASES NIL :PORT 673 :PROTO "tcp">
 #<SERVICE :NAME "cimplex" :ALIASES NIL :PORT 673 :PROTO "udp">
 #<SERVICE :NAME "dctp" :ALIASES NIL :PORT 675 :PROTO "tcp">
 #<SERVICE :NAME "dctp" :ALIASES NIL :PORT 675 :PROTO "udp">
 #<SERVICE :NAME "vpps-via" :ALIASES NIL :PORT 676 :PROTO "tcp">
 #<SERVICE :NAME "vpps-via" :ALIASES NIL :PORT 676 :PROTO "udp">
 #<SERVICE :NAME "vpp" :ALIASES NIL :PORT 677 :PROTO "tcp">
 #<SERVICE :NAME "vpp" :ALIASES NIL :PORT 677 :PROTO "udp">
 #<SERVICE :NAME "ggf-ncp" :ALIASES NIL :PORT 678 :PROTO "tcp">
 #<SERVICE :NAME "ggf-ncp" :ALIASES NIL :PORT 678 :PROTO "udp">
 #<SERVICE :NAME "mrm" :ALIASES NIL :PORT 679 :PROTO "tcp">
 #<SERVICE :NAME "mrm" :ALIASES NIL :PORT 679 :PROTO "udp">
 #<SERVICE :NAME "entrust-aaas" :ALIASES NIL :PORT 680 :PROTO "tcp">
 #<SERVICE :NAME "entrust-aaas" :ALIASES NIL :PORT 680 :PROTO "udp">
 #<SERVICE :NAME "entrust-aams" :ALIASES NIL :PORT 681 :PROTO "tcp">
 #<SERVICE :NAME "entrust-aams" :ALIASES NIL :PORT 681 :PROTO "udp">
 #<SERVICE :NAME "xfr" :ALIASES NIL :PORT 682 :PROTO "tcp">
 #<SERVICE :NAME "xfr" :ALIASES NIL :PORT 682 :PROTO "udp">
 #<SERVICE :NAME "corba-iiop" :ALIASES NIL :PORT 683 :PROTO "tcp">
 #<SERVICE :NAME "corba-iiop" :ALIASES NIL :PORT 683 :PROTO "udp">
 #<SERVICE :NAME "corba-iiop-ssl" :ALIASES NIL :PORT 684 :PROTO "tcp">
 #<SERVICE :NAME "corba-iiop-ssl" :ALIASES NIL :PORT 684 :PROTO "udp">
 #<SERVICE :NAME "mdc-portmapper" :ALIASES NIL :PORT 685 :PROTO "tcp">
 #<SERVICE :NAME "mdc-portmapper" :ALIASES NIL :PORT 685 :PROTO "udp">
 #<SERVICE :NAME "hcp-wismar" :ALIASES NIL :PORT 686 :PROTO "tcp">
 #<SERVICE :NAME "hcp-wismar" :ALIASES NIL :PORT 686 :PROTO "udp">
 #<SERVICE :NAME "asipregistry" :ALIASES NIL :PORT 687 :PROTO "tcp">
 #<SERVICE :NAME "asipregistry" :ALIASES NIL :PORT 687 :PROTO "udp">
 #<SERVICE :NAME "realm-rusd" :ALIASES NIL :PORT 688 :PROTO "tcp">
 #<SERVICE :NAME "realm-rusd" :ALIASES NIL :PORT 688 :PROTO "udp">
 #<SERVICE :NAME "nmap" :ALIASES NIL :PORT 689 :PROTO "tcp">
 #<SERVICE :NAME "nmap" :ALIASES NIL :PORT 689 :PROTO "udp">
 #<SERVICE :NAME "vatp" :ALIASES NIL :PORT 690 :PROTO "tcp">
 #<SERVICE :NAME "vatp" :ALIASES NIL :PORT 690 :PROTO "udp">
 #<SERVICE :NAME "msexch-routing" :ALIASES NIL :PORT 691 :PROTO "tcp">
 #<SERVICE :NAME "msexch-routing" :ALIASES NIL :PORT 691 :PROTO "udp">
 #<SERVICE :NAME "hyperwave-isp" :ALIASES NIL :PORT 692 :PROTO "tcp">
 #<SERVICE :NAME "hyperwave-isp" :ALIASES NIL :PORT 692 :PROTO "udp">
 #<SERVICE :NAME "connendp" :ALIASES NIL :PORT 693 :PROTO "tcp">
 #<SERVICE :NAME "connendp" :ALIASES NIL :PORT 693 :PROTO "udp">
 #<SERVICE :NAME "ieee-mms-ssl" :ALIASES NIL :PORT 695 :PROTO "tcp">
 #<SERVICE :NAME "ieee-mms-ssl" :ALIASES NIL :PORT 695 :PROTO "udp">
 #<SERVICE :NAME "rushd" :ALIASES NIL :PORT 696 :PROTO "tcp">
 #<SERVICE :NAME "rushd" :ALIASES NIL :PORT 696 :PROTO "udp">
 #<SERVICE :NAME "uuidgen" :ALIASES NIL :PORT 697 :PROTO "tcp">
 #<SERVICE :NAME "uuidgen" :ALIASES NIL :PORT 697 :PROTO "udp">
 #<SERVICE :NAME "olsr" :ALIASES NIL :PORT 698 :PROTO "tcp">
 #<SERVICE :NAME "olsr" :ALIASES NIL :PORT 698 :PROTO "udp">
 #<SERVICE :NAME "accessnetwork" :ALIASES NIL :PORT 699 :PROTO "tcp">
 #<SERVICE :NAME "accessnetwork" :ALIASES NIL :PORT 699 :PROTO "udp">
 #<SERVICE :NAME "lmp" :ALIASES NIL :PORT 701 :PROTO "tcp">
 #<SERVICE :NAME "lmp" :ALIASES NIL :PORT 701 :PROTO "udp">
 #<SERVICE :NAME "iris-beep" :ALIASES NIL :PORT 702 :PROTO "tcp">
 #<SERVICE :NAME "iris-beep" :ALIASES NIL :PORT 702 :PROTO "udp">
 #<SERVICE :NAME "elcsd" :ALIASES NIL :PORT 704 :PROTO "tcp">
 #<SERVICE :NAME "elcsd" :ALIASES NIL :PORT 704 :PROTO "udp">
 #<SERVICE :NAME "agentx" :ALIASES NIL :PORT 705 :PROTO "tcp">
 #<SERVICE :NAME "agentx" :ALIASES NIL :PORT 705 :PROTO "udp">
 #<SERVICE :NAME "silc" :ALIASES NIL :PORT 706 :PROTO "tcp">
 #<SERVICE :NAME "silc" :ALIASES NIL :PORT 706 :PROTO "udp">
 #<SERVICE :NAME "borland-dsj" :ALIASES NIL :PORT 707 :PROTO "tcp">
 #<SERVICE :NAME "borland-dsj" :ALIASES NIL :PORT 707 :PROTO "udp">
 #<SERVICE :NAME "entrust-kmsh" :ALIASES NIL :PORT 709 :PROTO "tcp">
 #<SERVICE :NAME "entrust-kmsh" :ALIASES NIL :PORT 709 :PROTO "udp">
 #<SERVICE :NAME "entrust-ash" :ALIASES NIL :PORT 710 :PROTO "tcp">
 #<SERVICE :NAME "entrust-ash" :ALIASES NIL :PORT 710 :PROTO "udp">
 #<SERVICE :NAME "cisco-tdp" :ALIASES NIL :PORT 711 :PROTO "tcp">
 #<SERVICE :NAME "cisco-tdp" :ALIASES NIL :PORT 711 :PROTO "udp">
 #<SERVICE :NAME "tbrpf" :ALIASES NIL :PORT 712 :PROTO "tcp">
 #<SERVICE :NAME "tbrpf" :ALIASES NIL :PORT 712 :PROTO "udp">
 #<SERVICE :NAME "iris-xpc" :ALIASES NIL :PORT 713 :PROTO "tcp">
 #<SERVICE :NAME "iris-xpc" :ALIASES NIL :PORT 713 :PROTO "udp">
 #<SERVICE :NAME "iris-xpcs" :ALIASES NIL :PORT 714 :PROTO "tcp">
 #<SERVICE :NAME "iris-xpcs" :ALIASES NIL :PORT 714 :PROTO "udp">
 #<SERVICE :NAME "iris-lwz" :ALIASES NIL :PORT 715 :PROTO "tcp">
 #<SERVICE :NAME "iris-lwz" :ALIASES NIL :PORT 715 :PROTO "udp">
 #<SERVICE :NAME "pana" :ALIASES NIL :PORT 716 :PROTO "udp">
 #<SERVICE :NAME "netviewdm1" :ALIASES NIL :PORT 729 :PROTO "tcp">
 #<SERVICE :NAME "netviewdm1" :ALIASES NIL :PORT 729 :PROTO "udp">
 #<SERVICE :NAME "netviewdm2" :ALIASES NIL :PORT 730 :PROTO "tcp">
 #<SERVICE :NAME "netviewdm2" :ALIASES NIL :PORT 730 :PROTO "udp">
 #<SERVICE :NAME "netviewdm3" :ALIASES NIL :PORT 731 :PROTO "tcp">
 #<SERVICE :NAME "netviewdm3" :ALIASES NIL :PORT 731 :PROTO "udp">
 #<SERVICE :NAME "netgw" :ALIASES NIL :PORT 741 :PROTO "tcp">
 #<SERVICE :NAME "netgw" :ALIASES NIL :PORT 741 :PROTO "udp">
 #<SERVICE :NAME "netrcs" :ALIASES NIL :PORT 742 :PROTO "tcp">
 #<SERVICE :NAME "netrcs" :ALIASES NIL :PORT 742 :PROTO "udp">
 #<SERVICE :NAME "flexlm" :ALIASES NIL :PORT 744 :PROTO "tcp">
 #<SERVICE :NAME "flexlm" :ALIASES NIL :PORT 744 :PROTO "udp">
 #<SERVICE :NAME "fujitsu-dev" :ALIASES NIL :PORT 747 :PROTO "tcp">
 #<SERVICE :NAME "fujitsu-dev" :ALIASES NIL :PORT 747 :PROTO "udp">
 #<SERVICE :NAME "ris-cm" :ALIASES NIL :PORT 748 :PROTO "tcp">
 #<SERVICE :NAME "ris-cm" :ALIASES NIL :PORT 748 :PROTO "udp">
 #<SERVICE :NAME "qrh" :ALIASES NIL :PORT 752 :PROTO "tcp">
 #<SERVICE :NAME "rrh" :ALIASES NIL :PORT 753 :PROTO "tcp">
 #<SERVICE :NAME "rrh" :ALIASES NIL :PORT 753 :PROTO "udp">
 #<SERVICE :NAME "tell" :ALIASES NIL :PORT 754 :PROTO "udp">
 #<SERVICE :NAME "nlogin" :ALIASES NIL :PORT 758 :PROTO "tcp">
 #<SERVICE :NAME "nlogin" :ALIASES NIL :PORT 758 :PROTO "udp">
 #<SERVICE :NAME "con" :ALIASES NIL :PORT 759 :PROTO "tcp">
 #<SERVICE :NAME "con" :ALIASES NIL :PORT 759 :PROTO "udp">
 #<SERVICE :NAME "ns" :ALIASES NIL :PORT 760 :PROTO "udp">
 #<SERVICE :NAME "rxe" :ALIASES NIL :PORT 761 :PROTO "tcp">
 #<SERVICE :NAME "rxe" :ALIASES NIL :PORT 761 :PROTO "udp">
 #<SERVICE :NAME "quotad" :ALIASES NIL :PORT 762 :PROTO "tcp">
 #<SERVICE :NAME "quotad" :ALIASES NIL :PORT 762 :PROTO "udp">
 #<SERVICE :NAME "cycleserv" :ALIASES NIL :PORT 763 :PROTO "tcp">
 #<SERVICE :NAME "cycleserv" :ALIASES NIL :PORT 763 :PROTO "udp">
 #<SERVICE :NAME "omserv" :ALIASES NIL :PORT 764 :PROTO "tcp">
 #<SERVICE :NAME "omserv" :ALIASES NIL :PORT 764 :PROTO "udp">
 #<SERVICE :NAME "vid" :ALIASES NIL :PORT 769 :PROTO "tcp">
 #<SERVICE :NAME "vid" :ALIASES NIL :PORT 769 :PROTO "udp">
 #<SERVICE :NAME "cadlock" :ALIASES NIL :PORT 770 :PROTO "tcp">
 #<SERVICE :NAME "cadlock" :ALIASES NIL :PORT 770 :PROTO "udp">
 #<SERVICE :NAME "rtip" :ALIASES NIL :PORT 771 :PROTO "tcp">
 #<SERVICE :NAME "rtip" :ALIASES NIL :PORT 771 :PROTO "udp">
 #<SERVICE :NAME "cycleserv2" :ALIASES NIL :PORT 772 :PROTO "tcp">
 #<SERVICE :NAME "cycleserv2" :ALIASES NIL :PORT 772 :PROTO "udp">
 #<SERVICE :NAME "submit" :ALIASES NIL :PORT 773 :PROTO "tcp">
 #<SERVICE :NAME "notify" :ALIASES NIL :PORT 773 :PROTO "udp">
 #<SERVICE :NAME "rpasswd" :ALIASES NIL :PORT 774 :PROTO "tcp">
 #<SERVICE :NAME "acmaint_dbd" :ALIASES ("acmaint-dbd") :PORT 774 :PROTO "udp">
 #<SERVICE :NAME "entomb" :ALIASES NIL :PORT 775 :PROTO "tcp">
 #<SERVICE :NAME "acmaint_transd" :ALIASES ("acmaint-transd") :PORT 775
   :PROTO "udp">
 #<SERVICE :NAME "wpages" :ALIASES NIL :PORT 776 :PROTO "tcp">
 #<SERVICE :NAME "wpages" :ALIASES NIL :PORT 776 :PROTO "udp">
 #<SERVICE :NAME "multiling-http" :ALIASES NIL :PORT 777 :PROTO "tcp">
 #<SERVICE :NAME "multiling-http" :ALIASES NIL :PORT 777 :PROTO "udp">
 #<SERVICE :NAME "wpgs" :ALIASES NIL :PORT 780 :PROTO "tcp">
 #<SERVICE :NAME "wpgs" :ALIASES NIL :PORT 780 :PROTO "udp">
 #<SERVICE :NAME "mdbs_daemon" :ALIASES ("mdbs-daemon") :PORT 800 :PROTO "tcp">
 #<SERVICE :NAME "mdbs_daemon" :ALIASES ("mdbs-daemon") :PORT 800 :PROTO "udp">
 #<SERVICE :NAME "device" :ALIASES NIL :PORT 801 :PROTO "tcp">
 #<SERVICE :NAME "device" :ALIASES NIL :PORT 801 :PROTO "udp">
 #<SERVICE :NAME "mbap-s" :ALIASES NIL :PORT 802 :PROTO "tcp">
 #<SERVICE :NAME "mbap-s" :ALIASES NIL :PORT 802 :PROTO "udp">
 #<SERVICE :NAME "fcp-udp" :ALIASES NIL :PORT 810 :PROTO "tcp">
 #<SERVICE :NAME "fcp-udp" :ALIASES NIL :PORT 810 :PROTO "udp">
 #<SERVICE :NAME "itm-mcell-s" :ALIASES NIL :PORT 828 :PROTO "tcp">
 #<SERVICE :NAME "itm-mcell-s" :ALIASES NIL :PORT 828 :PROTO "udp">
 #<SERVICE :NAME "pkix-3-ca-ra" :ALIASES NIL :PORT 829 :PROTO "tcp">
 #<SERVICE :NAME "pkix-3-ca-ra" :ALIASES NIL :PORT 829 :PROTO "udp">
 #<SERVICE :NAME "netconf-ssh" :ALIASES NIL :PORT 830 :PROTO "tcp">
 #<SERVICE :NAME "netconf-ssh" :ALIASES NIL :PORT 830 :PROTO "udp">
 #<SERVICE :NAME "netconf-beep" :ALIASES NIL :PORT 831 :PROTO "tcp">
 #<SERVICE :NAME "netconf-beep" :ALIASES NIL :PORT 831 :PROTO "udp">
 #<SERVICE :NAME "netconfsoaphttp" :ALIASES NIL :PORT 832 :PROTO "tcp">
 #<SERVICE :NAME "netconfsoaphttp" :ALIASES NIL :PORT 832 :PROTO "udp">
 #<SERVICE :NAME "netconfsoapbeep" :ALIASES NIL :PORT 833 :PROTO "tcp">
 #<SERVICE :NAME "netconfsoapbeep" :ALIASES NIL :PORT 833 :PROTO "udp">
 #<SERVICE :NAME "dhcp-failover2" :ALIASES NIL :PORT 847 :PROTO "tcp">
 #<SERVICE :NAME "dhcp-failover2" :ALIASES NIL :PORT 847 :PROTO "udp">
 #<SERVICE :NAME "gdoi" :ALIASES NIL :PORT 848 :PROTO "tcp">
 #<SERVICE :NAME "gdoi" :ALIASES NIL :PORT 848 :PROTO "udp">
 #<SERVICE :NAME "domain-s" :ALIASES NIL :PORT 853 :PROTO "tcp">
 #<SERVICE :NAME "domain-s" :ALIASES NIL :PORT 853 :PROTO "udp">
 #<SERVICE :NAME "iscsi" :ALIASES NIL :PORT 860 :PROTO "tcp">
 #<SERVICE :NAME "iscsi" :ALIASES NIL :PORT 860 :PROTO "udp">
 #<SERVICE :NAME "owamp-control" :ALIASES NIL :PORT 861 :PROTO "tcp">
 #<SERVICE :NAME "owamp-control" :ALIASES NIL :PORT 861 :PROTO "udp">
 #<SERVICE :NAME "twamp-control" :ALIASES NIL :PORT 862 :PROTO "tcp">
 #<SERVICE :NAME "twamp-control" :ALIASES NIL :PORT 862 :PROTO "udp">
 #<SERVICE :NAME "iclcnet-locate" :ALIASES NIL :PORT 886 :PROTO "tcp">
 #<SERVICE :NAME "iclcnet-locate" :ALIASES NIL :PORT 886 :PROTO "udp">
 #<SERVICE :NAME "iclcnet_svinfo" :ALIASES ("iclcnet-svinfo") :PORT 887
   :PROTO "tcp">
 #<SERVICE :NAME "iclcnet_svinfo" :ALIASES ("iclcnet-svinfo") :PORT 887
   :PROTO "udp">
 #<SERVICE :NAME "cddbp" :ALIASES NIL :PORT 888 :PROTO "tcp">
 #<SERVICE :NAME "omginitialrefs" :ALIASES NIL :PORT 900 :PROTO "tcp">
 #<SERVICE :NAME "omginitialrefs" :ALIASES NIL :PORT 900 :PROTO "udp">
 #<SERVICE :NAME "smpnameres" :ALIASES NIL :PORT 901 :PROTO "udp">
 #<SERVICE :NAME "ideafarm-door" :ALIASES NIL :PORT 902 :PROTO "tcp">
 #<SERVICE :NAME "ideafarm-door" :ALIASES NIL :PORT 902 :PROTO "udp">
 #<SERVICE :NAME "ideafarm-panic" :ALIASES NIL :PORT 903 :PROTO "tcp">
 #<SERVICE :NAME "ideafarm-panic" :ALIASES NIL :PORT 903 :PROTO "udp">
 #<SERVICE :NAME "kink" :ALIASES NIL :PORT 910 :PROTO "tcp">
 #<SERVICE :NAME "kink" :ALIASES NIL :PORT 910 :PROTO "udp">
 #<SERVICE :NAME "xact-backup" :ALIASES NIL :PORT 911 :PROTO "tcp">
 #<SERVICE :NAME "xact-backup" :ALIASES NIL :PORT 911 :PROTO "udp">
 #<SERVICE :NAME "apex-mesh" :ALIASES NIL :PORT 912 :PROTO "tcp">
 #<SERVICE :NAME "apex-mesh" :ALIASES NIL :PORT 912 :PROTO "udp">
 #<SERVICE :NAME "apex-edge" :ALIASES NIL :PORT 913 :PROTO "tcp">
 #<SERVICE :NAME "apex-edge" :ALIASES NIL :PORT 913 :PROTO "udp">
 #<SERVICE :NAME "ftps-data" :ALIASES NIL :PORT 989 :PROTO "tcp">
 #<SERVICE :NAME "ftps-data" :ALIASES NIL :PORT 989 :PROTO "udp">
 #<SERVICE :NAME "ftps" :ALIASES NIL :PORT 990 :PROTO "tcp">
 #<SERVICE :NAME "ftps" :ALIASES NIL :PORT 990 :PROTO "udp">
 #<SERVICE :NAME "nas" :ALIASES NIL :PORT 991 :PROTO "tcp">
 #<SERVICE :NAME "nas" :ALIASES NIL :PORT 991 :PROTO "udp">
 #<SERVICE :NAME "vsinet" :ALIASES NIL :PORT 996 :PROTO "tcp">
 #<SERVICE :NAME "vsinet" :ALIASES NIL :PORT 996 :PROTO "udp">
 #<SERVICE :NAME "maitrd" :ALIASES NIL :PORT 997 :PROTO "tcp">
 #<SERVICE :NAME "maitrd" :ALIASES NIL :PORT 997 :PROTO "udp">
 #<SERVICE :NAME "busboy" :ALIASES NIL :PORT 998 :PROTO "tcp">
 #<SERVICE :NAME "puparp" :ALIASES NIL :PORT 998 :PROTO "udp">
 #<SERVICE :NAME "garcon" :ALIASES NIL :PORT 999 :PROTO "tcp">
 #<SERVICE :NAME "applix" :ALIASES NIL :PORT 999 :PROTO "udp">
 #<SERVICE :NAME "cadlock2" :ALIASES NIL :PORT 1000 :PROTO "tcp">
 #<SERVICE :NAME "cadlock2" :ALIASES NIL :PORT 1000 :PROTO "udp">
 #<SERVICE :NAME "surf" :ALIASES NIL :PORT 1010 :PROTO "tcp">
 #<SERVICE :NAME "surf" :ALIASES NIL :PORT 1010 :PROTO "udp">
 #<SERVICE :NAME "exp1" :ALIASES NIL :PORT 1021 :PROTO "tcp">
 #<SERVICE :NAME "exp1" :ALIASES NIL :PORT 1021 :PROTO "udp">
 #<SERVICE :NAME "exp1" :ALIASES NIL :PORT 1021 :PROTO "sctp">
 #<SERVICE :NAME "exp1" :ALIASES NIL :PORT 1021 :PROTO "dccp">
 #<SERVICE :NAME "exp2" :ALIASES NIL :PORT 1022 :PROTO "tcp">
 #<SERVICE :NAME "exp2" :ALIASES NIL :PORT 1022 :PROTO "udp">
 #<SERVICE :NAME "exp2" :ALIASES NIL :PORT 1022 :PROTO "sctp">
 #<SERVICE :NAME "exp2" :ALIASES NIL :PORT 1022 :PROTO "dccp">
 #<SERVICE :NAME "blackjack" :ALIASES NIL :PORT 1025 :PROTO "tcp">
 #<SERVICE :NAME "blackjack" :ALIASES NIL :PORT 1025 :PROTO "udp">
 #<SERVICE :NAME "cap" :ALIASES NIL :PORT 1026 :PROTO "tcp">
 #<SERVICE :NAME "cap" :ALIASES NIL :PORT 1026 :PROTO "udp">
 #<SERVICE :NAME "6a44" :ALIASES NIL :PORT 1027 :PROTO "udp">
 #<SERVICE :NAME "solid-mux" :ALIASES NIL :PORT 1029 :PROTO "tcp">
 #<SERVICE :NAME "solid-mux" :ALIASES NIL :PORT 1029 :PROTO "udp">
 #<SERVICE :NAME "netinfo-local" :ALIASES NIL :PORT 1033 :PROTO "tcp">
 #<SERVICE :NAME "netinfo-local" :ALIASES NIL :PORT 1033 :PROTO "udp">
 #<SERVICE :NAME "activesync" :ALIASES NIL :PORT 1034 :PROTO "tcp">
 #<SERVICE :NAME "activesync" :ALIASES NIL :PORT 1034 :PROTO "udp">
 #<SERVICE :NAME "mxxrlogin" :ALIASES NIL :PORT 1035 :PROTO "tcp">
 #<SERVICE :NAME "mxxrlogin" :ALIASES NIL :PORT 1035 :PROTO "udp">
 #<SERVICE :NAME "nsstp" :ALIASES NIL :PORT 1036 :PROTO "tcp">
 #<SERVICE :NAME "nsstp" :ALIASES NIL :PORT 1036 :PROTO "udp">
 #<SERVICE :NAME "ams" :ALIASES NIL :PORT 1037 :PROTO "tcp">
 #<SERVICE :NAME "ams" :ALIASES NIL :PORT 1037 :PROTO "udp">
 #<SERVICE :NAME "mtqp" :ALIASES NIL :PORT 1038 :PROTO "tcp">
 #<SERVICE :NAME "mtqp" :ALIASES NIL :PORT 1038 :PROTO "udp">
 #<SERVICE :NAME "sbl" :ALIASES NIL :PORT 1039 :PROTO "tcp">
 #<SERVICE :NAME "sbl" :ALIASES NIL :PORT 1039 :PROTO "udp">
 #<SERVICE :NAME "netarx" :ALIASES NIL :PORT 1040 :PROTO "tcp">
 #<SERVICE :NAME "netarx" :ALIASES NIL :PORT 1040 :PROTO "udp">
 #<SERVICE :NAME "danf-ak2" :ALIASES NIL :PORT 1041 :PROTO "tcp">
 #<SERVICE :NAME "danf-ak2" :ALIASES NIL :PORT 1041 :PROTO "udp">
 #<SERVICE :NAME "afrog" :ALIASES NIL :PORT 1042 :PROTO "tcp">
 #<SERVICE :NAME "afrog" :ALIASES NIL :PORT 1042 :PROTO "udp">
 #<SERVICE :NAME "boinc-client" :ALIASES NIL :PORT 1043 :PROTO "tcp">
 #<SERVICE :NAME "boinc-client" :ALIASES NIL :PORT 1043 :PROTO "udp">
 #<SERVICE :NAME "dcutility" :ALIASES NIL :PORT 1044 :PROTO "tcp">
 #<SERVICE :NAME "dcutility" :ALIASES NIL :PORT 1044 :PROTO "udp">
 #<SERVICE :NAME "fpitp" :ALIASES NIL :PORT 1045 :PROTO "tcp">
 #<SERVICE :NAME "fpitp" :ALIASES NIL :PORT 1045 :PROTO "udp">
 #<SERVICE :NAME "wfremotertm" :ALIASES NIL :PORT 1046 :PROTO "tcp">
 #<SERVICE :NAME "wfremotertm" :ALIASES NIL :PORT 1046 :PROTO "udp">
 #<SERVICE :NAME "neod1" :ALIASES NIL :PORT 1047 :PROTO "tcp">
 #<SERVICE :NAME "neod1" :ALIASES NIL :PORT 1047 :PROTO "udp">
 #<SERVICE :NAME "neod2" :ALIASES NIL :PORT 1048 :PROTO "tcp">
 #<SERVICE :NAME "neod2" :ALIASES NIL :PORT 1048 :PROTO "udp">
 #<SERVICE :NAME "td-postman" :ALIASES NIL :PORT 1049 :PROTO "tcp">
 #<SERVICE :NAME "td-postman" :ALIASES NIL :PORT 1049 :PROTO "udp">
 #<SERVICE :NAME "cma" :ALIASES NIL :PORT 1050 :PROTO "tcp">
 #<SERVICE :NAME "cma" :ALIASES NIL :PORT 1050 :PROTO "udp">
 #<SERVICE :NAME "optima-vnet" :ALIASES NIL :PORT 1051 :PROTO "tcp">
 #<SERVICE :NAME "optima-vnet" :ALIASES NIL :PORT 1051 :PROTO "udp">
 #<SERVICE :NAME "ddt" :ALIASES NIL :PORT 1052 :PROTO "tcp">
 #<SERVICE :NAME "ddt" :ALIASES NIL :PORT 1052 :PROTO "udp">
 #<SERVICE :NAME "remote-as" :ALIASES NIL :PORT 1053 :PROTO "tcp">
 #<SERVICE :NAME "remote-as" :ALIASES NIL :PORT 1053 :PROTO "udp">
 #<SERVICE :NAME "brvread" :ALIASES NIL :PORT 1054 :PROTO "tcp">
 #<SERVICE :NAME "brvread" :ALIASES NIL :PORT 1054 :PROTO "udp">
 #<SERVICE :NAME "ansyslmd" :ALIASES NIL :PORT 1055 :PROTO "tcp">
 #<SERVICE :NAME "ansyslmd" :ALIASES NIL :PORT 1055 :PROTO "udp">
 #<SERVICE :NAME "vfo" :ALIASES NIL :PORT 1056 :PROTO "tcp">
 #<SERVICE :NAME "vfo" :ALIASES NIL :PORT 1056 :PROTO "udp">
 #<SERVICE :NAME "startron" :ALIASES NIL :PORT 1057 :PROTO "tcp">
 #<SERVICE :NAME "startron" :ALIASES NIL :PORT 1057 :PROTO "udp">
 #<SERVICE :NAME "nim" :ALIASES NIL :PORT 1058 :PROTO "tcp">
 #<SERVICE :NAME "nim" :ALIASES NIL :PORT 1058 :PROTO "udp">
 #<SERVICE :NAME "nimreg" :ALIASES NIL :PORT 1059 :PROTO "tcp">
 #<SERVICE :NAME "nimreg" :ALIASES NIL :PORT 1059 :PROTO "udp">
 #<SERVICE :NAME "polestar" :ALIASES NIL :PORT 1060 :PROTO "tcp">
 #<SERVICE :NAME "polestar" :ALIASES NIL :PORT 1060 :PROTO "udp">
 #<SERVICE :NAME "kiosk" :ALIASES NIL :PORT 1061 :PROTO "tcp">
 #<SERVICE :NAME "kiosk" :ALIASES NIL :PORT 1061 :PROTO "udp">
 #<SERVICE :NAME "veracity" :ALIASES NIL :PORT 1062 :PROTO "tcp">
 #<SERVICE :NAME "veracity" :ALIASES NIL :PORT 1062 :PROTO "udp">
 #<SERVICE :NAME "kyoceranetdev" :ALIASES NIL :PORT 1063 :PROTO "tcp">
 #<SERVICE :NAME "kyoceranetdev" :ALIASES NIL :PORT 1063 :PROTO "udp">
 #<SERVICE :NAME "jstel" :ALIASES NIL :PORT 1064 :PROTO "tcp">
 #<SERVICE :NAME "jstel" :ALIASES NIL :PORT 1064 :PROTO "udp">
 #<SERVICE :NAME "syscomlan" :ALIASES NIL :PORT 1065 :PROTO "tcp">
 #<SERVICE :NAME "syscomlan" :ALIASES NIL :PORT 1065 :PROTO "udp">
 #<SERVICE :NAME "fpo-fns" :ALIASES NIL :PORT 1066 :PROTO "tcp">
 #<SERVICE :NAME "fpo-fns" :ALIASES NIL :PORT 1066 :PROTO "udp">
 #<SERVICE :NAME "instl_boots" :ALIASES ("instl-boots") :PORT 1067
   :PROTO "tcp">
 #<SERVICE :NAME "instl_boots" :ALIASES ("instl-boots") :PORT 1067
   :PROTO "udp">
 #<SERVICE :NAME "instl_bootc" :ALIASES ("instl-bootc") :PORT 1068
   :PROTO "tcp">
 #<SERVICE :NAME "instl_bootc" :ALIASES ("instl-bootc") :PORT 1068
   :PROTO "udp">
 #<SERVICE :NAME "cognex-insight" :ALIASES NIL :PORT 1069 :PROTO "tcp">
 #<SERVICE :NAME "cognex-insight" :ALIASES NIL :PORT 1069 :PROTO "udp">
 #<SERVICE :NAME "gmrupdateserv" :ALIASES NIL :PORT 1070 :PROTO "tcp">
 #<SERVICE :NAME "gmrupdateserv" :ALIASES NIL :PORT 1070 :PROTO "udp">
 #<SERVICE :NAME "bsquare-voip" :ALIASES NIL :PORT 1071 :PROTO "tcp">
 #<SERVICE :NAME "bsquare-voip" :ALIASES NIL :PORT 1071 :PROTO "udp">
 #<SERVICE :NAME "cardax" :ALIASES NIL :PORT 1072 :PROTO "tcp">
 #<SERVICE :NAME "cardax" :ALIASES NIL :PORT 1072 :PROTO "udp">
 #<SERVICE :NAME "bridgecontrol" :ALIASES NIL :PORT 1073 :PROTO "tcp">
 #<SERVICE :NAME "bridgecontrol" :ALIASES NIL :PORT 1073 :PROTO "udp">
 #<SERVICE :NAME "warmspotMgmt" :ALIASES NIL :PORT 1074 :PROTO "tcp">
 #<SERVICE :NAME "warmspotMgmt" :ALIASES NIL :PORT 1074 :PROTO "udp">
 #<SERVICE :NAME "rdrmshc" :ALIASES NIL :PORT 1075 :PROTO "tcp">
 #<SERVICE :NAME "rdrmshc" :ALIASES NIL :PORT 1075 :PROTO "udp">
 #<SERVICE :NAME "dab-sti-c" :ALIASES NIL :PORT 1076 :PROTO "tcp">
 #<SERVICE :NAME "dab-sti-c" :ALIASES NIL :PORT 1076 :PROTO "udp">
 #<SERVICE :NAME "imgames" :ALIASES NIL :PORT 1077 :PROTO "tcp">
 #<SERVICE :NAME "imgames" :ALIASES NIL :PORT 1077 :PROTO "udp">
 #<SERVICE :NAME "avocent-proxy" :ALIASES NIL :PORT 1078 :PROTO "tcp">
 #<SERVICE :NAME "avocent-proxy" :ALIASES NIL :PORT 1078 :PROTO "udp">
 #<SERVICE :NAME "asprovatalk" :ALIASES NIL :PORT 1079 :PROTO "tcp">
 #<SERVICE :NAME "asprovatalk" :ALIASES NIL :PORT 1079 :PROTO "udp">
 #<SERVICE :NAME "pvuniwien" :ALIASES NIL :PORT 1081 :PROTO "tcp">
 #<SERVICE :NAME "pvuniwien" :ALIASES NIL :PORT 1081 :PROTO "udp">
 #<SERVICE :NAME "amt-esd-prot" :ALIASES NIL :PORT 1082 :PROTO "tcp">
 #<SERVICE :NAME "amt-esd-prot" :ALIASES NIL :PORT 1082 :PROTO "udp">
 #<SERVICE :NAME "ansoft-lm-1" :ALIASES NIL :PORT 1083 :PROTO "tcp">
 #<SERVICE :NAME "ansoft-lm-1" :ALIASES NIL :PORT 1083 :PROTO "udp">
 #<SERVICE :NAME "ansoft-lm-2" :ALIASES NIL :PORT 1084 :PROTO "tcp">
 #<SERVICE :NAME "ansoft-lm-2" :ALIASES NIL :PORT 1084 :PROTO "udp">
 #<SERVICE :NAME "webobjects" :ALIASES NIL :PORT 1085 :PROTO "tcp">
 #<SERVICE :NAME "webobjects" :ALIASES NIL :PORT 1085 :PROTO "udp">
 #<SERVICE :NAME "cplscrambler-lg" :ALIASES NIL :PORT 1086 :PROTO "tcp">
 #<SERVICE :NAME "cplscrambler-lg" :ALIASES NIL :PORT 1086 :PROTO "udp">
 #<SERVICE :NAME "cplscrambler-in" :ALIASES NIL :PORT 1087 :PROTO "tcp">
 #<SERVICE :NAME "cplscrambler-in" :ALIASES NIL :PORT 1087 :PROTO "udp">
 #<SERVICE :NAME "cplscrambler-al" :ALIASES NIL :PORT 1088 :PROTO "tcp">
 #<SERVICE :NAME "cplscrambler-al" :ALIASES NIL :PORT 1088 :PROTO "udp">
 #<SERVICE :NAME "ff-annunc" :ALIASES NIL :PORT 1089 :PROTO "tcp">
 #<SERVICE :NAME "ff-annunc" :ALIASES NIL :PORT 1089 :PROTO "udp">
 #<SERVICE :NAME "ff-fms" :ALIASES NIL :PORT 1090 :PROTO "tcp">
 #<SERVICE :NAME "ff-fms" :ALIASES NIL :PORT 1090 :PROTO "udp">
 #<SERVICE :NAME "ff-sm" :ALIASES NIL :PORT 1091 :PROTO "tcp">
 #<SERVICE :NAME "ff-sm" :ALIASES NIL :PORT 1091 :PROTO "udp">
 #<SERVICE :NAME "obrpd" :ALIASES NIL :PORT 1092 :PROTO "tcp">
 #<SERVICE :NAME "obrpd" :ALIASES NIL :PORT 1092 :PROTO "udp">
 #<SERVICE :NAME "proofd" :ALIASES NIL :PORT 1093 :PROTO "tcp">
 #<SERVICE :NAME "proofd" :ALIASES NIL :PORT 1093 :PROTO "udp">
 #<SERVICE :NAME "rootd" :ALIASES NIL :PORT 1094 :PROTO "tcp">
 #<SERVICE :NAME "rootd" :ALIASES NIL :PORT 1094 :PROTO "udp">
 #<SERVICE :NAME "nicelink" :ALIASES NIL :PORT 1095 :PROTO "tcp">
 #<SERVICE :NAME "nicelink" :ALIASES NIL :PORT 1095 :PROTO "udp">
 #<SERVICE :NAME "cnrprotocol" :ALIASES NIL :PORT 1096 :PROTO "tcp">
 #<SERVICE :NAME "cnrprotocol" :ALIASES NIL :PORT 1096 :PROTO "udp">
 #<SERVICE :NAME "sunclustermgr" :ALIASES NIL :PORT 1097 :PROTO "tcp">
 #<SERVICE :NAME "sunclustermgr" :ALIASES NIL :PORT 1097 :PROTO "udp">
 #<SERVICE :NAME "rmiactivation" :ALIASES NIL :PORT 1098 :PROTO "tcp">
 #<SERVICE :NAME "rmiactivation" :ALIASES NIL :PORT 1098 :PROTO "udp">
 #<SERVICE :NAME "rmiregistry" :ALIASES NIL :PORT 1099 :PROTO "tcp">
 #<SERVICE :NAME "rmiregistry" :ALIASES NIL :PORT 1099 :PROTO "udp">
 #<SERVICE :NAME "mctp" :ALIASES NIL :PORT 1100 :PROTO "tcp">
 #<SERVICE :NAME "mctp" :ALIASES NIL :PORT 1100 :PROTO "udp">
 #<SERVICE :NAME "pt2-discover" :ALIASES NIL :PORT 1101 :PROTO "tcp">
 #<SERVICE :NAME "pt2-discover" :ALIASES NIL :PORT 1101 :PROTO "udp">
 #<SERVICE :NAME "adobeserver-1" :ALIASES NIL :PORT 1102 :PROTO "tcp">
 #<SERVICE :NAME "adobeserver-1" :ALIASES NIL :PORT 1102 :PROTO "udp">
 #<SERVICE :NAME "adobeserver-2" :ALIASES NIL :PORT 1103 :PROTO "tcp">
 #<SERVICE :NAME "adobeserver-2" :ALIASES NIL :PORT 1103 :PROTO "udp">
 #<SERVICE :NAME "xrl" :ALIASES NIL :PORT 1104 :PROTO "tcp">
 #<SERVICE :NAME "xrl" :ALIASES NIL :PORT 1104 :PROTO "udp">
 #<SERVICE :NAME "ftranhc" :ALIASES NIL :PORT 1105 :PROTO "tcp">
 #<SERVICE :NAME "ftranhc" :ALIASES NIL :PORT 1105 :PROTO "udp">
 #<SERVICE :NAME "isoipsigport-1" :ALIASES NIL :PORT 1106 :PROTO "tcp">
 #<SERVICE :NAME "isoipsigport-1" :ALIASES NIL :PORT 1106 :PROTO "udp">
 #<SERVICE :NAME "isoipsigport-2" :ALIASES NIL :PORT 1107 :PROTO "tcp">
 #<SERVICE :NAME "isoipsigport-2" :ALIASES NIL :PORT 1107 :PROTO "udp">
 #<SERVICE :NAME "ratio-adp" :ALIASES NIL :PORT 1108 :PROTO "tcp">
 #<SERVICE :NAME "ratio-adp" :ALIASES NIL :PORT 1108 :PROTO "udp">
 #<SERVICE :NAME "webadmstart" :ALIASES NIL :PORT 1110 :PROTO "tcp">
 #<SERVICE :NAME "nfsd-keepalive" :ALIASES NIL :PORT 1110 :PROTO "udp">
 #<SERVICE :NAME "lmsocialserver" :ALIASES NIL :PORT 1111 :PROTO "tcp">
 #<SERVICE :NAME "lmsocialserver" :ALIASES NIL :PORT 1111 :PROTO "udp">
 #<SERVICE :NAME "icp" :ALIASES NIL :PORT 1112 :PROTO "tcp">
 #<SERVICE :NAME "icp" :ALIASES NIL :PORT 1112 :PROTO "udp">
 #<SERVICE :NAME "ltp-deepspace" :ALIASES NIL :PORT 1113 :PROTO "tcp">
 #<SERVICE :NAME "ltp-deepspace" :ALIASES NIL :PORT 1113 :PROTO "udp">
 #<SERVICE :NAME "ltp-deepspace" :ALIASES NIL :PORT 1113 :PROTO "dccp">
 #<SERVICE :NAME "mini-sql" :ALIASES NIL :PORT 1114 :PROTO "tcp">
 #<SERVICE :NAME "mini-sql" :ALIASES NIL :PORT 1114 :PROTO "udp">
 #<SERVICE :NAME "ardus-trns" :ALIASES NIL :PORT 1115 :PROTO "tcp">
 #<SERVICE :NAME "ardus-trns" :ALIASES NIL :PORT 1115 :PROTO "udp">
 #<SERVICE :NAME "ardus-cntl" :ALIASES NIL :PORT 1116 :PROTO "tcp">
 #<SERVICE :NAME "ardus-cntl" :ALIASES NIL :PORT 1116 :PROTO "udp">
 #<SERVICE :NAME "ardus-mtrns" :ALIASES NIL :PORT 1117 :PROTO "tcp">
 #<SERVICE :NAME "ardus-mtrns" :ALIASES NIL :PORT 1117 :PROTO "udp">
 #<SERVICE :NAME "sacred" :ALIASES NIL :PORT 1118 :PROTO "tcp">
 #<SERVICE :NAME "sacred" :ALIASES NIL :PORT 1118 :PROTO "udp">
 #<SERVICE :NAME "bnetgame" :ALIASES NIL :PORT 1119 :PROTO "tcp">
 #<SERVICE :NAME "bnetgame" :ALIASES NIL :PORT 1119 :PROTO "udp">
 #<SERVICE :NAME "bnetfile" :ALIASES NIL :PORT 1120 :PROTO "tcp">
 #<SERVICE :NAME "bnetfile" :ALIASES NIL :PORT 1120 :PROTO "udp">
 #<SERVICE :NAME "rmpp" :ALIASES NIL :PORT 1121 :PROTO "tcp">
 #<SERVICE :NAME "rmpp" :ALIASES NIL :PORT 1121 :PROTO "udp">
 #<SERVICE :NAME "availant-mgr" :ALIASES NIL :PORT 1122 :PROTO "tcp">
 #<SERVICE :NAME "availant-mgr" :ALIASES NIL :PORT 1122 :PROTO "udp">
 #<SERVICE :NAME "murray" :ALIASES NIL :PORT 1123 :PROTO "tcp">
 #<SERVICE :NAME "murray" :ALIASES NIL :PORT 1123 :PROTO "udp">
 #<SERVICE :NAME "hpvmmcontrol" :ALIASES NIL :PORT 1124 :PROTO "tcp">
 #<SERVICE :NAME "hpvmmcontrol" :ALIASES NIL :PORT 1124 :PROTO "udp">
 #<SERVICE :NAME "hpvmmagent" :ALIASES NIL :PORT 1125 :PROTO "tcp">
 #<SERVICE :NAME "hpvmmagent" :ALIASES NIL :PORT 1125 :PROTO "udp">
 #<SERVICE :NAME "hpvmmdata" :ALIASES NIL :PORT 1126 :PROTO "tcp">
 #<SERVICE :NAME "hpvmmdata" :ALIASES NIL :PORT 1126 :PROTO "udp">
 #<SERVICE :NAME "kwdb-commn" :ALIASES NIL :PORT 1127 :PROTO "udp">
 #<SERVICE :NAME "saphostctrl" :ALIASES NIL :PORT 1128 :PROTO "tcp">
 #<SERVICE :NAME "saphostctrl" :ALIASES NIL :PORT 1128 :PROTO "udp">
 #<SERVICE :NAME "saphostctrls" :ALIASES NIL :PORT 1129 :PROTO "tcp">
 #<SERVICE :NAME "saphostctrls" :ALIASES NIL :PORT 1129 :PROTO "udp">
 #<SERVICE :NAME "casp" :ALIASES NIL :PORT 1130 :PROTO "tcp">
 #<SERVICE :NAME "casp" :ALIASES NIL :PORT 1130 :PROTO "udp">
 #<SERVICE :NAME "caspssl" :ALIASES NIL :PORT 1131 :PROTO "tcp">
 #<SERVICE :NAME "caspssl" :ALIASES NIL :PORT 1131 :PROTO "udp">
 #<SERVICE :NAME "kvm-via-ip" :ALIASES NIL :PORT 1132 :PROTO "tcp">
 #<SERVICE :NAME "kvm-via-ip" :ALIASES NIL :PORT 1132 :PROTO "udp">
 #<SERVICE :NAME "dfn" :ALIASES NIL :PORT 1133 :PROTO "tcp">
 #<SERVICE :NAME "dfn" :ALIASES NIL :PORT 1133 :PROTO "udp">
 #<SERVICE :NAME "aplx" :ALIASES NIL :PORT 1134 :PROTO "tcp">
 #<SERVICE :NAME "aplx" :ALIASES NIL :PORT 1134 :PROTO "udp">
 #<SERVICE :NAME "omnivision" :ALIASES NIL :PORT 1135 :PROTO "tcp">
 #<SERVICE :NAME "omnivision" :ALIASES NIL :PORT 1135 :PROTO "udp">
 #<SERVICE :NAME "hhb-gateway" :ALIASES NIL :PORT 1136 :PROTO "tcp">
 #<SERVICE :NAME "hhb-gateway" :ALIASES NIL :PORT 1136 :PROTO "udp">
 #<SERVICE :NAME "trim" :ALIASES NIL :PORT 1137 :PROTO "tcp">
 #<SERVICE :NAME "trim" :ALIASES NIL :PORT 1137 :PROTO "udp">
 #<SERVICE :NAME "encrypted_admin" :ALIASES ("encrypted-admin") :PORT 1138
   :PROTO "tcp">
 #<SERVICE :NAME "encrypted_admin" :ALIASES ("encrypted-admin") :PORT 1138
   :PROTO "udp">
 #<SERVICE :NAME "evm" :ALIASES NIL :PORT 1139 :PROTO "tcp">
 #<SERVICE :NAME "evm" :ALIASES NIL :PORT 1139 :PROTO "udp">
 #<SERVICE :NAME "autonoc" :ALIASES NIL :PORT 1140 :PROTO "tcp">
 #<SERVICE :NAME "autonoc" :ALIASES NIL :PORT 1140 :PROTO "udp">
 #<SERVICE :NAME "mxomss" :ALIASES NIL :PORT 1141 :PROTO "tcp">
 #<SERVICE :NAME "mxomss" :ALIASES NIL :PORT 1141 :PROTO "udp">
 #<SERVICE :NAME "edtools" :ALIASES NIL :PORT 1142 :PROTO "tcp">
 #<SERVICE :NAME "edtools" :ALIASES NIL :PORT 1142 :PROTO "udp">
 #<SERVICE :NAME "imyx" :ALIASES NIL :PORT 1143 :PROTO "tcp">
 #<SERVICE :NAME "imyx" :ALIASES NIL :PORT 1143 :PROTO "udp">
 #<SERVICE :NAME "fuscript" :ALIASES NIL :PORT 1144 :PROTO "tcp">
 #<SERVICE :NAME "fuscript" :ALIASES NIL :PORT 1144 :PROTO "udp">
 #<SERVICE :NAME "x9-icue" :ALIASES NIL :PORT 1145 :PROTO "tcp">
 #<SERVICE :NAME "x9-icue" :ALIASES NIL :PORT 1145 :PROTO "udp">
 #<SERVICE :NAME "audit-transfer" :ALIASES NIL :PORT 1146 :PROTO "tcp">
 #<SERVICE :NAME "audit-transfer" :ALIASES NIL :PORT 1146 :PROTO "udp">
 #<SERVICE :NAME "capioverlan" :ALIASES NIL :PORT 1147 :PROTO "tcp">
 #<SERVICE :NAME "capioverlan" :ALIASES NIL :PORT 1147 :PROTO "udp">
 #<SERVICE :NAME "elfiq-repl" :ALIASES NIL :PORT 1148 :PROTO "tcp">
 #<SERVICE :NAME "elfiq-repl" :ALIASES NIL :PORT 1148 :PROTO "udp">
 #<SERVICE :NAME "bvtsonar" :ALIASES NIL :PORT 1149 :PROTO "tcp">
 #<SERVICE :NAME "bvtsonar" :ALIASES NIL :PORT 1149 :PROTO "udp">
 #<SERVICE :NAME "blaze" :ALIASES NIL :PORT 1150 :PROTO "tcp">
 #<SERVICE :NAME "blaze" :ALIASES NIL :PORT 1150 :PROTO "udp">
 #<SERVICE :NAME "unizensus" :ALIASES NIL :PORT 1151 :PROTO "tcp">
 #<SERVICE :NAME "unizensus" :ALIASES NIL :PORT 1151 :PROTO "udp">
 #<SERVICE :NAME "winpoplanmess" :ALIASES NIL :PORT 1152 :PROTO "tcp">
 #<SERVICE :NAME "winpoplanmess" :ALIASES NIL :PORT 1152 :PROTO "udp">
 #<SERVICE :NAME "c1222-acse" :ALIASES NIL :PORT 1153 :PROTO "tcp">
 #<SERVICE :NAME "c1222-acse" :ALIASES NIL :PORT 1153 :PROTO "udp">
 #<SERVICE :NAME "resacommunity" :ALIASES NIL :PORT 1154 :PROTO "tcp">
 #<SERVICE :NAME "resacommunity" :ALIASES NIL :PORT 1154 :PROTO "udp">
 #<SERVICE :NAME "nfa" :ALIASES NIL :PORT 1155 :PROTO "tcp">
 #<SERVICE :NAME "nfa" :ALIASES NIL :PORT 1155 :PROTO "udp">
 #<SERVICE :NAME "iascontrol-oms" :ALIASES NIL :PORT 1156 :PROTO "tcp">
 #<SERVICE :NAME "iascontrol-oms" :ALIASES NIL :PORT 1156 :PROTO "udp">
 #<SERVICE :NAME "iascontrol" :ALIASES NIL :PORT 1157 :PROTO "tcp">
 #<SERVICE :NAME "iascontrol" :ALIASES NIL :PORT 1157 :PROTO "udp">
 #<SERVICE :NAME "dbcontrol-oms" :ALIASES NIL :PORT 1158 :PROTO "tcp">
 #<SERVICE :NAME "dbcontrol-oms" :ALIASES NIL :PORT 1158 :PROTO "udp">
 #<SERVICE :NAME "oracle-oms" :ALIASES NIL :PORT 1159 :PROTO "tcp">
 #<SERVICE :NAME "oracle-oms" :ALIASES NIL :PORT 1159 :PROTO "udp">
 #<SERVICE :NAME "olsv" :ALIASES NIL :PORT 1160 :PROTO "tcp">
 #<SERVICE :NAME "olsv" :ALIASES NIL :PORT 1160 :PROTO "udp">
 #<SERVICE :NAME "health-polling" :ALIASES NIL :PORT 1161 :PROTO "tcp">
 #<SERVICE :NAME "health-polling" :ALIASES NIL :PORT 1161 :PROTO "udp">
 #<SERVICE :NAME "health-trap" :ALIASES NIL :PORT 1162 :PROTO "tcp">
 #<SERVICE :NAME "health-trap" :ALIASES NIL :PORT 1162 :PROTO "udp">
 #<SERVICE :NAME "sddp" :ALIASES NIL :PORT 1163 :PROTO "tcp">
 #<SERVICE :NAME "sddp" :ALIASES NIL :PORT 1163 :PROTO "udp">
 #<SERVICE :NAME "qsm-proxy" :ALIASES NIL :PORT 1164 :PROTO "tcp">
 #<SERVICE :NAME "qsm-proxy" :ALIASES NIL :PORT 1164 :PROTO "udp">
 #<SERVICE :NAME "qsm-gui" :ALIASES NIL :PORT 1165 :PROTO "tcp">
 #<SERVICE :NAME "qsm-gui" :ALIASES NIL :PORT 1165 :PROTO "udp">
 #<SERVICE :NAME "qsm-remote" :ALIASES NIL :PORT 1166 :PROTO "tcp">
 #<SERVICE :NAME "qsm-remote" :ALIASES NIL :PORT 1166 :PROTO "udp">
 #<SERVICE :NAME "cisco-ipsla" :ALIASES NIL :PORT 1167 :PROTO "tcp">
 #<SERVICE :NAME "cisco-ipsla" :ALIASES NIL :PORT 1167 :PROTO "udp">
 #<SERVICE :NAME "cisco-ipsla" :ALIASES NIL :PORT 1167 :PROTO "sctp">
 #<SERVICE :NAME "vchat" :ALIASES NIL :PORT 1168 :PROTO "tcp">
 #<SERVICE :NAME "vchat" :ALIASES NIL :PORT 1168 :PROTO "udp">
 #<SERVICE :NAME "tripwire" :ALIASES NIL :PORT 1169 :PROTO "tcp">
 #<SERVICE :NAME "tripwire" :ALIASES NIL :PORT 1169 :PROTO "udp">
 #<SERVICE :NAME "atc-lm" :ALIASES NIL :PORT 1170 :PROTO "tcp">
 #<SERVICE :NAME "atc-lm" :ALIASES NIL :PORT 1170 :PROTO "udp">
 #<SERVICE :NAME "atc-appserver" :ALIASES NIL :PORT 1171 :PROTO "tcp">
 #<SERVICE :NAME "atc-appserver" :ALIASES NIL :PORT 1171 :PROTO "udp">
 #<SERVICE :NAME "dnap" :ALIASES NIL :PORT 1172 :PROTO "tcp">
 #<SERVICE :NAME "dnap" :ALIASES NIL :PORT 1172 :PROTO "udp">
 #<SERVICE :NAME "d-cinema-rrp" :ALIASES NIL :PORT 1173 :PROTO "tcp">
 #<SERVICE :NAME "d-cinema-rrp" :ALIASES NIL :PORT 1173 :PROTO "udp">
 #<SERVICE :NAME "fnet-remote-ui" :ALIASES NIL :PORT 1174 :PROTO "tcp">
 #<SERVICE :NAME "fnet-remote-ui" :ALIASES NIL :PORT 1174 :PROTO "udp">
 #<SERVICE :NAME "dossier" :ALIASES NIL :PORT 1175 :PROTO "tcp">
 #<SERVICE :NAME "dossier" :ALIASES NIL :PORT 1175 :PROTO "udp">
 #<SERVICE :NAME "indigo-server" :ALIASES NIL :PORT 1176 :PROTO "tcp">
 #<SERVICE :NAME "indigo-server" :ALIASES NIL :PORT 1176 :PROTO "udp">
 #<SERVICE :NAME "dkmessenger" :ALIASES NIL :PORT 1177 :PROTO "tcp">
 #<SERVICE :NAME "dkmessenger" :ALIASES NIL :PORT 1177 :PROTO "udp">
 #<SERVICE :NAME "sgi-storman" :ALIASES NIL :PORT 1178 :PROTO "udp">
 #<SERVICE :NAME "b2n" :ALIASES NIL :PORT 1179 :PROTO "tcp">
 #<SERVICE :NAME "b2n" :ALIASES NIL :PORT 1179 :PROTO "udp">
 #<SERVICE :NAME "mc-client" :ALIASES NIL :PORT 1180 :PROTO "tcp">
 #<SERVICE :NAME "mc-client" :ALIASES NIL :PORT 1180 :PROTO "udp">
 #<SERVICE :NAME "3comnetman" :ALIASES NIL :PORT 1181 :PROTO "tcp">
 #<SERVICE :NAME "3comnetman" :ALIASES NIL :PORT 1181 :PROTO "udp">
 #<SERVICE :NAME "accelenet" :ALIASES NIL :PORT 1182 :PROTO "tcp">
 #<SERVICE :NAME "accelenet-data" :ALIASES NIL :PORT 1182 :PROTO "udp">
 #<SERVICE :NAME "llsurfup-http" :ALIASES NIL :PORT 1183 :PROTO "tcp">
 #<SERVICE :NAME "llsurfup-http" :ALIASES NIL :PORT 1183 :PROTO "udp">
 #<SERVICE :NAME "llsurfup-https" :ALIASES NIL :PORT 1184 :PROTO "tcp">
 #<SERVICE :NAME "llsurfup-https" :ALIASES NIL :PORT 1184 :PROTO "udp">
 #<SERVICE :NAME "catchpole" :ALIASES NIL :PORT 1185 :PROTO "tcp">
 #<SERVICE :NAME "catchpole" :ALIASES NIL :PORT 1185 :PROTO "udp">
 #<SERVICE :NAME "mysql-cluster" :ALIASES NIL :PORT 1186 :PROTO "tcp">
 #<SERVICE :NAME "mysql-cluster" :ALIASES NIL :PORT 1186 :PROTO "udp">
 #<SERVICE :NAME "alias" :ALIASES NIL :PORT 1187 :PROTO "tcp">
 #<SERVICE :NAME "alias" :ALIASES NIL :PORT 1187 :PROTO "udp">
 #<SERVICE :NAME "hp-webadmin" :ALIASES NIL :PORT 1188 :PROTO "tcp">
 #<SERVICE :NAME "hp-webadmin" :ALIASES NIL :PORT 1188 :PROTO "udp">
 #<SERVICE :NAME "unet" :ALIASES NIL :PORT 1189 :PROTO "tcp">
 #<SERVICE :NAME "unet" :ALIASES NIL :PORT 1189 :PROTO "udp">
 #<SERVICE :NAME "commlinx-avl" :ALIASES NIL :PORT 1190 :PROTO "tcp">
 #<SERVICE :NAME "commlinx-avl" :ALIASES NIL :PORT 1190 :PROTO "udp">
 #<SERVICE :NAME "gpfs" :ALIASES NIL :PORT 1191 :PROTO "tcp">
 #<SERVICE :NAME "gpfs" :ALIASES NIL :PORT 1191 :PROTO "udp">
 #<SERVICE :NAME "caids-sensor" :ALIASES NIL :PORT 1192 :PROTO "tcp">
 #<SERVICE :NAME "caids-sensor" :ALIASES NIL :PORT 1192 :PROTO "udp">
 #<SERVICE :NAME "fiveacross" :ALIASES NIL :PORT 1193 :PROTO "tcp">
 #<SERVICE :NAME "fiveacross" :ALIASES NIL :PORT 1193 :PROTO "udp">
 #<SERVICE :NAME "openvpn" :ALIASES NIL :PORT 1194 :PROTO "tcp">
 #<SERVICE :NAME "openvpn" :ALIASES NIL :PORT 1194 :PROTO "udp">
 #<SERVICE :NAME "rsf-1" :ALIASES NIL :PORT 1195 :PROTO "tcp">
 #<SERVICE :NAME "rsf-1" :ALIASES NIL :PORT 1195 :PROTO "udp">
 #<SERVICE :NAME "netmagic" :ALIASES NIL :PORT 1196 :PROTO "tcp">
 #<SERVICE :NAME "netmagic" :ALIASES NIL :PORT 1196 :PROTO "udp">
 #<SERVICE :NAME "carrius-rshell" :ALIASES NIL :PORT 1197 :PROTO "tcp">
 #<SERVICE :NAME "carrius-rshell" :ALIASES NIL :PORT 1197 :PROTO "udp">
 #<SERVICE :NAME "cajo-discovery" :ALIASES NIL :PORT 1198 :PROTO "tcp">
 #<SERVICE :NAME "cajo-discovery" :ALIASES NIL :PORT 1198 :PROTO "udp">
 #<SERVICE :NAME "dmidi" :ALIASES NIL :PORT 1199 :PROTO "tcp">
 #<SERVICE :NAME "dmidi" :ALIASES NIL :PORT 1199 :PROTO "udp">
 #<SERVICE :NAME "scol" :ALIASES NIL :PORT 1200 :PROTO "tcp">
 #<SERVICE :NAME "scol" :ALIASES NIL :PORT 1200 :PROTO "udp">
 #<SERVICE :NAME "nucleus-sand" :ALIASES NIL :PORT 1201 :PROTO "tcp">
 #<SERVICE :NAME "nucleus-sand" :ALIASES NIL :PORT 1201 :PROTO "udp">
 #<SERVICE :NAME "caiccipc" :ALIASES NIL :PORT 1202 :PROTO "tcp">
 #<SERVICE :NAME "caiccipc" :ALIASES NIL :PORT 1202 :PROTO "udp">
 #<SERVICE :NAME "ssslic-mgr" :ALIASES NIL :PORT 1203 :PROTO "tcp">
 #<SERVICE :NAME "ssslic-mgr" :ALIASES NIL :PORT 1203 :PROTO "udp">
 #<SERVICE :NAME "ssslog-mgr" :ALIASES NIL :PORT 1204 :PROTO "tcp">
 #<SERVICE :NAME "ssslog-mgr" :ALIASES NIL :PORT 1204 :PROTO "udp">
 #<SERVICE :NAME "accord-mgc" :ALIASES NIL :PORT 1205 :PROTO "tcp">
 #<SERVICE :NAME "accord-mgc" :ALIASES NIL :PORT 1205 :PROTO "udp">
 #<SERVICE :NAME "anthony-data" :ALIASES NIL :PORT 1206 :PROTO "tcp">
 #<SERVICE :NAME "anthony-data" :ALIASES NIL :PORT 1206 :PROTO "udp">
 #<SERVICE :NAME "metasage" :ALIASES NIL :PORT 1207 :PROTO "tcp">
 #<SERVICE :NAME "metasage" :ALIASES NIL :PORT 1207 :PROTO "udp">
 #<SERVICE :NAME "seagull-ais" :ALIASES NIL :PORT 1208 :PROTO "tcp">
 #<SERVICE :NAME "seagull-ais" :ALIASES NIL :PORT 1208 :PROTO "udp">
 #<SERVICE :NAME "ipcd3" :ALIASES NIL :PORT 1209 :PROTO "tcp">
 #<SERVICE :NAME "ipcd3" :ALIASES NIL :PORT 1209 :PROTO "udp">
 #<SERVICE :NAME "eoss" :ALIASES NIL :PORT 1210 :PROTO "tcp">
 #<SERVICE :NAME "eoss" :ALIASES NIL :PORT 1210 :PROTO "udp">
 #<SERVICE :NAME "groove-dpp" :ALIASES NIL :PORT 1211 :PROTO "tcp">
 #<SERVICE :NAME "groove-dpp" :ALIASES NIL :PORT 1211 :PROTO "udp">
 #<SERVICE :NAME "lupa" :ALIASES NIL :PORT 1212 :PROTO "tcp">
 #<SERVICE :NAME "lupa" :ALIASES NIL :PORT 1212 :PROTO "udp">
 #<SERVICE :NAME "mpc-lifenet" :ALIASES NIL :PORT 1213 :PROTO "tcp">
 #<SERVICE :NAME "mpc-lifenet" :ALIASES NIL :PORT 1213 :PROTO "udp">
 #<SERVICE :NAME "kazaa" :ALIASES NIL :PORT 1214 :PROTO "tcp">
 #<SERVICE :NAME "kazaa" :ALIASES NIL :PORT 1214 :PROTO "udp">
 #<SERVICE :NAME "scanstat-1" :ALIASES NIL :PORT 1215 :PROTO "tcp">
 #<SERVICE :NAME "scanstat-1" :ALIASES NIL :PORT 1215 :PROTO "udp">
 #<SERVICE :NAME "etebac5" :ALIASES NIL :PORT 1216 :PROTO "tcp">
 #<SERVICE :NAME "etebac5" :ALIASES NIL :PORT 1216 :PROTO "udp">
 #<SERVICE :NAME "hpss-ndapi" :ALIASES NIL :PORT 1217 :PROTO "tcp">
 #<SERVICE :NAME "hpss-ndapi" :ALIASES NIL :PORT 1217 :PROTO "udp">
 #<SERVICE :NAME "aeroflight-ads" :ALIASES NIL :PORT 1218 :PROTO "tcp">
 #<SERVICE :NAME "aeroflight-ads" :ALIASES NIL :PORT 1218 :PROTO "udp">
 #<SERVICE :NAME "aeroflight-ret" :ALIASES NIL :PORT 1219 :PROTO "tcp">
 #<SERVICE :NAME "aeroflight-ret" :ALIASES NIL :PORT 1219 :PROTO "udp">
 #<SERVICE :NAME "qt-serveradmin" :ALIASES NIL :PORT 1220 :PROTO "tcp">
 #<SERVICE :NAME "qt-serveradmin" :ALIASES NIL :PORT 1220 :PROTO "udp">
 #<SERVICE :NAME "sweetware-apps" :ALIASES NIL :PORT 1221 :PROTO "tcp">
 #<SERVICE :NAME "sweetware-apps" :ALIASES NIL :PORT 1221 :PROTO "udp">
 #<SERVICE :NAME "nerv" :ALIASES NIL :PORT 1222 :PROTO "tcp">
 #<SERVICE :NAME "nerv" :ALIASES NIL :PORT 1222 :PROTO "udp">
 #<SERVICE :NAME "tgp" :ALIASES NIL :PORT 1223 :PROTO "tcp">
 #<SERVICE :NAME "tgp" :ALIASES NIL :PORT 1223 :PROTO "udp">
 #<SERVICE :NAME "vpnz" :ALIASES NIL :PORT 1224 :PROTO "tcp">
 #<SERVICE :NAME "vpnz" :ALIASES NIL :PORT 1224 :PROTO "udp">
 #<SERVICE :NAME "slinkysearch" :ALIASES NIL :PORT 1225 :PROTO "tcp">
 #<SERVICE :NAME "slinkysearch" :ALIASES NIL :PORT 1225 :PROTO "udp">
 #<SERVICE :NAME "stgxfws" :ALIASES NIL :PORT 1226 :PROTO "tcp">
 #<SERVICE :NAME "stgxfws" :ALIASES NIL :PORT 1226 :PROTO "udp">
 #<SERVICE :NAME "dns2go" :ALIASES NIL :PORT 1227 :PROTO "tcp">
 #<SERVICE :NAME "dns2go" :ALIASES NIL :PORT 1227 :PROTO "udp">
 #<SERVICE :NAME "florence" :ALIASES NIL :PORT 1228 :PROTO "tcp">
 #<SERVICE :NAME "florence" :ALIASES NIL :PORT 1228 :PROTO "udp">
 #<SERVICE :NAME "zented" :ALIASES NIL :PORT 1229 :PROTO "tcp">
 #<SERVICE :NAME "zented" :ALIASES NIL :PORT 1229 :PROTO "udp">
 #<SERVICE :NAME "periscope" :ALIASES NIL :PORT 1230 :PROTO "tcp">
 #<SERVICE :NAME "periscope" :ALIASES NIL :PORT 1230 :PROTO "udp">
 #<SERVICE :NAME "menandmice-lpm" :ALIASES NIL :PORT 1231 :PROTO "tcp">
 #<SERVICE :NAME "menandmice-lpm" :ALIASES NIL :PORT 1231 :PROTO "udp">
 #<SERVICE :NAME "first-defense" :ALIASES NIL :PORT 1232 :PROTO "tcp">
 #<SERVICE :NAME "first-defense" :ALIASES NIL :PORT 1232 :PROTO "udp">
 #<SERVICE :NAME "univ-appserver" :ALIASES NIL :PORT 1233 :PROTO "tcp">
 #<SERVICE :NAME "univ-appserver" :ALIASES NIL :PORT 1233 :PROTO "udp">
 #<SERVICE :NAME "search-agent" :ALIASES NIL :PORT 1234 :PROTO "tcp">
 #<SERVICE :NAME "search-agent" :ALIASES NIL :PORT 1234 :PROTO "udp">
 #<SERVICE :NAME "mosaicsyssvc1" :ALIASES NIL :PORT 1235 :PROTO "tcp">
 #<SERVICE :NAME "mosaicsyssvc1" :ALIASES NIL :PORT 1235 :PROTO "udp">
 #<SERVICE :NAME "tsdos390" :ALIASES NIL :PORT 1237 :PROTO "tcp">
 #<SERVICE :NAME "tsdos390" :ALIASES NIL :PORT 1237 :PROTO "udp">
 #<SERVICE :NAME "hacl-qs" :ALIASES NIL :PORT 1238 :PROTO "tcp">
 #<SERVICE :NAME "hacl-qs" :ALIASES NIL :PORT 1238 :PROTO "udp">
 #<SERVICE :NAME "nmsd" :ALIASES NIL :PORT 1239 :PROTO "tcp">
 #<SERVICE :NAME "nmsd" :ALIASES NIL :PORT 1239 :PROTO "udp">
 #<SERVICE :NAME "instantia" :ALIASES NIL :PORT 1240 :PROTO "tcp">
 #<SERVICE :NAME "instantia" :ALIASES NIL :PORT 1240 :PROTO "udp">
 #<SERVICE :NAME "nessus" :ALIASES NIL :PORT 1241 :PROTO "tcp">
 #<SERVICE :NAME "nessus" :ALIASES NIL :PORT 1241 :PROTO "udp">
 #<SERVICE :NAME "nmasoverip" :ALIASES NIL :PORT 1242 :PROTO "tcp">
 #<SERVICE :NAME "nmasoverip" :ALIASES NIL :PORT 1242 :PROTO "udp">
 #<SERVICE :NAME "serialgateway" :ALIASES NIL :PORT 1243 :PROTO "tcp">
 #<SERVICE :NAME "serialgateway" :ALIASES NIL :PORT 1243 :PROTO "udp">
 #<SERVICE :NAME "isbconference1" :ALIASES NIL :PORT 1244 :PROTO "tcp">
 #<SERVICE :NAME "isbconference1" :ALIASES NIL :PORT 1244 :PROTO "udp">
 #<SERVICE :NAME "isbconference2" :ALIASES NIL :PORT 1245 :PROTO "tcp">
 #<SERVICE :NAME "isbconference2" :ALIASES NIL :PORT 1245 :PROTO "udp">
 #<SERVICE :NAME "payrouter" :ALIASES NIL :PORT 1246 :PROTO "tcp">
 #<SERVICE :NAME "payrouter" :ALIASES NIL :PORT 1246 :PROTO "udp">
 #<SERVICE :NAME "visionpyramid" :ALIASES NIL :PORT 1247 :PROTO "tcp">
 #<SERVICE :NAME "visionpyramid" :ALIASES NIL :PORT 1247 :PROTO "udp">
 #<SERVICE :NAME "hermes" :ALIASES NIL :PORT 1248 :PROTO "tcp">
 #<SERVICE :NAME "hermes" :ALIASES NIL :PORT 1248 :PROTO "udp">
 #<SERVICE :NAME "mesavistaco" :ALIASES NIL :PORT 1249 :PROTO "tcp">
 #<SERVICE :NAME "mesavistaco" :ALIASES NIL :PORT 1249 :PROTO "udp">
 #<SERVICE :NAME "swldy-sias" :ALIASES NIL :PORT 1250 :PROTO "tcp">
 #<SERVICE :NAME "swldy-sias" :ALIASES NIL :PORT 1250 :PROTO "udp">
 #<SERVICE :NAME "servergraph" :ALIASES NIL :PORT 1251 :PROTO "tcp">
 #<SERVICE :NAME "servergraph" :ALIASES NIL :PORT 1251 :PROTO "udp">
 #<SERVICE :NAME "bspne-pcc" :ALIASES NIL :PORT 1252 :PROTO "tcp">
 #<SERVICE :NAME "bspne-pcc" :ALIASES NIL :PORT 1252 :PROTO "udp">
 #<SERVICE :NAME "q55-pcc" :ALIASES NIL :PORT 1253 :PROTO "tcp">
 #<SERVICE :NAME "q55-pcc" :ALIASES NIL :PORT 1253 :PROTO "udp">
 #<SERVICE :NAME "de-noc" :ALIASES NIL :PORT 1254 :PROTO "tcp">
 #<SERVICE :NAME "de-noc" :ALIASES NIL :PORT 1254 :PROTO "udp">
 #<SERVICE :NAME "de-cache-query" :ALIASES NIL :PORT 1255 :PROTO "tcp">
 #<SERVICE :NAME "de-cache-query" :ALIASES NIL :PORT 1255 :PROTO "udp">
 #<SERVICE :NAME "de-server" :ALIASES NIL :PORT 1256 :PROTO "tcp">
 #<SERVICE :NAME "de-server" :ALIASES NIL :PORT 1256 :PROTO "udp">
 #<SERVICE :NAME "shockwave2" :ALIASES NIL :PORT 1257 :PROTO "tcp">
 #<SERVICE :NAME "shockwave2" :ALIASES NIL :PORT 1257 :PROTO "udp">
 #<SERVICE :NAME "opennl" :ALIASES NIL :PORT 1258 :PROTO "tcp">
 #<SERVICE :NAME "opennl" :ALIASES NIL :PORT 1258 :PROTO "udp">
 #<SERVICE :NAME "opennl-voice" :ALIASES NIL :PORT 1259 :PROTO "tcp">
 #<SERVICE :NAME "opennl-voice" :ALIASES NIL :PORT 1259 :PROTO "udp">
 #<SERVICE :NAME "ibm-ssd" :ALIASES NIL :PORT 1260 :PROTO "tcp">
 #<SERVICE :NAME "ibm-ssd" :ALIASES NIL :PORT 1260 :PROTO "udp">
 #<SERVICE :NAME "mpshrsv" :ALIASES NIL :PORT 1261 :PROTO "tcp">
 #<SERVICE :NAME "mpshrsv" :ALIASES NIL :PORT 1261 :PROTO "udp">
 #<SERVICE :NAME "qnts-orb" :ALIASES NIL :PORT 1262 :PROTO "tcp">
 #<SERVICE :NAME "qnts-orb" :ALIASES NIL :PORT 1262 :PROTO "udp">
 #<SERVICE :NAME "dka" :ALIASES NIL :PORT 1263 :PROTO "tcp">
 #<SERVICE :NAME "dka" :ALIASES NIL :PORT 1263 :PROTO "udp">
 #<SERVICE :NAME "prat" :ALIASES NIL :PORT 1264 :PROTO "tcp">
 #<SERVICE :NAME "prat" :ALIASES NIL :PORT 1264 :PROTO "udp">
 #<SERVICE :NAME "dssiapi" :ALIASES NIL :PORT 1265 :PROTO "tcp">
 #<SERVICE :NAME "dssiapi" :ALIASES NIL :PORT 1265 :PROTO "udp">
 #<SERVICE :NAME "dellpwrappks" :ALIASES NIL :PORT 1266 :PROTO "tcp">
 #<SERVICE :NAME "dellpwrappks" :ALIASES NIL :PORT 1266 :PROTO "udp">
 #<SERVICE :NAME "epc" :ALIASES NIL :PORT 1267 :PROTO "tcp">
 #<SERVICE :NAME "epc" :ALIASES NIL :PORT 1267 :PROTO "udp">
 #<SERVICE :NAME "propel-msgsys" :ALIASES NIL :PORT 1268 :PROTO "tcp">
 #<SERVICE :NAME "propel-msgsys" :ALIASES NIL :PORT 1268 :PROTO "udp">
 #<SERVICE :NAME "watilapp" :ALIASES NIL :PORT 1269 :PROTO "tcp">
 #<SERVICE :NAME "watilapp" :ALIASES NIL :PORT 1269 :PROTO "udp">
 #<SERVICE :NAME "opsmgr" :ALIASES NIL :PORT 1270 :PROTO "tcp">
 #<SERVICE :NAME "opsmgr" :ALIASES NIL :PORT 1270 :PROTO "udp">
 #<SERVICE :NAME "excw" :ALIASES NIL :PORT 1271 :PROTO "tcp">
 #<SERVICE :NAME "excw" :ALIASES NIL :PORT 1271 :PROTO "udp">
 #<SERVICE :NAME "cspmlockmgr" :ALIASES NIL :PORT 1272 :PROTO "tcp">
 #<SERVICE :NAME "cspmlockmgr" :ALIASES NIL :PORT 1272 :PROTO "udp">
 #<SERVICE :NAME "emc-gateway" :ALIASES NIL :PORT 1273 :PROTO "tcp">
 #<SERVICE :NAME "emc-gateway" :ALIASES NIL :PORT 1273 :PROTO "udp">
 #<SERVICE :NAME "t1distproc" :ALIASES NIL :PORT 1274 :PROTO "tcp">
 #<SERVICE :NAME "t1distproc" :ALIASES NIL :PORT 1274 :PROTO "udp">
 #<SERVICE :NAME "ivcollector" :ALIASES NIL :PORT 1275 :PROTO "tcp">
 #<SERVICE :NAME "ivcollector" :ALIASES NIL :PORT 1275 :PROTO "udp">
 #<SERVICE :NAME "miva-mqs" :ALIASES NIL :PORT 1277 :PROTO "tcp">
 #<SERVICE :NAME "miva-mqs" :ALIASES NIL :PORT 1277 :PROTO "udp">
 #<SERVICE :NAME "dellwebadmin-1" :ALIASES NIL :PORT 1278 :PROTO "tcp">
 #<SERVICE :NAME "dellwebadmin-1" :ALIASES NIL :PORT 1278 :PROTO "udp">
 #<SERVICE :NAME "dellwebadmin-2" :ALIASES NIL :PORT 1279 :PROTO "tcp">
 #<SERVICE :NAME "dellwebadmin-2" :ALIASES NIL :PORT 1279 :PROTO "udp">
 #<SERVICE :NAME "pictrography" :ALIASES NIL :PORT 1280 :PROTO "tcp">
 #<SERVICE :NAME "pictrography" :ALIASES NIL :PORT 1280 :PROTO "udp">
 #<SERVICE :NAME "healthd" :ALIASES NIL :PORT 1281 :PROTO "tcp">
 #<SERVICE :NAME "healthd" :ALIASES NIL :PORT 1281 :PROTO "udp">
 #<SERVICE :NAME "emperion" :ALIASES NIL :PORT 1282 :PROTO "tcp">
 #<SERVICE :NAME "emperion" :ALIASES NIL :PORT 1282 :PROTO "udp">
 #<SERVICE :NAME "productinfo" :ALIASES NIL :PORT 1283 :PROTO "tcp">
 #<SERVICE :NAME "productinfo" :ALIASES NIL :PORT 1283 :PROTO "udp">
 #<SERVICE :NAME "iee-qfx" :ALIASES NIL :PORT 1284 :PROTO "tcp">
 #<SERVICE :NAME "iee-qfx" :ALIASES NIL :PORT 1284 :PROTO "udp">
 #<SERVICE :NAME "neoiface" :ALIASES NIL :PORT 1285 :PROTO "tcp">
 #<SERVICE :NAME "neoiface" :ALIASES NIL :PORT 1285 :PROTO "udp">
 #<SERVICE :NAME "netuitive" :ALIASES NIL :PORT 1286 :PROTO "tcp">
 #<SERVICE :NAME "netuitive" :ALIASES NIL :PORT 1286 :PROTO "udp">
 #<SERVICE :NAME "routematch" :ALIASES NIL :PORT 1287 :PROTO "tcp">
 #<SERVICE :NAME "routematch" :ALIASES NIL :PORT 1287 :PROTO "udp">
 #<SERVICE :NAME "navbuddy" :ALIASES NIL :PORT 1288 :PROTO "tcp">
 #<SERVICE :NAME "navbuddy" :ALIASES NIL :PORT 1288 :PROTO "udp">
 #<SERVICE :NAME "jwalkserver" :ALIASES NIL :PORT 1289 :PROTO "tcp">
 #<SERVICE :NAME "jwalkserver" :ALIASES NIL :PORT 1289 :PROTO "udp">
 #<SERVICE :NAME "winjaserver" :ALIASES NIL :PORT 1290 :PROTO "tcp">
 #<SERVICE :NAME "winjaserver" :ALIASES NIL :PORT 1290 :PROTO "udp">
 #<SERVICE :NAME "seagulllms" :ALIASES NIL :PORT 1291 :PROTO "tcp">
 #<SERVICE :NAME "seagulllms" :ALIASES NIL :PORT 1291 :PROTO "udp">
 #<SERVICE :NAME "dsdn" :ALIASES NIL :PORT 1292 :PROTO "tcp">
 #<SERVICE :NAME "dsdn" :ALIASES NIL :PORT 1292 :PROTO "udp">
 #<SERVICE :NAME "pkt-krb-ipsec" :ALIASES NIL :PORT 1293 :PROTO "tcp">
 #<SERVICE :NAME "pkt-krb-ipsec" :ALIASES NIL :PORT 1293 :PROTO "udp">
 #<SERVICE :NAME "cmmdriver" :ALIASES NIL :PORT 1294 :PROTO "tcp">
 #<SERVICE :NAME "cmmdriver" :ALIASES NIL :PORT 1294 :PROTO "udp">
 #<SERVICE :NAME "ehtp" :ALIASES NIL :PORT 1295 :PROTO "tcp">
 #<SERVICE :NAME "ehtp" :ALIASES NIL :PORT 1295 :PROTO "udp">
 #<SERVICE :NAME "dproxy" :ALIASES NIL :PORT 1296 :PROTO "tcp">
 #<SERVICE :NAME "dproxy" :ALIASES NIL :PORT 1296 :PROTO "udp">
 #<SERVICE :NAME "sdproxy" :ALIASES NIL :PORT 1297 :PROTO "tcp">
 #<SERVICE :NAME "sdproxy" :ALIASES NIL :PORT 1297 :PROTO "udp">
 #<SERVICE :NAME "lpcp" :ALIASES NIL :PORT 1298 :PROTO "tcp">
 #<SERVICE :NAME "lpcp" :ALIASES NIL :PORT 1298 :PROTO "udp">
 #<SERVICE :NAME "hp-sci" :ALIASES NIL :PORT 1299 :PROTO "tcp">
 #<SERVICE :NAME "hp-sci" :ALIASES NIL :PORT 1299 :PROTO "udp">
 #<SERVICE :NAME "ci3-software-1" :ALIASES NIL :PORT 1301 :PROTO "tcp">
 #<SERVICE :NAME "ci3-software-1" :ALIASES NIL :PORT 1301 :PROTO "udp">
 #<SERVICE :NAME "ci3-software-2" :ALIASES NIL :PORT 1302 :PROTO "tcp">
 #<SERVICE :NAME "ci3-software-2" :ALIASES NIL :PORT 1302 :PROTO "udp">
 #<SERVICE :NAME "sftsrv" :ALIASES NIL :PORT 1303 :PROTO "tcp">
 #<SERVICE :NAME "sftsrv" :ALIASES NIL :PORT 1303 :PROTO "udp">
 #<SERVICE :NAME "boomerang" :ALIASES NIL :PORT 1304 :PROTO "tcp">
 #<SERVICE :NAME "boomerang" :ALIASES NIL :PORT 1304 :PROTO "udp">
 #<SERVICE :NAME "pe-mike" :ALIASES NIL :PORT 1305 :PROTO "tcp">
 #<SERVICE :NAME "pe-mike" :ALIASES NIL :PORT 1305 :PROTO "udp">
 #<SERVICE :NAME "re-conn-proto" :ALIASES NIL :PORT 1306 :PROTO "tcp">
 #<SERVICE :NAME "re-conn-proto" :ALIASES NIL :PORT 1306 :PROTO "udp">
 #<SERVICE :NAME "pacmand" :ALIASES NIL :PORT 1307 :PROTO "tcp">
 #<SERVICE :NAME "pacmand" :ALIASES NIL :PORT 1307 :PROTO "udp">
 #<SERVICE :NAME "odsi" :ALIASES NIL :PORT 1308 :PROTO "tcp">
 #<SERVICE :NAME "odsi" :ALIASES NIL :PORT 1308 :PROTO "udp">
 #<SERVICE :NAME "jtag-server" :ALIASES NIL :PORT 1309 :PROTO "tcp">
 #<SERVICE :NAME "jtag-server" :ALIASES NIL :PORT 1309 :PROTO "udp">
 #<SERVICE :NAME "husky" :ALIASES NIL :PORT 1310 :PROTO "tcp">
 #<SERVICE :NAME "husky" :ALIASES NIL :PORT 1310 :PROTO "udp">
 #<SERVICE :NAME "rxmon" :ALIASES NIL :PORT 1311 :PROTO "tcp">
 #<SERVICE :NAME "rxmon" :ALIASES NIL :PORT 1311 :PROTO "udp">
 #<SERVICE :NAME "sti-envision" :ALIASES NIL :PORT 1312 :PROTO "tcp">
 #<SERVICE :NAME "sti-envision" :ALIASES NIL :PORT 1312 :PROTO "udp">
 #<SERVICE :NAME "bmc_patroldb" :ALIASES ("bmc-patroldb") :PORT 1313
   :PROTO "udp">
 #<SERVICE :NAME "pdps" :ALIASES NIL :PORT 1314 :PROTO "tcp">
 #<SERVICE :NAME "pdps" :ALIASES NIL :PORT 1314 :PROTO "udp">
 #<SERVICE :NAME "els" :ALIASES NIL :PORT 1315 :PROTO "tcp">
 #<SERVICE :NAME "els" :ALIASES NIL :PORT 1315 :PROTO "udp">
 #<SERVICE :NAME "exbit-escp" :ALIASES NIL :PORT 1316 :PROTO "tcp">
 #<SERVICE :NAME "exbit-escp" :ALIASES NIL :PORT 1316 :PROTO "udp">
 #<SERVICE :NAME "vrts-ipcserver" :ALIASES NIL :PORT 1317 :PROTO "tcp">
 #<SERVICE :NAME "vrts-ipcserver" :ALIASES NIL :PORT 1317 :PROTO "udp">
 #<SERVICE :NAME "krb5gatekeeper" :ALIASES NIL :PORT 1318 :PROTO "tcp">
 #<SERVICE :NAME "krb5gatekeeper" :ALIASES NIL :PORT 1318 :PROTO "udp">
 #<SERVICE :NAME "amx-icsp" :ALIASES NIL :PORT 1319 :PROTO "tcp">
 #<SERVICE :NAME "amx-icsp" :ALIASES NIL :PORT 1319 :PROTO "udp">
 #<SERVICE :NAME "amx-axbnet" :ALIASES NIL :PORT 1320 :PROTO "tcp">
 #<SERVICE :NAME "amx-axbnet" :ALIASES NIL :PORT 1320 :PROTO "udp">
 #<SERVICE :NAME "novation" :ALIASES NIL :PORT 1322 :PROTO "tcp">
 #<SERVICE :NAME "novation" :ALIASES NIL :PORT 1322 :PROTO "udp">
 #<SERVICE :NAME "brcd" :ALIASES NIL :PORT 1323 :PROTO "tcp">
 #<SERVICE :NAME "brcd" :ALIASES NIL :PORT 1323 :PROTO "udp">
 #<SERVICE :NAME "delta-mcp" :ALIASES NIL :PORT 1324 :PROTO "tcp">
 #<SERVICE :NAME "delta-mcp" :ALIASES NIL :PORT 1324 :PROTO "udp">
 #<SERVICE :NAME "dx-instrument" :ALIASES NIL :PORT 1325 :PROTO "tcp">
 #<SERVICE :NAME "dx-instrument" :ALIASES NIL :PORT 1325 :PROTO "udp">
 #<SERVICE :NAME "wimsic" :ALIASES NIL :PORT 1326 :PROTO "tcp">
 #<SERVICE :NAME "wimsic" :ALIASES NIL :PORT 1326 :PROTO "udp">
 #<SERVICE :NAME "ultrex" :ALIASES NIL :PORT 1327 :PROTO "tcp">
 #<SERVICE :NAME "ultrex" :ALIASES NIL :PORT 1327 :PROTO "udp">
 #<SERVICE :NAME "ewall" :ALIASES NIL :PORT 1328 :PROTO "tcp">
 #<SERVICE :NAME "ewall" :ALIASES NIL :PORT 1328 :PROTO "udp">
 #<SERVICE :NAME "netdb-export" :ALIASES NIL :PORT 1329 :PROTO "tcp">
 #<SERVICE :NAME "netdb-export" :ALIASES NIL :PORT 1329 :PROTO "udp">
 #<SERVICE :NAME "streetperfect" :ALIASES NIL :PORT 1330 :PROTO "tcp">
 #<SERVICE :NAME "streetperfect" :ALIASES NIL :PORT 1330 :PROTO "udp">
 #<SERVICE :NAME "intersan" :ALIASES NIL :PORT 1331 :PROTO "tcp">
 #<SERVICE :NAME "intersan" :ALIASES NIL :PORT 1331 :PROTO "udp">
 #<SERVICE :NAME "pcia-rxp-b" :ALIASES NIL :PORT 1332 :PROTO "tcp">
 #<SERVICE :NAME "pcia-rxp-b" :ALIASES NIL :PORT 1332 :PROTO "udp">
 #<SERVICE :NAME "passwrd-policy" :ALIASES NIL :PORT 1333 :PROTO "tcp">
 #<SERVICE :NAME "passwrd-policy" :ALIASES NIL :PORT 1333 :PROTO "udp">
 #<SERVICE :NAME "writesrv" :ALIASES NIL :PORT 1334 :PROTO "tcp">
 #<SERVICE :NAME "writesrv" :ALIASES NIL :PORT 1334 :PROTO "udp">
 #<SERVICE :NAME "digital-notary" :ALIASES NIL :PORT 1335 :PROTO "tcp">
 #<SERVICE :NAME "digital-notary" :ALIASES NIL :PORT 1335 :PROTO "udp">
 #<SERVICE :NAME "ischat" :ALIASES NIL :PORT 1336 :PROTO "tcp">
 #<SERVICE :NAME "ischat" :ALIASES NIL :PORT 1336 :PROTO "udp">
 #<SERVICE :NAME "menandmice-dns" :ALIASES NIL :PORT 1337 :PROTO "tcp">
 #<SERVICE :NAME "menandmice-dns" :ALIASES NIL :PORT 1337 :PROTO "udp">
 #<SERVICE :NAME "wmc-log-svc" :ALIASES NIL :PORT 1338 :PROTO "tcp">
 #<SERVICE :NAME "wmc-log-svc" :ALIASES NIL :PORT 1338 :PROTO "udp">
 #<SERVICE :NAME "kjtsiteserver" :ALIASES NIL :PORT 1339 :PROTO "tcp">
 #<SERVICE :NAME "kjtsiteserver" :ALIASES NIL :PORT 1339 :PROTO "udp">
 #<SERVICE :NAME "naap" :ALIASES NIL :PORT 1340 :PROTO "tcp">
 #<SERVICE :NAME "naap" :ALIASES NIL :PORT 1340 :PROTO "udp">
 #<SERVICE :NAME "qubes" :ALIASES NIL :PORT 1341 :PROTO "tcp">
 #<SERVICE :NAME "qubes" :ALIASES NIL :PORT 1341 :PROTO "udp">
 #<SERVICE :NAME "esbroker" :ALIASES NIL :PORT 1342 :PROTO "tcp">
 #<SERVICE :NAME "esbroker" :ALIASES NIL :PORT 1342 :PROTO "udp">
 #<SERVICE :NAME "re101" :ALIASES NIL :PORT 1343 :PROTO "tcp">
 #<SERVICE :NAME "re101" :ALIASES NIL :PORT 1343 :PROTO "udp">
 #<SERVICE :NAME "icap" :ALIASES NIL :PORT 1344 :PROTO "tcp">
 #<SERVICE :NAME "icap" :ALIASES NIL :PORT 1344 :PROTO "udp">
 #<SERVICE :NAME "vpjp" :ALIASES NIL :PORT 1345 :PROTO "tcp">
 #<SERVICE :NAME "vpjp" :ALIASES NIL :PORT 1345 :PROTO "udp">
 #<SERVICE :NAME "alta-ana-lm" :ALIASES NIL :PORT 1346 :PROTO "tcp">
 #<SERVICE :NAME "alta-ana-lm" :ALIASES NIL :PORT 1346 :PROTO "udp">
 #<SERVICE :NAME "bbn-mmc" :ALIASES NIL :PORT 1347 :PROTO "tcp">
 #<SERVICE :NAME "bbn-mmc" :ALIASES NIL :PORT 1347 :PROTO "udp">
 #<SERVICE :NAME "bbn-mmx" :ALIASES NIL :PORT 1348 :PROTO "tcp">
 #<SERVICE :NAME "bbn-mmx" :ALIASES NIL :PORT 1348 :PROTO "udp">
 #<SERVICE :NAME "sbook" :ALIASES NIL :PORT 1349 :PROTO "tcp">
 #<SERVICE :NAME "sbook" :ALIASES NIL :PORT 1349 :PROTO "udp">
 #<SERVICE :NAME "editbench" :ALIASES NIL :PORT 1350 :PROTO "tcp">
 #<SERVICE :NAME "editbench" :ALIASES NIL :PORT 1350 :PROTO "udp">
 #<SERVICE :NAME "equationbuilder" :ALIASES NIL :PORT 1351 :PROTO "tcp">
 #<SERVICE :NAME "equationbuilder" :ALIASES NIL :PORT 1351 :PROTO "udp">
 #<SERVICE :NAME "lotusnote" :ALIASES NIL :PORT 1352 :PROTO "tcp">
 #<SERVICE :NAME "lotusnote" :ALIASES NIL :PORT 1352 :PROTO "udp">
 #<SERVICE :NAME "relief" :ALIASES NIL :PORT 1353 :PROTO "tcp">
 #<SERVICE :NAME "relief" :ALIASES NIL :PORT 1353 :PROTO "udp">
 #<SERVICE :NAME "XSIP-network" :ALIASES NIL :PORT 1354 :PROTO "tcp">
 #<SERVICE :NAME "XSIP-network" :ALIASES NIL :PORT 1354 :PROTO "udp">
 #<SERVICE :NAME "intuitive-edge" :ALIASES NIL :PORT 1355 :PROTO "tcp">
 #<SERVICE :NAME "intuitive-edge" :ALIASES NIL :PORT 1355 :PROTO "udp">
 #<SERVICE :NAME "cuillamartin" :ALIASES NIL :PORT 1356 :PROTO "tcp">
 #<SERVICE :NAME "cuillamartin" :ALIASES NIL :PORT 1356 :PROTO "udp">
 #<SERVICE :NAME "pegboard" :ALIASES NIL :PORT 1357 :PROTO "tcp">
 #<SERVICE :NAME "pegboard" :ALIASES NIL :PORT 1357 :PROTO "udp">
 #<SERVICE :NAME "connlcli" :ALIASES NIL :PORT 1358 :PROTO "tcp">
 #<SERVICE :NAME "connlcli" :ALIASES NIL :PORT 1358 :PROTO "udp">
 #<SERVICE :NAME "ftsrv" :ALIASES NIL :PORT 1359 :PROTO "tcp">
 #<SERVICE :NAME "ftsrv" :ALIASES NIL :PORT 1359 :PROTO "udp">
 #<SERVICE :NAME "mimer" :ALIASES NIL :PORT 1360 :PROTO "tcp">
 #<SERVICE :NAME "mimer" :ALIASES NIL :PORT 1360 :PROTO "udp">
 #<SERVICE :NAME "linx" :ALIASES NIL :PORT 1361 :PROTO "tcp">
 #<SERVICE :NAME "linx" :ALIASES NIL :PORT 1361 :PROTO "udp">
 #<SERVICE :NAME "timeflies" :ALIASES NIL :PORT 1362 :PROTO "tcp">
 #<SERVICE :NAME "timeflies" :ALIASES NIL :PORT 1362 :PROTO "udp">
 #<SERVICE :NAME "ndm-requester" :ALIASES NIL :PORT 1363 :PROTO "tcp">
 #<SERVICE :NAME "ndm-requester" :ALIASES NIL :PORT 1363 :PROTO "udp">
 #<SERVICE :NAME "ndm-server" :ALIASES NIL :PORT 1364 :PROTO "tcp">
 #<SERVICE :NAME "ndm-server" :ALIASES NIL :PORT 1364 :PROTO "udp">
 #<SERVICE :NAME "adapt-sna" :ALIASES NIL :PORT 1365 :PROTO "tcp">
 #<SERVICE :NAME "adapt-sna" :ALIASES NIL :PORT 1365 :PROTO "udp">
 #<SERVICE :NAME "netware-csp" :ALIASES NIL :PORT 1366 :PROTO "tcp">
 #<SERVICE :NAME "netware-csp" :ALIASES NIL :PORT 1366 :PROTO "udp">
 #<SERVICE :NAME "dcs" :ALIASES NIL :PORT 1367 :PROTO "tcp">
 #<SERVICE :NAME "dcs" :ALIASES NIL :PORT 1367 :PROTO "udp">
 #<SERVICE :NAME "screencast" :ALIASES NIL :PORT 1368 :PROTO "tcp">
 #<SERVICE :NAME "screencast" :ALIASES NIL :PORT 1368 :PROTO "udp">
 #<SERVICE :NAME "gv-us" :ALIASES NIL :PORT 1369 :PROTO "tcp">
 #<SERVICE :NAME "gv-us" :ALIASES NIL :PORT 1369 :PROTO "udp">
 #<SERVICE :NAME "us-gv" :ALIASES NIL :PORT 1370 :PROTO "tcp">
 #<SERVICE :NAME "us-gv" :ALIASES NIL :PORT 1370 :PROTO "udp">
 #<SERVICE :NAME "fc-cli" :ALIASES NIL :PORT 1371 :PROTO "tcp">
 #<SERVICE :NAME "fc-cli" :ALIASES NIL :PORT 1371 :PROTO "udp">
 #<SERVICE :NAME "fc-ser" :ALIASES NIL :PORT 1372 :PROTO "tcp">
 #<SERVICE :NAME "fc-ser" :ALIASES NIL :PORT 1372 :PROTO "udp">
 #<SERVICE :NAME "chromagrafx" :ALIASES NIL :PORT 1373 :PROTO "tcp">
 #<SERVICE :NAME "chromagrafx" :ALIASES NIL :PORT 1373 :PROTO "udp">
 #<SERVICE :NAME "molly" :ALIASES NIL :PORT 1374 :PROTO "tcp">
 #<SERVICE :NAME "molly" :ALIASES NIL :PORT 1374 :PROTO "udp">
 #<SERVICE :NAME "bytex" :ALIASES NIL :PORT 1375 :PROTO "tcp">
 #<SERVICE :NAME "bytex" :ALIASES NIL :PORT 1375 :PROTO "udp">
 #<SERVICE :NAME "ibm-pps" :ALIASES NIL :PORT 1376 :PROTO "tcp">
 #<SERVICE :NAME "ibm-pps" :ALIASES NIL :PORT 1376 :PROTO "udp">
 #<SERVICE :NAME "cichlid" :ALIASES NIL :PORT 1377 :PROTO "tcp">
 #<SERVICE :NAME "cichlid" :ALIASES NIL :PORT 1377 :PROTO "udp">
 #<SERVICE :NAME "elan" :ALIASES NIL :PORT 1378 :PROTO "tcp">
 #<SERVICE :NAME "elan" :ALIASES NIL :PORT 1378 :PROTO "udp">
 #<SERVICE :NAME "dbreporter" :ALIASES NIL :PORT 1379 :PROTO "tcp">
 #<SERVICE :NAME "dbreporter" :ALIASES NIL :PORT 1379 :PROTO "udp">
 #<SERVICE :NAME "telesis-licman" :ALIASES NIL :PORT 1380 :PROTO "tcp">
 #<SERVICE :NAME "telesis-licman" :ALIASES NIL :PORT 1380 :PROTO "udp">
 #<SERVICE :NAME "apple-licman" :ALIASES NIL :PORT 1381 :PROTO "tcp">
 #<SERVICE :NAME "apple-licman" :ALIASES NIL :PORT 1381 :PROTO "udp">
 #<SERVICE :NAME "udt_os" :ALIASES NIL :PORT 1382 :PROTO "tcp">
 #<SERVICE :NAME "udt_os" :ALIASES NIL :PORT 1382 :PROTO "udp">
 #<SERVICE :NAME "gwha" :ALIASES NIL :PORT 1383 :PROTO "tcp">
 #<SERVICE :NAME "gwha" :ALIASES NIL :PORT 1383 :PROTO "udp">
 #<SERVICE :NAME "os-licman" :ALIASES NIL :PORT 1384 :PROTO "tcp">
 #<SERVICE :NAME "os-licman" :ALIASES NIL :PORT 1384 :PROTO "udp">
 #<SERVICE :NAME "atex_elmd" :ALIASES ("atex-elmd") :PORT 1385 :PROTO "tcp">
 #<SERVICE :NAME "atex_elmd" :ALIASES ("atex-elmd") :PORT 1385 :PROTO "udp">
 #<SERVICE :NAME "checksum" :ALIASES NIL :PORT 1386 :PROTO "tcp">
 #<SERVICE :NAME "checksum" :ALIASES NIL :PORT 1386 :PROTO "udp">
 #<SERVICE :NAME "cadsi-lm" :ALIASES NIL :PORT 1387 :PROTO "tcp">
 #<SERVICE :NAME "cadsi-lm" :ALIASES NIL :PORT 1387 :PROTO "udp">
 #<SERVICE :NAME "objective-dbc" :ALIASES NIL :PORT 1388 :PROTO "tcp">
 #<SERVICE :NAME "objective-dbc" :ALIASES NIL :PORT 1388 :PROTO "udp">
 #<SERVICE :NAME "iclpv-dm" :ALIASES NIL :PORT 1389 :PROTO "tcp">
 #<SERVICE :NAME "iclpv-dm" :ALIASES NIL :PORT 1389 :PROTO "udp">
 #<SERVICE :NAME "iclpv-sc" :ALIASES NIL :PORT 1390 :PROTO "tcp">
 #<SERVICE :NAME "iclpv-sc" :ALIASES NIL :PORT 1390 :PROTO "udp">
 #<SERVICE :NAME "iclpv-sas" :ALIASES NIL :PORT 1391 :PROTO "tcp">
 #<SERVICE :NAME "iclpv-sas" :ALIASES NIL :PORT 1391 :PROTO "udp">
 #<SERVICE :NAME "iclpv-pm" :ALIASES NIL :PORT 1392 :PROTO "tcp">
 #<SERVICE :NAME "iclpv-pm" :ALIASES NIL :PORT 1392 :PROTO "udp">
 #<SERVICE :NAME "iclpv-nls" :ALIASES NIL :PORT 1393 :PROTO "tcp">
 #<SERVICE :NAME "iclpv-nls" :ALIASES NIL :PORT 1393 :PROTO "udp">
 #<SERVICE :NAME "iclpv-nlc" :ALIASES NIL :PORT 1394 :PROTO "tcp">
 #<SERVICE :NAME "iclpv-nlc" :ALIASES NIL :PORT 1394 :PROTO "udp">
 #<SERVICE :NAME "iclpv-wsm" :ALIASES NIL :PORT 1395 :PROTO "tcp">
 #<SERVICE :NAME "iclpv-wsm" :ALIASES NIL :PORT 1395 :PROTO "udp">
 #<SERVICE :NAME "dvl-activemail" :ALIASES NIL :PORT 1396 :PROTO "tcp">
 #<SERVICE :NAME "dvl-activemail" :ALIASES NIL :PORT 1396 :PROTO "udp">
 #<SERVICE :NAME "audio-activmail" :ALIASES NIL :PORT 1397 :PROTO "tcp">
 #<SERVICE :NAME "audio-activmail" :ALIASES NIL :PORT 1397 :PROTO "udp">
 #<SERVICE :NAME "video-activmail" :ALIASES NIL :PORT 1398 :PROTO "tcp">
 #<SERVICE :NAME "video-activmail" :ALIASES NIL :PORT 1398 :PROTO "udp">
 #<SERVICE :NAME "cadkey-licman" :ALIASES NIL :PORT 1399 :PROTO "tcp">
 #<SERVICE :NAME "cadkey-licman" :ALIASES NIL :PORT 1399 :PROTO "udp">
 #<SERVICE :NAME "cadkey-tablet" :ALIASES NIL :PORT 1400 :PROTO "tcp">
 #<SERVICE :NAME "cadkey-tablet" :ALIASES NIL :PORT 1400 :PROTO "udp">
 #<SERVICE :NAME "goldleaf-licman" :ALIASES NIL :PORT 1401 :PROTO "tcp">
 #<SERVICE :NAME "goldleaf-licman" :ALIASES NIL :PORT 1401 :PROTO "udp">
 #<SERVICE :NAME "prm-sm-np" :ALIASES NIL :PORT 1402 :PROTO "tcp">
 #<SERVICE :NAME "prm-sm-np" :ALIASES NIL :PORT 1402 :PROTO "udp">
 #<SERVICE :NAME "prm-nm-np" :ALIASES NIL :PORT 1403 :PROTO "tcp">
 #<SERVICE :NAME "prm-nm-np" :ALIASES NIL :PORT 1403 :PROTO "udp">
 #<SERVICE :NAME "igi-lm" :ALIASES NIL :PORT 1404 :PROTO "tcp">
 #<SERVICE :NAME "igi-lm" :ALIASES NIL :PORT 1404 :PROTO "udp">
 #<SERVICE :NAME "ibm-res" :ALIASES NIL :PORT 1405 :PROTO "tcp">
 #<SERVICE :NAME "ibm-res" :ALIASES NIL :PORT 1405 :PROTO "udp">
 #<SERVICE :NAME "netlabs-lm" :ALIASES NIL :PORT 1406 :PROTO "tcp">
 #<SERVICE :NAME "netlabs-lm" :ALIASES NIL :PORT 1406 :PROTO "udp">
 #<SERVICE :NAME "tibet-server" :ALIASES NIL :PORT 1407 :PROTO "tcp">
 #<SERVICE :NAME "sophia-lm" :ALIASES NIL :PORT 1408 :PROTO "tcp">
 #<SERVICE :NAME "sophia-lm" :ALIASES NIL :PORT 1408 :PROTO "udp">
 #<SERVICE :NAME "here-lm" :ALIASES NIL :PORT 1409 :PROTO "tcp">
 #<SERVICE :NAME "here-lm" :ALIASES NIL :PORT 1409 :PROTO "udp">
 #<SERVICE :NAME "hiq" :ALIASES NIL :PORT 1410 :PROTO "tcp">
 #<SERVICE :NAME "hiq" :ALIASES NIL :PORT 1410 :PROTO "udp">
 #<SERVICE :NAME "af" :ALIASES NIL :PORT 1411 :PROTO "tcp">
 #<SERVICE :NAME "af" :ALIASES NIL :PORT 1411 :PROTO "udp">
 #<SERVICE :NAME "innosys" :ALIASES NIL :PORT 1412 :PROTO "tcp">
 #<SERVICE :NAME "innosys" :ALIASES NIL :PORT 1412 :PROTO "udp">
 #<SERVICE :NAME "innosys-acl" :ALIASES NIL :PORT 1413 :PROTO "tcp">
 #<SERVICE :NAME "innosys-acl" :ALIASES NIL :PORT 1413 :PROTO "udp">
 #<SERVICE :NAME "ibm-mqseries" :ALIASES NIL :PORT 1414 :PROTO "tcp">
 #<SERVICE :NAME "ibm-mqseries" :ALIASES NIL :PORT 1414 :PROTO "udp">
 #<SERVICE :NAME "dbstar" :ALIASES NIL :PORT 1415 :PROTO "tcp">
 #<SERVICE :NAME "dbstar" :ALIASES NIL :PORT 1415 :PROTO "udp">
 #<SERVICE :NAME "novell-lu6.2" :ALIASES ("novell-lu6-2") :PORT 1416
   :PROTO "tcp">
 #<SERVICE :NAME "novell-lu6.2" :ALIASES ("novell-lu6-2") :PORT 1416
   :PROTO "udp">
 #<SERVICE :NAME "timbuktu-srv1" :ALIASES NIL :PORT 1417 :PROTO "tcp">
 #<SERVICE :NAME "timbuktu-srv1" :ALIASES NIL :PORT 1417 :PROTO "udp">
 #<SERVICE :NAME "timbuktu-srv2" :ALIASES NIL :PORT 1418 :PROTO "tcp">
 #<SERVICE :NAME "timbuktu-srv2" :ALIASES NIL :PORT 1418 :PROTO "udp">
 #<SERVICE :NAME "timbuktu-srv3" :ALIASES NIL :PORT 1419 :PROTO "tcp">
 #<SERVICE :NAME "timbuktu-srv3" :ALIASES NIL :PORT 1419 :PROTO "udp">
 #<SERVICE :NAME "timbuktu-srv4" :ALIASES NIL :PORT 1420 :PROTO "tcp">
 #<SERVICE :NAME "timbuktu-srv4" :ALIASES NIL :PORT 1420 :PROTO "udp">
 #<SERVICE :NAME "gandalf-lm" :ALIASES NIL :PORT 1421 :PROTO "tcp">
 #<SERVICE :NAME "gandalf-lm" :ALIASES NIL :PORT 1421 :PROTO "udp">
 #<SERVICE :NAME "autodesk-lm" :ALIASES NIL :PORT 1422 :PROTO "tcp">
 #<SERVICE :NAME "autodesk-lm" :ALIASES NIL :PORT 1422 :PROTO "udp">
 #<SERVICE :NAME "essbase" :ALIASES NIL :PORT 1423 :PROTO "tcp">
 #<SERVICE :NAME "essbase" :ALIASES NIL :PORT 1423 :PROTO "udp">
 #<SERVICE :NAME "hybrid" :ALIASES NIL :PORT 1424 :PROTO "tcp">
 #<SERVICE :NAME "hybrid" :ALIASES NIL :PORT 1424 :PROTO "udp">
 #<SERVICE :NAME "zion-lm" :ALIASES NIL :PORT 1425 :PROTO "tcp">
 #<SERVICE :NAME "zion-lm" :ALIASES NIL :PORT 1425 :PROTO "udp">
 #<SERVICE :NAME "sais" :ALIASES NIL :PORT 1426 :PROTO "tcp">
 #<SERVICE :NAME "sais" :ALIASES NIL :PORT 1426 :PROTO "udp">
 #<SERVICE :NAME "mloadd" :ALIASES NIL :PORT 1427 :PROTO "tcp">
 #<SERVICE :NAME "mloadd" :ALIASES NIL :PORT 1427 :PROTO "udp">
 #<SERVICE :NAME "informatik-lm" :ALIASES NIL :PORT 1428 :PROTO "tcp">
 #<SERVICE :NAME "informatik-lm" :ALIASES NIL :PORT 1428 :PROTO "udp">
 #<SERVICE :NAME "nms" :ALIASES NIL :PORT 1429 :PROTO "tcp">
 #<SERVICE :NAME "nms" :ALIASES NIL :PORT 1429 :PROTO "udp">
 #<SERVICE :NAME "tpdu" :ALIASES NIL :PORT 1430 :PROTO "tcp">
 #<SERVICE :NAME "tpdu" :ALIASES NIL :PORT 1430 :PROTO "udp">
 #<SERVICE :NAME "rgtp" :ALIASES NIL :PORT 1431 :PROTO "tcp">
 #<SERVICE :NAME "rgtp" :ALIASES NIL :PORT 1431 :PROTO "udp">
 #<SERVICE :NAME "blueberry-lm" :ALIASES NIL :PORT 1432 :PROTO "tcp">
 #<SERVICE :NAME "blueberry-lm" :ALIASES NIL :PORT 1432 :PROTO "udp">
 #<SERVICE :NAME "ibm-cics" :ALIASES NIL :PORT 1435 :PROTO "tcp">
 #<SERVICE :NAME "ibm-cics" :ALIASES NIL :PORT 1435 :PROTO "udp">
 #<SERVICE :NAME "saism" :ALIASES NIL :PORT 1436 :PROTO "tcp">
 #<SERVICE :NAME "saism" :ALIASES NIL :PORT 1436 :PROTO "udp">
 #<SERVICE :NAME "tabula" :ALIASES NIL :PORT 1437 :PROTO "tcp">
 #<SERVICE :NAME "tabula" :ALIASES NIL :PORT 1437 :PROTO "udp">
 #<SERVICE :NAME "eicon-server" :ALIASES NIL :PORT 1438 :PROTO "tcp">
 #<SERVICE :NAME "eicon-server" :ALIASES NIL :PORT 1438 :PROTO "udp">
 #<SERVICE :NAME "eicon-x25" :ALIASES NIL :PORT 1439 :PROTO "tcp">
 #<SERVICE :NAME "eicon-x25" :ALIASES NIL :PORT 1439 :PROTO "udp">
 #<SERVICE :NAME "eicon-slp" :ALIASES NIL :PORT 1440 :PROTO "tcp">
 #<SERVICE :NAME "eicon-slp" :ALIASES NIL :PORT 1440 :PROTO "udp">
 #<SERVICE :NAME "cadis-1" :ALIASES NIL :PORT 1441 :PROTO "tcp">
 #<SERVICE :NAME "cadis-1" :ALIASES NIL :PORT 1441 :PROTO "udp">
 #<SERVICE :NAME "cadis-2" :ALIASES NIL :PORT 1442 :PROTO "tcp">
 #<SERVICE :NAME "cadis-2" :ALIASES NIL :PORT 1442 :PROTO "udp">
 #<SERVICE :NAME "ies-lm" :ALIASES NIL :PORT 1443 :PROTO "tcp">
 #<SERVICE :NAME "ies-lm" :ALIASES NIL :PORT 1443 :PROTO "udp">
 #<SERVICE :NAME "marcam-lm" :ALIASES NIL :PORT 1444 :PROTO "tcp">
 #<SERVICE :NAME "marcam-lm" :ALIASES NIL :PORT 1444 :PROTO "udp">
 #<SERVICE :NAME "proxima-lm" :ALIASES NIL :PORT 1445 :PROTO "tcp">
 #<SERVICE :NAME "proxima-lm" :ALIASES NIL :PORT 1445 :PROTO "udp">
 #<SERVICE :NAME "ora-lm" :ALIASES NIL :PORT 1446 :PROTO "tcp">
 #<SERVICE :NAME "ora-lm" :ALIASES NIL :PORT 1446 :PROTO "udp">
 #<SERVICE :NAME "apri-lm" :ALIASES NIL :PORT 1447 :PROTO "tcp">
 #<SERVICE :NAME "apri-lm" :ALIASES NIL :PORT 1447 :PROTO "udp">
 #<SERVICE :NAME "oc-lm" :ALIASES NIL :PORT 1448 :PROTO "tcp">
 #<SERVICE :NAME "oc-lm" :ALIASES NIL :PORT 1448 :PROTO "udp">
 #<SERVICE :NAME "peport" :ALIASES NIL :PORT 1449 :PROTO "tcp">
 #<SERVICE :NAME "peport" :ALIASES NIL :PORT 1449 :PROTO "udp">
 #<SERVICE :NAME "dwf" :ALIASES NIL :PORT 1450 :PROTO "tcp">
 #<SERVICE :NAME "dwf" :ALIASES NIL :PORT 1450 :PROTO "udp">
 #<SERVICE :NAME "infoman" :ALIASES NIL :PORT 1451 :PROTO "tcp">
 #<SERVICE :NAME "infoman" :ALIASES NIL :PORT 1451 :PROTO "udp">
 #<SERVICE :NAME "gtegsc-lm" :ALIASES NIL :PORT 1452 :PROTO "tcp">
 #<SERVICE :NAME "gtegsc-lm" :ALIASES NIL :PORT 1452 :PROTO "udp">
 #<SERVICE :NAME "genie-lm" :ALIASES NIL :PORT 1453 :PROTO "tcp">
 #<SERVICE :NAME "genie-lm" :ALIASES NIL :PORT 1453 :PROTO "udp">
 #<SERVICE :NAME "interhdl_elmd" :ALIASES ("interhdl-elmd") :PORT 1454
   :PROTO "tcp">
 #<SERVICE :NAME "interhdl_elmd" :ALIASES ("interhdl-elmd") :PORT 1454
   :PROTO "udp">
 #<SERVICE :NAME "esl-lm" :ALIASES NIL :PORT 1455 :PROTO "tcp">
 #<SERVICE :NAME "esl-lm" :ALIASES NIL :PORT 1455 :PROTO "udp">
 #<SERVICE :NAME "dca" :ALIASES NIL :PORT 1456 :PROTO "tcp">
 #<SERVICE :NAME "dca" :ALIASES NIL :PORT 1456 :PROTO "udp">
 #<SERVICE :NAME "valisys-lm" :ALIASES NIL :PORT 1457 :PROTO "tcp">
 #<SERVICE :NAME "valisys-lm" :ALIASES NIL :PORT 1457 :PROTO "udp">
 #<SERVICE :NAME "nrcabq-lm" :ALIASES NIL :PORT 1458 :PROTO "tcp">
 #<SERVICE :NAME "nrcabq-lm" :ALIASES NIL :PORT 1458 :PROTO "udp">
 #<SERVICE :NAME "proshare1" :ALIASES NIL :PORT 1459 :PROTO "tcp">
 #<SERVICE :NAME "proshare1" :ALIASES NIL :PORT 1459 :PROTO "udp">
 #<SERVICE :NAME "proshare2" :ALIASES NIL :PORT 1460 :PROTO "tcp">
 #<SERVICE :NAME "proshare2" :ALIASES NIL :PORT 1460 :PROTO "udp">
 #<SERVICE :NAME "ibm_wrless_lan" :ALIASES ("ibm-wrless-lan") :PORT 1461
   :PROTO "tcp">
 #<SERVICE :NAME "ibm_wrless_lan" :ALIASES ("ibm-wrless-lan") :PORT 1461
   :PROTO "udp">
 #<SERVICE :NAME "world-lm" :ALIASES NIL :PORT 1462 :PROTO "tcp">
 #<SERVICE :NAME "world-lm" :ALIASES NIL :PORT 1462 :PROTO "udp">
 #<SERVICE :NAME "nucleus" :ALIASES NIL :PORT 1463 :PROTO "tcp">
 #<SERVICE :NAME "nucleus" :ALIASES NIL :PORT 1463 :PROTO "udp">
 #<SERVICE :NAME "msl_lmd" :ALIASES ("msl-lmd") :PORT 1464 :PROTO "tcp">
 #<SERVICE :NAME "msl_lmd" :ALIASES ("msl-lmd") :PORT 1464 :PROTO "udp">
 #<SERVICE :NAME "pipes" :ALIASES NIL :PORT 1465 :PROTO "tcp">
 #<SERVICE :NAME "pipes" :ALIASES NIL :PORT 1465 :PROTO "udp">
 #<SERVICE :NAME "oceansoft-lm" :ALIASES NIL :PORT 1466 :PROTO "tcp">
 #<SERVICE :NAME "oceansoft-lm" :ALIASES NIL :PORT 1466 :PROTO "udp">
 #<SERVICE :NAME "aal-lm" :ALIASES NIL :PORT 1469 :PROTO "tcp">
 #<SERVICE :NAME "aal-lm" :ALIASES NIL :PORT 1469 :PROTO "udp">
 #<SERVICE :NAME "uaiact" :ALIASES NIL :PORT 1470 :PROTO "tcp">
 #<SERVICE :NAME "uaiact" :ALIASES NIL :PORT 1470 :PROTO "udp">
 #<SERVICE :NAME "openmath" :ALIASES NIL :PORT 1473 :PROTO "tcp">
 #<SERVICE :NAME "openmath" :ALIASES NIL :PORT 1473 :PROTO "udp">
 #<SERVICE :NAME "telefinder" :ALIASES NIL :PORT 1474 :PROTO "tcp">
 #<SERVICE :NAME "telefinder" :ALIASES NIL :PORT 1474 :PROTO "udp">
 #<SERVICE :NAME "taligent-lm" :ALIASES NIL :PORT 1475 :PROTO "tcp">
 #<SERVICE :NAME "taligent-lm" :ALIASES NIL :PORT 1475 :PROTO "udp">
 #<SERVICE :NAME "clvm-cfg" :ALIASES NIL :PORT 1476 :PROTO "tcp">
 #<SERVICE :NAME "clvm-cfg" :ALIASES NIL :PORT 1476 :PROTO "udp">
 #<SERVICE :NAME "ms-sna-server" :ALIASES NIL :PORT 1477 :PROTO "tcp">
 #<SERVICE :NAME "ms-sna-server" :ALIASES NIL :PORT 1477 :PROTO "udp">
 #<SERVICE :NAME "ms-sna-base" :ALIASES NIL :PORT 1478 :PROTO "tcp">
 #<SERVICE :NAME "ms-sna-base" :ALIASES NIL :PORT 1478 :PROTO "udp">
 #<SERVICE :NAME "dberegister" :ALIASES NIL :PORT 1479 :PROTO "tcp">
 #<SERVICE :NAME "dberegister" :ALIASES NIL :PORT 1479 :PROTO "udp">
 #<SERVICE :NAME "pacerforum" :ALIASES NIL :PORT 1480 :PROTO "tcp">
 #<SERVICE :NAME "pacerforum" :ALIASES NIL :PORT 1480 :PROTO "udp">
 #<SERVICE :NAME "airs" :ALIASES NIL :PORT 1481 :PROTO "tcp">
 #<SERVICE :NAME "airs" :ALIASES NIL :PORT 1481 :PROTO "udp">
 #<SERVICE :NAME "miteksys-lm" :ALIASES NIL :PORT 1482 :PROTO "tcp">
 #<SERVICE :NAME "miteksys-lm" :ALIASES NIL :PORT 1482 :PROTO "udp">
 #<SERVICE :NAME "afs" :ALIASES NIL :PORT 1483 :PROTO "tcp">
 #<SERVICE :NAME "afs" :ALIASES NIL :PORT 1483 :PROTO "udp">
 #<SERVICE :NAME "confluent" :ALIASES NIL :PORT 1484 :PROTO "tcp">
 #<SERVICE :NAME "confluent" :ALIASES NIL :PORT 1484 :PROTO "udp">
 #<SERVICE :NAME "lansource" :ALIASES NIL :PORT 1485 :PROTO "tcp">
 #<SERVICE :NAME "lansource" :ALIASES NIL :PORT 1485 :PROTO "udp">
 #<SERVICE :NAME "nms_topo_serv" :ALIASES ("nms-topo-serv") :PORT 1486
   :PROTO "tcp">
 #<SERVICE :NAME "nms_topo_serv" :ALIASES ("nms-topo-serv") :PORT 1486
   :PROTO "udp">
 #<SERVICE :NAME "localinfosrvr" :ALIASES NIL :PORT 1487 :PROTO "tcp">
 #<SERVICE :NAME "localinfosrvr" :ALIASES NIL :PORT 1487 :PROTO "udp">
 #<SERVICE :NAME "docstor" :ALIASES NIL :PORT 1488 :PROTO "tcp">
 #<SERVICE :NAME "docstor" :ALIASES NIL :PORT 1488 :PROTO "udp">
 #<SERVICE :NAME "dmdocbroker" :ALIASES NIL :PORT 1489 :PROTO "tcp">
 #<SERVICE :NAME "dmdocbroker" :ALIASES NIL :PORT 1489 :PROTO "udp">
 #<SERVICE :NAME "insitu-conf" :ALIASES NIL :PORT 1490 :PROTO "tcp">
 #<SERVICE :NAME "insitu-conf" :ALIASES NIL :PORT 1490 :PROTO "udp">
 #<SERVICE :NAME "stone-design-1" :ALIASES NIL :PORT 1492 :PROTO "tcp">
 #<SERVICE :NAME "stone-design-1" :ALIASES NIL :PORT 1492 :PROTO "udp">
 #<SERVICE :NAME "netmap_lm" :ALIASES ("netmap-lm") :PORT 1493 :PROTO "tcp">
 #<SERVICE :NAME "netmap_lm" :ALIASES ("netmap-lm") :PORT 1493 :PROTO "udp">
 #<SERVICE :NAME "cvc" :ALIASES NIL :PORT 1495 :PROTO "tcp">
 #<SERVICE :NAME "cvc" :ALIASES NIL :PORT 1495 :PROTO "udp">
 #<SERVICE :NAME "liberty-lm" :ALIASES NIL :PORT 1496 :PROTO "tcp">
 #<SERVICE :NAME "liberty-lm" :ALIASES NIL :PORT 1496 :PROTO "udp">
 #<SERVICE :NAME "rfx-lm" :ALIASES NIL :PORT 1497 :PROTO "tcp">
 #<SERVICE :NAME "rfx-lm" :ALIASES NIL :PORT 1497 :PROTO "udp">
 #<SERVICE :NAME "sybase-sqlany" :ALIASES NIL :PORT 1498 :PROTO "tcp">
 #<SERVICE :NAME "sybase-sqlany" :ALIASES NIL :PORT 1498 :PROTO "udp">
 #<SERVICE :NAME "fhc" :ALIASES NIL :PORT 1499 :PROTO "tcp">
 #<SERVICE :NAME "fhc" :ALIASES NIL :PORT 1499 :PROTO "udp">
 #<SERVICE :NAME "vlsi-lm" :ALIASES NIL :PORT 1500 :PROTO "tcp">
 #<SERVICE :NAME "vlsi-lm" :ALIASES NIL :PORT 1500 :PROTO "udp">
 #<SERVICE :NAME "saiscm" :ALIASES NIL :PORT 1501 :PROTO "tcp">
 #<SERVICE :NAME "saiscm" :ALIASES NIL :PORT 1501 :PROTO "udp">
 #<SERVICE :NAME "shivadiscovery" :ALIASES NIL :PORT 1502 :PROTO "tcp">
 #<SERVICE :NAME "shivadiscovery" :ALIASES NIL :PORT 1502 :PROTO "udp">
 #<SERVICE :NAME "imtc-mcs" :ALIASES NIL :PORT 1503 :PROTO "tcp">
 #<SERVICE :NAME "imtc-mcs" :ALIASES NIL :PORT 1503 :PROTO "udp">
 #<SERVICE :NAME "evb-elm" :ALIASES NIL :PORT 1504 :PROTO "tcp">
 #<SERVICE :NAME "evb-elm" :ALIASES NIL :PORT 1504 :PROTO "udp">
 #<SERVICE :NAME "funkproxy" :ALIASES NIL :PORT 1505 :PROTO "tcp">
 #<SERVICE :NAME "funkproxy" :ALIASES NIL :PORT 1505 :PROTO "udp">
 #<SERVICE :NAME "utcd" :ALIASES NIL :PORT 1506 :PROTO "tcp">
 #<SERVICE :NAME "utcd" :ALIASES NIL :PORT 1506 :PROTO "udp">
 #<SERVICE :NAME "symplex" :ALIASES NIL :PORT 1507 :PROTO "tcp">
 #<SERVICE :NAME "symplex" :ALIASES NIL :PORT 1507 :PROTO "udp">
 #<SERVICE :NAME "diagmond" :ALIASES NIL :PORT 1508 :PROTO "tcp">
 #<SERVICE :NAME "diagmond" :ALIASES NIL :PORT 1508 :PROTO "udp">
 #<SERVICE :NAME "robcad-lm" :ALIASES NIL :PORT 1509 :PROTO "tcp">
 #<SERVICE :NAME "robcad-lm" :ALIASES NIL :PORT 1509 :PROTO "udp">
 #<SERVICE :NAME "mvx-lm" :ALIASES NIL :PORT 1510 :PROTO "tcp">
 #<SERVICE :NAME "mvx-lm" :ALIASES NIL :PORT 1510 :PROTO "udp">
 #<SERVICE :NAME "3l-l1" :ALIASES NIL :PORT 1511 :PROTO "tcp">
 #<SERVICE :NAME "3l-l1" :ALIASES NIL :PORT 1511 :PROTO "udp">
 #<SERVICE :NAME "fujitsu-dtc" :ALIASES NIL :PORT 1513 :PROTO "tcp">
 #<SERVICE :NAME "fujitsu-dtc" :ALIASES NIL :PORT 1513 :PROTO "udp">
 #<SERVICE :NAME "fujitsu-dtcns" :ALIASES NIL :PORT 1514 :PROTO "tcp">
 #<SERVICE :NAME "fujitsu-dtcns" :ALIASES NIL :PORT 1514 :PROTO "udp">
 #<SERVICE :NAME "ifor-protocol" :ALIASES NIL :PORT 1515 :PROTO "tcp">
 #<SERVICE :NAME "ifor-protocol" :ALIASES NIL :PORT 1515 :PROTO "udp">
 #<SERVICE :NAME "vpad" :ALIASES NIL :PORT 1516 :PROTO "tcp">
 #<SERVICE :NAME "vpad" :ALIASES NIL :PORT 1516 :PROTO "udp">
 #<SERVICE :NAME "vpac" :ALIASES NIL :PORT 1517 :PROTO "tcp">
 #<SERVICE :NAME "vpac" :ALIASES NIL :PORT 1517 :PROTO "udp">
 #<SERVICE :NAME "vpvd" :ALIASES NIL :PORT 1518 :PROTO "tcp">
 #<SERVICE :NAME "vpvd" :ALIASES NIL :PORT 1518 :PROTO "udp">
 #<SERVICE :NAME "vpvc" :ALIASES NIL :PORT 1519 :PROTO "tcp">
 #<SERVICE :NAME "vpvc" :ALIASES NIL :PORT 1519 :PROTO "udp">
 #<SERVICE :NAME "atm-zip-office" :ALIASES NIL :PORT 1520 :PROTO "tcp">
 #<SERVICE :NAME "atm-zip-office" :ALIASES NIL :PORT 1520 :PROTO "udp">
 #<SERVICE :NAME "ncube-lm" :ALIASES NIL :PORT 1521 :PROTO "tcp">
 #<SERVICE :NAME "ncube-lm" :ALIASES NIL :PORT 1521 :PROTO "udp">
 #<SERVICE :NAME "cichild-lm" :ALIASES NIL :PORT 1523 :PROTO "tcp">
 #<SERVICE :NAME "cichild-lm" :ALIASES NIL :PORT 1523 :PROTO "udp">
 #<SERVICE :NAME "pdap-np" :ALIASES NIL :PORT 1526 :PROTO "tcp">
 #<SERVICE :NAME "pdap-np" :ALIASES NIL :PORT 1526 :PROTO "udp">
 #<SERVICE :NAME "tlisrv" :ALIASES NIL :PORT 1527 :PROTO "tcp">
 #<SERVICE :NAME "tlisrv" :ALIASES NIL :PORT 1527 :PROTO "udp">
 #<SERVICE :NAME "coauthor" :ALIASES NIL :PORT 1529 :PROTO "udp">
 #<SERVICE :NAME "rap-service" :ALIASES NIL :PORT 1530 :PROTO "tcp">
 #<SERVICE :NAME "rap-service" :ALIASES NIL :PORT 1530 :PROTO "udp">
 #<SERVICE :NAME "rap-listen" :ALIASES NIL :PORT 1531 :PROTO "tcp">
 #<SERVICE :NAME "rap-listen" :ALIASES NIL :PORT 1531 :PROTO "udp">
 #<SERVICE :NAME "miroconnect" :ALIASES NIL :PORT 1532 :PROTO "tcp">
 #<SERVICE :NAME "miroconnect" :ALIASES NIL :PORT 1532 :PROTO "udp">
 #<SERVICE :NAME "virtual-places" :ALIASES NIL :PORT 1533 :PROTO "tcp">
 #<SERVICE :NAME "virtual-places" :ALIASES NIL :PORT 1533 :PROTO "udp">
 #<SERVICE :NAME "micromuse-lm" :ALIASES NIL :PORT 1534 :PROTO "tcp">
 #<SERVICE :NAME "micromuse-lm" :ALIASES NIL :PORT 1534 :PROTO "udp">
 #<SERVICE :NAME "ampr-info" :ALIASES NIL :PORT 1535 :PROTO "tcp">
 #<SERVICE :NAME "ampr-info" :ALIASES NIL :PORT 1535 :PROTO "udp">
 #<SERVICE :NAME "ampr-inter" :ALIASES NIL :PORT 1536 :PROTO "tcp">
 #<SERVICE :NAME "ampr-inter" :ALIASES NIL :PORT 1536 :PROTO "udp">
 #<SERVICE :NAME "sdsc-lm" :ALIASES NIL :PORT 1537 :PROTO "tcp">
 #<SERVICE :NAME "sdsc-lm" :ALIASES NIL :PORT 1537 :PROTO "udp">
 #<SERVICE :NAME "3ds-lm" :ALIASES NIL :PORT 1538 :PROTO "tcp">
 #<SERVICE :NAME "3ds-lm" :ALIASES NIL :PORT 1538 :PROTO "udp">
 #<SERVICE :NAME "intellistor-lm" :ALIASES NIL :PORT 1539 :PROTO "tcp">
 #<SERVICE :NAME "intellistor-lm" :ALIASES NIL :PORT 1539 :PROTO "udp">
 #<SERVICE :NAME "rds" :ALIASES NIL :PORT 1540 :PROTO "tcp">
 #<SERVICE :NAME "rds" :ALIASES NIL :PORT 1540 :PROTO "udp">
 #<SERVICE :NAME "rds2" :ALIASES NIL :PORT 1541 :PROTO "tcp">
 #<SERVICE :NAME "rds2" :ALIASES NIL :PORT 1541 :PROTO "udp">
 #<SERVICE :NAME "gridgen-elmd" :ALIASES NIL :PORT 1542 :PROTO "tcp">
 #<SERVICE :NAME "gridgen-elmd" :ALIASES NIL :PORT 1542 :PROTO "udp">
 #<SERVICE :NAME "simba-cs" :ALIASES NIL :PORT 1543 :PROTO "tcp">
 #<SERVICE :NAME "simba-cs" :ALIASES NIL :PORT 1543 :PROTO "udp">
 #<SERVICE :NAME "aspeclmd" :ALIASES NIL :PORT 1544 :PROTO "tcp">
 #<SERVICE :NAME "aspeclmd" :ALIASES NIL :PORT 1544 :PROTO "udp">
 #<SERVICE :NAME "vistium-share" :ALIASES NIL :PORT 1545 :PROTO "tcp">
 #<SERVICE :NAME "vistium-share" :ALIASES NIL :PORT 1545 :PROTO "udp">
 #<SERVICE :NAME "abbaccuray" :ALIASES NIL :PORT 1546 :PROTO "tcp">
 #<SERVICE :NAME "abbaccuray" :ALIASES NIL :PORT 1546 :PROTO "udp">
 #<SERVICE :NAME "laplink" :ALIASES NIL :PORT 1547 :PROTO "tcp">
 #<SERVICE :NAME "laplink" :ALIASES NIL :PORT 1547 :PROTO "udp">
 #<SERVICE :NAME "axon-lm" :ALIASES NIL :PORT 1548 :PROTO "tcp">
 #<SERVICE :NAME "axon-lm" :ALIASES NIL :PORT 1548 :PROTO "udp">
 #<SERVICE :NAME "shivahose" :ALIASES NIL :PORT 1549 :PROTO "tcp">
 #<SERVICE :NAME "shivasound" :ALIASES NIL :PORT 1549 :PROTO "udp">
 #<SERVICE :NAME "3m-image-lm" :ALIASES NIL :PORT 1550 :PROTO "tcp">
 #<SERVICE :NAME "3m-image-lm" :ALIASES NIL :PORT 1550 :PROTO "udp">
 #<SERVICE :NAME "hecmtl-db" :ALIASES NIL :PORT 1551 :PROTO "tcp">
 #<SERVICE :NAME "hecmtl-db" :ALIASES NIL :PORT 1551 :PROTO "udp">
 #<SERVICE :NAME "pciarray" :ALIASES NIL :PORT 1552 :PROTO "tcp">
 #<SERVICE :NAME "pciarray" :ALIASES NIL :PORT 1552 :PROTO "udp">
 #<SERVICE :NAME "sna-cs" :ALIASES NIL :PORT 1553 :PROTO "tcp">
 #<SERVICE :NAME "sna-cs" :ALIASES NIL :PORT 1553 :PROTO "udp">
 #<SERVICE :NAME "caci-lm" :ALIASES NIL :PORT 1554 :PROTO "tcp">
 #<SERVICE :NAME "caci-lm" :ALIASES NIL :PORT 1554 :PROTO "udp">
 #<SERVICE :NAME "livelan" :ALIASES NIL :PORT 1555 :PROTO "tcp">
 #<SERVICE :NAME "livelan" :ALIASES NIL :PORT 1555 :PROTO "udp">
 #<SERVICE :NAME "veritas_pbx" :ALIASES ("veritas-pbx") :PORT 1556
   :PROTO "tcp">
 #<SERVICE :NAME "veritas_pbx" :ALIASES ("veritas-pbx") :PORT 1556
   :PROTO "udp">
 #<SERVICE :NAME "arbortext-lm" :ALIASES NIL :PORT 1557 :PROTO "tcp">
 #<SERVICE :NAME "arbortext-lm" :ALIASES NIL :PORT 1557 :PROTO "udp">
 #<SERVICE :NAME "xingmpeg" :ALIASES NIL :PORT 1558 :PROTO "tcp">
 #<SERVICE :NAME "xingmpeg" :ALIASES NIL :PORT 1558 :PROTO "udp">
 #<SERVICE :NAME "web2host" :ALIASES NIL :PORT 1559 :PROTO "tcp">
 #<SERVICE :NAME "web2host" :ALIASES NIL :PORT 1559 :PROTO "udp">
 #<SERVICE :NAME "asci-val" :ALIASES NIL :PORT 1560 :PROTO "tcp">
 #<SERVICE :NAME "asci-val" :ALIASES NIL :PORT 1560 :PROTO "udp">
 #<SERVICE :NAME "facilityview" :ALIASES NIL :PORT 1561 :PROTO "tcp">
 #<SERVICE :NAME "facilityview" :ALIASES NIL :PORT 1561 :PROTO "udp">
 #<SERVICE :NAME "pconnectmgr" :ALIASES NIL :PORT 1562 :PROTO "tcp">
 #<SERVICE :NAME "pconnectmgr" :ALIASES NIL :PORT 1562 :PROTO "udp">
 #<SERVICE :NAME "cadabra-lm" :ALIASES NIL :PORT 1563 :PROTO "tcp">
 #<SERVICE :NAME "cadabra-lm" :ALIASES NIL :PORT 1563 :PROTO "udp">
 #<SERVICE :NAME "pay-per-view" :ALIASES NIL :PORT 1564 :PROTO "tcp">
 #<SERVICE :NAME "pay-per-view" :ALIASES NIL :PORT 1564 :PROTO "udp">
 #<SERVICE :NAME "winddlb" :ALIASES NIL :PORT 1565 :PROTO "tcp">
 #<SERVICE :NAME "winddlb" :ALIASES NIL :PORT 1565 :PROTO "udp">
 #<SERVICE :NAME "corelvideo" :ALIASES NIL :PORT 1566 :PROTO "tcp">
 #<SERVICE :NAME "corelvideo" :ALIASES NIL :PORT 1566 :PROTO "udp">
 #<SERVICE :NAME "jlicelmd" :ALIASES NIL :PORT 1567 :PROTO "tcp">
 #<SERVICE :NAME "jlicelmd" :ALIASES NIL :PORT 1567 :PROTO "udp">
 #<SERVICE :NAME "tsspmap" :ALIASES NIL :PORT 1568 :PROTO "tcp">
 #<SERVICE :NAME "tsspmap" :ALIASES NIL :PORT 1568 :PROTO "udp">
 #<SERVICE :NAME "ets" :ALIASES NIL :PORT 1569 :PROTO "tcp">
 #<SERVICE :NAME "ets" :ALIASES NIL :PORT 1569 :PROTO "udp">
 #<SERVICE :NAME "orbixd" :ALIASES NIL :PORT 1570 :PROTO "tcp">
 #<SERVICE :NAME "orbixd" :ALIASES NIL :PORT 1570 :PROTO "udp">
 #<SERVICE :NAME "rdb-dbs-disp" :ALIASES NIL :PORT 1571 :PROTO "tcp">
 #<SERVICE :NAME "rdb-dbs-disp" :ALIASES NIL :PORT 1571 :PROTO "udp">
 #<SERVICE :NAME "chip-lm" :ALIASES NIL :PORT 1572 :PROTO "tcp">
 #<SERVICE :NAME "chip-lm" :ALIASES NIL :PORT 1572 :PROTO "udp">
 #<SERVICE :NAME "itscomm-ns" :ALIASES NIL :PORT 1573 :PROTO "tcp">
 #<SERVICE :NAME "itscomm-ns" :ALIASES NIL :PORT 1573 :PROTO "udp">
 #<SERVICE :NAME "mvel-lm" :ALIASES NIL :PORT 1574 :PROTO "tcp">
 #<SERVICE :NAME "mvel-lm" :ALIASES NIL :PORT 1574 :PROTO "udp">
 #<SERVICE :NAME "oraclenames" :ALIASES NIL :PORT 1575 :PROTO "tcp">
 #<SERVICE :NAME "oraclenames" :ALIASES NIL :PORT 1575 :PROTO "udp">
 #<SERVICE :NAME "moldflow-lm" :ALIASES NIL :PORT 1576 :PROTO "tcp">
 #<SERVICE :NAME "moldflow-lm" :ALIASES NIL :PORT 1576 :PROTO "udp">
 #<SERVICE :NAME "hypercube-lm" :ALIASES NIL :PORT 1577 :PROTO "tcp">
 #<SERVICE :NAME "hypercube-lm" :ALIASES NIL :PORT 1577 :PROTO "udp">
 #<SERVICE :NAME "jacobus-lm" :ALIASES NIL :PORT 1578 :PROTO "tcp">
 #<SERVICE :NAME "jacobus-lm" :ALIASES NIL :PORT 1578 :PROTO "udp">
 #<SERVICE :NAME "ioc-sea-lm" :ALIASES NIL :PORT 1579 :PROTO "tcp">
 #<SERVICE :NAME "ioc-sea-lm" :ALIASES NIL :PORT 1579 :PROTO "udp">
 #<SERVICE :NAME "tn-tl-r1" :ALIASES NIL :PORT 1580 :PROTO "tcp">
 #<SERVICE :NAME "tn-tl-r2" :ALIASES NIL :PORT 1580 :PROTO "udp">
 #<SERVICE :NAME "mil-2045-47001" :ALIASES NIL :PORT 1581 :PROTO "tcp">
 #<SERVICE :NAME "mil-2045-47001" :ALIASES NIL :PORT 1581 :PROTO "udp">
 #<SERVICE :NAME "msims" :ALIASES NIL :PORT 1582 :PROTO "tcp">
 #<SERVICE :NAME "msims" :ALIASES NIL :PORT 1582 :PROTO "udp">
 #<SERVICE :NAME "simbaexpress" :ALIASES NIL :PORT 1583 :PROTO "tcp">
 #<SERVICE :NAME "simbaexpress" :ALIASES NIL :PORT 1583 :PROTO "udp">
 #<SERVICE :NAME "tn-tl-fd2" :ALIASES NIL :PORT 1584 :PROTO "tcp">
 #<SERVICE :NAME "tn-tl-fd2" :ALIASES NIL :PORT 1584 :PROTO "udp">
 #<SERVICE :NAME "intv" :ALIASES NIL :PORT 1585 :PROTO "tcp">
 #<SERVICE :NAME "intv" :ALIASES NIL :PORT 1585 :PROTO "udp">
 #<SERVICE :NAME "ibm-abtact" :ALIASES NIL :PORT 1586 :PROTO "tcp">
 #<SERVICE :NAME "ibm-abtact" :ALIASES NIL :PORT 1586 :PROTO "udp">
 #<SERVICE :NAME "pra_elmd" :ALIASES ("pra-elmd") :PORT 1587 :PROTO "tcp">
 #<SERVICE :NAME "pra_elmd" :ALIASES ("pra-elmd") :PORT 1587 :PROTO "udp">
 #<SERVICE :NAME "triquest-lm" :ALIASES NIL :PORT 1588 :PROTO "tcp">
 #<SERVICE :NAME "triquest-lm" :ALIASES NIL :PORT 1588 :PROTO "udp">
 #<SERVICE :NAME "vqp" :ALIASES NIL :PORT 1589 :PROTO "tcp">
 #<SERVICE :NAME "vqp" :ALIASES NIL :PORT 1589 :PROTO "udp">
 #<SERVICE :NAME "gemini-lm" :ALIASES NIL :PORT 1590 :PROTO "tcp">
 #<SERVICE :NAME "gemini-lm" :ALIASES NIL :PORT 1590 :PROTO "udp">
 #<SERVICE :NAME "ncpm-pm" :ALIASES NIL :PORT 1591 :PROTO "tcp">
 #<SERVICE :NAME "ncpm-pm" :ALIASES NIL :PORT 1591 :PROTO "udp">
 #<SERVICE :NAME "commonspace" :ALIASES NIL :PORT 1592 :PROTO "tcp">
 #<SERVICE :NAME "commonspace" :ALIASES NIL :PORT 1592 :PROTO "udp">
 #<SERVICE :NAME "mainsoft-lm" :ALIASES NIL :PORT 1593 :PROTO "tcp">
 #<SERVICE :NAME "mainsoft-lm" :ALIASES NIL :PORT 1593 :PROTO "udp">
 #<SERVICE :NAME "sixtrak" :ALIASES NIL :PORT 1594 :PROTO "tcp">
 #<SERVICE :NAME "sixtrak" :ALIASES NIL :PORT 1594 :PROTO "udp">
 #<SERVICE :NAME "radio" :ALIASES NIL :PORT 1595 :PROTO "tcp">
 #<SERVICE :NAME "radio" :ALIASES NIL :PORT 1595 :PROTO "udp">
 #<SERVICE :NAME "radio-sm" :ALIASES NIL :PORT 1596 :PROTO "tcp">
 #<SERVICE :NAME "radio-bc" :ALIASES NIL :PORT 1596 :PROTO "udp">
 #<SERVICE :NAME "orbplus-iiop" :ALIASES NIL :PORT 1597 :PROTO "tcp">
 #<SERVICE :NAME "orbplus-iiop" :ALIASES NIL :PORT 1597 :PROTO "udp">
 #<SERVICE :NAME "picknfs" :ALIASES NIL :PORT 1598 :PROTO "tcp">
 #<SERVICE :NAME "picknfs" :ALIASES NIL :PORT 1598 :PROTO "udp">
 #<SERVICE :NAME "simbaservices" :ALIASES NIL :PORT 1599 :PROTO "tcp">
 #<SERVICE :NAME "simbaservices" :ALIASES NIL :PORT 1599 :PROTO "udp">
 #<SERVICE :NAME "issd" :ALIASES NIL :PORT 1600 :PROTO "tcp">
 #<SERVICE :NAME "issd" :ALIASES NIL :PORT 1600 :PROTO "udp">
 #<SERVICE :NAME "aas" :ALIASES NIL :PORT 1601 :PROTO "tcp">
 #<SERVICE :NAME "aas" :ALIASES NIL :PORT 1601 :PROTO "udp">
 #<SERVICE :NAME "inspect" :ALIASES NIL :PORT 1602 :PROTO "tcp">
 #<SERVICE :NAME "inspect" :ALIASES NIL :PORT 1602 :PROTO "udp">
 #<SERVICE :NAME "picodbc" :ALIASES NIL :PORT 1603 :PROTO "tcp">
 #<SERVICE :NAME "picodbc" :ALIASES NIL :PORT 1603 :PROTO "udp">
 #<SERVICE :NAME "icabrowser" :ALIASES NIL :PORT 1604 :PROTO "tcp">
 #<SERVICE :NAME "icabrowser" :ALIASES NIL :PORT 1604 :PROTO "udp">
 #<SERVICE :NAME "slp" :ALIASES NIL :PORT 1605 :PROTO "tcp">
 #<SERVICE :NAME "slp" :ALIASES NIL :PORT 1605 :PROTO "udp">
 #<SERVICE :NAME "slm-api" :ALIASES NIL :PORT 1606 :PROTO "tcp">
 #<SERVICE :NAME "slm-api" :ALIASES NIL :PORT 1606 :PROTO "udp">
 #<SERVICE :NAME "stt" :ALIASES NIL :PORT 1607 :PROTO "tcp">
 #<SERVICE :NAME "stt" :ALIASES NIL :PORT 1607 :PROTO "udp">
 #<SERVICE :NAME "smart-lm" :ALIASES NIL :PORT 1608 :PROTO "tcp">
 #<SERVICE :NAME "smart-lm" :ALIASES NIL :PORT 1608 :PROTO "udp">
 #<SERVICE :NAME "isysg-lm" :ALIASES NIL :PORT 1609 :PROTO "tcp">
 #<SERVICE :NAME "isysg-lm" :ALIASES NIL :PORT 1609 :PROTO "udp">
 #<SERVICE :NAME "taurus-wh" :ALIASES NIL :PORT 1610 :PROTO "tcp">
 #<SERVICE :NAME "taurus-wh" :ALIASES NIL :PORT 1610 :PROTO "udp">
 #<SERVICE :NAME "ill" :ALIASES NIL :PORT 1611 :PROTO "tcp">
 #<SERVICE :NAME "ill" :ALIASES NIL :PORT 1611 :PROTO "udp">
 #<SERVICE :NAME "netbill-trans" :ALIASES NIL :PORT 1612 :PROTO "tcp">
 #<SERVICE :NAME "netbill-trans" :ALIASES NIL :PORT 1612 :PROTO "udp">
 #<SERVICE :NAME "netbill-keyrep" :ALIASES NIL :PORT 1613 :PROTO "tcp">
 #<SERVICE :NAME "netbill-keyrep" :ALIASES NIL :PORT 1613 :PROTO "udp">
 #<SERVICE :NAME "netbill-cred" :ALIASES NIL :PORT 1614 :PROTO "tcp">
 #<SERVICE :NAME "netbill-cred" :ALIASES NIL :PORT 1614 :PROTO "udp">
 #<SERVICE :NAME "netbill-auth" :ALIASES NIL :PORT 1615 :PROTO "tcp">
 #<SERVICE :NAME "netbill-auth" :ALIASES NIL :PORT 1615 :PROTO "udp">
 #<SERVICE :NAME "netbill-prod" :ALIASES NIL :PORT 1616 :PROTO "tcp">
 #<SERVICE :NAME "netbill-prod" :ALIASES NIL :PORT 1616 :PROTO "udp">
 #<SERVICE :NAME "nimrod-agent" :ALIASES NIL :PORT 1617 :PROTO "tcp">
 #<SERVICE :NAME "nimrod-agent" :ALIASES NIL :PORT 1617 :PROTO "udp">
 #<SERVICE :NAME "skytelnet" :ALIASES NIL :PORT 1618 :PROTO "tcp">
 #<SERVICE :NAME "skytelnet" :ALIASES NIL :PORT 1618 :PROTO "udp">
 #<SERVICE :NAME "xs-openstorage" :ALIASES NIL :PORT 1619 :PROTO "tcp">
 #<SERVICE :NAME "xs-openstorage" :ALIASES NIL :PORT 1619 :PROTO "udp">
 #<SERVICE :NAME "faxportwinport" :ALIASES NIL :PORT 1620 :PROTO "tcp">
 #<SERVICE :NAME "faxportwinport" :ALIASES NIL :PORT 1620 :PROTO "udp">
 #<SERVICE :NAME "softdataphone" :ALIASES NIL :PORT 1621 :PROTO "tcp">
 #<SERVICE :NAME "softdataphone" :ALIASES NIL :PORT 1621 :PROTO "udp">
 #<SERVICE :NAME "ontime" :ALIASES NIL :PORT 1622 :PROTO "tcp">
 #<SERVICE :NAME "ontime" :ALIASES NIL :PORT 1622 :PROTO "udp">
 #<SERVICE :NAME "jaleosnd" :ALIASES NIL :PORT 1623 :PROTO "tcp">
 #<SERVICE :NAME "jaleosnd" :ALIASES NIL :PORT 1623 :PROTO "udp">
 #<SERVICE :NAME "udp-sr-port" :ALIASES NIL :PORT 1624 :PROTO "tcp">
 #<SERVICE :NAME "udp-sr-port" :ALIASES NIL :PORT 1624 :PROTO "udp">
 #<SERVICE :NAME "svs-omagent" :ALIASES NIL :PORT 1625 :PROTO "tcp">
 #<SERVICE :NAME "svs-omagent" :ALIASES NIL :PORT 1625 :PROTO "udp">
 #<SERVICE :NAME "shockwave" :ALIASES NIL :PORT 1626 :PROTO "tcp">
 #<SERVICE :NAME "shockwave" :ALIASES NIL :PORT 1626 :PROTO "udp">
 #<SERVICE :NAME "t128-gateway" :ALIASES NIL :PORT 1627 :PROTO "tcp">
 #<SERVICE :NAME "t128-gateway" :ALIASES NIL :PORT 1627 :PROTO "udp">
 #<SERVICE :NAME "lontalk-norm" :ALIASES NIL :PORT 1628 :PROTO "tcp">
 #<SERVICE :NAME "lontalk-norm" :ALIASES NIL :PORT 1628 :PROTO "udp">
 #<SERVICE :NAME "lontalk-urgnt" :ALIASES NIL :PORT 1629 :PROTO "tcp">
 #<SERVICE :NAME "lontalk-urgnt" :ALIASES NIL :PORT 1629 :PROTO "udp">
 #<SERVICE :NAME "oraclenet8cman" :ALIASES NIL :PORT 1630 :PROTO "tcp">
 #<SERVICE :NAME "oraclenet8cman" :ALIASES NIL :PORT 1630 :PROTO "udp">
 #<SERVICE :NAME "visitview" :ALIASES NIL :PORT 1631 :PROTO "tcp">
 #<SERVICE :NAME "visitview" :ALIASES NIL :PORT 1631 :PROTO "udp">
 #<SERVICE :NAME "pammratc" :ALIASES NIL :PORT 1632 :PROTO "tcp">
 #<SERVICE :NAME "pammratc" :ALIASES NIL :PORT 1632 :PROTO "udp">
 #<SERVICE :NAME "pammrpc" :ALIASES NIL :PORT 1633 :PROTO "tcp">
 #<SERVICE :NAME "pammrpc" :ALIASES NIL :PORT 1633 :PROTO "udp">
 #<SERVICE :NAME "loaprobe" :ALIASES NIL :PORT 1634 :PROTO "tcp">
 #<SERVICE :NAME "loaprobe" :ALIASES NIL :PORT 1634 :PROTO "udp">
 #<SERVICE :NAME "edb-server1" :ALIASES NIL :PORT 1635 :PROTO "tcp">
 #<SERVICE :NAME "edb-server1" :ALIASES NIL :PORT 1635 :PROTO "udp">
 #<SERVICE :NAME "isdc" :ALIASES NIL :PORT 1636 :PROTO "tcp">
 #<SERVICE :NAME "isdc" :ALIASES NIL :PORT 1636 :PROTO "udp">
 #<SERVICE :NAME "islc" :ALIASES NIL :PORT 1637 :PROTO "tcp">
 #<SERVICE :NAME "islc" :ALIASES NIL :PORT 1637 :PROTO "udp">
 #<SERVICE :NAME "ismc" :ALIASES NIL :PORT 1638 :PROTO "tcp">
 #<SERVICE :NAME "ismc" :ALIASES NIL :PORT 1638 :PROTO "udp">
 #<SERVICE :NAME "cert-initiator" :ALIASES NIL :PORT 1639 :PROTO "tcp">
 #<SERVICE :NAME "cert-initiator" :ALIASES NIL :PORT 1639 :PROTO "udp">
 #<SERVICE :NAME "cert-responder" :ALIASES NIL :PORT 1640 :PROTO "tcp">
 #<SERVICE :NAME "cert-responder" :ALIASES NIL :PORT 1640 :PROTO "udp">
 #<SERVICE :NAME "invision" :ALIASES NIL :PORT 1641 :PROTO "tcp">
 #<SERVICE :NAME "invision" :ALIASES NIL :PORT 1641 :PROTO "udp">
 #<SERVICE :NAME "isis-am" :ALIASES NIL :PORT 1642 :PROTO "tcp">
 #<SERVICE :NAME "isis-am" :ALIASES NIL :PORT 1642 :PROTO "udp">
 #<SERVICE :NAME "isis-ambc" :ALIASES NIL :PORT 1643 :PROTO "tcp">
 #<SERVICE :NAME "isis-ambc" :ALIASES NIL :PORT 1643 :PROTO "udp">
 #<SERVICE :NAME "saiseh" :ALIASES NIL :PORT 1644 :PROTO "tcp">
 #<SERVICE :NAME "saiseh" :ALIASES NIL :PORT 1644 :PROTO "udp">
 #<SERVICE :NAME "rsap" :ALIASES NIL :PORT 1647 :PROTO "tcp">
 #<SERVICE :NAME "rsap" :ALIASES NIL :PORT 1647 :PROTO "udp">
 #<SERVICE :NAME "concurrent-lm" :ALIASES NIL :PORT 1648 :PROTO "tcp">
 #<SERVICE :NAME "concurrent-lm" :ALIASES NIL :PORT 1648 :PROTO "udp">
 #<SERVICE :NAME "nkd" :ALIASES NIL :PORT 1650 :PROTO "tcp">
 #<SERVICE :NAME "nkd" :ALIASES NIL :PORT 1650 :PROTO "udp">
 #<SERVICE :NAME "shiva_confsrvr" :ALIASES ("shiva-confsrvr") :PORT 1651
   :PROTO "tcp">
 #<SERVICE :NAME "shiva_confsrvr" :ALIASES ("shiva-confsrvr") :PORT 1651
   :PROTO "udp">
 #<SERVICE :NAME "xnmp" :ALIASES NIL :PORT 1652 :PROTO "tcp">
 #<SERVICE :NAME "xnmp" :ALIASES NIL :PORT 1652 :PROTO "udp">
 #<SERVICE :NAME "alphatech-lm" :ALIASES NIL :PORT 1653 :PROTO "tcp">
 #<SERVICE :NAME "alphatech-lm" :ALIASES NIL :PORT 1653 :PROTO "udp">
 #<SERVICE :NAME "stargatealerts" :ALIASES NIL :PORT 1654 :PROTO "tcp">
 #<SERVICE :NAME "stargatealerts" :ALIASES NIL :PORT 1654 :PROTO "udp">
 #<SERVICE :NAME "dec-mbadmin" :ALIASES NIL :PORT 1655 :PROTO "tcp">
 #<SERVICE :NAME "dec-mbadmin" :ALIASES NIL :PORT 1655 :PROTO "udp">
 #<SERVICE :NAME "dec-mbadmin-h" :ALIASES NIL :PORT 1656 :PROTO "tcp">
 #<SERVICE :NAME "dec-mbadmin-h" :ALIASES NIL :PORT 1656 :PROTO "udp">
 #<SERVICE :NAME "fujitsu-mmpdc" :ALIASES NIL :PORT 1657 :PROTO "tcp">
 #<SERVICE :NAME "fujitsu-mmpdc" :ALIASES NIL :PORT 1657 :PROTO "udp">
 #<SERVICE :NAME "sixnetudr" :ALIASES NIL :PORT 1658 :PROTO "tcp">
 #<SERVICE :NAME "sixnetudr" :ALIASES NIL :PORT 1658 :PROTO "udp">
 #<SERVICE :NAME "sg-lm" :ALIASES NIL :PORT 1659 :PROTO "tcp">
 #<SERVICE :NAME "sg-lm" :ALIASES NIL :PORT 1659 :PROTO "udp">
 #<SERVICE :NAME "skip-mc-gikreq" :ALIASES NIL :PORT 1660 :PROTO "tcp">
 #<SERVICE :NAME "skip-mc-gikreq" :ALIASES NIL :PORT 1660 :PROTO "udp">
 #<SERVICE :NAME "netview-aix-1" :ALIASES NIL :PORT 1661 :PROTO "tcp">
 #<SERVICE :NAME "netview-aix-1" :ALIASES NIL :PORT 1661 :PROTO "udp">
 #<SERVICE :NAME "netview-aix-2" :ALIASES NIL :PORT 1662 :PROTO "tcp">
 #<SERVICE :NAME "netview-aix-2" :ALIASES NIL :PORT 1662 :PROTO "udp">
 #<SERVICE :NAME "netview-aix-3" :ALIASES NIL :PORT 1663 :PROTO "tcp">
 #<SERVICE :NAME "netview-aix-3" :ALIASES NIL :PORT 1663 :PROTO "udp">
 #<SERVICE :NAME "netview-aix-4" :ALIASES NIL :PORT 1664 :PROTO "tcp">
 #<SERVICE :NAME "netview-aix-4" :ALIASES NIL :PORT 1664 :PROTO "udp">
 #<SERVICE :NAME "netview-aix-5" :ALIASES NIL :PORT 1665 :PROTO "tcp">
 #<SERVICE :NAME "netview-aix-5" :ALIASES NIL :PORT 1665 :PROTO "udp">
 #<SERVICE :NAME "netview-aix-6" :ALIASES NIL :PORT 1666 :PROTO "tcp">
 #<SERVICE :NAME "netview-aix-6" :ALIASES NIL :PORT 1666 :PROTO "udp">
 #<SERVICE :NAME "netview-aix-7" :ALIASES NIL :PORT 1667 :PROTO "tcp">
 #<SERVICE :NAME "netview-aix-7" :ALIASES NIL :PORT 1667 :PROTO "udp">
 #<SERVICE :NAME "netview-aix-8" :ALIASES NIL :PORT 1668 :PROTO "tcp">
 #<SERVICE :NAME "netview-aix-8" :ALIASES NIL :PORT 1668 :PROTO "udp">
 #<SERVICE :NAME "netview-aix-9" :ALIASES NIL :PORT 1669 :PROTO "tcp">
 #<SERVICE :NAME "netview-aix-9" :ALIASES NIL :PORT 1669 :PROTO "udp">
 #<SERVICE :NAME "netview-aix-10" :ALIASES NIL :PORT 1670 :PROTO "tcp">
 #<SERVICE :NAME "netview-aix-10" :ALIASES NIL :PORT 1670 :PROTO "udp">
 #<SERVICE :NAME "netview-aix-11" :ALIASES NIL :PORT 1671 :PROTO "tcp">
 #<SERVICE :NAME "netview-aix-11" :ALIASES NIL :PORT 1671 :PROTO "udp">
 #<SERVICE :NAME "netview-aix-12" :ALIASES NIL :PORT 1672 :PROTO "tcp">
 #<SERVICE :NAME "netview-aix-12" :ALIASES NIL :PORT 1672 :PROTO "udp">
 #<SERVICE :NAME "proshare-mc-1" :ALIASES NIL :PORT 1673 :PROTO "tcp">
 #<SERVICE :NAME "proshare-mc-1" :ALIASES NIL :PORT 1673 :PROTO "udp">
 #<SERVICE :NAME "proshare-mc-2" :ALIASES NIL :PORT 1674 :PROTO "tcp">
 #<SERVICE :NAME "proshare-mc-2" :ALIASES NIL :PORT 1674 :PROTO "udp">
 #<SERVICE :NAME "pdp" :ALIASES NIL :PORT 1675 :PROTO "tcp">
 #<SERVICE :NAME "pdp" :ALIASES NIL :PORT 1675 :PROTO "udp">
 #<SERVICE :NAME "netcomm1" :ALIASES NIL :PORT 1676 :PROTO "tcp">
 #<SERVICE :NAME "netcomm2" :ALIASES NIL :PORT 1676 :PROTO "udp">
 #<SERVICE :NAME "groupwise" :ALIASES NIL :PORT 1677 :PROTO "tcp">
 #<SERVICE :NAME "groupwise" :ALIASES NIL :PORT 1677 :PROTO "udp">
 #<SERVICE :NAME "prolink" :ALIASES NIL :PORT 1678 :PROTO "tcp">
 #<SERVICE :NAME "prolink" :ALIASES NIL :PORT 1678 :PROTO "udp">
 #<SERVICE :NAME "darcorp-lm" :ALIASES NIL :PORT 1679 :PROTO "tcp">
 #<SERVICE :NAME "darcorp-lm" :ALIASES NIL :PORT 1679 :PROTO "udp">
 #<SERVICE :NAME "microcom-sbp" :ALIASES NIL :PORT 1680 :PROTO "tcp">
 #<SERVICE :NAME "microcom-sbp" :ALIASES NIL :PORT 1680 :PROTO "udp">
 #<SERVICE :NAME "sd-elmd" :ALIASES NIL :PORT 1681 :PROTO "tcp">
 #<SERVICE :NAME "sd-elmd" :ALIASES NIL :PORT 1681 :PROTO "udp">
 #<SERVICE :NAME "lanyon-lantern" :ALIASES NIL :PORT 1682 :PROTO "tcp">
 #<SERVICE :NAME "lanyon-lantern" :ALIASES NIL :PORT 1682 :PROTO "udp">
 #<SERVICE :NAME "ncpm-hip" :ALIASES NIL :PORT 1683 :PROTO "tcp">
 #<SERVICE :NAME "ncpm-hip" :ALIASES NIL :PORT 1683 :PROTO "udp">
 #<SERVICE :NAME "snaresecure" :ALIASES NIL :PORT 1684 :PROTO "tcp">
 #<SERVICE :NAME "snaresecure" :ALIASES NIL :PORT 1684 :PROTO "udp">
 #<SERVICE :NAME "n2nremote" :ALIASES NIL :PORT 1685 :PROTO "tcp">
 #<SERVICE :NAME "n2nremote" :ALIASES NIL :PORT 1685 :PROTO "udp">
 #<SERVICE :NAME "cvmon" :ALIASES NIL :PORT 1686 :PROTO "tcp">
 #<SERVICE :NAME "cvmon" :ALIASES NIL :PORT 1686 :PROTO "udp">
 #<SERVICE :NAME "nsjtp-ctrl" :ALIASES NIL :PORT 1687 :PROTO "tcp">
 #<SERVICE :NAME "nsjtp-ctrl" :ALIASES NIL :PORT 1687 :PROTO "udp">
 #<SERVICE :NAME "nsjtp-data" :ALIASES NIL :PORT 1688 :PROTO "tcp">
 #<SERVICE :NAME "nsjtp-data" :ALIASES NIL :PORT 1688 :PROTO "udp">
 #<SERVICE :NAME "firefox" :ALIASES NIL :PORT 1689 :PROTO "tcp">
 #<SERVICE :NAME "firefox" :ALIASES NIL :PORT 1689 :PROTO "udp">
 #<SERVICE :NAME "ng-umds" :ALIASES NIL :PORT 1690 :PROTO "tcp">
 #<SERVICE :NAME "ng-umds" :ALIASES NIL :PORT 1690 :PROTO "udp">
 #<SERVICE :NAME "empire-empuma" :ALIASES NIL :PORT 1691 :PROTO "tcp">
 #<SERVICE :NAME "empire-empuma" :ALIASES NIL :PORT 1691 :PROTO "udp">
 #<SERVICE :NAME "sstsys-lm" :ALIASES NIL :PORT 1692 :PROTO "tcp">
 #<SERVICE :NAME "sstsys-lm" :ALIASES NIL :PORT 1692 :PROTO "udp">
 #<SERVICE :NAME "rrirtr" :ALIASES NIL :PORT 1693 :PROTO "tcp">
 #<SERVICE :NAME "rrirtr" :ALIASES NIL :PORT 1693 :PROTO "udp">
 #<SERVICE :NAME "rrimwm" :ALIASES NIL :PORT 1694 :PROTO "tcp">
 #<SERVICE :NAME "rrimwm" :ALIASES NIL :PORT 1694 :PROTO "udp">
 #<SERVICE :NAME "rrilwm" :ALIASES NIL :PORT 1695 :PROTO "tcp">
 #<SERVICE :NAME "rrilwm" :ALIASES NIL :PORT 1695 :PROTO "udp">
 #<SERVICE :NAME "rrifmm" :ALIASES NIL :PORT 1696 :PROTO "tcp">
 #<SERVICE :NAME "rrifmm" :ALIASES NIL :PORT 1696 :PROTO "udp">
 #<SERVICE :NAME "rrisat" :ALIASES NIL :PORT 1697 :PROTO "tcp">
 #<SERVICE :NAME "rrisat" :ALIASES NIL :PORT 1697 :PROTO "udp">
 #<SERVICE :NAME "rsvp-encap-1" :ALIASES NIL :PORT 1698 :PROTO "tcp">
 #<SERVICE :NAME "rsvp-encap-1" :ALIASES NIL :PORT 1698 :PROTO "udp">
 #<SERVICE :NAME "rsvp-encap-2" :ALIASES NIL :PORT 1699 :PROTO "tcp">
 #<SERVICE :NAME "rsvp-encap-2" :ALIASES NIL :PORT 1699 :PROTO "udp">
 #<SERVICE :NAME "mps-raft" :ALIASES NIL :PORT 1700 :PROTO "tcp">
 #<SERVICE :NAME "mps-raft" :ALIASES NIL :PORT 1700 :PROTO "udp">
 #<SERVICE :NAME "deskshare" :ALIASES NIL :PORT 1702 :PROTO "tcp">
 #<SERVICE :NAME "deskshare" :ALIASES NIL :PORT 1702 :PROTO "udp">
 #<SERVICE :NAME "hb-engine" :ALIASES NIL :PORT 1703 :PROTO "tcp">
 #<SERVICE :NAME "hb-engine" :ALIASES NIL :PORT 1703 :PROTO "udp">
 #<SERVICE :NAME "bcs-broker" :ALIASES NIL :PORT 1704 :PROTO "tcp">
 #<SERVICE :NAME "bcs-broker" :ALIASES NIL :PORT 1704 :PROTO "udp">
 #<SERVICE :NAME "slingshot" :ALIASES NIL :PORT 1705 :PROTO "tcp">
 #<SERVICE :NAME "slingshot" :ALIASES NIL :PORT 1705 :PROTO "udp">
 #<SERVICE :NAME "jetform" :ALIASES NIL :PORT 1706 :PROTO "tcp">
 #<SERVICE :NAME "jetform" :ALIASES NIL :PORT 1706 :PROTO "udp">
 #<SERVICE :NAME "vdmplay" :ALIASES NIL :PORT 1707 :PROTO "tcp">
 #<SERVICE :NAME "vdmplay" :ALIASES NIL :PORT 1707 :PROTO "udp">
 #<SERVICE :NAME "gat-lmd" :ALIASES NIL :PORT 1708 :PROTO "tcp">
 #<SERVICE :NAME "gat-lmd" :ALIASES NIL :PORT 1708 :PROTO "udp">
 #<SERVICE :NAME "centra" :ALIASES NIL :PORT 1709 :PROTO "tcp">
 #<SERVICE :NAME "centra" :ALIASES NIL :PORT 1709 :PROTO "udp">
 #<SERVICE :NAME "impera" :ALIASES NIL :PORT 1710 :PROTO "tcp">
 #<SERVICE :NAME "impera" :ALIASES NIL :PORT 1710 :PROTO "udp">
 #<SERVICE :NAME "pptconference" :ALIASES NIL :PORT 1711 :PROTO "tcp">
 #<SERVICE :NAME "pptconference" :ALIASES NIL :PORT 1711 :PROTO "udp">
 #<SERVICE :NAME "registrar" :ALIASES NIL :PORT 1712 :PROTO "tcp">
 #<SERVICE :NAME "registrar" :ALIASES NIL :PORT 1712 :PROTO "udp">
 #<SERVICE :NAME "conferencetalk" :ALIASES NIL :PORT 1713 :PROTO "tcp">
 #<SERVICE :NAME "conferencetalk" :ALIASES NIL :PORT 1713 :PROTO "udp">
 #<SERVICE :NAME "sesi-lm" :ALIASES NIL :PORT 1714 :PROTO "tcp">
 #<SERVICE :NAME "sesi-lm" :ALIASES NIL :PORT 1714 :PROTO "udp">
 #<SERVICE :NAME "houdini-lm" :ALIASES NIL :PORT 1715 :PROTO "tcp">
 #<SERVICE :NAME "houdini-lm" :ALIASES NIL :PORT 1715 :PROTO "udp">
 #<SERVICE :NAME "xmsg" :ALIASES NIL :PORT 1716 :PROTO "tcp">
 #<SERVICE :NAME "xmsg" :ALIASES NIL :PORT 1716 :PROTO "udp">
 #<SERVICE :NAME "fj-hdnet" :ALIASES NIL :PORT 1717 :PROTO "tcp">
 #<SERVICE :NAME "fj-hdnet" :ALIASES NIL :PORT 1717 :PROTO "udp">
 #<SERVICE :NAME "caicci" :ALIASES NIL :PORT 1721 :PROTO "tcp">
 #<SERVICE :NAME "caicci" :ALIASES NIL :PORT 1721 :PROTO "udp">
 #<SERVICE :NAME "hks-lm" :ALIASES NIL :PORT 1722 :PROTO "tcp">
 #<SERVICE :NAME "hks-lm" :ALIASES NIL :PORT 1722 :PROTO "udp">
 #<SERVICE :NAME "pptp" :ALIASES NIL :PORT 1723 :PROTO "tcp">
 #<SERVICE :NAME "pptp" :ALIASES NIL :PORT 1723 :PROTO "udp">
 #<SERVICE :NAME "csbphonemaster" :ALIASES NIL :PORT 1724 :PROTO "tcp">
 #<SERVICE :NAME "csbphonemaster" :ALIASES NIL :PORT 1724 :PROTO "udp">
 #<SERVICE :NAME "iden-ralp" :ALIASES NIL :PORT 1725 :PROTO "tcp">
 #<SERVICE :NAME "iden-ralp" :ALIASES NIL :PORT 1725 :PROTO "udp">
 #<SERVICE :NAME "iberiagames" :ALIASES NIL :PORT 1726 :PROTO "tcp">
 #<SERVICE :NAME "iberiagames" :ALIASES NIL :PORT 1726 :PROTO "udp">
 #<SERVICE :NAME "winddx" :ALIASES NIL :PORT 1727 :PROTO "tcp">
 #<SERVICE :NAME "winddx" :ALIASES NIL :PORT 1727 :PROTO "udp">
 #<SERVICE :NAME "telindus" :ALIASES NIL :PORT 1728 :PROTO "tcp">
 #<SERVICE :NAME "telindus" :ALIASES NIL :PORT 1728 :PROTO "udp">
 #<SERVICE :NAME "citynl" :ALIASES NIL :PORT 1729 :PROTO "tcp">
 #<SERVICE :NAME "citynl" :ALIASES NIL :PORT 1729 :PROTO "udp">
 #<SERVICE :NAME "roketz" :ALIASES NIL :PORT 1730 :PROTO "tcp">
 #<SERVICE :NAME "roketz" :ALIASES NIL :PORT 1730 :PROTO "udp">
 #<SERVICE :NAME "msiccp" :ALIASES NIL :PORT 1731 :PROTO "tcp">
 #<SERVICE :NAME "msiccp" :ALIASES NIL :PORT 1731 :PROTO "udp">
 #<SERVICE :NAME "proxim" :ALIASES NIL :PORT 1732 :PROTO "tcp">
 #<SERVICE :NAME "proxim" :ALIASES NIL :PORT 1732 :PROTO "udp">
 #<SERVICE :NAME "siipat" :ALIASES NIL :PORT 1733 :PROTO "tcp">
 #<SERVICE :NAME "siipat" :ALIASES NIL :PORT 1733 :PROTO "udp">
 #<SERVICE :NAME "cambertx-lm" :ALIASES NIL :PORT 1734 :PROTO "tcp">
 #<SERVICE :NAME "cambertx-lm" :ALIASES NIL :PORT 1734 :PROTO "udp">
 #<SERVICE :NAME "privatechat" :ALIASES NIL :PORT 1735 :PROTO "tcp">
 #<SERVICE :NAME "privatechat" :ALIASES NIL :PORT 1735 :PROTO "udp">
 #<SERVICE :NAME "street-stream" :ALIASES NIL :PORT 1736 :PROTO "tcp">
 #<SERVICE :NAME "street-stream" :ALIASES NIL :PORT 1736 :PROTO "udp">
 #<SERVICE :NAME "ultimad" :ALIASES NIL :PORT 1737 :PROTO "tcp">
 #<SERVICE :NAME "ultimad" :ALIASES NIL :PORT 1737 :PROTO "udp">
 #<SERVICE :NAME "gamegen1" :ALIASES NIL :PORT 1738 :PROTO "tcp">
 #<SERVICE :NAME "gamegen1" :ALIASES NIL :PORT 1738 :PROTO "udp">
 #<SERVICE :NAME "webaccess" :ALIASES NIL :PORT 1739 :PROTO "tcp">
 #<SERVICE :NAME "webaccess" :ALIASES NIL :PORT 1739 :PROTO "udp">
 #<SERVICE :NAME "encore" :ALIASES NIL :PORT 1740 :PROTO "tcp">
 #<SERVICE :NAME "encore" :ALIASES NIL :PORT 1740 :PROTO "udp">
 #<SERVICE :NAME "cisco-net-mgmt" :ALIASES NIL :PORT 1741 :PROTO "tcp">
 #<SERVICE :NAME "cisco-net-mgmt" :ALIASES NIL :PORT 1741 :PROTO "udp">
 #<SERVICE :NAME "3Com-nsd" :ALIASES NIL :PORT 1742 :PROTO "tcp">
 #<SERVICE :NAME "3Com-nsd" :ALIASES NIL :PORT 1742 :PROTO "udp">
 #<SERVICE :NAME "cinegrfx-lm" :ALIASES NIL :PORT 1743 :PROTO "tcp">
 #<SERVICE :NAME "cinegrfx-lm" :ALIASES NIL :PORT 1743 :PROTO "udp">
 #<SERVICE :NAME "ncpm-ft" :ALIASES NIL :PORT 1744 :PROTO "tcp">
 #<SERVICE :NAME "ncpm-ft" :ALIASES NIL :PORT 1744 :PROTO "udp">
 #<SERVICE :NAME "remote-winsock" :ALIASES NIL :PORT 1745 :PROTO "tcp">
 #<SERVICE :NAME "remote-winsock" :ALIASES NIL :PORT 1745 :PROTO "udp">
 #<SERVICE :NAME "ftrapid-1" :ALIASES NIL :PORT 1746 :PROTO "tcp">
 #<SERVICE :NAME "ftrapid-1" :ALIASES NIL :PORT 1746 :PROTO "udp">
 #<SERVICE :NAME "ftrapid-2" :ALIASES NIL :PORT 1747 :PROTO "tcp">
 #<SERVICE :NAME "ftrapid-2" :ALIASES NIL :PORT 1747 :PROTO "udp">
 #<SERVICE :NAME "oracle-em1" :ALIASES NIL :PORT 1748 :PROTO "tcp">
 #<SERVICE :NAME "oracle-em1" :ALIASES NIL :PORT 1748 :PROTO "udp">
 #<SERVICE :NAME "aspen-services" :ALIASES NIL :PORT 1749 :PROTO "tcp">
 #<SERVICE :NAME "aspen-services" :ALIASES NIL :PORT 1749 :PROTO "udp">
 #<SERVICE :NAME "sslp" :ALIASES NIL :PORT 1750 :PROTO "tcp">
 #<SERVICE :NAME "sslp" :ALIASES NIL :PORT 1750 :PROTO "udp">
 #<SERVICE :NAME "swiftnet" :ALIASES NIL :PORT 1751 :PROTO "tcp">
 #<SERVICE :NAME "swiftnet" :ALIASES NIL :PORT 1751 :PROTO "udp">
 #<SERVICE :NAME "lofr-lm" :ALIASES NIL :PORT 1752 :PROTO "tcp">
 #<SERVICE :NAME "lofr-lm" :ALIASES NIL :PORT 1752 :PROTO "udp">
 #<SERVICE :NAME "predatar-comms" :ALIASES NIL :PORT 1753 :PROTO "tcp">
 #<SERVICE :NAME "oracle-em2" :ALIASES NIL :PORT 1754 :PROTO "tcp">
 #<SERVICE :NAME "oracle-em2" :ALIASES NIL :PORT 1754 :PROTO "udp">
 #<SERVICE :NAME "ms-streaming" :ALIASES NIL :PORT 1755 :PROTO "tcp">
 #<SERVICE :NAME "ms-streaming" :ALIASES NIL :PORT 1755 :PROTO "udp">
 #<SERVICE :NAME "capfast-lmd" :ALIASES NIL :PORT 1756 :PROTO "tcp">
 #<SERVICE :NAME "capfast-lmd" :ALIASES NIL :PORT 1756 :PROTO "udp">
 #<SERVICE :NAME "cnhrp" :ALIASES NIL :PORT 1757 :PROTO "tcp">
 #<SERVICE :NAME "cnhrp" :ALIASES NIL :PORT 1757 :PROTO "udp">
 #<SERVICE :NAME "spss-lm" :ALIASES NIL :PORT 1759 :PROTO "tcp">
 #<SERVICE :NAME "www-ldap-gw" :ALIASES NIL :PORT 1760 :PROTO "tcp">
 #<SERVICE :NAME "www-ldap-gw" :ALIASES NIL :PORT 1760 :PROTO "udp">
 #<SERVICE :NAME "cft-0" :ALIASES NIL :PORT 1761 :PROTO "tcp">
 #<SERVICE :NAME "cft-0" :ALIASES NIL :PORT 1761 :PROTO "udp">
 #<SERVICE :NAME "cft-1" :ALIASES NIL :PORT 1762 :PROTO "tcp">
 #<SERVICE :NAME "cft-1" :ALIASES NIL :PORT 1762 :PROTO "udp">
 #<SERVICE :NAME "cft-2" :ALIASES NIL :PORT 1763 :PROTO "tcp">
 #<SERVICE :NAME "cft-2" :ALIASES NIL :PORT 1763 :PROTO "udp">
 #<SERVICE :NAME "cft-3" :ALIASES NIL :PORT 1764 :PROTO "tcp">
 #<SERVICE :NAME "cft-3" :ALIASES NIL :PORT 1764 :PROTO "udp">
 #<SERVICE :NAME "cft-4" :ALIASES NIL :PORT 1765 :PROTO "tcp">
 #<SERVICE :NAME "cft-4" :ALIASES NIL :PORT 1765 :PROTO "udp">
 #<SERVICE :NAME "cft-5" :ALIASES NIL :PORT 1766 :PROTO "tcp">
 #<SERVICE :NAME "cft-5" :ALIASES NIL :PORT 1766 :PROTO "udp">
 #<SERVICE :NAME "cft-6" :ALIASES NIL :PORT 1767 :PROTO "tcp">
 #<SERVICE :NAME "cft-6" :ALIASES NIL :PORT 1767 :PROTO "udp">
 #<SERVICE :NAME "cft-7" :ALIASES NIL :PORT 1768 :PROTO "tcp">
 #<SERVICE :NAME "cft-7" :ALIASES NIL :PORT 1768 :PROTO "udp">
 #<SERVICE :NAME "bmc-net-adm" :ALIASES NIL :PORT 1769 :PROTO "tcp">
 #<SERVICE :NAME "bmc-net-adm" :ALIASES NIL :PORT 1769 :PROTO "udp">
 #<SERVICE :NAME "bmc-net-svc" :ALIASES NIL :PORT 1770 :PROTO "tcp">
 #<SERVICE :NAME "bmc-net-svc" :ALIASES NIL :PORT 1770 :PROTO "udp">
 #<SERVICE :NAME "vaultbase" :ALIASES NIL :PORT 1771 :PROTO "tcp">
 #<SERVICE :NAME "vaultbase" :ALIASES NIL :PORT 1771 :PROTO "udp">
 #<SERVICE :NAME "essweb-gw" :ALIASES NIL :PORT 1772 :PROTO "tcp">
 #<SERVICE :NAME "essweb-gw" :ALIASES NIL :PORT 1772 :PROTO "udp">
 #<SERVICE :NAME "kmscontrol" :ALIASES NIL :PORT 1773 :PROTO "tcp">
 #<SERVICE :NAME "kmscontrol" :ALIASES NIL :PORT 1773 :PROTO "udp">
 #<SERVICE :NAME "global-dtserv" :ALIASES NIL :PORT 1774 :PROTO "tcp">
 #<SERVICE :NAME "global-dtserv" :ALIASES NIL :PORT 1774 :PROTO "udp">
 #<SERVICE :NAME "femis" :ALIASES NIL :PORT 1776 :PROTO "tcp">
 #<SERVICE :NAME "femis" :ALIASES NIL :PORT 1776 :PROTO "udp">
 #<SERVICE :NAME "powerguardian" :ALIASES NIL :PORT 1777 :PROTO "tcp">
 #<SERVICE :NAME "powerguardian" :ALIASES NIL :PORT 1777 :PROTO "udp">
 #<SERVICE :NAME "prodigy-intrnet" :ALIASES NIL :PORT 1778 :PROTO "tcp">
 #<SERVICE :NAME "prodigy-intrnet" :ALIASES NIL :PORT 1778 :PROTO "udp">
 #<SERVICE :NAME "pharmasoft" :ALIASES NIL :PORT 1779 :PROTO "tcp">
 #<SERVICE :NAME "pharmasoft" :ALIASES NIL :PORT 1779 :PROTO "udp">
 #<SERVICE :NAME "dpkeyserv" :ALIASES NIL :PORT 1780 :PROTO "tcp">
 #<SERVICE :NAME "dpkeyserv" :ALIASES NIL :PORT 1780 :PROTO "udp">
 #<SERVICE :NAME "answersoft-lm" :ALIASES NIL :PORT 1781 :PROTO "tcp">
 #<SERVICE :NAME "answersoft-lm" :ALIASES NIL :PORT 1781 :PROTO "udp">
 #<SERVICE :NAME "hp-hcip" :ALIASES NIL :PORT 1782 :PROTO "tcp">
 #<SERVICE :NAME "hp-hcip" :ALIASES NIL :PORT 1782 :PROTO "udp">
 #<SERVICE :NAME "finle-lm" :ALIASES NIL :PORT 1784 :PROTO "tcp">
 #<SERVICE :NAME "finle-lm" :ALIASES NIL :PORT 1784 :PROTO "udp">
 #<SERVICE :NAME "windlm" :ALIASES NIL :PORT 1785 :PROTO "tcp">
 #<SERVICE :NAME "windlm" :ALIASES NIL :PORT 1785 :PROTO "udp">
 #<SERVICE :NAME "funk-logger" :ALIASES NIL :PORT 1786 :PROTO "tcp">
 #<SERVICE :NAME "funk-logger" :ALIASES NIL :PORT 1786 :PROTO "udp">
 #<SERVICE :NAME "funk-license" :ALIASES NIL :PORT 1787 :PROTO "tcp">
 #<SERVICE :NAME "funk-license" :ALIASES NIL :PORT 1787 :PROTO "udp">
 #<SERVICE :NAME "psmond" :ALIASES NIL :PORT 1788 :PROTO "tcp">
 #<SERVICE :NAME "psmond" :ALIASES NIL :PORT 1788 :PROTO "udp">
 #<SERVICE :NAME "ea1" :ALIASES NIL :PORT 1791 :PROTO "tcp">
 #<SERVICE :NAME "ea1" :ALIASES NIL :PORT 1791 :PROTO "udp">
 #<SERVICE :NAME "ibm-dt-2" :ALIASES NIL :PORT 1792 :PROTO "tcp">
 #<SERVICE :NAME "ibm-dt-2" :ALIASES NIL :PORT 1792 :PROTO "udp">
 #<SERVICE :NAME "rsc-robot" :ALIASES NIL :PORT 1793 :PROTO "tcp">
 #<SERVICE :NAME "rsc-robot" :ALIASES NIL :PORT 1793 :PROTO "udp">
 #<SERVICE :NAME "cera-bcm" :ALIASES NIL :PORT 1794 :PROTO "tcp">
 #<SERVICE :NAME "cera-bcm" :ALIASES NIL :PORT 1794 :PROTO "udp">
 #<SERVICE :NAME "dpi-proxy" :ALIASES NIL :PORT 1795 :PROTO "tcp">
 #<SERVICE :NAME "dpi-proxy" :ALIASES NIL :PORT 1795 :PROTO "udp">
 #<SERVICE :NAME "vocaltec-admin" :ALIASES NIL :PORT 1796 :PROTO "tcp">
 #<SERVICE :NAME "vocaltec-admin" :ALIASES NIL :PORT 1796 :PROTO "udp">
 #<SERVICE :NAME "etp" :ALIASES NIL :PORT 1798 :PROTO "tcp">
 #<SERVICE :NAME "etp" :ALIASES NIL :PORT 1798 :PROTO "udp">
 #<SERVICE :NAME "netrisk" :ALIASES NIL :PORT 1799 :PROTO "tcp">
 #<SERVICE :NAME "netrisk" :ALIASES NIL :PORT 1799 :PROTO "udp">
 #<SERVICE :NAME "ansys-lm" :ALIASES NIL :PORT 1800 :PROTO "tcp">
 #<SERVICE :NAME "ansys-lm" :ALIASES NIL :PORT 1800 :PROTO "udp">
 #<SERVICE :NAME "msmq" :ALIASES NIL :PORT 1801 :PROTO "tcp">
 #<SERVICE :NAME "msmq" :ALIASES NIL :PORT 1801 :PROTO "udp">
 #<SERVICE :NAME "concomp1" :ALIASES NIL :PORT 1802 :PROTO "tcp">
 #<SERVICE :NAME "concomp1" :ALIASES NIL :PORT 1802 :PROTO "udp">
 #<SERVICE :NAME "hp-hcip-gwy" :ALIASES NIL :PORT 1803 :PROTO "tcp">
 #<SERVICE :NAME "hp-hcip-gwy" :ALIASES NIL :PORT 1803 :PROTO "udp">
 #<SERVICE :NAME "enl" :ALIASES NIL :PORT 1804 :PROTO "tcp">
 #<SERVICE :NAME "enl" :ALIASES NIL :PORT 1804 :PROTO "udp">
 #<SERVICE :NAME "enl-name" :ALIASES NIL :PORT 1805 :PROTO "tcp">
 #<SERVICE :NAME "enl-name" :ALIASES NIL :PORT 1805 :PROTO "udp">
 #<SERVICE :NAME "musiconline" :ALIASES NIL :PORT 1806 :PROTO "tcp">
 #<SERVICE :NAME "musiconline" :ALIASES NIL :PORT 1806 :PROTO "udp">
 #<SERVICE :NAME "fhsp" :ALIASES NIL :PORT 1807 :PROTO "tcp">
 #<SERVICE :NAME "fhsp" :ALIASES NIL :PORT 1807 :PROTO "udp">
 #<SERVICE :NAME "oracle-vp2" :ALIASES NIL :PORT 1808 :PROTO "tcp">
 #<SERVICE :NAME "oracle-vp2" :ALIASES NIL :PORT 1808 :PROTO "udp">
 #<SERVICE :NAME "oracle-vp1" :ALIASES NIL :PORT 1809 :PROTO "tcp">
 #<SERVICE :NAME "oracle-vp1" :ALIASES NIL :PORT 1809 :PROTO "udp">
 #<SERVICE :NAME "jerand-lm" :ALIASES NIL :PORT 1810 :PROTO "tcp">
 #<SERVICE :NAME "jerand-lm" :ALIASES NIL :PORT 1810 :PROTO "udp">
 #<SERVICE :NAME "scientia-sdb" :ALIASES NIL :PORT 1811 :PROTO "tcp">
 #<SERVICE :NAME "scientia-sdb" :ALIASES NIL :PORT 1811 :PROTO "udp">
 #<SERVICE :NAME "tdp-suite" :ALIASES NIL :PORT 1814 :PROTO "tcp">
 #<SERVICE :NAME "tdp-suite" :ALIASES NIL :PORT 1814 :PROTO "udp">
 #<SERVICE :NAME "mmpft" :ALIASES NIL :PORT 1815 :PROTO "tcp">
 #<SERVICE :NAME "mmpft" :ALIASES NIL :PORT 1815 :PROTO "udp">
 #<SERVICE :NAME "harp" :ALIASES NIL :PORT 1816 :PROTO "tcp">
 #<SERVICE :NAME "harp" :ALIASES NIL :PORT 1816 :PROTO "udp">
 #<SERVICE :NAME "rkb-oscs" :ALIASES NIL :PORT 1817 :PROTO "tcp">
 #<SERVICE :NAME "rkb-oscs" :ALIASES NIL :PORT 1817 :PROTO "udp">
 #<SERVICE :NAME "etftp" :ALIASES NIL :PORT 1818 :PROTO "tcp">
 #<SERVICE :NAME "etftp" :ALIASES NIL :PORT 1818 :PROTO "udp">
 #<SERVICE :NAME "plato-lm" :ALIASES NIL :PORT 1819 :PROTO "tcp">
 #<SERVICE :NAME "plato-lm" :ALIASES NIL :PORT 1819 :PROTO "udp">
 #<SERVICE :NAME "mcagent" :ALIASES NIL :PORT 1820 :PROTO "tcp">
 #<SERVICE :NAME "mcagent" :ALIASES NIL :PORT 1820 :PROTO "udp">
 #<SERVICE :NAME "donnyworld" :ALIASES NIL :PORT 1821 :PROTO "tcp">
 #<SERVICE :NAME "donnyworld" :ALIASES NIL :PORT 1821 :PROTO "udp">
 #<SERVICE :NAME "es-elmd" :ALIASES NIL :PORT 1822 :PROTO "tcp">
 #<SERVICE :NAME "es-elmd" :ALIASES NIL :PORT 1822 :PROTO "udp">
 #<SERVICE :NAME "unisys-lm" :ALIASES NIL :PORT 1823 :PROTO "tcp">
 #<SERVICE :NAME "unisys-lm" :ALIASES NIL :PORT 1823 :PROTO "udp">
 #<SERVICE :NAME "metrics-pas" :ALIASES NIL :PORT 1824 :PROTO "tcp">
 #<SERVICE :NAME "metrics-pas" :ALIASES NIL :PORT 1824 :PROTO "udp">
 #<SERVICE :NAME "direcpc-video" :ALIASES NIL :PORT 1825 :PROTO "tcp">
 #<SERVICE :NAME "direcpc-video" :ALIASES NIL :PORT 1825 :PROTO "udp">
 #<SERVICE :NAME "ardt" :ALIASES NIL :PORT 1826 :PROTO "tcp">
 #<SERVICE :NAME "ardt" :ALIASES NIL :PORT 1826 :PROTO "udp">
 #<SERVICE :NAME "asi" :ALIASES NIL :PORT 1827 :PROTO "tcp">
 #<SERVICE :NAME "asi" :ALIASES NIL :PORT 1827 :PROTO "udp">
 #<SERVICE :NAME "itm-mcell-u" :ALIASES NIL :PORT 1828 :PROTO "tcp">
 #<SERVICE :NAME "itm-mcell-u" :ALIASES NIL :PORT 1828 :PROTO "udp">
 #<SERVICE :NAME "optika-emedia" :ALIASES NIL :PORT 1829 :PROTO "tcp">
 #<SERVICE :NAME "optika-emedia" :ALIASES NIL :PORT 1829 :PROTO "udp">
 #<SERVICE :NAME "net8-cman" :ALIASES NIL :PORT 1830 :PROTO "tcp">
 #<SERVICE :NAME "net8-cman" :ALIASES NIL :PORT 1830 :PROTO "udp">
 #<SERVICE :NAME "myrtle" :ALIASES NIL :PORT 1831 :PROTO "tcp">
 #<SERVICE :NAME "myrtle" :ALIASES NIL :PORT 1831 :PROTO "udp">
 #<SERVICE :NAME "tht-treasure" :ALIASES NIL :PORT 1832 :PROTO "tcp">
 #<SERVICE :NAME "tht-treasure" :ALIASES NIL :PORT 1832 :PROTO "udp">
 #<SERVICE :NAME "udpradio" :ALIASES NIL :PORT 1833 :PROTO "tcp">
 #<SERVICE :NAME "udpradio" :ALIASES NIL :PORT 1833 :PROTO "udp">
 #<SERVICE :NAME "ardusuni" :ALIASES NIL :PORT 1834 :PROTO "tcp">
 #<SERVICE :NAME "ardusuni" :ALIASES NIL :PORT 1834 :PROTO "udp">
 #<SERVICE :NAME "ardusmul" :ALIASES NIL :PORT 1835 :PROTO "tcp">
 #<SERVICE :NAME "ardusmul" :ALIASES NIL :PORT 1835 :PROTO "udp">
 #<SERVICE :NAME "ste-smsc" :ALIASES NIL :PORT 1836 :PROTO "tcp">
 #<SERVICE :NAME "ste-smsc" :ALIASES NIL :PORT 1836 :PROTO "udp">
 #<SERVICE :NAME "csoft1" :ALIASES NIL :PORT 1837 :PROTO "tcp">
 #<SERVICE :NAME "csoft1" :ALIASES NIL :PORT 1837 :PROTO "udp">
 #<SERVICE :NAME "talnet" :ALIASES NIL :PORT 1838 :PROTO "tcp">
 #<SERVICE :NAME "talnet" :ALIASES NIL :PORT 1838 :PROTO "udp">
 #<SERVICE :NAME "netopia-vo1" :ALIASES NIL :PORT 1839 :PROTO "tcp">
 #<SERVICE :NAME "netopia-vo1" :ALIASES NIL :PORT 1839 :PROTO "udp">
 #<SERVICE :NAME "netopia-vo2" :ALIASES NIL :PORT 1840 :PROTO "tcp">
 #<SERVICE :NAME "netopia-vo2" :ALIASES NIL :PORT 1840 :PROTO "udp">
 #<SERVICE :NAME "netopia-vo3" :ALIASES NIL :PORT 1841 :PROTO "tcp">
 #<SERVICE :NAME "netopia-vo3" :ALIASES NIL :PORT 1841 :PROTO "udp">
 #<SERVICE :NAME "netopia-vo4" :ALIASES NIL :PORT 1842 :PROTO "tcp">
 #<SERVICE :NAME "netopia-vo4" :ALIASES NIL :PORT 1842 :PROTO "udp">
 #<SERVICE :NAME "netopia-vo5" :ALIASES NIL :PORT 1843 :PROTO "tcp">
 #<SERVICE :NAME "netopia-vo5" :ALIASES NIL :PORT 1843 :PROTO "udp">
 #<SERVICE :NAME "direcpc-dll" :ALIASES NIL :PORT 1844 :PROTO "tcp">
 #<SERVICE :NAME "direcpc-dll" :ALIASES NIL :PORT 1844 :PROTO "udp">
 #<SERVICE :NAME "altalink" :ALIASES NIL :PORT 1845 :PROTO "tcp">
 #<SERVICE :NAME "altalink" :ALIASES NIL :PORT 1845 :PROTO "udp">
 #<SERVICE :NAME "tunstall-pnc" :ALIASES NIL :PORT 1846 :PROTO "tcp">
 #<SERVICE :NAME "tunstall-pnc" :ALIASES NIL :PORT 1846 :PROTO "udp">
 #<SERVICE :NAME "slp-notify" :ALIASES NIL :PORT 1847 :PROTO "tcp">
 #<SERVICE :NAME "slp-notify" :ALIASES NIL :PORT 1847 :PROTO "udp">
 #<SERVICE :NAME "fjdocdist" :ALIASES NIL :PORT 1848 :PROTO "tcp">
 #<SERVICE :NAME "fjdocdist" :ALIASES NIL :PORT 1848 :PROTO "udp">
 #<SERVICE :NAME "alpha-sms" :ALIASES NIL :PORT 1849 :PROTO "tcp">
 #<SERVICE :NAME "alpha-sms" :ALIASES NIL :PORT 1849 :PROTO "udp">
 #<SERVICE :NAME "gsi" :ALIASES NIL :PORT 1850 :PROTO "tcp">
 #<SERVICE :NAME "gsi" :ALIASES NIL :PORT 1850 :PROTO "udp">
 #<SERVICE :NAME "ctcd" :ALIASES NIL :PORT 1851 :PROTO "tcp">
 #<SERVICE :NAME "ctcd" :ALIASES NIL :PORT 1851 :PROTO "udp">
 #<SERVICE :NAME "virtual-time" :ALIASES NIL :PORT 1852 :PROTO "tcp">
 #<SERVICE :NAME "virtual-time" :ALIASES NIL :PORT 1852 :PROTO "udp">
 #<SERVICE :NAME "vids-avtp" :ALIASES NIL :PORT 1853 :PROTO "tcp">
 #<SERVICE :NAME "vids-avtp" :ALIASES NIL :PORT 1853 :PROTO "udp">
 #<SERVICE :NAME "buddy-draw" :ALIASES NIL :PORT 1854 :PROTO "tcp">
 #<SERVICE :NAME "buddy-draw" :ALIASES NIL :PORT 1854 :PROTO "udp">
 #<SERVICE :NAME "fiorano-rtrsvc" :ALIASES NIL :PORT 1855 :PROTO "tcp">
 #<SERVICE :NAME "fiorano-rtrsvc" :ALIASES NIL :PORT 1855 :PROTO "udp">
 #<SERVICE :NAME "fiorano-msgsvc" :ALIASES NIL :PORT 1856 :PROTO "tcp">
 #<SERVICE :NAME "fiorano-msgsvc" :ALIASES NIL :PORT 1856 :PROTO "udp">
 #<SERVICE :NAME "datacaptor" :ALIASES NIL :PORT 1857 :PROTO "tcp">
 #<SERVICE :NAME "datacaptor" :ALIASES NIL :PORT 1857 :PROTO "udp">
 #<SERVICE :NAME "privateark" :ALIASES NIL :PORT 1858 :PROTO "tcp">
 #<SERVICE :NAME "privateark" :ALIASES NIL :PORT 1858 :PROTO "udp">
 #<SERVICE :NAME "gammafetchsvr" :ALIASES NIL :PORT 1859 :PROTO "tcp">
 #<SERVICE :NAME "gammafetchsvr" :ALIASES NIL :PORT 1859 :PROTO "udp">
 #<SERVICE :NAME "sunscalar-svc" :ALIASES NIL :PORT 1860 :PROTO "tcp">
 #<SERVICE :NAME "sunscalar-svc" :ALIASES NIL :PORT 1860 :PROTO "udp">
 #<SERVICE :NAME "lecroy-vicp" :ALIASES NIL :PORT 1861 :PROTO "tcp">
 #<SERVICE :NAME "lecroy-vicp" :ALIASES NIL :PORT 1861 :PROTO "udp">
 #<SERVICE :NAME "mysql-cm-agent" :ALIASES NIL :PORT 1862 :PROTO "tcp">
 #<SERVICE :NAME "mysql-cm-agent" :ALIASES NIL :PORT 1862 :PROTO "udp">
 #<SERVICE :NAME "msnp" :ALIASES NIL :PORT 1863 :PROTO "tcp">
 #<SERVICE :NAME "msnp" :ALIASES NIL :PORT 1863 :PROTO "udp">
 #<SERVICE :NAME "paradym-31port" :ALIASES NIL :PORT 1864 :PROTO "tcp">
 #<SERVICE :NAME "paradym-31port" :ALIASES NIL :PORT 1864 :PROTO "udp">
 #<SERVICE :NAME "entp" :ALIASES NIL :PORT 1865 :PROTO "tcp">
 #<SERVICE :NAME "entp" :ALIASES NIL :PORT 1865 :PROTO "udp">
 #<SERVICE :NAME "swrmi" :ALIASES NIL :PORT 1866 :PROTO "tcp">
 #<SERVICE :NAME "swrmi" :ALIASES NIL :PORT 1866 :PROTO "udp">
 #<SERVICE :NAME "udrive" :ALIASES NIL :PORT 1867 :PROTO "tcp">
 #<SERVICE :NAME "udrive" :ALIASES NIL :PORT 1867 :PROTO "udp">
 #<SERVICE :NAME "viziblebrowser" :ALIASES NIL :PORT 1868 :PROTO "tcp">
 #<SERVICE :NAME "viziblebrowser" :ALIASES NIL :PORT 1868 :PROTO "udp">
 #<SERVICE :NAME "transact" :ALIASES NIL :PORT 1869 :PROTO "tcp">
 #<SERVICE :NAME "transact" :ALIASES NIL :PORT 1869 :PROTO "udp">
 #<SERVICE :NAME "sunscalar-dns" :ALIASES NIL :PORT 1870 :PROTO "tcp">
 #<SERVICE :NAME "sunscalar-dns" :ALIASES NIL :PORT 1870 :PROTO "udp">
 #<SERVICE :NAME "canocentral0" :ALIASES NIL :PORT 1871 :PROTO "tcp">
 #<SERVICE :NAME "canocentral0" :ALIASES NIL :PORT 1871 :PROTO "udp">
 #<SERVICE :NAME "canocentral1" :ALIASES NIL :PORT 1872 :PROTO "tcp">
 #<SERVICE :NAME "canocentral1" :ALIASES NIL :PORT 1872 :PROTO "udp">
 #<SERVICE :NAME "fjmpjps" :ALIASES NIL :PORT 1873 :PROTO "tcp">
 #<SERVICE :NAME "fjmpjps" :ALIASES NIL :PORT 1873 :PROTO "udp">
 #<SERVICE :NAME "fjswapsnp" :ALIASES NIL :PORT 1874 :PROTO "tcp">
 #<SERVICE :NAME "fjswapsnp" :ALIASES NIL :PORT 1874 :PROTO "udp">
 #<SERVICE :NAME "westell-stats" :ALIASES NIL :PORT 1875 :PROTO "tcp">
 #<SERVICE :NAME "westell-stats" :ALIASES NIL :PORT 1875 :PROTO "udp">
 #<SERVICE :NAME "ewcappsrv" :ALIASES NIL :PORT 1876 :PROTO "tcp">
 #<SERVICE :NAME "ewcappsrv" :ALIASES NIL :PORT 1876 :PROTO "udp">
 #<SERVICE :NAME "hp-webqosdb" :ALIASES NIL :PORT 1877 :PROTO "tcp">
 #<SERVICE :NAME "hp-webqosdb" :ALIASES NIL :PORT 1877 :PROTO "udp">
 #<SERVICE :NAME "drmsmc" :ALIASES NIL :PORT 1878 :PROTO "tcp">
 #<SERVICE :NAME "drmsmc" :ALIASES NIL :PORT 1878 :PROTO "udp">
 #<SERVICE :NAME "nettgain-nms" :ALIASES NIL :PORT 1879 :PROTO "tcp">
 #<SERVICE :NAME "nettgain-nms" :ALIASES NIL :PORT 1879 :PROTO "udp">
 #<SERVICE :NAME "vsat-control" :ALIASES NIL :PORT 1880 :PROTO "tcp">
 #<SERVICE :NAME "vsat-control" :ALIASES NIL :PORT 1880 :PROTO "udp">
 #<SERVICE :NAME "ibm-mqseries2" :ALIASES NIL :PORT 1881 :PROTO "tcp">
 #<SERVICE :NAME "ibm-mqseries2" :ALIASES NIL :PORT 1881 :PROTO "udp">
 #<SERVICE :NAME "ecsqdmn" :ALIASES NIL :PORT 1882 :PROTO "tcp">
 #<SERVICE :NAME "ecsqdmn" :ALIASES NIL :PORT 1882 :PROTO "udp">
 #<SERVICE :NAME "mqtt" :ALIASES NIL :PORT 1883 :PROTO "tcp">
 #<SERVICE :NAME "mqtt" :ALIASES NIL :PORT 1883 :PROTO "udp">
 #<SERVICE :NAME "idmaps" :ALIASES NIL :PORT 1884 :PROTO "tcp">
 #<SERVICE :NAME "idmaps" :ALIASES NIL :PORT 1884 :PROTO "udp">
 #<SERVICE :NAME "vrtstrapserver" :ALIASES NIL :PORT 1885 :PROTO "tcp">
 #<SERVICE :NAME "vrtstrapserver" :ALIASES NIL :PORT 1885 :PROTO "udp">
 #<SERVICE :NAME "leoip" :ALIASES NIL :PORT 1886 :PROTO "tcp">
 #<SERVICE :NAME "leoip" :ALIASES NIL :PORT 1886 :PROTO "udp">
 #<SERVICE :NAME "filex-lport" :ALIASES NIL :PORT 1887 :PROTO "tcp">
 #<SERVICE :NAME "filex-lport" :ALIASES NIL :PORT 1887 :PROTO "udp">
 #<SERVICE :NAME "ncconfig" :ALIASES NIL :PORT 1888 :PROTO "tcp">
 #<SERVICE :NAME "ncconfig" :ALIASES NIL :PORT 1888 :PROTO "udp">
 #<SERVICE :NAME "unify-adapter" :ALIASES NIL :PORT 1889 :PROTO "tcp">
 #<SERVICE :NAME "unify-adapter" :ALIASES NIL :PORT 1889 :PROTO "udp">
 #<SERVICE :NAME "wilkenlistener" :ALIASES NIL :PORT 1890 :PROTO "tcp">
 #<SERVICE :NAME "wilkenlistener" :ALIASES NIL :PORT 1890 :PROTO "udp">
 #<SERVICE :NAME "childkey-notif" :ALIASES NIL :PORT 1891 :PROTO "tcp">
 #<SERVICE :NAME "childkey-notif" :ALIASES NIL :PORT 1891 :PROTO "udp">
 #<SERVICE :NAME "childkey-ctrl" :ALIASES NIL :PORT 1892 :PROTO "tcp">
 #<SERVICE :NAME "childkey-ctrl" :ALIASES NIL :PORT 1892 :PROTO "udp">
 #<SERVICE :NAME "elad" :ALIASES NIL :PORT 1893 :PROTO "tcp">
 #<SERVICE :NAME "elad" :ALIASES NIL :PORT 1893 :PROTO "udp">
 #<SERVICE :NAME "o2server-port" :ALIASES NIL :PORT 1894 :PROTO "tcp">
 #<SERVICE :NAME "o2server-port" :ALIASES NIL :PORT 1894 :PROTO "udp">
 #<SERVICE :NAME "b-novative-ls" :ALIASES NIL :PORT 1896 :PROTO "tcp">
 #<SERVICE :NAME "b-novative-ls" :ALIASES NIL :PORT 1896 :PROTO "udp">
 #<SERVICE :NAME "metaagent" :ALIASES NIL :PORT 1897 :PROTO "tcp">
 #<SERVICE :NAME "metaagent" :ALIASES NIL :PORT 1897 :PROTO "udp">
 #<SERVICE :NAME "cymtec-port" :ALIASES NIL :PORT 1898 :PROTO "tcp">
 #<SERVICE :NAME "cymtec-port" :ALIASES NIL :PORT 1898 :PROTO "udp">
 #<SERVICE :NAME "mc2studios" :ALIASES NIL :PORT 1899 :PROTO "tcp">
 #<SERVICE :NAME "mc2studios" :ALIASES NIL :PORT 1899 :PROTO "udp">
 #<SERVICE :NAME "ssdp" :ALIASES NIL :PORT 1900 :PROTO "tcp">
 #<SERVICE :NAME "ssdp" :ALIASES NIL :PORT 1900 :PROTO "udp">
 #<SERVICE :NAME "fjicl-tep-a" :ALIASES NIL :PORT 1901 :PROTO "tcp">
 #<SERVICE :NAME "fjicl-tep-a" :ALIASES NIL :PORT 1901 :PROTO "udp">
 #<SERVICE :NAME "fjicl-tep-b" :ALIASES NIL :PORT 1902 :PROTO "tcp">
 #<SERVICE :NAME "fjicl-tep-b" :ALIASES NIL :PORT 1902 :PROTO "udp">
 #<SERVICE :NAME "linkname" :ALIASES NIL :PORT 1903 :PROTO "tcp">
 #<SERVICE :NAME "linkname" :ALIASES NIL :PORT 1903 :PROTO "udp">
 #<SERVICE :NAME "fjicl-tep-c" :ALIASES NIL :PORT 1904 :PROTO "tcp">
 #<SERVICE :NAME "fjicl-tep-c" :ALIASES NIL :PORT 1904 :PROTO "udp">
 #<SERVICE :NAME "sugp" :ALIASES NIL :PORT 1905 :PROTO "tcp">
 #<SERVICE :NAME "sugp" :ALIASES NIL :PORT 1905 :PROTO "udp">
 #<SERVICE :NAME "tpmd" :ALIASES NIL :PORT 1906 :PROTO "tcp">
 #<SERVICE :NAME "tpmd" :ALIASES NIL :PORT 1906 :PROTO "udp">
 #<SERVICE :NAME "intrastar" :ALIASES NIL :PORT 1907 :PROTO "tcp">
 #<SERVICE :NAME "intrastar" :ALIASES NIL :PORT 1907 :PROTO "udp">
 #<SERVICE :NAME "dawn" :ALIASES NIL :PORT 1908 :PROTO "tcp">
 #<SERVICE :NAME "dawn" :ALIASES NIL :PORT 1908 :PROTO "udp">
 #<SERVICE :NAME "global-wlink" :ALIASES NIL :PORT 1909 :PROTO "tcp">
 #<SERVICE :NAME "global-wlink" :ALIASES NIL :PORT 1909 :PROTO "udp">
 #<SERVICE :NAME "ultrabac" :ALIASES NIL :PORT 1910 :PROTO "tcp">
 #<SERVICE :NAME "ultrabac" :ALIASES NIL :PORT 1910 :PROTO "udp">
 #<SERVICE :NAME "rhp-iibp" :ALIASES NIL :PORT 1912 :PROTO "tcp">
 #<SERVICE :NAME "rhp-iibp" :ALIASES NIL :PORT 1912 :PROTO "udp">
 #<SERVICE :NAME "armadp" :ALIASES NIL :PORT 1913 :PROTO "tcp">
 #<SERVICE :NAME "armadp" :ALIASES NIL :PORT 1913 :PROTO "udp">
 #<SERVICE :NAME "elm-momentum" :ALIASES NIL :PORT 1914 :PROTO "tcp">
 #<SERVICE :NAME "elm-momentum" :ALIASES NIL :PORT 1914 :PROTO "udp">
 #<SERVICE :NAME "facelink" :ALIASES NIL :PORT 1915 :PROTO "tcp">
 #<SERVICE :NAME "facelink" :ALIASES NIL :PORT 1915 :PROTO "udp">
 #<SERVICE :NAME "persona" :ALIASES NIL :PORT 1916 :PROTO "tcp">
 #<SERVICE :NAME "persona" :ALIASES NIL :PORT 1916 :PROTO "udp">
 #<SERVICE :NAME "noagent" :ALIASES NIL :PORT 1917 :PROTO "tcp">
 #<SERVICE :NAME "noagent" :ALIASES NIL :PORT 1917 :PROTO "udp">
 #<SERVICE :NAME "can-nds" :ALIASES NIL :PORT 1918 :PROTO "tcp">
 #<SERVICE :NAME "can-nds" :ALIASES NIL :PORT 1918 :PROTO "udp">
 #<SERVICE :NAME "can-dch" :ALIASES NIL :PORT 1919 :PROTO "tcp">
 #<SERVICE :NAME "can-dch" :ALIASES NIL :PORT 1919 :PROTO "udp">
 #<SERVICE :NAME "can-ferret" :ALIASES NIL :PORT 1920 :PROTO "tcp">
 #<SERVICE :NAME "can-ferret" :ALIASES NIL :PORT 1920 :PROTO "udp">
 #<SERVICE :NAME "noadmin" :ALIASES NIL :PORT 1921 :PROTO "tcp">
 #<SERVICE :NAME "noadmin" :ALIASES NIL :PORT 1921 :PROTO "udp">
 #<SERVICE :NAME "tapestry" :ALIASES NIL :PORT 1922 :PROTO "tcp">
 #<SERVICE :NAME "tapestry" :ALIASES NIL :PORT 1922 :PROTO "udp">
 #<SERVICE :NAME "spice" :ALIASES NIL :PORT 1923 :PROTO "tcp">
 #<SERVICE :NAME "spice" :ALIASES NIL :PORT 1923 :PROTO "udp">
 #<SERVICE :NAME "xiip" :ALIASES NIL :PORT 1924 :PROTO "tcp">
 #<SERVICE :NAME "xiip" :ALIASES NIL :PORT 1924 :PROTO "udp">
 #<SERVICE :NAME "discovery-port" :ALIASES NIL :PORT 1925 :PROTO "tcp">
 #<SERVICE :NAME "discovery-port" :ALIASES NIL :PORT 1925 :PROTO "udp">
 #<SERVICE :NAME "egs" :ALIASES NIL :PORT 1926 :PROTO "tcp">
 #<SERVICE :NAME "egs" :ALIASES NIL :PORT 1926 :PROTO "udp">
 #<SERVICE :NAME "videte-cipc" :ALIASES NIL :PORT 1927 :PROTO "tcp">
 #<SERVICE :NAME "videte-cipc" :ALIASES NIL :PORT 1927 :PROTO "udp">
 #<SERVICE :NAME "emsd-port" :ALIASES NIL :PORT 1928 :PROTO "tcp">
 #<SERVICE :NAME "emsd-port" :ALIASES NIL :PORT 1928 :PROTO "udp">
 #<SERVICE :NAME "bandwiz-system" :ALIASES NIL :PORT 1929 :PROTO "tcp">
 #<SERVICE :NAME "bandwiz-system" :ALIASES NIL :PORT 1929 :PROTO "udp">
 #<SERVICE :NAME "driveappserver" :ALIASES NIL :PORT 1930 :PROTO "tcp">
 #<SERVICE :NAME "driveappserver" :ALIASES NIL :PORT 1930 :PROTO "udp">
 #<SERVICE :NAME "amdsched" :ALIASES NIL :PORT 1931 :PROTO "tcp">
 #<SERVICE :NAME "amdsched" :ALIASES NIL :PORT 1931 :PROTO "udp">
 #<SERVICE :NAME "ctt-broker" :ALIASES NIL :PORT 1932 :PROTO "tcp">
 #<SERVICE :NAME "ctt-broker" :ALIASES NIL :PORT 1932 :PROTO "udp">
 #<SERVICE :NAME "xmapi" :ALIASES NIL :PORT 1933 :PROTO "tcp">
 #<SERVICE :NAME "xmapi" :ALIASES NIL :PORT 1933 :PROTO "udp">
 #<SERVICE :NAME "xaapi" :ALIASES NIL :PORT 1934 :PROTO "tcp">
 #<SERVICE :NAME "xaapi" :ALIASES NIL :PORT 1934 :PROTO "udp">
 #<SERVICE :NAME "macromedia-fcs" :ALIASES NIL :PORT 1935 :PROTO "tcp">
 #<SERVICE :NAME "macromedia-fcs" :ALIASES NIL :PORT 1935 :PROTO "udp">
 #<SERVICE :NAME "jetcmeserver" :ALIASES NIL :PORT 1936 :PROTO "tcp">
 #<SERVICE :NAME "jetcmeserver" :ALIASES NIL :PORT 1936 :PROTO "udp">
 #<SERVICE :NAME "jwserver" :ALIASES NIL :PORT 1937 :PROTO "tcp">
 #<SERVICE :NAME "jwserver" :ALIASES NIL :PORT 1937 :PROTO "udp">
 #<SERVICE :NAME "jwclient" :ALIASES NIL :PORT 1938 :PROTO "tcp">
 #<SERVICE :NAME "jwclient" :ALIASES NIL :PORT 1938 :PROTO "udp">
 #<SERVICE :NAME "jvserver" :ALIASES NIL :PORT 1939 :PROTO "tcp">
 #<SERVICE :NAME "jvserver" :ALIASES NIL :PORT 1939 :PROTO "udp">
 #<SERVICE :NAME "jvclient" :ALIASES NIL :PORT 1940 :PROTO "tcp">
 #<SERVICE :NAME "jvclient" :ALIASES NIL :PORT 1940 :PROTO "udp">
 #<SERVICE :NAME "dic-aida" :ALIASES NIL :PORT 1941 :PROTO "tcp">
 #<SERVICE :NAME "dic-aida" :ALIASES NIL :PORT 1941 :PROTO "udp">
 #<SERVICE :NAME "res" :ALIASES NIL :PORT 1942 :PROTO "tcp">
 #<SERVICE :NAME "res" :ALIASES NIL :PORT 1942 :PROTO "udp">
 #<SERVICE :NAME "beeyond-media" :ALIASES NIL :PORT 1943 :PROTO "tcp">
 #<SERVICE :NAME "beeyond-media" :ALIASES NIL :PORT 1943 :PROTO "udp">
 #<SERVICE :NAME "close-combat" :ALIASES NIL :PORT 1944 :PROTO "tcp">
 #<SERVICE :NAME "close-combat" :ALIASES NIL :PORT 1944 :PROTO "udp">
 #<SERVICE :NAME "dialogic-elmd" :ALIASES NIL :PORT 1945 :PROTO "tcp">
 #<SERVICE :NAME "dialogic-elmd" :ALIASES NIL :PORT 1945 :PROTO "udp">
 #<SERVICE :NAME "tekpls" :ALIASES NIL :PORT 1946 :PROTO "tcp">
 #<SERVICE :NAME "tekpls" :ALIASES NIL :PORT 1946 :PROTO "udp">
 #<SERVICE :NAME "sentinelsrm" :ALIASES NIL :PORT 1947 :PROTO "tcp">
 #<SERVICE :NAME "sentinelsrm" :ALIASES NIL :PORT 1947 :PROTO "udp">
 #<SERVICE :NAME "eye2eye" :ALIASES NIL :PORT 1948 :PROTO "tcp">
 #<SERVICE :NAME "eye2eye" :ALIASES NIL :PORT 1948 :PROTO "udp">
 #<SERVICE :NAME "ismaeasdaqlive" :ALIASES NIL :PORT 1949 :PROTO "tcp">
 #<SERVICE :NAME "ismaeasdaqlive" :ALIASES NIL :PORT 1949 :PROTO "udp">
 #<SERVICE :NAME "ismaeasdaqtest" :ALIASES NIL :PORT 1950 :PROTO "tcp">
 #<SERVICE :NAME "ismaeasdaqtest" :ALIASES NIL :PORT 1950 :PROTO "udp">
 #<SERVICE :NAME "bcs-lmserver" :ALIASES NIL :PORT 1951 :PROTO "tcp">
 #<SERVICE :NAME "bcs-lmserver" :ALIASES NIL :PORT 1951 :PROTO "udp">
 #<SERVICE :NAME "mpnjsc" :ALIASES NIL :PORT 1952 :PROTO "tcp">
 #<SERVICE :NAME "mpnjsc" :ALIASES NIL :PORT 1952 :PROTO "udp">
 #<SERVICE :NAME "rapidbase" :ALIASES NIL :PORT 1953 :PROTO "tcp">
 #<SERVICE :NAME "rapidbase" :ALIASES NIL :PORT 1953 :PROTO "udp">
 #<SERVICE :NAME "abr-api" :ALIASES NIL :PORT 1954 :PROTO "tcp">
 #<SERVICE :NAME "abr-api" :ALIASES NIL :PORT 1954 :PROTO "udp">
 #<SERVICE :NAME "abr-secure" :ALIASES NIL :PORT 1955 :PROTO "tcp">
 #<SERVICE :NAME "abr-secure" :ALIASES NIL :PORT 1955 :PROTO "udp">
 #<SERVICE :NAME "vrtl-vmf-ds" :ALIASES NIL :PORT 1956 :PROTO "tcp">
 #<SERVICE :NAME "vrtl-vmf-ds" :ALIASES NIL :PORT 1956 :PROTO "udp">
 #<SERVICE :NAME "unix-status" :ALIASES NIL :PORT 1957 :PROTO "tcp">
 #<SERVICE :NAME "unix-status" :ALIASES NIL :PORT 1957 :PROTO "udp">
 #<SERVICE :NAME "dxadmind" :ALIASES NIL :PORT 1958 :PROTO "tcp">
 #<SERVICE :NAME "dxadmind" :ALIASES NIL :PORT 1958 :PROTO "udp">
 #<SERVICE :NAME "simp-all" :ALIASES NIL :PORT 1959 :PROTO "tcp">
 #<SERVICE :NAME "simp-all" :ALIASES NIL :PORT 1959 :PROTO "udp">
 #<SERVICE :NAME "nasmanager" :ALIASES NIL :PORT 1960 :PROTO "tcp">
 #<SERVICE :NAME "nasmanager" :ALIASES NIL :PORT 1960 :PROTO "udp">
 #<SERVICE :NAME "bts-appserver" :ALIASES NIL :PORT 1961 :PROTO "tcp">
 #<SERVICE :NAME "bts-appserver" :ALIASES NIL :PORT 1961 :PROTO "udp">
 #<SERVICE :NAME "biap-mp" :ALIASES NIL :PORT 1962 :PROTO "tcp">
 #<SERVICE :NAME "biap-mp" :ALIASES NIL :PORT 1962 :PROTO "udp">
 #<SERVICE :NAME "webmachine" :ALIASES NIL :PORT 1963 :PROTO "tcp">
 #<SERVICE :NAME "webmachine" :ALIASES NIL :PORT 1963 :PROTO "udp">
 #<SERVICE :NAME "solid-e-engine" :ALIASES NIL :PORT 1964 :PROTO "tcp">
 #<SERVICE :NAME "solid-e-engine" :ALIASES NIL :PORT 1964 :PROTO "udp">
 #<SERVICE :NAME "tivoli-npm" :ALIASES NIL :PORT 1965 :PROTO "tcp">
 #<SERVICE :NAME "tivoli-npm" :ALIASES NIL :PORT 1965 :PROTO "udp">
 #<SERVICE :NAME "slush" :ALIASES NIL :PORT 1966 :PROTO "tcp">
 #<SERVICE :NAME "slush" :ALIASES NIL :PORT 1966 :PROTO "udp">
 #<SERVICE :NAME "sns-quote" :ALIASES NIL :PORT 1967 :PROTO "tcp">
 #<SERVICE :NAME "sns-quote" :ALIASES NIL :PORT 1967 :PROTO "udp">
 #<SERVICE :NAME "lipsinc" :ALIASES NIL :PORT 1968 :PROTO "tcp">
 #<SERVICE :NAME "lipsinc" :ALIASES NIL :PORT 1968 :PROTO "udp">
 #<SERVICE :NAME "lipsinc1" :ALIASES NIL :PORT 1969 :PROTO "tcp">
 #<SERVICE :NAME "lipsinc1" :ALIASES NIL :PORT 1969 :PROTO "udp">
 #<SERVICE :NAME "netop-rc" :ALIASES NIL :PORT 1970 :PROTO "tcp">
 #<SERVICE :NAME "netop-rc" :ALIASES NIL :PORT 1970 :PROTO "udp">
 #<SERVICE :NAME "netop-school" :ALIASES NIL :PORT 1971 :PROTO "tcp">
 #<SERVICE :NAME "netop-school" :ALIASES NIL :PORT 1971 :PROTO "udp">
 #<SERVICE :NAME "intersys-cache" :ALIASES NIL :PORT 1972 :PROTO "tcp">
 #<SERVICE :NAME "intersys-cache" :ALIASES NIL :PORT 1972 :PROTO "udp">
 #<SERVICE :NAME "dlsrap" :ALIASES NIL :PORT 1973 :PROTO "tcp">
 #<SERVICE :NAME "dlsrap" :ALIASES NIL :PORT 1973 :PROTO "udp">
 #<SERVICE :NAME "drp" :ALIASES NIL :PORT 1974 :PROTO "tcp">
 #<SERVICE :NAME "drp" :ALIASES NIL :PORT 1974 :PROTO "udp">
 #<SERVICE :NAME "tcoflashagent" :ALIASES NIL :PORT 1975 :PROTO "tcp">
 #<SERVICE :NAME "tcoflashagent" :ALIASES NIL :PORT 1975 :PROTO "udp">
 #<SERVICE :NAME "tcoregagent" :ALIASES NIL :PORT 1976 :PROTO "tcp">
 #<SERVICE :NAME "tcoregagent" :ALIASES NIL :PORT 1976 :PROTO "udp">
 #<SERVICE :NAME "tcoaddressbook" :ALIASES NIL :PORT 1977 :PROTO "tcp">
 #<SERVICE :NAME "tcoaddressbook" :ALIASES NIL :PORT 1977 :PROTO "udp">
 #<SERVICE :NAME "unisql" :ALIASES NIL :PORT 1978 :PROTO "tcp">
 #<SERVICE :NAME "unisql" :ALIASES NIL :PORT 1978 :PROTO "udp">
 #<SERVICE :NAME "unisql-java" :ALIASES NIL :PORT 1979 :PROTO "tcp">
 #<SERVICE :NAME "unisql-java" :ALIASES NIL :PORT 1979 :PROTO "udp">
 #<SERVICE :NAME "pearldoc-xact" :ALIASES NIL :PORT 1980 :PROTO "tcp">
 #<SERVICE :NAME "pearldoc-xact" :ALIASES NIL :PORT 1980 :PROTO "udp">
 #<SERVICE :NAME "p2pq" :ALIASES NIL :PORT 1981 :PROTO "tcp">
 #<SERVICE :NAME "p2pq" :ALIASES NIL :PORT 1981 :PROTO "udp">
 #<SERVICE :NAME "estamp" :ALIASES NIL :PORT 1982 :PROTO "tcp">
 #<SERVICE :NAME "estamp" :ALIASES NIL :PORT 1982 :PROTO "udp">
 #<SERVICE :NAME "lhtp" :ALIASES NIL :PORT 1983 :PROTO "tcp">
 #<SERVICE :NAME "lhtp" :ALIASES NIL :PORT 1983 :PROTO "udp">
 #<SERVICE :NAME "bb" :ALIASES NIL :PORT 1984 :PROTO "tcp">
 #<SERVICE :NAME "bb" :ALIASES NIL :PORT 1984 :PROTO "udp">
 #<SERVICE :NAME "tr-rsrb-p1" :ALIASES NIL :PORT 1987 :PROTO "tcp">
 #<SERVICE :NAME "tr-rsrb-p1" :ALIASES NIL :PORT 1987 :PROTO "udp">
 #<SERVICE :NAME "tr-rsrb-p2" :ALIASES NIL :PORT 1988 :PROTO "tcp">
 #<SERVICE :NAME "tr-rsrb-p2" :ALIASES NIL :PORT 1988 :PROTO "udp">
 #<SERVICE :NAME "tr-rsrb-p3" :ALIASES NIL :PORT 1989 :PROTO "tcp">
 #<SERVICE :NAME "tr-rsrb-p3" :ALIASES NIL :PORT 1989 :PROTO "udp">
 #<SERVICE :NAME "stun-p1" :ALIASES NIL :PORT 1990 :PROTO "tcp">
 #<SERVICE :NAME "stun-p1" :ALIASES NIL :PORT 1990 :PROTO "udp">
 #<SERVICE :NAME "stun-p2" :ALIASES NIL :PORT 1991 :PROTO "tcp">
 #<SERVICE :NAME "stun-p2" :ALIASES NIL :PORT 1991 :PROTO "udp">
 #<SERVICE :NAME "stun-p3" :ALIASES NIL :PORT 1992 :PROTO "tcp">
 #<SERVICE :NAME "stun-p3" :ALIASES NIL :PORT 1992 :PROTO "udp">
 #<SERVICE :NAME "snmp-tcp-port" :ALIASES NIL :PORT 1993 :PROTO "tcp">
 #<SERVICE :NAME "snmp-tcp-port" :ALIASES NIL :PORT 1993 :PROTO "udp">
 #<SERVICE :NAME "stun-port" :ALIASES NIL :PORT 1994 :PROTO "tcp">
 #<SERVICE :NAME "stun-port" :ALIASES NIL :PORT 1994 :PROTO "udp">
 #<SERVICE :NAME "perf-port" :ALIASES NIL :PORT 1995 :PROTO "tcp">
 #<SERVICE :NAME "perf-port" :ALIASES NIL :PORT 1995 :PROTO "udp">
 #<SERVICE :NAME "tr-rsrb-port" :ALIASES NIL :PORT 1996 :PROTO "tcp">
 #<SERVICE :NAME "tr-rsrb-port" :ALIASES NIL :PORT 1996 :PROTO "udp">
 #<SERVICE :NAME "x25-svc-port" :ALIASES NIL :PORT 1998 :PROTO "tcp">
 #<SERVICE :NAME "x25-svc-port" :ALIASES NIL :PORT 1998 :PROTO "udp">
 #<SERVICE :NAME "tcp-id-port" :ALIASES NIL :PORT 1999 :PROTO "tcp">
 #<SERVICE :NAME "tcp-id-port" :ALIASES NIL :PORT 1999 :PROTO "udp">
 #<SERVICE :NAME "dc" :ALIASES NIL :PORT 2001 :PROTO "tcp">
 #<SERVICE :NAME "wizard" :ALIASES NIL :PORT 2001 :PROTO "udp">
 #<SERVICE :NAME "globe" :ALIASES NIL :PORT 2002 :PROTO "tcp">
 #<SERVICE :NAME "globe" :ALIASES NIL :PORT 2002 :PROTO "udp">
 #<SERVICE :NAME "brutus" :ALIASES NIL :PORT 2003 :PROTO "udp">
 #<SERVICE :NAME "mailbox" :ALIASES NIL :PORT 2004 :PROTO "tcp">
 #<SERVICE :NAME "emce" :ALIASES NIL :PORT 2004 :PROTO "udp">
 #<SERVICE :NAME "berknet" :ALIASES ("csync") :PORT 2005 :PROTO "tcp">
 #<SERVICE :NAME "oracle" :ALIASES ("csync") :PORT 2005 :PROTO "udp">
 #<SERVICE :NAME "invokator" :ALIASES NIL :PORT 2006 :PROTO "tcp">
 #<SERVICE :NAME "dectalk" :ALIASES NIL :PORT 2007 :PROTO "tcp">
 #<SERVICE :NAME "raid-am" :ALIASES NIL :PORT 2007 :PROTO "udp">
 #<SERVICE :NAME "conf" :ALIASES NIL :PORT 2008 :PROTO "tcp">
 #<SERVICE :NAME "terminaldb" :ALIASES NIL :PORT 2008 :PROTO "udp">
 #<SERVICE :NAME "news" :ALIASES NIL :PORT 2009 :PROTO "tcp">
 #<SERVICE :NAME "whosockami" :ALIASES NIL :PORT 2009 :PROTO "udp">
 #<SERVICE :NAME "search" :ALIASES NIL :PORT 2010 :PROTO "tcp">
 #<SERVICE :NAME "pipe_server" :ALIASES ("pipe-server") :PORT 2010
   :PROTO "udp">
 #<SERVICE :NAME "raid-cc" :ALIASES NIL :PORT 2011 :PROTO "tcp">
 #<SERVICE :NAME "servserv" :ALIASES NIL :PORT 2011 :PROTO "udp">
 #<SERVICE :NAME "ttyinfo" :ALIASES NIL :PORT 2012 :PROTO "tcp">
 #<SERVICE :NAME "raid-ac" :ALIASES NIL :PORT 2012 :PROTO "udp">
 #<SERVICE :NAME "raid-am" :ALIASES NIL :PORT 2013 :PROTO "tcp">
 #<SERVICE :NAME "troff" :ALIASES NIL :PORT 2014 :PROTO "tcp">
 #<SERVICE :NAME "raid-sf" :ALIASES NIL :PORT 2014 :PROTO "udp">
 #<SERVICE :NAME "cypress" :ALIASES NIL :PORT 2015 :PROTO "tcp">
 #<SERVICE :NAME "raid-cs" :ALIASES NIL :PORT 2015 :PROTO "udp">
 #<SERVICE :NAME "bootserver" :ALIASES NIL :PORT 2016 :PROTO "tcp">
 #<SERVICE :NAME "bootserver" :ALIASES NIL :PORT 2016 :PROTO "udp">
 #<SERVICE :NAME "cypress-stat" :ALIASES NIL :PORT 2017 :PROTO "tcp">
 #<SERVICE :NAME "bootclient" :ALIASES NIL :PORT 2017 :PROTO "udp">
 #<SERVICE :NAME "terminaldb" :ALIASES NIL :PORT 2018 :PROTO "tcp">
 #<SERVICE :NAME "rellpack" :ALIASES NIL :PORT 2018 :PROTO "udp">
 #<SERVICE :NAME "whosockami" :ALIASES NIL :PORT 2019 :PROTO "tcp">
 #<SERVICE :NAME "about" :ALIASES NIL :PORT 2019 :PROTO "udp">
 #<SERVICE :NAME "xinupageserver" :ALIASES NIL :PORT 2020 :PROTO "tcp">
 #<SERVICE :NAME "xinupageserver" :ALIASES NIL :PORT 2020 :PROTO "udp">
 #<SERVICE :NAME "servexec" :ALIASES NIL :PORT 2021 :PROTO "tcp">
 #<SERVICE :NAME "xinuexpansion1" :ALIASES NIL :PORT 2021 :PROTO "udp">
 #<SERVICE :NAME "down" :ALIASES NIL :PORT 2022 :PROTO "tcp">
 #<SERVICE :NAME "xinuexpansion2" :ALIASES NIL :PORT 2022 :PROTO "udp">
 #<SERVICE :NAME "xinuexpansion3" :ALIASES NIL :PORT 2023 :PROTO "tcp">
 #<SERVICE :NAME "xinuexpansion3" :ALIASES NIL :PORT 2023 :PROTO "udp">
 #<SERVICE :NAME "xinuexpansion4" :ALIASES NIL :PORT 2024 :PROTO "tcp">
 #<SERVICE :NAME "xinuexpansion4" :ALIASES NIL :PORT 2024 :PROTO "udp">
 #<SERVICE :NAME "ellpack" :ALIASES NIL :PORT 2025 :PROTO "tcp">
 #<SERVICE :NAME "xribs" :ALIASES NIL :PORT 2025 :PROTO "udp">
 #<SERVICE :NAME "scrabble" :ALIASES NIL :PORT 2026 :PROTO "tcp">
 #<SERVICE :NAME "scrabble" :ALIASES NIL :PORT 2026 :PROTO "udp">
 #<SERVICE :NAME "shadowserver" :ALIASES NIL :PORT 2027 :PROTO "tcp">
 #<SERVICE :NAME "shadowserver" :ALIASES NIL :PORT 2027 :PROTO "udp">
 #<SERVICE :NAME "submitserver" :ALIASES NIL :PORT 2028 :PROTO "tcp">
 #<SERVICE :NAME "submitserver" :ALIASES NIL :PORT 2028 :PROTO "udp">
 #<SERVICE :NAME "hsrpv6" :ALIASES NIL :PORT 2029 :PROTO "tcp">
 #<SERVICE :NAME "hsrpv6" :ALIASES NIL :PORT 2029 :PROTO "udp">
 #<SERVICE :NAME "device2" :ALIASES NIL :PORT 2030 :PROTO "tcp">
 #<SERVICE :NAME "device2" :ALIASES NIL :PORT 2030 :PROTO "udp">
 #<SERVICE :NAME "mobrien-chat" :ALIASES NIL :PORT 2031 :PROTO "tcp">
 #<SERVICE :NAME "mobrien-chat" :ALIASES NIL :PORT 2031 :PROTO "udp">
 #<SERVICE :NAME "blackboard" :ALIASES NIL :PORT 2032 :PROTO "tcp">
 #<SERVICE :NAME "blackboard" :ALIASES NIL :PORT 2032 :PROTO "udp">
 #<SERVICE :NAME "glogger" :ALIASES NIL :PORT 2033 :PROTO "tcp">
 #<SERVICE :NAME "glogger" :ALIASES NIL :PORT 2033 :PROTO "udp">
 #<SERVICE :NAME "scoremgr" :ALIASES NIL :PORT 2034 :PROTO "tcp">
 #<SERVICE :NAME "scoremgr" :ALIASES NIL :PORT 2034 :PROTO "udp">
 #<SERVICE :NAME "imsldoc" :ALIASES NIL :PORT 2035 :PROTO "tcp">
 #<SERVICE :NAME "imsldoc" :ALIASES NIL :PORT 2035 :PROTO "udp">
 #<SERVICE :NAME "e-dpnet" :ALIASES NIL :PORT 2036 :PROTO "tcp">
 #<SERVICE :NAME "e-dpnet" :ALIASES NIL :PORT 2036 :PROTO "udp">
 #<SERVICE :NAME "applus" :ALIASES NIL :PORT 2037 :PROTO "tcp">
 #<SERVICE :NAME "applus" :ALIASES NIL :PORT 2037 :PROTO "udp">
 #<SERVICE :NAME "objectmanager" :ALIASES NIL :PORT 2038 :PROTO "tcp">
 #<SERVICE :NAME "objectmanager" :ALIASES NIL :PORT 2038 :PROTO "udp">
 #<SERVICE :NAME "prizma" :ALIASES NIL :PORT 2039 :PROTO "tcp">
 #<SERVICE :NAME "prizma" :ALIASES NIL :PORT 2039 :PROTO "udp">
 #<SERVICE :NAME "lam" :ALIASES NIL :PORT 2040 :PROTO "tcp">
 #<SERVICE :NAME "lam" :ALIASES NIL :PORT 2040 :PROTO "udp">
 #<SERVICE :NAME "interbase" :ALIASES NIL :PORT 2041 :PROTO "tcp">
 #<SERVICE :NAME "interbase" :ALIASES NIL :PORT 2041 :PROTO "udp">
 #<SERVICE :NAME "isis" :ALIASES NIL :PORT 2042 :PROTO "tcp">
 #<SERVICE :NAME "isis" :ALIASES NIL :PORT 2042 :PROTO "udp">
 #<SERVICE :NAME "isis-bcast" :ALIASES NIL :PORT 2043 :PROTO "tcp">
 #<SERVICE :NAME "isis-bcast" :ALIASES NIL :PORT 2043 :PROTO "udp">
 #<SERVICE :NAME "rimsl" :ALIASES NIL :PORT 2044 :PROTO "tcp">
 #<SERVICE :NAME "rimsl" :ALIASES NIL :PORT 2044 :PROTO "udp">
 #<SERVICE :NAME "cdfunc" :ALIASES NIL :PORT 2045 :PROTO "tcp">
 #<SERVICE :NAME "cdfunc" :ALIASES NIL :PORT 2045 :PROTO "udp">
 #<SERVICE :NAME "sdfunc" :ALIASES NIL :PORT 2046 :PROTO "tcp">
 #<SERVICE :NAME "sdfunc" :ALIASES NIL :PORT 2046 :PROTO "udp">
 #<SERVICE :NAME "dls-monitor" :ALIASES NIL :PORT 2048 :PROTO "tcp">
 #<SERVICE :NAME "dls-monitor" :ALIASES NIL :PORT 2048 :PROTO "udp">
 #<SERVICE :NAME "av-emb-config" :ALIASES NIL :PORT 2050 :PROTO "tcp">
 #<SERVICE :NAME "av-emb-config" :ALIASES NIL :PORT 2050 :PROTO "udp">
 #<SERVICE :NAME "epnsdp" :ALIASES NIL :PORT 2051 :PROTO "tcp">
 #<SERVICE :NAME "epnsdp" :ALIASES NIL :PORT 2051 :PROTO "udp">
 #<SERVICE :NAME "clearvisn" :ALIASES NIL :PORT 2052 :PROTO "tcp">
 #<SERVICE :NAME "clearvisn" :ALIASES NIL :PORT 2052 :PROTO "udp">
 #<SERVICE :NAME "lot105-ds-upd" :ALIASES NIL :PORT 2053 :PROTO "udp">
 #<SERVICE :NAME "weblogin" :ALIASES NIL :PORT 2054 :PROTO "tcp">
 #<SERVICE :NAME "weblogin" :ALIASES NIL :PORT 2054 :PROTO "udp">
 #<SERVICE :NAME "iop" :ALIASES NIL :PORT 2055 :PROTO "tcp">
 #<SERVICE :NAME "iop" :ALIASES NIL :PORT 2055 :PROTO "udp">
 #<SERVICE :NAME "omnisky" :ALIASES NIL :PORT 2056 :PROTO "tcp">
 #<SERVICE :NAME "omnisky" :ALIASES NIL :PORT 2056 :PROTO "udp">
 #<SERVICE :NAME "rich-cp" :ALIASES NIL :PORT 2057 :PROTO "tcp">
 #<SERVICE :NAME "rich-cp" :ALIASES NIL :PORT 2057 :PROTO "udp">
 #<SERVICE :NAME "newwavesearch" :ALIASES NIL :PORT 2058 :PROTO "tcp">
 #<SERVICE :NAME "newwavesearch" :ALIASES NIL :PORT 2058 :PROTO "udp">
 #<SERVICE :NAME "bmc-messaging" :ALIASES NIL :PORT 2059 :PROTO "tcp">
 #<SERVICE :NAME "bmc-messaging" :ALIASES NIL :PORT 2059 :PROTO "udp">
 #<SERVICE :NAME "teleniumdaemon" :ALIASES NIL :PORT 2060 :PROTO "tcp">
 #<SERVICE :NAME "teleniumdaemon" :ALIASES NIL :PORT 2060 :PROTO "udp">
 #<SERVICE :NAME "netmount" :ALIASES NIL :PORT 2061 :PROTO "tcp">
 #<SERVICE :NAME "netmount" :ALIASES NIL :PORT 2061 :PROTO "udp">
 #<SERVICE :NAME "icg-swp" :ALIASES NIL :PORT 2062 :PROTO "tcp">
 #<SERVICE :NAME "icg-swp" :ALIASES NIL :PORT 2062 :PROTO "udp">
 #<SERVICE :NAME "icg-bridge" :ALIASES NIL :PORT 2063 :PROTO "tcp">
 #<SERVICE :NAME "icg-bridge" :ALIASES NIL :PORT 2063 :PROTO "udp">
 #<SERVICE :NAME "icg-iprelay" :ALIASES NIL :PORT 2064 :PROTO "tcp">
 #<SERVICE :NAME "icg-iprelay" :ALIASES NIL :PORT 2064 :PROTO "udp">
 #<SERVICE :NAME "dlsrpn" :ALIASES NIL :PORT 2065 :PROTO "tcp">
 #<SERVICE :NAME "dlsrpn" :ALIASES NIL :PORT 2065 :PROTO "udp">
 #<SERVICE :NAME "aura" :ALIASES NIL :PORT 2066 :PROTO "tcp">
 #<SERVICE :NAME "aura" :ALIASES NIL :PORT 2066 :PROTO "udp">
 #<SERVICE :NAME "dlswpn" :ALIASES NIL :PORT 2067 :PROTO "tcp">
 #<SERVICE :NAME "dlswpn" :ALIASES NIL :PORT 2067 :PROTO "udp">
 #<SERVICE :NAME "avauthsrvprtcl" :ALIASES NIL :PORT 2068 :PROTO "tcp">
 #<SERVICE :NAME "avauthsrvprtcl" :ALIASES NIL :PORT 2068 :PROTO "udp">
 #<SERVICE :NAME "event-port" :ALIASES NIL :PORT 2069 :PROTO "tcp">
 #<SERVICE :NAME "event-port" :ALIASES NIL :PORT 2069 :PROTO "udp">
 #<SERVICE :NAME "ah-esp-encap" :ALIASES NIL :PORT 2070 :PROTO "tcp">
 #<SERVICE :NAME "ah-esp-encap" :ALIASES NIL :PORT 2070 :PROTO "udp">
 #<SERVICE :NAME "acp-port" :ALIASES NIL :PORT 2071 :PROTO "tcp">
 #<SERVICE :NAME "acp-port" :ALIASES NIL :PORT 2071 :PROTO "udp">
 #<SERVICE :NAME "msync" :ALIASES NIL :PORT 2072 :PROTO "tcp">
 #<SERVICE :NAME "msync" :ALIASES NIL :PORT 2072 :PROTO "udp">
 #<SERVICE :NAME "gxs-data-port" :ALIASES NIL :PORT 2073 :PROTO "tcp">
 #<SERVICE :NAME "gxs-data-port" :ALIASES NIL :PORT 2073 :PROTO "udp">
 #<SERVICE :NAME "vrtl-vmf-sa" :ALIASES NIL :PORT 2074 :PROTO "tcp">
 #<SERVICE :NAME "vrtl-vmf-sa" :ALIASES NIL :PORT 2074 :PROTO "udp">
 #<SERVICE :NAME "newlixengine" :ALIASES NIL :PORT 2075 :PROTO "tcp">
 #<SERVICE :NAME "newlixengine" :ALIASES NIL :PORT 2075 :PROTO "udp">
 #<SERVICE :NAME "newlixconfig" :ALIASES NIL :PORT 2076 :PROTO "tcp">
 #<SERVICE :NAME "newlixconfig" :ALIASES NIL :PORT 2076 :PROTO "udp">
 #<SERVICE :NAME "tsrmagt" :ALIASES NIL :PORT 2077 :PROTO "tcp">
 #<SERVICE :NAME "tsrmagt" :ALIASES NIL :PORT 2077 :PROTO "udp">
 #<SERVICE :NAME "tpcsrvr" :ALIASES NIL :PORT 2078 :PROTO "tcp">
 #<SERVICE :NAME "tpcsrvr" :ALIASES NIL :PORT 2078 :PROTO "udp">
 #<SERVICE :NAME "idware-router" :ALIASES NIL :PORT 2079 :PROTO "tcp">
 #<SERVICE :NAME "idware-router" :ALIASES NIL :PORT 2079 :PROTO "udp">
 #<SERVICE :NAME "autodesk-nlm" :ALIASES NIL :PORT 2080 :PROTO "tcp">
 #<SERVICE :NAME "autodesk-nlm" :ALIASES NIL :PORT 2080 :PROTO "udp">
 #<SERVICE :NAME "kme-trap-port" :ALIASES NIL :PORT 2081 :PROTO "tcp">
 #<SERVICE :NAME "kme-trap-port" :ALIASES NIL :PORT 2081 :PROTO "udp">
 #<SERVICE :NAME "infowave" :ALIASES NIL :PORT 2082 :PROTO "tcp">
 #<SERVICE :NAME "infowave" :ALIASES NIL :PORT 2082 :PROTO "udp">
 #<SERVICE :NAME "radsec" :ALIASES NIL :PORT 2083 :PROTO "tcp">
 #<SERVICE :NAME "radsec" :ALIASES NIL :PORT 2083 :PROTO "udp">
 #<SERVICE :NAME "sunclustergeo" :ALIASES NIL :PORT 2084 :PROTO "tcp">
 #<SERVICE :NAME "sunclustergeo" :ALIASES NIL :PORT 2084 :PROTO "udp">
 #<SERVICE :NAME "ada-cip" :ALIASES NIL :PORT 2085 :PROTO "tcp">
 #<SERVICE :NAME "ada-cip" :ALIASES NIL :PORT 2085 :PROTO "udp">
 #<SERVICE :NAME "gnunet" :ALIASES NIL :PORT 2086 :PROTO "tcp">
 #<SERVICE :NAME "gnunet" :ALIASES NIL :PORT 2086 :PROTO "udp">
 #<SERVICE :NAME "eli" :ALIASES NIL :PORT 2087 :PROTO "tcp">
 #<SERVICE :NAME "eli" :ALIASES NIL :PORT 2087 :PROTO "udp">
 #<SERVICE :NAME "ip-blf" :ALIASES NIL :PORT 2088 :PROTO "tcp">
 #<SERVICE :NAME "ip-blf" :ALIASES NIL :PORT 2088 :PROTO "udp">
 #<SERVICE :NAME "sep" :ALIASES NIL :PORT 2089 :PROTO "tcp">
 #<SERVICE :NAME "sep" :ALIASES NIL :PORT 2089 :PROTO "udp">
 #<SERVICE :NAME "lrp" :ALIASES NIL :PORT 2090 :PROTO "tcp">
 #<SERVICE :NAME "lrp" :ALIASES NIL :PORT 2090 :PROTO "udp">
 #<SERVICE :NAME "prp" :ALIASES NIL :PORT 2091 :PROTO "tcp">
 #<SERVICE :NAME "prp" :ALIASES NIL :PORT 2091 :PROTO "udp">
 #<SERVICE :NAME "descent3" :ALIASES NIL :PORT 2092 :PROTO "tcp">
 #<SERVICE :NAME "descent3" :ALIASES NIL :PORT 2092 :PROTO "udp">
 #<SERVICE :NAME "nbx-cc" :ALIASES NIL :PORT 2093 :PROTO "tcp">
 #<SERVICE :NAME "nbx-cc" :ALIASES NIL :PORT 2093 :PROTO "udp">
 #<SERVICE :NAME "nbx-au" :ALIASES NIL :PORT 2094 :PROTO "tcp">
 #<SERVICE :NAME "nbx-au" :ALIASES NIL :PORT 2094 :PROTO "udp">
 #<SERVICE :NAME "nbx-ser" :ALIASES NIL :PORT 2095 :PROTO "tcp">
 #<SERVICE :NAME "nbx-ser" :ALIASES NIL :PORT 2095 :PROTO "udp">
 #<SERVICE :NAME "nbx-dir" :ALIASES NIL :PORT 2096 :PROTO "tcp">
 #<SERVICE :NAME "nbx-dir" :ALIASES NIL :PORT 2096 :PROTO "udp">
 #<SERVICE :NAME "jetformpreview" :ALIASES NIL :PORT 2097 :PROTO "tcp">
 #<SERVICE :NAME "jetformpreview" :ALIASES NIL :PORT 2097 :PROTO "udp">
 #<SERVICE :NAME "dialog-port" :ALIASES NIL :PORT 2098 :PROTO "tcp">
 #<SERVICE :NAME "dialog-port" :ALIASES NIL :PORT 2098 :PROTO "udp">
 #<SERVICE :NAME "h2250-annex-g" :ALIASES NIL :PORT 2099 :PROTO "tcp">
 #<SERVICE :NAME "h2250-annex-g" :ALIASES NIL :PORT 2099 :PROTO "udp">
 #<SERVICE :NAME "amiganetfs" :ALIASES NIL :PORT 2100 :PROTO "tcp">
 #<SERVICE :NAME "amiganetfs" :ALIASES NIL :PORT 2100 :PROTO "udp">
 #<SERVICE :NAME "rtcm-sc104" :ALIASES NIL :PORT 2101 :PROTO "tcp">
 #<SERVICE :NAME "rtcm-sc104" :ALIASES NIL :PORT 2101 :PROTO "udp">
 #<SERVICE :NAME "minipay" :ALIASES NIL :PORT 2105 :PROTO "udp">
 #<SERVICE :NAME "mzap" :ALIASES NIL :PORT 2106 :PROTO "tcp">
 #<SERVICE :NAME "mzap" :ALIASES NIL :PORT 2106 :PROTO "udp">
 #<SERVICE :NAME "bintec-admin" :ALIASES NIL :PORT 2107 :PROTO "tcp">
 #<SERVICE :NAME "bintec-admin" :ALIASES NIL :PORT 2107 :PROTO "udp">
 #<SERVICE :NAME "comcam" :ALIASES NIL :PORT 2108 :PROTO "tcp">
 #<SERVICE :NAME "comcam" :ALIASES NIL :PORT 2108 :PROTO "udp">
 #<SERVICE :NAME "ergolight" :ALIASES NIL :PORT 2109 :PROTO "tcp">
 #<SERVICE :NAME "ergolight" :ALIASES NIL :PORT 2109 :PROTO "udp">
 #<SERVICE :NAME "umsp" :ALIASES NIL :PORT 2110 :PROTO "tcp">
 #<SERVICE :NAME "umsp" :ALIASES NIL :PORT 2110 :PROTO "udp">
 #<SERVICE :NAME "dsatp" :ALIASES NIL :PORT 2111 :PROTO "tcp">
 #<SERVICE :NAME "dsatp" :ALIASES NIL :PORT 2111 :PROTO "udp">
 #<SERVICE :NAME "idonix-metanet" :ALIASES NIL :PORT 2112 :PROTO "tcp">
 #<SERVICE :NAME "idonix-metanet" :ALIASES NIL :PORT 2112 :PROTO "udp">
 #<SERVICE :NAME "hsl-storm" :ALIASES NIL :PORT 2113 :PROTO "tcp">
 #<SERVICE :NAME "hsl-storm" :ALIASES NIL :PORT 2113 :PROTO "udp">
 #<SERVICE :NAME "newheights" :ALIASES NIL :PORT 2114 :PROTO "tcp">
 #<SERVICE :NAME "newheights" :ALIASES NIL :PORT 2114 :PROTO "udp">
 #<SERVICE :NAME "kdm" :ALIASES NIL :PORT 2115 :PROTO "tcp">
 #<SERVICE :NAME "kdm" :ALIASES NIL :PORT 2115 :PROTO "udp">
 #<SERVICE :NAME "ccowcmr" :ALIASES NIL :PORT 2116 :PROTO "tcp">
 #<SERVICE :NAME "ccowcmr" :ALIASES NIL :PORT 2116 :PROTO "udp">
 #<SERVICE :NAME "mentaclient" :ALIASES NIL :PORT 2117 :PROTO "tcp">
 #<SERVICE :NAME "mentaclient" :ALIASES NIL :PORT 2117 :PROTO "udp">
 #<SERVICE :NAME "mentaserver" :ALIASES NIL :PORT 2118 :PROTO "tcp">
 #<SERVICE :NAME "mentaserver" :ALIASES NIL :PORT 2118 :PROTO "udp">
 #<SERVICE :NAME "gsigatekeeper" :ALIASES NIL :PORT 2119 :PROTO "tcp">
 #<SERVICE :NAME "gsigatekeeper" :ALIASES NIL :PORT 2119 :PROTO "udp">
 #<SERVICE :NAME "qencp" :ALIASES NIL :PORT 2120 :PROTO "tcp">
 #<SERVICE :NAME "qencp" :ALIASES NIL :PORT 2120 :PROTO "udp">
 #<SERVICE :NAME "scientia-ssdb" :ALIASES NIL :PORT 2121 :PROTO "tcp">
 #<SERVICE :NAME "scientia-ssdb" :ALIASES NIL :PORT 2121 :PROTO "udp">
 #<SERVICE :NAME "caupc-remote" :ALIASES NIL :PORT 2122 :PROTO "tcp">
 #<SERVICE :NAME "caupc-remote" :ALIASES NIL :PORT 2122 :PROTO "udp">
 #<SERVICE :NAME "gtp-control" :ALIASES NIL :PORT 2123 :PROTO "tcp">
 #<SERVICE :NAME "gtp-control" :ALIASES NIL :PORT 2123 :PROTO "udp">
 #<SERVICE :NAME "elatelink" :ALIASES NIL :PORT 2124 :PROTO "tcp">
 #<SERVICE :NAME "elatelink" :ALIASES NIL :PORT 2124 :PROTO "udp">
 #<SERVICE :NAME "lockstep" :ALIASES NIL :PORT 2125 :PROTO "tcp">
 #<SERVICE :NAME "lockstep" :ALIASES NIL :PORT 2125 :PROTO "udp">
 #<SERVICE :NAME "pktcable-cops" :ALIASES NIL :PORT 2126 :PROTO "tcp">
 #<SERVICE :NAME "pktcable-cops" :ALIASES NIL :PORT 2126 :PROTO "udp">
 #<SERVICE :NAME "index-pc-wb" :ALIASES NIL :PORT 2127 :PROTO "tcp">
 #<SERVICE :NAME "index-pc-wb" :ALIASES NIL :PORT 2127 :PROTO "udp">
 #<SERVICE :NAME "net-steward" :ALIASES NIL :PORT 2128 :PROTO "tcp">
 #<SERVICE :NAME "net-steward" :ALIASES NIL :PORT 2128 :PROTO "udp">
 #<SERVICE :NAME "cs-live" :ALIASES NIL :PORT 2129 :PROTO "tcp">
 #<SERVICE :NAME "cs-live" :ALIASES NIL :PORT 2129 :PROTO "udp">
 #<SERVICE :NAME "xds" :ALIASES NIL :PORT 2130 :PROTO "tcp">
 #<SERVICE :NAME "xds" :ALIASES NIL :PORT 2130 :PROTO "udp">
 #<SERVICE :NAME "avantageb2b" :ALIASES NIL :PORT 2131 :PROTO "tcp">
 #<SERVICE :NAME "avantageb2b" :ALIASES NIL :PORT 2131 :PROTO "udp">
 #<SERVICE :NAME "solera-epmap" :ALIASES NIL :PORT 2132 :PROTO "tcp">
 #<SERVICE :NAME "solera-epmap" :ALIASES NIL :PORT 2132 :PROTO "udp">
 #<SERVICE :NAME "zymed-zpp" :ALIASES NIL :PORT 2133 :PROTO "tcp">
 #<SERVICE :NAME "zymed-zpp" :ALIASES NIL :PORT 2133 :PROTO "udp">
 #<SERVICE :NAME "avenue" :ALIASES NIL :PORT 2134 :PROTO "tcp">
 #<SERVICE :NAME "avenue" :ALIASES NIL :PORT 2134 :PROTO "udp">
 #<SERVICE :NAME "gris" :ALIASES NIL :PORT 2135 :PROTO "tcp">
 #<SERVICE :NAME "gris" :ALIASES NIL :PORT 2135 :PROTO "udp">
 #<SERVICE :NAME "appworxsrv" :ALIASES NIL :PORT 2136 :PROTO "tcp">
 #<SERVICE :NAME "appworxsrv" :ALIASES NIL :PORT 2136 :PROTO "udp">
 #<SERVICE :NAME "connect" :ALIASES NIL :PORT 2137 :PROTO "tcp">
 #<SERVICE :NAME "connect" :ALIASES NIL :PORT 2137 :PROTO "udp">
 #<SERVICE :NAME "unbind-cluster" :ALIASES NIL :PORT 2138 :PROTO "tcp">
 #<SERVICE :NAME "unbind-cluster" :ALIASES NIL :PORT 2138 :PROTO "udp">
 #<SERVICE :NAME "ias-auth" :ALIASES NIL :PORT 2139 :PROTO "tcp">
 #<SERVICE :NAME "ias-auth" :ALIASES NIL :PORT 2139 :PROTO "udp">
 #<SERVICE :NAME "ias-reg" :ALIASES NIL :PORT 2140 :PROTO "tcp">
 #<SERVICE :NAME "ias-reg" :ALIASES NIL :PORT 2140 :PROTO "udp">
 #<SERVICE :NAME "ias-admind" :ALIASES NIL :PORT 2141 :PROTO "tcp">
 #<SERVICE :NAME "ias-admind" :ALIASES NIL :PORT 2141 :PROTO "udp">
 #<SERVICE :NAME "tdmoip" :ALIASES NIL :PORT 2142 :PROTO "tcp">
 #<SERVICE :NAME "tdmoip" :ALIASES NIL :PORT 2142 :PROTO "udp">
 #<SERVICE :NAME "lv-jc" :ALIASES NIL :PORT 2143 :PROTO "tcp">
 #<SERVICE :NAME "lv-jc" :ALIASES NIL :PORT 2143 :PROTO "udp">
 #<SERVICE :NAME "lv-ffx" :ALIASES NIL :PORT 2144 :PROTO "tcp">
 #<SERVICE :NAME "lv-ffx" :ALIASES NIL :PORT 2144 :PROTO "udp">
 #<SERVICE :NAME "lv-pici" :ALIASES NIL :PORT 2145 :PROTO "tcp">
 #<SERVICE :NAME "lv-pici" :ALIASES NIL :PORT 2145 :PROTO "udp">
 #<SERVICE :NAME "lv-not" :ALIASES NIL :PORT 2146 :PROTO "tcp">
 #<SERVICE :NAME "lv-not" :ALIASES NIL :PORT 2146 :PROTO "udp">
 #<SERVICE :NAME "lv-auth" :ALIASES NIL :PORT 2147 :PROTO "tcp">
 #<SERVICE :NAME "lv-auth" :ALIASES NIL :PORT 2147 :PROTO "udp">
 #<SERVICE :NAME "veritas-ucl" :ALIASES NIL :PORT 2148 :PROTO "tcp">
 #<SERVICE :NAME "veritas-ucl" :ALIASES NIL :PORT 2148 :PROTO "udp">
 #<SERVICE :NAME "acptsys" :ALIASES NIL :PORT 2149 :PROTO "tcp">
 #<SERVICE :NAME "acptsys" :ALIASES NIL :PORT 2149 :PROTO "udp">
 #<SERVICE :NAME "docent" :ALIASES NIL :PORT 2151 :PROTO "tcp">
 #<SERVICE :NAME "docent" :ALIASES NIL :PORT 2151 :PROTO "udp">
 #<SERVICE :NAME "gtp-user" :ALIASES NIL :PORT 2152 :PROTO "tcp">
 #<SERVICE :NAME "gtp-user" :ALIASES NIL :PORT 2152 :PROTO "udp">
 #<SERVICE :NAME "ctlptc" :ALIASES NIL :PORT 2153 :PROTO "tcp">
 #<SERVICE :NAME "ctlptc" :ALIASES NIL :PORT 2153 :PROTO "udp">
 #<SERVICE :NAME "stdptc" :ALIASES NIL :PORT 2154 :PROTO "tcp">
 #<SERVICE :NAME "stdptc" :ALIASES NIL :PORT 2154 :PROTO "udp">
 #<SERVICE :NAME "brdptc" :ALIASES NIL :PORT 2155 :PROTO "tcp">
 #<SERVICE :NAME "brdptc" :ALIASES NIL :PORT 2155 :PROTO "udp">
 #<SERVICE :NAME "trp" :ALIASES NIL :PORT 2156 :PROTO "tcp">
 #<SERVICE :NAME "trp" :ALIASES NIL :PORT 2156 :PROTO "udp">
 #<SERVICE :NAME "xnds" :ALIASES NIL :PORT 2157 :PROTO "tcp">
 #<SERVICE :NAME "xnds" :ALIASES NIL :PORT 2157 :PROTO "udp">
 #<SERVICE :NAME "touchnetplus" :ALIASES NIL :PORT 2158 :PROTO "tcp">
 #<SERVICE :NAME "touchnetplus" :ALIASES NIL :PORT 2158 :PROTO "udp">
 #<SERVICE :NAME "gdbremote" :ALIASES NIL :PORT 2159 :PROTO "tcp">
 #<SERVICE :NAME "gdbremote" :ALIASES NIL :PORT 2159 :PROTO "udp">
 #<SERVICE :NAME "apc-2160" :ALIASES NIL :PORT 2160 :PROTO "tcp">
 #<SERVICE :NAME "apc-2160" :ALIASES NIL :PORT 2160 :PROTO "udp">
 #<SERVICE :NAME "apc-2161" :ALIASES NIL :PORT 2161 :PROTO "tcp">
 #<SERVICE :NAME "apc-2161" :ALIASES NIL :PORT 2161 :PROTO "udp">
 #<SERVICE :NAME "navisphere" :ALIASES NIL :PORT 2162 :PROTO "tcp">
 #<SERVICE :NAME "navisphere" :ALIASES NIL :PORT 2162 :PROTO "udp">
 #<SERVICE :NAME "navisphere-sec" :ALIASES NIL :PORT 2163 :PROTO "tcp">
 #<SERVICE :NAME "navisphere-sec" :ALIASES NIL :PORT 2163 :PROTO "udp">
 #<SERVICE :NAME "ddns-v3" :ALIASES NIL :PORT 2164 :PROTO "tcp">
 #<SERVICE :NAME "ddns-v3" :ALIASES NIL :PORT 2164 :PROTO "udp">
 #<SERVICE :NAME "x-bone-api" :ALIASES NIL :PORT 2165 :PROTO "tcp">
 #<SERVICE :NAME "x-bone-api" :ALIASES NIL :PORT 2165 :PROTO "udp">
 #<SERVICE :NAME "iwserver" :ALIASES NIL :PORT 2166 :PROTO "tcp">
 #<SERVICE :NAME "iwserver" :ALIASES NIL :PORT 2166 :PROTO "udp">
 #<SERVICE :NAME "raw-serial" :ALIASES NIL :PORT 2167 :PROTO "tcp">
 #<SERVICE :NAME "raw-serial" :ALIASES NIL :PORT 2167 :PROTO "udp">
 #<SERVICE :NAME "easy-soft-mux" :ALIASES NIL :PORT 2168 :PROTO "tcp">
 #<SERVICE :NAME "easy-soft-mux" :ALIASES NIL :PORT 2168 :PROTO "udp">
 #<SERVICE :NAME "brain" :ALIASES NIL :PORT 2169 :PROTO "tcp">
 #<SERVICE :NAME "brain" :ALIASES NIL :PORT 2169 :PROTO "udp">
 #<SERVICE :NAME "eyetv" :ALIASES NIL :PORT 2170 :PROTO "tcp">
 #<SERVICE :NAME "eyetv" :ALIASES NIL :PORT 2170 :PROTO "udp">
 #<SERVICE :NAME "msfw-storage" :ALIASES NIL :PORT 2171 :PROTO "tcp">
 #<SERVICE :NAME "msfw-storage" :ALIASES NIL :PORT 2171 :PROTO "udp">
 #<SERVICE :NAME "msfw-s-storage" :ALIASES NIL :PORT 2172 :PROTO "tcp">
 #<SERVICE :NAME "msfw-s-storage" :ALIASES NIL :PORT 2172 :PROTO "udp">
 #<SERVICE :NAME "msfw-replica" :ALIASES NIL :PORT 2173 :PROTO "tcp">
 #<SERVICE :NAME "msfw-replica" :ALIASES NIL :PORT 2173 :PROTO "udp">
 #<SERVICE :NAME "msfw-array" :ALIASES NIL :PORT 2174 :PROTO "tcp">
 #<SERVICE :NAME "msfw-array" :ALIASES NIL :PORT 2174 :PROTO "udp">
 #<SERVICE :NAME "airsync" :ALIASES NIL :PORT 2175 :PROTO "tcp">
 #<SERVICE :NAME "airsync" :ALIASES NIL :PORT 2175 :PROTO "udp">
 #<SERVICE :NAME "rapi" :ALIASES NIL :PORT 2176 :PROTO "tcp">
 #<SERVICE :NAME "rapi" :ALIASES NIL :PORT 2176 :PROTO "udp">
 #<SERVICE :NAME "qwave" :ALIASES NIL :PORT 2177 :PROTO "tcp">
 #<SERVICE :NAME "qwave" :ALIASES NIL :PORT 2177 :PROTO "udp">
 #<SERVICE :NAME "bitspeer" :ALIASES NIL :PORT 2178 :PROTO "tcp">
 #<SERVICE :NAME "bitspeer" :ALIASES NIL :PORT 2178 :PROTO "udp">
 #<SERVICE :NAME "vmrdp" :ALIASES NIL :PORT 2179 :PROTO "tcp">
 #<SERVICE :NAME "vmrdp" :ALIASES NIL :PORT 2179 :PROTO "udp">
 #<SERVICE :NAME "mc-gt-srv" :ALIASES NIL :PORT 2180 :PROTO "tcp">
 #<SERVICE :NAME "mc-gt-srv" :ALIASES NIL :PORT 2180 :PROTO "udp">
 #<SERVICE :NAME "eforward" :ALIASES NIL :PORT 2181 :PROTO "tcp">
 #<SERVICE :NAME "eforward" :ALIASES NIL :PORT 2181 :PROTO "udp">
 #<SERVICE :NAME "cgn-stat" :ALIASES NIL :PORT 2182 :PROTO "tcp">
 #<SERVICE :NAME "cgn-stat" :ALIASES NIL :PORT 2182 :PROTO "udp">
 #<SERVICE :NAME "cgn-config" :ALIASES NIL :PORT 2183 :PROTO "tcp">
 #<SERVICE :NAME "cgn-config" :ALIASES NIL :PORT 2183 :PROTO "udp">
 #<SERVICE :NAME "onbase-dds" :ALIASES NIL :PORT 2185 :PROTO "tcp">
 #<SERVICE :NAME "onbase-dds" :ALIASES NIL :PORT 2185 :PROTO "udp">
 #<SERVICE :NAME "gtaua" :ALIASES NIL :PORT 2186 :PROTO "tcp">
 #<SERVICE :NAME "gtaua" :ALIASES NIL :PORT 2186 :PROTO "udp">
 #<SERVICE :NAME "ssmc" :ALIASES NIL :PORT 2187 :PROTO "tcp">
 #<SERVICE :NAME "ssmd" :ALIASES NIL :PORT 2187 :PROTO "udp">
 #<SERVICE :NAME "radware-rpm" :ALIASES NIL :PORT 2188 :PROTO "tcp">
 #<SERVICE :NAME "radware-rpm-s" :ALIASES NIL :PORT 2189 :PROTO "tcp">
 #<SERVICE :NAME "tivoconnect" :ALIASES NIL :PORT 2190 :PROTO "tcp">
 #<SERVICE :NAME "tivoconnect" :ALIASES NIL :PORT 2190 :PROTO "udp">
 #<SERVICE :NAME "tvbus" :ALIASES NIL :PORT 2191 :PROTO "tcp">
 #<SERVICE :NAME "tvbus" :ALIASES NIL :PORT 2191 :PROTO "udp">
 #<SERVICE :NAME "asdis" :ALIASES NIL :PORT 2192 :PROTO "tcp">
 #<SERVICE :NAME "asdis" :ALIASES NIL :PORT 2192 :PROTO "udp">
 #<SERVICE :NAME "drwcs" :ALIASES NIL :PORT 2193 :PROTO "tcp">
 #<SERVICE :NAME "drwcs" :ALIASES NIL :PORT 2193 :PROTO "udp">
 #<SERVICE :NAME "mnp-exchange" :ALIASES NIL :PORT 2197 :PROTO "tcp">
 #<SERVICE :NAME "mnp-exchange" :ALIASES NIL :PORT 2197 :PROTO "udp">
 #<SERVICE :NAME "onehome-remote" :ALIASES NIL :PORT 2198 :PROTO "tcp">
 #<SERVICE :NAME "onehome-remote" :ALIASES NIL :PORT 2198 :PROTO "udp">
 #<SERVICE :NAME "onehome-help" :ALIASES NIL :PORT 2199 :PROTO "tcp">
 #<SERVICE :NAME "onehome-help" :ALIASES NIL :PORT 2199 :PROTO "udp">
 #<SERVICE :NAME "ici" :ALIASES NIL :PORT 2200 :PROTO "tcp">
 #<SERVICE :NAME "ici" :ALIASES NIL :PORT 2200 :PROTO "udp">
 #<SERVICE :NAME "ats" :ALIASES NIL :PORT 2201 :PROTO "tcp">
 #<SERVICE :NAME "ats" :ALIASES NIL :PORT 2201 :PROTO "udp">
 #<SERVICE :NAME "imtc-map" :ALIASES NIL :PORT 2202 :PROTO "tcp">
 #<SERVICE :NAME "imtc-map" :ALIASES NIL :PORT 2202 :PROTO "udp">
 #<SERVICE :NAME "b2-runtime" :ALIASES NIL :PORT 2203 :PROTO "tcp">
 #<SERVICE :NAME "b2-runtime" :ALIASES NIL :PORT 2203 :PROTO "udp">
 #<SERVICE :NAME "b2-license" :ALIASES NIL :PORT 2204 :PROTO "tcp">
 #<SERVICE :NAME "b2-license" :ALIASES NIL :PORT 2204 :PROTO "udp">
 #<SERVICE :NAME "jps" :ALIASES NIL :PORT 2205 :PROTO "tcp">
 #<SERVICE :NAME "jps" :ALIASES NIL :PORT 2205 :PROTO "udp">
 #<SERVICE :NAME "hpocbus" :ALIASES NIL :PORT 2206 :PROTO "tcp">
 #<SERVICE :NAME "hpocbus" :ALIASES NIL :PORT 2206 :PROTO "udp">
 #<SERVICE :NAME "hpssd" :ALIASES NIL :PORT 2207 :PROTO "tcp">
 #<SERVICE :NAME "hpssd" :ALIASES NIL :PORT 2207 :PROTO "udp">
 #<SERVICE :NAME "hpiod" :ALIASES NIL :PORT 2208 :PROTO "tcp">
 #<SERVICE :NAME "hpiod" :ALIASES NIL :PORT 2208 :PROTO "udp">
 #<SERVICE :NAME "rimf-ps" :ALIASES NIL :PORT 2209 :PROTO "tcp">
 #<SERVICE :NAME "rimf-ps" :ALIASES NIL :PORT 2209 :PROTO "udp">
 #<SERVICE :NAME "noaaport" :ALIASES NIL :PORT 2210 :PROTO "tcp">
 #<SERVICE :NAME "noaaport" :ALIASES NIL :PORT 2210 :PROTO "udp">
 #<SERVICE :NAME "emwin" :ALIASES NIL :PORT 2211 :PROTO "tcp">
 #<SERVICE :NAME "emwin" :ALIASES NIL :PORT 2211 :PROTO "udp">
 #<SERVICE :NAME "leecoposserver" :ALIASES NIL :PORT 2212 :PROTO "tcp">
 #<SERVICE :NAME "leecoposserver" :ALIASES NIL :PORT 2212 :PROTO "udp">
 #<SERVICE :NAME "kali" :ALIASES NIL :PORT 2213 :PROTO "tcp">
 #<SERVICE :NAME "kali" :ALIASES NIL :PORT 2213 :PROTO "udp">
 #<SERVICE :NAME "rpi" :ALIASES NIL :PORT 2214 :PROTO "tcp">
 #<SERVICE :NAME "rpi" :ALIASES NIL :PORT 2214 :PROTO "udp">
 #<SERVICE :NAME "ipcore" :ALIASES NIL :PORT 2215 :PROTO "tcp">
 #<SERVICE :NAME "ipcore" :ALIASES NIL :PORT 2215 :PROTO "udp">
 #<SERVICE :NAME "vtu-comms" :ALIASES NIL :PORT 2216 :PROTO "tcp">
 #<SERVICE :NAME "vtu-comms" :ALIASES NIL :PORT 2216 :PROTO "udp">
 #<SERVICE :NAME "gotodevice" :ALIASES NIL :PORT 2217 :PROTO "tcp">
 #<SERVICE :NAME "gotodevice" :ALIASES NIL :PORT 2217 :PROTO "udp">
 #<SERVICE :NAME "bounzza" :ALIASES NIL :PORT 2218 :PROTO "tcp">
 #<SERVICE :NAME "bounzza" :ALIASES NIL :PORT 2218 :PROTO "udp">
 #<SERVICE :NAME "netiq-ncap" :ALIASES NIL :PORT 2219 :PROTO "tcp">
 #<SERVICE :NAME "netiq-ncap" :ALIASES NIL :PORT 2219 :PROTO "udp">
 #<SERVICE :NAME "netiq" :ALIASES NIL :PORT 2220 :PROTO "tcp">
 #<SERVICE :NAME "netiq" :ALIASES NIL :PORT 2220 :PROTO "udp">
 #<SERVICE :NAME "ethernet-ip-s" :ALIASES NIL :PORT 2221 :PROTO "tcp">
 #<SERVICE :NAME "ethernet-ip-s" :ALIASES NIL :PORT 2221 :PROTO "udp">
 #<SERVICE :NAME "EtherNet/IP-1" :ALIASES ("EtherNet-IP-1") :PORT 2222
   :PROTO "tcp">
 #<SERVICE :NAME "EtherNet/IP-1" :ALIASES ("EtherNet-IP-1") :PORT 2222
   :PROTO "udp">
 #<SERVICE :NAME "rockwell-csp2" :ALIASES NIL :PORT 2223 :PROTO "tcp">
 #<SERVICE :NAME "rockwell-csp2" :ALIASES NIL :PORT 2223 :PROTO "udp">
 #<SERVICE :NAME "efi-mg" :ALIASES NIL :PORT 2224 :PROTO "tcp">
 #<SERVICE :NAME "efi-mg" :ALIASES NIL :PORT 2224 :PROTO "udp">
 #<SERVICE :NAME "rcip-itu" :ALIASES NIL :PORT 2225 :PROTO "tcp">
 #<SERVICE :NAME "rcip-itu" :ALIASES NIL :PORT 2225 :PROTO "sctp">
 #<SERVICE :NAME "di-drm" :ALIASES NIL :PORT 2226 :PROTO "tcp">
 #<SERVICE :NAME "di-drm" :ALIASES NIL :PORT 2226 :PROTO "udp">
 #<SERVICE :NAME "di-msg" :ALIASES NIL :PORT 2227 :PROTO "tcp">
 #<SERVICE :NAME "di-msg" :ALIASES NIL :PORT 2227 :PROTO "udp">
 #<SERVICE :NAME "ehome-ms" :ALIASES NIL :PORT 2228 :PROTO "tcp">
 #<SERVICE :NAME "ehome-ms" :ALIASES NIL :PORT 2228 :PROTO "udp">
 #<SERVICE :NAME "datalens" :ALIASES NIL :PORT 2229 :PROTO "tcp">
 #<SERVICE :NAME "datalens" :ALIASES NIL :PORT 2229 :PROTO "udp">
 #<SERVICE :NAME "queueadm" :ALIASES NIL :PORT 2230 :PROTO "tcp">
 #<SERVICE :NAME "queueadm" :ALIASES NIL :PORT 2230 :PROTO "udp">
 #<SERVICE :NAME "wimaxasncp" :ALIASES NIL :PORT 2231 :PROTO "tcp">
 #<SERVICE :NAME "wimaxasncp" :ALIASES NIL :PORT 2231 :PROTO "udp">
 #<SERVICE :NAME "ivs-video" :ALIASES NIL :PORT 2232 :PROTO "tcp">
 #<SERVICE :NAME "ivs-video" :ALIASES NIL :PORT 2232 :PROTO "udp">
 #<SERVICE :NAME "infocrypt" :ALIASES NIL :PORT 2233 :PROTO "tcp">
 #<SERVICE :NAME "infocrypt" :ALIASES NIL :PORT 2233 :PROTO "udp">
 #<SERVICE :NAME "directplay" :ALIASES NIL :PORT 2234 :PROTO "tcp">
 #<SERVICE :NAME "directplay" :ALIASES NIL :PORT 2234 :PROTO "udp">
 #<SERVICE :NAME "sercomm-wlink" :ALIASES NIL :PORT 2235 :PROTO "tcp">
 #<SERVICE :NAME "sercomm-wlink" :ALIASES NIL :PORT 2235 :PROTO "udp">
 #<SERVICE :NAME "nani" :ALIASES NIL :PORT 2236 :PROTO "tcp">
 #<SERVICE :NAME "nani" :ALIASES NIL :PORT 2236 :PROTO "udp">
 #<SERVICE :NAME "optech-port1-lm" :ALIASES NIL :PORT 2237 :PROTO "tcp">
 #<SERVICE :NAME "optech-port1-lm" :ALIASES NIL :PORT 2237 :PROTO "udp">
 #<SERVICE :NAME "aviva-sna" :ALIASES NIL :PORT 2238 :PROTO "tcp">
 #<SERVICE :NAME "aviva-sna" :ALIASES NIL :PORT 2238 :PROTO "udp">
 #<SERVICE :NAME "imagequery" :ALIASES NIL :PORT 2239 :PROTO "tcp">
 #<SERVICE :NAME "imagequery" :ALIASES NIL :PORT 2239 :PROTO "udp">
 #<SERVICE :NAME "recipe" :ALIASES NIL :PORT 2240 :PROTO "tcp">
 #<SERVICE :NAME "recipe" :ALIASES NIL :PORT 2240 :PROTO "udp">
 #<SERVICE :NAME "ivsd" :ALIASES NIL :PORT 2241 :PROTO "tcp">
 #<SERVICE :NAME "ivsd" :ALIASES NIL :PORT 2241 :PROTO "udp">
 #<SERVICE :NAME "foliocorp" :ALIASES NIL :PORT 2242 :PROTO "tcp">
 #<SERVICE :NAME "foliocorp" :ALIASES NIL :PORT 2242 :PROTO "udp">
 #<SERVICE :NAME "magicom" :ALIASES NIL :PORT 2243 :PROTO "tcp">
 #<SERVICE :NAME "magicom" :ALIASES NIL :PORT 2243 :PROTO "udp">
 #<SERVICE :NAME "nmsserver" :ALIASES NIL :PORT 2244 :PROTO "tcp">
 #<SERVICE :NAME "nmsserver" :ALIASES NIL :PORT 2244 :PROTO "udp">
 #<SERVICE :NAME "hao" :ALIASES NIL :PORT 2245 :PROTO "tcp">
 #<SERVICE :NAME "hao" :ALIASES NIL :PORT 2245 :PROTO "udp">
 #<SERVICE :NAME "pc-mta-addrmap" :ALIASES NIL :PORT 2246 :PROTO "tcp">
 #<SERVICE :NAME "pc-mta-addrmap" :ALIASES NIL :PORT 2246 :PROTO "udp">
 #<SERVICE :NAME "antidotemgrsvr" :ALIASES NIL :PORT 2247 :PROTO "tcp">
 #<SERVICE :NAME "antidotemgrsvr" :ALIASES NIL :PORT 2247 :PROTO "udp">
 #<SERVICE :NAME "ums" :ALIASES NIL :PORT 2248 :PROTO "tcp">
 #<SERVICE :NAME "ums" :ALIASES NIL :PORT 2248 :PROTO "udp">
 #<SERVICE :NAME "rfmp" :ALIASES NIL :PORT 2249 :PROTO "tcp">
 #<SERVICE :NAME "rfmp" :ALIASES NIL :PORT 2249 :PROTO "udp">
 #<SERVICE :NAME "remote-collab" :ALIASES NIL :PORT 2250 :PROTO "tcp">
 #<SERVICE :NAME "remote-collab" :ALIASES NIL :PORT 2250 :PROTO "udp">
 #<SERVICE :NAME "dif-port" :ALIASES NIL :PORT 2251 :PROTO "tcp">
 #<SERVICE :NAME "dif-port" :ALIASES NIL :PORT 2251 :PROTO "udp">
 #<SERVICE :NAME "njenet-ssl" :ALIASES NIL :PORT 2252 :PROTO "tcp">
 #<SERVICE :NAME "njenet-ssl" :ALIASES NIL :PORT 2252 :PROTO "udp">
 #<SERVICE :NAME "dtv-chan-req" :ALIASES NIL :PORT 2253 :PROTO "tcp">
 #<SERVICE :NAME "dtv-chan-req" :ALIASES NIL :PORT 2253 :PROTO "udp">
 #<SERVICE :NAME "seispoc" :ALIASES NIL :PORT 2254 :PROTO "tcp">
 #<SERVICE :NAME "seispoc" :ALIASES NIL :PORT 2254 :PROTO "udp">
 #<SERVICE :NAME "vrtp" :ALIASES NIL :PORT 2255 :PROTO "tcp">
 #<SERVICE :NAME "vrtp" :ALIASES NIL :PORT 2255 :PROTO "udp">
 #<SERVICE :NAME "pcc-mfp" :ALIASES NIL :PORT 2256 :PROTO "tcp">
 #<SERVICE :NAME "pcc-mfp" :ALIASES NIL :PORT 2256 :PROTO "udp">
 #<SERVICE :NAME "simple-tx-rx" :ALIASES NIL :PORT 2257 :PROTO "tcp">
 #<SERVICE :NAME "simple-tx-rx" :ALIASES NIL :PORT 2257 :PROTO "udp">
 #<SERVICE :NAME "rcts" :ALIASES NIL :PORT 2258 :PROTO "tcp">
 #<SERVICE :NAME "rcts" :ALIASES NIL :PORT 2258 :PROTO "udp">
 #<SERVICE :NAME "apc-2260" :ALIASES NIL :PORT 2260 :PROTO "tcp">
 #<SERVICE :NAME "apc-2260" :ALIASES NIL :PORT 2260 :PROTO "udp">
 #<SERVICE :NAME "comotionmaster" :ALIASES NIL :PORT 2261 :PROTO "tcp">
 #<SERVICE :NAME "comotionmaster" :ALIASES NIL :PORT 2261 :PROTO "udp">
 #<SERVICE :NAME "comotionback" :ALIASES NIL :PORT 2262 :PROTO "tcp">
 #<SERVICE :NAME "comotionback" :ALIASES NIL :PORT 2262 :PROTO "udp">
 #<SERVICE :NAME "ecwcfg" :ALIASES NIL :PORT 2263 :PROTO "tcp">
 #<SERVICE :NAME "ecwcfg" :ALIASES NIL :PORT 2263 :PROTO "udp">
 #<SERVICE :NAME "apx500api-1" :ALIASES NIL :PORT 2264 :PROTO "tcp">
 #<SERVICE :NAME "apx500api-1" :ALIASES NIL :PORT 2264 :PROTO "udp">
 #<SERVICE :NAME "apx500api-2" :ALIASES NIL :PORT 2265 :PROTO "tcp">
 #<SERVICE :NAME "apx500api-2" :ALIASES NIL :PORT 2265 :PROTO "udp">
 #<SERVICE :NAME "mfserver" :ALIASES NIL :PORT 2266 :PROTO "tcp">
 #<SERVICE :NAME "mfserver" :ALIASES NIL :PORT 2266 :PROTO "udp">
 #<SERVICE :NAME "ontobroker" :ALIASES NIL :PORT 2267 :PROTO "tcp">
 #<SERVICE :NAME "ontobroker" :ALIASES NIL :PORT 2267 :PROTO "udp">
 #<SERVICE :NAME "amt" :ALIASES NIL :PORT 2268 :PROTO "tcp">
 #<SERVICE :NAME "amt" :ALIASES NIL :PORT 2268 :PROTO "udp">
 #<SERVICE :NAME "mikey" :ALIASES NIL :PORT 2269 :PROTO "tcp">
 #<SERVICE :NAME "mikey" :ALIASES NIL :PORT 2269 :PROTO "udp">
 #<SERVICE :NAME "starschool" :ALIASES NIL :PORT 2270 :PROTO "tcp">
 #<SERVICE :NAME "starschool" :ALIASES NIL :PORT 2270 :PROTO "udp">
 #<SERVICE :NAME "mmcals" :ALIASES NIL :PORT 2271 :PROTO "tcp">
 #<SERVICE :NAME "mmcals" :ALIASES NIL :PORT 2271 :PROTO "udp">
 #<SERVICE :NAME "mmcal" :ALIASES NIL :PORT 2272 :PROTO "tcp">
 #<SERVICE :NAME "mmcal" :ALIASES NIL :PORT 2272 :PROTO "udp">
 #<SERVICE :NAME "mysql-im" :ALIASES NIL :PORT 2273 :PROTO "tcp">
 #<SERVICE :NAME "mysql-im" :ALIASES NIL :PORT 2273 :PROTO "udp">
 #<SERVICE :NAME "pcttunnell" :ALIASES NIL :PORT 2274 :PROTO "tcp">
 #<SERVICE :NAME "pcttunnell" :ALIASES NIL :PORT 2274 :PROTO "udp">
 #<SERVICE :NAME "ibridge-data" :ALIASES NIL :PORT 2275 :PROTO "tcp">
 #<SERVICE :NAME "ibridge-data" :ALIASES NIL :PORT 2275 :PROTO "udp">
 #<SERVICE :NAME "ibridge-mgmt" :ALIASES NIL :PORT 2276 :PROTO "tcp">
 #<SERVICE :NAME "ibridge-mgmt" :ALIASES NIL :PORT 2276 :PROTO "udp">
 #<SERVICE :NAME "bluectrlproxy" :ALIASES NIL :PORT 2277 :PROTO "tcp">
 #<SERVICE :NAME "bluectrlproxy" :ALIASES NIL :PORT 2277 :PROTO "udp">
 #<SERVICE :NAME "s3db" :ALIASES NIL :PORT 2278 :PROTO "tcp">
 #<SERVICE :NAME "s3db" :ALIASES NIL :PORT 2278 :PROTO "udp">
 #<SERVICE :NAME "xmquery" :ALIASES NIL :PORT 2279 :PROTO "tcp">
 #<SERVICE :NAME "xmquery" :ALIASES NIL :PORT 2279 :PROTO "udp">
 #<SERVICE :NAME "lnvpoller" :ALIASES NIL :PORT 2280 :PROTO "tcp">
 #<SERVICE :NAME "lnvpoller" :ALIASES NIL :PORT 2280 :PROTO "udp">
 #<SERVICE :NAME "lnvconsole" :ALIASES NIL :PORT 2281 :PROTO "tcp">
 #<SERVICE :NAME "lnvconsole" :ALIASES NIL :PORT 2281 :PROTO "udp">
 #<SERVICE :NAME "lnvalarm" :ALIASES NIL :PORT 2282 :PROTO "tcp">
 #<SERVICE :NAME "lnvalarm" :ALIASES NIL :PORT 2282 :PROTO "udp">
 #<SERVICE :NAME "lnvstatus" :ALIASES NIL :PORT 2283 :PROTO "tcp">
 #<SERVICE :NAME "lnvstatus" :ALIASES NIL :PORT 2283 :PROTO "udp">
 #<SERVICE :NAME "lnvmaps" :ALIASES NIL :PORT 2284 :PROTO "tcp">
 #<SERVICE :NAME "lnvmaps" :ALIASES NIL :PORT 2284 :PROTO "udp">
 #<SERVICE :NAME "lnvmailmon" :ALIASES NIL :PORT 2285 :PROTO "tcp">
 #<SERVICE :NAME "lnvmailmon" :ALIASES NIL :PORT 2285 :PROTO "udp">
 #<SERVICE :NAME "nas-metering" :ALIASES NIL :PORT 2286 :PROTO "tcp">
 #<SERVICE :NAME "nas-metering" :ALIASES NIL :PORT 2286 :PROTO "udp">
 #<SERVICE :NAME "dna" :ALIASES NIL :PORT 2287 :PROTO "tcp">
 #<SERVICE :NAME "dna" :ALIASES NIL :PORT 2287 :PROTO "udp">
 #<SERVICE :NAME "netml" :ALIASES NIL :PORT 2288 :PROTO "tcp">
 #<SERVICE :NAME "netml" :ALIASES NIL :PORT 2288 :PROTO "udp">
 #<SERVICE :NAME "dict-lookup" :ALIASES NIL :PORT 2289 :PROTO "tcp">
 #<SERVICE :NAME "dict-lookup" :ALIASES NIL :PORT 2289 :PROTO "udp">
 #<SERVICE :NAME "sonus-logging" :ALIASES NIL :PORT 2290 :PROTO "tcp">
 #<SERVICE :NAME "sonus-logging" :ALIASES NIL :PORT 2290 :PROTO "udp">
 #<SERVICE :NAME "eapsp" :ALIASES NIL :PORT 2291 :PROTO "tcp">
 #<SERVICE :NAME "eapsp" :ALIASES NIL :PORT 2291 :PROTO "udp">
 #<SERVICE :NAME "mib-streaming" :ALIASES NIL :PORT 2292 :PROTO "tcp">
 #<SERVICE :NAME "mib-streaming" :ALIASES NIL :PORT 2292 :PROTO "udp">
 #<SERVICE :NAME "npdbgmngr" :ALIASES NIL :PORT 2293 :PROTO "tcp">
 #<SERVICE :NAME "npdbgmngr" :ALIASES NIL :PORT 2293 :PROTO "udp">
 #<SERVICE :NAME "konshus-lm" :ALIASES NIL :PORT 2294 :PROTO "tcp">
 #<SERVICE :NAME "konshus-lm" :ALIASES NIL :PORT 2294 :PROTO "udp">
 #<SERVICE :NAME "advant-lm" :ALIASES NIL :PORT 2295 :PROTO "tcp">
 #<SERVICE :NAME "advant-lm" :ALIASES NIL :PORT 2295 :PROTO "udp">
 #<SERVICE :NAME "theta-lm" :ALIASES NIL :PORT 2296 :PROTO "tcp">
 #<SERVICE :NAME "theta-lm" :ALIASES NIL :PORT 2296 :PROTO "udp">
 #<SERVICE :NAME "d2k-datamover1" :ALIASES NIL :PORT 2297 :PROTO "tcp">
 #<SERVICE :NAME "d2k-datamover1" :ALIASES NIL :PORT 2297 :PROTO "udp">
 #<SERVICE :NAME "d2k-datamover2" :ALIASES NIL :PORT 2298 :PROTO "tcp">
 #<SERVICE :NAME "d2k-datamover2" :ALIASES NIL :PORT 2298 :PROTO "udp">
 #<SERVICE :NAME "pc-telecommute" :ALIASES NIL :PORT 2299 :PROTO "tcp">
 #<SERVICE :NAME "pc-telecommute" :ALIASES NIL :PORT 2299 :PROTO "udp">
 #<SERVICE :NAME "cvmmon" :ALIASES NIL :PORT 2300 :PROTO "tcp">
 #<SERVICE :NAME "cvmmon" :ALIASES NIL :PORT 2300 :PROTO "udp">
 #<SERVICE :NAME "cpq-wbem" :ALIASES NIL :PORT 2301 :PROTO "tcp">
 #<SERVICE :NAME "cpq-wbem" :ALIASES NIL :PORT 2301 :PROTO "udp">
 #<SERVICE :NAME "binderysupport" :ALIASES NIL :PORT 2302 :PROTO "tcp">
 #<SERVICE :NAME "binderysupport" :ALIASES NIL :PORT 2302 :PROTO "udp">
 #<SERVICE :NAME "proxy-gateway" :ALIASES NIL :PORT 2303 :PROTO "tcp">
 #<SERVICE :NAME "proxy-gateway" :ALIASES NIL :PORT 2303 :PROTO "udp">
 #<SERVICE :NAME "attachmate-uts" :ALIASES NIL :PORT 2304 :PROTO "tcp">
 #<SERVICE :NAME "attachmate-uts" :ALIASES NIL :PORT 2304 :PROTO "udp">
 #<SERVICE :NAME "mt-scaleserver" :ALIASES NIL :PORT 2305 :PROTO "tcp">
 #<SERVICE :NAME "mt-scaleserver" :ALIASES NIL :PORT 2305 :PROTO "udp">
 #<SERVICE :NAME "tappi-boxnet" :ALIASES NIL :PORT 2306 :PROTO "tcp">
 #<SERVICE :NAME "tappi-boxnet" :ALIASES NIL :PORT 2306 :PROTO "udp">
 #<SERVICE :NAME "pehelp" :ALIASES NIL :PORT 2307 :PROTO "tcp">
 #<SERVICE :NAME "pehelp" :ALIASES NIL :PORT 2307 :PROTO "udp">
 #<SERVICE :NAME "sdhelp" :ALIASES NIL :PORT 2308 :PROTO "tcp">
 #<SERVICE :NAME "sdhelp" :ALIASES NIL :PORT 2308 :PROTO "udp">
 #<SERVICE :NAME "sdserver" :ALIASES NIL :PORT 2309 :PROTO "tcp">
 #<SERVICE :NAME "sdserver" :ALIASES NIL :PORT 2309 :PROTO "udp">
 #<SERVICE :NAME "sdclient" :ALIASES NIL :PORT 2310 :PROTO "tcp">
 #<SERVICE :NAME "sdclient" :ALIASES NIL :PORT 2310 :PROTO "udp">
 #<SERVICE :NAME "messageservice" :ALIASES NIL :PORT 2311 :PROTO "tcp">
 #<SERVICE :NAME "messageservice" :ALIASES NIL :PORT 2311 :PROTO "udp">
 #<SERVICE :NAME "wanscaler" :ALIASES NIL :PORT 2312 :PROTO "tcp">
 #<SERVICE :NAME "wanscaler" :ALIASES NIL :PORT 2312 :PROTO "udp">
 #<SERVICE :NAME "iapp" :ALIASES NIL :PORT 2313 :PROTO "tcp">
 #<SERVICE :NAME "iapp" :ALIASES NIL :PORT 2313 :PROTO "udp">
 #<SERVICE :NAME "cr-websystems" :ALIASES NIL :PORT 2314 :PROTO "tcp">
 #<SERVICE :NAME "cr-websystems" :ALIASES NIL :PORT 2314 :PROTO "udp">
 #<SERVICE :NAME "precise-sft" :ALIASES NIL :PORT 2315 :PROTO "tcp">
 #<SERVICE :NAME "precise-sft" :ALIASES NIL :PORT 2315 :PROTO "udp">
 #<SERVICE :NAME "sent-lm" :ALIASES NIL :PORT 2316 :PROTO "tcp">
 #<SERVICE :NAME "sent-lm" :ALIASES NIL :PORT 2316 :PROTO "udp">
 #<SERVICE :NAME "attachmate-g32" :ALIASES NIL :PORT 2317 :PROTO "tcp">
 #<SERVICE :NAME "attachmate-g32" :ALIASES NIL :PORT 2317 :PROTO "udp">
 #<SERVICE :NAME "cadencecontrol" :ALIASES NIL :PORT 2318 :PROTO "tcp">
 #<SERVICE :NAME "cadencecontrol" :ALIASES NIL :PORT 2318 :PROTO "udp">
 #<SERVICE :NAME "infolibria" :ALIASES NIL :PORT 2319 :PROTO "tcp">
 #<SERVICE :NAME "infolibria" :ALIASES NIL :PORT 2319 :PROTO "udp">
 #<SERVICE :NAME "siebel-ns" :ALIASES NIL :PORT 2320 :PROTO "tcp">
 #<SERVICE :NAME "siebel-ns" :ALIASES NIL :PORT 2320 :PROTO "udp">
 #<SERVICE :NAME "rdlap" :ALIASES NIL :PORT 2321 :PROTO "tcp">
 #<SERVICE :NAME "rdlap" :ALIASES NIL :PORT 2321 :PROTO "udp">
 #<SERVICE :NAME "ofsd" :ALIASES NIL :PORT 2322 :PROTO "tcp">
 #<SERVICE :NAME "ofsd" :ALIASES NIL :PORT 2322 :PROTO "udp">
 #<SERVICE :NAME "3d-nfsd" :ALIASES NIL :PORT 2323 :PROTO "tcp">
 #<SERVICE :NAME "3d-nfsd" :ALIASES NIL :PORT 2323 :PROTO "udp">
 #<SERVICE :NAME "cosmocall" :ALIASES NIL :PORT 2324 :PROTO "tcp">
 #<SERVICE :NAME "cosmocall" :ALIASES NIL :PORT 2324 :PROTO "udp">
 #<SERVICE :NAME "ansysli" :ALIASES NIL :PORT 2325 :PROTO "tcp">
 #<SERVICE :NAME "ansysli" :ALIASES NIL :PORT 2325 :PROTO "udp">
 #<SERVICE :NAME "idcp" :ALIASES NIL :PORT 2326 :PROTO "tcp">
 #<SERVICE :NAME "idcp" :ALIASES NIL :PORT 2326 :PROTO "udp">
 #<SERVICE :NAME "xingcsm" :ALIASES NIL :PORT 2327 :PROTO "tcp">
 #<SERVICE :NAME "xingcsm" :ALIASES NIL :PORT 2327 :PROTO "udp">
 #<SERVICE :NAME "netrix-sftm" :ALIASES NIL :PORT 2328 :PROTO "tcp">
 #<SERVICE :NAME "netrix-sftm" :ALIASES NIL :PORT 2328 :PROTO "udp">
 #<SERVICE :NAME "tscchat" :ALIASES NIL :PORT 2330 :PROTO "tcp">
 #<SERVICE :NAME "tscchat" :ALIASES NIL :PORT 2330 :PROTO "udp">
 #<SERVICE :NAME "agentview" :ALIASES NIL :PORT 2331 :PROTO "tcp">
 #<SERVICE :NAME "agentview" :ALIASES NIL :PORT 2331 :PROTO "udp">
 #<SERVICE :NAME "rcc-host" :ALIASES NIL :PORT 2332 :PROTO "tcp">
 #<SERVICE :NAME "rcc-host" :ALIASES NIL :PORT 2332 :PROTO "udp">
 #<SERVICE :NAME "snapp" :ALIASES NIL :PORT 2333 :PROTO "tcp">
 #<SERVICE :NAME "snapp" :ALIASES NIL :PORT 2333 :PROTO "udp">
 #<SERVICE :NAME "ace-client" :ALIASES NIL :PORT 2334 :PROTO "tcp">
 #<SERVICE :NAME "ace-client" :ALIASES NIL :PORT 2334 :PROTO "udp">
 #<SERVICE :NAME "ace-proxy" :ALIASES NIL :PORT 2335 :PROTO "tcp">
 #<SERVICE :NAME "ace-proxy" :ALIASES NIL :PORT 2335 :PROTO "udp">
 #<SERVICE :NAME "appleugcontrol" :ALIASES NIL :PORT 2336 :PROTO "tcp">
 #<SERVICE :NAME "appleugcontrol" :ALIASES NIL :PORT 2336 :PROTO "udp">
 #<SERVICE :NAME "ideesrv" :ALIASES NIL :PORT 2337 :PROTO "tcp">
 #<SERVICE :NAME "ideesrv" :ALIASES NIL :PORT 2337 :PROTO "udp">
 #<SERVICE :NAME "norton-lambert" :ALIASES NIL :PORT 2338 :PROTO "tcp">
 #<SERVICE :NAME "norton-lambert" :ALIASES NIL :PORT 2338 :PROTO "udp">
 #<SERVICE :NAME "3com-webview" :ALIASES NIL :PORT 2339 :PROTO "tcp">
 #<SERVICE :NAME "3com-webview" :ALIASES NIL :PORT 2339 :PROTO "udp">
 #<SERVICE :NAME "wrs_registry" :ALIASES ("wrs-registry") :PORT 2340
   :PROTO "tcp">
 #<SERVICE :NAME "wrs_registry" :ALIASES ("wrs-registry") :PORT 2340
   :PROTO "udp">
 #<SERVICE :NAME "xiostatus" :ALIASES NIL :PORT 2341 :PROTO "tcp">
 #<SERVICE :NAME "xiostatus" :ALIASES NIL :PORT 2341 :PROTO "udp">
 #<SERVICE :NAME "manage-exec" :ALIASES NIL :PORT 2342 :PROTO "tcp">
 #<SERVICE :NAME "manage-exec" :ALIASES NIL :PORT 2342 :PROTO "udp">
 #<SERVICE :NAME "nati-logos" :ALIASES NIL :PORT 2343 :PROTO "tcp">
 #<SERVICE :NAME "nati-logos" :ALIASES NIL :PORT 2343 :PROTO "udp">
 #<SERVICE :NAME "fcmsys" :ALIASES NIL :PORT 2344 :PROTO "tcp">
 #<SERVICE :NAME "fcmsys" :ALIASES NIL :PORT 2344 :PROTO "udp">
 #<SERVICE :NAME "dbm" :ALIASES NIL :PORT 2345 :PROTO "tcp">
 #<SERVICE :NAME "dbm" :ALIASES NIL :PORT 2345 :PROTO "udp">
 #<SERVICE :NAME "redstorm_join" :ALIASES ("redstorm-join") :PORT 2346
   :PROTO "tcp">
 #<SERVICE :NAME "redstorm_join" :ALIASES ("redstorm-join") :PORT 2346
   :PROTO "udp">
 #<SERVICE :NAME "redstorm_find" :ALIASES ("redstorm-find") :PORT 2347
   :PROTO "tcp">
 #<SERVICE :NAME "redstorm_find" :ALIASES ("redstorm-find") :PORT 2347
   :PROTO "udp">
 #<SERVICE :NAME "redstorm_info" :ALIASES ("redstorm-info") :PORT 2348
   :PROTO "tcp">
 #<SERVICE :NAME "redstorm_info" :ALIASES ("redstorm-info") :PORT 2348
   :PROTO "udp">
 #<SERVICE :NAME "redstorm_diag" :ALIASES ("redstorm-diag") :PORT 2349
   :PROTO "tcp">
 #<SERVICE :NAME "redstorm_diag" :ALIASES ("redstorm-diag") :PORT 2349
   :PROTO "udp">
 #<SERVICE :NAME "psbserver" :ALIASES NIL :PORT 2350 :PROTO "tcp">
 #<SERVICE :NAME "psbserver" :ALIASES NIL :PORT 2350 :PROTO "udp">
 #<SERVICE :NAME "psrserver" :ALIASES NIL :PORT 2351 :PROTO "tcp">
 #<SERVICE :NAME "psrserver" :ALIASES NIL :PORT 2351 :PROTO "udp">
 #<SERVICE :NAME "pslserver" :ALIASES NIL :PORT 2352 :PROTO "tcp">
 #<SERVICE :NAME "pslserver" :ALIASES NIL :PORT 2352 :PROTO "udp">
 #<SERVICE :NAME "pspserver" :ALIASES NIL :PORT 2353 :PROTO "tcp">
 #<SERVICE :NAME "pspserver" :ALIASES NIL :PORT 2353 :PROTO "udp">
 #<SERVICE :NAME "psprserver" :ALIASES NIL :PORT 2354 :PROTO "tcp">
 #<SERVICE :NAME "psprserver" :ALIASES NIL :PORT 2354 :PROTO "udp">
 #<SERVICE :NAME "psdbserver" :ALIASES NIL :PORT 2355 :PROTO "tcp">
 #<SERVICE :NAME "psdbserver" :ALIASES NIL :PORT 2355 :PROTO "udp">
 #<SERVICE :NAME "gxtelmd" :ALIASES NIL :PORT 2356 :PROTO "tcp">
 #<SERVICE :NAME "gxtelmd" :ALIASES NIL :PORT 2356 :PROTO "udp">
 #<SERVICE :NAME "unihub-server" :ALIASES NIL :PORT 2357 :PROTO "tcp">
 #<SERVICE :NAME "unihub-server" :ALIASES NIL :PORT 2357 :PROTO "udp">
 #<SERVICE :NAME "futrix" :ALIASES NIL :PORT 2358 :PROTO "tcp">
 #<SERVICE :NAME "futrix" :ALIASES NIL :PORT 2358 :PROTO "udp">
 #<SERVICE :NAME "flukeserver" :ALIASES NIL :PORT 2359 :PROTO "tcp">
 #<SERVICE :NAME "flukeserver" :ALIASES NIL :PORT 2359 :PROTO "udp">
 #<SERVICE :NAME "nexstorindltd" :ALIASES NIL :PORT 2360 :PROTO "tcp">
 #<SERVICE :NAME "nexstorindltd" :ALIASES NIL :PORT 2360 :PROTO "udp">
 #<SERVICE :NAME "tl1" :ALIASES NIL :PORT 2361 :PROTO "tcp">
 #<SERVICE :NAME "tl1" :ALIASES NIL :PORT 2361 :PROTO "udp">
 #<SERVICE :NAME "digiman" :ALIASES NIL :PORT 2362 :PROTO "tcp">
 #<SERVICE :NAME "digiman" :ALIASES NIL :PORT 2362 :PROTO "udp">
 #<SERVICE :NAME "mediacntrlnfsd" :ALIASES NIL :PORT 2363 :PROTO "tcp">
 #<SERVICE :NAME "mediacntrlnfsd" :ALIASES NIL :PORT 2363 :PROTO "udp">
 #<SERVICE :NAME "oi-2000" :ALIASES NIL :PORT 2364 :PROTO "tcp">
 #<SERVICE :NAME "oi-2000" :ALIASES NIL :PORT 2364 :PROTO "udp">
 #<SERVICE :NAME "dbref" :ALIASES NIL :PORT 2365 :PROTO "tcp">
 #<SERVICE :NAME "dbref" :ALIASES NIL :PORT 2365 :PROTO "udp">
 #<SERVICE :NAME "qip-login" :ALIASES NIL :PORT 2366 :PROTO "tcp">
 #<SERVICE :NAME "qip-login" :ALIASES NIL :PORT 2366 :PROTO "udp">
 #<SERVICE :NAME "service-ctrl" :ALIASES NIL :PORT 2367 :PROTO "tcp">
 #<SERVICE :NAME "service-ctrl" :ALIASES NIL :PORT 2367 :PROTO "udp">
 #<SERVICE :NAME "opentable" :ALIASES NIL :PORT 2368 :PROTO "tcp">
 #<SERVICE :NAME "opentable" :ALIASES NIL :PORT 2368 :PROTO "udp">
 #<SERVICE :NAME "l3-hbmon" :ALIASES NIL :PORT 2370 :PROTO "tcp">
 #<SERVICE :NAME "l3-hbmon" :ALIASES NIL :PORT 2370 :PROTO "udp">
 #<SERVICE :NAME "hp-rda" :ALIASES NIL :PORT 2371 :PROTO "tcp">
 #<SERVICE :NAME "lanmessenger" :ALIASES NIL :PORT 2372 :PROTO "tcp">
 #<SERVICE :NAME "lanmessenger" :ALIASES NIL :PORT 2372 :PROTO "udp">
 #<SERVICE :NAME "remographlm" :ALIASES NIL :PORT 2373 :PROTO "tcp">
 #<SERVICE :NAME "docker" :ALIASES NIL :PORT 2375 :PROTO "tcp">
 #<SERVICE :NAME "docker-s" :ALIASES NIL :PORT 2376 :PROTO "tcp">
 #<SERVICE :NAME "etcd-client" :ALIASES NIL :PORT 2379 :PROTO "tcp">
 #<SERVICE :NAME "etcd-server" :ALIASES NIL :PORT 2380 :PROTO "tcp">
 #<SERVICE :NAME "hydra" :ALIASES NIL :PORT 2374 :PROTO "tcp">
 #<SERVICE :NAME "compaq-https" :ALIASES NIL :PORT 2381 :PROTO "tcp">
 #<SERVICE :NAME "compaq-https" :ALIASES NIL :PORT 2381 :PROTO "udp">
 #<SERVICE :NAME "ms-olap3" :ALIASES NIL :PORT 2382 :PROTO "tcp">
 #<SERVICE :NAME "ms-olap3" :ALIASES NIL :PORT 2382 :PROTO "udp">
 #<SERVICE :NAME "ms-olap4" :ALIASES NIL :PORT 2383 :PROTO "tcp">
 #<SERVICE :NAME "ms-olap4" :ALIASES NIL :PORT 2383 :PROTO "udp">
 #<SERVICE :NAME "sd-request" :ALIASES NIL :PORT 2384 :PROTO "tcp">
 #<SERVICE :NAME "sd-capacity" :ALIASES NIL :PORT 2384 :PROTO "udp">
 #<SERVICE :NAME "sd-data" :ALIASES NIL :PORT 2385 :PROTO "tcp">
 #<SERVICE :NAME "sd-data" :ALIASES NIL :PORT 2385 :PROTO "udp">
 #<SERVICE :NAME "virtualtape" :ALIASES NIL :PORT 2386 :PROTO "tcp">
 #<SERVICE :NAME "virtualtape" :ALIASES NIL :PORT 2386 :PROTO "udp">
 #<SERVICE :NAME "vsamredirector" :ALIASES NIL :PORT 2387 :PROTO "tcp">
 #<SERVICE :NAME "vsamredirector" :ALIASES NIL :PORT 2387 :PROTO "udp">
 #<SERVICE :NAME "mynahautostart" :ALIASES NIL :PORT 2388 :PROTO "tcp">
 #<SERVICE :NAME "mynahautostart" :ALIASES NIL :PORT 2388 :PROTO "udp">
 #<SERVICE :NAME "ovsessionmgr" :ALIASES NIL :PORT 2389 :PROTO "tcp">
 #<SERVICE :NAME "ovsessionmgr" :ALIASES NIL :PORT 2389 :PROTO "udp">
 #<SERVICE :NAME "rsmtp" :ALIASES NIL :PORT 2390 :PROTO "tcp">
 #<SERVICE :NAME "rsmtp" :ALIASES NIL :PORT 2390 :PROTO "udp">
 #<SERVICE :NAME "3com-net-mgmt" :ALIASES NIL :PORT 2391 :PROTO "tcp">
 #<SERVICE :NAME "3com-net-mgmt" :ALIASES NIL :PORT 2391 :PROTO "udp">
 #<SERVICE :NAME "tacticalauth" :ALIASES NIL :PORT 2392 :PROTO "tcp">
 #<SERVICE :NAME "tacticalauth" :ALIASES NIL :PORT 2392 :PROTO "udp">
 #<SERVICE :NAME "ms-olap1" :ALIASES NIL :PORT 2393 :PROTO "tcp">
 #<SERVICE :NAME "ms-olap1" :ALIASES NIL :PORT 2393 :PROTO "udp">
 #<SERVICE :NAME "ms-olap2" :ALIASES NIL :PORT 2394 :PROTO "tcp">
 #<SERVICE :NAME "ms-olap2" :ALIASES NIL :PORT 2394 :PROTO "udp">
 #<SERVICE :NAME "lan900_remote" :ALIASES ("lan900-remote") :PORT 2395
   :PROTO "tcp">
 #<SERVICE :NAME "lan900_remote" :ALIASES ("lan900-remote") :PORT 2395
   :PROTO "udp">
 #<SERVICE :NAME "wusage" :ALIASES NIL :PORT 2396 :PROTO "tcp">
 #<SERVICE :NAME "wusage" :ALIASES NIL :PORT 2396 :PROTO "udp">
 #<SERVICE :NAME "ncl" :ALIASES NIL :PORT 2397 :PROTO "tcp">
 #<SERVICE :NAME "ncl" :ALIASES NIL :PORT 2397 :PROTO "udp">
 #<SERVICE :NAME "orbiter" :ALIASES NIL :PORT 2398 :PROTO "tcp">
 #<SERVICE :NAME "orbiter" :ALIASES NIL :PORT 2398 :PROTO "udp">
 #<SERVICE :NAME "fmpro-fdal" :ALIASES NIL :PORT 2399 :PROTO "tcp">
 #<SERVICE :NAME "fmpro-fdal" :ALIASES NIL :PORT 2399 :PROTO "udp">
 #<SERVICE :NAME "opequus-server" :ALIASES NIL :PORT 2400 :PROTO "tcp">
 #<SERVICE :NAME "opequus-server" :ALIASES NIL :PORT 2400 :PROTO "udp">
 #<SERVICE :NAME "taskmaster2000" :ALIASES NIL :PORT 2402 :PROTO "tcp">
 #<SERVICE :NAME "taskmaster2000" :ALIASES NIL :PORT 2402 :PROTO "udp">
 #<SERVICE :NAME "iec-104" :ALIASES NIL :PORT 2404 :PROTO "tcp">
 #<SERVICE :NAME "iec-104" :ALIASES NIL :PORT 2404 :PROTO "udp">
 #<SERVICE :NAME "trc-netpoll" :ALIASES NIL :PORT 2405 :PROTO "tcp">
 #<SERVICE :NAME "trc-netpoll" :ALIASES NIL :PORT 2405 :PROTO "udp">
 #<SERVICE :NAME "jediserver" :ALIASES NIL :PORT 2406 :PROTO "tcp">
 #<SERVICE :NAME "jediserver" :ALIASES NIL :PORT 2406 :PROTO "udp">
 #<SERVICE :NAME "orion" :ALIASES NIL :PORT 2407 :PROTO "tcp">
 #<SERVICE :NAME "orion" :ALIASES NIL :PORT 2407 :PROTO "udp">
 #<SERVICE :NAME "railgun-webaccl" :ALIASES NIL :PORT 2408 :PROTO "tcp">
 #<SERVICE :NAME "sns-protocol" :ALIASES NIL :PORT 2409 :PROTO "tcp">
 #<SERVICE :NAME "sns-protocol" :ALIASES NIL :PORT 2409 :PROTO "udp">
 #<SERVICE :NAME "vrts-registry" :ALIASES NIL :PORT 2410 :PROTO "tcp">
 #<SERVICE :NAME "vrts-registry" :ALIASES NIL :PORT 2410 :PROTO "udp">
 #<SERVICE :NAME "netwave-ap-mgmt" :ALIASES NIL :PORT 2411 :PROTO "tcp">
 #<SERVICE :NAME "netwave-ap-mgmt" :ALIASES NIL :PORT 2411 :PROTO "udp">
 #<SERVICE :NAME "cdn" :ALIASES NIL :PORT 2412 :PROTO "tcp">
 #<SERVICE :NAME "cdn" :ALIASES NIL :PORT 2412 :PROTO "udp">
 #<SERVICE :NAME "orion-rmi-reg" :ALIASES NIL :PORT 2413 :PROTO "tcp">
 #<SERVICE :NAME "orion-rmi-reg" :ALIASES NIL :PORT 2413 :PROTO "udp">
 #<SERVICE :NAME "beeyond" :ALIASES NIL :PORT 2414 :PROTO "tcp">
 #<SERVICE :NAME "beeyond" :ALIASES NIL :PORT 2414 :PROTO "udp">
 #<SERVICE :NAME "codima-rtp" :ALIASES NIL :PORT 2415 :PROTO "tcp">
 #<SERVICE :NAME "codima-rtp" :ALIASES NIL :PORT 2415 :PROTO "udp">
 #<SERVICE :NAME "rmtserver" :ALIASES NIL :PORT 2416 :PROTO "tcp">
 #<SERVICE :NAME "rmtserver" :ALIASES NIL :PORT 2416 :PROTO "udp">
 #<SERVICE :NAME "composit-server" :ALIASES NIL :PORT 2417 :PROTO "tcp">
 #<SERVICE :NAME "composit-server" :ALIASES NIL :PORT 2417 :PROTO "udp">
 #<SERVICE :NAME "cas" :ALIASES NIL :PORT 2418 :PROTO "tcp">
 #<SERVICE :NAME "cas" :ALIASES NIL :PORT 2418 :PROTO "udp">
 #<SERVICE :NAME "attachmate-s2s" :ALIASES NIL :PORT 2419 :PROTO "tcp">
 #<SERVICE :NAME "attachmate-s2s" :ALIASES NIL :PORT 2419 :PROTO "udp">
 #<SERVICE :NAME "dslremote-mgmt" :ALIASES NIL :PORT 2420 :PROTO "tcp">
 #<SERVICE :NAME "dslremote-mgmt" :ALIASES NIL :PORT 2420 :PROTO "udp">
 #<SERVICE :NAME "g-talk" :ALIASES NIL :PORT 2421 :PROTO "tcp">
 #<SERVICE :NAME "g-talk" :ALIASES NIL :PORT 2421 :PROTO "udp">
 #<SERVICE :NAME "crmsbits" :ALIASES NIL :PORT 2422 :PROTO "tcp">
 #<SERVICE :NAME "crmsbits" :ALIASES NIL :PORT 2422 :PROTO "udp">
 #<SERVICE :NAME "rnrp" :ALIASES NIL :PORT 2423 :PROTO "tcp">
 #<SERVICE :NAME "rnrp" :ALIASES NIL :PORT 2423 :PROTO "udp">
 #<SERVICE :NAME "kofax-svr" :ALIASES NIL :PORT 2424 :PROTO "tcp">
 #<SERVICE :NAME "kofax-svr" :ALIASES NIL :PORT 2424 :PROTO "udp">
 #<SERVICE :NAME "fjitsuappmgr" :ALIASES NIL :PORT 2425 :PROTO "tcp">
 #<SERVICE :NAME "fjitsuappmgr" :ALIASES NIL :PORT 2425 :PROTO "udp">
 #<SERVICE :NAME "vcmp" :ALIASES NIL :PORT 2426 :PROTO "tcp">
 #<SERVICE :NAME "vcmp" :ALIASES NIL :PORT 2426 :PROTO "udp">
 #<SERVICE :NAME "mgcp-gateway" :ALIASES NIL :PORT 2427 :PROTO "tcp">
 #<SERVICE :NAME "mgcp-gateway" :ALIASES NIL :PORT 2427 :PROTO "udp">
 #<SERVICE :NAME "ott" :ALIASES NIL :PORT 2428 :PROTO "tcp">
 #<SERVICE :NAME "ott" :ALIASES NIL :PORT 2428 :PROTO "udp">
 #<SERVICE :NAME "ft-role" :ALIASES NIL :PORT 2429 :PROTO "tcp">
 #<SERVICE :NAME "ft-role" :ALIASES NIL :PORT 2429 :PROTO "udp">
 #<SERVICE :NAME "pxc-epmap" :ALIASES NIL :PORT 2434 :PROTO "tcp">
 #<SERVICE :NAME "pxc-epmap" :ALIASES NIL :PORT 2434 :PROTO "udp">
 #<SERVICE :NAME "optilogic" :ALIASES NIL :PORT 2435 :PROTO "tcp">
 #<SERVICE :NAME "optilogic" :ALIASES NIL :PORT 2435 :PROTO "udp">
 #<SERVICE :NAME "topx" :ALIASES NIL :PORT 2436 :PROTO "tcp">
 #<SERVICE :NAME "topx" :ALIASES NIL :PORT 2436 :PROTO "udp">
 #<SERVICE :NAME "sybasedbsynch" :ALIASES NIL :PORT 2439 :PROTO "tcp">
 #<SERVICE :NAME "sybasedbsynch" :ALIASES NIL :PORT 2439 :PROTO "udp">
 #<SERVICE :NAME "spearway" :ALIASES NIL :PORT 2440 :PROTO "tcp">
 #<SERVICE :NAME "spearway" :ALIASES NIL :PORT 2440 :PROTO "udp">
 #<SERVICE :NAME "pvsw-inet" :ALIASES NIL :PORT 2441 :PROTO "tcp">
 #<SERVICE :NAME "pvsw-inet" :ALIASES NIL :PORT 2441 :PROTO "udp">
 #<SERVICE :NAME "netangel" :ALIASES NIL :PORT 2442 :PROTO "tcp">
 #<SERVICE :NAME "netangel" :ALIASES NIL :PORT 2442 :PROTO "udp">
 #<SERVICE :NAME "powerclientcsf" :ALIASES NIL :PORT 2443 :PROTO "tcp">
 #<SERVICE :NAME "powerclientcsf" :ALIASES NIL :PORT 2443 :PROTO "udp">
 #<SERVICE :NAME "btpp2sectrans" :ALIASES NIL :PORT 2444 :PROTO "tcp">
 #<SERVICE :NAME "btpp2sectrans" :ALIASES NIL :PORT 2444 :PROTO "udp">
 #<SERVICE :NAME "dtn1" :ALIASES NIL :PORT 2445 :PROTO "tcp">
 #<SERVICE :NAME "dtn1" :ALIASES NIL :PORT 2445 :PROTO "udp">
 #<SERVICE :NAME "bues_service" :ALIASES ("bues-service") :PORT 2446
   :PROTO "tcp">
 #<SERVICE :NAME "bues_service" :ALIASES ("bues-service") :PORT 2446
   :PROTO "udp">
 #<SERVICE :NAME "ovwdb" :ALIASES NIL :PORT 2447 :PROTO "tcp">
 #<SERVICE :NAME "ovwdb" :ALIASES NIL :PORT 2447 :PROTO "udp">
 #<SERVICE :NAME "hpppssvr" :ALIASES NIL :PORT 2448 :PROTO "tcp">
 #<SERVICE :NAME "hpppssvr" :ALIASES NIL :PORT 2448 :PROTO "udp">
 #<SERVICE :NAME "ratl" :ALIASES NIL :PORT 2449 :PROTO "tcp">
 #<SERVICE :NAME "ratl" :ALIASES NIL :PORT 2449 :PROTO "udp">
 #<SERVICE :NAME "netadmin" :ALIASES NIL :PORT 2450 :PROTO "tcp">
 #<SERVICE :NAME "netadmin" :ALIASES NIL :PORT 2450 :PROTO "udp">
 #<SERVICE :NAME "netchat" :ALIASES NIL :PORT 2451 :PROTO "tcp">
 #<SERVICE :NAME "netchat" :ALIASES NIL :PORT 2451 :PROTO "udp">
 #<SERVICE :NAME "snifferclient" :ALIASES NIL :PORT 2452 :PROTO "tcp">
 #<SERVICE :NAME "snifferclient" :ALIASES NIL :PORT 2452 :PROTO "udp">
 #<SERVICE :NAME "madge-ltd" :ALIASES NIL :PORT 2453 :PROTO "tcp">
 #<SERVICE :NAME "madge-ltd" :ALIASES NIL :PORT 2453 :PROTO "udp">
 #<SERVICE :NAME "indx-dds" :ALIASES NIL :PORT 2454 :PROTO "tcp">
 #<SERVICE :NAME "indx-dds" :ALIASES NIL :PORT 2454 :PROTO "udp">
 #<SERVICE :NAME "wago-io-system" :ALIASES NIL :PORT 2455 :PROTO "tcp">
 #<SERVICE :NAME "wago-io-system" :ALIASES NIL :PORT 2455 :PROTO "udp">
 #<SERVICE :NAME "altav-remmgt" :ALIASES NIL :PORT 2456 :PROTO "tcp">
 #<SERVICE :NAME "altav-remmgt" :ALIASES NIL :PORT 2456 :PROTO "udp">
 #<SERVICE :NAME "rapido-ip" :ALIASES NIL :PORT 2457 :PROTO "tcp">
 #<SERVICE :NAME "rapido-ip" :ALIASES NIL :PORT 2457 :PROTO "udp">
 #<SERVICE :NAME "griffin" :ALIASES NIL :PORT 2458 :PROTO "tcp">
 #<SERVICE :NAME "griffin" :ALIASES NIL :PORT 2458 :PROTO "udp">
 #<SERVICE :NAME "community" :ALIASES NIL :PORT 2459 :PROTO "tcp">
 #<SERVICE :NAME "community" :ALIASES NIL :PORT 2459 :PROTO "udp">
 #<SERVICE :NAME "ms-theater" :ALIASES NIL :PORT 2460 :PROTO "tcp">
 #<SERVICE :NAME "ms-theater" :ALIASES NIL :PORT 2460 :PROTO "udp">
 #<SERVICE :NAME "qadmifoper" :ALIASES NIL :PORT 2461 :PROTO "tcp">
 #<SERVICE :NAME "qadmifoper" :ALIASES NIL :PORT 2461 :PROTO "udp">
 #<SERVICE :NAME "qadmifevent" :ALIASES NIL :PORT 2462 :PROTO "tcp">
 #<SERVICE :NAME "qadmifevent" :ALIASES NIL :PORT 2462 :PROTO "udp">
 #<SERVICE :NAME "lsi-raid-mgmt" :ALIASES NIL :PORT 2463 :PROTO "tcp">
 #<SERVICE :NAME "lsi-raid-mgmt" :ALIASES NIL :PORT 2463 :PROTO "udp">
 #<SERVICE :NAME "direcpc-si" :ALIASES NIL :PORT 2464 :PROTO "tcp">
 #<SERVICE :NAME "direcpc-si" :ALIASES NIL :PORT 2464 :PROTO "udp">
 #<SERVICE :NAME "lbm" :ALIASES NIL :PORT 2465 :PROTO "tcp">
 #<SERVICE :NAME "lbm" :ALIASES NIL :PORT 2465 :PROTO "udp">
 #<SERVICE :NAME "lbf" :ALIASES NIL :PORT 2466 :PROTO "tcp">
 #<SERVICE :NAME "lbf" :ALIASES NIL :PORT 2466 :PROTO "udp">
 #<SERVICE :NAME "high-criteria" :ALIASES NIL :PORT 2467 :PROTO "tcp">
 #<SERVICE :NAME "high-criteria" :ALIASES NIL :PORT 2467 :PROTO "udp">
 #<SERVICE :NAME "qip-msgd" :ALIASES NIL :PORT 2468 :PROTO "tcp">
 #<SERVICE :NAME "qip-msgd" :ALIASES NIL :PORT 2468 :PROTO "udp">
 #<SERVICE :NAME "mti-tcs-comm" :ALIASES NIL :PORT 2469 :PROTO "tcp">
 #<SERVICE :NAME "mti-tcs-comm" :ALIASES NIL :PORT 2469 :PROTO "udp">
 #<SERVICE :NAME "taskman-port" :ALIASES NIL :PORT 2470 :PROTO "tcp">
 #<SERVICE :NAME "taskman-port" :ALIASES NIL :PORT 2470 :PROTO "udp">
 #<SERVICE :NAME "seaodbc" :ALIASES NIL :PORT 2471 :PROTO "tcp">
 #<SERVICE :NAME "seaodbc" :ALIASES NIL :PORT 2471 :PROTO "udp">
 #<SERVICE :NAME "c3" :ALIASES NIL :PORT 2472 :PROTO "tcp">
 #<SERVICE :NAME "c3" :ALIASES NIL :PORT 2472 :PROTO "udp">
 #<SERVICE :NAME "aker-cdp" :ALIASES NIL :PORT 2473 :PROTO "tcp">
 #<SERVICE :NAME "aker-cdp" :ALIASES NIL :PORT 2473 :PROTO "udp">
 #<SERVICE :NAME "vitalanalysis" :ALIASES NIL :PORT 2474 :PROTO "tcp">
 #<SERVICE :NAME "vitalanalysis" :ALIASES NIL :PORT 2474 :PROTO "udp">
 #<SERVICE :NAME "ace-server" :ALIASES NIL :PORT 2475 :PROTO "tcp">
 #<SERVICE :NAME "ace-server" :ALIASES NIL :PORT 2475 :PROTO "udp">
 #<SERVICE :NAME "ace-svr-prop" :ALIASES NIL :PORT 2476 :PROTO "tcp">
 #<SERVICE :NAME "ace-svr-prop" :ALIASES NIL :PORT 2476 :PROTO "udp">
 #<SERVICE :NAME "ssm-cvs" :ALIASES NIL :PORT 2477 :PROTO "tcp">
 #<SERVICE :NAME "ssm-cvs" :ALIASES NIL :PORT 2477 :PROTO "udp">
 #<SERVICE :NAME "ssm-cssps" :ALIASES NIL :PORT 2478 :PROTO "tcp">
 #<SERVICE :NAME "ssm-cssps" :ALIASES NIL :PORT 2478 :PROTO "udp">
 #<SERVICE :NAME "ssm-els" :ALIASES NIL :PORT 2479 :PROTO "tcp">
 #<SERVICE :NAME "ssm-els" :ALIASES NIL :PORT 2479 :PROTO "udp">
 #<SERVICE :NAME "powerexchange" :ALIASES NIL :PORT 2480 :PROTO "tcp">
 #<SERVICE :NAME "powerexchange" :ALIASES NIL :PORT 2480 :PROTO "udp">
 #<SERVICE :NAME "giop" :ALIASES NIL :PORT 2481 :PROTO "tcp">
 #<SERVICE :NAME "giop" :ALIASES NIL :PORT 2481 :PROTO "udp">
 #<SERVICE :NAME "giop-ssl" :ALIASES NIL :PORT 2482 :PROTO "tcp">
 #<SERVICE :NAME "giop-ssl" :ALIASES NIL :PORT 2482 :PROTO "udp">
 #<SERVICE :NAME "ttc" :ALIASES NIL :PORT 2483 :PROTO "tcp">
 #<SERVICE :NAME "ttc" :ALIASES NIL :PORT 2483 :PROTO "udp">
 #<SERVICE :NAME "ttc-ssl" :ALIASES NIL :PORT 2484 :PROTO "tcp">
 #<SERVICE :NAME "ttc-ssl" :ALIASES NIL :PORT 2484 :PROTO "udp">
 #<SERVICE :NAME "netobjects1" :ALIASES NIL :PORT 2485 :PROTO "tcp">
 #<SERVICE :NAME "netobjects1" :ALIASES NIL :PORT 2485 :PROTO "udp">
 #<SERVICE :NAME "netobjects2" :ALIASES NIL :PORT 2486 :PROTO "tcp">
 #<SERVICE :NAME "netobjects2" :ALIASES NIL :PORT 2486 :PROTO "udp">
 #<SERVICE :NAME "pns" :ALIASES NIL :PORT 2487 :PROTO "tcp">
 #<SERVICE :NAME "pns" :ALIASES NIL :PORT 2487 :PROTO "udp">
 #<SERVICE :NAME "moy-corp" :ALIASES NIL :PORT 2488 :PROTO "tcp">
 #<SERVICE :NAME "moy-corp" :ALIASES NIL :PORT 2488 :PROTO "udp">
 #<SERVICE :NAME "tsilb" :ALIASES NIL :PORT 2489 :PROTO "tcp">
 #<SERVICE :NAME "tsilb" :ALIASES NIL :PORT 2489 :PROTO "udp">
 #<SERVICE :NAME "qip-qdhcp" :ALIASES NIL :PORT 2490 :PROTO "tcp">
 #<SERVICE :NAME "qip-qdhcp" :ALIASES NIL :PORT 2490 :PROTO "udp">
 #<SERVICE :NAME "conclave-cpp" :ALIASES NIL :PORT 2491 :PROTO "tcp">
 #<SERVICE :NAME "conclave-cpp" :ALIASES NIL :PORT 2491 :PROTO "udp">
 #<SERVICE :NAME "groove" :ALIASES NIL :PORT 2492 :PROTO "tcp">
 #<SERVICE :NAME "groove" :ALIASES NIL :PORT 2492 :PROTO "udp">
 #<SERVICE :NAME "talarian-mqs" :ALIASES NIL :PORT 2493 :PROTO "tcp">
 #<SERVICE :NAME "talarian-mqs" :ALIASES NIL :PORT 2493 :PROTO "udp">
 #<SERVICE :NAME "bmc-ar" :ALIASES NIL :PORT 2494 :PROTO "tcp">
 #<SERVICE :NAME "bmc-ar" :ALIASES NIL :PORT 2494 :PROTO "udp">
 #<SERVICE :NAME "fast-rem-serv" :ALIASES NIL :PORT 2495 :PROTO "tcp">
 #<SERVICE :NAME "fast-rem-serv" :ALIASES NIL :PORT 2495 :PROTO "udp">
 #<SERVICE :NAME "dirgis" :ALIASES NIL :PORT 2496 :PROTO "tcp">
 #<SERVICE :NAME "dirgis" :ALIASES NIL :PORT 2496 :PROTO "udp">
 #<SERVICE :NAME "quaddb" :ALIASES NIL :PORT 2497 :PROTO "tcp">
 #<SERVICE :NAME "quaddb" :ALIASES NIL :PORT 2497 :PROTO "udp">
 #<SERVICE :NAME "odn-castraq" :ALIASES NIL :PORT 2498 :PROTO "tcp">
 #<SERVICE :NAME "odn-castraq" :ALIASES NIL :PORT 2498 :PROTO "udp">
 #<SERVICE :NAME "rtsserv" :ALIASES NIL :PORT 2500 :PROTO "tcp">
 #<SERVICE :NAME "rtsserv" :ALIASES NIL :PORT 2500 :PROTO "udp">
 #<SERVICE :NAME "rtsclient" :ALIASES NIL :PORT 2501 :PROTO "tcp">
 #<SERVICE :NAME "rtsclient" :ALIASES NIL :PORT 2501 :PROTO "udp">
 #<SERVICE :NAME "kentrox-prot" :ALIASES NIL :PORT 2502 :PROTO "tcp">
 #<SERVICE :NAME "kentrox-prot" :ALIASES NIL :PORT 2502 :PROTO "udp">
 #<SERVICE :NAME "nms-dpnss" :ALIASES NIL :PORT 2503 :PROTO "tcp">
 #<SERVICE :NAME "nms-dpnss" :ALIASES NIL :PORT 2503 :PROTO "udp">
 #<SERVICE :NAME "wlbs" :ALIASES NIL :PORT 2504 :PROTO "tcp">
 #<SERVICE :NAME "wlbs" :ALIASES NIL :PORT 2504 :PROTO "udp">
 #<SERVICE :NAME "ppcontrol" :ALIASES NIL :PORT 2505 :PROTO "tcp">
 #<SERVICE :NAME "ppcontrol" :ALIASES NIL :PORT 2505 :PROTO "udp">
 #<SERVICE :NAME "jbroker" :ALIASES NIL :PORT 2506 :PROTO "tcp">
 #<SERVICE :NAME "jbroker" :ALIASES NIL :PORT 2506 :PROTO "udp">
 #<SERVICE :NAME "spock" :ALIASES NIL :PORT 2507 :PROTO "tcp">
 #<SERVICE :NAME "spock" :ALIASES NIL :PORT 2507 :PROTO "udp">
 #<SERVICE :NAME "jdatastore" :ALIASES NIL :PORT 2508 :PROTO "tcp">
 #<SERVICE :NAME "jdatastore" :ALIASES NIL :PORT 2508 :PROTO "udp">
 #<SERVICE :NAME "fjmpss" :ALIASES NIL :PORT 2509 :PROTO "tcp">
 #<SERVICE :NAME "fjmpss" :ALIASES NIL :PORT 2509 :PROTO "udp">
 #<SERVICE :NAME "fjappmgrbulk" :ALIASES NIL :PORT 2510 :PROTO "tcp">
 #<SERVICE :NAME "fjappmgrbulk" :ALIASES NIL :PORT 2510 :PROTO "udp">
 #<SERVICE :NAME "metastorm" :ALIASES NIL :PORT 2511 :PROTO "tcp">
 #<SERVICE :NAME "metastorm" :ALIASES NIL :PORT 2511 :PROTO "udp">
 #<SERVICE :NAME "citrixima" :ALIASES NIL :PORT 2512 :PROTO "tcp">
 #<SERVICE :NAME "citrixima" :ALIASES NIL :PORT 2512 :PROTO "udp">
 #<SERVICE :NAME "citrixadmin" :ALIASES NIL :PORT 2513 :PROTO "tcp">
 #<SERVICE :NAME "citrixadmin" :ALIASES NIL :PORT 2513 :PROTO "udp">
 #<SERVICE :NAME "facsys-ntp" :ALIASES NIL :PORT 2514 :PROTO "tcp">
 #<SERVICE :NAME "facsys-ntp" :ALIASES NIL :PORT 2514 :PROTO "udp">
 #<SERVICE :NAME "facsys-router" :ALIASES NIL :PORT 2515 :PROTO "tcp">
 #<SERVICE :NAME "facsys-router" :ALIASES NIL :PORT 2515 :PROTO "udp">
 #<SERVICE :NAME "maincontrol" :ALIASES NIL :PORT 2516 :PROTO "tcp">
 #<SERVICE :NAME "maincontrol" :ALIASES NIL :PORT 2516 :PROTO "udp">
 #<SERVICE :NAME "call-sig-trans" :ALIASES NIL :PORT 2517 :PROTO "tcp">
 #<SERVICE :NAME "call-sig-trans" :ALIASES NIL :PORT 2517 :PROTO "udp">
 #<SERVICE :NAME "willy" :ALIASES NIL :PORT 2518 :PROTO "tcp">
 #<SERVICE :NAME "willy" :ALIASES NIL :PORT 2518 :PROTO "udp">
 #<SERVICE :NAME "globmsgsvc" :ALIASES NIL :PORT 2519 :PROTO "tcp">
 #<SERVICE :NAME "globmsgsvc" :ALIASES NIL :PORT 2519 :PROTO "udp">
 #<SERVICE :NAME "pvsw" :ALIASES NIL :PORT 2520 :PROTO "tcp">
 #<SERVICE :NAME "pvsw" :ALIASES NIL :PORT 2520 :PROTO "udp">
 #<SERVICE :NAME "adaptecmgr" :ALIASES NIL :PORT 2521 :PROTO "tcp">
 #<SERVICE :NAME "adaptecmgr" :ALIASES NIL :PORT 2521 :PROTO "udp">
 #<SERVICE :NAME "windb" :ALIASES NIL :PORT 2522 :PROTO "tcp">
 #<SERVICE :NAME "windb" :ALIASES NIL :PORT 2522 :PROTO "udp">
 #<SERVICE :NAME "qke-llc-v3" :ALIASES NIL :PORT 2523 :PROTO "tcp">
 #<SERVICE :NAME "qke-llc-v3" :ALIASES NIL :PORT 2523 :PROTO "udp">
 #<SERVICE :NAME "optiwave-lm" :ALIASES NIL :PORT 2524 :PROTO "tcp">
 #<SERVICE :NAME "optiwave-lm" :ALIASES NIL :PORT 2524 :PROTO "udp">
 #<SERVICE :NAME "ms-v-worlds" :ALIASES NIL :PORT 2525 :PROTO "tcp">
 #<SERVICE :NAME "ms-v-worlds" :ALIASES NIL :PORT 2525 :PROTO "udp">
 #<SERVICE :NAME "ema-sent-lm" :ALIASES NIL :PORT 2526 :PROTO "tcp">
 #<SERVICE :NAME "ema-sent-lm" :ALIASES NIL :PORT 2526 :PROTO "udp">
 #<SERVICE :NAME "iqserver" :ALIASES NIL :PORT 2527 :PROTO "tcp">
 #<SERVICE :NAME "iqserver" :ALIASES NIL :PORT 2527 :PROTO "udp">
 #<SERVICE :NAME "ncr_ccl" :ALIASES ("ncr-ccl") :PORT 2528 :PROTO "tcp">
 #<SERVICE :NAME "ncr_ccl" :ALIASES ("ncr-ccl") :PORT 2528 :PROTO "udp">
 #<SERVICE :NAME "utsftp" :ALIASES NIL :PORT 2529 :PROTO "tcp">
 #<SERVICE :NAME "utsftp" :ALIASES NIL :PORT 2529 :PROTO "udp">
 #<SERVICE :NAME "vrcommerce" :ALIASES NIL :PORT 2530 :PROTO "tcp">
 #<SERVICE :NAME "vrcommerce" :ALIASES NIL :PORT 2530 :PROTO "udp">
 #<SERVICE :NAME "ito-e-gui" :ALIASES NIL :PORT 2531 :PROTO "tcp">
 #<SERVICE :NAME "ito-e-gui" :ALIASES NIL :PORT 2531 :PROTO "udp">
 #<SERVICE :NAME "ovtopmd" :ALIASES NIL :PORT 2532 :PROTO "tcp">
 #<SERVICE :NAME "ovtopmd" :ALIASES NIL :PORT 2532 :PROTO "udp">
 #<SERVICE :NAME "snifferserver" :ALIASES NIL :PORT 2533 :PROTO "tcp">
 #<SERVICE :NAME "snifferserver" :ALIASES NIL :PORT 2533 :PROTO "udp">
 #<SERVICE :NAME "combox-web-acc" :ALIASES NIL :PORT 2534 :PROTO "tcp">
 #<SERVICE :NAME "combox-web-acc" :ALIASES NIL :PORT 2534 :PROTO "udp">
 #<SERVICE :NAME "madcap" :ALIASES NIL :PORT 2535 :PROTO "tcp">
 #<SERVICE :NAME "madcap" :ALIASES NIL :PORT 2535 :PROTO "udp">
 #<SERVICE :NAME "btpp2audctr1" :ALIASES NIL :PORT 2536 :PROTO "tcp">
 #<SERVICE :NAME "btpp2audctr1" :ALIASES NIL :PORT 2536 :PROTO "udp">
 #<SERVICE :NAME "upgrade" :ALIASES NIL :PORT 2537 :PROTO "tcp">
 #<SERVICE :NAME "upgrade" :ALIASES NIL :PORT 2537 :PROTO "udp">
 #<SERVICE :NAME "vnwk-prapi" :ALIASES NIL :PORT 2538 :PROTO "tcp">
 #<SERVICE :NAME "vnwk-prapi" :ALIASES NIL :PORT 2538 :PROTO "udp">
 #<SERVICE :NAME "vsiadmin" :ALIASES NIL :PORT 2539 :PROTO "tcp">
 #<SERVICE :NAME "vsiadmin" :ALIASES NIL :PORT 2539 :PROTO "udp">
 #<SERVICE :NAME "lonworks" :ALIASES NIL :PORT 2540 :PROTO "tcp">
 #<SERVICE :NAME "lonworks" :ALIASES NIL :PORT 2540 :PROTO "udp">
 #<SERVICE :NAME "lonworks2" :ALIASES NIL :PORT 2541 :PROTO "tcp">
 #<SERVICE :NAME "lonworks2" :ALIASES NIL :PORT 2541 :PROTO "udp">
 #<SERVICE :NAME "udrawgraph" :ALIASES NIL :PORT 2542 :PROTO "tcp">
 #<SERVICE :NAME "udrawgraph" :ALIASES NIL :PORT 2542 :PROTO "udp">
 #<SERVICE :NAME "reftek" :ALIASES NIL :PORT 2543 :PROTO "tcp">
 #<SERVICE :NAME "reftek" :ALIASES NIL :PORT 2543 :PROTO "udp">
 #<SERVICE :NAME "novell-zen" :ALIASES NIL :PORT 2544 :PROTO "tcp">
 #<SERVICE :NAME "novell-zen" :ALIASES NIL :PORT 2544 :PROTO "udp">
 #<SERVICE :NAME "sis-emt" :ALIASES NIL :PORT 2545 :PROTO "tcp">
 #<SERVICE :NAME "sis-emt" :ALIASES NIL :PORT 2545 :PROTO "udp">
 #<SERVICE :NAME "vytalvaultbrtp" :ALIASES NIL :PORT 2546 :PROTO "tcp">
 #<SERVICE :NAME "vytalvaultbrtp" :ALIASES NIL :PORT 2546 :PROTO "udp">
 #<SERVICE :NAME "vytalvaultvsmp" :ALIASES NIL :PORT 2547 :PROTO "tcp">
 #<SERVICE :NAME "vytalvaultvsmp" :ALIASES NIL :PORT 2547 :PROTO "udp">
 #<SERVICE :NAME "vytalvaultpipe" :ALIASES NIL :PORT 2548 :PROTO "tcp">
 #<SERVICE :NAME "vytalvaultpipe" :ALIASES NIL :PORT 2548 :PROTO "udp">
 #<SERVICE :NAME "ipass" :ALIASES NIL :PORT 2549 :PROTO "tcp">
 #<SERVICE :NAME "ipass" :ALIASES NIL :PORT 2549 :PROTO "udp">
 #<SERVICE :NAME "ads" :ALIASES NIL :PORT 2550 :PROTO "tcp">
 #<SERVICE :NAME "ads" :ALIASES NIL :PORT 2550 :PROTO "udp">
 #<SERVICE :NAME "isg-uda-server" :ALIASES NIL :PORT 2551 :PROTO "tcp">
 #<SERVICE :NAME "isg-uda-server" :ALIASES NIL :PORT 2551 :PROTO "udp">
 #<SERVICE :NAME "call-logging" :ALIASES NIL :PORT 2552 :PROTO "tcp">
 #<SERVICE :NAME "call-logging" :ALIASES NIL :PORT 2552 :PROTO "udp">
 #<SERVICE :NAME "efidiningport" :ALIASES NIL :PORT 2553 :PROTO "tcp">
 #<SERVICE :NAME "efidiningport" :ALIASES NIL :PORT 2553 :PROTO "udp">
 #<SERVICE :NAME "vcnet-link-v10" :ALIASES NIL :PORT 2554 :PROTO "tcp">
 #<SERVICE :NAME "vcnet-link-v10" :ALIASES NIL :PORT 2554 :PROTO "udp">
 #<SERVICE :NAME "compaq-wcp" :ALIASES NIL :PORT 2555 :PROTO "tcp">
 #<SERVICE :NAME "compaq-wcp" :ALIASES NIL :PORT 2555 :PROTO "udp">
 #<SERVICE :NAME "nicetec-nmsvc" :ALIASES NIL :PORT 2556 :PROTO "tcp">
 #<SERVICE :NAME "nicetec-nmsvc" :ALIASES NIL :PORT 2556 :PROTO "udp">
 #<SERVICE :NAME "nicetec-mgmt" :ALIASES NIL :PORT 2557 :PROTO "tcp">
 #<SERVICE :NAME "nicetec-mgmt" :ALIASES NIL :PORT 2557 :PROTO "udp">
 #<SERVICE :NAME "pclemultimedia" :ALIASES NIL :PORT 2558 :PROTO "tcp">
 #<SERVICE :NAME "pclemultimedia" :ALIASES NIL :PORT 2558 :PROTO "udp">
 #<SERVICE :NAME "lstp" :ALIASES NIL :PORT 2559 :PROTO "tcp">
 #<SERVICE :NAME "lstp" :ALIASES NIL :PORT 2559 :PROTO "udp">
 #<SERVICE :NAME "labrat" :ALIASES NIL :PORT 2560 :PROTO "tcp">
 #<SERVICE :NAME "labrat" :ALIASES NIL :PORT 2560 :PROTO "udp">
 #<SERVICE :NAME "mosaixcc" :ALIASES NIL :PORT 2561 :PROTO "tcp">
 #<SERVICE :NAME "mosaixcc" :ALIASES NIL :PORT 2561 :PROTO "udp">
 #<SERVICE :NAME "delibo" :ALIASES NIL :PORT 2562 :PROTO "tcp">
 #<SERVICE :NAME "delibo" :ALIASES NIL :PORT 2562 :PROTO "udp">
 #<SERVICE :NAME "cti-redwood" :ALIASES NIL :PORT 2563 :PROTO "tcp">
 #<SERVICE :NAME "cti-redwood" :ALIASES NIL :PORT 2563 :PROTO "udp">
 #<SERVICE :NAME "hp-3000-telnet" :ALIASES NIL :PORT 2564 :PROTO "tcp">
 #<SERVICE :NAME "hp-3000-telnet" :ALIASES NIL :PORT 2564 :PROTO "udp">
 #<SERVICE :NAME "coord-svr" :ALIASES NIL :PORT 2565 :PROTO "tcp">
 #<SERVICE :NAME "coord-svr" :ALIASES NIL :PORT 2565 :PROTO "udp">
 #<SERVICE :NAME "pcs-pcw" :ALIASES NIL :PORT 2566 :PROTO "tcp">
 #<SERVICE :NAME "pcs-pcw" :ALIASES NIL :PORT 2566 :PROTO "udp">
 #<SERVICE :NAME "clp" :ALIASES NIL :PORT 2567 :PROTO "tcp">
 #<SERVICE :NAME "clp" :ALIASES NIL :PORT 2567 :PROTO "udp">
 #<SERVICE :NAME "spamtrap" :ALIASES NIL :PORT 2568 :PROTO "tcp">
 #<SERVICE :NAME "spamtrap" :ALIASES NIL :PORT 2568 :PROTO "udp">
 #<SERVICE :NAME "sonuscallsig" :ALIASES NIL :PORT 2569 :PROTO "tcp">
 #<SERVICE :NAME "sonuscallsig" :ALIASES NIL :PORT 2569 :PROTO "udp">
 #<SERVICE :NAME "hs-port" :ALIASES NIL :PORT 2570 :PROTO "tcp">
 #<SERVICE :NAME "hs-port" :ALIASES NIL :PORT 2570 :PROTO "udp">
 #<SERVICE :NAME "cecsvc" :ALIASES NIL :PORT 2571 :PROTO "tcp">
 #<SERVICE :NAME "cecsvc" :ALIASES NIL :PORT 2571 :PROTO "udp">
 #<SERVICE :NAME "ibp" :ALIASES NIL :PORT 2572 :PROTO "tcp">
 #<SERVICE :NAME "ibp" :ALIASES NIL :PORT 2572 :PROTO "udp">
 #<SERVICE :NAME "trustestablish" :ALIASES NIL :PORT 2573 :PROTO "tcp">
 #<SERVICE :NAME "trustestablish" :ALIASES NIL :PORT 2573 :PROTO "udp">
 #<SERVICE :NAME "blockade-bpsp" :ALIASES NIL :PORT 2574 :PROTO "tcp">
 #<SERVICE :NAME "blockade-bpsp" :ALIASES NIL :PORT 2574 :PROTO "udp">
 #<SERVICE :NAME "hl7" :ALIASES NIL :PORT 2575 :PROTO "tcp">
 #<SERVICE :NAME "hl7" :ALIASES NIL :PORT 2575 :PROTO "udp">
 #<SERVICE :NAME "tclprodebugger" :ALIASES NIL :PORT 2576 :PROTO "tcp">
 #<SERVICE :NAME "tclprodebugger" :ALIASES NIL :PORT 2576 :PROTO "udp">
 #<SERVICE :NAME "scipticslsrvr" :ALIASES NIL :PORT 2577 :PROTO "tcp">
 #<SERVICE :NAME "scipticslsrvr" :ALIASES NIL :PORT 2577 :PROTO "udp">
 #<SERVICE :NAME "rvs-isdn-dcp" :ALIASES NIL :PORT 2578 :PROTO "tcp">
 #<SERVICE :NAME "rvs-isdn-dcp" :ALIASES NIL :PORT 2578 :PROTO "udp">
 #<SERVICE :NAME "mpfoncl" :ALIASES NIL :PORT 2579 :PROTO "tcp">
 #<SERVICE :NAME "mpfoncl" :ALIASES NIL :PORT 2579 :PROTO "udp">
 #<SERVICE :NAME "tributary" :ALIASES NIL :PORT 2580 :PROTO "tcp">
 #<SERVICE :NAME "tributary" :ALIASES NIL :PORT 2580 :PROTO "udp">
 #<SERVICE :NAME "argis-te" :ALIASES NIL :PORT 2581 :PROTO "tcp">
 #<SERVICE :NAME "argis-te" :ALIASES NIL :PORT 2581 :PROTO "udp">
 #<SERVICE :NAME "argis-ds" :ALIASES NIL :PORT 2582 :PROTO "tcp">
 #<SERVICE :NAME "argis-ds" :ALIASES NIL :PORT 2582 :PROTO "udp">
 #<SERVICE :NAME "mon" :ALIASES NIL :PORT 2583 :PROTO "tcp">
 #<SERVICE :NAME "mon" :ALIASES NIL :PORT 2583 :PROTO "udp">
 #<SERVICE :NAME "cyaserv" :ALIASES NIL :PORT 2584 :PROTO "tcp">
 #<SERVICE :NAME "cyaserv" :ALIASES NIL :PORT 2584 :PROTO "udp">
 #<SERVICE :NAME "netx-server" :ALIASES NIL :PORT 2585 :PROTO "tcp">
 #<SERVICE :NAME "netx-server" :ALIASES NIL :PORT 2585 :PROTO "udp">
 #<SERVICE :NAME "netx-agent" :ALIASES NIL :PORT 2586 :PROTO "tcp">
 #<SERVICE :NAME "netx-agent" :ALIASES NIL :PORT 2586 :PROTO "udp">
 #<SERVICE :NAME "masc" :ALIASES NIL :PORT 2587 :PROTO "tcp">
 #<SERVICE :NAME "masc" :ALIASES NIL :PORT 2587 :PROTO "udp">
 #<SERVICE :NAME "privilege" :ALIASES NIL :PORT 2588 :PROTO "tcp">
 #<SERVICE :NAME "privilege" :ALIASES NIL :PORT 2588 :PROTO "udp">
 #<SERVICE :NAME "quartus-tcl" :ALIASES NIL :PORT 2589 :PROTO "tcp">
 #<SERVICE :NAME "quartus-tcl" :ALIASES NIL :PORT 2589 :PROTO "udp">
 #<SERVICE :NAME "idotdist" :ALIASES NIL :PORT 2590 :PROTO "tcp">
 #<SERVICE :NAME "idotdist" :ALIASES NIL :PORT 2590 :PROTO "udp">
 #<SERVICE :NAME "maytagshuffle" :ALIASES NIL :PORT 2591 :PROTO "tcp">
 #<SERVICE :NAME "maytagshuffle" :ALIASES NIL :PORT 2591 :PROTO "udp">
 #<SERVICE :NAME "netrek" :ALIASES NIL :PORT 2592 :PROTO "tcp">
 #<SERVICE :NAME "netrek" :ALIASES NIL :PORT 2592 :PROTO "udp">
 #<SERVICE :NAME "mns-mail" :ALIASES NIL :PORT 2593 :PROTO "tcp">
 #<SERVICE :NAME "mns-mail" :ALIASES NIL :PORT 2593 :PROTO "udp">
 #<SERVICE :NAME "dts" :ALIASES NIL :PORT 2594 :PROTO "tcp">
 #<SERVICE :NAME "dts" :ALIASES NIL :PORT 2594 :PROTO "udp">
 #<SERVICE :NAME "worldfusion1" :ALIASES NIL :PORT 2595 :PROTO "tcp">
 #<SERVICE :NAME "worldfusion1" :ALIASES NIL :PORT 2595 :PROTO "udp">
 #<SERVICE :NAME "worldfusion2" :ALIASES NIL :PORT 2596 :PROTO "tcp">
 #<SERVICE :NAME "worldfusion2" :ALIASES NIL :PORT 2596 :PROTO "udp">
 #<SERVICE :NAME "homesteadglory" :ALIASES NIL :PORT 2597 :PROTO "tcp">
 #<SERVICE :NAME "homesteadglory" :ALIASES NIL :PORT 2597 :PROTO "udp">
 #<SERVICE :NAME "citriximaclient" :ALIASES NIL :PORT 2598 :PROTO "tcp">
 #<SERVICE :NAME "citriximaclient" :ALIASES NIL :PORT 2598 :PROTO "udp">
 #<SERVICE :NAME "snapd" :ALIASES NIL :PORT 2599 :PROTO "tcp">
 #<SERVICE :NAME "snapd" :ALIASES NIL :PORT 2599 :PROTO "udp">
 #<SERVICE :NAME "connection" :ALIASES NIL :PORT 2607 :PROTO "tcp">
 #<SERVICE :NAME "connection" :ALIASES NIL :PORT 2607 :PROTO "udp">
 #<SERVICE :NAME "wag-service" :ALIASES NIL :PORT 2608 :PROTO "tcp">
 #<SERVICE :NAME "wag-service" :ALIASES NIL :PORT 2608 :PROTO "udp">
 #<SERVICE :NAME "system-monitor" :ALIASES NIL :PORT 2609 :PROTO "tcp">
 #<SERVICE :NAME "system-monitor" :ALIASES NIL :PORT 2609 :PROTO "udp">
 #<SERVICE :NAME "versa-tek" :ALIASES NIL :PORT 2610 :PROTO "tcp">
 #<SERVICE :NAME "versa-tek" :ALIASES NIL :PORT 2610 :PROTO "udp">
 #<SERVICE :NAME "lionhead" :ALIASES NIL :PORT 2611 :PROTO "tcp">
 #<SERVICE :NAME "lionhead" :ALIASES NIL :PORT 2611 :PROTO "udp">
 #<SERVICE :NAME "qpasa-agent" :ALIASES NIL :PORT 2612 :PROTO "tcp">
 #<SERVICE :NAME "qpasa-agent" :ALIASES NIL :PORT 2612 :PROTO "udp">
 #<SERVICE :NAME "smntubootstrap" :ALIASES NIL :PORT 2613 :PROTO "tcp">
 #<SERVICE :NAME "smntubootstrap" :ALIASES NIL :PORT 2613 :PROTO "udp">
 #<SERVICE :NAME "neveroffline" :ALIASES NIL :PORT 2614 :PROTO "tcp">
 #<SERVICE :NAME "neveroffline" :ALIASES NIL :PORT 2614 :PROTO "udp">
 #<SERVICE :NAME "firepower" :ALIASES NIL :PORT 2615 :PROTO "tcp">
 #<SERVICE :NAME "firepower" :ALIASES NIL :PORT 2615 :PROTO "udp">
 #<SERVICE :NAME "appswitch-emp" :ALIASES NIL :PORT 2616 :PROTO "tcp">
 #<SERVICE :NAME "appswitch-emp" :ALIASES NIL :PORT 2616 :PROTO "udp">
 #<SERVICE :NAME "cmadmin" :ALIASES NIL :PORT 2617 :PROTO "tcp">
 #<SERVICE :NAME "cmadmin" :ALIASES NIL :PORT 2617 :PROTO "udp">
 #<SERVICE :NAME "priority-e-com" :ALIASES NIL :PORT 2618 :PROTO "tcp">
 #<SERVICE :NAME "priority-e-com" :ALIASES NIL :PORT 2618 :PROTO "udp">
 #<SERVICE :NAME "bruce" :ALIASES NIL :PORT 2619 :PROTO "tcp">
 #<SERVICE :NAME "bruce" :ALIASES NIL :PORT 2619 :PROTO "udp">
 #<SERVICE :NAME "lpsrecommender" :ALIASES NIL :PORT 2620 :PROTO "tcp">
 #<SERVICE :NAME "lpsrecommender" :ALIASES NIL :PORT 2620 :PROTO "udp">
 #<SERVICE :NAME "miles-apart" :ALIASES NIL :PORT 2621 :PROTO "tcp">
 #<SERVICE :NAME "miles-apart" :ALIASES NIL :PORT 2621 :PROTO "udp">
 #<SERVICE :NAME "metricadbc" :ALIASES NIL :PORT 2622 :PROTO "tcp">
 #<SERVICE :NAME "metricadbc" :ALIASES NIL :PORT 2622 :PROTO "udp">
 #<SERVICE :NAME "lmdp" :ALIASES NIL :PORT 2623 :PROTO "tcp">
 #<SERVICE :NAME "lmdp" :ALIASES NIL :PORT 2623 :PROTO "udp">
 #<SERVICE :NAME "aria" :ALIASES NIL :PORT 2624 :PROTO "tcp">
 #<SERVICE :NAME "aria" :ALIASES NIL :PORT 2624 :PROTO "udp">
 #<SERVICE :NAME "blwnkl-port" :ALIASES NIL :PORT 2625 :PROTO "tcp">
 #<SERVICE :NAME "blwnkl-port" :ALIASES NIL :PORT 2625 :PROTO "udp">
 #<SERVICE :NAME "gbjd816" :ALIASES NIL :PORT 2626 :PROTO "tcp">
 #<SERVICE :NAME "gbjd816" :ALIASES NIL :PORT 2626 :PROTO "udp">
 #<SERVICE :NAME "moshebeeri" :ALIASES NIL :PORT 2627 :PROTO "tcp">
 #<SERVICE :NAME "moshebeeri" :ALIASES NIL :PORT 2627 :PROTO "udp">
 #<SERVICE :NAME "sitaraserver" :ALIASES NIL :PORT 2629 :PROTO "tcp">
 #<SERVICE :NAME "sitaraserver" :ALIASES NIL :PORT 2629 :PROTO "udp">
 #<SERVICE :NAME "sitaramgmt" :ALIASES NIL :PORT 2630 :PROTO "tcp">
 #<SERVICE :NAME "sitaramgmt" :ALIASES NIL :PORT 2630 :PROTO "udp">
 #<SERVICE :NAME "sitaradir" :ALIASES NIL :PORT 2631 :PROTO "tcp">
 #<SERVICE :NAME "sitaradir" :ALIASES NIL :PORT 2631 :PROTO "udp">
 #<SERVICE :NAME "irdg-post" :ALIASES NIL :PORT 2632 :PROTO "tcp">
 #<SERVICE :NAME "irdg-post" :ALIASES NIL :PORT 2632 :PROTO "udp">
 #<SERVICE :NAME "interintelli" :ALIASES NIL :PORT 2633 :PROTO "tcp">
 #<SERVICE :NAME "interintelli" :ALIASES NIL :PORT 2633 :PROTO "udp">
 #<SERVICE :NAME "pk-electronics" :ALIASES NIL :PORT 2634 :PROTO "tcp">
 #<SERVICE :NAME "pk-electronics" :ALIASES NIL :PORT 2634 :PROTO "udp">
 #<SERVICE :NAME "backburner" :ALIASES NIL :PORT 2635 :PROTO "tcp">
 #<SERVICE :NAME "backburner" :ALIASES NIL :PORT 2635 :PROTO "udp">
 #<SERVICE :NAME "solve" :ALIASES NIL :PORT 2636 :PROTO "tcp">
 #<SERVICE :NAME "solve" :ALIASES NIL :PORT 2636 :PROTO "udp">
 #<SERVICE :NAME "imdocsvc" :ALIASES NIL :PORT 2637 :PROTO "tcp">
 #<SERVICE :NAME "imdocsvc" :ALIASES NIL :PORT 2637 :PROTO "udp">
 #<SERVICE :NAME "sybaseanywhere" :ALIASES NIL :PORT 2638 :PROTO "tcp">
 #<SERVICE :NAME "sybaseanywhere" :ALIASES NIL :PORT 2638 :PROTO "udp">
 #<SERVICE :NAME "aminet" :ALIASES NIL :PORT 2639 :PROTO "tcp">
 #<SERVICE :NAME "aminet" :ALIASES NIL :PORT 2639 :PROTO "udp">
 #<SERVICE :NAME "ami-control" :ALIASES NIL :PORT 2640 :PROTO "tcp">
 #<SERVICE :NAME "ami-control" :ALIASES NIL :PORT 2640 :PROTO "udp">
 #<SERVICE :NAME "hdl-srv" :ALIASES NIL :PORT 2641 :PROTO "tcp">
 #<SERVICE :NAME "hdl-srv" :ALIASES NIL :PORT 2641 :PROTO "udp">
 #<SERVICE :NAME "tragic" :ALIASES NIL :PORT 2642 :PROTO "tcp">
 #<SERVICE :NAME "tragic" :ALIASES NIL :PORT 2642 :PROTO "udp">
 #<SERVICE :NAME "gte-samp" :ALIASES NIL :PORT 2643 :PROTO "tcp">
 #<SERVICE :NAME "gte-samp" :ALIASES NIL :PORT 2643 :PROTO "udp">
 #<SERVICE :NAME "travsoft-ipx-t" :ALIASES NIL :PORT 2644 :PROTO "tcp">
 #<SERVICE :NAME "travsoft-ipx-t" :ALIASES NIL :PORT 2644 :PROTO "udp">
 #<SERVICE :NAME "novell-ipx-cmd" :ALIASES NIL :PORT 2645 :PROTO "tcp">
 #<SERVICE :NAME "novell-ipx-cmd" :ALIASES NIL :PORT 2645 :PROTO "udp">
 #<SERVICE :NAME "and-lm" :ALIASES NIL :PORT 2646 :PROTO "tcp">
 #<SERVICE :NAME "and-lm" :ALIASES NIL :PORT 2646 :PROTO "udp">
 #<SERVICE :NAME "syncserver" :ALIASES NIL :PORT 2647 :PROTO "tcp">
 #<SERVICE :NAME "syncserver" :ALIASES NIL :PORT 2647 :PROTO "udp">
 #<SERVICE :NAME "upsnotifyprot" :ALIASES NIL :PORT 2648 :PROTO "tcp">
 #<SERVICE :NAME "upsnotifyprot" :ALIASES NIL :PORT 2648 :PROTO "udp">
 #<SERVICE :NAME "vpsipport" :ALIASES NIL :PORT 2649 :PROTO "tcp">
 #<SERVICE :NAME "vpsipport" :ALIASES NIL :PORT 2649 :PROTO "udp">
 #<SERVICE :NAME "eristwoguns" :ALIASES NIL :PORT 2650 :PROTO "tcp">
 #<SERVICE :NAME "eristwoguns" :ALIASES NIL :PORT 2650 :PROTO "udp">
 #<SERVICE :NAME "ebinsite" :ALIASES NIL :PORT 2651 :PROTO "tcp">
 #<SERVICE :NAME "ebinsite" :ALIASES NIL :PORT 2651 :PROTO "udp">
 #<SERVICE :NAME "interpathpanel" :ALIASES NIL :PORT 2652 :PROTO "tcp">
 #<SERVICE :NAME "interpathpanel" :ALIASES NIL :PORT 2652 :PROTO "udp">
 #<SERVICE :NAME "sonus" :ALIASES NIL :PORT 2653 :PROTO "tcp">
 #<SERVICE :NAME "sonus" :ALIASES NIL :PORT 2653 :PROTO "udp">
 #<SERVICE :NAME "corel_vncadmin" :ALIASES ("corel-vncadmin") :PORT 2654
   :PROTO "tcp">
 #<SERVICE :NAME "corel_vncadmin" :ALIASES ("corel-vncadmin") :PORT 2654
   :PROTO "udp">
 #<SERVICE :NAME "unglue" :ALIASES NIL :PORT 2655 :PROTO "tcp">
 #<SERVICE :NAME "unglue" :ALIASES NIL :PORT 2655 :PROTO "udp">
 #<SERVICE :NAME "kana" :ALIASES NIL :PORT 2656 :PROTO "tcp">
 #<SERVICE :NAME "kana" :ALIASES NIL :PORT 2656 :PROTO "udp">
 #<SERVICE :NAME "sns-dispatcher" :ALIASES NIL :PORT 2657 :PROTO "tcp">
 #<SERVICE :NAME "sns-dispatcher" :ALIASES NIL :PORT 2657 :PROTO "udp">
 #<SERVICE :NAME "sns-admin" :ALIASES NIL :PORT 2658 :PROTO "tcp">
 #<SERVICE :NAME "sns-admin" :ALIASES NIL :PORT 2658 :PROTO "udp">
 #<SERVICE :NAME "sns-query" :ALIASES NIL :PORT 2659 :PROTO "tcp">
 #<SERVICE :NAME "sns-query" :ALIASES NIL :PORT 2659 :PROTO "udp">
 #<SERVICE :NAME "gcmonitor" :ALIASES NIL :PORT 2660 :PROTO "tcp">
 #<SERVICE :NAME "gcmonitor" :ALIASES NIL :PORT 2660 :PROTO "udp">
 #<SERVICE :NAME "olhost" :ALIASES NIL :PORT 2661 :PROTO "tcp">
 #<SERVICE :NAME "olhost" :ALIASES NIL :PORT 2661 :PROTO "udp">
 #<SERVICE :NAME "bintec-capi" :ALIASES NIL :PORT 2662 :PROTO "tcp">
 #<SERVICE :NAME "bintec-capi" :ALIASES NIL :PORT 2662 :PROTO "udp">
 #<SERVICE :NAME "bintec-tapi" :ALIASES NIL :PORT 2663 :PROTO "tcp">
 #<SERVICE :NAME "bintec-tapi" :ALIASES NIL :PORT 2663 :PROTO "udp">
 #<SERVICE :NAME "patrol-mq-gm" :ALIASES NIL :PORT 2664 :PROTO "tcp">
 #<SERVICE :NAME "patrol-mq-gm" :ALIASES NIL :PORT 2664 :PROTO "udp">
 #<SERVICE :NAME "patrol-mq-nm" :ALIASES NIL :PORT 2665 :PROTO "tcp">
 #<SERVICE :NAME "patrol-mq-nm" :ALIASES NIL :PORT 2665 :PROTO "udp">
 #<SERVICE :NAME "extensis" :ALIASES NIL :PORT 2666 :PROTO "tcp">
 #<SERVICE :NAME "extensis" :ALIASES NIL :PORT 2666 :PROTO "udp">
 #<SERVICE :NAME "alarm-clock-s" :ALIASES NIL :PORT 2667 :PROTO "tcp">
 #<SERVICE :NAME "alarm-clock-s" :ALIASES NIL :PORT 2667 :PROTO "udp">
 #<SERVICE :NAME "alarm-clock-c" :ALIASES NIL :PORT 2668 :PROTO "tcp">
 #<SERVICE :NAME "alarm-clock-c" :ALIASES NIL :PORT 2668 :PROTO "udp">
 #<SERVICE :NAME "toad" :ALIASES NIL :PORT 2669 :PROTO "tcp">
 #<SERVICE :NAME "toad" :ALIASES NIL :PORT 2669 :PROTO "udp">
 #<SERVICE :NAME "tve-announce" :ALIASES NIL :PORT 2670 :PROTO "tcp">
 #<SERVICE :NAME "tve-announce" :ALIASES NIL :PORT 2670 :PROTO "udp">
 #<SERVICE :NAME "newlixreg" :ALIASES NIL :PORT 2671 :PROTO "tcp">
 #<SERVICE :NAME "newlixreg" :ALIASES NIL :PORT 2671 :PROTO "udp">
 #<SERVICE :NAME "nhserver" :ALIASES NIL :PORT 2672 :PROTO "tcp">
 #<SERVICE :NAME "nhserver" :ALIASES NIL :PORT 2672 :PROTO "udp">
 #<SERVICE :NAME "firstcall42" :ALIASES NIL :PORT 2673 :PROTO "tcp">
 #<SERVICE :NAME "firstcall42" :ALIASES NIL :PORT 2673 :PROTO "udp">
 #<SERVICE :NAME "ewnn" :ALIASES NIL :PORT 2674 :PROTO "tcp">
 #<SERVICE :NAME "ewnn" :ALIASES NIL :PORT 2674 :PROTO "udp">
 #<SERVICE :NAME "ttc-etap" :ALIASES NIL :PORT 2675 :PROTO "tcp">
 #<SERVICE :NAME "ttc-etap" :ALIASES NIL :PORT 2675 :PROTO "udp">
 #<SERVICE :NAME "simslink" :ALIASES NIL :PORT 2676 :PROTO "tcp">
 #<SERVICE :NAME "simslink" :ALIASES NIL :PORT 2676 :PROTO "udp">
 #<SERVICE :NAME "gadgetgate1way" :ALIASES NIL :PORT 2677 :PROTO "tcp">
 #<SERVICE :NAME "gadgetgate1way" :ALIASES NIL :PORT 2677 :PROTO "udp">
 #<SERVICE :NAME "gadgetgate2way" :ALIASES NIL :PORT 2678 :PROTO "tcp">
 #<SERVICE :NAME "gadgetgate2way" :ALIASES NIL :PORT 2678 :PROTO "udp">
 #<SERVICE :NAME "syncserverssl" :ALIASES NIL :PORT 2679 :PROTO "tcp">
 #<SERVICE :NAME "syncserverssl" :ALIASES NIL :PORT 2679 :PROTO "udp">
 #<SERVICE :NAME "pxc-sapxom" :ALIASES NIL :PORT 2680 :PROTO "tcp">
 #<SERVICE :NAME "pxc-sapxom" :ALIASES NIL :PORT 2680 :PROTO "udp">
 #<SERVICE :NAME "mpnjsomb" :ALIASES NIL :PORT 2681 :PROTO "tcp">
 #<SERVICE :NAME "mpnjsomb" :ALIASES NIL :PORT 2681 :PROTO "udp">
 #<SERVICE :NAME "ncdloadbalance" :ALIASES NIL :PORT 2683 :PROTO "tcp">
 #<SERVICE :NAME "ncdloadbalance" :ALIASES NIL :PORT 2683 :PROTO "udp">
 #<SERVICE :NAME "mpnjsosv" :ALIASES NIL :PORT 2684 :PROTO "tcp">
 #<SERVICE :NAME "mpnjsosv" :ALIASES NIL :PORT 2684 :PROTO "udp">
 #<SERVICE :NAME "mpnjsocl" :ALIASES NIL :PORT 2685 :PROTO "tcp">
 #<SERVICE :NAME "mpnjsocl" :ALIASES NIL :PORT 2685 :PROTO "udp">
 #<SERVICE :NAME "mpnjsomg" :ALIASES NIL :PORT 2686 :PROTO "tcp">
 #<SERVICE :NAME "mpnjsomg" :ALIASES NIL :PORT 2686 :PROTO "udp">
 #<SERVICE :NAME "pq-lic-mgmt" :ALIASES NIL :PORT 2687 :PROTO "tcp">
 #<SERVICE :NAME "pq-lic-mgmt" :ALIASES NIL :PORT 2687 :PROTO "udp">
 #<SERVICE :NAME "md-cg-http" :ALIASES NIL :PORT 2688 :PROTO "tcp">
 #<SERVICE :NAME "md-cg-http" :ALIASES NIL :PORT 2688 :PROTO "udp">
 #<SERVICE :NAME "fastlynx" :ALIASES NIL :PORT 2689 :PROTO "tcp">
 #<SERVICE :NAME "fastlynx" :ALIASES NIL :PORT 2689 :PROTO "udp">
 #<SERVICE :NAME "hp-nnm-data" :ALIASES NIL :PORT 2690 :PROTO "tcp">
 #<SERVICE :NAME "hp-nnm-data" :ALIASES NIL :PORT 2690 :PROTO "udp">
 #<SERVICE :NAME "itinternet" :ALIASES NIL :PORT 2691 :PROTO "tcp">
 #<SERVICE :NAME "itinternet" :ALIASES NIL :PORT 2691 :PROTO "udp">
 #<SERVICE :NAME "admins-lms" :ALIASES NIL :PORT 2692 :PROTO "tcp">
 #<SERVICE :NAME "admins-lms" :ALIASES NIL :PORT 2692 :PROTO "udp">
 #<SERVICE :NAME "pwrsevent" :ALIASES NIL :PORT 2694 :PROTO "tcp">
 #<SERVICE :NAME "pwrsevent" :ALIASES NIL :PORT 2694 :PROTO "udp">
 #<SERVICE :NAME "vspread" :ALIASES NIL :PORT 2695 :PROTO "tcp">
 #<SERVICE :NAME "vspread" :ALIASES NIL :PORT 2695 :PROTO "udp">
 #<SERVICE :NAME "unifyadmin" :ALIASES NIL :PORT 2696 :PROTO "tcp">
 #<SERVICE :NAME "unifyadmin" :ALIASES NIL :PORT 2696 :PROTO "udp">
 #<SERVICE :NAME "oce-snmp-trap" :ALIASES NIL :PORT 2697 :PROTO "tcp">
 #<SERVICE :NAME "oce-snmp-trap" :ALIASES NIL :PORT 2697 :PROTO "udp">
 #<SERVICE :NAME "mck-ivpip" :ALIASES NIL :PORT 2698 :PROTO "tcp">
 #<SERVICE :NAME "mck-ivpip" :ALIASES NIL :PORT 2698 :PROTO "udp">
 #<SERVICE :NAME "csoft-plusclnt" :ALIASES NIL :PORT 2699 :PROTO "tcp">
 #<SERVICE :NAME "csoft-plusclnt" :ALIASES NIL :PORT 2699 :PROTO "udp">
 #<SERVICE :NAME "tqdata" :ALIASES NIL :PORT 2700 :PROTO "tcp">
 #<SERVICE :NAME "tqdata" :ALIASES NIL :PORT 2700 :PROTO "udp">
 #<SERVICE :NAME "sms-rcinfo" :ALIASES NIL :PORT 2701 :PROTO "tcp">
 #<SERVICE :NAME "sms-rcinfo" :ALIASES NIL :PORT 2701 :PROTO "udp">
 #<SERVICE :NAME "sms-xfer" :ALIASES NIL :PORT 2702 :PROTO "tcp">
 #<SERVICE :NAME "sms-xfer" :ALIASES NIL :PORT 2702 :PROTO "udp">
 #<SERVICE :NAME "sms-chat" :ALIASES NIL :PORT 2703 :PROTO "tcp">
 #<SERVICE :NAME "sms-chat" :ALIASES NIL :PORT 2703 :PROTO "udp">
 #<SERVICE :NAME "sms-remctrl" :ALIASES NIL :PORT 2704 :PROTO "tcp">
 #<SERVICE :NAME "sms-remctrl" :ALIASES NIL :PORT 2704 :PROTO "udp">
 #<SERVICE :NAME "sds-admin" :ALIASES NIL :PORT 2705 :PROTO "tcp">
 #<SERVICE :NAME "sds-admin" :ALIASES NIL :PORT 2705 :PROTO "udp">
 #<SERVICE :NAME "ncdmirroring" :ALIASES NIL :PORT 2706 :PROTO "tcp">
 #<SERVICE :NAME "ncdmirroring" :ALIASES NIL :PORT 2706 :PROTO "udp">
 #<SERVICE :NAME "emcsymapiport" :ALIASES NIL :PORT 2707 :PROTO "tcp">
 #<SERVICE :NAME "emcsymapiport" :ALIASES NIL :PORT 2707 :PROTO "udp">
 #<SERVICE :NAME "banyan-net" :ALIASES NIL :PORT 2708 :PROTO "tcp">
 #<SERVICE :NAME "banyan-net" :ALIASES NIL :PORT 2708 :PROTO "udp">
 #<SERVICE :NAME "supermon" :ALIASES NIL :PORT 2709 :PROTO "tcp">
 #<SERVICE :NAME "supermon" :ALIASES NIL :PORT 2709 :PROTO "udp">
 #<SERVICE :NAME "sso-service" :ALIASES NIL :PORT 2710 :PROTO "tcp">
 #<SERVICE :NAME "sso-service" :ALIASES NIL :PORT 2710 :PROTO "udp">
 #<SERVICE :NAME "sso-control" :ALIASES NIL :PORT 2711 :PROTO "tcp">
 #<SERVICE :NAME "sso-control" :ALIASES NIL :PORT 2711 :PROTO "udp">
 #<SERVICE :NAME "aocp" :ALIASES NIL :PORT 2712 :PROTO "tcp">
 #<SERVICE :NAME "aocp" :ALIASES NIL :PORT 2712 :PROTO "udp">
 #<SERVICE :NAME "raventbs" :ALIASES NIL :PORT 2713 :PROTO "tcp">
 #<SERVICE :NAME "raventbs" :ALIASES NIL :PORT 2713 :PROTO "udp">
 #<SERVICE :NAME "raventdm" :ALIASES NIL :PORT 2714 :PROTO "tcp">
 #<SERVICE :NAME "raventdm" :ALIASES NIL :PORT 2714 :PROTO "udp">
 #<SERVICE :NAME "hpstgmgr2" :ALIASES NIL :PORT 2715 :PROTO "tcp">
 #<SERVICE :NAME "hpstgmgr2" :ALIASES NIL :PORT 2715 :PROTO "udp">
 #<SERVICE :NAME "inova-ip-disco" :ALIASES NIL :PORT 2716 :PROTO "tcp">
 #<SERVICE :NAME "inova-ip-disco" :ALIASES NIL :PORT 2716 :PROTO "udp">
 #<SERVICE :NAME "pn-requester" :ALIASES NIL :PORT 2717 :PROTO "tcp">
 #<SERVICE :NAME "pn-requester" :ALIASES NIL :PORT 2717 :PROTO "udp">
 #<SERVICE :NAME "pn-requester2" :ALIASES NIL :PORT 2718 :PROTO "tcp">
 #<SERVICE :NAME "pn-requester2" :ALIASES NIL :PORT 2718 :PROTO "udp">
 #<SERVICE :NAME "scan-change" :ALIASES NIL :PORT 2719 :PROTO "tcp">
 #<SERVICE :NAME "scan-change" :ALIASES NIL :PORT 2719 :PROTO "udp">
 #<SERVICE :NAME "wkars" :ALIASES NIL :PORT 2720 :PROTO "tcp">
 #<SERVICE :NAME "wkars" :ALIASES NIL :PORT 2720 :PROTO "udp">
 #<SERVICE :NAME "smart-diagnose" :ALIASES NIL :PORT 2721 :PROTO "tcp">
 #<SERVICE :NAME "smart-diagnose" :ALIASES NIL :PORT 2721 :PROTO "udp">
 #<SERVICE :NAME "proactivesrvr" :ALIASES NIL :PORT 2722 :PROTO "tcp">
 #<SERVICE :NAME "proactivesrvr" :ALIASES NIL :PORT 2722 :PROTO "udp">
 #<SERVICE :NAME "watchdog-nt" :ALIASES NIL :PORT 2723 :PROTO "tcp">
 #<SERVICE :NAME "watchdog-nt" :ALIASES NIL :PORT 2723 :PROTO "udp">
 #<SERVICE :NAME "qotps" :ALIASES NIL :PORT 2724 :PROTO "tcp">
 #<SERVICE :NAME "qotps" :ALIASES NIL :PORT 2724 :PROTO "udp">
 #<SERVICE :NAME "msolap-ptp2" :ALIASES NIL :PORT 2725 :PROTO "tcp">
 #<SERVICE :NAME "msolap-ptp2" :ALIASES NIL :PORT 2725 :PROTO "udp">
 #<SERVICE :NAME "tams" :ALIASES NIL :PORT 2726 :PROTO "tcp">
 #<SERVICE :NAME "tams" :ALIASES NIL :PORT 2726 :PROTO "udp">
 #<SERVICE :NAME "mgcp-callagent" :ALIASES NIL :PORT 2727 :PROTO "tcp">
 #<SERVICE :NAME "mgcp-callagent" :ALIASES NIL :PORT 2727 :PROTO "udp">
 #<SERVICE :NAME "sqdr" :ALIASES NIL :PORT 2728 :PROTO "tcp">
 #<SERVICE :NAME "sqdr" :ALIASES NIL :PORT 2728 :PROTO "udp">
 #<SERVICE :NAME "tcim-control" :ALIASES NIL :PORT 2729 :PROTO "tcp">
 #<SERVICE :NAME "tcim-control" :ALIASES NIL :PORT 2729 :PROTO "udp">
 #<SERVICE :NAME "nec-raidplus" :ALIASES NIL :PORT 2730 :PROTO "tcp">
 #<SERVICE :NAME "nec-raidplus" :ALIASES NIL :PORT 2730 :PROTO "udp">
 #<SERVICE :NAME "fyre-messanger" :ALIASES NIL :PORT 2731 :PROTO "tcp">
 #<SERVICE :NAME "fyre-messanger" :ALIASES NIL :PORT 2731 :PROTO "udp">
 #<SERVICE :NAME "g5m" :ALIASES NIL :PORT 2732 :PROTO "tcp">
 #<SERVICE :NAME "g5m" :ALIASES NIL :PORT 2732 :PROTO "udp">
 #<SERVICE :NAME "signet-ctf" :ALIASES NIL :PORT 2733 :PROTO "tcp">
 #<SERVICE :NAME "signet-ctf" :ALIASES NIL :PORT 2733 :PROTO "udp">
 #<SERVICE :NAME "ccs-software" :ALIASES NIL :PORT 2734 :PROTO "tcp">
 #<SERVICE :NAME "ccs-software" :ALIASES NIL :PORT 2734 :PROTO "udp">
 #<SERVICE :NAME "netiq-mc" :ALIASES NIL :PORT 2735 :PROTO "tcp">
 #<SERVICE :NAME "netiq-mc" :ALIASES NIL :PORT 2735 :PROTO "udp">
 #<SERVICE :NAME "radwiz-nms-srv" :ALIASES NIL :PORT 2736 :PROTO "tcp">
 #<SERVICE :NAME "radwiz-nms-srv" :ALIASES NIL :PORT 2736 :PROTO "udp">
 #<SERVICE :NAME "srp-feedback" :ALIASES NIL :PORT 2737 :PROTO "tcp">
 #<SERVICE :NAME "srp-feedback" :ALIASES NIL :PORT 2737 :PROTO "udp">
 #<SERVICE :NAME "ndl-tcp-ois-gw" :ALIASES NIL :PORT 2738 :PROTO "tcp">
 #<SERVICE :NAME "ndl-tcp-ois-gw" :ALIASES NIL :PORT 2738 :PROTO "udp">
 #<SERVICE :NAME "tn-timing" :ALIASES NIL :PORT 2739 :PROTO "tcp">
 #<SERVICE :NAME "tn-timing" :ALIASES NIL :PORT 2739 :PROTO "udp">
 #<SERVICE :NAME "alarm" :ALIASES NIL :PORT 2740 :PROTO "tcp">
 #<SERVICE :NAME "alarm" :ALIASES NIL :PORT 2740 :PROTO "udp">
 #<SERVICE :NAME "tsb" :ALIASES NIL :PORT 2741 :PROTO "tcp">
 #<SERVICE :NAME "tsb" :ALIASES NIL :PORT 2741 :PROTO "udp">
 #<SERVICE :NAME "tsb2" :ALIASES NIL :PORT 2742 :PROTO "tcp">
 #<SERVICE :NAME "tsb2" :ALIASES NIL :PORT 2742 :PROTO "udp">
 #<SERVICE :NAME "murx" :ALIASES NIL :PORT 2743 :PROTO "tcp">
 #<SERVICE :NAME "murx" :ALIASES NIL :PORT 2743 :PROTO "udp">
 #<SERVICE :NAME "honyaku" :ALIASES NIL :PORT 2744 :PROTO "tcp">
 #<SERVICE :NAME "honyaku" :ALIASES NIL :PORT 2744 :PROTO "udp">
 #<SERVICE :NAME "urbisnet" :ALIASES NIL :PORT 2745 :PROTO "tcp">
 #<SERVICE :NAME "urbisnet" :ALIASES NIL :PORT 2745 :PROTO "udp">
 #<SERVICE :NAME "cpudpencap" :ALIASES NIL :PORT 2746 :PROTO "tcp">
 #<SERVICE :NAME "cpudpencap" :ALIASES NIL :PORT 2746 :PROTO "udp">
 #<SERVICE :NAME "fjippol-swrly" :ALIASES NIL :PORT 2747 :PROTO "tcp">
 #<SERVICE :NAME "fjippol-swrly" :ALIASES NIL :PORT 2747 :PROTO "udp">
 #<SERVICE :NAME "fjippol-polsvr" :ALIASES NIL :PORT 2748 :PROTO "tcp">
 #<SERVICE :NAME "fjippol-polsvr" :ALIASES NIL :PORT 2748 :PROTO "udp">
 #<SERVICE :NAME "fjippol-cnsl" :ALIASES NIL :PORT 2749 :PROTO "tcp">
 #<SERVICE :NAME "fjippol-cnsl" :ALIASES NIL :PORT 2749 :PROTO "udp">
 #<SERVICE :NAME "fjippol-port1" :ALIASES NIL :PORT 2750 :PROTO "tcp">
 #<SERVICE :NAME "fjippol-port1" :ALIASES NIL :PORT 2750 :PROTO "udp">
 #<SERVICE :NAME "fjippol-port2" :ALIASES NIL :PORT 2751 :PROTO "tcp">
 #<SERVICE :NAME "fjippol-port2" :ALIASES NIL :PORT 2751 :PROTO "udp">
 #<SERVICE :NAME "rsisysaccess" :ALIASES NIL :PORT 2752 :PROTO "tcp">
 #<SERVICE :NAME "rsisysaccess" :ALIASES NIL :PORT 2752 :PROTO "udp">
 #<SERVICE :NAME "de-spot" :ALIASES NIL :PORT 2753 :PROTO "tcp">
 #<SERVICE :NAME "de-spot" :ALIASES NIL :PORT 2753 :PROTO "udp">
 #<SERVICE :NAME "apollo-cc" :ALIASES NIL :PORT 2754 :PROTO "tcp">
 #<SERVICE :NAME "apollo-cc" :ALIASES NIL :PORT 2754 :PROTO "udp">
 #<SERVICE :NAME "expresspay" :ALIASES NIL :PORT 2755 :PROTO "tcp">
 #<SERVICE :NAME "expresspay" :ALIASES NIL :PORT 2755 :PROTO "udp">
 #<SERVICE :NAME "simplement-tie" :ALIASES NIL :PORT 2756 :PROTO "tcp">
 #<SERVICE :NAME "simplement-tie" :ALIASES NIL :PORT 2756 :PROTO "udp">
 #<SERVICE :NAME "cnrp" :ALIASES NIL :PORT 2757 :PROTO "tcp">
 #<SERVICE :NAME "cnrp" :ALIASES NIL :PORT 2757 :PROTO "udp">
 #<SERVICE :NAME "apollo-status" :ALIASES NIL :PORT 2758 :PROTO "tcp">
 #<SERVICE :NAME "apollo-status" :ALIASES NIL :PORT 2758 :PROTO "udp">
 #<SERVICE :NAME "apollo-gms" :ALIASES NIL :PORT 2759 :PROTO "tcp">
 #<SERVICE :NAME "apollo-gms" :ALIASES NIL :PORT 2759 :PROTO "udp">
 #<SERVICE :NAME "sabams" :ALIASES NIL :PORT 2760 :PROTO "tcp">
 #<SERVICE :NAME "sabams" :ALIASES NIL :PORT 2760 :PROTO "udp">
 #<SERVICE :NAME "dicom-iscl" :ALIASES NIL :PORT 2761 :PROTO "tcp">
 #<SERVICE :NAME "dicom-iscl" :ALIASES NIL :PORT 2761 :PROTO "udp">
 #<SERVICE :NAME "dicom-tls" :ALIASES NIL :PORT 2762 :PROTO "tcp">
 #<SERVICE :NAME "dicom-tls" :ALIASES NIL :PORT 2762 :PROTO "udp">
 #<SERVICE :NAME "desktop-dna" :ALIASES NIL :PORT 2763 :PROTO "tcp">
 #<SERVICE :NAME "desktop-dna" :ALIASES NIL :PORT 2763 :PROTO "udp">
 #<SERVICE :NAME "data-insurance" :ALIASES NIL :PORT 2764 :PROTO "tcp">
 #<SERVICE :NAME "data-insurance" :ALIASES NIL :PORT 2764 :PROTO "udp">
 #<SERVICE :NAME "qip-audup" :ALIASES NIL :PORT 2765 :PROTO "tcp">
 #<SERVICE :NAME "qip-audup" :ALIASES NIL :PORT 2765 :PROTO "udp">
 #<SERVICE :NAME "compaq-scp" :ALIASES NIL :PORT 2766 :PROTO "tcp">
 #<SERVICE :NAME "compaq-scp" :ALIASES NIL :PORT 2766 :PROTO "udp">
 #<SERVICE :NAME "uadtc" :ALIASES NIL :PORT 2767 :PROTO "tcp">
 #<SERVICE :NAME "uadtc" :ALIASES NIL :PORT 2767 :PROTO "udp">
 #<SERVICE :NAME "uacs" :ALIASES NIL :PORT 2768 :PROTO "tcp">
 #<SERVICE :NAME "uacs" :ALIASES NIL :PORT 2768 :PROTO "udp">
 #<SERVICE :NAME "exce" :ALIASES NIL :PORT 2769 :PROTO "tcp">
 #<SERVICE :NAME "exce" :ALIASES NIL :PORT 2769 :PROTO "udp">
 #<SERVICE :NAME "veronica" :ALIASES NIL :PORT 2770 :PROTO "tcp">
 #<SERVICE :NAME "veronica" :ALIASES NIL :PORT 2770 :PROTO "udp">
 #<SERVICE :NAME "vergencecm" :ALIASES NIL :PORT 2771 :PROTO "tcp">
 #<SERVICE :NAME "vergencecm" :ALIASES NIL :PORT 2771 :PROTO "udp">
 #<SERVICE :NAME "auris" :ALIASES NIL :PORT 2772 :PROTO "tcp">
 #<SERVICE :NAME "auris" :ALIASES NIL :PORT 2772 :PROTO "udp">
 #<SERVICE :NAME "rbakcup1" :ALIASES NIL :PORT 2773 :PROTO "tcp">
 #<SERVICE :NAME "rbakcup1" :ALIASES NIL :PORT 2773 :PROTO "udp">
 #<SERVICE :NAME "rbakcup2" :ALIASES NIL :PORT 2774 :PROTO "tcp">
 #<SERVICE :NAME "rbakcup2" :ALIASES NIL :PORT 2774 :PROTO "udp">
 #<SERVICE :NAME "smpp" :ALIASES NIL :PORT 2775 :PROTO "tcp">
 #<SERVICE :NAME "smpp" :ALIASES NIL :PORT 2775 :PROTO "udp">
 #<SERVICE :NAME "ridgeway1" :ALIASES NIL :PORT 2776 :PROTO "tcp">
 #<SERVICE :NAME "ridgeway1" :ALIASES NIL :PORT 2776 :PROTO "udp">
 #<SERVICE :NAME "ridgeway2" :ALIASES NIL :PORT 2777 :PROTO "tcp">
 #<SERVICE :NAME "ridgeway2" :ALIASES NIL :PORT 2777 :PROTO "udp">
 #<SERVICE :NAME "gwen-sonya" :ALIASES NIL :PORT 2778 :PROTO "tcp">
 #<SERVICE :NAME "gwen-sonya" :ALIASES NIL :PORT 2778 :PROTO "udp">
 #<SERVICE :NAME "lbc-sync" :ALIASES NIL :PORT 2779 :PROTO "tcp">
 #<SERVICE :NAME "lbc-sync" :ALIASES NIL :PORT 2779 :PROTO "udp">
 #<SERVICE :NAME "lbc-control" :ALIASES NIL :PORT 2780 :PROTO "tcp">
 #<SERVICE :NAME "lbc-control" :ALIASES NIL :PORT 2780 :PROTO "udp">
 #<SERVICE :NAME "whosells" :ALIASES NIL :PORT 2781 :PROTO "tcp">
 #<SERVICE :NAME "whosells" :ALIASES NIL :PORT 2781 :PROTO "udp">
 #<SERVICE :NAME "everydayrc" :ALIASES NIL :PORT 2782 :PROTO "tcp">
 #<SERVICE :NAME "everydayrc" :ALIASES NIL :PORT 2782 :PROTO "udp">
 #<SERVICE :NAME "aises" :ALIASES NIL :PORT 2783 :PROTO "tcp">
 #<SERVICE :NAME "aises" :ALIASES NIL :PORT 2783 :PROTO "udp">
 #<SERVICE :NAME "www-dev" :ALIASES NIL :PORT 2784 :PROTO "tcp">
 #<SERVICE :NAME "www-dev" :ALIASES NIL :PORT 2784 :PROTO "udp">
 #<SERVICE :NAME "aic-np" :ALIASES NIL :PORT 2785 :PROTO "tcp">
 #<SERVICE :NAME "aic-np" :ALIASES NIL :PORT 2785 :PROTO "udp">
 #<SERVICE :NAME "aic-oncrpc" :ALIASES NIL :PORT 2786 :PROTO "tcp">
 #<SERVICE :NAME "aic-oncrpc" :ALIASES NIL :PORT 2786 :PROTO "udp">
 #<SERVICE :NAME "piccolo" :ALIASES NIL :PORT 2787 :PROTO "tcp">
 #<SERVICE :NAME "piccolo" :ALIASES NIL :PORT 2787 :PROTO "udp">
 #<SERVICE :NAME "fryeserv" :ALIASES NIL :PORT 2788 :PROTO "tcp">
 #<SERVICE :NAME "fryeserv" :ALIASES NIL :PORT 2788 :PROTO "udp">
 #<SERVICE :NAME "media-agent" :ALIASES NIL :PORT 2789 :PROTO "tcp">
 #<SERVICE :NAME "media-agent" :ALIASES NIL :PORT 2789 :PROTO "udp">
 #<SERVICE :NAME "plgproxy" :ALIASES NIL :PORT 2790 :PROTO "tcp">
 #<SERVICE :NAME "plgproxy" :ALIASES NIL :PORT 2790 :PROTO "udp">
 #<SERVICE :NAME "mtport-regist" :ALIASES NIL :PORT 2791 :PROTO "tcp">
 #<SERVICE :NAME "mtport-regist" :ALIASES NIL :PORT 2791 :PROTO "udp">
 #<SERVICE :NAME "f5-globalsite" :ALIASES NIL :PORT 2792 :PROTO "tcp">
 #<SERVICE :NAME "f5-globalsite" :ALIASES NIL :PORT 2792 :PROTO "udp">
 #<SERVICE :NAME "initlsmsad" :ALIASES NIL :PORT 2793 :PROTO "tcp">
 #<SERVICE :NAME "initlsmsad" :ALIASES NIL :PORT 2793 :PROTO "udp">
 #<SERVICE :NAME "livestats" :ALIASES NIL :PORT 2795 :PROTO "tcp">
 #<SERVICE :NAME "livestats" :ALIASES NIL :PORT 2795 :PROTO "udp">
 #<SERVICE :NAME "ac-tech" :ALIASES NIL :PORT 2796 :PROTO "tcp">
 #<SERVICE :NAME "ac-tech" :ALIASES NIL :PORT 2796 :PROTO "udp">
 #<SERVICE :NAME "esp-encap" :ALIASES NIL :PORT 2797 :PROTO "tcp">
 #<SERVICE :NAME "esp-encap" :ALIASES NIL :PORT 2797 :PROTO "udp">
 #<SERVICE :NAME "tmesis-upshot" :ALIASES NIL :PORT 2798 :PROTO "tcp">
 #<SERVICE :NAME "tmesis-upshot" :ALIASES NIL :PORT 2798 :PROTO "udp">
 #<SERVICE :NAME "icon-discover" :ALIASES NIL :PORT 2799 :PROTO "tcp">
 #<SERVICE :NAME "icon-discover" :ALIASES NIL :PORT 2799 :PROTO "udp">
 #<SERVICE :NAME "acc-raid" :ALIASES NIL :PORT 2800 :PROTO "tcp">
 #<SERVICE :NAME "acc-raid" :ALIASES NIL :PORT 2800 :PROTO "udp">
 #<SERVICE :NAME "igcp" :ALIASES NIL :PORT 2801 :PROTO "tcp">
 #<SERVICE :NAME "igcp" :ALIASES NIL :PORT 2801 :PROTO "udp">
 #<SERVICE :NAME "veritas-tcp1" :ALIASES NIL :PORT 2802 :PROTO "tcp">
 #<SERVICE :NAME "veritas-udp1" :ALIASES NIL :PORT 2802 :PROTO "udp">
 #<SERVICE :NAME "btprjctrl" :ALIASES NIL :PORT 2803 :PROTO "tcp">
 #<SERVICE :NAME "btprjctrl" :ALIASES NIL :PORT 2803 :PROTO "udp">
 #<SERVICE :NAME "dvr-esm" :ALIASES NIL :PORT 2804 :PROTO "tcp">
 #<SERVICE :NAME "dvr-esm" :ALIASES NIL :PORT 2804 :PROTO "udp">
 #<SERVICE :NAME "wta-wsp-s" :ALIASES NIL :PORT 2805 :PROTO "tcp">
 #<SERVICE :NAME "wta-wsp-s" :ALIASES NIL :PORT 2805 :PROTO "udp">
 #<SERVICE :NAME "cspuni" :ALIASES NIL :PORT 2806 :PROTO "tcp">
 #<SERVICE :NAME "cspuni" :ALIASES NIL :PORT 2806 :PROTO "udp">
 #<SERVICE :NAME "cspmulti" :ALIASES NIL :PORT 2807 :PROTO "tcp">
 #<SERVICE :NAME "cspmulti" :ALIASES NIL :PORT 2807 :PROTO "udp">
 #<SERVICE :NAME "j-lan-p" :ALIASES NIL :PORT 2808 :PROTO "tcp">
 #<SERVICE :NAME "j-lan-p" :ALIASES NIL :PORT 2808 :PROTO "udp">
 #<SERVICE :NAME "corbaloc" :ALIASES NIL :PORT 2809 :PROTO "udp">
 #<SERVICE :NAME "netsteward" :ALIASES NIL :PORT 2810 :PROTO "tcp">
 #<SERVICE :NAME "netsteward" :ALIASES NIL :PORT 2810 :PROTO "udp">
 #<SERVICE :NAME "gsiftp" :ALIASES NIL :PORT 2811 :PROTO "tcp">
 #<SERVICE :NAME "gsiftp" :ALIASES NIL :PORT 2811 :PROTO "udp">
 #<SERVICE :NAME "atmtcp" :ALIASES NIL :PORT 2812 :PROTO "tcp">
 #<SERVICE :NAME "atmtcp" :ALIASES NIL :PORT 2812 :PROTO "udp">
 #<SERVICE :NAME "llm-pass" :ALIASES NIL :PORT 2813 :PROTO "tcp">
 #<SERVICE :NAME "llm-pass" :ALIASES NIL :PORT 2813 :PROTO "udp">
 #<SERVICE :NAME "llm-csv" :ALIASES NIL :PORT 2814 :PROTO "tcp">
 #<SERVICE :NAME "llm-csv" :ALIASES NIL :PORT 2814 :PROTO "udp">
 #<SERVICE :NAME "lbc-measure" :ALIASES NIL :PORT 2815 :PROTO "tcp">
 #<SERVICE :NAME "lbc-measure" :ALIASES NIL :PORT 2815 :PROTO "udp">
 #<SERVICE :NAME "lbc-watchdog" :ALIASES NIL :PORT 2816 :PROTO "tcp">
 #<SERVICE :NAME "lbc-watchdog" :ALIASES NIL :PORT 2816 :PROTO "udp">
 #<SERVICE :NAME "rmlnk" :ALIASES NIL :PORT 2818 :PROTO "tcp">
 #<SERVICE :NAME "rmlnk" :ALIASES NIL :PORT 2818 :PROTO "udp">
 #<SERVICE :NAME "fc-faultnotify" :ALIASES NIL :PORT 2819 :PROTO "tcp">
 #<SERVICE :NAME "fc-faultnotify" :ALIASES NIL :PORT 2819 :PROTO "udp">
 #<SERVICE :NAME "univision" :ALIASES NIL :PORT 2820 :PROTO "tcp">
 #<SERVICE :NAME "univision" :ALIASES NIL :PORT 2820 :PROTO "udp">
 #<SERVICE :NAME "vrts-at-port" :ALIASES NIL :PORT 2821 :PROTO "tcp">
 #<SERVICE :NAME "vrts-at-port" :ALIASES NIL :PORT 2821 :PROTO "udp">
 #<SERVICE :NAME "ka0wuc" :ALIASES NIL :PORT 2822 :PROTO "tcp">
 #<SERVICE :NAME "ka0wuc" :ALIASES NIL :PORT 2822 :PROTO "udp">
 #<SERVICE :NAME "cqg-netlan" :ALIASES NIL :PORT 2823 :PROTO "tcp">
 #<SERVICE :NAME "cqg-netlan" :ALIASES NIL :PORT 2823 :PROTO "udp">
 #<SERVICE :NAME "cqg-netlan-1" :ALIASES NIL :PORT 2824 :PROTO "tcp">
 #<SERVICE :NAME "cqg-netlan-1" :ALIASES NIL :PORT 2824 :PROTO "udp">
 #<SERVICE :NAME "slc-systemlog" :ALIASES NIL :PORT 2826 :PROTO "tcp">
 #<SERVICE :NAME "slc-systemlog" :ALIASES NIL :PORT 2826 :PROTO "udp">
 #<SERVICE :NAME "slc-ctrlrloops" :ALIASES NIL :PORT 2827 :PROTO "tcp">
 #<SERVICE :NAME "slc-ctrlrloops" :ALIASES NIL :PORT 2827 :PROTO "udp">
 #<SERVICE :NAME "itm-lm" :ALIASES NIL :PORT 2828 :PROTO "tcp">
 #<SERVICE :NAME "itm-lm" :ALIASES NIL :PORT 2828 :PROTO "udp">
 #<SERVICE :NAME "silkp1" :ALIASES NIL :PORT 2829 :PROTO "tcp">
 #<SERVICE :NAME "silkp1" :ALIASES NIL :PORT 2829 :PROTO "udp">
 #<SERVICE :NAME "silkp2" :ALIASES NIL :PORT 2830 :PROTO "tcp">
 #<SERVICE :NAME "silkp2" :ALIASES NIL :PORT 2830 :PROTO "udp">
 #<SERVICE :NAME "silkp3" :ALIASES NIL :PORT 2831 :PROTO "tcp">
 #<SERVICE :NAME "silkp3" :ALIASES NIL :PORT 2831 :PROTO "udp">
 #<SERVICE :NAME "silkp4" :ALIASES NIL :PORT 2832 :PROTO "tcp">
 #<SERVICE :NAME "silkp4" :ALIASES NIL :PORT 2832 :PROTO "udp">
 #<SERVICE :NAME "glishd" :ALIASES NIL :PORT 2833 :PROTO "tcp">
 #<SERVICE :NAME "glishd" :ALIASES NIL :PORT 2833 :PROTO "udp">
 #<SERVICE :NAME "evtp" :ALIASES NIL :PORT 2834 :PROTO "tcp">
 #<SERVICE :NAME "evtp" :ALIASES NIL :PORT 2834 :PROTO "udp">
 #<SERVICE :NAME "evtp-data" :ALIASES NIL :PORT 2835 :PROTO "tcp">
 #<SERVICE :NAME "evtp-data" :ALIASES NIL :PORT 2835 :PROTO "udp">
 #<SERVICE :NAME "catalyst" :ALIASES NIL :PORT 2836 :PROTO "tcp">
 #<SERVICE :NAME "catalyst" :ALIASES NIL :PORT 2836 :PROTO "udp">
 #<SERVICE :NAME "repliweb" :ALIASES NIL :PORT 2837 :PROTO "tcp">
 #<SERVICE :NAME "repliweb" :ALIASES NIL :PORT 2837 :PROTO "udp">
 #<SERVICE :NAME "starbot" :ALIASES NIL :PORT 2838 :PROTO "tcp">
 #<SERVICE :NAME "starbot" :ALIASES NIL :PORT 2838 :PROTO "udp">
 #<SERVICE :NAME "l3-exprt" :ALIASES NIL :PORT 2840 :PROTO "tcp">
 #<SERVICE :NAME "l3-exprt" :ALIASES NIL :PORT 2840 :PROTO "udp">
 #<SERVICE :NAME "l3-ranger" :ALIASES NIL :PORT 2841 :PROTO "tcp">
 #<SERVICE :NAME "l3-ranger" :ALIASES NIL :PORT 2841 :PROTO "udp">
 #<SERVICE :NAME "l3-hawk" :ALIASES NIL :PORT 2842 :PROTO "tcp">
 #<SERVICE :NAME "l3-hawk" :ALIASES NIL :PORT 2842 :PROTO "udp">
 #<SERVICE :NAME "pdnet" :ALIASES NIL :PORT 2843 :PROTO "tcp">
 #<SERVICE :NAME "pdnet" :ALIASES NIL :PORT 2843 :PROTO "udp">
 #<SERVICE :NAME "bpcp-poll" :ALIASES NIL :PORT 2844 :PROTO "tcp">
 #<SERVICE :NAME "bpcp-poll" :ALIASES NIL :PORT 2844 :PROTO "udp">
 #<SERVICE :NAME "bpcp-trap" :ALIASES NIL :PORT 2845 :PROTO "tcp">
 #<SERVICE :NAME "bpcp-trap" :ALIASES NIL :PORT 2845 :PROTO "udp">
 #<SERVICE :NAME "aimpp-hello" :ALIASES NIL :PORT 2846 :PROTO "tcp">
 #<SERVICE :NAME "aimpp-hello" :ALIASES NIL :PORT 2846 :PROTO "udp">
 #<SERVICE :NAME "aimpp-port-req" :ALIASES NIL :PORT 2847 :PROTO "tcp">
 #<SERVICE :NAME "aimpp-port-req" :ALIASES NIL :PORT 2847 :PROTO "udp">
 #<SERVICE :NAME "amt-blc-port" :ALIASES NIL :PORT 2848 :PROTO "tcp">
 #<SERVICE :NAME "amt-blc-port" :ALIASES NIL :PORT 2848 :PROTO "udp">
 #<SERVICE :NAME "metaconsole" :ALIASES NIL :PORT 2850 :PROTO "tcp">
 #<SERVICE :NAME "metaconsole" :ALIASES NIL :PORT 2850 :PROTO "udp">
 #<SERVICE :NAME "webemshttp" :ALIASES NIL :PORT 2851 :PROTO "tcp">
 #<SERVICE :NAME "webemshttp" :ALIASES NIL :PORT 2851 :PROTO "udp">
 #<SERVICE :NAME "bears-01" :ALIASES NIL :PORT 2852 :PROTO "tcp">
 #<SERVICE :NAME "bears-01" :ALIASES NIL :PORT 2852 :PROTO "udp">
 #<SERVICE :NAME "ispipes" :ALIASES NIL :PORT 2853 :PROTO "tcp">
 #<SERVICE :NAME "ispipes" :ALIASES NIL :PORT 2853 :PROTO "udp">
 #<SERVICE :NAME "infomover" :ALIASES NIL :PORT 2854 :PROTO "tcp">
 #<SERVICE :NAME "infomover" :ALIASES NIL :PORT 2854 :PROTO "udp">
 #<SERVICE :NAME "msrp" :ALIASES NIL :PORT 2855 :PROTO "tcp">
 #<SERVICE :NAME "cesdinv" :ALIASES NIL :PORT 2856 :PROTO "tcp">
 #<SERVICE :NAME "cesdinv" :ALIASES NIL :PORT 2856 :PROTO "udp">
 #<SERVICE :NAME "simctlp" :ALIASES NIL :PORT 2857 :PROTO "tcp">
 #<SERVICE :NAME "simctlp" :ALIASES NIL :PORT 2857 :PROTO "udp">
 #<SERVICE :NAME "ecnp" :ALIASES NIL :PORT 2858 :PROTO "tcp">
 #<SERVICE :NAME "ecnp" :ALIASES NIL :PORT 2858 :PROTO "udp">
 #<SERVICE :NAME "activememory" :ALIASES NIL :PORT 2859 :PROTO "tcp">
 #<SERVICE :NAME "activememory" :ALIASES NIL :PORT 2859 :PROTO "udp">
 #<SERVICE :NAME "dialpad-voice1" :ALIASES NIL :PORT 2860 :PROTO "tcp">
 #<SERVICE :NAME "dialpad-voice1" :ALIASES NIL :PORT 2860 :PROTO "udp">
 #<SERVICE :NAME "dialpad-voice2" :ALIASES NIL :PORT 2861 :PROTO "tcp">
 #<SERVICE :NAME "dialpad-voice2" :ALIASES NIL :PORT 2861 :PROTO "udp">
 #<SERVICE :NAME "ttg-protocol" :ALIASES NIL :PORT 2862 :PROTO "tcp">
 #<SERVICE :NAME "ttg-protocol" :ALIASES NIL :PORT 2862 :PROTO "udp">
 #<SERVICE :NAME "sonardata" :ALIASES NIL :PORT 2863 :PROTO "tcp">
 #<SERVICE :NAME "sonardata" :ALIASES NIL :PORT 2863 :PROTO "udp">
 #<SERVICE :NAME "astromed-main" :ALIASES NIL :PORT 2864 :PROTO "tcp">
 #<SERVICE :NAME "astromed-main" :ALIASES NIL :PORT 2864 :PROTO "udp">
 #<SERVICE :NAME "pit-vpn" :ALIASES NIL :PORT 2865 :PROTO "tcp">
 #<SERVICE :NAME "pit-vpn" :ALIASES NIL :PORT 2865 :PROTO "udp">
 #<SERVICE :NAME "iwlistener" :ALIASES NIL :PORT 2866 :PROTO "tcp">
 #<SERVICE :NAME "iwlistener" :ALIASES NIL :PORT 2866 :PROTO "udp">
 #<SERVICE :NAME "esps-portal" :ALIASES NIL :PORT 2867 :PROTO "tcp">
 #<SERVICE :NAME "esps-portal" :ALIASES NIL :PORT 2867 :PROTO "udp">
 #<SERVICE :NAME "npep-messaging" :ALIASES NIL :PORT 2868 :PROTO "tcp">
 #<SERVICE :NAME "npep-messaging" :ALIASES NIL :PORT 2868 :PROTO "udp">
 #<SERVICE :NAME "icslap" :ALIASES NIL :PORT 2869 :PROTO "tcp">
 #<SERVICE :NAME "icslap" :ALIASES NIL :PORT 2869 :PROTO "udp">
 #<SERVICE :NAME "daishi" :ALIASES NIL :PORT 2870 :PROTO "tcp">
 #<SERVICE :NAME "daishi" :ALIASES NIL :PORT 2870 :PROTO "udp">
 #<SERVICE :NAME "msi-selectplay" :ALIASES NIL :PORT 2871 :PROTO "tcp">
 #<SERVICE :NAME "msi-selectplay" :ALIASES NIL :PORT 2871 :PROTO "udp">
 #<SERVICE :NAME "radix" :ALIASES NIL :PORT 2872 :PROTO "tcp">
 #<SERVICE :NAME "radix" :ALIASES NIL :PORT 2872 :PROTO "udp">
 #<SERVICE :NAME "dxmessagebase1" :ALIASES NIL :PORT 2874 :PROTO "tcp">
 #<SERVICE :NAME "dxmessagebase1" :ALIASES NIL :PORT 2874 :PROTO "udp">
 #<SERVICE :NAME "dxmessagebase2" :ALIASES NIL :PORT 2875 :PROTO "tcp">
 #<SERVICE :NAME "dxmessagebase2" :ALIASES NIL :PORT 2875 :PROTO "udp">
 #<SERVICE :NAME "sps-tunnel" :ALIASES NIL :PORT 2876 :PROTO "tcp">
 #<SERVICE :NAME "sps-tunnel" :ALIASES NIL :PORT 2876 :PROTO "udp">
 #<SERVICE :NAME "bluelance" :ALIASES NIL :PORT 2877 :PROTO "tcp">
 #<SERVICE :NAME "bluelance" :ALIASES NIL :PORT 2877 :PROTO "udp">
 #<SERVICE :NAME "aap" :ALIASES NIL :PORT 2878 :PROTO "tcp">
 #<SERVICE :NAME "aap" :ALIASES NIL :PORT 2878 :PROTO "udp">
 #<SERVICE :NAME "ucentric-ds" :ALIASES NIL :PORT 2879 :PROTO "tcp">
 #<SERVICE :NAME "ucentric-ds" :ALIASES NIL :PORT 2879 :PROTO "udp">
 #<SERVICE :NAME "synapse" :ALIASES NIL :PORT 2880 :PROTO "tcp">
 #<SERVICE :NAME "synapse" :ALIASES NIL :PORT 2880 :PROTO "udp">
 #<SERVICE :NAME "ndsp" :ALIASES NIL :PORT 2881 :PROTO "tcp">
 #<SERVICE :NAME "ndsp" :ALIASES NIL :PORT 2881 :PROTO "udp">
 #<SERVICE :NAME "ndtp" :ALIASES NIL :PORT 2882 :PROTO "tcp">
 #<SERVICE :NAME "ndtp" :ALIASES NIL :PORT 2882 :PROTO "udp">
 #<SERVICE :NAME "ndnp" :ALIASES NIL :PORT 2883 :PROTO "tcp">
 #<SERVICE :NAME "ndnp" :ALIASES NIL :PORT 2883 :PROTO "udp">
 #<SERVICE :NAME "flashmsg" :ALIASES NIL :PORT 2884 :PROTO "tcp">
 #<SERVICE :NAME "flashmsg" :ALIASES NIL :PORT 2884 :PROTO "udp">
 #<SERVICE :NAME "topflow" :ALIASES NIL :PORT 2885 :PROTO "tcp">
 #<SERVICE :NAME "topflow" :ALIASES NIL :PORT 2885 :PROTO "udp">
 #<SERVICE :NAME "responselogic" :ALIASES NIL :PORT 2886 :PROTO "tcp">
 #<SERVICE :NAME "responselogic" :ALIASES NIL :PORT 2886 :PROTO "udp">
 #<SERVICE :NAME "aironetddp" :ALIASES NIL :PORT 2887 :PROTO "tcp">
 #<SERVICE :NAME "aironetddp" :ALIASES NIL :PORT 2887 :PROTO "udp">
 #<SERVICE :NAME "spcsdlobby" :ALIASES NIL :PORT 2888 :PROTO "tcp">
 #<SERVICE :NAME "spcsdlobby" :ALIASES NIL :PORT 2888 :PROTO "udp">
 #<SERVICE :NAME "rsom" :ALIASES NIL :PORT 2889 :PROTO "tcp">
 #<SERVICE :NAME "rsom" :ALIASES NIL :PORT 2889 :PROTO "udp">
 #<SERVICE :NAME "cspclmulti" :ALIASES NIL :PORT 2890 :PROTO "tcp">
 #<SERVICE :NAME "cspclmulti" :ALIASES NIL :PORT 2890 :PROTO "udp">
 #<SERVICE :NAME "cinegrfx-elmd" :ALIASES NIL :PORT 2891 :PROTO "tcp">
 #<SERVICE :NAME "cinegrfx-elmd" :ALIASES NIL :PORT 2891 :PROTO "udp">
 #<SERVICE :NAME "snifferdata" :ALIASES NIL :PORT 2892 :PROTO "tcp">
 #<SERVICE :NAME "snifferdata" :ALIASES NIL :PORT 2892 :PROTO "udp">
 #<SERVICE :NAME "vseconnector" :ALIASES NIL :PORT 2893 :PROTO "tcp">
 #<SERVICE :NAME "vseconnector" :ALIASES NIL :PORT 2893 :PROTO "udp">
 #<SERVICE :NAME "abacus-remote" :ALIASES NIL :PORT 2894 :PROTO "tcp">
 #<SERVICE :NAME "abacus-remote" :ALIASES NIL :PORT 2894 :PROTO "udp">
 #<SERVICE :NAME "natuslink" :ALIASES NIL :PORT 2895 :PROTO "tcp">
 #<SERVICE :NAME "natuslink" :ALIASES NIL :PORT 2895 :PROTO "udp">
 #<SERVICE :NAME "ecovisiong6-1" :ALIASES NIL :PORT 2896 :PROTO "tcp">
 #<SERVICE :NAME "ecovisiong6-1" :ALIASES NIL :PORT 2896 :PROTO "udp">
 #<SERVICE :NAME "citrix-rtmp" :ALIASES NIL :PORT 2897 :PROTO "tcp">
 #<SERVICE :NAME "citrix-rtmp" :ALIASES NIL :PORT 2897 :PROTO "udp">
 #<SERVICE :NAME "appliance-cfg" :ALIASES NIL :PORT 2898 :PROTO "tcp">
 #<SERVICE :NAME "appliance-cfg" :ALIASES NIL :PORT 2898 :PROTO "udp">
 #<SERVICE :NAME "powergemplus" :ALIASES NIL :PORT 2899 :PROTO "tcp">
 #<SERVICE :NAME "powergemplus" :ALIASES NIL :PORT 2899 :PROTO "udp">
 #<SERVICE :NAME "quicksuite" :ALIASES NIL :PORT 2900 :PROTO "tcp">
 #<SERVICE :NAME "quicksuite" :ALIASES NIL :PORT 2900 :PROTO "udp">
 #<SERVICE :NAME "allstorcns" :ALIASES NIL :PORT 2901 :PROTO "tcp">
 #<SERVICE :NAME "allstorcns" :ALIASES NIL :PORT 2901 :PROTO "udp">
 #<SERVICE :NAME "netaspi" :ALIASES NIL :PORT 2902 :PROTO "tcp">
 #<SERVICE :NAME "netaspi" :ALIASES NIL :PORT 2902 :PROTO "udp">
 #<SERVICE :NAME "suitcase" :ALIASES NIL :PORT 2903 :PROTO "tcp">
 #<SERVICE :NAME "suitcase" :ALIASES NIL :PORT 2903 :PROTO "udp">
 #<SERVICE :NAME "m2ua" :ALIASES NIL :PORT 2904 :PROTO "tcp">
 #<SERVICE :NAME "m2ua" :ALIASES NIL :PORT 2904 :PROTO "udp">
 #<SERVICE :NAME "m2ua" :ALIASES NIL :PORT 2904 :PROTO "sctp">
 #<SERVICE :NAME "m3ua" :ALIASES NIL :PORT 2905 :PROTO "tcp">
 #<SERVICE :NAME "m3ua" :ALIASES NIL :PORT 2905 :PROTO "sctp">
 #<SERVICE :NAME "caller9" :ALIASES NIL :PORT 2906 :PROTO "tcp">
 #<SERVICE :NAME "caller9" :ALIASES NIL :PORT 2906 :PROTO "udp">
 #<SERVICE :NAME "webmethods-b2b" :ALIASES NIL :PORT 2907 :PROTO "tcp">
 #<SERVICE :NAME "webmethods-b2b" :ALIASES NIL :PORT 2907 :PROTO "udp">
 #<SERVICE :NAME "mao" :ALIASES NIL :PORT 2908 :PROTO "tcp">
 #<SERVICE :NAME "mao" :ALIASES NIL :PORT 2908 :PROTO "udp">
 #<SERVICE :NAME "funk-dialout" :ALIASES NIL :PORT 2909 :PROTO "tcp">
 #<SERVICE :NAME "funk-dialout" :ALIASES NIL :PORT 2909 :PROTO "udp">
 #<SERVICE :NAME "tdaccess" :ALIASES NIL :PORT 2910 :PROTO "tcp">
 #<SERVICE :NAME "tdaccess" :ALIASES NIL :PORT 2910 :PROTO "udp">
 #<SERVICE :NAME "blockade" :ALIASES NIL :PORT 2911 :PROTO "tcp">
 #<SERVICE :NAME "blockade" :ALIASES NIL :PORT 2911 :PROTO "udp">
 #<SERVICE :NAME "epicon" :ALIASES NIL :PORT 2912 :PROTO "tcp">
 #<SERVICE :NAME "epicon" :ALIASES NIL :PORT 2912 :PROTO "udp">
 #<SERVICE :NAME "boosterware" :ALIASES NIL :PORT 2913 :PROTO "tcp">
 #<SERVICE :NAME "boosterware" :ALIASES NIL :PORT 2913 :PROTO "udp">
 #<SERVICE :NAME "gamelobby" :ALIASES NIL :PORT 2914 :PROTO "tcp">
 #<SERVICE :NAME "gamelobby" :ALIASES NIL :PORT 2914 :PROTO "udp">
 #<SERVICE :NAME "tksocket" :ALIASES NIL :PORT 2915 :PROTO "tcp">
 #<SERVICE :NAME "tksocket" :ALIASES NIL :PORT 2915 :PROTO "udp">
 #<SERVICE :NAME "elvin_server" :ALIASES ("elvin-server") :PORT 2916
   :PROTO "tcp">
 #<SERVICE :NAME "elvin_server" :ALIASES ("elvin-server") :PORT 2916
   :PROTO "udp">
 #<SERVICE :NAME "elvin_client" :ALIASES ("elvin-client") :PORT 2917
   :PROTO "tcp">
 #<SERVICE :NAME "elvin_client" :ALIASES ("elvin-client") :PORT 2917
   :PROTO "udp">
 #<SERVICE :NAME "kastenchasepad" :ALIASES NIL :PORT 2918 :PROTO "tcp">
 #<SERVICE :NAME "kastenchasepad" :ALIASES NIL :PORT 2918 :PROTO "udp">
 #<SERVICE :NAME "roboer" :ALIASES NIL :PORT 2919 :PROTO "tcp">
 #<SERVICE :NAME "roboer" :ALIASES NIL :PORT 2919 :PROTO "udp">
 #<SERVICE :NAME "roboeda" :ALIASES NIL :PORT 2920 :PROTO "tcp">
 #<SERVICE :NAME "roboeda" :ALIASES NIL :PORT 2920 :PROTO "udp">
 #<SERVICE :NAME "cesdcdman" :ALIASES NIL :PORT 2921 :PROTO "tcp">
 #<SERVICE :NAME "cesdcdman" :ALIASES NIL :PORT 2921 :PROTO "udp">
 #<SERVICE :NAME "cesdcdtrn" :ALIASES NIL :PORT 2922 :PROTO "tcp">
 #<SERVICE :NAME "cesdcdtrn" :ALIASES NIL :PORT 2922 :PROTO "udp">
 #<SERVICE :NAME "wta-wsp-wtp-s" :ALIASES NIL :PORT 2923 :PROTO "tcp">
 #<SERVICE :NAME "wta-wsp-wtp-s" :ALIASES NIL :PORT 2923 :PROTO "udp">
 #<SERVICE :NAME "precise-vip" :ALIASES NIL :PORT 2924 :PROTO "tcp">
 #<SERVICE :NAME "precise-vip" :ALIASES NIL :PORT 2924 :PROTO "udp">
 #<SERVICE :NAME "mobile-file-dl" :ALIASES NIL :PORT 2926 :PROTO "tcp">
 #<SERVICE :NAME "mobile-file-dl" :ALIASES NIL :PORT 2926 :PROTO "udp">
 #<SERVICE :NAME "unimobilectrl" :ALIASES NIL :PORT 2927 :PROTO "tcp">
 #<SERVICE :NAME "unimobilectrl" :ALIASES NIL :PORT 2927 :PROTO "udp">
 #<SERVICE :NAME "redstone-cpss" :ALIASES NIL :PORT 2928 :PROTO "tcp">
 #<SERVICE :NAME "redstone-cpss" :ALIASES NIL :PORT 2928 :PROTO "udp">
 #<SERVICE :NAME "amx-webadmin" :ALIASES NIL :PORT 2929 :PROTO "tcp">
 #<SERVICE :NAME "amx-webadmin" :ALIASES NIL :PORT 2929 :PROTO "udp">
 #<SERVICE :NAME "amx-weblinx" :ALIASES NIL :PORT 2930 :PROTO "tcp">
 #<SERVICE :NAME "amx-weblinx" :ALIASES NIL :PORT 2930 :PROTO "udp">
 #<SERVICE :NAME "circle-x" :ALIASES NIL :PORT 2931 :PROTO "tcp">
 #<SERVICE :NAME "circle-x" :ALIASES NIL :PORT 2931 :PROTO "udp">
 #<SERVICE :NAME "incp" :ALIASES NIL :PORT 2932 :PROTO "tcp">
 #<SERVICE :NAME "incp" :ALIASES NIL :PORT 2932 :PROTO "udp">
 #<SERVICE :NAME "4-tieropmgw" :ALIASES NIL :PORT 2933 :PROTO "tcp">
 #<SERVICE :NAME "4-tieropmgw" :ALIASES NIL :PORT 2933 :PROTO "udp">
 #<SERVICE :NAME "4-tieropmcli" :ALIASES NIL :PORT 2934 :PROTO "tcp">
 #<SERVICE :NAME "4-tieropmcli" :ALIASES NIL :PORT 2934 :PROTO "udp">
 #<SERVICE :NAME "qtp" :ALIASES NIL :PORT 2935 :PROTO "tcp">
 #<SERVICE :NAME "qtp" :ALIASES NIL :PORT 2935 :PROTO "udp">
 #<SERVICE :NAME "otpatch" :ALIASES NIL :PORT 2936 :PROTO "tcp">
 #<SERVICE :NAME "otpatch" :ALIASES NIL :PORT 2936 :PROTO "udp">
 #<SERVICE :NAME "pnaconsult-lm" :ALIASES NIL :PORT 2937 :PROTO "tcp">
 #<SERVICE :NAME "pnaconsult-lm" :ALIASES NIL :PORT 2937 :PROTO "udp">
 #<SERVICE :NAME "sm-pas-1" :ALIASES NIL :PORT 2938 :PROTO "tcp">
 #<SERVICE :NAME "sm-pas-1" :ALIASES NIL :PORT 2938 :PROTO "udp">
 #<SERVICE :NAME "sm-pas-2" :ALIASES NIL :PORT 2939 :PROTO "tcp">
 #<SERVICE :NAME "sm-pas-2" :ALIASES NIL :PORT 2939 :PROTO "udp">
 #<SERVICE :NAME "sm-pas-3" :ALIASES NIL :PORT 2940 :PROTO "tcp">
 #<SERVICE :NAME "sm-pas-3" :ALIASES NIL :PORT 2940 :PROTO "udp">
 #<SERVICE :NAME "sm-pas-4" :ALIASES NIL :PORT 2941 :PROTO "tcp">
 #<SERVICE :NAME "sm-pas-4" :ALIASES NIL :PORT 2941 :PROTO "udp">
 #<SERVICE :NAME "sm-pas-5" :ALIASES NIL :PORT 2942 :PROTO "tcp">
 #<SERVICE :NAME "sm-pas-5" :ALIASES NIL :PORT 2942 :PROTO "udp">
 #<SERVICE :NAME "ttnrepository" :ALIASES NIL :PORT 2943 :PROTO "tcp">
 #<SERVICE :NAME "ttnrepository" :ALIASES NIL :PORT 2943 :PROTO "udp">
 #<SERVICE :NAME "megaco-h248" :ALIASES NIL :PORT 2944 :PROTO "tcp">
 #<SERVICE :NAME "megaco-h248" :ALIASES NIL :PORT 2944 :PROTO "udp">
 #<SERVICE :NAME "megaco-h248" :ALIASES NIL :PORT 2944 :PROTO "sctp">
 #<SERVICE :NAME "h248-binary" :ALIASES NIL :PORT 2945 :PROTO "tcp">
 #<SERVICE :NAME "h248-binary" :ALIASES NIL :PORT 2945 :PROTO "udp">
 #<SERVICE :NAME "h248-binary" :ALIASES NIL :PORT 2945 :PROTO "sctp">
 #<SERVICE :NAME "fjsvmpor" :ALIASES NIL :PORT 2946 :PROTO "tcp">
 #<SERVICE :NAME "fjsvmpor" :ALIASES NIL :PORT 2946 :PROTO "udp">
 #<SERVICE :NAME "gpsd" :ALIASES NIL :PORT 2947 :PROTO "tcp">
 #<SERVICE :NAME "gpsd" :ALIASES NIL :PORT 2947 :PROTO "udp">
 #<SERVICE :NAME "wap-push" :ALIASES NIL :PORT 2948 :PROTO "tcp">
 #<SERVICE :NAME "wap-push" :ALIASES NIL :PORT 2948 :PROTO "udp">
 #<SERVICE :NAME "wap-pushsecure" :ALIASES NIL :PORT 2949 :PROTO "tcp">
 #<SERVICE :NAME "wap-pushsecure" :ALIASES NIL :PORT 2949 :PROTO "udp">
 #<SERVICE :NAME "esip" :ALIASES NIL :PORT 2950 :PROTO "tcp">
 #<SERVICE :NAME "esip" :ALIASES NIL :PORT 2950 :PROTO "udp">
 #<SERVICE :NAME "ottp" :ALIASES NIL :PORT 2951 :PROTO "tcp">
 #<SERVICE :NAME "ottp" :ALIASES NIL :PORT 2951 :PROTO "udp">
 #<SERVICE :NAME "mpfwsas" :ALIASES NIL :PORT 2952 :PROTO "tcp">
 #<SERVICE :NAME "mpfwsas" :ALIASES NIL :PORT 2952 :PROTO "udp">
 #<SERVICE :NAME "ovalarmsrv" :ALIASES NIL :PORT 2953 :PROTO "tcp">
 #<SERVICE :NAME "ovalarmsrv" :ALIASES NIL :PORT 2953 :PROTO "udp">
 #<SERVICE :NAME "ovalarmsrv-cmd" :ALIASES NIL :PORT 2954 :PROTO "tcp">
 #<SERVICE :NAME "ovalarmsrv-cmd" :ALIASES NIL :PORT 2954 :PROTO "udp">
 #<SERVICE :NAME "csnotify" :ALIASES NIL :PORT 2955 :PROTO "tcp">
 #<SERVICE :NAME "csnotify" :ALIASES NIL :PORT 2955 :PROTO "udp">
 #<SERVICE :NAME "ovrimosdbman" :ALIASES NIL :PORT 2956 :PROTO "tcp">
 #<SERVICE :NAME "ovrimosdbman" :ALIASES NIL :PORT 2956 :PROTO "udp">
 #<SERVICE :NAME "jmact5" :ALIASES NIL :PORT 2957 :PROTO "tcp">
 #<SERVICE :NAME "jmact5" :ALIASES NIL :PORT 2957 :PROTO "udp">
 #<SERVICE :NAME "jmact6" :ALIASES NIL :PORT 2958 :PROTO "tcp">
 #<SERVICE :NAME "jmact6" :ALIASES NIL :PORT 2958 :PROTO "udp">
 #<SERVICE :NAME "rmopagt" :ALIASES NIL :PORT 2959 :PROTO "tcp">
 #<SERVICE :NAME "rmopagt" :ALIASES NIL :PORT 2959 :PROTO "udp">
 #<SERVICE :NAME "dfoxserver" :ALIASES NIL :PORT 2960 :PROTO "tcp">
 #<SERVICE :NAME "dfoxserver" :ALIASES NIL :PORT 2960 :PROTO "udp">
 #<SERVICE :NAME "boldsoft-lm" :ALIASES NIL :PORT 2961 :PROTO "tcp">
 #<SERVICE :NAME "boldsoft-lm" :ALIASES NIL :PORT 2961 :PROTO "udp">
 #<SERVICE :NAME "iph-policy-cli" :ALIASES NIL :PORT 2962 :PROTO "tcp">
 #<SERVICE :NAME "iph-policy-cli" :ALIASES NIL :PORT 2962 :PROTO "udp">
 #<SERVICE :NAME "iph-policy-adm" :ALIASES NIL :PORT 2963 :PROTO "tcp">
 #<SERVICE :NAME "iph-policy-adm" :ALIASES NIL :PORT 2963 :PROTO "udp">
 #<SERVICE :NAME "bullant-srap" :ALIASES NIL :PORT 2964 :PROTO "tcp">
 #<SERVICE :NAME "bullant-srap" :ALIASES NIL :PORT 2964 :PROTO "udp">
 #<SERVICE :NAME "bullant-rap" :ALIASES NIL :PORT 2965 :PROTO "tcp">
 #<SERVICE :NAME "bullant-rap" :ALIASES NIL :PORT 2965 :PROTO "udp">
 #<SERVICE :NAME "idp-infotrieve" :ALIASES NIL :PORT 2966 :PROTO "tcp">
 #<SERVICE :NAME "idp-infotrieve" :ALIASES NIL :PORT 2966 :PROTO "udp">
 #<SERVICE :NAME "ssc-agent" :ALIASES NIL :PORT 2967 :PROTO "tcp">
 #<SERVICE :NAME "ssc-agent" :ALIASES NIL :PORT 2967 :PROTO "udp">
 #<SERVICE :NAME "enpp" :ALIASES NIL :PORT 2968 :PROTO "tcp">
 #<SERVICE :NAME "enpp" :ALIASES NIL :PORT 2968 :PROTO "udp">
 #<SERVICE :NAME "essp" :ALIASES NIL :PORT 2969 :PROTO "tcp">
 #<SERVICE :NAME "essp" :ALIASES NIL :PORT 2969 :PROTO "udp">
 #<SERVICE :NAME "index-net" :ALIASES NIL :PORT 2970 :PROTO "tcp">
 #<SERVICE :NAME "index-net" :ALIASES NIL :PORT 2970 :PROTO "udp">
 #<SERVICE :NAME "netclip" :ALIASES NIL :PORT 2971 :PROTO "tcp">
 #<SERVICE :NAME "netclip" :ALIASES NIL :PORT 2971 :PROTO "udp">
 #<SERVICE :NAME "pmsm-webrctl" :ALIASES NIL :PORT 2972 :PROTO "tcp">
 #<SERVICE :NAME "pmsm-webrctl" :ALIASES NIL :PORT 2972 :PROTO "udp">
 #<SERVICE :NAME "svnetworks" :ALIASES NIL :PORT 2973 :PROTO "tcp">
 #<SERVICE :NAME "svnetworks" :ALIASES NIL :PORT 2973 :PROTO "udp">
 #<SERVICE :NAME "signal" :ALIASES NIL :PORT 2974 :PROTO "tcp">
 #<SERVICE :NAME "signal" :ALIASES NIL :PORT 2974 :PROTO "udp">
 #<SERVICE :NAME "fjmpcm" :ALIASES NIL :PORT 2975 :PROTO "tcp">
 #<SERVICE :NAME "fjmpcm" :ALIASES NIL :PORT 2975 :PROTO "udp">
 #<SERVICE :NAME "cns-srv-port" :ALIASES NIL :PORT 2976 :PROTO "tcp">
 #<SERVICE :NAME "cns-srv-port" :ALIASES NIL :PORT 2976 :PROTO "udp">
 #<SERVICE :NAME "ttc-etap-ns" :ALIASES NIL :PORT 2977 :PROTO "tcp">
 #<SERVICE :NAME "ttc-etap-ns" :ALIASES NIL :PORT 2977 :PROTO "udp">
 #<SERVICE :NAME "ttc-etap-ds" :ALIASES NIL :PORT 2978 :PROTO "tcp">
 #<SERVICE :NAME "ttc-etap-ds" :ALIASES NIL :PORT 2978 :PROTO "udp">
 #<SERVICE :NAME "h263-video" :ALIASES NIL :PORT 2979 :PROTO "tcp">
 #<SERVICE :NAME "h263-video" :ALIASES NIL :PORT 2979 :PROTO "udp">
 #<SERVICE :NAME "wimd" :ALIASES NIL :PORT 2980 :PROTO "tcp">
 #<SERVICE :NAME "wimd" :ALIASES NIL :PORT 2980 :PROTO "udp">
 #<SERVICE :NAME "mylxamport" :ALIASES NIL :PORT 2981 :PROTO "tcp">
 #<SERVICE :NAME "mylxamport" :ALIASES NIL :PORT 2981 :PROTO "udp">
 #<SERVICE :NAME "iwb-whiteboard" :ALIASES NIL :PORT 2982 :PROTO "tcp">
 #<SERVICE :NAME "iwb-whiteboard" :ALIASES NIL :PORT 2982 :PROTO "udp">
 #<SERVICE :NAME "netplan" :ALIASES NIL :PORT 2983 :PROTO "tcp">
 #<SERVICE :NAME "netplan" :ALIASES NIL :PORT 2983 :PROTO "udp">
 #<SERVICE :NAME "hpidsadmin" :ALIASES NIL :PORT 2984 :PROTO "tcp">
 #<SERVICE :NAME "hpidsadmin" :ALIASES NIL :PORT 2984 :PROTO "udp">
 #<SERVICE :NAME "hpidsagent" :ALIASES NIL :PORT 2985 :PROTO "tcp">
 #<SERVICE :NAME "hpidsagent" :ALIASES NIL :PORT 2985 :PROTO "udp">
 #<SERVICE :NAME "stonefalls" :ALIASES NIL :PORT 2986 :PROTO "tcp">
 #<SERVICE :NAME "stonefalls" :ALIASES NIL :PORT 2986 :PROTO "udp">
 #<SERVICE :NAME "identify" :ALIASES NIL :PORT 2987 :PROTO "tcp">
 #<SERVICE :NAME "identify" :ALIASES NIL :PORT 2987 :PROTO "udp">
 #<SERVICE :NAME "zarkov" :ALIASES NIL :PORT 2989 :PROTO "tcp">
 #<SERVICE :NAME "zarkov" :ALIASES NIL :PORT 2989 :PROTO "udp">
 #<SERVICE :NAME "boscap" :ALIASES NIL :PORT 2990 :PROTO "tcp">
 #<SERVICE :NAME "boscap" :ALIASES NIL :PORT 2990 :PROTO "udp">
 #<SERVICE :NAME "wkstn-mon" :ALIASES NIL :PORT 2991 :PROTO "tcp">
 #<SERVICE :NAME "wkstn-mon" :ALIASES NIL :PORT 2991 :PROTO "udp">
 #<SERVICE :NAME "avenyo" :ALIASES NIL :PORT 2992 :PROTO "tcp">
 #<SERVICE :NAME "avenyo" :ALIASES NIL :PORT 2992 :PROTO "udp">
 #<SERVICE :NAME "veritas-vis1" :ALIASES NIL :PORT 2993 :PROTO "tcp">
 #<SERVICE :NAME "veritas-vis1" :ALIASES NIL :PORT 2993 :PROTO "udp">
 #<SERVICE :NAME "veritas-vis2" :ALIASES NIL :PORT 2994 :PROTO "tcp">
 #<SERVICE :NAME "veritas-vis2" :ALIASES NIL :PORT 2994 :PROTO "udp">
 #<SERVICE :NAME "idrs" :ALIASES NIL :PORT 2995 :PROTO "tcp">
 #<SERVICE :NAME "idrs" :ALIASES NIL :PORT 2995 :PROTO "udp">
 #<SERVICE :NAME "vsixml" :ALIASES NIL :PORT 2996 :PROTO "tcp">
 #<SERVICE :NAME "vsixml" :ALIASES NIL :PORT 2996 :PROTO "udp">
 #<SERVICE :NAME "rebol" :ALIASES NIL :PORT 2997 :PROTO "tcp">
 #<SERVICE :NAME "rebol" :ALIASES NIL :PORT 2997 :PROTO "udp">
 #<SERVICE :NAME "realsecure" :ALIASES NIL :PORT 2998 :PROTO "tcp">
 #<SERVICE :NAME "realsecure" :ALIASES NIL :PORT 2998 :PROTO "udp">
 #<SERVICE :NAME "remoteware-un" :ALIASES NIL :PORT 2999 :PROTO "tcp">
 #<SERVICE :NAME "remoteware-un" :ALIASES NIL :PORT 2999 :PROTO "udp">
 #<SERVICE :NAME "hbci" :ALIASES ("ceph") :PORT 3000 :PROTO "tcp">
 #<SERVICE :NAME "hbci" :ALIASES NIL :PORT 3000 :PROTO "udp">
 #<SERVICE :NAME "origo-native" :ALIASES NIL :PORT 3001 :PROTO "tcp">
 #<SERVICE :NAME "exlm-agent" :ALIASES NIL :PORT 3002 :PROTO "tcp">
 #<SERVICE :NAME "exlm-agent" :ALIASES NIL :PORT 3002 :PROTO "udp">
 #<SERVICE :NAME "cgms" :ALIASES NIL :PORT 3003 :PROTO "tcp">
 #<SERVICE :NAME "cgms" :ALIASES NIL :PORT 3003 :PROTO "udp">
 #<SERVICE :NAME "csoftragent" :ALIASES NIL :PORT 3004 :PROTO "tcp">
 #<SERVICE :NAME "csoftragent" :ALIASES NIL :PORT 3004 :PROTO "udp">
 #<SERVICE :NAME "geniuslm" :ALIASES NIL :PORT 3005 :PROTO "tcp">
 #<SERVICE :NAME "geniuslm" :ALIASES NIL :PORT 3005 :PROTO "udp">
 #<SERVICE :NAME "ii-admin" :ALIASES NIL :PORT 3006 :PROTO "tcp">
 #<SERVICE :NAME "ii-admin" :ALIASES NIL :PORT 3006 :PROTO "udp">
 #<SERVICE :NAME "lotusmtap" :ALIASES NIL :PORT 3007 :PROTO "tcp">
 #<SERVICE :NAME "lotusmtap" :ALIASES NIL :PORT 3007 :PROTO "udp">
 #<SERVICE :NAME "midnight-tech" :ALIASES NIL :PORT 3008 :PROTO "tcp">
 #<SERVICE :NAME "midnight-tech" :ALIASES NIL :PORT 3008 :PROTO "udp">
 #<SERVICE :NAME "pxc-ntfy" :ALIASES NIL :PORT 3009 :PROTO "tcp">
 #<SERVICE :NAME "pxc-ntfy" :ALIASES NIL :PORT 3009 :PROTO "udp">
 #<SERVICE :NAME "gw" :ALIASES NIL :PORT 3010 :PROTO "tcp">
 #<SERVICE :NAME "ping-pong" :ALIASES NIL :PORT 3010 :PROTO "udp">
 #<SERVICE :NAME "trusted-web" :ALIASES NIL :PORT 3011 :PROTO "tcp">
 #<SERVICE :NAME "trusted-web" :ALIASES NIL :PORT 3011 :PROTO "udp">
 #<SERVICE :NAME "twsdss" :ALIASES NIL :PORT 3012 :PROTO "tcp">
 #<SERVICE :NAME "twsdss" :ALIASES NIL :PORT 3012 :PROTO "udp">
 #<SERVICE :NAME "gilatskysurfer" :ALIASES NIL :PORT 3013 :PROTO "tcp">
 #<SERVICE :NAME "gilatskysurfer" :ALIASES NIL :PORT 3013 :PROTO "udp">
 #<SERVICE :NAME "broker_service" :ALIASES ("broker-service") :PORT 3014
   :PROTO "tcp">
 #<SERVICE :NAME "broker_service" :ALIASES ("broker-service") :PORT 3014
   :PROTO "udp">
 #<SERVICE :NAME "nati-dstp" :ALIASES NIL :PORT 3015 :PROTO "tcp">
 #<SERVICE :NAME "nati-dstp" :ALIASES NIL :PORT 3015 :PROTO "udp">
 #<SERVICE :NAME "notify_srvr" :ALIASES ("notify-srvr") :PORT 3016
   :PROTO "tcp">
 #<SERVICE :NAME "notify_srvr" :ALIASES ("notify-srvr") :PORT 3016
   :PROTO "udp">
 #<SERVICE :NAME "event_listener" :ALIASES ("event-listener") :PORT 3017
   :PROTO "tcp">
 #<SERVICE :NAME "event_listener" :ALIASES ("event-listener") :PORT 3017
   :PROTO "udp">
 #<SERVICE :NAME "srvc_registry" :ALIASES ("srvc-registry") :PORT 3018
   :PROTO "tcp">
 #<SERVICE :NAME "srvc_registry" :ALIASES ("srvc-registry") :PORT 3018
   :PROTO "udp">
 #<SERVICE :NAME "resource_mgr" :ALIASES ("resource-mgr") :PORT 3019
   :PROTO "tcp">
 #<SERVICE :NAME "resource_mgr" :ALIASES ("resource-mgr") :PORT 3019
   :PROTO "udp">
 #<SERVICE :NAME "cifs" :ALIASES NIL :PORT 3020 :PROTO "tcp">
 #<SERVICE :NAME "cifs" :ALIASES NIL :PORT 3020 :PROTO "udp">
 #<SERVICE :NAME "agriserver" :ALIASES NIL :PORT 3021 :PROTO "tcp">
 #<SERVICE :NAME "agriserver" :ALIASES NIL :PORT 3021 :PROTO "udp">
 #<SERVICE :NAME "csregagent" :ALIASES NIL :PORT 3022 :PROTO "tcp">
 #<SERVICE :NAME "csregagent" :ALIASES NIL :PORT 3022 :PROTO "udp">
 #<SERVICE :NAME "magicnotes" :ALIASES NIL :PORT 3023 :PROTO "tcp">
 #<SERVICE :NAME "magicnotes" :ALIASES NIL :PORT 3023 :PROTO "udp">
 #<SERVICE :NAME "nds_sso" :ALIASES ("nds-sso") :PORT 3024 :PROTO "tcp">
 #<SERVICE :NAME "nds_sso" :ALIASES ("nds-sso") :PORT 3024 :PROTO "udp">
 #<SERVICE :NAME "arepa-raft" :ALIASES NIL :PORT 3025 :PROTO "tcp">
 #<SERVICE :NAME "arepa-raft" :ALIASES NIL :PORT 3025 :PROTO "udp">
 #<SERVICE :NAME "agri-gateway" :ALIASES NIL :PORT 3026 :PROTO "tcp">
 #<SERVICE :NAME "agri-gateway" :ALIASES NIL :PORT 3026 :PROTO "udp">
 #<SERVICE :NAME "LiebDevMgmt_C" :ALIASES ("LiebDevMgmt-C") :PORT 3027
   :PROTO "tcp">
 #<SERVICE :NAME "LiebDevMgmt_C" :ALIASES ("LiebDevMgmt-C") :PORT 3027
   :PROTO "udp">
 #<SERVICE :NAME "LiebDevMgmt_DM" :ALIASES ("LiebDevMgmt-DM") :PORT 3028
   :PROTO "tcp">
 #<SERVICE :NAME "LiebDevMgmt_DM" :ALIASES ("LiebDevMgmt-DM") :PORT 3028
   :PROTO "udp">
 #<SERVICE :NAME "LiebDevMgmt_A" :ALIASES ("LiebDevMgmt-A") :PORT 3029
   :PROTO "tcp">
 #<SERVICE :NAME "LiebDevMgmt_A" :ALIASES ("LiebDevMgmt-A") :PORT 3029
   :PROTO "udp">
 #<SERVICE :NAME "arepa-cas" :ALIASES NIL :PORT 3030 :PROTO "tcp">
 #<SERVICE :NAME "arepa-cas" :ALIASES NIL :PORT 3030 :PROTO "udp">
 #<SERVICE :NAME "eppc" :ALIASES NIL :PORT 3031 :PROTO "tcp">
 #<SERVICE :NAME "eppc" :ALIASES NIL :PORT 3031 :PROTO "udp">
 #<SERVICE :NAME "redwood-chat" :ALIASES NIL :PORT 3032 :PROTO "tcp">
 #<SERVICE :NAME "redwood-chat" :ALIASES NIL :PORT 3032 :PROTO "udp">
 #<SERVICE :NAME "pdb" :ALIASES NIL :PORT 3033 :PROTO "tcp">
 #<SERVICE :NAME "pdb" :ALIASES NIL :PORT 3033 :PROTO "udp">
 #<SERVICE :NAME "osmosis-aeea" :ALIASES NIL :PORT 3034 :PROTO "tcp">
 #<SERVICE :NAME "osmosis-aeea" :ALIASES NIL :PORT 3034 :PROTO "udp">
 #<SERVICE :NAME "fjsv-gssagt" :ALIASES NIL :PORT 3035 :PROTO "tcp">
 #<SERVICE :NAME "fjsv-gssagt" :ALIASES NIL :PORT 3035 :PROTO "udp">
 #<SERVICE :NAME "hagel-dump" :ALIASES NIL :PORT 3036 :PROTO "tcp">
 #<SERVICE :NAME "hagel-dump" :ALIASES NIL :PORT 3036 :PROTO "udp">
 #<SERVICE :NAME "hp-san-mgmt" :ALIASES NIL :PORT 3037 :PROTO "tcp">
 #<SERVICE :NAME "hp-san-mgmt" :ALIASES NIL :PORT 3037 :PROTO "udp">
 #<SERVICE :NAME "santak-ups" :ALIASES NIL :PORT 3038 :PROTO "tcp">
 #<SERVICE :NAME "santak-ups" :ALIASES NIL :PORT 3038 :PROTO "udp">
 #<SERVICE :NAME "cogitate" :ALIASES NIL :PORT 3039 :PROTO "tcp">
 #<SERVICE :NAME "cogitate" :ALIASES NIL :PORT 3039 :PROTO "udp">
 #<SERVICE :NAME "tomato-springs" :ALIASES NIL :PORT 3040 :PROTO "tcp">
 #<SERVICE :NAME "tomato-springs" :ALIASES NIL :PORT 3040 :PROTO "udp">
 #<SERVICE :NAME "di-traceware" :ALIASES NIL :PORT 3041 :PROTO "tcp">
 #<SERVICE :NAME "di-traceware" :ALIASES NIL :PORT 3041 :PROTO "udp">
 #<SERVICE :NAME "journee" :ALIASES NIL :PORT 3042 :PROTO "tcp">
 #<SERVICE :NAME "journee" :ALIASES NIL :PORT 3042 :PROTO "udp">
 #<SERVICE :NAME "brp" :ALIASES NIL :PORT 3043 :PROTO "tcp">
 #<SERVICE :NAME "brp" :ALIASES NIL :PORT 3043 :PROTO "udp">
 #<SERVICE :NAME "responsenet" :ALIASES NIL :PORT 3045 :PROTO "tcp">
 #<SERVICE :NAME "responsenet" :ALIASES NIL :PORT 3045 :PROTO "udp">
 #<SERVICE :NAME "di-ase" :ALIASES NIL :PORT 3046 :PROTO "tcp">
 #<SERVICE :NAME "di-ase" :ALIASES NIL :PORT 3046 :PROTO "udp">
 #<SERVICE :NAME "hlserver" :ALIASES NIL :PORT 3047 :PROTO "tcp">
 #<SERVICE :NAME "hlserver" :ALIASES NIL :PORT 3047 :PROTO "udp">
 #<SERVICE :NAME "pctrader" :ALIASES NIL :PORT 3048 :PROTO "tcp">
 #<SERVICE :NAME "pctrader" :ALIASES NIL :PORT 3048 :PROTO "udp">
 #<SERVICE :NAME "nsws" :ALIASES NIL :PORT 3049 :PROTO "tcp">
 #<SERVICE :NAME "nsws" :ALIASES NIL :PORT 3049 :PROTO "udp">
 #<SERVICE :NAME "gds_db" :ALIASES ("gds-db") :PORT 3050 :PROTO "tcp">
 #<SERVICE :NAME "gds_db" :ALIASES ("gds-db") :PORT 3050 :PROTO "udp">
 #<SERVICE :NAME "galaxy-server" :ALIASES NIL :PORT 3051 :PROTO "tcp">
 #<SERVICE :NAME "galaxy-server" :ALIASES NIL :PORT 3051 :PROTO "udp">
 #<SERVICE :NAME "apc-3052" :ALIASES NIL :PORT 3052 :PROTO "tcp">
 #<SERVICE :NAME "apc-3052" :ALIASES NIL :PORT 3052 :PROTO "udp">
 #<SERVICE :NAME "dsom-server" :ALIASES NIL :PORT 3053 :PROTO "tcp">
 #<SERVICE :NAME "dsom-server" :ALIASES NIL :PORT 3053 :PROTO "udp">
 #<SERVICE :NAME "amt-cnf-prot" :ALIASES NIL :PORT 3054 :PROTO "tcp">
 #<SERVICE :NAME "amt-cnf-prot" :ALIASES NIL :PORT 3054 :PROTO "udp">
 #<SERVICE :NAME "policyserver" :ALIASES NIL :PORT 3055 :PROTO "tcp">
 #<SERVICE :NAME "policyserver" :ALIASES NIL :PORT 3055 :PROTO "udp">
 #<SERVICE :NAME "cdl-server" :ALIASES NIL :PORT 3056 :PROTO "tcp">
 #<SERVICE :NAME "cdl-server" :ALIASES NIL :PORT 3056 :PROTO "udp">
 #<SERVICE :NAME "goahead-fldup" :ALIASES NIL :PORT 3057 :PROTO "tcp">
 #<SERVICE :NAME "goahead-fldup" :ALIASES NIL :PORT 3057 :PROTO "udp">
 #<SERVICE :NAME "videobeans" :ALIASES NIL :PORT 3058 :PROTO "tcp">
 #<SERVICE :NAME "videobeans" :ALIASES NIL :PORT 3058 :PROTO "udp">
 #<SERVICE :NAME "qsoft" :ALIASES NIL :PORT 3059 :PROTO "tcp">
 #<SERVICE :NAME "qsoft" :ALIASES NIL :PORT 3059 :PROTO "udp">
 #<SERVICE :NAME "interserver" :ALIASES NIL :PORT 3060 :PROTO "tcp">
 #<SERVICE :NAME "interserver" :ALIASES NIL :PORT 3060 :PROTO "udp">
 #<SERVICE :NAME "cautcpd" :ALIASES NIL :PORT 3061 :PROTO "tcp">
 #<SERVICE :NAME "cautcpd" :ALIASES NIL :PORT 3061 :PROTO "udp">
 #<SERVICE :NAME "ncacn-ip-tcp" :ALIASES NIL :PORT 3062 :PROTO "tcp">
 #<SERVICE :NAME "ncacn-ip-tcp" :ALIASES NIL :PORT 3062 :PROTO "udp">
 #<SERVICE :NAME "ncadg-ip-udp" :ALIASES NIL :PORT 3063 :PROTO "tcp">
 #<SERVICE :NAME "ncadg-ip-udp" :ALIASES NIL :PORT 3063 :PROTO "udp">
 #<SERVICE :NAME "rprt" :ALIASES NIL :PORT 3064 :PROTO "tcp">
 #<SERVICE :NAME "rprt" :ALIASES NIL :PORT 3064 :PROTO "udp">
 #<SERVICE :NAME "slinterbase" :ALIASES NIL :PORT 3065 :PROTO "tcp">
 #<SERVICE :NAME "slinterbase" :ALIASES NIL :PORT 3065 :PROTO "udp">
 #<SERVICE :NAME "netattachsdmp" :ALIASES NIL :PORT 3066 :PROTO "tcp">
 #<SERVICE :NAME "netattachsdmp" :ALIASES NIL :PORT 3066 :PROTO "udp">
 #<SERVICE :NAME "fjhpjp" :ALIASES NIL :PORT 3067 :PROTO "tcp">
 #<SERVICE :NAME "fjhpjp" :ALIASES NIL :PORT 3067 :PROTO "udp">
 #<SERVICE :NAME "ls3bcast" :ALIASES NIL :PORT 3068 :PROTO "tcp">
 #<SERVICE :NAME "ls3bcast" :ALIASES NIL :PORT 3068 :PROTO "udp">
 #<SERVICE :NAME "ls3" :ALIASES NIL :PORT 3069 :PROTO "tcp">
 #<SERVICE :NAME "ls3" :ALIASES NIL :PORT 3069 :PROTO "udp">
 #<SERVICE :NAME "mgxswitch" :ALIASES NIL :PORT 3070 :PROTO "tcp">
 #<SERVICE :NAME "mgxswitch" :ALIASES NIL :PORT 3070 :PROTO "udp">
 #<SERVICE :NAME "csd-mgmt-port" :ALIASES NIL :PORT 3071 :PROTO "tcp">
 #<SERVICE :NAME "csd-mgmt-port" :ALIASES NIL :PORT 3071 :PROTO "udp">
 #<SERVICE :NAME "csd-monitor" :ALIASES NIL :PORT 3072 :PROTO "tcp">
 #<SERVICE :NAME "csd-monitor" :ALIASES NIL :PORT 3072 :PROTO "udp">
 #<SERVICE :NAME "vcrp" :ALIASES NIL :PORT 3073 :PROTO "tcp">
 #<SERVICE :NAME "vcrp" :ALIASES NIL :PORT 3073 :PROTO "udp">
 #<SERVICE :NAME "xbox" :ALIASES NIL :PORT 3074 :PROTO "tcp">
 #<SERVICE :NAME "xbox" :ALIASES NIL :PORT 3074 :PROTO "udp">
 #<SERVICE :NAME "orbix-locator" :ALIASES NIL :PORT 3075 :PROTO "tcp">
 #<SERVICE :NAME "orbix-locator" :ALIASES NIL :PORT 3075 :PROTO "udp">
 #<SERVICE :NAME "orbix-config" :ALIASES NIL :PORT 3076 :PROTO "tcp">
 #<SERVICE :NAME "orbix-config" :ALIASES NIL :PORT 3076 :PROTO "udp">
 #<SERVICE :NAME "orbix-loc-ssl" :ALIASES NIL :PORT 3077 :PROTO "tcp">
 #<SERVICE :NAME "orbix-loc-ssl" :ALIASES NIL :PORT 3077 :PROTO "udp">
 #<SERVICE :NAME "orbix-cfg-ssl" :ALIASES NIL :PORT 3078 :PROTO "tcp">
 #<SERVICE :NAME "orbix-cfg-ssl" :ALIASES NIL :PORT 3078 :PROTO "udp">
 #<SERVICE :NAME "lv-frontpanel" :ALIASES NIL :PORT 3079 :PROTO "tcp">
 #<SERVICE :NAME "lv-frontpanel" :ALIASES NIL :PORT 3079 :PROTO "udp">
 #<SERVICE :NAME "stm_pproc" :ALIASES ("stm-pproc") :PORT 3080 :PROTO "tcp">
 #<SERVICE :NAME "stm_pproc" :ALIASES ("stm-pproc") :PORT 3080 :PROTO "udp">
 #<SERVICE :NAME "tl1-lv" :ALIASES NIL :PORT 3081 :PROTO "tcp">
 #<SERVICE :NAME "tl1-lv" :ALIASES NIL :PORT 3081 :PROTO "udp">
 #<SERVICE :NAME "tl1-raw" :ALIASES NIL :PORT 3082 :PROTO "tcp">
 #<SERVICE :NAME "tl1-raw" :ALIASES NIL :PORT 3082 :PROTO "udp">
 #<SERVICE :NAME "tl1-telnet" :ALIASES NIL :PORT 3083 :PROTO "tcp">
 #<SERVICE :NAME "tl1-telnet" :ALIASES NIL :PORT 3083 :PROTO "udp">
 #<SERVICE :NAME "itm-mccs" :ALIASES NIL :PORT 3084 :PROTO "tcp">
 #<SERVICE :NAME "itm-mccs" :ALIASES NIL :PORT 3084 :PROTO "udp">
 #<SERVICE :NAME "pcihreq" :ALIASES NIL :PORT 3085 :PROTO "tcp">
 #<SERVICE :NAME "pcihreq" :ALIASES NIL :PORT 3085 :PROTO "udp">
 #<SERVICE :NAME "jdl-dbkitchen" :ALIASES NIL :PORT 3086 :PROTO "tcp">
 #<SERVICE :NAME "jdl-dbkitchen" :ALIASES NIL :PORT 3086 :PROTO "udp">
 #<SERVICE :NAME "asoki-sma" :ALIASES NIL :PORT 3087 :PROTO "tcp">
 #<SERVICE :NAME "asoki-sma" :ALIASES NIL :PORT 3087 :PROTO "udp">
 #<SERVICE :NAME "xdtp" :ALIASES NIL :PORT 3088 :PROTO "tcp">
 #<SERVICE :NAME "xdtp" :ALIASES NIL :PORT 3088 :PROTO "udp">
 #<SERVICE :NAME "ptk-alink" :ALIASES NIL :PORT 3089 :PROTO "tcp">
 #<SERVICE :NAME "ptk-alink" :ALIASES NIL :PORT 3089 :PROTO "udp">
 #<SERVICE :NAME "stss" :ALIASES NIL :PORT 3090 :PROTO "tcp">
 #<SERVICE :NAME "stss" :ALIASES NIL :PORT 3090 :PROTO "udp">
 #<SERVICE :NAME "1ci-smcs" :ALIASES NIL :PORT 3091 :PROTO "tcp">
 #<SERVICE :NAME "1ci-smcs" :ALIASES NIL :PORT 3091 :PROTO "udp">
 #<SERVICE :NAME "rapidmq-center" :ALIASES NIL :PORT 3093 :PROTO "tcp">
 #<SERVICE :NAME "rapidmq-center" :ALIASES NIL :PORT 3093 :PROTO "udp">
 #<SERVICE :NAME "rapidmq-reg" :ALIASES NIL :PORT 3094 :PROTO "tcp">
 #<SERVICE :NAME "rapidmq-reg" :ALIASES NIL :PORT 3094 :PROTO "udp">
 #<SERVICE :NAME "panasas" :ALIASES NIL :PORT 3095 :PROTO "tcp">
 #<SERVICE :NAME "panasas" :ALIASES NIL :PORT 3095 :PROTO "udp">
 #<SERVICE :NAME "ndl-aps" :ALIASES NIL :PORT 3096 :PROTO "tcp">
 #<SERVICE :NAME "ndl-aps" :ALIASES NIL :PORT 3096 :PROTO "udp">
 #<SERVICE :NAME "itu-bicc-stc" :ALIASES NIL :PORT 3097 :PROTO "sctp">
 #<SERVICE :NAME "umm-port" :ALIASES NIL :PORT 3098 :PROTO "tcp">
 #<SERVICE :NAME "umm-port" :ALIASES NIL :PORT 3098 :PROTO "udp">
 #<SERVICE :NAME "chmd" :ALIASES NIL :PORT 3099 :PROTO "tcp">
 #<SERVICE :NAME "chmd" :ALIASES NIL :PORT 3099 :PROTO "udp">
 #<SERVICE :NAME "opcon-xps" :ALIASES NIL :PORT 3100 :PROTO "tcp">
 #<SERVICE :NAME "opcon-xps" :ALIASES NIL :PORT 3100 :PROTO "udp">
 #<SERVICE :NAME "hp-pxpib" :ALIASES NIL :PORT 3101 :PROTO "tcp">
 #<SERVICE :NAME "hp-pxpib" :ALIASES NIL :PORT 3101 :PROTO "udp">
 #<SERVICE :NAME "slslavemon" :ALIASES NIL :PORT 3102 :PROTO "tcp">
 #<SERVICE :NAME "slslavemon" :ALIASES NIL :PORT 3102 :PROTO "udp">
 #<SERVICE :NAME "autocuesmi" :ALIASES NIL :PORT 3103 :PROTO "tcp">
 #<SERVICE :NAME "autocuesmi" :ALIASES NIL :PORT 3103 :PROTO "udp">
 #<SERVICE :NAME "autocuelog" :ALIASES NIL :PORT 3104 :PROTO "tcp">
 #<SERVICE :NAME "autocuetime" :ALIASES NIL :PORT 3104 :PROTO "udp">
 #<SERVICE :NAME "cardbox" :ALIASES NIL :PORT 3105 :PROTO "tcp">
 #<SERVICE :NAME "cardbox" :ALIASES NIL :PORT 3105 :PROTO "udp">
 #<SERVICE :NAME "cardbox-http" :ALIASES NIL :PORT 3106 :PROTO "tcp">
 #<SERVICE :NAME "cardbox-http" :ALIASES NIL :PORT 3106 :PROTO "udp">
 #<SERVICE :NAME "business" :ALIASES NIL :PORT 3107 :PROTO "tcp">
 #<SERVICE :NAME "business" :ALIASES NIL :PORT 3107 :PROTO "udp">
 #<SERVICE :NAME "geolocate" :ALIASES NIL :PORT 3108 :PROTO "tcp">
 #<SERVICE :NAME "geolocate" :ALIASES NIL :PORT 3108 :PROTO "udp">
 #<SERVICE :NAME "personnel" :ALIASES NIL :PORT 3109 :PROTO "tcp">
 #<SERVICE :NAME "personnel" :ALIASES NIL :PORT 3109 :PROTO "udp">
 #<SERVICE :NAME "sim-control" :ALIASES NIL :PORT 3110 :PROTO "tcp">
 #<SERVICE :NAME "sim-control" :ALIASES NIL :PORT 3110 :PROTO "udp">
 #<SERVICE :NAME "wsynch" :ALIASES NIL :PORT 3111 :PROTO "tcp">
 #<SERVICE :NAME "wsynch" :ALIASES NIL :PORT 3111 :PROTO "udp">
 #<SERVICE :NAME "ksysguard" :ALIASES NIL :PORT 3112 :PROTO "tcp">
 #<SERVICE :NAME "ksysguard" :ALIASES NIL :PORT 3112 :PROTO "udp">
 #<SERVICE :NAME "cs-auth-svr" :ALIASES NIL :PORT 3113 :PROTO "tcp">
 #<SERVICE :NAME "cs-auth-svr" :ALIASES NIL :PORT 3113 :PROTO "udp">
 #<SERVICE :NAME "ccmad" :ALIASES NIL :PORT 3114 :PROTO "tcp">
 #<SERVICE :NAME "ccmad" :ALIASES NIL :PORT 3114 :PROTO "udp">
 #<SERVICE :NAME "mctet-master" :ALIASES NIL :PORT 3115 :PROTO "tcp">
 #<SERVICE :NAME "mctet-master" :ALIASES NIL :PORT 3115 :PROTO "udp">
 #<SERVICE :NAME "mctet-gateway" :ALIASES NIL :PORT 3116 :PROTO "tcp">
 #<SERVICE :NAME "mctet-gateway" :ALIASES NIL :PORT 3116 :PROTO "udp">
 #<SERVICE :NAME "mctet-jserv" :ALIASES NIL :PORT 3117 :PROTO "tcp">
 #<SERVICE :NAME "mctet-jserv" :ALIASES NIL :PORT 3117 :PROTO "udp">
 #<SERVICE :NAME "pkagent" :ALIASES NIL :PORT 3118 :PROTO "tcp">
 #<SERVICE :NAME "pkagent" :ALIASES NIL :PORT 3118 :PROTO "udp">
 #<SERVICE :NAME "d2000kernel" :ALIASES NIL :PORT 3119 :PROTO "tcp">
 #<SERVICE :NAME "d2000kernel" :ALIASES NIL :PORT 3119 :PROTO "udp">
 #<SERVICE :NAME "d2000webserver" :ALIASES NIL :PORT 3120 :PROTO "tcp">
 #<SERVICE :NAME "d2000webserver" :ALIASES NIL :PORT 3120 :PROTO "udp">
 #<SERVICE :NAME "pcmk-remote" :ALIASES NIL :PORT 3121 :PROTO "tcp">
 #<SERVICE :NAME "vtr-emulator" :ALIASES NIL :PORT 3122 :PROTO "tcp">
 #<SERVICE :NAME "vtr-emulator" :ALIASES NIL :PORT 3122 :PROTO "udp">
 #<SERVICE :NAME "edix" :ALIASES NIL :PORT 3123 :PROTO "tcp">
 #<SERVICE :NAME "edix" :ALIASES NIL :PORT 3123 :PROTO "udp">
 #<SERVICE :NAME "beacon-port" :ALIASES NIL :PORT 3124 :PROTO "tcp">
 #<SERVICE :NAME "beacon-port" :ALIASES NIL :PORT 3124 :PROTO "udp">
 #<SERVICE :NAME "a13-an" :ALIASES NIL :PORT 3125 :PROTO "tcp">
 #<SERVICE :NAME "a13-an" :ALIASES NIL :PORT 3125 :PROTO "udp">
 #<SERVICE :NAME "ctx-bridge" :ALIASES NIL :PORT 3127 :PROTO "tcp">
 #<SERVICE :NAME "ctx-bridge" :ALIASES NIL :PORT 3127 :PROTO "udp">
 #<SERVICE :NAME "ndl-aas" :ALIASES NIL :PORT 3128 :PROTO "udp">
 #<SERVICE :NAME "netport-id" :ALIASES NIL :PORT 3129 :PROTO "tcp">
 #<SERVICE :NAME "netport-id" :ALIASES NIL :PORT 3129 :PROTO "udp">
 #<SERVICE :NAME "netbookmark" :ALIASES NIL :PORT 3131 :PROTO "tcp">
 #<SERVICE :NAME "netbookmark" :ALIASES NIL :PORT 3131 :PROTO "udp">
 #<SERVICE :NAME "ms-rule-engine" :ALIASES NIL :PORT 3132 :PROTO "tcp">
 #<SERVICE :NAME "ms-rule-engine" :ALIASES NIL :PORT 3132 :PROTO "udp">
 #<SERVICE :NAME "prism-deploy" :ALIASES NIL :PORT 3133 :PROTO "tcp">
 #<SERVICE :NAME "prism-deploy" :ALIASES NIL :PORT 3133 :PROTO "udp">
 #<SERVICE :NAME "ecp" :ALIASES NIL :PORT 3134 :PROTO "tcp">
 #<SERVICE :NAME "ecp" :ALIASES NIL :PORT 3134 :PROTO "udp">
 #<SERVICE :NAME "peerbook-port" :ALIASES NIL :PORT 3135 :PROTO "tcp">
 #<SERVICE :NAME "peerbook-port" :ALIASES NIL :PORT 3135 :PROTO "udp">
 #<SERVICE :NAME "grubd" :ALIASES NIL :PORT 3136 :PROTO "tcp">
 #<SERVICE :NAME "grubd" :ALIASES NIL :PORT 3136 :PROTO "udp">
 #<SERVICE :NAME "rtnt-1" :ALIASES NIL :PORT 3137 :PROTO "tcp">
 #<SERVICE :NAME "rtnt-1" :ALIASES NIL :PORT 3137 :PROTO "udp">
 #<SERVICE :NAME "rtnt-2" :ALIASES NIL :PORT 3138 :PROTO "tcp">
 #<SERVICE :NAME "rtnt-2" :ALIASES NIL :PORT 3138 :PROTO "udp">
 #<SERVICE :NAME "incognitorv" :ALIASES NIL :PORT 3139 :PROTO "tcp">
 #<SERVICE :NAME "incognitorv" :ALIASES NIL :PORT 3139 :PROTO "udp">
 #<SERVICE :NAME "ariliamulti" :ALIASES NIL :PORT 3140 :PROTO "tcp">
 #<SERVICE :NAME "ariliamulti" :ALIASES NIL :PORT 3140 :PROTO "udp">
 #<SERVICE :NAME "vmodem" :ALIASES NIL :PORT 3141 :PROTO "tcp">
 #<SERVICE :NAME "vmodem" :ALIASES NIL :PORT 3141 :PROTO "udp">
 #<SERVICE :NAME "rdc-wh-eos" :ALIASES NIL :PORT 3142 :PROTO "tcp">
 #<SERVICE :NAME "rdc-wh-eos" :ALIASES NIL :PORT 3142 :PROTO "udp">
 #<SERVICE :NAME "seaview" :ALIASES NIL :PORT 3143 :PROTO "tcp">
 #<SERVICE :NAME "seaview" :ALIASES NIL :PORT 3143 :PROTO "udp">
 #<SERVICE :NAME "tarantella" :ALIASES NIL :PORT 3144 :PROTO "tcp">
 #<SERVICE :NAME "tarantella" :ALIASES NIL :PORT 3144 :PROTO "udp">
 #<SERVICE :NAME "csi-lfap" :ALIASES NIL :PORT 3145 :PROTO "tcp">
 #<SERVICE :NAME "csi-lfap" :ALIASES NIL :PORT 3145 :PROTO "udp">
 #<SERVICE :NAME "bears-02" :ALIASES NIL :PORT 3146 :PROTO "tcp">
 #<SERVICE :NAME "bears-02" :ALIASES NIL :PORT 3146 :PROTO "udp">
 #<SERVICE :NAME "rfio" :ALIASES NIL :PORT 3147 :PROTO "tcp">
 #<SERVICE :NAME "rfio" :ALIASES NIL :PORT 3147 :PROTO "udp">
 #<SERVICE :NAME "nm-game-admin" :ALIASES NIL :PORT 3148 :PROTO "tcp">
 #<SERVICE :NAME "nm-game-admin" :ALIASES NIL :PORT 3148 :PROTO "udp">
 #<SERVICE :NAME "nm-game-server" :ALIASES NIL :PORT 3149 :PROTO "tcp">
 #<SERVICE :NAME "nm-game-server" :ALIASES NIL :PORT 3149 :PROTO "udp">
 #<SERVICE :NAME "nm-asses-admin" :ALIASES NIL :PORT 3150 :PROTO "tcp">
 #<SERVICE :NAME "nm-asses-admin" :ALIASES NIL :PORT 3150 :PROTO "udp">
 #<SERVICE :NAME "nm-assessor" :ALIASES NIL :PORT 3151 :PROTO "tcp">
 #<SERVICE :NAME "nm-assessor" :ALIASES NIL :PORT 3151 :PROTO "udp">
 #<SERVICE :NAME "feitianrockey" :ALIASES NIL :PORT 3152 :PROTO "tcp">
 #<SERVICE :NAME "feitianrockey" :ALIASES NIL :PORT 3152 :PROTO "udp">
 #<SERVICE :NAME "s8-client-port" :ALIASES NIL :PORT 3153 :PROTO "tcp">
 #<SERVICE :NAME "s8-client-port" :ALIASES NIL :PORT 3153 :PROTO "udp">
 #<SERVICE :NAME "ccmrmi" :ALIASES NIL :PORT 3154 :PROTO "tcp">
 #<SERVICE :NAME "ccmrmi" :ALIASES NIL :PORT 3154 :PROTO "udp">
 #<SERVICE :NAME "jpegmpeg" :ALIASES NIL :PORT 3155 :PROTO "tcp">
 #<SERVICE :NAME "jpegmpeg" :ALIASES NIL :PORT 3155 :PROTO "udp">
 #<SERVICE :NAME "indura" :ALIASES NIL :PORT 3156 :PROTO "tcp">
 #<SERVICE :NAME "indura" :ALIASES NIL :PORT 3156 :PROTO "udp">
 #<SERVICE :NAME "e3consultants" :ALIASES NIL :PORT 3157 :PROTO "tcp">
 #<SERVICE :NAME "e3consultants" :ALIASES NIL :PORT 3157 :PROTO "udp">
 #<SERVICE :NAME "stvp" :ALIASES NIL :PORT 3158 :PROTO "tcp">
 #<SERVICE :NAME "stvp" :ALIASES NIL :PORT 3158 :PROTO "udp">
 #<SERVICE :NAME "navegaweb-port" :ALIASES NIL :PORT 3159 :PROTO "tcp">
 #<SERVICE :NAME "navegaweb-port" :ALIASES NIL :PORT 3159 :PROTO "udp">
 #<SERVICE :NAME "tip-app-server" :ALIASES NIL :PORT 3160 :PROTO "tcp">
 #<SERVICE :NAME "tip-app-server" :ALIASES NIL :PORT 3160 :PROTO "udp">
 #<SERVICE :NAME "doc1lm" :ALIASES NIL :PORT 3161 :PROTO "tcp">
 #<SERVICE :NAME "doc1lm" :ALIASES NIL :PORT 3161 :PROTO "udp">
 #<SERVICE :NAME "sflm" :ALIASES NIL :PORT 3162 :PROTO "tcp">
 #<SERVICE :NAME "sflm" :ALIASES NIL :PORT 3162 :PROTO "udp">
 #<SERVICE :NAME "res-sap" :ALIASES NIL :PORT 3163 :PROTO "tcp">
 #<SERVICE :NAME "res-sap" :ALIASES NIL :PORT 3163 :PROTO "udp">
 #<SERVICE :NAME "imprs" :ALIASES NIL :PORT 3164 :PROTO "tcp">
 #<SERVICE :NAME "imprs" :ALIASES NIL :PORT 3164 :PROTO "udp">
 #<SERVICE :NAME "newgenpay" :ALIASES NIL :PORT 3165 :PROTO "tcp">
 #<SERVICE :NAME "newgenpay" :ALIASES NIL :PORT 3165 :PROTO "udp">
 #<SERVICE :NAME "sossecollector" :ALIASES NIL :PORT 3166 :PROTO "tcp">
 #<SERVICE :NAME "sossecollector" :ALIASES NIL :PORT 3166 :PROTO "udp">
 #<SERVICE :NAME "nowcontact" :ALIASES NIL :PORT 3167 :PROTO "tcp">
 #<SERVICE :NAME "nowcontact" :ALIASES NIL :PORT 3167 :PROTO "udp">
 #<SERVICE :NAME "poweronnud" :ALIASES NIL :PORT 3168 :PROTO "tcp">
 #<SERVICE :NAME "poweronnud" :ALIASES NIL :PORT 3168 :PROTO "udp">
 #<SERVICE :NAME "serverview-as" :ALIASES NIL :PORT 3169 :PROTO "tcp">
 #<SERVICE :NAME "serverview-as" :ALIASES NIL :PORT 3169 :PROTO "udp">
 #<SERVICE :NAME "serverview-asn" :ALIASES NIL :PORT 3170 :PROTO "tcp">
 #<SERVICE :NAME "serverview-asn" :ALIASES NIL :PORT 3170 :PROTO "udp">
 #<SERVICE :NAME "serverview-gf" :ALIASES NIL :PORT 3171 :PROTO "tcp">
 #<SERVICE :NAME "serverview-gf" :ALIASES NIL :PORT 3171 :PROTO "udp">
 #<SERVICE :NAME "serverview-rm" :ALIASES NIL :PORT 3172 :PROTO "tcp">
 #<SERVICE :NAME "serverview-rm" :ALIASES NIL :PORT 3172 :PROTO "udp">
 #<SERVICE :NAME "serverview-icc" :ALIASES NIL :PORT 3173 :PROTO "tcp">
 #<SERVICE :NAME "serverview-icc" :ALIASES NIL :PORT 3173 :PROTO "udp">
 #<SERVICE :NAME "armi-server" :ALIASES NIL :PORT 3174 :PROTO "tcp">
 #<SERVICE :NAME "armi-server" :ALIASES NIL :PORT 3174 :PROTO "udp">
 #<SERVICE :NAME "t1-e1-over-ip" :ALIASES NIL :PORT 3175 :PROTO "tcp">
 #<SERVICE :NAME "t1-e1-over-ip" :ALIASES NIL :PORT 3175 :PROTO "udp">
 #<SERVICE :NAME "ars-master" :ALIASES NIL :PORT 3176 :PROTO "tcp">
 #<SERVICE :NAME "ars-master" :ALIASES NIL :PORT 3176 :PROTO "udp">
 #<SERVICE :NAME "phonex-port" :ALIASES NIL :PORT 3177 :PROTO "tcp">
 #<SERVICE :NAME "phonex-port" :ALIASES NIL :PORT 3177 :PROTO "udp">
 #<SERVICE :NAME "radclientport" :ALIASES NIL :PORT 3178 :PROTO "tcp">
 #<SERVICE :NAME "radclientport" :ALIASES NIL :PORT 3178 :PROTO "udp">
 #<SERVICE :NAME "h2gf-w-2m" :ALIASES NIL :PORT 3179 :PROTO "tcp">
 #<SERVICE :NAME "h2gf-w-2m" :ALIASES NIL :PORT 3179 :PROTO "udp">
 #<SERVICE :NAME "mc-brk-srv" :ALIASES NIL :PORT 3180 :PROTO "tcp">
 #<SERVICE :NAME "mc-brk-srv" :ALIASES NIL :PORT 3180 :PROTO "udp">
 #<SERVICE :NAME "bmcpatrolagent" :ALIASES NIL :PORT 3181 :PROTO "tcp">
 #<SERVICE :NAME "bmcpatrolagent" :ALIASES NIL :PORT 3181 :PROTO "udp">
 #<SERVICE :NAME "bmcpatrolrnvu" :ALIASES NIL :PORT 3182 :PROTO "tcp">
 #<SERVICE :NAME "bmcpatrolrnvu" :ALIASES NIL :PORT 3182 :PROTO "udp">
 #<SERVICE :NAME "cops-tls" :ALIASES NIL :PORT 3183 :PROTO "tcp">
 #<SERVICE :NAME "cops-tls" :ALIASES NIL :PORT 3183 :PROTO "udp">
 #<SERVICE :NAME "apogeex-port" :ALIASES NIL :PORT 3184 :PROTO "tcp">
 #<SERVICE :NAME "apogeex-port" :ALIASES NIL :PORT 3184 :PROTO "udp">
 #<SERVICE :NAME "smpppd" :ALIASES NIL :PORT 3185 :PROTO "tcp">
 #<SERVICE :NAME "smpppd" :ALIASES NIL :PORT 3185 :PROTO "udp">
 #<SERVICE :NAME "iiw-port" :ALIASES NIL :PORT 3186 :PROTO "tcp">
 #<SERVICE :NAME "iiw-port" :ALIASES NIL :PORT 3186 :PROTO "udp">
 #<SERVICE :NAME "odi-port" :ALIASES NIL :PORT 3187 :PROTO "tcp">
 #<SERVICE :NAME "odi-port" :ALIASES NIL :PORT 3187 :PROTO "udp">
 #<SERVICE :NAME "brcm-comm-port" :ALIASES NIL :PORT 3188 :PROTO "tcp">
 #<SERVICE :NAME "brcm-comm-port" :ALIASES NIL :PORT 3188 :PROTO "udp">
 #<SERVICE :NAME "pcle-infex" :ALIASES NIL :PORT 3189 :PROTO "tcp">
 #<SERVICE :NAME "pcle-infex" :ALIASES NIL :PORT 3189 :PROTO "udp">
 #<SERVICE :NAME "csvr-proxy" :ALIASES NIL :PORT 3190 :PROTO "tcp">
 #<SERVICE :NAME "csvr-proxy" :ALIASES NIL :PORT 3190 :PROTO "udp">
 #<SERVICE :NAME "csvr-sslproxy" :ALIASES NIL :PORT 3191 :PROTO "tcp">
 #<SERVICE :NAME "csvr-sslproxy" :ALIASES NIL :PORT 3191 :PROTO "udp">
 #<SERVICE :NAME "firemonrcc" :ALIASES NIL :PORT 3192 :PROTO "tcp">
 #<SERVICE :NAME "firemonrcc" :ALIASES NIL :PORT 3192 :PROTO "udp">
 #<SERVICE :NAME "spandataport" :ALIASES NIL :PORT 3193 :PROTO "tcp">
 #<SERVICE :NAME "spandataport" :ALIASES NIL :PORT 3193 :PROTO "udp">
 #<SERVICE :NAME "magbind" :ALIASES NIL :PORT 3194 :PROTO "tcp">
 #<SERVICE :NAME "magbind" :ALIASES NIL :PORT 3194 :PROTO "udp">
 #<SERVICE :NAME "ncu-1" :ALIASES NIL :PORT 3195 :PROTO "tcp">
 #<SERVICE :NAME "ncu-1" :ALIASES NIL :PORT 3195 :PROTO "udp">
 #<SERVICE :NAME "ncu-2" :ALIASES NIL :PORT 3196 :PROTO "tcp">
 #<SERVICE :NAME "ncu-2" :ALIASES NIL :PORT 3196 :PROTO "udp">
 #<SERVICE :NAME "embrace-dp-s" :ALIASES NIL :PORT 3197 :PROTO "tcp">
 #<SERVICE :NAME "embrace-dp-s" :ALIASES NIL :PORT 3197 :PROTO "udp">
 #<SERVICE :NAME "embrace-dp-c" :ALIASES NIL :PORT 3198 :PROTO "tcp">
 #<SERVICE :NAME "embrace-dp-c" :ALIASES NIL :PORT 3198 :PROTO "udp">
 #<SERVICE :NAME "dmod-workspace" :ALIASES NIL :PORT 3199 :PROTO "tcp">
 #<SERVICE :NAME "dmod-workspace" :ALIASES NIL :PORT 3199 :PROTO "udp">
 #<SERVICE :NAME "tick-port" :ALIASES NIL :PORT 3200 :PROTO "tcp">
 #<SERVICE :NAME "tick-port" :ALIASES NIL :PORT 3200 :PROTO "udp">
 #<SERVICE :NAME "cpq-tasksmart" :ALIASES NIL :PORT 3201 :PROTO "tcp">
 #<SERVICE :NAME "cpq-tasksmart" :ALIASES NIL :PORT 3201 :PROTO "udp">
 #<SERVICE :NAME "intraintra" :ALIASES NIL :PORT 3202 :PROTO "tcp">
 #<SERVICE :NAME "intraintra" :ALIASES NIL :PORT 3202 :PROTO "udp">
 #<SERVICE :NAME "netwatcher-mon" :ALIASES NIL :PORT 3203 :PROTO "tcp">
 #<SERVICE :NAME "netwatcher-mon" :ALIASES NIL :PORT 3203 :PROTO "udp">
 #<SERVICE :NAME "netwatcher-db" :ALIASES NIL :PORT 3204 :PROTO "tcp">
 #<SERVICE :NAME "netwatcher-db" :ALIASES NIL :PORT 3204 :PROTO "udp">
 #<SERVICE :NAME "isns" :ALIASES NIL :PORT 3205 :PROTO "tcp">
 #<SERVICE :NAME "isns" :ALIASES NIL :PORT 3205 :PROTO "udp">
 #<SERVICE :NAME "ironmail" :ALIASES NIL :PORT 3206 :PROTO "tcp">
 #<SERVICE :NAME "ironmail" :ALIASES NIL :PORT 3206 :PROTO "udp">
 #<SERVICE :NAME "vx-auth-port" :ALIASES NIL :PORT 3207 :PROTO "tcp">
 #<SERVICE :NAME "vx-auth-port" :ALIASES NIL :PORT 3207 :PROTO "udp">
 #<SERVICE :NAME "pfu-prcallback" :ALIASES NIL :PORT 3208 :PROTO "tcp">
 #<SERVICE :NAME "pfu-prcallback" :ALIASES NIL :PORT 3208 :PROTO "udp">
 #<SERVICE :NAME "netwkpathengine" :ALIASES NIL :PORT 3209 :PROTO "tcp">
 #<SERVICE :NAME "netwkpathengine" :ALIASES NIL :PORT 3209 :PROTO "udp">
 #<SERVICE :NAME "flamenco-proxy" :ALIASES NIL :PORT 3210 :PROTO "tcp">
 #<SERVICE :NAME "flamenco-proxy" :ALIASES NIL :PORT 3210 :PROTO "udp">
 #<SERVICE :NAME "avsecuremgmt" :ALIASES NIL :PORT 3211 :PROTO "tcp">
 #<SERVICE :NAME "avsecuremgmt" :ALIASES NIL :PORT 3211 :PROTO "udp">
 #<SERVICE :NAME "surveyinst" :ALIASES NIL :PORT 3212 :PROTO "tcp">
 #<SERVICE :NAME "surveyinst" :ALIASES NIL :PORT 3212 :PROTO "udp">
 #<SERVICE :NAME "neon24x7" :ALIASES NIL :PORT 3213 :PROTO "tcp">
 #<SERVICE :NAME "neon24x7" :ALIASES NIL :PORT 3213 :PROTO "udp">
 #<SERVICE :NAME "jmq-daemon-1" :ALIASES NIL :PORT 3214 :PROTO "tcp">
 #<SERVICE :NAME "jmq-daemon-1" :ALIASES NIL :PORT 3214 :PROTO "udp">
 #<SERVICE :NAME "jmq-daemon-2" :ALIASES NIL :PORT 3215 :PROTO "tcp">
 #<SERVICE :NAME "jmq-daemon-2" :ALIASES NIL :PORT 3215 :PROTO "udp">
 #<SERVICE :NAME "ferrari-foam" :ALIASES NIL :PORT 3216 :PROTO "tcp">
 #<SERVICE :NAME "ferrari-foam" :ALIASES NIL :PORT 3216 :PROTO "udp">
 #<SERVICE :NAME "unite" :ALIASES NIL :PORT 3217 :PROTO "tcp">
 #<SERVICE :NAME "unite" :ALIASES NIL :PORT 3217 :PROTO "udp">
 #<SERVICE :NAME "smartpackets" :ALIASES NIL :PORT 3218 :PROTO "tcp">
 #<SERVICE :NAME "smartpackets" :ALIASES NIL :PORT 3218 :PROTO "udp">
 #<SERVICE :NAME "wms-messenger" :ALIASES NIL :PORT 3219 :PROTO "tcp">
 #<SERVICE :NAME "wms-messenger" :ALIASES NIL :PORT 3219 :PROTO "udp">
 #<SERVICE :NAME "xnm-ssl" :ALIASES NIL :PORT 3220 :PROTO "tcp">
 #<SERVICE :NAME "xnm-ssl" :ALIASES NIL :PORT 3220 :PROTO "udp">
 #<SERVICE :NAME "xnm-clear-text" :ALIASES NIL :PORT 3221 :PROTO "tcp">
 #<SERVICE :NAME "xnm-clear-text" :ALIASES NIL :PORT 3221 :PROTO "udp">
 #<SERVICE :NAME "glbp" :ALIASES NIL :PORT 3222 :PROTO "tcp">
 #<SERVICE :NAME "glbp" :ALIASES NIL :PORT 3222 :PROTO "udp">
 #<SERVICE :NAME "digivote" :ALIASES NIL :PORT 3223 :PROTO "tcp">
 #<SERVICE :NAME "digivote" :ALIASES NIL :PORT 3223 :PROTO "udp">
 #<SERVICE :NAME "aes-discovery" :ALIASES NIL :PORT 3224 :PROTO "tcp">
 #<SERVICE :NAME "aes-discovery" :ALIASES NIL :PORT 3224 :PROTO "udp">
 #<SERVICE :NAME "fcip-port" :ALIASES NIL :PORT 3225 :PROTO "tcp">
 #<SERVICE :NAME "fcip-port" :ALIASES NIL :PORT 3225 :PROTO "udp">
 #<SERVICE :NAME "isi-irp" :ALIASES NIL :PORT 3226 :PROTO "tcp">
 #<SERVICE :NAME "isi-irp" :ALIASES NIL :PORT 3226 :PROTO "udp">
 #<SERVICE :NAME "dwnmshttp" :ALIASES NIL :PORT 3227 :PROTO "tcp">
 #<SERVICE :NAME "dwnmshttp" :ALIASES NIL :PORT 3227 :PROTO "udp">
 #<SERVICE :NAME "dwmsgserver" :ALIASES NIL :PORT 3228 :PROTO "tcp">
 #<SERVICE :NAME "dwmsgserver" :ALIASES NIL :PORT 3228 :PROTO "udp">
 #<SERVICE :NAME "global-cd-port" :ALIASES NIL :PORT 3229 :PROTO "tcp">
 #<SERVICE :NAME "global-cd-port" :ALIASES NIL :PORT 3229 :PROTO "udp">
 #<SERVICE :NAME "sftdst-port" :ALIASES NIL :PORT 3230 :PROTO "tcp">
 #<SERVICE :NAME "sftdst-port" :ALIASES NIL :PORT 3230 :PROTO "udp">
 #<SERVICE :NAME "vidigo" :ALIASES NIL :PORT 3231 :PROTO "tcp">
 #<SERVICE :NAME "vidigo" :ALIASES NIL :PORT 3231 :PROTO "udp">
 #<SERVICE :NAME "mdtp" :ALIASES NIL :PORT 3232 :PROTO "tcp">
 #<SERVICE :NAME "mdtp" :ALIASES NIL :PORT 3232 :PROTO "udp">
 #<SERVICE :NAME "whisker" :ALIASES NIL :PORT 3233 :PROTO "tcp">
 #<SERVICE :NAME "whisker" :ALIASES NIL :PORT 3233 :PROTO "udp">
 #<SERVICE :NAME "alchemy" :ALIASES NIL :PORT 3234 :PROTO "tcp">
 #<SERVICE :NAME "alchemy" :ALIASES NIL :PORT 3234 :PROTO "udp">
 #<SERVICE :NAME "mdap-port" :ALIASES NIL :PORT 3235 :PROTO "tcp">
 #<SERVICE :NAME "mdap-port" :ALIASES NIL :PORT 3235 :PROTO "udp">
 #<SERVICE :NAME "apparenet-ts" :ALIASES NIL :PORT 3236 :PROTO "tcp">
 #<SERVICE :NAME "apparenet-ts" :ALIASES NIL :PORT 3236 :PROTO "udp">
 #<SERVICE :NAME "apparenet-tps" :ALIASES NIL :PORT 3237 :PROTO "tcp">
 #<SERVICE :NAME "apparenet-tps" :ALIASES NIL :PORT 3237 :PROTO "udp">
 #<SERVICE :NAME "apparenet-as" :ALIASES NIL :PORT 3238 :PROTO "tcp">
 #<SERVICE :NAME "apparenet-as" :ALIASES NIL :PORT 3238 :PROTO "udp">
 #<SERVICE :NAME "apparenet-ui" :ALIASES NIL :PORT 3239 :PROTO "tcp">
 #<SERVICE :NAME "apparenet-ui" :ALIASES NIL :PORT 3239 :PROTO "udp">
 #<SERVICE :NAME "triomotion" :ALIASES NIL :PORT 3240 :PROTO "tcp">
 #<SERVICE :NAME "triomotion" :ALIASES NIL :PORT 3240 :PROTO "udp">
 #<SERVICE :NAME "sysorb" :ALIASES NIL :PORT 3241 :PROTO "tcp">
 #<SERVICE :NAME "sysorb" :ALIASES NIL :PORT 3241 :PROTO "udp">
 #<SERVICE :NAME "sdp-id-port" :ALIASES NIL :PORT 3242 :PROTO "tcp">
 #<SERVICE :NAME "sdp-id-port" :ALIASES NIL :PORT 3242 :PROTO "udp">
 #<SERVICE :NAME "timelot" :ALIASES NIL :PORT 3243 :PROTO "tcp">
 #<SERVICE :NAME "timelot" :ALIASES NIL :PORT 3243 :PROTO "udp">
 #<SERVICE :NAME "onesaf" :ALIASES NIL :PORT 3244 :PROTO "tcp">
 #<SERVICE :NAME "onesaf" :ALIASES NIL :PORT 3244 :PROTO "udp">
 #<SERVICE :NAME "vieo-fe" :ALIASES NIL :PORT 3245 :PROTO "tcp">
 #<SERVICE :NAME "vieo-fe" :ALIASES NIL :PORT 3245 :PROTO "udp">
 #<SERVICE :NAME "dvt-system" :ALIASES NIL :PORT 3246 :PROTO "tcp">
 #<SERVICE :NAME "dvt-system" :ALIASES NIL :PORT 3246 :PROTO "udp">
 #<SERVICE :NAME "dvt-data" :ALIASES NIL :PORT 3247 :PROTO "tcp">
 #<SERVICE :NAME "dvt-data" :ALIASES NIL :PORT 3247 :PROTO "udp">
 #<SERVICE :NAME "procos-lm" :ALIASES NIL :PORT 3248 :PROTO "tcp">
 #<SERVICE :NAME "procos-lm" :ALIASES NIL :PORT 3248 :PROTO "udp">
 #<SERVICE :NAME "ssp" :ALIASES NIL :PORT 3249 :PROTO "tcp">
 #<SERVICE :NAME "ssp" :ALIASES NIL :PORT 3249 :PROTO "udp">
 #<SERVICE :NAME "hicp" :ALIASES NIL :PORT 3250 :PROTO "tcp">
 #<SERVICE :NAME "hicp" :ALIASES NIL :PORT 3250 :PROTO "udp">
 #<SERVICE :NAME "sysscanner" :ALIASES NIL :PORT 3251 :PROTO "tcp">
 #<SERVICE :NAME "sysscanner" :ALIASES NIL :PORT 3251 :PROTO "udp">
 #<SERVICE :NAME "dhe" :ALIASES NIL :PORT 3252 :PROTO "tcp">
 #<SERVICE :NAME "dhe" :ALIASES NIL :PORT 3252 :PROTO "udp">
 #<SERVICE :NAME "pda-data" :ALIASES NIL :PORT 3253 :PROTO "tcp">
 #<SERVICE :NAME "pda-data" :ALIASES NIL :PORT 3253 :PROTO "udp">
 #<SERVICE :NAME "pda-sys" :ALIASES NIL :PORT 3254 :PROTO "tcp">
 #<SERVICE :NAME "pda-sys" :ALIASES NIL :PORT 3254 :PROTO "udp">
 #<SERVICE :NAME "semaphore" :ALIASES NIL :PORT 3255 :PROTO "tcp">
 #<SERVICE :NAME "semaphore" :ALIASES NIL :PORT 3255 :PROTO "udp">
 #<SERVICE :NAME "cpqrpm-agent" :ALIASES NIL :PORT 3256 :PROTO "tcp">
 #<SERVICE :NAME "cpqrpm-agent" :ALIASES NIL :PORT 3256 :PROTO "udp">
 #<SERVICE :NAME "cpqrpm-server" :ALIASES NIL :PORT 3257 :PROTO "tcp">
 #<SERVICE :NAME "cpqrpm-server" :ALIASES NIL :PORT 3257 :PROTO "udp">
 #<SERVICE :NAME "ivecon-port" :ALIASES NIL :PORT 3258 :PROTO "tcp">
 #<SERVICE :NAME "ivecon-port" :ALIASES NIL :PORT 3258 :PROTO "udp">
 #<SERVICE :NAME "epncdp2" :ALIASES NIL :PORT 3259 :PROTO "tcp">
 #<SERVICE :NAME "epncdp2" :ALIASES NIL :PORT 3259 :PROTO "udp">
 #<SERVICE :NAME "iscsi-target" :ALIASES NIL :PORT 3260 :PROTO "tcp">
 #<SERVICE :NAME "iscsi-target" :ALIASES NIL :PORT 3260 :PROTO "udp">
 #<SERVICE :NAME "winshadow" :ALIASES NIL :PORT 3261 :PROTO "tcp">
 #<SERVICE :NAME "winshadow" :ALIASES NIL :PORT 3261 :PROTO "udp">
 #<SERVICE :NAME "necp" :ALIASES NIL :PORT 3262 :PROTO "tcp">
 #<SERVICE :NAME "necp" :ALIASES NIL :PORT 3262 :PROTO "udp">
 #<SERVICE :NAME "ecolor-imager" :ALIASES NIL :PORT 3263 :PROTO "tcp">
 #<SERVICE :NAME "ecolor-imager" :ALIASES NIL :PORT 3263 :PROTO "udp">
 #<SERVICE :NAME "ccmail" :ALIASES NIL :PORT 3264 :PROTO "tcp">
 #<SERVICE :NAME "ccmail" :ALIASES NIL :PORT 3264 :PROTO "udp">
 #<SERVICE :NAME "altav-tunnel" :ALIASES NIL :PORT 3265 :PROTO "tcp">
 #<SERVICE :NAME "altav-tunnel" :ALIASES NIL :PORT 3265 :PROTO "udp">
 #<SERVICE :NAME "ns-cfg-server" :ALIASES NIL :PORT 3266 :PROTO "tcp">
 #<SERVICE :NAME "ns-cfg-server" :ALIASES NIL :PORT 3266 :PROTO "udp">
 #<SERVICE :NAME "ibm-dial-out" :ALIASES NIL :PORT 3267 :PROTO "tcp">
 #<SERVICE :NAME "ibm-dial-out" :ALIASES NIL :PORT 3267 :PROTO "udp">
 #<SERVICE :NAME "msft-gc" :ALIASES NIL :PORT 3268 :PROTO "tcp">
 #<SERVICE :NAME "msft-gc" :ALIASES NIL :PORT 3268 :PROTO "udp">
 #<SERVICE :NAME "msft-gc-ssl" :ALIASES NIL :PORT 3269 :PROTO "tcp">
 #<SERVICE :NAME "msft-gc-ssl" :ALIASES NIL :PORT 3269 :PROTO "udp">
 #<SERVICE :NAME "verismart" :ALIASES NIL :PORT 3270 :PROTO "tcp">
 #<SERVICE :NAME "verismart" :ALIASES NIL :PORT 3270 :PROTO "udp">
 #<SERVICE :NAME "csoft-prev" :ALIASES NIL :PORT 3271 :PROTO "tcp">
 #<SERVICE :NAME "csoft-prev" :ALIASES NIL :PORT 3271 :PROTO "udp">
 #<SERVICE :NAME "user-manager" :ALIASES NIL :PORT 3272 :PROTO "tcp">
 #<SERVICE :NAME "user-manager" :ALIASES NIL :PORT 3272 :PROTO "udp">
 #<SERVICE :NAME "sxmp" :ALIASES NIL :PORT 3273 :PROTO "tcp">
 #<SERVICE :NAME "sxmp" :ALIASES NIL :PORT 3273 :PROTO "udp">
 #<SERVICE :NAME "ordinox-server" :ALIASES NIL :PORT 3274 :PROTO "tcp">
 #<SERVICE :NAME "ordinox-server" :ALIASES NIL :PORT 3274 :PROTO "udp">
 #<SERVICE :NAME "samd" :ALIASES NIL :PORT 3275 :PROTO "tcp">
 #<SERVICE :NAME "samd" :ALIASES NIL :PORT 3275 :PROTO "udp">
 #<SERVICE :NAME "maxim-asics" :ALIASES NIL :PORT 3276 :PROTO "tcp">
 #<SERVICE :NAME "maxim-asics" :ALIASES NIL :PORT 3276 :PROTO "udp">
 #<SERVICE :NAME "awg-proxy" :ALIASES NIL :PORT 3277 :PROTO "tcp">
 #<SERVICE :NAME "awg-proxy" :ALIASES NIL :PORT 3277 :PROTO "udp">
 #<SERVICE :NAME "lkcmserver" :ALIASES NIL :PORT 3278 :PROTO "tcp">
 #<SERVICE :NAME "lkcmserver" :ALIASES NIL :PORT 3278 :PROTO "udp">
 #<SERVICE :NAME "admind" :ALIASES NIL :PORT 3279 :PROTO "tcp">
 #<SERVICE :NAME "admind" :ALIASES NIL :PORT 3279 :PROTO "udp">
 #<SERVICE :NAME "vs-server" :ALIASES NIL :PORT 3280 :PROTO "tcp">
 #<SERVICE :NAME "vs-server" :ALIASES NIL :PORT 3280 :PROTO "udp">
 #<SERVICE :NAME "sysopt" :ALIASES NIL :PORT 3281 :PROTO "tcp">
 #<SERVICE :NAME "sysopt" :ALIASES NIL :PORT 3281 :PROTO "udp">
 #<SERVICE :NAME "datusorb" :ALIASES NIL :PORT 3282 :PROTO "tcp">
 #<SERVICE :NAME "datusorb" :ALIASES NIL :PORT 3282 :PROTO "udp">
 #<SERVICE :NAME "net-assistant" :ALIASES NIL :PORT 3283 :PROTO "tcp">
 #<SERVICE :NAME "net-assistant" :ALIASES NIL :PORT 3283 :PROTO "udp">
 #<SERVICE :NAME "4talk" :ALIASES NIL :PORT 3284 :PROTO "tcp">
 #<SERVICE :NAME "4talk" :ALIASES NIL :PORT 3284 :PROTO "udp">
 #<SERVICE :NAME "plato" :ALIASES NIL :PORT 3285 :PROTO "tcp">
 #<SERVICE :NAME "plato" :ALIASES NIL :PORT 3285 :PROTO "udp">
 #<SERVICE :NAME "e-net" :ALIASES NIL :PORT 3286 :PROTO "tcp">
 #<SERVICE :NAME "e-net" :ALIASES NIL :PORT 3286 :PROTO "udp">
 #<SERVICE :NAME "directvdata" :ALIASES NIL :PORT 3287 :PROTO "tcp">
 #<SERVICE :NAME "directvdata" :ALIASES NIL :PORT 3287 :PROTO "udp">
 #<SERVICE :NAME "cops" :ALIASES NIL :PORT 3288 :PROTO "tcp">
 #<SERVICE :NAME "cops" :ALIASES NIL :PORT 3288 :PROTO "udp">
 #<SERVICE :NAME "enpc" :ALIASES NIL :PORT 3289 :PROTO "tcp">
 #<SERVICE :NAME "enpc" :ALIASES NIL :PORT 3289 :PROTO "udp">
 #<SERVICE :NAME "caps-lm" :ALIASES NIL :PORT 3290 :PROTO "tcp">
 #<SERVICE :NAME "caps-lm" :ALIASES NIL :PORT 3290 :PROTO "udp">
 #<SERVICE :NAME "sah-lm" :ALIASES NIL :PORT 3291 :PROTO "tcp">
 #<SERVICE :NAME "sah-lm" :ALIASES NIL :PORT 3291 :PROTO "udp">
 #<SERVICE :NAME "cart-o-rama" :ALIASES NIL :PORT 3292 :PROTO "tcp">
 #<SERVICE :NAME "cart-o-rama" :ALIASES NIL :PORT 3292 :PROTO "udp">
 #<SERVICE :NAME "fg-fps" :ALIASES NIL :PORT 3293 :PROTO "tcp">
 #<SERVICE :NAME "fg-fps" :ALIASES NIL :PORT 3293 :PROTO "udp">
 #<SERVICE :NAME "fg-gip" :ALIASES NIL :PORT 3294 :PROTO "tcp">
 #<SERVICE :NAME "fg-gip" :ALIASES NIL :PORT 3294 :PROTO "udp">
 #<SERVICE :NAME "dyniplookup" :ALIASES NIL :PORT 3295 :PROTO "tcp">
 #<SERVICE :NAME "dyniplookup" :ALIASES NIL :PORT 3295 :PROTO "udp">
 #<SERVICE :NAME "rib-slm" :ALIASES NIL :PORT 3296 :PROTO "tcp">
 #<SERVICE :NAME "rib-slm" :ALIASES NIL :PORT 3296 :PROTO "udp">
 #<SERVICE :NAME "cytel-lm" :ALIASES NIL :PORT 3297 :PROTO "tcp">
 #<SERVICE :NAME "cytel-lm" :ALIASES NIL :PORT 3297 :PROTO "udp">
 #<SERVICE :NAME "deskview" :ALIASES NIL :PORT 3298 :PROTO "tcp">
 #<SERVICE :NAME "deskview" :ALIASES NIL :PORT 3298 :PROTO "udp">
 #<SERVICE :NAME "pdrncs" :ALIASES NIL :PORT 3299 :PROTO "tcp">
 #<SERVICE :NAME "pdrncs" :ALIASES NIL :PORT 3299 :PROTO "udp">
 #<SERVICE :NAME "mcs-fastmail" :ALIASES NIL :PORT 3302 :PROTO "tcp">
 #<SERVICE :NAME "mcs-fastmail" :ALIASES NIL :PORT 3302 :PROTO "udp">
 #<SERVICE :NAME "opsession-clnt" :ALIASES NIL :PORT 3303 :PROTO "tcp">
 #<SERVICE :NAME "opsession-clnt" :ALIASES NIL :PORT 3303 :PROTO "udp">
 #<SERVICE :NAME "opsession-srvr" :ALIASES NIL :PORT 3304 :PROTO "tcp">
 #<SERVICE :NAME "opsession-srvr" :ALIASES NIL :PORT 3304 :PROTO "udp">
 #<SERVICE :NAME "odette-ftp" :ALIASES NIL :PORT 3305 :PROTO "tcp">
 #<SERVICE :NAME "odette-ftp" :ALIASES NIL :PORT 3305 :PROTO "udp">
 #<SERVICE :NAME "opsession-prxy" :ALIASES NIL :PORT 3307 :PROTO "tcp">
 #<SERVICE :NAME "opsession-prxy" :ALIASES NIL :PORT 3307 :PROTO "udp">
 #<SERVICE :NAME "tns-server" :ALIASES NIL :PORT 3308 :PROTO "tcp">
 #<SERVICE :NAME "tns-server" :ALIASES NIL :PORT 3308 :PROTO "udp">
 #<SERVICE :NAME "tns-adv" :ALIASES NIL :PORT 3309 :PROTO "tcp">
 #<SERVICE :NAME "tns-adv" :ALIASES NIL :PORT 3309 :PROTO "udp">
 #<SERVICE :NAME "dyna-access" :ALIASES NIL :PORT 3310 :PROTO "tcp">
 #<SERVICE :NAME "dyna-access" :ALIASES NIL :PORT 3310 :PROTO "udp">
 #<SERVICE :NAME "mcns-tel-ret" :ALIASES NIL :PORT 3311 :PROTO "tcp">
 #<SERVICE :NAME "mcns-tel-ret" :ALIASES NIL :PORT 3311 :PROTO "udp">
 #<SERVICE :NAME "appman-server" :ALIASES NIL :PORT 3312 :PROTO "tcp">
 #<SERVICE :NAME "appman-server" :ALIASES NIL :PORT 3312 :PROTO "udp">
 #<SERVICE :NAME "uorb" :ALIASES NIL :PORT 3313 :PROTO "tcp">
 #<SERVICE :NAME "uorb" :ALIASES NIL :PORT 3313 :PROTO "udp">
 #<SERVICE :NAME "uohost" :ALIASES NIL :PORT 3314 :PROTO "tcp">
 #<SERVICE :NAME "uohost" :ALIASES NIL :PORT 3314 :PROTO "udp">
 #<SERVICE :NAME "cdid" :ALIASES NIL :PORT 3315 :PROTO "tcp">
 #<SERVICE :NAME "cdid" :ALIASES NIL :PORT 3315 :PROTO "udp">
 #<SERVICE :NAME "aicc-cmi" :ALIASES NIL :PORT 3316 :PROTO "tcp">
 #<SERVICE :NAME "aicc-cmi" :ALIASES NIL :PORT 3316 :PROTO "udp">
 #<SERVICE :NAME "vsaiport" :ALIASES NIL :PORT 3317 :PROTO "tcp">
 #<SERVICE :NAME "vsaiport" :ALIASES NIL :PORT 3317 :PROTO "udp">
 #<SERVICE :NAME "ssrip" :ALIASES NIL :PORT 3318 :PROTO "tcp">
 #<SERVICE :NAME "ssrip" :ALIASES NIL :PORT 3318 :PROTO "udp">
 #<SERVICE :NAME "sdt-lmd" :ALIASES NIL :PORT 3319 :PROTO "tcp">
 #<SERVICE :NAME "sdt-lmd" :ALIASES NIL :PORT 3319 :PROTO "udp">
 #<SERVICE :NAME "officelink2000" :ALIASES NIL :PORT 3320 :PROTO "tcp">
 #<SERVICE :NAME "officelink2000" :ALIASES NIL :PORT 3320 :PROTO "udp">
 #<SERVICE :NAME "vnsstr" :ALIASES NIL :PORT 3321 :PROTO "tcp">
 #<SERVICE :NAME "vnsstr" :ALIASES NIL :PORT 3321 :PROTO "udp">
 #<SERVICE :NAME "sftu" :ALIASES NIL :PORT 3326 :PROTO "tcp">
 #<SERVICE :NAME "sftu" :ALIASES NIL :PORT 3326 :PROTO "udp">
 #<SERVICE :NAME "bbars" :ALIASES NIL :PORT 3327 :PROTO "tcp">
 #<SERVICE :NAME "bbars" :ALIASES NIL :PORT 3327 :PROTO "udp">
 #<SERVICE :NAME "egptlm" :ALIASES NIL :PORT 3328 :PROTO "tcp">
 #<SERVICE :NAME "egptlm" :ALIASES NIL :PORT 3328 :PROTO "udp">
 #<SERVICE :NAME "hp-device-disc" :ALIASES NIL :PORT 3329 :PROTO "tcp">
 #<SERVICE :NAME "hp-device-disc" :ALIASES NIL :PORT 3329 :PROTO "udp">
 #<SERVICE :NAME "mcs-calypsoicf" :ALIASES NIL :PORT 3330 :PROTO "tcp">
 #<SERVICE :NAME "mcs-calypsoicf" :ALIASES NIL :PORT 3330 :PROTO "udp">
 #<SERVICE :NAME "mcs-messaging" :ALIASES NIL :PORT 3331 :PROTO "tcp">
 #<SERVICE :NAME "mcs-messaging" :ALIASES NIL :PORT 3331 :PROTO "udp">
 #<SERVICE :NAME "mcs-mailsvr" :ALIASES NIL :PORT 3332 :PROTO "tcp">
 #<SERVICE :NAME "mcs-mailsvr" :ALIASES NIL :PORT 3332 :PROTO "udp">
 #<SERVICE :NAME "dec-notes" :ALIASES NIL :PORT 3333 :PROTO "tcp">
 #<SERVICE :NAME "dec-notes" :ALIASES NIL :PORT 3333 :PROTO "udp">
 #<SERVICE :NAME "directv-web" :ALIASES NIL :PORT 3334 :PROTO "tcp">
 #<SERVICE :NAME "directv-web" :ALIASES NIL :PORT 3334 :PROTO "udp">
 #<SERVICE :NAME "directv-soft" :ALIASES NIL :PORT 3335 :PROTO "tcp">
 #<SERVICE :NAME "directv-soft" :ALIASES NIL :PORT 3335 :PROTO "udp">
 #<SERVICE :NAME "directv-tick" :ALIASES NIL :PORT 3336 :PROTO "tcp">
 #<SERVICE :NAME "directv-tick" :ALIASES NIL :PORT 3336 :PROTO "udp">
 #<SERVICE :NAME "directv-catlg" :ALIASES NIL :PORT 3337 :PROTO "tcp">
 #<SERVICE :NAME "directv-catlg" :ALIASES NIL :PORT 3337 :PROTO "udp">
 #<SERVICE :NAME "anet-b" :ALIASES NIL :PORT 3338 :PROTO "tcp">
 #<SERVICE :NAME "anet-b" :ALIASES NIL :PORT 3338 :PROTO "udp">
 #<SERVICE :NAME "anet-l" :ALIASES NIL :PORT 3339 :PROTO "tcp">
 #<SERVICE :NAME "anet-l" :ALIASES NIL :PORT 3339 :PROTO "udp">
 #<SERVICE :NAME "anet-m" :ALIASES NIL :PORT 3340 :PROTO "tcp">
 #<SERVICE :NAME "anet-m" :ALIASES NIL :PORT 3340 :PROTO "udp">
 #<SERVICE :NAME "anet-h" :ALIASES NIL :PORT 3341 :PROTO "tcp">
 #<SERVICE :NAME "anet-h" :ALIASES NIL :PORT 3341 :PROTO "udp">
 #<SERVICE :NAME "webtie" :ALIASES NIL :PORT 3342 :PROTO "tcp">
 #<SERVICE :NAME "webtie" :ALIASES NIL :PORT 3342 :PROTO "udp">
 #<SERVICE :NAME "ms-cluster-net" :ALIASES NIL :PORT 3343 :PROTO "tcp">
 #<SERVICE :NAME "ms-cluster-net" :ALIASES NIL :PORT 3343 :PROTO "udp">
 #<SERVICE :NAME "bnt-manager" :ALIASES NIL :PORT 3344 :PROTO "tcp">
 #<SERVICE :NAME "bnt-manager" :ALIASES NIL :PORT 3344 :PROTO "udp">
 #<SERVICE :NAME "influence" :ALIASES NIL :PORT 3345 :PROTO "tcp">
 #<SERVICE :NAME "influence" :ALIASES NIL :PORT 3345 :PROTO "udp">
 #<SERVICE :NAME "phoenix-rpc" :ALIASES NIL :PORT 3347 :PROTO "tcp">
 #<SERVICE :NAME "phoenix-rpc" :ALIASES NIL :PORT 3347 :PROTO "udp">
 #<SERVICE :NAME "pangolin-laser" :ALIASES NIL :PORT 3348 :PROTO "tcp">
 #<SERVICE :NAME "pangolin-laser" :ALIASES NIL :PORT 3348 :PROTO "udp">
 #<SERVICE :NAME "chevinservices" :ALIASES NIL :PORT 3349 :PROTO "tcp">
 #<SERVICE :NAME "chevinservices" :ALIASES NIL :PORT 3349 :PROTO "udp">
 #<SERVICE :NAME "findviatv" :ALIASES NIL :PORT 3350 :PROTO "tcp">
 #<SERVICE :NAME "findviatv" :ALIASES NIL :PORT 3350 :PROTO "udp">
 #<SERVICE :NAME "btrieve" :ALIASES NIL :PORT 3351 :PROTO "tcp">
 #<SERVICE :NAME "btrieve" :ALIASES NIL :PORT 3351 :PROTO "udp">
 #<SERVICE :NAME "ssql" :ALIASES NIL :PORT 3352 :PROTO "tcp">
 #<SERVICE :NAME "ssql" :ALIASES NIL :PORT 3352 :PROTO "udp">
 #<SERVICE :NAME "fatpipe" :ALIASES NIL :PORT 3353 :PROTO "tcp">
 #<SERVICE :NAME "fatpipe" :ALIASES NIL :PORT 3353 :PROTO "udp">
 #<SERVICE :NAME "suitjd" :ALIASES NIL :PORT 3354 :PROTO "tcp">
 #<SERVICE :NAME "suitjd" :ALIASES NIL :PORT 3354 :PROTO "udp">
 #<SERVICE :NAME "ordinox-dbase" :ALIASES NIL :PORT 3355 :PROTO "tcp">
 #<SERVICE :NAME "ordinox-dbase" :ALIASES NIL :PORT 3355 :PROTO "udp">
 #<SERVICE :NAME "upnotifyps" :ALIASES NIL :PORT 3356 :PROTO "tcp">
 #<SERVICE :NAME "upnotifyps" :ALIASES NIL :PORT 3356 :PROTO "udp">
 #<SERVICE :NAME "adtech-test" :ALIASES NIL :PORT 3357 :PROTO "tcp">
 #<SERVICE :NAME "adtech-test" :ALIASES NIL :PORT 3357 :PROTO "udp">
 #<SERVICE :NAME "mpsysrmsvr" :ALIASES NIL :PORT 3358 :PROTO "tcp">
 #<SERVICE :NAME "mpsysrmsvr" :ALIASES NIL :PORT 3358 :PROTO "udp">
 #<SERVICE :NAME "wg-netforce" :ALIASES NIL :PORT 3359 :PROTO "tcp">
 #<SERVICE :NAME "wg-netforce" :ALIASES NIL :PORT 3359 :PROTO "udp">
 #<SERVICE :NAME "kv-server" :ALIASES NIL :PORT 3360 :PROTO "tcp">
 #<SERVICE :NAME "kv-server" :ALIASES NIL :PORT 3360 :PROTO "udp">
 #<SERVICE :NAME "kv-agent" :ALIASES NIL :PORT 3361 :PROTO "tcp">
 #<SERVICE :NAME "kv-agent" :ALIASES NIL :PORT 3361 :PROTO "udp">
 #<SERVICE :NAME "dj-ilm" :ALIASES NIL :PORT 3362 :PROTO "tcp">
 #<SERVICE :NAME "dj-ilm" :ALIASES NIL :PORT 3362 :PROTO "udp">
 #<SERVICE :NAME "nati-vi-server" :ALIASES NIL :PORT 3363 :PROTO "tcp">
 #<SERVICE :NAME "nati-vi-server" :ALIASES NIL :PORT 3363 :PROTO "udp">
 #<SERVICE :NAME "tip2" :ALIASES NIL :PORT 3372 :PROTO "tcp">
 #<SERVICE :NAME "tip2" :ALIASES NIL :PORT 3372 :PROTO "udp">
 #<SERVICE :NAME "lavenir-lm" :ALIASES NIL :PORT 3373 :PROTO "tcp">
 #<SERVICE :NAME "lavenir-lm" :ALIASES NIL :PORT 3373 :PROTO "udp">
 #<SERVICE :NAME "cluster-disc" :ALIASES NIL :PORT 3374 :PROTO "tcp">
 #<SERVICE :NAME "cluster-disc" :ALIASES NIL :PORT 3374 :PROTO "udp">
 #<SERVICE :NAME "vsnm-agent" :ALIASES NIL :PORT 3375 :PROTO "tcp">
 #<SERVICE :NAME "vsnm-agent" :ALIASES NIL :PORT 3375 :PROTO "udp">
 #<SERVICE :NAME "cdbroker" :ALIASES NIL :PORT 3376 :PROTO "tcp">
 #<SERVICE :NAME "cdbroker" :ALIASES NIL :PORT 3376 :PROTO "udp">
 #<SERVICE :NAME "cogsys-lm" :ALIASES NIL :PORT 3377 :PROTO "tcp">
 #<SERVICE :NAME "cogsys-lm" :ALIASES NIL :PORT 3377 :PROTO "udp">
 #<SERVICE :NAME "wsicopy" :ALIASES NIL :PORT 3378 :PROTO "tcp">
 #<SERVICE :NAME "wsicopy" :ALIASES NIL :PORT 3378 :PROTO "udp">
 #<SERVICE :NAME "socorfs" :ALIASES NIL :PORT 3379 :PROTO "tcp">
 #<SERVICE :NAME "socorfs" :ALIASES NIL :PORT 3379 :PROTO "udp">
 #<SERVICE :NAME "sns-channels" :ALIASES NIL :PORT 3380 :PROTO "tcp">
 #<SERVICE :NAME "sns-channels" :ALIASES NIL :PORT 3380 :PROTO "udp">
 #<SERVICE :NAME "geneous" :ALIASES NIL :PORT 3381 :PROTO "tcp">
 #<SERVICE :NAME "geneous" :ALIASES NIL :PORT 3381 :PROTO "udp">
 #<SERVICE :NAME "fujitsu-neat" :ALIASES NIL :PORT 3382 :PROTO "tcp">
 #<SERVICE :NAME "fujitsu-neat" :ALIASES NIL :PORT 3382 :PROTO "udp">
 #<SERVICE :NAME "esp-lm" :ALIASES NIL :PORT 3383 :PROTO "tcp">
 #<SERVICE :NAME "esp-lm" :ALIASES NIL :PORT 3383 :PROTO "udp">
 #<SERVICE :NAME "hp-clic" :ALIASES NIL :PORT 3384 :PROTO "tcp">
 #<SERVICE :NAME "hp-clic" :ALIASES NIL :PORT 3384 :PROTO "udp">
 #<SERVICE :NAME "qnxnetman" :ALIASES NIL :PORT 3385 :PROTO "tcp">
 #<SERVICE :NAME "qnxnetman" :ALIASES NIL :PORT 3385 :PROTO "udp">
 #<SERVICE :NAME "gprs-data" :ALIASES NIL :PORT 3386 :PROTO "tcp">
 #<SERVICE :NAME "gprs-sig" :ALIASES NIL :PORT 3386 :PROTO "udp">
 #<SERVICE :NAME "backroomnet" :ALIASES NIL :PORT 3387 :PROTO "tcp">
 #<SERVICE :NAME "backroomnet" :ALIASES NIL :PORT 3387 :PROTO "udp">
 #<SERVICE :NAME "cbserver" :ALIASES NIL :PORT 3388 :PROTO "tcp">
 #<SERVICE :NAME "cbserver" :ALIASES NIL :PORT 3388 :PROTO "udp">
 #<SERVICE :NAME "ms-wbt-server" :ALIASES NIL :PORT 3389 :PROTO "tcp">
 #<SERVICE :NAME "ms-wbt-server" :ALIASES NIL :PORT 3389 :PROTO "udp">
 #<SERVICE :NAME "dsc" :ALIASES NIL :PORT 3390 :PROTO "tcp">
 #<SERVICE :NAME "dsc" :ALIASES NIL :PORT 3390 :PROTO "udp">
 #<SERVICE :NAME "savant" :ALIASES NIL :PORT 3391 :PROTO "tcp">
 #<SERVICE :NAME "savant" :ALIASES NIL :PORT 3391 :PROTO "udp">
 #<SERVICE :NAME "efi-lm" :ALIASES NIL :PORT 3392 :PROTO "tcp">
 #<SERVICE :NAME "efi-lm" :ALIASES NIL :PORT 3392 :PROTO "udp">
 #<SERVICE :NAME "d2k-tapestry1" :ALIASES NIL :PORT 3393 :PROTO "tcp">
 #<SERVICE :NAME "d2k-tapestry1" :ALIASES NIL :PORT 3393 :PROTO "udp">
 #<SERVICE :NAME "d2k-tapestry2" :ALIASES NIL :PORT 3394 :PROTO "tcp">
 #<SERVICE :NAME "d2k-tapestry2" :ALIASES NIL :PORT 3394 :PROTO "udp">
 #<SERVICE :NAME "dyna-lm" :ALIASES NIL :PORT 3395 :PROTO "tcp">
 #<SERVICE :NAME "dyna-lm" :ALIASES NIL :PORT 3395 :PROTO "udp">
 #<SERVICE :NAME "printer_agent" :ALIASES ("printer-agent") :PORT 3396
   :PROTO "tcp">
 #<SERVICE :NAME "printer_agent" :ALIASES ("printer-agent") :PORT 3396
   :PROTO "udp">
 #<SERVICE :NAME "cloanto-lm" :ALIASES NIL :PORT 3397 :PROTO "tcp">
 #<SERVICE :NAME "cloanto-lm" :ALIASES NIL :PORT 3397 :PROTO "udp">
 #<SERVICE :NAME "mercantile" :ALIASES NIL :PORT 3398 :PROTO "tcp">
 #<SERVICE :NAME "mercantile" :ALIASES NIL :PORT 3398 :PROTO "udp">
 #<SERVICE :NAME "csms" :ALIASES NIL :PORT 3399 :PROTO "tcp">
 #<SERVICE :NAME "csms" :ALIASES NIL :PORT 3399 :PROTO "udp">
 #<SERVICE :NAME "csms2" :ALIASES NIL :PORT 3400 :PROTO "tcp">
 #<SERVICE :NAME "csms2" :ALIASES NIL :PORT 3400 :PROTO "udp">
 #<SERVICE :NAME "filecast" :ALIASES NIL :PORT 3401 :PROTO "tcp">
 #<SERVICE :NAME "filecast" :ALIASES NIL :PORT 3401 :PROTO "udp">
 #<SERVICE :NAME "fxaengine-net" :ALIASES NIL :PORT 3402 :PROTO "tcp">
 #<SERVICE :NAME "fxaengine-net" :ALIASES NIL :PORT 3402 :PROTO "udp">
 #<SERVICE :NAME "nokia-ann-ch1" :ALIASES NIL :PORT 3405 :PROTO "tcp">
 #<SERVICE :NAME "nokia-ann-ch1" :ALIASES NIL :PORT 3405 :PROTO "udp">
 #<SERVICE :NAME "nokia-ann-ch2" :ALIASES NIL :PORT 3406 :PROTO "tcp">
 #<SERVICE :NAME "nokia-ann-ch2" :ALIASES NIL :PORT 3406 :PROTO "udp">
 #<SERVICE :NAME "ldap-admin" :ALIASES NIL :PORT 3407 :PROTO "tcp">
 #<SERVICE :NAME "ldap-admin" :ALIASES NIL :PORT 3407 :PROTO "udp">
 #<SERVICE :NAME "BESApi" :ALIASES NIL :PORT 3408 :PROTO "tcp">
 #<SERVICE :NAME "BESApi" :ALIASES NIL :PORT 3408 :PROTO "udp">
 #<SERVICE :NAME "networklens" :ALIASES NIL :PORT 3409 :PROTO "tcp">
 #<SERVICE :NAME "networklens" :ALIASES NIL :PORT 3409 :PROTO "udp">
 #<SERVICE :NAME "networklenss" :ALIASES NIL :PORT 3410 :PROTO "tcp">
 #<SERVICE :NAME "networklenss" :ALIASES NIL :PORT 3410 :PROTO "udp">
 #<SERVICE :NAME "biolink-auth" :ALIASES NIL :PORT 3411 :PROTO "tcp">
 #<SERVICE :NAME "biolink-auth" :ALIASES NIL :PORT 3411 :PROTO "udp">
 #<SERVICE :NAME "xmlblaster" :ALIASES NIL :PORT 3412 :PROTO "tcp">
 #<SERVICE :NAME "xmlblaster" :ALIASES NIL :PORT 3412 :PROTO "udp">
 #<SERVICE :NAME "svnet" :ALIASES NIL :PORT 3413 :PROTO "tcp">
 #<SERVICE :NAME "svnet" :ALIASES NIL :PORT 3413 :PROTO "udp">
 #<SERVICE :NAME "wip-port" :ALIASES NIL :PORT 3414 :PROTO "tcp">
 #<SERVICE :NAME "wip-port" :ALIASES NIL :PORT 3414 :PROTO "udp">
 #<SERVICE :NAME "bcinameservice" :ALIASES NIL :PORT 3415 :PROTO "tcp">
 #<SERVICE :NAME "bcinameservice" :ALIASES NIL :PORT 3415 :PROTO "udp">
 #<SERVICE :NAME "commandport" :ALIASES NIL :PORT 3416 :PROTO "tcp">
 #<SERVICE :NAME "commandport" :ALIASES NIL :PORT 3416 :PROTO "udp">
 #<SERVICE :NAME "csvr" :ALIASES NIL :PORT 3417 :PROTO "tcp">
 #<SERVICE :NAME "csvr" :ALIASES NIL :PORT 3417 :PROTO "udp">
 #<SERVICE :NAME "rnmap" :ALIASES NIL :PORT 3418 :PROTO "tcp">
 #<SERVICE :NAME "rnmap" :ALIASES NIL :PORT 3418 :PROTO "udp">
 #<SERVICE :NAME "softaudit" :ALIASES NIL :PORT 3419 :PROTO "tcp">
 #<SERVICE :NAME "softaudit" :ALIASES NIL :PORT 3419 :PROTO "udp">
 #<SERVICE :NAME "ifcp-port" :ALIASES NIL :PORT 3420 :PROTO "tcp">
 #<SERVICE :NAME "ifcp-port" :ALIASES NIL :PORT 3420 :PROTO "udp">
 #<SERVICE :NAME "bmap" :ALIASES NIL :PORT 3421 :PROTO "tcp">
 #<SERVICE :NAME "bmap" :ALIASES NIL :PORT 3421 :PROTO "udp">
 #<SERVICE :NAME "rusb-sys-port" :ALIASES NIL :PORT 3422 :PROTO "tcp">
 #<SERVICE :NAME "rusb-sys-port" :ALIASES NIL :PORT 3422 :PROTO "udp">
 #<SERVICE :NAME "xtrm" :ALIASES NIL :PORT 3423 :PROTO "tcp">
 #<SERVICE :NAME "xtrm" :ALIASES NIL :PORT 3423 :PROTO "udp">
 #<SERVICE :NAME "xtrms" :ALIASES NIL :PORT 3424 :PROTO "tcp">
 #<SERVICE :NAME "xtrms" :ALIASES NIL :PORT 3424 :PROTO "udp">
 #<SERVICE :NAME "agps-port" :ALIASES NIL :PORT 3425 :PROTO "tcp">
 #<SERVICE :NAME "agps-port" :ALIASES NIL :PORT 3425 :PROTO "udp">
 #<SERVICE :NAME "arkivio" :ALIASES NIL :PORT 3426 :PROTO "tcp">
 #<SERVICE :NAME "arkivio" :ALIASES NIL :PORT 3426 :PROTO "udp">
 #<SERVICE :NAME "websphere-snmp" :ALIASES NIL :PORT 3427 :PROTO "tcp">
 #<SERVICE :NAME "websphere-snmp" :ALIASES NIL :PORT 3427 :PROTO "udp">
 #<SERVICE :NAME "twcss" :ALIASES NIL :PORT 3428 :PROTO "tcp">
 #<SERVICE :NAME "twcss" :ALIASES NIL :PORT 3428 :PROTO "udp">
 #<SERVICE :NAME "gcsp" :ALIASES NIL :PORT 3429 :PROTO "tcp">
 #<SERVICE :NAME "gcsp" :ALIASES NIL :PORT 3429 :PROTO "udp">
 #<SERVICE :NAME "ssdispatch" :ALIASES NIL :PORT 3430 :PROTO "tcp">
 #<SERVICE :NAME "ssdispatch" :ALIASES NIL :PORT 3430 :PROTO "udp">
 #<SERVICE :NAME "ndl-als" :ALIASES NIL :PORT 3431 :PROTO "tcp">
 #<SERVICE :NAME "ndl-als" :ALIASES NIL :PORT 3431 :PROTO "udp">
 #<SERVICE :NAME "osdcp" :ALIASES NIL :PORT 3432 :PROTO "tcp">
 #<SERVICE :NAME "osdcp" :ALIASES NIL :PORT 3432 :PROTO "udp">
 #<SERVICE :NAME "opnet-smp" :ALIASES NIL :PORT 3433 :PROTO "tcp">
 #<SERVICE :NAME "opnet-smp" :ALIASES NIL :PORT 3433 :PROTO "udp">
 #<SERVICE :NAME "opencm" :ALIASES NIL :PORT 3434 :PROTO "tcp">
 #<SERVICE :NAME "opencm" :ALIASES NIL :PORT 3434 :PROTO "udp">
 #<SERVICE :NAME "pacom" :ALIASES NIL :PORT 3435 :PROTO "tcp">
 #<SERVICE :NAME "pacom" :ALIASES NIL :PORT 3435 :PROTO "udp">
 #<SERVICE :NAME "gc-config" :ALIASES NIL :PORT 3436 :PROTO "tcp">
 #<SERVICE :NAME "gc-config" :ALIASES NIL :PORT 3436 :PROTO "udp">
 #<SERVICE :NAME "autocueds" :ALIASES NIL :PORT 3437 :PROTO "tcp">
 #<SERVICE :NAME "autocueds" :ALIASES NIL :PORT 3437 :PROTO "udp">
 #<SERVICE :NAME "spiral-admin" :ALIASES NIL :PORT 3438 :PROTO "tcp">
 #<SERVICE :NAME "spiral-admin" :ALIASES NIL :PORT 3438 :PROTO "udp">
 #<SERVICE :NAME "hri-port" :ALIASES NIL :PORT 3439 :PROTO "tcp">
 #<SERVICE :NAME "hri-port" :ALIASES NIL :PORT 3439 :PROTO "udp">
 #<SERVICE :NAME "ans-console" :ALIASES NIL :PORT 3440 :PROTO "tcp">
 #<SERVICE :NAME "ans-console" :ALIASES NIL :PORT 3440 :PROTO "udp">
 #<SERVICE :NAME "connect-client" :ALIASES NIL :PORT 3441 :PROTO "tcp">
 #<SERVICE :NAME "connect-client" :ALIASES NIL :PORT 3441 :PROTO "udp">
 #<SERVICE :NAME "connect-server" :ALIASES NIL :PORT 3442 :PROTO "tcp">
 #<SERVICE :NAME "connect-server" :ALIASES NIL :PORT 3442 :PROTO "udp">
 #<SERVICE :NAME "ov-nnm-websrv" :ALIASES NIL :PORT 3443 :PROTO "tcp">
 #<SERVICE :NAME "ov-nnm-websrv" :ALIASES NIL :PORT 3443 :PROTO "udp">
 #<SERVICE :NAME "denali-server" :ALIASES NIL :PORT 3444 :PROTO "tcp">
 #<SERVICE :NAME "denali-server" :ALIASES NIL :PORT 3444 :PROTO "udp">
 #<SERVICE :NAME "monp" :ALIASES NIL :PORT 3445 :PROTO "tcp">
 #<SERVICE :NAME "monp" :ALIASES NIL :PORT 3445 :PROTO "udp">
 #<SERVICE :NAME "3comfaxrpc" :ALIASES NIL :PORT 3446 :PROTO "tcp">
 #<SERVICE :NAME "3comfaxrpc" :ALIASES NIL :PORT 3446 :PROTO "udp">
 #<SERVICE :NAME "directnet" :ALIASES NIL :PORT 3447 :PROTO "tcp">
 #<SERVICE :NAME "directnet" :ALIASES NIL :PORT 3447 :PROTO "udp">
 #<SERVICE :NAME "dnc-port" :ALIASES NIL :PORT 3448 :PROTO "tcp">
 #<SERVICE :NAME "dnc-port" :ALIASES NIL :PORT 3448 :PROTO "udp">
 #<SERVICE :NAME "hotu-chat" :ALIASES NIL :PORT 3449 :PROTO "tcp">
 #<SERVICE :NAME "hotu-chat" :ALIASES NIL :PORT 3449 :PROTO "udp">
 #<SERVICE :NAME "castorproxy" :ALIASES NIL :PORT 3450 :PROTO "tcp">
 #<SERVICE :NAME "castorproxy" :ALIASES NIL :PORT 3450 :PROTO "udp">
 #<SERVICE :NAME "asam" :ALIASES NIL :PORT 3451 :PROTO "tcp">
 #<SERVICE :NAME "asam" :ALIASES NIL :PORT 3451 :PROTO "udp">
 #<SERVICE :NAME "sabp-signal" :ALIASES NIL :PORT 3452 :PROTO "tcp">
 #<SERVICE :NAME "sabp-signal" :ALIASES NIL :PORT 3452 :PROTO "udp">
 #<SERVICE :NAME "pscupd" :ALIASES NIL :PORT 3453 :PROTO "tcp">
 #<SERVICE :NAME "pscupd" :ALIASES NIL :PORT 3453 :PROTO "udp">
 #<SERVICE :NAME "mira" :ALIASES NIL :PORT 3454 :PROTO "tcp">
 #<SERVICE :NAME "mira" :ALIASES NIL :PORT 3454 :PROTO "udp">
 #<SERVICE :NAME "vat" :ALIASES NIL :PORT 3456 :PROTO "tcp">
 #<SERVICE :NAME "vat" :ALIASES NIL :PORT 3456 :PROTO "udp">
 #<SERVICE :NAME "vat-control" :ALIASES NIL :PORT 3457 :PROTO "tcp">
 #<SERVICE :NAME "vat-control" :ALIASES NIL :PORT 3457 :PROTO "udp">
 #<SERVICE :NAME "d3winosfi" :ALIASES NIL :PORT 3458 :PROTO "tcp">
 #<SERVICE :NAME "d3winosfi" :ALIASES NIL :PORT 3458 :PROTO "udp">
 #<SERVICE :NAME "integral" :ALIASES NIL :PORT 3459 :PROTO "tcp">
 #<SERVICE :NAME "integral" :ALIASES NIL :PORT 3459 :PROTO "udp">
 #<SERVICE :NAME "edm-manager" :ALIASES NIL :PORT 3460 :PROTO "tcp">
 #<SERVICE :NAME "edm-manager" :ALIASES NIL :PORT 3460 :PROTO "udp">
 #<SERVICE :NAME "edm-stager" :ALIASES NIL :PORT 3461 :PROTO "tcp">
 #<SERVICE :NAME "edm-stager" :ALIASES NIL :PORT 3461 :PROTO "udp">
 #<SERVICE :NAME "edm-std-notify" :ALIASES NIL :PORT 3462 :PROTO "tcp">
 #<SERVICE :NAME "edm-std-notify" :ALIASES NIL :PORT 3462 :PROTO "udp">
 #<SERVICE :NAME "edm-adm-notify" :ALIASES NIL :PORT 3463 :PROTO "tcp">
 #<SERVICE :NAME "edm-adm-notify" :ALIASES NIL :PORT 3463 :PROTO "udp">
 #<SERVICE :NAME "edm-mgr-sync" :ALIASES NIL :PORT 3464 :PROTO "tcp">
 #<SERVICE :NAME "edm-mgr-sync" :ALIASES NIL :PORT 3464 :PROTO "udp">
 #<SERVICE :NAME "edm-mgr-cntrl" :ALIASES NIL :PORT 3465 :PROTO "tcp">
 #<SERVICE :NAME "edm-mgr-cntrl" :ALIASES NIL :PORT 3465 :PROTO "udp">
 #<SERVICE :NAME "workflow" :ALIASES NIL :PORT 3466 :PROTO "tcp">
 #<SERVICE :NAME "workflow" :ALIASES NIL :PORT 3466 :PROTO "udp">
 #<SERVICE :NAME "rcst" :ALIASES NIL :PORT 3467 :PROTO "tcp">
 #<SERVICE :NAME "rcst" :ALIASES NIL :PORT 3467 :PROTO "udp">
 #<SERVICE :NAME "ttcmremotectrl" :ALIASES NIL :PORT 3468 :PROTO "tcp">
 #<SERVICE :NAME "ttcmremotectrl" :ALIASES NIL :PORT 3468 :PROTO "udp">
 #<SERVICE :NAME "pluribus" :ALIASES NIL :PORT 3469 :PROTO "tcp">
 #<SERVICE :NAME "pluribus" :ALIASES NIL :PORT 3469 :PROTO "udp">
 #<SERVICE :NAME "jt400" :ALIASES NIL :PORT 3470 :PROTO "tcp">
 #<SERVICE :NAME "jt400" :ALIASES NIL :PORT 3470 :PROTO "udp">
 #<SERVICE :NAME "jt400-ssl" :ALIASES NIL :PORT 3471 :PROTO "tcp">
 #<SERVICE :NAME "jt400-ssl" :ALIASES NIL :PORT 3471 :PROTO "udp">
 #<SERVICE :NAME "jaugsremotec-1" :ALIASES NIL :PORT 3472 :PROTO "tcp">
 #<SERVICE :NAME "jaugsremotec-1" :ALIASES NIL :PORT 3472 :PROTO "udp">
 #<SERVICE :NAME "jaugsremotec-2" :ALIASES NIL :PORT 3473 :PROTO "tcp">
 #<SERVICE :NAME "jaugsremotec-2" :ALIASES NIL :PORT 3473 :PROTO "udp">
 #<SERVICE :NAME "ttntspauto" :ALIASES NIL :PORT 3474 :PROTO "tcp">
 #<SERVICE :NAME "ttntspauto" :ALIASES NIL :PORT 3474 :PROTO "udp">
 #<SERVICE :NAME "genisar-port" :ALIASES NIL :PORT 3475 :PROTO "tcp">
 #<SERVICE :NAME "genisar-port" :ALIASES NIL :PORT 3475 :PROTO "udp">
 #<SERVICE :NAME "nppmp" :ALIASES NIL :PORT 3476 :PROTO "tcp">
 #<SERVICE :NAME "nppmp" :ALIASES NIL :PORT 3476 :PROTO "udp">
 #<SERVICE :NAME "ecomm" :ALIASES NIL :PORT 3477 :PROTO "tcp">
 #<SERVICE :NAME "ecomm" :ALIASES NIL :PORT 3477 :PROTO "udp">
 #<SERVICE :NAME "stun" :ALIASES ("stun-behavior" "turn") :PORT 3478
   :PROTO "tcp">
 #<SERVICE :NAME "stun" :ALIASES ("stun-behavior" "turn") :PORT 3478
   :PROTO "udp">
 #<SERVICE :NAME "twrpc" :ALIASES NIL :PORT 3479 :PROTO "tcp">
 #<SERVICE :NAME "twrpc" :ALIASES NIL :PORT 3479 :PROTO "udp">
 #<SERVICE :NAME "plethora" :ALIASES NIL :PORT 3480 :PROTO "tcp">
 #<SERVICE :NAME "plethora" :ALIASES NIL :PORT 3480 :PROTO "udp">
 #<SERVICE :NAME "cleanerliverc" :ALIASES NIL :PORT 3481 :PROTO "tcp">
 #<SERVICE :NAME "cleanerliverc" :ALIASES NIL :PORT 3481 :PROTO "udp">
 #<SERVICE :NAME "vulture" :ALIASES NIL :PORT 3482 :PROTO "tcp">
 #<SERVICE :NAME "vulture" :ALIASES NIL :PORT 3482 :PROTO "udp">
 #<SERVICE :NAME "slim-devices" :ALIASES NIL :PORT 3483 :PROTO "tcp">
 #<SERVICE :NAME "slim-devices" :ALIASES NIL :PORT 3483 :PROTO "udp">
 #<SERVICE :NAME "gbs-stp" :ALIASES NIL :PORT 3484 :PROTO "tcp">
 #<SERVICE :NAME "gbs-stp" :ALIASES NIL :PORT 3484 :PROTO "udp">
 #<SERVICE :NAME "celatalk" :ALIASES NIL :PORT 3485 :PROTO "tcp">
 #<SERVICE :NAME "celatalk" :ALIASES NIL :PORT 3485 :PROTO "udp">
 #<SERVICE :NAME "ifsf-hb-port" :ALIASES NIL :PORT 3486 :PROTO "tcp">
 #<SERVICE :NAME "ifsf-hb-port" :ALIASES NIL :PORT 3486 :PROTO "udp">
 #<SERVICE :NAME "ltctcp" :ALIASES NIL :PORT 3487 :PROTO "tcp">
 #<SERVICE :NAME "ltcudp" :ALIASES NIL :PORT 3487 :PROTO "udp">
 #<SERVICE :NAME "fs-rh-srv" :ALIASES NIL :PORT 3488 :PROTO "tcp">
 #<SERVICE :NAME "fs-rh-srv" :ALIASES NIL :PORT 3488 :PROTO "udp">
 #<SERVICE :NAME "dtp-dia" :ALIASES NIL :PORT 3489 :PROTO "tcp">
 #<SERVICE :NAME "dtp-dia" :ALIASES NIL :PORT 3489 :PROTO "udp">
 #<SERVICE :NAME "colubris" :ALIASES NIL :PORT 3490 :PROTO "tcp">
 #<SERVICE :NAME "colubris" :ALIASES NIL :PORT 3490 :PROTO "udp">
 #<SERVICE :NAME "swr-port" :ALIASES NIL :PORT 3491 :PROTO "tcp">
 #<SERVICE :NAME "swr-port" :ALIASES NIL :PORT 3491 :PROTO "udp">
 #<SERVICE :NAME "tvdumtray-port" :ALIASES NIL :PORT 3492 :PROTO "tcp">
 #<SERVICE :NAME "tvdumtray-port" :ALIASES NIL :PORT 3492 :PROTO "udp">
 #<SERVICE :NAME "nut" :ALIASES NIL :PORT 3493 :PROTO "tcp">
 #<SERVICE :NAME "nut" :ALIASES NIL :PORT 3493 :PROTO "udp">
 #<SERVICE :NAME "ibm3494" :ALIASES NIL :PORT 3494 :PROTO "tcp">
 #<SERVICE :NAME "ibm3494" :ALIASES NIL :PORT 3494 :PROTO "udp">
 #<SERVICE :NAME "seclayer-tcp" :ALIASES NIL :PORT 3495 :PROTO "tcp">
 #<SERVICE :NAME "seclayer-tcp" :ALIASES NIL :PORT 3495 :PROTO "udp">
 #<SERVICE :NAME "seclayer-tls" :ALIASES NIL :PORT 3496 :PROTO "tcp">
 #<SERVICE :NAME "seclayer-tls" :ALIASES NIL :PORT 3496 :PROTO "udp">
 #<SERVICE :NAME "ipether232port" :ALIASES NIL :PORT 3497 :PROTO "tcp">
 #<SERVICE :NAME "ipether232port" :ALIASES NIL :PORT 3497 :PROTO "udp">
 #<SERVICE :NAME "dashpas-port" :ALIASES NIL :PORT 3498 :PROTO "tcp">
 #<SERVICE :NAME "dashpas-port" :ALIASES NIL :PORT 3498 :PROTO "udp">
 #<SERVICE :NAME "sccip-media" :ALIASES NIL :PORT 3499 :PROTO "tcp">
 #<SERVICE :NAME "sccip-media" :ALIASES NIL :PORT 3499 :PROTO "udp">
 #<SERVICE :NAME "rtmp-port" :ALIASES NIL :PORT 3500 :PROTO "tcp">
 #<SERVICE :NAME "rtmp-port" :ALIASES NIL :PORT 3500 :PROTO "udp">
 #<SERVICE :NAME "isoft-p2p" :ALIASES NIL :PORT 3501 :PROTO "tcp">
 #<SERVICE :NAME "isoft-p2p" :ALIASES NIL :PORT 3501 :PROTO "udp">
 #<SERVICE :NAME "avinstalldisc" :ALIASES NIL :PORT 3502 :PROTO "tcp">
 #<SERVICE :NAME "avinstalldisc" :ALIASES NIL :PORT 3502 :PROTO "udp">
 #<SERVICE :NAME "lsp-ping" :ALIASES NIL :PORT 3503 :PROTO "tcp">
 #<SERVICE :NAME "lsp-ping" :ALIASES NIL :PORT 3503 :PROTO "udp">
 #<SERVICE :NAME "ironstorm" :ALIASES NIL :PORT 3504 :PROTO "tcp">
 #<SERVICE :NAME "ironstorm" :ALIASES NIL :PORT 3504 :PROTO "udp">
 #<SERVICE :NAME "ccmcomm" :ALIASES NIL :PORT 3505 :PROTO "tcp">
 #<SERVICE :NAME "ccmcomm" :ALIASES NIL :PORT 3505 :PROTO "udp">
 #<SERVICE :NAME "apc-3506" :ALIASES NIL :PORT 3506 :PROTO "tcp">
 #<SERVICE :NAME "apc-3506" :ALIASES NIL :PORT 3506 :PROTO "udp">
 #<SERVICE :NAME "nesh-broker" :ALIASES NIL :PORT 3507 :PROTO "tcp">
 #<SERVICE :NAME "nesh-broker" :ALIASES NIL :PORT 3507 :PROTO "udp">
 #<SERVICE :NAME "interactionweb" :ALIASES NIL :PORT 3508 :PROTO "tcp">
 #<SERVICE :NAME "interactionweb" :ALIASES NIL :PORT 3508 :PROTO "udp">
 #<SERVICE :NAME "vt-ssl" :ALIASES NIL :PORT 3509 :PROTO "tcp">
 #<SERVICE :NAME "vt-ssl" :ALIASES NIL :PORT 3509 :PROTO "udp">
 #<SERVICE :NAME "xss-port" :ALIASES NIL :PORT 3510 :PROTO "tcp">
 #<SERVICE :NAME "xss-port" :ALIASES NIL :PORT 3510 :PROTO "udp">
 #<SERVICE :NAME "webmail-2" :ALIASES NIL :PORT 3511 :PROTO "tcp">
 #<SERVICE :NAME "webmail-2" :ALIASES NIL :PORT 3511 :PROTO "udp">
 #<SERVICE :NAME "aztec" :ALIASES NIL :PORT 3512 :PROTO "tcp">
 #<SERVICE :NAME "aztec" :ALIASES NIL :PORT 3512 :PROTO "udp">
 #<SERVICE :NAME "arcpd" :ALIASES NIL :PORT 3513 :PROTO "tcp">
 #<SERVICE :NAME "arcpd" :ALIASES NIL :PORT 3513 :PROTO "udp">
 #<SERVICE :NAME "must-p2p" :ALIASES NIL :PORT 3514 :PROTO "tcp">
 #<SERVICE :NAME "must-p2p" :ALIASES NIL :PORT 3514 :PROTO "udp">
 #<SERVICE :NAME "must-backplane" :ALIASES NIL :PORT 3515 :PROTO "tcp">
 #<SERVICE :NAME "must-backplane" :ALIASES NIL :PORT 3515 :PROTO "udp">
 #<SERVICE :NAME "smartcard-port" :ALIASES NIL :PORT 3516 :PROTO "tcp">
 #<SERVICE :NAME "smartcard-port" :ALIASES NIL :PORT 3516 :PROTO "udp">
 #<SERVICE :NAME "802-11-iapp" :ALIASES NIL :PORT 3517 :PROTO "tcp">
 #<SERVICE :NAME "802-11-iapp" :ALIASES NIL :PORT 3517 :PROTO "udp">
 #<SERVICE :NAME "artifact-msg" :ALIASES NIL :PORT 3518 :PROTO "tcp">
 #<SERVICE :NAME "artifact-msg" :ALIASES NIL :PORT 3518 :PROTO "udp">
 #<SERVICE :NAME "nvmsgd" :ALIASES NIL :PORT 3519 :PROTO "tcp">
 #<SERVICE :NAME "galileo" :ALIASES NIL :PORT 3519 :PROTO "udp">
 #<SERVICE :NAME "galileolog" :ALIASES NIL :PORT 3520 :PROTO "tcp">
 #<SERVICE :NAME "galileolog" :ALIASES NIL :PORT 3520 :PROTO "udp">
 #<SERVICE :NAME "mc3ss" :ALIASES NIL :PORT 3521 :PROTO "tcp">
 #<SERVICE :NAME "mc3ss" :ALIASES NIL :PORT 3521 :PROTO "udp">
 #<SERVICE :NAME "nssocketport" :ALIASES NIL :PORT 3522 :PROTO "tcp">
 #<SERVICE :NAME "nssocketport" :ALIASES NIL :PORT 3522 :PROTO "udp">
 #<SERVICE :NAME "odeumservlink" :ALIASES NIL :PORT 3523 :PROTO "tcp">
 #<SERVICE :NAME "odeumservlink" :ALIASES NIL :PORT 3523 :PROTO "udp">
 #<SERVICE :NAME "ecmport" :ALIASES NIL :PORT 3524 :PROTO "tcp">
 #<SERVICE :NAME "ecmport" :ALIASES NIL :PORT 3524 :PROTO "udp">
 #<SERVICE :NAME "eisport" :ALIASES NIL :PORT 3525 :PROTO "tcp">
 #<SERVICE :NAME "eisport" :ALIASES NIL :PORT 3525 :PROTO "udp">
 #<SERVICE :NAME "starquiz-port" :ALIASES NIL :PORT 3526 :PROTO "tcp">
 #<SERVICE :NAME "starquiz-port" :ALIASES NIL :PORT 3526 :PROTO "udp">
 #<SERVICE :NAME "beserver-msg-q" :ALIASES NIL :PORT 3527 :PROTO "tcp">
 #<SERVICE :NAME "beserver-msg-q" :ALIASES NIL :PORT 3527 :PROTO "udp">
 #<SERVICE :NAME "jboss-iiop" :ALIASES NIL :PORT 3528 :PROTO "tcp">
 #<SERVICE :NAME "jboss-iiop" :ALIASES NIL :PORT 3528 :PROTO "udp">
 #<SERVICE :NAME "jboss-iiop-ssl" :ALIASES NIL :PORT 3529 :PROTO "tcp">
 #<SERVICE :NAME "jboss-iiop-ssl" :ALIASES NIL :PORT 3529 :PROTO "udp">
 #<SERVICE :NAME "gf" :ALIASES NIL :PORT 3530 :PROTO "tcp">
 #<SERVICE :NAME "gf" :ALIASES NIL :PORT 3530 :PROTO "udp">
 #<SERVICE :NAME "joltid" :ALIASES NIL :PORT 3531 :PROTO "tcp">
 #<SERVICE :NAME "joltid" :ALIASES NIL :PORT 3531 :PROTO "udp">
 #<SERVICE :NAME "raven-rmp" :ALIASES NIL :PORT 3532 :PROTO "tcp">
 #<SERVICE :NAME "raven-rmp" :ALIASES NIL :PORT 3532 :PROTO "udp">
 #<SERVICE :NAME "raven-rdp" :ALIASES NIL :PORT 3533 :PROTO "tcp">
 #<SERVICE :NAME "raven-rdp" :ALIASES NIL :PORT 3533 :PROTO "udp">
 #<SERVICE :NAME "urld-port" :ALIASES NIL :PORT 3534 :PROTO "tcp">
 #<SERVICE :NAME "urld-port" :ALIASES NIL :PORT 3534 :PROTO "udp">
 #<SERVICE :NAME "ms-la" :ALIASES NIL :PORT 3535 :PROTO "tcp">
 #<SERVICE :NAME "ms-la" :ALIASES NIL :PORT 3535 :PROTO "udp">
 #<SERVICE :NAME "snac" :ALIASES NIL :PORT 3536 :PROTO "tcp">
 #<SERVICE :NAME "snac" :ALIASES NIL :PORT 3536 :PROTO "udp">
 #<SERVICE :NAME "ni-visa-remote" :ALIASES NIL :PORT 3537 :PROTO "tcp">
 #<SERVICE :NAME "ni-visa-remote" :ALIASES NIL :PORT 3537 :PROTO "udp">
 #<SERVICE :NAME "ibm-diradm" :ALIASES NIL :PORT 3538 :PROTO "tcp">
 #<SERVICE :NAME "ibm-diradm" :ALIASES NIL :PORT 3538 :PROTO "udp">
 #<SERVICE :NAME "ibm-diradm-ssl" :ALIASES NIL :PORT 3539 :PROTO "tcp">
 #<SERVICE :NAME "ibm-diradm-ssl" :ALIASES NIL :PORT 3539 :PROTO "udp">
 #<SERVICE :NAME "pnrp-port" :ALIASES NIL :PORT 3540 :PROTO "tcp">
 #<SERVICE :NAME "pnrp-port" :ALIASES NIL :PORT 3540 :PROTO "udp">
 #<SERVICE :NAME "voispeed-port" :ALIASES NIL :PORT 3541 :PROTO "tcp">
 #<SERVICE :NAME "voispeed-port" :ALIASES NIL :PORT 3541 :PROTO "udp">
 #<SERVICE :NAME "hacl-monitor" :ALIASES NIL :PORT 3542 :PROTO "tcp">
 #<SERVICE :NAME "hacl-monitor" :ALIASES NIL :PORT 3542 :PROTO "udp">
 #<SERVICE :NAME "qftest-lookup" :ALIASES NIL :PORT 3543 :PROTO "tcp">
 #<SERVICE :NAME "qftest-lookup" :ALIASES NIL :PORT 3543 :PROTO "udp">
 #<SERVICE :NAME "teredo" :ALIASES NIL :PORT 3544 :PROTO "tcp">
 #<SERVICE :NAME "teredo" :ALIASES NIL :PORT 3544 :PROTO "udp">
 #<SERVICE :NAME "camac" :ALIASES NIL :PORT 3545 :PROTO "tcp">
 #<SERVICE :NAME "camac" :ALIASES NIL :PORT 3545 :PROTO "udp">
 #<SERVICE :NAME "symantec-sim" :ALIASES NIL :PORT 3547 :PROTO "tcp">
 #<SERVICE :NAME "symantec-sim" :ALIASES NIL :PORT 3547 :PROTO "udp">
 #<SERVICE :NAME "interworld" :ALIASES NIL :PORT 3548 :PROTO "tcp">
 #<SERVICE :NAME "interworld" :ALIASES NIL :PORT 3548 :PROTO "udp">
 #<SERVICE :NAME "tellumat-nms" :ALIASES NIL :PORT 3549 :PROTO "tcp">
 #<SERVICE :NAME "tellumat-nms" :ALIASES NIL :PORT 3549 :PROTO "udp">
 #<SERVICE :NAME "ssmpp" :ALIASES NIL :PORT 3550 :PROTO "tcp">
 #<SERVICE :NAME "ssmpp" :ALIASES NIL :PORT 3550 :PROTO "udp">
 #<SERVICE :NAME "apcupsd" :ALIASES NIL :PORT 3551 :PROTO "tcp">
 #<SERVICE :NAME "apcupsd" :ALIASES NIL :PORT 3551 :PROTO "udp">
 #<SERVICE :NAME "taserver" :ALIASES NIL :PORT 3552 :PROTO "tcp">
 #<SERVICE :NAME "taserver" :ALIASES NIL :PORT 3552 :PROTO "udp">
 #<SERVICE :NAME "rbr-discovery" :ALIASES NIL :PORT 3553 :PROTO "tcp">
 #<SERVICE :NAME "rbr-discovery" :ALIASES NIL :PORT 3553 :PROTO "udp">
 #<SERVICE :NAME "questnotify" :ALIASES NIL :PORT 3554 :PROTO "tcp">
 #<SERVICE :NAME "questnotify" :ALIASES NIL :PORT 3554 :PROTO "udp">
 #<SERVICE :NAME "razor" :ALIASES NIL :PORT 3555 :PROTO "tcp">
 #<SERVICE :NAME "razor" :ALIASES NIL :PORT 3555 :PROTO "udp">
 #<SERVICE :NAME "sky-transport" :ALIASES NIL :PORT 3556 :PROTO "tcp">
 #<SERVICE :NAME "sky-transport" :ALIASES NIL :PORT 3556 :PROTO "udp">
 #<SERVICE :NAME "personalos-001" :ALIASES NIL :PORT 3557 :PROTO "tcp">
 #<SERVICE :NAME "personalos-001" :ALIASES NIL :PORT 3557 :PROTO "udp">
 #<SERVICE :NAME "mcp-port" :ALIASES NIL :PORT 3558 :PROTO "tcp">
 #<SERVICE :NAME "mcp-port" :ALIASES NIL :PORT 3558 :PROTO "udp">
 #<SERVICE :NAME "cctv-port" :ALIASES NIL :PORT 3559 :PROTO "tcp">
 #<SERVICE :NAME "cctv-port" :ALIASES NIL :PORT 3559 :PROTO "udp">
 #<SERVICE :NAME "iniserve-port" :ALIASES NIL :PORT 3560 :PROTO "tcp">
 #<SERVICE :NAME "iniserve-port" :ALIASES NIL :PORT 3560 :PROTO "udp">
 #<SERVICE :NAME "bmc-onekey" :ALIASES NIL :PORT 3561 :PROTO "tcp">
 #<SERVICE :NAME "bmc-onekey" :ALIASES NIL :PORT 3561 :PROTO "udp">
 #<SERVICE :NAME "sdbproxy" :ALIASES NIL :PORT 3562 :PROTO "tcp">
 #<SERVICE :NAME "sdbproxy" :ALIASES NIL :PORT 3562 :PROTO "udp">
 #<SERVICE :NAME "watcomdebug" :ALIASES NIL :PORT 3563 :PROTO "tcp">
 #<SERVICE :NAME "watcomdebug" :ALIASES NIL :PORT 3563 :PROTO "udp">
 #<SERVICE :NAME "esimport" :ALIASES NIL :PORT 3564 :PROTO "tcp">
 #<SERVICE :NAME "esimport" :ALIASES NIL :PORT 3564 :PROTO "udp">
 #<SERVICE :NAME "m2pa" :ALIASES NIL :PORT 3565 :PROTO "tcp">
 #<SERVICE :NAME "m2pa" :ALIASES NIL :PORT 3565 :PROTO "sctp">
 #<SERVICE :NAME "quest-data-hub" :ALIASES NIL :PORT 3566 :PROTO "tcp">
 #<SERVICE :NAME "dof-eps" :ALIASES NIL :PORT 3567 :PROTO "tcp">
 #<SERVICE :NAME "dof-eps" :ALIASES NIL :PORT 3567 :PROTO "udp">
 #<SERVICE :NAME "dof-tunnel-sec" :ALIASES NIL :PORT 3568 :PROTO "tcp">
 #<SERVICE :NAME "dof-tunnel-sec" :ALIASES NIL :PORT 3568 :PROTO "udp">
 #<SERVICE :NAME "mbg-ctrl" :ALIASES NIL :PORT 3569 :PROTO "tcp">
 #<SERVICE :NAME "mbg-ctrl" :ALIASES NIL :PORT 3569 :PROTO "udp">
 #<SERVICE :NAME "mccwebsvr-port" :ALIASES NIL :PORT 3570 :PROTO "tcp">
 #<SERVICE :NAME "mccwebsvr-port" :ALIASES NIL :PORT 3570 :PROTO "udp">
 #<SERVICE :NAME "megardsvr-port" :ALIASES NIL :PORT 3571 :PROTO "tcp">
 #<SERVICE :NAME "megardsvr-port" :ALIASES NIL :PORT 3571 :PROTO "udp">
 #<SERVICE :NAME "megaregsvrport" :ALIASES NIL :PORT 3572 :PROTO "tcp">
 #<SERVICE :NAME "megaregsvrport" :ALIASES NIL :PORT 3572 :PROTO "udp">
 #<SERVICE :NAME "tag-ups-1" :ALIASES NIL :PORT 3573 :PROTO "tcp">
 #<SERVICE :NAME "tag-ups-1" :ALIASES NIL :PORT 3573 :PROTO "udp">
 #<SERVICE :NAME "dmaf-server" :ALIASES NIL :PORT 3574 :PROTO "tcp">
 #<SERVICE :NAME "dmaf-caster" :ALIASES NIL :PORT 3574 :PROTO "udp">
 #<SERVICE :NAME "ccm-port" :ALIASES NIL :PORT 3575 :PROTO "tcp">
 #<SERVICE :NAME "ccm-port" :ALIASES NIL :PORT 3575 :PROTO "udp">
 #<SERVICE :NAME "cmc-port" :ALIASES NIL :PORT 3576 :PROTO "tcp">
 #<SERVICE :NAME "cmc-port" :ALIASES NIL :PORT 3576 :PROTO "udp">
 #<SERVICE :NAME "config-port" :ALIASES NIL :PORT 3577 :PROTO "tcp">
 #<SERVICE :NAME "config-port" :ALIASES NIL :PORT 3577 :PROTO "udp">
 #<SERVICE :NAME "data-port" :ALIASES NIL :PORT 3578 :PROTO "tcp">
 #<SERVICE :NAME "data-port" :ALIASES NIL :PORT 3578 :PROTO "udp">
 #<SERVICE :NAME "ttat3lb" :ALIASES NIL :PORT 3579 :PROTO "tcp">
 #<SERVICE :NAME "ttat3lb" :ALIASES NIL :PORT 3579 :PROTO "udp">
 #<SERVICE :NAME "nati-svrloc" :ALIASES NIL :PORT 3580 :PROTO "tcp">
 #<SERVICE :NAME "nati-svrloc" :ALIASES NIL :PORT 3580 :PROTO "udp">
 #<SERVICE :NAME "kfxaclicensing" :ALIASES NIL :PORT 3581 :PROTO "tcp">
 #<SERVICE :NAME "kfxaclicensing" :ALIASES NIL :PORT 3581 :PROTO "udp">
 #<SERVICE :NAME "press" :ALIASES NIL :PORT 3582 :PROTO "tcp">
 #<SERVICE :NAME "press" :ALIASES NIL :PORT 3582 :PROTO "udp">
 #<SERVICE :NAME "canex-watch" :ALIASES NIL :PORT 3583 :PROTO "tcp">
 #<SERVICE :NAME "canex-watch" :ALIASES NIL :PORT 3583 :PROTO "udp">
 #<SERVICE :NAME "u-dbap" :ALIASES NIL :PORT 3584 :PROTO "tcp">
 #<SERVICE :NAME "u-dbap" :ALIASES NIL :PORT 3584 :PROTO "udp">
 #<SERVICE :NAME "emprise-lls" :ALIASES NIL :PORT 3585 :PROTO "tcp">
 #<SERVICE :NAME "emprise-lls" :ALIASES NIL :PORT 3585 :PROTO "udp">
 #<SERVICE :NAME "emprise-lsc" :ALIASES NIL :PORT 3586 :PROTO "tcp">
 #<SERVICE :NAME "emprise-lsc" :ALIASES NIL :PORT 3586 :PROTO "udp">
 #<SERVICE :NAME "p2pgroup" :ALIASES NIL :PORT 3587 :PROTO "tcp">
 #<SERVICE :NAME "p2pgroup" :ALIASES NIL :PORT 3587 :PROTO "udp">
 #<SERVICE :NAME "sentinel" :ALIASES NIL :PORT 3588 :PROTO "tcp">
 #<SERVICE :NAME "sentinel" :ALIASES NIL :PORT 3588 :PROTO "udp">
 #<SERVICE :NAME "isomair" :ALIASES NIL :PORT 3589 :PROTO "tcp">
 #<SERVICE :NAME "isomair" :ALIASES NIL :PORT 3589 :PROTO "udp">
 #<SERVICE :NAME "wv-csp-sms" :ALIASES NIL :PORT 3590 :PROTO "tcp">
 #<SERVICE :NAME "wv-csp-sms" :ALIASES NIL :PORT 3590 :PROTO "udp">
 #<SERVICE :NAME "gtrack-server" :ALIASES NIL :PORT 3591 :PROTO "tcp">
 #<SERVICE :NAME "gtrack-server" :ALIASES NIL :PORT 3591 :PROTO "udp">
 #<SERVICE :NAME "gtrack-ne" :ALIASES NIL :PORT 3592 :PROTO "tcp">
 #<SERVICE :NAME "gtrack-ne" :ALIASES NIL :PORT 3592 :PROTO "udp">
 #<SERVICE :NAME "bpmd" :ALIASES NIL :PORT 3593 :PROTO "tcp">
 #<SERVICE :NAME "bpmd" :ALIASES NIL :PORT 3593 :PROTO "udp">
 #<SERVICE :NAME "mediaspace" :ALIASES NIL :PORT 3594 :PROTO "tcp">
 #<SERVICE :NAME "mediaspace" :ALIASES NIL :PORT 3594 :PROTO "udp">
 #<SERVICE :NAME "shareapp" :ALIASES NIL :PORT 3595 :PROTO "tcp">
 #<SERVICE :NAME "shareapp" :ALIASES NIL :PORT 3595 :PROTO "udp">
 #<SERVICE :NAME "iw-mmogame" :ALIASES NIL :PORT 3596 :PROTO "tcp">
 #<SERVICE :NAME "iw-mmogame" :ALIASES NIL :PORT 3596 :PROTO "udp">
 #<SERVICE :NAME "a14" :ALIASES NIL :PORT 3597 :PROTO "tcp">
 #<SERVICE :NAME "a14" :ALIASES NIL :PORT 3597 :PROTO "udp">
 #<SERVICE :NAME "a15" :ALIASES NIL :PORT 3598 :PROTO "tcp">
 #<SERVICE :NAME "a15" :ALIASES NIL :PORT 3598 :PROTO "udp">
 #<SERVICE :NAME "quasar-server" :ALIASES NIL :PORT 3599 :PROTO "tcp">
 #<SERVICE :NAME "quasar-server" :ALIASES NIL :PORT 3599 :PROTO "udp">
 #<SERVICE :NAME "trap-daemon" :ALIASES NIL :PORT 3600 :PROTO "tcp">
 #<SERVICE :NAME "trap-daemon" :ALIASES NIL :PORT 3600 :PROTO "udp">
 #<SERVICE :NAME "visinet-gui" :ALIASES NIL :PORT 3601 :PROTO "tcp">
 #<SERVICE :NAME "visinet-gui" :ALIASES NIL :PORT 3601 :PROTO "udp">
 #<SERVICE :NAME "infiniswitchcl" :ALIASES NIL :PORT 3602 :PROTO "tcp">
 #<SERVICE :NAME "infiniswitchcl" :ALIASES NIL :PORT 3602 :PROTO "udp">
 #<SERVICE :NAME "int-rcv-cntrl" :ALIASES NIL :PORT 3603 :PROTO "tcp">
 #<SERVICE :NAME "int-rcv-cntrl" :ALIASES NIL :PORT 3603 :PROTO "udp">
 #<SERVICE :NAME "bmc-jmx-port" :ALIASES NIL :PORT 3604 :PROTO "tcp">
 #<SERVICE :NAME "bmc-jmx-port" :ALIASES NIL :PORT 3604 :PROTO "udp">
 #<SERVICE :NAME "comcam-io" :ALIASES NIL :PORT 3605 :PROTO "tcp">
 #<SERVICE :NAME "comcam-io" :ALIASES NIL :PORT 3605 :PROTO "udp">
 #<SERVICE :NAME "splitlock" :ALIASES NIL :PORT 3606 :PROTO "tcp">
 #<SERVICE :NAME "splitlock" :ALIASES NIL :PORT 3606 :PROTO "udp">
 #<SERVICE :NAME "precise-i3" :ALIASES NIL :PORT 3607 :PROTO "tcp">
 #<SERVICE :NAME "precise-i3" :ALIASES NIL :PORT 3607 :PROTO "udp">
 #<SERVICE :NAME "trendchip-dcp" :ALIASES NIL :PORT 3608 :PROTO "tcp">
 #<SERVICE :NAME "trendchip-dcp" :ALIASES NIL :PORT 3608 :PROTO "udp">
 #<SERVICE :NAME "cpdi-pidas-cm" :ALIASES NIL :PORT 3609 :PROTO "tcp">
 #<SERVICE :NAME "cpdi-pidas-cm" :ALIASES NIL :PORT 3609 :PROTO "udp">
 #<SERVICE :NAME "echonet" :ALIASES NIL :PORT 3610 :PROTO "tcp">
 #<SERVICE :NAME "echonet" :ALIASES NIL :PORT 3610 :PROTO "udp">
 #<SERVICE :NAME "six-degrees" :ALIASES NIL :PORT 3611 :PROTO "tcp">
 #<SERVICE :NAME "six-degrees" :ALIASES NIL :PORT 3611 :PROTO "udp">
 #<SERVICE :NAME "hp-dataprotect" :ALIASES NIL :PORT 3612 :PROTO "tcp">
 #<SERVICE :NAME "hp-dataprotect" :ALIASES NIL :PORT 3612 :PROTO "udp">
 #<SERVICE :NAME "alaris-disc" :ALIASES NIL :PORT 3613 :PROTO "tcp">
 #<SERVICE :NAME "alaris-disc" :ALIASES NIL :PORT 3613 :PROTO "udp">
 #<SERVICE :NAME "sigma-port" :ALIASES NIL :PORT 3614 :PROTO "tcp">
 #<SERVICE :NAME "sigma-port" :ALIASES NIL :PORT 3614 :PROTO "udp">
 #<SERVICE :NAME "start-network" :ALIASES NIL :PORT 3615 :PROTO "tcp">
 #<SERVICE :NAME "start-network" :ALIASES NIL :PORT 3615 :PROTO "udp">
 #<SERVICE :NAME "cd3o-protocol" :ALIASES NIL :PORT 3616 :PROTO "tcp">
 #<SERVICE :NAME "cd3o-protocol" :ALIASES NIL :PORT 3616 :PROTO "udp">
 #<SERVICE :NAME "sharp-server" :ALIASES NIL :PORT 3617 :PROTO "tcp">
 #<SERVICE :NAME "sharp-server" :ALIASES NIL :PORT 3617 :PROTO "udp">
 #<SERVICE :NAME "aairnet-1" :ALIASES NIL :PORT 3618 :PROTO "tcp">
 #<SERVICE :NAME "aairnet-1" :ALIASES NIL :PORT 3618 :PROTO "udp">
 #<SERVICE :NAME "aairnet-2" :ALIASES NIL :PORT 3619 :PROTO "tcp">
 #<SERVICE :NAME "aairnet-2" :ALIASES NIL :PORT 3619 :PROTO "udp">
 #<SERVICE :NAME "ep-pcp" :ALIASES NIL :PORT 3620 :PROTO "tcp">
 #<SERVICE :NAME "ep-pcp" :ALIASES NIL :PORT 3620 :PROTO "udp">
 #<SERVICE :NAME "ep-nsp" :ALIASES NIL :PORT 3621 :PROTO "tcp">
 #<SERVICE :NAME "ep-nsp" :ALIASES NIL :PORT 3621 :PROTO "udp">
 #<SERVICE :NAME "ff-lr-port" :ALIASES NIL :PORT 3622 :PROTO "tcp">
 #<SERVICE :NAME "ff-lr-port" :ALIASES NIL :PORT 3622 :PROTO "udp">
 #<SERVICE :NAME "haipe-discover" :ALIASES NIL :PORT 3623 :PROTO "tcp">
 #<SERVICE :NAME "haipe-discover" :ALIASES NIL :PORT 3623 :PROTO "udp">
 #<SERVICE :NAME "dist-upgrade" :ALIASES NIL :PORT 3624 :PROTO "tcp">
 #<SERVICE :NAME "dist-upgrade" :ALIASES NIL :PORT 3624 :PROTO "udp">
 #<SERVICE :NAME "volley" :ALIASES NIL :PORT 3625 :PROTO "tcp">
 #<SERVICE :NAME "volley" :ALIASES NIL :PORT 3625 :PROTO "udp">
 #<SERVICE :NAME "bvcdaemon-port" :ALIASES NIL :PORT 3626 :PROTO "tcp">
 #<SERVICE :NAME "bvcdaemon-port" :ALIASES NIL :PORT 3626 :PROTO "udp">
 #<SERVICE :NAME "jamserverport" :ALIASES NIL :PORT 3627 :PROTO "tcp">
 #<SERVICE :NAME "jamserverport" :ALIASES NIL :PORT 3627 :PROTO "udp">
 #<SERVICE :NAME "ept-machine" :ALIASES NIL :PORT 3628 :PROTO "tcp">
 #<SERVICE :NAME "ept-machine" :ALIASES NIL :PORT 3628 :PROTO "udp">
 #<SERVICE :NAME "escvpnet" :ALIASES NIL :PORT 3629 :PROTO "tcp">
 #<SERVICE :NAME "escvpnet" :ALIASES NIL :PORT 3629 :PROTO "udp">
 #<SERVICE :NAME "cs-remote-db" :ALIASES NIL :PORT 3630 :PROTO "tcp">
 #<SERVICE :NAME "cs-remote-db" :ALIASES NIL :PORT 3630 :PROTO "udp">
 #<SERVICE :NAME "cs-services" :ALIASES NIL :PORT 3631 :PROTO "tcp">
 #<SERVICE :NAME "cs-services" :ALIASES NIL :PORT 3631 :PROTO "udp">
 #<SERVICE :NAME "distcc" :ALIASES NIL :PORT 3632 :PROTO "udp">
 #<SERVICE :NAME "wacp" :ALIASES NIL :PORT 3633 :PROTO "tcp">
 #<SERVICE :NAME "wacp" :ALIASES NIL :PORT 3633 :PROTO "udp">
 #<SERVICE :NAME "hlibmgr" :ALIASES NIL :PORT 3634 :PROTO "tcp">
 #<SERVICE :NAME "hlibmgr" :ALIASES NIL :PORT 3634 :PROTO "udp">
 #<SERVICE :NAME "sdo" :ALIASES NIL :PORT 3635 :PROTO "tcp">
 #<SERVICE :NAME "sdo" :ALIASES NIL :PORT 3635 :PROTO "udp">
 #<SERVICE :NAME "servistaitsm" :ALIASES NIL :PORT 3636 :PROTO "tcp">
 #<SERVICE :NAME "servistaitsm" :ALIASES NIL :PORT 3636 :PROTO "udp">
 #<SERVICE :NAME "scservp" :ALIASES NIL :PORT 3637 :PROTO "tcp">
 #<SERVICE :NAME "scservp" :ALIASES NIL :PORT 3637 :PROTO "udp">
 #<SERVICE :NAME "ehp-backup" :ALIASES NIL :PORT 3638 :PROTO "tcp">
 #<SERVICE :NAME "ehp-backup" :ALIASES NIL :PORT 3638 :PROTO "udp">
 #<SERVICE :NAME "xap-ha" :ALIASES NIL :PORT 3639 :PROTO "tcp">
 #<SERVICE :NAME "xap-ha" :ALIASES NIL :PORT 3639 :PROTO "udp">
 #<SERVICE :NAME "netplay-port1" :ALIASES NIL :PORT 3640 :PROTO "tcp">
 #<SERVICE :NAME "netplay-port1" :ALIASES NIL :PORT 3640 :PROTO "udp">
 #<SERVICE :NAME "netplay-port2" :ALIASES NIL :PORT 3641 :PROTO "tcp">
 #<SERVICE :NAME "netplay-port2" :ALIASES NIL :PORT 3641 :PROTO "udp">
 #<SERVICE :NAME "juxml-port" :ALIASES NIL :PORT 3642 :PROTO "tcp">
 #<SERVICE :NAME "juxml-port" :ALIASES NIL :PORT 3642 :PROTO "udp">
 #<SERVICE :NAME "audiojuggler" :ALIASES NIL :PORT 3643 :PROTO "tcp">
 #<SERVICE :NAME "audiojuggler" :ALIASES NIL :PORT 3643 :PROTO "udp">
 #<SERVICE :NAME "ssowatch" :ALIASES NIL :PORT 3644 :PROTO "tcp">
 #<SERVICE :NAME "ssowatch" :ALIASES NIL :PORT 3644 :PROTO "udp">
 #<SERVICE :NAME "cyc" :ALIASES NIL :PORT 3645 :PROTO "tcp">
 #<SERVICE :NAME "cyc" :ALIASES NIL :PORT 3645 :PROTO "udp">
 #<SERVICE :NAME "xss-srv-port" :ALIASES NIL :PORT 3646 :PROTO "tcp">
 #<SERVICE :NAME "xss-srv-port" :ALIASES NIL :PORT 3646 :PROTO "udp">
 #<SERVICE :NAME "splitlock-gw" :ALIASES NIL :PORT 3647 :PROTO "tcp">
 #<SERVICE :NAME "splitlock-gw" :ALIASES NIL :PORT 3647 :PROTO "udp">
 #<SERVICE :NAME "fjcp" :ALIASES NIL :PORT 3648 :PROTO "tcp">
 #<SERVICE :NAME "fjcp" :ALIASES NIL :PORT 3648 :PROTO "udp">
 #<SERVICE :NAME "nmmp" :ALIASES NIL :PORT 3649 :PROTO "tcp">
 #<SERVICE :NAME "nmmp" :ALIASES NIL :PORT 3649 :PROTO "udp">
 #<SERVICE :NAME "prismiq-plugin" :ALIASES NIL :PORT 3650 :PROTO "tcp">
 #<SERVICE :NAME "prismiq-plugin" :ALIASES NIL :PORT 3650 :PROTO "udp">
 #<SERVICE :NAME "xrpc-registry" :ALIASES NIL :PORT 3651 :PROTO "tcp">
 #<SERVICE :NAME "xrpc-registry" :ALIASES NIL :PORT 3651 :PROTO "udp">
 #<SERVICE :NAME "vxcrnbuport" :ALIASES NIL :PORT 3652 :PROTO "tcp">
 #<SERVICE :NAME "vxcrnbuport" :ALIASES NIL :PORT 3652 :PROTO "udp">
 #<SERVICE :NAME "tsp" :ALIASES NIL :PORT 3653 :PROTO "tcp">
 #<SERVICE :NAME "tsp" :ALIASES NIL :PORT 3653 :PROTO "udp">
 #<SERVICE :NAME "vaprtm" :ALIASES NIL :PORT 3654 :PROTO "tcp">
 #<SERVICE :NAME "vaprtm" :ALIASES NIL :PORT 3654 :PROTO "udp">
 #<SERVICE :NAME "abatemgr" :ALIASES NIL :PORT 3655 :PROTO "tcp">
 #<SERVICE :NAME "abatemgr" :ALIASES NIL :PORT 3655 :PROTO "udp">
 #<SERVICE :NAME "abatjss" :ALIASES NIL :PORT 3656 :PROTO "tcp">
 #<SERVICE :NAME "abatjss" :ALIASES NIL :PORT 3656 :PROTO "udp">
 #<SERVICE :NAME "immedianet-bcn" :ALIASES NIL :PORT 3657 :PROTO "tcp">
 #<SERVICE :NAME "immedianet-bcn" :ALIASES NIL :PORT 3657 :PROTO "udp">
 #<SERVICE :NAME "ps-ams" :ALIASES NIL :PORT 3658 :PROTO "tcp">
 #<SERVICE :NAME "ps-ams" :ALIASES NIL :PORT 3658 :PROTO "udp">
 #<SERVICE :NAME "apple-sasl" :ALIASES NIL :PORT 3659 :PROTO "tcp">
 #<SERVICE :NAME "apple-sasl" :ALIASES NIL :PORT 3659 :PROTO "udp">
 #<SERVICE :NAME "can-nds-ssl" :ALIASES NIL :PORT 3660 :PROTO "tcp">
 #<SERVICE :NAME "can-nds-ssl" :ALIASES NIL :PORT 3660 :PROTO "udp">
 #<SERVICE :NAME "can-ferret-ssl" :ALIASES NIL :PORT 3661 :PROTO "tcp">
 #<SERVICE :NAME "can-ferret-ssl" :ALIASES NIL :PORT 3661 :PROTO "udp">
 #<SERVICE :NAME "pserver" :ALIASES NIL :PORT 3662 :PROTO "tcp">
 #<SERVICE :NAME "pserver" :ALIASES NIL :PORT 3662 :PROTO "udp">
 #<SERVICE :NAME "dtp" :ALIASES NIL :PORT 3663 :PROTO "tcp">
 #<SERVICE :NAME "dtp" :ALIASES NIL :PORT 3663 :PROTO "udp">
 #<SERVICE :NAME "ups-engine" :ALIASES NIL :PORT 3664 :PROTO "tcp">
 #<SERVICE :NAME "ups-engine" :ALIASES NIL :PORT 3664 :PROTO "udp">
 #<SERVICE :NAME "ent-engine" :ALIASES NIL :PORT 3665 :PROTO "tcp">
 #<SERVICE :NAME "ent-engine" :ALIASES NIL :PORT 3665 :PROTO "udp">
 #<SERVICE :NAME "eserver-pap" :ALIASES NIL :PORT 3666 :PROTO "tcp">
 #<SERVICE :NAME "eserver-pap" :ALIASES NIL :PORT 3666 :PROTO "udp">
 #<SERVICE :NAME "infoexch" :ALIASES NIL :PORT 3667 :PROTO "tcp">
 #<SERVICE :NAME "infoexch" :ALIASES NIL :PORT 3667 :PROTO "udp">
 #<SERVICE :NAME "dell-rm-port" :ALIASES NIL :PORT 3668 :PROTO "tcp">
 #<SERVICE :NAME "dell-rm-port" :ALIASES NIL :PORT 3668 :PROTO "udp">
 #<SERVICE :NAME "casanswmgmt" :ALIASES NIL :PORT 3669 :PROTO "tcp">
 #<SERVICE :NAME "casanswmgmt" :ALIASES NIL :PORT 3669 :PROTO "udp">
 #<SERVICE :NAME "smile" :ALIASES NIL :PORT 3670 :PROTO "tcp">
 #<SERVICE :NAME "smile" :ALIASES NIL :PORT 3670 :PROTO "udp">
 #<SERVICE :NAME "efcp" :ALIASES NIL :PORT 3671 :PROTO "tcp">
 #<SERVICE :NAME "efcp" :ALIASES NIL :PORT 3671 :PROTO "udp">
 #<SERVICE :NAME "lispworks-orb" :ALIASES NIL :PORT 3672 :PROTO "tcp">
 #<SERVICE :NAME "lispworks-orb" :ALIASES NIL :PORT 3672 :PROTO "udp">
 #<SERVICE :NAME "mediavault-gui" :ALIASES NIL :PORT 3673 :PROTO "tcp">
 #<SERVICE :NAME "mediavault-gui" :ALIASES NIL :PORT 3673 :PROTO "udp">
 #<SERVICE :NAME "wininstall-ipc" :ALIASES NIL :PORT 3674 :PROTO "tcp">
 #<SERVICE :NAME "wininstall-ipc" :ALIASES NIL :PORT 3674 :PROTO "udp">
 #<SERVICE :NAME "calltrax" :ALIASES NIL :PORT 3675 :PROTO "tcp">
 #<SERVICE :NAME "calltrax" :ALIASES NIL :PORT 3675 :PROTO "udp">
 #<SERVICE :NAME "va-pacbase" :ALIASES NIL :PORT 3676 :PROTO "tcp">
 #<SERVICE :NAME "va-pacbase" :ALIASES NIL :PORT 3676 :PROTO "udp">
 #<SERVICE :NAME "roverlog" :ALIASES NIL :PORT 3677 :PROTO "tcp">
 #<SERVICE :NAME "roverlog" :ALIASES NIL :PORT 3677 :PROTO "udp">
 #<SERVICE :NAME "ipr-dglt" :ALIASES NIL :PORT 3678 :PROTO "tcp">
 #<SERVICE :NAME "ipr-dglt" :ALIASES NIL :PORT 3678 :PROTO "udp">
 #<SERVICE :NAME "newton-dock" :ALIASES NIL :PORT 3679 :PROTO "tcp">
 #<SERVICE :NAME "newton-dock" :ALIASES NIL :PORT 3679 :PROTO "udp">
 #<SERVICE :NAME "npds-tracker" :ALIASES NIL :PORT 3680 :PROTO "tcp">
 #<SERVICE :NAME "npds-tracker" :ALIASES NIL :PORT 3680 :PROTO "udp">
 #<SERVICE :NAME "bts-x73" :ALIASES NIL :PORT 3681 :PROTO "tcp">
 #<SERVICE :NAME "bts-x73" :ALIASES NIL :PORT 3681 :PROTO "udp">
 #<SERVICE :NAME "cas-mapi" :ALIASES NIL :PORT 3682 :PROTO "tcp">
 #<SERVICE :NAME "cas-mapi" :ALIASES NIL :PORT 3682 :PROTO "udp">
 #<SERVICE :NAME "bmc-ea" :ALIASES NIL :PORT 3683 :PROTO "tcp">
 #<SERVICE :NAME "bmc-ea" :ALIASES NIL :PORT 3683 :PROTO "udp">
 #<SERVICE :NAME "faxstfx-port" :ALIASES NIL :PORT 3684 :PROTO "tcp">
 #<SERVICE :NAME "faxstfx-port" :ALIASES NIL :PORT 3684 :PROTO "udp">
 #<SERVICE :NAME "dsx-agent" :ALIASES NIL :PORT 3685 :PROTO "tcp">
 #<SERVICE :NAME "dsx-agent" :ALIASES NIL :PORT 3685 :PROTO "udp">
 #<SERVICE :NAME "tnmpv2" :ALIASES NIL :PORT 3686 :PROTO "tcp">
 #<SERVICE :NAME "tnmpv2" :ALIASES NIL :PORT 3686 :PROTO "udp">
 #<SERVICE :NAME "simple-push" :ALIASES NIL :PORT 3687 :PROTO "tcp">
 #<SERVICE :NAME "simple-push" :ALIASES NIL :PORT 3687 :PROTO "udp">
 #<SERVICE :NAME "simple-push-s" :ALIASES NIL :PORT 3688 :PROTO "tcp">
 #<SERVICE :NAME "simple-push-s" :ALIASES NIL :PORT 3688 :PROTO "udp">
 #<SERVICE :NAME "daap" :ALIASES NIL :PORT 3689 :PROTO "tcp">
 #<SERVICE :NAME "daap" :ALIASES NIL :PORT 3689 :PROTO "udp">
 #<SERVICE :NAME "magaya-network" :ALIASES NIL :PORT 3691 :PROTO "tcp">
 #<SERVICE :NAME "magaya-network" :ALIASES NIL :PORT 3691 :PROTO "udp">
 #<SERVICE :NAME "intelsync" :ALIASES NIL :PORT 3692 :PROTO "tcp">
 #<SERVICE :NAME "intelsync" :ALIASES NIL :PORT 3692 :PROTO "udp">
 #<SERVICE :NAME "easl" :ALIASES NIL :PORT 3693 :PROTO "tcp">
 #<SERVICE :NAME "bmc-data-coll" :ALIASES NIL :PORT 3695 :PROTO "tcp">
 #<SERVICE :NAME "bmc-data-coll" :ALIASES NIL :PORT 3695 :PROTO "udp">
 #<SERVICE :NAME "telnetcpcd" :ALIASES NIL :PORT 3696 :PROTO "tcp">
 #<SERVICE :NAME "telnetcpcd" :ALIASES NIL :PORT 3696 :PROTO "udp">
 #<SERVICE :NAME "nw-license" :ALIASES NIL :PORT 3697 :PROTO "tcp">
 #<SERVICE :NAME "nw-license" :ALIASES NIL :PORT 3697 :PROTO "udp">
 #<SERVICE :NAME "sagectlpanel" :ALIASES NIL :PORT 3698 :PROTO "tcp">
 #<SERVICE :NAME "sagectlpanel" :ALIASES NIL :PORT 3698 :PROTO "udp">
 #<SERVICE :NAME "kpn-icw" :ALIASES NIL :PORT 3699 :PROTO "tcp">
 #<SERVICE :NAME "kpn-icw" :ALIASES NIL :PORT 3699 :PROTO "udp">
 #<SERVICE :NAME "lrs-paging" :ALIASES NIL :PORT 3700 :PROTO "tcp">
 #<SERVICE :NAME "lrs-paging" :ALIASES NIL :PORT 3700 :PROTO "udp">
 #<SERVICE :NAME "netcelera" :ALIASES NIL :PORT 3701 :PROTO "tcp">
 #<SERVICE :NAME "netcelera" :ALIASES NIL :PORT 3701 :PROTO "udp">
 #<SERVICE :NAME "ws-discovery" :ALIASES NIL :PORT 3702 :PROTO "tcp">
 #<SERVICE :NAME "ws-discovery" :ALIASES NIL :PORT 3702 :PROTO "udp">
 #<SERVICE :NAME "adobeserver-3" :ALIASES NIL :PORT 3703 :PROTO "tcp">
 #<SERVICE :NAME "adobeserver-3" :ALIASES NIL :PORT 3703 :PROTO "udp">
 #<SERVICE :NAME "adobeserver-4" :ALIASES NIL :PORT 3704 :PROTO "tcp">
 #<SERVICE :NAME "adobeserver-4" :ALIASES NIL :PORT 3704 :PROTO "udp">
 #<SERVICE :NAME "adobeserver-5" :ALIASES NIL :PORT 3705 :PROTO "tcp">
 #<SERVICE :NAME "adobeserver-5" :ALIASES NIL :PORT 3705 :PROTO "udp">
 #<SERVICE :NAME "rt-event" :ALIASES NIL :PORT 3706 :PROTO "tcp">
 #<SERVICE :NAME "rt-event" :ALIASES NIL :PORT 3706 :PROTO "udp">
 #<SERVICE :NAME "rt-event-s" :ALIASES NIL :PORT 3707 :PROTO "tcp">
 #<SERVICE :NAME "rt-event-s" :ALIASES NIL :PORT 3707 :PROTO "udp">
 #<SERVICE :NAME "sun-as-iiops" :ALIASES NIL :PORT 3708 :PROTO "tcp">
 #<SERVICE :NAME "sun-as-iiops" :ALIASES NIL :PORT 3708 :PROTO "udp">
 #<SERVICE :NAME "ca-idms" :ALIASES NIL :PORT 3709 :PROTO "tcp">
 #<SERVICE :NAME "ca-idms" :ALIASES NIL :PORT 3709 :PROTO "udp">
 #<SERVICE :NAME "portgate-auth" :ALIASES NIL :PORT 3710 :PROTO "tcp">
 #<SERVICE :NAME "portgate-auth" :ALIASES NIL :PORT 3710 :PROTO "udp">
 #<SERVICE :NAME "edb-server2" :ALIASES NIL :PORT 3711 :PROTO "tcp">
 #<SERVICE :NAME "edb-server2" :ALIASES NIL :PORT 3711 :PROTO "udp">
 #<SERVICE :NAME "sentinel-ent" :ALIASES NIL :PORT 3712 :PROTO "tcp">
 #<SERVICE :NAME "sentinel-ent" :ALIASES NIL :PORT 3712 :PROTO "udp">
 #<SERVICE :NAME "tftps" :ALIASES NIL :PORT 3713 :PROTO "tcp">
 #<SERVICE :NAME "tftps" :ALIASES NIL :PORT 3713 :PROTO "udp">
 #<SERVICE :NAME "delos-dms" :ALIASES NIL :PORT 3714 :PROTO "tcp">
 #<SERVICE :NAME "delos-dms" :ALIASES NIL :PORT 3714 :PROTO "udp">
 #<SERVICE :NAME "anoto-rendezv" :ALIASES NIL :PORT 3715 :PROTO "tcp">
 #<SERVICE :NAME "anoto-rendezv" :ALIASES NIL :PORT 3715 :PROTO "udp">
 #<SERVICE :NAME "wv-csp-sms-cir" :ALIASES NIL :PORT 3716 :PROTO "tcp">
 #<SERVICE :NAME "wv-csp-sms-cir" :ALIASES NIL :PORT 3716 :PROTO "udp">
 #<SERVICE :NAME "wv-csp-udp-cir" :ALIASES NIL :PORT 3717 :PROTO "tcp">
 #<SERVICE :NAME "wv-csp-udp-cir" :ALIASES NIL :PORT 3717 :PROTO "udp">
 #<SERVICE :NAME "opus-services" :ALIASES NIL :PORT 3718 :PROTO "tcp">
 #<SERVICE :NAME "opus-services" :ALIASES NIL :PORT 3718 :PROTO "udp">
 #<SERVICE :NAME "itelserverport" :ALIASES NIL :PORT 3719 :PROTO "tcp">
 #<SERVICE :NAME "itelserverport" :ALIASES NIL :PORT 3719 :PROTO "udp">
 #<SERVICE :NAME "ufastro-instr" :ALIASES NIL :PORT 3720 :PROTO "tcp">
 #<SERVICE :NAME "ufastro-instr" :ALIASES NIL :PORT 3720 :PROTO "udp">
 #<SERVICE :NAME "xsync" :ALIASES NIL :PORT 3721 :PROTO "tcp">
 #<SERVICE :NAME "xsync" :ALIASES NIL :PORT 3721 :PROTO "udp">
 #<SERVICE :NAME "xserveraid" :ALIASES NIL :PORT 3722 :PROTO "tcp">
 #<SERVICE :NAME "xserveraid" :ALIASES NIL :PORT 3722 :PROTO "udp">
 #<SERVICE :NAME "sychrond" :ALIASES NIL :PORT 3723 :PROTO "tcp">
 #<SERVICE :NAME "sychrond" :ALIASES NIL :PORT 3723 :PROTO "udp">
 #<SERVICE :NAME "blizwow" :ALIASES NIL :PORT 3724 :PROTO "tcp">
 #<SERVICE :NAME "blizwow" :ALIASES NIL :PORT 3724 :PROTO "udp">
 #<SERVICE :NAME "na-er-tip" :ALIASES NIL :PORT 3725 :PROTO "tcp">
 #<SERVICE :NAME "na-er-tip" :ALIASES NIL :PORT 3725 :PROTO "udp">
 #<SERVICE :NAME "array-manager" :ALIASES NIL :PORT 3726 :PROTO "tcp">
 #<SERVICE :NAME "array-manager" :ALIASES NIL :PORT 3726 :PROTO "udp">
 #<SERVICE :NAME "e-mdu" :ALIASES NIL :PORT 3727 :PROTO "tcp">
 #<SERVICE :NAME "e-mdu" :ALIASES NIL :PORT 3727 :PROTO "udp">
 #<SERVICE :NAME "e-woa" :ALIASES NIL :PORT 3728 :PROTO "tcp">
 #<SERVICE :NAME "e-woa" :ALIASES NIL :PORT 3728 :PROTO "udp">
 #<SERVICE :NAME "fksp-audit" :ALIASES NIL :PORT 3729 :PROTO "tcp">
 #<SERVICE :NAME "fksp-audit" :ALIASES NIL :PORT 3729 :PROTO "udp">
 #<SERVICE :NAME "client-ctrl" :ALIASES NIL :PORT 3730 :PROTO "tcp">
 #<SERVICE :NAME "client-ctrl" :ALIASES NIL :PORT 3730 :PROTO "udp">
 #<SERVICE :NAME "smap" :ALIASES NIL :PORT 3731 :PROTO "tcp">
 #<SERVICE :NAME "smap" :ALIASES NIL :PORT 3731 :PROTO "udp">
 #<SERVICE :NAME "m-wnn" :ALIASES NIL :PORT 3732 :PROTO "tcp">
 #<SERVICE :NAME "m-wnn" :ALIASES NIL :PORT 3732 :PROTO "udp">
 #<SERVICE :NAME "multip-msg" :ALIASES NIL :PORT 3733 :PROTO "tcp">
 #<SERVICE :NAME "multip-msg" :ALIASES NIL :PORT 3733 :PROTO "udp">
 #<SERVICE :NAME "synel-data" :ALIASES NIL :PORT 3734 :PROTO "tcp">
 #<SERVICE :NAME "synel-data" :ALIASES NIL :PORT 3734 :PROTO "udp">
 #<SERVICE :NAME "pwdis" :ALIASES NIL :PORT 3735 :PROTO "tcp">
 #<SERVICE :NAME "pwdis" :ALIASES NIL :PORT 3735 :PROTO "udp">
 #<SERVICE :NAME "rs-rmi" :ALIASES NIL :PORT 3736 :PROTO "tcp">
 #<SERVICE :NAME "rs-rmi" :ALIASES NIL :PORT 3736 :PROTO "udp">
 #<SERVICE :NAME "xpanel" :ALIASES NIL :PORT 3737 :PROTO "tcp">
 #<SERVICE :NAME "versatalk" :ALIASES NIL :PORT 3738 :PROTO "tcp">
 #<SERVICE :NAME "versatalk" :ALIASES NIL :PORT 3738 :PROTO "udp">
 #<SERVICE :NAME "launchbird-lm" :ALIASES NIL :PORT 3739 :PROTO "tcp">
 #<SERVICE :NAME "launchbird-lm" :ALIASES NIL :PORT 3739 :PROTO "udp">
 #<SERVICE :NAME "heartbeat" :ALIASES NIL :PORT 3740 :PROTO "tcp">
 #<SERVICE :NAME "heartbeat" :ALIASES NIL :PORT 3740 :PROTO "udp">
 #<SERVICE :NAME "wysdma" :ALIASES NIL :PORT 3741 :PROTO "tcp">
 #<SERVICE :NAME "wysdma" :ALIASES NIL :PORT 3741 :PROTO "udp">
 #<SERVICE :NAME "cst-port" :ALIASES NIL :PORT 3742 :PROTO "tcp">
 #<SERVICE :NAME "cst-port" :ALIASES NIL :PORT 3742 :PROTO "udp">
 #<SERVICE :NAME "ipcs-command" :ALIASES NIL :PORT 3743 :PROTO "tcp">
 #<SERVICE :NAME "ipcs-command" :ALIASES NIL :PORT 3743 :PROTO "udp">
 #<SERVICE :NAME "sasg" :ALIASES NIL :PORT 3744 :PROTO "tcp">
 #<SERVICE :NAME "sasg" :ALIASES NIL :PORT 3744 :PROTO "udp">
 #<SERVICE :NAME "gw-call-port" :ALIASES NIL :PORT 3745 :PROTO "tcp">
 #<SERVICE :NAME "gw-call-port" :ALIASES NIL :PORT 3745 :PROTO "udp">
 #<SERVICE :NAME "linktest" :ALIASES NIL :PORT 3746 :PROTO "tcp">
 #<SERVICE :NAME "linktest" :ALIASES NIL :PORT 3746 :PROTO "udp">
 #<SERVICE :NAME "linktest-s" :ALIASES NIL :PORT 3747 :PROTO "tcp">
 #<SERVICE :NAME "linktest-s" :ALIASES NIL :PORT 3747 :PROTO "udp">
 #<SERVICE :NAME "webdata" :ALIASES NIL :PORT 3748 :PROTO "tcp">
 #<SERVICE :NAME "webdata" :ALIASES NIL :PORT 3748 :PROTO "udp">
 #<SERVICE :NAME "cimtrak" :ALIASES NIL :PORT 3749 :PROTO "tcp">
 #<SERVICE :NAME "cimtrak" :ALIASES NIL :PORT 3749 :PROTO "udp">
 #<SERVICE :NAME "cbos-ip-port" :ALIASES NIL :PORT 3750 :PROTO "tcp">
 #<SERVICE :NAME "cbos-ip-port" :ALIASES NIL :PORT 3750 :PROTO "udp">
 #<SERVICE :NAME "gprs-cube" :ALIASES NIL :PORT 3751 :PROTO "tcp">
 #<SERVICE :NAME "gprs-cube" :ALIASES NIL :PORT 3751 :PROTO "udp">
 #<SERVICE :NAME "vipremoteagent" :ALIASES NIL :PORT 3752 :PROTO "tcp">
 #<SERVICE :NAME "vipremoteagent" :ALIASES NIL :PORT 3752 :PROTO "udp">
 #<SERVICE :NAME "nattyserver" :ALIASES NIL :PORT 3753 :PROTO "tcp">
 #<SERVICE :NAME "nattyserver" :ALIASES NIL :PORT 3753 :PROTO "udp">
 #<SERVICE :NAME "timestenbroker" :ALIASES NIL :PORT 3754 :PROTO "tcp">
 #<SERVICE :NAME "timestenbroker" :ALIASES NIL :PORT 3754 :PROTO "udp">
 #<SERVICE :NAME "sas-remote-hlp" :ALIASES NIL :PORT 3755 :PROTO "tcp">
 #<SERVICE :NAME "sas-remote-hlp" :ALIASES NIL :PORT 3755 :PROTO "udp">
 #<SERVICE :NAME "canon-capt" :ALIASES NIL :PORT 3756 :PROTO "tcp">
 #<SERVICE :NAME "canon-capt" :ALIASES NIL :PORT 3756 :PROTO "udp">
 #<SERVICE :NAME "grf-port" :ALIASES NIL :PORT 3757 :PROTO "tcp">
 #<SERVICE :NAME "grf-port" :ALIASES NIL :PORT 3757 :PROTO "udp">
 #<SERVICE :NAME "apw-registry" :ALIASES NIL :PORT 3758 :PROTO "tcp">
 #<SERVICE :NAME "apw-registry" :ALIASES NIL :PORT 3758 :PROTO "udp">
 #<SERVICE :NAME "exapt-lmgr" :ALIASES NIL :PORT 3759 :PROTO "tcp">
 #<SERVICE :NAME "exapt-lmgr" :ALIASES NIL :PORT 3759 :PROTO "udp">
 #<SERVICE :NAME "adtempusclient" :ALIASES NIL :PORT 3760 :PROTO "tcp">
 #<SERVICE :NAME "adtempusclient" :ALIASES NIL :PORT 3760 :PROTO "udp">
 #<SERVICE :NAME "gsakmp" :ALIASES NIL :PORT 3761 :PROTO "tcp">
 #<SERVICE :NAME "gsakmp" :ALIASES NIL :PORT 3761 :PROTO "udp">
 #<SERVICE :NAME "gbs-smp" :ALIASES NIL :PORT 3762 :PROTO "tcp">
 #<SERVICE :NAME "gbs-smp" :ALIASES NIL :PORT 3762 :PROTO "udp">
 #<SERVICE :NAME "xo-wave" :ALIASES NIL :PORT 3763 :PROTO "tcp">
 #<SERVICE :NAME "xo-wave" :ALIASES NIL :PORT 3763 :PROTO "udp">
 #<SERVICE :NAME "mni-prot-rout" :ALIASES NIL :PORT 3764 :PROTO "tcp">
 #<SERVICE :NAME "mni-prot-rout" :ALIASES NIL :PORT 3764 :PROTO "udp">
 #<SERVICE :NAME "rtraceroute" :ALIASES NIL :PORT 3765 :PROTO "tcp">
 #<SERVICE :NAME "rtraceroute" :ALIASES NIL :PORT 3765 :PROTO "udp">
 #<SERVICE :NAME "sitewatch-s" :ALIASES NIL :PORT 3766 :PROTO "tcp">
 #<SERVICE :NAME "listmgr-port" :ALIASES NIL :PORT 3767 :PROTO "tcp">
 #<SERVICE :NAME "listmgr-port" :ALIASES NIL :PORT 3767 :PROTO "udp">
 #<SERVICE :NAME "rblcheckd" :ALIASES NIL :PORT 3768 :PROTO "tcp">
 #<SERVICE :NAME "rblcheckd" :ALIASES NIL :PORT 3768 :PROTO "udp">
 #<SERVICE :NAME "haipe-otnk" :ALIASES NIL :PORT 3769 :PROTO "tcp">
 #<SERVICE :NAME "haipe-otnk" :ALIASES NIL :PORT 3769 :PROTO "udp">
 #<SERVICE :NAME "cindycollab" :ALIASES NIL :PORT 3770 :PROTO "tcp">
 #<SERVICE :NAME "cindycollab" :ALIASES NIL :PORT 3770 :PROTO "udp">
 #<SERVICE :NAME "paging-port" :ALIASES NIL :PORT 3771 :PROTO "tcp">
 #<SERVICE :NAME "paging-port" :ALIASES NIL :PORT 3771 :PROTO "udp">
 #<SERVICE :NAME "ctp" :ALIASES NIL :PORT 3772 :PROTO "tcp">
 #<SERVICE :NAME "ctp" :ALIASES NIL :PORT 3772 :PROTO "udp">
 #<SERVICE :NAME "ctdhercules" :ALIASES NIL :PORT 3773 :PROTO "tcp">
 #<SERVICE :NAME "ctdhercules" :ALIASES NIL :PORT 3773 :PROTO "udp">
 #<SERVICE :NAME "zicom" :ALIASES NIL :PORT 3774 :PROTO "tcp">
 #<SERVICE :NAME "zicom" :ALIASES NIL :PORT 3774 :PROTO "udp">
 #<SERVICE :NAME "ispmmgr" :ALIASES NIL :PORT 3775 :PROTO "tcp">
 #<SERVICE :NAME "ispmmgr" :ALIASES NIL :PORT 3775 :PROTO "udp">
 #<SERVICE :NAME "dvcprov-port" :ALIASES NIL :PORT 3776 :PROTO "tcp">
 #<SERVICE :NAME "dvcprov-port" :ALIASES NIL :PORT 3776 :PROTO "udp">
 #<SERVICE :NAME "jibe-eb" :ALIASES NIL :PORT 3777 :PROTO "tcp">
 #<SERVICE :NAME "jibe-eb" :ALIASES NIL :PORT 3777 :PROTO "udp">
 #<SERVICE :NAME "c-h-it-port" :ALIASES NIL :PORT 3778 :PROTO "tcp">
 #<SERVICE :NAME "c-h-it-port" :ALIASES NIL :PORT 3778 :PROTO "udp">
 #<SERVICE :NAME "cognima" :ALIASES NIL :PORT 3779 :PROTO "tcp">
 #<SERVICE :NAME "cognima" :ALIASES NIL :PORT 3779 :PROTO "udp">
 #<SERVICE :NAME "nnp" :ALIASES NIL :PORT 3780 :PROTO "tcp">
 #<SERVICE :NAME "nnp" :ALIASES NIL :PORT 3780 :PROTO "udp">
 #<SERVICE :NAME "abcvoice-port" :ALIASES NIL :PORT 3781 :PROTO "tcp">
 #<SERVICE :NAME "abcvoice-port" :ALIASES NIL :PORT 3781 :PROTO "udp">
 #<SERVICE :NAME "iso-tp0s" :ALIASES NIL :PORT 3782 :PROTO "tcp">
 #<SERVICE :NAME "iso-tp0s" :ALIASES NIL :PORT 3782 :PROTO "udp">
 #<SERVICE :NAME "bim-pem" :ALIASES NIL :PORT 3783 :PROTO "tcp">
 #<SERVICE :NAME "bim-pem" :ALIASES NIL :PORT 3783 :PROTO "udp">
 #<SERVICE :NAME "bfd-control" :ALIASES NIL :PORT 3784 :PROTO "tcp">
 #<SERVICE :NAME "bfd-control" :ALIASES NIL :PORT 3784 :PROTO "udp">
 #<SERVICE :NAME "bfd-echo" :ALIASES NIL :PORT 3785 :PROTO "tcp">
 #<SERVICE :NAME "bfd-echo" :ALIASES NIL :PORT 3785 :PROTO "udp">
 #<SERVICE :NAME "upstriggervsw" :ALIASES NIL :PORT 3786 :PROTO "tcp">
 #<SERVICE :NAME "upstriggervsw" :ALIASES NIL :PORT 3786 :PROTO "udp">
 #<SERVICE :NAME "fintrx" :ALIASES NIL :PORT 3787 :PROTO "tcp">
 #<SERVICE :NAME "fintrx" :ALIASES NIL :PORT 3787 :PROTO "udp">
 #<SERVICE :NAME "isrp-port" :ALIASES NIL :PORT 3788 :PROTO "tcp">
 #<SERVICE :NAME "isrp-port" :ALIASES NIL :PORT 3788 :PROTO "udp">
 #<SERVICE :NAME "remotedeploy" :ALIASES NIL :PORT 3789 :PROTO "tcp">
 #<SERVICE :NAME "remotedeploy" :ALIASES NIL :PORT 3789 :PROTO "udp">
 #<SERVICE :NAME "quickbooksrds" :ALIASES NIL :PORT 3790 :PROTO "tcp">
 #<SERVICE :NAME "quickbooksrds" :ALIASES NIL :PORT 3790 :PROTO "udp">
 #<SERVICE :NAME "tvnetworkvideo" :ALIASES NIL :PORT 3791 :PROTO "tcp">
 #<SERVICE :NAME "tvnetworkvideo" :ALIASES NIL :PORT 3791 :PROTO "udp">
 #<SERVICE :NAME "sitewatch" :ALIASES NIL :PORT 3792 :PROTO "tcp">
 #<SERVICE :NAME "sitewatch" :ALIASES NIL :PORT 3792 :PROTO "udp">
 #<SERVICE :NAME "dcsoftware" :ALIASES NIL :PORT 3793 :PROTO "tcp">
 #<SERVICE :NAME "dcsoftware" :ALIASES NIL :PORT 3793 :PROTO "udp">
 #<SERVICE :NAME "jaus" :ALIASES NIL :PORT 3794 :PROTO "tcp">
 #<SERVICE :NAME "jaus" :ALIASES NIL :PORT 3794 :PROTO "udp">
 #<SERVICE :NAME "myblast" :ALIASES NIL :PORT 3795 :PROTO "tcp">
 #<SERVICE :NAME "myblast" :ALIASES NIL :PORT 3795 :PROTO "udp">
 #<SERVICE :NAME "spw-dialer" :ALIASES NIL :PORT 3796 :PROTO "tcp">
 #<SERVICE :NAME "spw-dialer" :ALIASES NIL :PORT 3796 :PROTO "udp">
 #<SERVICE :NAME "idps" :ALIASES NIL :PORT 3797 :PROTO "tcp">
 #<SERVICE :NAME "idps" :ALIASES NIL :PORT 3797 :PROTO "udp">
 #<SERVICE :NAME "minilock" :ALIASES NIL :PORT 3798 :PROTO "tcp">
 #<SERVICE :NAME "minilock" :ALIASES NIL :PORT 3798 :PROTO "udp">
 #<SERVICE :NAME "radius-dynauth" :ALIASES NIL :PORT 3799 :PROTO "tcp">
 #<SERVICE :NAME "radius-dynauth" :ALIASES NIL :PORT 3799 :PROTO "udp">
 #<SERVICE :NAME "pwgpsi" :ALIASES NIL :PORT 3800 :PROTO "tcp">
 #<SERVICE :NAME "pwgpsi" :ALIASES NIL :PORT 3800 :PROTO "udp">
 #<SERVICE :NAME "ibm-mgr" :ALIASES NIL :PORT 3801 :PROTO "tcp">
 #<SERVICE :NAME "ibm-mgr" :ALIASES NIL :PORT 3801 :PROTO "udp">
 #<SERVICE :NAME "vhd" :ALIASES NIL :PORT 3802 :PROTO "tcp">
 #<SERVICE :NAME "vhd" :ALIASES NIL :PORT 3802 :PROTO "udp">
 #<SERVICE :NAME "soniqsync" :ALIASES NIL :PORT 3803 :PROTO "tcp">
 #<SERVICE :NAME "soniqsync" :ALIASES NIL :PORT 3803 :PROTO "udp">
 #<SERVICE :NAME "iqnet-port" :ALIASES NIL :PORT 3804 :PROTO "tcp">
 #<SERVICE :NAME "iqnet-port" :ALIASES NIL :PORT 3804 :PROTO "udp">
 #<SERVICE :NAME "tcpdataserver" :ALIASES NIL :PORT 3805 :PROTO "tcp">
 #<SERVICE :NAME "tcpdataserver" :ALIASES NIL :PORT 3805 :PROTO "udp">
 #<SERVICE :NAME "wsmlb" :ALIASES NIL :PORT 3806 :PROTO "tcp">
 #<SERVICE :NAME "wsmlb" :ALIASES NIL :PORT 3806 :PROTO "udp">
 #<SERVICE :NAME "spugna" :ALIASES NIL :PORT 3807 :PROTO "tcp">
 #<SERVICE :NAME "spugna" :ALIASES NIL :PORT 3807 :PROTO "udp">
 #<SERVICE :NAME "sun-as-iiops-ca" :ALIASES NIL :PORT 3808 :PROTO "tcp">
 #<SERVICE :NAME "sun-as-iiops-ca" :ALIASES NIL :PORT 3808 :PROTO "udp">
 #<SERVICE :NAME "apocd" :ALIASES NIL :PORT 3809 :PROTO "tcp">
 #<SERVICE :NAME "apocd" :ALIASES NIL :PORT 3809 :PROTO "udp">
 #<SERVICE :NAME "wlanauth" :ALIASES NIL :PORT 3810 :PROTO "tcp">
 #<SERVICE :NAME "wlanauth" :ALIASES NIL :PORT 3810 :PROTO "udp">
 #<SERVICE :NAME "amp" :ALIASES NIL :PORT 3811 :PROTO "tcp">
 #<SERVICE :NAME "amp" :ALIASES NIL :PORT 3811 :PROTO "udp">
 #<SERVICE :NAME "neto-wol-server" :ALIASES NIL :PORT 3812 :PROTO "tcp">
 #<SERVICE :NAME "neto-wol-server" :ALIASES NIL :PORT 3812 :PROTO "udp">
 #<SERVICE :NAME "rap-ip" :ALIASES NIL :PORT 3813 :PROTO "tcp">
 #<SERVICE :NAME "rap-ip" :ALIASES NIL :PORT 3813 :PROTO "udp">
 #<SERVICE :NAME "neto-dcs" :ALIASES NIL :PORT 3814 :PROTO "tcp">
 #<SERVICE :NAME "neto-dcs" :ALIASES NIL :PORT 3814 :PROTO "udp">
 #<SERVICE :NAME "lansurveyorxml" :ALIASES NIL :PORT 3815 :PROTO "tcp">
 #<SERVICE :NAME "lansurveyorxml" :ALIASES NIL :PORT 3815 :PROTO "udp">
 #<SERVICE :NAME "sunlps-http" :ALIASES NIL :PORT 3816 :PROTO "tcp">
 #<SERVICE :NAME "sunlps-http" :ALIASES NIL :PORT 3816 :PROTO "udp">
 #<SERVICE :NAME "tapeware" :ALIASES NIL :PORT 3817 :PROTO "tcp">
 #<SERVICE :NAME "tapeware" :ALIASES NIL :PORT 3817 :PROTO "udp">
 #<SERVICE :NAME "crinis-hb" :ALIASES NIL :PORT 3818 :PROTO "tcp">
 #<SERVICE :NAME "crinis-hb" :ALIASES NIL :PORT 3818 :PROTO "udp">
 #<SERVICE :NAME "epl-slp" :ALIASES NIL :PORT 3819 :PROTO "tcp">
 #<SERVICE :NAME "epl-slp" :ALIASES NIL :PORT 3819 :PROTO "udp">
 #<SERVICE :NAME "scp" :ALIASES NIL :PORT 3820 :PROTO "tcp">
 #<SERVICE :NAME "scp" :ALIASES NIL :PORT 3820 :PROTO "udp">
 #<SERVICE :NAME "pmcp" :ALIASES NIL :PORT 3821 :PROTO "tcp">
 #<SERVICE :NAME "pmcp" :ALIASES NIL :PORT 3821 :PROTO "udp">
 #<SERVICE :NAME "acp-discovery" :ALIASES NIL :PORT 3822 :PROTO "tcp">
 #<SERVICE :NAME "acp-discovery" :ALIASES NIL :PORT 3822 :PROTO "udp">
 #<SERVICE :NAME "acp-conduit" :ALIASES NIL :PORT 3823 :PROTO "tcp">
 #<SERVICE :NAME "acp-conduit" :ALIASES NIL :PORT 3823 :PROTO "udp">
 #<SERVICE :NAME "acp-policy" :ALIASES NIL :PORT 3824 :PROTO "tcp">
 #<SERVICE :NAME "acp-policy" :ALIASES NIL :PORT 3824 :PROTO "udp">
 #<SERVICE :NAME "ffserver" :ALIASES NIL :PORT 3825 :PROTO "tcp">
 #<SERVICE :NAME "ffserver" :ALIASES NIL :PORT 3825 :PROTO "udp">
 #<SERVICE :NAME "warmux" :ALIASES NIL :PORT 3826 :PROTO "tcp">
 #<SERVICE :NAME "warmux" :ALIASES NIL :PORT 3826 :PROTO "udp">
 #<SERVICE :NAME "netmpi" :ALIASES NIL :PORT 3827 :PROTO "tcp">
 #<SERVICE :NAME "netmpi" :ALIASES NIL :PORT 3827 :PROTO "udp">
 #<SERVICE :NAME "neteh" :ALIASES NIL :PORT 3828 :PROTO "tcp">
 #<SERVICE :NAME "neteh" :ALIASES NIL :PORT 3828 :PROTO "udp">
 #<SERVICE :NAME "neteh-ext" :ALIASES NIL :PORT 3829 :PROTO "tcp">
 #<SERVICE :NAME "neteh-ext" :ALIASES NIL :PORT 3829 :PROTO "udp">
 #<SERVICE :NAME "cernsysmgmtagt" :ALIASES NIL :PORT 3830 :PROTO "tcp">
 #<SERVICE :NAME "cernsysmgmtagt" :ALIASES NIL :PORT 3830 :PROTO "udp">
 #<SERVICE :NAME "dvapps" :ALIASES NIL :PORT 3831 :PROTO "tcp">
 #<SERVICE :NAME "dvapps" :ALIASES NIL :PORT 3831 :PROTO "udp">
 #<SERVICE :NAME "xxnetserver" :ALIASES NIL :PORT 3832 :PROTO "tcp">
 #<SERVICE :NAME "xxnetserver" :ALIASES NIL :PORT 3832 :PROTO "udp">
 #<SERVICE :NAME "aipn-auth" :ALIASES NIL :PORT 3833 :PROTO "tcp">
 #<SERVICE :NAME "aipn-auth" :ALIASES NIL :PORT 3833 :PROTO "udp">
 #<SERVICE :NAME "spectardata" :ALIASES NIL :PORT 3834 :PROTO "tcp">
 #<SERVICE :NAME "spectardata" :ALIASES NIL :PORT 3834 :PROTO "udp">
 #<SERVICE :NAME "spectardb" :ALIASES NIL :PORT 3835 :PROTO "tcp">
 #<SERVICE :NAME "spectardb" :ALIASES NIL :PORT 3835 :PROTO "udp">
 #<SERVICE :NAME "markem-dcp" :ALIASES NIL :PORT 3836 :PROTO "tcp">
 #<SERVICE :NAME "markem-dcp" :ALIASES NIL :PORT 3836 :PROTO "udp">
 #<SERVICE :NAME "mkm-discovery" :ALIASES NIL :PORT 3837 :PROTO "tcp">
 #<SERVICE :NAME "mkm-discovery" :ALIASES NIL :PORT 3837 :PROTO "udp">
 #<SERVICE :NAME "sos" :ALIASES NIL :PORT 3838 :PROTO "tcp">
 #<SERVICE :NAME "sos" :ALIASES NIL :PORT 3838 :PROTO "udp">
 #<SERVICE :NAME "amx-rms" :ALIASES NIL :PORT 3839 :PROTO "tcp">
 #<SERVICE :NAME "amx-rms" :ALIASES NIL :PORT 3839 :PROTO "udp">
 #<SERVICE :NAME "flirtmitmir" :ALIASES NIL :PORT 3840 :PROTO "tcp">
 #<SERVICE :NAME "flirtmitmir" :ALIASES NIL :PORT 3840 :PROTO "udp">
 #<SERVICE :NAME "shiprush-db-svr" :ALIASES NIL :PORT 3841 :PROTO "tcp">
 #<SERVICE :NAME "nhci" :ALIASES NIL :PORT 3842 :PROTO "tcp">
 #<SERVICE :NAME "nhci" :ALIASES NIL :PORT 3842 :PROTO "udp">
 #<SERVICE :NAME "quest-agent" :ALIASES NIL :PORT 3843 :PROTO "tcp">
 #<SERVICE :NAME "quest-agent" :ALIASES NIL :PORT 3843 :PROTO "udp">
 #<SERVICE :NAME "rnm" :ALIASES NIL :PORT 3844 :PROTO "tcp">
 #<SERVICE :NAME "rnm" :ALIASES NIL :PORT 3844 :PROTO "udp">
 #<SERVICE :NAME "v-one-spp" :ALIASES NIL :PORT 3845 :PROTO "tcp">
 #<SERVICE :NAME "v-one-spp" :ALIASES NIL :PORT 3845 :PROTO "udp">
 #<SERVICE :NAME "an-pcp" :ALIASES NIL :PORT 3846 :PROTO "tcp">
 #<SERVICE :NAME "an-pcp" :ALIASES NIL :PORT 3846 :PROTO "udp">
 #<SERVICE :NAME "msfw-control" :ALIASES NIL :PORT 3847 :PROTO "tcp">
 #<SERVICE :NAME "msfw-control" :ALIASES NIL :PORT 3847 :PROTO "udp">
 #<SERVICE :NAME "item" :ALIASES NIL :PORT 3848 :PROTO "tcp">
 #<SERVICE :NAME "item" :ALIASES NIL :PORT 3848 :PROTO "udp">
 #<SERVICE :NAME "spw-dnspreload" :ALIASES NIL :PORT 3849 :PROTO "tcp">
 #<SERVICE :NAME "spw-dnspreload" :ALIASES NIL :PORT 3849 :PROTO "udp">
 #<SERVICE :NAME "qtms-bootstrap" :ALIASES NIL :PORT 3850 :PROTO "tcp">
 #<SERVICE :NAME "qtms-bootstrap" :ALIASES NIL :PORT 3850 :PROTO "udp">
 #<SERVICE :NAME "spectraport" :ALIASES NIL :PORT 3851 :PROTO "tcp">
 #<SERVICE :NAME "spectraport" :ALIASES NIL :PORT 3851 :PROTO "udp">
 #<SERVICE :NAME "sse-app-config" :ALIASES NIL :PORT 3852 :PROTO "tcp">
 #<SERVICE :NAME "sse-app-config" :ALIASES NIL :PORT 3852 :PROTO "udp">
 #<SERVICE :NAME "sscan" :ALIASES NIL :PORT 3853 :PROTO "tcp">
 #<SERVICE :NAME "sscan" :ALIASES NIL :PORT 3853 :PROTO "udp">
 #<SERVICE :NAME "stryker-com" :ALIASES NIL :PORT 3854 :PROTO "tcp">
 #<SERVICE :NAME "stryker-com" :ALIASES NIL :PORT 3854 :PROTO "udp">
 #<SERVICE :NAME "opentrac" :ALIASES NIL :PORT 3855 :PROTO "tcp">
 #<SERVICE :NAME "opentrac" :ALIASES NIL :PORT 3855 :PROTO "udp">
 #<SERVICE :NAME "informer" :ALIASES NIL :PORT 3856 :PROTO "tcp">
 #<SERVICE :NAME "informer" :ALIASES NIL :PORT 3856 :PROTO "udp">
 #<SERVICE :NAME "trap-port" :ALIASES NIL :PORT 3857 :PROTO "tcp">
 #<SERVICE :NAME "trap-port" :ALIASES NIL :PORT 3857 :PROTO "udp">
 #<SERVICE :NAME "trap-port-mom" :ALIASES NIL :PORT 3858 :PROTO "tcp">
 #<SERVICE :NAME "trap-port-mom" :ALIASES NIL :PORT 3858 :PROTO "udp">
 #<SERVICE :NAME "nav-port" :ALIASES NIL :PORT 3859 :PROTO "tcp">
 #<SERVICE :NAME "nav-port" :ALIASES NIL :PORT 3859 :PROTO "udp">
 #<SERVICE :NAME "sasp" :ALIASES NIL :PORT 3860 :PROTO "tcp">
 #<SERVICE :NAME "sasp" :ALIASES NIL :PORT 3860 :PROTO "udp">
 #<SERVICE :NAME "winshadow-hd" :ALIASES NIL :PORT 3861 :PROTO "tcp">
 #<SERVICE :NAME "winshadow-hd" :ALIASES NIL :PORT 3861 :PROTO "udp">
 #<SERVICE :NAME "giga-pocket" :ALIASES NIL :PORT 3862 :PROTO "tcp">
 #<SERVICE :NAME "giga-pocket" :ALIASES NIL :PORT 3862 :PROTO "udp">
 #<SERVICE :NAME "asap-tcp" :ALIASES NIL :PORT 3863 :PROTO "tcp">
 #<SERVICE :NAME "asap-udp" :ALIASES NIL :PORT 3863 :PROTO "udp">
 #<SERVICE :NAME "asap-sctp" :ALIASES NIL :PORT 3863 :PROTO "sctp">
 #<SERVICE :NAME "asap-tcp-tls" :ALIASES NIL :PORT 3864 :PROTO "tcp">
 #<SERVICE :NAME "asap-sctp-tls" :ALIASES NIL :PORT 3864 :PROTO "sctp">
 #<SERVICE :NAME "xpl" :ALIASES NIL :PORT 3865 :PROTO "tcp">
 #<SERVICE :NAME "xpl" :ALIASES NIL :PORT 3865 :PROTO "udp">
 #<SERVICE :NAME "dzdaemon" :ALIASES NIL :PORT 3866 :PROTO "tcp">
 #<SERVICE :NAME "dzdaemon" :ALIASES NIL :PORT 3866 :PROTO "udp">
 #<SERVICE :NAME "dzoglserver" :ALIASES NIL :PORT 3867 :PROTO "tcp">
 #<SERVICE :NAME "dzoglserver" :ALIASES NIL :PORT 3867 :PROTO "udp">
 #<SERVICE :NAME "diameter" :ALIASES NIL :PORT 3868 :PROTO "tcp">
 #<SERVICE :NAME "diameter" :ALIASES NIL :PORT 3868 :PROTO "sctp">
 #<SERVICE :NAME "ovsam-mgmt" :ALIASES NIL :PORT 3869 :PROTO "tcp">
 #<SERVICE :NAME "ovsam-mgmt" :ALIASES NIL :PORT 3869 :PROTO "udp">
 #<SERVICE :NAME "ovsam-d-agent" :ALIASES NIL :PORT 3870 :PROTO "tcp">
 #<SERVICE :NAME "ovsam-d-agent" :ALIASES NIL :PORT 3870 :PROTO "udp">
 #<SERVICE :NAME "avocent-adsap" :ALIASES NIL :PORT 3871 :PROTO "tcp">
 #<SERVICE :NAME "avocent-adsap" :ALIASES NIL :PORT 3871 :PROTO "udp">
 #<SERVICE :NAME "oem-agent" :ALIASES NIL :PORT 3872 :PROTO "tcp">
 #<SERVICE :NAME "oem-agent" :ALIASES NIL :PORT 3872 :PROTO "udp">
 #<SERVICE :NAME "fagordnc" :ALIASES NIL :PORT 3873 :PROTO "tcp">
 #<SERVICE :NAME "fagordnc" :ALIASES NIL :PORT 3873 :PROTO "udp">
 #<SERVICE :NAME "sixxsconfig" :ALIASES NIL :PORT 3874 :PROTO "tcp">
 #<SERVICE :NAME "sixxsconfig" :ALIASES NIL :PORT 3874 :PROTO "udp">
 #<SERVICE :NAME "pnbscada" :ALIASES NIL :PORT 3875 :PROTO "tcp">
 #<SERVICE :NAME "pnbscada" :ALIASES NIL :PORT 3875 :PROTO "udp">
 #<SERVICE :NAME "dl_agent" :ALIASES ("dl-agent") :PORT 3876 :PROTO "tcp">
 #<SERVICE :NAME "dl_agent" :ALIASES ("dl-agent") :PORT 3876 :PROTO "udp">
 #<SERVICE :NAME "xmpcr-interface" :ALIASES NIL :PORT 3877 :PROTO "tcp">
 #<SERVICE :NAME "xmpcr-interface" :ALIASES NIL :PORT 3877 :PROTO "udp">
 #<SERVICE :NAME "fotogcad" :ALIASES NIL :PORT 3878 :PROTO "tcp">
 #<SERVICE :NAME "fotogcad" :ALIASES NIL :PORT 3878 :PROTO "udp">
 #<SERVICE :NAME "appss-lm" :ALIASES NIL :PORT 3879 :PROTO "tcp">
 #<SERVICE :NAME "appss-lm" :ALIASES NIL :PORT 3879 :PROTO "udp">
 #<SERVICE :NAME "igrs" :ALIASES NIL :PORT 3880 :PROTO "tcp">
 #<SERVICE :NAME "igrs" :ALIASES NIL :PORT 3880 :PROTO "udp">
 #<SERVICE :NAME "idac" :ALIASES NIL :PORT 3881 :PROTO "tcp">
 #<SERVICE :NAME "idac" :ALIASES NIL :PORT 3881 :PROTO "udp">
 #<SERVICE :NAME "msdts1" :ALIASES NIL :PORT 3882 :PROTO "tcp">
 #<SERVICE :NAME "msdts1" :ALIASES NIL :PORT 3882 :PROTO "udp">
 #<SERVICE :NAME "vrpn" :ALIASES NIL :PORT 3883 :PROTO "tcp">
 #<SERVICE :NAME "vrpn" :ALIASES NIL :PORT 3883 :PROTO "udp">
 #<SERVICE :NAME "softrack-meter" :ALIASES NIL :PORT 3884 :PROTO "tcp">
 #<SERVICE :NAME "softrack-meter" :ALIASES NIL :PORT 3884 :PROTO "udp">
 #<SERVICE :NAME "topflow-ssl" :ALIASES NIL :PORT 3885 :PROTO "tcp">
 #<SERVICE :NAME "topflow-ssl" :ALIASES NIL :PORT 3885 :PROTO "udp">
 #<SERVICE :NAME "nei-management" :ALIASES NIL :PORT 3886 :PROTO "tcp">
 #<SERVICE :NAME "nei-management" :ALIASES NIL :PORT 3886 :PROTO "udp">
 #<SERVICE :NAME "ciphire-data" :ALIASES NIL :PORT 3887 :PROTO "tcp">
 #<SERVICE :NAME "ciphire-data" :ALIASES NIL :PORT 3887 :PROTO "udp">
 #<SERVICE :NAME "ciphire-serv" :ALIASES NIL :PORT 3888 :PROTO "tcp">
 #<SERVICE :NAME "ciphire-serv" :ALIASES NIL :PORT 3888 :PROTO "udp">
 #<SERVICE :NAME "dandv-tester" :ALIASES NIL :PORT 3889 :PROTO "tcp">
 #<SERVICE :NAME "dandv-tester" :ALIASES NIL :PORT 3889 :PROTO "udp">
 #<SERVICE :NAME "ndsconnect" :ALIASES NIL :PORT 3890 :PROTO "tcp">
 #<SERVICE :NAME "ndsconnect" :ALIASES NIL :PORT 3890 :PROTO "udp">
 #<SERVICE :NAME "rtc-pm-port" :ALIASES NIL :PORT 3891 :PROTO "tcp">
 #<SERVICE :NAME "rtc-pm-port" :ALIASES NIL :PORT 3891 :PROTO "udp">
 #<SERVICE :NAME "pcc-image-port" :ALIASES NIL :PORT 3892 :PROTO "tcp">
 #<SERVICE :NAME "pcc-image-port" :ALIASES NIL :PORT 3892 :PROTO "udp">
 #<SERVICE :NAME "cgi-starapi" :ALIASES NIL :PORT 3893 :PROTO "tcp">
 #<SERVICE :NAME "cgi-starapi" :ALIASES NIL :PORT 3893 :PROTO "udp">
 #<SERVICE :NAME "syam-agent" :ALIASES NIL :PORT 3894 :PROTO "tcp">
 #<SERVICE :NAME "syam-agent" :ALIASES NIL :PORT 3894 :PROTO "udp">
 #<SERVICE :NAME "syam-smc" :ALIASES NIL :PORT 3895 :PROTO "tcp">
 #<SERVICE :NAME "syam-smc" :ALIASES NIL :PORT 3895 :PROTO "udp">
 #<SERVICE :NAME "sdo-tls" :ALIASES NIL :PORT 3896 :PROTO "tcp">
 #<SERVICE :NAME "sdo-tls" :ALIASES NIL :PORT 3896 :PROTO "udp">
 #<SERVICE :NAME "sdo-ssh" :ALIASES NIL :PORT 3897 :PROTO "tcp">
 #<SERVICE :NAME "sdo-ssh" :ALIASES NIL :PORT 3897 :PROTO "udp">
 #<SERVICE :NAME "senip" :ALIASES NIL :PORT 3898 :PROTO "tcp">
 #<SERVICE :NAME "senip" :ALIASES NIL :PORT 3898 :PROTO "udp">
 #<SERVICE :NAME "itv-control" :ALIASES NIL :PORT 3899 :PROTO "tcp">
 #<SERVICE :NAME "itv-control" :ALIASES NIL :PORT 3899 :PROTO "udp">
 #<SERVICE :NAME "nimsh" :ALIASES NIL :PORT 3901 :PROTO "tcp">
 #<SERVICE :NAME "nimsh" :ALIASES NIL :PORT 3901 :PROTO "udp">
 #<SERVICE :NAME "nimaux" :ALIASES NIL :PORT 3902 :PROTO "tcp">
 #<SERVICE :NAME "nimaux" :ALIASES NIL :PORT 3902 :PROTO "udp">
 #<SERVICE :NAME "charsetmgr" :ALIASES NIL :PORT 3903 :PROTO "tcp">
 #<SERVICE :NAME "charsetmgr" :ALIASES NIL :PORT 3903 :PROTO "udp">
 #<SERVICE :NAME "omnilink-port" :ALIASES NIL :PORT 3904 :PROTO "tcp">
 #<SERVICE :NAME "omnilink-port" :ALIASES NIL :PORT 3904 :PROTO "udp">
 #<SERVICE :NAME "mupdate" :ALIASES NIL :PORT 3905 :PROTO "tcp">
 #<SERVICE :NAME "mupdate" :ALIASES NIL :PORT 3905 :PROTO "udp">
 #<SERVICE :NAME "topovista-data" :ALIASES NIL :PORT 3906 :PROTO "tcp">
 #<SERVICE :NAME "topovista-data" :ALIASES NIL :PORT 3906 :PROTO "udp">
 #<SERVICE :NAME "imoguia-port" :ALIASES NIL :PORT 3907 :PROTO "tcp">
 #<SERVICE :NAME "imoguia-port" :ALIASES NIL :PORT 3907 :PROTO "udp">
 #<SERVICE :NAME "hppronetman" :ALIASES NIL :PORT 3908 :PROTO "tcp">
 #<SERVICE :NAME "hppronetman" :ALIASES NIL :PORT 3908 :PROTO "udp">
 #<SERVICE :NAME "surfcontrolcpa" :ALIASES NIL :PORT 3909 :PROTO "tcp">
 #<SERVICE :NAME "surfcontrolcpa" :ALIASES NIL :PORT 3909 :PROTO "udp">
 #<SERVICE :NAME "prnrequest" :ALIASES NIL :PORT 3910 :PROTO "tcp">
 #<SERVICE :NAME "prnrequest" :ALIASES NIL :PORT 3910 :PROTO "udp">
 #<SERVICE :NAME "prnstatus" :ALIASES NIL :PORT 3911 :PROTO "tcp">
 #<SERVICE :NAME "prnstatus" :ALIASES NIL :PORT 3911 :PROTO "udp">
 #<SERVICE :NAME "gbmt-stars" :ALIASES NIL :PORT 3912 :PROTO "tcp">
 #<SERVICE :NAME "gbmt-stars" :ALIASES NIL :PORT 3912 :PROTO "udp">
 #<SERVICE :NAME "listcrt-port" :ALIASES NIL :PORT 3913 :PROTO "tcp">
 #<SERVICE :NAME "listcrt-port" :ALIASES NIL :PORT 3913 :PROTO "udp">
 #<SERVICE :NAME "listcrt-port-2" :ALIASES NIL :PORT 3914 :PROTO "tcp">
 #<SERVICE :NAME "listcrt-port-2" :ALIASES NIL :PORT 3914 :PROTO "udp">
 #<SERVICE :NAME "agcat" :ALIASES NIL :PORT 3915 :PROTO "tcp">
 #<SERVICE :NAME "agcat" :ALIASES NIL :PORT 3915 :PROTO "udp">
 #<SERVICE :NAME "wysdmc" :ALIASES NIL :PORT 3916 :PROTO "tcp">
 #<SERVICE :NAME "wysdmc" :ALIASES NIL :PORT 3916 :PROTO "udp">
 #<SERVICE :NAME "aftmux" :ALIASES NIL :PORT 3917 :PROTO "tcp">
 #<SERVICE :NAME "aftmux" :ALIASES NIL :PORT 3917 :PROTO "udp">
 #<SERVICE :NAME "pktcablemmcops" :ALIASES NIL :PORT 3918 :PROTO "tcp">
 #<SERVICE :NAME "pktcablemmcops" :ALIASES NIL :PORT 3918 :PROTO "udp">
 #<SERVICE :NAME "hyperip" :ALIASES NIL :PORT 3919 :PROTO "tcp">
 #<SERVICE :NAME "hyperip" :ALIASES NIL :PORT 3919 :PROTO "udp">
 #<SERVICE :NAME "exasoftport1" :ALIASES NIL :PORT 3920 :PROTO "tcp">
 #<SERVICE :NAME "exasoftport1" :ALIASES NIL :PORT 3920 :PROTO "udp">
 #<SERVICE :NAME "herodotus-net" :ALIASES NIL :PORT 3921 :PROTO "tcp">
 #<SERVICE :NAME "herodotus-net" :ALIASES NIL :PORT 3921 :PROTO "udp">
 #<SERVICE :NAME "sor-update" :ALIASES NIL :PORT 3922 :PROTO "tcp">
 #<SERVICE :NAME "sor-update" :ALIASES NIL :PORT 3922 :PROTO "udp">
 #<SERVICE :NAME "symb-sb-port" :ALIASES NIL :PORT 3923 :PROTO "tcp">
 #<SERVICE :NAME "symb-sb-port" :ALIASES NIL :PORT 3923 :PROTO "udp">
 #<SERVICE :NAME "mpl-gprs-port" :ALIASES NIL :PORT 3924 :PROTO "tcp">
 #<SERVICE :NAME "mpl-gprs-port" :ALIASES NIL :PORT 3924 :PROTO "udp">
 #<SERVICE :NAME "zmp" :ALIASES NIL :PORT 3925 :PROTO "tcp">
 #<SERVICE :NAME "zmp" :ALIASES NIL :PORT 3925 :PROTO "udp">
 #<SERVICE :NAME "winport" :ALIASES NIL :PORT 3926 :PROTO "tcp">
 #<SERVICE :NAME "winport" :ALIASES NIL :PORT 3926 :PROTO "udp">
 #<SERVICE :NAME "natdataservice" :ALIASES NIL :PORT 3927 :PROTO "tcp">
 #<SERVICE :NAME "natdataservice" :ALIASES NIL :PORT 3927 :PROTO "udp">
 #<SERVICE :NAME "netboot-pxe" :ALIASES NIL :PORT 3928 :PROTO "tcp">
 #<SERVICE :NAME "netboot-pxe" :ALIASES NIL :PORT 3928 :PROTO "udp">
 #<SERVICE :NAME "smauth-port" :ALIASES NIL :PORT 3929 :PROTO "tcp">
 #<SERVICE :NAME "smauth-port" :ALIASES NIL :PORT 3929 :PROTO "udp">
 #<SERVICE :NAME "syam-webserver" :ALIASES NIL :PORT 3930 :PROTO "tcp">
 #<SERVICE :NAME "syam-webserver" :ALIASES NIL :PORT 3930 :PROTO "udp">
 #<SERVICE :NAME "msr-plugin-port" :ALIASES NIL :PORT 3931 :PROTO "tcp">
 #<SERVICE :NAME "msr-plugin-port" :ALIASES NIL :PORT 3931 :PROTO "udp">
 #<SERVICE :NAME "dyn-site" :ALIASES NIL :PORT 3932 :PROTO "tcp">
 #<SERVICE :NAME "dyn-site" :ALIASES NIL :PORT 3932 :PROTO "udp">
 #<SERVICE :NAME "plbserve-port" :ALIASES NIL :PORT 3933 :PROTO "tcp">
 #<SERVICE :NAME "plbserve-port" :ALIASES NIL :PORT 3933 :PROTO "udp">
 #<SERVICE :NAME "sunfm-port" :ALIASES NIL :PORT 3934 :PROTO "tcp">
 #<SERVICE :NAME "sunfm-port" :ALIASES NIL :PORT 3934 :PROTO "udp">
 #<SERVICE :NAME "sdp-portmapper" :ALIASES NIL :PORT 3935 :PROTO "tcp">
 #<SERVICE :NAME "sdp-portmapper" :ALIASES NIL :PORT 3935 :PROTO "udp">
 #<SERVICE :NAME "mailprox" :ALIASES NIL :PORT 3936 :PROTO "tcp">
 #<SERVICE :NAME "mailprox" :ALIASES NIL :PORT 3936 :PROTO "udp">
 #<SERVICE :NAME "dvbservdsc" :ALIASES NIL :PORT 3937 :PROTO "tcp">
 #<SERVICE :NAME "dvbservdsc" :ALIASES NIL :PORT 3937 :PROTO "udp">
 #<SERVICE :NAME "dbcontrol_agent" :ALIASES ("dbcontrol-agent") :PORT 3938
   :PROTO "tcp">
 #<SERVICE :NAME "dbcontrol_agent" :ALIASES ("dbcontrol-agent") :PORT 3938
   :PROTO "udp">
 #<SERVICE :NAME "aamp" :ALIASES NIL :PORT 3939 :PROTO "tcp">
 #<SERVICE :NAME "aamp" :ALIASES NIL :PORT 3939 :PROTO "udp">
 #<SERVICE :NAME "xecp-node" :ALIASES NIL :PORT 3940 :PROTO "tcp">
 #<SERVICE :NAME "xecp-node" :ALIASES NIL :PORT 3940 :PROTO "udp">
 #<SERVICE :NAME "homeportal-web" :ALIASES NIL :PORT 3941 :PROTO "tcp">
 #<SERVICE :NAME "homeportal-web" :ALIASES NIL :PORT 3941 :PROTO "udp">
 #<SERVICE :NAME "srdp" :ALIASES NIL :PORT 3942 :PROTO "tcp">
 #<SERVICE :NAME "srdp" :ALIASES NIL :PORT 3942 :PROTO "udp">
 #<SERVICE :NAME "tig" :ALIASES NIL :PORT 3943 :PROTO "tcp">
 #<SERVICE :NAME "tig" :ALIASES NIL :PORT 3943 :PROTO "udp">
 #<SERVICE :NAME "sops" :ALIASES NIL :PORT 3944 :PROTO "tcp">
 #<SERVICE :NAME "sops" :ALIASES NIL :PORT 3944 :PROTO "udp">
 #<SERVICE :NAME "emcads" :ALIASES NIL :PORT 3945 :PROTO "tcp">
 #<SERVICE :NAME "emcads" :ALIASES NIL :PORT 3945 :PROTO "udp">
 #<SERVICE :NAME "backupedge" :ALIASES NIL :PORT 3946 :PROTO "tcp">
 #<SERVICE :NAME "backupedge" :ALIASES NIL :PORT 3946 :PROTO "udp">
 #<SERVICE :NAME "ccp" :ALIASES NIL :PORT 3947 :PROTO "tcp">
 #<SERVICE :NAME "ccp" :ALIASES NIL :PORT 3947 :PROTO "udp">
 #<SERVICE :NAME "apdap" :ALIASES NIL :PORT 3948 :PROTO "tcp">
 #<SERVICE :NAME "apdap" :ALIASES NIL :PORT 3948 :PROTO "udp">
 #<SERVICE :NAME "drip" :ALIASES NIL :PORT 3949 :PROTO "tcp">
 #<SERVICE :NAME "drip" :ALIASES NIL :PORT 3949 :PROTO "udp">
 #<SERVICE :NAME "namemunge" :ALIASES NIL :PORT 3950 :PROTO "tcp">
 #<SERVICE :NAME "namemunge" :ALIASES NIL :PORT 3950 :PROTO "udp">
 #<SERVICE :NAME "pwgippfax" :ALIASES NIL :PORT 3951 :PROTO "tcp">
 #<SERVICE :NAME "pwgippfax" :ALIASES NIL :PORT 3951 :PROTO "udp">
 #<SERVICE :NAME "i3-sessionmgr" :ALIASES NIL :PORT 3952 :PROTO "tcp">
 #<SERVICE :NAME "i3-sessionmgr" :ALIASES NIL :PORT 3952 :PROTO "udp">
 #<SERVICE :NAME "xmlink-connect" :ALIASES NIL :PORT 3953 :PROTO "tcp">
 #<SERVICE :NAME "xmlink-connect" :ALIASES NIL :PORT 3953 :PROTO "udp">
 #<SERVICE :NAME "adrep" :ALIASES NIL :PORT 3954 :PROTO "tcp">
 #<SERVICE :NAME "adrep" :ALIASES NIL :PORT 3954 :PROTO "udp">
 #<SERVICE :NAME "p2pcommunity" :ALIASES NIL :PORT 3955 :PROTO "tcp">
 #<SERVICE :NAME "p2pcommunity" :ALIASES NIL :PORT 3955 :PROTO "udp">
 #<SERVICE :NAME "gvcp" :ALIASES NIL :PORT 3956 :PROTO "tcp">
 #<SERVICE :NAME "gvcp" :ALIASES NIL :PORT 3956 :PROTO "udp">
 #<SERVICE :NAME "mqe-broker" :ALIASES NIL :PORT 3957 :PROTO "tcp">
 #<SERVICE :NAME "mqe-broker" :ALIASES NIL :PORT 3957 :PROTO "udp">
 #<SERVICE :NAME "mqe-agent" :ALIASES NIL :PORT 3958 :PROTO "tcp">
 #<SERVICE :NAME "mqe-agent" :ALIASES NIL :PORT 3958 :PROTO "udp">
 #<SERVICE :NAME "treehopper" :ALIASES NIL :PORT 3959 :PROTO "tcp">
 #<SERVICE :NAME "treehopper" :ALIASES NIL :PORT 3959 :PROTO "udp">
 #<SERVICE :NAME "bess" :ALIASES NIL :PORT 3960 :PROTO "tcp">
 #<SERVICE :NAME "bess" :ALIASES NIL :PORT 3960 :PROTO "udp">
 #<SERVICE :NAME "proaxess" :ALIASES NIL :PORT 3961 :PROTO "tcp">
 #<SERVICE :NAME "proaxess" :ALIASES NIL :PORT 3961 :PROTO "udp">
 #<SERVICE :NAME "sbi-agent" :ALIASES NIL :PORT 3962 :PROTO "tcp">
 #<SERVICE :NAME "sbi-agent" :ALIASES NIL :PORT 3962 :PROTO "udp">
 #<SERVICE :NAME "thrp" :ALIASES NIL :PORT 3963 :PROTO "tcp">
 #<SERVICE :NAME "thrp" :ALIASES NIL :PORT 3963 :PROTO "udp">
 #<SERVICE :NAME "sasggprs" :ALIASES NIL :PORT 3964 :PROTO "tcp">
 #<SERVICE :NAME "sasggprs" :ALIASES NIL :PORT 3964 :PROTO "udp">
 #<SERVICE :NAME "ati-ip-to-ncpe" :ALIASES NIL :PORT 3965 :PROTO "tcp">
 #<SERVICE :NAME "ati-ip-to-ncpe" :ALIASES NIL :PORT 3965 :PROTO "udp">
 #<SERVICE :NAME "bflckmgr" :ALIASES NIL :PORT 3966 :PROTO "tcp">
 #<SERVICE :NAME "bflckmgr" :ALIASES NIL :PORT 3966 :PROTO "udp">
 #<SERVICE :NAME "ppsms" :ALIASES NIL :PORT 3967 :PROTO "tcp">
 #<SERVICE :NAME "ppsms" :ALIASES NIL :PORT 3967 :PROTO "udp">
 #<SERVICE :NAME "ianywhere-dbns" :ALIASES NIL :PORT 3968 :PROTO "tcp">
 #<SERVICE :NAME "ianywhere-dbns" :ALIASES NIL :PORT 3968 :PROTO "udp">
 #<SERVICE :NAME "landmarks" :ALIASES NIL :PORT 3969 :PROTO "tcp">
 #<SERVICE :NAME "landmarks" :ALIASES NIL :PORT 3969 :PROTO "udp">
 #<SERVICE :NAME "lanrevagent" :ALIASES NIL :PORT 3970 :PROTO "tcp">
 #<SERVICE :NAME "lanrevagent" :ALIASES NIL :PORT 3970 :PROTO "udp">
 #<SERVICE :NAME "lanrevserver" :ALIASES NIL :PORT 3971 :PROTO "tcp">
 #<SERVICE :NAME "lanrevserver" :ALIASES NIL :PORT 3971 :PROTO "udp">
 #<SERVICE :NAME "iconp" :ALIASES NIL :PORT 3972 :PROTO "tcp">
 #<SERVICE :NAME "iconp" :ALIASES NIL :PORT 3972 :PROTO "udp">
 #<SERVICE :NAME "progistics" :ALIASES NIL :PORT 3973 :PROTO "tcp">
 #<SERVICE :NAME "progistics" :ALIASES NIL :PORT 3973 :PROTO "udp">
 #<SERVICE :NAME "citysearch" :ALIASES NIL :PORT 3974 :PROTO "tcp">
 #<SERVICE :NAME "citysearch" :ALIASES NIL :PORT 3974 :PROTO "udp">
 #<SERVICE :NAME "airshot" :ALIASES NIL :PORT 3975 :PROTO "tcp">
 #<SERVICE :NAME "airshot" :ALIASES NIL :PORT 3975 :PROTO "udp">
 #<SERVICE :NAME "opswagent" :ALIASES NIL :PORT 3976 :PROTO "tcp">
 #<SERVICE :NAME "opswagent" :ALIASES NIL :PORT 3976 :PROTO "udp">
 #<SERVICE :NAME "opswmanager" :ALIASES NIL :PORT 3977 :PROTO "tcp">
 #<SERVICE :NAME "opswmanager" :ALIASES NIL :PORT 3977 :PROTO "udp">
 #<SERVICE :NAME "secure-cfg-svr" :ALIASES NIL :PORT 3978 :PROTO "tcp">
 #<SERVICE :NAME "secure-cfg-svr" :ALIASES NIL :PORT 3978 :PROTO "udp">
 #<SERVICE :NAME "smwan" :ALIASES NIL :PORT 3979 :PROTO "tcp">
 #<SERVICE :NAME "smwan" :ALIASES NIL :PORT 3979 :PROTO "udp">
 #<SERVICE :NAME "acms" :ALIASES NIL :PORT 3980 :PROTO "tcp">
 #<SERVICE :NAME "acms" :ALIASES NIL :PORT 3980 :PROTO "udp">
 #<SERVICE :NAME "starfish" :ALIASES NIL :PORT 3981 :PROTO "tcp">
 #<SERVICE :NAME "starfish" :ALIASES NIL :PORT 3981 :PROTO "udp">
 #<SERVICE :NAME "eis" :ALIASES NIL :PORT 3982 :PROTO "tcp">
 #<SERVICE :NAME "eis" :ALIASES NIL :PORT 3982 :PROTO "udp">
 #<SERVICE :NAME "eisp" :ALIASES NIL :PORT 3983 :PROTO "tcp">
 #<SERVICE :NAME "eisp" :ALIASES NIL :PORT 3983 :PROTO "udp">
 #<SERVICE :NAME "mapper-nodemgr" :ALIASES NIL :PORT 3984 :PROTO "tcp">
 #<SERVICE :NAME "mapper-nodemgr" :ALIASES NIL :PORT 3984 :PROTO "udp">
 #<SERVICE :NAME "mapper-mapethd" :ALIASES NIL :PORT 3985 :PROTO "tcp">
 #<SERVICE :NAME "mapper-mapethd" :ALIASES NIL :PORT 3985 :PROTO "udp">
 #<SERVICE :NAME "mapper-ws_ethd" :ALIASES ("mapper-ws-ethd") :PORT 3986
   :PROTO "tcp">
 #<SERVICE :NAME "mapper-ws_ethd" :ALIASES ("mapper-ws-ethd") :PORT 3986
   :PROTO "udp">
 #<SERVICE :NAME "centerline" :ALIASES NIL :PORT 3987 :PROTO "tcp">
 #<SERVICE :NAME "centerline" :ALIASES NIL :PORT 3987 :PROTO "udp">
 #<SERVICE :NAME "dcs-config" :ALIASES NIL :PORT 3988 :PROTO "tcp">
 #<SERVICE :NAME "dcs-config" :ALIASES NIL :PORT 3988 :PROTO "udp">
 #<SERVICE :NAME "bv-queryengine" :ALIASES NIL :PORT 3989 :PROTO "tcp">
 #<SERVICE :NAME "bv-queryengine" :ALIASES NIL :PORT 3989 :PROTO "udp">
 #<SERVICE :NAME "bv-is" :ALIASES NIL :PORT 3990 :PROTO "tcp">
 #<SERVICE :NAME "bv-is" :ALIASES NIL :PORT 3990 :PROTO "udp">
 #<SERVICE :NAME "bv-smcsrv" :ALIASES NIL :PORT 3991 :PROTO "tcp">
 #<SERVICE :NAME "bv-smcsrv" :ALIASES NIL :PORT 3991 :PROTO "udp">
 #<SERVICE :NAME "bv-ds" :ALIASES NIL :PORT 3992 :PROTO "tcp">
 #<SERVICE :NAME "bv-ds" :ALIASES NIL :PORT 3992 :PROTO "udp">
 #<SERVICE :NAME "bv-agent" :ALIASES NIL :PORT 3993 :PROTO "tcp">
 #<SERVICE :NAME "bv-agent" :ALIASES NIL :PORT 3993 :PROTO "udp">
 #<SERVICE :NAME "iss-mgmt-ssl" :ALIASES NIL :PORT 3995 :PROTO "tcp">
 #<SERVICE :NAME "iss-mgmt-ssl" :ALIASES NIL :PORT 3995 :PROTO "udp">
 #<SERVICE :NAME "abcsoftware" :ALIASES NIL :PORT 3996 :PROTO "tcp">
 #<SERVICE :NAME "abcsoftware" :ALIASES NIL :PORT 3996 :PROTO "udp">
 #<SERVICE :NAME "agentsease-db" :ALIASES NIL :PORT 3997 :PROTO "tcp">
 #<SERVICE :NAME "agentsease-db" :ALIASES NIL :PORT 3997 :PROTO "udp">
 #<SERVICE :NAME "dnx" :ALIASES NIL :PORT 3998 :PROTO "tcp">
 #<SERVICE :NAME "dnx" :ALIASES NIL :PORT 3998 :PROTO "udp">
 #<SERVICE :NAME "nvcnet" :ALIASES NIL :PORT 3999 :PROTO "tcp">
 #<SERVICE :NAME "nvcnet" :ALIASES NIL :PORT 3999 :PROTO "udp">
 #<SERVICE :NAME "terabase" :ALIASES NIL :PORT 4000 :PROTO "tcp">
 #<SERVICE :NAME "terabase" :ALIASES NIL :PORT 4000 :PROTO "udp">
 #<SERVICE :NAME "newoak" :ALIASES NIL :PORT 4001 :PROTO "tcp">
 #<SERVICE :NAME "newoak" :ALIASES NIL :PORT 4001 :PROTO "udp">
 #<SERVICE :NAME "pxc-spvr-ft" :ALIASES NIL :PORT 4002 :PROTO "tcp">
 #<SERVICE :NAME "pxc-spvr-ft" :ALIASES NIL :PORT 4002 :PROTO "udp">
 #<SERVICE :NAME "pxc-splr-ft" :ALIASES NIL :PORT 4003 :PROTO "tcp">
 #<SERVICE :NAME "pxc-splr-ft" :ALIASES NIL :PORT 4003 :PROTO "udp">
 #<SERVICE :NAME "pxc-roid" :ALIASES NIL :PORT 4004 :PROTO "tcp">
 #<SERVICE :NAME "pxc-roid" :ALIASES NIL :PORT 4004 :PROTO "udp">
 #<SERVICE :NAME "pxc-pin" :ALIASES NIL :PORT 4005 :PROTO "tcp">
 #<SERVICE :NAME "pxc-pin" :ALIASES NIL :PORT 4005 :PROTO "udp">
 #<SERVICE :NAME "pxc-spvr" :ALIASES NIL :PORT 4006 :PROTO "tcp">
 #<SERVICE :NAME "pxc-spvr" :ALIASES NIL :PORT 4006 :PROTO "udp">
 #<SERVICE :NAME "pxc-splr" :ALIASES NIL :PORT 4007 :PROTO "tcp">
 #<SERVICE :NAME "pxc-splr" :ALIASES NIL :PORT 4007 :PROTO "udp">
 #<SERVICE :NAME "netcheque" :ALIASES NIL :PORT 4008 :PROTO "tcp">
 #<SERVICE :NAME "netcheque" :ALIASES NIL :PORT 4008 :PROTO "udp">
 #<SERVICE :NAME "chimera-hwm" :ALIASES NIL :PORT 4009 :PROTO "tcp">
 #<SERVICE :NAME "chimera-hwm" :ALIASES NIL :PORT 4009 :PROTO "udp">
 #<SERVICE :NAME "samsung-unidex" :ALIASES NIL :PORT 4010 :PROTO "tcp">
 #<SERVICE :NAME "samsung-unidex" :ALIASES NIL :PORT 4010 :PROTO "udp">
 #<SERVICE :NAME "altserviceboot" :ALIASES NIL :PORT 4011 :PROTO "tcp">
 #<SERVICE :NAME "pda-gate" :ALIASES NIL :PORT 4012 :PROTO "tcp">
 #<SERVICE :NAME "pda-gate" :ALIASES NIL :PORT 4012 :PROTO "udp">
 #<SERVICE :NAME "acl-manager" :ALIASES NIL :PORT 4013 :PROTO "tcp">
 #<SERVICE :NAME "acl-manager" :ALIASES NIL :PORT 4013 :PROTO "udp">
 #<SERVICE :NAME "taiclock" :ALIASES NIL :PORT 4014 :PROTO "tcp">
 #<SERVICE :NAME "taiclock" :ALIASES NIL :PORT 4014 :PROTO "udp">
 #<SERVICE :NAME "talarian-mcast1" :ALIASES NIL :PORT 4015 :PROTO "tcp">
 #<SERVICE :NAME "talarian-mcast1" :ALIASES NIL :PORT 4015 :PROTO "udp">
 #<SERVICE :NAME "talarian-mcast2" :ALIASES NIL :PORT 4016 :PROTO "tcp">
 #<SERVICE :NAME "talarian-mcast2" :ALIASES NIL :PORT 4016 :PROTO "udp">
 #<SERVICE :NAME "talarian-mcast3" :ALIASES NIL :PORT 4017 :PROTO "tcp">
 #<SERVICE :NAME "talarian-mcast3" :ALIASES NIL :PORT 4017 :PROTO "udp">
 #<SERVICE :NAME "talarian-mcast4" :ALIASES NIL :PORT 4018 :PROTO "tcp">
 #<SERVICE :NAME "talarian-mcast4" :ALIASES NIL :PORT 4018 :PROTO "udp">
 #<SERVICE :NAME "talarian-mcast5" :ALIASES NIL :PORT 4019 :PROTO "tcp">
 #<SERVICE :NAME "talarian-mcast5" :ALIASES NIL :PORT 4019 :PROTO "udp">
 #<SERVICE :NAME "trap" :ALIASES NIL :PORT 4020 :PROTO "tcp">
 #<SERVICE :NAME "trap" :ALIASES NIL :PORT 4020 :PROTO "udp">
 #<SERVICE :NAME "nexus-portal" :ALIASES NIL :PORT 4021 :PROTO "tcp">
 #<SERVICE :NAME "nexus-portal" :ALIASES NIL :PORT 4021 :PROTO "udp">
 #<SERVICE :NAME "dnox" :ALIASES NIL :PORT 4022 :PROTO "tcp">
 #<SERVICE :NAME "dnox" :ALIASES NIL :PORT 4022 :PROTO "udp">
 #<SERVICE :NAME "esnm-zoning" :ALIASES NIL :PORT 4023 :PROTO "tcp">
 #<SERVICE :NAME "esnm-zoning" :ALIASES NIL :PORT 4023 :PROTO "udp">
 #<SERVICE :NAME "tnp1-port" :ALIASES NIL :PORT 4024 :PROTO "tcp">
 #<SERVICE :NAME "tnp1-port" :ALIASES NIL :PORT 4024 :PROTO "udp">
 #<SERVICE :NAME "partimage" :ALIASES NIL :PORT 4025 :PROTO "tcp">
 #<SERVICE :NAME "partimage" :ALIASES NIL :PORT 4025 :PROTO "udp">
 #<SERVICE :NAME "as-debug" :ALIASES NIL :PORT 4026 :PROTO "tcp">
 #<SERVICE :NAME "as-debug" :ALIASES NIL :PORT 4026 :PROTO "udp">
 #<SERVICE :NAME "bxp" :ALIASES NIL :PORT 4027 :PROTO "tcp">
 #<SERVICE :NAME "bxp" :ALIASES NIL :PORT 4027 :PROTO "udp">
 #<SERVICE :NAME "dtserver-port" :ALIASES NIL :PORT 4028 :PROTO "tcp">
 #<SERVICE :NAME "dtserver-port" :ALIASES NIL :PORT 4028 :PROTO "udp">
 #<SERVICE :NAME "ip-qsig" :ALIASES NIL :PORT 4029 :PROTO "tcp">
 #<SERVICE :NAME "ip-qsig" :ALIASES NIL :PORT 4029 :PROTO "udp">
 #<SERVICE :NAME "jdmn-port" :ALIASES NIL :PORT 4030 :PROTO "tcp">
 #<SERVICE :NAME "jdmn-port" :ALIASES NIL :PORT 4030 :PROTO "udp">
 #<SERVICE :NAME "suucp" :ALIASES NIL :PORT 4031 :PROTO "tcp">
 #<SERVICE :NAME "suucp" :ALIASES NIL :PORT 4031 :PROTO "udp">
 #<SERVICE :NAME "vrts-auth-port" :ALIASES NIL :PORT 4032 :PROTO "tcp">
 #<SERVICE :NAME "vrts-auth-port" :ALIASES NIL :PORT 4032 :PROTO "udp">
 #<SERVICE :NAME "sanavigator" :ALIASES NIL :PORT 4033 :PROTO "tcp">
 #<SERVICE :NAME "sanavigator" :ALIASES NIL :PORT 4033 :PROTO "udp">
 #<SERVICE :NAME "ubxd" :ALIASES NIL :PORT 4034 :PROTO "tcp">
 #<SERVICE :NAME "ubxd" :ALIASES NIL :PORT 4034 :PROTO "udp">
 #<SERVICE :NAME "wap-push-http" :ALIASES NIL :PORT 4035 :PROTO "tcp">
 #<SERVICE :NAME "wap-push-http" :ALIASES NIL :PORT 4035 :PROTO "udp">
 #<SERVICE :NAME "wap-push-https" :ALIASES NIL :PORT 4036 :PROTO "tcp">
 #<SERVICE :NAME "wap-push-https" :ALIASES NIL :PORT 4036 :PROTO "udp">
 #<SERVICE :NAME "ravehd" :ALIASES NIL :PORT 4037 :PROTO "tcp">
 #<SERVICE :NAME "ravehd" :ALIASES NIL :PORT 4037 :PROTO "udp">
 #<SERVICE :NAME "fazzt-ptp" :ALIASES NIL :PORT 4038 :PROTO "tcp">
 #<SERVICE :NAME "fazzt-ptp" :ALIASES NIL :PORT 4038 :PROTO "udp">
 #<SERVICE :NAME "fazzt-admin" :ALIASES NIL :PORT 4039 :PROTO "tcp">
 #<SERVICE :NAME "fazzt-admin" :ALIASES NIL :PORT 4039 :PROTO "udp">
 #<SERVICE :NAME "yo-main" :ALIASES NIL :PORT 4040 :PROTO "tcp">
 #<SERVICE :NAME "yo-main" :ALIASES NIL :PORT 4040 :PROTO "udp">
 #<SERVICE :NAME "houston" :ALIASES NIL :PORT 4041 :PROTO "tcp">
 #<SERVICE :NAME "houston" :ALIASES NIL :PORT 4041 :PROTO "udp">
 #<SERVICE :NAME "ldxp" :ALIASES NIL :PORT 4042 :PROTO "tcp">
 #<SERVICE :NAME "ldxp" :ALIASES NIL :PORT 4042 :PROTO "udp">
 #<SERVICE :NAME "nirp" :ALIASES NIL :PORT 4043 :PROTO "tcp">
 #<SERVICE :NAME "nirp" :ALIASES NIL :PORT 4043 :PROTO "udp">
 #<SERVICE :NAME "ltp" :ALIASES NIL :PORT 4044 :PROTO "tcp">
 #<SERVICE :NAME "ltp" :ALIASES NIL :PORT 4044 :PROTO "udp">
 #<SERVICE :NAME "acp-proto" :ALIASES NIL :PORT 4046 :PROTO "tcp">
 #<SERVICE :NAME "acp-proto" :ALIASES NIL :PORT 4046 :PROTO "udp">
 #<SERVICE :NAME "ctp-state" :ALIASES NIL :PORT 4047 :PROTO "tcp">
 #<SERVICE :NAME "ctp-state" :ALIASES NIL :PORT 4047 :PROTO "udp">
 #<SERVICE :NAME "wafs" :ALIASES NIL :PORT 4049 :PROTO "tcp">
 #<SERVICE :NAME "wafs" :ALIASES NIL :PORT 4049 :PROTO "udp">
 #<SERVICE :NAME "cisco-wafs" :ALIASES NIL :PORT 4050 :PROTO "tcp">
 #<SERVICE :NAME "cisco-wafs" :ALIASES NIL :PORT 4050 :PROTO "udp">
 #<SERVICE :NAME "cppdp" :ALIASES NIL :PORT 4051 :PROTO "tcp">
 #<SERVICE :NAME "cppdp" :ALIASES NIL :PORT 4051 :PROTO "udp">
 #<SERVICE :NAME "interact" :ALIASES NIL :PORT 4052 :PROTO "tcp">
 #<SERVICE :NAME "interact" :ALIASES NIL :PORT 4052 :PROTO "udp">
 #<SERVICE :NAME "ccu-comm-1" :ALIASES NIL :PORT 4053 :PROTO "tcp">
 #<SERVICE :NAME "ccu-comm-1" :ALIASES NIL :PORT 4053 :PROTO "udp">
 #<SERVICE :NAME "ccu-comm-2" :ALIASES NIL :PORT 4054 :PROTO "tcp">
 #<SERVICE :NAME "ccu-comm-2" :ALIASES NIL :PORT 4054 :PROTO "udp">
 #<SERVICE :NAME "ccu-comm-3" :ALIASES NIL :PORT 4055 :PROTO "tcp">
 #<SERVICE :NAME "ccu-comm-3" :ALIASES NIL :PORT 4055 :PROTO "udp">
 #<SERVICE :NAME "lms" :ALIASES NIL :PORT 4056 :PROTO "tcp">
 #<SERVICE :NAME "lms" :ALIASES NIL :PORT 4056 :PROTO "udp">
 #<SERVICE :NAME "wfm" :ALIASES NIL :PORT 4057 :PROTO "tcp">
 #<SERVICE :NAME "wfm" :ALIASES NIL :PORT 4057 :PROTO "udp">
 #<SERVICE :NAME "kingfisher" :ALIASES NIL :PORT 4058 :PROTO "tcp">
 #<SERVICE :NAME "kingfisher" :ALIASES NIL :PORT 4058 :PROTO "udp">
 #<SERVICE :NAME "dlms-cosem" :ALIASES NIL :PORT 4059 :PROTO "tcp">
 #<SERVICE :NAME "dlms-cosem" :ALIASES NIL :PORT 4059 :PROTO "udp">
 #<SERVICE :NAME "dsmeter_iatc" :ALIASES ("dsmeter-iatc") :PORT 4060
   :PROTO "tcp">
 #<SERVICE :NAME "dsmeter_iatc" :ALIASES ("dsmeter-iatc") :PORT 4060
   :PROTO "udp">
 #<SERVICE :NAME "ice-location" :ALIASES NIL :PORT 4061 :PROTO "tcp">
 #<SERVICE :NAME "ice-location" :ALIASES NIL :PORT 4061 :PROTO "udp">
 #<SERVICE :NAME "ice-slocation" :ALIASES NIL :PORT 4062 :PROTO "tcp">
 #<SERVICE :NAME "ice-slocation" :ALIASES NIL :PORT 4062 :PROTO "udp">
 #<SERVICE :NAME "ice-router" :ALIASES NIL :PORT 4063 :PROTO "tcp">
 #<SERVICE :NAME "ice-router" :ALIASES NIL :PORT 4063 :PROTO "udp">
 #<SERVICE :NAME "ice-srouter" :ALIASES NIL :PORT 4064 :PROTO "tcp">
 #<SERVICE :NAME "ice-srouter" :ALIASES NIL :PORT 4064 :PROTO "udp">
 #<SERVICE :NAME "avanti_cdp" :ALIASES ("avanti-cdp") :PORT 4065 :PROTO "tcp">
 #<SERVICE :NAME "avanti_cdp" :ALIASES ("avanti-cdp") :PORT 4065 :PROTO "udp">
 #<SERVICE :NAME "pmas" :ALIASES NIL :PORT 4066 :PROTO "tcp">
 #<SERVICE :NAME "pmas" :ALIASES NIL :PORT 4066 :PROTO "udp">
 #<SERVICE :NAME "idp" :ALIASES NIL :PORT 4067 :PROTO "tcp">
 #<SERVICE :NAME "idp" :ALIASES NIL :PORT 4067 :PROTO "udp">
 #<SERVICE :NAME "ipfltbcst" :ALIASES NIL :PORT 4068 :PROTO "tcp">
 #<SERVICE :NAME "ipfltbcst" :ALIASES NIL :PORT 4068 :PROTO "udp">
 #<SERVICE :NAME "minger" :ALIASES NIL :PORT 4069 :PROTO "tcp">
 #<SERVICE :NAME "minger" :ALIASES NIL :PORT 4069 :PROTO "udp">
 #<SERVICE :NAME "tripe" :ALIASES NIL :PORT 4070 :PROTO "tcp">
 #<SERVICE :NAME "tripe" :ALIASES NIL :PORT 4070 :PROTO "udp">
 #<SERVICE :NAME "aibkup" :ALIASES NIL :PORT 4071 :PROTO "tcp">
 #<SERVICE :NAME "aibkup" :ALIASES NIL :PORT 4071 :PROTO "udp">
 #<SERVICE :NAME "zieto-sock" :ALIASES NIL :PORT 4072 :PROTO "tcp">
 #<SERVICE :NAME "zieto-sock" :ALIASES NIL :PORT 4072 :PROTO "udp">
 #<SERVICE :NAME "iRAPP" :ALIASES NIL :PORT 4073 :PROTO "tcp">
 #<SERVICE :NAME "iRAPP" :ALIASES NIL :PORT 4073 :PROTO "udp">
 #<SERVICE :NAME "cequint-cityid" :ALIASES NIL :PORT 4074 :PROTO "tcp">
 #<SERVICE :NAME "cequint-cityid" :ALIASES NIL :PORT 4074 :PROTO "udp">
 #<SERVICE :NAME "perimlan" :ALIASES NIL :PORT 4075 :PROTO "tcp">
 #<SERVICE :NAME "perimlan" :ALIASES NIL :PORT 4075 :PROTO "udp">
 #<SERVICE :NAME "seraph" :ALIASES NIL :PORT 4076 :PROTO "tcp">
 #<SERVICE :NAME "seraph" :ALIASES NIL :PORT 4076 :PROTO "udp">
 #<SERVICE :NAME "ascomalarm" :ALIASES NIL :PORT 4077 :PROTO "udp">
 #<SERVICE :NAME "cssp" :ALIASES NIL :PORT 4078 :PROTO "tcp">
 #<SERVICE :NAME "santools" :ALIASES NIL :PORT 4079 :PROTO "tcp">
 #<SERVICE :NAME "santools" :ALIASES NIL :PORT 4079 :PROTO "udp">
 #<SERVICE :NAME "lorica-in" :ALIASES NIL :PORT 4080 :PROTO "tcp">
 #<SERVICE :NAME "lorica-in" :ALIASES NIL :PORT 4080 :PROTO "udp">
 #<SERVICE :NAME "lorica-in-sec" :ALIASES NIL :PORT 4081 :PROTO "tcp">
 #<SERVICE :NAME "lorica-in-sec" :ALIASES NIL :PORT 4081 :PROTO "udp">
 #<SERVICE :NAME "lorica-out" :ALIASES NIL :PORT 4082 :PROTO "tcp">
 #<SERVICE :NAME "lorica-out" :ALIASES NIL :PORT 4082 :PROTO "udp">
 #<SERVICE :NAME "lorica-out-sec" :ALIASES NIL :PORT 4083 :PROTO "tcp">
 #<SERVICE :NAME "lorica-out-sec" :ALIASES NIL :PORT 4083 :PROTO "udp">
 #<SERVICE :NAME "fortisphere-vm" :ALIASES NIL :PORT 4084 :PROTO "udp">
 #<SERVICE :NAME "ezmessagesrv" :ALIASES NIL :PORT 4085 :PROTO "tcp">
 #<SERVICE :NAME "ftsync" :ALIASES NIL :PORT 4086 :PROTO "udp">
 #<SERVICE :NAME "applusservice" :ALIASES NIL :PORT 4087 :PROTO "tcp">
 #<SERVICE :NAME "npsp" :ALIASES NIL :PORT 4088 :PROTO "tcp">
 #<SERVICE :NAME "opencore" :ALIASES NIL :PORT 4089 :PROTO "tcp">
 #<SERVICE :NAME "opencore" :ALIASES NIL :PORT 4089 :PROTO "udp">
 #<SERVICE :NAME "omasgport" :ALIASES NIL :PORT 4090 :PROTO "tcp">
 #<SERVICE :NAME "omasgport" :ALIASES NIL :PORT 4090 :PROTO "udp">
 #<SERVICE :NAME "ewinstaller" :ALIASES NIL :PORT 4091 :PROTO "tcp">
 #<SERVICE :NAME "ewinstaller" :ALIASES NIL :PORT 4091 :PROTO "udp">
 #<SERVICE :NAME "ewdgs" :ALIASES NIL :PORT 4092 :PROTO "tcp">
 #<SERVICE :NAME "ewdgs" :ALIASES NIL :PORT 4092 :PROTO "udp">
 #<SERVICE :NAME "pvxpluscs" :ALIASES NIL :PORT 4093 :PROTO "tcp">
 #<SERVICE :NAME "pvxpluscs" :ALIASES NIL :PORT 4093 :PROTO "udp">
 #<SERVICE :NAME "sysrqd" :ALIASES NIL :PORT 4094 :PROTO "tcp">
 #<SERVICE :NAME "sysrqd" :ALIASES NIL :PORT 4094 :PROTO "udp">
 #<SERVICE :NAME "xtgui" :ALIASES NIL :PORT 4095 :PROTO "tcp">
 #<SERVICE :NAME "xtgui" :ALIASES NIL :PORT 4095 :PROTO "udp">
 #<SERVICE :NAME "bre" :ALIASES NIL :PORT 4096 :PROTO "tcp">
 #<SERVICE :NAME "bre" :ALIASES NIL :PORT 4096 :PROTO "udp">
 #<SERVICE :NAME "patrolview" :ALIASES NIL :PORT 4097 :PROTO "tcp">
 #<SERVICE :NAME "patrolview" :ALIASES NIL :PORT 4097 :PROTO "udp">
 #<SERVICE :NAME "drmsfsd" :ALIASES NIL :PORT 4098 :PROTO "tcp">
 #<SERVICE :NAME "drmsfsd" :ALIASES NIL :PORT 4098 :PROTO "udp">
 #<SERVICE :NAME "dpcp" :ALIASES NIL :PORT 4099 :PROTO "tcp">
 #<SERVICE :NAME "dpcp" :ALIASES NIL :PORT 4099 :PROTO "udp">
 #<SERVICE :NAME "igo-incognito" :ALIASES NIL :PORT 4100 :PROTO "tcp">
 #<SERVICE :NAME "igo-incognito" :ALIASES NIL :PORT 4100 :PROTO "udp">
 #<SERVICE :NAME "brlp-0" :ALIASES NIL :PORT 4101 :PROTO "tcp">
 #<SERVICE :NAME "brlp-0" :ALIASES NIL :PORT 4101 :PROTO "udp">
 #<SERVICE :NAME "brlp-1" :ALIASES NIL :PORT 4102 :PROTO "tcp">
 #<SERVICE :NAME "brlp-1" :ALIASES NIL :PORT 4102 :PROTO "udp">
 #<SERVICE :NAME "brlp-2" :ALIASES NIL :PORT 4103 :PROTO "tcp">
 #<SERVICE :NAME "brlp-2" :ALIASES NIL :PORT 4103 :PROTO "udp">
 #<SERVICE :NAME "brlp-3" :ALIASES NIL :PORT 4104 :PROTO "tcp">
 #<SERVICE :NAME "brlp-3" :ALIASES NIL :PORT 4104 :PROTO "udp">
 #<SERVICE :NAME "shofar" :ALIASES NIL :PORT 4105 :PROTO "tcp">
 #<SERVICE :NAME "shofar" :ALIASES NIL :PORT 4105 :PROTO "udp">
 #<SERVICE :NAME "synchronite" :ALIASES NIL :PORT 4106 :PROTO "tcp">
 #<SERVICE :NAME "synchronite" :ALIASES NIL :PORT 4106 :PROTO "udp">
 #<SERVICE :NAME "j-ac" :ALIASES NIL :PORT 4107 :PROTO "tcp">
 #<SERVICE :NAME "j-ac" :ALIASES NIL :PORT 4107 :PROTO "udp">
 #<SERVICE :NAME "accel" :ALIASES NIL :PORT 4108 :PROTO "tcp">
 #<SERVICE :NAME "accel" :ALIASES NIL :PORT 4108 :PROTO "udp">
 #<SERVICE :NAME "izm" :ALIASES NIL :PORT 4109 :PROTO "tcp">
 #<SERVICE :NAME "izm" :ALIASES NIL :PORT 4109 :PROTO "udp">
 #<SERVICE :NAME "g2tag" :ALIASES NIL :PORT 4110 :PROTO "tcp">
 #<SERVICE :NAME "g2tag" :ALIASES NIL :PORT 4110 :PROTO "udp">
 #<SERVICE :NAME "xgrid" :ALIASES NIL :PORT 4111 :PROTO "tcp">
 #<SERVICE :NAME "xgrid" :ALIASES NIL :PORT 4111 :PROTO "udp">
 #<SERVICE :NAME "apple-vpns-rp" :ALIASES NIL :PORT 4112 :PROTO "tcp">
 #<SERVICE :NAME "apple-vpns-rp" :ALIASES NIL :PORT 4112 :PROTO "udp">
 #<SERVICE :NAME "aipn-reg" :ALIASES NIL :PORT 4113 :PROTO "tcp">
 #<SERVICE :NAME "aipn-reg" :ALIASES NIL :PORT 4113 :PROTO "udp">
 #<SERVICE :NAME "jomamqmonitor" :ALIASES NIL :PORT 4114 :PROTO "tcp">
 #<SERVICE :NAME "jomamqmonitor" :ALIASES NIL :PORT 4114 :PROTO "udp">
 #<SERVICE :NAME "cds" :ALIASES NIL :PORT 4115 :PROTO "tcp">
 #<SERVICE :NAME "cds" :ALIASES NIL :PORT 4115 :PROTO "udp">
 #<SERVICE :NAME "smartcard-tls" :ALIASES NIL :PORT 4116 :PROTO "tcp">
 #<SERVICE :NAME "smartcard-tls" :ALIASES NIL :PORT 4116 :PROTO "udp">
 #<SERVICE :NAME "hillrserv" :ALIASES NIL :PORT 4117 :PROTO "tcp">
 #<SERVICE :NAME "hillrserv" :ALIASES NIL :PORT 4117 :PROTO "udp">
 #<SERVICE :NAME "netscript" :ALIASES NIL :PORT 4118 :PROTO "tcp">
 #<SERVICE :NAME "netscript" :ALIASES NIL :PORT 4118 :PROTO "udp">
 #<SERVICE :NAME "assuria-slm" :ALIASES NIL :PORT 4119 :PROTO "tcp">
 #<SERVICE :NAME "assuria-slm" :ALIASES NIL :PORT 4119 :PROTO "udp">
 #<SERVICE :NAME "e-builder" :ALIASES NIL :PORT 4121 :PROTO "tcp">
 #<SERVICE :NAME "e-builder" :ALIASES NIL :PORT 4121 :PROTO "udp">
 #<SERVICE :NAME "fprams" :ALIASES NIL :PORT 4122 :PROTO "tcp">
 #<SERVICE :NAME "fprams" :ALIASES NIL :PORT 4122 :PROTO "udp">
 #<SERVICE :NAME "z-wave" :ALIASES NIL :PORT 4123 :PROTO "tcp">
 #<SERVICE :NAME "z-wave" :ALIASES NIL :PORT 4123 :PROTO "udp">
 #<SERVICE :NAME "tigv2" :ALIASES NIL :PORT 4124 :PROTO "tcp">
 #<SERVICE :NAME "tigv2" :ALIASES NIL :PORT 4124 :PROTO "udp">
 #<SERVICE :NAME "opsview-envoy" :ALIASES NIL :PORT 4125 :PROTO "tcp">
 #<SERVICE :NAME "opsview-envoy" :ALIASES NIL :PORT 4125 :PROTO "udp">
 #<SERVICE :NAME "ddrepl" :ALIASES NIL :PORT 4126 :PROTO "tcp">
 #<SERVICE :NAME "ddrepl" :ALIASES NIL :PORT 4126 :PROTO "udp">
 #<SERVICE :NAME "unikeypro" :ALIASES NIL :PORT 4127 :PROTO "tcp">
 #<SERVICE :NAME "unikeypro" :ALIASES NIL :PORT 4127 :PROTO "udp">
 #<SERVICE :NAME "nufw" :ALIASES NIL :PORT 4128 :PROTO "tcp">
 #<SERVICE :NAME "nufw" :ALIASES NIL :PORT 4128 :PROTO "udp">
 #<SERVICE :NAME "nuauth" :ALIASES NIL :PORT 4129 :PROTO "tcp">
 #<SERVICE :NAME "nuauth" :ALIASES NIL :PORT 4129 :PROTO "udp">
 #<SERVICE :NAME "fronet" :ALIASES NIL :PORT 4130 :PROTO "tcp">
 #<SERVICE :NAME "fronet" :ALIASES NIL :PORT 4130 :PROTO "udp">
 #<SERVICE :NAME "stars" :ALIASES NIL :PORT 4131 :PROTO "tcp">
 #<SERVICE :NAME "stars" :ALIASES NIL :PORT 4131 :PROTO "udp">
 #<SERVICE :NAME "nuts_dem" :ALIASES ("nuts-dem") :PORT 4132 :PROTO "tcp">
 #<SERVICE :NAME "nuts_dem" :ALIASES ("nuts-dem") :PORT 4132 :PROTO "udp">
 #<SERVICE :NAME "nuts_bootp" :ALIASES ("nuts-bootp") :PORT 4133 :PROTO "tcp">
 #<SERVICE :NAME "nuts_bootp" :ALIASES ("nuts-bootp") :PORT 4133 :PROTO "udp">
 #<SERVICE :NAME "nifty-hmi" :ALIASES NIL :PORT 4134 :PROTO "tcp">
 #<SERVICE :NAME "nifty-hmi" :ALIASES NIL :PORT 4134 :PROTO "udp">
 #<SERVICE :NAME "cl-db-attach" :ALIASES NIL :PORT 4135 :PROTO "tcp">
 #<SERVICE :NAME "cl-db-attach" :ALIASES NIL :PORT 4135 :PROTO "udp">
 #<SERVICE :NAME "cl-db-request" :ALIASES NIL :PORT 4136 :PROTO "tcp">
 #<SERVICE :NAME "cl-db-request" :ALIASES NIL :PORT 4136 :PROTO "udp">
 #<SERVICE :NAME "cl-db-remote" :ALIASES NIL :PORT 4137 :PROTO "tcp">
 #<SERVICE :NAME "cl-db-remote" :ALIASES NIL :PORT 4137 :PROTO "udp">
 #<SERVICE :NAME "nettest" :ALIASES NIL :PORT 4138 :PROTO "tcp">
 #<SERVICE :NAME "nettest" :ALIASES NIL :PORT 4138 :PROTO "udp">
 #<SERVICE :NAME "thrtx" :ALIASES NIL :PORT 4139 :PROTO "tcp">
 #<SERVICE :NAME "thrtx" :ALIASES NIL :PORT 4139 :PROTO "udp">
 #<SERVICE :NAME "cedros_fds" :ALIASES ("cedros-fds") :PORT 4140 :PROTO "tcp">
 #<SERVICE :NAME "cedros_fds" :ALIASES ("cedros-fds") :PORT 4140 :PROTO "udp">
 #<SERVICE :NAME "oirtgsvc" :ALIASES NIL :PORT 4141 :PROTO "tcp">
 #<SERVICE :NAME "oirtgsvc" :ALIASES NIL :PORT 4141 :PROTO "udp">
 #<SERVICE :NAME "oidocsvc" :ALIASES NIL :PORT 4142 :PROTO "tcp">
 #<SERVICE :NAME "oidocsvc" :ALIASES NIL :PORT 4142 :PROTO "udp">
 #<SERVICE :NAME "oidsr" :ALIASES NIL :PORT 4143 :PROTO "tcp">
 #<SERVICE :NAME "oidsr" :ALIASES NIL :PORT 4143 :PROTO "udp">
 #<SERVICE :NAME "vvr-control" :ALIASES NIL :PORT 4145 :PROTO "tcp">
 #<SERVICE :NAME "vvr-control" :ALIASES NIL :PORT 4145 :PROTO "udp">
 #<SERVICE :NAME "tgcconnect" :ALIASES NIL :PORT 4146 :PROTO "tcp">
 #<SERVICE :NAME "tgcconnect" :ALIASES NIL :PORT 4146 :PROTO "udp">
 #<SERVICE :NAME "vrxpservman" :ALIASES NIL :PORT 4147 :PROTO "tcp">
 #<SERVICE :NAME "vrxpservman" :ALIASES NIL :PORT 4147 :PROTO "udp">
 #<SERVICE :NAME "hhb-handheld" :ALIASES NIL :PORT 4148 :PROTO "tcp">
 #<SERVICE :NAME "hhb-handheld" :ALIASES NIL :PORT 4148 :PROTO "udp">
 #<SERVICE :NAME "agslb" :ALIASES NIL :PORT 4149 :PROTO "tcp">
 #<SERVICE :NAME "agslb" :ALIASES NIL :PORT 4149 :PROTO "udp">
 #<SERVICE :NAME "PowerAlert-nsa" :ALIASES NIL :PORT 4150 :PROTO "tcp">
 #<SERVICE :NAME "PowerAlert-nsa" :ALIASES NIL :PORT 4150 :PROTO "udp">
 #<SERVICE :NAME "menandmice_noh" :ALIASES ("menandmice-noh") :PORT 4151
   :PROTO "tcp">
 #<SERVICE :NAME "menandmice_noh" :ALIASES ("menandmice-noh") :PORT 4151
   :PROTO "udp">
 #<SERVICE :NAME "idig_mux" :ALIASES ("idig-mux") :PORT 4152 :PROTO "tcp">
 #<SERVICE :NAME "idig_mux" :ALIASES ("idig-mux") :PORT 4152 :PROTO "udp">
 #<SERVICE :NAME "mbl-battd" :ALIASES NIL :PORT 4153 :PROTO "tcp">
 #<SERVICE :NAME "mbl-battd" :ALIASES NIL :PORT 4153 :PROTO "udp">
 #<SERVICE :NAME "atlinks" :ALIASES NIL :PORT 4154 :PROTO "tcp">
 #<SERVICE :NAME "atlinks" :ALIASES NIL :PORT 4154 :PROTO "udp">
 #<SERVICE :NAME "bzr" :ALIASES NIL :PORT 4155 :PROTO "tcp">
 #<SERVICE :NAME "bzr" :ALIASES NIL :PORT 4155 :PROTO "udp">
 #<SERVICE :NAME "stat-results" :ALIASES NIL :PORT 4156 :PROTO "tcp">
 #<SERVICE :NAME "stat-results" :ALIASES NIL :PORT 4156 :PROTO "udp">
 #<SERVICE :NAME "stat-scanner" :ALIASES NIL :PORT 4157 :PROTO "tcp">
 #<SERVICE :NAME "stat-scanner" :ALIASES NIL :PORT 4157 :PROTO "udp">
 #<SERVICE :NAME "stat-cc" :ALIASES NIL :PORT 4158 :PROTO "tcp">
 #<SERVICE :NAME "stat-cc" :ALIASES NIL :PORT 4158 :PROTO "udp">
 #<SERVICE :NAME "nss" :ALIASES NIL :PORT 4159 :PROTO "tcp">
 #<SERVICE :NAME "nss" :ALIASES NIL :PORT 4159 :PROTO "udp">
 #<SERVICE :NAME "jini-discovery" :ALIASES NIL :PORT 4160 :PROTO "tcp">
 #<SERVICE :NAME "jini-discovery" :ALIASES NIL :PORT 4160 :PROTO "udp">
 #<SERVICE :NAME "omscontact" :ALIASES NIL :PORT 4161 :PROTO "tcp">
 #<SERVICE :NAME "omscontact" :ALIASES NIL :PORT 4161 :PROTO "udp">
 #<SERVICE :NAME "omstopology" :ALIASES NIL :PORT 4162 :PROTO "tcp">
 #<SERVICE :NAME "omstopology" :ALIASES NIL :PORT 4162 :PROTO "udp">
 #<SERVICE :NAME "silverpeakpeer" :ALIASES NIL :PORT 4163 :PROTO "tcp">
 #<SERVICE :NAME "silverpeakpeer" :ALIASES NIL :PORT 4163 :PROTO "udp">
 #<SERVICE :NAME "silverpeakcomm" :ALIASES NIL :PORT 4164 :PROTO "tcp">
 #<SERVICE :NAME "silverpeakcomm" :ALIASES NIL :PORT 4164 :PROTO "udp">
 #<SERVICE :NAME "altcp" :ALIASES NIL :PORT 4165 :PROTO "tcp">
 #<SERVICE :NAME "altcp" :ALIASES NIL :PORT 4165 :PROTO "udp">
 #<SERVICE :NAME "joost" :ALIASES NIL :PORT 4166 :PROTO "tcp">
 #<SERVICE :NAME "joost" :ALIASES NIL :PORT 4166 :PROTO "udp">
 #<SERVICE :NAME "ddgn" :ALIASES NIL :PORT 4167 :PROTO "tcp">
 #<SERVICE :NAME "ddgn" :ALIASES NIL :PORT 4167 :PROTO "udp">
 #<SERVICE :NAME "pslicser" :ALIASES NIL :PORT 4168 :PROTO "tcp">
 #<SERVICE :NAME "pslicser" :ALIASES NIL :PORT 4168 :PROTO "udp">
 #<SERVICE :NAME "iadt" :ALIASES NIL :PORT 4169 :PROTO "tcp">
 #<SERVICE :NAME "iadt-disc" :ALIASES NIL :PORT 4169 :PROTO "udp">
 #<SERVICE :NAME "d-cinema-csp" :ALIASES NIL :PORT 4170 :PROTO "tcp">
 #<SERVICE :NAME "ml-svnet" :ALIASES NIL :PORT 4171 :PROTO "tcp">
 #<SERVICE :NAME "pcoip" :ALIASES NIL :PORT 4172 :PROTO "tcp">
 #<SERVICE :NAME "pcoip" :ALIASES NIL :PORT 4172 :PROTO "udp">
 #<SERVICE :NAME "mma-discovery" :ALIASES NIL :PORT 4173 :PROTO "udp">
 #<SERVICE :NAME "smcluster" :ALIASES NIL :PORT 4174 :PROTO "tcp">
 #<SERVICE :NAME "sm-disc" :ALIASES NIL :PORT 4174 :PROTO "udp">
 #<SERVICE :NAME "bccp" :ALIASES NIL :PORT 4175 :PROTO "tcp">
 #<SERVICE :NAME "tl-ipcproxy" :ALIASES NIL :PORT 4176 :PROTO "tcp">
 #<SERVICE :NAME "wello" :ALIASES NIL :PORT 4177 :PROTO "tcp">
 #<SERVICE :NAME "wello" :ALIASES NIL :PORT 4177 :PROTO "udp">
 #<SERVICE :NAME "storman" :ALIASES NIL :PORT 4178 :PROTO "tcp">
 #<SERVICE :NAME "storman" :ALIASES NIL :PORT 4178 :PROTO "udp">
 #<SERVICE :NAME "MaxumSP" :ALIASES NIL :PORT 4179 :PROTO "tcp">
 #<SERVICE :NAME "MaxumSP" :ALIASES NIL :PORT 4179 :PROTO "udp">
 #<SERVICE :NAME "httpx" :ALIASES NIL :PORT 4180 :PROTO "tcp">
 #<SERVICE :NAME "httpx" :ALIASES NIL :PORT 4180 :PROTO "udp">
 #<SERVICE :NAME "macbak" :ALIASES NIL :PORT 4181 :PROTO "tcp">
 #<SERVICE :NAME "macbak" :ALIASES NIL :PORT 4181 :PROTO "udp">
 #<SERVICE :NAME "pcptcpservice" :ALIASES NIL :PORT 4182 :PROTO "tcp">
 #<SERVICE :NAME "pcptcpservice" :ALIASES NIL :PORT 4182 :PROTO "udp">
 #<SERVICE :NAME "cyborgnet" :ALIASES NIL :PORT 4183 :PROTO "tcp">
 #<SERVICE :NAME "cyborgnet" :ALIASES NIL :PORT 4183 :PROTO "udp">
 #<SERVICE :NAME "universe_suite" :ALIASES ("universe-suite") :PORT 4184
   :PROTO "tcp">
 #<SERVICE :NAME "universe_suite" :ALIASES ("universe-suite") :PORT 4184
   :PROTO "udp">
 #<SERVICE :NAME "wcpp" :ALIASES NIL :PORT 4185 :PROTO "tcp">
 #<SERVICE :NAME "wcpp" :ALIASES NIL :PORT 4185 :PROTO "udp">
 #<SERVICE :NAME "boxbackupstore" :ALIASES NIL :PORT 4186 :PROTO "tcp">
 #<SERVICE :NAME "csc_proxy" :ALIASES ("csc-proxy") :PORT 4187 :PROTO "tcp">
 #<SERVICE :NAME "vatata" :ALIASES NIL :PORT 4188 :PROTO "tcp">
 #<SERVICE :NAME "vatata" :ALIASES NIL :PORT 4188 :PROTO "udp">
 #<SERVICE :NAME "pcep" :ALIASES NIL :PORT 4189 :PROTO "tcp">
 #<SERVICE :NAME "sieve" :ALIASES NIL :PORT 4190 :PROTO "tcp">
 #<SERVICE :NAME "dsmipv6" :ALIASES NIL :PORT 4191 :PROTO "udp">
 #<SERVICE :NAME "azeti" :ALIASES NIL :PORT 4192 :PROTO "tcp">
 #<SERVICE :NAME "azeti-bd" :ALIASES NIL :PORT 4192 :PROTO "udp">
 #<SERVICE :NAME "pvxplusio" :ALIASES NIL :PORT 4193 :PROTO "tcp">
 #<SERVICE :NAME "eims-admin" :ALIASES NIL :PORT 4199 :PROTO "tcp">
 #<SERVICE :NAME "eims-admin" :ALIASES NIL :PORT 4199 :PROTO "udp">
 #<SERVICE :NAME "corelccam" :ALIASES NIL :PORT 4300 :PROTO "tcp">
 #<SERVICE :NAME "corelccam" :ALIASES NIL :PORT 4300 :PROTO "udp">
 #<SERVICE :NAME "d-data" :ALIASES NIL :PORT 4301 :PROTO "tcp">
 #<SERVICE :NAME "d-data" :ALIASES NIL :PORT 4301 :PROTO "udp">
 #<SERVICE :NAME "d-data-control" :ALIASES NIL :PORT 4302 :PROTO "tcp">
 #<SERVICE :NAME "d-data-control" :ALIASES NIL :PORT 4302 :PROTO "udp">
 #<SERVICE :NAME "srcp" :ALIASES NIL :PORT 4303 :PROTO "tcp">
 #<SERVICE :NAME "srcp" :ALIASES NIL :PORT 4303 :PROTO "udp">
 #<SERVICE :NAME "owserver" :ALIASES NIL :PORT 4304 :PROTO "tcp">
 #<SERVICE :NAME "owserver" :ALIASES NIL :PORT 4304 :PROTO "udp">
 #<SERVICE :NAME "batman" :ALIASES NIL :PORT 4305 :PROTO "tcp">
 #<SERVICE :NAME "batman" :ALIASES NIL :PORT 4305 :PROTO "udp">
 #<SERVICE :NAME "pinghgl" :ALIASES NIL :PORT 4306 :PROTO "tcp">
 #<SERVICE :NAME "pinghgl" :ALIASES NIL :PORT 4306 :PROTO "udp">
 #<SERVICE :NAME "visicron-vs" :ALIASES NIL :PORT 4307 :PROTO "tcp">
 #<SERVICE :NAME "visicron-vs" :ALIASES NIL :PORT 4307 :PROTO "udp">
 #<SERVICE :NAME "compx-lockview" :ALIASES NIL :PORT 4308 :PROTO "tcp">
 #<SERVICE :NAME "compx-lockview" :ALIASES NIL :PORT 4308 :PROTO "udp">
 #<SERVICE :NAME "dserver" :ALIASES NIL :PORT 4309 :PROTO "tcp">
 #<SERVICE :NAME "dserver" :ALIASES NIL :PORT 4309 :PROTO "udp">
 #<SERVICE :NAME "mirrtex" :ALIASES NIL :PORT 4310 :PROTO "tcp">
 #<SERVICE :NAME "mirrtex" :ALIASES NIL :PORT 4310 :PROTO "udp">
 #<SERVICE :NAME "p6ssmc" :ALIASES NIL :PORT 4311 :PROTO "tcp">
 #<SERVICE :NAME "pscl-mgt" :ALIASES NIL :PORT 4312 :PROTO "tcp">
 #<SERVICE :NAME "perrla" :ALIASES NIL :PORT 4313 :PROTO "tcp">
 #<SERVICE :NAME "choiceview-agt" :ALIASES NIL :PORT 4314 :PROTO "tcp">
 #<SERVICE :NAME "choiceview-clt" :ALIASES NIL :PORT 4316 :PROTO "tcp">
 #<SERVICE :NAME "fdt-rcatp" :ALIASES NIL :PORT 4320 :PROTO "tcp">
 #<SERVICE :NAME "fdt-rcatp" :ALIASES NIL :PORT 4320 :PROTO "udp">
 #<SERVICE :NAME "trim-event" :ALIASES NIL :PORT 4322 :PROTO "tcp">
 #<SERVICE :NAME "trim-event" :ALIASES NIL :PORT 4322 :PROTO "udp">
 #<SERVICE :NAME "trim-ice" :ALIASES NIL :PORT 4323 :PROTO "tcp">
 #<SERVICE :NAME "trim-ice" :ALIASES NIL :PORT 4323 :PROTO "udp">
 #<SERVICE :NAME "geognosisman" :ALIASES NIL :PORT 4325 :PROTO "tcp">
 #<SERVICE :NAME "geognosisman" :ALIASES NIL :PORT 4325 :PROTO "udp">
 #<SERVICE :NAME "geognosis" :ALIASES NIL :PORT 4326 :PROTO "tcp">
 #<SERVICE :NAME "geognosis" :ALIASES NIL :PORT 4326 :PROTO "udp">
 #<SERVICE :NAME "jaxer-web" :ALIASES NIL :PORT 4327 :PROTO "tcp">
 #<SERVICE :NAME "jaxer-web" :ALIASES NIL :PORT 4327 :PROTO "udp">
 #<SERVICE :NAME "jaxer-manager" :ALIASES NIL :PORT 4328 :PROTO "tcp">
 #<SERVICE :NAME "jaxer-manager" :ALIASES NIL :PORT 4328 :PROTO "udp">
 #<SERVICE :NAME "publiqare-sync" :ALIASES NIL :PORT 4329 :PROTO "tcp">
 #<SERVICE :NAME "dey-sapi" :ALIASES NIL :PORT 4330 :PROTO "tcp">
 #<SERVICE :NAME "ktickets-rest" :ALIASES NIL :PORT 4331 :PROTO "tcp">
 #<SERVICE :NAME "ahsp" :ALIASES NIL :PORT 4333 :PROTO "tcp">
 #<SERVICE :NAME "ahsp" :ALIASES NIL :PORT 4333 :PROTO "udp">
 #<SERVICE :NAME "ahsp" :ALIASES NIL :PORT 4333 :PROTO "sctp">
 #<SERVICE :NAME "netconf-ch-ssh" :ALIASES NIL :PORT 4334 :PROTO "tcp">
 #<SERVICE :NAME "netconf-ch-tls" :ALIASES NIL :PORT 4335 :PROTO "tcp">
 #<SERVICE :NAME "restconf-ch-tls" :ALIASES NIL :PORT 4336 :PROTO "tcp">
 #<SERVICE :NAME "gaia" :ALIASES NIL :PORT 4340 :PROTO "tcp">
 #<SERVICE :NAME "gaia" :ALIASES NIL :PORT 4340 :PROTO "udp">
 #<SERVICE :NAME "lisp-data" :ALIASES NIL :PORT 4341 :PROTO "tcp">
 #<SERVICE :NAME "lisp-data" :ALIASES NIL :PORT 4341 :PROTO "udp">
 #<SERVICE :NAME "lisp-cons" :ALIASES NIL :PORT 4342 :PROTO "tcp">
 #<SERVICE :NAME "lisp-control" :ALIASES NIL :PORT 4342 :PROTO "udp">
 #<SERVICE :NAME "unicall" :ALIASES NIL :PORT 4343 :PROTO "tcp">
 #<SERVICE :NAME "unicall" :ALIASES NIL :PORT 4343 :PROTO "udp">
 #<SERVICE :NAME "vinainstall" :ALIASES NIL :PORT 4344 :PROTO "tcp">
 #<SERVICE :NAME "vinainstall" :ALIASES NIL :PORT 4344 :PROTO "udp">
 #<SERVICE :NAME "m4-network-as" :ALIASES NIL :PORT 4345 :PROTO "tcp">
 #<SERVICE :NAME "m4-network-as" :ALIASES NIL :PORT 4345 :PROTO "udp">
 #<SERVICE :NAME "elanlm" :ALIASES NIL :PORT 4346 :PROTO "tcp">
 #<SERVICE :NAME "elanlm" :ALIASES NIL :PORT 4346 :PROTO "udp">
 #<SERVICE :NAME "lansurveyor" :ALIASES NIL :PORT 4347 :PROTO "tcp">
 #<SERVICE :NAME "lansurveyor" :ALIASES NIL :PORT 4347 :PROTO "udp">
 #<SERVICE :NAME "itose" :ALIASES NIL :PORT 4348 :PROTO "tcp">
 #<SERVICE :NAME "itose" :ALIASES NIL :PORT 4348 :PROTO "udp">
 #<SERVICE :NAME "fsportmap" :ALIASES NIL :PORT 4349 :PROTO "tcp">
 #<SERVICE :NAME "fsportmap" :ALIASES NIL :PORT 4349 :PROTO "udp">
 #<SERVICE :NAME "net-device" :ALIASES NIL :PORT 4350 :PROTO "tcp">
 #<SERVICE :NAME "net-device" :ALIASES NIL :PORT 4350 :PROTO "udp">
 #<SERVICE :NAME "plcy-net-svcs" :ALIASES NIL :PORT 4351 :PROTO "tcp">
 #<SERVICE :NAME "plcy-net-svcs" :ALIASES NIL :PORT 4351 :PROTO "udp">
 #<SERVICE :NAME "pjlink" :ALIASES NIL :PORT 4352 :PROTO "tcp">
 #<SERVICE :NAME "pjlink" :ALIASES NIL :PORT 4352 :PROTO "udp">
 #<SERVICE :NAME "f5-iquery" :ALIASES NIL :PORT 4353 :PROTO "tcp">
 #<SERVICE :NAME "f5-iquery" :ALIASES NIL :PORT 4353 :PROTO "udp">
 #<SERVICE :NAME "qsnet-trans" :ALIASES NIL :PORT 4354 :PROTO "tcp">
 #<SERVICE :NAME "qsnet-trans" :ALIASES NIL :PORT 4354 :PROTO "udp">
 #<SERVICE :NAME "qsnet-workst" :ALIASES NIL :PORT 4355 :PROTO "tcp">
 #<SERVICE :NAME "qsnet-workst" :ALIASES NIL :PORT 4355 :PROTO "udp">
 #<SERVICE :NAME "qsnet-assist" :ALIASES NIL :PORT 4356 :PROTO "tcp">
 #<SERVICE :NAME "qsnet-assist" :ALIASES NIL :PORT 4356 :PROTO "udp">
 #<SERVICE :NAME "qsnet-cond" :ALIASES NIL :PORT 4357 :PROTO "tcp">
 #<SERVICE :NAME "qsnet-cond" :ALIASES NIL :PORT 4357 :PROTO "udp">
 #<SERVICE :NAME "qsnet-nucl" :ALIASES NIL :PORT 4358 :PROTO "tcp">
 #<SERVICE :NAME "qsnet-nucl" :ALIASES NIL :PORT 4358 :PROTO "udp">
 #<SERVICE :NAME "omabcastltkm" :ALIASES NIL :PORT 4359 :PROTO "tcp">
 #<SERVICE :NAME "omabcastltkm" :ALIASES NIL :PORT 4359 :PROTO "udp">
 #<SERVICE :NAME "matrix_vnet" :ALIASES ("matrix-vnet") :PORT 4360
   :PROTO "tcp">
 #<SERVICE :NAME "nacnl" :ALIASES NIL :PORT 4361 :PROTO "udp">
 #<SERVICE :NAME "afore-vdp-disc" :ALIASES NIL :PORT 4362 :PROTO "udp">
 #<SERVICE :NAME "shadowstream" :ALIASES NIL :PORT 4366 :PROTO "udp">
 #<SERVICE :NAME "wxbrief" :ALIASES NIL :PORT 4368 :PROTO "tcp">
 #<SERVICE :NAME "wxbrief" :ALIASES NIL :PORT 4368 :PROTO "udp">
 #<SERVICE :NAME "epmd" :ALIASES NIL :PORT 4369 :PROTO "tcp">
 #<SERVICE :NAME "epmd" :ALIASES NIL :PORT 4369 :PROTO "udp">
 #<SERVICE :NAME "elpro_tunnel" :ALIASES ("elpro-tunnel") :PORT 4370
   :PROTO "tcp">
 #<SERVICE :NAME "elpro_tunnel" :ALIASES ("elpro-tunnel") :PORT 4370
   :PROTO "udp">
 #<SERVICE :NAME "l2c-control" :ALIASES NIL :PORT 4371 :PROTO "tcp">
 #<SERVICE :NAME "l2c-disc" :ALIASES NIL :PORT 4371 :PROTO "udp">
 #<SERVICE :NAME "l2c-data" :ALIASES NIL :PORT 4372 :PROTO "tcp">
 #<SERVICE :NAME "l2c-data" :ALIASES NIL :PORT 4372 :PROTO "udp">
 #<SERVICE :NAME "remctl" :ALIASES NIL :PORT 4373 :PROTO "tcp">
 #<SERVICE :NAME "remctl" :ALIASES NIL :PORT 4373 :PROTO "udp">
 #<SERVICE :NAME "psi-ptt" :ALIASES NIL :PORT 4374 :PROTO "tcp">
 #<SERVICE :NAME "tolteces" :ALIASES NIL :PORT 4375 :PROTO "tcp">
 #<SERVICE :NAME "tolteces" :ALIASES NIL :PORT 4375 :PROTO "udp">
 #<SERVICE :NAME "bip" :ALIASES NIL :PORT 4376 :PROTO "tcp">
 #<SERVICE :NAME "bip" :ALIASES NIL :PORT 4376 :PROTO "udp">
 #<SERVICE :NAME "cp-spxsvr" :ALIASES NIL :PORT 4377 :PROTO "tcp">
 #<SERVICE :NAME "cp-spxsvr" :ALIASES NIL :PORT 4377 :PROTO "udp">
 #<SERVICE :NAME "cp-spxdpy" :ALIASES NIL :PORT 4378 :PROTO "tcp">
 #<SERVICE :NAME "cp-spxdpy" :ALIASES NIL :PORT 4378 :PROTO "udp">
 #<SERVICE :NAME "ctdb" :ALIASES NIL :PORT 4379 :PROTO "tcp">
 #<SERVICE :NAME "ctdb" :ALIASES NIL :PORT 4379 :PROTO "udp">
 #<SERVICE :NAME "xandros-cms" :ALIASES NIL :PORT 4389 :PROTO "tcp">
 #<SERVICE :NAME "xandros-cms" :ALIASES NIL :PORT 4389 :PROTO "udp">
 #<SERVICE :NAME "wiegand" :ALIASES NIL :PORT 4390 :PROTO "tcp">
 #<SERVICE :NAME "wiegand" :ALIASES NIL :PORT 4390 :PROTO "udp">
 #<SERVICE :NAME "apwi-imserver" :ALIASES NIL :PORT 4391 :PROTO "tcp">
 #<SERVICE :NAME "apwi-rxserver" :ALIASES NIL :PORT 4392 :PROTO "tcp">
 #<SERVICE :NAME "apwi-rxspooler" :ALIASES NIL :PORT 4393 :PROTO "tcp">
 #<SERVICE :NAME "apwi-disc" :ALIASES NIL :PORT 4394 :PROTO "udp">
 #<SERVICE :NAME "omnivisionesx" :ALIASES NIL :PORT 4395 :PROTO "tcp">
 #<SERVICE :NAME "omnivisionesx" :ALIASES NIL :PORT 4395 :PROTO "udp">
 #<SERVICE :NAME "fly" :ALIASES NIL :PORT 4396 :PROTO "tcp">
 #<SERVICE :NAME "ds-srv" :ALIASES NIL :PORT 4400 :PROTO "tcp">
 #<SERVICE :NAME "ds-srv" :ALIASES NIL :PORT 4400 :PROTO "udp">
 #<SERVICE :NAME "ds-srvr" :ALIASES NIL :PORT 4401 :PROTO "tcp">
 #<SERVICE :NAME "ds-srvr" :ALIASES NIL :PORT 4401 :PROTO "udp">
 #<SERVICE :NAME "ds-clnt" :ALIASES NIL :PORT 4402 :PROTO "tcp">
 #<SERVICE :NAME "ds-clnt" :ALIASES NIL :PORT 4402 :PROTO "udp">
 #<SERVICE :NAME "ds-user" :ALIASES NIL :PORT 4403 :PROTO "tcp">
 #<SERVICE :NAME "ds-user" :ALIASES NIL :PORT 4403 :PROTO "udp">
 #<SERVICE :NAME "ds-admin" :ALIASES NIL :PORT 4404 :PROTO "tcp">
 #<SERVICE :NAME "ds-admin" :ALIASES NIL :PORT 4404 :PROTO "udp">
 #<SERVICE :NAME "ds-mail" :ALIASES NIL :PORT 4405 :PROTO "tcp">
 #<SERVICE :NAME "ds-mail" :ALIASES NIL :PORT 4405 :PROTO "udp">
 #<SERVICE :NAME "ds-slp" :ALIASES NIL :PORT 4406 :PROTO "tcp">
 #<SERVICE :NAME "ds-slp" :ALIASES NIL :PORT 4406 :PROTO "udp">
 #<SERVICE :NAME "nacagent" :ALIASES NIL :PORT 4407 :PROTO "tcp">
 #<SERVICE :NAME "slscc" :ALIASES NIL :PORT 4408 :PROTO "tcp">
 #<SERVICE :NAME "netcabinet-com" :ALIASES NIL :PORT 4409 :PROTO "tcp">
 #<SERVICE :NAME "itwo-server" :ALIASES NIL :PORT 4410 :PROTO "tcp">
 #<SERVICE :NAME "found" :ALIASES NIL :PORT 4411 :PROTO "tcp">
 #<SERVICE :NAME "smallchat" :ALIASES NIL :PORT 4412 :PROTO "udp">
 #<SERVICE :NAME "avi-nms" :ALIASES NIL :PORT 4413 :PROTO "tcp">
 #<SERVICE :NAME "avi-nms-disc" :ALIASES NIL :PORT 4413 :PROTO "udp">
 #<SERVICE :NAME "updog" :ALIASES NIL :PORT 4414 :PROTO "tcp">
 #<SERVICE :NAME "brcd-vr-req" :ALIASES NIL :PORT 4415 :PROTO "tcp">
 #<SERVICE :NAME "pjj-player" :ALIASES NIL :PORT 4416 :PROTO "tcp">
 #<SERVICE :NAME "pjj-player-disc" :ALIASES NIL :PORT 4416 :PROTO "udp">
 #<SERVICE :NAME "workflowdir" :ALIASES NIL :PORT 4417 :PROTO "tcp">
 #<SERVICE :NAME "axysbridge" :ALIASES NIL :PORT 4418 :PROTO "udp">
 #<SERVICE :NAME "cbp" :ALIASES NIL :PORT 4419 :PROTO "tcp">
 #<SERVICE :NAME "nvm-express" :ALIASES NIL :PORT 4420 :PROTO "tcp">
 #<SERVICE :NAME "nvm-express" :ALIASES NIL :PORT 4420 :PROTO "udp">
 #<SERVICE :NAME "scaleft" :ALIASES NIL :PORT 4421 :PROTO "tcp">
 #<SERVICE :NAME "tsepisp" :ALIASES NIL :PORT 4422 :PROTO "tcp">
 #<SERVICE :NAME "thingkit" :ALIASES NIL :PORT 4423 :PROTO "tcp">
 #<SERVICE :NAME "netrockey6" :ALIASES NIL :PORT 4425 :PROTO "tcp">
 #<SERVICE :NAME "netrockey6" :ALIASES NIL :PORT 4425 :PROTO "udp">
 #<SERVICE :NAME "beacon-port-2" :ALIASES NIL :PORT 4426 :PROTO "tcp">
 #<SERVICE :NAME "beacon-port-2" :ALIASES NIL :PORT 4426 :PROTO "udp">
 #<SERVICE :NAME "drizzle" :ALIASES NIL :PORT 4427 :PROTO "tcp">
 #<SERVICE :NAME "omviserver" :ALIASES NIL :PORT 4428 :PROTO "tcp">
 #<SERVICE :NAME "omviagent" :ALIASES NIL :PORT 4429 :PROTO "tcp">
 #<SERVICE :NAME "sqlserver" :ALIASES NIL :PORT 4430 :PROTO "tcp">
 #<SERVICE :NAME "rsqlserver" :ALIASES NIL :PORT 4430 :PROTO "udp">
 #<SERVICE :NAME "wspipe" :ALIASES NIL :PORT 4431 :PROTO "tcp">
 #<SERVICE :NAME "l-acoustics" :ALIASES NIL :PORT 4432 :PROTO "tcp">
 #<SERVICE :NAME "l-acoustics" :ALIASES NIL :PORT 4432 :PROTO "udp">
 #<SERVICE :NAME "vop" :ALIASES NIL :PORT 4433 :PROTO "tcp">
 #<SERVICE :NAME "netblox" :ALIASES NIL :PORT 4441 :PROTO "udp">
 #<SERVICE :NAME "saris" :ALIASES NIL :PORT 4442 :PROTO "tcp">
 #<SERVICE :NAME "saris" :ALIASES NIL :PORT 4442 :PROTO "udp">
 #<SERVICE :NAME "pharos" :ALIASES NIL :PORT 4443 :PROTO "tcp">
 #<SERVICE :NAME "pharos" :ALIASES NIL :PORT 4443 :PROTO "udp">
 #<SERVICE :NAME "upnotifyp" :ALIASES NIL :PORT 4445 :PROTO "tcp">
 #<SERVICE :NAME "upnotifyp" :ALIASES NIL :PORT 4445 :PROTO "udp">
 #<SERVICE :NAME "n1-fwp" :ALIASES NIL :PORT 4446 :PROTO "tcp">
 #<SERVICE :NAME "n1-fwp" :ALIASES NIL :PORT 4446 :PROTO "udp">
 #<SERVICE :NAME "n1-rmgmt" :ALIASES NIL :PORT 4447 :PROTO "tcp">
 #<SERVICE :NAME "n1-rmgmt" :ALIASES NIL :PORT 4447 :PROTO "udp">
 #<SERVICE :NAME "asc-slmd" :ALIASES NIL :PORT 4448 :PROTO "tcp">
 #<SERVICE :NAME "asc-slmd" :ALIASES NIL :PORT 4448 :PROTO "udp">
 #<SERVICE :NAME "privatewire" :ALIASES NIL :PORT 4449 :PROTO "tcp">
 #<SERVICE :NAME "privatewire" :ALIASES NIL :PORT 4449 :PROTO "udp">
 #<SERVICE :NAME "camp" :ALIASES NIL :PORT 4450 :PROTO "tcp">
 #<SERVICE :NAME "camp" :ALIASES NIL :PORT 4450 :PROTO "udp">
 #<SERVICE :NAME "ctisystemmsg" :ALIASES NIL :PORT 4451 :PROTO "tcp">
 #<SERVICE :NAME "ctisystemmsg" :ALIASES NIL :PORT 4451 :PROTO "udp">
 #<SERVICE :NAME "ctiprogramload" :ALIASES NIL :PORT 4452 :PROTO "tcp">
 #<SERVICE :NAME "ctiprogramload" :ALIASES NIL :PORT 4452 :PROTO "udp">
 #<SERVICE :NAME "nssalertmgr" :ALIASES NIL :PORT 4453 :PROTO "tcp">
 #<SERVICE :NAME "nssalertmgr" :ALIASES NIL :PORT 4453 :PROTO "udp">
 #<SERVICE :NAME "nssagentmgr" :ALIASES NIL :PORT 4454 :PROTO "tcp">
 #<SERVICE :NAME "nssagentmgr" :ALIASES NIL :PORT 4454 :PROTO "udp">
 #<SERVICE :NAME "prchat-user" :ALIASES NIL :PORT 4455 :PROTO "tcp">
 #<SERVICE :NAME "prchat-user" :ALIASES NIL :PORT 4455 :PROTO "udp">
 #<SERVICE :NAME "prchat-server" :ALIASES NIL :PORT 4456 :PROTO "tcp">
 #<SERVICE :NAME "prchat-server" :ALIASES NIL :PORT 4456 :PROTO "udp">
 #<SERVICE :NAME "prRegister" :ALIASES NIL :PORT 4457 :PROTO "tcp">
 #<SERVICE :NAME "prRegister" :ALIASES NIL :PORT 4457 :PROTO "udp">
 #<SERVICE :NAME "mcp" :ALIASES NIL :PORT 4458 :PROTO "tcp">
 #<SERVICE :NAME "mcp" :ALIASES NIL :PORT 4458 :PROTO "udp">
 #<SERVICE :NAME "hpssmgmt" :ALIASES NIL :PORT 4484 :PROTO "tcp">
 #<SERVICE :NAME "hpssmgmt" :ALIASES NIL :PORT 4484 :PROTO "udp">
 #<SERVICE :NAME "assyst-dr" :ALIASES NIL :PORT 4485 :PROTO "tcp">
 #<SERVICE :NAME "icms" :ALIASES NIL :PORT 4486 :PROTO "tcp">
 #<SERVICE :NAME "icms" :ALIASES NIL :PORT 4486 :PROTO "udp">
 #<SERVICE :NAME "prex-tcp" :ALIASES NIL :PORT 4487 :PROTO "tcp">
 #<SERVICE :NAME "awacs-ice" :ALIASES NIL :PORT 4488 :PROTO "tcp">
 #<SERVICE :NAME "awacs-ice" :ALIASES NIL :PORT 4488 :PROTO "udp">
 #<SERVICE :NAME "ipsec-nat-t" :ALIASES NIL :PORT 4500 :PROTO "tcp">
 #<SERVICE :NAME "ipsec-nat-t" :ALIASES NIL :PORT 4500 :PROTO "udp">
 #<SERVICE :NAME "a25-fap-fgw" :ALIASES NIL :PORT 4502 :PROTO "sctp">
 #<SERVICE :NAME "armagetronad" :ALIASES NIL :PORT 4534 :PROTO "udp">
 #<SERVICE :NAME "ehs" :ALIASES NIL :PORT 4535 :PROTO "tcp">
 #<SERVICE :NAME "ehs" :ALIASES NIL :PORT 4535 :PROTO "udp">
 #<SERVICE :NAME "ehs-ssl" :ALIASES NIL :PORT 4536 :PROTO "tcp">
 #<SERVICE :NAME "ehs-ssl" :ALIASES NIL :PORT 4536 :PROTO "udp">
 #<SERVICE :NAME "wssauthsvc" :ALIASES NIL :PORT 4537 :PROTO "tcp">
 #<SERVICE :NAME "wssauthsvc" :ALIASES NIL :PORT 4537 :PROTO "udp">
 #<SERVICE :NAME "swx-gate" :ALIASES NIL :PORT 4538 :PROTO "tcp">
 #<SERVICE :NAME "swx-gate" :ALIASES NIL :PORT 4538 :PROTO "udp">
 #<SERVICE :NAME "worldscores" :ALIASES NIL :PORT 4545 :PROTO "tcp">
 #<SERVICE :NAME "worldscores" :ALIASES NIL :PORT 4545 :PROTO "udp">
 #<SERVICE :NAME "sf-lm" :ALIASES NIL :PORT 4546 :PROTO "tcp">
 #<SERVICE :NAME "sf-lm" :ALIASES NIL :PORT 4546 :PROTO "udp">
 #<SERVICE :NAME "lanner-lm" :ALIASES NIL :PORT 4547 :PROTO "tcp">
 #<SERVICE :NAME "lanner-lm" :ALIASES NIL :PORT 4547 :PROTO "udp">
 #<SERVICE :NAME "synchromesh" :ALIASES NIL :PORT 4548 :PROTO "tcp">
 #<SERVICE :NAME "synchromesh" :ALIASES NIL :PORT 4548 :PROTO "udp">
 #<SERVICE :NAME "aegate" :ALIASES NIL :PORT 4549 :PROTO "tcp">
 #<SERVICE :NAME "aegate" :ALIASES NIL :PORT 4549 :PROTO "udp">
 #<SERVICE :NAME "gds-adppiw-db" :ALIASES NIL :PORT 4550 :PROTO "tcp">
 #<SERVICE :NAME "gds-adppiw-db" :ALIASES NIL :PORT 4550 :PROTO "udp">
 #<SERVICE :NAME "ieee-mih" :ALIASES NIL :PORT 4551 :PROTO "tcp">
 #<SERVICE :NAME "ieee-mih" :ALIASES NIL :PORT 4551 :PROTO "udp">
 #<SERVICE :NAME "menandmice-mon" :ALIASES NIL :PORT 4552 :PROTO "tcp">
 #<SERVICE :NAME "menandmice-mon" :ALIASES NIL :PORT 4552 :PROTO "udp">
 #<SERVICE :NAME "icshostsvc" :ALIASES NIL :PORT 4553 :PROTO "tcp">
 #<SERVICE :NAME "msfrs" :ALIASES NIL :PORT 4554 :PROTO "tcp">
 #<SERVICE :NAME "msfrs" :ALIASES NIL :PORT 4554 :PROTO "udp">
 #<SERVICE :NAME "rsip" :ALIASES NIL :PORT 4555 :PROTO "tcp">
 #<SERVICE :NAME "rsip" :ALIASES NIL :PORT 4555 :PROTO "udp">
 #<SERVICE :NAME "dtn-bundle" :ALIASES NIL :PORT 4556 :PROTO "tcp">
 #<SERVICE :NAME "dtn-bundle" :ALIASES NIL :PORT 4556 :PROTO "udp">
 #<SERVICE :NAME "dtn-bundle" :ALIASES NIL :PORT 4556 :PROTO "dccp">
 #<SERVICE :NAME "mtcevrunqss" :ALIASES NIL :PORT 4557 :PROTO "udp">
 #<SERVICE :NAME "mtcevrunqman" :ALIASES NIL :PORT 4558 :PROTO "udp">
 #<SERVICE :NAME "hylafax" :ALIASES NIL :PORT 4559 :PROTO "udp">
 #<SERVICE :NAME "amahi-anywhere" :ALIASES NIL :PORT 4563 :PROTO "tcp">
 #<SERVICE :NAME "kwtc" :ALIASES NIL :PORT 4566 :PROTO "tcp">
 #<SERVICE :NAME "kwtc" :ALIASES NIL :PORT 4566 :PROTO "udp">
 #<SERVICE :NAME "tram" :ALIASES NIL :PORT 4567 :PROTO "tcp">
 #<SERVICE :NAME "tram" :ALIASES NIL :PORT 4567 :PROTO "udp">
 #<SERVICE :NAME "bmc-reporting" :ALIASES NIL :PORT 4568 :PROTO "tcp">
 #<SERVICE :NAME "bmc-reporting" :ALIASES NIL :PORT 4568 :PROTO "udp">
 #<SERVICE :NAME "iax" :ALIASES NIL :PORT 4569 :PROTO "tcp">
 #<SERVICE :NAME "iax" :ALIASES NIL :PORT 4569 :PROTO "udp">
 #<SERVICE :NAME "deploymentmap" :ALIASES NIL :PORT 4570 :PROTO "tcp">
 #<SERVICE :NAME "cardifftec-back" :ALIASES NIL :PORT 4573 :PROTO "tcp">
 #<SERVICE :NAME "rid" :ALIASES NIL :PORT 4590 :PROTO "tcp">
 #<SERVICE :NAME "l3t-at-an" :ALIASES NIL :PORT 4591 :PROTO "tcp">
 #<SERVICE :NAME "l3t-at-an" :ALIASES NIL :PORT 4591 :PROTO "udp">
 #<SERVICE :NAME "hrpd-ith-at-an" :ALIASES NIL :PORT 4592 :PROTO "udp">
 #<SERVICE :NAME "ipt-anri-anri" :ALIASES NIL :PORT 4593 :PROTO "tcp">
 #<SERVICE :NAME "ipt-anri-anri" :ALIASES NIL :PORT 4593 :PROTO "udp">
 #<SERVICE :NAME "ias-session" :ALIASES NIL :PORT 4594 :PROTO "tcp">
 #<SERVICE :NAME "ias-session" :ALIASES NIL :PORT 4594 :PROTO "udp">
 #<SERVICE :NAME "ias-paging" :ALIASES NIL :PORT 4595 :PROTO "tcp">
 #<SERVICE :NAME "ias-paging" :ALIASES NIL :PORT 4595 :PROTO "udp">
 #<SERVICE :NAME "ias-neighbor" :ALIASES NIL :PORT 4596 :PROTO "tcp">
 #<SERVICE :NAME "ias-neighbor" :ALIASES NIL :PORT 4596 :PROTO "udp">
 #<SERVICE :NAME "a21-an-1xbs" :ALIASES NIL :PORT 4597 :PROTO "tcp">
 #<SERVICE :NAME "a21-an-1xbs" :ALIASES NIL :PORT 4597 :PROTO "udp">
 #<SERVICE :NAME "a16-an-an" :ALIASES NIL :PORT 4598 :PROTO "tcp">
 #<SERVICE :NAME "a16-an-an" :ALIASES NIL :PORT 4598 :PROTO "udp">
 #<SERVICE :NAME "a17-an-an" :ALIASES NIL :PORT 4599 :PROTO "tcp">
 #<SERVICE :NAME "a17-an-an" :ALIASES NIL :PORT 4599 :PROTO "udp">
 #<SERVICE :NAME "piranha1" :ALIASES NIL :PORT 4600 :PROTO "tcp">
 #<SERVICE :NAME "piranha1" :ALIASES NIL :PORT 4600 :PROTO "udp">
 #<SERVICE :NAME "piranha2" :ALIASES NIL :PORT 4601 :PROTO "tcp">
 #<SERVICE :NAME "piranha2" :ALIASES NIL :PORT 4601 :PROTO "udp">
 #<SERVICE :NAME "mtsserver" :ALIASES NIL :PORT 4602 :PROTO "tcp">
 #<SERVICE :NAME "menandmice-upg" :ALIASES NIL :PORT 4603 :PROTO "tcp">
 #<SERVICE :NAME "irp" :ALIASES NIL :PORT 4604 :PROTO "tcp">
 #<SERVICE :NAME "sixchat" :ALIASES NIL :PORT 4605 :PROTO "tcp">
 #<SERVICE :NAME "ventoso" :ALIASES NIL :PORT 4621 :PROTO "udp">
 #<SERVICE :NAME "playsta2-app" :ALIASES NIL :PORT 4658 :PROTO "tcp">
 #<SERVICE :NAME "playsta2-app" :ALIASES NIL :PORT 4658 :PROTO "udp">
 #<SERVICE :NAME "playsta2-lob" :ALIASES NIL :PORT 4659 :PROTO "tcp">
 #<SERVICE :NAME "playsta2-lob" :ALIASES NIL :PORT 4659 :PROTO "udp">
 #<SERVICE :NAME "smaclmgr" :ALIASES NIL :PORT 4660 :PROTO "tcp">
 #<SERVICE :NAME "smaclmgr" :ALIASES NIL :PORT 4660 :PROTO "udp">
 #<SERVICE :NAME "kar2ouche" :ALIASES NIL :PORT 4661 :PROTO "tcp">
 #<SERVICE :NAME "kar2ouche" :ALIASES NIL :PORT 4661 :PROTO "udp">
 #<SERVICE :NAME "oms" :ALIASES NIL :PORT 4662 :PROTO "tcp">
 #<SERVICE :NAME "oms" :ALIASES NIL :PORT 4662 :PROTO "udp">
 #<SERVICE :NAME "noteit" :ALIASES NIL :PORT 4663 :PROTO "tcp">
 #<SERVICE :NAME "noteit" :ALIASES NIL :PORT 4663 :PROTO "udp">
 #<SERVICE :NAME "ems" :ALIASES NIL :PORT 4664 :PROTO "tcp">
 #<SERVICE :NAME "ems" :ALIASES NIL :PORT 4664 :PROTO "udp">
 #<SERVICE :NAME "contclientms" :ALIASES NIL :PORT 4665 :PROTO "tcp">
 #<SERVICE :NAME "contclientms" :ALIASES NIL :PORT 4665 :PROTO "udp">
 #<SERVICE :NAME "eportcomm" :ALIASES NIL :PORT 4666 :PROTO "tcp">
 #<SERVICE :NAME "eportcomm" :ALIASES NIL :PORT 4666 :PROTO "udp">
 #<SERVICE :NAME "mmacomm" :ALIASES NIL :PORT 4667 :PROTO "tcp">
 #<SERVICE :NAME "mmacomm" :ALIASES NIL :PORT 4667 :PROTO "udp">
 #<SERVICE :NAME "mmaeds" :ALIASES NIL :PORT 4668 :PROTO "tcp">
 #<SERVICE :NAME "mmaeds" :ALIASES NIL :PORT 4668 :PROTO "udp">
 #<SERVICE :NAME "eportcommdata" :ALIASES NIL :PORT 4669 :PROTO "tcp">
 #<SERVICE :NAME "eportcommdata" :ALIASES NIL :PORT 4669 :PROTO "udp">
 #<SERVICE :NAME "light" :ALIASES NIL :PORT 4670 :PROTO "tcp">
 #<SERVICE :NAME "light" :ALIASES NIL :PORT 4670 :PROTO "udp">
 #<SERVICE :NAME "acter" :ALIASES NIL :PORT 4671 :PROTO "tcp">
 #<SERVICE :NAME "acter" :ALIASES NIL :PORT 4671 :PROTO "udp">
 #<SERVICE :NAME "rfa" :ALIASES NIL :PORT 4672 :PROTO "tcp">
 #<SERVICE :NAME "rfa" :ALIASES NIL :PORT 4672 :PROTO "udp">
 #<SERVICE :NAME "cxws" :ALIASES NIL :PORT 4673 :PROTO "tcp">
 #<SERVICE :NAME "cxws" :ALIASES NIL :PORT 4673 :PROTO "udp">
 #<SERVICE :NAME "appiq-mgmt" :ALIASES NIL :PORT 4674 :PROTO "tcp">
 #<SERVICE :NAME "appiq-mgmt" :ALIASES NIL :PORT 4674 :PROTO "udp">
 #<SERVICE :NAME "dhct-status" :ALIASES NIL :PORT 4675 :PROTO "tcp">
 #<SERVICE :NAME "dhct-status" :ALIASES NIL :PORT 4675 :PROTO "udp">
 #<SERVICE :NAME "dhct-alerts" :ALIASES NIL :PORT 4676 :PROTO "tcp">
 #<SERVICE :NAME "dhct-alerts" :ALIASES NIL :PORT 4676 :PROTO "udp">
 #<SERVICE :NAME "bcs" :ALIASES NIL :PORT 4677 :PROTO "tcp">
 #<SERVICE :NAME "bcs" :ALIASES NIL :PORT 4677 :PROTO "udp">
 #<SERVICE :NAME "traversal" :ALIASES NIL :PORT 4678 :PROTO "tcp">
 #<SERVICE :NAME "traversal" :ALIASES NIL :PORT 4678 :PROTO "udp">
 #<SERVICE :NAME "mgesupervision" :ALIASES NIL :PORT 4679 :PROTO "tcp">
 #<SERVICE :NAME "mgesupervision" :ALIASES NIL :PORT 4679 :PROTO "udp">
 #<SERVICE :NAME "mgemanagement" :ALIASES NIL :PORT 4680 :PROTO "tcp">
 #<SERVICE :NAME "mgemanagement" :ALIASES NIL :PORT 4680 :PROTO "udp">
 #<SERVICE :NAME "parliant" :ALIASES NIL :PORT 4681 :PROTO "tcp">
 #<SERVICE :NAME "parliant" :ALIASES NIL :PORT 4681 :PROTO "udp">
 #<SERVICE :NAME "finisar" :ALIASES NIL :PORT 4682 :PROTO "tcp">
 #<SERVICE :NAME "finisar" :ALIASES NIL :PORT 4682 :PROTO "udp">
 #<SERVICE :NAME "spike" :ALIASES NIL :PORT 4683 :PROTO "tcp">
 #<SERVICE :NAME "spike" :ALIASES NIL :PORT 4683 :PROTO "udp">
 #<SERVICE :NAME "rfid-rp1" :ALIASES NIL :PORT 4684 :PROTO "tcp">
 #<SERVICE :NAME "rfid-rp1" :ALIASES NIL :PORT 4684 :PROTO "udp">
 #<SERVICE :NAME "autopac" :ALIASES NIL :PORT 4685 :PROTO "tcp">
 #<SERVICE :NAME "autopac" :ALIASES NIL :PORT 4685 :PROTO "udp">
 #<SERVICE :NAME "msp-os" :ALIASES NIL :PORT 4686 :PROTO "tcp">
 #<SERVICE :NAME "msp-os" :ALIASES NIL :PORT 4686 :PROTO "udp">
 #<SERVICE :NAME "nst" :ALIASES NIL :PORT 4687 :PROTO "tcp">
 #<SERVICE :NAME "nst" :ALIASES NIL :PORT 4687 :PROTO "udp">
 #<SERVICE :NAME "mobile-p2p" :ALIASES NIL :PORT 4688 :PROTO "tcp">
 #<SERVICE :NAME "mobile-p2p" :ALIASES NIL :PORT 4688 :PROTO "udp">
 #<SERVICE :NAME "altovacentral" :ALIASES NIL :PORT 4689 :PROTO "tcp">
 #<SERVICE :NAME "altovacentral" :ALIASES NIL :PORT 4689 :PROTO "udp">
 #<SERVICE :NAME "prelude" :ALIASES NIL :PORT 4690 :PROTO "tcp">
 #<SERVICE :NAME "prelude" :ALIASES NIL :PORT 4690 :PROTO "udp">
 #<SERVICE :NAME "mtn" :ALIASES NIL :PORT 4691 :PROTO "tcp">
 #<SERVICE :NAME "mtn" :ALIASES NIL :PORT 4691 :PROTO "udp">
 #<SERVICE :NAME "conspiracy" :ALIASES NIL :PORT 4692 :PROTO "tcp">
 #<SERVICE :NAME "conspiracy" :ALIASES NIL :PORT 4692 :PROTO "udp">
 #<SERVICE :NAME "netxms-agent" :ALIASES NIL :PORT 4700 :PROTO "tcp">
 #<SERVICE :NAME "netxms-agent" :ALIASES NIL :PORT 4700 :PROTO "udp">
 #<SERVICE :NAME "netxms-mgmt" :ALIASES NIL :PORT 4701 :PROTO "tcp">
 #<SERVICE :NAME "netxms-mgmt" :ALIASES NIL :PORT 4701 :PROTO "udp">
 #<SERVICE :NAME "netxms-sync" :ALIASES NIL :PORT 4702 :PROTO "tcp">
 #<SERVICE :NAME "netxms-sync" :ALIASES NIL :PORT 4702 :PROTO "udp">
 #<SERVICE :NAME "npqes-test" :ALIASES NIL :PORT 4703 :PROTO "tcp">
 #<SERVICE :NAME "assuria-ins" :ALIASES NIL :PORT 4704 :PROTO "tcp">
 #<SERVICE :NAME "pulseaudio" :ALIASES NIL :PORT 4713 :PROTO "tcp">
 #<SERVICE :NAME "truckstar" :ALIASES NIL :PORT 4725 :PROTO "tcp">
 #<SERVICE :NAME "truckstar" :ALIASES NIL :PORT 4725 :PROTO "udp">
 #<SERVICE :NAME "a26-fap-fgw" :ALIASES NIL :PORT 4726 :PROTO "udp">
 #<SERVICE :NAME "fcis" :ALIASES NIL :PORT 4727 :PROTO "tcp">
 #<SERVICE :NAME "fcis-disc" :ALIASES NIL :PORT 4727 :PROTO "udp">
 #<SERVICE :NAME "capmux" :ALIASES NIL :PORT 4728 :PROTO "tcp">
 #<SERVICE :NAME "capmux" :ALIASES NIL :PORT 4728 :PROTO "udp">
 #<SERVICE :NAME "gsmtap" :ALIASES NIL :PORT 4729 :PROTO "udp">
 #<SERVICE :NAME "gearman" :ALIASES NIL :PORT 4730 :PROTO "tcp">
 #<SERVICE :NAME "gearman" :ALIASES NIL :PORT 4730 :PROTO "udp">
 #<SERVICE :NAME "remcap" :ALIASES NIL :PORT 4731 :PROTO "tcp">
 #<SERVICE :NAME "ohmtrigger" :ALIASES NIL :PORT 4732 :PROTO "udp">
 #<SERVICE :NAME "resorcs" :ALIASES NIL :PORT 4733 :PROTO "tcp">
 #<SERVICE :NAME "ipdr-sp" :ALIASES NIL :PORT 4737 :PROTO "tcp">
 #<SERVICE :NAME "ipdr-sp" :ALIASES NIL :PORT 4737 :PROTO "udp">
 #<SERVICE :NAME "solera-lpn" :ALIASES NIL :PORT 4738 :PROTO "tcp">
 #<SERVICE :NAME "solera-lpn" :ALIASES NIL :PORT 4738 :PROTO "udp">
 #<SERVICE :NAME "ipfix" :ALIASES NIL :PORT 4739 :PROTO "tcp">
 #<SERVICE :NAME "ipfix" :ALIASES NIL :PORT 4739 :PROTO "udp">
 #<SERVICE :NAME "ipfix" :ALIASES NIL :PORT 4739 :PROTO "sctp">
 #<SERVICE :NAME "ipfixs" :ALIASES NIL :PORT 4740 :PROTO "tcp">
 #<SERVICE :NAME "ipfixs" :ALIASES NIL :PORT 4740 :PROTO "sctp">
 #<SERVICE :NAME "ipfixs" :ALIASES NIL :PORT 4740 :PROTO "udp">
 #<SERVICE :NAME "lumimgrd" :ALIASES NIL :PORT 4741 :PROTO "tcp">
 #<SERVICE :NAME "lumimgrd" :ALIASES NIL :PORT 4741 :PROTO "udp">
 #<SERVICE :NAME "sicct" :ALIASES NIL :PORT 4742 :PROTO "tcp">
 #<SERVICE :NAME "sicct-sdp" :ALIASES NIL :PORT 4742 :PROTO "udp">
 #<SERVICE :NAME "openhpid" :ALIASES NIL :PORT 4743 :PROTO "tcp">
 #<SERVICE :NAME "openhpid" :ALIASES NIL :PORT 4743 :PROTO "udp">
 #<SERVICE :NAME "ifsp" :ALIASES NIL :PORT 4744 :PROTO "tcp">
 #<SERVICE :NAME "ifsp" :ALIASES NIL :PORT 4744 :PROTO "udp">
 #<SERVICE :NAME "fmp" :ALIASES NIL :PORT 4745 :PROTO "tcp">
 #<SERVICE :NAME "fmp" :ALIASES NIL :PORT 4745 :PROTO "udp">
 #<SERVICE :NAME "buschtrommel" :ALIASES NIL :PORT 4747 :PROTO "udp">
 #<SERVICE :NAME "profilemac" :ALIASES NIL :PORT 4749 :PROTO "tcp">
 #<SERVICE :NAME "profilemac" :ALIASES NIL :PORT 4749 :PROTO "udp">
 #<SERVICE :NAME "ssad" :ALIASES NIL :PORT 4750 :PROTO "tcp">
 #<SERVICE :NAME "ssad" :ALIASES NIL :PORT 4750 :PROTO "udp">
 #<SERVICE :NAME "spocp" :ALIASES NIL :PORT 4751 :PROTO "tcp">
 #<SERVICE :NAME "spocp" :ALIASES NIL :PORT 4751 :PROTO "udp">
 #<SERVICE :NAME "snap" :ALIASES NIL :PORT 4752 :PROTO "tcp">
 #<SERVICE :NAME "snap" :ALIASES NIL :PORT 4752 :PROTO "udp">
 #<SERVICE :NAME "simon" :ALIASES NIL :PORT 4753 :PROTO "tcp">
 #<SERVICE :NAME "simon-disc" :ALIASES NIL :PORT 4753 :PROTO "udp">
 #<SERVICE :NAME "bfd-multi-ctl" :ALIASES NIL :PORT 4784 :PROTO "tcp">
 #<SERVICE :NAME "bfd-multi-ctl" :ALIASES NIL :PORT 4784 :PROTO "udp">
 #<SERVICE :NAME "cncp" :ALIASES NIL :PORT 4785 :PROTO "udp">
 #<SERVICE :NAME "smart-install" :ALIASES NIL :PORT 4786 :PROTO "tcp">
 #<SERVICE :NAME "sia-ctrl-plane" :ALIASES NIL :PORT 4787 :PROTO "tcp">
 #<SERVICE :NAME "xmcp" :ALIASES NIL :PORT 4788 :PROTO "tcp">
 #<SERVICE :NAME "vxlan" :ALIASES NIL :PORT 4789 :PROTO "udp">
 #<SERVICE :NAME "vxlan-gpe" :ALIASES NIL :PORT 4790 :PROTO "udp">
 #<SERVICE :NAME "roce" :ALIASES NIL :PORT 4791 :PROTO "udp">
 #<SERVICE :NAME "iims" :ALIASES NIL :PORT 4800 :PROTO "tcp">
 #<SERVICE :NAME "iims" :ALIASES NIL :PORT 4800 :PROTO "udp">
 #<SERVICE :NAME "iwec" :ALIASES NIL :PORT 4801 :PROTO "tcp">
 #<SERVICE :NAME "iwec" :ALIASES NIL :PORT 4801 :PROTO "udp">
 #<SERVICE :NAME "ilss" :ALIASES NIL :PORT 4802 :PROTO "tcp">
 #<SERVICE :NAME "ilss" :ALIASES NIL :PORT 4802 :PROTO "udp">
 #<SERVICE :NAME "notateit" :ALIASES NIL :PORT 4803 :PROTO "tcp">
 #<SERVICE :NAME "notateit-disc" :ALIASES NIL :PORT 4803 :PROTO "udp">
 #<SERVICE :NAME "aja-ntv4-disc" :ALIASES NIL :PORT 4804 :PROTO "udp">
 #<SERVICE :NAME "htcp" :ALIASES NIL :PORT 4827 :PROTO "tcp">
 #<SERVICE :NAME "htcp" :ALIASES NIL :PORT 4827 :PROTO "udp">
 #<SERVICE :NAME "varadero-0" :ALIASES NIL :PORT 4837 :PROTO "tcp">
 #<SERVICE :NAME "varadero-0" :ALIASES NIL :PORT 4837 :PROTO "udp">
 #<SERVICE :NAME "varadero-1" :ALIASES NIL :PORT 4838 :PROTO "tcp">
 #<SERVICE :NAME "varadero-1" :ALIASES NIL :PORT 4838 :PROTO "udp">
 #<SERVICE :NAME "varadero-2" :ALIASES NIL :PORT 4839 :PROTO "tcp">
 #<SERVICE :NAME "varadero-2" :ALIASES NIL :PORT 4839 :PROTO "udp">
 #<SERVICE :NAME "opcua-tcp" :ALIASES NIL :PORT 4840 :PROTO "tcp">
 #<SERVICE :NAME "opcua-udp" :ALIASES NIL :PORT 4840 :PROTO "udp">
 #<SERVICE :NAME "quosa" :ALIASES NIL :PORT 4841 :PROTO "tcp">
 #<SERVICE :NAME "quosa" :ALIASES NIL :PORT 4841 :PROTO "udp">
 #<SERVICE :NAME "gw-asv" :ALIASES NIL :PORT 4842 :PROTO "tcp">
 #<SERVICE :NAME "gw-asv" :ALIASES NIL :PORT 4842 :PROTO "udp">
 #<SERVICE :NAME "opcua-tls" :ALIASES NIL :PORT 4843 :PROTO "tcp">
 #<SERVICE :NAME "opcua-tls" :ALIASES NIL :PORT 4843 :PROTO "udp">
 #<SERVICE :NAME "gw-log" :ALIASES NIL :PORT 4844 :PROTO "tcp">
 #<SERVICE :NAME "gw-log" :ALIASES NIL :PORT 4844 :PROTO "udp">
 #<SERVICE :NAME "wcr-remlib" :ALIASES NIL :PORT 4845 :PROTO "tcp">
 #<SERVICE :NAME "wcr-remlib" :ALIASES NIL :PORT 4845 :PROTO "udp">
 #<SERVICE :NAME "contamac_icm" :ALIASES ("contamac-icm") :PORT 4846
   :PROTO "tcp">
 #<SERVICE :NAME "contamac_icm" :ALIASES ("contamac-icm") :PORT 4846
   :PROTO "udp">
 #<SERVICE :NAME "wfc" :ALIASES NIL :PORT 4847 :PROTO "tcp">
 #<SERVICE :NAME "wfc" :ALIASES NIL :PORT 4847 :PROTO "udp">
 #<SERVICE :NAME "appserv-http" :ALIASES NIL :PORT 4848 :PROTO "tcp">
 #<SERVICE :NAME "appserv-http" :ALIASES NIL :PORT 4848 :PROTO "udp">
 #<SERVICE :NAME "appserv-https" :ALIASES NIL :PORT 4849 :PROTO "tcp">
 #<SERVICE :NAME "appserv-https" :ALIASES NIL :PORT 4849 :PROTO "udp">
 #<SERVICE :NAME "sun-as-nodeagt" :ALIASES NIL :PORT 4850 :PROTO "tcp">
 #<SERVICE :NAME "sun-as-nodeagt" :ALIASES NIL :PORT 4850 :PROTO "udp">
 #<SERVICE :NAME "derby-repli" :ALIASES NIL :PORT 4851 :PROTO "tcp">
 #<SERVICE :NAME "derby-repli" :ALIASES NIL :PORT 4851 :PROTO "udp">
 #<SERVICE :NAME "unify-debug" :ALIASES NIL :PORT 4867 :PROTO "tcp">
 #<SERVICE :NAME "unify-debug" :ALIASES NIL :PORT 4867 :PROTO "udp">
 #<SERVICE :NAME "phrelay" :ALIASES NIL :PORT 4868 :PROTO "tcp">
 #<SERVICE :NAME "phrelay" :ALIASES NIL :PORT 4868 :PROTO "udp">
 #<SERVICE :NAME "phrelaydbg" :ALIASES NIL :PORT 4869 :PROTO "tcp">
 #<SERVICE :NAME "phrelaydbg" :ALIASES NIL :PORT 4869 :PROTO "udp">
 #<SERVICE :NAME "cc-tracking" :ALIASES NIL :PORT 4870 :PROTO "tcp">
 #<SERVICE :NAME "cc-tracking" :ALIASES NIL :PORT 4870 :PROTO "udp">
 #<SERVICE :NAME "wired" :ALIASES NIL :PORT 4871 :PROTO "tcp">
 #<SERVICE :NAME "wired" :ALIASES NIL :PORT 4871 :PROTO "udp">
 #<SERVICE :NAME "tritium-can" :ALIASES NIL :PORT 4876 :PROTO "tcp">
 #<SERVICE :NAME "tritium-can" :ALIASES NIL :PORT 4876 :PROTO "udp">
 #<SERVICE :NAME "lmcs" :ALIASES NIL :PORT 4877 :PROTO "tcp">
 #<SERVICE :NAME "lmcs" :ALIASES NIL :PORT 4877 :PROTO "udp">
 #<SERVICE :NAME "inst-discovery" :ALIASES NIL :PORT 4878 :PROTO "udp">
 #<SERVICE :NAME "wsdl-event" :ALIASES NIL :PORT 4879 :PROTO "tcp">
 #<SERVICE :NAME "hislip" :ALIASES NIL :PORT 4880 :PROTO "tcp">
 #<SERVICE :NAME "socp-t" :ALIASES NIL :PORT 4881 :PROTO "udp">
 #<SERVICE :NAME "socp-c" :ALIASES NIL :PORT 4882 :PROTO "udp">
 #<SERVICE :NAME "wmlserver" :ALIASES NIL :PORT 4883 :PROTO "tcp">
 #<SERVICE :NAME "hivestor" :ALIASES NIL :PORT 4884 :PROTO "tcp">
 #<SERVICE :NAME "hivestor" :ALIASES NIL :PORT 4884 :PROTO "udp">
 #<SERVICE :NAME "abbs" :ALIASES NIL :PORT 4885 :PROTO "tcp">
 #<SERVICE :NAME "abbs" :ALIASES NIL :PORT 4885 :PROTO "udp">
 #<SERVICE :NAME "lyskom" :ALIASES NIL :PORT 4894 :PROTO "tcp">
 #<SERVICE :NAME "lyskom" :ALIASES NIL :PORT 4894 :PROTO "udp">
 #<SERVICE :NAME "radmin-port" :ALIASES NIL :PORT 4899 :PROTO "tcp">
 #<SERVICE :NAME "radmin-port" :ALIASES NIL :PORT 4899 :PROTO "udp">
 #<SERVICE :NAME "hfcs" :ALIASES NIL :PORT 4900 :PROTO "tcp">
 #<SERVICE :NAME "hfcs" :ALIASES NIL :PORT 4900 :PROTO "udp">
 #<SERVICE :NAME "flr_agent" :ALIASES ("flr-agent") :PORT 4901 :PROTO "tcp">
 #<SERVICE :NAME "magiccontrol" :ALIASES NIL :PORT 4902 :PROTO "tcp">
 #<SERVICE :NAME "lutap" :ALIASES NIL :PORT 4912 :PROTO "tcp">
 #<SERVICE :NAME "lutcp" :ALIASES NIL :PORT 4913 :PROTO "tcp">
 #<SERVICE :NAME "bones" :ALIASES NIL :PORT 4914 :PROTO "tcp">
 #<SERVICE :NAME "bones" :ALIASES NIL :PORT 4914 :PROTO "udp">
 #<SERVICE :NAME "frcs" :ALIASES NIL :PORT 4915 :PROTO "tcp">
 #<SERVICE :NAME "an-signaling" :ALIASES NIL :PORT 4936 :PROTO "udp">
 #<SERVICE :NAME "atsc-mh-ssc" :ALIASES NIL :PORT 4937 :PROTO "udp">
 #<SERVICE :NAME "eq-office-4940" :ALIASES NIL :PORT 4940 :PROTO "tcp">
 #<SERVICE :NAME "eq-office-4940" :ALIASES NIL :PORT 4940 :PROTO "udp">
 #<SERVICE :NAME "eq-office-4941" :ALIASES NIL :PORT 4941 :PROTO "tcp">
 #<SERVICE :NAME "eq-office-4941" :ALIASES NIL :PORT 4941 :PROTO "udp">
 #<SERVICE :NAME "eq-office-4942" :ALIASES NIL :PORT 4942 :PROTO "tcp">
 #<SERVICE :NAME "eq-office-4942" :ALIASES NIL :PORT 4942 :PROTO "udp">
 #<SERVICE :NAME "munin" :ALIASES NIL :PORT 4949 :PROTO "tcp">
 #<SERVICE :NAME "munin" :ALIASES NIL :PORT 4949 :PROTO "udp">
 #<SERVICE :NAME "sybasesrvmon" :ALIASES NIL :PORT 4950 :PROTO "tcp">
 #<SERVICE :NAME "sybasesrvmon" :ALIASES NIL :PORT 4950 :PROTO "udp">
 #<SERVICE :NAME "pwgwims" :ALIASES NIL :PORT 4951 :PROTO "tcp">
 #<SERVICE :NAME "pwgwims" :ALIASES NIL :PORT 4951 :PROTO "udp">
 #<SERVICE :NAME "sagxtsds" :ALIASES NIL :PORT 4952 :PROTO "tcp">
 #<SERVICE :NAME "sagxtsds" :ALIASES NIL :PORT 4952 :PROTO "udp">
 #<SERVICE :NAME "dbsyncarbiter" :ALIASES NIL :PORT 4953 :PROTO "tcp">
 #<SERVICE :NAME "ccss-qmm" :ALIASES NIL :PORT 4969 :PROTO "tcp">
 #<SERVICE :NAME "ccss-qmm" :ALIASES NIL :PORT 4969 :PROTO "udp">
 #<SERVICE :NAME "ccss-qsm" :ALIASES NIL :PORT 4970 :PROTO "tcp">
 #<SERVICE :NAME "ccss-qsm" :ALIASES NIL :PORT 4970 :PROTO "udp">
 #<SERVICE :NAME "ctxs-vpp" :ALIASES NIL :PORT 4980 :PROTO "udp">
 #<SERVICE :NAME "webyast" :ALIASES NIL :PORT 4984 :PROTO "tcp">
 #<SERVICE :NAME "gerhcs" :ALIASES NIL :PORT 4985 :PROTO "tcp">
 #<SERVICE :NAME "mrip" :ALIASES NIL :PORT 4986 :PROTO "tcp">
 #<SERVICE :NAME "mrip" :ALIASES NIL :PORT 4986 :PROTO "udp">
 #<SERVICE :NAME "smar-se-port1" :ALIASES NIL :PORT 4987 :PROTO "tcp">
 #<SERVICE :NAME "smar-se-port1" :ALIASES NIL :PORT 4987 :PROTO "udp">
 #<SERVICE :NAME "smar-se-port2" :ALIASES NIL :PORT 4988 :PROTO "tcp">
 #<SERVICE :NAME "smar-se-port2" :ALIASES NIL :PORT 4988 :PROTO "udp">
 #<SERVICE :NAME "parallel" :ALIASES NIL :PORT 4989 :PROTO "tcp">
 #<SERVICE :NAME "parallel" :ALIASES NIL :PORT 4989 :PROTO "udp">
 #<SERVICE :NAME "busycal" :ALIASES NIL :PORT 4990 :PROTO "tcp">
 #<SERVICE :NAME "busycal" :ALIASES NIL :PORT 4990 :PROTO "udp">
 #<SERVICE :NAME "vrt" :ALIASES NIL :PORT 4991 :PROTO "tcp">
 #<SERVICE :NAME "vrt" :ALIASES NIL :PORT 4991 :PROTO "udp">
 #<SERVICE :NAME "hfcs-manager" :ALIASES NIL :PORT 4999 :PROTO "tcp">
 #<SERVICE :NAME "hfcs-manager" :ALIASES NIL :PORT 4999 :PROTO "udp">
 #<SERVICE :NAME "commplex-main" :ALIASES NIL :PORT 5000 :PROTO "tcp">
 #<SERVICE :NAME "commplex-main" :ALIASES NIL :PORT 5000 :PROTO "udp">
 #<SERVICE :NAME "commplex-link" :ALIASES NIL :PORT 5001 :PROTO "tcp">
 #<SERVICE :NAME "commplex-link" :ALIASES NIL :PORT 5001 :PROTO "udp">
 #<SERVICE :NAME "fmpro-internal" :ALIASES NIL :PORT 5003 :PROTO "tcp">
 #<SERVICE :NAME "fmpro-internal" :ALIASES NIL :PORT 5003 :PROTO "udp">
 #<SERVICE :NAME "avt-profile-1" :ALIASES NIL :PORT 5004 :PROTO "tcp">
 #<SERVICE :NAME "avt-profile-1" :ALIASES NIL :PORT 5004 :PROTO "udp">
 #<SERVICE :NAME "avt-profile-1" :ALIASES NIL :PORT 5004 :PROTO "dccp">
 #<SERVICE :NAME "avt-profile-2" :ALIASES NIL :PORT 5005 :PROTO "tcp">
 #<SERVICE :NAME "avt-profile-2" :ALIASES NIL :PORT 5005 :PROTO "udp">
 #<SERVICE :NAME "avt-profile-2" :ALIASES NIL :PORT 5005 :PROTO "dccp">
 #<SERVICE :NAME "wsm-server" :ALIASES NIL :PORT 5006 :PROTO "tcp">
 #<SERVICE :NAME "wsm-server" :ALIASES NIL :PORT 5006 :PROTO "udp">
 #<SERVICE :NAME "wsm-server-ssl" :ALIASES NIL :PORT 5007 :PROTO "tcp">
 #<SERVICE :NAME "wsm-server-ssl" :ALIASES NIL :PORT 5007 :PROTO "udp">
 #<SERVICE :NAME "synapsis-edge" :ALIASES NIL :PORT 5008 :PROTO "tcp">
 #<SERVICE :NAME "synapsis-edge" :ALIASES NIL :PORT 5008 :PROTO "udp">
 #<SERVICE :NAME "winfs" :ALIASES NIL :PORT 5009 :PROTO "tcp">
 #<SERVICE :NAME "winfs" :ALIASES NIL :PORT 5009 :PROTO "udp">
 #<SERVICE :NAME "telelpathstart" :ALIASES NIL :PORT 5010 :PROTO "tcp">
 #<SERVICE :NAME "telelpathstart" :ALIASES NIL :PORT 5010 :PROTO "udp">
 #<SERVICE :NAME "telelpathattack" :ALIASES NIL :PORT 5011 :PROTO "tcp">
 #<SERVICE :NAME "telelpathattack" :ALIASES NIL :PORT 5011 :PROTO "udp">
 #<SERVICE :NAME "nsp" :ALIASES NIL :PORT 5012 :PROTO "tcp">
 #<SERVICE :NAME "nsp" :ALIASES NIL :PORT 5012 :PROTO "udp">
 #<SERVICE :NAME "fmpro-v6" :ALIASES NIL :PORT 5013 :PROTO "tcp">
 #<SERVICE :NAME "fmpro-v6" :ALIASES NIL :PORT 5013 :PROTO "udp">
 #<SERVICE :NAME "onpsocket" :ALIASES NIL :PORT 5014 :PROTO "udp">
 #<SERVICE :NAME "fmwp" :ALIASES NIL :PORT 5015 :PROTO "tcp">
 #<SERVICE :NAME "zenginkyo-1" :ALIASES NIL :PORT 5020 :PROTO "tcp">
 #<SERVICE :NAME "zenginkyo-1" :ALIASES NIL :PORT 5020 :PROTO "udp">
 #<SERVICE :NAME "zenginkyo-2" :ALIASES NIL :PORT 5021 :PROTO "tcp">
 #<SERVICE :NAME "zenginkyo-2" :ALIASES NIL :PORT 5021 :PROTO "udp">
 #<SERVICE :NAME "mice" :ALIASES NIL :PORT 5022 :PROTO "tcp">
 #<SERVICE :NAME "mice" :ALIASES NIL :PORT 5022 :PROTO "udp">
 #<SERVICE :NAME "htuilsrv" :ALIASES NIL :PORT 5023 :PROTO "tcp">
 #<SERVICE :NAME "htuilsrv" :ALIASES NIL :PORT 5023 :PROTO "udp">
 #<SERVICE :NAME "scpi-telnet" :ALIASES NIL :PORT 5024 :PROTO "tcp">
 #<SERVICE :NAME "scpi-telnet" :ALIASES NIL :PORT 5024 :PROTO "udp">
 #<SERVICE :NAME "scpi-raw" :ALIASES NIL :PORT 5025 :PROTO "tcp">
 #<SERVICE :NAME "scpi-raw" :ALIASES NIL :PORT 5025 :PROTO "udp">
 #<SERVICE :NAME "strexec-d" :ALIASES NIL :PORT 5026 :PROTO "tcp">
 #<SERVICE :NAME "strexec-d" :ALIASES NIL :PORT 5026 :PROTO "udp">
 #<SERVICE :NAME "strexec-s" :ALIASES NIL :PORT 5027 :PROTO "tcp">
 #<SERVICE :NAME "strexec-s" :ALIASES NIL :PORT 5027 :PROTO "udp">
 #<SERVICE :NAME "qvr" :ALIASES NIL :PORT 5028 :PROTO "tcp">
 #<SERVICE :NAME "infobright" :ALIASES NIL :PORT 5029 :PROTO "tcp">
 #<SERVICE :NAME "infobright" :ALIASES NIL :PORT 5029 :PROTO "udp">
 #<SERVICE :NAME "surfpass" :ALIASES NIL :PORT 5030 :PROTO "tcp">
 #<SERVICE :NAME "surfpass" :ALIASES NIL :PORT 5030 :PROTO "udp">
 #<SERVICE :NAME "dmp" :ALIASES NIL :PORT 5031 :PROTO "udp">
 #<SERVICE :NAME "signacert-agent" :ALIASES NIL :PORT 5032 :PROTO "tcp">
 #<SERVICE :NAME "jtnetd-server" :ALIASES NIL :PORT 5033 :PROTO "tcp">
 #<SERVICE :NAME "jtnetd-status" :ALIASES NIL :PORT 5034 :PROTO "tcp">
 #<SERVICE :NAME "asnaacceler8db" :ALIASES NIL :PORT 5042 :PROTO "tcp">
 #<SERVICE :NAME "asnaacceler8db" :ALIASES NIL :PORT 5042 :PROTO "udp">
 #<SERVICE :NAME "swxadmin" :ALIASES NIL :PORT 5043 :PROTO "tcp">
 #<SERVICE :NAME "swxadmin" :ALIASES NIL :PORT 5043 :PROTO "udp">
 #<SERVICE :NAME "lxi-evntsvc" :ALIASES NIL :PORT 5044 :PROTO "tcp">
 #<SERVICE :NAME "lxi-evntsvc" :ALIASES NIL :PORT 5044 :PROTO "udp">
 #<SERVICE :NAME "osp" :ALIASES NIL :PORT 5045 :PROTO "tcp">
 #<SERVICE :NAME "vpm-udp" :ALIASES NIL :PORT 5046 :PROTO "udp">
 #<SERVICE :NAME "iscape" :ALIASES NIL :PORT 5047 :PROTO "udp">
 #<SERVICE :NAME "texai" :ALIASES NIL :PORT 5048 :PROTO "tcp">
 #<SERVICE :NAME "ivocalize" :ALIASES NIL :PORT 5049 :PROTO "tcp">
 #<SERVICE :NAME "ivocalize" :ALIASES NIL :PORT 5049 :PROTO "udp">
 #<SERVICE :NAME "mmcc" :ALIASES NIL :PORT 5050 :PROTO "tcp">
 #<SERVICE :NAME "mmcc" :ALIASES NIL :PORT 5050 :PROTO "udp">
 #<SERVICE :NAME "ita-agent" :ALIASES NIL :PORT 5051 :PROTO "tcp">
 #<SERVICE :NAME "ita-agent" :ALIASES NIL :PORT 5051 :PROTO "udp">
 #<SERVICE :NAME "ita-manager" :ALIASES NIL :PORT 5052 :PROTO "tcp">
 #<SERVICE :NAME "ita-manager" :ALIASES NIL :PORT 5052 :PROTO "udp">
 #<SERVICE :NAME "rlm" :ALIASES NIL :PORT 5053 :PROTO "tcp">
 #<SERVICE :NAME "rlm-disc" :ALIASES NIL :PORT 5053 :PROTO "udp">
 #<SERVICE :NAME "rlm-admin" :ALIASES NIL :PORT 5054 :PROTO "tcp">
 #<SERVICE :NAME "unot" :ALIASES NIL :PORT 5055 :PROTO "tcp">
 #<SERVICE :NAME "unot" :ALIASES NIL :PORT 5055 :PROTO "udp">
 #<SERVICE :NAME "intecom-ps1" :ALIASES NIL :PORT 5056 :PROTO "tcp">
 #<SERVICE :NAME "intecom-ps1" :ALIASES NIL :PORT 5056 :PROTO "udp">
 #<SERVICE :NAME "intecom-ps2" :ALIASES NIL :PORT 5057 :PROTO "tcp">
 #<SERVICE :NAME "intecom-ps2" :ALIASES NIL :PORT 5057 :PROTO "udp">
 #<SERVICE :NAME "locus-disc" :ALIASES NIL :PORT 5058 :PROTO "udp">
 #<SERVICE :NAME "sds" :ALIASES NIL :PORT 5059 :PROTO "tcp">
 #<SERVICE :NAME "sds" :ALIASES NIL :PORT 5059 :PROTO "udp">
 #<SERVICE :NAME "sip" :ALIASES NIL :PORT 5060 :PROTO "tcp">
 #<SERVICE :NAME "sip" :ALIASES NIL :PORT 5060 :PROTO "udp">
 #<SERVICE :NAME "sip" :ALIASES NIL :PORT 5060 :PROTO "sctp">
 #<SERVICE :NAME "sips" :ALIASES NIL :PORT 5061 :PROTO "tcp">
 #<SERVICE :NAME "sips" :ALIASES NIL :PORT 5061 :PROTO "udp">
 #<SERVICE :NAME "sips" :ALIASES NIL :PORT 5061 :PROTO "sctp">
 #<SERVICE :NAME "na-localise" :ALIASES NIL :PORT 5062 :PROTO "tcp">
 #<SERVICE :NAME "na-localise" :ALIASES NIL :PORT 5062 :PROTO "udp">
 #<SERVICE :NAME "csrpc" :ALIASES NIL :PORT 5063 :PROTO "tcp">
 #<SERVICE :NAME "ca-1" :ALIASES NIL :PORT 5064 :PROTO "tcp">
 #<SERVICE :NAME "ca-1" :ALIASES NIL :PORT 5064 :PROTO "udp">
 #<SERVICE :NAME "ca-2" :ALIASES NIL :PORT 5065 :PROTO "tcp">
 #<SERVICE :NAME "ca-2" :ALIASES NIL :PORT 5065 :PROTO "udp">
 #<SERVICE :NAME "stanag-5066" :ALIASES NIL :PORT 5066 :PROTO "tcp">
 #<SERVICE :NAME "stanag-5066" :ALIASES NIL :PORT 5066 :PROTO "udp">
 #<SERVICE :NAME "authentx" :ALIASES NIL :PORT 5067 :PROTO "tcp">
 #<SERVICE :NAME "authentx" :ALIASES NIL :PORT 5067 :PROTO "udp">
 #<SERVICE :NAME "bitforestsrv" :ALIASES NIL :PORT 5068 :PROTO "tcp">
 #<SERVICE :NAME "i-net-2000-npr" :ALIASES NIL :PORT 5069 :PROTO "tcp">
 #<SERVICE :NAME "i-net-2000-npr" :ALIASES NIL :PORT 5069 :PROTO "udp">
 #<SERVICE :NAME "vtsas" :ALIASES NIL :PORT 5070 :PROTO "tcp">
 #<SERVICE :NAME "vtsas" :ALIASES NIL :PORT 5070 :PROTO "udp">
 #<SERVICE :NAME "powerschool" :ALIASES NIL :PORT 5071 :PROTO "tcp">
 #<SERVICE :NAME "powerschool" :ALIASES NIL :PORT 5071 :PROTO "udp">
 #<SERVICE :NAME "ayiya" :ALIASES NIL :PORT 5072 :PROTO "tcp">
 #<SERVICE :NAME "ayiya" :ALIASES NIL :PORT 5072 :PROTO "udp">
 #<SERVICE :NAME "tag-pm" :ALIASES NIL :PORT 5073 :PROTO "tcp">
 #<SERVICE :NAME "tag-pm" :ALIASES NIL :PORT 5073 :PROTO "udp">
 #<SERVICE :NAME "alesquery" :ALIASES NIL :PORT 5074 :PROTO "tcp">
 #<SERVICE :NAME "alesquery" :ALIASES NIL :PORT 5074 :PROTO "udp">
 #<SERVICE :NAME "pvaccess" :ALIASES NIL :PORT 5075 :PROTO "tcp">
 #<SERVICE :NAME "pixelpusher" :ALIASES NIL :PORT 5078 :PROTO "udp">
 #<SERVICE :NAME "cp-spxrpts" :ALIASES NIL :PORT 5079 :PROTO "udp">
 #<SERVICE :NAME "onscreen" :ALIASES NIL :PORT 5080 :PROTO "tcp">
 #<SERVICE :NAME "onscreen" :ALIASES NIL :PORT 5080 :PROTO "udp">
 #<SERVICE :NAME "sdl-ets" :ALIASES NIL :PORT 5081 :PROTO "tcp">
 #<SERVICE :NAME "sdl-ets" :ALIASES NIL :PORT 5081 :PROTO "udp">
 #<SERVICE :NAME "qcp" :ALIASES NIL :PORT 5082 :PROTO "tcp">
 #<SERVICE :NAME "qcp" :ALIASES NIL :PORT 5082 :PROTO "udp">
 #<SERVICE :NAME "qfp" :ALIASES NIL :PORT 5083 :PROTO "tcp">
 #<SERVICE :NAME "qfp" :ALIASES NIL :PORT 5083 :PROTO "udp">
 #<SERVICE :NAME "llrp" :ALIASES NIL :PORT 5084 :PROTO "tcp">
 #<SERVICE :NAME "llrp" :ALIASES NIL :PORT 5084 :PROTO "udp">
 #<SERVICE :NAME "encrypted-llrp" :ALIASES NIL :PORT 5085 :PROTO "tcp">
 #<SERVICE :NAME "encrypted-llrp" :ALIASES NIL :PORT 5085 :PROTO "udp">
 #<SERVICE :NAME "aprigo-cs" :ALIASES NIL :PORT 5086 :PROTO "tcp">
 #<SERVICE :NAME "biotic" :ALIASES NIL :PORT 5087 :PROTO "tcp">
 #<SERVICE :NAME "car" :ALIASES NIL :PORT 5090 :PROTO "sctp">
 #<SERVICE :NAME "cxtp" :ALIASES NIL :PORT 5091 :PROTO "sctp">
 #<SERVICE :NAME "magpie" :ALIASES NIL :PORT 5092 :PROTO "udp">
 #<SERVICE :NAME "sentinel-lm" :ALIASES NIL :PORT 5093 :PROTO "tcp">
 #<SERVICE :NAME "sentinel-lm" :ALIASES NIL :PORT 5093 :PROTO "udp">
 #<SERVICE :NAME "hart-ip" :ALIASES NIL :PORT 5094 :PROTO "tcp">
 #<SERVICE :NAME "hart-ip" :ALIASES NIL :PORT 5094 :PROTO "udp">
 #<SERVICE :NAME "sentlm-srv2srv" :ALIASES NIL :PORT 5099 :PROTO "tcp">
 #<SERVICE :NAME "sentlm-srv2srv" :ALIASES NIL :PORT 5099 :PROTO "udp">
 #<SERVICE :NAME "socalia" :ALIASES NIL :PORT 5100 :PROTO "tcp">
 #<SERVICE :NAME "socalia" :ALIASES NIL :PORT 5100 :PROTO "udp">
 #<SERVICE :NAME "talarian-tcp" :ALIASES NIL :PORT 5101 :PROTO "tcp">
 #<SERVICE :NAME "talarian-udp" :ALIASES NIL :PORT 5101 :PROTO "udp">
 #<SERVICE :NAME "oms-nonsecure" :ALIASES NIL :PORT 5102 :PROTO "tcp">
 #<SERVICE :NAME "oms-nonsecure" :ALIASES NIL :PORT 5102 :PROTO "udp">
 #<SERVICE :NAME "actifio-c2c" :ALIASES NIL :PORT 5103 :PROTO "tcp">
 #<SERVICE :NAME "tinymessage" :ALIASES NIL :PORT 5104 :PROTO "udp">
 #<SERVICE :NAME "hughes-ap" :ALIASES NIL :PORT 5105 :PROTO "udp">
 #<SERVICE :NAME "actifioudsagent" :ALIASES NIL :PORT 5106 :PROTO "tcp">
 #<SERVICE :NAME "actifioreplic" :ALIASES NIL :PORT 5107 :PROTO "tcp">
 #<SERVICE :NAME "taep-as-svc" :ALIASES NIL :PORT 5111 :PROTO "tcp">
 #<SERVICE :NAME "taep-as-svc" :ALIASES NIL :PORT 5111 :PROTO "udp">
 #<SERVICE :NAME "pm-cmdsvr" :ALIASES NIL :PORT 5112 :PROTO "tcp">
 #<SERVICE :NAME "pm-cmdsvr" :ALIASES NIL :PORT 5112 :PROTO "udp">
 #<SERVICE :NAME "ev-services" :ALIASES NIL :PORT 5114 :PROTO "tcp">
 #<SERVICE :NAME "autobuild" :ALIASES NIL :PORT 5115 :PROTO "tcp">
 #<SERVICE :NAME "emb-proj-cmd" :ALIASES NIL :PORT 5116 :PROTO "udp">
 #<SERVICE :NAME "gradecam" :ALIASES NIL :PORT 5117 :PROTO "tcp">
 #<SERVICE :NAME "barracuda-bbs" :ALIASES NIL :PORT 5120 :PROTO "tcp">
 #<SERVICE :NAME "barracuda-bbs" :ALIASES NIL :PORT 5120 :PROTO "udp">
 #<SERVICE :NAME "nbt-pc" :ALIASES NIL :PORT 5133 :PROTO "tcp">
 #<SERVICE :NAME "nbt-pc" :ALIASES NIL :PORT 5133 :PROTO "udp">
 #<SERVICE :NAME "ppactivation" :ALIASES NIL :PORT 5134 :PROTO "tcp">
 #<SERVICE :NAME "erp-scale" :ALIASES NIL :PORT 5135 :PROTO "tcp">
 #<SERVICE :NAME "minotaur-sa" :ALIASES NIL :PORT 5136 :PROTO "udp">
 #<SERVICE :NAME "ctsd" :ALIASES NIL :PORT 5137 :PROTO "tcp">
 #<SERVICE :NAME "ctsd" :ALIASES NIL :PORT 5137 :PROTO "udp">
 #<SERVICE :NAME "rmonitor_secure" :ALIASES ("rmonitor-secure") :PORT 5145
   :PROTO "tcp">
 #<SERVICE :NAME "rmonitor_secure" :ALIASES ("rmonitor-secure") :PORT 5145
   :PROTO "udp">
 #<SERVICE :NAME "social-alarm" :ALIASES NIL :PORT 5146 :PROTO "tcp">
 #<SERVICE :NAME "atmp" :ALIASES NIL :PORT 5150 :PROTO "tcp">
 #<SERVICE :NAME "atmp" :ALIASES NIL :PORT 5150 :PROTO "udp">
 #<SERVICE :NAME "esri_sde" :ALIASES ("esri-sde") :PORT 5151 :PROTO "tcp">
 #<SERVICE :NAME "esri_sde" :ALIASES ("esri-sde") :PORT 5151 :PROTO "udp">
 #<SERVICE :NAME "sde-discovery" :ALIASES NIL :PORT 5152 :PROTO "tcp">
 #<SERVICE :NAME "sde-discovery" :ALIASES NIL :PORT 5152 :PROTO "udp">
 #<SERVICE :NAME "toruxserver" :ALIASES NIL :PORT 5153 :PROTO "tcp">
 #<SERVICE :NAME "bzflag" :ALIASES NIL :PORT 5154 :PROTO "tcp">
 #<SERVICE :NAME "bzflag" :ALIASES NIL :PORT 5154 :PROTO "udp">
 #<SERVICE :NAME "asctrl-agent" :ALIASES NIL :PORT 5155 :PROTO "tcp">
 #<SERVICE :NAME "asctrl-agent" :ALIASES NIL :PORT 5155 :PROTO "udp">
 #<SERVICE :NAME "rugameonline" :ALIASES NIL :PORT 5156 :PROTO "tcp">
 #<SERVICE :NAME "mediat" :ALIASES NIL :PORT 5157 :PROTO "tcp">
 #<SERVICE :NAME "snmpssh" :ALIASES NIL :PORT 5161 :PROTO "tcp">
 #<SERVICE :NAME "snmpssh-trap" :ALIASES NIL :PORT 5162 :PROTO "tcp">
 #<SERVICE :NAME "sbackup" :ALIASES NIL :PORT 5163 :PROTO "tcp">
 #<SERVICE :NAME "vpa" :ALIASES NIL :PORT 5164 :PROTO "tcp">
 #<SERVICE :NAME "vpa-disc" :ALIASES NIL :PORT 5164 :PROTO "udp">
 #<SERVICE :NAME "ife_icorp" :ALIASES ("ife-icorp") :PORT 5165 :PROTO "tcp">
 #<SERVICE :NAME "ife_icorp" :ALIASES ("ife-icorp") :PORT 5165 :PROTO "udp">
 #<SERVICE :NAME "winpcs" :ALIASES NIL :PORT 5166 :PROTO "tcp">
 #<SERVICE :NAME "winpcs" :ALIASES NIL :PORT 5166 :PROTO "udp">
 #<SERVICE :NAME "scte104" :ALIASES NIL :PORT 5167 :PROTO "tcp">
 #<SERVICE :NAME "scte104" :ALIASES NIL :PORT 5167 :PROTO "udp">
 #<SERVICE :NAME "scte30" :ALIASES NIL :PORT 5168 :PROTO "tcp">
 #<SERVICE :NAME "scte30" :ALIASES NIL :PORT 5168 :PROTO "udp">
 #<SERVICE :NAME "pcoip-mgmt" :ALIASES NIL :PORT 5172 :PROTO "tcp">
 #<SERVICE :NAME "aol" :ALIASES NIL :PORT 5190 :PROTO "tcp">
 #<SERVICE :NAME "aol" :ALIASES NIL :PORT 5190 :PROTO "udp">
 #<SERVICE :NAME "aol-1" :ALIASES NIL :PORT 5191 :PROTO "tcp">
 #<SERVICE :NAME "aol-1" :ALIASES NIL :PORT 5191 :PROTO "udp">
 #<SERVICE :NAME "aol-2" :ALIASES NIL :PORT 5192 :PROTO "tcp">
 #<SERVICE :NAME "aol-2" :ALIASES NIL :PORT 5192 :PROTO "udp">
 #<SERVICE :NAME "aol-3" :ALIASES NIL :PORT 5193 :PROTO "tcp">
 #<SERVICE :NAME "aol-3" :ALIASES NIL :PORT 5193 :PROTO "udp">
 #<SERVICE :NAME "cpscomm" :ALIASES NIL :PORT 5194 :PROTO "tcp">
 #<SERVICE :NAME "ampl-lic" :ALIASES NIL :PORT 5195 :PROTO "tcp">
 #<SERVICE :NAME "ampl-tableproxy" :ALIASES NIL :PORT 5196 :PROTO "tcp">
 #<SERVICE :NAME "tunstall-lwp" :ALIASES NIL :PORT 5197 :PROTO "tcp">
 #<SERVICE :NAME "targus-getdata" :ALIASES NIL :PORT 5200 :PROTO "tcp">
 #<SERVICE :NAME "targus-getdata" :ALIASES NIL :PORT 5200 :PROTO "udp">
 #<SERVICE :NAME "targus-getdata1" :ALIASES NIL :PORT 5201 :PROTO "tcp">
 #<SERVICE :NAME "targus-getdata1" :ALIASES NIL :PORT 5201 :PROTO "udp">
 #<SERVICE :NAME "targus-getdata2" :ALIASES NIL :PORT 5202 :PROTO "tcp">
 #<SERVICE :NAME "targus-getdata2" :ALIASES NIL :PORT 5202 :PROTO "udp">
 #<SERVICE :NAME "targus-getdata3" :ALIASES NIL :PORT 5203 :PROTO "tcp">
 #<SERVICE :NAME "targus-getdata3" :ALIASES NIL :PORT 5203 :PROTO "udp">
 #<SERVICE :NAME "nomad" :ALIASES NIL :PORT 5209 :PROTO "tcp">
 #<SERVICE :NAME "noteza" :ALIASES NIL :PORT 5215 :PROTO "tcp">
 #<SERVICE :NAME "noteza" :ALIASES NIL :PORT 5215 :PROTO "sctp">
 #<SERVICE :NAME "3exmp" :ALIASES NIL :PORT 5221 :PROTO "tcp">
 #<SERVICE :NAME "xmpp-client" :ALIASES NIL :PORT 5222 :PROTO "tcp">
 #<SERVICE :NAME "hpvirtgrp" :ALIASES NIL :PORT 5223 :PROTO "tcp">
 #<SERVICE :NAME "hpvirtgrp" :ALIASES NIL :PORT 5223 :PROTO "udp">
 #<SERVICE :NAME "hpvirtctrl" :ALIASES NIL :PORT 5224 :PROTO "tcp">
 #<SERVICE :NAME "hpvirtctrl" :ALIASES NIL :PORT 5224 :PROTO "udp">
 #<SERVICE :NAME "hp-server" :ALIASES NIL :PORT 5225 :PROTO "tcp">
 #<SERVICE :NAME "hp-server" :ALIASES NIL :PORT 5225 :PROTO "udp">
 #<SERVICE :NAME "hp-status" :ALIASES NIL :PORT 5226 :PROTO "tcp">
 #<SERVICE :NAME "hp-status" :ALIASES NIL :PORT 5226 :PROTO "udp">
 #<SERVICE :NAME "perfd" :ALIASES NIL :PORT 5227 :PROTO "tcp">
 #<SERVICE :NAME "perfd" :ALIASES NIL :PORT 5227 :PROTO "udp">
 #<SERVICE :NAME "hpvroom" :ALIASES NIL :PORT 5228 :PROTO "tcp">
 #<SERVICE :NAME "jaxflow" :ALIASES NIL :PORT 5229 :PROTO "tcp">
 #<SERVICE :NAME "jaxflow-data" :ALIASES NIL :PORT 5230 :PROTO "tcp">
 #<SERVICE :NAME "crusecontrol" :ALIASES NIL :PORT 5231 :PROTO "tcp">
 #<SERVICE :NAME "enfs" :ALIASES NIL :PORT 5233 :PROTO "tcp">
 #<SERVICE :NAME "eenet" :ALIASES NIL :PORT 5234 :PROTO "tcp">
 #<SERVICE :NAME "eenet" :ALIASES NIL :PORT 5234 :PROTO "udp">
 #<SERVICE :NAME "galaxy-network" :ALIASES NIL :PORT 5235 :PROTO "tcp">
 #<SERVICE :NAME "galaxy-network" :ALIASES NIL :PORT 5235 :PROTO "udp">
 #<SERVICE :NAME "padl2sim" :ALIASES NIL :PORT 5236 :PROTO "tcp">
 #<SERVICE :NAME "padl2sim" :ALIASES NIL :PORT 5236 :PROTO "udp">
 #<SERVICE :NAME "mnet-discovery" :ALIASES NIL :PORT 5237 :PROTO "tcp">
 #<SERVICE :NAME "mnet-discovery" :ALIASES NIL :PORT 5237 :PROTO "udp">
 #<SERVICE :NAME "downtools" :ALIASES NIL :PORT 5245 :PROTO "tcp">
 #<SERVICE :NAME "downtools-disc" :ALIASES NIL :PORT 5245 :PROTO "udp">
 #<SERVICE :NAME "capwap-control" :ALIASES NIL :PORT 5246 :PROTO "udp">
 #<SERVICE :NAME "capwap-data" :ALIASES NIL :PORT 5247 :PROTO "udp">
 #<SERVICE :NAME "caacws" :ALIASES NIL :PORT 5248 :PROTO "tcp">
 #<SERVICE :NAME "caacws" :ALIASES NIL :PORT 5248 :PROTO "udp">
 #<SERVICE :NAME "caaclang2" :ALIASES NIL :PORT 5249 :PROTO "tcp">
 #<SERVICE :NAME "caaclang2" :ALIASES NIL :PORT 5249 :PROTO "udp">
 #<SERVICE :NAME "soagateway" :ALIASES NIL :PORT 5250 :PROTO "tcp">
 #<SERVICE :NAME "soagateway" :ALIASES NIL :PORT 5250 :PROTO "udp">
 #<SERVICE :NAME "caevms" :ALIASES NIL :PORT 5251 :PROTO "tcp">
 #<SERVICE :NAME "caevms" :ALIASES NIL :PORT 5251 :PROTO "udp">
 #<SERVICE :NAME "movaz-ssc" :ALIASES NIL :PORT 5252 :PROTO "tcp">
 #<SERVICE :NAME "movaz-ssc" :ALIASES NIL :PORT 5252 :PROTO "udp">
 #<SERVICE :NAME "kpdp" :ALIASES NIL :PORT 5253 :PROTO "tcp">
 #<SERVICE :NAME "logcabin" :ALIASES NIL :PORT 5254 :PROTO "tcp">
 #<SERVICE :NAME "3com-njack-1" :ALIASES NIL :PORT 5264 :PROTO "tcp">
 #<SERVICE :NAME "3com-njack-1" :ALIASES NIL :PORT 5264 :PROTO "udp">
 #<SERVICE :NAME "3com-njack-2" :ALIASES NIL :PORT 5265 :PROTO "tcp">
 #<SERVICE :NAME "3com-njack-2" :ALIASES NIL :PORT 5265 :PROTO "udp">
 #<SERVICE :NAME "xmpp-server" :ALIASES NIL :PORT 5269 :PROTO "tcp">
 #<SERVICE :NAME "cartographerxmp" :ALIASES NIL :PORT 5270 :PROTO "tcp">
 #<SERVICE :NAME "cartographerxmp" :ALIASES NIL :PORT 5270 :PROTO "udp">
 #<SERVICE :NAME "cuelink" :ALIASES NIL :PORT 5271 :PROTO "tcp">
 #<SERVICE :NAME "cuelink-disc" :ALIASES NIL :PORT 5271 :PROTO "udp">
 #<SERVICE :NAME "pk" :ALIASES NIL :PORT 5272 :PROTO "tcp">
 #<SERVICE :NAME "pk" :ALIASES NIL :PORT 5272 :PROTO "udp">
 #<SERVICE :NAME "xmpp-bosh" :ALIASES NIL :PORT 5280 :PROTO "tcp">
 #<SERVICE :NAME "undo-lm" :ALIASES NIL :PORT 5281 :PROTO "tcp">
 #<SERVICE :NAME "transmit-port" :ALIASES NIL :PORT 5282 :PROTO "tcp">
 #<SERVICE :NAME "transmit-port" :ALIASES NIL :PORT 5282 :PROTO "udp">
 #<SERVICE :NAME "presence" :ALIASES NIL :PORT 5298 :PROTO "tcp">
 #<SERVICE :NAME "presence" :ALIASES NIL :PORT 5298 :PROTO "udp">
 #<SERVICE :NAME "nlg-data" :ALIASES NIL :PORT 5299 :PROTO "tcp">
 #<SERVICE :NAME "nlg-data" :ALIASES NIL :PORT 5299 :PROTO "udp">
 #<SERVICE :NAME "hacl-hb" :ALIASES NIL :PORT 5300 :PROTO "tcp">
 #<SERVICE :NAME "hacl-hb" :ALIASES NIL :PORT 5300 :PROTO "udp">
 #<SERVICE :NAME "hacl-gs" :ALIASES NIL :PORT 5301 :PROTO "tcp">
 #<SERVICE :NAME "hacl-gs" :ALIASES NIL :PORT 5301 :PROTO "udp">
 #<SERVICE :NAME "hacl-cfg" :ALIASES NIL :PORT 5302 :PROTO "tcp">
 #<SERVICE :NAME "hacl-cfg" :ALIASES NIL :PORT 5302 :PROTO "udp">
 #<SERVICE :NAME "hacl-probe" :ALIASES NIL :PORT 5303 :PROTO "tcp">
 #<SERVICE :NAME "hacl-probe" :ALIASES NIL :PORT 5303 :PROTO "udp">
 #<SERVICE :NAME "hacl-local" :ALIASES NIL :PORT 5304 :PROTO "tcp">
 #<SERVICE :NAME "hacl-local" :ALIASES NIL :PORT 5304 :PROTO "udp">
 #<SERVICE :NAME "hacl-test" :ALIASES NIL :PORT 5305 :PROTO "tcp">
 #<SERVICE :NAME "hacl-test" :ALIASES NIL :PORT 5305 :PROTO "udp">
 #<SERVICE :NAME "sun-mc-grp" :ALIASES NIL :PORT 5306 :PROTO "tcp">
 #<SERVICE :NAME "sun-mc-grp" :ALIASES NIL :PORT 5306 :PROTO "udp">
 #<SERVICE :NAME "sco-aip" :ALIASES NIL :PORT 5307 :PROTO "tcp">
 #<SERVICE :NAME "sco-aip" :ALIASES NIL :PORT 5307 :PROTO "udp">
 #<SERVICE :NAME "jprinter" :ALIASES NIL :PORT 5309 :PROTO "tcp">
 #<SERVICE :NAME "jprinter" :ALIASES NIL :PORT 5309 :PROTO "udp">
 #<SERVICE :NAME "outlaws" :ALIASES NIL :PORT 5310 :PROTO "tcp">
 #<SERVICE :NAME "outlaws" :ALIASES NIL :PORT 5310 :PROTO "udp">
 #<SERVICE :NAME "permabit-cs" :ALIASES NIL :PORT 5312 :PROTO "tcp">
 #<SERVICE :NAME "permabit-cs" :ALIASES NIL :PORT 5312 :PROTO "udp">
 #<SERVICE :NAME "rrdp" :ALIASES NIL :PORT 5313 :PROTO "tcp">
 #<SERVICE :NAME "rrdp" :ALIASES NIL :PORT 5313 :PROTO "udp">
 #<SERVICE :NAME "opalis-rbt-ipc" :ALIASES NIL :PORT 5314 :PROTO "tcp">
 #<SERVICE :NAME "opalis-rbt-ipc" :ALIASES NIL :PORT 5314 :PROTO "udp">
 #<SERVICE :NAME "hacl-poll" :ALIASES NIL :PORT 5315 :PROTO "tcp">
 #<SERVICE :NAME "hacl-poll" :ALIASES NIL :PORT 5315 :PROTO "udp">
 #<SERVICE :NAME "hpbladems" :ALIASES NIL :PORT 5316 :PROTO "tcp">
 #<SERVICE :NAME "hpdevms" :ALIASES NIL :PORT 5317 :PROTO "tcp">
 #<SERVICE :NAME "pkix-cmc" :ALIASES NIL :PORT 5318 :PROTO "tcp">
 #<SERVICE :NAME "bsfserver-zn" :ALIASES NIL :PORT 5320 :PROTO "tcp">
 #<SERVICE :NAME "bsfsvr-zn-ssl" :ALIASES NIL :PORT 5321 :PROTO "tcp">
 #<SERVICE :NAME "kfserver" :ALIASES NIL :PORT 5343 :PROTO "tcp">
 #<SERVICE :NAME "kfserver" :ALIASES NIL :PORT 5343 :PROTO "udp">
 #<SERVICE :NAME "xkotodrcp" :ALIASES NIL :PORT 5344 :PROTO "tcp">
 #<SERVICE :NAME "xkotodrcp" :ALIASES NIL :PORT 5344 :PROTO "udp">
 #<SERVICE :NAME "stuns" :ALIASES ("stun-behaviors" "turns") :PORT 5349
   :PROTO "tcp">
 #<SERVICE :NAME "stuns" :ALIASES ("stun-behaviors" "turns") :PORT 5349
   :PROTO "udp">
 #<SERVICE :NAME "pcp-multicast" :ALIASES NIL :PORT 5350 :PROTO "tcp">
 #<SERVICE :NAME "pcp" :ALIASES NIL :PORT 5350 :PROTO "udp">
 #<SERVICE :NAME "dns-llq" :ALIASES NIL :PORT 5352 :PROTO "tcp">
 #<SERVICE :NAME "dns-llq" :ALIASES NIL :PORT 5352 :PROTO "udp">
 #<SERVICE :NAME "mdns" :ALIASES NIL :PORT 5353 :PROTO "tcp">
 #<SERVICE :NAME "mdns" :ALIASES NIL :PORT 5353 :PROTO "udp">
 #<SERVICE :NAME "mdnsresponder" :ALIASES ("noclog") :PORT 5354 :PROTO "tcp">
 #<SERVICE :NAME "mdnsresponder" :ALIASES ("noclog") :PORT 5354 :PROTO "udp">
 #<SERVICE :NAME "ms-smlbiz" :ALIASES NIL :PORT 5356 :PROTO "tcp">
 #<SERVICE :NAME "ms-smlbiz" :ALIASES NIL :PORT 5356 :PROTO "udp">
 #<SERVICE :NAME "wsdapi" :ALIASES NIL :PORT 5357 :PROTO "tcp">
 #<SERVICE :NAME "wsdapi" :ALIASES NIL :PORT 5357 :PROTO "udp">
 #<SERVICE :NAME "wsdapi-s" :ALIASES NIL :PORT 5358 :PROTO "tcp">
 #<SERVICE :NAME "wsdapi-s" :ALIASES NIL :PORT 5358 :PROTO "udp">
 #<SERVICE :NAME "ms-alerter" :ALIASES NIL :PORT 5359 :PROTO "tcp">
 #<SERVICE :NAME "ms-alerter" :ALIASES NIL :PORT 5359 :PROTO "udp">
 #<SERVICE :NAME "ms-sideshow" :ALIASES NIL :PORT 5360 :PROTO "tcp">
 #<SERVICE :NAME "ms-sideshow" :ALIASES NIL :PORT 5360 :PROTO "udp">
 #<SERVICE :NAME "ms-s-sideshow" :ALIASES NIL :PORT 5361 :PROTO "tcp">
 #<SERVICE :NAME "ms-s-sideshow" :ALIASES NIL :PORT 5361 :PROTO "udp">
 #<SERVICE :NAME "serverwsd2" :ALIASES NIL :PORT 5362 :PROTO "tcp">
 #<SERVICE :NAME "serverwsd2" :ALIASES NIL :PORT 5362 :PROTO "udp">
 #<SERVICE :NAME "net-projection" :ALIASES NIL :PORT 5363 :PROTO "tcp">
 #<SERVICE :NAME "net-projection" :ALIASES NIL :PORT 5363 :PROTO "udp">
 #<SERVICE :NAME "kdnet" :ALIASES NIL :PORT 5364 :PROTO "udp">
 #<SERVICE :NAME "stresstester" :ALIASES NIL :PORT 5397 :PROTO "tcp">
 #<SERVICE :NAME "stresstester" :ALIASES NIL :PORT 5397 :PROTO "udp">
 #<SERVICE :NAME "elektron-admin" :ALIASES NIL :PORT 5398 :PROTO "tcp">
 #<SERVICE :NAME "elektron-admin" :ALIASES NIL :PORT 5398 :PROTO "udp">
 #<SERVICE :NAME "securitychase" :ALIASES NIL :PORT 5399 :PROTO "tcp">
 #<SERVICE :NAME "securitychase" :ALIASES NIL :PORT 5399 :PROTO "udp">
 #<SERVICE :NAME "excerpt" :ALIASES NIL :PORT 5400 :PROTO "tcp">
 #<SERVICE :NAME "excerpt" :ALIASES NIL :PORT 5400 :PROTO "udp">
 #<SERVICE :NAME "excerpts" :ALIASES NIL :PORT 5401 :PROTO "tcp">
 #<SERVICE :NAME "excerpts" :ALIASES NIL :PORT 5401 :PROTO "udp">
 #<SERVICE :NAME "hpoms-ci-lstn" :ALIASES NIL :PORT 5403 :PROTO "tcp">
 #<SERVICE :NAME "hpoms-ci-lstn" :ALIASES NIL :PORT 5403 :PROTO "udp">
 #<SERVICE :NAME "hpoms-dps-lstn" :ALIASES NIL :PORT 5404 :PROTO "tcp">
 #<SERVICE :NAME "hpoms-dps-lstn" :ALIASES NIL :PORT 5404 :PROTO "udp">
 #<SERVICE :NAME "netsupport" :ALIASES NIL :PORT 5405 :PROTO "tcp">
 #<SERVICE :NAME "netsupport" :ALIASES NIL :PORT 5405 :PROTO "udp">
 #<SERVICE :NAME "systemics-sox" :ALIASES NIL :PORT 5406 :PROTO "tcp">
 #<SERVICE :NAME "systemics-sox" :ALIASES NIL :PORT 5406 :PROTO "udp">
 #<SERVICE :NAME "foresyte-clear" :ALIASES NIL :PORT 5407 :PROTO "tcp">
 #<SERVICE :NAME "foresyte-clear" :ALIASES NIL :PORT 5407 :PROTO "udp">
 #<SERVICE :NAME "foresyte-sec" :ALIASES NIL :PORT 5408 :PROTO "tcp">
 #<SERVICE :NAME "foresyte-sec" :ALIASES NIL :PORT 5408 :PROTO "udp">
 #<SERVICE :NAME "salient-dtasrv" :ALIASES NIL :PORT 5409 :PROTO "tcp">
 #<SERVICE :NAME "salient-dtasrv" :ALIASES NIL :PORT 5409 :PROTO "udp">
 #<SERVICE :NAME "salient-usrmgr" :ALIASES NIL :PORT 5410 :PROTO "tcp">
 #<SERVICE :NAME "salient-usrmgr" :ALIASES NIL :PORT 5410 :PROTO "udp">
 #<SERVICE :NAME "actnet" :ALIASES NIL :PORT 5411 :PROTO "tcp">
 #<SERVICE :NAME "actnet" :ALIASES NIL :PORT 5411 :PROTO "udp">
 #<SERVICE :NAME "continuus" :ALIASES NIL :PORT 5412 :PROTO "tcp">
 #<SERVICE :NAME "continuus" :ALIASES NIL :PORT 5412 :PROTO "udp">
 #<SERVICE :NAME "wwiotalk" :ALIASES NIL :PORT 5413 :PROTO "tcp">
 #<SERVICE :NAME "wwiotalk" :ALIASES NIL :PORT 5413 :PROTO "udp">
 #<SERVICE :NAME "statusd" :ALIASES NIL :PORT 5414 :PROTO "tcp">
 #<SERVICE :NAME "statusd" :ALIASES NIL :PORT 5414 :PROTO "udp">
 #<SERVICE :NAME "ns-server" :ALIASES NIL :PORT 5415 :PROTO "tcp">
 #<SERVICE :NAME "ns-server" :ALIASES NIL :PORT 5415 :PROTO "udp">
 #<SERVICE :NAME "sns-gateway" :ALIASES NIL :PORT 5416 :PROTO "tcp">
 #<SERVICE :NAME "sns-gateway" :ALIASES NIL :PORT 5416 :PROTO "udp">
 #<SERVICE :NAME "sns-agent" :ALIASES NIL :PORT 5417 :PROTO "tcp">
 #<SERVICE :NAME "sns-agent" :ALIASES NIL :PORT 5417 :PROTO "udp">
 #<SERVICE :NAME "mcntp" :ALIASES NIL :PORT 5418 :PROTO "tcp">
 #<SERVICE :NAME "mcntp" :ALIASES NIL :PORT 5418 :PROTO "udp">
 #<SERVICE :NAME "dj-ice" :ALIASES NIL :PORT 5419 :PROTO "tcp">
 #<SERVICE :NAME "dj-ice" :ALIASES NIL :PORT 5419 :PROTO "udp">
 #<SERVICE :NAME "cylink-c" :ALIASES NIL :PORT 5420 :PROTO "tcp">
 #<SERVICE :NAME "cylink-c" :ALIASES NIL :PORT 5420 :PROTO "udp">
 #<SERVICE :NAME "netsupport2" :ALIASES NIL :PORT 5421 :PROTO "tcp">
 #<SERVICE :NAME "netsupport2" :ALIASES NIL :PORT 5421 :PROTO "udp">
 #<SERVICE :NAME "salient-mux" :ALIASES NIL :PORT 5422 :PROTO "tcp">
 #<SERVICE :NAME "salient-mux" :ALIASES NIL :PORT 5422 :PROTO "udp">
 #<SERVICE :NAME "virtualuser" :ALIASES NIL :PORT 5423 :PROTO "tcp">
 #<SERVICE :NAME "virtualuser" :ALIASES NIL :PORT 5423 :PROTO "udp">
 #<SERVICE :NAME "beyond-remote" :ALIASES NIL :PORT 5424 :PROTO "tcp">
 #<SERVICE :NAME "beyond-remote" :ALIASES NIL :PORT 5424 :PROTO "udp">
 #<SERVICE :NAME "br-channel" :ALIASES NIL :PORT 5425 :PROTO "tcp">
 #<SERVICE :NAME "br-channel" :ALIASES NIL :PORT 5425 :PROTO "udp">
 #<SERVICE :NAME "devbasic" :ALIASES NIL :PORT 5426 :PROTO "tcp">
 #<SERVICE :NAME "devbasic" :ALIASES NIL :PORT 5426 :PROTO "udp">
 #<SERVICE :NAME "sco-peer-tta" :ALIASES NIL :PORT 5427 :PROTO "tcp">
 #<SERVICE :NAME "sco-peer-tta" :ALIASES NIL :PORT 5427 :PROTO "udp">
 #<SERVICE :NAME "telaconsole" :ALIASES NIL :PORT 5428 :PROTO "tcp">
 #<SERVICE :NAME "telaconsole" :ALIASES NIL :PORT 5428 :PROTO "udp">
 #<SERVICE :NAME "base" :ALIASES NIL :PORT 5429 :PROTO "tcp">
 #<SERVICE :NAME "base" :ALIASES NIL :PORT 5429 :PROTO "udp">
 #<SERVICE :NAME "radec-corp" :ALIASES NIL :PORT 5430 :PROTO "tcp">
 #<SERVICE :NAME "radec-corp" :ALIASES NIL :PORT 5430 :PROTO "udp">
 #<SERVICE :NAME "park-agent" :ALIASES NIL :PORT 5431 :PROTO "tcp">
 #<SERVICE :NAME "park-agent" :ALIASES NIL :PORT 5431 :PROTO "udp">
 #<SERVICE :NAME "pyrrho" :ALIASES NIL :PORT 5433 :PROTO "tcp">
 #<SERVICE :NAME "pyrrho" :ALIASES NIL :PORT 5433 :PROTO "udp">
 #<SERVICE :NAME "sgi-arrayd" :ALIASES NIL :PORT 5434 :PROTO "tcp">
 #<SERVICE :NAME "sgi-arrayd" :ALIASES NIL :PORT 5434 :PROTO "udp">
 #<SERVICE :NAME "sceanics" :ALIASES NIL :PORT 5435 :PROTO "tcp">
 #<SERVICE :NAME "sceanics" :ALIASES NIL :PORT 5435 :PROTO "udp">
 #<SERVICE :NAME "pmip6-cntl" :ALIASES NIL :PORT 5436 :PROTO "udp">
 #<SERVICE :NAME "pmip6-data" :ALIASES NIL :PORT 5437 :PROTO "udp">
 #<SERVICE :NAME "spss" :ALIASES NIL :PORT 5443 :PROTO "tcp">
 #<SERVICE :NAME "spss" :ALIASES NIL :PORT 5443 :PROTO "udp">
 #<SERVICE :NAME "smbdirect" :ALIASES NIL :PORT 5445 :PROTO "tcp">
 #<SERVICE :NAME "smbdirect" :ALIASES NIL :PORT 5445 :PROTO "sctp">
 #<SERVICE :NAME "tiepie" :ALIASES NIL :PORT 5450 :PROTO "tcp">
 #<SERVICE :NAME "tiepie-disc" :ALIASES NIL :PORT 5450 :PROTO "udp">
 #<SERVICE :NAME "surebox" :ALIASES NIL :PORT 5453 :PROTO "tcp">
 #<SERVICE :NAME "surebox" :ALIASES NIL :PORT 5453 :PROTO "udp">
 #<SERVICE :NAME "apc-5454" :ALIASES NIL :PORT 5454 :PROTO "tcp">
 #<SERVICE :NAME "apc-5454" :ALIASES NIL :PORT 5454 :PROTO "udp">
 #<SERVICE :NAME "apc-5455" :ALIASES NIL :PORT 5455 :PROTO "tcp">
 #<SERVICE :NAME "apc-5455" :ALIASES NIL :PORT 5455 :PROTO "udp">
 #<SERVICE :NAME "apc-5456" :ALIASES NIL :PORT 5456 :PROTO "tcp">
 #<SERVICE :NAME "apc-5456" :ALIASES NIL :PORT 5456 :PROTO "udp">
 #<SERVICE :NAME "silkmeter" :ALIASES NIL :PORT 5461 :PROTO "tcp">
 #<SERVICE :NAME "silkmeter" :ALIASES NIL :PORT 5461 :PROTO "udp">
 #<SERVICE :NAME "ttl-publisher" :ALIASES NIL :PORT 5462 :PROTO "tcp">
 #<SERVICE :NAME "ttl-publisher" :ALIASES NIL :PORT 5462 :PROTO "udp">
 #<SERVICE :NAME "ttlpriceproxy" :ALIASES NIL :PORT 5463 :PROTO "tcp">
 #<SERVICE :NAME "ttlpriceproxy" :ALIASES NIL :PORT 5463 :PROTO "udp">
 #<SERVICE :NAME "quailnet" :ALIASES NIL :PORT 5464 :PROTO "tcp">
 #<SERVICE :NAME "quailnet" :ALIASES NIL :PORT 5464 :PROTO "udp">
 #<SERVICE :NAME "netops-broker" :ALIASES NIL :PORT 5465 :PROTO "tcp">
 #<SERVICE :NAME "netops-broker" :ALIASES NIL :PORT 5465 :PROTO "udp">
 #<SERVICE :NAME "absolab-col" :ALIASES NIL :PORT 5470 :PROTO "tcp">
 #<SERVICE :NAME "absolab-cols" :ALIASES NIL :PORT 5471 :PROTO "tcp">
 #<SERVICE :NAME "absolab-tag" :ALIASES NIL :PORT 5472 :PROTO "tcp">
 #<SERVICE :NAME "absolab-tags" :ALIASES NIL :PORT 5473 :PROTO "tcp">
 #<SERVICE :NAME "absolab-rpc" :ALIASES NIL :PORT 5474 :PROTO "udp">
 #<SERVICE :NAME "absolab-data" :ALIASES NIL :PORT 5475 :PROTO "tcp">
 #<SERVICE :NAME "fcp-addr-srvr1" :ALIASES NIL :PORT 5500 :PROTO "tcp">
 #<SERVICE :NAME "fcp-addr-srvr1" :ALIASES NIL :PORT 5500 :PROTO "udp">
 #<SERVICE :NAME "fcp-addr-srvr2" :ALIASES NIL :PORT 5501 :PROTO "tcp">
 #<SERVICE :NAME "fcp-addr-srvr2" :ALIASES NIL :PORT 5501 :PROTO "udp">
 #<SERVICE :NAME "fcp-srvr-inst1" :ALIASES NIL :PORT 5502 :PROTO "tcp">
 #<SERVICE :NAME "fcp-srvr-inst1" :ALIASES NIL :PORT 5502 :PROTO "udp">
 #<SERVICE :NAME "fcp-srvr-inst2" :ALIASES NIL :PORT 5503 :PROTO "tcp">
 #<SERVICE :NAME "fcp-srvr-inst2" :ALIASES NIL :PORT 5503 :PROTO "udp">
 #<SERVICE :NAME "fcp-cics-gw1" :ALIASES NIL :PORT 5504 :PROTO "tcp">
 #<SERVICE :NAME "fcp-cics-gw1" :ALIASES NIL :PORT 5504 :PROTO "udp">
 #<SERVICE :NAME "checkoutdb" :ALIASES NIL :PORT 5505 :PROTO "tcp">
 #<SERVICE :NAME "checkoutdb" :ALIASES NIL :PORT 5505 :PROTO "udp">
 #<SERVICE :NAME "amc" :ALIASES NIL :PORT 5506 :PROTO "tcp">
 #<SERVICE :NAME "amc" :ALIASES NIL :PORT 5506 :PROTO "udp">
 #<SERVICE :NAME "psl-management" :ALIASES NIL :PORT 5507 :PROTO "tcp">
 #<SERVICE :NAME "sgi-eventmond" :ALIASES NIL :PORT 5553 :PROTO "tcp">
 #<SERVICE :NAME "sgi-eventmond" :ALIASES NIL :PORT 5553 :PROTO "udp">
 #<SERVICE :NAME "sgi-esphttp" :ALIASES NIL :PORT 5554 :PROTO "tcp">
 #<SERVICE :NAME "sgi-esphttp" :ALIASES NIL :PORT 5554 :PROTO "udp">
 #<SERVICE :NAME "personal-agent" :ALIASES NIL :PORT 5555 :PROTO "tcp">
 #<SERVICE :NAME "personal-agent" :ALIASES NIL :PORT 5555 :PROTO "udp">
 #<SERVICE :NAME "freeciv" :ALIASES NIL :PORT 5556 :PROTO "tcp">
 #<SERVICE :NAME "freeciv" :ALIASES NIL :PORT 5556 :PROTO "udp">
 #<SERVICE :NAME "farenet" :ALIASES NIL :PORT 5557 :PROTO "tcp">
 #<SERVICE :NAME "hpe-dp-bura" :ALIASES NIL :PORT 5565 :PROTO "tcp">
 #<SERVICE :NAME "westec-connect" :ALIASES NIL :PORT 5566 :PROTO "tcp">
 #<SERVICE :NAME "dof-dps-mc-sec" :ALIASES NIL :PORT 5567 :PROTO "tcp">
 #<SERVICE :NAME "dof-dps-mc-sec" :ALIASES NIL :PORT 5567 :PROTO "udp">
 #<SERVICE :NAME "sdt" :ALIASES NIL :PORT 5568 :PROTO "tcp">
 #<SERVICE :NAME "sdt" :ALIASES NIL :PORT 5568 :PROTO "udp">
 #<SERVICE :NAME "rdmnet-ctrl" :ALIASES NIL :PORT 5569 :PROTO "tcp">
 #<SERVICE :NAME "rdmnet-device" :ALIASES NIL :PORT 5569 :PROTO "udp">
 #<SERVICE :NAME "sdmmp" :ALIASES NIL :PORT 5573 :PROTO "tcp">
 #<SERVICE :NAME "sdmmp" :ALIASES NIL :PORT 5573 :PROTO "udp">
 #<SERVICE :NAME "lsi-bobcat" :ALIASES NIL :PORT 5574 :PROTO "tcp">
 #<SERVICE :NAME "ora-oap" :ALIASES NIL :PORT 5575 :PROTO "tcp">
 #<SERVICE :NAME "fdtracks" :ALIASES NIL :PORT 5579 :PROTO "tcp">
 #<SERVICE :NAME "tmosms0" :ALIASES NIL :PORT 5580 :PROTO "tcp">
 #<SERVICE :NAME "tmosms0" :ALIASES NIL :PORT 5580 :PROTO "udp">
 #<SERVICE :NAME "tmosms1" :ALIASES NIL :PORT 5581 :PROTO "tcp">
 #<SERVICE :NAME "tmosms1" :ALIASES NIL :PORT 5581 :PROTO "udp">
 #<SERVICE :NAME "fac-restore" :ALIASES NIL :PORT 5582 :PROTO "tcp">
 #<SERVICE :NAME "fac-restore" :ALIASES NIL :PORT 5582 :PROTO "udp">
 #<SERVICE :NAME "tmo-icon-sync" :ALIASES NIL :PORT 5583 :PROTO "tcp">
 #<SERVICE :NAME "tmo-icon-sync" :ALIASES NIL :PORT 5583 :PROTO "udp">
 #<SERVICE :NAME "bis-web" :ALIASES NIL :PORT 5584 :PROTO "tcp">
 #<SERVICE :NAME "bis-web" :ALIASES NIL :PORT 5584 :PROTO "udp">
 #<SERVICE :NAME "bis-sync" :ALIASES NIL :PORT 5585 :PROTO "tcp">
 #<SERVICE :NAME "bis-sync" :ALIASES NIL :PORT 5585 :PROTO "udp">
 #<SERVICE :NAME "att-mt-sms" :ALIASES NIL :PORT 5586 :PROTO "tcp">
 #<SERVICE :NAME "ininmessaging" :ALIASES NIL :PORT 5597 :PROTO "tcp">
 #<SERVICE :NAME "ininmessaging" :ALIASES NIL :PORT 5597 :PROTO "udp">
 #<SERVICE :NAME "mctfeed" :ALIASES NIL :PORT 5598 :PROTO "tcp">
 #<SERVICE :NAME "mctfeed" :ALIASES NIL :PORT 5598 :PROTO "udp">
 #<SERVICE :NAME "esinstall" :ALIASES NIL :PORT 5599 :PROTO "tcp">
 #<SERVICE :NAME "esinstall" :ALIASES NIL :PORT 5599 :PROTO "udp">
 #<SERVICE :NAME "esmmanager" :ALIASES NIL :PORT 5600 :PROTO "tcp">
 #<SERVICE :NAME "esmmanager" :ALIASES NIL :PORT 5600 :PROTO "udp">
 #<SERVICE :NAME "esmagent" :ALIASES NIL :PORT 5601 :PROTO "tcp">
 #<SERVICE :NAME "esmagent" :ALIASES NIL :PORT 5601 :PROTO "udp">
 #<SERVICE :NAME "a1-msc" :ALIASES NIL :PORT 5602 :PROTO "tcp">
 #<SERVICE :NAME "a1-msc" :ALIASES NIL :PORT 5602 :PROTO "udp">
 #<SERVICE :NAME "a1-bs" :ALIASES NIL :PORT 5603 :PROTO "tcp">
 #<SERVICE :NAME "a1-bs" :ALIASES NIL :PORT 5603 :PROTO "udp">
 #<SERVICE :NAME "a3-sdunode" :ALIASES NIL :PORT 5604 :PROTO "tcp">
 #<SERVICE :NAME "a3-sdunode" :ALIASES NIL :PORT 5604 :PROTO "udp">
 #<SERVICE :NAME "a4-sdunode" :ALIASES NIL :PORT 5605 :PROTO "tcp">
 #<SERVICE :NAME "a4-sdunode" :ALIASES NIL :PORT 5605 :PROTO "udp">
 #<SERVICE :NAME "efr" :ALIASES NIL :PORT 5618 :PROTO "tcp">
 #<SERVICE :NAME "ninaf" :ALIASES NIL :PORT 5627 :PROTO "tcp">
 #<SERVICE :NAME "ninaf" :ALIASES NIL :PORT 5627 :PROTO "udp">
 #<SERVICE :NAME "htrust" :ALIASES NIL :PORT 5628 :PROTO "tcp">
 #<SERVICE :NAME "htrust" :ALIASES NIL :PORT 5628 :PROTO "udp">
 #<SERVICE :NAME "symantec-sfdb" :ALIASES NIL :PORT 5629 :PROTO "tcp">
 #<SERVICE :NAME "symantec-sfdb" :ALIASES NIL :PORT 5629 :PROTO "udp">
 #<SERVICE :NAME "precise-comm" :ALIASES NIL :PORT 5630 :PROTO "tcp">
 #<SERVICE :NAME "precise-comm" :ALIASES NIL :PORT 5630 :PROTO "udp">
 #<SERVICE :NAME "pcanywheredata" :ALIASES NIL :PORT 5631 :PROTO "tcp">
 #<SERVICE :NAME "pcanywheredata" :ALIASES NIL :PORT 5631 :PROTO "udp">
 #<SERVICE :NAME "pcanywherestat" :ALIASES NIL :PORT 5632 :PROTO "tcp">
 #<SERVICE :NAME "pcanywherestat" :ALIASES NIL :PORT 5632 :PROTO "udp">
 #<SERVICE :NAME "beorl" :ALIASES NIL :PORT 5633 :PROTO "tcp">
 #<SERVICE :NAME "beorl" :ALIASES NIL :PORT 5633 :PROTO "udp">
 #<SERVICE :NAME "xprtld" :ALIASES NIL :PORT 5634 :PROTO "tcp">
 #<SERVICE :NAME "xprtld" :ALIASES NIL :PORT 5634 :PROTO "udp">
 #<SERVICE :NAME "sfmsso" :ALIASES NIL :PORT 5635 :PROTO "tcp">
 #<SERVICE :NAME "sfm-db-server" :ALIASES NIL :PORT 5636 :PROTO "tcp">
 #<SERVICE :NAME "cssc" :ALIASES NIL :PORT 5637 :PROTO "tcp">
 #<SERVICE :NAME "flcrs" :ALIASES NIL :PORT 5638 :PROTO "tcp">
 #<SERVICE :NAME "ics" :ALIASES NIL :PORT 5639 :PROTO "tcp">
 #<SERVICE :NAME "vfmobile" :ALIASES NIL :PORT 5646 :PROTO "tcp">
 #<SERVICE :NAME "nrpe" :ALIASES NIL :PORT 5666 :PROTO "tcp">
 #<SERVICE :NAME "filemq" :ALIASES NIL :PORT 5670 :PROTO "tcp">
 #<SERVICE :NAME "zre-disc" :ALIASES NIL :PORT 5670 :PROTO "udp">
 #<SERVICE :NAME "amqps" :ALIASES NIL :PORT 5671 :PROTO "tcp">
 #<SERVICE :NAME "amqps" :ALIASES NIL :PORT 5671 :PROTO "udp">
 #<SERVICE :NAME "amqp" :ALIASES NIL :PORT 5672 :PROTO "tcp">
 #<SERVICE :NAME "amqp" :ALIASES NIL :PORT 5672 :PROTO "udp">
 #<SERVICE :NAME "amqp" :ALIASES NIL :PORT 5672 :PROTO "sctp">
 #<SERVICE :NAME "jms" :ALIASES NIL :PORT 5673 :PROTO "tcp">
 #<SERVICE :NAME "jms" :ALIASES NIL :PORT 5673 :PROTO "udp">
 #<SERVICE :NAME "hyperscsi-port" :ALIASES NIL :PORT 5674 :PROTO "tcp">
 #<SERVICE :NAME "hyperscsi-port" :ALIASES NIL :PORT 5674 :PROTO "udp">
 #<SERVICE :NAME "v5ua" :ALIASES NIL :PORT 5675 :PROTO "tcp">
 #<SERVICE :NAME "v5ua" :ALIASES NIL :PORT 5675 :PROTO "udp">
 #<SERVICE :NAME "v5ua" :ALIASES NIL :PORT 5675 :PROTO "sctp">
 #<SERVICE :NAME "raadmin" :ALIASES NIL :PORT 5676 :PROTO "tcp">
 #<SERVICE :NAME "raadmin" :ALIASES NIL :PORT 5676 :PROTO "udp">
 #<SERVICE :NAME "questdb2-lnchr" :ALIASES NIL :PORT 5677 :PROTO "tcp">
 #<SERVICE :NAME "questdb2-lnchr" :ALIASES NIL :PORT 5677 :PROTO "udp">
 #<SERVICE :NAME "rrac" :ALIASES NIL :PORT 5678 :PROTO "tcp">
 #<SERVICE :NAME "rrac" :ALIASES NIL :PORT 5678 :PROTO "udp">
 #<SERVICE :NAME "dccm" :ALIASES NIL :PORT 5679 :PROTO "tcp">
 #<SERVICE :NAME "dccm" :ALIASES NIL :PORT 5679 :PROTO "udp">
 #<SERVICE :NAME "auriga-router" :ALIASES NIL :PORT 5680 :PROTO "udp">
 #<SERVICE :NAME "ncxcp" :ALIASES NIL :PORT 5681 :PROTO "tcp">
 #<SERVICE :NAME "ncxcp" :ALIASES NIL :PORT 5681 :PROTO "udp">
 #<SERVICE :NAME "brightcore" :ALIASES NIL :PORT 5682 :PROTO "udp">
 #<SERVICE :NAME "coap" :ALIASES NIL :PORT 5683 :PROTO "udp">
 #<SERVICE :NAME "coaps" :ALIASES NIL :PORT 5684 :PROTO "udp">
 #<SERVICE :NAME "gog-multiplayer" :ALIASES NIL :PORT 5687 :PROTO "udp">
 #<SERVICE :NAME "ggz" :ALIASES NIL :PORT 5688 :PROTO "tcp">
 #<SERVICE :NAME "ggz" :ALIASES NIL :PORT 5688 :PROTO "udp">
 #<SERVICE :NAME "qmvideo" :ALIASES NIL :PORT 5689 :PROTO "tcp">
 #<SERVICE :NAME "qmvideo" :ALIASES NIL :PORT 5689 :PROTO "udp">
 #<SERVICE :NAME "rbsystem" :ALIASES NIL :PORT 5693 :PROTO "tcp">
 #<SERVICE :NAME "kmip" :ALIASES NIL :PORT 5696 :PROTO "tcp">
 #<SERVICE :NAME "supportassist" :ALIASES NIL :PORT 5700 :PROTO "tcp">
 #<SERVICE :NAME "proshareaudio" :ALIASES NIL :PORT 5713 :PROTO "tcp">
 #<SERVICE :NAME "proshareaudio" :ALIASES NIL :PORT 5713 :PROTO "udp">
 #<SERVICE :NAME "prosharevideo" :ALIASES NIL :PORT 5714 :PROTO "tcp">
 #<SERVICE :NAME "prosharevideo" :ALIASES NIL :PORT 5714 :PROTO "udp">
 #<SERVICE :NAME "prosharedata" :ALIASES NIL :PORT 5715 :PROTO "tcp">
 #<SERVICE :NAME "prosharedata" :ALIASES NIL :PORT 5715 :PROTO "udp">
 #<SERVICE :NAME "prosharerequest" :ALIASES NIL :PORT 5716 :PROTO "tcp">
 #<SERVICE :NAME "prosharerequest" :ALIASES NIL :PORT 5716 :PROTO "udp">
 #<SERVICE :NAME "prosharenotify" :ALIASES NIL :PORT 5717 :PROTO "tcp">
 #<SERVICE :NAME "prosharenotify" :ALIASES NIL :PORT 5717 :PROTO "udp">
 #<SERVICE :NAME "dpm" :ALIASES NIL :PORT 5718 :PROTO "tcp">
 #<SERVICE :NAME "dpm" :ALIASES NIL :PORT 5718 :PROTO "udp">
 #<SERVICE :NAME "dpm-agent" :ALIASES NIL :PORT 5719 :PROTO "tcp">
 #<SERVICE :NAME "dpm-agent" :ALIASES NIL :PORT 5719 :PROTO "udp">
 #<SERVICE :NAME "ms-licensing" :ALIASES NIL :PORT 5720 :PROTO "tcp">
 #<SERVICE :NAME "ms-licensing" :ALIASES NIL :PORT 5720 :PROTO "udp">
 #<SERVICE :NAME "dtpt" :ALIASES NIL :PORT 5721 :PROTO "tcp">
 #<SERVICE :NAME "dtpt" :ALIASES NIL :PORT 5721 :PROTO "udp">
 #<SERVICE :NAME "msdfsr" :ALIASES NIL :PORT 5722 :PROTO "tcp">
 #<SERVICE :NAME "msdfsr" :ALIASES NIL :PORT 5722 :PROTO "udp">
 #<SERVICE :NAME "omhs" :ALIASES NIL :PORT 5723 :PROTO "tcp">
 #<SERVICE :NAME "omhs" :ALIASES NIL :PORT 5723 :PROTO "udp">
 #<SERVICE :NAME "omsdk" :ALIASES NIL :PORT 5724 :PROTO "tcp">
 #<SERVICE :NAME "omsdk" :ALIASES NIL :PORT 5724 :PROTO "udp">
 #<SERVICE :NAME "ms-ilm" :ALIASES NIL :PORT 5725 :PROTO "tcp">
 #<SERVICE :NAME "ms-ilm-sts" :ALIASES NIL :PORT 5726 :PROTO "tcp">
 #<SERVICE :NAME "asgenf" :ALIASES NIL :PORT 5727 :PROTO "tcp">
 #<SERVICE :NAME "io-dist-data" :ALIASES NIL :PORT 5728 :PROTO "tcp">
 #<SERVICE :NAME "io-dist-group" :ALIASES NIL :PORT 5728 :PROTO "udp">
 #<SERVICE :NAME "openmail" :ALIASES NIL :PORT 5729 :PROTO "tcp">
 #<SERVICE :NAME "openmail" :ALIASES NIL :PORT 5729 :PROTO "udp">
 #<SERVICE :NAME "unieng" :ALIASES NIL :PORT 5730 :PROTO "tcp">
 #<SERVICE :NAME "unieng" :ALIASES NIL :PORT 5730 :PROTO "udp">
 #<SERVICE :NAME "ida-discover1" :ALIASES NIL :PORT 5741 :PROTO "tcp">
 #<SERVICE :NAME "ida-discover1" :ALIASES NIL :PORT 5741 :PROTO "udp">
 #<SERVICE :NAME "ida-discover2" :ALIASES NIL :PORT 5742 :PROTO "tcp">
 #<SERVICE :NAME "ida-discover2" :ALIASES NIL :PORT 5742 :PROTO "udp">
 #<SERVICE :NAME "watchdoc-pod" :ALIASES NIL :PORT 5743 :PROTO "tcp">
 #<SERVICE :NAME "watchdoc-pod" :ALIASES NIL :PORT 5743 :PROTO "udp">
 #<SERVICE :NAME "watchdoc" :ALIASES NIL :PORT 5744 :PROTO "tcp">
 #<SERVICE :NAME "watchdoc" :ALIASES NIL :PORT 5744 :PROTO "udp">
 #<SERVICE :NAME "fcopy-server" :ALIASES NIL :PORT 5745 :PROTO "tcp">
 #<SERVICE :NAME "fcopy-server" :ALIASES NIL :PORT 5745 :PROTO "udp">
 #<SERVICE :NAME "fcopys-server" :ALIASES NIL :PORT 5746 :PROTO "tcp">
 #<SERVICE :NAME "fcopys-server" :ALIASES NIL :PORT 5746 :PROTO "udp">
 #<SERVICE :NAME "tunatic" :ALIASES NIL :PORT 5747 :PROTO "tcp">
 #<SERVICE :NAME "tunatic" :ALIASES NIL :PORT 5747 :PROTO "udp">
 #<SERVICE :NAME "tunalyzer" :ALIASES NIL :PORT 5748 :PROTO "tcp">
 #<SERVICE :NAME "tunalyzer" :ALIASES NIL :PORT 5748 :PROTO "udp">
 #<SERVICE :NAME "rscd" :ALIASES NIL :PORT 5750 :PROTO "tcp">
 #<SERVICE :NAME "rscd" :ALIASES NIL :PORT 5750 :PROTO "udp">
 #<SERVICE :NAME "openmailg" :ALIASES NIL :PORT 5755 :PROTO "tcp">
 #<SERVICE :NAME "openmailg" :ALIASES NIL :PORT 5755 :PROTO "udp">
 #<SERVICE :NAME "x500ms" :ALIASES NIL :PORT 5757 :PROTO "tcp">
 #<SERVICE :NAME "x500ms" :ALIASES NIL :PORT 5757 :PROTO "udp">
 #<SERVICE :NAME "openmailns" :ALIASES NIL :PORT 5766 :PROTO "tcp">
 #<SERVICE :NAME "openmailns" :ALIASES NIL :PORT 5766 :PROTO "udp">
 #<SERVICE :NAME "s-openmail" :ALIASES NIL :PORT 5767 :PROTO "tcp">
 #<SERVICE :NAME "s-openmail" :ALIASES NIL :PORT 5767 :PROTO "udp">
 #<SERVICE :NAME "openmailpxy" :ALIASES NIL :PORT 5768 :PROTO "tcp">
 #<SERVICE :NAME "openmailpxy" :ALIASES NIL :PORT 5768 :PROTO "udp">
 #<SERVICE :NAME "spramsca" :ALIASES NIL :PORT 5769 :PROTO "tcp">
 #<SERVICE :NAME "spramsca" :ALIASES NIL :PORT 5769 :PROTO "udp">
 #<SERVICE :NAME "spramsd" :ALIASES NIL :PORT 5770 :PROTO "tcp">
 #<SERVICE :NAME "spramsd" :ALIASES NIL :PORT 5770 :PROTO "udp">
 #<SERVICE :NAME "netagent" :ALIASES NIL :PORT 5771 :PROTO "tcp">
 #<SERVICE :NAME "netagent" :ALIASES NIL :PORT 5771 :PROTO "udp">
 #<SERVICE :NAME "dali-port" :ALIASES NIL :PORT 5777 :PROTO "tcp">
 #<SERVICE :NAME "dali-port" :ALIASES NIL :PORT 5777 :PROTO "udp">
 #<SERVICE :NAME "vts-rpc" :ALIASES NIL :PORT 5780 :PROTO "tcp">
 #<SERVICE :NAME "3par-evts" :ALIASES NIL :PORT 5781 :PROTO "tcp">
 #<SERVICE :NAME "3par-evts" :ALIASES NIL :PORT 5781 :PROTO "udp">
 #<SERVICE :NAME "3par-mgmt" :ALIASES NIL :PORT 5782 :PROTO "tcp">
 #<SERVICE :NAME "3par-mgmt" :ALIASES NIL :PORT 5782 :PROTO "udp">
 #<SERVICE :NAME "3par-mgmt-ssl" :ALIASES NIL :PORT 5783 :PROTO "tcp">
 #<SERVICE :NAME "3par-mgmt-ssl" :ALIASES NIL :PORT 5783 :PROTO "udp">
 #<SERVICE :NAME "ibar" :ALIASES NIL :PORT 5784 :PROTO "udp">
 #<SERVICE :NAME "3par-rcopy" :ALIASES NIL :PORT 5785 :PROTO "tcp">
 #<SERVICE :NAME "3par-rcopy" :ALIASES NIL :PORT 5785 :PROTO "udp">
 #<SERVICE :NAME "cisco-redu" :ALIASES NIL :PORT 5786 :PROTO "udp">
 #<SERVICE :NAME "waascluster" :ALIASES NIL :PORT 5787 :PROTO "udp">
 #<SERVICE :NAME "xtreamx" :ALIASES NIL :PORT 5793 :PROTO "tcp">
 #<SERVICE :NAME "xtreamx" :ALIASES NIL :PORT 5793 :PROTO "udp">
 #<SERVICE :NAME "spdp" :ALIASES NIL :PORT 5794 :PROTO "udp">
 #<SERVICE :NAME "icmpd" :ALIASES NIL :PORT 5813 :PROTO "tcp">
 #<SERVICE :NAME "icmpd" :ALIASES NIL :PORT 5813 :PROTO "udp">
 #<SERVICE :NAME "spt-automation" :ALIASES NIL :PORT 5814 :PROTO "tcp">
 #<SERVICE :NAME "spt-automation" :ALIASES NIL :PORT 5814 :PROTO "udp">
 #<SERVICE :NAME "shiprush-d-ch" :ALIASES NIL :PORT 5841 :PROTO "tcp">
 #<SERVICE :NAME "reversion" :ALIASES NIL :PORT 5842 :PROTO "tcp">
 #<SERVICE :NAME "wherehoo" :ALIASES NIL :PORT 5859 :PROTO "tcp">
 #<SERVICE :NAME "wherehoo" :ALIASES NIL :PORT 5859 :PROTO "udp">
 #<SERVICE :NAME "ppsuitemsg" :ALIASES NIL :PORT 5863 :PROTO "tcp">
 #<SERVICE :NAME "ppsuitemsg" :ALIASES NIL :PORT 5863 :PROTO "udp">
 #<SERVICE :NAME "diameters" :ALIASES NIL :PORT 5868 :PROTO "tcp">
 #<SERVICE :NAME "diameters" :ALIASES NIL :PORT 5868 :PROTO "sctp">
 #<SERVICE :NAME "jute" :ALIASES NIL :PORT 5883 :PROTO "tcp">
 #<SERVICE :NAME "rfb" :ALIASES NIL :PORT 5900 :PROTO "tcp">
 #<SERVICE :NAME "rfb" :ALIASES NIL :PORT 5900 :PROTO "udp">
 #<SERVICE :NAME "cm" :ALIASES NIL :PORT 5910 :PROTO "tcp">
 #<SERVICE :NAME "cm" :ALIASES NIL :PORT 5910 :PROTO "udp">
 #<SERVICE :NAME "cm" :ALIASES NIL :PORT 5910 :PROTO "sctp">
 #<SERVICE :NAME "cpdlc" :ALIASES NIL :PORT 5911 :PROTO "tcp">
 #<SERVICE :NAME "cpdlc" :ALIASES NIL :PORT 5911 :PROTO "udp">
 #<SERVICE :NAME "cpdlc" :ALIASES NIL :PORT 5911 :PROTO "sctp">
 #<SERVICE :NAME "fis" :ALIASES NIL :PORT 5912 :PROTO "tcp">
 #<SERVICE :NAME "fis" :ALIASES NIL :PORT 5912 :PROTO "udp">
 #<SERVICE :NAME "fis" :ALIASES NIL :PORT 5912 :PROTO "sctp">
 #<SERVICE :NAME "ads-c" :ALIASES NIL :PORT 5913 :PROTO "tcp">
 #<SERVICE :NAME "ads-c" :ALIASES NIL :PORT 5913 :PROTO "udp">
 #<SERVICE :NAME "ads-c" :ALIASES NIL :PORT 5913 :PROTO "sctp">
 #<SERVICE :NAME "indy" :ALIASES NIL :PORT 5963 :PROTO "tcp">
 #<SERVICE :NAME "indy" :ALIASES NIL :PORT 5963 :PROTO "udp">
 #<SERVICE :NAME "mppolicy-v5" :ALIASES NIL :PORT 5968 :PROTO "tcp">
 #<SERVICE :NAME "mppolicy-v5" :ALIASES NIL :PORT 5968 :PROTO "udp">
 #<SERVICE :NAME "mppolicy-mgr" :ALIASES NIL :PORT 5969 :PROTO "tcp">
 #<SERVICE :NAME "mppolicy-mgr" :ALIASES NIL :PORT 5969 :PROTO "udp">
 #<SERVICE :NAME "couchdb" :ALIASES NIL :PORT 5984 :PROTO "tcp">
 #<SERVICE :NAME "couchdb" :ALIASES NIL :PORT 5984 :PROTO "udp">
 #<SERVICE :NAME "wsman" :ALIASES NIL :PORT 5985 :PROTO "tcp">
 #<SERVICE :NAME "wsman" :ALIASES NIL :PORT 5985 :PROTO "udp">
 #<SERVICE :NAME "wsmans" :ALIASES NIL :PORT 5986 :PROTO "tcp">
 #<SERVICE :NAME "wsmans" :ALIASES NIL :PORT 5986 :PROTO "udp">
 #<SERVICE :NAME "wbem-rmi" :ALIASES NIL :PORT 5987 :PROTO "tcp">
 #<SERVICE :NAME "wbem-rmi" :ALIASES NIL :PORT 5987 :PROTO "udp">
 #<SERVICE :NAME "wbem-http" :ALIASES NIL :PORT 5988 :PROTO "tcp">
 #<SERVICE :NAME "wbem-http" :ALIASES NIL :PORT 5988 :PROTO "udp">
 #<SERVICE :NAME "wbem-https" :ALIASES NIL :PORT 5989 :PROTO "tcp">
 #<SERVICE :NAME "wbem-https" :ALIASES NIL :PORT 5989 :PROTO "udp">
 #<SERVICE :NAME "wbem-exp-https" :ALIASES NIL :PORT 5990 :PROTO "tcp">
 #<SERVICE :NAME "wbem-exp-https" :ALIASES NIL :PORT 5990 :PROTO "udp">
 #<SERVICE :NAME "nuxsl" :ALIASES NIL :PORT 5991 :PROTO "tcp">
 #<SERVICE :NAME "nuxsl" :ALIASES NIL :PORT 5991 :PROTO "udp">
 #<SERVICE :NAME "consul-insight" :ALIASES NIL :PORT 5992 :PROTO "tcp">
 #<SERVICE :NAME "consul-insight" :ALIASES NIL :PORT 5992 :PROTO "udp">
 #<SERVICE :NAME "cim-rs" :ALIASES NIL :PORT 5993 :PROTO "tcp">
 #<SERVICE :NAME "ndl-ahp-svc" :ALIASES NIL :PORT 6064 :PROTO "tcp">
 #<SERVICE :NAME "ndl-ahp-svc" :ALIASES NIL :PORT 6064 :PROTO "udp">
 #<SERVICE :NAME "winpharaoh" :ALIASES NIL :PORT 6065 :PROTO "tcp">
 #<SERVICE :NAME "winpharaoh" :ALIASES NIL :PORT 6065 :PROTO "udp">
 #<SERVICE :NAME "ewctsp" :ALIASES NIL :PORT 6066 :PROTO "tcp">
 #<SERVICE :NAME "ewctsp" :ALIASES NIL :PORT 6066 :PROTO "udp">
 #<SERVICE :NAME "gsmp-ancp" :ALIASES NIL :PORT 6068 :PROTO "tcp">
 #<SERVICE :NAME "trip" :ALIASES NIL :PORT 6069 :PROTO "tcp">
 #<SERVICE :NAME "trip" :ALIASES NIL :PORT 6069 :PROTO "udp">
 #<SERVICE :NAME "messageasap" :ALIASES NIL :PORT 6070 :PROTO "tcp">
 #<SERVICE :NAME "messageasap" :ALIASES NIL :PORT 6070 :PROTO "udp">
 #<SERVICE :NAME "ssdtp" :ALIASES NIL :PORT 6071 :PROTO "tcp">
 #<SERVICE :NAME "ssdtp" :ALIASES NIL :PORT 6071 :PROTO "udp">
 #<SERVICE :NAME "diagnose-proc" :ALIASES NIL :PORT 6072 :PROTO "tcp">
 #<SERVICE :NAME "diagnose-proc" :ALIASES NIL :PORT 6072 :PROTO "udp">
 #<SERVICE :NAME "directplay8" :ALIASES NIL :PORT 6073 :PROTO "tcp">
 #<SERVICE :NAME "directplay8" :ALIASES NIL :PORT 6073 :PROTO "udp">
 #<SERVICE :NAME "max" :ALIASES NIL :PORT 6074 :PROTO "tcp">
 #<SERVICE :NAME "max" :ALIASES NIL :PORT 6074 :PROTO "udp">
 #<SERVICE :NAME "dpm-acm" :ALIASES NIL :PORT 6075 :PROTO "tcp">
 #<SERVICE :NAME "msft-dpm-cert" :ALIASES NIL :PORT 6076 :PROTO "tcp">
 #<SERVICE :NAME "iconstructsrv" :ALIASES NIL :PORT 6077 :PROTO "tcp">
 #<SERVICE :NAME "gue" :ALIASES NIL :PORT 6080 :PROTO "udp">
 #<SERVICE :NAME "geneve" :ALIASES NIL :PORT 6081 :PROTO "udp">
 #<SERVICE :NAME "p25cai" :ALIASES NIL :PORT 6082 :PROTO "udp">
 #<SERVICE :NAME "miami-bcast" :ALIASES NIL :PORT 6083 :PROTO "udp">
 #<SERVICE :NAME "reload-config" :ALIASES NIL :PORT 6084 :PROTO "tcp">
 #<SERVICE :NAME "konspire2b" :ALIASES NIL :PORT 6085 :PROTO "tcp">
 #<SERVICE :NAME "konspire2b" :ALIASES NIL :PORT 6085 :PROTO "udp">
 #<SERVICE :NAME "pdtp" :ALIASES NIL :PORT 6086 :PROTO "tcp">
 #<SERVICE :NAME "pdtp" :ALIASES NIL :PORT 6086 :PROTO "udp">
 #<SERVICE :NAME "ldss" :ALIASES NIL :PORT 6087 :PROTO "tcp">
 #<SERVICE :NAME "ldss" :ALIASES NIL :PORT 6087 :PROTO "udp">
 #<SERVICE :NAME "doglms" :ALIASES NIL :PORT 6088 :PROTO "tcp">
 #<SERVICE :NAME "doglms-notify" :ALIASES NIL :PORT 6088 :PROTO "udp">
 #<SERVICE :NAME "raxa-mgmt" :ALIASES NIL :PORT 6099 :PROTO "tcp">
 #<SERVICE :NAME "synchronet-db" :ALIASES NIL :PORT 6100 :PROTO "tcp">
 #<SERVICE :NAME "synchronet-db" :ALIASES NIL :PORT 6100 :PROTO "udp">
 #<SERVICE :NAME "synchronet-rtc" :ALIASES NIL :PORT 6101 :PROTO "tcp">
 #<SERVICE :NAME "synchronet-rtc" :ALIASES NIL :PORT 6101 :PROTO "udp">
 #<SERVICE :NAME "synchronet-upd" :ALIASES NIL :PORT 6102 :PROTO "tcp">
 #<SERVICE :NAME "synchronet-upd" :ALIASES NIL :PORT 6102 :PROTO "udp">
 #<SERVICE :NAME "rets" :ALIASES NIL :PORT 6103 :PROTO "tcp">
 #<SERVICE :NAME "rets" :ALIASES NIL :PORT 6103 :PROTO "udp">
 #<SERVICE :NAME "dbdb" :ALIASES NIL :PORT 6104 :PROTO "tcp">
 #<SERVICE :NAME "dbdb" :ALIASES NIL :PORT 6104 :PROTO "udp">
 #<SERVICE :NAME "primaserver" :ALIASES NIL :PORT 6105 :PROTO "tcp">
 #<SERVICE :NAME "primaserver" :ALIASES NIL :PORT 6105 :PROTO "udp">
 #<SERVICE :NAME "mpsserver" :ALIASES NIL :PORT 6106 :PROTO "tcp">
 #<SERVICE :NAME "mpsserver" :ALIASES NIL :PORT 6106 :PROTO "udp">
 #<SERVICE :NAME "etc-control" :ALIASES NIL :PORT 6107 :PROTO "tcp">
 #<SERVICE :NAME "etc-control" :ALIASES NIL :PORT 6107 :PROTO "udp">
 #<SERVICE :NAME "sercomm-scadmin" :ALIASES NIL :PORT 6108 :PROTO "tcp">
 #<SERVICE :NAME "sercomm-scadmin" :ALIASES NIL :PORT 6108 :PROTO "udp">
 #<SERVICE :NAME "globecast-id" :ALIASES NIL :PORT 6109 :PROTO "tcp">
 #<SERVICE :NAME "globecast-id" :ALIASES NIL :PORT 6109 :PROTO "udp">
 #<SERVICE :NAME "softcm" :ALIASES NIL :PORT 6110 :PROTO "tcp">
 #<SERVICE :NAME "softcm" :ALIASES NIL :PORT 6110 :PROTO "udp">
 #<SERVICE :NAME "spc" :ALIASES NIL :PORT 6111 :PROTO "tcp">
 #<SERVICE :NAME "spc" :ALIASES NIL :PORT 6111 :PROTO "udp">
 #<SERVICE :NAME "dtspcd" :ALIASES NIL :PORT 6112 :PROTO "tcp">
 #<SERVICE :NAME "dtspcd" :ALIASES NIL :PORT 6112 :PROTO "udp">
 #<SERVICE :NAME "dayliteserver" :ALIASES NIL :PORT 6113 :PROTO "tcp">
 #<SERVICE :NAME "wrspice" :ALIASES NIL :PORT 6114 :PROTO "tcp">
 #<SERVICE :NAME "xic" :ALIASES NIL :PORT 6115 :PROTO "tcp">
 #<SERVICE :NAME "xtlserv" :ALIASES NIL :PORT 6116 :PROTO "tcp">
 #<SERVICE :NAME "daylitetouch" :ALIASES NIL :PORT 6117 :PROTO "tcp">
 #<SERVICE :NAME "tipc" :ALIASES NIL :PORT 6118 :PROTO "udp">
 #<SERVICE :NAME "spdy" :ALIASES NIL :PORT 6121 :PROTO "tcp">
 #<SERVICE :NAME "bex-webadmin" :ALIASES NIL :PORT 6122 :PROTO "tcp">
 #<SERVICE :NAME "bex-webadmin" :ALIASES NIL :PORT 6122 :PROTO "udp">
 #<SERVICE :NAME "backup-express" :ALIASES NIL :PORT 6123 :PROTO "tcp">
 #<SERVICE :NAME "backup-express" :ALIASES NIL :PORT 6123 :PROTO "udp">
 #<SERVICE :NAME "pnbs" :ALIASES NIL :PORT 6124 :PROTO "tcp">
 #<SERVICE :NAME "pnbs" :ALIASES NIL :PORT 6124 :PROTO "udp">
 #<SERVICE :NAME "damewaremobgtwy" :ALIASES NIL :PORT 6130 :PROTO "tcp">
 #<SERVICE :NAME "nbt-wol" :ALIASES NIL :PORT 6133 :PROTO "tcp">
 #<SERVICE :NAME "nbt-wol" :ALIASES NIL :PORT 6133 :PROTO "udp">
 #<SERVICE :NAME "pulsonixnls" :ALIASES NIL :PORT 6140 :PROTO "tcp">
 #<SERVICE :NAME "pulsonixnls" :ALIASES NIL :PORT 6140 :PROTO "udp">
 #<SERVICE :NAME "meta-corp" :ALIASES NIL :PORT 6141 :PROTO "tcp">
 #<SERVICE :NAME "meta-corp" :ALIASES NIL :PORT 6141 :PROTO "udp">
 #<SERVICE :NAME "aspentec-lm" :ALIASES NIL :PORT 6142 :PROTO "tcp">
 #<SERVICE :NAME "aspentec-lm" :ALIASES NIL :PORT 6142 :PROTO "udp">
 #<SERVICE :NAME "watershed-lm" :ALIASES NIL :PORT 6143 :PROTO "tcp">
 #<SERVICE :NAME "watershed-lm" :ALIASES NIL :PORT 6143 :PROTO "udp">
 #<SERVICE :NAME "statsci1-lm" :ALIASES NIL :PORT 6144 :PROTO "tcp">
 #<SERVICE :NAME "statsci1-lm" :ALIASES NIL :PORT 6144 :PROTO "udp">
 #<SERVICE :NAME "statsci2-lm" :ALIASES NIL :PORT 6145 :PROTO "tcp">
 #<SERVICE :NAME "statsci2-lm" :ALIASES NIL :PORT 6145 :PROTO "udp">
 #<SERVICE :NAME "lonewolf-lm" :ALIASES NIL :PORT 6146 :PROTO "tcp">
 #<SERVICE :NAME "lonewolf-lm" :ALIASES NIL :PORT 6146 :PROTO "udp">
 #<SERVICE :NAME "montage-lm" :ALIASES NIL :PORT 6147 :PROTO "tcp">
 #<SERVICE :NAME "montage-lm" :ALIASES NIL :PORT 6147 :PROTO "udp">
 #<SERVICE :NAME "tal-pod" :ALIASES NIL :PORT 6149 :PROTO "tcp">
 #<SERVICE :NAME "tal-pod" :ALIASES NIL :PORT 6149 :PROTO "udp">
 #<SERVICE :NAME "efb-aci" :ALIASES NIL :PORT 6159 :PROTO "tcp">
 #<SERVICE :NAME "ecmp" :ALIASES NIL :PORT 6160 :PROTO "tcp">
 #<SERVICE :NAME "ecmp-data" :ALIASES NIL :PORT 6160 :PROTO "udp">
 #<SERVICE :NAME "patrol-ism" :ALIASES NIL :PORT 6161 :PROTO "tcp">
 #<SERVICE :NAME "patrol-ism" :ALIASES NIL :PORT 6161 :PROTO "udp">
 #<SERVICE :NAME "patrol-coll" :ALIASES NIL :PORT 6162 :PROTO "tcp">
 #<SERVICE :NAME "patrol-coll" :ALIASES NIL :PORT 6162 :PROTO "udp">
 #<SERVICE :NAME "pscribe" :ALIASES NIL :PORT 6163 :PROTO "tcp">
 #<SERVICE :NAME "pscribe" :ALIASES NIL :PORT 6163 :PROTO "udp">
 #<SERVICE :NAME "lm-x" :ALIASES NIL :PORT 6200 :PROTO "tcp">
 #<SERVICE :NAME "lm-x" :ALIASES NIL :PORT 6200 :PROTO "udp">
 #<SERVICE :NAME "thermo-calc" :ALIASES NIL :PORT 6201 :PROTO "udp">
 #<SERVICE :NAME "qmtps" :ALIASES NIL :PORT 6209 :PROTO "tcp">
 #<SERVICE :NAME "qmtps" :ALIASES NIL :PORT 6209 :PROTO "udp">
 #<SERVICE :NAME "radmind" :ALIASES NIL :PORT 6222 :PROTO "tcp">
 #<SERVICE :NAME "radmind" :ALIASES NIL :PORT 6222 :PROTO "udp">
 #<SERVICE :NAME "jeol-nsdtp-1" :ALIASES NIL :PORT 6241 :PROTO "tcp">
 #<SERVICE :NAME "jeol-nsddp-1" :ALIASES NIL :PORT 6241 :PROTO "udp">
 #<SERVICE :NAME "jeol-nsdtp-2" :ALIASES NIL :PORT 6242 :PROTO "tcp">
 #<SERVICE :NAME "jeol-nsddp-2" :ALIASES NIL :PORT 6242 :PROTO "udp">
 #<SERVICE :NAME "jeol-nsdtp-3" :ALIASES NIL :PORT 6243 :PROTO "tcp">
 #<SERVICE :NAME "jeol-nsddp-3" :ALIASES NIL :PORT 6243 :PROTO "udp">
 #<SERVICE :NAME "jeol-nsdtp-4" :ALIASES NIL :PORT 6244 :PROTO "tcp">
 #<SERVICE :NAME "jeol-nsddp-4" :ALIASES NIL :PORT 6244 :PROTO "udp">
 #<SERVICE :NAME "tl1-raw-ssl" :ALIASES NIL :PORT 6251 :PROTO "tcp">
 #<SERVICE :NAME "tl1-raw-ssl" :ALIASES NIL :PORT 6251 :PROTO "udp">
 #<SERVICE :NAME "tl1-ssh" :ALIASES NIL :PORT 6252 :PROTO "tcp">
 #<SERVICE :NAME "tl1-ssh" :ALIASES NIL :PORT 6252 :PROTO "udp">
 #<SERVICE :NAME "crip" :ALIASES NIL :PORT 6253 :PROTO "tcp">
 #<SERVICE :NAME "crip" :ALIASES NIL :PORT 6253 :PROTO "udp">
 #<SERVICE :NAME "gld" :ALIASES NIL :PORT 6267 :PROTO "tcp">
 #<SERVICE :NAME "grid" :ALIASES NIL :PORT 6268 :PROTO "tcp">
 #<SERVICE :NAME "grid" :ALIASES NIL :PORT 6268 :PROTO "udp">
 #<SERVICE :NAME "grid-alt" :ALIASES NIL :PORT 6269 :PROTO "tcp">
 #<SERVICE :NAME "grid-alt" :ALIASES NIL :PORT 6269 :PROTO "udp">
 #<SERVICE :NAME "bmc-grx" :ALIASES NIL :PORT 6300 :PROTO "tcp">
 #<SERVICE :NAME "bmc-grx" :ALIASES NIL :PORT 6300 :PROTO "udp">
 #<SERVICE :NAME "bmc_ctd_ldap" :ALIASES ("bmc-ctd-ldap") :PORT 6301
   :PROTO "tcp">
 #<SERVICE :NAME "bmc_ctd_ldap" :ALIASES ("bmc-ctd-ldap") :PORT 6301
   :PROTO "udp">
 #<SERVICE :NAME "ufmp" :ALIASES NIL :PORT 6306 :PROTO "tcp">
 #<SERVICE :NAME "ufmp" :ALIASES NIL :PORT 6306 :PROTO "udp">
 #<SERVICE :NAME "scup" :ALIASES NIL :PORT 6315 :PROTO "tcp">
 #<SERVICE :NAME "scup-disc" :ALIASES NIL :PORT 6315 :PROTO "udp">
 #<SERVICE :NAME "abb-escp" :ALIASES NIL :PORT 6316 :PROTO "tcp">
 #<SERVICE :NAME "abb-escp" :ALIASES NIL :PORT 6316 :PROTO "udp">
 #<SERVICE :NAME "nav-data-cmd" :ALIASES NIL :PORT 6317 :PROTO "tcp">
 #<SERVICE :NAME "nav-data" :ALIASES NIL :PORT 6317 :PROTO "udp">
 #<SERVICE :NAME "repsvc" :ALIASES NIL :PORT 6320 :PROTO "tcp">
 #<SERVICE :NAME "repsvc" :ALIASES NIL :PORT 6320 :PROTO "udp">
 #<SERVICE :NAME "emp-server1" :ALIASES NIL :PORT 6321 :PROTO "tcp">
 #<SERVICE :NAME "emp-server1" :ALIASES NIL :PORT 6321 :PROTO "udp">
 #<SERVICE :NAME "emp-server2" :ALIASES NIL :PORT 6322 :PROTO "tcp">
 #<SERVICE :NAME "emp-server2" :ALIASES NIL :PORT 6322 :PROTO "udp">
 #<SERVICE :NAME "hrd-ncs" :ALIASES NIL :PORT 6324 :PROTO "tcp">
 #<SERVICE :NAME "hrd-ns-disc" :ALIASES NIL :PORT 6324 :PROTO "udp">
 #<SERVICE :NAME "dt-mgmtsvc" :ALIASES NIL :PORT 6325 :PROTO "tcp">
 #<SERVICE :NAME "dt-vra" :ALIASES NIL :PORT 6326 :PROTO "tcp">
 #<SERVICE :NAME "sflow" :ALIASES NIL :PORT 6343 :PROTO "tcp">
 #<SERVICE :NAME "sflow" :ALIASES NIL :PORT 6343 :PROTO "udp">
 #<SERVICE :NAME "streletz" :ALIASES NIL :PORT 6344 :PROTO "tcp">
 #<SERVICE :NAME "gnutella-svc" :ALIASES NIL :PORT 6346 :PROTO "tcp">
 #<SERVICE :NAME "gnutella-svc" :ALIASES NIL :PORT 6346 :PROTO "udp">
 #<SERVICE :NAME "gnutella-rtr" :ALIASES NIL :PORT 6347 :PROTO "tcp">
 #<SERVICE :NAME "gnutella-rtr" :ALIASES NIL :PORT 6347 :PROTO "udp">
 #<SERVICE :NAME "adap" :ALIASES NIL :PORT 6350 :PROTO "tcp">
 #<SERVICE :NAME "adap" :ALIASES NIL :PORT 6350 :PROTO "udp">
 #<SERVICE :NAME "pmcs" :ALIASES NIL :PORT 6355 :PROTO "tcp">
 #<SERVICE :NAME "pmcs" :ALIASES NIL :PORT 6355 :PROTO "udp">
 #<SERVICE :NAME "metaedit-mu" :ALIASES NIL :PORT 6360 :PROTO "tcp">
 #<SERVICE :NAME "metaedit-mu" :ALIASES NIL :PORT 6360 :PROTO "udp">
 #<SERVICE :NAME "ndn" :ALIASES NIL :PORT 6363 :PROTO "udp">
 #<SERVICE :NAME "metaedit-se" :ALIASES NIL :PORT 6370 :PROTO "tcp">
 #<SERVICE :NAME "metaedit-se" :ALIASES NIL :PORT 6370 :PROTO "udp">
 #<SERVICE :NAME "redis" :ALIASES NIL :PORT 6379 :PROTO "tcp">
 #<SERVICE :NAME "metatude-mds" :ALIASES NIL :PORT 6382 :PROTO "tcp">
 #<SERVICE :NAME "metatude-mds" :ALIASES NIL :PORT 6382 :PROTO "udp">
 #<SERVICE :NAME "clariion-evr01" :ALIASES NIL :PORT 6389 :PROTO "tcp">
 #<SERVICE :NAME "clariion-evr01" :ALIASES NIL :PORT 6389 :PROTO "udp">
 #<SERVICE :NAME "metaedit-ws" :ALIASES NIL :PORT 6390 :PROTO "tcp">
 #<SERVICE :NAME "metaedit-ws" :ALIASES NIL :PORT 6390 :PROTO "udp">
 #<SERVICE :NAME "boe-cms" :ALIASES NIL :PORT 6400 :PROTO "tcp">
 #<SERVICE :NAME "boe-cms" :ALIASES NIL :PORT 6400 :PROTO "udp">
 #<SERVICE :NAME "boe-was" :ALIASES NIL :PORT 6401 :PROTO "tcp">
 #<SERVICE :NAME "boe-was" :ALIASES NIL :PORT 6401 :PROTO "udp">
 #<SERVICE :NAME "boe-eventsrv" :ALIASES NIL :PORT 6402 :PROTO "tcp">
 #<SERVICE :NAME "boe-eventsrv" :ALIASES NIL :PORT 6402 :PROTO "udp">
 #<SERVICE :NAME "boe-cachesvr" :ALIASES NIL :PORT 6403 :PROTO "tcp">
 #<SERVICE :NAME "boe-cachesvr" :ALIASES NIL :PORT 6403 :PROTO "udp">
 #<SERVICE :NAME "boe-filesvr" :ALIASES NIL :PORT 6404 :PROTO "tcp">
 #<SERVICE :NAME "boe-filesvr" :ALIASES NIL :PORT 6404 :PROTO "udp">
 #<SERVICE :NAME "boe-pagesvr" :ALIASES NIL :PORT 6405 :PROTO "tcp">
 #<SERVICE :NAME "boe-pagesvr" :ALIASES NIL :PORT 6405 :PROTO "udp">
 #<SERVICE :NAME "boe-processsvr" :ALIASES NIL :PORT 6406 :PROTO "tcp">
 #<SERVICE :NAME "boe-processsvr" :ALIASES NIL :PORT 6406 :PROTO "udp">
 #<SERVICE :NAME "boe-resssvr1" :ALIASES NIL :PORT 6407 :PROTO "tcp">
 #<SERVICE :NAME "boe-resssvr1" :ALIASES NIL :PORT 6407 :PROTO "udp">
 #<SERVICE :NAME "boe-resssvr2" :ALIASES NIL :PORT 6408 :PROTO "tcp">
 #<SERVICE :NAME "boe-resssvr2" :ALIASES NIL :PORT 6408 :PROTO "udp">
 #<SERVICE :NAME "boe-resssvr3" :ALIASES NIL :PORT 6409 :PROTO "tcp">
 #<SERVICE :NAME "boe-resssvr3" :ALIASES NIL :PORT 6409 :PROTO "udp">
 #<SERVICE :NAME "boe-resssvr4" :ALIASES NIL :PORT 6410 :PROTO "tcp">
 #<SERVICE :NAME "boe-resssvr4" :ALIASES NIL :PORT 6410 :PROTO "udp">
 #<SERVICE :NAME "faxcomservice" :ALIASES NIL :PORT 6417 :PROTO "tcp">
 #<SERVICE :NAME "faxcomservice" :ALIASES NIL :PORT 6417 :PROTO "udp">
 #<SERVICE :NAME "syserverremote" :ALIASES NIL :PORT 6418 :PROTO "tcp">
 #<SERVICE :NAME "svdrp" :ALIASES NIL :PORT 6419 :PROTO "tcp">
 #<SERVICE :NAME "svdrp-disc" :ALIASES NIL :PORT 6419 :PROTO "udp">
 #<SERVICE :NAME "nim-vdrshell" :ALIASES NIL :PORT 6420 :PROTO "tcp">
 #<SERVICE :NAME "nim-vdrshell" :ALIASES NIL :PORT 6420 :PROTO "udp">
 #<SERVICE :NAME "nim-wan" :ALIASES NIL :PORT 6421 :PROTO "tcp">
 #<SERVICE :NAME "nim-wan" :ALIASES NIL :PORT 6421 :PROTO "udp">
 #<SERVICE :NAME "pgbouncer" :ALIASES NIL :PORT 6432 :PROTO "tcp">
 #<SERVICE :NAME "tarp" :ALIASES NIL :PORT 6442 :PROTO "tcp">
 #<SERVICE :NAME "sun-sr-https" :ALIASES NIL :PORT 6443 :PROTO "tcp">
 #<SERVICE :NAME "sun-sr-https" :ALIASES NIL :PORT 6443 :PROTO "udp">
 #<SERVICE :NAME "sge_qmaster" :ALIASES ("sge-qmaster") :PORT 6444
   :PROTO "tcp">
 #<SERVICE :NAME "sge_qmaster" :ALIASES ("sge-qmaster") :PORT 6444
   :PROTO "udp">
 #<SERVICE :NAME "sge_execd" :ALIASES ("sge-execd") :PORT 6445 :PROTO "tcp">
 #<SERVICE :NAME "sge_execd" :ALIASES ("sge-execd") :PORT 6445 :PROTO "udp">
 #<SERVICE :NAME "mysql-proxy" :ALIASES NIL :PORT 6446 :PROTO "tcp">
 #<SERVICE :NAME "mysql-proxy" :ALIASES NIL :PORT 6446 :PROTO "udp">
 #<SERVICE :NAME "skip-cert-recv" :ALIASES NIL :PORT 6455 :PROTO "tcp">
 #<SERVICE :NAME "skip-cert-recv" :ALIASES NIL :PORT 6455 :PROTO "udp">
 #<SERVICE :NAME "skip-cert-send" :ALIASES NIL :PORT 6456 :PROTO "tcp">
 #<SERVICE :NAME "skip-cert-send" :ALIASES NIL :PORT 6456 :PROTO "udp">
 #<SERVICE :NAME "lvision-lm" :ALIASES NIL :PORT 6471 :PROTO "tcp">
 #<SERVICE :NAME "lvision-lm" :ALIASES NIL :PORT 6471 :PROTO "udp">
 #<SERVICE :NAME "sun-sr-http" :ALIASES NIL :PORT 6480 :PROTO "tcp">
 #<SERVICE :NAME "sun-sr-http" :ALIASES NIL :PORT 6480 :PROTO "udp">
 #<SERVICE :NAME "servicetags" :ALIASES NIL :PORT 6481 :PROTO "tcp">
 #<SERVICE :NAME "servicetags" :ALIASES NIL :PORT 6481 :PROTO "udp">
 #<SERVICE :NAME "ldoms-mgmt" :ALIASES NIL :PORT 6482 :PROTO "tcp">
 #<SERVICE :NAME "ldoms-mgmt" :ALIASES NIL :PORT 6482 :PROTO "udp">
 #<SERVICE :NAME "SunVTS-RMI" :ALIASES NIL :PORT 6483 :PROTO "tcp">
 #<SERVICE :NAME "SunVTS-RMI" :ALIASES NIL :PORT 6483 :PROTO "udp">
 #<SERVICE :NAME "sun-sr-jms" :ALIASES NIL :PORT 6484 :PROTO "tcp">
 #<SERVICE :NAME "sun-sr-jms" :ALIASES NIL :PORT 6484 :PROTO "udp">
 #<SERVICE :NAME "sun-sr-iiop" :ALIASES NIL :PORT 6485 :PROTO "tcp">
 #<SERVICE :NAME "sun-sr-iiop" :ALIASES NIL :PORT 6485 :PROTO "udp">
 #<SERVICE :NAME "sun-sr-iiops" :ALIASES NIL :PORT 6486 :PROTO "tcp">
 #<SERVICE :NAME "sun-sr-iiops" :ALIASES NIL :PORT 6486 :PROTO "udp">
 #<SERVICE :NAME "sun-sr-iiop-aut" :ALIASES NIL :PORT 6487 :PROTO "tcp">
 #<SERVICE :NAME "sun-sr-iiop-aut" :ALIASES NIL :PORT 6487 :PROTO "udp">
 #<SERVICE :NAME "sun-sr-jmx" :ALIASES NIL :PORT 6488 :PROTO "tcp">
 #<SERVICE :NAME "sun-sr-jmx" :ALIASES NIL :PORT 6488 :PROTO "udp">
 #<SERVICE :NAME "sun-sr-admin" :ALIASES NIL :PORT 6489 :PROTO "tcp">
 #<SERVICE :NAME "sun-sr-admin" :ALIASES NIL :PORT 6489 :PROTO "udp">
 #<SERVICE :NAME "boks" :ALIASES NIL :PORT 6500 :PROTO "tcp">
 #<SERVICE :NAME "boks" :ALIASES NIL :PORT 6500 :PROTO "udp">
 #<SERVICE :NAME "boks_servc" :ALIASES ("boks-servc") :PORT 6501 :PROTO "tcp">
 #<SERVICE :NAME "boks_servc" :ALIASES ("boks-servc") :PORT 6501 :PROTO "udp">
 #<SERVICE :NAME "boks_servm" :ALIASES ("boks-servm") :PORT 6502 :PROTO "tcp">
 #<SERVICE :NAME "boks_servm" :ALIASES ("boks-servm") :PORT 6502 :PROTO "udp">
 #<SERVICE :NAME "boks_clntd" :ALIASES ("boks-clntd") :PORT 6503 :PROTO "tcp">
 #<SERVICE :NAME "boks_clntd" :ALIASES ("boks-clntd") :PORT 6503 :PROTO "udp">
 #<SERVICE :NAME "badm_priv" :ALIASES ("badm-priv") :PORT 6505 :PROTO "tcp">
 #<SERVICE :NAME "badm_priv" :ALIASES ("badm-priv") :PORT 6505 :PROTO "udp">
 #<SERVICE :NAME "badm_pub" :ALIASES ("badm-pub") :PORT 6506 :PROTO "tcp">
 #<SERVICE :NAME "badm_pub" :ALIASES ("badm-pub") :PORT 6506 :PROTO "udp">
 #<SERVICE :NAME "bdir_priv" :ALIASES ("bdir-priv") :PORT 6507 :PROTO "tcp">
 #<SERVICE :NAME "bdir_priv" :ALIASES ("bdir-priv") :PORT 6507 :PROTO "udp">
 #<SERVICE :NAME "bdir_pub" :ALIASES ("bdir-pub") :PORT 6508 :PROTO "tcp">
 #<SERVICE :NAME "bdir_pub" :ALIASES ("bdir-pub") :PORT 6508 :PROTO "udp">
 #<SERVICE :NAME "mgcs-mfp-port" :ALIASES NIL :PORT 6509 :PROTO "tcp">
 #<SERVICE :NAME "mgcs-mfp-port" :ALIASES NIL :PORT 6509 :PROTO "udp">
 #<SERVICE :NAME "mcer-port" :ALIASES NIL :PORT 6510 :PROTO "tcp">
 #<SERVICE :NAME "mcer-port" :ALIASES NIL :PORT 6510 :PROTO "udp">
 #<SERVICE :NAME "dccp-udp" :ALIASES NIL :PORT 6511 :PROTO "udp">
 #<SERVICE :NAME "netconf-tls" :ALIASES NIL :PORT 6513 :PROTO "tcp">
 #<SERVICE :NAME "syslog-tls" :ALIASES NIL :PORT 6514 :PROTO "tcp">
 #<SERVICE :NAME "syslog-tls" :ALIASES NIL :PORT 6514 :PROTO "udp">
 #<SERVICE :NAME "syslog-tls" :ALIASES NIL :PORT 6514 :PROTO "dccp">
 #<SERVICE :NAME "elipse-rec" :ALIASES NIL :PORT 6515 :PROTO "tcp">
 #<SERVICE :NAME "elipse-rec" :ALIASES NIL :PORT 6515 :PROTO "udp">
 #<SERVICE :NAME "lds-distrib" :ALIASES NIL :PORT 6543 :PROTO "tcp">
 #<SERVICE :NAME "lds-distrib" :ALIASES NIL :PORT 6543 :PROTO "udp">
 #<SERVICE :NAME "lds-dump" :ALIASES NIL :PORT 6544 :PROTO "tcp">
 #<SERVICE :NAME "lds-dump" :ALIASES NIL :PORT 6544 :PROTO "udp">
 #<SERVICE :NAME "apc-6547" :ALIASES NIL :PORT 6547 :PROTO "tcp">
 #<SERVICE :NAME "apc-6547" :ALIASES NIL :PORT 6547 :PROTO "udp">
 #<SERVICE :NAME "apc-6548" :ALIASES NIL :PORT 6548 :PROTO "tcp">
 #<SERVICE :NAME "apc-6548" :ALIASES NIL :PORT 6548 :PROTO "udp">
 #<SERVICE :NAME "apc-6549" :ALIASES NIL :PORT 6549 :PROTO "tcp">
 #<SERVICE :NAME "apc-6549" :ALIASES NIL :PORT 6549 :PROTO "udp">
 #<SERVICE :NAME "fg-sysupdate" :ALIASES NIL :PORT 6550 :PROTO "tcp">
 #<SERVICE :NAME "fg-sysupdate" :ALIASES NIL :PORT 6550 :PROTO "udp">
 #<SERVICE :NAME "sum" :ALIASES NIL :PORT 6551 :PROTO "tcp">
 #<SERVICE :NAME "sum" :ALIASES NIL :PORT 6551 :PROTO "udp">
 #<SERVICE :NAME "xdsxdm" :ALIASES NIL :PORT 6558 :PROTO "tcp">
 #<SERVICE :NAME "xdsxdm" :ALIASES NIL :PORT 6558 :PROTO "udp">
 #<SERVICE :NAME "sane-port" :ALIASES NIL :PORT 6566 :PROTO "tcp">
 #<SERVICE :NAME "sane-port" :ALIASES NIL :PORT 6566 :PROTO "udp">
 #<SERVICE :NAME "canit_store" :ALIASES ("canit-store") :PORT 6568
   :PROTO "tcp">
 #<SERVICE :NAME "rp-reputation" :ALIASES NIL :PORT 6568 :PROTO "udp">
 #<SERVICE :NAME "affiliate" :ALIASES NIL :PORT 6579 :PROTO "tcp">
 #<SERVICE :NAME "affiliate" :ALIASES NIL :PORT 6579 :PROTO "udp">
 #<SERVICE :NAME "parsec-master" :ALIASES NIL :PORT 6580 :PROTO "tcp">
 #<SERVICE :NAME "parsec-master" :ALIASES NIL :PORT 6580 :PROTO "udp">
 #<SERVICE :NAME "parsec-peer" :ALIASES NIL :PORT 6581 :PROTO "tcp">
 #<SERVICE :NAME "parsec-peer" :ALIASES NIL :PORT 6581 :PROTO "udp">
 #<SERVICE :NAME "parsec-game" :ALIASES NIL :PORT 6582 :PROTO "tcp">
 #<SERVICE :NAME "parsec-game" :ALIASES NIL :PORT 6582 :PROTO "udp">
 #<SERVICE :NAME "joaJewelSuite" :ALIASES NIL :PORT 6583 :PROTO "tcp">
 #<SERVICE :NAME "joaJewelSuite" :ALIASES NIL :PORT 6583 :PROTO "udp">
 #<SERVICE :NAME "mshvlm" :ALIASES NIL :PORT 6600 :PROTO "tcp">
 #<SERVICE :NAME "mstmg-sstp" :ALIASES NIL :PORT 6601 :PROTO "tcp">
 #<SERVICE :NAME "wsscomfrmwk" :ALIASES NIL :PORT 6602 :PROTO "tcp">
 #<SERVICE :NAME "odette-ftps" :ALIASES NIL :PORT 6619 :PROTO "tcp">
 #<SERVICE :NAME "odette-ftps" :ALIASES NIL :PORT 6619 :PROTO "udp">
 #<SERVICE :NAME "kftp-data" :ALIASES NIL :PORT 6620 :PROTO "tcp">
 #<SERVICE :NAME "kftp-data" :ALIASES NIL :PORT 6620 :PROTO "udp">
 #<SERVICE :NAME "kftp" :ALIASES NIL :PORT 6621 :PROTO "tcp">
 #<SERVICE :NAME "kftp" :ALIASES NIL :PORT 6621 :PROTO "udp">
 #<SERVICE :NAME "mcftp" :ALIASES NIL :PORT 6622 :PROTO "tcp">
 #<SERVICE :NAME "mcftp" :ALIASES NIL :PORT 6622 :PROTO "udp">
 #<SERVICE :NAME "ktelnet" :ALIASES NIL :PORT 6623 :PROTO "tcp">
 #<SERVICE :NAME "ktelnet" :ALIASES NIL :PORT 6623 :PROTO "udp">
 #<SERVICE :NAME "datascaler-db" :ALIASES NIL :PORT 6624 :PROTO "tcp">
 #<SERVICE :NAME "datascaler-ctl" :ALIASES NIL :PORT 6625 :PROTO "tcp">
 #<SERVICE :NAME "wago-service" :ALIASES NIL :PORT 6626 :PROTO "tcp">
 #<SERVICE :NAME "wago-service" :ALIASES NIL :PORT 6626 :PROTO "udp">
 #<SERVICE :NAME "nexgen" :ALIASES NIL :PORT 6627 :PROTO "tcp">
 #<SERVICE :NAME "nexgen" :ALIASES NIL :PORT 6627 :PROTO "udp">
 #<SERVICE :NAME "afesc-mc" :ALIASES NIL :PORT 6628 :PROTO "tcp">
 #<SERVICE :NAME "afesc-mc" :ALIASES NIL :PORT 6628 :PROTO "udp">
 #<SERVICE :NAME "mxodbc-connect" :ALIASES NIL :PORT 6632 :PROTO "tcp">
 #<SERVICE :NAME "cisco-vpath-tun" :ALIASES NIL :PORT 6633 :PROTO "udp">
 #<SERVICE :NAME "mpls-pm" :ALIASES NIL :PORT 6634 :PROTO "udp">
 #<SERVICE :NAME "mpls-udp" :ALIASES NIL :PORT 6635 :PROTO "udp">
 #<SERVICE :NAME "mpls-udp-dtls" :ALIASES NIL :PORT 6636 :PROTO "udp">
 #<SERVICE :NAME "ovsdb" :ALIASES NIL :PORT 6640 :PROTO "tcp">
 #<SERVICE :NAME "openflow" :ALIASES NIL :PORT 6653 :PROTO "tcp">
 #<SERVICE :NAME "openflow" :ALIASES NIL :PORT 6653 :PROTO "udp">
 #<SERVICE :NAME "pcs-sf-ui-man" :ALIASES NIL :PORT 6655 :PROTO "tcp">
 #<SERVICE :NAME "emgmsg" :ALIASES NIL :PORT 6656 :PROTO "tcp">
 #<SERVICE :NAME "palcom-disc" :ALIASES NIL :PORT 6657 :PROTO "udp">
 #<SERVICE :NAME "ircu" :ALIASES NIL :PORT 6665 :PROTO "tcp">
 #<SERVICE :NAME "ircu" :ALIASES NIL :PORT 6665 :PROTO "udp">
 #<SERVICE :NAME "ircu-2" :ALIASES ("ircu2") :PORT 6666 :PROTO "tcp">
 #<SERVICE :NAME "ircu-2" :ALIASES ("ircu2") :PORT 6666 :PROTO "udp">
 #<SERVICE :NAME "ircu-3" :ALIASES ("ircd" "ircu3") :PORT 6667 :PROTO "tcp">
 #<SERVICE :NAME "ircu-3" :ALIASES ("ircd" "ircu3") :PORT 6667 :PROTO "udp">
 #<SERVICE :NAME "ircu-4" :ALIASES ("ircu4") :PORT 6668 :PROTO "tcp">
 #<SERVICE :NAME "ircu-4" :ALIASES ("ircu4") :PORT 6668 :PROTO "udp">
 #<SERVICE :NAME "ircu-5" :ALIASES ("ircu5") :PORT 6669 :PROTO "tcp">
 #<SERVICE :NAME "ircu-5" :ALIASES ("ircu5") :PORT 6669 :PROTO "udp">
 #<SERVICE :NAME "vocaltec-gold" :ALIASES NIL :PORT 6670 :PROTO "tcp">
 #<SERVICE :NAME "vocaltec-gold" :ALIASES NIL :PORT 6670 :PROTO "udp">
 #<SERVICE :NAME "p4p-portal" :ALIASES NIL :PORT 6671 :PROTO "tcp">
 #<SERVICE :NAME "p4p-portal" :ALIASES NIL :PORT 6671 :PROTO "udp">
 #<SERVICE :NAME "vision_server" :ALIASES ("vision-server") :PORT 6672
   :PROTO "tcp">
 #<SERVICE :NAME "vision_server" :ALIASES ("vision-server") :PORT 6672
   :PROTO "udp">
 #<SERVICE :NAME "vision_elmd" :ALIASES ("vision-elmd") :PORT 6673
   :PROTO "tcp">
 #<SERVICE :NAME "vision_elmd" :ALIASES ("vision-elmd") :PORT 6673
   :PROTO "udp">
 #<SERVICE :NAME "vfbp" :ALIASES NIL :PORT 6678 :PROTO "tcp">
 #<SERVICE :NAME "vfbp-disc" :ALIASES NIL :PORT 6678 :PROTO "udp">
 #<SERVICE :NAME "osaut" :ALIASES NIL :PORT 6679 :PROTO "tcp">
 #<SERVICE :NAME "osaut" :ALIASES NIL :PORT 6679 :PROTO "udp">
 #<SERVICE :NAME "clever-ctrace" :ALIASES NIL :PORT 6687 :PROTO "tcp">
 #<SERVICE :NAME "clever-tcpip" :ALIASES NIL :PORT 6688 :PROTO "tcp">
 #<SERVICE :NAME "tsa" :ALIASES NIL :PORT 6689 :PROTO "tcp">
 #<SERVICE :NAME "tsa" :ALIASES NIL :PORT 6689 :PROTO "udp">
 #<SERVICE :NAME "cleverdetect" :ALIASES NIL :PORT 6690 :PROTO "tcp">
 #<SERVICE :NAME "babel" :ALIASES NIL :PORT 6696 :PROTO "udp">
 #<SERVICE :NAME "ircs-u" :ALIASES NIL :PORT 6697 :PROTO "tcp">
 #<SERVICE :NAME "kti-icad-srvr" :ALIASES NIL :PORT 6701 :PROTO "tcp">
 #<SERVICE :NAME "kti-icad-srvr" :ALIASES NIL :PORT 6701 :PROTO "udp">
 #<SERVICE :NAME "e-design-net" :ALIASES NIL :PORT 6702 :PROTO "tcp">
 #<SERVICE :NAME "e-design-net" :ALIASES NIL :PORT 6702 :PROTO "udp">
 #<SERVICE :NAME "e-design-web" :ALIASES NIL :PORT 6703 :PROTO "tcp">
 #<SERVICE :NAME "e-design-web" :ALIASES NIL :PORT 6703 :PROTO "udp">
 #<SERVICE :NAME "frc-hp" :ALIASES NIL :PORT 6704 :PROTO "sctp">
 #<SERVICE :NAME "frc-mp" :ALIASES NIL :PORT 6705 :PROTO "sctp">
 #<SERVICE :NAME "frc-lp" :ALIASES NIL :PORT 6706 :PROTO "sctp">
 #<SERVICE :NAME "ibprotocol" :ALIASES NIL :PORT 6714 :PROTO "tcp">
 #<SERVICE :NAME "ibprotocol" :ALIASES NIL :PORT 6714 :PROTO "udp">
 #<SERVICE :NAME "fibotrader-com" :ALIASES NIL :PORT 6715 :PROTO "tcp">
 #<SERVICE :NAME "fibotrader-com" :ALIASES NIL :PORT 6715 :PROTO "udp">
 #<SERVICE :NAME "princity-agent" :ALIASES NIL :PORT 6716 :PROTO "tcp">
 #<SERVICE :NAME "bmc-perf-agent" :ALIASES NIL :PORT 6767 :PROTO "tcp">
 #<SERVICE :NAME "bmc-perf-agent" :ALIASES NIL :PORT 6767 :PROTO "udp">
 #<SERVICE :NAME "bmc-perf-mgrd" :ALIASES NIL :PORT 6768 :PROTO "tcp">
 #<SERVICE :NAME "bmc-perf-mgrd" :ALIASES NIL :PORT 6768 :PROTO "udp">
 #<SERVICE :NAME "adi-gxp-srvprt" :ALIASES NIL :PORT 6769 :PROTO "tcp">
 #<SERVICE :NAME "adi-gxp-srvprt" :ALIASES NIL :PORT 6769 :PROTO "udp">
 #<SERVICE :NAME "plysrv-http" :ALIASES NIL :PORT 6770 :PROTO "tcp">
 #<SERVICE :NAME "plysrv-http" :ALIASES NIL :PORT 6770 :PROTO "udp">
 #<SERVICE :NAME "plysrv-https" :ALIASES NIL :PORT 6771 :PROTO "tcp">
 #<SERVICE :NAME "plysrv-https" :ALIASES NIL :PORT 6771 :PROTO "udp">
 #<SERVICE :NAME "ntz-tracker" :ALIASES NIL :PORT 6777 :PROTO "tcp">
 #<SERVICE :NAME "ntz-p2p-storage" :ALIASES NIL :PORT 6778 :PROTO "tcp">
 #<SERVICE :NAME "bfd-lag" :ALIASES NIL :PORT 6784 :PROTO "udp">
 #<SERVICE :NAME "dgpf-exchg" :ALIASES NIL :PORT 6785 :PROTO "tcp">
 #<SERVICE :NAME "dgpf-exchg" :ALIASES NIL :PORT 6785 :PROTO "udp">
 #<SERVICE :NAME "smc-jmx" :ALIASES NIL :PORT 6786 :PROTO "tcp">
 #<SERVICE :NAME "smc-jmx" :ALIASES NIL :PORT 6786 :PROTO "udp">
 #<SERVICE :NAME "smc-admin" :ALIASES NIL :PORT 6787 :PROTO "tcp">
 #<SERVICE :NAME "smc-admin" :ALIASES NIL :PORT 6787 :PROTO "udp">
 #<SERVICE :NAME "smc-http" :ALIASES NIL :PORT 6788 :PROTO "tcp">
 #<SERVICE :NAME "smc-http" :ALIASES NIL :PORT 6788 :PROTO "udp">
 #<SERVICE :NAME "smc-https" :ALIASES NIL :PORT 6789 :PROTO "tcp">
 #<SERVICE :NAME "smc-https" :ALIASES NIL :PORT 6789 :PROTO "udp">
 #<SERVICE :NAME "hnmp" :ALIASES NIL :PORT 6790 :PROTO "tcp">
 #<SERVICE :NAME "hnmp" :ALIASES NIL :PORT 6790 :PROTO "udp">
 #<SERVICE :NAME "hnm" :ALIASES NIL :PORT 6791 :PROTO "tcp">
 #<SERVICE :NAME "hnm" :ALIASES NIL :PORT 6791 :PROTO "udp">
 #<SERVICE :NAME "acnet" :ALIASES NIL :PORT 6801 :PROTO "tcp">
 #<SERVICE :NAME "acnet" :ALIASES NIL :PORT 6801 :PROTO "udp">
 #<SERVICE :NAME "pentbox-sim" :ALIASES NIL :PORT 6817 :PROTO "tcp">
 #<SERVICE :NAME "ambit-lm" :ALIASES NIL :PORT 6831 :PROTO "tcp">
 #<SERVICE :NAME "ambit-lm" :ALIASES NIL :PORT 6831 :PROTO "udp">
 #<SERVICE :NAME "netmo-default" :ALIASES NIL :PORT 6841 :PROTO "tcp">
 #<SERVICE :NAME "netmo-default" :ALIASES NIL :PORT 6841 :PROTO "udp">
 #<SERVICE :NAME "netmo-http" :ALIASES NIL :PORT 6842 :PROTO "tcp">
 #<SERVICE :NAME "netmo-http" :ALIASES NIL :PORT 6842 :PROTO "udp">
 #<SERVICE :NAME "iccrushmore" :ALIASES NIL :PORT 6850 :PROTO "tcp">
 #<SERVICE :NAME "iccrushmore" :ALIASES NIL :PORT 6850 :PROTO "udp">
 #<SERVICE :NAME "acctopus-cc" :ALIASES NIL :PORT 6868 :PROTO "tcp">
 #<SERVICE :NAME "acctopus-st" :ALIASES NIL :PORT 6868 :PROTO "udp">
 #<SERVICE :NAME "muse" :ALIASES NIL :PORT 6888 :PROTO "tcp">
 #<SERVICE :NAME "muse" :ALIASES NIL :PORT 6888 :PROTO "udp">
 #<SERVICE :NAME "jetstream" :ALIASES NIL :PORT 6901 :PROTO "tcp">
 #<SERVICE :NAME "ethoscan" :ALIASES NIL :PORT 6935 :PROTO "tcp">
 #<SERVICE :NAME "ethoscan" :ALIASES NIL :PORT 6935 :PROTO "udp">
 #<SERVICE :NAME "xsmsvc" :ALIASES NIL :PORT 6936 :PROTO "tcp">
 #<SERVICE :NAME "xsmsvc" :ALIASES NIL :PORT 6936 :PROTO "udp">
 #<SERVICE :NAME "bioserver" :ALIASES NIL :PORT 6946 :PROTO "tcp">
 #<SERVICE :NAME "bioserver" :ALIASES NIL :PORT 6946 :PROTO "udp">
 #<SERVICE :NAME "otlp" :ALIASES NIL :PORT 6951 :PROTO "tcp">
 #<SERVICE :NAME "otlp" :ALIASES NIL :PORT 6951 :PROTO "udp">
 #<SERVICE :NAME "jmact3" :ALIASES NIL :PORT 6961 :PROTO "tcp">
 #<SERVICE :NAME "jmact3" :ALIASES NIL :PORT 6961 :PROTO "udp">
 #<SERVICE :NAME "jmevt2" :ALIASES NIL :PORT 6962 :PROTO "tcp">
 #<SERVICE :NAME "jmevt2" :ALIASES NIL :PORT 6962 :PROTO "udp">
 #<SERVICE :NAME "swismgr1" :ALIASES NIL :PORT 6963 :PROTO "tcp">
 #<SERVICE :NAME "swismgr1" :ALIASES NIL :PORT 6963 :PROTO "udp">
 #<SERVICE :NAME "swismgr2" :ALIASES NIL :PORT 6964 :PROTO "tcp">
 #<SERVICE :NAME "swismgr2" :ALIASES NIL :PORT 6964 :PROTO "udp">
 #<SERVICE :NAME "swistrap" :ALIASES NIL :PORT 6965 :PROTO "tcp">
 #<SERVICE :NAME "swistrap" :ALIASES NIL :PORT 6965 :PROTO "udp">
 #<SERVICE :NAME "swispol" :ALIASES NIL :PORT 6966 :PROTO "tcp">
 #<SERVICE :NAME "swispol" :ALIASES NIL :PORT 6966 :PROTO "udp">
 #<SERVICE :NAME "acmsoda" :ALIASES NIL :PORT 6969 :PROTO "tcp">
 #<SERVICE :NAME "acmsoda" :ALIASES NIL :PORT 6969 :PROTO "udp">
 #<SERVICE :NAME "conductor" :ALIASES NIL :PORT 6970 :PROTO "tcp">
 #<SERVICE :NAME "conductor-mpx" :ALIASES NIL :PORT 6970 :PROTO "sctp">
 #<SERVICE :NAME "MobilitySrv" :ALIASES NIL :PORT 6997 :PROTO "tcp">
 #<SERVICE :NAME "MobilitySrv" :ALIASES NIL :PORT 6997 :PROTO "udp">
 #<SERVICE :NAME "iatp-highpri" :ALIASES NIL :PORT 6998 :PROTO "tcp">
 #<SERVICE :NAME "iatp-highpri" :ALIASES NIL :PORT 6998 :PROTO "udp">
 #<SERVICE :NAME "iatp-normalpri" :ALIASES NIL :PORT 6999 :PROTO "tcp">
 #<SERVICE :NAME "iatp-normalpri" :ALIASES NIL :PORT 6999 :PROTO "udp">
 #<SERVICE :NAME "ups-onlinet" :ALIASES NIL :PORT 7010 :PROTO "tcp">
 #<SERVICE :NAME "ups-onlinet" :ALIASES NIL :PORT 7010 :PROTO "udp">
 #<SERVICE :NAME "talon-disc" :ALIASES NIL :PORT 7011 :PROTO "tcp">
 #<SERVICE :NAME "talon-disc" :ALIASES NIL :PORT 7011 :PROTO "udp">
 #<SERVICE :NAME "talon-engine" :ALIASES NIL :PORT 7012 :PROTO "tcp">
 #<SERVICE :NAME "talon-engine" :ALIASES NIL :PORT 7012 :PROTO "udp">
 #<SERVICE :NAME "microtalon-dis" :ALIASES NIL :PORT 7013 :PROTO "tcp">
 #<SERVICE :NAME "microtalon-dis" :ALIASES NIL :PORT 7013 :PROTO "udp">
 #<SERVICE :NAME "microtalon-com" :ALIASES NIL :PORT 7014 :PROTO "tcp">
 #<SERVICE :NAME "microtalon-com" :ALIASES NIL :PORT 7014 :PROTO "udp">
 #<SERVICE :NAME "talon-webserver" :ALIASES NIL :PORT 7015 :PROTO "tcp">
 #<SERVICE :NAME "talon-webserver" :ALIASES NIL :PORT 7015 :PROTO "udp">
 #<SERVICE :NAME "fisa-svc" :ALIASES NIL :PORT 7018 :PROTO "tcp">
 #<SERVICE :NAME "doceri-ctl" :ALIASES NIL :PORT 7019 :PROTO "tcp">
 #<SERVICE :NAME "doceri-view" :ALIASES NIL :PORT 7019 :PROTO "udp">
 #<SERVICE :NAME "dpserve" :ALIASES NIL :PORT 7020 :PROTO "tcp">
 #<SERVICE :NAME "dpserve" :ALIASES NIL :PORT 7020 :PROTO "udp">
 #<SERVICE :NAME "dpserveadmin" :ALIASES NIL :PORT 7021 :PROTO "tcp">
 #<SERVICE :NAME "dpserveadmin" :ALIASES NIL :PORT 7021 :PROTO "udp">
 #<SERVICE :NAME "ctdp" :ALIASES NIL :PORT 7022 :PROTO "tcp">
 #<SERVICE :NAME "ctdp" :ALIASES NIL :PORT 7022 :PROTO "udp">
 #<SERVICE :NAME "ct2nmcs" :ALIASES NIL :PORT 7023 :PROTO "tcp">
 #<SERVICE :NAME "ct2nmcs" :ALIASES NIL :PORT 7023 :PROTO "udp">
 #<SERVICE :NAME "vmsvc" :ALIASES NIL :PORT 7024 :PROTO "tcp">
 #<SERVICE :NAME "vmsvc" :ALIASES NIL :PORT 7024 :PROTO "udp">
 #<SERVICE :NAME "vmsvc-2" :ALIASES NIL :PORT 7025 :PROTO "tcp">
 #<SERVICE :NAME "vmsvc-2" :ALIASES NIL :PORT 7025 :PROTO "udp">
 #<SERVICE :NAME "op-probe" :ALIASES NIL :PORT 7030 :PROTO "tcp">
 #<SERVICE :NAME "op-probe" :ALIASES NIL :PORT 7030 :PROTO "udp">
 #<SERVICE :NAME "iposplanet" :ALIASES NIL :PORT 7031 :PROTO "tcp">
 #<SERVICE :NAME "quest-disc" :ALIASES NIL :PORT 7040 :PROTO "udp">
 #<SERVICE :NAME "arcp" :ALIASES NIL :PORT 7070 :PROTO "tcp">
 #<SERVICE :NAME "arcp" :ALIASES NIL :PORT 7070 :PROTO "udp">
 #<SERVICE :NAME "iwg1" :ALIASES NIL :PORT 7071 :PROTO "tcp">
 #<SERVICE :NAME "iwg1" :ALIASES NIL :PORT 7071 :PROTO "udp">
 #<SERVICE :NAME "martalk" :ALIASES NIL :PORT 7073 :PROTO "tcp">
 #<SERVICE :NAME "empowerid" :ALIASES NIL :PORT 7080 :PROTO "tcp">
 #<SERVICE :NAME "empowerid" :ALIASES NIL :PORT 7080 :PROTO "udp">
 #<SERVICE :NAME "zixi-transport" :ALIASES NIL :PORT 7088 :PROTO "udp">
 #<SERVICE :NAME "jdp-disc" :ALIASES NIL :PORT 7095 :PROTO "udp">
 #<SERVICE :NAME "lazy-ptop" :ALIASES NIL :PORT 7099 :PROTO "tcp">
 #<SERVICE :NAME "lazy-ptop" :ALIASES NIL :PORT 7099 :PROTO "udp">
 #<SERVICE :NAME "font-service" :ALIASES NIL :PORT 7100 :PROTO "udp">
 #<SERVICE :NAME "elcn" :ALIASES NIL :PORT 7101 :PROTO "tcp">
 #<SERVICE :NAME "elcn" :ALIASES NIL :PORT 7101 :PROTO "udp">
 #<SERVICE :NAME "aes-x170" :ALIASES NIL :PORT 7107 :PROTO "udp">
 #<SERVICE :NAME "rothaga" :ALIASES NIL :PORT 7117 :PROTO "tcp">
 #<SERVICE :NAME "virprot-lm" :ALIASES NIL :PORT 7121 :PROTO "tcp">
 #<SERVICE :NAME "virprot-lm" :ALIASES NIL :PORT 7121 :PROTO "udp">
 #<SERVICE :NAME "scenidm" :ALIASES NIL :PORT 7128 :PROTO "tcp">
 #<SERVICE :NAME "scenidm" :ALIASES NIL :PORT 7128 :PROTO "udp">
 #<SERVICE :NAME "scenccs" :ALIASES NIL :PORT 7129 :PROTO "tcp">
 #<SERVICE :NAME "scenccs" :ALIASES NIL :PORT 7129 :PROTO "udp">
 #<SERVICE :NAME "cabsm-comm" :ALIASES NIL :PORT 7161 :PROTO "tcp">
 #<SERVICE :NAME "cabsm-comm" :ALIASES NIL :PORT 7161 :PROTO "udp">
 #<SERVICE :NAME "caistoragemgr" :ALIASES NIL :PORT 7162 :PROTO "tcp">
 #<SERVICE :NAME "caistoragemgr" :ALIASES NIL :PORT 7162 :PROTO "udp">
 #<SERVICE :NAME "cacsambroker" :ALIASES NIL :PORT 7163 :PROTO "tcp">
 #<SERVICE :NAME "cacsambroker" :ALIASES NIL :PORT 7163 :PROTO "udp">
 #<SERVICE :NAME "fsr" :ALIASES NIL :PORT 7164 :PROTO "tcp">
 #<SERVICE :NAME "fsr" :ALIASES NIL :PORT 7164 :PROTO "udp">
 #<SERVICE :NAME "doc-server" :ALIASES NIL :PORT 7165 :PROTO "tcp">
 #<SERVICE :NAME "doc-server" :ALIASES NIL :PORT 7165 :PROTO "udp">
 #<SERVICE :NAME "aruba-server" :ALIASES NIL :PORT 7166 :PROTO "tcp">
 #<SERVICE :NAME "aruba-server" :ALIASES NIL :PORT 7166 :PROTO "udp">
 #<SERVICE :NAME "casrmagent" :ALIASES NIL :PORT 7167 :PROTO "tcp">
 #<SERVICE :NAME "cnckadserver" :ALIASES NIL :PORT 7168 :PROTO "tcp">
 #<SERVICE :NAME "ccag-pib" :ALIASES NIL :PORT 7169 :PROTO "tcp">
 #<SERVICE :NAME "ccag-pib" :ALIASES NIL :PORT 7169 :PROTO "udp">
 #<SERVICE :NAME "nsrp" :ALIASES NIL :PORT 7170 :PROTO "tcp">
 #<SERVICE :NAME "nsrp" :ALIASES NIL :PORT 7170 :PROTO "udp">
 #<SERVICE :NAME "drm-production" :ALIASES NIL :PORT 7171 :PROTO "tcp">
 #<SERVICE :NAME "drm-production" :ALIASES NIL :PORT 7171 :PROTO "udp">
 #<SERVICE :NAME "metalbend" :ALIASES NIL :PORT 7172 :PROTO "tcp">
 #<SERVICE :NAME "zsecure" :ALIASES NIL :PORT 7173 :PROTO "tcp">
 #<SERVICE :NAME "clutild" :ALIASES NIL :PORT 7174 :PROTO "tcp">
 #<SERVICE :NAME "clutild" :ALIASES NIL :PORT 7174 :PROTO "udp">
 #<SERVICE :NAME "janus-disc" :ALIASES NIL :PORT 7181 :PROTO "udp">
 #<SERVICE :NAME "fodms" :ALIASES NIL :PORT 7200 :PROTO "tcp">
 #<SERVICE :NAME "fodms" :ALIASES NIL :PORT 7200 :PROTO "udp">
 #<SERVICE :NAME "dlip" :ALIASES NIL :PORT 7201 :PROTO "tcp">
 #<SERVICE :NAME "dlip" :ALIASES NIL :PORT 7201 :PROTO "udp">
 #<SERVICE :NAME "PS-Server" :ALIASES NIL :PORT 7215 :PROTO "tcp">
 #<SERVICE :NAME "PS-Capture-Pro" :ALIASES NIL :PORT 7216 :PROTO "tcp">
 #<SERVICE :NAME "ramp" :ALIASES NIL :PORT 7227 :PROTO "tcp">
 #<SERVICE :NAME "ramp" :ALIASES NIL :PORT 7227 :PROTO "udp">
 #<SERVICE :NAME "citrixupp" :ALIASES NIL :PORT 7228 :PROTO "tcp">
 #<SERVICE :NAME "citrixuppg" :ALIASES NIL :PORT 7229 :PROTO "tcp">
 #<SERVICE :NAME "aspcoordination" :ALIASES NIL :PORT 7235 :PROTO "udp">
 #<SERVICE :NAME "display" :ALIASES NIL :PORT 7236 :PROTO "tcp">
 #<SERVICE :NAME "pads" :ALIASES NIL :PORT 7237 :PROTO "tcp">
 #<SERVICE :NAME "frc-hicp" :ALIASES NIL :PORT 7244 :PROTO "tcp">
 #<SERVICE :NAME "frc-hicp-disc" :ALIASES NIL :PORT 7244 :PROTO "udp">
 #<SERVICE :NAME "cnap" :ALIASES NIL :PORT 7262 :PROTO "tcp">
 #<SERVICE :NAME "cnap" :ALIASES NIL :PORT 7262 :PROTO "udp">
 #<SERVICE :NAME "watchme-7272" :ALIASES NIL :PORT 7272 :PROTO "tcp">
 #<SERVICE :NAME "watchme-7272" :ALIASES NIL :PORT 7272 :PROTO "udp">
 #<SERVICE :NAME "oma-rlp" :ALIASES NIL :PORT 7273 :PROTO "tcp">
 #<SERVICE :NAME "oma-rlp" :ALIASES NIL :PORT 7273 :PROTO "udp">
 #<SERVICE :NAME "oma-rlp-s" :ALIASES NIL :PORT 7274 :PROTO "tcp">
 #<SERVICE :NAME "oma-rlp-s" :ALIASES NIL :PORT 7274 :PROTO "udp">
 #<SERVICE :NAME "oma-ulp" :ALIASES NIL :PORT 7275 :PROTO "tcp">
 #<SERVICE :NAME "oma-ulp" :ALIASES NIL :PORT 7275 :PROTO "udp">
 #<SERVICE :NAME "oma-ilp" :ALIASES NIL :PORT 7276 :PROTO "tcp">
 #<SERVICE :NAME "oma-ilp" :ALIASES NIL :PORT 7276 :PROTO "udp">
 #<SERVICE :NAME "oma-ilp-s" :ALIASES NIL :PORT 7277 :PROTO "tcp">
 #<SERVICE :NAME "oma-ilp-s" :ALIASES NIL :PORT 7277 :PROTO "udp">
 #<SERVICE :NAME "oma-dcdocbs" :ALIASES NIL :PORT 7278 :PROTO "tcp">
 #<SERVICE :NAME "oma-dcdocbs" :ALIASES NIL :PORT 7278 :PROTO "udp">
 #<SERVICE :NAME "ctxlic" :ALIASES NIL :PORT 7279 :PROTO "tcp">
 #<SERVICE :NAME "ctxlic" :ALIASES NIL :PORT 7279 :PROTO "udp">
 #<SERVICE :NAME "itactionserver1" :ALIASES NIL :PORT 7280 :PROTO "tcp">
 #<SERVICE :NAME "itactionserver1" :ALIASES NIL :PORT 7280 :PROTO "udp">
 #<SERVICE :NAME "itactionserver2" :ALIASES NIL :PORT 7281 :PROTO "tcp">
 #<SERVICE :NAME "itactionserver2" :ALIASES NIL :PORT 7281 :PROTO "udp">
 #<SERVICE :NAME "mzca-action" :ALIASES NIL :PORT 7282 :PROTO "tcp">
 #<SERVICE :NAME "mzca-alert" :ALIASES NIL :PORT 7282 :PROTO "udp">
 #<SERVICE :NAME "genstat" :ALIASES NIL :PORT 7283 :PROTO "tcp">
 #<SERVICE :NAME "lcm-server" :ALIASES NIL :PORT 7365 :PROTO "tcp">
 #<SERVICE :NAME "lcm-server" :ALIASES NIL :PORT 7365 :PROTO "udp">
 #<SERVICE :NAME "mindfilesys" :ALIASES NIL :PORT 7391 :PROTO "tcp">
 #<SERVICE :NAME "mindfilesys" :ALIASES NIL :PORT 7391 :PROTO "udp">
 #<SERVICE :NAME "mrssrendezvous" :ALIASES NIL :PORT 7392 :PROTO "tcp">
 #<SERVICE :NAME "mrssrendezvous" :ALIASES NIL :PORT 7392 :PROTO "udp">
 #<SERVICE :NAME "nfoldman" :ALIASES NIL :PORT 7393 :PROTO "tcp">
 #<SERVICE :NAME "nfoldman" :ALIASES NIL :PORT 7393 :PROTO "udp">
 #<SERVICE :NAME "fse" :ALIASES NIL :PORT 7394 :PROTO "tcp">
 #<SERVICE :NAME "fse" :ALIASES NIL :PORT 7394 :PROTO "udp">
 #<SERVICE :NAME "winqedit" :ALIASES NIL :PORT 7395 :PROTO "tcp">
 #<SERVICE :NAME "winqedit" :ALIASES NIL :PORT 7395 :PROTO "udp">
 #<SERVICE :NAME "hexarc" :ALIASES NIL :PORT 7397 :PROTO "tcp">
 #<SERVICE :NAME "hexarc" :ALIASES NIL :PORT 7397 :PROTO "udp">
 #<SERVICE :NAME "rtps-discovery" :ALIASES NIL :PORT 7400 :PROTO "tcp">
 #<SERVICE :NAME "rtps-discovery" :ALIASES NIL :PORT 7400 :PROTO "udp">
 #<SERVICE :NAME "rtps-dd-ut" :ALIASES NIL :PORT 7401 :PROTO "tcp">
 #<SERVICE :NAME "rtps-dd-ut" :ALIASES NIL :PORT 7401 :PROTO "udp">
 #<SERVICE :NAME "rtps-dd-mt" :ALIASES NIL :PORT 7402 :PROTO "tcp">
 #<SERVICE :NAME "rtps-dd-mt" :ALIASES NIL :PORT 7402 :PROTO "udp">
 #<SERVICE :NAME "ionixnetmon" :ALIASES NIL :PORT 7410 :PROTO "tcp">
 #<SERVICE :NAME "ionixnetmon" :ALIASES NIL :PORT 7410 :PROTO "udp">
 #<SERVICE :NAME "daqstream" :ALIASES NIL :PORT 7411 :PROTO "tcp">
 #<SERVICE :NAME "daqstream" :ALIASES NIL :PORT 7411 :PROTO "udp">
 #<SERVICE :NAME "mtportmon" :ALIASES NIL :PORT 7421 :PROTO "tcp">
 #<SERVICE :NAME "mtportmon" :ALIASES NIL :PORT 7421 :PROTO "udp">
 #<SERVICE :NAME "pmdmgr" :ALIASES NIL :PORT 7426 :PROTO "tcp">
 #<SERVICE :NAME "pmdmgr" :ALIASES NIL :PORT 7426 :PROTO "udp">
 #<SERVICE :NAME "oveadmgr" :ALIASES NIL :PORT 7427 :PROTO "tcp">
 #<SERVICE :NAME "oveadmgr" :ALIASES NIL :PORT 7427 :PROTO "udp">
 #<SERVICE :NAME "ovladmgr" :ALIASES NIL :PORT 7428 :PROTO "tcp">
 #<SERVICE :NAME "ovladmgr" :ALIASES NIL :PORT 7428 :PROTO "udp">
 #<SERVICE :NAME "opi-sock" :ALIASES NIL :PORT 7429 :PROTO "tcp">
 #<SERVICE :NAME "opi-sock" :ALIASES NIL :PORT 7429 :PROTO "udp">
 #<SERVICE :NAME "xmpv7" :ALIASES NIL :PORT 7430 :PROTO "tcp">
 #<SERVICE :NAME "xmpv7" :ALIASES NIL :PORT 7430 :PROTO "udp">
 #<SERVICE :NAME "pmd" :ALIASES NIL :PORT 7431 :PROTO "tcp">
 #<SERVICE :NAME "pmd" :ALIASES NIL :PORT 7431 :PROTO "udp">
 #<SERVICE :NAME "faximum" :ALIASES NIL :PORT 7437 :PROTO "tcp">
 #<SERVICE :NAME "faximum" :ALIASES NIL :PORT 7437 :PROTO "udp">
 #<SERVICE :NAME "oracleas-https" :ALIASES NIL :PORT 7443 :PROTO "tcp">
 #<SERVICE :NAME "oracleas-https" :ALIASES NIL :PORT 7443 :PROTO "udp">
 #<SERVICE :NAME "sttunnel" :ALIASES NIL :PORT 7471 :PROTO "tcp">
 #<SERVICE :NAME "rise" :ALIASES NIL :PORT 7473 :PROTO "tcp">
 #<SERVICE :NAME "rise" :ALIASES NIL :PORT 7473 :PROTO "udp">
 #<SERVICE :NAME "neo4j" :ALIASES NIL :PORT 7474 :PROTO "tcp">
 #<SERVICE :NAME "telops-lmd" :ALIASES NIL :PORT 7491 :PROTO "tcp">
 #<SERVICE :NAME "telops-lmd" :ALIASES NIL :PORT 7491 :PROTO "udp">
 #<SERVICE :NAME "silhouette" :ALIASES NIL :PORT 7500 :PROTO "tcp">
 #<SERVICE :NAME "silhouette" :ALIASES NIL :PORT 7500 :PROTO "udp">
 #<SERVICE :NAME "ovbus" :ALIASES NIL :PORT 7501 :PROTO "tcp">
 #<SERVICE :NAME "ovbus" :ALIASES NIL :PORT 7501 :PROTO "udp">
 #<SERVICE :NAME "adcp" :ALIASES NIL :PORT 7508 :PROTO "tcp">
 #<SERVICE :NAME "acplt" :ALIASES NIL :PORT 7509 :PROTO "tcp">
 #<SERVICE :NAME "ovhpas" :ALIASES NIL :PORT 7510 :PROTO "tcp">
 #<SERVICE :NAME "ovhpas" :ALIASES NIL :PORT 7510 :PROTO "udp">
 #<SERVICE :NAME "pafec-lm" :ALIASES NIL :PORT 7511 :PROTO "tcp">
 #<SERVICE :NAME "pafec-lm" :ALIASES NIL :PORT 7511 :PROTO "udp">
 #<SERVICE :NAME "saratoga" :ALIASES NIL :PORT 7542 :PROTO "tcp">
 #<SERVICE :NAME "saratoga" :ALIASES NIL :PORT 7542 :PROTO "udp">
 #<SERVICE :NAME "atul" :ALIASES NIL :PORT 7543 :PROTO "tcp">
 #<SERVICE :NAME "atul" :ALIASES NIL :PORT 7543 :PROTO "udp">
 #<SERVICE :NAME "nta-ds" :ALIASES NIL :PORT 7544 :PROTO "tcp">
 #<SERVICE :NAME "nta-ds" :ALIASES NIL :PORT 7544 :PROTO "udp">
 #<SERVICE :NAME "nta-us" :ALIASES NIL :PORT 7545 :PROTO "tcp">
 #<SERVICE :NAME "nta-us" :ALIASES NIL :PORT 7545 :PROTO "udp">
 #<SERVICE :NAME "cfs" :ALIASES NIL :PORT 7546 :PROTO "tcp">
 #<SERVICE :NAME "cfs" :ALIASES NIL :PORT 7546 :PROTO "udp">
 #<SERVICE :NAME "cwmp" :ALIASES NIL :PORT 7547 :PROTO "tcp">
 #<SERVICE :NAME "cwmp" :ALIASES NIL :PORT 7547 :PROTO "udp">
 #<SERVICE :NAME "tidp" :ALIASES NIL :PORT 7548 :PROTO "tcp">
 #<SERVICE :NAME "tidp" :ALIASES NIL :PORT 7548 :PROTO "udp">
 #<SERVICE :NAME "nls-tl" :ALIASES NIL :PORT 7549 :PROTO "tcp">
 #<SERVICE :NAME "nls-tl" :ALIASES NIL :PORT 7549 :PROTO "udp">
 #<SERVICE :NAME "cloudsignaling" :ALIASES NIL :PORT 7550 :PROTO "udp">
 #<SERVICE :NAME "controlone-con" :ALIASES NIL :PORT 7551 :PROTO "tcp">
 #<SERVICE :NAME "sncp" :ALIASES NIL :PORT 7560 :PROTO "tcp">
 #<SERVICE :NAME "sncp" :ALIASES NIL :PORT 7560 :PROTO "udp">
 #<SERVICE :NAME "cfw" :ALIASES NIL :PORT 7563 :PROTO "tcp">
 #<SERVICE :NAME "vsi-omega" :ALIASES NIL :PORT 7566 :PROTO "tcp">
 #<SERVICE :NAME "vsi-omega" :ALIASES NIL :PORT 7566 :PROTO "udp">
 #<SERVICE :NAME "dell-eql-asm" :ALIASES NIL :PORT 7569 :PROTO "tcp">
 #<SERVICE :NAME "aries-kfinder" :ALIASES NIL :PORT 7570 :PROTO "tcp">
 #<SERVICE :NAME "aries-kfinder" :ALIASES NIL :PORT 7570 :PROTO "udp">
 #<SERVICE :NAME "coherence" :ALIASES NIL :PORT 7574 :PROTO "tcp">
 #<SERVICE :NAME "sun-lm" :ALIASES NIL :PORT 7588 :PROTO "tcp">
 #<SERVICE :NAME "sun-lm" :ALIASES NIL :PORT 7588 :PROTO "udp">
 #<SERVICE :NAME "mipi-debug" :ALIASES NIL :PORT 7606 :PROTO "tcp">
 #<SERVICE :NAME "mipi-debug" :ALIASES NIL :PORT 7606 :PROTO "udp">
 #<SERVICE :NAME "indi" :ALIASES NIL :PORT 7624 :PROTO "tcp">
 #<SERVICE :NAME "indi" :ALIASES NIL :PORT 7624 :PROTO "udp">
 #<SERVICE :NAME "simco" :ALIASES NIL :PORT 7626 :PROTO "tcp">
 #<SERVICE :NAME "simco" :ALIASES NIL :PORT 7626 :PROTO "sctp">
 #<SERVICE :NAME "soap-http" :ALIASES NIL :PORT 7627 :PROTO "tcp">
 #<SERVICE :NAME "soap-http" :ALIASES NIL :PORT 7627 :PROTO "udp">
 #<SERVICE :NAME "zen-pawn" :ALIASES NIL :PORT 7628 :PROTO "tcp">
 #<SERVICE :NAME "zen-pawn" :ALIASES NIL :PORT 7628 :PROTO "udp">
 #<SERVICE :NAME "xdas" :ALIASES NIL :PORT 7629 :PROTO "tcp">
 #<SERVICE :NAME "xdas" :ALIASES NIL :PORT 7629 :PROTO "udp">
 #<SERVICE :NAME "hawk" :ALIASES NIL :PORT 7630 :PROTO "tcp">
 #<SERVICE :NAME "tesla-sys-msg" :ALIASES NIL :PORT 7631 :PROTO "tcp">
 #<SERVICE :NAME "pmdfmgt" :ALIASES NIL :PORT 7633 :PROTO "tcp">
 #<SERVICE :NAME "pmdfmgt" :ALIASES NIL :PORT 7633 :PROTO "udp">
 #<SERVICE :NAME "cuseeme" :ALIASES NIL :PORT 7648 :PROTO "tcp">
 #<SERVICE :NAME "cuseeme" :ALIASES NIL :PORT 7648 :PROTO "udp">
 #<SERVICE :NAME "imqstomp" :ALIASES NIL :PORT 7672 :PROTO "tcp">
 #<SERVICE :NAME "imqstomps" :ALIASES NIL :PORT 7673 :PROTO "tcp">
 #<SERVICE :NAME "imqtunnels" :ALIASES NIL :PORT 7674 :PROTO "tcp">
 #<SERVICE :NAME "imqtunnels" :ALIASES NIL :PORT 7674 :PROTO "udp">
 #<SERVICE :NAME "imqtunnel" :ALIASES NIL :PORT 7675 :PROTO "tcp">
 #<SERVICE :NAME "imqtunnel" :ALIASES NIL :PORT 7675 :PROTO "udp">
 #<SERVICE :NAME "imqbrokerd" :ALIASES NIL :PORT 7676 :PROTO "tcp">
 #<SERVICE :NAME "imqbrokerd" :ALIASES NIL :PORT 7676 :PROTO "udp">
 #<SERVICE :NAME "sun-user-https" :ALIASES NIL :PORT 7677 :PROTO "tcp">
 #<SERVICE :NAME "sun-user-https" :ALIASES NIL :PORT 7677 :PROTO "udp">
 #<SERVICE :NAME "pando-pub" :ALIASES NIL :PORT 7680 :PROTO "tcp">
 #<SERVICE :NAME "pando-pub" :ALIASES NIL :PORT 7680 :PROTO "udp">
 #<SERVICE :NAME "dmt" :ALIASES NIL :PORT 7683 :PROTO "tcp">
 #<SERVICE :NAME "collaber" :ALIASES NIL :PORT 7689 :PROTO "tcp">
 #<SERVICE :NAME "collaber" :ALIASES NIL :PORT 7689 :PROTO "udp">
 #<SERVICE :NAME "klio" :ALIASES NIL :PORT 7697 :PROTO "tcp">
 #<SERVICE :NAME "klio" :ALIASES NIL :PORT 7697 :PROTO "udp">
 #<SERVICE :NAME "em7-secom" :ALIASES NIL :PORT 7700 :PROTO "tcp">
 #<SERVICE :NAME "sync-em7" :ALIASES NIL :PORT 7707 :PROTO "tcp">
 #<SERVICE :NAME "sync-em7" :ALIASES NIL :PORT 7707 :PROTO "udp">
 #<SERVICE :NAME "scinet" :ALIASES NIL :PORT 7708 :PROTO "tcp">
 #<SERVICE :NAME "scinet" :ALIASES NIL :PORT 7708 :PROTO "udp">
 #<SERVICE :NAME "medimageportal" :ALIASES NIL :PORT 7720 :PROTO "tcp">
 #<SERVICE :NAME "medimageportal" :ALIASES NIL :PORT 7720 :PROTO "udp">
 #<SERVICE :NAME "nsdeepfreezectl" :ALIASES NIL :PORT 7724 :PROTO "tcp">
 #<SERVICE :NAME "nsdeepfreezectl" :ALIASES NIL :PORT 7724 :PROTO "udp">
 #<SERVICE :NAME "nitrogen" :ALIASES NIL :PORT 7725 :PROTO "tcp">
 #<SERVICE :NAME "nitrogen" :ALIASES NIL :PORT 7725 :PROTO "udp">
 #<SERVICE :NAME "freezexservice" :ALIASES NIL :PORT 7726 :PROTO "tcp">
 #<SERVICE :NAME "freezexservice" :ALIASES NIL :PORT 7726 :PROTO "udp">
 #<SERVICE :NAME "trident-data" :ALIASES NIL :PORT 7727 :PROTO "tcp">
 #<SERVICE :NAME "trident-data" :ALIASES NIL :PORT 7727 :PROTO "udp">
 #<SERVICE :NAME "osvr" :ALIASES NIL :PORT 7728 :PROTO "tcp">
 #<SERVICE :NAME "osvr" :ALIASES NIL :PORT 7728 :PROTO "udp">
 #<SERVICE :NAME "osvr" :ALIASES NIL :PORT 7728 :PROTO "sctp">
 #<SERVICE :NAME "smip" :ALIASES NIL :PORT 7734 :PROTO "tcp">
 #<SERVICE :NAME "smip" :ALIASES NIL :PORT 7734 :PROTO "udp">
 #<SERVICE :NAME "aiagent" :ALIASES NIL :PORT 7738 :PROTO "tcp">
 #<SERVICE :NAME "aiagent" :ALIASES NIL :PORT 7738 :PROTO "udp">
 #<SERVICE :NAME "scriptview" :ALIASES NIL :PORT 7741 :PROTO "tcp">
 #<SERVICE :NAME "scriptview" :ALIASES NIL :PORT 7741 :PROTO "udp">
 #<SERVICE :NAME "msss" :ALIASES NIL :PORT 7742 :PROTO "tcp">
 #<SERVICE :NAME "sstp-1" :ALIASES NIL :PORT 7743 :PROTO "tcp">
 #<SERVICE :NAME "sstp-1" :ALIASES NIL :PORT 7743 :PROTO "udp">
 #<SERVICE :NAME "raqmon-pdu" :ALIASES NIL :PORT 7744 :PROTO "tcp">
 #<SERVICE :NAME "raqmon-pdu" :ALIASES NIL :PORT 7744 :PROTO "udp">
 #<SERVICE :NAME "prgp" :ALIASES NIL :PORT 7747 :PROTO "tcp">
 #<SERVICE :NAME "prgp" :ALIASES NIL :PORT 7747 :PROTO "udp">
 #<SERVICE :NAME "inetfs" :ALIASES NIL :PORT 7775 :PROTO "tcp">
 #<SERVICE :NAME "cbt" :ALIASES NIL :PORT 7777 :PROTO "tcp">
 #<SERVICE :NAME "cbt" :ALIASES NIL :PORT 7777 :PROTO "udp">
 #<SERVICE :NAME "interwise" :ALIASES NIL :PORT 7778 :PROTO "tcp">
 #<SERVICE :NAME "interwise" :ALIASES NIL :PORT 7778 :PROTO "udp">
 #<SERVICE :NAME "vstat" :ALIASES NIL :PORT 7779 :PROTO "tcp">
 #<SERVICE :NAME "vstat" :ALIASES NIL :PORT 7779 :PROTO "udp">
 #<SERVICE :NAME "accu-lmgr" :ALIASES NIL :PORT 7781 :PROTO "tcp">
 #<SERVICE :NAME "accu-lmgr" :ALIASES NIL :PORT 7781 :PROTO "udp">
 #<SERVICE :NAME "s-bfd" :ALIASES NIL :PORT 7784 :PROTO "udp">
 #<SERVICE :NAME "minivend" :ALIASES NIL :PORT 7786 :PROTO "tcp">
 #<SERVICE :NAME "minivend" :ALIASES NIL :PORT 7786 :PROTO "udp">
 #<SERVICE :NAME "popup-reminders" :ALIASES NIL :PORT 7787 :PROTO "tcp">
 #<SERVICE :NAME "popup-reminders" :ALIASES NIL :PORT 7787 :PROTO "udp">
 #<SERVICE :NAME "office-tools" :ALIASES NIL :PORT 7789 :PROTO "tcp">
 #<SERVICE :NAME "office-tools" :ALIASES NIL :PORT 7789 :PROTO "udp">
 #<SERVICE :NAME "q3ade" :ALIASES NIL :PORT 7794 :PROTO "tcp">
 #<SERVICE :NAME "q3ade" :ALIASES NIL :PORT 7794 :PROTO "udp">
 #<SERVICE :NAME "pnet-conn" :ALIASES NIL :PORT 7797 :PROTO "tcp">
 #<SERVICE :NAME "pnet-conn" :ALIASES NIL :PORT 7797 :PROTO "udp">
 #<SERVICE :NAME "pnet-enc" :ALIASES NIL :PORT 7798 :PROTO "tcp">
 #<SERVICE :NAME "pnet-enc" :ALIASES NIL :PORT 7798 :PROTO "udp">
 #<SERVICE :NAME "altbsdp" :ALIASES NIL :PORT 7799 :PROTO "tcp">
 #<SERVICE :NAME "altbsdp" :ALIASES NIL :PORT 7799 :PROTO "udp">
 #<SERVICE :NAME "asr" :ALIASES NIL :PORT 7800 :PROTO "tcp">
 #<SERVICE :NAME "asr" :ALIASES NIL :PORT 7800 :PROTO "udp">
 #<SERVICE :NAME "ssp-client" :ALIASES NIL :PORT 7801 :PROTO "tcp">
 #<SERVICE :NAME "ssp-client" :ALIASES NIL :PORT 7801 :PROTO "udp">
 #<SERVICE :NAME "vns-tp" :ALIASES NIL :PORT 7802 :PROTO "udp">
 #<SERVICE :NAME "rbt-wanopt" :ALIASES NIL :PORT 7810 :PROTO "tcp">
 #<SERVICE :NAME "rbt-wanopt" :ALIASES NIL :PORT 7810 :PROTO "udp">
 #<SERVICE :NAME "apc-7845" :ALIASES NIL :PORT 7845 :PROTO "tcp">
 #<SERVICE :NAME "apc-7845" :ALIASES NIL :PORT 7845 :PROTO "udp">
 #<SERVICE :NAME "apc-7846" :ALIASES NIL :PORT 7846 :PROTO "tcp">
 #<SERVICE :NAME "apc-7846" :ALIASES NIL :PORT 7846 :PROTO "udp">
 #<SERVICE :NAME "csoauth" :ALIASES NIL :PORT 7847 :PROTO "tcp">
 #<SERVICE :NAME "mobileanalyzer" :ALIASES NIL :PORT 7869 :PROTO "tcp">
 #<SERVICE :NAME "rbt-smc" :ALIASES NIL :PORT 7870 :PROTO "tcp">
 #<SERVICE :NAME "mdm" :ALIASES NIL :PORT 7871 :PROTO "tcp">
 #<SERVICE :NAME "mipv6tls" :ALIASES NIL :PORT 7872 :PROTO "udp">
 #<SERVICE :NAME "owms" :ALIASES NIL :PORT 7878 :PROTO "tcp">
 #<SERVICE :NAME "pss" :ALIASES NIL :PORT 7880 :PROTO "tcp">
 #<SERVICE :NAME "pss" :ALIASES NIL :PORT 7880 :PROTO "udp">
 #<SERVICE :NAME "ubroker" :ALIASES NIL :PORT 7887 :PROTO "tcp">
 #<SERVICE :NAME "ubroker" :ALIASES NIL :PORT 7887 :PROTO "udp">
 #<SERVICE :NAME "mevent" :ALIASES NIL :PORT 7900 :PROTO "tcp">
 #<SERVICE :NAME "mevent" :ALIASES NIL :PORT 7900 :PROTO "udp">
 #<SERVICE :NAME "tnos-sp" :ALIASES NIL :PORT 7901 :PROTO "tcp">
 #<SERVICE :NAME "tnos-sp" :ALIASES NIL :PORT 7901 :PROTO "udp">
 #<SERVICE :NAME "tnos-dp" :ALIASES NIL :PORT 7902 :PROTO "tcp">
 #<SERVICE :NAME "tnos-dp" :ALIASES NIL :PORT 7902 :PROTO "udp">
 #<SERVICE :NAME "tnos-dps" :ALIASES NIL :PORT 7903 :PROTO "tcp">
 #<SERVICE :NAME "tnos-dps" :ALIASES NIL :PORT 7903 :PROTO "udp">
 #<SERVICE :NAME "qo-secure" :ALIASES NIL :PORT 7913 :PROTO "tcp">
 #<SERVICE :NAME "qo-secure" :ALIASES NIL :PORT 7913 :PROTO "udp">
 #<SERVICE :NAME "t2-drm" :ALIASES NIL :PORT 7932 :PROTO "tcp">
 #<SERVICE :NAME "t2-drm" :ALIASES NIL :PORT 7932 :PROTO "udp">
 #<SERVICE :NAME "t2-brm" :ALIASES NIL :PORT 7933 :PROTO "tcp">
 #<SERVICE :NAME "t2-brm" :ALIASES NIL :PORT 7933 :PROTO "udp">
 #<SERVICE :NAME "generalsync" :ALIASES NIL :PORT 7962 :PROTO "tcp">
 #<SERVICE :NAME "generalsync" :ALIASES NIL :PORT 7962 :PROTO "udp">
 #<SERVICE :NAME "supercell" :ALIASES NIL :PORT 7967 :PROTO "tcp">
 #<SERVICE :NAME "supercell" :ALIASES NIL :PORT 7967 :PROTO "udp">
 #<SERVICE :NAME "micromuse-ncps" :ALIASES NIL :PORT 7979 :PROTO "tcp">
 #<SERVICE :NAME "micromuse-ncps" :ALIASES NIL :PORT 7979 :PROTO "udp">
 #<SERVICE :NAME "quest-vista" :ALIASES NIL :PORT 7980 :PROTO "tcp">
 #<SERVICE :NAME "quest-vista" :ALIASES NIL :PORT 7980 :PROTO "udp">
 #<SERVICE :NAME "sossd-collect" :ALIASES NIL :PORT 7981 :PROTO "tcp">
 #<SERVICE :NAME "sossd-agent" :ALIASES NIL :PORT 7982 :PROTO "tcp">
 #<SERVICE :NAME "sossd-disc" :ALIASES NIL :PORT 7982 :PROTO "udp">
 #<SERVICE :NAME "pushns" :ALIASES NIL :PORT 7997 :PROTO "tcp">
 #<SERVICE :NAME "usicontentpush" :ALIASES NIL :PORT 7998 :PROTO "udp">
 #<SERVICE :NAME "irdmi2" :ALIASES NIL :PORT 7999 :PROTO "tcp">
 #<SERVICE :NAME "irdmi2" :ALIASES NIL :PORT 7999 :PROTO "udp">
 #<SERVICE :NAME "irdmi" :ALIASES NIL :PORT 8000 :PROTO "tcp">
 #<SERVICE :NAME "irdmi" :ALIASES NIL :PORT 8000 :PROTO "udp">
 #<SERVICE :NAME "vcom-tunnel" :ALIASES NIL :PORT 8001 :PROTO "tcp">
 #<SERVICE :NAME "vcom-tunnel" :ALIASES NIL :PORT 8001 :PROTO "udp">
 #<SERVICE :NAME "teradataordbms" :ALIASES NIL :PORT 8002 :PROTO "tcp">
 #<SERVICE :NAME "teradataordbms" :ALIASES NIL :PORT 8002 :PROTO "udp">
 #<SERVICE :NAME "mcreport" :ALIASES NIL :PORT 8003 :PROTO "tcp">
 #<SERVICE :NAME "mcreport" :ALIASES NIL :PORT 8003 :PROTO "udp">
 #<SERVICE :NAME "mxi" :ALIASES NIL :PORT 8005 :PROTO "tcp">
 #<SERVICE :NAME "mxi" :ALIASES NIL :PORT 8005 :PROTO "udp">
 #<SERVICE :NAME "qbdb" :ALIASES NIL :PORT 8019 :PROTO "tcp">
 #<SERVICE :NAME "qbdb" :ALIASES NIL :PORT 8019 :PROTO "udp">
 #<SERVICE :NAME "intu-ec-svcdisc" :ALIASES NIL :PORT 8020 :PROTO "tcp">
 #<SERVICE :NAME "intu-ec-svcdisc" :ALIASES NIL :PORT 8020 :PROTO "udp">
 #<SERVICE :NAME "intu-ec-client" :ALIASES NIL :PORT 8021 :PROTO "tcp">
 #<SERVICE :NAME "intu-ec-client" :ALIASES NIL :PORT 8021 :PROTO "udp">
 #<SERVICE :NAME "oa-system" :ALIASES NIL :PORT 8022 :PROTO "tcp">
 #<SERVICE :NAME "oa-system" :ALIASES NIL :PORT 8022 :PROTO "udp">
 #<SERVICE :NAME "ca-audit-da" :ALIASES NIL :PORT 8025 :PROTO "tcp">
 #<SERVICE :NAME "ca-audit-da" :ALIASES NIL :PORT 8025 :PROTO "udp">
 #<SERVICE :NAME "ca-audit-ds" :ALIASES NIL :PORT 8026 :PROTO "tcp">
 #<SERVICE :NAME "ca-audit-ds" :ALIASES NIL :PORT 8026 :PROTO "udp">
 #<SERVICE :NAME "pro-ed" :ALIASES NIL :PORT 8032 :PROTO "tcp">
 #<SERVICE :NAME "pro-ed" :ALIASES NIL :PORT 8032 :PROTO "udp">
 #<SERVICE :NAME "mindprint" :ALIASES NIL :PORT 8033 :PROTO "tcp">
 #<SERVICE :NAME "mindprint" :ALIASES NIL :PORT 8033 :PROTO "udp">
 #<SERVICE :NAME "vantronix-mgmt" :ALIASES NIL :PORT 8034 :PROTO "tcp">
 #<SERVICE :NAME "vantronix-mgmt" :ALIASES NIL :PORT 8034 :PROTO "udp">
 #<SERVICE :NAME "ampify" :ALIASES NIL :PORT 8040 :PROTO "tcp">
 #<SERVICE :NAME "ampify" :ALIASES NIL :PORT 8040 :PROTO "udp">
 #<SERVICE :NAME "fs-agent" :ALIASES NIL :PORT 8042 :PROTO "tcp">
 #<SERVICE :NAME "fs-server" :ALIASES NIL :PORT 8043 :PROTO "tcp">
 #<SERVICE :NAME "fs-mgmt" :ALIASES NIL :PORT 8044 :PROTO "tcp">
 #<SERVICE :NAME "rocrail" :ALIASES NIL :PORT 8051 :PROTO "tcp">
 #<SERVICE :NAME "senomix01" :ALIASES NIL :PORT 8052 :PROTO "tcp">
 #<SERVICE :NAME "senomix01" :ALIASES NIL :PORT 8052 :PROTO "udp">
 #<SERVICE :NAME "senomix02" :ALIASES NIL :PORT 8053 :PROTO "tcp">
 #<SERVICE :NAME "senomix02" :ALIASES NIL :PORT 8053 :PROTO "udp">
 #<SERVICE :NAME "senomix03" :ALIASES NIL :PORT 8054 :PROTO "tcp">
 #<SERVICE :NAME "senomix03" :ALIASES NIL :PORT 8054 :PROTO "udp">
 #<SERVICE :NAME "senomix04" :ALIASES NIL :PORT 8055 :PROTO "tcp">
 #<SERVICE :NAME "senomix04" :ALIASES NIL :PORT 8055 :PROTO "udp">
 #<SERVICE :NAME "senomix05" :ALIASES NIL :PORT 8056 :PROTO "tcp">
 #<SERVICE :NAME "senomix05" :ALIASES NIL :PORT 8056 :PROTO "udp">
 #<SERVICE :NAME "senomix06" :ALIASES NIL :PORT 8057 :PROTO "tcp">
 #<SERVICE :NAME "senomix06" :ALIASES NIL :PORT 8057 :PROTO "udp">
 #<SERVICE :NAME "senomix07" :ALIASES NIL :PORT 8058 :PROTO "tcp">
 #<SERVICE :NAME "senomix07" :ALIASES NIL :PORT 8058 :PROTO "udp">
 #<SERVICE :NAME "senomix08" :ALIASES NIL :PORT 8059 :PROTO "tcp">
 #<SERVICE :NAME "senomix08" :ALIASES NIL :PORT 8059 :PROTO "udp">
 #<SERVICE :NAME "aero" :ALIASES NIL :PORT 8060 :PROTO "udp">
 #<SERVICE :NAME "toad-bi-appsrvr" :ALIASES NIL :PORT 8066 :PROTO "tcp">
 #<SERVICE :NAME "infi-async" :ALIASES NIL :PORT 8067 :PROTO "tcp">
 #<SERVICE :NAME "gadugadu" :ALIASES NIL :PORT 8074 :PROTO "tcp">
 #<SERVICE :NAME "gadugadu" :ALIASES NIL :PORT 8074 :PROTO "udp">
 #<SERVICE :NAME "us-cli" :ALIASES NIL :PORT 8082 :PROTO "tcp">
 #<SERVICE :NAME "us-cli" :ALIASES NIL :PORT 8082 :PROTO "udp">
 #<SERVICE :NAME "us-srv" :ALIASES NIL :PORT 8083 :PROTO "tcp">
 #<SERVICE :NAME "us-srv" :ALIASES NIL :PORT 8083 :PROTO "udp">
 #<SERVICE :NAME "d-s-n" :ALIASES NIL :PORT 8086 :PROTO "tcp">
 #<SERVICE :NAME "d-s-n" :ALIASES NIL :PORT 8086 :PROTO "udp">
 #<SERVICE :NAME "simplifymedia" :ALIASES NIL :PORT 8087 :PROTO "tcp">
 #<SERVICE :NAME "simplifymedia" :ALIASES NIL :PORT 8087 :PROTO "udp">
 #<SERVICE :NAME "radan-http" :ALIASES NIL :PORT 8088 :PROTO "tcp">
 #<SERVICE :NAME "radan-http" :ALIASES NIL :PORT 8088 :PROTO "udp">
 #<SERVICE :NAME "jamlink" :ALIASES NIL :PORT 8091 :PROTO "tcp">
 #<SERVICE :NAME "sac" :ALIASES NIL :PORT 8097 :PROTO "tcp">
 #<SERVICE :NAME "sac" :ALIASES NIL :PORT 8097 :PROTO "udp">
 #<SERVICE :NAME "xprint-server" :ALIASES NIL :PORT 8100 :PROTO "tcp">
 #<SERVICE :NAME "xprint-server" :ALIASES NIL :PORT 8100 :PROTO "udp">
 #<SERVICE :NAME "ldoms-migr" :ALIASES NIL :PORT 8101 :PROTO "tcp">
 #<SERVICE :NAME "kz-migr" :ALIASES NIL :PORT 8102 :PROTO "tcp">
 #<SERVICE :NAME "mtl8000-matrix" :ALIASES NIL :PORT 8115 :PROTO "tcp">
 #<SERVICE :NAME "mtl8000-matrix" :ALIASES NIL :PORT 8115 :PROTO "udp">
 #<SERVICE :NAME "cp-cluster" :ALIASES NIL :PORT 8116 :PROTO "tcp">
 #<SERVICE :NAME "cp-cluster" :ALIASES NIL :PORT 8116 :PROTO "udp">
 #<SERVICE :NAME "purityrpc" :ALIASES NIL :PORT 8117 :PROTO "tcp">
 #<SERVICE :NAME "privoxy" :ALIASES NIL :PORT 8118 :PROTO "tcp">
 #<SERVICE :NAME "privoxy" :ALIASES NIL :PORT 8118 :PROTO "udp">
 #<SERVICE :NAME "apollo-data" :ALIASES NIL :PORT 8121 :PROTO "tcp">
 #<SERVICE :NAME "apollo-data" :ALIASES NIL :PORT 8121 :PROTO "udp">
 #<SERVICE :NAME "apollo-admin" :ALIASES NIL :PORT 8122 :PROTO "tcp">
 #<SERVICE :NAME "apollo-admin" :ALIASES NIL :PORT 8122 :PROTO "udp">
 #<SERVICE :NAME "paycash-online" :ALIASES NIL :PORT 8128 :PROTO "tcp">
 #<SERVICE :NAME "paycash-online" :ALIASES NIL :PORT 8128 :PROTO "udp">
 #<SERVICE :NAME "paycash-wbp" :ALIASES NIL :PORT 8129 :PROTO "tcp">
 #<SERVICE :NAME "paycash-wbp" :ALIASES NIL :PORT 8129 :PROTO "udp">
 #<SERVICE :NAME "indigo-vrmi" :ALIASES NIL :PORT 8130 :PROTO "tcp">
 #<SERVICE :NAME "indigo-vrmi" :ALIASES NIL :PORT 8130 :PROTO "udp">
 #<SERVICE :NAME "indigo-vbcp" :ALIASES NIL :PORT 8131 :PROTO "tcp">
 #<SERVICE :NAME "indigo-vbcp" :ALIASES NIL :PORT 8131 :PROTO "udp">
 #<SERVICE :NAME "dbabble" :ALIASES NIL :PORT 8132 :PROTO "tcp">
 #<SERVICE :NAME "dbabble" :ALIASES NIL :PORT 8132 :PROTO "udp">
 #<SERVICE :NAME "puppet" :ALIASES NIL :PORT 8140 :PROTO "tcp">
 #<SERVICE :NAME "isdd" :ALIASES NIL :PORT 8148 :PROTO "tcp">
 #<SERVICE :NAME "isdd" :ALIASES NIL :PORT 8148 :PROTO "udp">
 #<SERVICE :NAME "eor-game" :ALIASES NIL :PORT 8149 :PROTO "udp">
 #<SERVICE :NAME "quantastor" :ALIASES NIL :PORT 8153 :PROTO "tcp">
 #<SERVICE :NAME "patrol" :ALIASES NIL :PORT 8160 :PROTO "tcp">
 #<SERVICE :NAME "patrol" :ALIASES NIL :PORT 8160 :PROTO "udp">
 #<SERVICE :NAME "patrol-snmp" :ALIASES NIL :PORT 8161 :PROTO "tcp">
 #<SERVICE :NAME "patrol-snmp" :ALIASES NIL :PORT 8161 :PROTO "udp">
 #<SERVICE :NAME "lpar2rrd" :ALIASES NIL :PORT 8162 :PROTO "tcp">
 #<SERVICE :NAME "intermapper" :ALIASES NIL :PORT 8181 :PROTO "tcp">
 #<SERVICE :NAME "vmware-fdm" :ALIASES NIL :PORT 8182 :PROTO "tcp">
 #<SERVICE :NAME "vmware-fdm" :ALIASES NIL :PORT 8182 :PROTO "udp">
 #<SERVICE :NAME "proremote" :ALIASES NIL :PORT 8183 :PROTO "tcp">
 #<SERVICE :NAME "itach" :ALIASES NIL :PORT 8184 :PROTO "tcp">
 #<SERVICE :NAME "itach" :ALIASES NIL :PORT 8184 :PROTO "udp">
 #<SERVICE :NAME "gcp-rphy" :ALIASES NIL :PORT 8190 :PROTO "tcp">
 #<SERVICE :NAME "limnerpressure" :ALIASES NIL :PORT 8191 :PROTO "tcp">
 #<SERVICE :NAME "spytechphone" :ALIASES NIL :PORT 8192 :PROTO "tcp">
 #<SERVICE :NAME "spytechphone" :ALIASES NIL :PORT 8192 :PROTO "udp">
 #<SERVICE :NAME "blp1" :ALIASES NIL :PORT 8194 :PROTO "tcp">
 #<SERVICE :NAME "blp1" :ALIASES NIL :PORT 8194 :PROTO "udp">
 #<SERVICE :NAME "blp2" :ALIASES NIL :PORT 8195 :PROTO "tcp">
 #<SERVICE :NAME "blp2" :ALIASES NIL :PORT 8195 :PROTO "udp">
 #<SERVICE :NAME "vvr-data" :ALIASES NIL :PORT 8199 :PROTO "tcp">
 #<SERVICE :NAME "vvr-data" :ALIASES NIL :PORT 8199 :PROTO "udp">
 #<SERVICE :NAME "trivnet1" :ALIASES NIL :PORT 8200 :PROTO "tcp">
 #<SERVICE :NAME "trivnet1" :ALIASES NIL :PORT 8200 :PROTO "udp">
 #<SERVICE :NAME "trivnet2" :ALIASES NIL :PORT 8201 :PROTO "tcp">
 #<SERVICE :NAME "trivnet2" :ALIASES NIL :PORT 8201 :PROTO "udp">
 #<SERVICE :NAME "aesop" :ALIASES NIL :PORT 8202 :PROTO "udp">
 #<SERVICE :NAME "lm-perfworks" :ALIASES NIL :PORT 8204 :PROTO "tcp">
 #<SERVICE :NAME "lm-perfworks" :ALIASES NIL :PORT 8204 :PROTO "udp">
 #<SERVICE :NAME "lm-instmgr" :ALIASES NIL :PORT 8205 :PROTO "tcp">
 #<SERVICE :NAME "lm-instmgr" :ALIASES NIL :PORT 8205 :PROTO "udp">
 #<SERVICE :NAME "lm-dta" :ALIASES NIL :PORT 8206 :PROTO "tcp">
 #<SERVICE :NAME "lm-dta" :ALIASES NIL :PORT 8206 :PROTO "udp">
 #<SERVICE :NAME "lm-sserver" :ALIASES NIL :PORT 8207 :PROTO "tcp">
 #<SERVICE :NAME "lm-sserver" :ALIASES NIL :PORT 8207 :PROTO "udp">
 #<SERVICE :NAME "lm-webwatcher" :ALIASES NIL :PORT 8208 :PROTO "tcp">
 #<SERVICE :NAME "lm-webwatcher" :ALIASES NIL :PORT 8208 :PROTO "udp">
 #<SERVICE :NAME "rexecj" :ALIASES NIL :PORT 8230 :PROTO "tcp">
 #<SERVICE :NAME "rexecj" :ALIASES NIL :PORT 8230 :PROTO "udp">
 #<SERVICE :NAME "hncp-udp-port" :ALIASES NIL :PORT 8231 :PROTO "udp">
 #<SERVICE :NAME "hncp-dtls-port" :ALIASES NIL :PORT 8232 :PROTO "udp">
 #<SERVICE :NAME "synapse-nhttps" :ALIASES NIL :PORT 8243 :PROTO "tcp">
 #<SERVICE :NAME "synapse-nhttps" :ALIASES NIL :PORT 8243 :PROTO "udp">
 #<SERVICE :NAME "pando-sec" :ALIASES NIL :PORT 8276 :PROTO "tcp">
 #<SERVICE :NAME "pando-sec" :ALIASES NIL :PORT 8276 :PROTO "udp">
 #<SERVICE :NAME "synapse-nhttp" :ALIASES NIL :PORT 8280 :PROTO "tcp">
 #<SERVICE :NAME "synapse-nhttp" :ALIASES NIL :PORT 8280 :PROTO "udp">
 #<SERVICE :NAME "libelle" :ALIASES NIL :PORT 8282 :PROTO "tcp">
 #<SERVICE :NAME "libelle-disc" :ALIASES NIL :PORT 8282 :PROTO "udp">
 #<SERVICE :NAME "blp3" :ALIASES NIL :PORT 8292 :PROTO "tcp">
 #<SERVICE :NAME "blp3" :ALIASES NIL :PORT 8292 :PROTO "udp">
 #<SERVICE :NAME "blp4" :ALIASES NIL :PORT 8294 :PROTO "tcp">
 #<SERVICE :NAME "blp4" :ALIASES NIL :PORT 8294 :PROTO "udp">
 #<SERVICE :NAME "hiperscan-id" :ALIASES NIL :PORT 8293 :PROTO "tcp">
 #<SERVICE :NAME "tmi" :ALIASES NIL :PORT 8300 :PROTO "tcp">
 #<SERVICE :NAME "tmi" :ALIASES NIL :PORT 8300 :PROTO "udp">
 #<SERVICE :NAME "amberon" :ALIASES NIL :PORT 8301 :PROTO "tcp">
 #<SERVICE :NAME "amberon" :ALIASES NIL :PORT 8301 :PROTO "udp">
 #<SERVICE :NAME "hub-open-net" :ALIASES NIL :PORT 8313 :PROTO "tcp">
 #<SERVICE :NAME "tnp-discover" :ALIASES NIL :PORT 8320 :PROTO "tcp">
 #<SERVICE :NAME "tnp-discover" :ALIASES NIL :PORT 8320 :PROTO "udp">
 #<SERVICE :NAME "tnp" :ALIASES NIL :PORT 8321 :PROTO "tcp">
 #<SERVICE :NAME "tnp" :ALIASES NIL :PORT 8321 :PROTO "udp">
 #<SERVICE :NAME "garmin-marine" :ALIASES NIL :PORT 8322 :PROTO "tcp">
 #<SERVICE :NAME "garmin-marine" :ALIASES NIL :PORT 8322 :PROTO "udp">
 #<SERVICE :NAME "server-find" :ALIASES NIL :PORT 8351 :PROTO "tcp">
 #<SERVICE :NAME "server-find" :ALIASES NIL :PORT 8351 :PROTO "udp">
 #<SERVICE :NAME "cruise-enum" :ALIASES NIL :PORT 8376 :PROTO "tcp">
 #<SERVICE :NAME "cruise-enum" :ALIASES NIL :PORT 8376 :PROTO "udp">
 #<SERVICE :NAME "cruise-swroute" :ALIASES NIL :PORT 8377 :PROTO "tcp">
 #<SERVICE :NAME "cruise-swroute" :ALIASES NIL :PORT 8377 :PROTO "udp">
 #<SERVICE :NAME "cruise-config" :ALIASES NIL :PORT 8378 :PROTO "tcp">
 #<SERVICE :NAME "cruise-config" :ALIASES NIL :PORT 8378 :PROTO "udp">
 #<SERVICE :NAME "cruise-diags" :ALIASES NIL :PORT 8379 :PROTO "tcp">
 #<SERVICE :NAME "cruise-diags" :ALIASES NIL :PORT 8379 :PROTO "udp">
 #<SERVICE :NAME "cruise-update" :ALIASES NIL :PORT 8380 :PROTO "tcp">
 #<SERVICE :NAME "cruise-update" :ALIASES NIL :PORT 8380 :PROTO "udp">
 #<SERVICE :NAME "m2mservices" :ALIASES NIL :PORT 8383 :PROTO "tcp">
 #<SERVICE :NAME "m2mservices" :ALIASES NIL :PORT 8383 :PROTO "udp">
 #<SERVICE :NAME "marathontp" :ALIASES NIL :PORT 8384 :PROTO "udp">
 #<SERVICE :NAME "cvd" :ALIASES NIL :PORT 8400 :PROTO "tcp">
 #<SERVICE :NAME "cvd" :ALIASES NIL :PORT 8400 :PROTO "udp">
 #<SERVICE :NAME "sabarsd" :ALIASES NIL :PORT 8401 :PROTO "tcp">
 #<SERVICE :NAME "sabarsd" :ALIASES NIL :PORT 8401 :PROTO "udp">
 #<SERVICE :NAME "abarsd" :ALIASES NIL :PORT 8402 :PROTO "tcp">
 #<SERVICE :NAME "abarsd" :ALIASES NIL :PORT 8402 :PROTO "udp">
 #<SERVICE :NAME "admind2" :ALIASES NIL :PORT 8403 :PROTO "tcp">
 #<SERVICE :NAME "admind2" :ALIASES NIL :PORT 8403 :PROTO "udp">
 #<SERVICE :NAME "svcloud" :ALIASES NIL :PORT 8404 :PROTO "tcp">
 #<SERVICE :NAME "svbackup" :ALIASES NIL :PORT 8405 :PROTO "tcp">
 #<SERVICE :NAME "dlpx-sp" :ALIASES NIL :PORT 8415 :PROTO "tcp">
 #<SERVICE :NAME "espeech" :ALIASES NIL :PORT 8416 :PROTO "tcp">
 #<SERVICE :NAME "espeech" :ALIASES NIL :PORT 8416 :PROTO "udp">
 #<SERVICE :NAME "espeech-rtp" :ALIASES NIL :PORT 8417 :PROTO "tcp">
 #<SERVICE :NAME "espeech-rtp" :ALIASES NIL :PORT 8417 :PROTO "udp">
 #<SERVICE :NAME "cybro-a-bus" :ALIASES NIL :PORT 8442 :PROTO "tcp">
 #<SERVICE :NAME "cybro-a-bus" :ALIASES NIL :PORT 8442 :PROTO "udp">
 #<SERVICE :NAME "pcsync-https" :ALIASES NIL :PORT 8443 :PROTO "tcp">
 #<SERVICE :NAME "pcsync-https" :ALIASES NIL :PORT 8443 :PROTO "udp">
 #<SERVICE :NAME "pcsync-http" :ALIASES NIL :PORT 8444 :PROTO "tcp">
 #<SERVICE :NAME "pcsync-http" :ALIASES NIL :PORT 8444 :PROTO "udp">
 #<SERVICE :NAME "copy" :ALIASES NIL :PORT 8445 :PROTO "tcp">
 #<SERVICE :NAME "copy-disc" :ALIASES NIL :PORT 8445 :PROTO "udp">
 #<SERVICE :NAME "npmp" :ALIASES NIL :PORT 8450 :PROTO "tcp">
 #<SERVICE :NAME "npmp" :ALIASES NIL :PORT 8450 :PROTO "udp">
 #<SERVICE :NAME "nexentamv" :ALIASES NIL :PORT 8457 :PROTO "tcp">
 #<SERVICE :NAME "cisco-avp" :ALIASES NIL :PORT 8470 :PROTO "tcp">
 #<SERVICE :NAME "pim-port" :ALIASES NIL :PORT 8471 :PROTO "tcp">
 #<SERVICE :NAME "pim-port" :ALIASES NIL :PORT 8471 :PROTO "sctp">
 #<SERVICE :NAME "otv" :ALIASES NIL :PORT 8472 :PROTO "tcp">
 #<SERVICE :NAME "otv" :ALIASES NIL :PORT 8472 :PROTO "udp">
 #<SERVICE :NAME "vp2p" :ALIASES NIL :PORT 8473 :PROTO "tcp">
 #<SERVICE :NAME "vp2p" :ALIASES NIL :PORT 8473 :PROTO "udp">
 #<SERVICE :NAME "noteshare" :ALIASES NIL :PORT 8474 :PROTO "tcp">
 #<SERVICE :NAME "noteshare" :ALIASES NIL :PORT 8474 :PROTO "udp">
 #<SERVICE :NAME "fmtp" :ALIASES NIL :PORT 8500 :PROTO "tcp">
 #<SERVICE :NAME "fmtp" :ALIASES NIL :PORT 8500 :PROTO "udp">
 #<SERVICE :NAME "cmtp-mgt" :ALIASES NIL :PORT 8501 :PROTO "tcp">
 #<SERVICE :NAME "cmtp-av" :ALIASES NIL :PORT 8501 :PROTO "udp">
 #<SERVICE :NAME "ftnmtp" :ALIASES NIL :PORT 8502 :PROTO "tcp">
 #<SERVICE :NAME "lsp-self-ping" :ALIASES NIL :PORT 8503 :PROTO "udp">
 #<SERVICE :NAME "rtsp-alt" :ALIASES NIL :PORT 8554 :PROTO "tcp">
 #<SERVICE :NAME "rtsp-alt" :ALIASES NIL :PORT 8554 :PROTO "udp">
 #<SERVICE :NAME "d-fence" :ALIASES NIL :PORT 8555 :PROTO "tcp">
 #<SERVICE :NAME "d-fence" :ALIASES NIL :PORT 8555 :PROTO "udp">
 #<SERVICE :NAME "dof-tunnel" :ALIASES NIL :PORT 8567 :PROTO "tcp">
 #<SERVICE :NAME "dof-tunnel" :ALIASES NIL :PORT 8567 :PROTO "udp">
 #<SERVICE :NAME "asterix" :ALIASES NIL :PORT 8600 :PROTO "tcp">
 #<SERVICE :NAME "asterix" :ALIASES NIL :PORT 8600 :PROTO "udp">
 #<SERVICE :NAME "canon-cpp-disc" :ALIASES NIL :PORT 8609 :PROTO "udp">
 #<SERVICE :NAME "canon-mfnp" :ALIASES NIL :PORT 8610 :PROTO "tcp">
 #<SERVICE :NAME "canon-mfnp" :ALIASES NIL :PORT 8610 :PROTO "udp">
 #<SERVICE :NAME "canon-bjnp1" :ALIASES NIL :PORT 8611 :PROTO "tcp">
 #<SERVICE :NAME "canon-bjnp1" :ALIASES NIL :PORT 8611 :PROTO "udp">
 #<SERVICE :NAME "canon-bjnp2" :ALIASES NIL :PORT 8612 :PROTO "tcp">
 #<SERVICE :NAME "canon-bjnp2" :ALIASES NIL :PORT 8612 :PROTO "udp">
 #<SERVICE :NAME "canon-bjnp3" :ALIASES NIL :PORT 8613 :PROTO "tcp">
 #<SERVICE :NAME "canon-bjnp3" :ALIASES NIL :PORT 8613 :PROTO "udp">
 #<SERVICE :NAME "canon-bjnp4" :ALIASES NIL :PORT 8614 :PROTO "tcp">
 #<SERVICE :NAME "canon-bjnp4" :ALIASES NIL :PORT 8614 :PROTO "udp">
 #<SERVICE :NAME "imink" :ALIASES NIL :PORT 8615 :PROTO "tcp">
 #<SERVICE :NAME "monetra" :ALIASES NIL :PORT 8665 :PROTO "tcp">
 #<SERVICE :NAME "monetra-admin" :ALIASES NIL :PORT 8666 :PROTO "tcp">
 #<SERVICE :NAME "msi-cps-rm" :ALIASES NIL :PORT 8675 :PROTO "tcp">
 #<SERVICE :NAME "msi-cps-rm-disc" :ALIASES NIL :PORT 8675 :PROTO "udp">
 #<SERVICE :NAME "sun-as-jmxrmi" :ALIASES NIL :PORT 8686 :PROTO "tcp">
 #<SERVICE :NAME "sun-as-jmxrmi" :ALIASES NIL :PORT 8686 :PROTO "udp">
 #<SERVICE :NAME "openremote-ctrl" :ALIASES NIL :PORT 8688 :PROTO "tcp">
 #<SERVICE :NAME "vnyx" :ALIASES NIL :PORT 8699 :PROTO "tcp">
 #<SERVICE :NAME "vnyx" :ALIASES NIL :PORT 8699 :PROTO "udp">
 #<SERVICE :NAME "nvc" :ALIASES NIL :PORT 8711 :PROTO "tcp">
 #<SERVICE :NAME "dtp-net" :ALIASES NIL :PORT 8732 :PROTO "udp">
 #<SERVICE :NAME "ibus" :ALIASES NIL :PORT 8733 :PROTO "tcp">
 #<SERVICE :NAME "ibus" :ALIASES NIL :PORT 8733 :PROTO "udp">
 #<SERVICE :NAME "dey-keyneg" :ALIASES NIL :PORT 8750 :PROTO "tcp">
 #<SERVICE :NAME "mc-appserver" :ALIASES NIL :PORT 8763 :PROTO "tcp">
 #<SERVICE :NAME "mc-appserver" :ALIASES NIL :PORT 8763 :PROTO "udp">
 #<SERVICE :NAME "openqueue" :ALIASES NIL :PORT 8764 :PROTO "tcp">
 #<SERVICE :NAME "openqueue" :ALIASES NIL :PORT 8764 :PROTO "udp">
 #<SERVICE :NAME "ultraseek-http" :ALIASES NIL :PORT 8765 :PROTO "tcp">
 #<SERVICE :NAME "ultraseek-http" :ALIASES NIL :PORT 8765 :PROTO "udp">
 #<SERVICE :NAME "amcs" :ALIASES NIL :PORT 8766 :PROTO "tcp">
 #<SERVICE :NAME "amcs" :ALIASES NIL :PORT 8766 :PROTO "udp">
 #<SERVICE :NAME "dpap" :ALIASES NIL :PORT 8770 :PROTO "tcp">
 #<SERVICE :NAME "dpap" :ALIASES NIL :PORT 8770 :PROTO "udp">
 #<SERVICE :NAME "uec" :ALIASES NIL :PORT 8778 :PROTO "tcp">
 #<SERVICE :NAME "msgclnt" :ALIASES NIL :PORT 8786 :PROTO "tcp">
 #<SERVICE :NAME "msgclnt" :ALIASES NIL :PORT 8786 :PROTO "udp">
 #<SERVICE :NAME "msgsrvr" :ALIASES NIL :PORT 8787 :PROTO "tcp">
 #<SERVICE :NAME "msgsrvr" :ALIASES NIL :PORT 8787 :PROTO "udp">
 #<SERVICE :NAME "acd-pm" :ALIASES NIL :PORT 8793 :PROTO "tcp">
 #<SERVICE :NAME "acd-pm" :ALIASES NIL :PORT 8793 :PROTO "udp">
 #<SERVICE :NAME "sunwebadmin" :ALIASES NIL :PORT 8800 :PROTO "tcp">
 #<SERVICE :NAME "sunwebadmin" :ALIASES NIL :PORT 8800 :PROTO "udp">
 #<SERVICE :NAME "truecm" :ALIASES NIL :PORT 8804 :PROTO "tcp">
 #<SERVICE :NAME "truecm" :ALIASES NIL :PORT 8804 :PROTO "udp">
 #<SERVICE :NAME "dxspider" :ALIASES NIL :PORT 8873 :PROTO "tcp">
 #<SERVICE :NAME "dxspider" :ALIASES NIL :PORT 8873 :PROTO "udp">
 #<SERVICE :NAME "cddbp-alt" :ALIASES NIL :PORT 8880 :PROTO "tcp">
 #<SERVICE :NAME "cddbp-alt" :ALIASES NIL :PORT 8880 :PROTO "udp">
 #<SERVICE :NAME "galaxy4d" :ALIASES NIL :PORT 8881 :PROTO "tcp">
 #<SERVICE :NAME "secure-mqtt" :ALIASES NIL :PORT 8883 :PROTO "tcp">
 #<SERVICE :NAME "secure-mqtt" :ALIASES NIL :PORT 8883 :PROTO "udp">
 #<SERVICE :NAME "ddi-tcp-1" :ALIASES NIL :PORT 8888 :PROTO "tcp">
 #<SERVICE :NAME "ddi-udp-1" :ALIASES NIL :PORT 8888 :PROTO "udp">
 #<SERVICE :NAME "ddi-tcp-2" :ALIASES NIL :PORT 8889 :PROTO "tcp">
 #<SERVICE :NAME "ddi-udp-2" :ALIASES NIL :PORT 8889 :PROTO "udp">
 #<SERVICE :NAME "ddi-tcp-3" :ALIASES NIL :PORT 8890 :PROTO "tcp">
 #<SERVICE :NAME "ddi-udp-3" :ALIASES NIL :PORT 8890 :PROTO "udp">
 #<SERVICE :NAME "ddi-tcp-4" :ALIASES NIL :PORT 8891 :PROTO "tcp">
 #<SERVICE :NAME "ddi-udp-4" :ALIASES NIL :PORT 8891 :PROTO "udp">
 #<SERVICE :NAME "ddi-tcp-5" :ALIASES NIL :PORT 8892 :PROTO "tcp">
 #<SERVICE :NAME "ddi-udp-5" :ALIASES NIL :PORT 8892 :PROTO "udp">
 #<SERVICE :NAME "ddi-tcp-6" :ALIASES NIL :PORT 8893 :PROTO "tcp">
 #<SERVICE :NAME "ddi-udp-6" :ALIASES NIL :PORT 8893 :PROTO "udp">
 #<SERVICE :NAME "ddi-tcp-7" :ALIASES NIL :PORT 8894 :PROTO "tcp">
 #<SERVICE :NAME "ddi-udp-7" :ALIASES NIL :PORT 8894 :PROTO "udp">
 #<SERVICE :NAME "canto-roboflow" :ALIASES NIL :PORT 8898 :PROTO "tcp">
 #<SERVICE :NAME "ospf-lite" :ALIASES NIL :PORT 8899 :PROTO "tcp">
 #<SERVICE :NAME "ospf-lite" :ALIASES NIL :PORT 8899 :PROTO "udp">
 #<SERVICE :NAME "jmb-cds1" :ALIASES NIL :PORT 8900 :PROTO "tcp">
 #<SERVICE :NAME "jmb-cds1" :ALIASES NIL :PORT 8900 :PROTO "udp">
 #<SERVICE :NAME "jmb-cds2" :ALIASES NIL :PORT 8901 :PROTO "tcp">
 #<SERVICE :NAME "jmb-cds2" :ALIASES NIL :PORT 8901 :PROTO "udp">
 #<SERVICE :NAME "manyone-http" :ALIASES NIL :PORT 8910 :PROTO "tcp">
 #<SERVICE :NAME "manyone-http" :ALIASES NIL :PORT 8910 :PROTO "udp">
 #<SERVICE :NAME "manyone-xml" :ALIASES NIL :PORT 8911 :PROTO "tcp">
 #<SERVICE :NAME "manyone-xml" :ALIASES NIL :PORT 8911 :PROTO "udp">
 #<SERVICE :NAME "wcbackup" :ALIASES NIL :PORT 8912 :PROTO "tcp">
 #<SERVICE :NAME "wcbackup" :ALIASES NIL :PORT 8912 :PROTO "udp">
 #<SERVICE :NAME "dragonfly" :ALIASES NIL :PORT 8913 :PROTO "tcp">
 #<SERVICE :NAME "dragonfly" :ALIASES NIL :PORT 8913 :PROTO "udp">
 #<SERVICE :NAME "twds" :ALIASES NIL :PORT 8937 :PROTO "tcp">
 #<SERVICE :NAME "ub-dns-control" :ALIASES NIL :PORT 8953 :PROTO "tcp">
 #<SERVICE :NAME "cumulus-admin" :ALIASES NIL :PORT 8954 :PROTO "tcp">
 #<SERVICE :NAME "cumulus-admin" :ALIASES NIL :PORT 8954 :PROTO "udp">
 #<SERVICE :NAME "nod-provider" :ALIASES NIL :PORT 8980 :PROTO "tcp">
 #<SERVICE :NAME "nod-provider" :ALIASES NIL :PORT 8980 :PROTO "udp">
 #<SERVICE :NAME "nod-client" :ALIASES NIL :PORT 8981 :PROTO "udp">
 #<SERVICE :NAME "sunwebadmins" :ALIASES NIL :PORT 8989 :PROTO "tcp">
 #<SERVICE :NAME "sunwebadmins" :ALIASES NIL :PORT 8989 :PROTO "udp">
 #<SERVICE :NAME "http-wmap" :ALIASES NIL :PORT 8990 :PROTO "tcp">
 #<SERVICE :NAME "http-wmap" :ALIASES NIL :PORT 8990 :PROTO "udp">
 #<SERVICE :NAME "https-wmap" :ALIASES NIL :PORT 8991 :PROTO "tcp">
 #<SERVICE :NAME "https-wmap" :ALIASES NIL :PORT 8991 :PROTO "udp">
 #<SERVICE :NAME "oracle-ms-ens" :ALIASES NIL :PORT 8997 :PROTO "tcp">
 #<SERVICE :NAME "bctp" :ALIASES NIL :PORT 8999 :PROTO "tcp">
 #<SERVICE :NAME "bctp" :ALIASES NIL :PORT 8999 :PROTO "udp">
 #<SERVICE :NAME "cslistener" :ALIASES NIL :PORT 9000 :PROTO "tcp">
 #<SERVICE :NAME "cslistener" :ALIASES NIL :PORT 9000 :PROTO "udp">
 #<SERVICE :NAME "etlservicemgr" :ALIASES NIL :PORT 9001 :PROTO "tcp">
 #<SERVICE :NAME "etlservicemgr" :ALIASES NIL :PORT 9001 :PROTO "udp">
 #<SERVICE :NAME "dynamid" :ALIASES NIL :PORT 9002 :PROTO "tcp">
 #<SERVICE :NAME "dynamid" :ALIASES NIL :PORT 9002 :PROTO "udp">
 #<SERVICE :NAME "golem" :ALIASES NIL :PORT 9005 :PROTO "tcp">
 #<SERVICE :NAME "ogs-client" :ALIASES NIL :PORT 9007 :PROTO "udp">
 #<SERVICE :NAME "ogs-server" :ALIASES NIL :PORT 9008 :PROTO "tcp">
 #<SERVICE :NAME "pichat" :ALIASES NIL :PORT 9009 :PROTO "tcp">
 #<SERVICE :NAME "pichat" :ALIASES NIL :PORT 9009 :PROTO "udp">
 #<SERVICE :NAME "sdr" :ALIASES NIL :PORT 9010 :PROTO "tcp">
 #<SERVICE :NAME "tambora" :ALIASES NIL :PORT 9020 :PROTO "tcp">
 #<SERVICE :NAME "tambora" :ALIASES NIL :PORT 9020 :PROTO "udp">
 #<SERVICE :NAME "panagolin-ident" :ALIASES NIL :PORT 9021 :PROTO "tcp">
 #<SERVICE :NAME "panagolin-ident" :ALIASES NIL :PORT 9021 :PROTO "udp">
 #<SERVICE :NAME "paragent" :ALIASES NIL :PORT 9022 :PROTO "tcp">
 #<SERVICE :NAME "paragent" :ALIASES NIL :PORT 9022 :PROTO "udp">
 #<SERVICE :NAME "swa-1" :ALIASES NIL :PORT 9023 :PROTO "tcp">
 #<SERVICE :NAME "swa-1" :ALIASES NIL :PORT 9023 :PROTO "udp">
 #<SERVICE :NAME "swa-2" :ALIASES NIL :PORT 9024 :PROTO "tcp">
 #<SERVICE :NAME "swa-2" :ALIASES NIL :PORT 9024 :PROTO "udp">
 #<SERVICE :NAME "swa-3" :ALIASES NIL :PORT 9025 :PROTO "tcp">
 #<SERVICE :NAME "swa-3" :ALIASES NIL :PORT 9025 :PROTO "udp">
 #<SERVICE :NAME "swa-4" :ALIASES NIL :PORT 9026 :PROTO "tcp">
 #<SERVICE :NAME "swa-4" :ALIASES NIL :PORT 9026 :PROTO "udp">
 #<SERVICE :NAME "versiera" :ALIASES NIL :PORT 9050 :PROTO "tcp">
 #<SERVICE :NAME "fio-cmgmt" :ALIASES NIL :PORT 9051 :PROTO "tcp">
 #<SERVICE :NAME "glrpc" :ALIASES NIL :PORT 9080 :PROTO "tcp">
 #<SERVICE :NAME "glrpc" :ALIASES NIL :PORT 9080 :PROTO "udp">
 #<SERVICE :NAME "lcs-ap" :ALIASES NIL :PORT 9082 :PROTO "sctp">
 #<SERVICE :NAME "emc-pp-mgmtsvc" :ALIASES NIL :PORT 9083 :PROTO "tcp">
 #<SERVICE :NAME "aurora" :ALIASES NIL :PORT 9084 :PROTO "tcp">
 #<SERVICE :NAME "aurora" :ALIASES NIL :PORT 9084 :PROTO "udp">
 #<SERVICE :NAME "aurora" :ALIASES NIL :PORT 9084 :PROTO "sctp">
 #<SERVICE :NAME "ibm-rsyscon" :ALIASES NIL :PORT 9085 :PROTO "tcp">
 #<SERVICE :NAME "ibm-rsyscon" :ALIASES NIL :PORT 9085 :PROTO "udp">
 #<SERVICE :NAME "net2display" :ALIASES NIL :PORT 9086 :PROTO "tcp">
 #<SERVICE :NAME "net2display" :ALIASES NIL :PORT 9086 :PROTO "udp">
 #<SERVICE :NAME "classic" :ALIASES NIL :PORT 9087 :PROTO "tcp">
 #<SERVICE :NAME "classic" :ALIASES NIL :PORT 9087 :PROTO "udp">
 #<SERVICE :NAME "sqlexec" :ALIASES NIL :PORT 9088 :PROTO "tcp">
 #<SERVICE :NAME "sqlexec" :ALIASES NIL :PORT 9088 :PROTO "udp">
 #<SERVICE :NAME "sqlexec-ssl" :ALIASES NIL :PORT 9089 :PROTO "tcp">
 #<SERVICE :NAME "sqlexec-ssl" :ALIASES NIL :PORT 9089 :PROTO "udp">
 #<SERVICE :NAME "websm" :ALIASES NIL :PORT 9090 :PROTO "tcp">
 #<SERVICE :NAME "websm" :ALIASES NIL :PORT 9090 :PROTO "udp">
 #<SERVICE :NAME "xmltec-xmlmail" :ALIASES NIL :PORT 9091 :PROTO "tcp">
 #<SERVICE :NAME "xmltec-xmlmail" :ALIASES NIL :PORT 9091 :PROTO "udp">
 #<SERVICE :NAME "XmlIpcRegSvc" :ALIASES NIL :PORT 9092 :PROTO "tcp">
 #<SERVICE :NAME "XmlIpcRegSvc" :ALIASES NIL :PORT 9092 :PROTO "udp">
 #<SERVICE :NAME "copycat" :ALIASES NIL :PORT 9093 :PROTO "tcp">
 #<SERVICE :NAME "hp-pdl-datastr" :ALIASES ("pdl-datastream") :PORT 9100
   :PROTO "udp">
 #<SERVICE :NAME "bacula-dir" :ALIASES NIL :PORT 9101 :PROTO "tcp">
 #<SERVICE :NAME "bacula-dir" :ALIASES NIL :PORT 9101 :PROTO "udp">
 #<SERVICE :NAME "bacula-fd" :ALIASES NIL :PORT 9102 :PROTO "tcp">
 #<SERVICE :NAME "bacula-fd" :ALIASES NIL :PORT 9102 :PROTO "udp">
 #<SERVICE :NAME "bacula-sd" :ALIASES NIL :PORT 9103 :PROTO "tcp">
 #<SERVICE :NAME "bacula-sd" :ALIASES NIL :PORT 9103 :PROTO "udp">
 #<SERVICE :NAME "peerwire" :ALIASES NIL :PORT 9104 :PROTO "tcp">
 #<SERVICE :NAME "peerwire" :ALIASES NIL :PORT 9104 :PROTO "udp">
 #<SERVICE :NAME "xadmin" :ALIASES NIL :PORT 9105 :PROTO "tcp">
 #<SERVICE :NAME "xadmin" :ALIASES NIL :PORT 9105 :PROTO "udp">
 #<SERVICE :NAME "astergate" :ALIASES NIL :PORT 9106 :PROTO "tcp">
 #<SERVICE :NAME "astergate-disc" :ALIASES NIL :PORT 9106 :PROTO "udp">
 #<SERVICE :NAME "astergatefax" :ALIASES NIL :PORT 9107 :PROTO "tcp">
 #<SERVICE :NAME "mxit" :ALIASES NIL :PORT 9119 :PROTO "tcp">
 #<SERVICE :NAME "mxit" :ALIASES NIL :PORT 9119 :PROTO "udp">
 #<SERVICE :NAME "grcmp" :ALIASES NIL :PORT 9122 :PROTO "tcp">
 #<SERVICE :NAME "grcp" :ALIASES NIL :PORT 9123 :PROTO "tcp">
 #<SERVICE :NAME "dddp" :ALIASES NIL :PORT 9131 :PROTO "tcp">
 #<SERVICE :NAME "dddp" :ALIASES NIL :PORT 9131 :PROTO "udp">
 #<SERVICE :NAME "apani1" :ALIASES NIL :PORT 9160 :PROTO "tcp">
 #<SERVICE :NAME "apani1" :ALIASES NIL :PORT 9160 :PROTO "udp">
 #<SERVICE :NAME "apani2" :ALIASES NIL :PORT 9161 :PROTO "tcp">
 #<SERVICE :NAME "apani2" :ALIASES NIL :PORT 9161 :PROTO "udp">
 #<SERVICE :NAME "apani3" :ALIASES NIL :PORT 9162 :PROTO "tcp">
 #<SERVICE :NAME "apani3" :ALIASES NIL :PORT 9162 :PROTO "udp">
 #<SERVICE :NAME "apani4" :ALIASES NIL :PORT 9163 :PROTO "tcp">
 #<SERVICE :NAME "apani4" :ALIASES NIL :PORT 9163 :PROTO "udp">
 #<SERVICE :NAME "apani5" :ALIASES NIL :PORT 9164 :PROTO "tcp">
 #<SERVICE :NAME "apani5" :ALIASES NIL :PORT 9164 :PROTO "udp">
 #<SERVICE :NAME "sun-as-jpda" :ALIASES NIL :PORT 9191 :PROTO "tcp">
 #<SERVICE :NAME "sun-as-jpda" :ALIASES NIL :PORT 9191 :PROTO "udp">
 #<SERVICE :NAME "wap-wsp" :ALIASES NIL :PORT 9200 :PROTO "tcp">
 #<SERVICE :NAME "wap-wsp" :ALIASES NIL :PORT 9200 :PROTO "udp">
 #<SERVICE :NAME "wap-wsp-wtp" :ALIASES NIL :PORT 9201 :PROTO "tcp">
 #<SERVICE :NAME "wap-wsp-wtp" :ALIASES NIL :PORT 9201 :PROTO "udp">
 #<SERVICE :NAME "wap-wsp-s" :ALIASES NIL :PORT 9202 :PROTO "tcp">
 #<SERVICE :NAME "wap-wsp-s" :ALIASES NIL :PORT 9202 :PROTO "udp">
 #<SERVICE :NAME "wap-wsp-wtp-s" :ALIASES NIL :PORT 9203 :PROTO "tcp">
 #<SERVICE :NAME "wap-wsp-wtp-s" :ALIASES NIL :PORT 9203 :PROTO "udp">
 #<SERVICE :NAME "wap-vcard" :ALIASES NIL :PORT 9204 :PROTO "tcp">
 #<SERVICE :NAME "wap-vcard" :ALIASES NIL :PORT 9204 :PROTO "udp">
 #<SERVICE :NAME "wap-vcal" :ALIASES NIL :PORT 9205 :PROTO "tcp">
 #<SERVICE :NAME "wap-vcal" :ALIASES NIL :PORT 9205 :PROTO "udp">
 #<SERVICE :NAME "wap-vcard-s" :ALIASES NIL :PORT 9206 :PROTO "tcp">
 #<SERVICE :NAME "wap-vcard-s" :ALIASES NIL :PORT 9206 :PROTO "udp">
 #<SERVICE :NAME "wap-vcal-s" :ALIASES NIL :PORT 9207 :PROTO "tcp">
 #<SERVICE :NAME "wap-vcal-s" :ALIASES NIL :PORT 9207 :PROTO "udp">
 #<SERVICE :NAME "rjcdb-vcards" :ALIASES NIL :PORT 9208 :PROTO "tcp">
 #<SERVICE :NAME "rjcdb-vcards" :ALIASES NIL :PORT 9208 :PROTO "udp">
 #<SERVICE :NAME "almobile-system" :ALIASES NIL :PORT 9209 :PROTO "tcp">
 #<SERVICE :NAME "almobile-system" :ALIASES NIL :PORT 9209 :PROTO "udp">
 #<SERVICE :NAME "oma-mlp" :ALIASES NIL :PORT 9210 :PROTO "tcp">
 #<SERVICE :NAME "oma-mlp" :ALIASES NIL :PORT 9210 :PROTO "udp">
 #<SERVICE :NAME "oma-mlp-s" :ALIASES NIL :PORT 9211 :PROTO "tcp">
 #<SERVICE :NAME "oma-mlp-s" :ALIASES NIL :PORT 9211 :PROTO "udp">
 #<SERVICE :NAME "serverviewdbms" :ALIASES NIL :PORT 9212 :PROTO "tcp">
 #<SERVICE :NAME "serverviewdbms" :ALIASES NIL :PORT 9212 :PROTO "udp">
 #<SERVICE :NAME "serverstart" :ALIASES NIL :PORT 9213 :PROTO "tcp">
 #<SERVICE :NAME "serverstart" :ALIASES NIL :PORT 9213 :PROTO "udp">
 #<SERVICE :NAME "ipdcesgbs" :ALIASES NIL :PORT 9214 :PROTO "tcp">
 #<SERVICE :NAME "ipdcesgbs" :ALIASES NIL :PORT 9214 :PROTO "udp">
 #<SERVICE :NAME "insis" :ALIASES NIL :PORT 9215 :PROTO "tcp">
 #<SERVICE :NAME "insis" :ALIASES NIL :PORT 9215 :PROTO "udp">
 #<SERVICE :NAME "acme" :ALIASES NIL :PORT 9216 :PROTO "tcp">
 #<SERVICE :NAME "acme" :ALIASES NIL :PORT 9216 :PROTO "udp">
 #<SERVICE :NAME "fsc-port" :ALIASES NIL :PORT 9217 :PROTO "tcp">
 #<SERVICE :NAME "fsc-port" :ALIASES NIL :PORT 9217 :PROTO "udp">
 #<SERVICE :NAME "teamcoherence" :ALIASES NIL :PORT 9222 :PROTO "tcp">
 #<SERVICE :NAME "teamcoherence" :ALIASES NIL :PORT 9222 :PROTO "udp">
 #<SERVICE :NAME "Mon" :ALIASES NIL :PORT 9255 :PROTO "tcp">
 #<SERVICE :NAME "Mon" :ALIASES NIL :PORT 9255 :PROTO "udp">
 #<SERVICE :NAME "traingpsdata" :ALIASES NIL :PORT 9277 :PROTO "udp">
 #<SERVICE :NAME "pegasus" :ALIASES NIL :PORT 9278 :PROTO "tcp">
 #<SERVICE :NAME "pegasus" :ALIASES NIL :PORT 9278 :PROTO "udp">
 #<SERVICE :NAME "pegasus-ctl" :ALIASES NIL :PORT 9279 :PROTO "tcp">
 #<SERVICE :NAME "pegasus-ctl" :ALIASES NIL :PORT 9279 :PROTO "udp">
 #<SERVICE :NAME "pgps" :ALIASES NIL :PORT 9280 :PROTO "tcp">
 #<SERVICE :NAME "pgps" :ALIASES NIL :PORT 9280 :PROTO "udp">
 #<SERVICE :NAME "swtp-port1" :ALIASES NIL :PORT 9281 :PROTO "tcp">
 #<SERVICE :NAME "swtp-port1" :ALIASES NIL :PORT 9281 :PROTO "udp">
 #<SERVICE :NAME "swtp-port2" :ALIASES NIL :PORT 9282 :PROTO "tcp">
 #<SERVICE :NAME "swtp-port2" :ALIASES NIL :PORT 9282 :PROTO "udp">
 #<SERVICE :NAME "callwaveiam" :ALIASES NIL :PORT 9283 :PROTO "tcp">
 #<SERVICE :NAME "callwaveiam" :ALIASES NIL :PORT 9283 :PROTO "udp">
 #<SERVICE :NAME "visd" :ALIASES NIL :PORT 9284 :PROTO "tcp">
 #<SERVICE :NAME "visd" :ALIASES NIL :PORT 9284 :PROTO "udp">
 #<SERVICE :NAME "n2h2server" :ALIASES NIL :PORT 9285 :PROTO "tcp">
 #<SERVICE :NAME "n2h2server" :ALIASES NIL :PORT 9285 :PROTO "udp">
 #<SERVICE :NAME "n2receive" :ALIASES NIL :PORT 9286 :PROTO "udp">
 #<SERVICE :NAME "cumulus" :ALIASES NIL :PORT 9287 :PROTO "tcp">
 #<SERVICE :NAME "cumulus" :ALIASES NIL :PORT 9287 :PROTO "udp">
 #<SERVICE :NAME "armtechdaemon" :ALIASES NIL :PORT 9292 :PROTO "tcp">
 #<SERVICE :NAME "armtechdaemon" :ALIASES NIL :PORT 9292 :PROTO "udp">
 #<SERVICE :NAME "storview" :ALIASES NIL :PORT 9293 :PROTO "tcp">
 #<SERVICE :NAME "storview" :ALIASES NIL :PORT 9293 :PROTO "udp">
 #<SERVICE :NAME "armcenterhttp" :ALIASES NIL :PORT 9294 :PROTO "tcp">
 #<SERVICE :NAME "armcenterhttp" :ALIASES NIL :PORT 9294 :PROTO "udp">
 #<SERVICE :NAME "armcenterhttps" :ALIASES NIL :PORT 9295 :PROTO "tcp">
 #<SERVICE :NAME "armcenterhttps" :ALIASES NIL :PORT 9295 :PROTO "udp">
 #<SERVICE :NAME "vrace" :ALIASES NIL :PORT 9300 :PROTO "tcp">
 #<SERVICE :NAME "vrace" :ALIASES NIL :PORT 9300 :PROTO "udp">
 #<SERVICE :NAME "sphinxql" :ALIASES NIL :PORT 9306 :PROTO "tcp">
 #<SERVICE :NAME "sphinxapi" :ALIASES NIL :PORT 9312 :PROTO "tcp">
 #<SERVICE :NAME "secure-ts" :ALIASES NIL :PORT 9318 :PROTO "tcp">
 #<SERVICE :NAME "secure-ts" :ALIASES NIL :PORT 9318 :PROTO "udp">
 #<SERVICE :NAME "guibase" :ALIASES NIL :PORT 9321 :PROTO "tcp">
 #<SERVICE :NAME "guibase" :ALIASES NIL :PORT 9321 :PROTO "udp">
 #<SERVICE :NAME "mpidcmgr" :ALIASES NIL :PORT 9343 :PROTO "tcp">
 #<SERVICE :NAME "mpidcmgr" :ALIASES NIL :PORT 9343 :PROTO "udp">
 #<SERVICE :NAME "mphlpdmc" :ALIASES NIL :PORT 9344 :PROTO "tcp">
 #<SERVICE :NAME "mphlpdmc" :ALIASES NIL :PORT 9344 :PROTO "udp">
 #<SERVICE :NAME "rancher" :ALIASES NIL :PORT 9345 :PROTO "tcp">
 #<SERVICE :NAME "ctechlicensing" :ALIASES NIL :PORT 9346 :PROTO "tcp">
 #<SERVICE :NAME "ctechlicensing" :ALIASES NIL :PORT 9346 :PROTO "udp">
 #<SERVICE :NAME "fjdmimgr" :ALIASES NIL :PORT 9374 :PROTO "tcp">
 #<SERVICE :NAME "fjdmimgr" :ALIASES NIL :PORT 9374 :PROTO "udp">
 #<SERVICE :NAME "boxp" :ALIASES NIL :PORT 9380 :PROTO "tcp">
 #<SERVICE :NAME "boxp" :ALIASES NIL :PORT 9380 :PROTO "udp">
 #<SERVICE :NAME "d2dconfig" :ALIASES NIL :PORT 9387 :PROTO "tcp">
 #<SERVICE :NAME "d2ddatatrans" :ALIASES NIL :PORT 9388 :PROTO "tcp">
 #<SERVICE :NAME "adws" :ALIASES NIL :PORT 9389 :PROTO "tcp">
 #<SERVICE :NAME "otp" :ALIASES NIL :PORT 9390 :PROTO "tcp">
 #<SERVICE :NAME "fjinvmgr" :ALIASES NIL :PORT 9396 :PROTO "tcp">
 #<SERVICE :NAME "fjinvmgr" :ALIASES NIL :PORT 9396 :PROTO "udp">
 #<SERVICE :NAME "mpidcagt" :ALIASES NIL :PORT 9397 :PROTO "tcp">
 #<SERVICE :NAME "mpidcagt" :ALIASES NIL :PORT 9397 :PROTO "udp">
 #<SERVICE :NAME "sec-t4net-srv" :ALIASES NIL :PORT 9400 :PROTO "tcp">
 #<SERVICE :NAME "sec-t4net-srv" :ALIASES NIL :PORT 9400 :PROTO "udp">
 #<SERVICE :NAME "sec-t4net-clt" :ALIASES NIL :PORT 9401 :PROTO "tcp">
 #<SERVICE :NAME "sec-t4net-clt" :ALIASES NIL :PORT 9401 :PROTO "udp">
 #<SERVICE :NAME "sec-pc2fax-srv" :ALIASES NIL :PORT 9402 :PROTO "tcp">
 #<SERVICE :NAME "sec-pc2fax-srv" :ALIASES NIL :PORT 9402 :PROTO "udp">
 #<SERVICE :NAME "git" :ALIASES NIL :PORT 9418 :PROTO "tcp">
 #<SERVICE :NAME "git" :ALIASES NIL :PORT 9418 :PROTO "udp">
 #<SERVICE :NAME "tungsten-https" :ALIASES NIL :PORT 9443 :PROTO "tcp">
 #<SERVICE :NAME "tungsten-https" :ALIASES NIL :PORT 9443 :PROTO "udp">
 #<SERVICE :NAME "wso2esb-console" :ALIASES NIL :PORT 9444 :PROTO "tcp">
 #<SERVICE :NAME "wso2esb-console" :ALIASES NIL :PORT 9444 :PROTO "udp">
 #<SERVICE :NAME "mindarray-ca" :ALIASES NIL :PORT 9445 :PROTO "tcp">
 #<SERVICE :NAME "sntlkeyssrvr" :ALIASES NIL :PORT 9450 :PROTO "tcp">
 #<SERVICE :NAME "sntlkeyssrvr" :ALIASES NIL :PORT 9450 :PROTO "udp">
 #<SERVICE :NAME "ismserver" :ALIASES NIL :PORT 9500 :PROTO "tcp">
 #<SERVICE :NAME "ismserver" :ALIASES NIL :PORT 9500 :PROTO "udp">
 #<SERVICE :NAME "sma-spw" :ALIASES NIL :PORT 9522 :PROTO "udp">
 #<SERVICE :NAME "mngsuite" :ALIASES NIL :PORT 9535 :PROTO "tcp">
 #<SERVICE :NAME "mngsuite" :ALIASES NIL :PORT 9535 :PROTO "udp">
 #<SERVICE :NAME "laes-bf" :ALIASES NIL :PORT 9536 :PROTO "tcp">
 #<SERVICE :NAME "laes-bf" :ALIASES NIL :PORT 9536 :PROTO "udp">
 #<SERVICE :NAME "trispen-sra" :ALIASES NIL :PORT 9555 :PROTO "tcp">
 #<SERVICE :NAME "trispen-sra" :ALIASES NIL :PORT 9555 :PROTO "udp">
 #<SERVICE :NAME "ldgateway" :ALIASES NIL :PORT 9592 :PROTO "tcp">
 #<SERVICE :NAME "ldgateway" :ALIASES NIL :PORT 9592 :PROTO "udp">
 #<SERVICE :NAME "cba8" :ALIASES NIL :PORT 9593 :PROTO "tcp">
 #<SERVICE :NAME "cba8" :ALIASES NIL :PORT 9593 :PROTO "udp">
 #<SERVICE :NAME "msgsys" :ALIASES NIL :PORT 9594 :PROTO "tcp">
 #<SERVICE :NAME "msgsys" :ALIASES NIL :PORT 9594 :PROTO "udp">
 #<SERVICE :NAME "pds" :ALIASES NIL :PORT 9595 :PROTO "tcp">
 #<SERVICE :NAME "pds" :ALIASES NIL :PORT 9595 :PROTO "udp">
 #<SERVICE :NAME "mercury-disc" :ALIASES NIL :PORT 9596 :PROTO "tcp">
 #<SERVICE :NAME "mercury-disc" :ALIASES NIL :PORT 9596 :PROTO "udp">
 #<SERVICE :NAME "pd-admin" :ALIASES NIL :PORT 9597 :PROTO "tcp">
 #<SERVICE :NAME "pd-admin" :ALIASES NIL :PORT 9597 :PROTO "udp">
 #<SERVICE :NAME "vscp" :ALIASES NIL :PORT 9598 :PROTO "tcp">
 #<SERVICE :NAME "vscp" :ALIASES NIL :PORT 9598 :PROTO "udp">
 #<SERVICE :NAME "robix" :ALIASES NIL :PORT 9599 :PROTO "tcp">
 #<SERVICE :NAME "robix" :ALIASES NIL :PORT 9599 :PROTO "udp">
 #<SERVICE :NAME "micromuse-ncpw" :ALIASES NIL :PORT 9600 :PROTO "tcp">
 #<SERVICE :NAME "micromuse-ncpw" :ALIASES NIL :PORT 9600 :PROTO "udp">
 #<SERVICE :NAME "streamcomm-ds" :ALIASES NIL :PORT 9612 :PROTO "tcp">
 #<SERVICE :NAME "streamcomm-ds" :ALIASES NIL :PORT 9612 :PROTO "udp">
 #<SERVICE :NAME "iadt-tls" :ALIASES NIL :PORT 9614 :PROTO "tcp">
 #<SERVICE :NAME "erunbook_agent" :ALIASES ("erunbook-agent") :PORT 9616
   :PROTO "tcp">
 #<SERVICE :NAME "erunbook_server" :ALIASES ("erunbook-server") :PORT 9617
   :PROTO "tcp">
 #<SERVICE :NAME "condor" :ALIASES NIL :PORT 9618 :PROTO "tcp">
 #<SERVICE :NAME "condor" :ALIASES NIL :PORT 9618 :PROTO "udp">
 #<SERVICE :NAME "odbcpathway" :ALIASES NIL :PORT 9628 :PROTO "tcp">
 #<SERVICE :NAME "odbcpathway" :ALIASES NIL :PORT 9628 :PROTO "udp">
 #<SERVICE :NAME "uniport" :ALIASES NIL :PORT 9629 :PROTO "tcp">
 #<SERVICE :NAME "uniport" :ALIASES NIL :PORT 9629 :PROTO "udp">
 #<SERVICE :NAME "peoctlr" :ALIASES NIL :PORT 9630 :PROTO "tcp">
 #<SERVICE :NAME "peocoll" :ALIASES NIL :PORT 9631 :PROTO "tcp">
 #<SERVICE :NAME "mc-comm" :ALIASES NIL :PORT 9632 :PROTO "udp">
 #<SERVICE :NAME "pqsflows" :ALIASES NIL :PORT 9640 :PROTO "tcp">
 #<SERVICE :NAME "zoomcp" :ALIASES NIL :PORT 9666 :PROTO "tcp">
 #<SERVICE :NAME "xmms2" :ALIASES NIL :PORT 9667 :PROTO "tcp">
 #<SERVICE :NAME "xmms2" :ALIASES NIL :PORT 9667 :PROTO "udp">
 #<SERVICE :NAME "tec5-sdctp" :ALIASES NIL :PORT 9668 :PROTO "tcp">
 #<SERVICE :NAME "tec5-sdctp" :ALIASES NIL :PORT 9668 :PROTO "udp">
 #<SERVICE :NAME "client-wakeup" :ALIASES NIL :PORT 9694 :PROTO "tcp">
 #<SERVICE :NAME "client-wakeup" :ALIASES NIL :PORT 9694 :PROTO "udp">
 #<SERVICE :NAME "ccnx" :ALIASES NIL :PORT 9695 :PROTO "tcp">
 #<SERVICE :NAME "ccnx" :ALIASES NIL :PORT 9695 :PROTO "udp">
 #<SERVICE :NAME "board-roar" :ALIASES NIL :PORT 9700 :PROTO "tcp">
 #<SERVICE :NAME "board-roar" :ALIASES NIL :PORT 9700 :PROTO "udp">
 #<SERVICE :NAME "l5nas-parchan" :ALIASES NIL :PORT 9747 :PROTO "tcp">
 #<SERVICE :NAME "l5nas-parchan" :ALIASES NIL :PORT 9747 :PROTO "udp">
 #<SERVICE :NAME "board-voip" :ALIASES NIL :PORT 9750 :PROTO "tcp">
 #<SERVICE :NAME "board-voip" :ALIASES NIL :PORT 9750 :PROTO "udp">
 #<SERVICE :NAME "rasadv" :ALIASES NIL :PORT 9753 :PROTO "tcp">
 #<SERVICE :NAME "rasadv" :ALIASES NIL :PORT 9753 :PROTO "udp">
 #<SERVICE :NAME "tungsten-http" :ALIASES NIL :PORT 9762 :PROTO "tcp">
 #<SERVICE :NAME "tungsten-http" :ALIASES NIL :PORT 9762 :PROTO "udp">
 #<SERVICE :NAME "davsrc" :ALIASES NIL :PORT 9800 :PROTO "tcp">
 #<SERVICE :NAME "davsrc" :ALIASES NIL :PORT 9800 :PROTO "udp">
 #<SERVICE :NAME "sstp-2" :ALIASES NIL :PORT 9801 :PROTO "tcp">
 #<SERVICE :NAME "sstp-2" :ALIASES NIL :PORT 9801 :PROTO "udp">
 #<SERVICE :NAME "davsrcs" :ALIASES NIL :PORT 9802 :PROTO "tcp">
 #<SERVICE :NAME "davsrcs" :ALIASES NIL :PORT 9802 :PROTO "udp">
 #<SERVICE :NAME "sapv1" :ALIASES NIL :PORT 9875 :PROTO "tcp">
 #<SERVICE :NAME "sapv1" :ALIASES NIL :PORT 9875 :PROTO "udp">
 #<SERVICE :NAME "sd" :ALIASES NIL :PORT 9876 :PROTO "tcp">
 #<SERVICE :NAME "kca-service" :ALIASES NIL :PORT 9878 :PROTO "udp">
 #<SERVICE :NAME "cyborg-systems" :ALIASES NIL :PORT 9888 :PROTO "tcp">
 #<SERVICE :NAME "cyborg-systems" :ALIASES NIL :PORT 9888 :PROTO "udp">
 #<SERVICE :NAME "gt-proxy" :ALIASES NIL :PORT 9889 :PROTO "tcp">
 #<SERVICE :NAME "gt-proxy" :ALIASES NIL :PORT 9889 :PROTO "udp">
 #<SERVICE :NAME "monkeycom" :ALIASES NIL :PORT 9898 :PROTO "tcp">
 #<SERVICE :NAME "monkeycom" :ALIASES NIL :PORT 9898 :PROTO "udp">
 #<SERVICE :NAME "sctp-tunneling" :ALIASES NIL :PORT 9899 :PROTO "udp">
 #<SERVICE :NAME "iua" :ALIASES NIL :PORT 9900 :PROTO "tcp">
 #<SERVICE :NAME "iua" :ALIASES NIL :PORT 9900 :PROTO "udp">
 #<SERVICE :NAME "iua" :ALIASES NIL :PORT 9900 :PROTO "sctp">
 #<SERVICE :NAME "enrp" :ALIASES NIL :PORT 9901 :PROTO "udp">
 #<SERVICE :NAME "enrp-sctp" :ALIASES NIL :PORT 9901 :PROTO "sctp">
 #<SERVICE :NAME "enrp-sctp-tls" :ALIASES NIL :PORT 9902 :PROTO "sctp">
 #<SERVICE :NAME "multicast-ping" :ALIASES NIL :PORT 9903 :PROTO "tcp">
 #<SERVICE :NAME "multicast-ping" :ALIASES NIL :PORT 9903 :PROTO "udp">
 #<SERVICE :NAME "domaintime" :ALIASES NIL :PORT 9909 :PROTO "tcp">
 #<SERVICE :NAME "domaintime" :ALIASES NIL :PORT 9909 :PROTO "udp">
 #<SERVICE :NAME "sype-transport" :ALIASES NIL :PORT 9911 :PROTO "tcp">
 #<SERVICE :NAME "sype-transport" :ALIASES NIL :PORT 9911 :PROTO "udp">
 #<SERVICE :NAME "xybrid-cloud" :ALIASES NIL :PORT 9925 :PROTO "tcp">
 #<SERVICE :NAME "apc-9950" :ALIASES NIL :PORT 9950 :PROTO "tcp">
 #<SERVICE :NAME "apc-9950" :ALIASES NIL :PORT 9950 :PROTO "udp">
 #<SERVICE :NAME "apc-9951" :ALIASES NIL :PORT 9951 :PROTO "tcp">
 #<SERVICE :NAME "apc-9951" :ALIASES NIL :PORT 9951 :PROTO "udp">
 #<SERVICE :NAME "apc-9952" :ALIASES NIL :PORT 9952 :PROTO "tcp">
 #<SERVICE :NAME "apc-9952" :ALIASES NIL :PORT 9952 :PROTO "udp">
 #<SERVICE :NAME "acis" :ALIASES NIL :PORT 9953 :PROTO "tcp">
 #<SERVICE :NAME "acis" :ALIASES NIL :PORT 9953 :PROTO "udp">
 #<SERVICE :NAME "hinp" :ALIASES NIL :PORT 9954 :PROTO "tcp">
 #<SERVICE :NAME "alljoyn-stm" :ALIASES NIL :PORT 9955 :PROTO "tcp">
 #<SERVICE :NAME "alljoyn-mcm" :ALIASES NIL :PORT 9955 :PROTO "udp">
 #<SERVICE :NAME "alljoyn" :ALIASES NIL :PORT 9956 :PROTO "udp">
 #<SERVICE :NAME "odnsp" :ALIASES NIL :PORT 9966 :PROTO "tcp">
 #<SERVICE :NAME "odnsp" :ALIASES NIL :PORT 9966 :PROTO "udp">
 #<SERVICE :NAME "xybrid-rt" :ALIASES NIL :PORT 9978 :PROTO "tcp">
 #<SERVICE :NAME "dsm-scm-target" :ALIASES NIL :PORT 9987 :PROTO "tcp">
 #<SERVICE :NAME "dsm-scm-target" :ALIASES NIL :PORT 9987 :PROTO "udp">
 #<SERVICE :NAME "nsesrvr" :ALIASES NIL :PORT 9988 :PROTO "tcp">
 #<SERVICE :NAME "osm-appsrvr" :ALIASES NIL :PORT 9990 :PROTO "tcp">
 #<SERVICE :NAME "osm-appsrvr" :ALIASES NIL :PORT 9990 :PROTO "udp">
 #<SERVICE :NAME "osm-oev" :ALIASES NIL :PORT 9991 :PROTO "tcp">
 #<SERVICE :NAME "osm-oev" :ALIASES NIL :PORT 9991 :PROTO "udp">
 #<SERVICE :NAME "palace-1" :ALIASES NIL :PORT 9992 :PROTO "tcp">
 #<SERVICE :NAME "palace-1" :ALIASES NIL :PORT 9992 :PROTO "udp">
 #<SERVICE :NAME "palace-2" :ALIASES NIL :PORT 9993 :PROTO "tcp">
 #<SERVICE :NAME "palace-2" :ALIASES NIL :PORT 9993 :PROTO "udp">
 #<SERVICE :NAME "palace-3" :ALIASES NIL :PORT 9994 :PROTO "tcp">
 #<SERVICE :NAME "palace-3" :ALIASES NIL :PORT 9994 :PROTO "udp">
 #<SERVICE :NAME "palace-4" :ALIASES NIL :PORT 9995 :PROTO "tcp">
 #<SERVICE :NAME "palace-4" :ALIASES NIL :PORT 9995 :PROTO "udp">
 #<SERVICE :NAME "palace-5" :ALIASES NIL :PORT 9996 :PROTO "tcp">
 #<SERVICE :NAME "palace-5" :ALIASES NIL :PORT 9996 :PROTO "udp">
 #<SERVICE :NAME "palace-6" :ALIASES NIL :PORT 9997 :PROTO "tcp">
 #<SERVICE :NAME "palace-6" :ALIASES NIL :PORT 9997 :PROTO "udp">
 #<SERVICE :NAME "distinct32" :ALIASES NIL :PORT 9998 :PROTO "tcp">
 #<SERVICE :NAME "distinct32" :ALIASES NIL :PORT 9998 :PROTO "udp">
 #<SERVICE :NAME "distinct" :ALIASES NIL :PORT 9999 :PROTO "tcp">
 #<SERVICE :NAME "distinct" :ALIASES NIL :PORT 9999 :PROTO "udp">
 #<SERVICE :NAME "ndmp" :ALIASES NIL :PORT 10000 :PROTO "tcp">
 #<SERVICE :NAME "ndmp" :ALIASES NIL :PORT 10000 :PROTO "udp">
 #<SERVICE :NAME "scp-config" :ALIASES NIL :PORT 10001 :PROTO "tcp">
 #<SERVICE :NAME "scp-config" :ALIASES NIL :PORT 10001 :PROTO "udp">
 #<SERVICE :NAME "documentum" :ALIASES NIL :PORT 10002 :PROTO "tcp">
 #<SERVICE :NAME "documentum" :ALIASES NIL :PORT 10002 :PROTO "udp">
 #<SERVICE :NAME "documentum_s" :ALIASES ("documentum-s") :PORT 10003
   :PROTO "tcp">
 #<SERVICE :NAME "documentum_s" :ALIASES ("documentum-s") :PORT 10003
   :PROTO "udp">
 #<SERVICE :NAME "emcrmirccd" :ALIASES NIL :PORT 10004 :PROTO "tcp">
 #<SERVICE :NAME "emcrmird" :ALIASES NIL :PORT 10005 :PROTO "tcp">
 #<SERVICE :NAME "netapp-sync" :ALIASES NIL :PORT 10006 :PROTO "tcp">
 #<SERVICE :NAME "mvs-capacity" :ALIASES NIL :PORT 10007 :PROTO "tcp">
 #<SERVICE :NAME "mvs-capacity" :ALIASES NIL :PORT 10007 :PROTO "udp">
 #<SERVICE :NAME "octopus" :ALIASES NIL :PORT 10008 :PROTO "tcp">
 #<SERVICE :NAME "octopus" :ALIASES NIL :PORT 10008 :PROTO "udp">
 #<SERVICE :NAME "swdtp-sv" :ALIASES NIL :PORT 10009 :PROTO "tcp">
 #<SERVICE :NAME "swdtp-sv" :ALIASES NIL :PORT 10009 :PROTO "udp">
 #<SERVICE :NAME "rxapi" :ALIASES NIL :PORT 10010 :PROTO "tcp">
 #<SERVICE :NAME "cefdvmp" :ALIASES NIL :PORT 10023 :PROTO "udp">
 #<SERVICE :NAME "zabbix-agent" :ALIASES NIL :PORT 10050 :PROTO "tcp">
 #<SERVICE :NAME "zabbix-agent" :ALIASES NIL :PORT 10050 :PROTO "udp">
 #<SERVICE :NAME "zabbix-trapper" :ALIASES NIL :PORT 10051 :PROTO "tcp">
 #<SERVICE :NAME "zabbix-trapper" :ALIASES NIL :PORT 10051 :PROTO "udp">
 #<SERVICE :NAME "qptlmd" :ALIASES NIL :PORT 10055 :PROTO "tcp">
 #<SERVICE :NAME "itap-ddtp" :ALIASES NIL :PORT 10100 :PROTO "tcp">
 #<SERVICE :NAME "itap-ddtp" :ALIASES NIL :PORT 10100 :PROTO "udp">
 #<SERVICE :NAME "ezmeeting-2" :ALIASES NIL :PORT 10101 :PROTO "tcp">
 #<SERVICE :NAME "ezmeeting-2" :ALIASES NIL :PORT 10101 :PROTO "udp">
 #<SERVICE :NAME "ezproxy-2" :ALIASES NIL :PORT 10102 :PROTO "tcp">
 #<SERVICE :NAME "ezproxy-2" :ALIASES NIL :PORT 10102 :PROTO "udp">
 #<SERVICE :NAME "ezrelay" :ALIASES NIL :PORT 10103 :PROTO "tcp">
 #<SERVICE :NAME "ezrelay" :ALIASES NIL :PORT 10103 :PROTO "udp">
 #<SERVICE :NAME "swdtp" :ALIASES NIL :PORT 10104 :PROTO "tcp">
 #<SERVICE :NAME "swdtp" :ALIASES NIL :PORT 10104 :PROTO "udp">
 #<SERVICE :NAME "bctp-server" :ALIASES NIL :PORT 10107 :PROTO "tcp">
 #<SERVICE :NAME "bctp-server" :ALIASES NIL :PORT 10107 :PROTO "udp">
 #<SERVICE :NAME "nmea-0183" :ALIASES NIL :PORT 10110 :PROTO "tcp">
 #<SERVICE :NAME "nmea-0183" :ALIASES NIL :PORT 10110 :PROTO "udp">
 #<SERVICE :NAME "nmea-onenet" :ALIASES NIL :PORT 10111 :PROTO "udp">
 #<SERVICE :NAME "netiq-endpoint" :ALIASES NIL :PORT 10113 :PROTO "tcp">
 #<SERVICE :NAME "netiq-endpoint" :ALIASES NIL :PORT 10113 :PROTO "udp">
 #<SERVICE :NAME "netiq-qcheck" :ALIASES NIL :PORT 10114 :PROTO "tcp">
 #<SERVICE :NAME "netiq-qcheck" :ALIASES NIL :PORT 10114 :PROTO "udp">
 #<SERVICE :NAME "netiq-endpt" :ALIASES NIL :PORT 10115 :PROTO "tcp">
 #<SERVICE :NAME "netiq-endpt" :ALIASES NIL :PORT 10115 :PROTO "udp">
 #<SERVICE :NAME "netiq-voipa" :ALIASES NIL :PORT 10116 :PROTO "tcp">
 #<SERVICE :NAME "netiq-voipa" :ALIASES NIL :PORT 10116 :PROTO "udp">
 #<SERVICE :NAME "iqrm" :ALIASES NIL :PORT 10117 :PROTO "tcp">
 #<SERVICE :NAME "iqrm" :ALIASES NIL :PORT 10117 :PROTO "udp">
 #<SERVICE :NAME "cimple" :ALIASES NIL :PORT 10125 :PROTO "udp">
 #<SERVICE :NAME "bmc-perf-sd" :ALIASES NIL :PORT 10128 :PROTO "tcp">
 #<SERVICE :NAME "bmc-perf-sd" :ALIASES NIL :PORT 10128 :PROTO "udp">
 #<SERVICE :NAME "bmc-gms" :ALIASES NIL :PORT 10129 :PROTO "tcp">
 #<SERVICE :NAME "qb-db-server" :ALIASES NIL :PORT 10160 :PROTO "tcp">
 #<SERVICE :NAME "qb-db-server" :ALIASES NIL :PORT 10160 :PROTO "udp">
 #<SERVICE :NAME "snmptls" :ALIASES NIL :PORT 10161 :PROTO "tcp">
 #<SERVICE :NAME "snmpdtls" :ALIASES NIL :PORT 10161 :PROTO "udp">
 #<SERVICE :NAME "snmptls-trap" :ALIASES NIL :PORT 10162 :PROTO "tcp">
 #<SERVICE :NAME "snmpdtls-trap" :ALIASES NIL :PORT 10162 :PROTO "udp">
 #<SERVICE :NAME "trisoap" :ALIASES NIL :PORT 10200 :PROTO "tcp">
 #<SERVICE :NAME "trisoap" :ALIASES NIL :PORT 10200 :PROTO "udp">
 #<SERVICE :NAME "rsms" :ALIASES NIL :PORT 10201 :PROTO "tcp">
 #<SERVICE :NAME "rscs" :ALIASES NIL :PORT 10201 :PROTO "udp">
 #<SERVICE :NAME "apollo-relay" :ALIASES NIL :PORT 10252 :PROTO "tcp">
 #<SERVICE :NAME "apollo-relay" :ALIASES NIL :PORT 10252 :PROTO "udp">
 #<SERVICE :NAME "eapol-relay" :ALIASES NIL :PORT 10253 :PROTO "udp">
 #<SERVICE :NAME "axis-wimp-port" :ALIASES NIL :PORT 10260 :PROTO "tcp">
 #<SERVICE :NAME "axis-wimp-port" :ALIASES NIL :PORT 10260 :PROTO "udp">
 #<SERVICE :NAME "blocks" :ALIASES NIL :PORT 10288 :PROTO "tcp">
 #<SERVICE :NAME "blocks" :ALIASES NIL :PORT 10288 :PROTO "udp">
 #<SERVICE :NAME "cosir" :ALIASES NIL :PORT 10321 :PROTO "tcp">
 #<SERVICE :NAME "bngsync" :ALIASES NIL :PORT 10439 :PROTO "udp">
 #<SERVICE :NAME "hip-nat-t" :ALIASES NIL :PORT 10500 :PROTO "udp">
 #<SERVICE :NAME "MOS-lower" :ALIASES NIL :PORT 10540 :PROTO "tcp">
 #<SERVICE :NAME "MOS-lower" :ALIASES NIL :PORT 10540 :PROTO "udp">
 #<SERVICE :NAME "MOS-upper" :ALIASES NIL :PORT 10541 :PROTO "tcp">
 #<SERVICE :NAME "MOS-upper" :ALIASES NIL :PORT 10541 :PROTO "udp">
 #<SERVICE :NAME "MOS-aux" :ALIASES NIL :PORT 10542 :PROTO "tcp">
 #<SERVICE :NAME "MOS-aux" :ALIASES NIL :PORT 10542 :PROTO "udp">
 #<SERVICE :NAME "MOS-soap" :ALIASES NIL :PORT 10543 :PROTO "tcp">
 #<SERVICE :NAME "MOS-soap" :ALIASES NIL :PORT 10543 :PROTO "udp">
 #<SERVICE :NAME "MOS-soap-opt" :ALIASES NIL :PORT 10544 :PROTO "tcp">
 #<SERVICE :NAME "MOS-soap-opt" :ALIASES NIL :PORT 10544 :PROTO "udp">
 #<SERVICE :NAME "serverdocs" :ALIASES NIL :PORT 10548 :PROTO "tcp">
 #<SERVICE :NAME "printopia" :ALIASES NIL :PORT 10631 :PROTO "tcp">
 #<SERVICE :NAME "gap" :ALIASES NIL :PORT 10800 :PROTO "tcp">
 #<SERVICE :NAME "gap" :ALIASES NIL :PORT 10800 :PROTO "udp">
 #<SERVICE :NAME "lpdg" :ALIASES NIL :PORT 10805 :PROTO "tcp">
 #<SERVICE :NAME "lpdg" :ALIASES NIL :PORT 10805 :PROTO "udp">
 #<SERVICE :NAME "nbd" :ALIASES NIL :PORT 10809 :PROTO "tcp">
 #<SERVICE :NAME "nmc-disc" :ALIASES NIL :PORT 10810 :PROTO "udp">
 #<SERVICE :NAME "helix" :ALIASES NIL :PORT 10860 :PROTO "tcp">
 #<SERVICE :NAME "helix" :ALIASES NIL :PORT 10860 :PROTO "udp">
 #<SERVICE :NAME "bveapi" :ALIASES NIL :PORT 10880 :PROTO "tcp">
 #<SERVICE :NAME "bveapi" :ALIASES NIL :PORT 10880 :PROTO "udp">
 #<SERVICE :NAME "octopustentacle" :ALIASES NIL :PORT 10933 :PROTO "tcp">
 #<SERVICE :NAME "rmiaux" :ALIASES NIL :PORT 10990 :PROTO "tcp">
 #<SERVICE :NAME "rmiaux" :ALIASES NIL :PORT 10990 :PROTO "udp">
 #<SERVICE :NAME "irisa" :ALIASES NIL :PORT 11000 :PROTO "tcp">
 #<SERVICE :NAME "irisa" :ALIASES NIL :PORT 11000 :PROTO "udp">
 #<SERVICE :NAME "metasys" :ALIASES NIL :PORT 11001 :PROTO "tcp">
 #<SERVICE :NAME "metasys" :ALIASES NIL :PORT 11001 :PROTO "udp">
 #<SERVICE :NAME "cefd-vmp" :ALIASES NIL :PORT 11023 :PROTO "udp">
 #<SERVICE :NAME "weave" :ALIASES NIL :PORT 11095 :PROTO "tcp">
 #<SERVICE :NAME "weave" :ALIASES NIL :PORT 11095 :PROTO "udp">
 #<SERVICE :NAME "origo-sync" :ALIASES NIL :PORT 11103 :PROTO "tcp">
 #<SERVICE :NAME "netapp-icmgmt" :ALIASES NIL :PORT 11104 :PROTO "tcp">
 #<SERVICE :NAME "netapp-icdata" :ALIASES NIL :PORT 11105 :PROTO "tcp">
 #<SERVICE :NAME "sgi-lk" :ALIASES NIL :PORT 11106 :PROTO "tcp">
 #<SERVICE :NAME "sgi-lk" :ALIASES NIL :PORT 11106 :PROTO "udp">
 #<SERVICE :NAME "myq-termlink" :ALIASES NIL :PORT 11108 :PROTO "udp">
 #<SERVICE :NAME "sgi-dmfmgr" :ALIASES NIL :PORT 11109 :PROTO "tcp">
 #<SERVICE :NAME "sgi-soap" :ALIASES NIL :PORT 11110 :PROTO "tcp">
 #<SERVICE :NAME "vce" :ALIASES NIL :PORT 11111 :PROTO "tcp">
 #<SERVICE :NAME "vce" :ALIASES NIL :PORT 11111 :PROTO "udp">
 #<SERVICE :NAME "dicom" :ALIASES NIL :PORT 11112 :PROTO "tcp">
 #<SERVICE :NAME "dicom" :ALIASES NIL :PORT 11112 :PROTO "udp">
 #<SERVICE :NAME "suncacao-snmp" :ALIASES NIL :PORT 11161 :PROTO "tcp">
 #<SERVICE :NAME "suncacao-snmp" :ALIASES NIL :PORT 11161 :PROTO "udp">
 #<SERVICE :NAME "suncacao-jmxmp" :ALIASES NIL :PORT 11162 :PROTO "tcp">
 #<SERVICE :NAME "suncacao-jmxmp" :ALIASES NIL :PORT 11162 :PROTO "udp">
 #<SERVICE :NAME "suncacao-rmi" :ALIASES NIL :PORT 11163 :PROTO "tcp">
 #<SERVICE :NAME "suncacao-rmi" :ALIASES NIL :PORT 11163 :PROTO "udp">
 #<SERVICE :NAME "suncacao-csa" :ALIASES NIL :PORT 11164 :PROTO "tcp">
 #<SERVICE :NAME "suncacao-csa" :ALIASES NIL :PORT 11164 :PROTO "udp">
 #<SERVICE :NAME "suncacao-websvc" :ALIASES NIL :PORT 11165 :PROTO "tcp">
 #<SERVICE :NAME "suncacao-websvc" :ALIASES NIL :PORT 11165 :PROTO "udp">
 #<SERVICE :NAME "snss" :ALIASES NIL :PORT 11171 :PROTO "udp">
 #<SERVICE :NAME "oemcacao-jmxmp" :ALIASES NIL :PORT 11172 :PROTO "tcp">
 #<SERVICE :NAME "t5-straton" :ALIASES NIL :PORT 11173 :PROTO "tcp">
 #<SERVICE :NAME "oemcacao-rmi" :ALIASES NIL :PORT 11174 :PROTO "tcp">
 #<SERVICE :NAME "oemcacao-websvc" :ALIASES NIL :PORT 11175 :PROTO "tcp">
 #<SERVICE :NAME "smsqp" :ALIASES NIL :PORT 11201 :PROTO "tcp">
 #<SERVICE :NAME "smsqp" :ALIASES NIL :PORT 11201 :PROTO "udp">
 #<SERVICE :NAME "dcsl-backup" :ALIASES NIL :PORT 11202 :PROTO "tcp">
 #<SERVICE :NAME "wifree" :ALIASES NIL :PORT 11208 :PROTO "tcp">
 #<SERVICE :NAME "wifree" :ALIASES NIL :PORT 11208 :PROTO "udp">
 #<SERVICE :NAME "memcache" :ALIASES NIL :PORT 11211 :PROTO "tcp">
 #<SERVICE :NAME "memcache" :ALIASES NIL :PORT 11211 :PROTO "udp">
 #<SERVICE :NAME "imip" :ALIASES NIL :PORT 11319 :PROTO "tcp">
 #<SERVICE :NAME "imip" :ALIASES NIL :PORT 11319 :PROTO "udp">
 #<SERVICE :NAME "imip-channels" :ALIASES NIL :PORT 11320 :PROTO "tcp">
 #<SERVICE :NAME "imip-channels" :ALIASES NIL :PORT 11320 :PROTO "udp">
 #<SERVICE :NAME "arena-server" :ALIASES NIL :PORT 11321 :PROTO "tcp">
 #<SERVICE :NAME "arena-server" :ALIASES NIL :PORT 11321 :PROTO "udp">
 #<SERVICE :NAME "atm-uhas" :ALIASES NIL :PORT 11367 :PROTO "tcp">
 #<SERVICE :NAME "atm-uhas" :ALIASES NIL :PORT 11367 :PROTO "udp">
 #<SERVICE :NAME "lsdp" :ALIASES NIL :PORT 11430 :PROTO "udp">
 #<SERVICE :NAME "tempest-port" :ALIASES NIL :PORT 11600 :PROTO "tcp">
 #<SERVICE :NAME "tempest-port" :ALIASES NIL :PORT 11600 :PROTO "udp">
 #<SERVICE :NAME "emc-xsw-dconfig" :ALIASES NIL :PORT 11623 :PROTO "tcp">
 #<SERVICE :NAME "emc-xsw-dcache" :ALIASES NIL :PORT 11723 :PROTO "tcp">
 #<SERVICE :NAME "emc-xsw-dcache" :ALIASES NIL :PORT 11723 :PROTO "udp">
 #<SERVICE :NAME "intrepid-ssl" :ALIASES NIL :PORT 11751 :PROTO "tcp">
 #<SERVICE :NAME "intrepid-ssl" :ALIASES NIL :PORT 11751 :PROTO "udp">
 #<SERVICE :NAME "lanschool" :ALIASES NIL :PORT 11796 :PROTO "tcp">
 #<SERVICE :NAME "lanschool-mpt" :ALIASES NIL :PORT 11796 :PROTO "udp">
 #<SERVICE :NAME "xoraya" :ALIASES NIL :PORT 11876 :PROTO "tcp">
 #<SERVICE :NAME "xoraya" :ALIASES NIL :PORT 11876 :PROTO "udp">
 #<SERVICE :NAME "x2e-disc" :ALIASES NIL :PORT 11877 :PROTO "udp">
 #<SERVICE :NAME "sysinfo-sp" :ALIASES NIL :PORT 11967 :PROTO "tcp">
 #<SERVICE :NAME "sysinfo-sp" :ALIASES NIL :PORT 11967 :PROTO "udp">
 #<SERVICE :NAME "wmereceiving" :ALIASES NIL :PORT 11997 :PROTO "sctp">
 #<SERVICE :NAME "wmedistribution" :ALIASES NIL :PORT 11998 :PROTO "sctp">
 #<SERVICE :NAME "wmereporting" :ALIASES NIL :PORT 11999 :PROTO "sctp">
 #<SERVICE :NAME "entextxid" :ALIASES NIL :PORT 12000 :PROTO "tcp">
 #<SERVICE :NAME "entextxid" :ALIASES NIL :PORT 12000 :PROTO "udp">
 #<SERVICE :NAME "entextnetwk" :ALIASES NIL :PORT 12001 :PROTO "tcp">
 #<SERVICE :NAME "entextnetwk" :ALIASES NIL :PORT 12001 :PROTO "udp">
 #<SERVICE :NAME "entexthigh" :ALIASES NIL :PORT 12002 :PROTO "tcp">
 #<SERVICE :NAME "entexthigh" :ALIASES NIL :PORT 12002 :PROTO "udp">
 #<SERVICE :NAME "entextmed" :ALIASES NIL :PORT 12003 :PROTO "tcp">
 #<SERVICE :NAME "entextmed" :ALIASES NIL :PORT 12003 :PROTO "udp">
 #<SERVICE :NAME "entextlow" :ALIASES NIL :PORT 12004 :PROTO "tcp">
 #<SERVICE :NAME "entextlow" :ALIASES NIL :PORT 12004 :PROTO "udp">
 #<SERVICE :NAME "dbisamserver1" :ALIASES NIL :PORT 12005 :PROTO "tcp">
 #<SERVICE :NAME "dbisamserver1" :ALIASES NIL :PORT 12005 :PROTO "udp">
 #<SERVICE :NAME "dbisamserver2" :ALIASES NIL :PORT 12006 :PROTO "tcp">
 #<SERVICE :NAME "dbisamserver2" :ALIASES NIL :PORT 12006 :PROTO "udp">
 #<SERVICE :NAME "accuracer" :ALIASES NIL :PORT 12007 :PROTO "tcp">
 #<SERVICE :NAME "accuracer" :ALIASES NIL :PORT 12007 :PROTO "udp">
 #<SERVICE :NAME "accuracer-dbms" :ALIASES NIL :PORT 12008 :PROTO "tcp">
 #<SERVICE :NAME "accuracer-dbms" :ALIASES NIL :PORT 12008 :PROTO "udp">
 #<SERVICE :NAME "ghvpn" :ALIASES NIL :PORT 12009 :PROTO "udp">
 #<SERVICE :NAME "edbsrvr" :ALIASES NIL :PORT 12010 :PROTO "tcp">
 #<SERVICE :NAME "vipera" :ALIASES NIL :PORT 12012 :PROTO "tcp">
 #<SERVICE :NAME "vipera" :ALIASES NIL :PORT 12012 :PROTO "udp">
 #<SERVICE :NAME "vipera-ssl" :ALIASES NIL :PORT 12013 :PROTO "tcp">
 #<SERVICE :NAME "vipera-ssl" :ALIASES NIL :PORT 12013 :PROTO "udp">
 #<SERVICE :NAME "rets-ssl" :ALIASES NIL :PORT 12109 :PROTO "tcp">
 #<SERVICE :NAME "rets-ssl" :ALIASES NIL :PORT 12109 :PROTO "udp">
 #<SERVICE :NAME "nupaper-ss" :ALIASES NIL :PORT 12121 :PROTO "tcp">
 #<SERVICE :NAME "nupaper-ss" :ALIASES NIL :PORT 12121 :PROTO "udp">
 #<SERVICE :NAME "cawas" :ALIASES NIL :PORT 12168 :PROTO "tcp">
 #<SERVICE :NAME "cawas" :ALIASES NIL :PORT 12168 :PROTO "udp">
 #<SERVICE :NAME "hivep" :ALIASES NIL :PORT 12172 :PROTO "tcp">
 #<SERVICE :NAME "hivep" :ALIASES NIL :PORT 12172 :PROTO "udp">
 #<SERVICE :NAME "linogridengine" :ALIASES NIL :PORT 12300 :PROTO "tcp">
 #<SERVICE :NAME "linogridengine" :ALIASES NIL :PORT 12300 :PROTO "udp">
 #<SERVICE :NAME "rads" :ALIASES NIL :PORT 12302 :PROTO "tcp">
 #<SERVICE :NAME "warehouse-sss" :ALIASES NIL :PORT 12321 :PROTO "tcp">
 #<SERVICE :NAME "warehouse-sss" :ALIASES NIL :PORT 12321 :PROTO "udp">
 #<SERVICE :NAME "warehouse" :ALIASES NIL :PORT 12322 :PROTO "tcp">
 #<SERVICE :NAME "warehouse" :ALIASES NIL :PORT 12322 :PROTO "udp">
 #<SERVICE :NAME "italk" :ALIASES NIL :PORT 12345 :PROTO "tcp">
 #<SERVICE :NAME "italk" :ALIASES NIL :PORT 12345 :PROTO "udp">
 #<SERVICE :NAME "tsaf" :ALIASES NIL :PORT 12753 :PROTO "tcp">
 #<SERVICE :NAME "tsaf" :ALIASES NIL :PORT 12753 :PROTO "udp">
 #<SERVICE :NAME "netperf" :ALIASES NIL :PORT 12865 :PROTO "tcp">
 #<SERVICE :NAME "i-zipqd" :ALIASES NIL :PORT 13160 :PROTO "tcp">
 #<SERVICE :NAME "i-zipqd" :ALIASES NIL :PORT 13160 :PROTO "udp">
 #<SERVICE :NAME "bcslogc" :ALIASES NIL :PORT 13216 :PROTO "tcp">
 #<SERVICE :NAME "bcslogc" :ALIASES NIL :PORT 13216 :PROTO "udp">
 #<SERVICE :NAME "rs-pias" :ALIASES NIL :PORT 13217 :PROTO "tcp">
 #<SERVICE :NAME "rs-pias" :ALIASES NIL :PORT 13217 :PROTO "udp">
 #<SERVICE :NAME "emc-vcas-tcp" :ALIASES NIL :PORT 13218 :PROTO "tcp">
 #<SERVICE :NAME "emc-vcas-udp" :ALIASES NIL :PORT 13218 :PROTO "udp">
 #<SERVICE :NAME "powwow-client" :ALIASES NIL :PORT 13223 :PROTO "tcp">
 #<SERVICE :NAME "powwow-client" :ALIASES NIL :PORT 13223 :PROTO "udp">
 #<SERVICE :NAME "powwow-server" :ALIASES NIL :PORT 13224 :PROTO "tcp">
 #<SERVICE :NAME "powwow-server" :ALIASES NIL :PORT 13224 :PROTO "udp">
 #<SERVICE :NAME "doip-data" :ALIASES NIL :PORT 13400 :PROTO "tcp">
 #<SERVICE :NAME "doip-disc" :ALIASES NIL :PORT 13400 :PROTO "udp">
 #<SERVICE :NAME "nbdb" :ALIASES NIL :PORT 13785 :PROTO "tcp">
 #<SERVICE :NAME "nbdb" :ALIASES NIL :PORT 13785 :PROTO "udp">
 #<SERVICE :NAME "nomdb" :ALIASES NIL :PORT 13786 :PROTO "tcp">
 #<SERVICE :NAME "nomdb" :ALIASES NIL :PORT 13786 :PROTO "udp">
 #<SERVICE :NAME "dsmcc-config" :ALIASES NIL :PORT 13818 :PROTO "tcp">
 #<SERVICE :NAME "dsmcc-config" :ALIASES NIL :PORT 13818 :PROTO "udp">
 #<SERVICE :NAME "dsmcc-session" :ALIASES NIL :PORT 13819 :PROTO "tcp">
 #<SERVICE :NAME "dsmcc-session" :ALIASES NIL :PORT 13819 :PROTO "udp">
 #<SERVICE :NAME "dsmcc-passthru" :ALIASES NIL :PORT 13820 :PROTO "tcp">
 #<SERVICE :NAME "dsmcc-passthru" :ALIASES NIL :PORT 13820 :PROTO "udp">
 #<SERVICE :NAME "dsmcc-download" :ALIASES NIL :PORT 13821 :PROTO "tcp">
 #<SERVICE :NAME "dsmcc-download" :ALIASES NIL :PORT 13821 :PROTO "udp">
 #<SERVICE :NAME "dsmcc-ccp" :ALIASES NIL :PORT 13822 :PROTO "tcp">
 #<SERVICE :NAME "dsmcc-ccp" :ALIASES NIL :PORT 13822 :PROTO "udp">
 #<SERVICE :NAME "bmdss" :ALIASES NIL :PORT 13823 :PROTO "tcp">
 #<SERVICE :NAME "ucontrol" :ALIASES NIL :PORT 13894 :PROTO "tcp">
 #<SERVICE :NAME "ucontrol" :ALIASES NIL :PORT 13894 :PROTO "udp">
 #<SERVICE :NAME "dta-systems" :ALIASES NIL :PORT 13929 :PROTO "tcp">
 #<SERVICE :NAME "dta-systems" :ALIASES NIL :PORT 13929 :PROTO "udp">
 #<SERVICE :NAME "medevolve" :ALIASES NIL :PORT 13930 :PROTO "tcp">
 #<SERVICE :NAME "scotty-ft" :ALIASES NIL :PORT 14000 :PROTO "tcp">
 #<SERVICE :NAME "scotty-ft" :ALIASES NIL :PORT 14000 :PROTO "udp">
 #<SERVICE :NAME "sua" :ALIASES NIL :PORT 14001 :PROTO "tcp">
 #<SERVICE :NAME "sua" :ALIASES NIL :PORT 14001 :PROTO "udp">
 #<SERVICE :NAME "sua" :ALIASES NIL :PORT 14001 :PROTO "sctp">
 #<SERVICE :NAME "scotty-disc" :ALIASES NIL :PORT 14002 :PROTO "udp">
 #<SERVICE :NAME "sage-best-com1" :ALIASES NIL :PORT 14033 :PROTO "tcp">
 #<SERVICE :NAME "sage-best-com1" :ALIASES NIL :PORT 14033 :PROTO "udp">
 #<SERVICE :NAME "sage-best-com2" :ALIASES NIL :PORT 14034 :PROTO "tcp">
 #<SERVICE :NAME "sage-best-com2" :ALIASES NIL :PORT 14034 :PROTO "udp">
 #<SERVICE :NAME "vcs-app" :ALIASES NIL :PORT 14141 :PROTO "tcp">
 #<SERVICE :NAME "vcs-app" :ALIASES NIL :PORT 14141 :PROTO "udp">
 #<SERVICE :NAME "icpp" :ALIASES NIL :PORT 14142 :PROTO "tcp">
 #<SERVICE :NAME "icpp" :ALIASES NIL :PORT 14142 :PROTO "udp">
 #<SERVICE :NAME "icpps" :ALIASES NIL :PORT 14143 :PROTO "tcp">
 #<SERVICE :NAME "gcm-app" :ALIASES NIL :PORT 14145 :PROTO "tcp">
 #<SERVICE :NAME "gcm-app" :ALIASES NIL :PORT 14145 :PROTO "udp">
 #<SERVICE :NAME "vrts-tdd" :ALIASES NIL :PORT 14149 :PROTO "tcp">
 #<SERVICE :NAME "vrts-tdd" :ALIASES NIL :PORT 14149 :PROTO "udp">
 #<SERVICE :NAME "vcscmd" :ALIASES NIL :PORT 14150 :PROTO "tcp">
 #<SERVICE :NAME "vad" :ALIASES NIL :PORT 14154 :PROTO "tcp">
 #<SERVICE :NAME "vad" :ALIASES NIL :PORT 14154 :PROTO "udp">
 #<SERVICE :NAME "cps" :ALIASES NIL :PORT 14250 :PROTO "tcp">
 #<SERVICE :NAME "cps" :ALIASES NIL :PORT 14250 :PROTO "udp">
 #<SERVICE :NAME "ca-web-update" :ALIASES NIL :PORT 14414 :PROTO "tcp">
 #<SERVICE :NAME "ca-web-update" :ALIASES NIL :PORT 14414 :PROTO "udp">
 #<SERVICE :NAME "hde-lcesrvr-1" :ALIASES NIL :PORT 14936 :PROTO "tcp">
 #<SERVICE :NAME "hde-lcesrvr-1" :ALIASES NIL :PORT 14936 :PROTO "udp">
 #<SERVICE :NAME "hde-lcesrvr-2" :ALIASES NIL :PORT 14937 :PROTO "tcp">
 #<SERVICE :NAME "hde-lcesrvr-2" :ALIASES NIL :PORT 14937 :PROTO "udp">
 #<SERVICE :NAME "hydap" :ALIASES NIL :PORT 15000 :PROTO "tcp">
 #<SERVICE :NAME "hydap" :ALIASES NIL :PORT 15000 :PROTO "udp">
 #<SERVICE :NAME "onep-tls" :ALIASES NIL :PORT 15001 :PROTO "tcp">
 #<SERVICE :NAME "v2g-secc" :ALIASES NIL :PORT 15118 :PROTO "udp">
 #<SERVICE :NAME "xpilot" :ALIASES NIL :PORT 15345 :PROTO "tcp">
 #<SERVICE :NAME "xpilot" :ALIASES NIL :PORT 15345 :PROTO "udp">
 #<SERVICE :NAME "3link" :ALIASES NIL :PORT 15363 :PROTO "tcp">
 #<SERVICE :NAME "3link" :ALIASES NIL :PORT 15363 :PROTO "udp">
 #<SERVICE :NAME "cisco-snat" :ALIASES NIL :PORT 15555 :PROTO "tcp">
 #<SERVICE :NAME "cisco-snat" :ALIASES NIL :PORT 15555 :PROTO "udp">
 #<SERVICE :NAME "bex-xr" :ALIASES NIL :PORT 15660 :PROTO "tcp">
 #<SERVICE :NAME "bex-xr" :ALIASES NIL :PORT 15660 :PROTO "udp">
 #<SERVICE :NAME "ptp" :ALIASES NIL :PORT 15740 :PROTO "tcp">
 #<SERVICE :NAME "ptp" :ALIASES NIL :PORT 15740 :PROTO "udp">
 #<SERVICE :NAME "2ping" :ALIASES NIL :PORT 15998 :PROTO "udp">
 #<SERVICE :NAME "programmar" :ALIASES NIL :PORT 15999 :PROTO "tcp">
 #<SERVICE :NAME "fmsas" :ALIASES NIL :PORT 16000 :PROTO "tcp">
 #<SERVICE :NAME "fmsascon" :ALIASES NIL :PORT 16001 :PROTO "tcp">
 #<SERVICE :NAME "gsms" :ALIASES NIL :PORT 16002 :PROTO "tcp">
 #<SERVICE :NAME "alfin" :ALIASES NIL :PORT 16003 :PROTO "udp">
 #<SERVICE :NAME "jwpc" :ALIASES NIL :PORT 16020 :PROTO "tcp">
 #<SERVICE :NAME "jwpc-bin" :ALIASES NIL :PORT 16021 :PROTO "tcp">
 #<SERVICE :NAME "sun-sea-port" :ALIASES NIL :PORT 16161 :PROTO "tcp">
 #<SERVICE :NAME "sun-sea-port" :ALIASES NIL :PORT 16161 :PROTO "udp">
 #<SERVICE :NAME "solaris-audit" :ALIASES NIL :PORT 16162 :PROTO "tcp">
 #<SERVICE :NAME "etb4j" :ALIASES NIL :PORT 16309 :PROTO "tcp">
 #<SERVICE :NAME "etb4j" :ALIASES NIL :PORT 16309 :PROTO "udp">
 #<SERVICE :NAME "pduncs" :ALIASES NIL :PORT 16310 :PROTO "tcp">
 #<SERVICE :NAME "pduncs" :ALIASES NIL :PORT 16310 :PROTO "udp">
 #<SERVICE :NAME "pdefmns" :ALIASES NIL :PORT 16311 :PROTO "tcp">
 #<SERVICE :NAME "pdefmns" :ALIASES NIL :PORT 16311 :PROTO "udp">
 #<SERVICE :NAME "netserialext1" :ALIASES NIL :PORT 16360 :PROTO "tcp">
 #<SERVICE :NAME "netserialext1" :ALIASES NIL :PORT 16360 :PROTO "udp">
 #<SERVICE :NAME "netserialext2" :ALIASES NIL :PORT 16361 :PROTO "tcp">
 #<SERVICE :NAME "netserialext2" :ALIASES NIL :PORT 16361 :PROTO "udp">
 #<SERVICE :NAME "netserialext3" :ALIASES NIL :PORT 16367 :PROTO "tcp">
 #<SERVICE :NAME "netserialext3" :ALIASES NIL :PORT 16367 :PROTO "udp">
 #<SERVICE :NAME "netserialext4" :ALIASES NIL :PORT 16368 :PROTO "tcp">
 #<SERVICE :NAME "netserialext4" :ALIASES NIL :PORT 16368 :PROTO "udp">
 #<SERVICE :NAME "connected" :ALIASES NIL :PORT 16384 :PROTO "tcp">
 #<SERVICE :NAME "connected" :ALIASES NIL :PORT 16384 :PROTO "udp">
 #<SERVICE :NAME "rdgs" :ALIASES NIL :PORT 16385 :PROTO "tcp">
 #<SERVICE :NAME "xoms" :ALIASES NIL :PORT 16619 :PROTO "tcp">
 #<SERVICE :NAME "axon-tunnel" :ALIASES NIL :PORT 16665 :PROTO "tcp">
 #<SERVICE :NAME "vtp" :ALIASES NIL :PORT 16666 :PROTO "udp">
 #<SERVICE :NAME "cadsisvr" :ALIASES NIL :PORT 16789 :PROTO "tcp">
 #<SERVICE :NAME "newbay-snc-mc" :ALIASES NIL :PORT 16900 :PROTO "tcp">
 #<SERVICE :NAME "newbay-snc-mc" :ALIASES NIL :PORT 16900 :PROTO "udp">
 #<SERVICE :NAME "sgcip" :ALIASES NIL :PORT 16950 :PROTO "tcp">
 #<SERVICE :NAME "sgcip" :ALIASES NIL :PORT 16950 :PROTO "udp">
 #<SERVICE :NAME "intel-rci-mp" :ALIASES NIL :PORT 16991 :PROTO "tcp">
 #<SERVICE :NAME "intel-rci-mp" :ALIASES NIL :PORT 16991 :PROTO "udp">
 #<SERVICE :NAME "amt-soap-http" :ALIASES NIL :PORT 16992 :PROTO "tcp">
 #<SERVICE :NAME "amt-soap-http" :ALIASES NIL :PORT 16992 :PROTO "udp">
 #<SERVICE :NAME "amt-soap-https" :ALIASES NIL :PORT 16993 :PROTO "tcp">
 #<SERVICE :NAME "amt-soap-https" :ALIASES NIL :PORT 16993 :PROTO "udp">
 #<SERVICE :NAME "amt-redir-tcp" :ALIASES NIL :PORT 16994 :PROTO "tcp">
 #<SERVICE :NAME "amt-redir-tcp" :ALIASES NIL :PORT 16994 :PROTO "udp">
 #<SERVICE :NAME "amt-redir-tls" :ALIASES NIL :PORT 16995 :PROTO "tcp">
 #<SERVICE :NAME "amt-redir-tls" :ALIASES NIL :PORT 16995 :PROTO "udp">
 #<SERVICE :NAME "isode-dua" :ALIASES NIL :PORT 17007 :PROTO "tcp">
 #<SERVICE :NAME "isode-dua" :ALIASES NIL :PORT 17007 :PROTO "udp">
 #<SERVICE :NAME "vestasdlp" :ALIASES NIL :PORT 17184 :PROTO "tcp">
 #<SERVICE :NAME "soundsvirtual" :ALIASES NIL :PORT 17185 :PROTO "tcp">
 #<SERVICE :NAME "soundsvirtual" :ALIASES NIL :PORT 17185 :PROTO "udp">
 #<SERVICE :NAME "chipper" :ALIASES NIL :PORT 17219 :PROTO "tcp">
 #<SERVICE :NAME "chipper" :ALIASES NIL :PORT 17219 :PROTO "udp">
 #<SERVICE :NAME "avtp" :ALIASES NIL :PORT 17220 :PROTO "tcp">
 #<SERVICE :NAME "avtp" :ALIASES NIL :PORT 17220 :PROTO "udp">
 #<SERVICE :NAME "avdecc" :ALIASES NIL :PORT 17221 :PROTO "tcp">
 #<SERVICE :NAME "avdecc" :ALIASES NIL :PORT 17221 :PROTO "udp">
 #<SERVICE :NAME "cpsp" :ALIASES NIL :PORT 17222 :PROTO "udp">
 #<SERVICE :NAME "isa100-gci" :ALIASES NIL :PORT 17223 :PROTO "tcp">
 #<SERVICE :NAME "trdp-pd" :ALIASES NIL :PORT 17224 :PROTO "udp">
 #<SERVICE :NAME "trdp-md" :ALIASES NIL :PORT 17225 :PROTO "tcp">
 #<SERVICE :NAME "trdp-md" :ALIASES NIL :PORT 17225 :PROTO "udp">
 #<SERVICE :NAME "integrius-stp" :ALIASES NIL :PORT 17234 :PROTO "tcp">
 #<SERVICE :NAME "integrius-stp" :ALIASES NIL :PORT 17234 :PROTO "udp">
 #<SERVICE :NAME "ssh-mgmt" :ALIASES NIL :PORT 17235 :PROTO "tcp">
 #<SERVICE :NAME "ssh-mgmt" :ALIASES NIL :PORT 17235 :PROTO "udp">
 #<SERVICE :NAME "db-lsp" :ALIASES NIL :PORT 17500 :PROTO "tcp">
 #<SERVICE :NAME "db-lsp-disc" :ALIASES NIL :PORT 17500 :PROTO "udp">
 #<SERVICE :NAME "ailith" :ALIASES NIL :PORT 17555 :PROTO "tcp">
 #<SERVICE :NAME "ea" :ALIASES NIL :PORT 17729 :PROTO "tcp">
 #<SERVICE :NAME "ea" :ALIASES NIL :PORT 17729 :PROTO "udp">
 #<SERVICE :NAME "zep" :ALIASES NIL :PORT 17754 :PROTO "tcp">
 #<SERVICE :NAME "zep" :ALIASES NIL :PORT 17754 :PROTO "udp">
 #<SERVICE :NAME "zigbee-ip" :ALIASES NIL :PORT 17755 :PROTO "tcp">
 #<SERVICE :NAME "zigbee-ip" :ALIASES NIL :PORT 17755 :PROTO "udp">
 #<SERVICE :NAME "zigbee-ips" :ALIASES NIL :PORT 17756 :PROTO "tcp">
 #<SERVICE :NAME "zigbee-ips" :ALIASES NIL :PORT 17756 :PROTO "udp">
 #<SERVICE :NAME "sw-orion" :ALIASES NIL :PORT 17777 :PROTO "tcp">
 #<SERVICE :NAME "biimenu" :ALIASES NIL :PORT 18000 :PROTO "tcp">
 #<SERVICE :NAME "biimenu" :ALIASES NIL :PORT 18000 :PROTO "udp">
 #<SERVICE :NAME "radpdf" :ALIASES NIL :PORT 18104 :PROTO "tcp">
 #<SERVICE :NAME "racf" :ALIASES NIL :PORT 18136 :PROTO "tcp">
 #<SERVICE :NAME "opsec-cvp" :ALIASES NIL :PORT 18181 :PROTO "tcp">
 #<SERVICE :NAME "opsec-cvp" :ALIASES NIL :PORT 18181 :PROTO "udp">
 #<SERVICE :NAME "opsec-ufp" :ALIASES NIL :PORT 18182 :PROTO "tcp">
 #<SERVICE :NAME "opsec-ufp" :ALIASES NIL :PORT 18182 :PROTO "udp">
 #<SERVICE :NAME "opsec-sam" :ALIASES NIL :PORT 18183 :PROTO "tcp">
 #<SERVICE :NAME "opsec-sam" :ALIASES NIL :PORT 18183 :PROTO "udp">
 #<SERVICE :NAME "opsec-lea" :ALIASES NIL :PORT 18184 :PROTO "tcp">
 #<SERVICE :NAME "opsec-lea" :ALIASES NIL :PORT 18184 :PROTO "udp">
 #<SERVICE :NAME "opsec-omi" :ALIASES NIL :PORT 18185 :PROTO "tcp">
 #<SERVICE :NAME "opsec-omi" :ALIASES NIL :PORT 18185 :PROTO "udp">
 #<SERVICE :NAME "ohsc" :ALIASES NIL :PORT 18186 :PROTO "tcp">
 #<SERVICE :NAME "ohsc" :ALIASES NIL :PORT 18186 :PROTO "udp">
 #<SERVICE :NAME "opsec-ela" :ALIASES NIL :PORT 18187 :PROTO "tcp">
 #<SERVICE :NAME "opsec-ela" :ALIASES NIL :PORT 18187 :PROTO "udp">
 #<SERVICE :NAME "checkpoint-rtm" :ALIASES NIL :PORT 18241 :PROTO "tcp">
 #<SERVICE :NAME "checkpoint-rtm" :ALIASES NIL :PORT 18241 :PROTO "udp">
 #<SERVICE :NAME "iclid" :ALIASES NIL :PORT 18242 :PROTO "tcp">
 #<SERVICE :NAME "clusterxl" :ALIASES NIL :PORT 18243 :PROTO "tcp">
 #<SERVICE :NAME "gv-pf" :ALIASES NIL :PORT 18262 :PROTO "tcp">
 #<SERVICE :NAME "gv-pf" :ALIASES NIL :PORT 18262 :PROTO "udp">
 #<SERVICE :NAME "ac-cluster" :ALIASES NIL :PORT 18463 :PROTO "tcp">
 #<SERVICE :NAME "ac-cluster" :ALIASES NIL :PORT 18463 :PROTO "udp">
 #<SERVICE :NAME "rds-ib" :ALIASES NIL :PORT 18634 :PROTO "tcp">
 #<SERVICE :NAME "rds-ib" :ALIASES NIL :PORT 18634 :PROTO "udp">
 #<SERVICE :NAME "rds-ip" :ALIASES NIL :PORT 18635 :PROTO "tcp">
 #<SERVICE :NAME "rds-ip" :ALIASES NIL :PORT 18635 :PROTO "udp">
 #<SERVICE :NAME "ique" :ALIASES NIL :PORT 18769 :PROTO "tcp">
 #<SERVICE :NAME "ique" :ALIASES NIL :PORT 18769 :PROTO "udp">
 #<SERVICE :NAME "infotos" :ALIASES NIL :PORT 18881 :PROTO "tcp">
 #<SERVICE :NAME "infotos" :ALIASES NIL :PORT 18881 :PROTO "udp">
 #<SERVICE :NAME "apc-necmp" :ALIASES NIL :PORT 18888 :PROTO "tcp">
 #<SERVICE :NAME "apc-necmp" :ALIASES NIL :PORT 18888 :PROTO "udp">
 #<SERVICE :NAME "igrid" :ALIASES NIL :PORT 19000 :PROTO "tcp">
 #<SERVICE :NAME "igrid" :ALIASES NIL :PORT 19000 :PROTO "udp">
 #<SERVICE :NAME "scintilla" :ALIASES NIL :PORT 19007 :PROTO "tcp">
 #<SERVICE :NAME "scintilla" :ALIASES NIL :PORT 19007 :PROTO "udp">
 #<SERVICE :NAME "j-link" :ALIASES NIL :PORT 19020 :PROTO "tcp">
 #<SERVICE :NAME "opsec-uaa" :ALIASES NIL :PORT 19191 :PROTO "tcp">
 #<SERVICE :NAME "opsec-uaa" :ALIASES NIL :PORT 19191 :PROTO "udp">
 #<SERVICE :NAME "ua-secureagent" :ALIASES NIL :PORT 19194 :PROTO "tcp">
 #<SERVICE :NAME "ua-secureagent" :ALIASES NIL :PORT 19194 :PROTO "udp">
 #<SERVICE :NAME "keysrvr" :ALIASES NIL :PORT 19283 :PROTO "tcp">
 #<SERVICE :NAME "keysrvr" :ALIASES NIL :PORT 19283 :PROTO "udp">
 #<SERVICE :NAME "keyshadow" :ALIASES NIL :PORT 19315 :PROTO "tcp">
 #<SERVICE :NAME "keyshadow" :ALIASES NIL :PORT 19315 :PROTO "udp">
 #<SERVICE :NAME "mtrgtrans" :ALIASES NIL :PORT 19398 :PROTO "tcp">
 #<SERVICE :NAME "mtrgtrans" :ALIASES NIL :PORT 19398 :PROTO "udp">
 #<SERVICE :NAME "hp-sco" :ALIASES NIL :PORT 19410 :PROTO "tcp">
 #<SERVICE :NAME "hp-sco" :ALIASES NIL :PORT 19410 :PROTO "udp">
 #<SERVICE :NAME "hp-sca" :ALIASES NIL :PORT 19411 :PROTO "tcp">
 #<SERVICE :NAME "hp-sca" :ALIASES NIL :PORT 19411 :PROTO "udp">
 #<SERVICE :NAME "hp-sessmon" :ALIASES NIL :PORT 19412 :PROTO "tcp">
 #<SERVICE :NAME "hp-sessmon" :ALIASES NIL :PORT 19412 :PROTO "udp">
 #<SERVICE :NAME "fxuptp" :ALIASES NIL :PORT 19539 :PROTO "tcp">
 #<SERVICE :NAME "fxuptp" :ALIASES NIL :PORT 19539 :PROTO "udp">
 #<SERVICE :NAME "sxuptp" :ALIASES NIL :PORT 19540 :PROTO "tcp">
 #<SERVICE :NAME "sxuptp" :ALIASES NIL :PORT 19540 :PROTO "udp">
 #<SERVICE :NAME "jcp" :ALIASES NIL :PORT 19541 :PROTO "tcp">
 #<SERVICE :NAME "jcp" :ALIASES NIL :PORT 19541 :PROTO "udp">
 #<SERVICE :NAME "mle" :ALIASES NIL :PORT 19788 :PROTO "udp">
 #<SERVICE :NAME "iec-104-sec" :ALIASES NIL :PORT 19998 :PROTO "tcp">
 #<SERVICE :NAME "dnp-sec" :ALIASES NIL :PORT 19999 :PROTO "tcp">
 #<SERVICE :NAME "dnp-sec" :ALIASES NIL :PORT 19999 :PROTO "udp">
 #<SERVICE :NAME "dnp" :ALIASES NIL :PORT 20000 :PROTO "tcp">
 #<SERVICE :NAME "dnp" :ALIASES NIL :PORT 20000 :PROTO "udp">
 #<SERVICE :NAME "microsan" :ALIASES NIL :PORT 20001 :PROTO "tcp">
 #<SERVICE :NAME "microsan" :ALIASES NIL :PORT 20001 :PROTO "udp">
 #<SERVICE :NAME "commtact-http" :ALIASES NIL :PORT 20002 :PROTO "tcp">
 #<SERVICE :NAME "commtact-http" :ALIASES NIL :PORT 20002 :PROTO "udp">
 #<SERVICE :NAME "commtact-https" :ALIASES NIL :PORT 20003 :PROTO "tcp">
 #<SERVICE :NAME "commtact-https" :ALIASES NIL :PORT 20003 :PROTO "udp">
 #<SERVICE :NAME "openwebnet" :ALIASES NIL :PORT 20005 :PROTO "tcp">
 #<SERVICE :NAME "openwebnet" :ALIASES NIL :PORT 20005 :PROTO "udp">
 #<SERVICE :NAME "ss-idi-disc" :ALIASES NIL :PORT 20012 :PROTO "udp">
 #<SERVICE :NAME "ss-idi" :ALIASES NIL :PORT 20013 :PROTO "tcp">
 #<SERVICE :NAME "opendeploy" :ALIASES NIL :PORT 20014 :PROTO "tcp">
 #<SERVICE :NAME "opendeploy" :ALIASES NIL :PORT 20014 :PROTO "udp">
 #<SERVICE :NAME "nburn_id" :ALIASES ("nburn-id") :PORT 20034 :PROTO "tcp">
 #<SERVICE :NAME "nburn_id" :ALIASES ("nburn-id") :PORT 20034 :PROTO "udp">
 #<SERVICE :NAME "tmophl7mts" :ALIASES NIL :PORT 20046 :PROTO "tcp">
 #<SERVICE :NAME "tmophl7mts" :ALIASES NIL :PORT 20046 :PROTO "udp">
 #<SERVICE :NAME "mountd" :ALIASES NIL :PORT 20048 :PROTO "tcp">
 #<SERVICE :NAME "mountd" :ALIASES NIL :PORT 20048 :PROTO "udp">
 #<SERVICE :NAME "nfsrdma" :ALIASES NIL :PORT 20049 :PROTO "tcp">
 #<SERVICE :NAME "nfsrdma" :ALIASES NIL :PORT 20049 :PROTO "udp">
 #<SERVICE :NAME "nfsrdma" :ALIASES NIL :PORT 20049 :PROTO "sctp">
 #<SERVICE :NAME "avesterra" :ALIASES NIL :PORT 20057 :PROTO "tcp">
 #<SERVICE :NAME "tolfab" :ALIASES NIL :PORT 20167 :PROTO "tcp">
 #<SERVICE :NAME "tolfab" :ALIASES NIL :PORT 20167 :PROTO "udp">
 #<SERVICE :NAME "ipdtp-port" :ALIASES NIL :PORT 20202 :PROTO "tcp">
 #<SERVICE :NAME "ipdtp-port" :ALIASES NIL :PORT 20202 :PROTO "udp">
 #<SERVICE :NAME "ipulse-ics" :ALIASES NIL :PORT 20222 :PROTO "tcp">
 #<SERVICE :NAME "ipulse-ics" :ALIASES NIL :PORT 20222 :PROTO "udp">
 #<SERVICE :NAME "emwavemsg" :ALIASES NIL :PORT 20480 :PROTO "tcp">
 #<SERVICE :NAME "emwavemsg" :ALIASES NIL :PORT 20480 :PROTO "udp">
 #<SERVICE :NAME "track" :ALIASES NIL :PORT 20670 :PROTO "tcp">
 #<SERVICE :NAME "track" :ALIASES NIL :PORT 20670 :PROTO "udp">
 #<SERVICE :NAME "athand-mmp" :ALIASES NIL :PORT 20999 :PROTO "tcp">
 #<SERVICE :NAME "athand-mmp" :ALIASES NIL :PORT 20999 :PROTO "udp">
 #<SERVICE :NAME "irtrans" :ALIASES NIL :PORT 21000 :PROTO "tcp">
 #<SERVICE :NAME "irtrans" :ALIASES NIL :PORT 21000 :PROTO "udp">
 #<SERVICE :NAME "notezilla-lan" :ALIASES NIL :PORT 21010 :PROTO "tcp">
 #<SERVICE :NAME "rdm-tfs" :ALIASES NIL :PORT 21553 :PROTO "tcp">
 #<SERVICE :NAME "dfserver" :ALIASES NIL :PORT 21554 :PROTO "tcp">
 #<SERVICE :NAME "dfserver" :ALIASES NIL :PORT 21554 :PROTO "udp">
 #<SERVICE :NAME "vofr-gateway" :ALIASES NIL :PORT 21590 :PROTO "tcp">
 #<SERVICE :NAME "vofr-gateway" :ALIASES NIL :PORT 21590 :PROTO "udp">
 #<SERVICE :NAME "tvpm" :ALIASES NIL :PORT 21800 :PROTO "tcp">
 #<SERVICE :NAME "tvpm" :ALIASES NIL :PORT 21800 :PROTO "udp">
 #<SERVICE :NAME "webphone" :ALIASES NIL :PORT 21845 :PROTO "tcp">
 #<SERVICE :NAME "webphone" :ALIASES NIL :PORT 21845 :PROTO "udp">
 #<SERVICE :NAME "netspeak-is" :ALIASES NIL :PORT 21846 :PROTO "tcp">
 #<SERVICE :NAME "netspeak-is" :ALIASES NIL :PORT 21846 :PROTO "udp">
 #<SERVICE :NAME "netspeak-cs" :ALIASES NIL :PORT 21847 :PROTO "tcp">
 #<SERVICE :NAME "netspeak-cs" :ALIASES NIL :PORT 21847 :PROTO "udp">
 #<SERVICE :NAME "netspeak-acd" :ALIASES NIL :PORT 21848 :PROTO "tcp">
 #<SERVICE :NAME "netspeak-acd" :ALIASES NIL :PORT 21848 :PROTO "udp">
 #<SERVICE :NAME "netspeak-cps" :ALIASES NIL :PORT 21849 :PROTO "tcp">
 #<SERVICE :NAME "netspeak-cps" :ALIASES NIL :PORT 21849 :PROTO "udp">
 #<SERVICE :NAME "snapenetio" :ALIASES NIL :PORT 22000 :PROTO "tcp">
 #<SERVICE :NAME "snapenetio" :ALIASES NIL :PORT 22000 :PROTO "udp">
 #<SERVICE :NAME "optocontrol" :ALIASES NIL :PORT 22001 :PROTO "tcp">
 #<SERVICE :NAME "optocontrol" :ALIASES NIL :PORT 22001 :PROTO "udp">
 #<SERVICE :NAME "optohost002" :ALIASES NIL :PORT 22002 :PROTO "tcp">
 #<SERVICE :NAME "optohost002" :ALIASES NIL :PORT 22002 :PROTO "udp">
 #<SERVICE :NAME "optohost003" :ALIASES NIL :PORT 22003 :PROTO "tcp">
 #<SERVICE :NAME "optohost003" :ALIASES NIL :PORT 22003 :PROTO "udp">
 #<SERVICE :NAME "optohost004" :ALIASES NIL :PORT 22004 :PROTO "tcp">
 #<SERVICE :NAME "optohost004" :ALIASES NIL :PORT 22004 :PROTO "udp">
 #<SERVICE :NAME "optohost005" :ALIASES NIL :PORT 22005 :PROTO "tcp">
 #<SERVICE :NAME "optohost005" :ALIASES NIL :PORT 22005 :PROTO "udp">
 #<SERVICE :NAME "dcap" :ALIASES NIL :PORT 22125 :PROTO "tcp">
 #<SERVICE :NAME "gsidcap" :ALIASES NIL :PORT 22128 :PROTO "tcp">
 #<SERVICE :NAME "easyengine" :ALIASES NIL :PORT 22222 :PROTO "tcp">
 #<SERVICE :NAME "cis" :ALIASES NIL :PORT 22305 :PROTO "udp">
 #<SERVICE :NAME "shrewd-control" :ALIASES NIL :PORT 22335 :PROTO "tcp">
 #<SERVICE :NAME "shrewd-stream" :ALIASES NIL :PORT 22335 :PROTO "udp">
 #<SERVICE :NAME "cis-secure" :ALIASES NIL :PORT 22343 :PROTO "tcp">
 #<SERVICE :NAME "cis-secure" :ALIASES NIL :PORT 22343 :PROTO "udp">
 #<SERVICE :NAME "WibuKey" :ALIASES NIL :PORT 22347 :PROTO "tcp">
 #<SERVICE :NAME "WibuKey" :ALIASES NIL :PORT 22347 :PROTO "udp">
 #<SERVICE :NAME "CodeMeter" :ALIASES NIL :PORT 22350 :PROTO "tcp">
 #<SERVICE :NAME "CodeMeter" :ALIASES NIL :PORT 22350 :PROTO "udp">
 #<SERVICE :NAME "codemeter-cmwan" :ALIASES NIL :PORT 22351 :PROTO "tcp">
 #<SERVICE :NAME "caldsoft-backup" :ALIASES NIL :PORT 22537 :PROTO "tcp">
 #<SERVICE :NAME "vocaltec-wconf" :ALIASES NIL :PORT 22555 :PROTO "tcp">
 #<SERVICE :NAME "vocaltec-phone" :ALIASES NIL :PORT 22555 :PROTO "udp">
 #<SERVICE :NAME "talikaserver" :ALIASES NIL :PORT 22763 :PROTO "tcp">
 #<SERVICE :NAME "talikaserver" :ALIASES NIL :PORT 22763 :PROTO "udp">
 #<SERVICE :NAME "aws-brf" :ALIASES NIL :PORT 22800 :PROTO "tcp">
 #<SERVICE :NAME "aws-brf" :ALIASES NIL :PORT 22800 :PROTO "udp">
 #<SERVICE :NAME "brf-gw" :ALIASES NIL :PORT 22951 :PROTO "tcp">
 #<SERVICE :NAME "brf-gw" :ALIASES NIL :PORT 22951 :PROTO "udp">
 #<SERVICE :NAME "inovaport1" :ALIASES NIL :PORT 23000 :PROTO "tcp">
 #<SERVICE :NAME "inovaport1" :ALIASES NIL :PORT 23000 :PROTO "udp">
 #<SERVICE :NAME "inovaport2" :ALIASES NIL :PORT 23001 :PROTO "tcp">
 #<SERVICE :NAME "inovaport2" :ALIASES NIL :PORT 23001 :PROTO "udp">
 #<SERVICE :NAME "inovaport3" :ALIASES NIL :PORT 23002 :PROTO "tcp">
 #<SERVICE :NAME "inovaport3" :ALIASES NIL :PORT 23002 :PROTO "udp">
 #<SERVICE :NAME "inovaport4" :ALIASES NIL :PORT 23003 :PROTO "tcp">
 #<SERVICE :NAME "inovaport4" :ALIASES NIL :PORT 23003 :PROTO "udp">
 #<SERVICE :NAME "inovaport5" :ALIASES NIL :PORT 23004 :PROTO "tcp">
 #<SERVICE :NAME "inovaport5" :ALIASES NIL :PORT 23004 :PROTO "udp">
 #<SERVICE :NAME "inovaport6" :ALIASES NIL :PORT 23005 :PROTO "tcp">
 #<SERVICE :NAME "inovaport6" :ALIASES NIL :PORT 23005 :PROTO "udp">
 #<SERVICE :NAME "gntp" :ALIASES NIL :PORT 23053 :PROTO "tcp">
 #<SERVICE :NAME "s102" :ALIASES NIL :PORT 23272 :PROTO "udp">
 #<SERVICE :NAME "5afe-dir" :ALIASES NIL :PORT 23294 :PROTO "tcp">
 #<SERVICE :NAME "5afe-disc" :ALIASES NIL :PORT 23294 :PROTO "udp">
 #<SERVICE :NAME "elxmgmt" :ALIASES NIL :PORT 23333 :PROTO "tcp">
 #<SERVICE :NAME "elxmgmt" :ALIASES NIL :PORT 23333 :PROTO "udp">
 #<SERVICE :NAME "novar-dbase" :ALIASES NIL :PORT 23400 :PROTO "tcp">
 #<SERVICE :NAME "novar-dbase" :ALIASES NIL :PORT 23400 :PROTO "udp">
 #<SERVICE :NAME "novar-alarm" :ALIASES NIL :PORT 23401 :PROTO "tcp">
 #<SERVICE :NAME "novar-alarm" :ALIASES NIL :PORT 23401 :PROTO "udp">
 #<SERVICE :NAME "novar-global" :ALIASES NIL :PORT 23402 :PROTO "tcp">
 #<SERVICE :NAME "novar-global" :ALIASES NIL :PORT 23402 :PROTO "udp">
 #<SERVICE :NAME "aequus" :ALIASES NIL :PORT 23456 :PROTO "tcp">
 #<SERVICE :NAME "aequus-alt" :ALIASES NIL :PORT 23457 :PROTO "tcp">
 #<SERVICE :NAME "areaguard-neo" :ALIASES NIL :PORT 23546 :PROTO "tcp">
 #<SERVICE :NAME "med-ltp" :ALIASES NIL :PORT 24000 :PROTO "tcp">
 #<SERVICE :NAME "med-ltp" :ALIASES NIL :PORT 24000 :PROTO "udp">
 #<SERVICE :NAME "med-fsp-rx" :ALIASES NIL :PORT 24001 :PROTO "tcp">
 #<SERVICE :NAME "med-fsp-rx" :ALIASES NIL :PORT 24001 :PROTO "udp">
 #<SERVICE :NAME "med-fsp-tx" :ALIASES NIL :PORT 24002 :PROTO "tcp">
 #<SERVICE :NAME "med-fsp-tx" :ALIASES NIL :PORT 24002 :PROTO "udp">
 #<SERVICE :NAME "med-supp" :ALIASES NIL :PORT 24003 :PROTO "tcp">
 #<SERVICE :NAME "med-supp" :ALIASES NIL :PORT 24003 :PROTO "udp">
 #<SERVICE :NAME "med-ovw" :ALIASES NIL :PORT 24004 :PROTO "tcp">
 #<SERVICE :NAME "med-ovw" :ALIASES NIL :PORT 24004 :PROTO "udp">
 #<SERVICE :NAME "med-ci" :ALIASES NIL :PORT 24005 :PROTO "tcp">
 #<SERVICE :NAME "med-ci" :ALIASES NIL :PORT 24005 :PROTO "udp">
 #<SERVICE :NAME "med-net-svc" :ALIASES NIL :PORT 24006 :PROTO "tcp">
 #<SERVICE :NAME "med-net-svc" :ALIASES NIL :PORT 24006 :PROTO "udp">
 #<SERVICE :NAME "filesphere" :ALIASES NIL :PORT 24242 :PROTO "tcp">
 #<SERVICE :NAME "filesphere" :ALIASES NIL :PORT 24242 :PROTO "udp">
 #<SERVICE :NAME "vista-4gl" :ALIASES NIL :PORT 24249 :PROTO "tcp">
 #<SERVICE :NAME "vista-4gl" :ALIASES NIL :PORT 24249 :PROTO "udp">
 #<SERVICE :NAME "ild" :ALIASES NIL :PORT 24321 :PROTO "tcp">
 #<SERVICE :NAME "ild" :ALIASES NIL :PORT 24321 :PROTO "udp">
 #<SERVICE :NAME "hid" :ALIASES NIL :PORT 24322 :PROTO "udp">
 #<SERVICE :NAME "intel_rci" :ALIASES ("intel-rci") :PORT 24386 :PROTO "tcp">
 #<SERVICE :NAME "intel_rci" :ALIASES ("intel-rci") :PORT 24386 :PROTO "udp">
 #<SERVICE :NAME "tonidods" :ALIASES NIL :PORT 24465 :PROTO "tcp">
 #<SERVICE :NAME "tonidods" :ALIASES NIL :PORT 24465 :PROTO "udp">
 #<SERVICE :NAME "bilobit" :ALIASES NIL :PORT 24577 :PROTO "tcp">
 #<SERVICE :NAME "bilobit-update" :ALIASES NIL :PORT 24577 :PROTO "udp">
 #<SERVICE :NAME "flashfiler" :ALIASES NIL :PORT 24677 :PROTO "tcp">
 #<SERVICE :NAME "flashfiler" :ALIASES NIL :PORT 24677 :PROTO "udp">
 #<SERVICE :NAME "proactivate" :ALIASES NIL :PORT 24678 :PROTO "tcp">
 #<SERVICE :NAME "proactivate" :ALIASES NIL :PORT 24678 :PROTO "udp">
 #<SERVICE :NAME "tcc-http" :ALIASES NIL :PORT 24680 :PROTO "tcp">
 #<SERVICE :NAME "tcc-http" :ALIASES NIL :PORT 24680 :PROTO "udp">
 #<SERVICE :NAME "cslg" :ALIASES NIL :PORT 24754 :PROTO "tcp">
 #<SERVICE :NAME "assoc-disc" :ALIASES NIL :PORT 24850 :PROTO "udp">
 #<SERVICE :NAME "find" :ALIASES NIL :PORT 24922 :PROTO "tcp">
 #<SERVICE :NAME "find" :ALIASES NIL :PORT 24922 :PROTO "udp">
 #<SERVICE :NAME "icl-twobase1" :ALIASES NIL :PORT 25000 :PROTO "tcp">
 #<SERVICE :NAME "icl-twobase1" :ALIASES NIL :PORT 25000 :PROTO "udp">
 #<SERVICE :NAME "icl-twobase2" :ALIASES NIL :PORT 25001 :PROTO "tcp">
 #<SERVICE :NAME "icl-twobase2" :ALIASES NIL :PORT 25001 :PROTO "udp">
 #<SERVICE :NAME "icl-twobase3" :ALIASES NIL :PORT 25002 :PROTO "tcp">
 #<SERVICE :NAME "icl-twobase3" :ALIASES NIL :PORT 25002 :PROTO "udp">
 #<SERVICE :NAME "icl-twobase4" :ALIASES NIL :PORT 25003 :PROTO "tcp">
 #<SERVICE :NAME "icl-twobase4" :ALIASES NIL :PORT 25003 :PROTO "udp">
 #<SERVICE :NAME "icl-twobase5" :ALIASES NIL :PORT 25004 :PROTO "tcp">
 #<SERVICE :NAME "icl-twobase5" :ALIASES NIL :PORT 25004 :PROTO "udp">
 #<SERVICE :NAME "icl-twobase6" :ALIASES NIL :PORT 25005 :PROTO "tcp">
 #<SERVICE :NAME "icl-twobase6" :ALIASES NIL :PORT 25005 :PROTO "udp">
 #<SERVICE :NAME "icl-twobase7" :ALIASES NIL :PORT 25006 :PROTO "tcp">
 #<SERVICE :NAME "icl-twobase7" :ALIASES NIL :PORT 25006 :PROTO "udp">
 #<SERVICE :NAME "icl-twobase8" :ALIASES NIL :PORT 25007 :PROTO "tcp">
 #<SERVICE :NAME "icl-twobase8" :ALIASES NIL :PORT 25007 :PROTO "udp">
 #<SERVICE :NAME "icl-twobase9" :ALIASES NIL :PORT 25008 :PROTO "tcp">
 #<SERVICE :NAME "icl-twobase9" :ALIASES NIL :PORT 25008 :PROTO "udp">
 #<SERVICE :NAME "icl-twobase10" :ALIASES NIL :PORT 25009 :PROTO "tcp">
 #<SERVICE :NAME "icl-twobase10" :ALIASES NIL :PORT 25009 :PROTO "udp">
 #<SERVICE :NAME "rna" :ALIASES NIL :PORT 25471 :PROTO "sctp">
 #<SERVICE :NAME "sauterdongle" :ALIASES NIL :PORT 25576 :PROTO "tcp">
 #<SERVICE :NAME "idtp" :ALIASES NIL :PORT 25604 :PROTO "tcp">
 #<SERVICE :NAME "vocaltec-hos" :ALIASES NIL :PORT 25793 :PROTO "tcp">
 #<SERVICE :NAME "vocaltec-hos" :ALIASES NIL :PORT 25793 :PROTO "udp">
 #<SERVICE :NAME "tasp-net" :ALIASES NIL :PORT 25900 :PROTO "tcp">
 #<SERVICE :NAME "tasp-net" :ALIASES NIL :PORT 25900 :PROTO "udp">
 #<SERVICE :NAME "niobserver" :ALIASES NIL :PORT 25901 :PROTO "tcp">
 #<SERVICE :NAME "niobserver" :ALIASES NIL :PORT 25901 :PROTO "udp">
 #<SERVICE :NAME "nilinkanalyst" :ALIASES NIL :PORT 25902 :PROTO "tcp">
 #<SERVICE :NAME "nilinkanalyst" :ALIASES NIL :PORT 25902 :PROTO "udp">
 #<SERVICE :NAME "niprobe" :ALIASES NIL :PORT 25903 :PROTO "tcp">
 #<SERVICE :NAME "niprobe" :ALIASES NIL :PORT 25903 :PROTO "udp">
 #<SERVICE :NAME "bf-game" :ALIASES NIL :PORT 25954 :PROTO "udp">
 #<SERVICE :NAME "bf-master" :ALIASES NIL :PORT 25955 :PROTO "udp">
 #<SERVICE :NAME "scscp" :ALIASES NIL :PORT 26133 :PROTO "tcp">
 #<SERVICE :NAME "scscp" :ALIASES NIL :PORT 26133 :PROTO "udp">
 #<SERVICE :NAME "cockroach" :ALIASES NIL :PORT 26257 :PROTO "tcp">
 #<SERVICE :NAME "ezproxy" :ALIASES NIL :PORT 26260 :PROTO "tcp">
 #<SERVICE :NAME "ezproxy" :ALIASES NIL :PORT 26260 :PROTO "udp">
 #<SERVICE :NAME "ezmeeting" :ALIASES NIL :PORT 26261 :PROTO "tcp">
 #<SERVICE :NAME "ezmeeting" :ALIASES NIL :PORT 26261 :PROTO "udp">
 #<SERVICE :NAME "k3software-svr" :ALIASES NIL :PORT 26262 :PROTO "tcp">
 #<SERVICE :NAME "k3software-svr" :ALIASES NIL :PORT 26262 :PROTO "udp">
 #<SERVICE :NAME "k3software-cli" :ALIASES NIL :PORT 26263 :PROTO "tcp">
 #<SERVICE :NAME "k3software-cli" :ALIASES NIL :PORT 26263 :PROTO "udp">
 #<SERVICE :NAME "exoline-tcp" :ALIASES NIL :PORT 26486 :PROTO "tcp">
 #<SERVICE :NAME "exoline-udp" :ALIASES NIL :PORT 26486 :PROTO "udp">
 #<SERVICE :NAME "exoconfig" :ALIASES NIL :PORT 26487 :PROTO "tcp">
 #<SERVICE :NAME "exoconfig" :ALIASES NIL :PORT 26487 :PROTO "udp">
 #<SERVICE :NAME "exonet" :ALIASES NIL :PORT 26489 :PROTO "tcp">
 #<SERVICE :NAME "exonet" :ALIASES NIL :PORT 26489 :PROTO "udp">
 #<SERVICE :NAME "imagepump" :ALIASES NIL :PORT 27345 :PROTO "tcp">
 #<SERVICE :NAME "imagepump" :ALIASES NIL :PORT 27345 :PROTO "udp">
 #<SERVICE :NAME "jesmsjc" :ALIASES NIL :PORT 27442 :PROTO "tcp">
 #<SERVICE :NAME "jesmsjc" :ALIASES NIL :PORT 27442 :PROTO "udp">
 #<SERVICE :NAME "kopek-httphead" :ALIASES NIL :PORT 27504 :PROTO "tcp">
 #<SERVICE :NAME "kopek-httphead" :ALIASES NIL :PORT 27504 :PROTO "udp">
 #<SERVICE :NAME "ars-vista" :ALIASES NIL :PORT 27782 :PROTO "tcp">
 #<SERVICE :NAME "ars-vista" :ALIASES NIL :PORT 27782 :PROTO "udp">
 #<SERVICE :NAME "astrolink" :ALIASES NIL :PORT 27876 :PROTO "tcp">
 #<SERVICE :NAME "tw-auth-key" :ALIASES NIL :PORT 27999 :PROTO "tcp">
 #<SERVICE :NAME "tw-auth-key" :ALIASES NIL :PORT 27999 :PROTO "udp">
 #<SERVICE :NAME "nxlmd" :ALIASES NIL :PORT 28000 :PROTO "tcp">
 #<SERVICE :NAME "nxlmd" :ALIASES NIL :PORT 28000 :PROTO "udp">
 #<SERVICE :NAME "pqsp" :ALIASES NIL :PORT 28001 :PROTO "tcp">
 #<SERVICE :NAME "a27-ran-ran" :ALIASES NIL :PORT 28119 :PROTO "udp">
 #<SERVICE :NAME "voxelstorm" :ALIASES NIL :PORT 28200 :PROTO "tcp">
 #<SERVICE :NAME "voxelstorm" :ALIASES NIL :PORT 28200 :PROTO "udp">
 #<SERVICE :NAME "siemensgsm" :ALIASES NIL :PORT 28240 :PROTO "tcp">
 #<SERVICE :NAME "siemensgsm" :ALIASES NIL :PORT 28240 :PROTO "udp">
 #<SERVICE :NAME "bosswave" :ALIASES NIL :PORT 28589 :PROTO "tcp">
 #<SERVICE :NAME "sgsap" :ALIASES NIL :PORT 29118 :PROTO "sctp">
 #<SERVICE :NAME "otmp" :ALIASES NIL :PORT 29167 :PROTO "tcp">
 #<SERVICE :NAME "otmp" :ALIASES NIL :PORT 29167 :PROTO "udp">
 #<SERVICE :NAME "sbcap" :ALIASES NIL :PORT 29168 :PROTO "sctp">
 #<SERVICE :NAME "iuhsctpassoc" :ALIASES NIL :PORT 29169 :PROTO "sctp">
 #<SERVICE :NAME "bingbang" :ALIASES NIL :PORT 29999 :PROTO "tcp">
 #<SERVICE :NAME "ndmps" :ALIASES NIL :PORT 30000 :PROTO "tcp">
 #<SERVICE :NAME "pago-services1" :ALIASES NIL :PORT 30001 :PROTO "tcp">
 #<SERVICE :NAME "pago-services1" :ALIASES NIL :PORT 30001 :PROTO "udp">
 #<SERVICE :NAME "pago-services2" :ALIASES NIL :PORT 30002 :PROTO "tcp">
 #<SERVICE :NAME "pago-services2" :ALIASES NIL :PORT 30002 :PROTO "udp">
 #<SERVICE :NAME "amicon-fpsu-ra" :ALIASES NIL :PORT 30003 :PROTO "tcp">
 #<SERVICE :NAME "amicon-fpsu-ra" :ALIASES NIL :PORT 30003 :PROTO "udp">
 #<SERVICE :NAME "amicon-fpsu-s" :ALIASES NIL :PORT 30004 :PROTO "udp">
 #<SERVICE :NAME "rwp" :ALIASES NIL :PORT 30100 :PROTO "tcp">
 #<SERVICE :NAME "rwp" :ALIASES NIL :PORT 30100 :PROTO "sctp">
 #<SERVICE :NAME "kingdomsonline" :ALIASES NIL :PORT 30260 :PROTO "tcp">
 #<SERVICE :NAME "kingdomsonline" :ALIASES NIL :PORT 30260 :PROTO "udp">
 #<SERVICE :NAME "samsung-disc" :ALIASES NIL :PORT 30832 :PROTO "udp">
 #<SERVICE :NAME "ovobs" :ALIASES NIL :PORT 30999 :PROTO "tcp">
 #<SERVICE :NAME "ovobs" :ALIASES NIL :PORT 30999 :PROTO "udp">
 #<SERVICE :NAME "autotrac-acp" :ALIASES NIL :PORT 31020 :PROTO "tcp">
 #<SERVICE :NAME "yawn" :ALIASES NIL :PORT 31029 :PROTO "udp">
 #<SERVICE :NAME "pace-licensed" :ALIASES NIL :PORT 31400 :PROTO "tcp">
 #<SERVICE :NAME "xqosd" :ALIASES NIL :PORT 31416 :PROTO "tcp">
 #<SERVICE :NAME "xqosd" :ALIASES NIL :PORT 31416 :PROTO "udp">
 #<SERVICE :NAME "tetrinet" :ALIASES NIL :PORT 31457 :PROTO "tcp">
 #<SERVICE :NAME "tetrinet" :ALIASES NIL :PORT 31457 :PROTO "udp">
 #<SERVICE :NAME "lm-mon" :ALIASES NIL :PORT 31620 :PROTO "tcp">
 #<SERVICE :NAME "lm-mon" :ALIASES NIL :PORT 31620 :PROTO "udp">
 #<SERVICE :NAME "dsx_monitor" :ALIASES ("dsx-monitor") :PORT 31685
   :PROTO "tcp">
 #<SERVICE :NAME "gamesmith-port" :ALIASES NIL :PORT 31765 :PROTO "tcp">
 #<SERVICE :NAME "gamesmith-port" :ALIASES NIL :PORT 31765 :PROTO "udp">
 #<SERVICE :NAME "iceedcp_tx" :ALIASES ("iceedcp-tx") :PORT 31948 :PROTO "tcp">
 #<SERVICE :NAME "iceedcp_tx" :ALIASES ("iceedcp-tx") :PORT 31948 :PROTO "udp">
 #<SERVICE :NAME "iceedcp_rx" :ALIASES ("iceedcp-rx") :PORT 31949 :PROTO "tcp">
 #<SERVICE :NAME "iceedcp_rx" :ALIASES ("iceedcp-rx") :PORT 31949 :PROTO "udp">
 #<SERVICE :NAME "iracinghelper" :ALIASES NIL :PORT 32034 :PROTO "tcp">
 #<SERVICE :NAME "iracinghelper" :ALIASES NIL :PORT 32034 :PROTO "udp">
 #<SERVICE :NAME "t1distproc60" :ALIASES NIL :PORT 32249 :PROTO "tcp">
 #<SERVICE :NAME "t1distproc60" :ALIASES NIL :PORT 32249 :PROTO "udp">
 #<SERVICE :NAME "plex" :ALIASES NIL :PORT 32400 :PROTO "tcp">
 #<SERVICE :NAME "apm-link" :ALIASES NIL :PORT 32483 :PROTO "tcp">
 #<SERVICE :NAME "apm-link" :ALIASES NIL :PORT 32483 :PROTO "udp">
 #<SERVICE :NAME "sec-ntb-clnt" :ALIASES NIL :PORT 32635 :PROTO "tcp">
 #<SERVICE :NAME "sec-ntb-clnt" :ALIASES NIL :PORT 32635 :PROTO "udp">
 #<SERVICE :NAME "DMExpress" :ALIASES NIL :PORT 32636 :PROTO "tcp">
 #<SERVICE :NAME "DMExpress" :ALIASES NIL :PORT 32636 :PROTO "udp">
 #<SERVICE :NAME "filenet-powsrm" :ALIASES NIL :PORT 32767 :PROTO "tcp">
 #<SERVICE :NAME "filenet-powsrm" :ALIASES NIL :PORT 32767 :PROTO "udp">
 #<SERVICE :NAME "filenet-tms" :ALIASES NIL :PORT 32768 :PROTO "tcp">
 #<SERVICE :NAME "filenet-tms" :ALIASES NIL :PORT 32768 :PROTO "udp">
 #<SERVICE :NAME "filenet-rpc" :ALIASES NIL :PORT 32769 :PROTO "tcp">
 #<SERVICE :NAME "filenet-rpc" :ALIASES NIL :PORT 32769 :PROTO "udp">
 #<SERVICE :NAME "filenet-nch" :ALIASES NIL :PORT 32770 :PROTO "tcp">
 #<SERVICE :NAME "filenet-nch" :ALIASES NIL :PORT 32770 :PROTO "udp">
 #<SERVICE :NAME "filenet-rmi" :ALIASES NIL :PORT 32771 :PROTO "tcp">
 #<SERVICE :NAME "filenet-rmi" :ALIASES NIL :PORT 32771 :PROTO "udp">
 #<SERVICE :NAME "filenet-pa" :ALIASES NIL :PORT 32772 :PROTO "tcp">
 #<SERVICE :NAME "filenet-pa" :ALIASES NIL :PORT 32772 :PROTO "udp">
 #<SERVICE :NAME "filenet-cm" :ALIASES NIL :PORT 32773 :PROTO "tcp">
 #<SERVICE :NAME "filenet-cm" :ALIASES NIL :PORT 32773 :PROTO "udp">
 #<SERVICE :NAME "filenet-re" :ALIASES NIL :PORT 32774 :PROTO "tcp">
 #<SERVICE :NAME "filenet-re" :ALIASES NIL :PORT 32774 :PROTO "udp">
 #<SERVICE :NAME "filenet-pch" :ALIASES NIL :PORT 32775 :PROTO "tcp">
 #<SERVICE :NAME "filenet-pch" :ALIASES NIL :PORT 32775 :PROTO "udp">
 #<SERVICE :NAME "filenet-peior" :ALIASES NIL :PORT 32776 :PROTO "tcp">
 #<SERVICE :NAME "filenet-peior" :ALIASES NIL :PORT 32776 :PROTO "udp">
 #<SERVICE :NAME "filenet-obrok" :ALIASES NIL :PORT 32777 :PROTO "tcp">
 #<SERVICE :NAME "filenet-obrok" :ALIASES NIL :PORT 32777 :PROTO "udp">
 #<SERVICE :NAME "mlsn" :ALIASES NIL :PORT 32801 :PROTO "tcp">
 #<SERVICE :NAME "mlsn" :ALIASES NIL :PORT 32801 :PROTO "udp">
 #<SERVICE :NAME "retp" :ALIASES NIL :PORT 32811 :PROTO "tcp">
 #<SERVICE :NAME "idmgratm" :ALIASES NIL :PORT 32896 :PROTO "tcp">
 #<SERVICE :NAME "idmgratm" :ALIASES NIL :PORT 32896 :PROTO "udp">
 #<SERVICE :NAME "mysqlx" :ALIASES NIL :PORT 33060 :PROTO "tcp">
 #<SERVICE :NAME "aurora-balaena" :ALIASES NIL :PORT 33123 :PROTO "tcp">
 #<SERVICE :NAME "aurora-balaena" :ALIASES NIL :PORT 33123 :PROTO "udp">
 #<SERVICE :NAME "diamondport" :ALIASES NIL :PORT 33331 :PROTO "tcp">
 #<SERVICE :NAME "diamondport" :ALIASES NIL :PORT 33331 :PROTO "udp">
 #<SERVICE :NAME "dgi-serv" :ALIASES NIL :PORT 33333 :PROTO "tcp">
 #<SERVICE :NAME "speedtrace" :ALIASES NIL :PORT 33334 :PROTO "tcp">
 #<SERVICE :NAME "speedtrace-disc" :ALIASES NIL :PORT 33334 :PROTO "udp">
 #<SERVICE :NAME "snip-slave" :ALIASES NIL :PORT 33656 :PROTO "tcp">
 #<SERVICE :NAME "snip-slave" :ALIASES NIL :PORT 33656 :PROTO "udp">
 #<SERVICE :NAME "turbonote-2" :ALIASES NIL :PORT 34249 :PROTO "tcp">
 #<SERVICE :NAME "turbonote-2" :ALIASES NIL :PORT 34249 :PROTO "udp">
 #<SERVICE :NAME "p-net-local" :ALIASES NIL :PORT 34378 :PROTO "tcp">
 #<SERVICE :NAME "p-net-local" :ALIASES NIL :PORT 34378 :PROTO "udp">
 #<SERVICE :NAME "p-net-remote" :ALIASES NIL :PORT 34379 :PROTO "tcp">
 #<SERVICE :NAME "p-net-remote" :ALIASES NIL :PORT 34379 :PROTO "udp">
 #<SERVICE :NAME "dhanalakshmi" :ALIASES NIL :PORT 34567 :PROTO "tcp">
 #<SERVICE :NAME "profinet-rt" :ALIASES NIL :PORT 34962 :PROTO "tcp">
 #<SERVICE :NAME "profinet-rt" :ALIASES NIL :PORT 34962 :PROTO "udp">
 #<SERVICE :NAME "profinet-rtm" :ALIASES NIL :PORT 34963 :PROTO "tcp">
 #<SERVICE :NAME "profinet-rtm" :ALIASES NIL :PORT 34963 :PROTO "udp">
 #<SERVICE :NAME "profinet-cm" :ALIASES NIL :PORT 34964 :PROTO "tcp">
 #<SERVICE :NAME "profinet-cm" :ALIASES NIL :PORT 34964 :PROTO "udp">
 #<SERVICE :NAME "ethercat" :ALIASES NIL :PORT 34980 :PROTO "tcp">
 #<SERVICE :NAME "ethercat" :ALIASES NIL :PORT 34980 :PROTO "udp">
 #<SERVICE :NAME "heathview" :ALIASES NIL :PORT 35000 :PROTO "tcp">
 #<SERVICE :NAME "rt-viewer" :ALIASES NIL :PORT 35001 :PROTO "tcp">
 #<SERVICE :NAME "rt-viewer" :ALIASES NIL :PORT 35001 :PROTO "udp">
 #<SERVICE :NAME "rt-sound" :ALIASES NIL :PORT 35002 :PROTO "tcp">
 #<SERVICE :NAME "rt-devicemapper" :ALIASES NIL :PORT 35003 :PROTO "tcp">
 #<SERVICE :NAME "rt-classmanager" :ALIASES NIL :PORT 35004 :PROTO "tcp">
 #<SERVICE :NAME "rt-classmanager" :ALIASES NIL :PORT 35004 :PROTO "udp">
 #<SERVICE :NAME "rt-labtracker" :ALIASES NIL :PORT 35005 :PROTO "tcp">
 #<SERVICE :NAME "rt-helper" :ALIASES NIL :PORT 35006 :PROTO "tcp">
 #<SERVICE :NAME "kitim" :ALIASES NIL :PORT 35354 :PROTO "tcp">
 #<SERVICE :NAME "altova-lm" :ALIASES NIL :PORT 35355 :PROTO "tcp">
 #<SERVICE :NAME "altova-lm-disc" :ALIASES NIL :PORT 35355 :PROTO "udp">
 #<SERVICE :NAME "guttersnex" :ALIASES NIL :PORT 35356 :PROTO "tcp">
 #<SERVICE :NAME "openstack-id" :ALIASES NIL :PORT 35357 :PROTO "tcp">
 #<SERVICE :NAME "allpeers" :ALIASES NIL :PORT 36001 :PROTO "tcp">
 #<SERVICE :NAME "allpeers" :ALIASES NIL :PORT 36001 :PROTO "udp">
 #<SERVICE :NAME "wlcp" :ALIASES NIL :PORT 36411 :PROTO "udp">
 #<SERVICE :NAME "s1-control" :ALIASES NIL :PORT 36412 :PROTO "sctp">
 #<SERVICE :NAME "x2-control" :ALIASES NIL :PORT 36422 :PROTO "sctp">
 #<SERVICE :NAME "slmap" :ALIASES NIL :PORT 36423 :PROTO "sctp">
 #<SERVICE :NAME "nq-ap" :ALIASES NIL :PORT 36424 :PROTO "sctp">
 #<SERVICE :NAME "m2ap" :ALIASES NIL :PORT 36443 :PROTO "sctp">
 #<SERVICE :NAME "m3ap" :ALIASES NIL :PORT 36444 :PROTO "sctp">
 #<SERVICE :NAME "xw-control" :ALIASES NIL :PORT 36462 :PROTO "sctp">
 #<SERVICE :NAME "febooti-aw" :ALIASES NIL :PORT 36524 :PROTO "tcp">
 #<SERVICE :NAME "observium-agent" :ALIASES NIL :PORT 36602 :PROTO "tcp">
 #<SERVICE :NAME "kastenxpipe" :ALIASES NIL :PORT 36865 :PROTO "tcp">
 #<SERVICE :NAME "kastenxpipe" :ALIASES NIL :PORT 36865 :PROTO "udp">
 #<SERVICE :NAME "mapx" :ALIASES NIL :PORT 36700 :PROTO "tcp">
 #<SERVICE :NAME "neckar" :ALIASES NIL :PORT 37475 :PROTO "tcp">
 #<SERVICE :NAME "neckar" :ALIASES NIL :PORT 37475 :PROTO "udp">
 #<SERVICE :NAME "eftp" :ALIASES NIL :PORT 37601 :PROTO "tcp">
 #<SERVICE :NAME "unisys-eportal" :ALIASES NIL :PORT 37654 :PROTO "tcp">
 #<SERVICE :NAME "unisys-eportal" :ALIASES NIL :PORT 37654 :PROTO "udp">
 #<SERVICE :NAME "gdrive-sync" :ALIASES NIL :PORT 37483 :PROTO "tcp">
 #<SERVICE :NAME "ivs-database" :ALIASES NIL :PORT 38000 :PROTO "tcp">
 #<SERVICE :NAME "ivs-insertion" :ALIASES NIL :PORT 38001 :PROTO "tcp">
 #<SERVICE :NAME "cresco-control" :ALIASES NIL :PORT 38002 :PROTO "tcp">
 #<SERVICE :NAME "crescoctrl-disc" :ALIASES NIL :PORT 38002 :PROTO "udp">
 #<SERVICE :NAME "galaxy7-data" :ALIASES NIL :PORT 38201 :PROTO "tcp">
 #<SERVICE :NAME "galaxy7-data" :ALIASES NIL :PORT 38201 :PROTO "udp">
 #<SERVICE :NAME "fairview" :ALIASES NIL :PORT 38202 :PROTO "tcp">
 #<SERVICE :NAME "fairview" :ALIASES NIL :PORT 38202 :PROTO "udp">
 #<SERVICE :NAME "agpolicy" :ALIASES NIL :PORT 38203 :PROTO "tcp">
 #<SERVICE :NAME "agpolicy" :ALIASES NIL :PORT 38203 :PROTO "udp">
 #<SERVICE :NAME "sruth" :ALIASES NIL :PORT 38800 :PROTO "tcp">
 #<SERVICE :NAME "secrmmsafecopya" :ALIASES NIL :PORT 38865 :PROTO "tcp">
 #<SERVICE :NAME "turbonote-1" :ALIASES NIL :PORT 39681 :PROTO "tcp">
 #<SERVICE :NAME "turbonote-1" :ALIASES NIL :PORT 39681 :PROTO "udp">
 #<SERVICE :NAME "safetynetp" :ALIASES NIL :PORT 40000 :PROTO "tcp">
 #<SERVICE :NAME "safetynetp" :ALIASES NIL :PORT 40000 :PROTO "udp">
 #<SERVICE :NAME "k-patentssensor" :ALIASES NIL :PORT 40023 :PROTO "udp">
 #<SERVICE :NAME "z-wave-s" :ALIASES NIL :PORT 41230 :PROTO "tcp">
 #<SERVICE :NAME "z-wave-s" :ALIASES NIL :PORT 41230 :PROTO "udp">
 #<SERVICE :NAME "sptx" :ALIASES NIL :PORT 40404 :PROTO "tcp">
 #<SERVICE :NAME "cscp" :ALIASES NIL :PORT 40841 :PROTO "tcp">
 #<SERVICE :NAME "cscp" :ALIASES NIL :PORT 40841 :PROTO "udp">
 #<SERVICE :NAME "csccredir" :ALIASES NIL :PORT 40842 :PROTO "tcp">
 #<SERVICE :NAME "csccredir" :ALIASES NIL :PORT 40842 :PROTO "udp">
 #<SERVICE :NAME "csccfirewall" :ALIASES NIL :PORT 40843 :PROTO "tcp">
 #<SERVICE :NAME "csccfirewall" :ALIASES NIL :PORT 40843 :PROTO "udp">
 #<SERVICE :NAME "ortec-disc" :ALIASES NIL :PORT 40853 :PROTO "udp">
 #<SERVICE :NAME "fs-qos" :ALIASES NIL :PORT 41111 :PROTO "tcp">
 #<SERVICE :NAME "fs-qos" :ALIASES NIL :PORT 41111 :PROTO "udp">
 #<SERVICE :NAME "tentacle" :ALIASES NIL :PORT 41121 :PROTO "tcp">
 #<SERVICE :NAME "crestron-cip" :ALIASES NIL :PORT 41794 :PROTO "tcp">
 #<SERVICE :NAME "crestron-cip" :ALIASES NIL :PORT 41794 :PROTO "udp">
 #<SERVICE :NAME "crestron-ctp" :ALIASES NIL :PORT 41795 :PROTO "tcp">
 #<SERVICE :NAME "crestron-ctp" :ALIASES NIL :PORT 41795 :PROTO "udp">
 #<SERVICE :NAME "crestron-cips" :ALIASES NIL :PORT 41796 :PROTO "tcp">
 #<SERVICE :NAME "crestron-ctps" :ALIASES NIL :PORT 41797 :PROTO "tcp">
 #<SERVICE :NAME "candp" :ALIASES NIL :PORT 42508 :PROTO "tcp">
 #<SERVICE :NAME "candp" :ALIASES NIL :PORT 42508 :PROTO "udp">
 #<SERVICE :NAME "candrp" :ALIASES NIL :PORT 42509 :PROTO "tcp">
 #<SERVICE :NAME "candrp" :ALIASES NIL :PORT 42509 :PROTO "udp">
 #<SERVICE :NAME "caerpc" :ALIASES NIL :PORT 42510 :PROTO "tcp">
 #<SERVICE :NAME "caerpc" :ALIASES NIL :PORT 42510 :PROTO "udp">
 #<SERVICE :NAME "recvr-rc" :ALIASES NIL :PORT 43000 :PROTO "tcp">
 #<SERVICE :NAME "recvr-rc-disc" :ALIASES NIL :PORT 43000 :PROTO "udp">
 #<SERVICE :NAME "reachout" :ALIASES NIL :PORT 43188 :PROTO "tcp">
 #<SERVICE :NAME "reachout" :ALIASES NIL :PORT 43188 :PROTO "udp">
 #<SERVICE :NAME "ndm-agent-port" :ALIASES NIL :PORT 43189 :PROTO "tcp">
 #<SERVICE :NAME "ndm-agent-port" :ALIASES NIL :PORT 43189 :PROTO "udp">
 #<SERVICE :NAME "ip-provision" :ALIASES NIL :PORT 43190 :PROTO "tcp">
 #<SERVICE :NAME "ip-provision" :ALIASES NIL :PORT 43190 :PROTO "udp">
 #<SERVICE :NAME "noit-transport" :ALIASES NIL :PORT 43191 :PROTO "tcp">
 #<SERVICE :NAME "shaperai" :ALIASES NIL :PORT 43210 :PROTO "tcp">
 #<SERVICE :NAME "shaperai-disc" :ALIASES NIL :PORT 43210 :PROTO "udp">
 #<SERVICE :NAME "eq3-update" :ALIASES NIL :PORT 43439 :PROTO "tcp">
 #<SERVICE :NAME "eq3-config" :ALIASES NIL :PORT 43439 :PROTO "udp">
 #<SERVICE :NAME "ew-mgmt" :ALIASES NIL :PORT 43440 :PROTO "tcp">
 #<SERVICE :NAME "ew-disc-cmd" :ALIASES NIL :PORT 43440 :PROTO "udp">
 #<SERVICE :NAME "ciscocsdb" :ALIASES NIL :PORT 43441 :PROTO "tcp">
 #<SERVICE :NAME "ciscocsdb" :ALIASES NIL :PORT 43441 :PROTO "udp">
 #<SERVICE :NAME "z-wave-tunnel" :ALIASES NIL :PORT 44123 :PROTO "tcp">
 #<SERVICE :NAME "pmcd" :ALIASES NIL :PORT 44321 :PROTO "tcp">
 #<SERVICE :NAME "pmcd" :ALIASES NIL :PORT 44321 :PROTO "udp">
 #<SERVICE :NAME "pmcdproxy" :ALIASES NIL :PORT 44322 :PROTO "tcp">
 #<SERVICE :NAME "pmcdproxy" :ALIASES NIL :PORT 44322 :PROTO "udp">
 #<SERVICE :NAME "cognex-dataman" :ALIASES NIL :PORT 44444 :PROTO "tcp">
 #<SERVICE :NAME "domiq" :ALIASES NIL :PORT 44544 :PROTO "udp">
 #<SERVICE :NAME "rbr-debug" :ALIASES NIL :PORT 44553 :PROTO "tcp">
 #<SERVICE :NAME "rbr-debug" :ALIASES NIL :PORT 44553 :PROTO "udp">
 #<SERVICE :NAME "asihpi" :ALIASES NIL :PORT 44600 :PROTO "udp">
 #<SERVICE :NAME "EtherNet/IP-2" :ALIASES ("EtherNet-IP-2") :PORT 44818
   :PROTO "tcp">
 #<SERVICE :NAME "EtherNet/IP-2" :ALIASES ("EtherNet-IP-2") :PORT 44818
   :PROTO "udp">
 #<SERVICE :NAME "m3da" :ALIASES NIL :PORT 44900 :PROTO "tcp">
 #<SERVICE :NAME "m3da-disc" :ALIASES NIL :PORT 44900 :PROTO "udp">
 #<SERVICE :NAME "asmp" :ALIASES NIL :PORT 45000 :PROTO "tcp">
 #<SERVICE :NAME "asmp-mon" :ALIASES NIL :PORT 45000 :PROTO "udp">
 #<SERVICE :NAME "asmps" :ALIASES NIL :PORT 45001 :PROTO "tcp">
 #<SERVICE :NAME "rs-status" :ALIASES NIL :PORT 45002 :PROTO "tcp">
 #<SERVICE :NAME "synctest" :ALIASES NIL :PORT 45045 :PROTO "tcp">
 #<SERVICE :NAME "invision-ag" :ALIASES NIL :PORT 45054 :PROTO "tcp">
 #<SERVICE :NAME "invision-ag" :ALIASES NIL :PORT 45054 :PROTO "udp">
 #<SERVICE :NAME "eba" :ALIASES NIL :PORT 45678 :PROTO "tcp">
 #<SERVICE :NAME "eba" :ALIASES NIL :PORT 45678 :PROTO "udp">
 #<SERVICE :NAME "dai-shell" :ALIASES NIL :PORT 45824 :PROTO "tcp">
 #<SERVICE :NAME "qdb2service" :ALIASES NIL :PORT 45825 :PROTO "tcp">
 #<SERVICE :NAME "qdb2service" :ALIASES NIL :PORT 45825 :PROTO "udp">
 #<SERVICE :NAME "ssr-servermgr" :ALIASES NIL :PORT 45966 :PROTO "tcp">
 #<SERVICE :NAME "ssr-servermgr" :ALIASES NIL :PORT 45966 :PROTO "udp">
 #<SERVICE :NAME "inedo" :ALIASES NIL :PORT 46336 :PROTO "tcp">
 #<SERVICE :NAME "mediabox" :ALIASES NIL :PORT 46999 :PROTO "tcp">
 #<SERVICE :NAME "mediabox" :ALIASES NIL :PORT 46999 :PROTO "udp">
 #<SERVICE :NAME "mbus" :ALIASES NIL :PORT 47000 :PROTO "tcp">
 #<SERVICE :NAME "mbus" :ALIASES NIL :PORT 47000 :PROTO "udp">
 #<SERVICE :NAME "winrm" :ALIASES NIL :PORT 47001 :PROTO "tcp">
 #<SERVICE :NAME "jvl-mactalk" :ALIASES NIL :PORT 47100 :PROTO "udp">
 #<SERVICE :NAME "dbbrowse" :ALIASES NIL :PORT 47557 :PROTO "tcp">
 #<SERVICE :NAME "dbbrowse" :ALIASES NIL :PORT 47557 :PROTO "udp">
 #<SERVICE :NAME "directplaysrvr" :ALIASES NIL :PORT 47624 :PROTO "tcp">
 #<SERVICE :NAME "directplaysrvr" :ALIASES NIL :PORT 47624 :PROTO "udp">
 #<SERVICE :NAME "ap" :ALIASES NIL :PORT 47806 :PROTO "tcp">
 #<SERVICE :NAME "ap" :ALIASES NIL :PORT 47806 :PROTO "udp">
 #<SERVICE :NAME "bacnet" :ALIASES NIL :PORT 47808 :PROTO "tcp">
 #<SERVICE :NAME "bacnet" :ALIASES NIL :PORT 47808 :PROTO "udp">
 #<SERVICE :NAME "presonus-ucnet" :ALIASES NIL :PORT 47809 :PROTO "udp">
 #<SERVICE :NAME "nimcontroller" :ALIASES NIL :PORT 48000 :PROTO "tcp">
 #<SERVICE :NAME "nimcontroller" :ALIASES NIL :PORT 48000 :PROTO "udp">
 #<SERVICE :NAME "nimspooler" :ALIASES NIL :PORT 48001 :PROTO "tcp">
 #<SERVICE :NAME "nimspooler" :ALIASES NIL :PORT 48001 :PROTO "udp">
 #<SERVICE :NAME "nimhub" :ALIASES NIL :PORT 48002 :PROTO "tcp">
 #<SERVICE :NAME "nimhub" :ALIASES NIL :PORT 48002 :PROTO "udp">
 #<SERVICE :NAME "nimgtw" :ALIASES NIL :PORT 48003 :PROTO "tcp">
 #<SERVICE :NAME "nimgtw" :ALIASES NIL :PORT 48003 :PROTO "udp">
 #<SERVICE :NAME "nimbusdb" :ALIASES NIL :PORT 48004 :PROTO "tcp">
 #<SERVICE :NAME "nimbusdbctrl" :ALIASES NIL :PORT 48005 :PROTO "tcp">
 #<SERVICE :NAME "3gpp-cbsp" :ALIASES NIL :PORT 48049 :PROTO "tcp">
 #<SERVICE :NAME "weandsf" :ALIASES NIL :PORT 48050 :PROTO "tcp">
 #<SERVICE :NAME "isnetserv" :ALIASES NIL :PORT 48128 :PROTO "tcp">
 #<SERVICE :NAME "isnetserv" :ALIASES NIL :PORT 48128 :PROTO "udp">
 #<SERVICE :NAME "blp5" :ALIASES NIL :PORT 48129 :PROTO "tcp">
 #<SERVICE :NAME "blp5" :ALIASES NIL :PORT 48129 :PROTO "udp">
 #<SERVICE :NAME "com-bardac-dw" :ALIASES NIL :PORT 48556 :PROTO "tcp">
 #<SERVICE :NAME "com-bardac-dw" :ALIASES NIL :PORT 48556 :PROTO "udp">
 #<SERVICE :NAME "iqobject" :ALIASES NIL :PORT 48619 :PROTO "tcp">
 #<SERVICE :NAME "iqobject" :ALIASES NIL :PORT 48619 :PROTO "udp">
 #<SERVICE :NAME "robotraconteur" :ALIASES NIL :PORT 48653 :PROTO "tcp">
 #<SERVICE :NAME "robotraconteur" :ALIASES NIL :PORT 48653 :PROTO "udp">
 #<SERVICE :NAME "matahari" :ALIASES NIL :PORT 49000 :PROTO "tcp">
 #<SERVICE :NAME "nusrp" :ALIASES NIL :PORT 49001 :PROTO "tcp">
 #<SERVICE :NAME "nusdp-disc" :ALIASES NIL :PORT 49001 :PROTO "udp">
 #<SERVICE :NAME "mit-ml-dev" :ALIASES NIL :PORT 85 :PROTO "tcp">
 #<SERVICE :NAME "mit-ml-dev" :ALIASES NIL :PORT 85 :PROTO "udp">
 #<SERVICE :NAME "rap" :ALIASES NIL :PORT 256 :PROTO "tcp">
 #<SERVICE :NAME "rap" :ALIASES NIL :PORT 256 :PROTO "udp">
 #<SERVICE :NAME "pt-tls" :ALIASES NIL :PORT 271 :PROTO "tcp">
 #<SERVICE :NAME "meter" :ALIASES NIL :PORT 571 :PROTO "tcp">
 #<SERVICE :NAME "meter" :ALIASES NIL :PORT 571 :PROTO "udp">
 #<SERVICE :NAME "dlep" :ALIASES NIL :PORT 854 :PROTO "tcp">
 #<SERVICE :NAME "dlep" :ALIASES NIL :PORT 854 :PROTO "udp">
 #<SERVICE :NAME "accessbuilder" :ALIASES NIL :PORT 888 :PROTO "udp">
 #<SERVICE :NAME "webpush" :ALIASES NIL :PORT 1001 :PROTO "tcp">
 #<SERVICE :NAME "pip" :ALIASES NIL :PORT 1321 :PROTO "tcp">
 #<SERVICE :NAME "pip" :ALIASES NIL :PORT 1321 :PROTO "udp">
 #<SERVICE :NAME "csdmbase" :ALIASES NIL :PORT 1471 :PROTO "tcp">
 #<SERVICE :NAME "csdmbase" :ALIASES NIL :PORT 1471 :PROTO "udp">
 #<SERVICE :NAME "csdm" :ALIASES NIL :PORT 1472 :PROTO "tcp">
 #<SERVICE :NAME "csdm" :ALIASES NIL :PORT 1472 :PROTO "udp">
 #<SERVICE :NAME "ngr-t" :ALIASES NIL :PORT 1528 :PROTO "udp">
 #<SERVICE :NAME "nmsp" :ALIASES NIL :PORT 1790 :PROTO "tcp">
 #<SERVICE :NAME "nmsp" :ALIASES NIL :PORT 1790 :PROTO "udp">
 #<SERVICE :NAME "uma" :ALIASES NIL :PORT 1797 :PROTO "tcp">
 #<SERVICE :NAME "uma" :ALIASES NIL :PORT 1797 :PROTO "udp">
 #<SERVICE :NAME "raid-cd" :ALIASES NIL :PORT 2013 :PROTO "udp">
 #<SERVICE :NAME "dls" :ALIASES NIL :PORT 2047 :PROTO "tcp">
 #<SERVICE :NAME "dls" :ALIASES NIL :PORT 2047 :PROTO "udp">
 #<SERVICE :NAME "nvd" :ALIASES NIL :PORT 2329 :PROTO "tcp">
 #<SERVICE :NAME "nvd" :ALIASES NIL :PORT 2329 :PROTO "udp">
 #<SERVICE :NAME "swarm" :ALIASES NIL :PORT 2377 :PROTO "tcp">
 #<SERVICE :NAME "msp" :ALIASES NIL :PORT 2438 :PROTO "tcp">
 #<SERVICE :NAME "msp" :ALIASES NIL :PORT 2438 :PROTO "udp">
 #<SERVICE :NAME "unicontrol" :ALIASES NIL :PORT 2499 :PROTO "tcp">
 #<SERVICE :NAME "unicontrol" :ALIASES NIL :PORT 2499 :PROTO "udp">
 #<SERVICE :NAME "nmsigport" :ALIASES NIL :PORT 2839 :PROTO "tcp">
 #<SERVICE :NAME "nmsigport" :ALIASES NIL :PORT 2839 :PROTO "udp">
 #<SERVICE :NAME "fxp" :ALIASES NIL :PORT 2849 :PROTO "tcp">
 #<SERVICE :NAME "fxp" :ALIASES NIL :PORT 2849 :PROTO "udp">
 #<SERVICE :NAME "epp" :ALIASES NIL :PORT 3044 :PROTO "tcp">
 #<SERVICE :NAME "epp" :ALIASES NIL :PORT 3044 :PROTO "udp">
 #<SERVICE :NAME "creativeserver" :ALIASES NIL :PORT 3364 :PROTO "tcp">
 #<SERVICE :NAME "creativeserver" :ALIASES NIL :PORT 3364 :PROTO "udp">
 #<SERVICE :NAME "contentserver" :ALIASES NIL :PORT 3365 :PROTO "tcp">
 #<SERVICE :NAME "contentserver" :ALIASES NIL :PORT 3365 :PROTO "udp">
 #<SERVICE :NAME "creativepartnr" :ALIASES NIL :PORT 3366 :PROTO "tcp">
 #<SERVICE :NAME "creativepartnr" :ALIASES NIL :PORT 3366 :PROTO "udp">
 #<SERVICE :NAME "udt-os" :ALIASES NIL :PORT 3900 :PROTO "tcp">
 #<SERVICE :NAME "udt-os" :ALIASES NIL :PORT 3900 :PROTO "udp">
 #<SERVICE :NAME "npp" :ALIASES NIL :PORT 4045 :PROTO "tcp">
 #<SERVICE :NAME "npp" :ALIASES NIL :PORT 4045 :PROTO "udp">
 #<SERVICE :NAME "hctl" :ALIASES NIL :PORT 4197 :PROTO "tcp">
 #<SERVICE :NAME "hctl" :ALIASES NIL :PORT 4197 :PROTO "udp">
 #<SERVICE :NAME "trinity-dist" :ALIASES NIL :PORT 4711 :PROTO "sctp">
 #<SERVICE :NAME "trinity-dist" :ALIASES NIL :PORT 4711 :PROTO "tcp">
 #<SERVICE :NAME "trinity-dist" :ALIASES NIL :PORT 4711 :PROTO "udp">
 #<SERVICE :NAME "intelliadm-disc" :ALIASES NIL :PORT 4746 :PROTO "udp">
 #<SERVICE :NAME "gre-in-udp" :ALIASES NIL :PORT 4754 :PROTO "udp">
 #<SERVICE :NAME "gre-udp-dtls" :ALIASES NIL :PORT 4755 :PROTO "udp">
 #<SERVICE :NAME "RDCenter" :ALIASES NIL :PORT 4756 :PROTO "tcp">
 #<SERVICE :NAME "converge" :ALIASES NIL :PORT 4774 :PROTO "tcp">
 #<SERVICE :NAME "mftp" :ALIASES NIL :PORT 5402 :PROTO "tcp">
 #<SERVICE :NAME "mftp" :ALIASES NIL :PORT 5402 :PROTO "udp">
 #<SERVICE :NAME "cbus" :ALIASES NIL :PORT 5550 :PROTO "tcp">
 #<SERVICE :NAME "storageos" :ALIASES NIL :PORT 5705 :PROTO "tcp">
 #<SERVICE :NAME "ricardo-lm" :ALIASES NIL :PORT 6148 :PROTO "tcp">
 #<SERVICE :NAME "ricardo-lm" :ALIASES NIL :PORT 6148 :PROTO "udp">
 #<SERVICE :NAME "ieee11073-20701" :ALIASES NIL :PORT 6464 :PROTO "tcp">
 #<SERVICE :NAME "ieee11073-20701" :ALIASES NIL :PORT 6464 :PROTO "udp">
 #<SERVICE :NAME "nexgen-aux" :ALIASES NIL :PORT 6629 :PROTO "tcp">
 #<SERVICE :NAME "nexgen-aux" :ALIASES NIL :PORT 6629 :PROTO "udp">
 #<SERVICE :NAME "rtimeviewer" :ALIASES NIL :PORT 6900 :PROTO "tcp">
 #<SERVICE :NAME "spg" :ALIASES NIL :PORT 7016 :PROTO "tcp">
 #<SERVICE :NAME "spg" :ALIASES NIL :PORT 7016 :PROTO "udp">
 #<SERVICE :NAME "grasp" :ALIASES NIL :PORT 7017 :PROTO "tcp">
 #<SERVICE :NAME "grasp" :ALIASES NIL :PORT 7017 :PROTO "udp">
 #<SERVICE :NAME "pon-ictp" :ALIASES NIL :PORT 7202 :PROTO "tcp">
 #<SERVICE :NAME "openit" :ALIASES NIL :PORT 7478 :PROTO "tcp">
 #<SERVICE :NAME "coherence-disc" :ALIASES NIL :PORT 7574 :PROTO "udp">
 #<SERVICE :NAME "bolt" :ALIASES NIL :PORT 7687 :PROTO "tcp">
 #<SERVICE :NAME "nfapi" :ALIASES NIL :PORT 7701 :PROTO "sctp">
 #<SERVICE :NAME "wpl-analytics" :ALIASES NIL :PORT 8006 :PROTO "tcp">
 #<SERVICE :NAME "wpl-disc" :ALIASES NIL :PORT 8006 :PROTO "udp">
 #<SERVICE :NAME "ucs-isc" :ALIASES NIL :PORT 8070 :PROTO "tcp">
 #<SERVICE :NAME "mles" :ALIASES NIL :PORT 8077 :PROTO "tcp">
 #<SERVICE :NAME "opsmessaging" :ALIASES NIL :PORT 8090 :PROTO "tcp">
 #<SERVICE :NAME "robot-remote" :ALIASES NIL :PORT 8270 :PROTO "tcp">
 #<SERVICE :NAME "aritts" :ALIASES NIL :PORT 8423 :PROTO "tcp">
 #<SERVICE :NAME "ssports-bcast" :ALIASES NIL :PORT 8808 :PROTO "udp">
 #<SERVICE :NAME "CardWeb-IO" :ALIASES NIL :PORT 9060 :PROTO "tcp">
 #<SERVICE :NAME "CardWeb-RT" :ALIASES NIL :PORT 9060 :PROTO "udp">
 #<SERVICE :NAME "pumpkindb" :ALIASES NIL :PORT 9981 :PROTO "tcp">
 #<SERVICE :NAME "abb-hw" :ALIASES NIL :PORT 10020 :PROTO "tcp">
 #<SERVICE :NAME "tile-ml" :ALIASES NIL :PORT 10261 :PROTO "tcp">
 #<SERVICE :NAME "xpra" :ALIASES NIL :PORT 14500 :PROTO "tcp">
 #<SERVICE :NAME "vdmmesh-disc" :ALIASES NIL :PORT 18668 :PROTO "udp">
 #<SERVICE :NAME "vdmmesh" :ALIASES NIL :PORT 18668 :PROTO "tcp">
 #<SERVICE :NAME "cora-disc" :ALIASES NIL :PORT 19220 :PROTO "udp">
 #<SERVICE :NAME "cora" :ALIASES NIL :PORT 19220 :PROTO "tcp">
 #<SERVICE :NAME "aigairserver" :ALIASES NIL :PORT 21221 :PROTO "tcp">
 #<SERVICE :NAME "ka-kdp" :ALIASES NIL :PORT 31016 :PROTO "udp">
 #<SERVICE :NAME "ka-sddp" :ALIASES NIL :PORT 31016 :PROTO "tcp">
 #<SERVICE :NAME "edi_service" :ALIASES NIL :PORT 34567 :PROTO "udp">
 #<SERVICE :NAME "axio-disc" :ALIASES NIL :PORT 35100 :PROTO "tcp">
 #<SERVICE :NAME "axio-disc" :ALIASES NIL :PORT 35100 :PROTO "udp">
 #<SERVICE :NAME "pmwebapi" :ALIASES NIL :PORT 44323 :PROTO "tcp">
 #<SERVICE :NAME "cloudcheck-ping" :ALIASES NIL :PORT 45514 :PROTO "udp">
 #<SERVICE :NAME "cloudcheck" :ALIASES NIL :PORT 45514 :PROTO "tcp">
 #<SERVICE :NAME "spremotetablet" :ALIASES NIL :PORT 46998 :PROTO "tcp">)
EQL-OK: T
(EQUALP (SERVICE "www" "tcp") (SERVICE "http" "tcp"))
EQL-OK: T
(LET* ((FMT "%Y-%m-%d %H:%M:%S") (STRING (SHOW (STRING-TIME FMT)))) (STRING= STRING (STRING-TIME FMT (SHOW (STRING-TIME FMT STRING)))))
"2024-09-14 09:28:33"
3935309313
EQL-OK: T
(DEFMACRO WITH-C-TIME (&BODY BODY) "Set LC_TIME to \"C\" during body, restoring the previously set value
afterwards." (LET ((ORIGINAL-LOCALE-NAME (GENSYM))) `(LET ((,ORIGINAL-LOCALE-NAME (SET-LOCALE :TIME))) (UNWIND-PROTECT (PROGN (SET-LOCALE :TIME "C") ,@BODY) (SET-LOCALE :TIME ,ORIGINAL-LOCALE-NAME)))))
EQL-OK: WITH-C-TIME
(DEFUN CHECK-TIME-DATE (FMT DATUM) (AND (FBOUNDP 'GETDATE) (WITH-C-TIME (LET ((GD (GETDATE DATUM)) (ST (STRING-TIME FMT DATUM))) (SHOW (LIST FMT DATUM GD (STRING-TIME "%Y-%m-%d %a %H:%M:%S" GD))) (UNLESS (= GD ST) (SHOW (LIST ST (STRING-TIME "%Y-%m-%d %a %H:%M:%S" ST))))))))
EQL-OK: CHECK-TIME-DATE
(CHECK-TIME-DATE "%m/%d/%y %I %p" "10/1/87 4 PM")
("%m/%d/%y %I %p" "10/1/87 4 PM" 2769105600 "1987-10-01 Thu 16:00:00")
EQL-OK: NIL
(CHECK-TIME-DATE "%A %B %d, %Y, %H:%M:%S" "Friday September 18, 1987, 10:30:30")
("%A %B %d, %Y, %H:%M:%S" "Friday September 18, 1987, 10:30:30" 2767962630 "1987-09-18 Fri 10:30:30")
EQL-OK: NIL
(CHECK-TIME-DATE "%d,%m,%Y %H:%M" "24,9,1986 10:30")
("%d,%m,%Y %H:%M" "24,9,1986 10:30" 2736945000 "1986-09-24 Wed 10:30:00")
EQL-OK: NIL
(DEFUN CHECK-TIME-DATE (FMT DATUM) (DECLARE (IGNORE FMT)) (AND (FBOUNDP 'GETDATE) (NULL (SHOW (WITH-C-TIME (STRING-TIME "%Y-%m-%d %a %H:%M:%S" (GETDATE DATUM)))))))
EQL-OK: CHECK-TIME-DATE
(CHECK-TIME-DATE "%m/%d/%y" "11/27/86")
"1986-11-27 Thu 09:28:33"
EQL-OK: NIL
(CHECK-TIME-DATE "%d.%m.%y" "27.11.86")
"1986-11-27 Thu 09:28:33"
EQL-OK: NIL
(CHECK-TIME-DATE "%y-%m-%d" "86-11-27")
"1986-11-27 Thu 09:28:33"
EQL-OK: NIL
(CHECK-TIME-DATE "%A %H:%M:%S" "Friday 12:00:00")
"2024-09-20 Fri 12:00:00"
EQL-OK: NIL
(CHECK-TIME-DATE "%A" "Friday")
"2024-09-20 Fri 09:28:33"
EQL-OK: NIL
(CHECK-TIME-DATE "%a" "Mon")
"2024-09-16 Mon 09:28:33"
EQL-OK: NIL
(CHECK-TIME-DATE "%a" "Sun")
"2024-09-15 Sun 09:28:33"
EQL-OK: NIL
(CHECK-TIME-DATE "%a" "Fri")
"2024-09-20 Fri 09:28:33"
EQL-OK: NIL
(CHECK-TIME-DATE "%B" "September")
"2024-09-06 Fri 09:28:33"
EQL-OK: NIL
(CHECK-TIME-DATE "%B" "January")
"2025-01-05 Sun 09:28:33"
EQL-OK: NIL
(CHECK-TIME-DATE "%B" "December")
"2024-12-06 Fri 09:28:33"
EQL-OK: NIL
(CHECK-TIME-DATE "%b %a" "Sep Mon")
"2024-09-02 Mon 09:28:33"
EQL-OK: NIL
(CHECK-TIME-DATE "%b %a" "Jan Fri")
"2025-01-03 Fri 09:28:33"
EQL-OK: NIL
(CHECK-TIME-DATE "%b %a" "Dec Mon")
"2024-12-02 Mon 09:28:33"
EQL-OK: NIL
(CHECK-TIME-DATE "%b %a %Y" "Jan Wed 1989")
"1989-01-04 Wed 09:28:33"
EQL-OK: NIL
(CHECK-TIME-DATE "%a %H" "Fri 9")
"2024-09-20 Fri 09:00:00"
EQL-OK: NIL
(CHECK-TIME-DATE "%b %H:%S" "Feb 10:30")
"2025-02-05 Wed 10:00:30"
EQL-OK: NIL
(CHECK-TIME-DATE "%H:%M" "10:30")
"2024-09-14 Sat 10:30:00"
EQL-OK: NIL
(CHECK-TIME-DATE "%H:%M" "13:30")
"2024-09-14 Sat 13:30:00"
EQL-OK: NIL
(WHEN (FBOUNDP 'GETUTXENT) (SHOW (LOOP :FOR UTMPX = (GETUTXENT) :WHILE UTMPX :COUNT (SHOW UTMPX :PRETTY T))) (ENDUTXENT))
0
EQL-OK: NIL
(DEFPARAMETER *TMP1* (MKSTEMP "syscalls-tests-"))
EQL-OK: *TMP1*
(DEFPARAMETER *TMP2* (MKSTEMP "syscalls-tests-"))
EQL-OK: *TMP2*
(LET ((*STANDARD-OUTPUT* (MAKE-BROADCAST-STREAM *STANDARD-OUTPUT* *TMP1* *TMP2*))) (SHOW (WRITE *TMP1* :STREAM *TMP1*)) (TERPRI *TMP1*) (SHOW (WRITE *TMP2* :STREAM *TMP2*)) (TERPRI *TMP2*) T)
#<OUTPUT BUFFERED FILE-STREAM CHARACTER #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-GA2Te9">
#<OUTPUT BUFFERED FILE-STREAM CHARACTER #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-PwQ2hO">
EQL-OK: T
(FIND :RDWR (SHOW (STREAM-OPTIONS *TMP1* :FL)))
(:RDWR 32768)
EQL-OK: :RDWR
(APPEASE-CERRORS (WITH-OPEN-FILE (S *TMP1*) (FIND :RDONLY (SHOW (STREAM-OPTIONS S :FL)))))
WARNING: OPEN:
         #<OUTPUT BUFFERED FILE-STREAM CHARACTER #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-GA2Te9">
         already points to file
         "/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-GA2Te9"
         , opening the file again for :INPUT may produce unexpected results
         Open the file anyway
(:RDONLY 32768)
EQL-OK: :RDONLY
(STREAM-OPTIONS *TMP1* :FD)
EQL-OK: NIL
(STREAM-OPTIONS *TMP1* :FD '(:CLOEXEC))
EQL-OK: NIL
(STREAM-OPTIONS *TMP1* :FD)
EQUAL-OK: (:CLOEXEC)
(STREAM-OPTIONS *TMP1* :FD NIL)
EQL-OK: NIL
(STREAM-OPTIONS *TMP1* :FD)
EQL-OK: NIL
(HANDLER-CASE (STREAM-LOCK *TMP1* T) (SYSTEM::SIMPLE-FILE-ERROR (ERR) (FORMAT T "~S: ~A" 'STREAM-LOCK ERR) (PUSHNEW :NO-STREAM-LOCK *FEATURES*) T))
EQL-OK: T
(STREAM-LOCK *TMP1* NIL)
EQL-OK: NIL
(TYPEP (SHOW (PRIORITY (PROCESS-ID))) '(OR KEYWORD (INTEGER -20 20)))
:NORMAL
EQL-OK: T
(DEFUN FLOAT= (X Y) (= Y (/ (+ X Y) 2)))
EQL-OK: FLOAT=
(DEFUN FLOAT~ (X Y) (< (ABS (/ (- X Y) (+ X Y) 1/2)) 1.0536712127723509d-8))
EQL-OK: FLOAT~
(FLOAT= (ERF -6) -1.0d0)
EQL-OK: T
(FLOAT= (ERF -5) -0.9999999999984626d0)
EQL-OK: T
(FLOAT= (ERF -4) -0.9999999845827421d0)
EQL-OK: T
(FLOAT~ (ERF -3) -0.9999779095030014d0)
EQL-OK: T
(FLOAT= (ERF -2) -0.9953222650189527d0)
EQL-OK: T
(FLOAT~ (ERF -1) -0.8427007929497149d0)
EQL-OK: T
(FLOAT= (ERF 0) 0.0d0)
EQL-OK: T
(FLOAT~ (ERF 1) 0.8427007929497149d0)
EQL-OK: T
(FLOAT= (ERF 2) 0.9953222650189527d0)
EQL-OK: T
(FLOAT~ (ERF 3) 0.9999779095030014d0)
EQL-OK: T
(FLOAT= (ERF 4) 0.9999999845827421d0)
EQL-OK: T
(FLOAT= (ERF 5) 0.9999999999984626d0)
EQL-OK: T
(FLOAT= (ERF 6) 1.0d0)
EQL-OK: T
(FLOAT= (ERFC -6) 2.0d0)
EQL-OK: T
(FLOAT= (ERFC -5) 1.9999999999984626d0)
EQL-OK: T
(FLOAT= (ERFC -4) 1.999999984582742d0)
EQL-OK: T
(FLOAT= (ERFC -3) 1.9999779095030015d0)
EQL-OK: T
(FLOAT= (ERFC -2) 1.9953222650189528d0)
EQL-OK: T
(FLOAT= (ERFC -1) 1.842700792949715d0)
EQL-OK: T
(FLOAT= (ERFC 0) 1.0d0)
EQL-OK: T
(FLOAT~ (ERFC 1) 0.15729920705028513d0)
EQL-OK: T
(FLOAT= (ERFC 2) 0.004677734981047265d0)
EQL-OK: T
(FLOAT= (ERFC 3) 2.209049699858544d-5)
EQL-OK: T
(FLOAT= (ERFC 4) 1.541725790028002d-8)
EQL-OK: T
(FLOAT= (ERFC 5) 1.5374597944280351d-12)
EQL-OK: T
(FLOAT~ (ERFC 6) 2.1519736712498916d-17)
EQL-OK: T
(FLOAT~ (ERFC 7) 4.183825607779414d-23)
EQL-OK: T
(FLOAT= (ERFC 8) 1.1224297172982928d-29)
EQL-OK: T
(FLOAT= (ERFC 9) 4.13703174651381d-37)
EQL-OK: T
(FLOAT= (ERFC 10) 2.088487583762545d-45)
EQL-OK: T
(FLOAT~ (ERFC 11) 1.4408661379436945d-54)
EQL-OK: T
(FLOAT= (ERFC 12) 1.3562611692059042d-64)
EQL-OK: T
(FLOAT= (ERFC 13) 1.7395573154667246d-75)
EQL-OK: T
(FLOAT= (ERFC 14) 3.037229847750312d-87)
EQL-OK: T
(FLOAT~ (ERFC 15) 7.212994172451206d-100)
EQL-OK: T
(FLOAT= (ERFC 16) 2.3284857515715308d-113)
EQL-OK: T
(FLOAT= (ERFC 17) 1.0212280150942608d-127)
EQL-OK: T
(FLOAT~ (ERFC 18) 6.082369231816399d-143)
EQL-OK: T
(FLOAT= (ERFC 19) 4.917722839256475d-159)
EQL-OK: T
(FLOAT= (ERFC 20) 5.3958656116079005d-176)
EQL-OK: T
(FLOAT= (ERFC 21) 8.032453871022456d-194)
EQL-OK: T
(FLOAT= (ERFC 22) 1.6219058609334726d-212)
EQL-OK: T
(FLOAT= (ERFC 23) 4.441265948088057d-232)
EQL-OK: T
(FLOAT= (ERFC 24) 1.6489825831519335d-252)
EQL-OK: T
(FLOAT~ (ERFC 25) 8.300172571196522d-274)
EQL-OK: T
(FLOAT~ (ERFC 26) 5.663192408856143d-296)
EQL-OK: T
(FLOAT= (ERFC 30) 0.0d0)
EQL-OK: T
(LOOP :FOR I :FROM -10 :TO 10 :FOR E = (ERF I) :AND C = (ERFC I) :FOR S = (+ E C) :UNLESS (FLOAT= S 1) :COLLECT (LIST I E C (- 1 S)))
EQL-OK: NIL
(FLOAT= (J0 0) 1.0d0)
EQL-OK: T
(FLOAT= (J0 1.0) 0.7651976865579666d0)
EQL-OK: T
(FLOAT= (J1 0) 0.0d0)
EQL-OK: T
(FLOAT= (J1 1.0) 0.4400505857449335d0)
EQL-OK: T
(FLOAT= (JN 0 0) 1.0d0)
EQL-OK: T
(FLOAT= (JN 1 1.0) 0.4400505857449335d0)
EQL-OK: T
(FLOAT= (JN 2 1.0) 0.11490348493190047d0)
EQL-OK: T
(FLOAT= (JN 2 1) 0.11490348493190047d0)
EQL-OK: T
(FLOAT= (JN 2 0) 0.0d0)
EQL-OK: T
(FLOAT~ (Y0 1.0) 0.08825696421567696d0)
EQL-OK: T
(FLOAT~ (Y0 10.0) 0.055671167283599395d0)
EQL-OK: T
(FLOAT~ (Y1 1.0) -0.7812128213002887d0)
EQL-OK: T
(FLOAT~ (Y1 10.0) 0.24901542420695383d0)
EQL-OK: T
(FLOAT~ (YN 2 1.0) -1.6506826068162543d0)
EQL-OK: T
(FLOAT~ (YN 2 10.0) -0.005868082442208629d0)
EQL-OK: T
(MULTIPLE-VALUE-LIST (LGAMMA 2))
EQUAL-OK: (0.0d0 1)
(MAPCAR (LAMBDA (N) (MULTIPLE-VALUE-BIND (LG S) (LGAMMA N) (LIST N (FLOAT (/ (! (1- N)) (EXP LG)) 0.0) S))) '(3 5 10 15 30 50 100))
EQUAL-OK: ((3 1.0 1) (5 1.0 1) (10 1.0 1) (15 1.0 1) (30 1.0 1) (50 1.0 1) (100 1.0 1))
(LOOP :FOR N :UPFROM 3 :FOR LG = (LGAMMA N) :UNLESS (= 1 (/ (LOG (! (1- N))) LG)) :RETURN N)
EQL-OK: 29
(LOOP :FOR N :UPFROM 3 :FOR LG = (HANDLER-CASE (LGAMMA N) (FLOATING-POINT-OVERFLOW NIL 'FLOATING-POINT-OVERFLOW)) :FOR L! = (HANDLER-CASE (LOG (FLOAT (! (1- N)) LG)) (FLOATING-POINT-OVERFLOW NIL 'FLOATING-POINT-OVERFLOW)) :UNLESS (AND (FLOATP LG) (FLOATP L!) (= 1 (FLOAT (/ L! LG) #1=0.0))) :RETURN (LIST N (FLOAT LG #1#) L!))
EQUAL-OK: (172 711.7147 FLOATING-POINT-OVERFLOW)
(LOOP :FOR N :UPFROM 3 :FOR TG = (HANDLER-CASE (TGAMMA N) (FLOATING-POINT-OVERFLOW NIL 'FLOATING-POINT-OVERFLOW)) :WHILE (AND (FLOATP TG) (= 1 (/ (! (1- N)) TG))) :FINALLY (SHOW (LIST N TG)))
(13 4.7900159999999994d8)
EQL-OK: NIL
(LOOP :FOR N :UPFROM 3 :FOR TG = (HANDLER-CASE (TGAMMA N) (FLOATING-POINT-OVERFLOW NIL 'FLOATING-POINT-OVERFLOW)) :UNLESS (AND (FLOATP TG) (= 1 (FLOAT (/ (! (1- N)) TG) 0.0))) :RETURN (LIST N TG))
EQUAL-OK: (172 FLOATING-POINT-OVERFLOW)
(= (SHOW (PROCESS-ID)) (SHOW (GETPPID)))
29472
29466
EQL-OK: NIL
(LET ((ID (SHOW (UID)))) (= ID (SETF (UID) ID)))
989
EQL-OK: T
(LET ((ID (SHOW (GID)))) (= ID (SETF (GID) ID)))
135
EQL-OK: T
(LET ((ID (SHOW (EUID)))) (= ID (SETF (EUID) ID)))
989
EQL-OK: T
(LET ((ID (SHOW (EGID)))) (= ID (SETF (EGID) ID)))
135
EQL-OK: T
(LET* ((PID (PROCESS-ID)) (GID (SHOW (PGID PID)))) (CHECK-OS-ERROR (= GID (SETF (PGID PID) GID)) (:EPERM 1)))
4
EQL-OK: T
(= (UID) (EUID))
EQL-OK: T
(= (GID) (EGID))
EQL-OK: T
(MULTIPLE-VALUE-LIST (SETREUID (UID) (EUID)))
EQL-OK: NIL
(MULTIPLE-VALUE-LIST (SETREGID (GID) (EGID)))
EQL-OK: NIL
(MULTIPLE-VALUE-LIST (SETREUID -1 -1))
EQL-OK: NIL
(MULTIPLE-VALUE-LIST (SETREGID -1 -1))
EQL-OK: NIL
(LISTP (SHOW (IF (FBOUNDP 'GROUPS) (GROUPS) '(NO GROUPS)) :PRETTY T))
NIL
EQL-OK: T
(IF (AND (FBOUNDP 'GROUPS) (FBOUNDP 'POSIX::%SETGROUPS)) (LET ((G (GROUPS))) (EQ G (OR (IGNORE-ERRORS (SETF (GROUPS) G)) G))) T)
EQL-OK: T
(LISTP (SHOW (IF (FBOUNDP 'SYSCONF) (SYSCONF) '(NO SYSCONF)) :PRETTY T))
(:AIO-LISTIO-MAX -1 :AIO-MAX -1 :AIO-PRIO-DELTA-MAX 20 :ARG-MAX 2097152
 :ATEXIT-MAX 2147483647 :BC-BASE-MAX 99 :BC-DIM-MAX 2048 :BC-SCALE-MAX 99
 :BC-STRING-MAX 1000 :CHILD-MAX 31537 :CLK-TCK 100 :COLL-WEIGHTS-MAX 255
 :DELAYTIMER-MAX 2147483647 :EXPR-NEST-MAX 32 :HOST-NAME-MAX 64 :IOV-MAX 1024
 :LINE-MAX 2048 :LOGIN-NAME-MAX 256 :NGROUPS-MAX 65536 :GETGR-R-SIZE-MAX 1024
 :GETPW-R-SIZE-MAX 1024 :MQ-OPEN-MAX -1 :MQ-PRIO-MAX 32768 :OPEN-MAX 1024
 :ADVISORY-INFO 200809 :BARRIERS 200809 :ASYNCHRONOUS-IO 200809
 :CLOCK-SELECTION 200809 :CPUTIME 200809 :FSYNC 200809 :IPV6 200809
 :JOB-CONTROL 1 :MAPPED-FILES 200809 :MEMLOCK 200809 :MEMLOCK-RANGE 200809
 :MEMORY-PROTECTION 200809 :MESSAGE-PASSING 200809 :MONOTONIC-CLOCK 200809
 :PRIORITIZED-IO 200809 :PRIORITY-SCHEDULING 200809 :RAW-SOCKETS 200809
 :READER-WRITER-LOCKS 200809 :REALTIME-SIGNALS 200809 :REGEXP 1 :SAVED-IDS 1
 :SEMAPHORES 200809 :SHARED-MEMORY-OBJECTS 200809 :SHELL 1 :SPAWN 200809
 :SPIN-LOCKS 200809 :SPORADIC-SERVER -1 :SS-REPL-MAX -1 :SYNCHRONIZED-IO 200809
 :THREAD-ATTR-STACKADDR 200809 :THREAD-ATTR-STACKSIZE 200809 :THREAD-CPUTIME
 200809 :THREAD-PRIO-INHERIT 200809 :THREAD-PRIO-PROTECT 200809
 :THREAD-PRIORITY-SCHEDULING 200809 :THREAD-PROCESS-SHARED 200809
 :THREAD-SAFE-FUNCTIONS 200809 :THREAD-SPORADIC-SERVER -1
 :THREAD-ROBUST-PRIO-INHERIT -1 :THREAD-ROBUST-PRIO-PROTECT -1 :THREADS 200809
 :TIMEOUTS 200809 :TIMERS 200809 :TRACE -1 :TRACE-EVENT-FILTER -1
 :TRACE-EVENT-NAME-MAX -1 :TRACE-INHERIT -1 :TRACE-LOG -1 :TRACE-NAME-MAX -1
 :TRACE-SYS-MAX -1 :TRACE-USER-EVENT-MAX -1 :TYPED-MEMORY-OBJECTS -1 :VERSION
 200809 :XBS5-ILP32-OFF32 -1 :XBS5-ILP32-OFFBIG -1 :XBS5-LP64-OFF64 1
 :XBS5-LPBIG-OFFBIG -1 :V6-ILP32-OFF32 -1 :V6-ILP32-OFFBIG -1 :V6-LP64-OFF64 1
 :V6-LPBIG-OFFBIG -1 :V7-ILP32-OFF32 -1 :V7-ILP32-OFFBIG -1 :V7-LP64-OFF64 1
 :V7-LPBIG-OFFBIG -1 :2-C-BIND 200809 :2-C-DEV 200809 :2-CHAR-TERM 200809
 :2-FORT-DEV -1 :2-FORT-RUN -1 :2-LOCALEDEF 200809 :2-PBS -1 :2-PBS-ACCOUNTING
 -1 :2-PBS-CHECKPOINT -1 :2-PBS-LOCATE -1 :2-PBS-MESSAGE -1 :2-PBS-TRACK -1
 :2-SW-DEV 200809 :2-UPE -1 :2-VERSION 200809 :PAGESIZE 4096 :PHYS-PAGES
 2026044 :AVPHYS-PAGES 1021992 :THREAD-DESTRUCTOR-ITERATIONS 4 :THREAD-KEYS-MAX
 1024 :THREAD-STACK-MIN 16384 :THREAD-THREADS-MAX -1 :RE-DUP-MAX 32767
 :RTSIG-MAX 32 :SEM-NSEMS-MAX -1 :SEM-VALUE-MAX 2147483647 :SIGQUEUE-MAX 31537
 :STREAM-MAX 16 :SYMLOOP-MAX -1 :TIMER-MAX -1 :TTY-NAME-MAX 32 :TZNAME-MAX -1
 :XOPEN-CRYPT -1 :XOPEN-ENH-I18N 1 :XOPEN-LEGACY 1 :XOPEN-REALTIME 1
 :XOPEN-REALTIME-THREADS 1 :XOPEN-SHM 1 :XOPEN-STREAMS -1 :XOPEN-UNIX 1
 :XOPEN-VERSION 700 :NPROCESSORS-CONF 4 :NPROCESSORS-ONLN 4)
EQL-OK: T
(LISTP (SHOW (IF (FBOUNDP 'CONFSTR) (CONFSTR) '(NO CONFSTR)) :PRETTY T))
(:PATH "/usr/bin" :POSIX-V6-ILP32-OFF32-CFLAGS "" :POSIX-V6-ILP32-OFF32-LDFLAGS
 "" :POSIX-V6-ILP32-OFF32-LIBS "" :POSIX-V6-ILP32-OFFBIG-CFLAGS ""
 :POSIX-V6-ILP32-OFFBIG-LDFLAGS "" :POSIX-V6-ILP32-OFFBIG-LIBS ""
 :POSIX-V6-LP64-OFF64-CFLAGS "" :POSIX-V6-LP64-OFF64-LDFLAGS ""
 :POSIX-V6-LP64-OFF64-LIBS "" :POSIX-V6-LPBIG-OFFBIG-CFLAGS ""
 :POSIX-V6-LPBIG-OFFBIG-LDFLAGS "" :POSIX-V6-LPBIG-OFFBIG-LIBS ""
 :POSIX-V6-WIDTH-RESTRICTED-ENVS "POSIX_V6_LP64_OFF64" :V7-ENV
 "POSIXLY_CORRECT=1" :POSIX-V7-ILP32-OFF32-CFLAGS ""
 :POSIX-V7-ILP32-OFF32-LDFLAGS "" :POSIX-V7-ILP32-OFF32-LIBS ""
 :POSIX-V7-ILP32-OFFBIG-CFLAGS "" :POSIX-V7-ILP32-OFFBIG-LDFLAGS ""
 :POSIX-V7-ILP32-OFFBIG-LIBS "" :POSIX-V7-LP64-OFF64-CFLAGS ""
 :POSIX-V7-LP64-OFF64-LDFLAGS "" :POSIX-V7-LP64-OFF64-LIBS ""
 :POSIX-V7-LPBIG-OFFBIG-CFLAGS "" :POSIX-V7-LPBIG-OFFBIG-LDFLAGS ""
 :POSIX-V7-LPBIG-OFFBIG-LIBS "" :POSIX-V7-WIDTH-RESTRICTED-ENVS
 "POSIX_V7_LP64_OFF64" :XBS5-ILP32-OFF32-CFLAGS "" :XBS5-ILP32-OFF32-LDFLAGS ""
 :XBS5-ILP32-OFF32-LIBS "" :XBS5-ILP32-OFF32-LINTFLAGS ""
 :XBS5-ILP32-OFFBIG-CFLAGS "" :XBS5-ILP32-OFFBIG-LDFLAGS ""
 :XBS5-ILP32-OFFBIG-LIBS "" :XBS5-ILP32-OFFBIG-LINTFLAGS ""
 :XBS5-LP64-OFF64-CFLAGS "" :XBS5-LP64-OFF64-LDFLAGS "" :XBS5-LP64-OFF64-LIBS
 "" :XBS5-LP64-OFF64-LINTFLAGS "" :XBS5-LPBIG-OFFBIG-CFLAGS ""
 :XBS5-LPBIG-OFFBIG-LDFLAGS "" :XBS5-LPBIG-OFFBIG-LIBS ""
 :XBS5-LPBIG-OFFBIG-LINTFLAGS "")
EQL-OK: T
(LISTP (SHOW (IF (FBOUNDP 'PATHCONF) (PATHCONF "/") '(NO PATHCONF)) :PRETTY T))
(:FILESIZEBITS 255 :LINK-MAX 127 :MAX-CANON 255 :MAX-INPUT 255 :NAME-MAX 255
 :PATH-MAX 4096 :PIPE-BUF 4096 :2-SYMLINKS 1 :ALLOC-SIZE-MIN 4096
 :REC-INCR-XFER-SIZE :ERROR :REC-MAX-XFER-SIZE :ERROR :REC-MIN-XFER-SIZE 4096
 :REC-XFER-ALIGN 4096 :SYMLINK-MAX :ERROR :CHOWN-RESTRICTED 1 :NO-TRUNC 1
 :VDISABLE 0 :ASYNC-IO :ERROR :PRIO-IO :ERROR :SYNC-IO :ERROR :SOCK-MAXBUF
 :ERROR)
EQL-OK: T
(LISTP (SHOW (IF (FBOUNDP 'PATHCONF) (PATHCONF *TMP1*) '(NO PATHCONF)) :PRETTY T))
(:FILESIZEBITS 255 :LINK-MAX 127 :MAX-CANON 255 :MAX-INPUT 255 :NAME-MAX 255
 :PATH-MAX 4096 :PIPE-BUF 4096 :2-SYMLINKS 1 :ALLOC-SIZE-MIN 4096
 :REC-INCR-XFER-SIZE :ERROR :REC-MAX-XFER-SIZE :ERROR :REC-MIN-XFER-SIZE 4096
 :REC-XFER-ALIGN 4096 :SYMLINK-MAX :ERROR :CHOWN-RESTRICTED 1 :NO-TRUNC 1
 :VDISABLE 0 :ASYNC-IO 1 :PRIO-IO :ERROR :SYNC-IO :ERROR :SOCK-MAXBUF :ERROR)
EQL-OK: T
(LISTP (SHOW (IF (FBOUNDP 'USAGE) (USAGE) '(NO USAGE)) :PRETTY T))
(:SELF
 #<USAGE :USER-TIME 2543/400 :SYSTEM-TIME 522279/1000000 :MAX-RSS 23324
   :SHARED-MEMORY 0 :DATA-MEMORY 0 :STACK-MEMORY 0 :MINOR-PAGE-FAULTS 22447
   :MAJOR-PAGE-FAULTS 0 :NUM-SWAPS 0 :BLOCKS-INPUT 0 :BLOCKS-OUTPUT 104
   :MESSAGES-SENT 0 :MESSAGES-RECEIVED 0 :SIGNALS 0
   :CONTEXT-SWITCHES-VOLUNTARY 11 :CONTEXT-SWITCHES-INVOLUNTARY 80>
 :CHILDREN
 #<USAGE :USER-TIME 0 :SYSTEM-TIME 0 :MAX-RSS 0 :SHARED-MEMORY 0 :DATA-MEMORY 0
   :STACK-MEMORY 0 :MINOR-PAGE-FAULTS 0 :MAJOR-PAGE-FAULTS 0 :NUM-SWAPS 0
   :BLOCKS-INPUT 0 :BLOCKS-OUTPUT 0 :MESSAGES-SENT 0 :MESSAGES-RECEIVED 0
   :SIGNALS 0 :CONTEXT-SWITCHES-VOLUNTARY 0 :CONTEXT-SWITCHES-INVOLUNTARY 0>
 :THREAD
 #<USAGE :USER-TIME 2543/400 :SYSTEM-TIME 522279/1000000 :MAX-RSS 23324
   :SHARED-MEMORY 0 :DATA-MEMORY 0 :STACK-MEMORY 0 :MINOR-PAGE-FAULTS 22447
   :MAJOR-PAGE-FAULTS 0 :NUM-SWAPS 0 :BLOCKS-INPUT 0 :BLOCKS-OUTPUT 104
   :MESSAGES-SENT 0 :MESSAGES-RECEIVED 0 :SIGNALS 0
   :CONTEXT-SWITCHES-VOLUNTARY 11 :CONTEXT-SWITCHES-INVOLUNTARY 80>
 :LWP
 #<USAGE :USER-TIME 2543/400 :SYSTEM-TIME 522279/1000000 :MAX-RSS 23324
   :SHARED-MEMORY 0 :DATA-MEMORY 0 :STACK-MEMORY 0 :MINOR-PAGE-FAULTS 22447
   :MAJOR-PAGE-FAULTS 0 :NUM-SWAPS 0 :BLOCKS-INPUT 0 :BLOCKS-OUTPUT 104
   :MESSAGES-SENT 0 :MESSAGES-RECEIVED 0 :SIGNALS 0
   :CONTEXT-SWITCHES-VOLUNTARY 11 :CONTEXT-SWITCHES-INVOLUNTARY 80>)
EQL-OK: T
(LISTP (SHOW (IF (FBOUNDP 'RLIMIT) (RLIMIT) '(NO RLIMIT)) :PRETTY T))
(:CPU #<RLIMIT :CUR NIL :MAX NIL> :FSIZE #<RLIMIT :CUR NIL :MAX NIL> :DATA
 #<RLIMIT :CUR NIL :MAX NIL> :STACK #<RLIMIT :CUR 8388608 :MAX NIL> :CORE
 #<RLIMIT :CUR 0 :MAX NIL> :RSS #<RLIMIT :CUR NIL :MAX NIL> :NOFILE
 #<RLIMIT :CUR 1024 :MAX 524288> :AS #<RLIMIT :CUR NIL :MAX NIL> :NPROC
 #<RLIMIT :CUR 31537 :MAX 31537> :MEMLOCK #<RLIMIT :CUR 8388608 :MAX 8388608>
 :LOCKS #<RLIMIT :CUR NIL :MAX NIL>)
EQL-OK: T
(UNAME-P (SHOW (UNAME) :PRETTY T))
#<UNAME :SYSNAME "Linux" :NODENAME "2c767f5a8f804f218718eb1f4703fde7"
  :RELEASE "6.10.10-200.1.lpi4.rpi5.vf2.fc40.riscv64"
  :VERSION "#1 SMP PREEMPT_DYNAMIC Thu Sep 12 14:20:04 EDT 2024"
  :MACHINE "riscv64">
EQL-OK: T
(LISTP (SHOW (USER-INFO) :PRETTY T))
(#<USER-INFO :LOGIN-ID "root" :PASSWD "x" :UID 0 :GID 0 :FULL-NAME "Super User"
   :HOME-DIR "/root" :SHELL "/bin/bash">
 #<USER-INFO :LOGIN-ID "bin" :PASSWD "x" :UID 1 :GID 1 :FULL-NAME "bin"
   :HOME-DIR "/bin" :SHELL "/usr/sbin/nologin">
 #<USER-INFO :LOGIN-ID "daemon" :PASSWD "x" :UID 2 :GID 2 :FULL-NAME "daemon"
   :HOME-DIR "/sbin" :SHELL "/usr/sbin/nologin">
 #<USER-INFO :LOGIN-ID "adm" :PASSWD "x" :UID 3 :GID 4 :FULL-NAME "adm"
   :HOME-DIR "/var/adm" :SHELL "/usr/sbin/nologin">
 #<USER-INFO :LOGIN-ID "lp" :PASSWD "x" :UID 4 :GID 7 :FULL-NAME "lp"
   :HOME-DIR "/var/spool/lpd" :SHELL "/usr/sbin/nologin">
 #<USER-INFO :LOGIN-ID "sync" :PASSWD "x" :UID 5 :GID 0 :FULL-NAME "sync"
   :HOME-DIR "/sbin" :SHELL "/bin/sync">
 #<USER-INFO :LOGIN-ID "shutdown" :PASSWD "x" :UID 6 :GID 0
   :FULL-NAME "shutdown" :HOME-DIR "/sbin" :SHELL "/sbin/shutdown">
 #<USER-INFO :LOGIN-ID "halt" :PASSWD "x" :UID 7 :GID 0 :FULL-NAME "halt"
   :HOME-DIR "/sbin" :SHELL "/sbin/halt">
 #<USER-INFO :LOGIN-ID "mail" :PASSWD "x" :UID 8 :GID 12 :FULL-NAME "mail"
   :HOME-DIR "/var/spool/mail" :SHELL "/usr/sbin/nologin">
 #<USER-INFO :LOGIN-ID "operator" :PASSWD "x" :UID 11 :GID 0
   :FULL-NAME "operator" :HOME-DIR "/root" :SHELL "/usr/sbin/nologin">
 #<USER-INFO :LOGIN-ID "games" :PASSWD "x" :UID 12 :GID 100 :FULL-NAME "games"
   :HOME-DIR "/usr/games" :SHELL "/usr/sbin/nologin">
 #<USER-INFO :LOGIN-ID "ftp" :PASSWD "x" :UID 14 :GID 50 :FULL-NAME "FTP User"
   :HOME-DIR "/var/ftp" :SHELL "/usr/sbin/nologin">
 #<USER-INFO :LOGIN-ID "nobody" :PASSWD "x" :UID 65534 :GID 65534
   :FULL-NAME "Kernel Overflow User" :HOME-DIR "/" :SHELL "/usr/sbin/nologin">
 #<USER-INFO :LOGIN-ID "mockbuild" :PASSWD "x" :UID 989 :GID 135 :FULL-NAME ""
   :HOME-DIR "/builddir" :SHELL "/bin/bash">
 #<USER-INFO :LOGIN-ID "tss" :PASSWD "x" :UID 59 :GID 59
   :FULL-NAME "Account used for TPM access" :HOME-DIR "/"
   :SHELL "/usr/sbin/nologin">
 #<USER-INFO :LOGIN-ID "dbus" :PASSWD "x" :UID 81 :GID 81
   :FULL-NAME "System message bus" :HOME-DIR "/" :SHELL "/sbin/nologin">)
EQL-OK: T
(USER-INFO-P (HANDLER-CASE (SHOW (USER-INFO :DEFAULT) :PRETTY T) (:ERROR (C) (PRINC-ERROR C) (USE-VALUE (MAKE-USER-INFO "" "" 0 0 "" "" "")))))
#<USER-INFO :LOGIN-ID "mockbuild" :PASSWD "x" :UID 989 :GID 135 :FULL-NAME ""
  :HOME-DIR "/builddir" :SHELL "/bin/bash">
EQL-OK: T
(GROUP-INFO-P (SHOW (HANDLER-BIND ((ERROR (LAMBDA (C) (PRINC-ERROR C) (USE-VALUE 0)))) (GROUP-INFO (USER-INFO-GID (USER-INFO (UID))))) :PRETTY T))
#<GROUP-INFO :NAME "mock" :GID 135 :MEMBERS NIL>
EQL-OK: T
(LISTP (SHOW (GROUP-INFO) :PRETTY T))
(#<GROUP-INFO :NAME "root" :GID 0 :MEMBERS NIL>
 #<GROUP-INFO :NAME "bin" :GID 1 :MEMBERS NIL>
 #<GROUP-INFO :NAME "daemon" :GID 2 :MEMBERS NIL>
 #<GROUP-INFO :NAME "sys" :GID 3 :MEMBERS NIL>
 #<GROUP-INFO :NAME "adm" :GID 4 :MEMBERS NIL>
 #<GROUP-INFO :NAME "tty" :GID 5 :MEMBERS NIL>
 #<GROUP-INFO :NAME "disk" :GID 6 :MEMBERS NIL>
 #<GROUP-INFO :NAME "lp" :GID 7 :MEMBERS NIL>
 #<GROUP-INFO :NAME "mem" :GID 8 :MEMBERS NIL>
 #<GROUP-INFO :NAME "kmem" :GID 9 :MEMBERS NIL>
 #<GROUP-INFO :NAME "wheel" :GID 10 :MEMBERS NIL>
 #<GROUP-INFO :NAME "cdrom" :GID 11 :MEMBERS NIL>
 #<GROUP-INFO :NAME "mail" :GID 12 :MEMBERS NIL>
 #<GROUP-INFO :NAME "man" :GID 15 :MEMBERS NIL>
 #<GROUP-INFO :NAME "dialout" :GID 18 :MEMBERS NIL>
 #<GROUP-INFO :NAME "floppy" :GID 19 :MEMBERS NIL>
 #<GROUP-INFO :NAME "games" :GID 20 :MEMBERS NIL>
 #<GROUP-INFO :NAME "utmp" :GID 22 :MEMBERS NIL>
 #<GROUP-INFO :NAME "tape" :GID 33 :MEMBERS NIL>
 #<GROUP-INFO :NAME "kvm" :GID 36 :MEMBERS NIL>
 #<GROUP-INFO :NAME "video" :GID 39 :MEMBERS NIL>
 #<GROUP-INFO :NAME "ftp" :GID 50 :MEMBERS NIL>
 #<GROUP-INFO :NAME "lock" :GID 54 :MEMBERS NIL>
 #<GROUP-INFO :NAME "audio" :GID 63 :MEMBERS NIL>
 #<GROUP-INFO :NAME "users" :GID 100 :MEMBERS NIL>
 #<GROUP-INFO :NAME "input" :GID 104 :MEMBERS NIL>
 #<GROUP-INFO :NAME "render" :GID 105 :MEMBERS NIL>
 #<GROUP-INFO :NAME "sgx" :GID 106 :MEMBERS NIL>
 #<GROUP-INFO :NAME "nobody" :GID 65534 :MEMBERS NIL>
 #<GROUP-INFO :NAME "utempter" :GID 35 :MEMBERS NIL>
 #<GROUP-INFO :NAME "mock" :GID 135 :MEMBERS NIL>
 #<GROUP-INFO :NAME "tss" :GID 59 :MEMBERS NIL>
 #<GROUP-INFO :NAME "dbus" :GID 81 :MEMBERS NIL>)
EQL-OK: T
(= (UID) (USER-INFO-UID (USER-INFO (UID))))
EQL-OK: T
(= (GID) (USER-INFO-GID (USER-INFO (UID))))
EQL-OK: T
(AND (FBOUNDP 'USER-SHELLS) (NOTEVERY #'STRINGP (SHOW (USER-SHELLS))))
("/bin/sh" "/bin/bash" "/usr/bin/sh" "/usr/bin/bash")
EQL-OK: NIL
(FILE-STAT-P (SHOW (FILE-STAT *TMP1*) :PRETTY T))
#<FILE-STAT
  :FILE
  #<OUTPUT BUFFERED FILE-STREAM CHARACTER
    #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-GA2Te9">
  :DEV 34 :INO 42413374 :MODE (:FREG :RUSR :WUSR) :NLINK 1 :UID 989 :GID 135
  :RDEV NIL :SIZE 487 :BLKSIZE NIL :BLOCKS NIL :ATIME 3935309313
  :MTIME 3935309313 :CTIME 3935309313>
EQL-OK: T
(FILE-STAT-P (SHOW (FILE-STAT (PATHNAME *TMP1*)) :PRETTY T))
#<FILE-STAT
  :FILE
  "/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-GA2Te9"
  :DEV 34 :INO 42413374 :MODE (:FREG :RUSR :WUSR) :NLINK 1 :UID 989 :GID 135
  :RDEV NIL :SIZE 487 :BLKSIZE NIL :BLOCKS NIL :ATIME 3935309313
  :MTIME 3935309313 :CTIME 3935309313>
EQL-OK: T
(= (FILE-STAT-INO (FILE-STAT *TMP1*)) (FILE-STAT-INO (FILE-STAT *TMP2*)))
EQL-OK: NIL
(OR (NULL (PROBE-DIRECTORY "/proc/")) (NULL (PROBE-FILE "/proc/kcore")) (PLUSP (FILE-STAT-SIZE (SHOW (FILE-STAT "/proc/kcore")))))
#<FILE-STAT :FILE "/proc/kcore" :DEV 66 :INO 4026531978 :MODE (:FREG :RUSR) :NLINK 1 :UID 0 :GID 0 :RDEV NIL :SIZE -72964104192 :BLKSIZE NIL :BLOCKS NIL :ATIME 3935306337 :MTIME 3935306337 :CTIME 3935306337>
ERROR!! NIL should be T !
(CONVERT-MODE 438)
EQUAL-OK: (:RUSR :WUSR :RGRP :WGRP :ROTH :WOTH)
(CONVERT-MODE '(:RWXU :RWXG :RWXO))
EQL-OK: 511
(AND (FBOUNDP 'STAT-VFS) (NOT (STAT-VFS-P (SHOW (STAT-VFS *TMP2*) :PRETTY T))))
#<STAT-VFS
  :FILE
  #<OUTPUT BUFFERED FILE-STREAM CHARACTER
    #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-PwQ2hO">
  :BSIZE 4096 :FRSIZE 4096 :BLOCKS 235533056 :BFREE 232479043 :BAVAIL 230946339
  :FILES 0 :FFREE 0 :FAVAIL 0 :FSID 10196906975698390312 :FLAG (:ST_NOATIME)
  :NAMEMAX 255 :VOL-NAME NIL :FS-TYPE NIL>
EQL-OK: NIL
(STRING= (SHOW (OR (GETENV "USER") (USER-INFO-LOGIN-ID (SHOW (USER-INFO :DEFAULT))))) (SHOW (FILE-OWNER *TMP1*)))
"mockbuild"
"mockbuild"
EQL-OK: T
(PROGN (CLOSE *TMP1*) (CLOSE *TMP2*) T)
EQL-OK: T
(LISTP (SHOW (COPY-FILE *TMP1* *TMP2* :IF-EXISTS :APPEND)))
((#P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-GA2Te9" #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-PwQ2hO" 487))
EQL-OK: T
(LISTP (SHOW (COPY-FILE *TMP2* *TMP1* :IF-EXISTS :APPEND)))
((#P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-PwQ2hO" #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-GA2Te9" 974))
EQL-OK: T
(LISTP (SHOW (COPY-FILE *TMP1* *TMP2* :IF-EXISTS :APPEND)))
((#P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-GA2Te9" #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-PwQ2hO" 1461))
EQL-OK: T
(LISTP (SHOW (COPY-FILE *TMP2* *TMP1* :IF-EXISTS :APPEND)))
((#P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-PwQ2hO" #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-GA2Te9" 2435))
EQL-OK: T
(LISTP (SHOW (COPY-FILE *TMP1* *TMP2* :IF-EXISTS :APPEND)))
((#P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-GA2Te9" #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-PwQ2hO" 3896))
EQL-OK: T
(LISTP (SHOW (COPY-FILE *TMP2* *TMP1* :IF-EXISTS :APPEND)))
((#P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-PwQ2hO" #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-GA2Te9" 6331))
EQL-OK: T
(LISTP (SHOW (COPY-FILE *TMP1* *TMP2* :IF-EXISTS :APPEND)))
((#P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-GA2Te9" #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-PwQ2hO" 10227))
EQL-OK: T
(LISTP (SHOW (COPY-FILE *TMP2* *TMP1* :IF-EXISTS :APPEND)))
((#P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-PwQ2hO" #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-GA2Te9" 16558))
EQL-OK: T
(LISTP (SHOW (COPY-FILE *TMP1* *TMP2* :IF-EXISTS :APPEND)))
((#P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-GA2Te9" #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-PwQ2hO" 26785))
EQL-OK: T
(LISTP (SHOW (COPY-FILE *TMP2* *TMP1* :IF-EXISTS :APPEND)))
((#P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-PwQ2hO" #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-GA2Te9" 43343))
EQL-OK: T
(INTEGERP (SHOW (WITH-OPEN-FILE (S *TMP1* :DIRECTION :INPUT) (FILE-LENGTH S))))
70128
EQL-OK: T
(INTEGERP (SHOW (WITH-OPEN-FILE (S *TMP2* :DIRECTION :INPUT) (FILE-LENGTH S))))
43343
EQL-OK: 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 (COPY-FILE SRC DST :METHOD :RENAME :IF-EXISTS :ERROR)) (ERROR (E) (PRINC-ERROR E) :GOOD)) (DELETE-FILE SRC) (DELETE-FILE DST)))
[SIMPLE-FILE-ERROR]: OPEN: File #1=#P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dst-file" already exists
EQL-OK: :GOOD
(LET ((SRC "src-file") (DST "dst-file") INODE) (OPEN SRC :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE) (OPEN DST :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE) (SETQ INODE (FILE-STAT-INO (FILE-STAT SRC))) (UNWIND-PROTECT (PROGN (COPY-FILE SRC DST :METHOD :RENAME :IF-EXISTS :OVERWRITE) (= INODE (FILE-STAT-INO (FILE-STAT DST)))) (DELETE-FILE SRC) (DELETE-FILE DST)))
EQL-OK: T
T
EQL-OK: T
(LET ((SYSCONF (SYSCONF))) (IF (AND (GETF SYSCONF :PAGESIZE) (GETF SYSCONF :PHYS-PAGES) (GETF SYSCONF :AVPHYS-PAGES)) (LISTP (SHOW (MULTIPLE-VALUE-LIST (PHYSICAL-MEMORY)))) T))
(8298676224 4186079232)
EQL-OK: T
(LET ((BUF (MAKE-ARRAY 100 :FILL-POINTER T :ADJUSTABLE T :ELEMENT-TYPE 'CHARACTER)) (TIMEOUT (LET* ((UNAME (UNAME))) (COND ((AND (STRING= (UNAME-SYSNAME UNAME) "Linux") (STRING= (UNAME-MACHINE UNAME) "ppc64")) (FORMAT T "~&~S: increase timeout for openpower-linux1~%" 'FLUSH-CLISP) 100) (T 1))))) (DEFUN FLUSH-CLISP (STREAM) (WHEN (SOCKET-STATUS (CONS STREAM :INPUT) TIMEOUT) (SETF (FILL-POINTER BUF) 0) (LOOP :WITH POS-NL = 0 :FOR CH = (READ-CHAR STREAM) :UNTIL (AND (CHAR= CH #\Space) (CHAR= #\[ (CHAR BUF POS-NL)) (LET ((POS1 (POSITION #\] BUF :START POS-NL))) (AND POS1 (CHAR= #\> (CHAR BUF (1+ POS1)))))) :DO (WHEN (CHAR= CH #\Newline) (SETQ POS-NL (1+ (LENGTH BUF)))) (VECTOR-PUSH-EXTEND CH BUF)) (SHOW BUF))))
EQL-OK: FLUSH-CLISP
(DEFUN PROC-SEND (PROC FMT &REST ARGS) (APPLY #'FORMAT PROC FMT ARGS) (TERPRI PROC) (FORCE-OUTPUT PROC) (FLUSH-CLISP PROC))
EQL-OK: PROC-SEND
(MULTIPLE-VALUE-BIND (RUN ARGS) (CMD-ARGS) (PUSH "abort" ARGS) (PUSH "-on-error" ARGS) (SHOW (CONS RUN ARGS) :PRETTY T) (DEFPARAMETER *PROC1* (RUN-PROGRAM RUN :ARGUMENTS ARGS :INPUT :STREAM :OUTPUT :STREAM)) (DEFPARAMETER *PROC2* (RUN-PROGRAM RUN :ARGUMENTS ARGS :INPUT :STREAM :OUTPUT :STREAM)) (FLUSH-CLISP *PROC1*) (FLUSH-CLISP *PROC2*) T)
("/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/base/lisp.run"
 "-on-error" "abort" "-q" "-norc" "-B"
 "/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/"
 "-M"
 "/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/base/lispinit.mem")
"[1]>"
"[1]>"
EQL-OK: T
(STRINGP (PROC-SEND *PROC1* "(setq s (open ~S :direction :output :if-exists :append))" (TRUENAME *TMP1*)))
"
#<OUTPUT BUFFERED FILE-STREAM CHARACTER
  #P\"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-GA2Te9\">
[2]>"
EQL-OK: T
(STRINGP (PROC-SEND *PROC2* "(setq s (open ~S :direction :output :if-exists :append))" (TRUENAME *TMP1*)))
"
#<OUTPUT BUFFERED FILE-STREAM CHARACTER
  #P\"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-GA2Te9\">
[2]>"
EQL-OK: T
(READ-FROM-STRING (PROC-SEND *PROC1* "(stream-lock s t)"))
"
T
[3]>"
EQL-OK: T
(PROC-SEND *PROC2* "(stream-lock s t)")
EQL-OK: NIL
(READ-FROM-STRING (PROC-SEND *PROC1* "(stream-lock s nil)"))
"
NIL
[4]>"
EQL-OK: NIL
(READ-FROM-STRING (FLUSH-CLISP *PROC2*))
"
T
[3]>"
EQL-OK: T
(READ-FROM-STRING (PROC-SEND *PROC1* "(stream-lock s t :block nil)"))
"
NIL
[5]>"
EQL-OK: NIL
(READ-FROM-STRING (PROC-SEND *PROC2* "(stream-lock s nil)"))
"
NIL
[4]>"
EQL-OK: NIL
(READ-FROM-STRING (PROC-SEND *PROC1* "(stream-lock s t :block nil)"))
"
T
[6]>"
EQL-OK: T
(READ-FROM-STRING (PROC-SEND *PROC1* "(stream-lock s nil)"))
"
NIL
[7]>"
EQL-OK: NIL
(PROGN (PROC-SEND *PROC1* "(close s)(ext:quit)") (CLOSE (TWO-WAY-STREAM-INPUT-STREAM *PROC1*)) (CLOSE (TWO-WAY-STREAM-OUTPUT-STREAM *PROC1*)) (CLOSE *PROC1*) (SYMBOL-CLEANUP '*PROC1*) (PROC-SEND *PROC2* "(close s)(ext:quit)") (CLOSE (TWO-WAY-STREAM-INPUT-STREAM *PROC2*)) (CLOSE (TWO-WAY-STREAM-OUTPUT-STREAM *PROC2*)) (CLOSE *PROC2*) (SYMBOL-CLEANUP '*PROC2*))
"
T
[8]>"
"
T
[5]>"
EQL-OK: T
(MULTIPLE-VALUE-LIST (SYNC))
EQL-OK: NIL
(LET ((INODE (SHOW (FILE-STAT-INO (FILE-STAT *TMP1*))))) (MULTIPLE-VALUE-BIND (RUN ARGS) (CMD-ARGS) (PUSH "abort" ARGS) (PUSH "-on-error" ARGS) (SHOW (CONS RUN ARGS) :PRETTY T) (WITH-OPEN-STREAM (S (RUN-PROGRAM RUN :ARGUMENTS ARGS :INPUT :STREAM :OUTPUT :STREAM)) (FLUSH-CLISP S) (PROC-SEND S (FORMAT NIL "(setq s (open ~S))" (NAMESTRING *TMP1*))) (UNWIND-PROTECT (WITH-OPEN-FILE (NEW *TMP1* :DIRECTION :OUTPUT :IF-EXISTS :RENAME-AND-DELETE) (= INODE (SHOW (FILE-STAT-INO (FILE-STAT NEW))))) (PROC-SEND S "(close s)(ext:quit)")))))
42413374
("/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/base/lisp.run"
 "-on-error" "abort" "-q" "-norc" "-B"
 "/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/"
 "-M"
 "/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/base/lispinit.mem")
"[1]>"
"
#<INPUT BUFFERED FILE-STREAM CHARACTER
  #P\"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-GA2Te9\"
  @1>
[2]>"
42413380
"
T
[3]>"
EQL-OK: NIL
(LET ((FILE "foo.bar") (DATES '(3141592653 3279321753))) (UNWIND-PROTECT (PROGN (WITH-OPEN-FILE (S FILE :DIRECTION :OUTPUT) (WRITE S :STREAM S)) (LOOP :FOR D :IN DATES :DO (SET-FILE-STAT FILE :MTIME D) :COLLECT (= D (WITH-OPEN-FILE (S FILE) (FILE-WRITE-DATE S))))) (DELETE-FILE FILE)))
EQUAL-OK: (T T)
(SET-FILE-STAT "this file does not exist" :UID (1+ (UID)))
[OS-FILE-ERROR]: OS-FILE-ERROR(ENOENT): No such file or directory
EQL-OK: ERROR
(LET ((S (FLOOR (FILE-SIZE *TMP1*) 2))) (LIST (= S (SETF (FILE-SIZE *TMP1*) S)) (= S (FILE-SIZE *TMP1*))))
EQUAL-OK: (T T)
(WITH-OPEN-FILE (S *TMP2* :DIRECTION :IO) (LET ((L (FLOOR (FILE-LENGTH S) 2))) (LIST (= L (SETF (FILE-SIZE S) L)) (= L (FILE-LENGTH S)))))
EQUAL-OK: (T T)
(LISTP (SHOW (COPY-FILE *TMP1* *TMP2* :METHOD :HARDLINK)))
(("/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-GA2Te9" "/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-PwQ2hO"))
EQL-OK: T
(LISTP (SHOW (COPY-FILE *TMP2* *TMP1* :METHOD :HARDLINK-OR-COPY)))
(("/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-PwQ2hO" "/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-GA2Te9"))
EQL-OK: T
(LET ((FILE "foo.bar") S) (UNWIND-PROTECT (PROGN (SETQ S (OPEN FILE :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE)) (LIST (FILE-SIZE FILE) (SETF (FILE-SIZE S) 100) (FILE-SIZE FILE) (SETF (FILE-SIZE FILE) 1000) (FILE-SIZE S))) (DELETE-FILE FILE)))
EQUAL-OK: (0 100 100 1000 1000)
(DEFPARAMETER *FOO* (FOPEN "foo" "w"))
EQL-OK: *FOO*
(POSIX::%FPUTC 65 *FOO*)
EQL-OK: 65
(FEOF *FOO*)
EQL-OK: NIL
(FERROR *FOO*)
EQL-OK: NIL
(CLEARERR *FOO*)
EQL-OK: NIL
(FFLUSH *FOO*)
EQL-OK: NIL
(FCLOSE *FOO*)
EQL-OK: NIL
(DEFPARAMETER *FOO* (FOPEN "foo" "r"))
EQL-OK: *FOO*
(POSIX::%FGETC *FOO*)
EQL-OK: 65
(FEOF *FOO*)
EQL-OK: NIL
(POSIX::%FGETC *FOO*)
EQL-OK: -1
(FEOF *FOO*)
EQL-OK: T
(FERROR *FOO*)
EQL-OK: NIL
(CLEARERR *FOO*)
EQL-OK: NIL
(FCLOSE *FOO*)
EQL-OK: NIL
(FINISH-FILE "foo")
"foo": 1 byte:
--> "A"
EQL-OK: 1
(LOOP :WITH ALL = (ERRNO T) :FOR E :FROM 0 :TO (LOOP :FOR P :IN ALL :FOR E = (CAR P) :MAXIMIZE E) :DO (PRINT (LIST E (ERRNO E) (STRERROR))) :FINALLY (ERRNO NIL))
(0 NIL "Success") 
(1 :EPERM "Operation not permitted") 
(2 :ENOENT "No such file or directory") 
(3 :ESRCH "No such process") 
(4 :EINTR "Interrupted system call") 
(5 :EIO "Input/output error") 
(6 :ENXIO "No such device or address") 
(7 :E2BIG "Argument list too long") 
(8 :ENOEXEC "Exec format error") 
(9 :EBADF "Bad file descriptor") 
(10 :ECHILD "No child processes") 
(11 :EAGAIN "Resource temporarily unavailable") 
(12 :ENOMEM "Cannot allocate memory") 
(13 :EACCES "Permission denied") 
(14 :EFAULT "Bad address") 
(15 :ENOTBLK "Block device required") 
(16 :EBUSY "Device or resource busy") 
(17 :EEXIST "File exists") 
(18 :EXDEV "Invalid cross-device link") 
(19 :ENODEV "No such device") 
(20 :ENOTDIR "Not a directory") 
(21 :EISDIR "Is a directory") 
(22 :EINVAL "Invalid argument") 
(23 :ENFILE "Too many open files in system") 
(24 :EMFILE "Too many open files") 
(25 :ENOTTY "Inappropriate ioctl for device") 
(26 :ETXTBSY "Text file busy") 
(27 :EFBIG "File too large") 
(28 :ENOSPC "No space left on device") 
(29 :ESPIPE "Illegal seek") 
(30 :EROFS "Read-only file system") 
(31 :EMLINK "Too many links") 
(32 :EPIPE "Broken pipe") 
(33 :EDOM "Numerical argument out of domain") 
(34 :ERANGE "Numerical result out of range") 
(35 :EDEADLK "Resource deadlock avoided") 
(36 :ENAMETOOLONG "File name too long") 
(37 :ENOLCK "No locks available") 
(38 :ENOSYS "Function not implemented") 
(39 :ENOTEMPTY "Directory not empty") 
(40 :ELOOP "Too many levels of symbolic links") 
(41 41 "Unknown error 41") 
(42 :ENOMSG "No message of desired type") 
(43 :EIDRM "Identifier removed") 
(44 :ECHRNG "Channel number out of range") 
(45 :EL2NSYNC "Level 2 not synchronized") 
(46 :EL3HLT "Level 3 halted") 
(47 :EL3RST "Level 3 reset") 
(48 :ELNRNG "Link number out of range") 
(49 :EUNATCH "Protocol driver not attached") 
(50 :ENOCSI "No CSI structure available") 
(51 :EL2HLT "Level 2 halted") 
(52 :EBADE "Invalid exchange") 
(53 :EBADR "Invalid request descriptor") 
(54 :EXFULL "Exchange full") 
(55 :ENOANO "No anode") 
(56 :EBADRQC "Invalid request code") 
(57 :EBADSLT "Invalid slot") 
(58 58 "Unknown error 58") 
(59 :EBFONT "Bad font file format") 
(60 :ENOSTR "Device not a stream") 
(61 :ENODATA "No data available") 
(62 :ETIME "Timer expired") 
(63 :ENOSR "Out of streams resources") 
(64 :ENONET "Machine is not on the network") 
(65 :ENOPKG "Package not installed") 
(66 :EREMOTE "Object is remote") 
(67 :ENOLINK "Link has been severed") 
(68 :EADV "Advertise error") 
(69 :ESRMNT "Srmount error") 
(70 :ECOMM "Communication error on send") 
(71 :EPROTO "Protocol error") 
(72 :EMULTIHOP "Multihop attempted") 
(73 :EDOTDOT "RFS specific error") 
(74 :EBADMSG "Bad message") 
(75 :EOVERFLOW "Value too large for defined data type") 
(76 :ENOTUNIQ "Name not unique on network") 
(77 :EBADFD "File descriptor in bad state") 
(78 :EREMCHG "Remote address changed") 
(79 :ELIBACC "Can not access a needed shared library") 
(80 :ELIBBAD "Accessing a corrupted shared library") 
(81 :ELIBSCN ".lib section in a.out corrupted") 
(82 :ELIBMAX "Attempting to link in too many shared libraries") 
(83 :ELIBEXEC "Cannot exec a shared library directly") 
(84 :EILSEQ "Invalid or incomplete multibyte or wide character") 
(85 :ERESTART "Interrupted system call should be restarted") 
(86 :ESTRPIPE "Streams pipe error") 
(87 :EUSERS "Too many users") 
(88 :ENOTSOCK "Socket operation on non-socket") 
(89 :EDESTADDRREQ "Destination address required") 
(90 :EMSGSIZE "Message too long") 
(91 :EPROTOTYPE "Protocol wrong type for socket") 
(92 :ENOPROTOOPT "Protocol not available") 
(93 :EPROTONOSUPPORT "Protocol not supported") 
(94 :ESOCKTNOSUPPORT "Socket type not supported") 
(95 :ENOTSUP "Operation not supported") 
(96 :EPFNOSUPPORT "Protocol family not supported") 
(97 :EAFNOSUPPORT "Address family not supported by protocol") 
(98 :EADDRINUSE "Address already in use") 
(99 :EADDRNOTAVAIL "Cannot assign requested address") 
(100 :ENETDOWN "Network is down") 
(101 :ENETUNREACH "Network is unreachable") 
(102 :ENETRESET "Network dropped connection on reset") 
(103 :ECONNABORTED "Software caused connection abort") 
(104 :ECONNRESET "Connection reset by peer") 
(105 :ENOBUFS "No buffer space available") 
(106 :EISCONN "Transport endpoint is already connected") 
(107 :ENOTCONN "Transport endpoint is not connected") 
(108 :ESHUTDOWN "Cannot send after transport endpoint shutdown") 
(109 :ETOOMANYREFS "Too many references: cannot splice") 
(110 :ETIMEDOUT "Connection timed out") 
(111 :ECONNREFUSED "Connection refused") 
(112 :EHOSTDOWN "Host is down") 
(113 :EHOSTUNREACH "No route to host") 
(114 :EALREADY "Operation already in progress") 
(115 :EINPROGRESS "Operation now in progress") 
(116 :ESTALE "Stale file handle") 
(117 :EUCLEAN "Structure needs cleaning") 
(118 :ENOTNAM "Not a XENIX named type file") 
(119 :ENAVAIL "No XENIX semaphores available") 
(120 :EISNAM "Is a named type file") 
(121 :EREMOTEIO "Remote I/O error") 
(122 :EDQUOT "Disk quota exceeded") 
(123 :ENOMEDIUM "No medium found") 
(124 :EMEDIUMTYPE "Wrong medium type") 
(125 :ECANCELED "Operation canceled") 
(126 :ENOKEY "Required key not available") 
(127 :EKEYEXPIRED "Key has expired") 
(128 :EKEYREVOKED "Key has been revoked") 
(129 :EKEYREJECTED "Key was rejected by service") 
(130 :EOWNERDEAD "Owner died") 
(131 :ENOTRECOVERABLE "State not recoverable") 
(132 :ERFKILL "Operation not possible due to RF-kill") 
(133 :EHWPOISON "Memory page has hardware error") 
EQL-OK: NIL
(AND (FBOUNDP 'HOSTID) (NOT (INTEGERP (SHOW (HOSTID)))))
8323584
EQL-OK: NIL
(AND (FBOUNDP 'POSIX::%SETHOSTID) (ZEROP (EUID)) (NOT (= (SETF (HOSTID) (HOSTID)) (HOSTID))))
EQL-OK: NIL
(AND (FBOUNDP 'DOMAINNAME) (NOT (STRINGP (SHOW (DOMAINNAME)))))
"(none)"
EQL-OK: NIL
(AND (FBOUNDP 'POSIX::%SETDOMAINNAME) (ZEROP (EUID)) (NOT (STRING= (SETF (DOMAINNAME) (DOMAINNAME)) (DOMAINNAME))))
EQL-OK: NIL
(DEFUN IPADDR-CLOSURE (ADDRESS) (LET ((HT (MAKE-HASH-TABLE :TEST 'EQUALP))) (LABELS ((HANDLE (S) (UNLESS (GETHASH S HT) (HANDLER-BIND ((ERROR (LAMBDA (C) (SETF (GETHASH S HT) C) (RETURN-FROM HANDLE NIL)))) (LET ((HE (RESOLVE-HOST-IPADDR S))) (SETF (GETHASH S HT) HE) (HANDLE (HOSTENT-NAME HE)) (MAPC #'HANDLE (HOSTENT-ALIASES HE)) (MAPC #'HANDLE (HOSTENT-ADDR-LIST HE))))))) (HANDLE ADDRESS)) HT))
EQL-OK: IPADDR-CLOSURE
(HASH-TABLE-P (SHOW (IPADDR-CLOSURE "localhost") :PRETTY T))
#S(HASH-TABLE :TEST EQUALP
   (#1="127.0.0.1" .
    #<HOSTENT :NAME "localhost" :ALIASES ("localhost.localdomain")
      :ADDR-LIST ("127.0.0.1") :ADDRTYPE 2>)
   (#2="localhost6.localdomain6" .
    #<HOSTENT :NAME "localhost"
      :ALIASES ("localhost.localdomain" "localhost6" "localhost6.localdomain6")
      :ADDR-LIST (#1#) :ADDRTYPE 2>)
   (#3="localhost6" .
    #<HOSTENT :NAME "localhost"
      :ALIASES ("localhost.localdomain" "localhost6" #2#)
      :ADDR-LIST ("127.0.0.1") :ADDRTYPE 2>)
   (#4="localhost.localdomain" .
    #<HOSTENT :NAME "localhost"
      :ALIASES
      ("localhost.localdomain" "localhost.localdomain" #3#
       "localhost6.localdomain6")
      :ADDR-LIST ("127.0.0.1" "127.0.0.1") :ADDRTYPE 2>)
   ("localhost" .
    #<HOSTENT :NAME "localhost"
      :ALIASES
      (#4# "localhost.localdomain" "localhost6" "localhost6.localdomain6")
      :ADDR-LIST ("127.0.0.1" "127.0.0.1") :ADDRTYPE 2>))
EQL-OK: T
(HASH-TABLE-P (SHOW (IPADDR-CLOSURE :DEFAULT) :PRETTY T))
#S(HASH-TABLE :TEST EQUALP
   (#1="127.0.0.2" .
    #<HOSTENT :NAME "2c767f5a8f804f218718eb1f4703fde7" :ALIASES NIL
      :ADDR-LIST ("127.0.0.2") :ADDRTYPE 2>)
   (#2="2c767f5a8f804f218718eb1f4703fde7" .
    #<HOSTENT :NAME "2c767f5a8f804f218718eb1f4703fde7" :ALIASES NIL
      :ADDR-LIST (#1#) :ADDRTYPE 2>)
   (:DEFAULT .
    #<HOSTENT :NAME #2# :ALIASES NIL :ADDR-LIST ("127.0.0.2") :ADDRTYPE 2>))
EQL-OK: T
(DEFUN RUN-SLEEP (SEC) (EXT::LAUNCH "sleep" :ARGUMENTS (LIST (PRINC-TO-STRING SEC)) :WAIT NIL :OUTPUT NIL))
EQL-OK: RUN-SLEEP
(MULTIPLE-VALUE-BIND (PID KIND STATUS) (WAIT :PID (RUN-SLEEP 1)) (LIST (INTEGERP (SHOW PID)) KIND STATUS))
29476
EQUAL-OK: (T :EXITED 0)
(WITH-SUBPROCESSES (LET ((PID-L (RUN-SLEEP 1))) (SLEEP 2) (MULTIPLE-VALUE-BIND (PID-W KIND STATUS) (WAIT) (SHOW (LIST 'PID-L PID-L 'PID-W PID-W)) (LIST (= PID-L PID-W) KIND STATUS))))
(PID-L 29477 PID-W 29477)
EQUAL-OK: (T :EXITED 0)
(WITH-SUBPROCESSES (LET ((PID-L-1 (RUN-SLEEP 1)) (PID-L-2 (RUN-SLEEP 1))) (SLEEP 2) (MULTIPLE-VALUE-BIND (PID-W-1 KIND1 STATUS1) (WAIT) (MULTIPLE-VALUE-BIND (PID-W-2 KIND2 STATUS2) (WAIT) (SHOW (LIST 'PID-L-1 PID-L-1 'PID-L-2 PID-L-2 'PID-W-1 PID-W-1 'PID-W-2 PID-W-2)) (LIST (OR (AND (= PID-L-1 PID-W-1) (= PID-L-2 PID-W-2)) (AND (= PID-L-1 PID-W-2) (= PID-L-2 PID-W-1))) KIND1 KIND2 STATUS1 STATUS2)))))
(PID-L-1 29478 PID-L-2 29479 PID-W-1 29478 PID-W-2 29479)
EQUAL-OK: (T :EXITED :EXITED 0 0)
(WAIT :PID (RUN-SLEEP 1) :NOHANG T)
EQL-OK: 0
(LET ((PID (RUN-SLEEP 1))) (KILL PID :SIGTERM) (MULTIPLE-VALUE-BIND (PID1 KIND STATUS RUSAGE) (WAIT :PID PID :USAGE T) (ASSERT (= PID PID1) NIL "pid: ~S<>~S" PID PID1) (LIST KIND STATUS (USAGE-P (SHOW RUSAGE)))))
#<USAGE :USER-TIME 0 :SYSTEM-TIME 17/15625 :MAX-RSS 23324 :SHARED-MEMORY 0 :DATA-MEMORY 0 :STACK-MEMORY 0 :MINOR-PAGE-FAULTS 4 :MAJOR-PAGE-FAULTS 0 :NUM-SWAPS 0 :BLOCKS-INPUT 0 :BLOCKS-OUTPUT 0 :MESSAGES-SENT 0 :MESSAGES-RECEIVED 0 :SIGNALS 0 :CONTEXT-SWITCHES-VOLUNTARY 0 :CONTEXT-SWITCHES-INVOLUNTARY 1>
EQUAL-OK: (:SIGNALED :SIGTERM T)
(LET ((PID (RUN-SLEEP 1))) (KILL PID :SIGSTOP) (MULTIPLE-VALUE-BIND (PID1 KIND STATUS) (WAIT :PID PID :UNTRACED T) (ASSERT (= PID PID1) NIL "pid: ~S<>~S" PID PID1) (ASSERT (EQ KIND :STOPPED) NIL "kind=~S <> :STOPPED" KIND) (ASSERT (EQ STATUS :SIGSTOP) NIL "status=~S <> :SIGCONT" STATUS)) (KILL PID :SIGCONT) (MULTIPLE-VALUE-BIND (PID1 KIND STATUS) (WAIT :PID PID :CONTINUED T) (ASSERT (= PID PID1) NIL "pid: ~S<>~S" PID PID1) (ASSERT (EQ KIND :CONTINUED) NIL "kind=~S <> :CONTINUED" KIND) (ASSERT (NULL STATUS) NIL "status=~S is non-NIL" STATUS)))
EQL-OK: NIL
(EVERY #'SYSTEM::DOUBLE-FLOAT-P (SHOW (HANDLER-CASE (MULTIPLE-VALUE-LIST (LOADAVG)) (ERROR (C) (PRINC-ERROR C)))))
(1.12255859375d0 1.0986328125d0 1.04638671875d0)
EQL-OK: T
(EVERY #'SYSTEM::FIXNUMP (SHOW (HANDLER-CASE (MULTIPLE-VALUE-LIST (LOADAVG T)) (ERROR (C) (PRINC-ERROR C)))))
(112 110 105)
EQL-OK: T
(VERSION<= "a" "b")
EQL-OK: T
(VERSION< "1.10" "1.8")
EQL-OK: NIL
(VERSION> "foo100" "foo99")
EQL-OK: T
(VERSION>= "d" "d")
EQL-OK: T
(VERSION-COMPARE "foo" "bar")
EQL-OK: >
(VERSION-COMPARE "z" "z")
EQL-OK: =
(VERSION-COMPARE "foo2" "foo10")
EQL-OK: <
(LET (RES0 RES1 RES2) (ENSURE-DIRECTORIES-EXIST "dir1/dir2/dir3/" :VERBOSE T) (OPEN "dir1/file1" :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE) (OPEN "dir1/dir2/file2" :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE) (OPEN "dir1/dir2/dir3/file3" :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE) (SETQ RES0 (FILE-TREE-WALK "dir1" (LAMBDA (F S K B L) (PRINT (LIST K F)) (CASE K ((:D :DP :DNR) (PUSH (LIST F S K B L) RES1))) (IF (= L 3) F)))) (FILE-TREE-WALK "dir1" (LAMBDA (F S K B L) (PRINT (LIST K F)) (PUSH (LIST F S K B L) RES2) (CASE K ((:D :DP :DNR) (DELETE-DIRECTORY (PROBE-PATHNAME F))) (T (DELETE-FILE F))) NIL) :DEPTH T) (LIST (PATHNAME-NAME RES0) (SET-EXCLUSIVE-OR (MAPCAR (LAMBDA (L) (PATHNAME-NAME (FIRST L))) (SHOW (NREVERSE RES1) :PRETTY T)) '("dir1" "dir2" "dir3") :TEST #'EQUAL) (SET-EXCLUSIVE-OR (MAPCAR (LAMBDA (L) (LIST (EQUALP (FIRST L) (FILE-STAT-FILE (SECOND L))) (PATHNAME-NAME (FIRST L)) (THIRD L) (FIFTH L))) (SHOW (NREVERSE RES2) :PRETTY T)) '((T "file3" :F 3) (T "dir3" :DP 2) (T "file2" :F 2) (T "dir2" :DP 1) (T "file1" :F 1) (T "dir1" :DP 0)) :TEST #'EQUAL) (PROBE-DIRECTORY "dir1/")))
Creating directory: /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dir1/
Creating directory: /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dir1/dir2/
Creating directory: /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dir1/dir2/dir3/
(:D "/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dir1") 
(:D "/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dir1/dir2") 
(:D "/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dir1/dir2/dir3") 
(:F "/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dir1/dir2/dir3/file3") 
(:F "/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dir1/dir2/dir3/file3") 
(:DP "/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dir1/dir2/dir3") 
(:F "/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dir1/dir2/file2") 
(:DP "/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dir1/dir2") 
(:F "/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dir1/file1") 
(:DP "/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dir1") 
((#1="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dir1"
  #<FILE-STAT :FILE #1# :DEV 34 :INO 42413384
    :MODE (:FDIR :RWXU :RGRP :XGRP :ROTH :XOTH) :NLINK 1 :UID 989 :GID 135
    :RDEV NIL :SIZE 18 :BLKSIZE NIL :BLOCKS NIL :ATIME 3935309320
    :MTIME 3935309320 :CTIME 3935309320>
  :D 95 0)
 (#2="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dir1/dir2"
  #<FILE-STAT :FILE #2# :DEV 34 :INO 42413385
    :MODE (:FDIR :RWXU :RGRP :XGRP :ROTH :XOTH) :NLINK 1 :UID 989 :GID 135
    :RDEV NIL :SIZE 18 :BLKSIZE NIL :BLOCKS NIL :ATIME 3935309320
    :MTIME 3935309320 :CTIME 3935309320>
  :D 100 1)
 (#3="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dir1/dir2/dir3"
  #<FILE-STAT :FILE #3# :DEV 34 :INO 42413386
    :MODE (:FDIR :RWXU :RGRP :XGRP :ROTH :XOTH) :NLINK 1 :UID 989 :GID 135
    :RDEV NIL :SIZE 10 :BLKSIZE NIL :BLOCKS NIL :ATIME 3935309320
    :MTIME 3935309320 :CTIME 3935309320>
  :D 105 2))
((#1="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dir1/dir2/dir3/file3"
  #<FILE-STAT :FILE #1# :DEV 34 :INO 42413389
    :MODE (:FREG :RUSR :WUSR :RGRP :ROTH) :NLINK 1 :UID 989 :GID 135 :RDEV NIL
    :SIZE 0 :BLKSIZE NIL :BLOCKS NIL :ATIME 3935309320 :MTIME 3935309320
    :CTIME 3935309320>
  :F 110 3)
 (#2="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dir1/dir2/dir3"
  #<FILE-STAT :FILE #2# :DEV 34 :INO 42413386
    :MODE (:FDIR :RWXU :RGRP :XGRP :ROTH :XOTH) :NLINK 1 :UID 989 :GID 135
    :RDEV NIL :SIZE 10 :BLKSIZE NIL :BLOCKS NIL :ATIME 3935309320
    :MTIME 3935309320 :CTIME 3935309320>
  :DP 105 2)
 (#3="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dir1/dir2/file2"
  #<FILE-STAT :FILE #3# :DEV 34 :INO 42413388
    :MODE (:FREG :RUSR :WUSR :RGRP :ROTH) :NLINK 1 :UID 989 :GID 135 :RDEV NIL
    :SIZE 0 :BLKSIZE NIL :BLOCKS NIL :ATIME 3935309320 :MTIME 3935309320
    :CTIME 3935309320>
  :F 105 2)
 (#4="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dir1/dir2"
  #<FILE-STAT :FILE #4# :DEV 34 :INO 42413385
    :MODE (:FDIR :RWXU :RGRP :XGRP :ROTH :XOTH) :NLINK 1 :UID 989 :GID 135
    :RDEV NIL :SIZE 18 :BLKSIZE NIL :BLOCKS NIL :ATIME 3935309320
    :MTIME 3935309320 :CTIME 3935309320>
  :DP 100 1)
 (#5="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dir1/file1"
  #<FILE-STAT :FILE #5# :DEV 34 :INO 42413387
    :MODE (:FREG :RUSR :WUSR :RGRP :ROTH) :NLINK 1 :UID 989 :GID 135 :RDEV NIL
    :SIZE 0 :BLKSIZE NIL :BLOCKS NIL :ATIME 3935309320 :MTIME 3935309320
    :CTIME 3935309320>
  :F 100 1)
 (#6="/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/dir1"
  #<FILE-STAT :FILE #6# :DEV 34 :INO 42413384
    :MODE (:FDIR :RWXU :RGRP :XGRP :ROTH :XOTH) :NLINK 1 :UID 989 :GID 135
    :RDEV NIL :SIZE 18 :BLKSIZE NIL :BLOCKS NIL :ATIME 3935309320
    :MTIME 3935309320 :CTIME 3935309320>
  :DP 95 0))
EQUAL-OK: ("file3" NIL NIL NIL)
(LET* ((D1 "syscalls-tests-dir-1") (D2 "syscalls-tests-dir-2") (F1 "syscalls-tests-file-1") (D (MAKE-PATHNAME :DIRECTORY (LIST :RELATIVE D1 D2))) (F (MAKE-PATHNAME :NAME F1 :DEFAULTS D)) (L (LAMBDA (P) (STRING= F1 (PATHNAME-NAME P)))) (W (MAKE-PATHNAME :DIRECTORY (LIST :RELATIVE D1 :WILD-INFERIORS) :NAME :WILD))) (ENSURE-DIRECTORIES-EXIST D :VERBOSE T) (OPEN F :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE) (UNWIND-PROTECT (LIST (MAPCAR L (DIRECTORY W)) (SET-FILE-STAT D :MODE 0) (HANDLER-CASE (DIRECTORY W) (ERROR (E) (PRINC-ERROR E) (TYPE-OF E))) (DIRECTORY W :IF-DOES-NOT-EXIST :KEEP) (SET-FILE-STAT D :MODE :RWXU) (MAPCAR L (DIRECTORY W)) (FILE-TREE-WALK D1 (LAMBDA (F S K B L) (CASE K ((:D :DP :DNR) (DELETE-DIRECTORY (PROBE-PATHNAME F))) (T (DELETE-FILE F))) NIL) :DEPTH T)) (WHEN (PROBE-DIRECTORY D) (SET-FILE-STAT D :MODE :RWXU))))
Creating directory: /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-dir-1/
Creating directory: /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-dir-1/syscalls-tests-dir-2/
[OS-FILE-ERROR]: OS-FILE-ERROR(EACCES): Permission denied
EQUAL-OK: ((T) NIL OS-FILE-ERROR NIL NIL (T) NIL)
(FNMATCH "foo" "bar")
EQL-OK: NIL
(LETF ((*MISC-ENCODING* CHARSET:UTF-8) (*APROPOS-MATCHER* #'FNMATCH-MATCHER)) (APROPOS-LIST "FNMATCH*R"))
EQUAL-OK: (FNMATCH-MATCHER)
(FNMATCH "foo*bar" "foobar")
EQL-OK: T
(FNMATCH "foo*bar" "foo*bar")
EQL-OK: T
(FNMATCH "foo*bar" "fooAbar")
EQL-OK: T
(FNMATCH "foo*bar" "foo/bar")
EQL-OK: T
(FNMATCH "foo*bar" "foo/bar" :PATHNAME T)
EQL-OK: NIL
(FNMATCH "foo*bar" "fooABAR")
EQL-OK: NIL
(FNMATCH "foo*bar" "fooABAR" :CASE-SENSITIVE NIL)
EQL-OK: T
(LET ((DIR "syscalls-tests-dir/") (DEST "qwer/adsf") COPY) (WHEN (NTH-VALUE 1 (ENSURE-DIRECTORIES-EXIST DIR :VERBOSE T)) (MAPC #'DELETE-FILE (DIRECTORY (CONCATENATE 'STRING DIR "**") :IF-DOES-NOT-EXIST :KEEP))) (SETQ COPY (COPY-FILE DEST DIR :METHOD :SYMLINK)) (LIST (STRING= DEST (CAAR COPY)) (STRING= (PATHNAME-NAME DEST) (PATHNAME-NAME (DELETE-FILE (CADAR COPY)))) (DELETE-DIRECTORY DIR) (PROBE-PATHNAME DIR)))
Creating directory: /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls-tests-dir/
EQUAL-OK: (T T T NIL)
(LET ((DIR "syscalls-tests-dir/") (LINK #P"syscalls-tests-symlink/")) (LIST (MAKE-DIRECTORY DIR) (STRING= DIR (CAAR (COPY-FILE DIR LINK :METHOD :SYMLINK))) (DELETE-DIRECTORY DIR) (DELETE-DIRECTORY LINK)))
EQUAL-OK: (T T T T)
(LET ((DIR "syscalls-tests-dir/") (DEST "foo/bar")) (MAKE-DIRECTORY DIR) (COPY-FILE DEST DIR :METHOD :SYMLINK) (HANDLER-CASE (OR (DELETE-DIRECTORY DIR) (ERROR "deleted non-empty directory")) (OS-ERROR (E) (OR (EQ (OS-ERROR-CODE E) :ENOTEMPTY) (INTEGERP (OS-ERROR-CODE E)) (ERROR "wrong error code: ~s" (OS-ERROR-CODE E))))) (MAPC #'DELETE-FILE (DIRECTORY (CONCATENATE 'STRING DIR "**") :IF-DOES-NOT-EXIST :KEEP)) (DELETE-DIRECTORY DIR))
EQL-OK: T
(LET* ((L "my-symlink") (N (MAKE-STRING 64 :INITIAL-ELEMENT #\a)) (F (TRUENAME (OPEN N :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE))) (CP (COPY-FILE N L :METHOD :SYMLINK))) (LIST (LIST (STRING= N (CAAR CP)) (STRING= L (PATHNAME-NAME (CADAR CP))) (NULL (CDR CP))) (LIST (EQUAL F (TRUENAME L)) (EQUAL F (TRUENAME N))) (LIST (EQUAL F (DELETE-FILE N)) (STRING= L (PATHNAME-NAME (DELETE-FILE L))))))
EQUAL-OK: ((T T T) (T T) (T T))
(LET* ((L "my-symlink") (D (MAKE-STRING 64 :INITIAL-ELEMENT #\a)) (P (MAKE-PATHNAME :DIRECTORY (LIST :RELATIVE D) :NAME "my-file")) (DP (MAKE-PATHNAME :NAME NIL :DEFAULTS P))) (ENSURE-DIRECTORIES-EXIST DP) (OPEN P :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE) (COPY-FILE P (ABSOLUTE-PATHNAME L) :METHOD :SYMLINK) (LIST (EQUAL (TRUENAME L) (DELETE-FILE P)) (DELETE-DIRECTORY DP) (STRING= L (PATHNAME-NAME (DELETE-FILE L)))))
EQUAL-OK: (T T T)
(DEFPARAMETER *CSV1* "my-tmp-1.csv")
EQL-OK: *CSV1*
(DEFPARAMETER *CSV2* "my-tmp-2")
EQL-OK: *CSV2*
(DEFPARAMETER *CSV3* (CONCATENATE 'STRING *CSV2* ".csv"))
EQL-OK: *CSV3*
(DELETE-FILE *CSV1*)
EQL-OK: NIL
(DELETE-FILE *CSV2*)
EQL-OK: NIL
(DELETE-FILE *CSV3*)
EQL-OK: NIL
(PROGN (OPEN *CSV1* :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE) (COPY-FILE *CSV1* *CSV2*) (LIST (PROBE-FILE *CSV2*) (NULL (DELETE-FILE *CSV3*))))
EQUAL-OK: (NIL NIL)
(PROGN (COPY-FILE (MAKE-PATHNAME :NAME *CSV1*) *CSV2*) (LIST (NULL (DELETE-FILE *CSV1*)) (PROBE-FILE *CSV3*) (NULL (DELETE-FILE *CSV2*))))
EQUAL-OK: (NIL NIL NIL)
(PROGN (DELETE-FILE *TMP1*) (DELETE-FILE *TMP2*) (SETQ *FEATURES* (DELETE :NO-STREAM-LOCK *FEATURES*)) (SYMBOLS-CLEANUP '(*TMP1* *TMP2* FLUSH-CLISP PROC-SEND CHECK-TIME-DATE)))
EQL-OK: NIL
RUN-TEST: finished #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/syscalls/test.tst" (1 error out of 260 tests)
RUN-TEST: see /builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/syscalls/test.erg
RUN-TEST: started 
#<INPUT BUFFERED FILE-STREAM CHARACTER
  #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/regexp/test.tst"
  @1>
(NULL (REQUIRE "regexp"))
EQL-OK: T
(LISTP (SHOW (MULTIPLE-VALUE-LIST (MODULE-INFO "regexp" T)) :PRETTY T))
("regexp" 3 (REGEXP::REGEXP-FREE REGEXP:REGEXP-EXEC REGEXP:REGEXP-COMPILE) 11
 (#() REGEXP::MAKE-MATCH-BOA :START :RETURN-TYPE :NOTEOL :NOTBOL :NOSUB
  :NEWLINE :IGNORE-CASE :EXTENDED :END))
EQL-OK: T
(LET ((RC (REGEXP:REGEXP-COMPILE "a(a)*" :EXTENDED T))) (PROG1 (LIST (MULTIPLE-VALUE-LIST (REGEXP:REGEXP-EXEC RC "a")) (REGEXP:REGEXP-EXEC RC "a" :RETURN-TYPE 'LIST) (REGEXP:REGEXP-EXEC RC "a" :RETURN-TYPE 'VECTOR) (REGEXP:REGEXP-EXEC RC "a" :RETURN-TYPE 'BOOLEAN) (MULTIPLE-VALUE-LIST (REGEXP:REGEXP-EXEC RC "z")) (REGEXP:REGEXP-EXEC RC "z" :RETURN-TYPE 'LIST) (REGEXP:REGEXP-EXEC RC "z" :RETURN-TYPE 'VECTOR) (REGEXP:REGEXP-EXEC RC "z" :RETURN-TYPE 'BOOLEAN)) (GC) (GC)))
EQUALP-OK: ((#S(REGEXP:MATCH :START 0 :END 1) NIL) (#S(REGEXP:MATCH :START 0 :END 1) NIL) #(#S(REGEXP:MATCH :START 0 :END 1) NIL) T NIL NIL #() NIL)
(LETF ((*APROPOS-MATCHER* #'REGEXP:REGEXP-MATCHER) (*MISC-ENCODING* CHARSET:UTF-8)) (APROPOS-LIST "regexp.*r$"))
EQUAL-OK: (REGEXP:REGEXP-MATCHER)
(REGEXP:REGEXP-EXEC (FOREIGN-POINTER (FFI:UNSIGNED-FOREIGN-ADDRESS 0)) "a")
[SIMPLE-ERROR]: REGEXP:REGEXP-EXEC: NULL pattern #<FOREIGN-POINTER #x0000000000000000>
EQL-OK: ERROR
(LET* ((S "abcdefghijklmnopqrstuvwxyz") (R "") P M (S3 (CONCATENATE 'STRING S S S))) (LOOP :REPEAT 3 :DO (LOOP :FOR C :ACROSS S :DO (SETQ R (CONCATENATE 'STRING "\\(" R "\\)\\(" (STRING C) "\\)")))) (SETQ P (REGEXP:REGEXP-COMPILE R)) (SETQ M (REGEXP:REGEXP-EXEC P S3)) (LIST (LENGTH M) (STRING= S3 (REGEXP:MATCH-STRING S3 (CAR M)))))
EQUAL-OK: (157 T)
(DEFUN RE-TEST (PATTERN STRING) (MAPCAR (LAMBDA (MATCH) (AND MATCH (REGEXP:MATCH-STRING STRING MATCH))) (MULTIPLE-VALUE-LIST (REGEXP:REGEXP-EXEC (REGEXP:REGEXP-COMPILE PATTERN :EXTENDED T) STRING))))
EQL-OK: RE-TEST
(RE-TEST "a*a*" "aaaaaa")
EQUAL-OK: ("aaaaaa")
(RE-TEST "a*a*a*" "aaaaaa")
EQUAL-OK: ("aaaaaa")
(RE-TEST "a*a*a*a*" "aaaaaa")
EQUAL-OK: ("aaaaaa")
(RE-TEST "a*a*a*a*a*" "aaaaaa")
EQUAL-OK: ("aaaaaa")
(RE-TEST "a*a*a*a*a*a*" "aaaaaa")
EQUAL-OK: ("aaaaaa")
(RE-TEST "a*a*a*a*a*a*a*" "aaaaaa")
EQUAL-OK: ("aaaaaa")
(RE-TEST "" "")
EQUAL-OK: ("")
(RE-TEST "b{0,6}" "")
EQUAL-OK: ("")
(RE-TEST "ab{0,0}c" "abc")
EQL-OK: NIL
(RE-TEST "ab{1,1}c" "abbc")
EQL-OK: NIL
(RE-TEST "ab{3,7}c" "abbbbbbbbc")
EQL-OK: NIL
(RE-TEST "ab{3,7}c" "abbbbbbbbbc")
EQL-OK: NIL
(RE-TEST "ab{3,7}c" "abbbbbbbbbbc")
EQL-OK: NIL
(RE-TEST "ab{3,7}c" "abbbbbbbbbbbc")
EQL-OK: NIL
(RE-TEST "b{2,7}" "bb")
EQUAL-OK: ("bb")
(RE-TEST "b{1,6}" "")
EQL-OK: NIL
(RE-TEST "b{1,6}" "b")
EQUAL-OK: ("b")
(RE-TEST "b{2,7}" "b")
EQL-OK: NIL
(RE-TEST "ab{0,7}c" "ac")
EQUAL-OK: ("ac")
(RE-TEST "ab{1,7}c" "abc")
EQUAL-OK: ("abc")
(RE-TEST "ab{2,7}c" "abbc")
EQUAL-OK: ("abbc")
(RE-TEST "ab{3,7}c" "abbbc")
EQUAL-OK: ("abbbc")
(RE-TEST "ab{3,7}c" "abbbbc")
EQUAL-OK: ("abbbbc")
(RE-TEST "ab{3,7}c" "abbbbbc")
EQUAL-OK: ("abbbbbc")
(RE-TEST "ab{3,7}c" "abbbbbbc")
EQUAL-OK: ("abbbbbbc")
(RE-TEST "ab{3,7}c" "abbbbbbbc")
EQUAL-OK: ("abbbbbbbc")
(RE-TEST "ab{3,7}c" "abbbbbbbbc")
EQL-OK: NIL
(RE-TEST "ab{3,7}c" "abbc")
EQL-OK: NIL
(RE-TEST "ab{3,7}c" "abc")
EQL-OK: NIL
(RE-TEST "(a|b)*c|(a|ab)*c" "xc")
EQUAL-OK: ("c" NIL NIL)
(RE-TEST "(a)*" "b")
EQUAL-OK: ("" NIL)
(RE-TEST "(..)*(...)*" "a")
EQUAL-OK: ("" NIL NIL)
(RE-TEST "(..)*(...)*" "abc")
EQUAL-OK: ("abc" NIL "abc")
(RE-TEST "^" "")
EQUAL-OK: ("")
(RE-TEST "$" "")
EQUAL-OK: ("")
(RE-TEST "^$" "")
EQUAL-OK: ("")
(RE-TEST "^a$" "a")
EQUAL-OK: ("a")
(RE-TEST "abc" "abc")
EQUAL-OK: ("abc")
(RE-TEST "abc" "xbc")
EQL-OK: NIL
(RE-TEST "abc" "axc")
EQL-OK: NIL
(RE-TEST "abc" "abx")
EQL-OK: NIL
(RE-TEST "abc" "xabcy")
EQUAL-OK: ("abc")
(RE-TEST "abc" "ababc")
EQUAL-OK: ("abc")
(RE-TEST "ab*c" "abc")
EQUAL-OK: ("abc")
(RE-TEST "ab*bc" "abc")
EQUAL-OK: ("abc")
(RE-TEST "ab*bc" "abbc")
EQUAL-OK: ("abbc")
(RE-TEST "ab*bc" "abbbbc")
EQUAL-OK: ("abbbbc")
(RE-TEST "ab+bc" "abbc")
EQUAL-OK: ("abbc")
(RE-TEST "ab+bc" "abc")
EQL-OK: NIL
(RE-TEST "ab+bc" "abq")
EQL-OK: NIL
(RE-TEST "ab+bc" "abbbbc")
EQUAL-OK: ("abbbbc")
(RE-TEST "ab?bc" "abbc")
EQUAL-OK: ("abbc")
(RE-TEST "ab?bc" "abc")
EQUAL-OK: ("abc")
(RE-TEST "ab?bc" "abbbbc")
EQL-OK: NIL
(RE-TEST "ab?c" "abc")
EQUAL-OK: ("abc")
(RE-TEST "^abc$" "abc")
EQUAL-OK: ("abc")
(RE-TEST "^abc$" "abcc")
EQL-OK: NIL
(RE-TEST "^abc" "abcc")
EQUAL-OK: ("abc")
(RE-TEST "^abc$" "aabc")
EQL-OK: NIL
(RE-TEST "abc$" "aabc")
EQUAL-OK: ("abc")
(RE-TEST "^" "abc")
EQUAL-OK: ("")
(RE-TEST "$" "abc")
EQUAL-OK: ("")
(RE-TEST "a.c" "abc")
EQUAL-OK: ("abc")
(RE-TEST "a.c" "axc")
EQUAL-OK: ("axc")
(RE-TEST "a.*c" "axyzc")
EQUAL-OK: ("axyzc")
(RE-TEST "a.*c" "axyzd")
EQL-OK: NIL
(RE-TEST "a[bc]d" "abc")
EQL-OK: NIL
(RE-TEST "a[bc]d" "abd")
EQUAL-OK: ("abd")
(RE-TEST "a[b-d]e" "abd")
EQL-OK: NIL
(RE-TEST "a[b-d]e" "ace")
EQUAL-OK: ("ace")
(RE-TEST "a[b-d]" "aac")
EQUAL-OK: ("ac")
(RE-TEST "a[-b]" "a-")
EQUAL-OK: ("a-")
(RE-TEST "a[b-]" "a-")
EQUAL-OK: ("a-")
(RE-TEST "a[b-a]" "-")
[SIMPLE-ERROR]: REGEXP:REGEXP-COMPILE ("a[b-a]"): "Invalid range end"
EQL-OK: ERROR
(RE-TEST "a[]b" "-")
[SIMPLE-ERROR]: REGEXP:REGEXP-COMPILE ("a[]b"): "Unmatched [, [^, [:, [., or [="
EQL-OK: ERROR
(RE-TEST "a[" "-")
[SIMPLE-ERROR]: REGEXP:REGEXP-COMPILE ("a["): "Invalid regular expression"
EQL-OK: ERROR
(RE-TEST "a]" "a]")
EQUAL-OK: ("a]")
(RE-TEST "a[]]b" "a]b")
EQUAL-OK: ("a]b")
(RE-TEST "a[^bc]d" "aed")
EQUAL-OK: ("aed")
(RE-TEST "a[^bc]d" "abd")
EQL-OK: NIL
(RE-TEST "a[^-b]c" "adc")
EQUAL-OK: ("adc")
(RE-TEST "a[^-b]c" "a-c")
EQL-OK: NIL
(RE-TEST "a[^]b]c" "a]c")
EQL-OK: NIL
(RE-TEST "a[^]b]c" "adc")
EQUAL-OK: ("adc")
(RE-TEST "ab|cd" "abc")
EQUAL-OK: ("ab")
(RE-TEST "ab|cd" "abcd")
EQUAL-OK: ("ab")
(RE-TEST "()ef" "def")
EQUAL-OK: ("ef" "")
(RE-TEST "()*" "-")
EQUAL-OK: ("" "")
(RE-TEST "*a" "-")
[SIMPLE-ERROR]: REGEXP:REGEXP-COMPILE ("*a"): "Invalid preceding regular expression"
EQL-OK: ERROR
(RE-TEST "^*" "-")
[SIMPLE-ERROR]: REGEXP:REGEXP-COMPILE ("^*"): "Invalid preceding regular expression"
EQL-OK: ERROR
(RE-TEST "$*" "-")
[SIMPLE-ERROR]: REGEXP:REGEXP-COMPILE ("$*"): "Invalid preceding regular expression"
EQL-OK: ERROR
(RE-TEST "(*)b" "-")
[SIMPLE-ERROR]: REGEXP:REGEXP-COMPILE ("(*)b"): "Invalid preceding regular expression"
EQL-OK: ERROR
(RE-TEST "$b" "b")
EQL-OK: NIL
(RE-TEST "a\\(b" "a(b")
EQUAL-OK: ("a(b")
(RE-TEST "a\\(*b" "ab")
EQUAL-OK: ("ab")
(RE-TEST "a\\(*b" "a((b")
EQUAL-OK: ("a((b")
(RE-TEST "a\\\\b" "a\\b")
EQUAL-OK: ("a\\b")
(RE-TEST "(abc" "-")
[SIMPLE-ERROR]: REGEXP:REGEXP-COMPILE ("(abc"): "Unmatched ( or \\("
EQL-OK: ERROR
(RE-TEST "((a))" "abc")
EQUAL-OK: ("a" "a" "a")
(RE-TEST "(a)b(c)" "abc")
EQUAL-OK: ("abc" "a" "c")
(RE-TEST "a+b+c" "aabbabc")
EQUAL-OK: ("abc")
(RE-TEST "a**" "-")
EQUAL-OK: ("")
(RE-TEST "(a*)*" "-")
EQUAL-OK: ("" "")
(RE-TEST "(a*)+" "-")
EQUAL-OK: ("" "")
(RE-TEST "(a*|b)*" "-")
EQUAL-OK: ("" "")
(RE-TEST "(a+|b)*" "ab")
EQUAL-OK: ("ab" "b")
(RE-TEST "(a+|b)+" "ab")
EQUAL-OK: ("ab" "b")
(RE-TEST "(a+|b)?" "ab")
EQUAL-OK: ("a" "a")
(RE-TEST "[^ab]*" "cde")
EQUAL-OK: ("cde")
(RE-TEST "(^)*" "-")
EQUAL-OK: ("" NIL)
(RE-TEST ")(" "-")
[SIMPLE-ERROR]: REGEXP:REGEXP-COMPILE (")("): "Unmatched ( or \\("
EQL-OK: ERROR
(RE-TEST "" "abc")
EQUAL-OK: ("")
(RE-TEST "abc" "")
EQL-OK: NIL
(RE-TEST "a*" "")
EQUAL-OK: ("")
(RE-TEST "([abc])*d" "abbbcd")
EQUAL-OK: ("abbbcd" "c")
(RE-TEST "([abc])*bcd" "abcd")
EQUAL-OK: ("abcd" "a")
(RE-TEST "a|b|c|d|e" "e")
EQUAL-OK: ("e")
(RE-TEST "(a|b|c|d|e)f" "ef")
EQUAL-OK: ("ef" "e")
(RE-TEST "((a*|b))*" "-")
EQUAL-OK: ("" "" "")
(RE-TEST "abcd*efg" "abcdefg")
EQUAL-OK: ("abcdefg")
(RE-TEST "ab*" "xabyabbbz")
EQUAL-OK: ("ab")
(RE-TEST "ab*" "xayabbbz")
EQUAL-OK: ("a")
(RE-TEST "(ab|cd)e" "abcde")
EQUAL-OK: ("cde" "cd")
(RE-TEST "[abhgefdc]ij" "hij")
EQUAL-OK: ("hij")
(RE-TEST "^(ab|cd)e" "abcde")
EQL-OK: NIL
(RE-TEST "(a|b)c*d" "abcd")
EQUAL-OK: ("bcd" "b")
(RE-TEST "(ab|ab*)bc" "abc")
EQUAL-OK: ("abc" "a")
(RE-TEST "a([bc]*)c*" "abc")
EQUAL-OK: ("abc" "bc")
(RE-TEST "a([bc]*)(c*d)" "abcd")
EQUAL-OK: ("abcd" "bc" "d")
(RE-TEST "a([bc]+)(c*d)" "abcd")
EQUAL-OK: ("abcd" "bc" "d")
(RE-TEST "a([bc]*)(c+d)" "abcd")
EQUAL-OK: ("abcd" "b" "cd")
(RE-TEST "a[bcd]*dcdcde" "adcdcde")
EQUAL-OK: ("adcdcde")
(RE-TEST "a[bcd]+dcdcde" "adcdcde")
EQL-OK: NIL
(RE-TEST "(ab|a)b*c" "abc")
EQUAL-OK: ("abc" "ab")
(RE-TEST "((a)(b)c)(d)" "abcd")
EQUAL-OK: ("abcd" "abc" "a" "b" "d")
(RE-TEST "[a-zA-Z_][a-zA-Z0-9_]*" "alpha")
EQUAL-OK: ("alpha")
(RE-TEST "^a(bc+|b[eh])g|.h$" "abh")
EQUAL-OK: ("bh" NIL)
(RE-TEST "(bc+d$|ef*g.|h?i(j|k))" "effgz")
EQUAL-OK: ("effgz" "effgz" NIL)
(RE-TEST "(bc+d$|ef*g.|h?i(j|k))" "ij")
EQUAL-OK: ("ij" "ij" "j")
(RE-TEST "(bc+d$|ef*g.|h?i(j|k))" "effg")
EQL-OK: NIL
(RE-TEST "(bc+d$|ef*g.|h?i(j|k))" "bcdd")
EQL-OK: NIL
(RE-TEST "(bc+d$|ef*g.|h?i(j|k))" "reffgz")
EQUAL-OK: ("effgz" "effgz" NIL)
(RE-TEST "((((((((((a))))))))))" "a")
EQUAL-OK: ("a" "a" "a" "a" "a" "a" "a" "a" "a" "a" "a")
(RE-TEST "(((((((((a)))))))))" "a")
EQUAL-OK: ("a" "a" "a" "a" "a" "a" "a" "a" "a" "a")
(RE-TEST "multiple words of text" "uh-uh")
EQL-OK: NIL
(RE-TEST "multiple words" "multiple words, yeah")
EQUAL-OK: ("multiple words")
(RE-TEST "(.*)c(.*)" "abcde")
EQUAL-OK: ("abcde" "ab" "de")
(RE-TEST "\\((.*), (.*)\\)" "(a, b)")
EQUAL-OK: ("(a, b)" "a" "b")
(RE-TEST "[k]" "ab")
EQL-OK: NIL
(RE-TEST "abcd" "abcd")
EQUAL-OK: ("abcd")
(RE-TEST "a(bc)d" "abcd")
EQUAL-OK: ("abcd" "bc")
(RE-TEST "a[-]?c" "ac")
EQUAL-OK: ("ac")
(RE-TEST "a[
-]?c" "ac")
EQUAL-OK: ("ac")
(RE-TEST "a[
-]?c" "ac")
EQUAL-OK: ("ac")
(DEFPARAMETER *SAVED-LOCALE* (SET-LOCALE :ALL))
EQL-OK: *SAVED-LOCALE*
(SET-LOCALE :ALL "C")
EQUAL-OK: "C"
(RE-TEST "[ -~]*" "abc")
EQUAL-OK: ("abc")
(RE-TEST "[ -~ -~]*" "abc")
EQUAL-OK: ("abc")
(RE-TEST "[ -~ -~ -~]*" "abc")
EQUAL-OK: ("abc")
(RE-TEST "[ -~ -~ -~ -~]*" "abc")
EQUAL-OK: ("abc")
(RE-TEST "[ -~ -~ -~ -~ -~]*" "abc")
EQUAL-OK: ("abc")
(RE-TEST "[ -~ -~ -~ -~ -~ -~]*" "abc")
EQUAL-OK: ("abc")
(RE-TEST "[ -~ -~ -~ -~ -~ -~ -~]*" "abc")
EQUAL-OK: ("abc")
(STRING= *SAVED-LOCALE* (SET-LOCALE :ALL *SAVED-LOCALE*))
EQL-OK: T
(RE-TEST "(na)x+" "naxna")
EQUAL-OK: ("nax" "na")
(RE-TEST "(na)x+na" "naxna123")
EQUAL-OK: ("naxna" "na")
(RE-TEST "(na)x+" "naxxos")
EQUAL-OK: ("naxx" "na")
(RE-TEST "(na)x+" "naxos")
EQUAL-OK: ("nax" "na")
(RE-TEST "(na)x+" "naos")
EQL-OK: NIL
(RE-TEST "(na)x*" "naxxos")
EQUAL-OK: ("naxx" "na")
(RE-TEST "(na)x*" "naxos")
EQUAL-OK: ("nax" "na")
(RE-TEST "(na)x*" "naos")
EQUAL-OK: ("na" "na")
(RE-TEST "[0-9]+" "123ab")
EQUAL-OK: ("123")
(RE-TEST "[a-zA-Z]+" "aAbb123")
EQUAL-OK: ("aAbb")
(RE-TEST "[0-9a-z]+" "1234&&*")
EQUAL-OK: ("1234")
(RE-TEST "[0-9a-z]+" "1234a&&*")
EQUAL-OK: ("1234a")
(RE-TEST "[0-9a-zA-Z]+" "a1234a")
EQUAL-OK: ("a1234a")
(RE-TEST "[0-9a-zA-Z&]+" "aAbb123&&*")
EQUAL-OK: ("aAbb123&&")
(RE-TEST "[0-9]+\\.[0-9]*" "0.123cm")
EQUAL-OK: ("0.123")
(RE-TEST "{[^}
]*}" "{M.D. Harrison and A. Monk (Ed.)} nt foo: 2")
[SIMPLE-ERROR]: REGEXP:REGEXP-COMPILE ("{[^}
]*}"): "Invalid preceding regular expression"
EQL-OK: ERROR
(RE-TEST "{[^}
]*}" "{M.D. Harrison and
A. Monk (Ed.)} nt foo: 2")
[SIMPLE-ERROR]: REGEXP:REGEXP-COMPILE ("{[^}
]*}"): "Invalid preceding regular expression"
EQL-OK: ERROR
(RE-TEST "{[^}
]*}" "{M.D. Harrison and {A. Monk} (Ed.)} nt foo: 2")
[SIMPLE-ERROR]: REGEXP:REGEXP-COMPILE ("{[^}
]*}"): "Invalid preceding regular expression"
EQL-OK: ERROR
(RE-TEST "ca?r" "car")
EQUAL-OK: ("car")
(RE-TEST "ca?r" "cr")
EQUAL-OK: ("cr")
(RE-TEST "c[ad]+r" "caaar")
EQUAL-OK: ("caaar")
(RE-TEST "c[ad]+r" "caaar aa1")
EQUAL-OK: ("caaar")
(RE-TEST "c[ad]+r$" "caaar")
EQUAL-OK: ("caaar")
(RE-TEST ".*" "")
EQUAL-OK: ("")
(RE-TEST ".*" "aa")
EQUAL-OK: ("aa")
(RE-TEST "c[ad]?r" "cr")
EQUAL-OK: ("cr")
(RE-TEST "c[ad]?r" "car")
EQUAL-OK: ("car")
(RE-TEST "c[ad]?r" "cdr")
EQUAL-OK: ("cdr")
(RE-TEST "c[0-9]?r" "cr")
EQUAL-OK: ("cr")
(RE-TEST "c[0-9]?r" "c9rxx")
EQUAL-OK: ("c9r")
(RE-TEST "c[0-9]?r" "crxx")
EQUAL-OK: ("cr")
(RE-TEST "a|b" "a")
EQUAL-OK: ("a")
(RE-TEST "ab.yz" "ab yz")
EQUAL-OK: ("ab yz")
(RE-TEST "ab.yz" "ab
yz")
EQUAL-OK: ("ab
yz")
(RE-TEST "(abc){1,2}" "abcabc")
EQUAL-OK: ("abcabc" "abc")
(RE-TEST "(abc){1,2}x*(def)y*def" "abcabcxxxxdefyyyyyyydef$%%%%%")
EQUAL-OK: ("abcabcxxxxdefyyyyyyydef" "abc" "def")
(RE-TEST "a|bc*" "a")
EQUAL-OK: ("a")
(RE-TEST "[A-Z]+" "ABCY")
EQUAL-OK: ("ABCY")
(RE-TEST "[0-9]+\\.[0-9]*(e[+-]?[0-9]+)" "12.3e4  k")
EQUAL-OK: ("12.3e4" "e4")
(RE-TEST "[0-9]+\\.[0-9]*(e[+-]?[0-9]+)" "12.3e-4  k")
EQUAL-OK: ("12.3e-4" "e-4")
(RE-TEST "[0-9]+\\.[0-9]*(e[+-]?[0-9]+)?" "12.3  k")
EQUAL-OK: ("12.3" NIL)
(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Muammar Qaddafi")
EQUAL-OK: ("Muammar Qaddafi" NIL "dd")
(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Mo'ammar Gadhafi")
EQUAL-OK: ("Mo'ammar Gadhafi" NIL "dh")
(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Muammar Kaddafi")
EQUAL-OK: ("Muammar Kaddafi" NIL "dd")
(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Muammar Qadhafi")
EQUAL-OK: ("Muammar Qadhafi" NIL "dh")
(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Moammar El Kadhafi")
EQUAL-OK: ("Moammar El Kadhafi" NIL "dh")
(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Muammar Gadafi")
EQUAL-OK: ("Muammar Gadafi" NIL "d")
(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Mu'ammar al-Qadafi")
EQUAL-OK: ("Mu'ammar al-Qadafi" NIL "d")
(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Moamer El Kazzafi")
EQUAL-OK: ("Moamer El Kazzafi" NIL "zz")
(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Moamar al-Gaddafi")
EQUAL-OK: ("Moamar al-Gaddafi" NIL "dd")
(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Mu'ammar Al Qathafi")
EQUAL-OK: ("Mu'ammar Al Qathafi" NIL "th")
(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Muammar Al Qathafi")
EQUAL-OK: ("Muammar Al Qathafi" NIL "th")
(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Mo'ammar el-Gadhafi")
EQUAL-OK: ("Mo'ammar el-Gadhafi" NIL "dh")
(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Moamar El Kadhafi")
EQUAL-OK: ("Moamar El Kadhafi" NIL "dh")
(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Muammar al-Qadhafi")
EQUAL-OK: ("Muammar al-Qadhafi" NIL "dh")
(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Mu'ammar al-Qadhdhafi")
EQUAL-OK: ("Mu'ammar al-Qadhdhafi" NIL "dh")
(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Mu'ammar Qadafi")
EQUAL-OK: ("Mu'ammar Qadafi" NIL "d")
(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Moamar Gaddafi")
EQUAL-OK: ("Moamar Gaddafi" NIL "dd")
(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Mu'ammar Qadhdhafi")
EQUAL-OK: ("Mu'ammar Qadhdhafi" NIL "dh")
(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Muammar Khaddafi")
EQUAL-OK: ("Muammar Khaddafi" NIL "dd")
(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Muammar al-Khaddafi")
EQUAL-OK: ("Muammar al-Khaddafi" NIL "dd")
(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Mu'amar al-Kadafi")
EQUAL-OK: ("Mu'amar al-Kadafi" NIL "d")
(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Muammar Ghaddafy")
EQUAL-OK: ("Muammar Ghaddafy" NIL "dd")
(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Muammar Ghadafi")
EQUAL-OK: ("Muammar Ghadafi" NIL "d")
(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Muammar Ghaddafi")
EQUAL-OK: ("Muammar Ghaddafi" NIL "dd")
(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Muamar Kaddafi")
EQUAL-OK: ("Muamar Kaddafi" NIL "dd")
(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Muammar Quathafi")
EQUAL-OK: ("Muammar Quathafi" NIL "th")
(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Muammar Gheddafi")
EQUAL-OK: ("Muammar Gheddafi" NIL "dd")
(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Muamar Al-Kaddafi")
EQUAL-OK: ("Muamar Al-Kaddafi" NIL "dd")
(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Moammar Khadafy ")
EQUAL-OK: ("Moammar Khadafy" NIL "d")
(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Moammar Qudhafi")
EQUAL-OK: ("Moammar Qudhafi" NIL "dh")
(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Mu'ammar al-Qaddafi")
EQUAL-OK: ("Mu'ammar al-Qaddafi" NIL "dd")
(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Mulazim Awwal Mu'ammar Muhammad Abu Minyar al-Qadhafi")
EQUAL-OK: ("Mu'ammar Muhammad Abu Minyar al-Qadhafi" NIL "dh")
(RE-TEST "((a|b{10,11})|(b))*-\\2" "aaab-a")
EQUAL-OK: ("aaab-a" "b" "a" "b")
(RE-TEST "(a)*-\\1" "aaa-a")
EQUAL-OK: ("aaa-a" "a")
(RE-TEST "(a)*-\\1b" "aaa-b")
EQL-OK: NIL
(RE-TEST "([xyz])(-\\2)" "x-y")
[SIMPLE-ERROR]: REGEXP:REGEXP-COMPILE ("([xyz])(-\\2)"): "Invalid back reference"
EQL-OK: ERROR
(RE-TEST "(([xyz])(-\\2))" "x-y")
EQL-OK: NIL
(RE-TEST "(([xyz])(-\\2)*)*" "x-y")
EQUAL-OK: ("x" "x" "x" NIL)
(RE-TEST "(([xyz])(-\\2)*)*" "x-")
EQUAL-OK: ("x" "x" "x" NIL)
(RE-TEST "(([xyz])(-\\2)*)*" "xy-yz-y")
EQUAL-OK: ("xy-yz" "z" "z" "-y")
(RE-TEST "((.*)\\1)+" "xxxxxx")
[SIMPLE-ERROR]: REGEXP:REGEXP-COMPILE ("((.*)\\1)+"): "Invalid back reference"
EQL-OK: ERROR
(RE-TEST "(a*)\\1\\1(a*)\\2\\2\\2" "aaaaaa")
EQUAL-OK: ("aaaaaa" "aa" "")
(RE-TEST "(a*)(a*)\\1\\2" "aaaa")
EQUAL-OK: ("aaaa" "aa" "")
(RE-TEST "(a*)\\1(a*)\\2\\2" "aaaa")
EQUAL-OK: ("aaaa" "aa" "")
(RE-TEST "(a*)\\1\\1(a*)" "aaaaaa")
EQUAL-OK: ("aaaaaa" "aa" "")
(RE-TEST "(a*)\\1\\1(a*)\\2" "aaaaaa")
EQUAL-OK: ("aaaaaa" "aa" "")
(RE-TEST "(a*)\\1\\1(a*)\\2\\2" "aaaaaa")
EQUAL-OK: ("aaaaaa" "aa" "")
(RE-TEST "(.*)\\1\\1(.*)\\2\\2\\2" "aaaaaa")
EQUAL-OK: ("aaaaaa" "aa" "")
(RE-TEST "(.*)\\1\\1(.*)\\2\\2\\2" "aaaaaaa")
EQUAL-OK: ("aaaaaaa" "a" "a")
(RE-TEST "(.*)\\1\\1(.*)\\2\\2\\2" "aaaaa")
EQUAL-OK: ("aaaa" "" "a")
(RE-TEST "(.*)\\1\\1" "aaa")
EQUAL-OK: ("aaa" "a")
(RE-TEST "(.*)*\\1" "xx")
EQUAL-OK: ("xx" "x")
(RE-TEST "(....).*\\1" "beriberi")
EQUAL-OK: ("beriberi" "beri")
(RE-TEST "[[:alpha:]_][[:alnum:]_]*" "c_identifier")
EQUAL-OK: ("c_identifier")
(RE-TEST "[[:xdigit:]]*" "12aBcD89")
EQUAL-OK: ("12aBcD89")
(RE-TEST ".*" "aa")
EQUAL-OK: ("aa")
(RE-TEST ".+" "aa")
EQUAL-OK: ("aa")
(RE-TEST "(a+|b)" "aaa")
EQUAL-OK: ("aaa" "aaa")
(RE-TEST "(a+|b)" "b")
EQUAL-OK: ("b" "b")
(RE-TEST "[abc]{1,3}" "bcaa")
EQUAL-OK: ("bca")
(RE-TEST "a[\\-]?c" "ac")
EQUAL-OK: ("ac")
(RE-TEST "a[\\-]?c" "a-c")
EQUAL-OK: ("a-c")
(RE-TEST "a[-]?c" "ac")
EQUAL-OK: ("ac")
(RE-TEST "a[-]?c" "a-c")
EQUAL-OK: ("a-c")
(RE-TEST "a[-b]?c" "abc")
EQUAL-OK: ("abc")
(RE-TEST "a[b-]?c" "acc")
EQUAL-OK: ("ac")
(RE-TEST "a[^\\-]?c" "ac")
EQUAL-OK: ("ac")
(RE-TEST "a[^\\-]?c" "a-c")
EQL-OK: NIL
(RE-TEST "a[^-]?c" "ac")
EQUAL-OK: ("ac")
(RE-TEST "a[^-]?c" "azc")
EQUAL-OK: ("azc")
(RE-TEST "a[^-b]?c" "adc")
EQUAL-OK: ("adc")
(RE-TEST "a[^b-]?c" "acc")
EQUAL-OK: ("acc")
(RE-TEST "a*" "aaaa")
EQUAL-OK: ("aaaa")
(RE-TEST "a+" "aaaa")
EQUAL-OK: ("aaaa")
(RE-TEST "a{2,3}" "aaaa")
EQUAL-OK: ("aaa")
(RE-TEST "a*?" "aaaa")
EQUAL-OK: ("aaaa")
(RE-TEST "a+?" "aaaa")
EQUAL-OK: ("aaaa")
(RE-TEST "a{2,3}?" "aaaa")
EQUAL-OK: ("aaa")
(RE-TEST "a+?bb*?" "baaaabaaabbbaaaaa")
EQUAL-OK: ("b")
(RE-TEST "a+?bb+?" "baaaabaaabbbaaaaa")
EQUAL-OK: ("b")
(RE-TEST "[abc]{10,20}?" "xxxbcbcbabcaabcbabcbcbabcbcaabcabxxx")
EQUAL-OK: ("")
(RE-TEST "^(x)+$" "xx")
EQUAL-OK: ("xx" "x")
(RE-TEST "^(x)+\\1$" "xx")
EQUAL-OK: ("xx" "x")
(RE-TEST "^(x){1,2}$" "xx")
EQUAL-OK: ("xx" "x")
(RE-TEST "^(x){1,2}\\1$" "xx")
EQUAL-OK: ("xx" "x")
(RE-TEST "^(x)+[^x]+\\1$" "xxaax")
EQUAL-OK: ("xxaax" "x")
(RE-TEST "^x*(x)[^x]+\\1$" "xxaax")
EQUAL-OK: ("xxaax" "x")
(RE-TEST "(x)+\\1" "xxxx")
EQUAL-OK: ("xxxx" "x")
(RE-TEST "(x){1,2}" "xxxx")
EQUAL-OK: ("xx" "x")
(RE-TEST "(x){1,2}\\1" "xxxx")
EQUAL-OK: ("xxx" "x")
(RE-TEST "(x)+[^x]+\\1" "xxaax")
EQUAL-OK: ("xxaax" "x")
(RE-TEST "x*(x)[^x]+\\1" "xxaax")
EQUAL-OK: ("xxaax" "x")
(RE-TEST "(x)+?\\1" "xxxx")
EQUAL-OK: ("xxxx" "x")
(RE-TEST "(x){1,2}?" "xxxx")
EQUAL-OK: ("xx" "x")
(RE-TEST "(x){1,2}?\\1" "xxxx")
EQUAL-OK: ("xxx" "x")
(RE-TEST "(x)+?[^x]+\\1" "xxaax")
EQUAL-OK: ("xxaax" "x")
(RE-TEST "x*?(x)[^x]+\\1" "xxaax")
EQUAL-OK: ("xxaax" "x")
(RE-TEST "(a*)*" "aaaa")
EQUAL-OK: ("aaaa" "aaaa")
(RE-TEST "(a*)+" "aaaa")
EQUAL-OK: ("aaaa" "aaaa")
(RE-TEST "(a+)*" "aaaa")
EQUAL-OK: ("aaaa" "aaaa")
(REGEXP:REGEXP-SPLIT "|" "a|b" :EXTENDED T)
[SIMPLE-ERROR]: REGEXP:REGEXP-SPLIT: "|" matches an empty string #S(REGEXP:MATCH :START 0 :END 0) at "a|b":0
EQL-OK: ERROR
(DEFPARAMETER LATITUDE "6° 45' 22.90\"    S")
EQL-OK: LATITUDE
(DEFPARAMETER LONGITUDE "35° 7' 23.60\"  E")
EQL-OK: LONGITUDE
(LETF ((*MISC-ENCODING* CHARSET:UTF-8)) (SHOW *MISC-ENCODING*) (LIST (REGEXP:REGEXP-SPLIT " " LATITUDE) (REGEXP:REGEXP-SPLIT " " LONGITUDE)))
#<ENCODING CHARSET:UTF-8 :UNIX>
EQUAL-OK: (("6°" "45'" "22.90\"" "" "" "" "S") ("35°" "7'" "23.60\"" "" "E"))
(LETF ((*MISC-ENCODING* CHARSET:ISO-8859-1)) (SHOW *MISC-ENCODING*) (LIST (REGEXP:REGEXP-SPLIT " " LATITUDE) (REGEXP:REGEXP-SPLIT " " LONGITUDE)))
#<ENCODING CHARSET:ISO-8859-1 :UNIX>
EQUAL-OK: (("6°" "45'" "22.90\"" "" "" "" "S") ("35°" "7'" "23.60\"" "" "E"))
(REGEXP:REGEXP-SPLIT " *, *" "a, b,c ,d,f" :START 3 :END 6)
EQUAL-OK: ("b" "c")
(REGEXP:REGEXP-SPLIT " *, *" "a, b,c ,d,f" :START 3 :END 3)
EQUAL-OK: ("")
(SYMBOLS-CLEANUP '(*SAVED-LOCALE* LATITUDE LONGITUDE))
EQL-OK: NIL
RUN-TEST: finished #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/regexp/test.tst" (0 errors out of 320 tests)
RUN-TEST: started 
#<INPUT BUFFERED FILE-STREAM CHARACTER
  #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/readline/test.tst"
  @1>
(NULL (REQUIRE "readline"))
EQL-OK: T
(LISTP (SHOW (MULTIPLE-VALUE-LIST (MODULE-INFO "readline" T)) :PRETTY T))
("readline" 0 NIL 0 NIL)
EQL-OK: T
(LET ((VER-NUM (AND (BOUNDP 'READLINE:READLINE-VERSION) READLINE:READLINE-VERSION))) (FORMAT T "~&readline version ~S (~D=0~O=x~X)~%" (AND (BOUNDP 'READLINE:LIBRARY-VERSION) READLINE:LIBRARY-VERSION) VER-NUM VER-NUM VER-NUM))
readline version NIL (NIL=0NIL=xNIL)
EQL-OK: NIL
(INTEGERP (SHOW READLINE:GNU-READLINE-P))
1
EQL-OK: T
(TYPEP (SHOW READLINE:TERMINAL-NAME) '(OR NULL STRING))
NIL
EQL-OK: T
(INTEGERP (SHOW READLINE:PREFER-ENV-WINSIZE))
0
EQL-OK: T
(IF (BOUNDP 'READLINE:EDITING-MODE) READLINE:EDITING-MODE 1)
EQL-OK: 1
(IF (BOUNDP 'READLINE:INSERT-MODE) READLINE:INSERT-MODE 1)
EQL-OK: 1
(IF (BOUNDP 'READLINE:READLINE-NAME) READLINE:READLINE-NAME "CLISP")
EQUAL-OK: "CLISP"
(SETQ READLINE:READLINE-NAME "abazonk")
EQUAL-OK: "abazonk"
READLINE:READLINE-NAME
EQUAL-OK: "abazonk"
(READLINE:HISTORY-STIFLED-P)
EQL-OK: 0
(READLINE:STIFLE-HISTORY 100)
EQL-OK: NIL
(READLINE:HISTORY-STIFLED-P)
EQL-OK: 1
(ABS (READLINE:UNSTIFLE-HISTORY))
EQL-OK: 100
(READLINE:HISTORY-STIFLED-P)
EQL-OK: 0
(READLINE:WHERE-HISTORY)
EQL-OK: 0
(READLINE:HISTORY-TOTAL-BYTES)
EQL-OK: 0
(DEFPARAMETER *HISTORY-FILE* "readline-history-file")
EQL-OK: *HISTORY-FILE*
(READLINE:WRITE-HISTORY *HISTORY-FILE*)
EQL-OK: 0
(READLINE:APPEND-HISTORY 1000 *HISTORY-FILE*)
EQL-OK: 0
(READLINE:READ-HISTORY *HISTORY-FILE*)
EQL-OK: 0
(READLINE:READ-HISTORY-RANGE *HISTORY-FILE* 0 -1)
EQL-OK: 0
(READLINE:HISTORY-TRUNCATE-FILE *HISTORY-FILE* 10)
EQL-OK: 0
(PROBE-FILE (DELETE-FILE *HISTORY-FILE*))
EQL-OK: NIL
(WHEN (ZEROP (LOGAND READLINE:READLINE-STATE READLINE:STATE-INITIALIZED)) (NOT (ZEROP (READLINE:INITIALIZE))))
EQL-OK: NIL
(READLINE:RESIZE-TERMINAL)
EQL-OK: NIL
(READLINE:RESET-SCREEN-SIZE)
EQL-OK: NIL
(MULTIPLE-VALUE-BIND (ROWS COLS) (READLINE:GET-SCREEN-SIZE) (SHOW (LIST ROWS COLS)) (READLINE:SET-SCREEN-SIZE ROWS COLS))
(24 80)
EQL-OK: NIL
(EQUAL (MERGE-PATHNAMES (READLINE:TILDE-EXPAND "~/foo")) (MERGE-PATHNAMES "foo" (USER-HOMEDIR-PATHNAME)))
EQL-OK: T
(PROGN (DEFUN STUFF-STRING (STRING) "Stuff a string (with NewLine added) to readline buffer" (ASSERT (< (LENGTH STRING) 255)) (MAP 'NIL (LAMBDA (CHAR) (READLINE:STUFF-CHAR (CHAR-CODE CHAR))) STRING) (READLINE:STUFF-CHAR (CHAR-CODE #\Newline))) (DEFUN READLINE-FROM-STRING (STRING) "Run readline:readline, with fake input." (STUFF-STRING STRING) (READLINE:READLINE "")) (READLINE-FROM-STRING "test"))
test
EQUAL-OK: "test"
(LET ((A 0)) (READLINE:BIND-KEY (CHAR-CODE #\t) (LAMBDA (? ??) (INCF A))) (READLINE-FROM-STRING "test") A)
es
EQL-OK: 2
(READLINE:UNBIND-KEY (CHAR-CODE #\t))
EQL-OK: 0
(READLINE-FROM-STRING "test")
es
EQUAL-OK: "es"
(PROGN (READLINE:PARSE-AND-BIND "\"t\": self-insert") (READLINE-FROM-STRING "test"))
test
EQUAL-OK: "test"
(PROGN (STUFF-STRING "(1 2") (STUFF-STRING "3 4) 5") (READ READLINE:*READLINE-INPUT-STREAM*))
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/readline/test.erg[4]> (1 2
/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build/readline/test.erg[5]> 3 4) 5
EQUAL-OK: (1 2 3 4)
(READ READLINE:*READLINE-INPUT-STREAM*)
EQL-OK: 5
RUN-TEST: finished #P"/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/modules/readline/test.tst" (0 errors out of 37 tests)
finished   4 files:               1 error out of      628 tests
  1             i18n/test.tst:    0 errors out of      11 tests
  2         syscalls/test.tst:    1 error out of      260 tests
  3           regexp/test.tst:    0 errors out of     320 tests
  4         readline/test.tst:    0 errors out of      37 tests
Bye.
make: *** [Makefile:2398: base-mod-check] Error 1
error: Bad exit status from /var/tmp/rpm-tmp.z8bf3R (%check)
make: Leaving directory '/builddir/build/BUILD/clisp-2.49.93-build/clisp-c735dd548ba2365804bcee9c2bdd3c291657e8ae/build'
RPM build errors:
    Bad exit status from /var/tmp/rpm-tmp.z8bf3R (%check)
Child return code was: 1
EXCEPTION: [Error('Command failed: \n # /usr/bin/systemd-nspawn -q -M 2c767f5a8f804f218718eb1f4703fde7 -D /var/lib/mock/f41-build-847125-163727/root -a -u mockbuild --capability=cap_ipc_lock --bind=/tmp/mock-resolv.15gq1fe0:/etc/resolv.conf --bind=/dev/btrfs-control --bind=/dev/mapper/control --bind=/dev/fuse --bind=/dev/loop-control --bind=/dev/loop0 --bind=/dev/loop1 --bind=/dev/loop2 --bind=/dev/loop3 --bind=/dev/loop4 --bind=/dev/loop5 --bind=/dev/loop6 --bind=/dev/loop7 --bind=/dev/loop8 --bind=/dev/loop9 --bind=/dev/loop10 --bind=/dev/loop11 --console=pipe --setenv=TERM=vt100 --setenv=SHELL=/bin/bash --setenv=HOME=/builddir --setenv=HOSTNAME=mock --setenv=PATH=/usr/bin:/bin:/usr/sbin:/sbin \'--setenv=PROMPT_COMMAND=printf "\\033]0;<mock-chroot>\\007"\' \'--setenv=PS1=<mock-chroot> \\s-\\v\\$ \' --setenv=LANG=C.UTF-8 --resolv-conf=off bash --login -c \'/usr/bin/rpmbuild -bb --noclean --target riscv64 --nodeps /builddir/build/SPECS/clisp.spec\'\n', 1)]
Traceback (most recent call last):
  File "/usr/lib/python3.12/site-packages/mockbuild/trace_decorator.py", line 93, in trace
    result = func(*args, **kw)
             ^^^^^^^^^^^^^^^^^
  File "/usr/lib/python3.12/site-packages/mockbuild/util.py", line 612, in do_with_status
    raise exception.Error("Command failed: \n # %s\n%s" % (cmd_pretty(command, env), output), child.returncode)
mockbuild.exception.Error: Command failed: 
 # /usr/bin/systemd-nspawn -q -M 2c767f5a8f804f218718eb1f4703fde7 -D /var/lib/mock/f41-build-847125-163727/root -a -u mockbuild --capability=cap_ipc_lock --bind=/tmp/mock-resolv.15gq1fe0:/etc/resolv.conf --bind=/dev/btrfs-control --bind=/dev/mapper/control --bind=/dev/fuse --bind=/dev/loop-control --bind=/dev/loop0 --bind=/dev/loop1 --bind=/dev/loop2 --bind=/dev/loop3 --bind=/dev/loop4 --bind=/dev/loop5 --bind=/dev/loop6 --bind=/dev/loop7 --bind=/dev/loop8 --bind=/dev/loop9 --bind=/dev/loop10 --bind=/dev/loop11 --console=pipe --setenv=TERM=vt100 --setenv=SHELL=/bin/bash --setenv=HOME=/builddir --setenv=HOSTNAME=mock --setenv=PATH=/usr/bin:/bin:/usr/sbin:/sbin '--setenv=PROMPT_COMMAND=printf "\033]0;<mock-chroot>\007"' '--setenv=PS1=<mock-chroot> \s-\v\$ ' --setenv=LANG=C.UTF-8 --resolv-conf=off bash --login -c '/usr/bin/rpmbuild -bb --noclean --target riscv64 --nodeps /builddir/build/SPECS/clisp.spec'