Mock Version: 1.4.21 Mock Version: 1.4.21 ENTER ['do_with_status'](['bash', '--login', '-c', '/usr/bin/rpmbuild -bs --target riscv64 --nodeps /builddir/build/SPECS/clisp.spec'], chrootPath='/var/lib/mock/f33-build-311142-57409/root'env={'TERM': 'vt100', 'SHELL': '/bin/bash', 'HOME': '/builddir', 'HOSTNAME': 'mock', 'PATH': '/usr/bin:/bin:/usr/sbin:/sbin', 'PROMPT_COMMAND': 'printf "\\033]0;\\007"', 'PS1': ' \\s-\\v\\$ ', 'LANG': 'en_US.UTF-8'}shell=Falselogger=timeout=432000uid=987gid=135user='mockbuild'nspawn_args=[]unshare_net=TrueprintOutput=False) Executing command: ['bash', '--login', '-c', '/usr/bin/rpmbuild -bs --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;\\007"', 'PS1': ' \\s-\\v\\$ ', 'LANG': 'en_US.UTF-8'} and shell False Building target platforms: riscv64 Building for target riscv64 setting SOURCE_DATE_EPOCH=1596240000 Wrote: /builddir/build/SRPMS/clisp-2.49.93-14.c26de78git.fc33.src.rpm Child return code was: 0 ENTER ['do_with_status'](['bash', '--login', '-c', '/usr/bin/rpmbuild -bb --target riscv64 --nodeps /builddir/build/SPECS/clisp.spec'], chrootPath='/var/lib/mock/f33-build-311142-57409/root'env={'TERM': 'vt100', 'SHELL': '/bin/bash', 'HOME': '/builddir', 'HOSTNAME': 'mock', 'PATH': '/usr/bin:/bin:/usr/sbin:/sbin', 'PROMPT_COMMAND': 'printf "\\033]0;\\007"', 'PS1': ' \\s-\\v\\$ ', 'LANG': 'en_US.UTF-8'}shell=Falselogger=timeout=432000uid=987gid=135user='mockbuild'nspawn_args=[]unshare_net=TrueprintOutput=False) Executing command: ['bash', '--login', '-c', '/usr/bin/rpmbuild -bb --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;\\007"', 'PS1': ' \\s-\\v\\$ ', 'LANG': 'en_US.UTF-8'} and shell False Building target platforms: riscv64 Building for target riscv64 setting SOURCE_DATE_EPOCH=1596240000 Executing(%prep): /bin/sh -e /var/tmp/rpm-tmp.HQf3ZP + umask 022 + cd /builddir/build/BUILD + cd /builddir/build/BUILD + rm -rf clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa + /usr/bin/gzip -dc /builddir/build/SOURCES/clisp-c26de78.tar.gz + /usr/bin/tar -xof - + STATUS=0 + '[' 0 -ne 0 ']' + cd clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa + /usr/bin/chmod -Rf a+rX,u+w,g-w,o-w . + /usr/bin/cat /builddir/build/SOURCES/clisp-db.patch + /usr/bin/patch -p0 -s --fuzz=0 --no-backup-if-mismatch + /usr/bin/cat /builddir/build/SOURCES/clisp-format.patch + /usr/bin/patch -p0 -s --fuzz=0 --no-backup-if-mismatch + /usr/bin/cat /builddir/build/SOURCES/clisp-setkey.patch + /usr/bin/patch -p0 -s --fuzz=0 --no-backup-if-mismatch + /usr/bin/cat /builddir/build/SOURCES/clisp-pari.patch + /usr/bin/patch -p0 -s --fuzz=0 --no-backup-if-mismatch + /usr/bin/cat /builddir/build/SOURCES/clisp-register-volatile.patch + /usr/bin/patch -p0 -s --fuzz=0 --no-backup-if-mismatch + sed -i.orig 's|lisp.org/HyperSpec/Body/chap-7.html|lispworks.com/documentation/HyperSpec/Body/07_.htm|' src/clos-package.lisp + touch -r src/clos-package.lisp.orig src/clos-package.lisp + rm -f src/clos-package.lisp.orig + for f in src/_README.* + sed -i.orig 's|lisp.org/HyperSpec/FrontMatter|lispworks.com/documentation/HyperSpec/Front|' src/_README.de + touch -r src/_README.de.orig src/_README.de + rm -f src/_README.de.orig + for f in src/_README.* + sed -i.orig 's|lisp.org/HyperSpec/FrontMatter|lispworks.com/documentation/HyperSpec/Front|' src/_README.en + touch -r src/_README.en.orig src/_README.en + rm -f src/_README.en.orig + for f in src/_README.* + sed -i.orig 's|lisp.org/HyperSpec/FrontMatter|lispworks.com/documentation/HyperSpec/Front|' src/_README.es + touch -r src/_README.es.orig src/_README.es + rm -f src/_README.es.orig + 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/;; \((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 + cp -p /builddir/build/SOURCES/sv.po /builddir/build/SOURCES/de.po src/po + 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.0jBraP + umask 022 + cd /builddir/build/BUILD + cd clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa + ulimit -s unlimited + export LC_ALL=C.UTF-8 + LC_ALL=C.UTF-8 + ./configure --prefix=/usr --libdir=/usr/lib64 --mandir=/usr/share/man --infodir=/usr/share/info --docdir=/usr/share/doc/clisp --fsstnd=redhat --hyperspec=http://www.lispworks.com/documentation/HyperSpec/ --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=pcre --with-module=postgresql --with-module=rawsock --with-module=zlib --with-libreadline-prefix=/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline --with-ffcall --cbcx build CPPFLAGS=-I/usr/include/libsvm 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' executing ../src/configure --prefix=/usr --libdir=/usr/lib64 --mandir=/usr/share/man --infodir=/usr/share/info --docdir=/usr/share/doc/clisp --fsstnd=redhat --hyperspec=http://www.lispworks.com/documentation/HyperSpec/ --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=pcre --with-module=postgresql --with-module=rawsock --with-module=zlib --with-libreadline-prefix=/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline --with-ffcall --cbcx build CPPFLAGS=-I/usr/include/libsvm CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack configure: creating cache config.cache checking for a BSD-compatible install... /usr/bin/install -c checking whether build environment is sane... yes checking for a thread-safe mkdir -p... /usr/bin/mkdir -p checking for gawk... gawk checking whether make sets $(MAKE)... yes checking whether make supports nested variables... yes configure: ** check for host type checking build system type... riscv64-unknown-linux-gnu checking host system type... riscv64-unknown-linux-gnu checking how to remove colons from paths... echo $x 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 we are using the GNU C compiler... yes checking whether gcc accepts -g... yes checking for gcc option to accept ISO C89... none needed checking whether gcc understands -c and -o together... yes 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 grep that handles long lines and -e... /usr/bin/grep checking for egrep... /usr/bin/grep -E checking for ANSI C header files... yes checking for sys/types.h... yes checking for sys/stat.h... yes checking for stdlib.h... yes checking for string.h... yes checking for memory.h... yes checking for strings.h... yes checking for inttypes.h... yes checking for stdint.h... yes checking for unistd.h... yes checking minix/config.h usability... no checking minix/config.h presence... no checking for minix/config.h... no checking whether it is safe to define __EXTENSIONS__... yes checking whether _XOPEN_SOURCE should be defined... no checking for Minix Amsterdam compiler... no checking for ar... ar checking for ranlib... ranlib checking for special C compiler options needed for large files... no checking for _FILE_OFFSET_BITS value needed for large files... no checking for ld used by gcc... /usr/bin/ld checking if the linker (/usr/bin/ld) is GNU ld... yes checking whether make sets $(MAKE)... (cached) yes checking how to make hard links... ln checking whether ln -s works... yes checking how to make hard links to symlinks... hln checking how to print strings... printf checking for a sed that does not truncate output... /usr/bin/sed checking for fgrep... /usr/bin/grep -F checking for ld used by gcc... /usr/bin/ld checking if the linker (/usr/bin/ld) is GNU ld... yes checking for BSD- or MS-compatible name lister (nm)... /usr/bin/nm -B checking the name lister (/usr/bin/nm -B) interface... BSD nm checking whether ln -s works... yes checking the maximum length of command line arguments... 3458764513820540925 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 objdump... objdump checking how to recognize dependent libraries... pass_all checking for dlltool... dlltool 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 special C compiler options needed for large files... (cached) no checking for _FILE_OFFSET_BITS value needed for large files... (cached) no checking whether using GNU C... yes checking whether using SUNPRO C... no checking whether using C++... no checking whether CPP likes empty macro arguments... yes checking whether C symbols are prefixed with underscore at the linker level... no checking whether CC works at all... yes configure: ** check for add-ons checking for sys/socket.h... yes checking for arpa/inet.h... yes checking for features.h... yes checking for unistd.h... (cached) yes checking for wctype.h... yes checking for sys/param.h... yes checking for netdb.h... yes checking for sys/time.h... yes checking for netinet/in.h... yes checking for langinfo.h... yes checking for limits.h... yes checking for xlocale.h... no checking for sys/mman.h... yes checking for malloc.h... yes checking for sys/select.h... yes checking for sys/stat.h... (cached) yes checking for wchar.h... yes checking for stdint.h... (cached) yes checking for strings.h... (cached) yes checking for sys/ioctl.h... yes checking for sys/uio.h... yes checking for sys/utsname.h... yes checking for sys/wait.h... yes checking for crtdefs.h... no checking whether the preprocessor supports include_next... yes checking whether system header files limit the line length... no checking whether is self-contained... yes checking for shutdown... yes checking whether 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 whether socket is declared without a macro... yes checking whether connect is declared without a macro... yes checking whether accept is declared without a macro... yes checking whether bind is declared without a macro... yes checking whether getpeername is declared without a macro... yes checking whether getsockname is declared without a macro... yes checking whether getsockopt is declared without a macro... yes checking whether listen is declared without a macro... yes checking whether recv is declared without a macro... yes checking whether send is declared without a macro... yes checking whether recvfrom is declared without a macro... yes checking whether sendto is declared without a macro... yes checking whether setsockopt is declared without a macro... yes checking whether shutdown is declared without a macro... yes checking whether accept4 is declared without a macro... yes checking for size_t... yes checking for working alloca.h... yes checking for alloca... yes checking whether uses 'inline' correctly... yes checking for btowc... yes checking for _set_invalid_parameter_handler... no checking for symlink... yes checking for isblank... yes checking for iswctype... yes checking for mbsrtowcs... yes checking for mempcpy... yes checking for wmemchr... yes checking for wmemcpy... yes checking for wmempcpy... yes checking for gettimeofday... yes checking for readlink... yes checking for lstat... yes checking for mbsinit... yes checking for mbrtowc... yes checking for mprotect... yes checking for mkfifo... yes checking for mknod... yes checking for mkstemp... yes checking for tzset... yes checking for nl_langinfo... yes checking for setenv... yes checking for strdup... yes checking for strerror_r... yes checking for __xpg_strerror_r... yes checking for catgets... yes checking for snprintf... yes checking for strptime... yes checking for localtime_r... yes checking for timegm... yes checking for mquery... no checking for pstat_getprocvm... no checking for wcrtomb... yes checking for iswcntrl... yes checking for nl_langinfo and CODESET... yes checking for a traditional french locale... fr_FR checking whether byte ordering is bigendian... no checking if environ is properly declared... yes checking for complete errno.h... yes checking for working fcntl.h... yes checking for pid_t... yes checking for mode_t... yes checking for mbstate_t... yes checking for C/C++ restrict keyword... __restrict checking for struct timeval... yes checking for wide-enough struct timeval.tv_sec member... yes checking whether gettimeofday is declared without a macro... yes checking host CPU and C ABI... riscv64-lp64d checking for shared library run path origin... done checking for the common suffixes of directories in the library search path... ../src/configure: line 15116: cd: /lib64/lp64d/../lib64/lp64d/: No such file or directory ../src/configure: line 15116: cd: /usr/lib64/lp64d/../lib64/lp64d/: No such file or directory lib,lib checking for iconv... yes checking for working iconv... yes checking for iconv declaration... extern size_t iconv (iconv_t cd, char * *inbuf, size_t *inbytesleft, char * *outbuf, size_t *outbytesleft); checking for IPv4 sockets... yes checking for IPv6 sockets... yes checking whether included libunistring is requested... no checking for libunistring... yes checking how to link with libunistring... /usr/lib64/libunistring.so -L/usr/lib64 checking for libunistring version... 0.9.10 checking whether limits.h has ULLONG_WIDTH etc.... yes checking whether getc_unlocked is declared... yes checking whether we are using the GNU C Library >= 2.1 or uClibc... yes checking for wchar_t... yes checking for max_align_t... yes checking whether NULL can be used in arbitrary expressions... yes checking whether imported symbols can be declared weak... yes checking pthread.h usability... yes checking pthread.h presence... yes checking for pthread.h... yes checking for multithread API to use... posix checking whether lstat correctly handles trailing slash... yes checking whether malloc, realloc, calloc are POSIX compliant... yes checking for stdlib.h... (cached) yes checking for GNU libc compatible malloc... yes checking for unsigned long long int... yes checking for long long int... yes checking for a traditional japanese locale... ja_JP checking for a transitional chinese locale... zh_CN.GB18030 checking for a french Unicode locale... fr_FR.UTF-8 checking for mmap... yes checking for MAP_ANONYMOUS... yes checking whether memchr works... yes checking whether time_t is signed... yes checking whether alarm is declared... yes checking for working mktime... yes checking whether struct tm is in sys/time.h or time.h... time.h checking for struct tm.tm_zone... yes checking for struct tm.tm_gmtoff... yes checking for inline... inline checking whether is self-contained... yes checking whether pselect is declared without a macro... yes checking whether select is declared without a macro... yes checking for library containing setsockopt... none needed checking whether setenv is declared... yes checking search.h usability... yes checking search.h presence... yes checking for search.h... yes checking for tsearch... yes checking for sigset_t... yes checking for uid_t in sys/types.h... yes checking whether stat file-mode macros are broken... no checking for nlink_t... yes checking whether fchmodat is declared without a macro... yes checking whether fstat is declared without a macro... yes checking whether fstatat is declared without a macro... yes checking whether futimens is declared without a macro... yes checking whether lchmod is declared without a macro... yes checking whether lstat is declared without a macro... yes checking whether mkdirat is declared without a macro... yes checking whether mkfifo is declared without a macro... yes checking whether mkfifoat is declared without a macro... yes checking whether mknod is declared without a macro... yes checking whether mknodat is declared without a macro... yes checking whether stat is declared without a macro... yes checking whether utimensat is declared without a macro... yes checking for stdbool.h that conforms to C99... yes checking for _Bool... yes checking for wint_t... yes checking whether wint_t is too small... no checking whether stdint.h conforms to C99... yes checking whether stdint.h predates C++11... no checking whether stdint.h has UINTMAX_WIDTH etc.... yes checking whether strdup is declared... yes checking whether strerror(0) succeeds... yes checking for strerror_r with POSIX signature... no checking whether __xpg_strerror_r works... yes checking whether strerror_r is declared... yes checking whether ffsl is declared without a macro... yes checking whether ffsll is declared without a macro... yes checking whether memmem is declared without a macro... yes checking whether mempcpy is declared without a macro... yes checking whether memrchr is declared without a macro... yes checking whether rawmemchr is declared without a macro... yes checking whether stpcpy is declared without a macro... yes checking whether stpncpy is declared without a macro... yes checking whether strchrnul is declared without a macro... yes checking whether strdup is declared without a macro... yes checking whether strncat is declared without a macro... yes checking whether strndup is declared without a macro... yes checking whether strnlen is declared without a macro... yes checking whether strpbrk is declared without a macro... yes checking whether strsep is declared without a macro... yes checking whether strcasestr is declared without a macro... yes checking whether strtok_r is declared without a macro... yes checking whether strerror_r is declared without a macro... yes checking whether strsignal is declared without a macro... yes checking whether strverscmp is declared without a macro... yes checking whether ffs is declared without a macro... yes checking whether strcasecmp is declared without a macro... yes checking whether strncasecmp is declared without a macro... yes checking for struct timespec in ... yes checking whether unsetenv is declared... yes checking for alloca as a compiler built-in... yes checking whether inet_ntop is declared without a macro... yes checking whether inet_pton is declared without a macro... yes checking whether btowc(0) is correct... yes checking whether btowc(EOF) is correct... yes checking for __builtin_expect... yes checking for strtod_l... yes checking whether dup2 works... yes checking whether fcntl is declared without a macro... yes checking whether openat is declared without a macro... yes checking for flexible array member... yes checking for working GNU fnmatch... yes checking for gethostname... yes checking for HOST_NAME_MAX... yes checking for getloadavg... yes checking sys/loadavg.h usability... no checking sys/loadavg.h presence... no checking for sys/loadavg.h... no checking whether getloadavg is declared... yes checking for getpagesize... yes checking whether getpagesize is declared... yes checking whether gettimeofday clobbers localtime buffer... no checking for gettimeofday with POSIX signature... yes checking for library containing inet_ntop... none required checking whether inet_ntop is declared... (cached) yes checking for library containing inet_pton... none required checking whether inet_pton is declared... (cached) yes checking for ioctl... yes checking for ioctl with POSIX signature... no 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 nl_langinfo is declared without a macro... yes checking for libsigsegv... yes checking how to link with libsigsegv... -lsigsegv checking whether to use the included libunistring... no checking for __xpg4... no checking whether link(2) dereferences a symlink... no checking whether locale.h conforms to POSIX:2001... yes checking whether struct lconv is properly defined... yes checking whether setlocale is declared without a macro... yes checking whether duplocale is declared without a macro... yes checking for pthread_rwlock_t... yes checking whether pthread_rwlock_rdlock prefers a writer to a reader... no checking whether mbrtowc handles incomplete characters... yes checking whether mbrtowc works as well as mbtowc... yes checking whether mbrtowc handles a NULL pwc argument... yes checking whether mbrtowc handles a NULL string argument... yes checking whether mbrtowc has a correct return value... yes checking whether mbrtowc returns 0 when parsing a NUL character... yes checking whether mbrtowc works on empty input... yes checking whether the C locale is free of encoding errors... no checking whether mbrtowc handles incomplete characters... (cached) yes checking whether mbrtowc works as well as mbtowc... (cached) yes checking whether mbrtowc handles incomplete characters... (cached) yes checking whether mbrtowc works as well as mbtowc... (cached) yes checking whether mbsrtowcs works... yes checking for mkdtemp... yes checking whether mkfifo rejects trailing slashes... yes checking whether mknod can create fifo without root privileges... yes checking for working mkstemp... yes checking for __mktime_internal... no checking whether is self-contained... yes checking whether YESEXPR works... yes checking whether readlink signature is correct... yes checking whether readlink handles trailing slash 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 for volatile sig_atomic_t... yes checking for sighandler_t... yes checking whether pthread_sigmask is declared without a macro... yes checking whether sigaction is declared without a macro... yes checking whether sigaddset is declared without a macro... yes checking whether sigdelset is declared without a macro... yes checking whether sigemptyset is declared without a macro... yes checking whether sigfillset is declared without a macro... yes checking whether sigismember is declared without a macro... yes checking whether sigpending is declared without a macro... yes checking whether sigprocmask is declared without a macro... yes checking for socklen_t... yes checking for ssize_t... yes checking whether stat handles trailing slashes on files... yes checking for struct stat.st_atim.tv_nsec... yes checking whether struct stat.st_atim is of type struct timespec... yes checking for struct stat.st_birthtimespec.tv_nsec... no checking for struct stat.st_birthtimensec... no checking for struct stat.st_birthtim.tv_nsec... no checking for working stdalign.h... yes checking for max_align_t... (cached) yes checking whether NULL can be used in arbitrary expressions... (cached) yes checking whether _Exit is declared without a macro... yes checking whether atoll is declared without a macro... yes checking whether canonicalize_file_name is declared without a macro... yes checking whether getloadavg is declared without a macro... yes checking whether getsubopt is declared without a macro... yes checking whether grantpt is declared without a macro... yes checking whether initstate is declared without a macro... yes checking whether initstate_r is declared without a macro... yes checking whether mkdtemp is declared without a macro... yes checking whether mkostemp is declared without a macro... yes checking whether mkostemps is declared without a macro... yes checking whether mkstemp is declared without a macro... yes checking whether mkstemps is declared without a macro... yes checking whether posix_openpt is declared without a macro... yes checking whether ptsname is declared without a macro... yes checking whether ptsname_r is declared without a macro... yes checking whether qsort_r is declared without a macro... yes checking whether random is declared without a macro... yes checking whether random_r is declared without a macro... yes checking whether reallocarray is declared without a macro... yes checking whether realpath is declared without a macro... yes checking whether rpmatch is declared without a macro... yes checking whether secure_getenv is declared without a macro... yes checking whether setenv is declared without a macro... yes checking whether setstate is declared without a macro... yes checking whether setstate_r is declared without a macro... yes checking whether srandom is declared without a macro... yes checking whether srandom_r is declared without a macro... yes checking whether strtod is declared without a macro... yes checking whether strtoll is declared without a macro... yes checking whether strtoull is declared without a macro... yes checking whether unlockpt is declared without a macro... yes checking whether unsetenv is declared without a macro... yes checking for strcasecmp... yes checking for strncasecmp... yes checking whether strncasecmp is declared... (cached) yes checking for strverscmp... yes checking whether declares ioctl... yes checking whether ioctl is declared without a macro... yes checking for nlink_t... (cached) yes checking whether fchmodat is declared without a macro... (cached) yes checking whether fstat is declared without a macro... (cached) yes checking whether fstatat is declared without a macro... (cached) yes checking whether futimens is declared without a macro... (cached) yes checking whether lchmod is declared without a macro... (cached) yes checking whether lstat is declared without a macro... (cached) yes checking whether mkdirat is declared without a macro... (cached) yes checking whether mkfifo is declared without a macro... (cached) yes checking whether mkfifoat is declared without a macro... (cached) yes checking whether mknod is declared without a macro... (cached) yes checking whether mknodat is declared without a macro... (cached) yes checking whether stat is declared without a macro... (cached) yes checking whether utimensat is declared without a macro... (cached) yes checking for struct utsname... yes checking whether uname is declared without a macro... yes checking whether waitpid is declared without a macro... yes checking whether localtime_r is declared... yes checking whether localtime_r is compatible with its POSIX signature... yes checking whether localtime loops forever near extrema... no checking for timezone_t... no checking whether tzset clobbers localtime buffer... no checking for uname... yes checking whether chdir is declared without a macro... yes checking whether chown is declared without a macro... yes checking whether dup is declared without a macro... yes checking whether dup2 is declared without a macro... yes checking whether dup3 is declared without a macro... yes checking whether environ is declared without a macro... yes checking whether euidaccess is declared without a macro... yes checking whether faccessat is declared without a macro... yes checking whether fchdir is declared without a macro... yes checking whether fchownat is declared without a macro... yes checking whether fdatasync is declared without a macro... yes checking whether fsync is declared without a macro... yes checking whether ftruncate is declared without a macro... yes checking whether getcwd is declared without a macro... yes checking whether getdomainname is declared without a macro... yes checking whether getdtablesize is declared without a macro... yes checking whether getgroups is declared without a macro... yes checking whether gethostname is declared without a macro... yes checking whether getlogin is declared without a macro... yes checking whether getlogin_r is declared without a macro... yes checking whether getpagesize is declared without a macro... yes checking whether getusershell is declared without a macro... yes checking whether setusershell is declared without a macro... yes checking whether endusershell is declared without a macro... yes checking whether group_member is declared without a macro... yes checking whether isatty is declared without a macro... yes checking whether lchown is declared without a macro... yes checking whether link is declared without a macro... yes checking whether linkat is declared without a macro... yes checking whether lseek is declared without a macro... yes checking whether pipe is declared without a macro... yes checking whether pipe2 is declared without a macro... yes checking whether pread is declared without a macro... yes checking whether pwrite is declared without a macro... yes checking whether readlink is declared without a macro... yes checking whether readlinkat is declared without a macro... yes checking whether rmdir is declared without a macro... yes checking whether sethostname is declared without a macro... yes checking whether sleep is declared without a macro... yes checking whether symlink is declared without a macro... yes checking whether symlinkat is declared without a macro... yes checking whether truncate is declared without a macro... yes checking whether ttyname_r is declared without a macro... yes checking whether unlink is declared without a macro... yes checking whether unlinkat is declared without a macro... yes checking whether usleep is declared without a macro... yes checking for unsetenv... yes checking for unsetenv() return type... int checking whether unsetenv obeys POSIX... yes checking for mmap... (cached) yes checking for MAP_ANONYMOUS... yes checking whether btowc is declared without a macro... yes checking whether wctob is declared without a macro... yes checking whether mbsinit is declared without a macro... yes checking whether mbrtowc is declared without a macro... yes checking whether mbrlen is declared without a macro... yes checking whether mbsrtowcs is declared without a macro... yes checking whether mbsnrtowcs is declared without a macro... yes checking whether wcrtomb is declared without a macro... yes checking whether wcsrtombs is declared without a macro... yes checking whether wcsnrtombs is declared without a macro... yes checking whether wcwidth is declared without a macro... yes checking whether wmemchr is declared without a macro... yes checking whether wmemcmp is declared without a macro... yes checking whether wmemcpy is declared without a macro... yes checking whether wmemmove is declared without a macro... yes checking whether wmemset is declared without a macro... yes checking whether wcslen is declared without a macro... yes checking whether wcsnlen is declared without a macro... yes checking whether wcscpy is declared without a macro... yes checking whether wcpcpy is declared without a macro... yes checking whether wcsncpy is declared without a macro... yes checking whether wcpncpy is declared without a macro... yes checking whether wcscat is declared without a macro... yes checking whether wcsncat is declared without a macro... yes checking whether wcscmp is declared without a macro... yes checking whether wcsncmp is declared without a macro... yes checking whether wcscasecmp is declared without a macro... yes checking whether wcsncasecmp is declared without a macro... yes checking whether wcscoll is declared without a macro... yes checking whether wcsxfrm is declared without a macro... yes checking whether wcsdup is declared without a macro... yes checking whether wcschr is declared without a macro... yes checking whether wcsrchr is declared without a macro... yes checking whether wcscspn is declared without a macro... yes checking whether wcsspn is declared without a macro... yes checking whether wcspbrk is declared without a macro... yes checking whether wcsstr is declared without a macro... yes checking whether wcstok is declared without a macro... yes checking whether wcswidth is declared without a macro... yes checking whether wcsftime is declared without a macro... yes checking whether mbrtowc handles incomplete characters... (cached) yes checking whether mbrtowc works as well as mbtowc... (cached) yes checking whether wcrtomb return value is correct... yes checking whether iswcntrl works... yes checking for towlower... yes checking for wctype_t... yes checking for wctrans_t... yes checking whether wctype is declared without a macro... yes checking whether iswctype is declared without a macro... yes checking whether wctrans is declared without a macro... yes checking whether towctrans is declared without a macro... 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 CFLocaleCopyCurrent... 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... -lffcall checking avcall.h usability... yes checking avcall.h presence... yes checking for avcall.h... yes checking callback.h usability... yes checking callback.h presence... yes checking for callback.h... yes checking for library containing ffcall_get_version... none required checking whether libffcall is installed... yes checking lightning.h usability... no checking lightning.h presence... no checking for lightning.h... no configure: ** checks for fundamental compiler characteristics checking for inline... (cached) inline checking for inline __builtin_strlen... no checking for long long int... (cached) yes configure: ** checks for header files checking termios.h usability... yes checking termios.h presence... yes 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... 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 vfork.h usability... no checking vfork.h presence... no checking for vfork.h... no checking for fork... yes checking for vfork... yes checking for working fork... yes checking for working vfork... (cached) yes checking sys/resource.h usability... yes checking sys/resource.h presence... 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 sys/un.h usability... yes checking sys/un.h presence... 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... 0x0000000011000000 checking for the shared library address range... 0x0000001567000000 checking for the stack address range... 0x0000003FFF000000 checking for usable vadvise... no checking for vm_allocate... no checking for sys/mman.h... (cached) yes checking for mmap... (cached) yes checking for mmap at fixed addresses... yes (MAP_ANON,MAP_ANONYMOUS,/dev/zero) checking for highest bit number which can be included in mmaped addresses... 37 checking for mincore... yes checking for munmap... yes checking for mprotect... (cached) yes checking for working mprotect... yes checking for dlfcn.h... (cached) yes checking for library containing dlopen... -ldl 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 readline/readline.h usability... yes checking readline/readline.h presence... yes 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 ===> /bin/sh ../src/configure --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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline --with-ffcall --with-libsigsegv-prefix=/usr --with-libffcall-prefix=/usr --cache-file=config.cache SUCCEEDED 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 --hyperspec=http://www.lispworks.com/documentation/HyperSpec/ --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=pcre --with-module=postgresql --with-module=rawsock --with-module=zlib --with-libreadline-prefix=/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline > Makefile cp -p ../src/cfgunix.lisp config.lisp chmod +w config.lisp echo '(setq *clhs-root-default* "http://www.lispworks.com/documentation/HyperSpec/")' >> config.lisp ln -s ../src/.gdbinit .gdbinit rm -f build-aux ln -s ../src/build-aux build-aux mkdir -p gllib test -f gllib/Makefile || sh config.status gllib/Makefile depfiles cd gllib && make CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC " top_srcdir="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src" make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib' rm -f alloca.h-t alloca.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ cat ../../src/gllib/alloca.in.h; \ } > alloca.h-t && \ mv -f alloca.h-t alloca.h /usr/bin/mkdir -p arpa rm -f arpa/inet.h-t arpa/inet.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''HAVE_FEATURES_H''@|1|g' \ -e 's|@''NEXT_ARPA_INET_H''@||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_DECL_INET_NTOP''@|1|g' \ -e 's|@''HAVE_DECL_INET_PTON''@|1|g' \ -e 's|@''REPLACE_INET_NTOP''@|0|g' \ -e 's|@''REPLACE_INET_PTON''@|0|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \ -e '/definition of _GL_ARG_NONNULL/r ../../src/gllib/arg-nonnull.h' \ -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \ < ../../src/gllib/arpa_inet.in.h; \ } > arpa/inet.h-t && \ mv arpa/inet.h-t arpa/inet.h rm -f configmake.h-t && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ echo '#define PREFIX "/usr"'; \ echo '#define EXEC_PREFIX "/usr"'; \ echo '#define BINDIR "/usr/bin"'; \ echo '#define SBINDIR "/usr/sbin"'; \ echo '#define LIBEXECDIR "/usr/libexec"'; \ echo '#define DATAROOTDIR "/usr/share"'; \ echo '#define DATADIR "/usr/share"'; \ echo '#define SYSCONFDIR "/usr/etc"'; \ echo '#define SHAREDSTATEDIR "/usr/com"'; \ echo '#define LOCALSTATEDIR "/usr/var"'; \ echo '#define RUNSTATEDIR "/usr/var/run"'; \ echo '#define INCLUDEDIR "/usr/include"'; \ echo '#define OLDINCLUDEDIR "/usr/include"'; \ echo '#define DOCDIR "/usr/share/doc/clisp"'; \ echo '#define INFODIR "/usr/share/info"'; \ echo '#define HTMLDIR "/usr/share/doc/clisp"'; \ echo '#define DVIDIR "/usr/share/doc/clisp"'; \ echo '#define PDFDIR "/usr/share/doc/clisp"'; \ echo '#define PSDIR "/usr/share/doc/clisp"'; \ echo '#define LIBDIR "/usr/lib64"'; \ echo '#define LISPDIR "/usr/share/emacs/site-lisp"'; \ echo '#define LOCALEDIR "/usr/share/locale"'; \ echo '#define MANDIR "/usr/share/man"'; \ echo '#define MANEXT ""'; \ echo '#define PKGDATADIR "/usr/share/clisp"'; \ echo '#define PKGINCLUDEDIR "/usr/include/clisp"'; \ echo '#define PKGLIBDIR "/usr/lib64/clisp"'; \ echo '#define PKGLIBEXECDIR "/usr/libexec/clisp"'; \ } | sed '/""/d' > configmake.h-t && \ mv -f configmake.h-t configmake.h rm -f fcntl.h-t fcntl.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_FCNTL_H''@||g' \ -e 's/@''GNULIB_FCNTL''@/0/g' \ -e 's/@''GNULIB_NONBLOCKING''@/0/g' \ -e 's/@''GNULIB_OPEN''@/0/g' \ -e 's/@''GNULIB_OPENAT''@/0/g' \ -e 's|@''HAVE_FCNTL''@|1|g' \ -e 's|@''HAVE_OPENAT''@|1|g' \ -e 's|@''REPLACE_FCNTL''@|0|g' \ -e 's|@''REPLACE_OPEN''@|0|g' \ -e 's|@''REPLACE_OPENAT''@|0|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \ -e '/definition of _GL_ARG_NONNULL/r ../../src/gllib/arg-nonnull.h' \ -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \ < ../../src/gllib/fcntl.in.h; \ } > fcntl.h-t && \ mv fcntl.h-t fcntl.h rm -f langinfo.h-t langinfo.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''HAVE_LANGINFO_H''@|1|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_LANGINFO_H''@||g' \ -e 's/@''GNULIB_NL_LANGINFO''@/1/g' \ -e 's|@''HAVE_LANGINFO_CODESET''@|1|g' \ -e 's|@''HAVE_LANGINFO_T_FMT_AMPM''@|1|g' \ -e 's|@''HAVE_LANGINFO_ALTMON''@|1|g' \ -e 's|@''HAVE_LANGINFO_ERA''@|1|g' \ -e 's|@''HAVE_LANGINFO_YESEXPR''@|1|g' \ -e 's|@''HAVE_NL_LANGINFO''@|1|g' \ -e 's|@''REPLACE_NL_LANGINFO''@|0|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \ -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \ < ../../src/gllib/langinfo.in.h; \ } > langinfo.h-t && \ mv langinfo.h-t langinfo.h rm -f limits.h-t limits.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_LIMITS_H''@||g' \ < ../../src/gllib/limits.in.h; \ } > limits.h-t && \ mv limits.h-t limits.h rm -f locale.h-t locale.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_LOCALE_H''@||g' \ -e 's/@''GNULIB_LOCALECONV''@/1/g' \ -e 's/@''GNULIB_SETLOCALE''@/0/g' \ -e 's/@''GNULIB_DUPLOCALE''@/0/g' \ -e 's|@''HAVE_DUPLOCALE''@|1|g' \ -e 's|@''HAVE_XLOCALE_H''@|0|g' \ -e 's|@''REPLACE_LOCALECONV''@|0|g' \ -e 's|@''REPLACE_SETLOCALE''@|0|g' \ -e 's|@''REPLACE_DUPLOCALE''@|0|g' \ -e 's|@''REPLACE_STRUCT_LCONV''@|0|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \ -e '/definition of _GL_ARG_NONNULL/r ../../src/gllib/arg-nonnull.h' \ -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \ < ../../src/gllib/locale.in.h; \ } > locale.h-t && \ mv locale.h-t locale.h rm -f signal.h-t signal.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_SIGNAL_H''@||g' \ -e 's/@''GNULIB_PTHREAD_SIGMASK''@/0/g' \ -e 's/@''GNULIB_RAISE''@/0/g' \ -e 's/@''GNULIB_SIGNAL_H_SIGPIPE''@/0/g' \ -e 's/@''GNULIB_SIGPROCMASK''@/0/g' \ -e 's/@''GNULIB_SIGACTION''@/0/g' \ -e 's|@''HAVE_POSIX_SIGNALBLOCKING''@|1|g' \ -e 's|@''HAVE_PTHREAD_SIGMASK''@|1|g' \ -e 's|@''HAVE_RAISE''@|1|g' \ -e 's|@''HAVE_SIGSET_T''@|1|g' \ -e 's|@''HAVE_SIGINFO_T''@|1|g' \ -e 's|@''HAVE_SIGACTION''@|1|g' \ -e 's|@''HAVE_STRUCT_SIGACTION_SA_SIGACTION''@|1|g' \ -e 's|@''HAVE_TYPE_VOLATILE_SIG_ATOMIC_T''@|1|g' \ -e 's|@''HAVE_SIGHANDLER_T''@|1|g' \ -e 's|@''REPLACE_PTHREAD_SIGMASK''@|0|g' \ -e 's|@''REPLACE_RAISE''@|0|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \ -e '/definition of _GL_ARG_NONNULL/r ../../src/gllib/arg-nonnull.h' \ -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \ < ../../src/gllib/signal.in.h; \ } > signal.h-t && \ mv signal.h-t signal.h rm -f stdlib.h-t stdlib.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_STDLIB_H''@||g' \ -e 's/@''GNULIB__EXIT''@/0/g' \ -e 's/@''GNULIB_ATOLL''@/0/g' \ -e 's/@''GNULIB_CALLOC_POSIX''@/0/g' \ -e 's/@''GNULIB_CANONICALIZE_FILE_NAME''@/0/g' \ -e 's/@''GNULIB_GETLOADAVG''@/1/g' \ -e 's/@''GNULIB_GETSUBOPT''@/0/g' \ -e 's/@''GNULIB_GRANTPT''@/0/g' \ -e 's/@''GNULIB_MALLOC_POSIX''@/1/g' \ -e 's/@''GNULIB_MBTOWC''@/1/g' \ -e 's/@''GNULIB_MKDTEMP''@/1/g' \ -e 's/@''GNULIB_MKOSTEMP''@/0/g' \ -e 's/@''GNULIB_MKOSTEMPS''@/0/g' \ -e 's/@''GNULIB_MKSTEMP''@/1/g' \ -e 's/@''GNULIB_MKSTEMPS''@/0/g' \ -e 's/@''GNULIB_POSIX_OPENPT''@/0/g' \ -e 's/@''GNULIB_PTSNAME''@/0/g' \ -e 's/@''GNULIB_PTSNAME_R''@/0/g' \ -e 's/@''GNULIB_PUTENV''@/0/g' \ -e 's/@''GNULIB_QSORT_R''@/0/g' \ -e 's/@''GNULIB_RANDOM''@/0/g' \ -e 's/@''GNULIB_RANDOM_R''@/0/g' \ -e 's/@''GNULIB_REALLOC_POSIX''@/0/g' \ -e 's/@''GNULIB_REALLOCARRAY''@/0/g' \ -e 's/@''GNULIB_REALPATH''@/0/g' \ -e 's/@''GNULIB_RPMATCH''@/0/g' \ -e 's/@''GNULIB_SECURE_GETENV''@/0/g' \ -e 's/@''GNULIB_SETENV''@/1/g' \ -e 's/@''GNULIB_STRTOD''@/0/g' \ -e 's/@''GNULIB_STRTOLL''@/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' \ < ../../src/gllib/stdlib.in.h | \ sed -e 's|@''HAVE__EXIT''@|1|g' \ -e 's|@''HAVE_ATOLL''@|1|g' \ -e 's|@''HAVE_CANONICALIZE_FILE_NAME''@|1|g' \ -e 's|@''HAVE_DECL_GETLOADAVG''@|1|g' \ -e 's|@''HAVE_GETSUBOPT''@|1|g' \ -e 's|@''HAVE_GRANTPT''@|1|g' \ -e 's|@''HAVE_DECL_INITSTATE''@|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_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_DECL_SETSTATE''@|1|g' \ -e 's|@''HAVE_STRTOD''@|1|g' \ -e 's|@''HAVE_STRTOLL''@|1|g' \ -e 's|@''HAVE_STRTOULL''@|1|g' \ -e 's|@''HAVE_STRUCT_RANDOM_DATA''@|1|g' \ -e 's|@''HAVE_SYS_LOADAVG_H''@|0|g' \ -e 's|@''HAVE_UNLOCKPT''@|1|g' \ -e 's|@''HAVE_DECL_UNSETENV''@|1|g' \ -e 's|@''REPLACE_CALLOC''@|0|g' \ -e 's|@''REPLACE_CANONICALIZE_FILE_NAME''@|0|g' \ -e 's|@''REPLACE_MALLOC''@|0|g' \ -e 's|@''REPLACE_MBTOWC''@|0|g' \ -e 's|@''REPLACE_MKSTEMP''@|0|g' \ -e 's|@''REPLACE_PTSNAME''@|0|g' \ -e 's|@''REPLACE_PTSNAME_R''@|0|g' \ -e 's|@''REPLACE_PUTENV''@|0|g' \ -e 's|@''REPLACE_QSORT_R''@|0|g' \ -e 's|@''REPLACE_RANDOM_R''@|0|g' \ -e 's|@''REPLACE_REALLOC''@|0|g' \ -e 's|@''REPLACE_REALPATH''@|0|g' \ -e 's|@''REPLACE_SETENV''@|0|g' \ -e 's|@''REPLACE_STRTOD''@|0|g' \ -e 's|@''REPLACE_UNSETENV''@|0|g' \ -e 's|@''REPLACE_WCTOMB''@|0|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \ -e '/definition of _Noreturn/r ../../src/gllib/_Noreturn.h' \ -e '/definition of _GL_ARG_NONNULL/r ../../src/gllib/arg-nonnull.h' \ -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h'; \ } > stdlib.h-t && \ mv stdlib.h-t stdlib.h rm -f string.h-t string.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_STRING_H''@||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''@/0/g' \ -e 's/@''GNULIB_MEMRCHR''@/0/g' \ -e 's/@''GNULIB_RAWMEMCHR''@/0/g' \ -e 's/@''GNULIB_STPCPY''@/0/g' \ -e 's/@''GNULIB_STPNCPY''@/0/g' \ -e 's/@''GNULIB_STRCHRNUL''@/0/g' \ -e 's/@''GNULIB_STRDUP''@/1/g' \ -e 's/@''GNULIB_STRNCAT''@/0/g' \ -e 's/@''GNULIB_STRNDUP''@/0/g' \ -e 's/@''GNULIB_STRNLEN''@/0/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_STRSIGNAL''@/0/g' \ -e 's/@''GNULIB_STRVERSCMP''@/1/g' \ < ../../src/gllib/string.in.h | \ sed -e 's|@''HAVE_EXPLICIT_BZERO''@|1|g' \ -e 's|@''HAVE_FFSL''@|1|g' \ -e 's|@''HAVE_FFSLL''@|1|g' \ -e 's|@''HAVE_MBSLEN''@|0|g' \ -e 's|@''HAVE_MEMCHR''@|1|g' \ -e 's|@''HAVE_DECL_MEMMEM''@|1|g' \ -e 's|@''HAVE_MEMPCPY''@|1|g' \ -e 's|@''HAVE_DECL_MEMRCHR''@|1|g' \ -e 's|@''HAVE_RAWMEMCHR''@|1|g' \ -e 's|@''HAVE_STPCPY''@|1|g' \ -e 's|@''HAVE_STPNCPY''@|1|g' \ -e 's|@''HAVE_STRCHRNUL''@|1|g' \ -e 's|@''HAVE_DECL_STRDUP''@|1|g' \ -e 's|@''HAVE_DECL_STRNDUP''@|1|g' \ -e 's|@''HAVE_DECL_STRNLEN''@|1|g' \ -e 's|@''HAVE_STRPBRK''@|1|g' \ -e 's|@''HAVE_STRSEP''@|1|g' \ -e 's|@''HAVE_STRCASESTR''@|1|g' \ -e 's|@''HAVE_DECL_STRTOK_R''@|1|g' \ -e 's|@''HAVE_DECL_STRERROR_R''@|1|g' \ -e 's|@''HAVE_DECL_STRSIGNAL''@|1|g' \ -e 's|@''HAVE_STRVERSCMP''@|1|g' \ -e 's|@''REPLACE_MEMCHR''@|0|g' \ -e 's|@''REPLACE_MEMMEM''@|0|g' \ -e 's|@''REPLACE_STPNCPY''@|0|g' \ -e 's|@''REPLACE_STRCHRNUL''@|0|g' \ -e 's|@''REPLACE_STRDUP''@|0|g' \ -e 's|@''REPLACE_STRNCAT''@|0|g' \ -e 's|@''REPLACE_STRNDUP''@|0|g' \ -e 's|@''REPLACE_STRNLEN''@|0|g' \ -e 's|@''REPLACE_STRSTR''@|0|g' \ -e 's|@''REPLACE_STRCASESTR''@|0|g' \ -e 's|@''REPLACE_STRTOK_R''@|0|g' \ -e 's|@''REPLACE_STRERROR''@|0|g' \ -e 's|@''REPLACE_STRERROR_R''@|1|g' \ -e 's|@''REPLACE_STRSIGNAL''@|0|g' \ -e 's|@''UNDEFINE_STRTOK_R''@|0|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \ -e '/definition of _GL_ARG_NONNULL/r ../../src/gllib/arg-nonnull.h' \ -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h'; \ < ../../src/gllib/string.in.h; \ } > string.h-t && \ mv string.h-t string.h rm -f strings.h-t strings.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''HAVE_STRINGS_H''@|1|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_STRINGS_H''@||g' \ -e 's/@''GNULIB_FFS''@/0/g' \ -e 's|@''HAVE_FFS''@|1|g' \ -e 's|@''HAVE_STRCASECMP''@|1|g' \ -e 's|@''HAVE_DECL_STRNCASECMP''@|1|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \ -e '/definition of _GL_ARG_NONNULL/r ../../src/gllib/arg-nonnull.h' \ -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \ < ../../src/gllib/strings.in.h; \ } > strings.h-t && \ mv strings.h-t strings.h /usr/bin/mkdir -p sys rm -f sys/ioctl.h-t sys/ioctl.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''HAVE_SYS_IOCTL_H''@|1|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_SYS_IOCTL_H''@||g' \ -e 's/@''GNULIB_IOCTL''@/1/g' \ -e 's|@''SYS_IOCTL_H_HAVE_WINSOCK2_H''@|0|g' \ -e 's|@''SYS_IOCTL_H_HAVE_WINSOCK2_H_AND_USE_SOCKETS''@|0|g' \ -e 's|@''REPLACE_IOCTL''@|1|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \ -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \ < ../../src/gllib/sys_ioctl.in.h; \ } > sys/ioctl.h-t && \ mv sys/ioctl.h-t sys/ioctl.h /usr/bin/mkdir -p sys rm -f sys/select.h-t sys/select.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_SYS_SELECT_H''@||g' \ -e 's|@''HAVE_SYS_SELECT_H''@|1|g' \ -e 's/@''GNULIB_PSELECT''@/0/g' \ -e 's/@''GNULIB_SELECT''@/1/g' \ -e 's|@''HAVE_WINSOCK2_H''@|0|g' \ -e 's|@''HAVE_PSELECT''@|1|g' \ -e 's|@''REPLACE_PSELECT''@|0|g' \ -e 's|@''REPLACE_SELECT''@|0|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \ -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \ < ../../src/gllib/sys_select.in.h; \ } > sys/select.h-t && \ mv sys/select.h-t sys/select.h /usr/bin/mkdir -p sys rm -f sys/socket.h-t sys/socket.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_SYS_SOCKET_H''@||g' \ -e 's|@''HAVE_SYS_SOCKET_H''@|1|g' \ -e 's/@''GNULIB_CLOSE''@/1/g' \ -e 's/@''GNULIB_SOCKET''@/1/g' \ -e 's/@''GNULIB_CONNECT''@/1/g' \ -e 's/@''GNULIB_ACCEPT''@/1/g' \ -e 's/@''GNULIB_BIND''@/1/g' \ -e 's/@''GNULIB_GETPEERNAME''@/1/g' \ -e 's/@''GNULIB_GETSOCKNAME''@/1/g' \ -e 's/@''GNULIB_GETSOCKOPT''@/1/g' \ -e 's/@''GNULIB_LISTEN''@/1/g' \ -e 's/@''GNULIB_RECV''@/1/g' \ -e 's/@''GNULIB_SEND''@/1/g' \ -e 's/@''GNULIB_RECVFROM''@/1/g' \ -e 's/@''GNULIB_SENDTO''@/1/g' \ -e 's/@''GNULIB_SETSOCKOPT''@/1/g' \ -e 's/@''GNULIB_SHUTDOWN''@/1/g' \ -e 's/@''GNULIB_ACCEPT4''@/0/g' \ -e 's|@''HAVE_WINSOCK2_H''@|0|g' \ -e 's|@''HAVE_WS2TCPIP_H''@|0|g' \ -e 's|@''HAVE_STRUCT_SOCKADDR_STORAGE''@|1|g' \ -e 's|@''HAVE_STRUCT_SOCKADDR_STORAGE_SS_FAMILY''@|1|g' \ -e 's|@''HAVE_SA_FAMILY_T''@|1|g' \ -e 's|@''HAVE_ACCEPT4''@|1|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \ -e '/definition of _GL_ARG_NONNULL/r ../../src/gllib/arg-nonnull.h' \ -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \ < ../../src/gllib/sys_socket.in.h; \ } > sys/socket.h-t && \ mv -f sys/socket.h-t sys/socket.h /usr/bin/mkdir -p sys rm -f sys/stat.h-t sys/stat.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_SYS_STAT_H''@||g' \ -e 's|@''WINDOWS_64_BIT_ST_SIZE''@|0|g' \ -e 's|@''WINDOWS_STAT_TIMESPEC''@|0|g' \ -e 's/@''GNULIB_FCHMODAT''@/0/g' \ -e 's/@''GNULIB_FSTAT''@/0/g' \ -e 's/@''GNULIB_FSTATAT''@/0/g' \ -e 's/@''GNULIB_FUTIMENS''@/0/g' \ -e 's/@''GNULIB_LCHMOD''@/0/g' \ -e 's/@''GNULIB_LSTAT''@/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|@''HAVE_FCHMODAT''@|1|g' \ -e 's|@''HAVE_FSTATAT''@|1|g' \ -e 's|@''HAVE_FUTIMENS''@|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_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_MKNOD''@|0|g' \ -e 's|@''REPLACE_STAT''@|0|g' \ -e 's|@''REPLACE_UTIMENSAT''@|0|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \ -e '/definition of _GL_ARG_NONNULL/r ../../src/gllib/arg-nonnull.h' \ -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \ < ../../src/gllib/sys_stat.in.h; \ } > sys/stat.h-t && \ mv sys/stat.h-t sys/stat.h /usr/bin/mkdir -p sys rm -f sys/time.h-t sys/time.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's/@''HAVE_SYS_TIME_H''@/1/g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_SYS_TIME_H''@||g' \ -e 's/@''GNULIB_GETTIMEOFDAY''@/1/g' \ -e 's|@''HAVE_WINSOCK2_H''@|0|g' \ -e 's/@''HAVE_GETTIMEOFDAY''@/1/g' \ -e 's/@''HAVE_STRUCT_TIMEVAL''@/1/g' \ -e 's/@''REPLACE_GETTIMEOFDAY''@/0/g' \ -e 's/@''REPLACE_STRUCT_TIMEVAL''@/0/g' \ -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \ -e '/definition of _GL_ARG_NONNULL/r ../../src/gllib/arg-nonnull.h' \ -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \ < ../../src/gllib/sys_time.in.h; \ } > sys/time.h-t && \ mv sys/time.h-t sys/time.h /usr/bin/mkdir -p sys rm -f sys/types.h-t sys/types.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_SYS_TYPES_H''@||g' \ -e 's|@''WINDOWS_64_BIT_OFF_T''@|0|g' \ -e 's|@''WINDOWS_STAT_INODES''@|0|g' \ < ../../src/gllib/sys_types.in.h; \ } > sys/types.h-t && \ mv sys/types.h-t sys/types.h /usr/bin/mkdir -p sys rm -f sys/uio.h-t sys/uio.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_SYS_UIO_H''@||g' \ -e 's|@''HAVE_SYS_UIO_H''@|1|g' \ < ../../src/gllib/sys_uio.in.h; \ } > sys/uio.h-t && \ mv -f sys/uio.h-t sys/uio.h /usr/bin/mkdir -p sys rm -f sys/utsname.h-t sys/utsname.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's/@''HAVE_SYS_UTSNAME_H''@/1/g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_SYS_UTSNAME_H''@||g' \ -e 's/@''GNULIB_UNAME''@/1/g' \ -e 's|@''HAVE_STRUCT_UTSNAME''@|1|g' \ -e 's|@''HAVE_UNAME''@|1|g' \ -e '/definition of _GL_ARG_NONNULL/r ../../src/gllib/arg-nonnull.h' \ -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \ < ../../src/gllib/sys_utsname.in.h; \ } > sys/utsname.h-t && \ mv sys/utsname.h-t sys/utsname.h /usr/bin/mkdir -p sys rm -f sys/wait.h-t sys/wait.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_SYS_WAIT_H''@||g' \ -e 's/@''GNULIB_WAITPID''@/0/g' \ -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \ -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \ < ../../src/gllib/sys_wait.in.h; \ } > sys/wait.h-t && \ mv sys/wait.h-t sys/wait.h rm -f time.h-t time.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_TIME_H''@||g' \ -e 's/@''GNULIB_CTIME''@/0/g' \ -e 's/@''GNULIB_LOCALTIME''@/0/g' \ -e 's/@''GNULIB_MKTIME''@/1/g' \ -e 's/@''GNULIB_NANOSLEEP''@/0/g' \ -e 's/@''GNULIB_STRFTIME''@/0/g' \ -e 's/@''GNULIB_STRPTIME''@/1/g' \ -e 's/@''GNULIB_TIMEGM''@/1/g' \ -e 's/@''GNULIB_TIME_R''@/1/g' \ -e 's/@''GNULIB_TIME_RZ''@/1/g' \ -e 's/@''GNULIB_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_TIMEZONE_T''@|0|g' \ -e 's|@''HAVE_TZSET''@|1|g' \ -e 's|@''REPLACE_CTIME''@|GNULIB_PORTCHECK|g' \ -e 's|@''REPLACE_GMTIME''@|0|g' \ -e 's|@''REPLACE_LOCALTIME''@|0|g' \ -e 's|@''REPLACE_LOCALTIME_R''@|0|g' \ -e 's|@''REPLACE_MKTIME''@|0|g' \ -e 's|@''REPLACE_NANOSLEEP''@|GNULIB_PORTCHECK|g' \ -e 's|@''REPLACE_STRFTIME''@|GNULIB_PORTCHECK|g' \ -e 's|@''REPLACE_TIMEGM''@|0|g' \ -e 's|@''REPLACE_TZSET''@|0|g' \ -e 's|@''PTHREAD_H_DEFINES_STRUCT_TIMESPEC''@|0|g' \ -e 's|@''SYS_TIME_H_DEFINES_STRUCT_TIMESPEC''@|0|g' \ -e 's|@''TIME_H_DEFINES_STRUCT_TIMESPEC''@|1|g' \ -e 's|@''UNISTD_H_DEFINES_STRUCT_TIMESPEC''@|0|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \ -e '/definition of _GL_ARG_NONNULL/r ../../src/gllib/arg-nonnull.h' \ -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \ < ../../src/gllib/time.in.h; \ } > time.h-t && \ mv time.h-t time.h rm -f unistd.h-t unistd.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''HAVE_UNISTD_H''@|1|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_UNISTD_H''@||g' \ -e 's|@''WINDOWS_64_BIT_OFF_T''@|0|g' \ -e 's/@''GNULIB_CHDIR''@/0/g' \ -e 's/@''GNULIB_CHOWN''@/0/g' \ -e 's/@''GNULIB_CLOSE''@/1/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_FACCESSAT''@/0/g' \ -e 's/@''GNULIB_FCHDIR''@/0/g' \ -e 's/@''GNULIB_FCHOWNAT''@/0/g' \ -e 's/@''GNULIB_FDATASYNC''@/0/g' \ -e 's/@''GNULIB_FSYNC''@/0/g' \ -e 's/@''GNULIB_FTRUNCATE''@/0/g' \ -e 's/@''GNULIB_GETCWD''@/0/g' \ -e 's/@''GNULIB_GETDOMAINNAME''@/0/g' \ -e 's/@''GNULIB_GETDTABLESIZE''@/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_GETPAGESIZE''@/1/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''@/0/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''@/0/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' \ < ../../src/gllib/unistd.in.h | \ sed -e 's|@''HAVE_CHOWN''@|1|g' \ -e 's|@''HAVE_DUP2''@|1|g' \ -e 's|@''HAVE_DUP3''@|1|g' \ -e 's|@''HAVE_EUIDACCESS''@|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_GETGROUPS''@|1|g' \ -e 's|@''HAVE_GETHOSTNAME''@|1|g' \ -e 's|@''HAVE_GETPAGESIZE''@|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_TRUNCATE''@|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_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_TTYNAME_R''@|1|g' \ -e 's|@''HAVE_OS_H''@|0|g' \ -e 's|@''HAVE_SYS_PARAM_H''@|0|g' \ | \ sed -e 's|@''REPLACE_CHOWN''@|0|g' \ -e 's|@''REPLACE_CLOSE''@|0|g' \ -e 's|@''REPLACE_DUP''@|0|g' \ -e 's|@''REPLACE_DUP2''@|0|g' \ -e 's|@''REPLACE_FACCESSAT''@|0|g' \ -e 's|@''REPLACE_FCHOWNAT''@|0|g' \ -e 's|@''REPLACE_FTRUNCATE''@|0|g' \ -e 's|@''REPLACE_GETCWD''@|0|g' \ -e 's|@''REPLACE_GETDOMAINNAME''@|0|g' \ -e 's|@''REPLACE_GETDTABLESIZE''@|0|g' \ -e 's|@''REPLACE_GETLOGIN_R''@|0|g' \ -e 's|@''REPLACE_GETGROUPS''@|0|g' \ -e 's|@''REPLACE_GETPAGESIZE''@|0|g' \ -e 's|@''REPLACE_ISATTY''@|0|g' \ -e 's|@''REPLACE_LCHOWN''@|0|g' \ -e 's|@''REPLACE_LINK''@|0|g' \ -e 's|@''REPLACE_LINKAT''@|0|g' \ -e 's|@''REPLACE_LSEEK''@|0|g' \ -e 's|@''REPLACE_PREAD''@|0|g' \ -e 's|@''REPLACE_PWRITE''@|0|g' \ -e 's|@''REPLACE_READ''@|0|g' \ -e 's|@''REPLACE_READLINK''@|0|g' \ -e 's|@''REPLACE_READLINKAT''@|0|g' \ -e 's|@''REPLACE_RMDIR''@|0|g' \ -e 's|@''REPLACE_SLEEP''@|0|g' \ -e 's|@''REPLACE_SYMLINK''@|0|g' \ -e 's|@''REPLACE_SYMLINKAT''@|0|g' \ -e 's|@''REPLACE_TRUNCATE''@|0|g' \ -e 's|@''REPLACE_TTYNAME_R''@|0|g' \ -e 's|@''REPLACE_UNLINK''@|0|g' \ -e 's|@''REPLACE_UNLINKAT''@|0|g' \ -e 's|@''REPLACE_USLEEP''@|0|g' \ -e 's|@''REPLACE_WRITE''@|0|g' \ -e 's|@''UNISTD_H_HAVE_WINSOCK2_H''@|0|g' \ -e 's|@''UNISTD_H_HAVE_WINSOCK2_H_AND_USE_SOCKETS''@|0|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \ -e '/definition of _GL_ARG_NONNULL/r ../../src/gllib/arg-nonnull.h' \ -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h'; \ } > unistd.h-t && \ mv unistd.h-t unistd.h rm -f wchar.h-t wchar.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''HAVE_FEATURES_H''@|1|g' \ -e 's|@''NEXT_WCHAR_H''@||g' \ -e 's|@''HAVE_WCHAR_H''@|1|g' \ -e 's/@''HAVE_CRTDEFS_H''@/0/g' \ -e 's/@''GNULIB_OVERRIDES_WINT_T''@/0/g' \ -e 's/@''GNULIB_BTOWC''@/1/g' \ -e 's/@''GNULIB_WCTOB''@/0/g' \ -e 's/@''GNULIB_MBSINIT''@/1/g' \ -e 's/@''GNULIB_MBRTOWC''@/1/g' \ -e 's/@''GNULIB_MBRLEN''@/0/g' \ -e 's/@''GNULIB_MBSRTOWCS''@/1/g' \ -e 's/@''GNULIB_MBSNRTOWCS''@/0/g' \ -e 's/@''GNULIB_WCRTOMB''@/1/g' \ -e 's/@''GNULIB_WCSRTOMBS''@/0/g' \ -e 's/@''GNULIB_WCSNRTOMBS''@/0/g' \ -e 's/@''GNULIB_WCWIDTH''@/0/g' \ -e 's/@''GNULIB_WMEMCHR''@/0/g' \ -e 's/@''GNULIB_WMEMCMP''@/0/g' \ -e 's/@''GNULIB_WMEMCPY''@/0/g' \ -e 's/@''GNULIB_WMEMMOVE''@/0/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' \ < ../../src/gllib/wchar.in.h | \ sed -e 's|@''HAVE_WINT_T''@|1|g' \ -e 's|@''HAVE_BTOWC''@|1|g' \ -e 's|@''HAVE_MBSINIT''@|1|g' \ -e 's|@''HAVE_MBRTOWC''@|1|g' \ -e 's|@''HAVE_MBRLEN''@|1|g' \ -e 's|@''HAVE_MBSRTOWCS''@|1|g' \ -e 's|@''HAVE_MBSNRTOWCS''@|1|g' \ -e 's|@''HAVE_WCRTOMB''@|1|g' \ -e 's|@''HAVE_WCSRTOMBS''@|1|g' \ -e 's|@''HAVE_WCSNRTOMBS''@|1|g' \ -e 's|@''HAVE_WMEMCHR''@|1|g' \ -e 's|@''HAVE_WMEMCMP''@|1|g' \ -e 's|@''HAVE_WMEMCPY''@|1|g' \ -e 's|@''HAVE_WMEMMOVE''@|1|g' \ -e 's|@''HAVE_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_WCWIDTH''@|1|g' \ | \ sed -e 's|@''REPLACE_MBSTATE_T''@|0|g' \ -e 's|@''REPLACE_BTOWC''@|0|g' \ -e 's|@''REPLACE_WCTOB''@|0|g' \ -e 's|@''REPLACE_MBSINIT''@|0|g' \ -e 's|@''REPLACE_MBRTOWC''@|1|g' \ -e 's|@''REPLACE_MBRLEN''@|0|g' \ -e 's|@''REPLACE_MBSRTOWCS''@|0|g' \ -e 's|@''REPLACE_MBSNRTOWCS''@|0|g' \ -e 's|@''REPLACE_WCRTOMB''@|0|g' \ -e 's|@''REPLACE_WCSRTOMBS''@|0|g' \ -e 's|@''REPLACE_WCSNRTOMBS''@|0|g' \ -e 's|@''REPLACE_WCWIDTH''@|0|g' \ -e 's|@''REPLACE_WCSWIDTH''@|0|g' \ -e 's|@''REPLACE_WCSFTIME''@|0|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \ -e '/definition of _GL_ARG_NONNULL/r ../../src/gllib/arg-nonnull.h' \ -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h'; \ } > wchar.h-t && \ mv wchar.h-t wchar.h rm -f wctype.h-t wctype.h && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's/@''HAVE_WCTYPE_H''@/1/g' \ -e 's|@''INCLUDE_NEXT''@|include_next|g' \ -e 's|@''PRAGMA_SYSTEM_HEADER''@|#pragma GCC system_header|g' \ -e 's|@''PRAGMA_COLUMNS''@||g' \ -e 's|@''NEXT_WCTYPE_H''@||g' \ -e 's/@''HAVE_CRTDEFS_H''@/0/g' \ -e 's/@''GNULIB_OVERRIDES_WINT_T''@/0/g' \ -e 's/@''GNULIB_ISWBLANK''@/0/g' \ -e 's/@''GNULIB_WCTYPE''@/0/g' \ -e 's/@''GNULIB_ISWCTYPE''@/0/g' \ -e 's/@''GNULIB_WCTRANS''@/0/g' \ -e 's/@''GNULIB_TOWCTRANS''@/0/g' \ -e 's/@''HAVE_ISWBLANK''@/1/g' \ -e 's/@''HAVE_ISWCNTRL''@/1/g' \ -e 's/@''HAVE_WCTYPE_T''@/1/g' \ -e 's/@''HAVE_WCTRANS_T''@/1/g' \ -e 's/@''HAVE_WINT_T''@/1/g' \ -e 's/@''REPLACE_ISWBLANK''@/0/g' \ -e 's/@''REPLACE_ISWCNTRL''@/0/g' \ -e 's/@''REPLACE_TOWLOWER''@/0/g' \ -e '/definitions of _GL_FUNCDECL_RPL/r ../../src/gllib/c++defs.h' \ -e '/definition of _GL_WARN_ON_USE/r ../../src/gllib/warn-on-use.h' \ < ../../src/gllib/wctype.in.h; \ } > wctype.h-t && \ mv wctype.h-t wctype.h make all-recursive make[2]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib' make[3]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib' depbase=`echo c-ctype.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\ gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I.. -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -MT c-ctype.o -MD -MP -MF $depbase.Tpo -c -o c-ctype.o ../../src/gllib/c-ctype.c &&\ mv -f $depbase.Tpo $depbase.Po depbase=`echo c-strtod.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\ gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I.. -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -MT c-strtod.o -MD -MP -MF $depbase.Tpo -c -o c-strtod.o ../../src/gllib/c-strtod.c &&\ mv -f $depbase.Tpo $depbase.Po depbase=`echo sha1.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\ gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I.. -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -MT sha1.o -MD -MP -MF $depbase.Tpo -c -o sha1.o ../../src/gllib/sha1.c &&\ mv -f $depbase.Tpo $depbase.Po depbase=`echo fd-hook.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\ gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I.. -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -MT fd-hook.o -MD -MP -MF $depbase.Tpo -c -o fd-hook.o ../../src/gllib/fd-hook.c &&\ mv -f $depbase.Tpo $depbase.Po depbase=`echo hard-locale.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\ gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I.. -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -MT hard-locale.o -MD -MP -MF $depbase.Tpo -c -o hard-locale.o ../../src/gllib/hard-locale.c &&\ mv -f $depbase.Tpo $depbase.Po depbase=`echo localcharset.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\ gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I.. -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -MT localcharset.o -MD -MP -MF $depbase.Tpo -c -o localcharset.o ../../src/gllib/localcharset.c &&\ mv -f $depbase.Tpo $depbase.Po depbase=`echo glthread/lock.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\ gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I.. -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -MT glthread/lock.o -MD -MP -MF $depbase.Tpo -c -o glthread/lock.o ../../src/gllib/glthread/lock.c &&\ mv -f $depbase.Tpo $depbase.Po depbase=`echo malloca.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\ gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I.. -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -MT malloca.o -MD -MP -MF $depbase.Tpo -c -o malloca.o ../../src/gllib/malloca.c &&\ mv -f $depbase.Tpo $depbase.Po depbase=`echo nstrftime.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\ gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I.. -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -MT nstrftime.o -MD -MP -MF $depbase.Tpo -c -o nstrftime.o ../../src/gllib/nstrftime.c &&\ mv -f $depbase.Tpo $depbase.Po depbase=`echo sockets.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\ gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I.. -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -MT sockets.o -MD -MP -MF $depbase.Tpo -c -o sockets.o ../../src/gllib/sockets.c &&\ mv -f $depbase.Tpo $depbase.Po depbase=`echo stat-time.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\ gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I.. -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -MT stat-time.o -MD -MP -MF $depbase.Tpo -c -o stat-time.o ../../src/gllib/stat-time.c &&\ mv -f $depbase.Tpo $depbase.Po depbase=`echo strnlen1.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\ gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I.. -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -MT strnlen1.o -MD -MP -MF $depbase.Tpo -c -o strnlen1.o ../../src/gllib/strnlen1.c &&\ mv -f $depbase.Tpo $depbase.Po depbase=`echo sys_socket.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\ gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I.. -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -MT sys_socket.o -MD -MP -MF $depbase.Tpo -c -o sys_socket.o ../../src/gllib/sys_socket.c &&\ mv -f $depbase.Tpo $depbase.Po depbase=`echo tempname.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\ gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I.. -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -MT tempname.o -MD -MP -MF $depbase.Tpo -c -o tempname.o ../../src/gllib/tempname.c &&\ mv -f $depbase.Tpo $depbase.Po depbase=`echo glthread/threadlib.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\ gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I.. -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -MT glthread/threadlib.o -MD -MP -MF $depbase.Tpo -c -o glthread/threadlib.o ../../src/gllib/glthread/threadlib.c &&\ mv -f $depbase.Tpo $depbase.Po depbase=`echo unistd.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\ gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I.. -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -MT unistd.o -MD -MP -MF $depbase.Tpo -c -o unistd.o ../../src/gllib/unistd.c &&\ mv -f $depbase.Tpo $depbase.Po depbase=`echo vma-iter.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\ gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I.. -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -MT vma-iter.o -MD -MP -MF $depbase.Tpo -c -o vma-iter.o ../../src/gllib/vma-iter.c &&\ mv -f $depbase.Tpo $depbase.Po ../../src/gllib/vma-iter.c: In function ‘vma_iterate_bsd’: ../../src/gllib/vma-iter.c:852:42: warning: unused parameter ‘callback’ [-Wunused-parameter] 852 | vma_iterate_bsd (vma_iterate_callback_fn callback, void *data) | ~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~ ../../src/gllib/vma-iter.c:852:58: warning: unused parameter ‘data’ [-Wunused-parameter] 852 | vma_iterate_bsd (vma_iterate_callback_fn callback, void *data) | ~~~~~~^~~~ depbase=`echo wctype-h.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\ gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I.. -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -MT wctype-h.o -MD -MP -MF $depbase.Tpo -c -o wctype-h.o ../../src/gllib/wctype-h.c &&\ mv -f $depbase.Tpo $depbase.Po depbase=`echo ioctl.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\ gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I.. -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -MT ioctl.o -MD -MP -MF $depbase.Tpo -c -o ioctl.o ../../src/gllib/ioctl.c &&\ mv -f $depbase.Tpo $depbase.Po depbase=`echo localtime-buffer.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\ gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I.. -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -MT localtime-buffer.o -MD -MP -MF $depbase.Tpo -c -o localtime-buffer.o ../../src/gllib/localtime-buffer.c &&\ mv -f $depbase.Tpo $depbase.Po depbase=`echo mbrtowc.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\ gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I.. -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -MT mbrtowc.o -MD -MP -MF $depbase.Tpo -c -o mbrtowc.o ../../src/gllib/mbrtowc.c &&\ mv -f $depbase.Tpo $depbase.Po depbase=`echo mktime.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\ gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I.. -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -MT mktime.o -MD -MP -MF $depbase.Tpo -c -o mktime.o ../../src/gllib/mktime.c &&\ mv -f $depbase.Tpo $depbase.Po depbase=`echo strerror_r.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\ gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I.. -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 depbase=`echo time_rz.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\ gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I.. -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -MT time_rz.o -MD -MP -MF $depbase.Tpo -c -o time_rz.o ../../src/gllib/time_rz.c &&\ mv -f $depbase.Tpo $depbase.Po rm -f libgnu.a ar cr libgnu.a c-ctype.o c-strtod.o sha1.o fd-hook.o hard-locale.o localcharset.o glthread/lock.o malloca.o nstrftime.o sockets.o stat-time.o strnlen1.o sys_socket.o tempname.o glthread/threadlib.o unistd.o vma-iter.o wctype-h.o ioctl.o localtime-buffer.o mbrtowc.o mktime.o strerror_r.o time_rz.o ranlib libgnu.a rm -f t-charset.alias charset.alias && \ /bin/sh ../../src/gllib/config.charset 'riscv64-unknown-linux-gnu' > t-charset.alias && \ mv t-charset.alias charset.alias rm -f t-ref-add.sed ref-add.sed && \ sed -e '/^#/d' -e 's/@''PACKAGE''@/clisp/g' ../../src/gllib/ref-add.sin > t-ref-add.sed && \ mv t-ref-add.sed ref-add.sed rm -f t-ref-del.sed ref-del.sed && \ sed -e '/^#/d' -e 's/@''PACKAGE''@/clisp/g' ../../src/gllib/ref-del.sin > t-ref-del.sed && \ mv t-ref-del.sed ref-del.sed make[3]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib' make[2]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib' make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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:662:12: warning: this statement may fall through [-Wimplicit-fallthrough=] 662 | if (!(((c>='0') && (c<='9')) || (c=='.'))) | ^ ../utils/gctrigger.c:664:7: note: here 664 | case '0': case '1': case '2': case '3': case '4': | ^~~~ gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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:1327:12: warning: this statement may fall through [-Wimplicit-fallthrough=] 1327 | if (!(((c>='0') && (c<='9')) || (c=='.'))) | ^ ../utils/varbrace.c:1329:7: note: here 1329 | case '0': case '1': case '2': case '3': case '4': | ^~~~ gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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:538:16: warning: this statement may fall through [-Wimplicit-fallthrough=] 538 | if (!((c >= '0' && c <= '9') || c == '.')) | ^ ../utils/ccmp2c.c:541:11: note: here 541 | case '0': case '1': case '2': case '3': case '4': | ^~~~ touch modules.h ./comment5 ../src/spvw.d | ./gctrigger | ./varbrace > spvw.c ./comment5 ../src/spvwtabf.d | ./gctrigger | ./varbrace > spvwtabf.c ./comment5 ../src/spvwtabs.d | ./gctrigger | ./varbrace > spvwtabs.c ./comment5 ../src/spvwtabo.d | ./gctrigger | ./varbrace > spvwtabo.c ./comment5 ../src/eval.d | ./gctrigger | ./varbrace > eval.c ./comment5 ../src/control.d | ./gctrigger | ./varbrace > control.c ./comment5 ../src/encoding.d | ./gctrigger | ./varbrace > encoding.c ./comment5 ../src/pathname.d | ./gctrigger | ./varbrace > pathname.c ./comment5 ../src/stream.d | ./gctrigger | ./varbrace > stream.c ./comment5 ../src/socket.d | ./gctrigger | ./varbrace > socket.c ./comment5 ../src/io.d | ./gctrigger | ./varbrace > io.c ./comment5 ../src/funarg.d | ./gctrigger | ./varbrace > funarg.c ./comment5 ../src/array.d | ./gctrigger | ./varbrace > array.c ./comment5 ../src/hashtabl.d | ./gctrigger | ./varbrace > hashtabl.c ./comment5 ../src/list.d | ./gctrigger | ./varbrace > list.c ./comment5 ../src/package.d | ./gctrigger | ./varbrace > package.c ./comment5 ../src/record.d | ./gctrigger | ./varbrace > record.c ./comment5 ../src/weak.d | ./gctrigger | ./varbrace > weak.c ./comment5 ../src/sequence.d | ./gctrigger | ./varbrace > sequence.c ./comment5 ../src/charstrg.d | ./gctrigger | ./varbrace > charstrg.c ./comment5 ../src/debug.d | ./gctrigger | ./varbrace > debug.c ./comment5 ../src/error.d | ./gctrigger | ./varbrace > error.c ./comment5 ../src/misc.d | ./gctrigger | ./varbrace > misc.c ./comment5 ../src/time.d | ./gctrigger | ./varbrace > time.c ./comment5 ../src/predtype.d | ./gctrigger | ./varbrace > predtype.c ./comment5 ../src/symbol.d | ./gctrigger | ./varbrace > symbol.c ./comment5 ../src/lisparit.d | ./gctrigger | ./varbrace > lisparit.c ./comment5 ../src/i18n.d | ./gctrigger | ./varbrace > i18n.c ./comment5 ../src/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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: In function ‘schar’: ../src/lispbibl.d:16682:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | 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: | ^~~~~~~~ In file included from ../src/spvw.d:1077: ../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: | ^~~~~~~ In file included from ../src/spvw.d:1087: ../src/spvw_circ.d:1077:6: warning: label ‘m_svector’ defined but not used [-Wunused-label] 1077 | m_svector: | ^~~~~~~~~ In file included from ../src/spvw.d:1087: ../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: | ^~~~~~~~~ In file included from ../src/spvw.d:1087: ../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 */ | ^~~~~~~~~~~~ In file included from ../src/spvw.d:1087: ../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) | ^ In file included from ../src/spvw.d:1578: ../src/subr.d:268:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 268 | LISPFUNN(vector_init,1) | ^ In file included from ../src/spvw.d:1578: ../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) | ^ In file included from ../src/spvw.d:1578: ../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) | ^ In file included from ../src/spvw.d:1578: ../src/subr.d:444:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 444 | LISPFUNNF(encodingp,1) | ^ In file included from ../src/spvw.d:1578: ../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) | ^ In file included from ../src/spvw.d:1578: ../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) | ^ In file included from ../src/spvw.d:1578: ../src/subr.d:485:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 485 | LISPFUN(gethash,seclass_read,2,1,norest,nokey,0,NIL) | ^ In file included from ../src/spvw.d:1578: ../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) | ^ In file included from ../src/spvw.d:1578: ../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) | ^ In file included from ../src/spvw.d:1578: ../src/subr.d:571:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 571 | LISPFUN(prin1,seclass_default,1,1,norest,nokey,0,NIL) | ^ In file included from ../src/spvw.d:1578: ../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) | ^ In file included from ../src/spvw.d:1578: ../src/subr.d:584:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 584 | LISPFUNN(prin1_to_string,1) | ^ In file included from ../src/spvw.d:1578: ../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) | ^ In file included from ../src/spvw.d:1578: ../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 | LISPFUN(get_env,seclass_default,0,1,norest,nokey,0,NIL) | ^ ../src/subr.d:718:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 718 | LISPFUNN(set_env,2) | ^ ../src/subr.d:722:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 722 | LISPFUN(software_type,seclass_no_se,0,0,norest,nokey,0,NIL) | ^ ../src/subr.d:723:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 723 | LISPFUN(software_version,seclass_no_se,0,0,norest,nokey,0,NIL) | ^ ../src/subr.d:724:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 724 | LISPFUNNF(identity,1) | ^ ../src/subr.d:725:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 725 | LISPFUNN(address_of,1) | ^ ../src/subr.d:726:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 726 | LISPFUNN(code_address_of,1) | ^ ../src/subr.d:727:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 727 | LISPFUNN(process_id,0) | ^ ../src/subr.d:728:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 728 | LISPFUNNF(ansi,0) | ^ ../src/subr.d:729:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 729 | LISPFUNN(set_ansi,1) | ^ ../src/subr.d:730:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 730 | LISPFUN(module_info,seclass_no_se,0,2,norest,nokey,0,NIL) | ^ ../src/subr.d:731:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 731 | LISPFUN(argv,seclass_no_se,0,0,norest,nokey,0,NIL) | ^ ../src/subr.d:733:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 733 | LISPFUNNR(current_language,0) | ^ ../src/subr.d:734:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 734 | LISPFUNN(set_current_language,1) | ^ ../src/subr.d:735:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 735 | LISPFUNNR(text,1) | ^ ../src/subr.d:737:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 737 | LISPFUNN(machine_instance,0) | ^ ../src/subr.d:739:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 739 | LISPFUNNR(get_internal_real_time,0) | ^ ../src/subr.d:740:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 740 | LISPFUN(get_internal_run_time,seclass_read,0,1,norest,nokey,0,NIL) | ^ ../src/subr.d:741:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 741 | LISPFUNNR(get_universal_time,0) | ^ ../src/subr.d:743:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 743 | LISPFUNNR(default_time_zone,2) | ^ ../src/subr.d:745:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 745 | LISPFUNN(psleep,2) | ^ ../src/subr.d:746:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 746 | LISPFUN(pptime,seclass_read,0,1,norest,nokey,0,NIL) | ^ ../src/subr.d:747:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 747 | LISPFUNNF(delta4,5) | ^ ../src/subr.d:749:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 749 | LISPFUNNR(make_symbol,1) | ^ ../src/subr.d:750:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 750 | LISPFUNNR(find_package,1) | ^ ../src/subr.d:751:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 751 | LISPFUNN(pfind_package,1) | ^ ../src/subr.d:752:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 752 | LISPFUNNR(package_name,1) | ^ ../src/subr.d:753:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 753 | LISPFUNNR(package_nicknames,1) | ^ ../src/subr.d:754:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 754 | LISPFUN(rename_package,seclass_default,2,1,norest,nokey,0,NIL) | ^ ../src/subr.d:755:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 755 | LISPFUNNR(package_use_list,1) | ^ ../src/subr.d:756:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 756 | LISPFUNNR(package_used_by_list,1) | ^ ../src/subr.d:757:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 757 | LISPFUNNR(package_shadowing_symbols,1) | ^ ../src/subr.d:758:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 758 | LISPFUNNR(package_lock,1) | ^ ../src/subr.d:759:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 759 | LISPFUNNR(package_shortest_name,1) | ^ ../src/subr.d:760:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 760 | LISPFUNNR(package_case_sensitive_p,1) | ^ ../src/subr.d:761:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 761 | LISPFUNNR(package_case_inverted_p,1) | ^ ../src/subr.d:762:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 762 | LISPFUNNR(package_documentation,1) | ^ ../src/subr.d:763:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 763 | LISPFUNN(set_package_documentation,2) | ^ ../src/subr.d:764:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 764 | LISPFUNN(set_package_case_inverted_p,2) | ^ ../src/subr.d:765:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 765 | LISPFUNN(set_package_case_sensitive_p,2) | ^ ../src/subr.d:766:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 766 | LISPFUNN(set_package_lock,2) | ^ ../src/subr.d:767:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 767 | LISPFUNN(symbol_value_lock,1) | ^ ../src/subr.d:768:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 768 | LISPFUNN(check_package_lock,3) | ^ ../src/subr.d:769:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 769 | LISPFUNNR(list_all_packages,0) | ^ ../src/subr.d:770:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 770 | LISPFUN(intern,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:771:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 771 | LISPFUN(cs_intern,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:772:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 772 | LISPFUN(find_symbol,seclass_read,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:773:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 773 | LISPFUN(cs_find_symbol,seclass_read,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:774:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 774 | LISPFUN(unintern,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:775:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 775 | LISPFUN(export,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:776:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 776 | LISPFUN(unexport,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:777:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 777 | LISPFUNN(re_export,2) | ^ ../src/subr.d:778:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 778 | LISPFUN(import,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:779:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 779 | LISPFUN(shadowing_import,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:780:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 780 | LISPFUN(shadow,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:781:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 781 | LISPFUN(cs_shadow,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:782:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 782 | LISPFUN(use_package,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:783:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 783 | LISPFUN(unuse_package,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:790:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 790 | LISPFUNN(delete_package,1) | ^ ../src/subr.d:791:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 791 | LISPFUNNR(find_all_symbols,1) | ^ ../src/subr.d:792:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 792 | LISPFUNNR(cs_find_all_symbols,1) | ^ ../src/subr.d:793:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 793 | LISPFUNN(map_symbols,2) | ^ ../src/subr.d:794:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 794 | LISPFUNN(map_external_symbols,2) | ^ ../src/subr.d:795:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 795 | LISPFUNN(map_all_symbols,1) | ^ ../src/subr.d:796:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 796 | LISPFUNN(package_iterator,2) | ^ ../src/subr.d:797:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 797 | LISPFUNN(package_iterate,1) | ^ ../src/subr.d:801:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 801 | LISPFUNNR(pathname,1) | ^ ../src/subr.d:807:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 807 | LISPFUNNR(pathnameversion,1) | ^ ../src/subr.d:808:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 808 | LISPFUNNS(logical_pathname,1) | ^ ../src/subr.d:811:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 811 | LISPFUNNR(file_namestring,1) | ^ ../src/subr.d:812:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 812 | LISPFUNNR(directory_namestring,1) | ^ ../src/subr.d:813:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 813 | LISPFUNNR(host_namestring,1) | ^ ../src/subr.d:815:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 815 | LISPFUN(enough_namestring,seclass_read,1,1,norest,nokey,0,NIL) | ^ In file included from ../src/spvw.d:1578: ../src/subr.d:822:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 822 | LISPFUN(user_homedir_pathname,seclass_default,0,1,norest,nokey,0,NIL) | ^ In file included from ../src/spvw.d:1578: ../src/subr.d:823:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 823 | LISPFUN(wild_pathname_p,seclass_rd_sig,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:824:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 824 | LISPFUNNS(pathname_match_p,2) | ^ In file included from ../src/spvw.d:1578: ../src/subr.d:827:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 827 | LISPFUNN(absolute_pathname,1) | ^ ../src/subr.d:828:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 828 | LISPFUNNR(namestring,1) | ^ ../src/subr.d:829:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 829 | LISPFUNNS(truename,1) | ^ ../src/subr.d:830:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 830 | LISPFUNNS(probe_file,1) | ^ ../src/subr.d:832:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 832 | LISPFUNNS(probe_directory,1) | ^ ../src/subr.d:833:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 833 | LISPFUNN(delete_file,1) | ^ In file included from ../src/spvw.d:1578: ../src/subr.d:840:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 840 | LISPFUN(cd,seclass_default,0,1,norest,nokey,0,NIL) | ^ ../src/subr.d:841:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 841 | LISPFUNN(make_directory,1) | ^ ../src/subr.d:842:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 842 | LISPFUNN(delete_directory,1) | ^ ../src/subr.d:843:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 843 | LISPFUNN(rename_directory,2) | ^ ../src/subr.d:846:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 846 | LISPFUNNS(file_write_date,1) | ^ ../src/subr.d:847:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 847 | LISPFUNNS(file_author,1) | ^ ../src/subr.d:849:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 849 | LISPFUN(execute,seclass_default,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:854:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 854 | LISPFUN(shell,seclass_default,0,1,norest,nokey,0,NIL) | ^ In file included from ../src/spvw.d:1578: ../src/subr.d:861:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 861 | LISPFUNN(savemem,2) | ^ In file included from ../src/spvw.d:1578: ../src/subr.d:863:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 863 | LISPFUNN(dynload_modules,2) | ^ ../src/subr.d:865:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 865 | LISPFUNN(program_name,0) | ^ ../src/subr.d:866:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 866 | LISPFUNN(lib_directory,0) | ^ ../src/subr.d:867:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 867 | LISPFUNN(set_lib_directory,1) | ^ ../src/subr.d:869:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 869 | LISPFUN(eq,SECFC(seclass_foldable,fastcmp_eq),2,0,norest,nokey,0,NIL) | ^ ../src/subr.d:870:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 870 | LISPFUN(eql,SECFC(seclass_foldable,fastcmp_eql),2,0,norest,nokey,0,NIL) | ^ ../src/subr.d:871:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 871 | LISPFUN(equal,SECFC(seclass_read,fastcmp_equal),2,0,norest,nokey,0,NIL) | ^ ../src/subr.d:872:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 872 | LISPFUN(equalp,SECFC(seclass_read,fastcmp_equalp),2,0,norest,nokey,0,NIL) | ^ ../src/subr.d:873:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 873 | LISPFUNNF(consp,1) | ^ ../src/subr.d:874:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 874 | LISPFUNNF(atom,1) | ^ ../src/subr.d:875:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 875 | LISPFUNNF(symbolp,1) | ^ ../src/subr.d:876:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 876 | LISPFUNNF(stringp,1) | ^ ../src/subr.d:877:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 877 | LISPFUNNF(numberp,1) | ^ ../src/subr.d:878:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 878 | LISPFUNNR(compiled_function_p,1) | ^ ../src/subr.d:879:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 879 | LISPFUNNR(pcompiled_function_p,1) | ^ ../src/subr.d:880:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 880 | LISPFUNNF(null,1) | ^ ../src/subr.d:881:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 881 | LISPFUNNF(not,1) | ^ ../src/subr.d:882:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 882 | LISPFUNNF(closurep,1) | ^ ../src/subr.d:883:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 883 | LISPFUNNF(listp,1) | ^ ../src/subr.d:884:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 884 | LISPFUNNR(proper_list_p,1) | ^ ../src/subr.d:885:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 885 | LISPFUNNF(bytep,1) | ^ ../src/subr.d:886:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 886 | LISPFUNNF(integerp,1) | ^ ../src/subr.d:887:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 887 | LISPFUNNF(fixnump,1) | ^ ../src/subr.d:888:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 888 | LISPFUNNF(rationalp,1) | ^ ../src/subr.d:889:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 889 | LISPFUNNF(floatp,1) | ^ ../src/subr.d:890:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 890 | LISPFUNNF(short_float_p,1) | ^ ../src/subr.d:891:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 891 | LISPFUNNF(single_float_p,1) | ^ ../src/subr.d:892:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 892 | LISPFUNNF(double_float_p,1) | ^ ../src/subr.d:893:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 893 | LISPFUNNF(long_float_p,1) | ^ ../src/subr.d:894:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 894 | LISPFUNNF(realp,1) | ^ ../src/subr.d:895:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 895 | LISPFUNNF(complexp,1) | ^ ../src/subr.d:896:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 896 | LISPFUNNR(streamp,1) | ^ ../src/subr.d:897:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 897 | LISPFUNNF(built_in_stream_p,1) | ^ ../src/subr.d:898:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 898 | LISPFUNNF(random_state_p,1) | ^ ../src/subr.d:899:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 899 | LISPFUNNF(readtablep,1) | ^ ../src/subr.d:900:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 900 | LISPFUNNF(hash_table_p,1) | ^ ../src/subr.d:901:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 901 | LISPFUNNF(pathnamep,1) | ^ ../src/subr.d:902:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 902 | LISPFUNNF(logical_pathname_p,1) | ^ ../src/subr.d:903:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 903 | LISPFUNNF(characterp,1) | ^ ../src/subr.d:904:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 904 | LISPFUNNF(functionp,1) | ^ ../src/subr.d:905:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 905 | LISPFUNNF(packagep,1) | ^ ../src/subr.d:906:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 906 | LISPFUNNF(arrayp,1) | ^ ../src/subr.d:907:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 907 | LISPFUNNF(simple_array_p,1) | ^ ../src/subr.d:908:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 908 | LISPFUNNF(bit_vector_p,1) | ^ ../src/subr.d:909:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 909 | LISPFUNNF(vectorp,1) | ^ ../src/subr.d:910:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 910 | LISPFUNNF(simple_vector_p,1) | ^ ../src/subr.d:911:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 911 | LISPFUNNF(simple_string_p,1) | ^ ../src/subr.d:912:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 912 | LISPFUNNF(simple_bit_vector_p,1) | ^ ../src/subr.d:913:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 913 | LISPFUNNR(type_of,1) | ^ ../src/subr.d:914:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 914 | LISPFUNN(defclos,6) | ^ ../src/subr.d:915:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 915 | LISPFUNNR(potential_class_p,1) | ^ ../src/subr.d:916:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 916 | LISPFUNNR(defined_class_p,1) | ^ ../src/subr.d:917:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 917 | LISPFUNNR(class_of,1) | ^ ../src/subr.d:918:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 918 | LISPFUN(find_class,seclass_default,1,2,norest,nokey,0,NIL) | ^ ../src/subr.d:919:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 919 | LISPFUNN(typep_class,2) | ^ ../src/subr.d:920:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 920 | LISPFUN(expand_deftype,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:921:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 921 | LISPFUNNS(coerce,2) | ^ ../src/subr.d:922:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 922 | LISPFUNN(note_new_structure_class,0) | ^ ../src/subr.d:923:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 923 | LISPFUNN(note_new_standard_class,0) | ^ ../src/subr.d:924:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 924 | LISPFUNN(heap_statistics,0) | ^ ../src/subr.d:925:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 925 | LISPFUNN(gc_statistics,0) | ^ ../src/subr.d:926:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 926 | LISPFUNN(list_statistics,1) | ^ ../src/subr.d:927:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 927 | LISPFUNN(heap_statistics_statistics,1) | ^ ../src/subr.d:928:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 928 | LISPFUNN(gc_statistics_statistics,2) | ^ ../src/subr.d:930:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 930 | LISPFUNNR(record_ref,2) | ^ ../src/subr.d:931:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 931 | LISPFUNN(record_store,3) | ^ ../src/subr.d:932:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 932 | LISPFUNNR(record_length,1) | ^ ../src/subr.d:933:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 933 | LISPFUNNR(pstructure_ref,3) | ^ ../src/subr.d:934:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 934 | LISPFUNNR(structure_ref,3) | ^ ../src/subr.d:935:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 935 | LISPFUNN(structure_store,4) | ^ ../src/subr.d:936:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 936 | LISPFUNNR(make_structure,2) | ^ ../src/subr.d:937:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 937 | LISPFUNNR(copy_structure,1) | ^ ../src/subr.d:938:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 938 | LISPFUNNR(structure_type_p,2) | ^ ../src/subr.d:939:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 939 | LISPFUNNR(closure_name,1) | ^ ../src/subr.d:940:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 940 | LISPFUNN(set_closure_name,2) | ^ ../src/subr.d:941:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 941 | LISPFUNNR(closure_codevec,1) | ^ ../src/subr.d:942:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 942 | LISPFUNNR(closure_consts,1) | ^ ../src/subr.d:943:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 943 | LISPFUNNR(closure_const,2) | ^ ../src/subr.d:944:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 944 | LISPFUNN(set_closure_const,3) | ^ In file included from ../src/spvw.d:1578: ../src/subr.d:946:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 946 | LISPFUNN(make_constant_initfunction,1) | ^ ../src/subr.d:947:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 947 | LISPFUNN(constant_initfunction_p,1) | ^ ../src/subr.d:948:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 948 | LISPFUNN(closure_set_seclass,2) | ^ ../src/subr.d:949:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 949 | LISPFUNNR(closure_documentation,1) | ^ ../src/subr.d:950:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 950 | LISPFUNN(closure_set_documentation,2) | ^ ../src/subr.d:951:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 951 | LISPFUNNR(closure_lambda_list,1) | ^ ../src/subr.d:952:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 952 | LISPFUNN(set_funcallable_instance_function,2) | ^ ../src/subr.d:953:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 953 | LISPFUNN(copy_generic_function,2) | ^ ../src/subr.d:954:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 954 | LISPFUNN(generic_function_effective_method_function,1) | ^ In file included from ../src/spvw.d:1578: ../src/subr.d:955:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 955 | LISPFUN(make_load_time_eval,seclass_no_se,1,0,norest,nokey,0,NIL) | ^ ../src/subr.d:956:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 956 | LISPFUN(make_symbol_macro,seclass_no_se,1,0,norest,nokey,0,NIL) | ^ ../src/subr.d:957:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 957 | LISPFUNNF(symbol_macro_p,1) | ^ ../src/subr.d:958:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 958 | LISPFUNN(symbol_macro_expand,1) | ^ ../src/subr.d:959:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 959 | LISPFUN(make_global_symbol_macro,seclass_no_se,1,0,norest,nokey,0,NIL) | ^ ../src/subr.d:960:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 960 | LISPFUNN(global_symbol_macro_definition,1) | ^ ../src/subr.d:961:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 961 | LISPFUN(make_macro,seclass_no_se,2,0,norest,nokey,0,NIL) | ^ ../src/subr.d:962:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 962 | LISPFUNN(macrop,1) | ^ ../src/subr.d:963:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 963 | LISPFUNN(macro_expander,1) | ^ ../src/subr.d:964:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 964 | LISPFUNN(macro_lambda_list,1) | ^ ../src/subr.d:965:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 965 | LISPFUNN(make_function_macro,2) | ^ ../src/subr.d:966:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 966 | LISPFUNN(function_macro_p,1) | ^ ../src/subr.d:967:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 967 | LISPFUNN(function_macro_function,1) | ^ ../src/subr.d:968:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 968 | LISPFUNN(function_macro_expander,1) | ^ ../src/subr.d:969:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 969 | LISPFUN(finalize,seclass_default,2,1,norest,nokey,0,NIL) | ^ ../src/subr.d:970:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 970 | LISPFUNNF(structure_object_p,1) | ^ ../src/subr.d:971:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 971 | LISPFUNNF(std_instance_p,1) | ^ ../src/subr.d:972:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 972 | LISPFUNNF(funcallable_instance_p,1) | ^ ../src/subr.d:973:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 973 | LISPFUNN(allocate_metaobject_instance,2) | ^ ../src/subr.d:974:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 974 | LISPFUNN(allocate_std_instance,2) | ^ ../src/subr.d:975:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 975 | LISPFUNN(allocate_funcallable_instance,2) | ^ ../src/subr.d:976:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 976 | LISPFUN(pallocate_instance,seclass_read,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:977:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 977 | LISPFUNN(pslot_value_using_class,3) | ^ ../src/subr.d:978:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 978 | LISPFUNN(pset_slot_value_using_class,4) | ^ ../src/subr.d:979:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 979 | LISPFUNN(pslot_boundp_using_class,3) | ^ ../src/subr.d:980:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 980 | LISPFUNN(pslot_makunbound_using_class,3) | ^ ../src/subr.d:981:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 981 | LISPFUNN(slot_value,2) | ^ ../src/subr.d:982:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 982 | LISPFUNN(set_slot_value,3) | ^ ../src/subr.d:983:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 983 | LISPFUNN(slot_boundp,2) | ^ ../src/subr.d:984:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 984 | LISPFUNN(slot_makunbound,2) | ^ ../src/subr.d:985:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 985 | LISPFUNNR(slot_exists_p,2) | ^ ../src/subr.d:986:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 986 | LISPFUNNR(standard_instance_access,2) | ^ ../src/subr.d:987:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 987 | LISPFUNN(set_standard_instance_access,3) | ^ ../src/subr.d:988:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 988 | LISPFUNNR(punbound,0) | ^ ../src/subr.d:989:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 989 | LISPFUN(pshared_initialize,seclass_default,2,0,rest,nokey,0,NIL) | ^ ../src/subr.d:990:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 990 | LISPFUN(preinitialize_instance,seclass_default,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:991:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 991 | LISPFUN(pinitialize_instance,seclass_default,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:992:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 992 | LISPFUN(pmake_instance,seclass_default,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:993:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 993 | LISPFUNN(pchange_class,2) | ^ ../src/subr.d:995:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 995 | LISPFUN(make_weak_pointer,seclass_no_se,1,0,norest,nokey,0,NIL) | ^ ../src/subr.d:996:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 996 | LISPFUNNF(weak_pointer_p,1) | ^ ../src/subr.d:997:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 997 | LISPFUNNR(weak_pointer_value,1) | ^ ../src/subr.d:998:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 998 | LISPFUNN(set_weak_pointer_value,2) | ^ ../src/subr.d:999:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 999 | LISPFUNN(make_weak_list,1) | ^ ../src/subr.d:1000:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1000 | LISPFUNNF(weak_list_p,1) | ^ ../src/subr.d:1001:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1001 | LISPFUNNR(weak_list_list,1) | ^ ../src/subr.d:1002:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1002 | LISPFUNN(set_weak_list_list,2) | ^ ../src/subr.d:1003:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1003 | LISPFUNN(make_weak_and_relation,1) | ^ ../src/subr.d:1004:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1004 | LISPFUNNF(weak_and_relation_p,1) | ^ ../src/subr.d:1005:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1005 | LISPFUNNR(weak_and_relation_list,1) | ^ ../src/subr.d:1006:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1006 | LISPFUNN(make_weak_or_relation,1) | ^ ../src/subr.d:1007:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1007 | LISPFUNNF(weak_or_relation_p,1) | ^ ../src/subr.d:1008:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1008 | LISPFUNNR(weak_or_relation_list,1) | ^ ../src/subr.d:1009:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1009 | LISPFUNN(make_weak_mapping,2) | ^ ../src/subr.d:1010:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1010 | LISPFUNNF(weak_mapping_p,1) | ^ ../src/subr.d:1011:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1011 | LISPFUNNR(weak_mapping_pair,1) | ^ ../src/subr.d:1012:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1012 | LISPFUNNR(weak_mapping_value,1) | ^ ../src/subr.d:1013:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1013 | LISPFUNN(set_weak_mapping_value,2) | ^ ../src/subr.d:1014:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1014 | LISPFUNN(make_weak_and_mapping,2) | ^ ../src/subr.d:1015:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1015 | LISPFUNNF(weak_and_mapping_p,1) | ^ ../src/subr.d:1016:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1016 | LISPFUNNR(weak_and_mapping_pair,1) | ^ ../src/subr.d:1017:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1017 | LISPFUNNR(weak_and_mapping_value,1) | ^ ../src/subr.d:1018:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1018 | LISPFUNN(set_weak_and_mapping_value,2) | ^ ../src/subr.d:1019:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1019 | LISPFUNN(make_weak_or_mapping,2) | ^ ../src/subr.d:1020:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1020 | LISPFUNNF(weak_or_mapping_p,1) | ^ ../src/subr.d:1021:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1021 | LISPFUNNR(weak_or_mapping_pair,1) | ^ ../src/subr.d:1022:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1022 | LISPFUNNR(weak_or_mapping_value,1) | ^ ../src/subr.d:1023:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1023 | LISPFUNN(set_weak_or_mapping_value,2) | ^ ../src/subr.d:1026:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1026 | LISPFUNNF(weak_alist_p,1) | ^ ../src/subr.d:1027:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1027 | LISPFUNNR(weak_alist_type,1) | ^ ../src/subr.d:1028:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1028 | LISPFUNNR(weak_alist_contents,1) | ^ ../src/subr.d:1029:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1029 | LISPFUNN(set_weak_alist_contents,2) | ^ ../src/subr.d:1039:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1039 | LISPFUNNR(sequencep,1) | ^ ../src/subr.d:1040:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1040 | LISPFUNN(defseq,1) | ^ ../src/subr.d:1041:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1041 | LISPFUNNR(elt,2) | ^ ../src/subr.d:1042:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1042 | LISPFUNN(setelt,3) | ^ ../src/subr.d:1043:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1043 | LISPFUN(subseq,seclass_read,2,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1044:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1044 | LISPFUNNR(copy_seq,1) | ^ ../src/subr.d:1045:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1045 | LISPFUNNR(length,1) | ^ ../src/subr.d:1046:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1046 | LISPFUNNR(reverse,1) | ^ ../src/subr.d:1047:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1047 | LISPFUNN(nreverse,1) | ^ ../src/subr.d:1051:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1051 | LISPFUN(concatenate,seclass_rd_sig,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1052:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1052 | LISPFUN(map,seclass_default,3,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1053:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1053 | LISPFUN(map_into,seclass_default,2,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1054:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1054 | LISPFUN(some,seclass_default,2,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1055:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1055 | LISPFUN(every,seclass_default,2,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1056:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1056 | LISPFUN(notany,seclass_default,2,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1057:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1057 | LISPFUN(notevery,seclass_default,2,0,rest,nokey,0,NIL) | ^ In file included from ../src/spvw.d:1578: ../src/subr.d:1132:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1132 | LISPFUN(symbol_stream,seclass_read,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1133:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1133 | LISPFUNNR(make_synonym_stream,1) | ^ ../src/subr.d:1134:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1134 | LISPFUNNF(synonym_stream_p,1) | ^ ../src/subr.d:1135:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1135 | LISPFUNNR(synonym_stream_symbol,1) | ^ ../src/subr.d:1136:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1136 | LISPFUN(make_broadcast_stream,seclass_read,0,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1137:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1137 | LISPFUNNF(broadcast_stream_p,1) | ^ ../src/subr.d:1138:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1138 | LISPFUNNR(broadcast_stream_streams,1) | ^ ../src/subr.d:1139:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1139 | LISPFUN(make_concatenated_stream,seclass_read,0,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1140:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1140 | LISPFUNNF(concatenated_stream_p,1) | ^ ../src/subr.d:1141:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1141 | LISPFUNNR(concatenated_stream_streams,1) | ^ ../src/subr.d:1142:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1142 | LISPFUNNR(make_two_way_stream,2) | ^ ../src/subr.d:1143:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1143 | LISPFUNNF(two_way_stream_p,1) | ^ ../src/subr.d:1144:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1144 | LISPFUNNR(two_way_stream_input_stream,1) | ^ ../src/subr.d:1145:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1145 | LISPFUNNR(two_way_stream_output_stream,1) | ^ ../src/subr.d:1146:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1146 | LISPFUNNR(make_echo_stream,2) | ^ ../src/subr.d:1147:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1147 | LISPFUNNF(echo_stream_p,1) | ^ ../src/subr.d:1148:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1148 | LISPFUNNR(echo_stream_input_stream,1) | ^ ../src/subr.d:1149:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1149 | LISPFUNNR(echo_stream_output_stream,1) | ^ ../src/subr.d:1150:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1150 | LISPFUN(make_string_input_stream,seclass_read,1,2,norest,nokey,0,NIL) | ^ ../src/subr.d:1151:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1151 | LISPFUNNR(string_input_stream_index,1) | ^ ../src/subr.d:1154:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1154 | LISPFUNN(get_output_stream_string,1) | ^ ../src/subr.d:1155:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1155 | LISPFUNNR(make_string_push_stream,1) | ^ ../src/subr.d:1156:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1156 | LISPFUNNF(string_stream_p,1) | ^ ../src/subr.d:1157:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1157 | LISPFUNNR(string_stream_string,1) | ^ ../src/subr.d:1158:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1158 | LISPFUNNR(make_buffered_input_stream,2) | ^ ../src/subr.d:1159:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1159 | LISPFUNNR(buffered_input_stream_index,1) | ^ ../src/subr.d:1160:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1160 | LISPFUN(make_buffered_output_stream,seclass_read,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1162:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1162 | LISPFUNN(generic_stream_controller,1) | ^ ../src/subr.d:1163:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1163 | LISPFUNN(make_generic_stream,1) | ^ ../src/subr.d:1164:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1164 | LISPFUNN(generic_stream_p,1) | ^ ../src/subr.d:1167:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1167 | LISPFUNN(make_keyboard_stream,0) | ^ ../src/subr.d:1169:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1169 | LISPFUN(terminal_raw,seclass_default,2,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1171:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1171 | LISPFUNN(make_window,0) | ^ ../src/subr.d:1172:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1172 | LISPFUNN(window_size,1) | ^ ../src/subr.d:1173:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1173 | LISPFUNN(window_cursor_position,1) | ^ ../src/subr.d:1174:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1174 | LISPFUNN(set_window_cursor_position,3) | ^ ../src/subr.d:1175:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1175 | LISPFUNN(clear_window,1) | ^ ../src/subr.d:1176:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1176 | LISPFUNN(clear_window_to_eot,1) | ^ ../src/subr.d:1177:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1177 | LISPFUNN(clear_window_to_eol,1) | ^ ../src/subr.d:1178:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1178 | LISPFUNN(delete_window_line,1) | ^ ../src/subr.d:1179:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1179 | LISPFUNN(insert_window_line,1) | ^ ../src/subr.d:1180:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1180 | LISPFUNN(highlight_on,1) | ^ ../src/subr.d:1181:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1181 | LISPFUNN(highlight_off,1) | ^ ../src/subr.d:1182:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1182 | LISPFUNN(window_cursor_on,1) | ^ ../src/subr.d:1183:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1183 | LISPFUNN(window_cursor_off,1) | ^ ../src/subr.d:1185:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1185 | LISPFUNNF(file_stream_p,1) | ^ ../src/subr.d:1197:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1197 | LISPFUNN(make_x11socket_stream,2) | ^ ../src/subr.d:1198:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1198 | LISPFUNN(read_n_bytes,4) | ^ ../src/subr.d:1199:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1199 | LISPFUNN(write_n_bytes,4) | ^ ../src/subr.d:1202:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1202 | LISPFUNN(socket_server_close,1) | ^ ../src/subr.d:1205:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1205 | LISPFUNN(socket_server_port,1) | ^ ../src/subr.d:1206:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1206 | LISPFUNN(socket_server_host,1) | ^ ../src/subr.d:1209:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1209 | LISPFUN(socket_wait,seclass_default,1,2,norest,nokey,0,NIL) | ^ ../src/subr.d:1210:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1210 | LISPFUN(socket_status,seclass_default,1,2,norest,nokey,0,NIL) | ^ ../src/subr.d:1213:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1213 | LISPFUNN(socket_stream_port,1) | ^ ../src/subr.d:1214:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1214 | LISPFUNN(socket_stream_host,1) | ^ ../src/subr.d:1215:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1215 | LISPFUN(socket_stream_peer,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1216:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1216 | LISPFUN(socket_stream_local,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1217:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1217 | LISPFUN(socket_options,seclass_default,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1219:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1219 | LISPFUNN(socket_stream_shutdown,2) | ^ ../src/subr.d:1224:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1224 | LISPFUNN(stream_handles,1) | ^ ../src/subr.d:1225:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1225 | LISPFUNNR(built_in_stream_open_p,1) | ^ ../src/subr.d:1226:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1226 | LISPFUNNR(input_stream_p,1) | ^ ../src/subr.d:1227:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1227 | LISPFUNNR(output_stream_p,1) | ^ ../src/subr.d:1228:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1228 | LISPFUNN(stream_element_type_eq,2) | ^ ../src/subr.d:1229:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1229 | LISPFUNNR(built_in_stream_element_type,1) | ^ ../src/subr.d:1230:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1230 | LISPFUNN(built_in_stream_set_element_type,2) | ^ ../src/subr.d:1231:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1231 | LISPFUNNR(stream_external_format,1) | ^ ../src/subr.d:1232:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1232 | LISPFUN(set_stream_external_format,seclass_default,2,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1233:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1233 | LISPFUNN(interactive_stream_p,1) | ^ ../src/subr.d:1235:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1235 | LISPFUN(read_byte,seclass_default,1,2,norest,nokey,0,NIL) | ^ ../src/subr.d:1236:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1236 | LISPFUNN(read_byte_lookahead,1) | ^ ../src/subr.d:1237:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1237 | LISPFUNN(read_byte_will_hang_p,1) | ^ ../src/subr.d:1238:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1238 | LISPFUN(read_byte_no_hang,seclass_default,1,2,norest,nokey,0,NIL) | ^ ../src/subr.d:1239:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1239 | LISPFUN(read_integer,seclass_default,2,3,norest,nokey,0,NIL) | ^ ../src/subr.d:1240:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1240 | LISPFUN(read_float,seclass_default,2,3,norest,nokey,0,NIL) | ^ ../src/subr.d:1241:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1241 | LISPFUNN(write_byte,2) | ^ ../src/subr.d:1242:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1242 | LISPFUN(write_integer,seclass_default,3,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1243:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1243 | LISPFUN(write_float,seclass_default,3,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1244:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1244 | LISPFUN(file_position,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1245:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1245 | LISPFUNNR(file_length,1) | ^ ../src/subr.d:1246:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1246 | LISPFUNN(file_string_length,2) | ^ ../src/subr.d:1247:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1247 | LISPFUNN(line_number,1) | ^ ../src/subr.d:1248:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1248 | LISPFUN(stream_fasl_p,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1249:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1249 | LISPFUNN(defgray,1) | ^ ../src/subr.d:1251:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1251 | LISPFUNN(putd,2) | ^ ../src/subr.d:1252:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1252 | LISPFUNN(find_subr,1) | ^ ../src/subr.d:1253:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1253 | LISPFUNN(proclaim_constant,2) | ^ ../src/subr.d:1254:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1254 | LISPFUNN(proclaim_symbol_macro,1) | ^ ../src/subr.d:1255:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1255 | LISPFUN(get,seclass_read,2,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1256:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1256 | LISPFUN(getf,seclass_read,2,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1257:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1257 | LISPFUNN(putf,3) | ^ ../src/subr.d:1258:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1258 | LISPFUNN(remf,2) | ^ ../src/subr.d:1259:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1259 | LISPFUNNR(get_properties,2) | ^ ../src/subr.d:1260:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1260 | LISPFUNN(putplist,2) | ^ ../src/subr.d:1261:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1261 | LISPFUNN(put,3) | ^ ../src/subr.d:1262:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1262 | LISPFUNN(remprop,2) | ^ ../src/subr.d:1263:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1263 | LISPFUNNR(symbol_package,1) | ^ ../src/subr.d:1264:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1264 | LISPFUNNR(symbol_plist,1) | ^ ../src/subr.d:1265:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1265 | LISPFUN(symbol_name,seclass_no_se,1,0,norest,nokey,0,NIL) | ^ ../src/subr.d:1266:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1266 | LISPFUNNR(cs_symbol_name,1) | ^ ../src/subr.d:1267:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1267 | LISPFUNNR(keywordp,1) | ^ ../src/subr.d:1268:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1268 | LISPFUN(gensym,seclass_read,0,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1269:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1269 | LISPFUN(gentemp,seclass_read,0,2,norest,nokey,0,NIL) | ^ ../src/subr.d:1271:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1271 | LISPFUN(decimal_string,seclass_no_se,1,0,norest,nokey,0,NIL) | ^ ../src/subr.d:1272:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1272 | LISPFUNNF(zerop,1) | ^ ../src/subr.d:1273:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1273 | LISPFUNNF(plusp,1) | ^ ../src/subr.d:1274:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1274 | LISPFUNNF(minusp,1) | ^ ../src/subr.d:1275:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1275 | LISPFUNNF(oddp,1) | ^ ../src/subr.d:1276:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1276 | LISPFUNNF(evenp,1) | ^ ../src/subr.d:1277:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1277 | LISPFUN(numequal,seclass_foldable,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1278:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1278 | LISPFUN(numunequal,seclass_foldable,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1279:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1279 | LISPFUN(smaller,seclass_foldable,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1280:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1280 | LISPFUN(greater,seclass_foldable,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1281:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1281 | LISPFUN(ltequal,seclass_foldable,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1282:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1282 | LISPFUN(gtequal,seclass_foldable,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1283:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1283 | LISPFUN(max,seclass_foldable,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1284:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1284 | LISPFUN(min,seclass_foldable,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1285:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1285 | LISPFUN(plus,seclass_foldable,0,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1286:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1286 | LISPFUN(minus,seclass_foldable,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1287:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1287 | LISPFUN(star,seclass_foldable,0,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1288:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1288 | LISPFUN(slash,seclass_foldable,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1289:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1289 | LISPFUNNF(plus_one,1) | ^ ../src/subr.d:1290:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1290 | LISPFUNNF(minus_one,1) | ^ ../src/subr.d:1291:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1291 | LISPFUNNF(conjugate,1) | ^ ../src/subr.d:1292:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1292 | LISPFUN(gcd,seclass_foldable,0,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1293:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1293 | LISPFUN(xgcd,seclass_foldable,0,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1294:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1294 | LISPFUN(lcm,seclass_foldable,0,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1295:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1295 | LISPFUNNR(exp,1) | ^ ../src/subr.d:1296:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1296 | LISPFUNNR(expt,2) | ^ ../src/subr.d:1297:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1297 | LISPFUN(log,seclass_read,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1298:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1298 | LISPFUNNR(sqrt,1) | ^ ../src/subr.d:1299:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1299 | LISPFUNNF(isqrt,1) | ^ ../src/subr.d:1300:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1300 | LISPFUNNR(abs,1) | ^ ../src/subr.d:1301:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1301 | LISPFUNNR(phase,1) | ^ ../src/subr.d:1302:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1302 | LISPFUNNR(signum,1) | ^ ../src/subr.d:1303:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1303 | LISPFUNNR(sin,1) | ^ ../src/subr.d:1304:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1304 | LISPFUNNR(cos,1) | ^ ../src/subr.d:1305:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1305 | LISPFUNNR(tan,1) | ^ ../src/subr.d:1306:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1306 | LISPFUNNR(cis,1) | ^ ../src/subr.d:1307:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1307 | LISPFUNNR(asin,1) | ^ ../src/subr.d:1308:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1308 | LISPFUNNR(acos,1) | ^ ../src/subr.d:1309:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1309 | LISPFUN(atan,seclass_read,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1310:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1310 | LISPFUNNR(sinh,1) | ^ ../src/subr.d:1311:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1311 | LISPFUNNR(cosh,1) | ^ ../src/subr.d:1312:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1312 | LISPFUNNR(tanh,1) | ^ ../src/subr.d:1313:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1313 | LISPFUNNR(asinh,1) | ^ ../src/subr.d:1314:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1314 | LISPFUNNR(acosh,1) | ^ ../src/subr.d:1315:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1315 | LISPFUNNR(atanh,1) | ^ ../src/subr.d:1316:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1316 | LISPFUN(float,seclass_read,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1317:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1317 | LISPFUNNF(rational,1) | ^ ../src/subr.d:1318:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1318 | LISPFUNNF(rationalize,1) | ^ ../src/subr.d:1319:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1319 | LISPFUNNF(numerator,1) | ^ ../src/subr.d:1320:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1320 | LISPFUNNF(denominator,1) | ^ ../src/subr.d:1321:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1321 | LISPFUN(floor,seclass_foldable,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1322:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1322 | LISPFUN(ceiling,seclass_foldable,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1323:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1323 | LISPFUN(truncate,seclass_foldable,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1324:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1324 | LISPFUN(round,seclass_foldable,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1325:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1325 | LISPFUNNF(mod,2) | ^ ../src/subr.d:1326:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1326 | LISPFUNNF(rem,2) | ^ ../src/subr.d:1327:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1327 | LISPFUN(ffloor,seclass_read,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1328:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1328 | LISPFUN(fceiling,seclass_read,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1329:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1329 | LISPFUN(ftruncate,seclass_read,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1330:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1330 | LISPFUN(fround,seclass_read,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1331:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1331 | LISPFUNNF(decode_float,1) | ^ ../src/subr.d:1332:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1332 | LISPFUNNF(scale_float,2) | ^ ../src/subr.d:1333:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1333 | LISPFUNNF(float_scale_exponent,1) | ^ ../src/subr.d:1334:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1334 | LISPFUNNF(float_radix,1) | ^ ../src/subr.d:1335:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1335 | LISPFUN(float_sign,seclass_foldable,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1336:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1336 | LISPFUN(float_digits,seclass_foldable,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1337:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1337 | LISPFUNNF(float_precision,1) | ^ ../src/subr.d:1338:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1338 | LISPFUNNF(integer_decode_float,1) | ^ ../src/subr.d:1339:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1339 | LISPFUN(complex,seclass_foldable,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1340:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1340 | LISPFUNNF(realpart,1) | ^ ../src/subr.d:1341:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1341 | LISPFUNNF(imagpart,1) | ^ ../src/subr.d:1342:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1342 | LISPFUN(logior,seclass_foldable,0,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1343:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1343 | LISPFUN(logxor,seclass_foldable,0,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1344:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1344 | LISPFUN(logand,seclass_foldable,0,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1345:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1345 | LISPFUN(logeqv,seclass_foldable,0,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1346:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1346 | LISPFUNNF(lognand,2) | ^ ../src/subr.d:1347:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1347 | LISPFUNNF(lognor,2) | ^ ../src/subr.d:1348:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1348 | LISPFUNNF(logandc1,2) | ^ ../src/subr.d:1349:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1349 | LISPFUNNF(logandc2,2) | ^ ../src/subr.d:1350:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1350 | LISPFUNNF(logorc1,2) | ^ ../src/subr.d:1351:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1351 | LISPFUNNF(logorc2,2) | ^ ../src/subr.d:1352:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1352 | LISPFUNNF(boole,3) | ^ ../src/subr.d:1353:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1353 | LISPFUNNF(lognot,1) | ^ ../src/subr.d:1354:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1354 | LISPFUNNF(logtest,2) | ^ ../src/subr.d:1355:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1355 | LISPFUNNF(logbitp,2) | ^ ../src/subr.d:1356:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1356 | LISPFUNNF(ash,2) | ^ ../src/subr.d:1357:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1357 | LISPFUNNF(logcount,1) | ^ ../src/subr.d:1358:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1358 | LISPFUNNF(integer_length,1) | ^ ../src/subr.d:1359:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1359 | LISPFUNNR(byte,2) | ^ ../src/subr.d:1360:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1360 | LISPFUNNR(bytesize,1) | ^ ../src/subr.d:1361:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1361 | LISPFUNNR(byteposition,1) | ^ ../src/subr.d:1362:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1362 | LISPFUNNF(ldb,2) | ^ ../src/subr.d:1363:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1363 | LISPFUNNF(ldb_test,2) | ^ ../src/subr.d:1364:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1364 | LISPFUNNF(mask_field,2) | ^ ../src/subr.d:1365:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1365 | LISPFUNNF(dpb,3) | ^ ../src/subr.d:1366:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1366 | LISPFUNNF(deposit_field,3) | ^ ../src/subr.d:1367:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1367 | LISPFUN(random,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1368:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1368 | LISPFUN(random_posfixnum,seclass_default,0,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1369:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1369 | LISPFUN(make_random_state,seclass_default,0,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1370:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1370 | LISPFUNNF(factorial,1) | ^ ../src/subr.d:1371:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1371 | LISPFUNNF(exquo,2) | ^ ../src/subr.d:1372:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1372 | LISPFUNNF(mod_expt,3) | ^ ../src/subr.d:1373:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1373 | LISPFUNN(long_float_digits,0) | ^ ../src/subr.d:1374:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1374 | LISPFUNN(set_long_float_digits,1) | ^ ../src/subr.d:1375:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1375 | LISPFUNNR(log2,1) | ^ ../src/subr.d:1376:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1376 | LISPFUNNR(log10,1) | ^ ../src/subr.d:1379:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1379 | LISPFUNN(sizeof,1) | ^ ../src/subr.d:1380:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1380 | LISPFUNN(bitsizeof,1) | ^ ../src/subr.d:1381:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1381 | LISPFUNNR(validp,1) | ^ ../src/subr.d:1382:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1382 | LISPFUNN(set_validp,2) | ^ ../src/subr.d:1383:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1383 | LISPFUNNR(foreign_pointer,1) | ^ ../src/subr.d:1384:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1384 | LISPFUNN(set_foreign_pointer,2) | ^ ../src/subr.d:1385:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1385 | LISPFUNNR(unsigned_foreign_address,1) | ^ ../src/subr.d:1386:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1386 | LISPFUNNR(foreign_address_unsigned,1) | ^ ../src/subr.d:1387:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1387 | LISPFUNNR(foreign_address,1) | ^ ../src/subr.d:1389:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1389 | LISPFUNN(foreign_pointer_info,1) | ^ ../src/subr.d:1393:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1393 | LISPFUNN(close_foreign_library,1) | ^ ../src/subr.d:1395:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1395 | LISPFUNNF(parse_foreign_inttype,2) | ^ ../src/subr.d:1397:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1397 | LISPFUNN(find_foreign_variable,5) | ^ ../src/subr.d:1399:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1399 | LISPFUNN(foreign_value,1) | ^ ../src/subr.d:1400:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1400 | LISPFUNN(set_foreign_value,2) | ^ ../src/subr.d:1401:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1401 | LISPFUNN(foreign_type,1) | ^ ../src/subr.d:1402:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1402 | LISPFUN(element,seclass_default,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1403:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1403 | LISPFUNN(deref,1) | ^ ../src/subr.d:1404:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1404 | LISPFUNN(slot,2) | ^ ../src/subr.d:1405:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1405 | LISPFUNN(cast,2) | ^ ../src/subr.d:1406:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1406 | LISPFUNN(offset,3) | ^ ../src/subr.d:1407:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1407 | LISPFUN(read_memory_as,seclass_default,2,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1408:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1408 | LISPFUN(write_memory_as,seclass_default,3,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1409:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1409 | LISPFUN(exec_on_stack,seclass_default,2,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1410:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1410 | LISPFUNN(call_with_foreign_string,6) | ^ ../src/subr.d:1414:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1414 | LISPFUNN(find_foreign_function,6) | ^ ../src/subr.d:1415:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1415 | LISPFUN(foreign_call_out,seclass_default,1,0,rest,nokey,0,NIL) | ^ ../src/spvw.d: In function ‘parse_options’: ../src/spvw.d:2730:35: warning: result of ‘2 << 63’ requires 66 bits to represent, but ‘long long int’ only has 64 bits [-Wshift-overflow=] 2730 | : vbitm(oint_addr_len+addr_shift)-1))) | ^~ ../src/spvw.d: In function ‘init_memory’: ../src/spvw.d:3496:17: warning: unused variable ‘teil’ [-Wunused-variable] 3496 | var uintM teil = free_reserved/teile; /* a sub block, a 1/16 of the room */ | ^~~~ ../src/spvw.d:3486:15: warning: unused variable ‘for_objects’ [-Wunused-variable] 3486 | var uintM for_objects; /* number of bytes for Lisp-objects */ | ^~~~~~~~~~~ ../src/spvw.d:3485:15: warning: variable ‘for_STACK’ set but not used [-Wunused-but-set-variable] 3485 | var uintM for_STACK; /* number of bytes for Lisp-stack */ | ^~~~~~~~~ ../src/spvw.d:3149:13: warning: unused variable ‘pagesize’ [-Wunused-variable] 3149 | var uintL pagesize = /* size of a page */ | ^~~~~~~~ ../src/spvw.d: In function ‘dynload_modules’: ../src/spvw.d:4612:26: warning: unused variable ‘err’ [-Wunused-variable] 4612 | var const char * err; | ^~~ ../src/spvw.d:4611:19: warning: unused variable ‘len’ [-Wunused-variable] 4611 | var uintL len = asciz_length(modname); | ^~~ In file included from ../src/spvw.d:306: ../src/spvw.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) | ^~~~~~~ In file included from ../src/spvw.d:1047: ../src/spvw_sigsegv.d:17:13: warning: ‘install_stackoverflow_handler’ declared ‘static’ but never defined [-Wunused-function] 17 | local void install_stackoverflow_handler (uintL size); | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~ In file included from ../src/spvw.d:1049: ../src/spvw_sigpipe.d:13:13: warning: ‘install_sigpipe_handler’ declared ‘static’ but never defined [-Wunused-function] 13 | local void install_sigpipe_handler (void); | ^~~~~~~~~~~~~~~~~~~~~~~ In file included from ../src/spvw.d:1050: ../src/spvw_sigint.d:7:13: warning: ‘install_sigint_handler’ declared ‘static’ but never defined [-Wunused-function] 7 | local void install_sigint_handler (void); | ^~~~~~~~~~~~~~~~~~~~~~ In file included from ../src/spvw.d:1051: ../src/spvw_sigwinch.d:7:13: warning: ‘install_sigwinch_handler’ declared ‘static’ but never defined [-Wunused-function] 7 | local void install_sigwinch_handler (void); | ^~~~~~~~~~~~~~~~~~~~~~~~ ../src/spvw.d: In function ‘near_SP_overflow’: ../src/spvw.d:968:3: warning: ignoring return value of ‘__builtin_alloca’ declared with attribute ‘warn_unused_result’ [-Wunused-result] 968 | alloca(1); /* Makes this function non-inlinable. */ | ^~~~~~~~~~~~~~~~~~~ ../src/spvw.d: In function ‘size_arg’: ../src/spvw.d:2526:11: warning: this statement may fall through [-Wimplicit-fallthrough=] 2526 | val *= sizeof(gcv_object_t); /*FALLTHROUGH*/ | ~~~~^~~~~~~~~~~~~~~~~~~~~~~ ../src/spvw.d:2527:5: note: here 2527 | case 'b': case 'B': /* in bytes */ | ^~~~ ../src/spvw.d: In function ‘install_global_handlers’: ../src/spvw.d:2393:7: warning: this statement may fall through [-Wimplicit-fallthrough=] 2393 | funcall(S(set_global_handler),2); | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../src/spvw.d:2395:5: note: here 2395 | case ON_ERROR_APPEASE: appease: { | ^~~~ In file included from ../src/spvw.d:1077: At top level: ../src/spvw_allocate.d:188:14: warning: ‘mymalloc’ defined but not used [-Wunused-function] 188 | local void* mymalloc (uintM need) | ^~~~~~~~ In file included from ../src/spvw.d:263: ../src/spvw_mmap.d:546:14: warning: ‘mmap_filemap’ defined but not used [-Wunused-function] 546 | local void* mmap_filemap (void* map_addr, uintM map_len, int fd, off_t offset) | ^~~~~~~~~~~~ In file included from ../src/spvw.d:160: ../src/spvw_debug.d:13:13: warning: ‘mem_hex_out’ defined but not used [-Wunused-function] 13 | local void mem_hex_out (const void* buf, uintL count) { | ^~~~~~~~~~~ In file included from ../src/spvw.d:160: ../src/spvw_debug.d: In function ‘nobject_out1’: ../src/spvw_debug.d:131:119: warning: array subscript 1 is outside array bounds of ‘struct subr_tab_[1]’ [-Warray-bounds] 131 | string_out(out, (((as_oint(subr_tab_ptr_as_object(&subr_tab)) <= | ^ In file included from ../src/spvw.d:23: ../src/lispbibl.d:13588:3: note: while referencing ‘subr_tab_data’ 13588 | } subr_tab_data; | ^~~~~~~~~~~~~ ../src/spvw.d: In function ‘main_actions.constprop’: ../src/spvw.d:3891:13: warning: variable ‘count’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered] 3891 | var uintL count = p->argv_init_filecount; | ^~~~~ ../src/spvw.d:3909:36: warning: variable ‘fileptr’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered] 3909 | var const argv_compile_file_t* fileptr = &p->argv_compile_files[0]; | ^~~~~~~ ../src/spvw.d:3910:15: warning: variable ‘count’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered] 3910 | var uintL count = p->argv_compile_filecount; | ^~~~~ gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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: In function ‘schar’: ../src/lispbibl.d:16682:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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: In function ‘schar’: ../src/lispbibl.d:16682:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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: In function ‘schar’: ../src/lispbibl.d:16682:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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: In function ‘schar’: ../src/lispbibl.d:16682:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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: In function ‘schar’: ../src/lispbibl.d:16682:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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: In function ‘schar’: ../src/lispbibl.d:16682:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/encoding.d: In function ‘base64_to_chars’: ../src/encoding.d:87:11: warning: unused variable ‘pos’ [-Wunused-variable] 87 | var uintL pos = 0; | ^~~ ../src/encoding.d: In function ‘C_make_encoding’: ../src/encoding.d:2111:10: warning: label ‘create_new_encoding’ defined but not used [-Wunused-label] 2111 | } else create_new_encoding: { | ^~~~~~~~~~~~~~~~~~~ ../src/encoding.d: In function ‘nls_range’: ../src/encoding.d:1957:96: warning: ‘i2’ may be used uninitialized in this function [-Wmaybe-uninitialized] 1957 | pushSTACK(code_char(as_chart(i2))); | ^ ../src/encoding.d:1940:13: note: ‘i2’ was declared here 1940 | var uintL i2; | ^~ ../src/encoding.d:1956:96: warning: ‘i1’ may be used uninitialized in this function [-Wmaybe-uninitialized] 1956 | pushSTACK(code_char(as_chart(i1))); | ^ ../src/encoding.d:1939:13: note: ‘i1’ was declared here 1939 | var uintL i1; | ^~ gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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: In function ‘schar’: ../src/lispbibl.d:16682:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/pathname.d: In function ‘C_merge_pathnames’: ../src/pathname.d:2876:2: warning: label ‘notmatch_directories’ defined but not used [-Wunused-label] 2876 | notmatch_directories: | ^~~~~~~~~~~~~~~~~~~~ ../src/pathname.d:2870:2: warning: label ‘notmatch_devices’ defined but not used [-Wunused-label] 2870 | notmatch_devices: | ^~~~~~~~~~~~~~~~ ../src/pathname.d:2859:2: warning: label ‘match_directories’ defined but not used [-Wunused-label] 2859 | match_directories: { /* match directories: */ | ^~~~~~~~~~~~~~~~~ ../src/pathname.d:2842:2: warning: label ‘match_devices’ defined but not used [-Wunused-label] 2842 | match_devices: | ^~~~~~~~~~~~~ ../src/pathname.d: In function ‘C_pathname_match_p’: ../src/pathname.d:3977:2: warning: label ‘yes’ defined but not used [-Wunused-label] 3977 | yes: | ^~~ ../src/pathname.d: In function ‘open_file’: ../src/pathname.d:6678:2: warning: label ‘handle_ok’ defined but not used [-Wunused-label] 6678 | handle_ok: | ^~~~~~~~~ ../src/pathname.d: At top level: ../src/pathname.d:3613:11: warning: ‘has_host_wildcards’ declared ‘static’ but never defined [-Wunused-function] 3613 | local bool has_host_wildcards (object pathname); | ^~~~~~~~~~~~~~~~~~ ../src/pathname.d: In function ‘C_probe_pathname’: ../src/pathname.d:5858:10: warning: this statement may fall through [-Wimplicit-fallthrough=] 5858 | if (errorp) | ^ ../src/pathname.d:5861:5: note: here 5861 | case FILE_KIND_NONE: /* does not exist */ | ^~~~ ../src/pathname.d: In function ‘open_file’: ../src/pathname.d:6624:40: warning: this statement may fall through [-Wimplicit-fallthrough=] 6624 | case DIRECTION_OUTPUT: wronly_flag = true; /*FALLTHROUGH*/ ../src/pathname.d:6625:5: note: here 6625 | case DIRECTION_IO: | ^~~~ ../src/pathname.d: In function ‘C_launch’: ../src/pathname.d:8756:15: warning: ignoring return value of ‘nice’ declared with attribute ‘warn_unused_result’ [-Wunused-result] 8756 | errno = 0; nice(priority); | ^~~~~~~~~~~~~~ At top level: ../src/pathname.d:4427:15: warning: ‘translate_device’ defined but not used [-Wunused-function] 4427 | local maygc object translate_device (gcv_object_t* subst, object pattern, | ^~~~~~~~~~~~~~~~ gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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: In function ‘schar’: ../src/lispbibl.d:16682:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/stream.d: In function ‘wr_ch_array_dummy’: ../src/stream.d:397:243: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 397 | SstringDispatch(*chararray_,X, { | ^ ../src/stream.d:397:628: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 397 | SstringDispatch(*chararray_,X, { | ^ ../src/stream.d:397:1014: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 397 | SstringDispatch(*chararray_,X, { | ^ ../src/stream.d: In function ‘wr_ch_array_pending_newline’: ../src/stream.d:976:243: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 976 | SstringDispatch(*chararray_,X, { | ^ ../src/stream.d:976:512: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 976 | SstringDispatch(*chararray_,X, { | ^ ../src/stream.d:976:782: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 976 | SstringDispatch(*chararray_,X, { | ^ ../src/stream.d: In function ‘write_char_array’: ../src/stream.d:1010:247: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 1010 | SstringDispatch(*chararray_,X, { | ^ ../src/stream.d:1010:516: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 1010 | SstringDispatch(*chararray_,X, { | ^ ../src/stream.d:1010:786: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 1010 | SstringDispatch(*chararray_,X, { | ^ ../src/stream.d: In function ‘listen_handle’: ../src/stream.d:4813:50: warning: unused parameter ‘tty_p’ [-Wunused-parameter] 4813 | local listen_t listen_handle (Handle handle, bool tty_p, int *byte) { ../src/stream.d: In function ‘low_write_unbuffered_handle’: ../src/stream.d:5473:2: warning: label ‘restart_it’ defined but not used [-Wunused-label] 5473 | restart_it: | ^~~~~~~~~~ ../src/stream.d: In function ‘rd_ch_keyboard’: ../src/stream.d:8804:4: warning: label ‘next_char_is_read’ defined but not used [-Wunused-label] 8804 | next_char_is_read: { /* increase the buffer: */ | ^~~~~~~~~~~~~~~~~ ../src/stream.d: In function ‘make_keyboard_stream’: ../src/stream.d:9163:7: warning: label ‘xterm’ defined but not used [-Wunused-label] 9163 | xterm: | ^~~~~ ../src/stream.d: In function ‘unread_char’: ../src/stream.d:766:18: warning: this statement may fall through [-Wimplicit-fallthrough=] 766 | stream = *stream_; | ~~~~~~~^~~~~~~~~~ ../src/stream.d:768:9: note: here 768 | default: | ^~~~~~~ ../src/stream.d: In function ‘test_socket_stream’: ../src/stream.d:13840:13: warning: this statement may fall through [-Wimplicit-fallthrough=] 13840 | obj = TheStream(obj)->strm_twoway_socket_input; | ~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../src/stream.d:13842:7: note: here 13842 | case strmtype_socket: | ^~~~ ../src/stream.d: In function ‘C_socket_stream_shutdown’: ../src/stream.d:14724:13: warning: this statement may fall through [-Wimplicit-fallthrough=] 14724 | get_handle_and_mark(TheStream(STACK_0)->strm_twoway_socket_output, | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 14725 | strmflags_wr_B,strm_ochannel_position); | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../src/stream.d:14727:11: note: here 14727 | case DIRECTION_INPUT: case DIRECTION_INPUT_IMMUTABLE: | ^~~~ ../src/stream.d: In function ‘C_stream_external_format’: ../src/stream.d:15729:130: warning: this statement may fall through [-Wimplicit-fallthrough=] 15729 | if (streamp(stream)) { | ~~~~~~~~~~~~~~~~~~ ^ ../src/stream.d:15733:7: note: here 15733 | default: | ^~~~~~~ ../src/stream.d: In function ‘interactive_stream_p’: ../src/stream.d:15961:10: warning: this statement may fall through [-Wimplicit-fallthrough=] 15961 | if (nullp(TheStream(stream)->strm_isatty)) | ^ ../src/stream.d:15966:5: note: here 15966 | case strmtype_keyboard: | ^~~~ ../src/stream.d: In function ‘C_read_byte_no_hang’: ../src/stream.d:17088:7: warning: this statement may fall through [-Wimplicit-fallthrough=] 17088 | var object obj = read_byte(stream); | ^ ../src/stream.d:17095:5: note: here 17095 | case LISTEN_ERROR: OS_filestream_error(STACK_2); | ^~~~ At top level: ../src/stream.d:13309:11: warning: ‘sock_error_eof_p’ defined but not used [-Wunused-function] 13309 | local bool sock_error_eof_p (void) { | ^~~~~~~~~~~~~~~~ ../src/stream.d: In function ‘lisp_completion’: ../src/stream.d:9329:22: warning: variable ‘ptr1’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered] 9329 | var const chart* ptr1; | ^~~~ ../src/stream.d: In function ‘close_ochannel’: ../src/stream.d:5878:36: warning: argument ‘stream’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered] 5878 | local maygc void close_ochannel (object stream, uintB abort) { | ~~~~~~~^~~~~~ ../src/stream.d: In function ‘close_buffered’: ../src/stream.d:8361:36: warning: argument ‘stream’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered] 8361 | local maygc void close_buffered (object stream, uintB abort) { | ~~~~~~~^~~~~~ ../src/stream.d: In function ‘handle_isset’: ../src/stream.d:14299:124: warning: ‘ret’ may be used uninitialized in this function [-Wmaybe-uninitialized] 14299 | if (!nullp(status_cons)) Cdr(status_cons) = ret; | ^ ../src/stream.d:14263:18: note: ‘ret’ was declared here 14263 | var object sock, ret; | ^~~ gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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: In function ‘schar’: ../src/lispbibl.d:16682:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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: In function ‘schar’: ../src/lispbibl.d:16682:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | 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 in this function [-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 in this function [-Wmaybe-uninitialized] 3333 | *vptr++ = el; | ~~~~~~~~^~~~ ../src/io.d:3327:14: note: ‘el’ was declared here 3327 | var object el; /* last Element */ | ^~ ../src/io.d: In function ‘prin_object_dispatch_low’: ../src/io.d:9548:166: warning: array subscript 1 is outside array bounds of ‘struct subr_tab_[1]’ [-Warray-bounds] 9548 | pr_unreadably(stream_,TheSubr(obj)->name, | ^ In file included from ../src/io.d:9: ../src/lispbibl.d:13588:3: note: while referencing ‘subr_tab_data’ 13588 | } subr_tab_data; | ^~~~~~~~~~~~~ gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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: In function ‘schar’: ../src/lispbibl.d:16682:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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: In function ‘schar’: ../src/lispbibl.d:16682:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/array.d: In function ‘C_vector’: ../src/array.d:191:50: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter] 191 | LISPFUN(vector,seclass_no_se,0,0,rest,nokey,0,NIL) | ~~~~~~~~~~~~~~^ ../src/array.d: In function ‘make_ssstring’: ../src/array.d:4028:11: warning: comparison is always false due to limited range of data type [-Wtype-limits] 4028 | if (len > arraysize_limit_1) | ^ ../src/array.d: In function ‘ssstring_extend_low’: ../src/array.d:4049:12: warning: comparison is always false due to limited range of data type [-Wtype-limits] 4049 | if (size > arraysize_limit_1) | ^ ../src/array.d: In function ‘ssstring_push_extend’: ../src/array.d:4084:13: warning: comparison is always false due to limited range of data type [-Wtype-limits] 4084 | if (len > arraysize_limit_1) /* cannot extend beyond arraysize_limit_1 */ | ^ ../src/array.d: In function ‘ssstring_extend’: ../src/array.d:4108:18: warning: comparison is always false due to limited range of data type [-Wtype-limits] 4108 | if (needed_len > arraysize_limit_1) /* cannot extend beyond arraysize_limit_1 */ | ^ ../src/array.d:4113:17: warning: comparison is always false due to limited range of data type [-Wtype-limits] 4113 | if (now_len > arraysize_limit_1) /* cannot extend beyond arraysize_limit_1 */ | ^ ../src/array.d: In function ‘make_ssbvector’: ../src/array.d:4172:11: warning: comparison is always false due to limited range of data type [-Wtype-limits] 4172 | if (len > arraysize_limit_1) | ^ ../src/array.d: In function ‘ssbvector_push_extend’: ../src/array.d:4198:13: warning: comparison is always false due to limited range of data type [-Wtype-limits] 4198 | if (len > arraysize_limit_1) /* cannot extend beyond arraysize_limit_1 */ | ^ ../src/array.d: In function ‘test_dims’: ../src/array.d:4262:43: warning: comparison is always true due to limited range of data type [-Wtype-limits] 4262 | if (!((produkt_hi==0) && (produkt_lo<=arraysize_limit_1))) { /* product < 2^24 ? */ | ^~ ../src/array.d: In function ‘C_make_bit_vector’: ../src/array.d:5159:11: warning: unused variable ‘size’ [-Wunused-variable] 5159 | var uintL size; | ^~~~ ../src/array.d: At top level: ../src/array.d:2079:13: warning: ‘elt_copy_Bit_Bit’ declared ‘static’ but never defined [-Wunused-function] 2079 | local void elt_copy_Bit_Bit (object dv1, uintL index1, object dv2, uintL index2, uintL count); | ^~~~~~~~~~~~~~~~ ../src/array.d:2080:13: warning: ‘elt_copy_2Bit_2Bit’ declared ‘static’ but never defined [-Wunused-function] 2080 | local void elt_copy_2Bit_2Bit (object dv1, uintL index1, object dv2, uintL index2, uintL count); | ^~~~~~~~~~~~~~~~~~ ../src/array.d:2081:13: warning: ‘elt_copy_4Bit_4Bit’ declared ‘static’ but never defined [-Wunused-function] 2081 | local void elt_copy_4Bit_4Bit (object dv1, uintL index1, object dv2, uintL index2, uintL count); | ^~~~~~~~~~~~~~~~~~ ../src/array.d: In function ‘C_make_array’: ../src/array.d:4696:17: warning: ‘fillpointer’ may be used uninitialized in this function [-Wmaybe-uninitialized] 4696 | *dimptr++ = fillpointer; | ~~~~~~~~~~^~~~~~~~~~~~~ ../src/array.d:4598:11: note: ‘fillpointer’ was declared here 4598 | var uintL fillpointer; | ^~~~~~~~~~~ ../src/array.d: In function ‘C_adjust_array’: ../src/array.d:5028:19: warning: ‘fillpointer’ may be used uninitialized in this function [-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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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: In function ‘schar’: ../src/lispbibl.d:16682:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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: In function ‘schar’: ../src/lispbibl.d:16682:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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: In function ‘schar’: ../src/lispbibl.d:16682:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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: In function ‘schar’: ../src/lispbibl.d:16682:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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: In function ‘schar’: ../src/lispbibl.d:16682:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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: In function ‘schar’: ../src/lispbibl.d:16682:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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: In function ‘schar’: ../src/lispbibl.d:16682:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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: In function ‘schar’: ../src/lispbibl.d:16682:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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: In function ‘schar’: ../src/lispbibl.d:16682:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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: In function ‘schar’: ../src/lispbibl.d:16682:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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: In function ‘schar’: ../src/lispbibl.d:16682:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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: In function ‘schar’: ../src/lispbibl.d:16682:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | 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 -> , ... */ | ^~~~~~~~~~~~ ../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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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: In function ‘schar’: ../src/lispbibl.d:16682:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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: In function ‘schar’: ../src/lispbibl.d:16682:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | 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 */ | ^~~ In file included from ../src/lisparit.d:31: ../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=,); | ^ In file included from ../src/lisparit.d:39: ../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, | ^ In file included from ../src/lisparit.d:53: ../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, | ^ In file included from ../src/lisparit.d:53: ../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 */ | ^~ In file included from ../src/lisparit.d:30: ../src/lisparit.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); | ^~~~~~~ In file included from ../src/lisparit.d:30: ../src/intelem.d:145:15: warning: ‘FN_to_Q’ declared ‘static’ but never defined [-Wunused-function] 145 | local sint64 FN_to_Q (object obj); | ^~~~~~~ In file included from ../src/lisparit.d:30: ../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); | ^~~~~~~~~~~~ In file included from ../src/lisparit.d:57: ../src/compelem.d:39:15: warning: ‘N_imagpart_R’ declared ‘static’ but never defined [-Wunused-function] 39 | local object N_imagpart_R (object x); | ^~~~~~~~~~~~ In file included from ../src/lisparit.d:30: ../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); | ^ In file included from ../src/lisparit.d:30: ../src/intelem.d:191:4: note: here 191 | default: | ^~~~~~~ In file included from ../src/lisparit.d:30: ../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); | ^ In file included from ../src/lisparit.d:30: ../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 */ | ^~~~ In file included from ../src/lisparit.d:57: 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) | ^~~~~~~~~~~~~~ In file included from ../src/lisparit.d:57: ../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) | ^~~~~~~~~~~~~~ In file included from ../src/lisparit.d:53: ../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) | ^~~~~~~~~~~~~~~~~~~ In file included from ../src/lisparit.d:53: ../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) | ^~~~~~~~~~~~~~~~~~~ In file included from ../src/lisparit.d:53: ../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:46: ../src/sfloat.d: In function ‘I_to_SF’: ../src/sfloat.d:654:11: warning: ‘I_to_NDS_room_649’ may be used uninitialized in this function [-Wmaybe-uninitialized] 654 | var uintD msd = *MSDptr++; # erstes Digit | ^~~ ../src/sfloat.d:660:82: warning: ‘*((void *)&I_to_NDS_room_649+4)’ may be used uninitialized in this function [-Wmaybe-uninitialized] 660 | DOCONSTTIMES(32/intDsize,NEXT_DIGIT); | ^ 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 in this function [-Wmaybe-uninitialized] 765 | var uintD msd = *MSDptr++; # erstes Digit | ^~~ ../src/ffloat.d:771:82: warning: ‘*((void *)&I_to_NDS_room_760+4)’ may be used uninitialized in this function [-Wmaybe-uninitialized] 771 | DOCONSTTIMES(32/intDsize,NEXT_DIGIT); | ^ 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 in this function [-Wmaybe-uninitialized] 1404 | var uintD msd = *MSDptr++; /* first digit */ | ^~~ ../src/dfloat.d:1411:82: warning: ‘*((void *)&I_to_NDS_room_1399+4)’ may be used uninitialized in this function [-Wmaybe-uninitialized] 1411 | DOCONSTTIMES(32/intDsize,NEXT_DIGIT); | ^ In file included from ../src/lisparit.d:49: ../src/lfloat.d: In function ‘I_to_LF.constprop’: ../src/lfloat.d:1445:22: warning: ‘I_to_NDS_room_1388’ may be used uninitialized in this function [-Wmaybe-uninitialized] 1445 | carry_rechts = shiftrightcopy_loop_up(&x_MSDptr[1],y_mantMSDptr,x_len,shiftcount,x_MSDptr[0]); | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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: In function ‘schar’: ../src/lispbibl.d:16682:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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: In function ‘schar’: ../src/lispbibl.d:16682:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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: In function ‘schar’: ../src/lispbibl.d:16682:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/unixaux.d: In function ‘install_signal_handler’: ../src/unixaux.d:734:3: warning: ‘siginterrupt’ is deprecated: Use sigaction with SA_RESTART instead [-Wdeprecated-declarations] 734 | siginterrupt(sig,0); | ^~~~~~~~~~~~ In file included from /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib/signal.h:52, from ../src/unix.d:111, from ../src/lispbibl.d:1923, from ../src/unixaux.d:7: /usr/include/signal.h:311:12: note: declared here 311 | extern int siginterrupt (int __sig, int __interrupt) __THROW | ^~~~~~~~~~~~ echo '/* generated from Makefile */' > cflags.h.new echo '#define CC "gcc"' >> cflags.h.new echo '#define CFLAGS "-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES"' >> cflags.h.new echo '#define LDFLAGS "-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack"' >> 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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl "' >> cflags.h.new echo '#define CPPFLAGS "-I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib"' >> cflags.h.new echo '#define CPP "gcc -E"' >> cflags.h.new echo '#define CXX "g++"' >> cflags.h.new echo '#define CXXFLAGS ""' >> 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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: In function ‘schar’: ../src/lispbibl.d:16682:233: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:463: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ ../src/lispbibl.d:16682:694: warning: typedef ‘cintX’ locally defined but not used [-Wunused-local-typedefs] 16682 | SstringDispatch(string,X, { | ^ gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -DCOMPILE_STANDALONE -O1 -c genclisph.c ../src/genclisph.d: In function ‘main’: ../src/genclisph.d:410:30: warning: comparison of unsigned expression in ‘< 0’ is always false [-Wtype-limits] 410 | EMIT_TO_I("size",size_t); | ^ gcc -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 ./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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -I. -c ../src/modules.c if test -d locale; then rm -rf locale; fi mkdir locale (cd po && make && make install datarootdir=.. localedir='$(datarootdir)/locale' INSTALL_DATA='ln') || (rm -rf locale ; exit 1) make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/po' make[1]: Nothing to be done for 'all'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/po' make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/po' rm -rf data mkdir data cd data && ln -s ../../utils/unicode/UnicodeDataFull.txt . cd data && ln -s ../../doc/Symbol-Table.text . gcc -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -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)' Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2cd63000 - 0x2cd83fff 0x80000000 - 0x800bffff 0x158a134000 - 0x158a14efff 0x158a14f000 - 0x158a14ffff 0x158a150000 - 0x158a150fff 0x158a151000 - 0x158a152fff 0x158a153000 - 0x158a154fff 0x158a155000 - 0x158a15bfff 0x158a15c000 - 0x158a15cfff 0x158a15d000 - 0x158a15dfff 0x158a160000 - 0x158a161fff 0x158a162000 - 0x158a1a0fff 0x158a1a1000 - 0x158a1a2fff 0x158a1a3000 - 0x158a1a9fff 0x158a1aa000 - 0x158a1aafff 0x158a1ab000 - 0x158a1d0fff 0x158a1d1000 - 0x158a1d4fff 0x158a1d5000 - 0x158a1d5fff 0x158a1d6000 - 0x158a1d7fff 0x158a1d8000 - 0x158a1d8fff 0x158a1d9000 - 0x158a1d9fff 0x158a1da000 - 0x158a1dafff 0x158a1db000 - 0x158a1defff 0x158a1df000 - 0x158a1dffff 0x158a1e0000 - 0x158a1e0fff 0x158a1e1000 - 0x158a1e2fff 0x158a1e3000 - 0x158a1e3fff 0x158a1e4000 - 0x158a1e4fff 0x158a1e5000 - 0x158a350fff 0x158a351000 - 0x158a353fff 0x158a354000 - 0x158a354fff 0x158a355000 - 0x158a357fff 0x158a358000 - 0x158a36afff 0x158a36b000 - 0x158a36bfff 0x158a36c000 - 0x158a36cfff 0x158a36d000 - 0x158a48bfff 0x158a48c000 - 0x158a48efff 0x158a48f000 - 0x158a491fff 0x158a492000 - 0x158a496fff 0x158a497000 - 0x158a4ebfff 0x158a4ec000 - 0x158ab96fff 0x3fffce4000 - 0x3fffd04fff i i i i i i i ooooo o ooooooo ooooo ooooo I I I I I I I 8 8 8 8 8 o 8 8 I \ `+' / I 8 8 8 8 8 8 \ `-+-' / 8 8 8 ooooo 8oooo `-__|__-' 8 8 8 8 8 | 8 o 8 8 o 8 8 ------+------ ooooo 8oooooo ooo8ooo ooooo 8 Welcome to GNU CLISP 2.49.93+ (2018-02-18) 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/room.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/room.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/functions.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/functions.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/trace.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/trace.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/cmacros.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/cmacros.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/compiler.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/compiler.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/defs2.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/defs2.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/loop.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/loop.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos.lisp ... ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-slots1.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-slots1.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-method1.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-method1.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-methcomb1.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-methcomb1.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun1.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun1.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun2a.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun2a.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-methcomb2.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-methcomb2.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun2b.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun2b.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-method2.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-method2.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun3.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun3.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-dependent.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-dependent.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun4.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun4.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-method3.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-method3.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-methcomb3.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-methcomb3.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-slots2.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-slots2.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-slotdef2.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-slotdef2.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-stablehash2.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-stablehash2.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-specializer2.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-specializer2.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-class4.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-class4.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-class5.lisp ... WARNING: DEFGENERIC: redefining function SHARED-INITIALIZE in /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-class5.lisp, was defined in top-level WARNING: DEFGENERIC: redefining function REINITIALIZE-INSTANCE in /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-class5.lisp, was defined in top-level WARNING: DEFGENERIC: redefining function INITIALIZE-INSTANCE in /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-class5.lisp, was defined in top-level ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-class5.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-slotdef3.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-slotdef3.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-specializer3.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-specializer3.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-class6.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-class6.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-method4.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-method4.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-methcomb4.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-methcomb4.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun5.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun5.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-print.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-print.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-custom.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-custom.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/documentation.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/documentation.lisp ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gray.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gray.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/fill-out.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/fill-out.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/disassem.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/disassem.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/condition.lisp ... WARNING: DEFUN/DEFMACRO: redefining function MUFFLE-CERRORS in /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/condition.lisp, was defined in C ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/condition.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/loadform.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/loadform.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gstream.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gstream.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/xcharin.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/xcharin.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/keyboard.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/keyboard.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/screen.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/screen.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/runprog.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/runprog.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/query.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/query.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/reploop.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/reploop.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/savemem.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/savemem.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/dribble.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/dribble.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/pprint.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/pprint.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/describe.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/describe.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/edit.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/edit.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clhs.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clhs.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/inspect.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/inspect.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/macros3.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/macros3.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/complete.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/complete.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/case-sensitive.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/case-sensitive.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/foreign1.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/foreign1.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/exporting.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/exporting.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/danish.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/danish.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/german.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/german.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/french.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/french.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/spanish.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/spanish.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/dutch.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/dutch.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/russian.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/russian.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/deprecated.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/deprecated.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/config.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/config.lisp Bytes permanently allocated: 173,424 Bytes currently in use: 10,358,712 Bytes available until next GC: 5,179,356 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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x28075000 - 0x28095fff 0x80000000 - 0x800bffff 0x1556f2c000 - 0x1556f46fff 0x1556f47000 - 0x1556f47fff 0x1556f48000 - 0x1556f48fff 0x1556f49000 - 0x1556f4afff 0x1556f4b000 - 0x1556f4cfff 0x1556f4d000 - 0x1556f53fff 0x1556f54000 - 0x1556f54fff 0x1556f55000 - 0x1556f55fff 0x1556f58000 - 0x1556f59fff 0x1556f5a000 - 0x1556f98fff 0x1556f99000 - 0x1556f9afff 0x1556f9b000 - 0x1556fa1fff 0x1556fa2000 - 0x1556fa2fff 0x1556fa3000 - 0x1556fc8fff 0x1556fc9000 - 0x1556fccfff 0x1556fcd000 - 0x1556fcdfff 0x1556fce000 - 0x1556fcffff 0x1556fd0000 - 0x1556fd0fff 0x1556fd1000 - 0x1556fd1fff 0x1556fd2000 - 0x1556fd2fff 0x1556fd3000 - 0x1556fd6fff 0x1556fd7000 - 0x1556fd7fff 0x1556fd8000 - 0x1556fd8fff 0x1556fd9000 - 0x1556fdafff 0x1556fdb000 - 0x1556fdbfff 0x1556fdc000 - 0x1556fdcfff 0x1556fdd000 - 0x1557148fff 0x1557149000 - 0x155714bfff 0x155714c000 - 0x155714cfff 0x155714d000 - 0x155714ffff 0x1557150000 - 0x1557162fff 0x1557163000 - 0x1557163fff 0x1557164000 - 0x1557164fff 0x1557165000 - 0x1557283fff 0x1557284000 - 0x1557286fff 0x1557287000 - 0x1557289fff 0x155728a000 - 0x155728efff 0x155728f000 - 0x15572e3fff 0x15572e4000 - 0x155798efff 0x3fffb3e000 - 0x3fffb5efff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/compiler.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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)' Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3b0f0000 - 0x3b110fff 0x80000000 - 0x800bffff 0x155c51d000 - 0x155c537fff 0x155c538000 - 0x155c538fff 0x155c539000 - 0x155c539fff 0x155c53a000 - 0x155c53bfff 0x155c53c000 - 0x155c53dfff 0x155c53e000 - 0x155c544fff 0x155c545000 - 0x155c545fff 0x155c546000 - 0x155c546fff 0x155c549000 - 0x155c54afff 0x155c54b000 - 0x155c589fff 0x155c58a000 - 0x155c58bfff 0x155c58c000 - 0x155c592fff 0x155c593000 - 0x155c593fff 0x155c594000 - 0x155c5b9fff 0x155c5ba000 - 0x155c5bdfff 0x155c5be000 - 0x155c5befff 0x155c5bf000 - 0x155c5c0fff 0x155c5c1000 - 0x155c5c1fff 0x155c5c2000 - 0x155c5c2fff 0x155c5c3000 - 0x155c5c3fff 0x155c5c4000 - 0x155c5c7fff 0x155c5c8000 - 0x155c5c8fff 0x155c5c9000 - 0x155c5c9fff 0x155c5ca000 - 0x155c5cbfff 0x155c5cc000 - 0x155c5ccfff 0x155c5cd000 - 0x155c5cdfff 0x155c5ce000 - 0x155c739fff 0x155c73a000 - 0x155c73cfff 0x155c73d000 - 0x155c73dfff 0x155c73e000 - 0x155c740fff 0x155c741000 - 0x155c753fff 0x155c754000 - 0x155c754fff 0x155c755000 - 0x155c755fff 0x155c756000 - 0x155c874fff 0x155c875000 - 0x155c877fff 0x155c878000 - 0x155c87afff 0x155c87b000 - 0x155c87ffff 0x155c880000 - 0x155c8d4fff 0x155c8d5000 - 0x155cf7ffff 0x3fffa31000 - 0x3fffa51fff i i i i i i i ooooo o ooooooo ooooo ooooo I I I I I I I 8 8 8 8 8 o 8 8 I \ `+' / I 8 8 8 8 8 8 \ `-+-' / 8 8 8 ooooo 8oooo `-__|__-' 8 8 8 8 8 | 8 o 8 8 o 8 8 ------+------ ooooo 8oooooo ooo8ooo ooooo 8 Welcome to GNU CLISP 2.49.93+ (2018-02-18) 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/room.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/room.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/functions.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/functions.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/trace.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/trace.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/cmacros.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/cmacros.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/compiler.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/compiler.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/defs2.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/defs2.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/loop.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/loop.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos.lisp ... ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-slots1.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-slots1.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-method1.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-method1.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-methcomb1.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-methcomb1.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun1.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun1.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun2a.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun2a.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-methcomb2.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-methcomb2.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun2b.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun2b.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-method2.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-method2.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun3.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun3.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-dependent.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-dependent.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun4.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun4.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-method3.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-method3.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-methcomb3.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-methcomb3.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-slots2.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-slots2.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-slotdef2.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-slotdef2.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-stablehash2.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-stablehash2.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-specializer2.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-specializer2.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-class4.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-class4.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-class5.lisp ... WARNING: DEFGENERIC: redefining function SHARED-INITIALIZE in /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-class5.lisp, was defined in top-level WARNING: DEFGENERIC: redefining function REINITIALIZE-INSTANCE in /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-class5.lisp, was defined in top-level WARNING: DEFGENERIC: redefining function INITIALIZE-INSTANCE in /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-class5.lisp, was defined in top-level ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-class5.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-slotdef3.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-slotdef3.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-specializer3.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-specializer3.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-class6.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-class6.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-method4.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-method4.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-methcomb4.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-methcomb4.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun5.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun5.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-print.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-print.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-custom.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-custom.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/documentation.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/documentation.lisp ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gray.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gray.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/fill-out.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/fill-out.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/disassem.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/disassem.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/condition.lisp ... WARNING: DEFUN/DEFMACRO: redefining function MUFFLE-CERRORS in /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/condition.lisp, was defined in C ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/condition.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/loadform.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/loadform.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gstream.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gstream.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/xcharin.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/xcharin.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/keyboard.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/keyboard.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/screen.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/screen.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/runprog.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/runprog.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/query.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/query.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/reploop.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/reploop.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/savemem.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/savemem.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/dribble.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/dribble.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/pprint.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/pprint.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/describe.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/describe.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/edit.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/edit.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clhs.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clhs.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/inspect.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/inspect.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/macros3.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/macros3.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/complete.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/complete.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/case-sensitive.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/case-sensitive.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/foreign1.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/foreign1.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/exporting.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/exporting.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/danish.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/danish.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/german.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/german.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/french.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/french.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/spanish.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/spanish.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/dutch.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/dutch.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/russian.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/russian.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/deprecated.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/deprecated.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/config.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/config.lisp Bytes permanently allocated: 173,424 Bytes currently in use: 8,906,920 Bytes available until next GC: 4,453,460 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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x28c94000 - 0x28cb4fff 0x80000000 - 0x800bffff 0x1567639000 - 0x1567653fff 0x1567654000 - 0x1567654fff 0x1567655000 - 0x1567655fff 0x1567656000 - 0x1567657fff 0x1567658000 - 0x1567659fff 0x156765a000 - 0x1567660fff 0x1567661000 - 0x1567661fff 0x1567662000 - 0x1567662fff 0x1567665000 - 0x1567666fff 0x1567667000 - 0x15676a5fff 0x15676a6000 - 0x15676a7fff 0x15676a8000 - 0x15676aefff 0x15676af000 - 0x15676affff 0x15676b0000 - 0x15676d5fff 0x15676d6000 - 0x15676d9fff 0x15676da000 - 0x15676dafff 0x15676db000 - 0x15676dcfff 0x15676dd000 - 0x15676ddfff 0x15676de000 - 0x15676defff 0x15676df000 - 0x15676dffff 0x15676e0000 - 0x15676e3fff 0x15676e4000 - 0x15676e4fff 0x15676e5000 - 0x15676e5fff 0x15676e6000 - 0x15676e7fff 0x15676e8000 - 0x15676e8fff 0x15676e9000 - 0x15676e9fff 0x15676ea000 - 0x1567855fff 0x1567856000 - 0x1567858fff 0x1567859000 - 0x1567859fff 0x156785a000 - 0x156785cfff 0x156785d000 - 0x156786ffff 0x1567870000 - 0x1567870fff 0x1567871000 - 0x1567871fff 0x1567872000 - 0x1567990fff 0x1567991000 - 0x1567993fff 0x1567994000 - 0x1567996fff 0x1567997000 - 0x156799bfff 0x156799c000 - 0x15679f0fff 0x15679f1000 - 0x156809bfff 0x3fffccf000 - 0x3fffceffff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/init.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x39857000 - 0x39877fff 0x80000000 - 0x800bffff 0x1572f57000 - 0x1572f71fff 0x1572f72000 - 0x1572f72fff 0x1572f73000 - 0x1572f73fff 0x1572f74000 - 0x1572f75fff 0x1572f76000 - 0x1572f77fff 0x1572f78000 - 0x1572f7efff 0x1572f7f000 - 0x1572f7ffff 0x1572f80000 - 0x1572f80fff 0x1572f83000 - 0x1572f84fff 0x1572f85000 - 0x1572fc3fff 0x1572fc4000 - 0x1572fc5fff 0x1572fc6000 - 0x1572fccfff 0x1572fcd000 - 0x1572fcdfff 0x1572fce000 - 0x1572ff3fff 0x1572ff4000 - 0x1572ff7fff 0x1572ff8000 - 0x1572ff8fff 0x1572ff9000 - 0x1572ffafff 0x1572ffb000 - 0x1572ffbfff 0x1572ffc000 - 0x1572ffcfff 0x1572ffd000 - 0x1572ffdfff 0x1572ffe000 - 0x1573001fff 0x1573002000 - 0x1573002fff 0x1573003000 - 0x1573003fff 0x1573004000 - 0x1573005fff 0x1573006000 - 0x1573006fff 0x1573007000 - 0x1573007fff 0x1573008000 - 0x1573173fff 0x1573174000 - 0x1573176fff 0x1573177000 - 0x1573177fff 0x1573178000 - 0x157317afff 0x157317b000 - 0x157318dfff 0x157318e000 - 0x157318efff 0x157318f000 - 0x157318ffff 0x1573190000 - 0x15732aefff 0x15732af000 - 0x15732b1fff 0x15732b2000 - 0x15732b4fff 0x15732b5000 - 0x15732b9fff 0x15732ba000 - 0x157330efff 0x157330f000 - 0x15739b9fff 0x3fff949000 - 0x3fff969fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/defseq.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x27af9000 - 0x27b19fff 0x80000000 - 0x800bffff 0x1582433000 - 0x158244dfff 0x158244e000 - 0x158244efff 0x158244f000 - 0x158244ffff 0x1582450000 - 0x1582451fff 0x1582452000 - 0x1582453fff 0x1582454000 - 0x158245afff 0x158245b000 - 0x158245bfff 0x158245c000 - 0x158245cfff 0x158245f000 - 0x1582460fff 0x1582461000 - 0x158249ffff 0x15824a0000 - 0x15824a1fff 0x15824a2000 - 0x15824a8fff 0x15824a9000 - 0x15824a9fff 0x15824aa000 - 0x15824cffff 0x15824d0000 - 0x15824d3fff 0x15824d4000 - 0x15824d4fff 0x15824d5000 - 0x15824d6fff 0x15824d7000 - 0x15824d7fff 0x15824d8000 - 0x15824d8fff 0x15824d9000 - 0x15824d9fff 0x15824da000 - 0x15824ddfff 0x15824de000 - 0x15824defff 0x15824df000 - 0x15824dffff 0x15824e0000 - 0x15824e1fff 0x15824e2000 - 0x15824e2fff 0x15824e3000 - 0x15824e3fff 0x15824e4000 - 0x158264ffff 0x1582650000 - 0x1582652fff 0x1582653000 - 0x1582653fff 0x1582654000 - 0x1582656fff 0x1582657000 - 0x1582669fff 0x158266a000 - 0x158266afff 0x158266b000 - 0x158266bfff 0x158266c000 - 0x158278afff 0x158278b000 - 0x158278dfff 0x158278e000 - 0x1582790fff 0x1582791000 - 0x1582795fff 0x1582796000 - 0x15827eafff 0x15827eb000 - 0x1582e95fff 0x3ffff62000 - 0x3ffff82fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/backquote.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1cf45000 - 0x1cf65fff 0x80000000 - 0x800bffff 0x1592978000 - 0x1592992fff 0x1592993000 - 0x1592993fff 0x1592994000 - 0x1592994fff 0x1592995000 - 0x1592996fff 0x1592997000 - 0x1592998fff 0x1592999000 - 0x159299ffff 0x15929a0000 - 0x15929a0fff 0x15929a1000 - 0x15929a1fff 0x15929a4000 - 0x15929a5fff 0x15929a6000 - 0x15929e4fff 0x15929e5000 - 0x15929e6fff 0x15929e7000 - 0x15929edfff 0x15929ee000 - 0x15929eefff 0x15929ef000 - 0x1592a14fff 0x1592a15000 - 0x1592a18fff 0x1592a19000 - 0x1592a19fff 0x1592a1a000 - 0x1592a1bfff 0x1592a1c000 - 0x1592a1cfff 0x1592a1d000 - 0x1592a1dfff 0x1592a1e000 - 0x1592a1efff 0x1592a1f000 - 0x1592a22fff 0x1592a23000 - 0x1592a23fff 0x1592a24000 - 0x1592a24fff 0x1592a25000 - 0x1592a26fff 0x1592a27000 - 0x1592a27fff 0x1592a28000 - 0x1592a28fff 0x1592a29000 - 0x1592b94fff 0x1592b95000 - 0x1592b97fff 0x1592b98000 - 0x1592b98fff 0x1592b99000 - 0x1592b9bfff 0x1592b9c000 - 0x1592baefff 0x1592baf000 - 0x1592baffff 0x1592bb0000 - 0x1592bb0fff 0x1592bb1000 - 0x1592ccffff 0x1592cd0000 - 0x1592cd2fff 0x1592cd3000 - 0x1592cd5fff 0x1592cd6000 - 0x1592cdafff 0x1592cdb000 - 0x1592d2ffff 0x1592d30000 - 0x15933dafff 0x3fffcaa000 - 0x3fffccafff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/defmacro.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x18829000 - 0x18849fff 0x80000000 - 0x800bffff 0x157b39d000 - 0x157b3b7fff 0x157b3b8000 - 0x157b3b8fff 0x157b3b9000 - 0x157b3b9fff 0x157b3ba000 - 0x157b3bbfff 0x157b3bc000 - 0x157b3bdfff 0x157b3be000 - 0x157b3c4fff 0x157b3c5000 - 0x157b3c5fff 0x157b3c6000 - 0x157b3c6fff 0x157b3c9000 - 0x157b3cafff 0x157b3cb000 - 0x157b409fff 0x157b40a000 - 0x157b40bfff 0x157b40c000 - 0x157b412fff 0x157b413000 - 0x157b413fff 0x157b414000 - 0x157b439fff 0x157b43a000 - 0x157b43dfff 0x157b43e000 - 0x157b43efff 0x157b43f000 - 0x157b440fff 0x157b441000 - 0x157b441fff 0x157b442000 - 0x157b442fff 0x157b443000 - 0x157b443fff 0x157b444000 - 0x157b447fff 0x157b448000 - 0x157b448fff 0x157b449000 - 0x157b449fff 0x157b44a000 - 0x157b44bfff 0x157b44c000 - 0x157b44cfff 0x157b44d000 - 0x157b44dfff 0x157b44e000 - 0x157b5b9fff 0x157b5ba000 - 0x157b5bcfff 0x157b5bd000 - 0x157b5bdfff 0x157b5be000 - 0x157b5c0fff 0x157b5c1000 - 0x157b5d3fff 0x157b5d4000 - 0x157b5d4fff 0x157b5d5000 - 0x157b5d5fff 0x157b5d6000 - 0x157b6f4fff 0x157b6f5000 - 0x157b6f7fff 0x157b6f8000 - 0x157b6fafff 0x157b6fb000 - 0x157b6fffff 0x157b700000 - 0x157b754fff 0x157b755000 - 0x157bdfffff 0x3fffde5000 - 0x3fffe05fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/macros1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2d4aa000 - 0x2d4cafff 0x80000000 - 0x800bffff 0x15892bd000 - 0x15892d7fff 0x15892d8000 - 0x15892d8fff 0x15892d9000 - 0x15892d9fff 0x15892da000 - 0x15892dbfff 0x15892dc000 - 0x15892ddfff 0x15892de000 - 0x15892e4fff 0x15892e5000 - 0x15892e5fff 0x15892e6000 - 0x15892e6fff 0x15892e9000 - 0x15892eafff 0x15892eb000 - 0x1589329fff 0x158932a000 - 0x158932bfff 0x158932c000 - 0x1589332fff 0x1589333000 - 0x1589333fff 0x1589334000 - 0x1589359fff 0x158935a000 - 0x158935dfff 0x158935e000 - 0x158935efff 0x158935f000 - 0x1589360fff 0x1589361000 - 0x1589361fff 0x1589362000 - 0x1589362fff 0x1589363000 - 0x1589363fff 0x1589364000 - 0x1589367fff 0x1589368000 - 0x1589368fff 0x1589369000 - 0x1589369fff 0x158936a000 - 0x158936bfff 0x158936c000 - 0x158936cfff 0x158936d000 - 0x158936dfff 0x158936e000 - 0x15894d9fff 0x15894da000 - 0x15894dcfff 0x15894dd000 - 0x15894ddfff 0x15894de000 - 0x15894e0fff 0x15894e1000 - 0x15894f3fff 0x15894f4000 - 0x15894f4fff 0x15894f5000 - 0x15894f5fff 0x15894f6000 - 0x1589614fff 0x1589615000 - 0x1589617fff 0x1589618000 - 0x158961afff 0x158961b000 - 0x158961ffff 0x1589620000 - 0x1589674fff 0x1589675000 - 0x1589d1ffff 0x3fffd5f000 - 0x3fffd7ffff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/macros2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x7c0c000 - 0x7c2cfff 0x80000000 - 0x800bffff 0x156ccbf000 - 0x156ccd9fff 0x156ccda000 - 0x156ccdafff 0x156ccdb000 - 0x156ccdbfff 0x156ccdc000 - 0x156ccddfff 0x156ccde000 - 0x156ccdffff 0x156cce0000 - 0x156cce6fff 0x156cce7000 - 0x156cce7fff 0x156cce8000 - 0x156cce8fff 0x156cceb000 - 0x156ccecfff 0x156cced000 - 0x156cd2bfff 0x156cd2c000 - 0x156cd2dfff 0x156cd2e000 - 0x156cd34fff 0x156cd35000 - 0x156cd35fff 0x156cd36000 - 0x156cd5bfff 0x156cd5c000 - 0x156cd5ffff 0x156cd60000 - 0x156cd60fff 0x156cd61000 - 0x156cd62fff 0x156cd63000 - 0x156cd63fff 0x156cd64000 - 0x156cd64fff 0x156cd65000 - 0x156cd65fff 0x156cd66000 - 0x156cd69fff 0x156cd6a000 - 0x156cd6afff 0x156cd6b000 - 0x156cd6bfff 0x156cd6c000 - 0x156cd6dfff 0x156cd6e000 - 0x156cd6efff 0x156cd6f000 - 0x156cd6ffff 0x156cd70000 - 0x156cedbfff 0x156cedc000 - 0x156cedefff 0x156cedf000 - 0x156cedffff 0x156cee0000 - 0x156cee2fff 0x156cee3000 - 0x156cef5fff 0x156cef6000 - 0x156cef6fff 0x156cef7000 - 0x156cef7fff 0x156cef8000 - 0x156d016fff 0x156d017000 - 0x156d019fff 0x156d01a000 - 0x156d01cfff 0x156d01d000 - 0x156d021fff 0x156d022000 - 0x156d076fff 0x156d077000 - 0x156d721fff 0x3fff7fc000 - 0x3fff81cfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/defs1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2f706000 - 0x2f726fff 0x80000000 - 0x800bffff 0x1567192000 - 0x15671acfff 0x15671ad000 - 0x15671adfff 0x15671ae000 - 0x15671aefff 0x15671af000 - 0x15671b0fff 0x15671b1000 - 0x15671b2fff 0x15671b3000 - 0x15671b9fff 0x15671ba000 - 0x15671bafff 0x15671bb000 - 0x15671bbfff 0x15671be000 - 0x15671bffff 0x15671c0000 - 0x15671fefff 0x15671ff000 - 0x1567200fff 0x1567201000 - 0x1567207fff 0x1567208000 - 0x1567208fff 0x1567209000 - 0x156722efff 0x156722f000 - 0x1567232fff 0x1567233000 - 0x1567233fff 0x1567234000 - 0x1567235fff 0x1567236000 - 0x1567236fff 0x1567237000 - 0x1567237fff 0x1567238000 - 0x1567238fff 0x1567239000 - 0x156723cfff 0x156723d000 - 0x156723dfff 0x156723e000 - 0x156723efff 0x156723f000 - 0x1567240fff 0x1567241000 - 0x1567241fff 0x1567242000 - 0x1567242fff 0x1567243000 - 0x15673aefff 0x15673af000 - 0x15673b1fff 0x15673b2000 - 0x15673b2fff 0x15673b3000 - 0x15673b5fff 0x15673b6000 - 0x15673c8fff 0x15673c9000 - 0x15673c9fff 0x15673ca000 - 0x15673cafff 0x15673cb000 - 0x15674e9fff 0x15674ea000 - 0x15674ecfff 0x15674ed000 - 0x15674effff 0x15674f0000 - 0x15674f4fff 0x15674f5000 - 0x1567549fff 0x156754a000 - 0x1567bf4fff 0x3fffa6c000 - 0x3fffa8cfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/lambdalist.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x171c4000 - 0x171e4fff 0x80000000 - 0x800bffff 0x1584de3000 - 0x1584dfdfff 0x1584dfe000 - 0x1584dfefff 0x1584dff000 - 0x1584dfffff 0x1584e00000 - 0x1584e01fff 0x1584e02000 - 0x1584e03fff 0x1584e04000 - 0x1584e0afff 0x1584e0b000 - 0x1584e0bfff 0x1584e0c000 - 0x1584e0cfff 0x1584e0f000 - 0x1584e10fff 0x1584e11000 - 0x1584e4ffff 0x1584e50000 - 0x1584e51fff 0x1584e52000 - 0x1584e58fff 0x1584e59000 - 0x1584e59fff 0x1584e5a000 - 0x1584e7ffff 0x1584e80000 - 0x1584e83fff 0x1584e84000 - 0x1584e84fff 0x1584e85000 - 0x1584e86fff 0x1584e87000 - 0x1584e87fff 0x1584e88000 - 0x1584e88fff 0x1584e89000 - 0x1584e89fff 0x1584e8a000 - 0x1584e8dfff 0x1584e8e000 - 0x1584e8efff 0x1584e8f000 - 0x1584e8ffff 0x1584e90000 - 0x1584e91fff 0x1584e92000 - 0x1584e92fff 0x1584e93000 - 0x1584e93fff 0x1584e94000 - 0x1584ffffff 0x1585000000 - 0x1585002fff 0x1585003000 - 0x1585003fff 0x1585004000 - 0x1585006fff 0x1585007000 - 0x1585019fff 0x158501a000 - 0x158501afff 0x158501b000 - 0x158501bfff 0x158501c000 - 0x158513afff 0x158513b000 - 0x158513dfff 0x158513e000 - 0x1585140fff 0x1585141000 - 0x1585145fff 0x1585146000 - 0x158519afff 0x158519b000 - 0x1585845fff 0x3ffff0e000 - 0x3ffff2efff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/places.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2875000 - 0x2895fff 0x80000000 - 0x800bffff 0x157c4bf000 - 0x157c4d9fff 0x157c4da000 - 0x157c4dafff 0x157c4db000 - 0x157c4dbfff 0x157c4dc000 - 0x157c4ddfff 0x157c4de000 - 0x157c4dffff 0x157c4e0000 - 0x157c4e6fff 0x157c4e7000 - 0x157c4e7fff 0x157c4e8000 - 0x157c4e8fff 0x157c4eb000 - 0x157c4ecfff 0x157c4ed000 - 0x157c52bfff 0x157c52c000 - 0x157c52dfff 0x157c52e000 - 0x157c534fff 0x157c535000 - 0x157c535fff 0x157c536000 - 0x157c55bfff 0x157c55c000 - 0x157c55ffff 0x157c560000 - 0x157c560fff 0x157c561000 - 0x157c562fff 0x157c563000 - 0x157c563fff 0x157c564000 - 0x157c564fff 0x157c565000 - 0x157c565fff 0x157c566000 - 0x157c569fff 0x157c56a000 - 0x157c56afff 0x157c56b000 - 0x157c56bfff 0x157c56c000 - 0x157c56dfff 0x157c56e000 - 0x157c56efff 0x157c56f000 - 0x157c56ffff 0x157c570000 - 0x157c6dbfff 0x157c6dc000 - 0x157c6defff 0x157c6df000 - 0x157c6dffff 0x157c6e0000 - 0x157c6e2fff 0x157c6e3000 - 0x157c6f5fff 0x157c6f6000 - 0x157c6f6fff 0x157c6f7000 - 0x157c6f7fff 0x157c6f8000 - 0x157c816fff 0x157c817000 - 0x157c819fff 0x157c81a000 - 0x157c81cfff 0x157c81d000 - 0x157c821fff 0x157c822000 - 0x157c876fff 0x157c877000 - 0x157cf21fff 0x3fff99c000 - 0x3fff9bcfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/floatprint.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x102a1000 - 0x102c1fff 0x80000000 - 0x800bffff 0x1572b0a000 - 0x1572b24fff 0x1572b25000 - 0x1572b25fff 0x1572b26000 - 0x1572b26fff 0x1572b27000 - 0x1572b28fff 0x1572b29000 - 0x1572b2afff 0x1572b2b000 - 0x1572b31fff 0x1572b32000 - 0x1572b32fff 0x1572b33000 - 0x1572b33fff 0x1572b36000 - 0x1572b37fff 0x1572b38000 - 0x1572b76fff 0x1572b77000 - 0x1572b78fff 0x1572b79000 - 0x1572b7ffff 0x1572b80000 - 0x1572b80fff 0x1572b81000 - 0x1572ba6fff 0x1572ba7000 - 0x1572baafff 0x1572bab000 - 0x1572babfff 0x1572bac000 - 0x1572badfff 0x1572bae000 - 0x1572baefff 0x1572baf000 - 0x1572baffff 0x1572bb0000 - 0x1572bb0fff 0x1572bb1000 - 0x1572bb4fff 0x1572bb5000 - 0x1572bb5fff 0x1572bb6000 - 0x1572bb6fff 0x1572bb7000 - 0x1572bb8fff 0x1572bb9000 - 0x1572bb9fff 0x1572bba000 - 0x1572bbafff 0x1572bbb000 - 0x1572d26fff 0x1572d27000 - 0x1572d29fff 0x1572d2a000 - 0x1572d2afff 0x1572d2b000 - 0x1572d2dfff 0x1572d2e000 - 0x1572d40fff 0x1572d41000 - 0x1572d41fff 0x1572d42000 - 0x1572d42fff 0x1572d43000 - 0x1572e61fff 0x1572e62000 - 0x1572e64fff 0x1572e65000 - 0x1572e67fff 0x1572e68000 - 0x1572e6cfff 0x1572e6d000 - 0x1572ec1fff 0x1572ec2000 - 0x157356cfff 0x3fffbc8000 - 0x3fffbe8fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/defpackage.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x12999000 - 0x129b9fff 0x80000000 - 0x800bffff 0x158cbb1000 - 0x158cbcbfff 0x158cbcc000 - 0x158cbccfff 0x158cbcd000 - 0x158cbcdfff 0x158cbce000 - 0x158cbcffff 0x158cbd0000 - 0x158cbd1fff 0x158cbd2000 - 0x158cbd8fff 0x158cbd9000 - 0x158cbd9fff 0x158cbda000 - 0x158cbdafff 0x158cbdd000 - 0x158cbdefff 0x158cbdf000 - 0x158cc1dfff 0x158cc1e000 - 0x158cc1ffff 0x158cc20000 - 0x158cc26fff 0x158cc27000 - 0x158cc27fff 0x158cc28000 - 0x158cc4dfff 0x158cc4e000 - 0x158cc51fff 0x158cc52000 - 0x158cc52fff 0x158cc53000 - 0x158cc54fff 0x158cc55000 - 0x158cc55fff 0x158cc56000 - 0x158cc56fff 0x158cc57000 - 0x158cc57fff 0x158cc58000 - 0x158cc5bfff 0x158cc5c000 - 0x158cc5cfff 0x158cc5d000 - 0x158cc5dfff 0x158cc5e000 - 0x158cc5ffff 0x158cc60000 - 0x158cc60fff 0x158cc61000 - 0x158cc61fff 0x158cc62000 - 0x158cdcdfff 0x158cdce000 - 0x158cdd0fff 0x158cdd1000 - 0x158cdd1fff 0x158cdd2000 - 0x158cdd4fff 0x158cdd5000 - 0x158cde7fff 0x158cde8000 - 0x158cde8fff 0x158cde9000 - 0x158cde9fff 0x158cdea000 - 0x158cf08fff 0x158cf09000 - 0x158cf0bfff 0x158cf0c000 - 0x158cf0efff 0x158cf0f000 - 0x158cf13fff 0x158cf14000 - 0x158cf68fff 0x158cf69000 - 0x158d613fff 0x3fff7fd000 - 0x3fff81dfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/type.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x262e8000 - 0x26308fff 0x80000000 - 0x800bffff 0x1592309000 - 0x1592323fff 0x1592324000 - 0x1592324fff 0x1592325000 - 0x1592325fff 0x1592326000 - 0x1592327fff 0x1592328000 - 0x1592329fff 0x159232a000 - 0x1592330fff 0x1592331000 - 0x1592331fff 0x1592332000 - 0x1592332fff 0x1592335000 - 0x1592336fff 0x1592337000 - 0x1592375fff 0x1592376000 - 0x1592377fff 0x1592378000 - 0x159237efff 0x159237f000 - 0x159237ffff 0x1592380000 - 0x15923a5fff 0x15923a6000 - 0x15923a9fff 0x15923aa000 - 0x15923aafff 0x15923ab000 - 0x15923acfff 0x15923ad000 - 0x15923adfff 0x15923ae000 - 0x15923aefff 0x15923af000 - 0x15923affff 0x15923b0000 - 0x15923b3fff 0x15923b4000 - 0x15923b4fff 0x15923b5000 - 0x15923b5fff 0x15923b6000 - 0x15923b7fff 0x15923b8000 - 0x15923b8fff 0x15923b9000 - 0x15923b9fff 0x15923ba000 - 0x1592525fff 0x1592526000 - 0x1592528fff 0x1592529000 - 0x1592529fff 0x159252a000 - 0x159252cfff 0x159252d000 - 0x159253ffff 0x1592540000 - 0x1592540fff 0x1592541000 - 0x1592541fff 0x1592542000 - 0x1592660fff 0x1592661000 - 0x1592663fff 0x1592664000 - 0x1592666fff 0x1592667000 - 0x159266bfff 0x159266c000 - 0x15926c0fff 0x15926c1000 - 0x1592d6bfff 0x3fffc74000 - 0x3fffc94fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/subtypep.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3f801000 - 0x3f821fff 0x80000000 - 0x800bffff 0x1590332000 - 0x159034cfff 0x159034d000 - 0x159034dfff 0x159034e000 - 0x159034efff 0x159034f000 - 0x1590350fff 0x1590351000 - 0x1590352fff 0x1590353000 - 0x1590359fff 0x159035a000 - 0x159035afff 0x159035b000 - 0x159035bfff 0x159035e000 - 0x159035ffff 0x1590360000 - 0x159039efff 0x159039f000 - 0x15903a0fff 0x15903a1000 - 0x15903a7fff 0x15903a8000 - 0x15903a8fff 0x15903a9000 - 0x15903cefff 0x15903cf000 - 0x15903d2fff 0x15903d3000 - 0x15903d3fff 0x15903d4000 - 0x15903d5fff 0x15903d6000 - 0x15903d6fff 0x15903d7000 - 0x15903d7fff 0x15903d8000 - 0x15903d8fff 0x15903d9000 - 0x15903dcfff 0x15903dd000 - 0x15903ddfff 0x15903de000 - 0x15903defff 0x15903df000 - 0x15903e0fff 0x15903e1000 - 0x15903e1fff 0x15903e2000 - 0x15903e2fff 0x15903e3000 - 0x159054efff 0x159054f000 - 0x1590551fff 0x1590552000 - 0x1590552fff 0x1590553000 - 0x1590555fff 0x1590556000 - 0x1590568fff 0x1590569000 - 0x1590569fff 0x159056a000 - 0x159056afff 0x159056b000 - 0x1590689fff 0x159068a000 - 0x159068cfff 0x159068d000 - 0x159068ffff 0x1590690000 - 0x1590694fff 0x1590695000 - 0x15906e9fff 0x15906ea000 - 0x1590d94fff 0x3fffee7000 - 0x3ffff07fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-package.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x150dd000 - 0x150fdfff 0x80000000 - 0x800bffff 0x155d818000 - 0x155d832fff 0x155d833000 - 0x155d833fff 0x155d834000 - 0x155d834fff 0x155d835000 - 0x155d836fff 0x155d837000 - 0x155d838fff 0x155d839000 - 0x155d83ffff 0x155d840000 - 0x155d840fff 0x155d841000 - 0x155d841fff 0x155d844000 - 0x155d845fff 0x155d846000 - 0x155d884fff 0x155d885000 - 0x155d886fff 0x155d887000 - 0x155d88dfff 0x155d88e000 - 0x155d88efff 0x155d88f000 - 0x155d8b4fff 0x155d8b5000 - 0x155d8b8fff 0x155d8b9000 - 0x155d8b9fff 0x155d8ba000 - 0x155d8bbfff 0x155d8bc000 - 0x155d8bcfff 0x155d8bd000 - 0x155d8bdfff 0x155d8be000 - 0x155d8befff 0x155d8bf000 - 0x155d8c2fff 0x155d8c3000 - 0x155d8c3fff 0x155d8c4000 - 0x155d8c4fff 0x155d8c5000 - 0x155d8c6fff 0x155d8c7000 - 0x155d8c7fff 0x155d8c8000 - 0x155d8c8fff 0x155d8c9000 - 0x155da34fff 0x155da35000 - 0x155da37fff 0x155da38000 - 0x155da38fff 0x155da39000 - 0x155da3bfff 0x155da3c000 - 0x155da4efff 0x155da4f000 - 0x155da4ffff 0x155da50000 - 0x155da50fff 0x155da51000 - 0x155db6ffff 0x155db70000 - 0x155db72fff 0x155db73000 - 0x155db75fff 0x155db76000 - 0x155db7afff 0x155db7b000 - 0x155dbcffff 0x155dbd0000 - 0x155e27afff 0x3fffea3000 - 0x3fffec3fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-macros.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x25391000 - 0x253b1fff 0x80000000 - 0x800bffff 0x156d984000 - 0x156d99efff 0x156d99f000 - 0x156d99ffff 0x156d9a0000 - 0x156d9a0fff 0x156d9a1000 - 0x156d9a2fff 0x156d9a3000 - 0x156d9a4fff 0x156d9a5000 - 0x156d9abfff 0x156d9ac000 - 0x156d9acfff 0x156d9ad000 - 0x156d9adfff 0x156d9b0000 - 0x156d9b1fff 0x156d9b2000 - 0x156d9f0fff 0x156d9f1000 - 0x156d9f2fff 0x156d9f3000 - 0x156d9f9fff 0x156d9fa000 - 0x156d9fafff 0x156d9fb000 - 0x156da20fff 0x156da21000 - 0x156da24fff 0x156da25000 - 0x156da25fff 0x156da26000 - 0x156da27fff 0x156da28000 - 0x156da28fff 0x156da29000 - 0x156da29fff 0x156da2a000 - 0x156da2afff 0x156da2b000 - 0x156da2efff 0x156da2f000 - 0x156da2ffff 0x156da30000 - 0x156da30fff 0x156da31000 - 0x156da32fff 0x156da33000 - 0x156da33fff 0x156da34000 - 0x156da34fff 0x156da35000 - 0x156dba0fff 0x156dba1000 - 0x156dba3fff 0x156dba4000 - 0x156dba4fff 0x156dba5000 - 0x156dba7fff 0x156dba8000 - 0x156dbbafff 0x156dbbb000 - 0x156dbbbfff 0x156dbbc000 - 0x156dbbcfff 0x156dbbd000 - 0x156dcdbfff 0x156dcdc000 - 0x156dcdefff 0x156dcdf000 - 0x156dce1fff 0x156dce2000 - 0x156dce6fff 0x156dce7000 - 0x156dd3bfff 0x156dd3c000 - 0x156e3e6fff 0x3fffb0e000 - 0x3fffb2efff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-class0.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x209f9000 - 0x20a19fff 0x80000000 - 0x800bffff 0x1593a3f000 - 0x1593a59fff 0x1593a5a000 - 0x1593a5afff 0x1593a5b000 - 0x1593a5bfff 0x1593a5c000 - 0x1593a5dfff 0x1593a5e000 - 0x1593a5ffff 0x1593a60000 - 0x1593a66fff 0x1593a67000 - 0x1593a67fff 0x1593a68000 - 0x1593a68fff 0x1593a6b000 - 0x1593a6cfff 0x1593a6d000 - 0x1593aabfff 0x1593aac000 - 0x1593aadfff 0x1593aae000 - 0x1593ab4fff 0x1593ab5000 - 0x1593ab5fff 0x1593ab6000 - 0x1593adbfff 0x1593adc000 - 0x1593adffff 0x1593ae0000 - 0x1593ae0fff 0x1593ae1000 - 0x1593ae2fff 0x1593ae3000 - 0x1593ae3fff 0x1593ae4000 - 0x1593ae4fff 0x1593ae5000 - 0x1593ae5fff 0x1593ae6000 - 0x1593ae9fff 0x1593aea000 - 0x1593aeafff 0x1593aeb000 - 0x1593aebfff 0x1593aec000 - 0x1593aedfff 0x1593aee000 - 0x1593aeefff 0x1593aef000 - 0x1593aeffff 0x1593af0000 - 0x1593c5bfff 0x1593c5c000 - 0x1593c5efff 0x1593c5f000 - 0x1593c5ffff 0x1593c60000 - 0x1593c62fff 0x1593c63000 - 0x1593c75fff 0x1593c76000 - 0x1593c76fff 0x1593c77000 - 0x1593c77fff 0x1593c78000 - 0x1593d96fff 0x1593d97000 - 0x1593d99fff 0x1593d9a000 - 0x1593d9cfff 0x1593d9d000 - 0x1593da1fff 0x1593da2000 - 0x1593df6fff 0x1593df7000 - 0x15944a1fff 0x3fff8e4000 - 0x3fff904fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-metaobject1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x39be0000 - 0x39c00fff 0x80000000 - 0x800bffff 0x1578751000 - 0x157876bfff 0x157876c000 - 0x157876cfff 0x157876d000 - 0x157876dfff 0x157876e000 - 0x157876ffff 0x1578770000 - 0x1578771fff 0x1578772000 - 0x1578778fff 0x1578779000 - 0x1578779fff 0x157877a000 - 0x157877afff 0x157877d000 - 0x157877efff 0x157877f000 - 0x15787bdfff 0x15787be000 - 0x15787bffff 0x15787c0000 - 0x15787c6fff 0x15787c7000 - 0x15787c7fff 0x15787c8000 - 0x15787edfff 0x15787ee000 - 0x15787f1fff 0x15787f2000 - 0x15787f2fff 0x15787f3000 - 0x15787f4fff 0x15787f5000 - 0x15787f5fff 0x15787f6000 - 0x15787f6fff 0x15787f7000 - 0x15787f7fff 0x15787f8000 - 0x15787fbfff 0x15787fc000 - 0x15787fcfff 0x15787fd000 - 0x15787fdfff 0x15787fe000 - 0x15787fffff 0x1578800000 - 0x1578800fff 0x1578801000 - 0x1578801fff 0x1578802000 - 0x157896dfff 0x157896e000 - 0x1578970fff 0x1578971000 - 0x1578971fff 0x1578972000 - 0x1578974fff 0x1578975000 - 0x1578987fff 0x1578988000 - 0x1578988fff 0x1578989000 - 0x1578989fff 0x157898a000 - 0x1578aa8fff 0x1578aa9000 - 0x1578aabfff 0x1578aac000 - 0x1578aaefff 0x1578aaf000 - 0x1578ab3fff 0x1578ab4000 - 0x1578b08fff 0x1578b09000 - 0x15791b3fff 0x3fffdb0000 - 0x3fffdd0fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-slotdef1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x23757000 - 0x23777fff 0x80000000 - 0x800bffff 0x1565f0d000 - 0x1565f27fff 0x1565f28000 - 0x1565f28fff 0x1565f29000 - 0x1565f29fff 0x1565f2a000 - 0x1565f2bfff 0x1565f2c000 - 0x1565f2dfff 0x1565f2e000 - 0x1565f34fff 0x1565f35000 - 0x1565f35fff 0x1565f36000 - 0x1565f36fff 0x1565f39000 - 0x1565f3afff 0x1565f3b000 - 0x1565f79fff 0x1565f7a000 - 0x1565f7bfff 0x1565f7c000 - 0x1565f82fff 0x1565f83000 - 0x1565f83fff 0x1565f84000 - 0x1565fa9fff 0x1565faa000 - 0x1565fadfff 0x1565fae000 - 0x1565faefff 0x1565faf000 - 0x1565fb0fff 0x1565fb1000 - 0x1565fb1fff 0x1565fb2000 - 0x1565fb2fff 0x1565fb3000 - 0x1565fb3fff 0x1565fb4000 - 0x1565fb7fff 0x1565fb8000 - 0x1565fb8fff 0x1565fb9000 - 0x1565fb9fff 0x1565fba000 - 0x1565fbbfff 0x1565fbc000 - 0x1565fbcfff 0x1565fbd000 - 0x1565fbdfff 0x1565fbe000 - 0x1566129fff 0x156612a000 - 0x156612cfff 0x156612d000 - 0x156612dfff 0x156612e000 - 0x1566130fff 0x1566131000 - 0x1566143fff 0x1566144000 - 0x1566144fff 0x1566145000 - 0x1566145fff 0x1566146000 - 0x1566264fff 0x1566265000 - 0x1566267fff 0x1566268000 - 0x156626afff 0x156626b000 - 0x156626ffff 0x1566270000 - 0x15662c4fff 0x15662c5000 - 0x156696ffff 0x3fff841000 - 0x3fff861fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-stablehash1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1f78000 - 0x1f98fff 0x80000000 - 0x800bffff 0x1593b0a000 - 0x1593b24fff 0x1593b25000 - 0x1593b25fff 0x1593b26000 - 0x1593b26fff 0x1593b27000 - 0x1593b28fff 0x1593b29000 - 0x1593b2afff 0x1593b2b000 - 0x1593b31fff 0x1593b32000 - 0x1593b32fff 0x1593b33000 - 0x1593b33fff 0x1593b36000 - 0x1593b37fff 0x1593b38000 - 0x1593b76fff 0x1593b77000 - 0x1593b78fff 0x1593b79000 - 0x1593b7ffff 0x1593b80000 - 0x1593b80fff 0x1593b81000 - 0x1593ba6fff 0x1593ba7000 - 0x1593baafff 0x1593bab000 - 0x1593babfff 0x1593bac000 - 0x1593badfff 0x1593bae000 - 0x1593baefff 0x1593baf000 - 0x1593baffff 0x1593bb0000 - 0x1593bb0fff 0x1593bb1000 - 0x1593bb4fff 0x1593bb5000 - 0x1593bb5fff 0x1593bb6000 - 0x1593bb6fff 0x1593bb7000 - 0x1593bb8fff 0x1593bb9000 - 0x1593bb9fff 0x1593bba000 - 0x1593bbafff 0x1593bbb000 - 0x1593d26fff 0x1593d27000 - 0x1593d29fff 0x1593d2a000 - 0x1593d2afff 0x1593d2b000 - 0x1593d2dfff 0x1593d2e000 - 0x1593d40fff 0x1593d41000 - 0x1593d41fff 0x1593d42000 - 0x1593d42fff 0x1593d43000 - 0x1593e61fff 0x1593e62000 - 0x1593e64fff 0x1593e65000 - 0x1593e67fff 0x1593e68000 - 0x1593e6cfff 0x1593e6d000 - 0x1593ec1fff 0x1593ec2000 - 0x159456cfff 0x3fff7fe000 - 0x3fff81efff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-specializer1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3a0e4000 - 0x3a104fff 0x80000000 - 0x800bffff 0x158bd7f000 - 0x158bd99fff 0x158bd9a000 - 0x158bd9afff 0x158bd9b000 - 0x158bd9bfff 0x158bd9c000 - 0x158bd9dfff 0x158bd9e000 - 0x158bd9ffff 0x158bda0000 - 0x158bda6fff 0x158bda7000 - 0x158bda7fff 0x158bda8000 - 0x158bda8fff 0x158bdab000 - 0x158bdacfff 0x158bdad000 - 0x158bdebfff 0x158bdec000 - 0x158bdedfff 0x158bdee000 - 0x158bdf4fff 0x158bdf5000 - 0x158bdf5fff 0x158bdf6000 - 0x158be1bfff 0x158be1c000 - 0x158be1ffff 0x158be20000 - 0x158be20fff 0x158be21000 - 0x158be22fff 0x158be23000 - 0x158be23fff 0x158be24000 - 0x158be24fff 0x158be25000 - 0x158be25fff 0x158be26000 - 0x158be29fff 0x158be2a000 - 0x158be2afff 0x158be2b000 - 0x158be2bfff 0x158be2c000 - 0x158be2dfff 0x158be2e000 - 0x158be2efff 0x158be2f000 - 0x158be2ffff 0x158be30000 - 0x158bf9bfff 0x158bf9c000 - 0x158bf9efff 0x158bf9f000 - 0x158bf9ffff 0x158bfa0000 - 0x158bfa2fff 0x158bfa3000 - 0x158bfb5fff 0x158bfb6000 - 0x158bfb6fff 0x158bfb7000 - 0x158bfb7fff 0x158bfb8000 - 0x158c0d6fff 0x158c0d7000 - 0x158c0d9fff 0x158c0da000 - 0x158c0dcfff 0x158c0dd000 - 0x158c0e1fff 0x158c0e2000 - 0x158c136fff 0x158c137000 - 0x158c7e1fff 0x3fffd26000 - 0x3fffd46fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-class1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x333e1000 - 0x33401fff 0x80000000 - 0x800bffff 0x158da38000 - 0x158da52fff 0x158da53000 - 0x158da53fff 0x158da54000 - 0x158da54fff 0x158da55000 - 0x158da56fff 0x158da57000 - 0x158da58fff 0x158da59000 - 0x158da5ffff 0x158da60000 - 0x158da60fff 0x158da61000 - 0x158da61fff 0x158da64000 - 0x158da65fff 0x158da66000 - 0x158daa4fff 0x158daa5000 - 0x158daa6fff 0x158daa7000 - 0x158daadfff 0x158daae000 - 0x158daaefff 0x158daaf000 - 0x158dad4fff 0x158dad5000 - 0x158dad8fff 0x158dad9000 - 0x158dad9fff 0x158dada000 - 0x158dadbfff 0x158dadc000 - 0x158dadcfff 0x158dadd000 - 0x158daddfff 0x158dade000 - 0x158dadefff 0x158dadf000 - 0x158dae2fff 0x158dae3000 - 0x158dae3fff 0x158dae4000 - 0x158dae4fff 0x158dae5000 - 0x158dae6fff 0x158dae7000 - 0x158dae7fff 0x158dae8000 - 0x158dae8fff 0x158dae9000 - 0x158dc54fff 0x158dc55000 - 0x158dc57fff 0x158dc58000 - 0x158dc58fff 0x158dc59000 - 0x158dc5bfff 0x158dc5c000 - 0x158dc6efff 0x158dc6f000 - 0x158dc6ffff 0x158dc70000 - 0x158dc70fff 0x158dc71000 - 0x158dd8ffff 0x158dd90000 - 0x158dd92fff 0x158dd93000 - 0x158dd95fff 0x158dd96000 - 0x158dd9afff 0x158dd9b000 - 0x158ddeffff 0x158ddf0000 - 0x158e49afff 0x3ffffce000 - 0x3ffffeefff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-class2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x24e7e000 - 0x24e9efff 0x80000000 - 0x800bffff 0x157d94e000 - 0x157d968fff 0x157d969000 - 0x157d969fff 0x157d96a000 - 0x157d96afff 0x157d96b000 - 0x157d96cfff 0x157d96d000 - 0x157d96efff 0x157d96f000 - 0x157d975fff 0x157d976000 - 0x157d976fff 0x157d977000 - 0x157d977fff 0x157d97a000 - 0x157d97bfff 0x157d97c000 - 0x157d9bafff 0x157d9bb000 - 0x157d9bcfff 0x157d9bd000 - 0x157d9c3fff 0x157d9c4000 - 0x157d9c4fff 0x157d9c5000 - 0x157d9eafff 0x157d9eb000 - 0x157d9eefff 0x157d9ef000 - 0x157d9effff 0x157d9f0000 - 0x157d9f1fff 0x157d9f2000 - 0x157d9f2fff 0x157d9f3000 - 0x157d9f3fff 0x157d9f4000 - 0x157d9f4fff 0x157d9f5000 - 0x157d9f8fff 0x157d9f9000 - 0x157d9f9fff 0x157d9fa000 - 0x157d9fafff 0x157d9fb000 - 0x157d9fcfff 0x157d9fd000 - 0x157d9fdfff 0x157d9fe000 - 0x157d9fefff 0x157d9ff000 - 0x157db6afff 0x157db6b000 - 0x157db6dfff 0x157db6e000 - 0x157db6efff 0x157db6f000 - 0x157db71fff 0x157db72000 - 0x157db84fff 0x157db85000 - 0x157db85fff 0x157db86000 - 0x157db86fff 0x157db87000 - 0x157dca5fff 0x157dca6000 - 0x157dca8fff 0x157dca9000 - 0x157dcabfff 0x157dcac000 - 0x157dcb0fff 0x157dcb1000 - 0x157dd05fff 0x157dd06000 - 0x157e3b0fff 0x3fffee0000 - 0x3ffff00fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-class3.lisp ... WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x321dc000 - 0x321fcfff 0x80000000 - 0x800bffff 0x157e882000 - 0x157e89cfff 0x157e89d000 - 0x157e89dfff 0x157e89e000 - 0x157e89efff 0x157e89f000 - 0x157e8a0fff 0x157e8a1000 - 0x157e8a2fff 0x157e8a3000 - 0x157e8a9fff 0x157e8aa000 - 0x157e8aafff 0x157e8ab000 - 0x157e8abfff 0x157e8ae000 - 0x157e8affff 0x157e8b0000 - 0x157e8eefff 0x157e8ef000 - 0x157e8f0fff 0x157e8f1000 - 0x157e8f7fff 0x157e8f8000 - 0x157e8f8fff 0x157e8f9000 - 0x157e91efff 0x157e91f000 - 0x157e922fff 0x157e923000 - 0x157e923fff 0x157e924000 - 0x157e925fff 0x157e926000 - 0x157e926fff 0x157e927000 - 0x157e927fff 0x157e928000 - 0x157e928fff 0x157e929000 - 0x157e92cfff 0x157e92d000 - 0x157e92dfff 0x157e92e000 - 0x157e92efff 0x157e92f000 - 0x157e930fff 0x157e931000 - 0x157e931fff 0x157e932000 - 0x157e932fff 0x157e933000 - 0x157ea9efff 0x157ea9f000 - 0x157eaa1fff 0x157eaa2000 - 0x157eaa2fff 0x157eaa3000 - 0x157eaa5fff 0x157eaa6000 - 0x157eab8fff 0x157eab9000 - 0x157eab9fff 0x157eaba000 - 0x157eabafff 0x157eabb000 - 0x157ebd9fff 0x157ebda000 - 0x157ebdcfff 0x157ebdd000 - 0x157ebdffff 0x157ebe0000 - 0x157ebe4fff 0x157ebe5000 - 0x157ec39fff 0x157ec3a000 - 0x157f2e4fff 0x3ffff6a000 - 0x3ffff8afff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/defstruct.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2551e000 - 0x2553efff 0x80000000 - 0x800bffff 0x155fa5a000 - 0x155fa74fff 0x155fa75000 - 0x155fa75fff 0x155fa76000 - 0x155fa76fff 0x155fa77000 - 0x155fa78fff 0x155fa79000 - 0x155fa7afff 0x155fa7b000 - 0x155fa81fff 0x155fa82000 - 0x155fa82fff 0x155fa83000 - 0x155fa83fff 0x155fa86000 - 0x155fa87fff 0x155fa88000 - 0x155fac6fff 0x155fac7000 - 0x155fac8fff 0x155fac9000 - 0x155facffff 0x155fad0000 - 0x155fad0fff 0x155fad1000 - 0x155faf6fff 0x155faf7000 - 0x155fafafff 0x155fafb000 - 0x155fafbfff 0x155fafc000 - 0x155fafdfff 0x155fafe000 - 0x155fafefff 0x155faff000 - 0x155fafffff 0x155fb00000 - 0x155fb00fff 0x155fb01000 - 0x155fb04fff 0x155fb05000 - 0x155fb05fff 0x155fb06000 - 0x155fb06fff 0x155fb07000 - 0x155fb08fff 0x155fb09000 - 0x155fb09fff 0x155fb0a000 - 0x155fb0afff 0x155fb0b000 - 0x155fc76fff 0x155fc77000 - 0x155fc79fff 0x155fc7a000 - 0x155fc7afff 0x155fc7b000 - 0x155fc7dfff 0x155fc7e000 - 0x155fc90fff 0x155fc91000 - 0x155fc91fff 0x155fc92000 - 0x155fc92fff 0x155fc93000 - 0x155fdb1fff 0x155fdb2000 - 0x155fdb4fff 0x155fdb5000 - 0x155fdb7fff 0x155fdb8000 - 0x155fdbcfff 0x155fdbd000 - 0x155fe11fff 0x155fe12000 - 0x15604bcfff 0x3fffcd7000 - 0x3fffcf7fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1ad9c000 - 0x1adbcfff 0x80000000 - 0x800bffff 0x158e009000 - 0x158e023fff 0x158e024000 - 0x158e024fff 0x158e025000 - 0x158e025fff 0x158e026000 - 0x158e027fff 0x158e028000 - 0x158e029fff 0x158e02a000 - 0x158e030fff 0x158e031000 - 0x158e031fff 0x158e032000 - 0x158e032fff 0x158e035000 - 0x158e036fff 0x158e037000 - 0x158e075fff 0x158e076000 - 0x158e077fff 0x158e078000 - 0x158e07efff 0x158e07f000 - 0x158e07ffff 0x158e080000 - 0x158e0a5fff 0x158e0a6000 - 0x158e0a9fff 0x158e0aa000 - 0x158e0aafff 0x158e0ab000 - 0x158e0acfff 0x158e0ad000 - 0x158e0adfff 0x158e0ae000 - 0x158e0aefff 0x158e0af000 - 0x158e0affff 0x158e0b0000 - 0x158e0b3fff 0x158e0b4000 - 0x158e0b4fff 0x158e0b5000 - 0x158e0b5fff 0x158e0b6000 - 0x158e0b7fff 0x158e0b8000 - 0x158e0b8fff 0x158e0b9000 - 0x158e0b9fff 0x158e0ba000 - 0x158e225fff 0x158e226000 - 0x158e228fff 0x158e229000 - 0x158e229fff 0x158e22a000 - 0x158e22cfff 0x158e22d000 - 0x158e23ffff 0x158e240000 - 0x158e240fff 0x158e241000 - 0x158e241fff 0x158e242000 - 0x158e360fff 0x158e361000 - 0x158e363fff 0x158e364000 - 0x158e366fff 0x158e367000 - 0x158e36bfff 0x158e36c000 - 0x158e3c0fff 0x158e3c1000 - 0x158ea6bfff 0x3fffd0c000 - 0x3fffd2cfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/international.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3e215000 - 0x3e235fff 0x80000000 - 0x800bffff 0x158b6ae000 - 0x158b6c8fff 0x158b6c9000 - 0x158b6c9fff 0x158b6ca000 - 0x158b6cafff 0x158b6cb000 - 0x158b6ccfff 0x158b6cd000 - 0x158b6cefff 0x158b6cf000 - 0x158b6d5fff 0x158b6d6000 - 0x158b6d6fff 0x158b6d7000 - 0x158b6d7fff 0x158b6da000 - 0x158b6dbfff 0x158b6dc000 - 0x158b71afff 0x158b71b000 - 0x158b71cfff 0x158b71d000 - 0x158b723fff 0x158b724000 - 0x158b724fff 0x158b725000 - 0x158b74afff 0x158b74b000 - 0x158b74efff 0x158b74f000 - 0x158b74ffff 0x158b750000 - 0x158b751fff 0x158b752000 - 0x158b752fff 0x158b753000 - 0x158b753fff 0x158b754000 - 0x158b754fff 0x158b755000 - 0x158b758fff 0x158b759000 - 0x158b759fff 0x158b75a000 - 0x158b75afff 0x158b75b000 - 0x158b75cfff 0x158b75d000 - 0x158b75dfff 0x158b75e000 - 0x158b75efff 0x158b75f000 - 0x158b8cafff 0x158b8cb000 - 0x158b8cdfff 0x158b8ce000 - 0x158b8cefff 0x158b8cf000 - 0x158b8d1fff 0x158b8d2000 - 0x158b8e4fff 0x158b8e5000 - 0x158b8e5fff 0x158b8e6000 - 0x158b8e6fff 0x158b8e7000 - 0x158ba05fff 0x158ba06000 - 0x158ba08fff 0x158ba09000 - 0x158ba0bfff 0x158ba0c000 - 0x158ba10fff 0x158ba11000 - 0x158ba65fff 0x158ba66000 - 0x158c110fff 0x3fff9ca000 - 0x3fff9eafff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x18804000 - 0x18824fff 0x80000000 - 0x800bffff 0x1568096000 - 0x15680b0fff 0x15680b1000 - 0x15680b1fff 0x15680b2000 - 0x15680b2fff 0x15680b3000 - 0x15680b4fff 0x15680b5000 - 0x15680b6fff 0x15680b7000 - 0x15680bdfff 0x15680be000 - 0x15680befff 0x15680bf000 - 0x15680bffff 0x15680c2000 - 0x15680c3fff 0x15680c4000 - 0x1568102fff 0x1568103000 - 0x1568104fff 0x1568105000 - 0x156810bfff 0x156810c000 - 0x156810cfff 0x156810d000 - 0x1568132fff 0x1568133000 - 0x1568136fff 0x1568137000 - 0x1568137fff 0x1568138000 - 0x1568139fff 0x156813a000 - 0x156813afff 0x156813b000 - 0x156813bfff 0x156813c000 - 0x156813cfff 0x156813d000 - 0x1568140fff 0x1568141000 - 0x1568141fff 0x1568142000 - 0x1568142fff 0x1568143000 - 0x1568144fff 0x1568145000 - 0x1568145fff 0x1568146000 - 0x1568146fff 0x1568147000 - 0x15682b2fff 0x15682b3000 - 0x15682b5fff 0x15682b6000 - 0x15682b6fff 0x15682b7000 - 0x15682b9fff 0x15682ba000 - 0x15682ccfff 0x15682cd000 - 0x15682cdfff 0x15682ce000 - 0x15682cefff 0x15682cf000 - 0x15683edfff 0x15683ee000 - 0x15683f0fff 0x15683f1000 - 0x15683f3fff 0x15683f4000 - 0x15683f8fff 0x15683f9000 - 0x156844dfff 0x156844e000 - 0x1568af8fff 0x3fffd6f000 - 0x3fffd8ffff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/functions.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x36ffd000 - 0x3701dfff 0x80000000 - 0x800bffff 0x155607a000 - 0x1556094fff 0x1556095000 - 0x1556095fff 0x1556096000 - 0x1556096fff 0x1556097000 - 0x1556098fff 0x1556099000 - 0x155609afff 0x155609b000 - 0x15560a1fff 0x15560a2000 - 0x15560a2fff 0x15560a3000 - 0x15560a3fff 0x15560a6000 - 0x15560a7fff 0x15560a8000 - 0x15560e6fff 0x15560e7000 - 0x15560e8fff 0x15560e9000 - 0x15560effff 0x15560f0000 - 0x15560f0fff 0x15560f1000 - 0x1556116fff 0x1556117000 - 0x155611afff 0x155611b000 - 0x155611bfff 0x155611c000 - 0x155611dfff 0x155611e000 - 0x155611efff 0x155611f000 - 0x155611ffff 0x1556120000 - 0x1556120fff 0x1556121000 - 0x1556124fff 0x1556125000 - 0x1556125fff 0x1556126000 - 0x1556126fff 0x1556127000 - 0x1556128fff 0x1556129000 - 0x1556129fff 0x155612a000 - 0x155612afff 0x155612b000 - 0x1556296fff 0x1556297000 - 0x1556299fff 0x155629a000 - 0x155629afff 0x155629b000 - 0x155629dfff 0x155629e000 - 0x15562b0fff 0x15562b1000 - 0x15562b1fff 0x15562b2000 - 0x15562b2fff 0x15562b3000 - 0x15563d1fff 0x15563d2000 - 0x15563d4fff 0x15563d5000 - 0x15563d7fff 0x15563d8000 - 0x15563dcfff 0x15563dd000 - 0x1556431fff 0x1556432000 - 0x1556adcfff 0x3fff84a000 - 0x3fff86afff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/trace.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x15876000 - 0x15896fff 0x80000000 - 0x800bffff 0x155cc55000 - 0x155cc6ffff 0x155cc70000 - 0x155cc70fff 0x155cc71000 - 0x155cc71fff 0x155cc72000 - 0x155cc73fff 0x155cc74000 - 0x155cc75fff 0x155cc76000 - 0x155cc7cfff 0x155cc7d000 - 0x155cc7dfff 0x155cc7e000 - 0x155cc7efff 0x155cc81000 - 0x155cc82fff 0x155cc83000 - 0x155ccc1fff 0x155ccc2000 - 0x155ccc3fff 0x155ccc4000 - 0x155cccafff 0x155cccb000 - 0x155cccbfff 0x155cccc000 - 0x155ccf1fff 0x155ccf2000 - 0x155ccf5fff 0x155ccf6000 - 0x155ccf6fff 0x155ccf7000 - 0x155ccf8fff 0x155ccf9000 - 0x155ccf9fff 0x155ccfa000 - 0x155ccfafff 0x155ccfb000 - 0x155ccfbfff 0x155ccfc000 - 0x155ccfffff 0x155cd00000 - 0x155cd00fff 0x155cd01000 - 0x155cd01fff 0x155cd02000 - 0x155cd03fff 0x155cd04000 - 0x155cd04fff 0x155cd05000 - 0x155cd05fff 0x155cd06000 - 0x155ce71fff 0x155ce72000 - 0x155ce74fff 0x155ce75000 - 0x155ce75fff 0x155ce76000 - 0x155ce78fff 0x155ce79000 - 0x155ce8bfff 0x155ce8c000 - 0x155ce8cfff 0x155ce8d000 - 0x155ce8dfff 0x155ce8e000 - 0x155cfacfff 0x155cfad000 - 0x155cfaffff 0x155cfb0000 - 0x155cfb2fff 0x155cfb3000 - 0x155cfb7fff 0x155cfb8000 - 0x155d00cfff 0x155d00d000 - 0x155d6b7fff 0x3fffb18000 - 0x3fffb38fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/cmacros.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x34d30000 - 0x34d50fff 0x80000000 - 0x800bffff 0x15821cc000 - 0x15821e6fff 0x15821e7000 - 0x15821e7fff 0x15821e8000 - 0x15821e8fff 0x15821e9000 - 0x15821eafff 0x15821eb000 - 0x15821ecfff 0x15821ed000 - 0x15821f3fff 0x15821f4000 - 0x15821f4fff 0x15821f5000 - 0x15821f5fff 0x15821f8000 - 0x15821f9fff 0x15821fa000 - 0x1582238fff 0x1582239000 - 0x158223afff 0x158223b000 - 0x1582241fff 0x1582242000 - 0x1582242fff 0x1582243000 - 0x1582268fff 0x1582269000 - 0x158226cfff 0x158226d000 - 0x158226dfff 0x158226e000 - 0x158226ffff 0x1582270000 - 0x1582270fff 0x1582271000 - 0x1582271fff 0x1582272000 - 0x1582272fff 0x1582273000 - 0x1582276fff 0x1582277000 - 0x1582277fff 0x1582278000 - 0x1582278fff 0x1582279000 - 0x158227afff 0x158227b000 - 0x158227bfff 0x158227c000 - 0x158227cfff 0x158227d000 - 0x15823e8fff 0x15823e9000 - 0x15823ebfff 0x15823ec000 - 0x15823ecfff 0x15823ed000 - 0x15823effff 0x15823f0000 - 0x1582402fff 0x1582403000 - 0x1582403fff 0x1582404000 - 0x1582404fff 0x1582405000 - 0x1582523fff 0x1582524000 - 0x1582526fff 0x1582527000 - 0x1582529fff 0x158252a000 - 0x158252efff 0x158252f000 - 0x1582583fff 0x1582584000 - 0x1582c2efff 0x3fffef9000 - 0x3ffff19fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/defs2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1db98000 - 0x1dbb8fff 0x80000000 - 0x800bffff 0x158c0d5000 - 0x158c0effff 0x158c0f0000 - 0x158c0f0fff 0x158c0f1000 - 0x158c0f1fff 0x158c0f2000 - 0x158c0f3fff 0x158c0f4000 - 0x158c0f5fff 0x158c0f6000 - 0x158c0fcfff 0x158c0fd000 - 0x158c0fdfff 0x158c0fe000 - 0x158c0fefff 0x158c101000 - 0x158c102fff 0x158c103000 - 0x158c141fff 0x158c142000 - 0x158c143fff 0x158c144000 - 0x158c14afff 0x158c14b000 - 0x158c14bfff 0x158c14c000 - 0x158c171fff 0x158c172000 - 0x158c175fff 0x158c176000 - 0x158c176fff 0x158c177000 - 0x158c178fff 0x158c179000 - 0x158c179fff 0x158c17a000 - 0x158c17afff 0x158c17b000 - 0x158c17bfff 0x158c17c000 - 0x158c17ffff 0x158c180000 - 0x158c180fff 0x158c181000 - 0x158c181fff 0x158c182000 - 0x158c183fff 0x158c184000 - 0x158c184fff 0x158c185000 - 0x158c185fff 0x158c186000 - 0x158c2f1fff 0x158c2f2000 - 0x158c2f4fff 0x158c2f5000 - 0x158c2f5fff 0x158c2f6000 - 0x158c2f8fff 0x158c2f9000 - 0x158c30bfff 0x158c30c000 - 0x158c30cfff 0x158c30d000 - 0x158c30dfff 0x158c30e000 - 0x158c42cfff 0x158c42d000 - 0x158c42ffff 0x158c430000 - 0x158c432fff 0x158c433000 - 0x158c437fff 0x158c438000 - 0x158c48cfff 0x158c48d000 - 0x158cb37fff 0x3fffd70000 - 0x3fffd90fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/loop.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x289f4000 - 0x28a14fff 0x80000000 - 0x800bffff 0x1586eb3000 - 0x1586ecdfff 0x1586ece000 - 0x1586ecefff 0x1586ecf000 - 0x1586ecffff 0x1586ed0000 - 0x1586ed1fff 0x1586ed2000 - 0x1586ed3fff 0x1586ed4000 - 0x1586edafff 0x1586edb000 - 0x1586edbfff 0x1586edc000 - 0x1586edcfff 0x1586edf000 - 0x1586ee0fff 0x1586ee1000 - 0x1586f1ffff 0x1586f20000 - 0x1586f21fff 0x1586f22000 - 0x1586f28fff 0x1586f29000 - 0x1586f29fff 0x1586f2a000 - 0x1586f4ffff 0x1586f50000 - 0x1586f53fff 0x1586f54000 - 0x1586f54fff 0x1586f55000 - 0x1586f56fff 0x1586f57000 - 0x1586f57fff 0x1586f58000 - 0x1586f58fff 0x1586f59000 - 0x1586f59fff 0x1586f5a000 - 0x1586f5dfff 0x1586f5e000 - 0x1586f5efff 0x1586f5f000 - 0x1586f5ffff 0x1586f60000 - 0x1586f61fff 0x1586f62000 - 0x1586f62fff 0x1586f63000 - 0x1586f63fff 0x1586f64000 - 0x15870cffff 0x15870d0000 - 0x15870d2fff 0x15870d3000 - 0x15870d3fff 0x15870d4000 - 0x15870d6fff 0x15870d7000 - 0x15870e9fff 0x15870ea000 - 0x15870eafff 0x15870eb000 - 0x15870ebfff 0x15870ec000 - 0x158720afff 0x158720b000 - 0x158720dfff 0x158720e000 - 0x1587210fff 0x1587211000 - 0x1587215fff 0x1587216000 - 0x158726afff 0x158726b000 - 0x1587915fff 0x3fff99b000 - 0x3fff9bbfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x246e3000 - 0x24703fff 0x80000000 - 0x800bffff 0x1565177000 - 0x1565191fff 0x1565192000 - 0x1565192fff 0x1565193000 - 0x1565193fff 0x1565194000 - 0x1565195fff 0x1565196000 - 0x1565197fff 0x1565198000 - 0x156519efff 0x156519f000 - 0x156519ffff 0x15651a0000 - 0x15651a0fff 0x15651a3000 - 0x15651a4fff 0x15651a5000 - 0x15651e3fff 0x15651e4000 - 0x15651e5fff 0x15651e6000 - 0x15651ecfff 0x15651ed000 - 0x15651edfff 0x15651ee000 - 0x1565213fff 0x1565214000 - 0x1565217fff 0x1565218000 - 0x1565218fff 0x1565219000 - 0x156521afff 0x156521b000 - 0x156521bfff 0x156521c000 - 0x156521cfff 0x156521d000 - 0x156521dfff 0x156521e000 - 0x1565221fff 0x1565222000 - 0x1565222fff 0x1565223000 - 0x1565223fff 0x1565224000 - 0x1565225fff 0x1565226000 - 0x1565226fff 0x1565227000 - 0x1565227fff 0x1565228000 - 0x1565393fff 0x1565394000 - 0x1565396fff 0x1565397000 - 0x1565397fff 0x1565398000 - 0x156539afff 0x156539b000 - 0x15653adfff 0x15653ae000 - 0x15653aefff 0x15653af000 - 0x15653affff 0x15653b0000 - 0x15654cefff 0x15654cf000 - 0x15654d1fff 0x15654d2000 - 0x15654d4fff 0x15654d5000 - 0x15654d9fff 0x15654da000 - 0x156552efff 0x156552f000 - 0x1565bd9fff 0x3fffe0a000 - 0x3fffe2afff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-stablehash2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2c974000 - 0x2c994fff 0x80000000 - 0x800bffff 0x1592a58000 - 0x1592a72fff 0x1592a73000 - 0x1592a73fff 0x1592a74000 - 0x1592a74fff 0x1592a75000 - 0x1592a76fff 0x1592a77000 - 0x1592a78fff 0x1592a79000 - 0x1592a7ffff 0x1592a80000 - 0x1592a80fff 0x1592a81000 - 0x1592a81fff 0x1592a84000 - 0x1592a85fff 0x1592a86000 - 0x1592ac4fff 0x1592ac5000 - 0x1592ac6fff 0x1592ac7000 - 0x1592acdfff 0x1592ace000 - 0x1592acefff 0x1592acf000 - 0x1592af4fff 0x1592af5000 - 0x1592af8fff 0x1592af9000 - 0x1592af9fff 0x1592afa000 - 0x1592afbfff 0x1592afc000 - 0x1592afcfff 0x1592afd000 - 0x1592afdfff 0x1592afe000 - 0x1592afefff 0x1592aff000 - 0x1592b02fff 0x1592b03000 - 0x1592b03fff 0x1592b04000 - 0x1592b04fff 0x1592b05000 - 0x1592b06fff 0x1592b07000 - 0x1592b07fff 0x1592b08000 - 0x1592b08fff 0x1592b09000 - 0x1592c74fff 0x1592c75000 - 0x1592c77fff 0x1592c78000 - 0x1592c78fff 0x1592c79000 - 0x1592c7bfff 0x1592c7c000 - 0x1592c8efff 0x1592c8f000 - 0x1592c8ffff 0x1592c90000 - 0x1592c90fff 0x1592c91000 - 0x1592daffff 0x1592db0000 - 0x1592db2fff 0x1592db3000 - 0x1592db5fff 0x1592db6000 - 0x1592dbafff 0x1592dbb000 - 0x1592e0ffff 0x1592e10000 - 0x15934bafff 0x3fff967000 - 0x3fff987fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-specializer2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3ce30000 - 0x3ce50fff 0x80000000 - 0x800bffff 0x1584074000 - 0x158408efff 0x158408f000 - 0x158408ffff 0x1584090000 - 0x1584090fff 0x1584091000 - 0x1584092fff 0x1584093000 - 0x1584094fff 0x1584095000 - 0x158409bfff 0x158409c000 - 0x158409cfff 0x158409d000 - 0x158409dfff 0x15840a0000 - 0x15840a1fff 0x15840a2000 - 0x15840e0fff 0x15840e1000 - 0x15840e2fff 0x15840e3000 - 0x15840e9fff 0x15840ea000 - 0x15840eafff 0x15840eb000 - 0x1584110fff 0x1584111000 - 0x1584114fff 0x1584115000 - 0x1584115fff 0x1584116000 - 0x1584117fff 0x1584118000 - 0x1584118fff 0x1584119000 - 0x1584119fff 0x158411a000 - 0x158411afff 0x158411b000 - 0x158411efff 0x158411f000 - 0x158411ffff 0x1584120000 - 0x1584120fff 0x1584121000 - 0x1584122fff 0x1584123000 - 0x1584123fff 0x1584124000 - 0x1584124fff 0x1584125000 - 0x1584290fff 0x1584291000 - 0x1584293fff 0x1584294000 - 0x1584294fff 0x1584295000 - 0x1584297fff 0x1584298000 - 0x15842aafff 0x15842ab000 - 0x15842abfff 0x15842ac000 - 0x15842acfff 0x15842ad000 - 0x15843cbfff 0x15843cc000 - 0x15843cefff 0x15843cf000 - 0x15843d1fff 0x15843d2000 - 0x15843d6fff 0x15843d7000 - 0x158442bfff 0x158442c000 - 0x1584ad6fff 0x3fff9a0000 - 0x3fff9c0fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-specializer3.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x16d60000 - 0x16d80fff 0x80000000 - 0x800bffff 0x15718cb000 - 0x15718e5fff 0x15718e6000 - 0x15718e6fff 0x15718e7000 - 0x15718e7fff 0x15718e8000 - 0x15718e9fff 0x15718ea000 - 0x15718ebfff 0x15718ec000 - 0x15718f2fff 0x15718f3000 - 0x15718f3fff 0x15718f4000 - 0x15718f4fff 0x15718f7000 - 0x15718f8fff 0x15718f9000 - 0x1571937fff 0x1571938000 - 0x1571939fff 0x157193a000 - 0x1571940fff 0x1571941000 - 0x1571941fff 0x1571942000 - 0x1571967fff 0x1571968000 - 0x157196bfff 0x157196c000 - 0x157196cfff 0x157196d000 - 0x157196efff 0x157196f000 - 0x157196ffff 0x1571970000 - 0x1571970fff 0x1571971000 - 0x1571971fff 0x1571972000 - 0x1571975fff 0x1571976000 - 0x1571976fff 0x1571977000 - 0x1571977fff 0x1571978000 - 0x1571979fff 0x157197a000 - 0x157197afff 0x157197b000 - 0x157197bfff 0x157197c000 - 0x1571ae7fff 0x1571ae8000 - 0x1571aeafff 0x1571aeb000 - 0x1571aebfff 0x1571aec000 - 0x1571aeefff 0x1571aef000 - 0x1571b01fff 0x1571b02000 - 0x1571b02fff 0x1571b03000 - 0x1571b03fff 0x1571b04000 - 0x1571c22fff 0x1571c23000 - 0x1571c25fff 0x1571c26000 - 0x1571c28fff 0x1571c29000 - 0x1571c2dfff 0x1571c2e000 - 0x1571c82fff 0x1571c83000 - 0x157232dfff 0x3fffe06000 - 0x3fffe26fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-class4.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x66c2000 - 0x66e2fff 0x80000000 - 0x800bffff 0x156e547000 - 0x156e561fff 0x156e562000 - 0x156e562fff 0x156e563000 - 0x156e563fff 0x156e564000 - 0x156e565fff 0x156e566000 - 0x156e567fff 0x156e568000 - 0x156e56efff 0x156e56f000 - 0x156e56ffff 0x156e570000 - 0x156e570fff 0x156e573000 - 0x156e574fff 0x156e575000 - 0x156e5b3fff 0x156e5b4000 - 0x156e5b5fff 0x156e5b6000 - 0x156e5bcfff 0x156e5bd000 - 0x156e5bdfff 0x156e5be000 - 0x156e5e3fff 0x156e5e4000 - 0x156e5e7fff 0x156e5e8000 - 0x156e5e8fff 0x156e5e9000 - 0x156e5eafff 0x156e5eb000 - 0x156e5ebfff 0x156e5ec000 - 0x156e5ecfff 0x156e5ed000 - 0x156e5edfff 0x156e5ee000 - 0x156e5f1fff 0x156e5f2000 - 0x156e5f2fff 0x156e5f3000 - 0x156e5f3fff 0x156e5f4000 - 0x156e5f5fff 0x156e5f6000 - 0x156e5f6fff 0x156e5f7000 - 0x156e5f7fff 0x156e5f8000 - 0x156e763fff 0x156e764000 - 0x156e766fff 0x156e767000 - 0x156e767fff 0x156e768000 - 0x156e76afff 0x156e76b000 - 0x156e77dfff 0x156e77e000 - 0x156e77efff 0x156e77f000 - 0x156e77ffff 0x156e780000 - 0x156e89efff 0x156e89f000 - 0x156e8a1fff 0x156e8a2000 - 0x156e8a4fff 0x156e8a5000 - 0x156e8a9fff 0x156e8aa000 - 0x156e8fefff 0x156e8ff000 - 0x156efa9fff 0x3fff8e5000 - 0x3fff905fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-class5.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3ad4000 - 0x3af4fff 0x80000000 - 0x800bffff 0x1555639000 - 0x1555653fff 0x1555654000 - 0x1555654fff 0x1555655000 - 0x1555655fff 0x1555656000 - 0x1555657fff 0x1555658000 - 0x1555659fff 0x155565a000 - 0x1555660fff 0x1555661000 - 0x1555661fff 0x1555662000 - 0x1555662fff 0x1555665000 - 0x1555666fff 0x1555667000 - 0x15556a5fff 0x15556a6000 - 0x15556a7fff 0x15556a8000 - 0x15556aefff 0x15556af000 - 0x15556affff 0x15556b0000 - 0x15556d5fff 0x15556d6000 - 0x15556d9fff 0x15556da000 - 0x15556dafff 0x15556db000 - 0x15556dcfff 0x15556dd000 - 0x15556ddfff 0x15556de000 - 0x15556defff 0x15556df000 - 0x15556dffff 0x15556e0000 - 0x15556e3fff 0x15556e4000 - 0x15556e4fff 0x15556e5000 - 0x15556e5fff 0x15556e6000 - 0x15556e7fff 0x15556e8000 - 0x15556e8fff 0x15556e9000 - 0x15556e9fff 0x15556ea000 - 0x1555855fff 0x1555856000 - 0x1555858fff 0x1555859000 - 0x1555859fff 0x155585a000 - 0x155585cfff 0x155585d000 - 0x155586ffff 0x1555870000 - 0x1555870fff 0x1555871000 - 0x1555871fff 0x1555872000 - 0x1555990fff 0x1555991000 - 0x1555993fff 0x1555994000 - 0x1555996fff 0x1555997000 - 0x155599bfff 0x155599c000 - 0x15559f0fff 0x15559f1000 - 0x155609bfff 0x3fffbbd000 - 0x3fffbddfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-class6.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0xcd31000 - 0xcd51fff 0x80000000 - 0x800bffff 0x1591682000 - 0x159169cfff 0x159169d000 - 0x159169dfff 0x159169e000 - 0x159169efff 0x159169f000 - 0x15916a0fff 0x15916a1000 - 0x15916a2fff 0x15916a3000 - 0x15916a9fff 0x15916aa000 - 0x15916aafff 0x15916ab000 - 0x15916abfff 0x15916ae000 - 0x15916affff 0x15916b0000 - 0x15916eefff 0x15916ef000 - 0x15916f0fff 0x15916f1000 - 0x15916f7fff 0x15916f8000 - 0x15916f8fff 0x15916f9000 - 0x159171efff 0x159171f000 - 0x1591722fff 0x1591723000 - 0x1591723fff 0x1591724000 - 0x1591725fff 0x1591726000 - 0x1591726fff 0x1591727000 - 0x1591727fff 0x1591728000 - 0x1591728fff 0x1591729000 - 0x159172cfff 0x159172d000 - 0x159172dfff 0x159172e000 - 0x159172efff 0x159172f000 - 0x1591730fff 0x1591731000 - 0x1591731fff 0x1591732000 - 0x1591732fff 0x1591733000 - 0x159189efff 0x159189f000 - 0x15918a1fff 0x15918a2000 - 0x15918a2fff 0x15918a3000 - 0x15918a5fff 0x15918a6000 - 0x15918b8fff 0x15918b9000 - 0x15918b9fff 0x15918ba000 - 0x15918bafff 0x15918bb000 - 0x15919d9fff 0x15919da000 - 0x15919dcfff 0x15919dd000 - 0x15919dffff 0x15919e0000 - 0x15919e4fff 0x15919e5000 - 0x1591a39fff 0x1591a3a000 - 0x15920e4fff 0x3fffaef000 - 0x3fffb0ffff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-slotdef2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0xb0bb000 - 0xb0dbfff 0x80000000 - 0x800bffff 0x157e0c2000 - 0x157e0dcfff 0x157e0dd000 - 0x157e0ddfff 0x157e0de000 - 0x157e0defff 0x157e0df000 - 0x157e0e0fff 0x157e0e1000 - 0x157e0e2fff 0x157e0e3000 - 0x157e0e9fff 0x157e0ea000 - 0x157e0eafff 0x157e0eb000 - 0x157e0ebfff 0x157e0ee000 - 0x157e0effff 0x157e0f0000 - 0x157e12efff 0x157e12f000 - 0x157e130fff 0x157e131000 - 0x157e137fff 0x157e138000 - 0x157e138fff 0x157e139000 - 0x157e15efff 0x157e15f000 - 0x157e162fff 0x157e163000 - 0x157e163fff 0x157e164000 - 0x157e165fff 0x157e166000 - 0x157e166fff 0x157e167000 - 0x157e167fff 0x157e168000 - 0x157e168fff 0x157e169000 - 0x157e16cfff 0x157e16d000 - 0x157e16dfff 0x157e16e000 - 0x157e16efff 0x157e16f000 - 0x157e170fff 0x157e171000 - 0x157e171fff 0x157e172000 - 0x157e172fff 0x157e173000 - 0x157e2defff 0x157e2df000 - 0x157e2e1fff 0x157e2e2000 - 0x157e2e2fff 0x157e2e3000 - 0x157e2e5fff 0x157e2e6000 - 0x157e2f8fff 0x157e2f9000 - 0x157e2f9fff 0x157e2fa000 - 0x157e2fafff 0x157e2fb000 - 0x157e419fff 0x157e41a000 - 0x157e41cfff 0x157e41d000 - 0x157e41ffff 0x157e420000 - 0x157e424fff 0x157e425000 - 0x157e479fff 0x157e47a000 - 0x157eb24fff 0x3fffe6f000 - 0x3fffe8ffff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-slotdef3.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2b9ae000 - 0x2b9cefff 0x80000000 - 0x800bffff 0x1576522000 - 0x157653cfff 0x157653d000 - 0x157653dfff 0x157653e000 - 0x157653efff 0x157653f000 - 0x1576540fff 0x1576541000 - 0x1576542fff 0x1576543000 - 0x1576549fff 0x157654a000 - 0x157654afff 0x157654b000 - 0x157654bfff 0x157654e000 - 0x157654ffff 0x1576550000 - 0x157658efff 0x157658f000 - 0x1576590fff 0x1576591000 - 0x1576597fff 0x1576598000 - 0x1576598fff 0x1576599000 - 0x15765befff 0x15765bf000 - 0x15765c2fff 0x15765c3000 - 0x15765c3fff 0x15765c4000 - 0x15765c5fff 0x15765c6000 - 0x15765c6fff 0x15765c7000 - 0x15765c7fff 0x15765c8000 - 0x15765c8fff 0x15765c9000 - 0x15765ccfff 0x15765cd000 - 0x15765cdfff 0x15765ce000 - 0x15765cefff 0x15765cf000 - 0x15765d0fff 0x15765d1000 - 0x15765d1fff 0x15765d2000 - 0x15765d2fff 0x15765d3000 - 0x157673efff 0x157673f000 - 0x1576741fff 0x1576742000 - 0x1576742fff 0x1576743000 - 0x1576745fff 0x1576746000 - 0x1576758fff 0x1576759000 - 0x1576759fff 0x157675a000 - 0x157675afff 0x157675b000 - 0x1576879fff 0x157687a000 - 0x157687cfff 0x157687d000 - 0x157687ffff 0x1576880000 - 0x1576884fff 0x1576885000 - 0x15768d9fff 0x15768da000 - 0x1576f84fff 0x3fff963000 - 0x3fff983fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-slots1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3034b000 - 0x3036bfff 0x80000000 - 0x800bffff 0x15925a0000 - 0x15925bafff 0x15925bb000 - 0x15925bbfff 0x15925bc000 - 0x15925bcfff 0x15925bd000 - 0x15925befff 0x15925bf000 - 0x15925c0fff 0x15925c1000 - 0x15925c7fff 0x15925c8000 - 0x15925c8fff 0x15925c9000 - 0x15925c9fff 0x15925cc000 - 0x15925cdfff 0x15925ce000 - 0x159260cfff 0x159260d000 - 0x159260efff 0x159260f000 - 0x1592615fff 0x1592616000 - 0x1592616fff 0x1592617000 - 0x159263cfff 0x159263d000 - 0x1592640fff 0x1592641000 - 0x1592641fff 0x1592642000 - 0x1592643fff 0x1592644000 - 0x1592644fff 0x1592645000 - 0x1592645fff 0x1592646000 - 0x1592646fff 0x1592647000 - 0x159264afff 0x159264b000 - 0x159264bfff 0x159264c000 - 0x159264cfff 0x159264d000 - 0x159264efff 0x159264f000 - 0x159264ffff 0x1592650000 - 0x1592650fff 0x1592651000 - 0x15927bcfff 0x15927bd000 - 0x15927bffff 0x15927c0000 - 0x15927c0fff 0x15927c1000 - 0x15927c3fff 0x15927c4000 - 0x15927d6fff 0x15927d7000 - 0x15927d7fff 0x15927d8000 - 0x15927d8fff 0x15927d9000 - 0x15928f7fff 0x15928f8000 - 0x15928fafff 0x15928fb000 - 0x15928fdfff 0x15928fe000 - 0x1592902fff 0x1592903000 - 0x1592957fff 0x1592958000 - 0x1593002fff 0x3fff851000 - 0x3fff871fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-slots2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x7add000 - 0x7afdfff 0x80000000 - 0x800bffff 0x1591539000 - 0x1591553fff 0x1591554000 - 0x1591554fff 0x1591555000 - 0x1591555fff 0x1591556000 - 0x1591557fff 0x1591558000 - 0x1591559fff 0x159155a000 - 0x1591560fff 0x1591561000 - 0x1591561fff 0x1591562000 - 0x1591562fff 0x1591565000 - 0x1591566fff 0x1591567000 - 0x15915a5fff 0x15915a6000 - 0x15915a7fff 0x15915a8000 - 0x15915aefff 0x15915af000 - 0x15915affff 0x15915b0000 - 0x15915d5fff 0x15915d6000 - 0x15915d9fff 0x15915da000 - 0x15915dafff 0x15915db000 - 0x15915dcfff 0x15915dd000 - 0x15915ddfff 0x15915de000 - 0x15915defff 0x15915df000 - 0x15915dffff 0x15915e0000 - 0x15915e3fff 0x15915e4000 - 0x15915e4fff 0x15915e5000 - 0x15915e5fff 0x15915e6000 - 0x15915e7fff 0x15915e8000 - 0x15915e8fff 0x15915e9000 - 0x15915e9fff 0x15915ea000 - 0x1591755fff 0x1591756000 - 0x1591758fff 0x1591759000 - 0x1591759fff 0x159175a000 - 0x159175cfff 0x159175d000 - 0x159176ffff 0x1591770000 - 0x1591770fff 0x1591771000 - 0x1591771fff 0x1591772000 - 0x1591890fff 0x1591891000 - 0x1591893fff 0x1591894000 - 0x1591896fff 0x1591897000 - 0x159189bfff 0x159189c000 - 0x15918f0fff 0x15918f1000 - 0x1591f9bfff 0x3fff9c6000 - 0x3fff9e6fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-method1.lisp ... WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x251b6000 - 0x251d6fff 0x80000000 - 0x800bffff 0x155f5b7000 - 0x155f5d1fff 0x155f5d2000 - 0x155f5d2fff 0x155f5d3000 - 0x155f5d3fff 0x155f5d4000 - 0x155f5d5fff 0x155f5d6000 - 0x155f5d7fff 0x155f5d8000 - 0x155f5defff 0x155f5df000 - 0x155f5dffff 0x155f5e0000 - 0x155f5e0fff 0x155f5e3000 - 0x155f5e4fff 0x155f5e5000 - 0x155f623fff 0x155f624000 - 0x155f625fff 0x155f626000 - 0x155f62cfff 0x155f62d000 - 0x155f62dfff 0x155f62e000 - 0x155f653fff 0x155f654000 - 0x155f657fff 0x155f658000 - 0x155f658fff 0x155f659000 - 0x155f65afff 0x155f65b000 - 0x155f65bfff 0x155f65c000 - 0x155f65cfff 0x155f65d000 - 0x155f65dfff 0x155f65e000 - 0x155f661fff 0x155f662000 - 0x155f662fff 0x155f663000 - 0x155f663fff 0x155f664000 - 0x155f665fff 0x155f666000 - 0x155f666fff 0x155f667000 - 0x155f667fff 0x155f668000 - 0x155f7d3fff 0x155f7d4000 - 0x155f7d6fff 0x155f7d7000 - 0x155f7d7fff 0x155f7d8000 - 0x155f7dafff 0x155f7db000 - 0x155f7edfff 0x155f7ee000 - 0x155f7eefff 0x155f7ef000 - 0x155f7effff 0x155f7f0000 - 0x155f90efff 0x155f90f000 - 0x155f911fff 0x155f912000 - 0x155f914fff 0x155f915000 - 0x155f919fff 0x155f91a000 - 0x155f96efff 0x155f96f000 - 0x1560019fff 0x3fffeb7000 - 0x3fffed7fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-method2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x29a83000 - 0x29aa3fff 0x80000000 - 0x800bffff 0x1577016000 - 0x1577030fff 0x1577031000 - 0x1577031fff 0x1577032000 - 0x1577032fff 0x1577033000 - 0x1577034fff 0x1577035000 - 0x1577036fff 0x1577037000 - 0x157703dfff 0x157703e000 - 0x157703efff 0x157703f000 - 0x157703ffff 0x1577042000 - 0x1577043fff 0x1577044000 - 0x1577082fff 0x1577083000 - 0x1577084fff 0x1577085000 - 0x157708bfff 0x157708c000 - 0x157708cfff 0x157708d000 - 0x15770b2fff 0x15770b3000 - 0x15770b6fff 0x15770b7000 - 0x15770b7fff 0x15770b8000 - 0x15770b9fff 0x15770ba000 - 0x15770bafff 0x15770bb000 - 0x15770bbfff 0x15770bc000 - 0x15770bcfff 0x15770bd000 - 0x15770c0fff 0x15770c1000 - 0x15770c1fff 0x15770c2000 - 0x15770c2fff 0x15770c3000 - 0x15770c4fff 0x15770c5000 - 0x15770c5fff 0x15770c6000 - 0x15770c6fff 0x15770c7000 - 0x1577232fff 0x1577233000 - 0x1577235fff 0x1577236000 - 0x1577236fff 0x1577237000 - 0x1577239fff 0x157723a000 - 0x157724cfff 0x157724d000 - 0x157724dfff 0x157724e000 - 0x157724efff 0x157724f000 - 0x157736dfff 0x157736e000 - 0x1577370fff 0x1577371000 - 0x1577373fff 0x1577374000 - 0x1577378fff 0x1577379000 - 0x15773cdfff 0x15773ce000 - 0x1577a78fff 0x3fff9c1000 - 0x3fff9e1fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-method3.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1e92b000 - 0x1e94bfff 0x80000000 - 0x800bffff 0x1576338000 - 0x1576352fff 0x1576353000 - 0x1576353fff 0x1576354000 - 0x1576354fff 0x1576355000 - 0x1576356fff 0x1576357000 - 0x1576358fff 0x1576359000 - 0x157635ffff 0x1576360000 - 0x1576360fff 0x1576361000 - 0x1576361fff 0x1576364000 - 0x1576365fff 0x1576366000 - 0x15763a4fff 0x15763a5000 - 0x15763a6fff 0x15763a7000 - 0x15763adfff 0x15763ae000 - 0x15763aefff 0x15763af000 - 0x15763d4fff 0x15763d5000 - 0x15763d8fff 0x15763d9000 - 0x15763d9fff 0x15763da000 - 0x15763dbfff 0x15763dc000 - 0x15763dcfff 0x15763dd000 - 0x15763ddfff 0x15763de000 - 0x15763defff 0x15763df000 - 0x15763e2fff 0x15763e3000 - 0x15763e3fff 0x15763e4000 - 0x15763e4fff 0x15763e5000 - 0x15763e6fff 0x15763e7000 - 0x15763e7fff 0x15763e8000 - 0x15763e8fff 0x15763e9000 - 0x1576554fff 0x1576555000 - 0x1576557fff 0x1576558000 - 0x1576558fff 0x1576559000 - 0x157655bfff 0x157655c000 - 0x157656efff 0x157656f000 - 0x157656ffff 0x1576570000 - 0x1576570fff 0x1576571000 - 0x157668ffff 0x1576690000 - 0x1576692fff 0x1576693000 - 0x1576695fff 0x1576696000 - 0x157669afff 0x157669b000 - 0x15766effff 0x15766f0000 - 0x1576d9afff 0x3fffae9000 - 0x3fffb09fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-method4.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0xe712000 - 0xe732fff 0x80000000 - 0x800bffff 0x1559921000 - 0x155993bfff 0x155993c000 - 0x155993cfff 0x155993d000 - 0x155993dfff 0x155993e000 - 0x155993ffff 0x1559940000 - 0x1559941fff 0x1559942000 - 0x1559948fff 0x1559949000 - 0x1559949fff 0x155994a000 - 0x155994afff 0x155994d000 - 0x155994efff 0x155994f000 - 0x155998dfff 0x155998e000 - 0x155998ffff 0x1559990000 - 0x1559996fff 0x1559997000 - 0x1559997fff 0x1559998000 - 0x15599bdfff 0x15599be000 - 0x15599c1fff 0x15599c2000 - 0x15599c2fff 0x15599c3000 - 0x15599c4fff 0x15599c5000 - 0x15599c5fff 0x15599c6000 - 0x15599c6fff 0x15599c7000 - 0x15599c7fff 0x15599c8000 - 0x15599cbfff 0x15599cc000 - 0x15599ccfff 0x15599cd000 - 0x15599cdfff 0x15599ce000 - 0x15599cffff 0x15599d0000 - 0x15599d0fff 0x15599d1000 - 0x15599d1fff 0x15599d2000 - 0x1559b3dfff 0x1559b3e000 - 0x1559b40fff 0x1559b41000 - 0x1559b41fff 0x1559b42000 - 0x1559b44fff 0x1559b45000 - 0x1559b57fff 0x1559b58000 - 0x1559b58fff 0x1559b59000 - 0x1559b59fff 0x1559b5a000 - 0x1559c78fff 0x1559c79000 - 0x1559c7bfff 0x1559c7c000 - 0x1559c7efff 0x1559c7f000 - 0x1559c83fff 0x1559c84000 - 0x1559cd8fff 0x1559cd9000 - 0x155a383fff 0x3fff975000 - 0x3fff995fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-methcomb1.lisp ... WARNING: Redefining metaobject class # has no effect. ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0xb2f7000 - 0xb317fff 0x80000000 - 0x800bffff 0x156998f000 - 0x15699a9fff 0x15699aa000 - 0x15699aafff 0x15699ab000 - 0x15699abfff 0x15699ac000 - 0x15699adfff 0x15699ae000 - 0x15699affff 0x15699b0000 - 0x15699b6fff 0x15699b7000 - 0x15699b7fff 0x15699b8000 - 0x15699b8fff 0x15699bb000 - 0x15699bcfff 0x15699bd000 - 0x15699fbfff 0x15699fc000 - 0x15699fdfff 0x15699fe000 - 0x1569a04fff 0x1569a05000 - 0x1569a05fff 0x1569a06000 - 0x1569a2bfff 0x1569a2c000 - 0x1569a2ffff 0x1569a30000 - 0x1569a30fff 0x1569a31000 - 0x1569a32fff 0x1569a33000 - 0x1569a33fff 0x1569a34000 - 0x1569a34fff 0x1569a35000 - 0x1569a35fff 0x1569a36000 - 0x1569a39fff 0x1569a3a000 - 0x1569a3afff 0x1569a3b000 - 0x1569a3bfff 0x1569a3c000 - 0x1569a3dfff 0x1569a3e000 - 0x1569a3efff 0x1569a3f000 - 0x1569a3ffff 0x1569a40000 - 0x1569babfff 0x1569bac000 - 0x1569baefff 0x1569baf000 - 0x1569baffff 0x1569bb0000 - 0x1569bb2fff 0x1569bb3000 - 0x1569bc5fff 0x1569bc6000 - 0x1569bc6fff 0x1569bc7000 - 0x1569bc7fff 0x1569bc8000 - 0x1569ce6fff 0x1569ce7000 - 0x1569ce9fff 0x1569cea000 - 0x1569cecfff 0x1569ced000 - 0x1569cf1fff 0x1569cf2000 - 0x1569d46fff 0x1569d47000 - 0x156a3f1fff 0x3fffa61000 - 0x3fffa81fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-methcomb2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x11119000 - 0x11139fff 0x80000000 - 0x800bffff 0x158f202000 - 0x158f21cfff 0x158f21d000 - 0x158f21dfff 0x158f21e000 - 0x158f21efff 0x158f21f000 - 0x158f220fff 0x158f221000 - 0x158f222fff 0x158f223000 - 0x158f229fff 0x158f22a000 - 0x158f22afff 0x158f22b000 - 0x158f22bfff 0x158f22e000 - 0x158f22ffff 0x158f230000 - 0x158f26efff 0x158f26f000 - 0x158f270fff 0x158f271000 - 0x158f277fff 0x158f278000 - 0x158f278fff 0x158f279000 - 0x158f29efff 0x158f29f000 - 0x158f2a2fff 0x158f2a3000 - 0x158f2a3fff 0x158f2a4000 - 0x158f2a5fff 0x158f2a6000 - 0x158f2a6fff 0x158f2a7000 - 0x158f2a7fff 0x158f2a8000 - 0x158f2a8fff 0x158f2a9000 - 0x158f2acfff 0x158f2ad000 - 0x158f2adfff 0x158f2ae000 - 0x158f2aefff 0x158f2af000 - 0x158f2b0fff 0x158f2b1000 - 0x158f2b1fff 0x158f2b2000 - 0x158f2b2fff 0x158f2b3000 - 0x158f41efff 0x158f41f000 - 0x158f421fff 0x158f422000 - 0x158f422fff 0x158f423000 - 0x158f425fff 0x158f426000 - 0x158f438fff 0x158f439000 - 0x158f439fff 0x158f43a000 - 0x158f43afff 0x158f43b000 - 0x158f559fff 0x158f55a000 - 0x158f55cfff 0x158f55d000 - 0x158f55ffff 0x158f560000 - 0x158f564fff 0x158f565000 - 0x158f5b9fff 0x158f5ba000 - 0x158fc64fff 0x3fffbda000 - 0x3fffbfafff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-methcomb3.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3f2c1000 - 0x3f2e1fff 0x80000000 - 0x800bffff 0x155fc32000 - 0x155fc4cfff 0x155fc4d000 - 0x155fc4dfff 0x155fc4e000 - 0x155fc4efff 0x155fc4f000 - 0x155fc50fff 0x155fc51000 - 0x155fc52fff 0x155fc53000 - 0x155fc59fff 0x155fc5a000 - 0x155fc5afff 0x155fc5b000 - 0x155fc5bfff 0x155fc5e000 - 0x155fc5ffff 0x155fc60000 - 0x155fc9efff 0x155fc9f000 - 0x155fca0fff 0x155fca1000 - 0x155fca7fff 0x155fca8000 - 0x155fca8fff 0x155fca9000 - 0x155fccefff 0x155fccf000 - 0x155fcd2fff 0x155fcd3000 - 0x155fcd3fff 0x155fcd4000 - 0x155fcd5fff 0x155fcd6000 - 0x155fcd6fff 0x155fcd7000 - 0x155fcd7fff 0x155fcd8000 - 0x155fcd8fff 0x155fcd9000 - 0x155fcdcfff 0x155fcdd000 - 0x155fcddfff 0x155fcde000 - 0x155fcdefff 0x155fcdf000 - 0x155fce0fff 0x155fce1000 - 0x155fce1fff 0x155fce2000 - 0x155fce2fff 0x155fce3000 - 0x155fe4efff 0x155fe4f000 - 0x155fe51fff 0x155fe52000 - 0x155fe52fff 0x155fe53000 - 0x155fe55fff 0x155fe56000 - 0x155fe68fff 0x155fe69000 - 0x155fe69fff 0x155fe6a000 - 0x155fe6afff 0x155fe6b000 - 0x155ff89fff 0x155ff8a000 - 0x155ff8cfff 0x155ff8d000 - 0x155ff8ffff 0x155ff90000 - 0x155ff94fff 0x155ff95000 - 0x155ffe9fff 0x155ffea000 - 0x1560694fff 0x3fffa1e000 - 0x3fffa3efff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-methcomb4.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x18566000 - 0x18586fff 0x80000000 - 0x800bffff 0x15862da000 - 0x15862f4fff 0x15862f5000 - 0x15862f5fff 0x15862f6000 - 0x15862f6fff 0x15862f7000 - 0x15862f8fff 0x15862f9000 - 0x15862fafff 0x15862fb000 - 0x1586301fff 0x1586302000 - 0x1586302fff 0x1586303000 - 0x1586303fff 0x1586306000 - 0x1586307fff 0x1586308000 - 0x1586346fff 0x1586347000 - 0x1586348fff 0x1586349000 - 0x158634ffff 0x1586350000 - 0x1586350fff 0x1586351000 - 0x1586376fff 0x1586377000 - 0x158637afff 0x158637b000 - 0x158637bfff 0x158637c000 - 0x158637dfff 0x158637e000 - 0x158637efff 0x158637f000 - 0x158637ffff 0x1586380000 - 0x1586380fff 0x1586381000 - 0x1586384fff 0x1586385000 - 0x1586385fff 0x1586386000 - 0x1586386fff 0x1586387000 - 0x1586388fff 0x1586389000 - 0x1586389fff 0x158638a000 - 0x158638afff 0x158638b000 - 0x15864f6fff 0x15864f7000 - 0x15864f9fff 0x15864fa000 - 0x15864fafff 0x15864fb000 - 0x15864fdfff 0x15864fe000 - 0x1586510fff 0x1586511000 - 0x1586511fff 0x1586512000 - 0x1586512fff 0x1586513000 - 0x1586631fff 0x1586632000 - 0x1586634fff 0x1586635000 - 0x1586637fff 0x1586638000 - 0x158663cfff 0x158663d000 - 0x1586691fff 0x1586692000 - 0x1586d3cfff 0x3fff9ca000 - 0x3fff9eafff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun1.lisp ... WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x34a92000 - 0x34ab2fff 0x80000000 - 0x800bffff 0x1573cec000 - 0x1573d06fff 0x1573d07000 - 0x1573d07fff 0x1573d08000 - 0x1573d08fff 0x1573d09000 - 0x1573d0afff 0x1573d0b000 - 0x1573d0cfff 0x1573d0d000 - 0x1573d13fff 0x1573d14000 - 0x1573d14fff 0x1573d15000 - 0x1573d15fff 0x1573d18000 - 0x1573d19fff 0x1573d1a000 - 0x1573d58fff 0x1573d59000 - 0x1573d5afff 0x1573d5b000 - 0x1573d61fff 0x1573d62000 - 0x1573d62fff 0x1573d63000 - 0x1573d88fff 0x1573d89000 - 0x1573d8cfff 0x1573d8d000 - 0x1573d8dfff 0x1573d8e000 - 0x1573d8ffff 0x1573d90000 - 0x1573d90fff 0x1573d91000 - 0x1573d91fff 0x1573d92000 - 0x1573d92fff 0x1573d93000 - 0x1573d96fff 0x1573d97000 - 0x1573d97fff 0x1573d98000 - 0x1573d98fff 0x1573d99000 - 0x1573d9afff 0x1573d9b000 - 0x1573d9bfff 0x1573d9c000 - 0x1573d9cfff 0x1573d9d000 - 0x1573f08fff 0x1573f09000 - 0x1573f0bfff 0x1573f0c000 - 0x1573f0cfff 0x1573f0d000 - 0x1573f0ffff 0x1573f10000 - 0x1573f22fff 0x1573f23000 - 0x1573f23fff 0x1573f24000 - 0x1573f24fff 0x1573f25000 - 0x1574043fff 0x1574044000 - 0x1574046fff 0x1574047000 - 0x1574049fff 0x157404a000 - 0x157404efff 0x157404f000 - 0x15740a3fff 0x15740a4000 - 0x157474efff 0x3fffa24000 - 0x3fffa44fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun2a.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x374fb000 - 0x3751bfff 0x80000000 - 0x800bffff 0x1594bcd000 - 0x1594be7fff 0x1594be8000 - 0x1594be8fff 0x1594be9000 - 0x1594be9fff 0x1594bea000 - 0x1594bebfff 0x1594bec000 - 0x1594bedfff 0x1594bee000 - 0x1594bf4fff 0x1594bf5000 - 0x1594bf5fff 0x1594bf6000 - 0x1594bf6fff 0x1594bf9000 - 0x1594bfafff 0x1594bfb000 - 0x1594c39fff 0x1594c3a000 - 0x1594c3bfff 0x1594c3c000 - 0x1594c42fff 0x1594c43000 - 0x1594c43fff 0x1594c44000 - 0x1594c69fff 0x1594c6a000 - 0x1594c6dfff 0x1594c6e000 - 0x1594c6efff 0x1594c6f000 - 0x1594c70fff 0x1594c71000 - 0x1594c71fff 0x1594c72000 - 0x1594c72fff 0x1594c73000 - 0x1594c73fff 0x1594c74000 - 0x1594c77fff 0x1594c78000 - 0x1594c78fff 0x1594c79000 - 0x1594c79fff 0x1594c7a000 - 0x1594c7bfff 0x1594c7c000 - 0x1594c7cfff 0x1594c7d000 - 0x1594c7dfff 0x1594c7e000 - 0x1594de9fff 0x1594dea000 - 0x1594decfff 0x1594ded000 - 0x1594dedfff 0x1594dee000 - 0x1594df0fff 0x1594df1000 - 0x1594e03fff 0x1594e04000 - 0x1594e04fff 0x1594e05000 - 0x1594e05fff 0x1594e06000 - 0x1594f24fff 0x1594f25000 - 0x1594f27fff 0x1594f28000 - 0x1594f2afff 0x1594f2b000 - 0x1594f2ffff 0x1594f30000 - 0x1594f84fff 0x1594f85000 - 0x159562ffff 0x3fff944000 - 0x3fff964fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun2b.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2df76000 - 0x2df96fff 0x80000000 - 0x800bffff 0x1558fb5000 - 0x1558fcffff 0x1558fd0000 - 0x1558fd0fff 0x1558fd1000 - 0x1558fd1fff 0x1558fd2000 - 0x1558fd3fff 0x1558fd4000 - 0x1558fd5fff 0x1558fd6000 - 0x1558fdcfff 0x1558fdd000 - 0x1558fddfff 0x1558fde000 - 0x1558fdefff 0x1558fe1000 - 0x1558fe2fff 0x1558fe3000 - 0x1559021fff 0x1559022000 - 0x1559023fff 0x1559024000 - 0x155902afff 0x155902b000 - 0x155902bfff 0x155902c000 - 0x1559051fff 0x1559052000 - 0x1559055fff 0x1559056000 - 0x1559056fff 0x1559057000 - 0x1559058fff 0x1559059000 - 0x1559059fff 0x155905a000 - 0x155905afff 0x155905b000 - 0x155905bfff 0x155905c000 - 0x155905ffff 0x1559060000 - 0x1559060fff 0x1559061000 - 0x1559061fff 0x1559062000 - 0x1559063fff 0x1559064000 - 0x1559064fff 0x1559065000 - 0x1559065fff 0x1559066000 - 0x15591d1fff 0x15591d2000 - 0x15591d4fff 0x15591d5000 - 0x15591d5fff 0x15591d6000 - 0x15591d8fff 0x15591d9000 - 0x15591ebfff 0x15591ec000 - 0x15591ecfff 0x15591ed000 - 0x15591edfff 0x15591ee000 - 0x155930cfff 0x155930d000 - 0x155930ffff 0x1559310000 - 0x1559312fff 0x1559313000 - 0x1559317fff 0x1559318000 - 0x155936cfff 0x155936d000 - 0x1559a17fff 0x3fffc0d000 - 0x3fffc2dfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun3.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1e25f000 - 0x1e27ffff 0x80000000 - 0x800bffff 0x1581a5e000 - 0x1581a78fff 0x1581a79000 - 0x1581a79fff 0x1581a7a000 - 0x1581a7afff 0x1581a7b000 - 0x1581a7cfff 0x1581a7d000 - 0x1581a7efff 0x1581a7f000 - 0x1581a85fff 0x1581a86000 - 0x1581a86fff 0x1581a87000 - 0x1581a87fff 0x1581a8a000 - 0x1581a8bfff 0x1581a8c000 - 0x1581acafff 0x1581acb000 - 0x1581accfff 0x1581acd000 - 0x1581ad3fff 0x1581ad4000 - 0x1581ad4fff 0x1581ad5000 - 0x1581afafff 0x1581afb000 - 0x1581afefff 0x1581aff000 - 0x1581afffff 0x1581b00000 - 0x1581b01fff 0x1581b02000 - 0x1581b02fff 0x1581b03000 - 0x1581b03fff 0x1581b04000 - 0x1581b04fff 0x1581b05000 - 0x1581b08fff 0x1581b09000 - 0x1581b09fff 0x1581b0a000 - 0x1581b0afff 0x1581b0b000 - 0x1581b0cfff 0x1581b0d000 - 0x1581b0dfff 0x1581b0e000 - 0x1581b0efff 0x1581b0f000 - 0x1581c7afff 0x1581c7b000 - 0x1581c7dfff 0x1581c7e000 - 0x1581c7efff 0x1581c7f000 - 0x1581c81fff 0x1581c82000 - 0x1581c94fff 0x1581c95000 - 0x1581c95fff 0x1581c96000 - 0x1581c96fff 0x1581c97000 - 0x1581db5fff 0x1581db6000 - 0x1581db8fff 0x1581db9000 - 0x1581dbbfff 0x1581dbc000 - 0x1581dc0fff 0x1581dc1000 - 0x1581e15fff 0x1581e16000 - 0x15824c0fff 0x3fffbd7000 - 0x3fffbf7fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun4.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2d14b000 - 0x2d16bfff 0x80000000 - 0x800bffff 0x155fcc1000 - 0x155fcdbfff 0x155fcdc000 - 0x155fcdcfff 0x155fcdd000 - 0x155fcddfff 0x155fcde000 - 0x155fcdffff 0x155fce0000 - 0x155fce1fff 0x155fce2000 - 0x155fce8fff 0x155fce9000 - 0x155fce9fff 0x155fcea000 - 0x155fceafff 0x155fced000 - 0x155fceefff 0x155fcef000 - 0x155fd2dfff 0x155fd2e000 - 0x155fd2ffff 0x155fd30000 - 0x155fd36fff 0x155fd37000 - 0x155fd37fff 0x155fd38000 - 0x155fd5dfff 0x155fd5e000 - 0x155fd61fff 0x155fd62000 - 0x155fd62fff 0x155fd63000 - 0x155fd64fff 0x155fd65000 - 0x155fd65fff 0x155fd66000 - 0x155fd66fff 0x155fd67000 - 0x155fd67fff 0x155fd68000 - 0x155fd6bfff 0x155fd6c000 - 0x155fd6cfff 0x155fd6d000 - 0x155fd6dfff 0x155fd6e000 - 0x155fd6ffff 0x155fd70000 - 0x155fd70fff 0x155fd71000 - 0x155fd71fff 0x155fd72000 - 0x155feddfff 0x155fede000 - 0x155fee0fff 0x155fee1000 - 0x155fee1fff 0x155fee2000 - 0x155fee4fff 0x155fee5000 - 0x155fef7fff 0x155fef8000 - 0x155fef8fff 0x155fef9000 - 0x155fef9fff 0x155fefa000 - 0x1560018fff 0x1560019000 - 0x156001bfff 0x156001c000 - 0x156001efff 0x156001f000 - 0x1560023fff 0x1560024000 - 0x1560078fff 0x1560079000 - 0x1560723fff 0x3fffa6c000 - 0x3fffa8cfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun5.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x18d1e000 - 0x18d3efff 0x80000000 - 0x800bffff 0x155fc9e000 - 0x155fcb8fff 0x155fcb9000 - 0x155fcb9fff 0x155fcba000 - 0x155fcbafff 0x155fcbb000 - 0x155fcbcfff 0x155fcbd000 - 0x155fcbefff 0x155fcbf000 - 0x155fcc5fff 0x155fcc6000 - 0x155fcc6fff 0x155fcc7000 - 0x155fcc7fff 0x155fcca000 - 0x155fccbfff 0x155fccc000 - 0x155fd0afff 0x155fd0b000 - 0x155fd0cfff 0x155fd0d000 - 0x155fd13fff 0x155fd14000 - 0x155fd14fff 0x155fd15000 - 0x155fd3afff 0x155fd3b000 - 0x155fd3efff 0x155fd3f000 - 0x155fd3ffff 0x155fd40000 - 0x155fd41fff 0x155fd42000 - 0x155fd42fff 0x155fd43000 - 0x155fd43fff 0x155fd44000 - 0x155fd44fff 0x155fd45000 - 0x155fd48fff 0x155fd49000 - 0x155fd49fff 0x155fd4a000 - 0x155fd4afff 0x155fd4b000 - 0x155fd4cfff 0x155fd4d000 - 0x155fd4dfff 0x155fd4e000 - 0x155fd4efff 0x155fd4f000 - 0x155febafff 0x155febb000 - 0x155febdfff 0x155febe000 - 0x155febefff 0x155febf000 - 0x155fec1fff 0x155fec2000 - 0x155fed4fff 0x155fed5000 - 0x155fed5fff 0x155fed6000 - 0x155fed6fff 0x155fed7000 - 0x155fff5fff 0x155fff6000 - 0x155fff8fff 0x155fff9000 - 0x155fffbfff 0x155fffc000 - 0x1560000fff 0x1560001000 - 0x1560055fff 0x1560056000 - 0x1560700fff 0x3fffb02000 - 0x3fffb22fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-dependent.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x5312000 - 0x5332fff 0x80000000 - 0x800bffff 0x1567f82000 - 0x1567f9cfff 0x1567f9d000 - 0x1567f9dfff 0x1567f9e000 - 0x1567f9efff 0x1567f9f000 - 0x1567fa0fff 0x1567fa1000 - 0x1567fa2fff 0x1567fa3000 - 0x1567fa9fff 0x1567faa000 - 0x1567faafff 0x1567fab000 - 0x1567fabfff 0x1567fae000 - 0x1567faffff 0x1567fb0000 - 0x1567feefff 0x1567fef000 - 0x1567ff0fff 0x1567ff1000 - 0x1567ff7fff 0x1567ff8000 - 0x1567ff8fff 0x1567ff9000 - 0x156801efff 0x156801f000 - 0x1568022fff 0x1568023000 - 0x1568023fff 0x1568024000 - 0x1568025fff 0x1568026000 - 0x1568026fff 0x1568027000 - 0x1568027fff 0x1568028000 - 0x1568028fff 0x1568029000 - 0x156802cfff 0x156802d000 - 0x156802dfff 0x156802e000 - 0x156802efff 0x156802f000 - 0x1568030fff 0x1568031000 - 0x1568031fff 0x1568032000 - 0x1568032fff 0x1568033000 - 0x156819efff 0x156819f000 - 0x15681a1fff 0x15681a2000 - 0x15681a2fff 0x15681a3000 - 0x15681a5fff 0x15681a6000 - 0x15681b8fff 0x15681b9000 - 0x15681b9fff 0x15681ba000 - 0x15681bafff 0x15681bb000 - 0x15682d9fff 0x15682da000 - 0x15682dcfff 0x15682dd000 - 0x15682dffff 0x15682e0000 - 0x15682e4fff 0x15682e5000 - 0x1568339fff 0x156833a000 - 0x15689e4fff 0x3fffb0e000 - 0x3fffb2efff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-print.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1a35f000 - 0x1a37ffff 0x80000000 - 0x800bffff 0x158a125000 - 0x158a13ffff 0x158a140000 - 0x158a140fff 0x158a141000 - 0x158a141fff 0x158a142000 - 0x158a143fff 0x158a144000 - 0x158a145fff 0x158a146000 - 0x158a14cfff 0x158a14d000 - 0x158a14dfff 0x158a14e000 - 0x158a14efff 0x158a151000 - 0x158a152fff 0x158a153000 - 0x158a191fff 0x158a192000 - 0x158a193fff 0x158a194000 - 0x158a19afff 0x158a19b000 - 0x158a19bfff 0x158a19c000 - 0x158a1c1fff 0x158a1c2000 - 0x158a1c5fff 0x158a1c6000 - 0x158a1c6fff 0x158a1c7000 - 0x158a1c8fff 0x158a1c9000 - 0x158a1c9fff 0x158a1ca000 - 0x158a1cafff 0x158a1cb000 - 0x158a1cbfff 0x158a1cc000 - 0x158a1cffff 0x158a1d0000 - 0x158a1d0fff 0x158a1d1000 - 0x158a1d1fff 0x158a1d2000 - 0x158a1d3fff 0x158a1d4000 - 0x158a1d4fff 0x158a1d5000 - 0x158a1d5fff 0x158a1d6000 - 0x158a341fff 0x158a342000 - 0x158a344fff 0x158a345000 - 0x158a345fff 0x158a346000 - 0x158a348fff 0x158a349000 - 0x158a35bfff 0x158a35c000 - 0x158a35cfff 0x158a35d000 - 0x158a35dfff 0x158a35e000 - 0x158a47cfff 0x158a47d000 - 0x158a47ffff 0x158a480000 - 0x158a482fff 0x158a483000 - 0x158a487fff 0x158a488000 - 0x158a4dcfff 0x158a4dd000 - 0x158ab87fff 0x3fffdb2000 - 0x3fffdd2fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-custom.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1f742000 - 0x1f762fff 0x80000000 - 0x800bffff 0x157c684000 - 0x157c69efff 0x157c69f000 - 0x157c69ffff 0x157c6a0000 - 0x157c6a0fff 0x157c6a1000 - 0x157c6a2fff 0x157c6a3000 - 0x157c6a4fff 0x157c6a5000 - 0x157c6abfff 0x157c6ac000 - 0x157c6acfff 0x157c6ad000 - 0x157c6adfff 0x157c6b0000 - 0x157c6b1fff 0x157c6b2000 - 0x157c6f0fff 0x157c6f1000 - 0x157c6f2fff 0x157c6f3000 - 0x157c6f9fff 0x157c6fa000 - 0x157c6fafff 0x157c6fb000 - 0x157c720fff 0x157c721000 - 0x157c724fff 0x157c725000 - 0x157c725fff 0x157c726000 - 0x157c727fff 0x157c728000 - 0x157c728fff 0x157c729000 - 0x157c729fff 0x157c72a000 - 0x157c72afff 0x157c72b000 - 0x157c72efff 0x157c72f000 - 0x157c72ffff 0x157c730000 - 0x157c730fff 0x157c731000 - 0x157c732fff 0x157c733000 - 0x157c733fff 0x157c734000 - 0x157c734fff 0x157c735000 - 0x157c8a0fff 0x157c8a1000 - 0x157c8a3fff 0x157c8a4000 - 0x157c8a4fff 0x157c8a5000 - 0x157c8a7fff 0x157c8a8000 - 0x157c8bafff 0x157c8bb000 - 0x157c8bbfff 0x157c8bc000 - 0x157c8bcfff 0x157c8bd000 - 0x157c9dbfff 0x157c9dc000 - 0x157c9defff 0x157c9df000 - 0x157c9e1fff 0x157c9e2000 - 0x157c9e6fff 0x157c9e7000 - 0x157ca3bfff 0x157ca3c000 - 0x157d0e6fff 0x3fffef1000 - 0x3ffff11fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/documentation.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1b21000 - 0x1b41fff 0x80000000 - 0x800bffff 0x15820b9000 - 0x15820d3fff 0x15820d4000 - 0x15820d4fff 0x15820d5000 - 0x15820d5fff 0x15820d6000 - 0x15820d7fff 0x15820d8000 - 0x15820d9fff 0x15820da000 - 0x15820e0fff 0x15820e1000 - 0x15820e1fff 0x15820e2000 - 0x15820e2fff 0x15820e5000 - 0x15820e6fff 0x15820e7000 - 0x1582125fff 0x1582126000 - 0x1582127fff 0x1582128000 - 0x158212efff 0x158212f000 - 0x158212ffff 0x1582130000 - 0x1582155fff 0x1582156000 - 0x1582159fff 0x158215a000 - 0x158215afff 0x158215b000 - 0x158215cfff 0x158215d000 - 0x158215dfff 0x158215e000 - 0x158215efff 0x158215f000 - 0x158215ffff 0x1582160000 - 0x1582163fff 0x1582164000 - 0x1582164fff 0x1582165000 - 0x1582165fff 0x1582166000 - 0x1582167fff 0x1582168000 - 0x1582168fff 0x1582169000 - 0x1582169fff 0x158216a000 - 0x15822d5fff 0x15822d6000 - 0x15822d8fff 0x15822d9000 - 0x15822d9fff 0x15822da000 - 0x15822dcfff 0x15822dd000 - 0x15822effff 0x15822f0000 - 0x15822f0fff 0x15822f1000 - 0x15822f1fff 0x15822f2000 - 0x1582410fff 0x1582411000 - 0x1582413fff 0x1582414000 - 0x1582416fff 0x1582417000 - 0x158241bfff 0x158241c000 - 0x1582470fff 0x1582471000 - 0x1582b1bfff 0x3fffc98000 - 0x3fffcb8fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/fill-out.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x269df000 - 0x269fffff 0x80000000 - 0x800bffff 0x15788ce000 - 0x15788e8fff 0x15788e9000 - 0x15788e9fff 0x15788ea000 - 0x15788eafff 0x15788eb000 - 0x15788ecfff 0x15788ed000 - 0x15788eefff 0x15788ef000 - 0x15788f5fff 0x15788f6000 - 0x15788f6fff 0x15788f7000 - 0x15788f7fff 0x15788fa000 - 0x15788fbfff 0x15788fc000 - 0x157893afff 0x157893b000 - 0x157893cfff 0x157893d000 - 0x1578943fff 0x1578944000 - 0x1578944fff 0x1578945000 - 0x157896afff 0x157896b000 - 0x157896efff 0x157896f000 - 0x157896ffff 0x1578970000 - 0x1578971fff 0x1578972000 - 0x1578972fff 0x1578973000 - 0x1578973fff 0x1578974000 - 0x1578974fff 0x1578975000 - 0x1578978fff 0x1578979000 - 0x1578979fff 0x157897a000 - 0x157897afff 0x157897b000 - 0x157897cfff 0x157897d000 - 0x157897dfff 0x157897e000 - 0x157897efff 0x157897f000 - 0x1578aeafff 0x1578aeb000 - 0x1578aedfff 0x1578aee000 - 0x1578aeefff 0x1578aef000 - 0x1578af1fff 0x1578af2000 - 0x1578b04fff 0x1578b05000 - 0x1578b05fff 0x1578b06000 - 0x1578b06fff 0x1578b07000 - 0x1578c25fff 0x1578c26000 - 0x1578c28fff 0x1578c29000 - 0x1578c2bfff 0x1578c2c000 - 0x1578c30fff 0x1578c31000 - 0x1578c85fff 0x1578c86000 - 0x1579330fff 0x3ffff9e000 - 0x3ffffbefff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/disassem.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x11e1d000 - 0x11e3dfff 0x80000000 - 0x800bffff 0x155be52000 - 0x155be6cfff 0x155be6d000 - 0x155be6dfff 0x155be6e000 - 0x155be6efff 0x155be6f000 - 0x155be70fff 0x155be71000 - 0x155be72fff 0x155be73000 - 0x155be79fff 0x155be7a000 - 0x155be7afff 0x155be7b000 - 0x155be7bfff 0x155be7e000 - 0x155be7ffff 0x155be80000 - 0x155bebefff 0x155bebf000 - 0x155bec0fff 0x155bec1000 - 0x155bec7fff 0x155bec8000 - 0x155bec8fff 0x155bec9000 - 0x155beeefff 0x155beef000 - 0x155bef2fff 0x155bef3000 - 0x155bef3fff 0x155bef4000 - 0x155bef5fff 0x155bef6000 - 0x155bef6fff 0x155bef7000 - 0x155bef7fff 0x155bef8000 - 0x155bef8fff 0x155bef9000 - 0x155befcfff 0x155befd000 - 0x155befdfff 0x155befe000 - 0x155befefff 0x155beff000 - 0x155bf00fff 0x155bf01000 - 0x155bf01fff 0x155bf02000 - 0x155bf02fff 0x155bf03000 - 0x155c06efff 0x155c06f000 - 0x155c071fff 0x155c072000 - 0x155c072fff 0x155c073000 - 0x155c075fff 0x155c076000 - 0x155c088fff 0x155c089000 - 0x155c089fff 0x155c08a000 - 0x155c08afff 0x155c08b000 - 0x155c1a9fff 0x155c1aa000 - 0x155c1acfff 0x155c1ad000 - 0x155c1affff 0x155c1b0000 - 0x155c1b4fff 0x155c1b5000 - 0x155c209fff 0x155c20a000 - 0x155c8b4fff 0x3fffb10000 - 0x3fffb30fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/condition.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x24ed8000 - 0x24ef8fff 0x80000000 - 0x800bffff 0x158ade0000 - 0x158adfafff 0x158adfb000 - 0x158adfbfff 0x158adfc000 - 0x158adfcfff 0x158adfd000 - 0x158adfefff 0x158adff000 - 0x158ae00fff 0x158ae01000 - 0x158ae07fff 0x158ae08000 - 0x158ae08fff 0x158ae09000 - 0x158ae09fff 0x158ae0c000 - 0x158ae0dfff 0x158ae0e000 - 0x158ae4cfff 0x158ae4d000 - 0x158ae4efff 0x158ae4f000 - 0x158ae55fff 0x158ae56000 - 0x158ae56fff 0x158ae57000 - 0x158ae7cfff 0x158ae7d000 - 0x158ae80fff 0x158ae81000 - 0x158ae81fff 0x158ae82000 - 0x158ae83fff 0x158ae84000 - 0x158ae84fff 0x158ae85000 - 0x158ae85fff 0x158ae86000 - 0x158ae86fff 0x158ae87000 - 0x158ae8afff 0x158ae8b000 - 0x158ae8bfff 0x158ae8c000 - 0x158ae8cfff 0x158ae8d000 - 0x158ae8efff 0x158ae8f000 - 0x158ae8ffff 0x158ae90000 - 0x158ae90fff 0x158ae91000 - 0x158affcfff 0x158affd000 - 0x158affffff 0x158b000000 - 0x158b000fff 0x158b001000 - 0x158b003fff 0x158b004000 - 0x158b016fff 0x158b017000 - 0x158b017fff 0x158b018000 - 0x158b018fff 0x158b019000 - 0x158b137fff 0x158b138000 - 0x158b13afff 0x158b13b000 - 0x158b13dfff 0x158b13e000 - 0x158b142fff 0x158b143000 - 0x158b197fff 0x158b198000 - 0x158b842fff 0x3fffb7b000 - 0x3fffb9bfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/loadform.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x37e4f000 - 0x37e6ffff 0x80000000 - 0x800bffff 0x1593198000 - 0x15931b2fff 0x15931b3000 - 0x15931b3fff 0x15931b4000 - 0x15931b4fff 0x15931b5000 - 0x15931b6fff 0x15931b7000 - 0x15931b8fff 0x15931b9000 - 0x15931bffff 0x15931c0000 - 0x15931c0fff 0x15931c1000 - 0x15931c1fff 0x15931c4000 - 0x15931c5fff 0x15931c6000 - 0x1593204fff 0x1593205000 - 0x1593206fff 0x1593207000 - 0x159320dfff 0x159320e000 - 0x159320efff 0x159320f000 - 0x1593234fff 0x1593235000 - 0x1593238fff 0x1593239000 - 0x1593239fff 0x159323a000 - 0x159323bfff 0x159323c000 - 0x159323cfff 0x159323d000 - 0x159323dfff 0x159323e000 - 0x159323efff 0x159323f000 - 0x1593242fff 0x1593243000 - 0x1593243fff 0x1593244000 - 0x1593244fff 0x1593245000 - 0x1593246fff 0x1593247000 - 0x1593247fff 0x1593248000 - 0x1593248fff 0x1593249000 - 0x15933b4fff 0x15933b5000 - 0x15933b7fff 0x15933b8000 - 0x15933b8fff 0x15933b9000 - 0x15933bbfff 0x15933bc000 - 0x15933cefff 0x15933cf000 - 0x15933cffff 0x15933d0000 - 0x15933d0fff 0x15933d1000 - 0x15934effff 0x15934f0000 - 0x15934f2fff 0x15934f3000 - 0x15934f5fff 0x15934f6000 - 0x15934fafff 0x15934fb000 - 0x159354ffff 0x1593550000 - 0x1593bfafff 0x3fff99b000 - 0x3fff9bbfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gstream.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x39c2b000 - 0x39c4bfff 0x80000000 - 0x800bffff 0x15904be000 - 0x15904d8fff 0x15904d9000 - 0x15904d9fff 0x15904da000 - 0x15904dafff 0x15904db000 - 0x15904dcfff 0x15904dd000 - 0x15904defff 0x15904df000 - 0x15904e5fff 0x15904e6000 - 0x15904e6fff 0x15904e7000 - 0x15904e7fff 0x15904ea000 - 0x15904ebfff 0x15904ec000 - 0x159052afff 0x159052b000 - 0x159052cfff 0x159052d000 - 0x1590533fff 0x1590534000 - 0x1590534fff 0x1590535000 - 0x159055afff 0x159055b000 - 0x159055efff 0x159055f000 - 0x159055ffff 0x1590560000 - 0x1590561fff 0x1590562000 - 0x1590562fff 0x1590563000 - 0x1590563fff 0x1590564000 - 0x1590564fff 0x1590565000 - 0x1590568fff 0x1590569000 - 0x1590569fff 0x159056a000 - 0x159056afff 0x159056b000 - 0x159056cfff 0x159056d000 - 0x159056dfff 0x159056e000 - 0x159056efff 0x159056f000 - 0x15906dafff 0x15906db000 - 0x15906ddfff 0x15906de000 - 0x15906defff 0x15906df000 - 0x15906e1fff 0x15906e2000 - 0x15906f4fff 0x15906f5000 - 0x15906f5fff 0x15906f6000 - 0x15906f6fff 0x15906f7000 - 0x1590815fff 0x1590816000 - 0x1590818fff 0x1590819000 - 0x159081bfff 0x159081c000 - 0x1590820fff 0x1590821000 - 0x1590875fff 0x1590876000 - 0x1590f20fff 0x3ffffcb000 - 0x3ffffebfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/xcharin.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x24c70000 - 0x24c90fff 0x80000000 - 0x800bffff 0x1580c51000 - 0x1580c6bfff 0x1580c6c000 - 0x1580c6cfff 0x1580c6d000 - 0x1580c6dfff 0x1580c6e000 - 0x1580c6ffff 0x1580c70000 - 0x1580c71fff 0x1580c72000 - 0x1580c78fff 0x1580c79000 - 0x1580c79fff 0x1580c7a000 - 0x1580c7afff 0x1580c7d000 - 0x1580c7efff 0x1580c7f000 - 0x1580cbdfff 0x1580cbe000 - 0x1580cbffff 0x1580cc0000 - 0x1580cc6fff 0x1580cc7000 - 0x1580cc7fff 0x1580cc8000 - 0x1580cedfff 0x1580cee000 - 0x1580cf1fff 0x1580cf2000 - 0x1580cf2fff 0x1580cf3000 - 0x1580cf4fff 0x1580cf5000 - 0x1580cf5fff 0x1580cf6000 - 0x1580cf6fff 0x1580cf7000 - 0x1580cf7fff 0x1580cf8000 - 0x1580cfbfff 0x1580cfc000 - 0x1580cfcfff 0x1580cfd000 - 0x1580cfdfff 0x1580cfe000 - 0x1580cfffff 0x1580d00000 - 0x1580d00fff 0x1580d01000 - 0x1580d01fff 0x1580d02000 - 0x1580e6dfff 0x1580e6e000 - 0x1580e70fff 0x1580e71000 - 0x1580e71fff 0x1580e72000 - 0x1580e74fff 0x1580e75000 - 0x1580e87fff 0x1580e88000 - 0x1580e88fff 0x1580e89000 - 0x1580e89fff 0x1580e8a000 - 0x1580fa8fff 0x1580fa9000 - 0x1580fabfff 0x1580fac000 - 0x1580faefff 0x1580faf000 - 0x1580fb3fff 0x1580fb4000 - 0x1581008fff 0x1581009000 - 0x15816b3fff 0x3fffdf1000 - 0x3fffe11fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/keyboard.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3bffb000 - 0x3c01bfff 0x80000000 - 0x800bffff 0x156d66e000 - 0x156d688fff 0x156d689000 - 0x156d689fff 0x156d68a000 - 0x156d68afff 0x156d68b000 - 0x156d68cfff 0x156d68d000 - 0x156d68efff 0x156d68f000 - 0x156d695fff 0x156d696000 - 0x156d696fff 0x156d697000 - 0x156d697fff 0x156d69a000 - 0x156d69bfff 0x156d69c000 - 0x156d6dafff 0x156d6db000 - 0x156d6dcfff 0x156d6dd000 - 0x156d6e3fff 0x156d6e4000 - 0x156d6e4fff 0x156d6e5000 - 0x156d70afff 0x156d70b000 - 0x156d70efff 0x156d70f000 - 0x156d70ffff 0x156d710000 - 0x156d711fff 0x156d712000 - 0x156d712fff 0x156d713000 - 0x156d713fff 0x156d714000 - 0x156d714fff 0x156d715000 - 0x156d718fff 0x156d719000 - 0x156d719fff 0x156d71a000 - 0x156d71afff 0x156d71b000 - 0x156d71cfff 0x156d71d000 - 0x156d71dfff 0x156d71e000 - 0x156d71efff 0x156d71f000 - 0x156d88afff 0x156d88b000 - 0x156d88dfff 0x156d88e000 - 0x156d88efff 0x156d88f000 - 0x156d891fff 0x156d892000 - 0x156d8a4fff 0x156d8a5000 - 0x156d8a5fff 0x156d8a6000 - 0x156d8a6fff 0x156d8a7000 - 0x156d9c5fff 0x156d9c6000 - 0x156d9c8fff 0x156d9c9000 - 0x156d9cbfff 0x156d9cc000 - 0x156d9d0fff 0x156d9d1000 - 0x156da25fff 0x156da26000 - 0x156e0d0fff 0x3fffdcd000 - 0x3fffdedfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/screen.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2b788000 - 0x2b7a8fff 0x80000000 - 0x800bffff 0x1582b8d000 - 0x1582ba7fff 0x1582ba8000 - 0x1582ba8fff 0x1582ba9000 - 0x1582ba9fff 0x1582baa000 - 0x1582babfff 0x1582bac000 - 0x1582badfff 0x1582bae000 - 0x1582bb4fff 0x1582bb5000 - 0x1582bb5fff 0x1582bb6000 - 0x1582bb6fff 0x1582bb9000 - 0x1582bbafff 0x1582bbb000 - 0x1582bf9fff 0x1582bfa000 - 0x1582bfbfff 0x1582bfc000 - 0x1582c02fff 0x1582c03000 - 0x1582c03fff 0x1582c04000 - 0x1582c29fff 0x1582c2a000 - 0x1582c2dfff 0x1582c2e000 - 0x1582c2efff 0x1582c2f000 - 0x1582c30fff 0x1582c31000 - 0x1582c31fff 0x1582c32000 - 0x1582c32fff 0x1582c33000 - 0x1582c33fff 0x1582c34000 - 0x1582c37fff 0x1582c38000 - 0x1582c38fff 0x1582c39000 - 0x1582c39fff 0x1582c3a000 - 0x1582c3bfff 0x1582c3c000 - 0x1582c3cfff 0x1582c3d000 - 0x1582c3dfff 0x1582c3e000 - 0x1582da9fff 0x1582daa000 - 0x1582dacfff 0x1582dad000 - 0x1582dadfff 0x1582dae000 - 0x1582db0fff 0x1582db1000 - 0x1582dc3fff 0x1582dc4000 - 0x1582dc4fff 0x1582dc5000 - 0x1582dc5fff 0x1582dc6000 - 0x1582ee4fff 0x1582ee5000 - 0x1582ee7fff 0x1582ee8000 - 0x1582eeafff 0x1582eeb000 - 0x1582eeffff 0x1582ef0000 - 0x1582f44fff 0x1582f45000 - 0x15835effff 0x3fff900000 - 0x3fff920fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/runprog.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x960d000 - 0x962dfff 0x80000000 - 0x800bffff 0x15557c2000 - 0x15557dcfff 0x15557dd000 - 0x15557ddfff 0x15557de000 - 0x15557defff 0x15557df000 - 0x15557e0fff 0x15557e1000 - 0x15557e2fff 0x15557e3000 - 0x15557e9fff 0x15557ea000 - 0x15557eafff 0x15557eb000 - 0x15557ebfff 0x15557ee000 - 0x15557effff 0x15557f0000 - 0x155582efff 0x155582f000 - 0x1555830fff 0x1555831000 - 0x1555837fff 0x1555838000 - 0x1555838fff 0x1555839000 - 0x155585efff 0x155585f000 - 0x1555862fff 0x1555863000 - 0x1555863fff 0x1555864000 - 0x1555865fff 0x1555866000 - 0x1555866fff 0x1555867000 - 0x1555867fff 0x1555868000 - 0x1555868fff 0x1555869000 - 0x155586cfff 0x155586d000 - 0x155586dfff 0x155586e000 - 0x155586efff 0x155586f000 - 0x1555870fff 0x1555871000 - 0x1555871fff 0x1555872000 - 0x1555872fff 0x1555873000 - 0x15559defff 0x15559df000 - 0x15559e1fff 0x15559e2000 - 0x15559e2fff 0x15559e3000 - 0x15559e5fff 0x15559e6000 - 0x15559f8fff 0x15559f9000 - 0x15559f9fff 0x15559fa000 - 0x15559fafff 0x15559fb000 - 0x1555b19fff 0x1555b1a000 - 0x1555b1cfff 0x1555b1d000 - 0x1555b1ffff 0x1555b20000 - 0x1555b24fff 0x1555b25000 - 0x1555b79fff 0x1555b7a000 - 0x1556224fff 0x3fff9ef000 - 0x3fffa0ffff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/query.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x288b2000 - 0x288d2fff 0x80000000 - 0x800bffff 0x1557a71000 - 0x1557a8bfff 0x1557a8c000 - 0x1557a8cfff 0x1557a8d000 - 0x1557a8dfff 0x1557a8e000 - 0x1557a8ffff 0x1557a90000 - 0x1557a91fff 0x1557a92000 - 0x1557a98fff 0x1557a99000 - 0x1557a99fff 0x1557a9a000 - 0x1557a9afff 0x1557a9d000 - 0x1557a9efff 0x1557a9f000 - 0x1557addfff 0x1557ade000 - 0x1557adffff 0x1557ae0000 - 0x1557ae6fff 0x1557ae7000 - 0x1557ae7fff 0x1557ae8000 - 0x1557b0dfff 0x1557b0e000 - 0x1557b11fff 0x1557b12000 - 0x1557b12fff 0x1557b13000 - 0x1557b14fff 0x1557b15000 - 0x1557b15fff 0x1557b16000 - 0x1557b16fff 0x1557b17000 - 0x1557b17fff 0x1557b18000 - 0x1557b1bfff 0x1557b1c000 - 0x1557b1cfff 0x1557b1d000 - 0x1557b1dfff 0x1557b1e000 - 0x1557b1ffff 0x1557b20000 - 0x1557b20fff 0x1557b21000 - 0x1557b21fff 0x1557b22000 - 0x1557c8dfff 0x1557c8e000 - 0x1557c90fff 0x1557c91000 - 0x1557c91fff 0x1557c92000 - 0x1557c94fff 0x1557c95000 - 0x1557ca7fff 0x1557ca8000 - 0x1557ca8fff 0x1557ca9000 - 0x1557ca9fff 0x1557caa000 - 0x1557dc8fff 0x1557dc9000 - 0x1557dcbfff 0x1557dcc000 - 0x1557dcefff 0x1557dcf000 - 0x1557dd3fff 0x1557dd4000 - 0x1557e28fff 0x1557e29000 - 0x15584d3fff 0x3fffc77000 - 0x3fffc97fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/reploop.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x192da000 - 0x192fafff 0x80000000 - 0x800bffff 0x1577075000 - 0x157708ffff 0x1577090000 - 0x1577090fff 0x1577091000 - 0x1577091fff 0x1577092000 - 0x1577093fff 0x1577094000 - 0x1577095fff 0x1577096000 - 0x157709cfff 0x157709d000 - 0x157709dfff 0x157709e000 - 0x157709efff 0x15770a1000 - 0x15770a2fff 0x15770a3000 - 0x15770e1fff 0x15770e2000 - 0x15770e3fff 0x15770e4000 - 0x15770eafff 0x15770eb000 - 0x15770ebfff 0x15770ec000 - 0x1577111fff 0x1577112000 - 0x1577115fff 0x1577116000 - 0x1577116fff 0x1577117000 - 0x1577118fff 0x1577119000 - 0x1577119fff 0x157711a000 - 0x157711afff 0x157711b000 - 0x157711bfff 0x157711c000 - 0x157711ffff 0x1577120000 - 0x1577120fff 0x1577121000 - 0x1577121fff 0x1577122000 - 0x1577123fff 0x1577124000 - 0x1577124fff 0x1577125000 - 0x1577125fff 0x1577126000 - 0x1577291fff 0x1577292000 - 0x1577294fff 0x1577295000 - 0x1577295fff 0x1577296000 - 0x1577298fff 0x1577299000 - 0x15772abfff 0x15772ac000 - 0x15772acfff 0x15772ad000 - 0x15772adfff 0x15772ae000 - 0x15773ccfff 0x15773cd000 - 0x15773cffff 0x15773d0000 - 0x15773d2fff 0x15773d3000 - 0x15773d7fff 0x15773d8000 - 0x157742cfff 0x157742d000 - 0x1577ad7fff 0x3ffffa2000 - 0x3ffffc2fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/dribble.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x29826000 - 0x29846fff 0x80000000 - 0x800bffff 0x1593911000 - 0x159392bfff 0x159392c000 - 0x159392cfff 0x159392d000 - 0x159392dfff 0x159392e000 - 0x159392ffff 0x1593930000 - 0x1593931fff 0x1593932000 - 0x1593938fff 0x1593939000 - 0x1593939fff 0x159393a000 - 0x159393afff 0x159393d000 - 0x159393efff 0x159393f000 - 0x159397dfff 0x159397e000 - 0x159397ffff 0x1593980000 - 0x1593986fff 0x1593987000 - 0x1593987fff 0x1593988000 - 0x15939adfff 0x15939ae000 - 0x15939b1fff 0x15939b2000 - 0x15939b2fff 0x15939b3000 - 0x15939b4fff 0x15939b5000 - 0x15939b5fff 0x15939b6000 - 0x15939b6fff 0x15939b7000 - 0x15939b7fff 0x15939b8000 - 0x15939bbfff 0x15939bc000 - 0x15939bcfff 0x15939bd000 - 0x15939bdfff 0x15939be000 - 0x15939bffff 0x15939c0000 - 0x15939c0fff 0x15939c1000 - 0x15939c1fff 0x15939c2000 - 0x1593b2dfff 0x1593b2e000 - 0x1593b30fff 0x1593b31000 - 0x1593b31fff 0x1593b32000 - 0x1593b34fff 0x1593b35000 - 0x1593b47fff 0x1593b48000 - 0x1593b48fff 0x1593b49000 - 0x1593b49fff 0x1593b4a000 - 0x1593c68fff 0x1593c69000 - 0x1593c6bfff 0x1593c6c000 - 0x1593c6efff 0x1593c6f000 - 0x1593c73fff 0x1593c74000 - 0x1593cc8fff 0x1593cc9000 - 0x1594373fff 0x3fffa61000 - 0x3fffa81fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/complete.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x38484000 - 0x384a4fff 0x80000000 - 0x800bffff 0x155b8d6000 - 0x155b8f0fff 0x155b8f1000 - 0x155b8f1fff 0x155b8f2000 - 0x155b8f2fff 0x155b8f3000 - 0x155b8f4fff 0x155b8f5000 - 0x155b8f6fff 0x155b8f7000 - 0x155b8fdfff 0x155b8fe000 - 0x155b8fefff 0x155b8ff000 - 0x155b8fffff 0x155b902000 - 0x155b903fff 0x155b904000 - 0x155b942fff 0x155b943000 - 0x155b944fff 0x155b945000 - 0x155b94bfff 0x155b94c000 - 0x155b94cfff 0x155b94d000 - 0x155b972fff 0x155b973000 - 0x155b976fff 0x155b977000 - 0x155b977fff 0x155b978000 - 0x155b979fff 0x155b97a000 - 0x155b97afff 0x155b97b000 - 0x155b97bfff 0x155b97c000 - 0x155b97cfff 0x155b97d000 - 0x155b980fff 0x155b981000 - 0x155b981fff 0x155b982000 - 0x155b982fff 0x155b983000 - 0x155b984fff 0x155b985000 - 0x155b985fff 0x155b986000 - 0x155b986fff 0x155b987000 - 0x155baf2fff 0x155baf3000 - 0x155baf5fff 0x155baf6000 - 0x155baf6fff 0x155baf7000 - 0x155baf9fff 0x155bafa000 - 0x155bb0cfff 0x155bb0d000 - 0x155bb0dfff 0x155bb0e000 - 0x155bb0efff 0x155bb0f000 - 0x155bc2dfff 0x155bc2e000 - 0x155bc30fff 0x155bc31000 - 0x155bc33fff 0x155bc34000 - 0x155bc38fff 0x155bc39000 - 0x155bc8dfff 0x155bc8e000 - 0x155c338fff 0x3fffa00000 - 0x3fffa20fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/pprint.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1d4ad000 - 0x1d4cdfff 0x80000000 - 0x800bffff 0x1571867000 - 0x1571881fff 0x1571882000 - 0x1571882fff 0x1571883000 - 0x1571883fff 0x1571884000 - 0x1571885fff 0x1571886000 - 0x1571887fff 0x1571888000 - 0x157188efff 0x157188f000 - 0x157188ffff 0x1571890000 - 0x1571890fff 0x1571893000 - 0x1571894fff 0x1571895000 - 0x15718d3fff 0x15718d4000 - 0x15718d5fff 0x15718d6000 - 0x15718dcfff 0x15718dd000 - 0x15718ddfff 0x15718de000 - 0x1571903fff 0x1571904000 - 0x1571907fff 0x1571908000 - 0x1571908fff 0x1571909000 - 0x157190afff 0x157190b000 - 0x157190bfff 0x157190c000 - 0x157190cfff 0x157190d000 - 0x157190dfff 0x157190e000 - 0x1571911fff 0x1571912000 - 0x1571912fff 0x1571913000 - 0x1571913fff 0x1571914000 - 0x1571915fff 0x1571916000 - 0x1571916fff 0x1571917000 - 0x1571917fff 0x1571918000 - 0x1571a83fff 0x1571a84000 - 0x1571a86fff 0x1571a87000 - 0x1571a87fff 0x1571a88000 - 0x1571a8afff 0x1571a8b000 - 0x1571a9dfff 0x1571a9e000 - 0x1571a9efff 0x1571a9f000 - 0x1571a9ffff 0x1571aa0000 - 0x1571bbefff 0x1571bbf000 - 0x1571bc1fff 0x1571bc2000 - 0x1571bc4fff 0x1571bc5000 - 0x1571bc9fff 0x1571bca000 - 0x1571c1efff 0x1571c1f000 - 0x15722c9fff 0x3fffe65000 - 0x3fffe85fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/describe.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x75a9000 - 0x75c9fff 0x80000000 - 0x800bffff 0x15667b2000 - 0x15667ccfff 0x15667cd000 - 0x15667cdfff 0x15667ce000 - 0x15667cefff 0x15667cf000 - 0x15667d0fff 0x15667d1000 - 0x15667d2fff 0x15667d3000 - 0x15667d9fff 0x15667da000 - 0x15667dafff 0x15667db000 - 0x15667dbfff 0x15667de000 - 0x15667dffff 0x15667e0000 - 0x156681efff 0x156681f000 - 0x1566820fff 0x1566821000 - 0x1566827fff 0x1566828000 - 0x1566828fff 0x1566829000 - 0x156684efff 0x156684f000 - 0x1566852fff 0x1566853000 - 0x1566853fff 0x1566854000 - 0x1566855fff 0x1566856000 - 0x1566856fff 0x1566857000 - 0x1566857fff 0x1566858000 - 0x1566858fff 0x1566859000 - 0x156685cfff 0x156685d000 - 0x156685dfff 0x156685e000 - 0x156685efff 0x156685f000 - 0x1566860fff 0x1566861000 - 0x1566861fff 0x1566862000 - 0x1566862fff 0x1566863000 - 0x15669cefff 0x15669cf000 - 0x15669d1fff 0x15669d2000 - 0x15669d2fff 0x15669d3000 - 0x15669d5fff 0x15669d6000 - 0x15669e8fff 0x15669e9000 - 0x15669e9fff 0x15669ea000 - 0x15669eafff 0x15669eb000 - 0x1566b09fff 0x1566b0a000 - 0x1566b0cfff 0x1566b0d000 - 0x1566b0ffff 0x1566b10000 - 0x1566b14fff 0x1566b15000 - 0x1566b69fff 0x1566b6a000 - 0x1567214fff 0x3fffb3e000 - 0x3fffb5efff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/room.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2622a000 - 0x2624afff 0x80000000 - 0x800bffff 0x15735a3000 - 0x15735bdfff 0x15735be000 - 0x15735befff 0x15735bf000 - 0x15735bffff 0x15735c0000 - 0x15735c1fff 0x15735c2000 - 0x15735c3fff 0x15735c4000 - 0x15735cafff 0x15735cb000 - 0x15735cbfff 0x15735cc000 - 0x15735ccfff 0x15735cf000 - 0x15735d0fff 0x15735d1000 - 0x157360ffff 0x1573610000 - 0x1573611fff 0x1573612000 - 0x1573618fff 0x1573619000 - 0x1573619fff 0x157361a000 - 0x157363ffff 0x1573640000 - 0x1573643fff 0x1573644000 - 0x1573644fff 0x1573645000 - 0x1573646fff 0x1573647000 - 0x1573647fff 0x1573648000 - 0x1573648fff 0x1573649000 - 0x1573649fff 0x157364a000 - 0x157364dfff 0x157364e000 - 0x157364efff 0x157364f000 - 0x157364ffff 0x1573650000 - 0x1573651fff 0x1573652000 - 0x1573652fff 0x1573653000 - 0x1573653fff 0x1573654000 - 0x15737bffff 0x15737c0000 - 0x15737c2fff 0x15737c3000 - 0x15737c3fff 0x15737c4000 - 0x15737c6fff 0x15737c7000 - 0x15737d9fff 0x15737da000 - 0x15737dafff 0x15737db000 - 0x15737dbfff 0x15737dc000 - 0x15738fafff 0x15738fb000 - 0x15738fdfff 0x15738fe000 - 0x1573900fff 0x1573901000 - 0x1573905fff 0x1573906000 - 0x157395afff 0x157395b000 - 0x1574005fff 0x3fffc55000 - 0x3fffc75fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/edit.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x5a9c000 - 0x5abcfff 0x80000000 - 0x800bffff 0x1567b2e000 - 0x1567b48fff 0x1567b49000 - 0x1567b49fff 0x1567b4a000 - 0x1567b4afff 0x1567b4b000 - 0x1567b4cfff 0x1567b4d000 - 0x1567b4efff 0x1567b4f000 - 0x1567b55fff 0x1567b56000 - 0x1567b56fff 0x1567b57000 - 0x1567b57fff 0x1567b5a000 - 0x1567b5bfff 0x1567b5c000 - 0x1567b9afff 0x1567b9b000 - 0x1567b9cfff 0x1567b9d000 - 0x1567ba3fff 0x1567ba4000 - 0x1567ba4fff 0x1567ba5000 - 0x1567bcafff 0x1567bcb000 - 0x1567bcefff 0x1567bcf000 - 0x1567bcffff 0x1567bd0000 - 0x1567bd1fff 0x1567bd2000 - 0x1567bd2fff 0x1567bd3000 - 0x1567bd3fff 0x1567bd4000 - 0x1567bd4fff 0x1567bd5000 - 0x1567bd8fff 0x1567bd9000 - 0x1567bd9fff 0x1567bda000 - 0x1567bdafff 0x1567bdb000 - 0x1567bdcfff 0x1567bdd000 - 0x1567bddfff 0x1567bde000 - 0x1567bdefff 0x1567bdf000 - 0x1567d4afff 0x1567d4b000 - 0x1567d4dfff 0x1567d4e000 - 0x1567d4efff 0x1567d4f000 - 0x1567d51fff 0x1567d52000 - 0x1567d64fff 0x1567d65000 - 0x1567d65fff 0x1567d66000 - 0x1567d66fff 0x1567d67000 - 0x1567e85fff 0x1567e86000 - 0x1567e88fff 0x1567e89000 - 0x1567e8bfff 0x1567e8c000 - 0x1567e90fff 0x1567e91000 - 0x1567ee5fff 0x1567ee6000 - 0x1568590fff 0x3fffb1d000 - 0x3fffb3dfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/macros3.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1dc81000 - 0x1dca1fff 0x80000000 - 0x800bffff 0x1560dc1000 - 0x1560ddbfff 0x1560ddc000 - 0x1560ddcfff 0x1560ddd000 - 0x1560dddfff 0x1560dde000 - 0x1560ddffff 0x1560de0000 - 0x1560de1fff 0x1560de2000 - 0x1560de8fff 0x1560de9000 - 0x1560de9fff 0x1560dea000 - 0x1560deafff 0x1560ded000 - 0x1560deefff 0x1560def000 - 0x1560e2dfff 0x1560e2e000 - 0x1560e2ffff 0x1560e30000 - 0x1560e36fff 0x1560e37000 - 0x1560e37fff 0x1560e38000 - 0x1560e5dfff 0x1560e5e000 - 0x1560e61fff 0x1560e62000 - 0x1560e62fff 0x1560e63000 - 0x1560e64fff 0x1560e65000 - 0x1560e65fff 0x1560e66000 - 0x1560e66fff 0x1560e67000 - 0x1560e67fff 0x1560e68000 - 0x1560e6bfff 0x1560e6c000 - 0x1560e6cfff 0x1560e6d000 - 0x1560e6dfff 0x1560e6e000 - 0x1560e6ffff 0x1560e70000 - 0x1560e70fff 0x1560e71000 - 0x1560e71fff 0x1560e72000 - 0x1560fddfff 0x1560fde000 - 0x1560fe0fff 0x1560fe1000 - 0x1560fe1fff 0x1560fe2000 - 0x1560fe4fff 0x1560fe5000 - 0x1560ff7fff 0x1560ff8000 - 0x1560ff8fff 0x1560ff9000 - 0x1560ff9fff 0x1560ffa000 - 0x1561118fff 0x1561119000 - 0x156111bfff 0x156111c000 - 0x156111efff 0x156111f000 - 0x1561123fff 0x1561124000 - 0x1561178fff 0x1561179000 - 0x1561823fff 0x3fffe29000 - 0x3fffe49fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clhs.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2fe8f000 - 0x2feaffff 0x80000000 - 0x800bffff 0x1570e34000 - 0x1570e4efff 0x1570e4f000 - 0x1570e4ffff 0x1570e50000 - 0x1570e50fff 0x1570e51000 - 0x1570e52fff 0x1570e53000 - 0x1570e54fff 0x1570e55000 - 0x1570e5bfff 0x1570e5c000 - 0x1570e5cfff 0x1570e5d000 - 0x1570e5dfff 0x1570e60000 - 0x1570e61fff 0x1570e62000 - 0x1570ea0fff 0x1570ea1000 - 0x1570ea2fff 0x1570ea3000 - 0x1570ea9fff 0x1570eaa000 - 0x1570eaafff 0x1570eab000 - 0x1570ed0fff 0x1570ed1000 - 0x1570ed4fff 0x1570ed5000 - 0x1570ed5fff 0x1570ed6000 - 0x1570ed7fff 0x1570ed8000 - 0x1570ed8fff 0x1570ed9000 - 0x1570ed9fff 0x1570eda000 - 0x1570edafff 0x1570edb000 - 0x1570edefff 0x1570edf000 - 0x1570edffff 0x1570ee0000 - 0x1570ee0fff 0x1570ee1000 - 0x1570ee2fff 0x1570ee3000 - 0x1570ee3fff 0x1570ee4000 - 0x1570ee4fff 0x1570ee5000 - 0x1571050fff 0x1571051000 - 0x1571053fff 0x1571054000 - 0x1571054fff 0x1571055000 - 0x1571057fff 0x1571058000 - 0x157106afff 0x157106b000 - 0x157106bfff 0x157106c000 - 0x157106cfff 0x157106d000 - 0x157118bfff 0x157118c000 - 0x157118efff 0x157118f000 - 0x1571191fff 0x1571192000 - 0x1571196fff 0x1571197000 - 0x15711ebfff 0x15711ec000 - 0x1571896fff 0x3fffd5d000 - 0x3fffd7dfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/inspect.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x243a6000 - 0x243c6fff 0x80000000 - 0x800bffff 0x158755c000 - 0x1587576fff 0x1587577000 - 0x1587577fff 0x1587578000 - 0x1587578fff 0x1587579000 - 0x158757afff 0x158757b000 - 0x158757cfff 0x158757d000 - 0x1587583fff 0x1587584000 - 0x1587584fff 0x1587585000 - 0x1587585fff 0x1587588000 - 0x1587589fff 0x158758a000 - 0x15875c8fff 0x15875c9000 - 0x15875cafff 0x15875cb000 - 0x15875d1fff 0x15875d2000 - 0x15875d2fff 0x15875d3000 - 0x15875f8fff 0x15875f9000 - 0x15875fcfff 0x15875fd000 - 0x15875fdfff 0x15875fe000 - 0x15875fffff 0x1587600000 - 0x1587600fff 0x1587601000 - 0x1587601fff 0x1587602000 - 0x1587602fff 0x1587603000 - 0x1587606fff 0x1587607000 - 0x1587607fff 0x1587608000 - 0x1587608fff 0x1587609000 - 0x158760afff 0x158760b000 - 0x158760bfff 0x158760c000 - 0x158760cfff 0x158760d000 - 0x1587778fff 0x1587779000 - 0x158777bfff 0x158777c000 - 0x158777cfff 0x158777d000 - 0x158777ffff 0x1587780000 - 0x1587792fff 0x1587793000 - 0x1587793fff 0x1587794000 - 0x1587794fff 0x1587795000 - 0x15878b3fff 0x15878b4000 - 0x15878b6fff 0x15878b7000 - 0x15878b9fff 0x15878ba000 - 0x15878befff 0x15878bf000 - 0x1587913fff 0x1587914000 - 0x1587fbefff 0x3fffd77000 - 0x3fffd97fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gray.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2842d000 - 0x2844dfff 0x80000000 - 0x800bffff 0x155d4e1000 - 0x155d4fbfff 0x155d4fc000 - 0x155d4fcfff 0x155d4fd000 - 0x155d4fdfff 0x155d4fe000 - 0x155d4fffff 0x155d500000 - 0x155d501fff 0x155d502000 - 0x155d508fff 0x155d509000 - 0x155d509fff 0x155d50a000 - 0x155d50afff 0x155d50d000 - 0x155d50efff 0x155d50f000 - 0x155d54dfff 0x155d54e000 - 0x155d54ffff 0x155d550000 - 0x155d556fff 0x155d557000 - 0x155d557fff 0x155d558000 - 0x155d57dfff 0x155d57e000 - 0x155d581fff 0x155d582000 - 0x155d582fff 0x155d583000 - 0x155d584fff 0x155d585000 - 0x155d585fff 0x155d586000 - 0x155d586fff 0x155d587000 - 0x155d587fff 0x155d588000 - 0x155d58bfff 0x155d58c000 - 0x155d58cfff 0x155d58d000 - 0x155d58dfff 0x155d58e000 - 0x155d58ffff 0x155d590000 - 0x155d590fff 0x155d591000 - 0x155d591fff 0x155d592000 - 0x155d6fdfff 0x155d6fe000 - 0x155d700fff 0x155d701000 - 0x155d701fff 0x155d702000 - 0x155d704fff 0x155d705000 - 0x155d717fff 0x155d718000 - 0x155d718fff 0x155d719000 - 0x155d719fff 0x155d71a000 - 0x155d838fff 0x155d839000 - 0x155d83bfff 0x155d83c000 - 0x155d83efff 0x155d83f000 - 0x155d843fff 0x155d844000 - 0x155d898fff 0x155d899000 - 0x155df43fff 0x3fffc5b000 - 0x3fffc7bfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/case-sensitive.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x9006000 - 0x9026fff 0x80000000 - 0x800bffff 0x156998f000 - 0x15699a9fff 0x15699aa000 - 0x15699aafff 0x15699ab000 - 0x15699abfff 0x15699ac000 - 0x15699adfff 0x15699ae000 - 0x15699affff 0x15699b0000 - 0x15699b6fff 0x15699b7000 - 0x15699b7fff 0x15699b8000 - 0x15699b8fff 0x15699bb000 - 0x15699bcfff 0x15699bd000 - 0x15699fbfff 0x15699fc000 - 0x15699fdfff 0x15699fe000 - 0x1569a04fff 0x1569a05000 - 0x1569a05fff 0x1569a06000 - 0x1569a2bfff 0x1569a2c000 - 0x1569a2ffff 0x1569a30000 - 0x1569a30fff 0x1569a31000 - 0x1569a32fff 0x1569a33000 - 0x1569a33fff 0x1569a34000 - 0x1569a34fff 0x1569a35000 - 0x1569a35fff 0x1569a36000 - 0x1569a39fff 0x1569a3a000 - 0x1569a3afff 0x1569a3b000 - 0x1569a3bfff 0x1569a3c000 - 0x1569a3dfff 0x1569a3e000 - 0x1569a3efff 0x1569a3f000 - 0x1569a3ffff 0x1569a40000 - 0x1569babfff 0x1569bac000 - 0x1569baefff 0x1569baf000 - 0x1569baffff 0x1569bb0000 - 0x1569bb2fff 0x1569bb3000 - 0x1569bc5fff 0x1569bc6000 - 0x1569bc6fff 0x1569bc7000 - 0x1569bc7fff 0x1569bc8000 - 0x1569ce6fff 0x1569ce7000 - 0x1569ce9fff 0x1569cea000 - 0x1569cecfff 0x1569ced000 - 0x1569cf1fff 0x1569cf2000 - 0x1569d46fff 0x1569d47000 - 0x156a3f1fff 0x3fffdf4000 - 0x3fffe14fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/foreign1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3e19a000 - 0x3e1bafff 0x80000000 - 0x800bffff 0x158fb28000 - 0x158fb42fff 0x158fb43000 - 0x158fb43fff 0x158fb44000 - 0x158fb44fff 0x158fb45000 - 0x158fb46fff 0x158fb47000 - 0x158fb48fff 0x158fb49000 - 0x158fb4ffff 0x158fb50000 - 0x158fb50fff 0x158fb51000 - 0x158fb51fff 0x158fb54000 - 0x158fb55fff 0x158fb56000 - 0x158fb94fff 0x158fb95000 - 0x158fb96fff 0x158fb97000 - 0x158fb9dfff 0x158fb9e000 - 0x158fb9efff 0x158fb9f000 - 0x158fbc4fff 0x158fbc5000 - 0x158fbc8fff 0x158fbc9000 - 0x158fbc9fff 0x158fbca000 - 0x158fbcbfff 0x158fbcc000 - 0x158fbccfff 0x158fbcd000 - 0x158fbcdfff 0x158fbce000 - 0x158fbcefff 0x158fbcf000 - 0x158fbd2fff 0x158fbd3000 - 0x158fbd3fff 0x158fbd4000 - 0x158fbd4fff 0x158fbd5000 - 0x158fbd6fff 0x158fbd7000 - 0x158fbd7fff 0x158fbd8000 - 0x158fbd8fff 0x158fbd9000 - 0x158fd44fff 0x158fd45000 - 0x158fd47fff 0x158fd48000 - 0x158fd48fff 0x158fd49000 - 0x158fd4bfff 0x158fd4c000 - 0x158fd5efff 0x158fd5f000 - 0x158fd5ffff 0x158fd60000 - 0x158fd60fff 0x158fd61000 - 0x158fe7ffff 0x158fe80000 - 0x158fe82fff 0x158fe83000 - 0x158fe85fff 0x158fe86000 - 0x158fe8afff 0x158fe8b000 - 0x158fedffff 0x158fee0000 - 0x159058afff 0x3fffaa0000 - 0x3fffac0fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/exporting.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x26ab000 - 0x26cbfff 0x80000000 - 0x800bffff 0x158750f000 - 0x1587529fff 0x158752a000 - 0x158752afff 0x158752b000 - 0x158752bfff 0x158752c000 - 0x158752dfff 0x158752e000 - 0x158752ffff 0x1587530000 - 0x1587536fff 0x1587537000 - 0x1587537fff 0x1587538000 - 0x1587538fff 0x158753b000 - 0x158753cfff 0x158753d000 - 0x158757bfff 0x158757c000 - 0x158757dfff 0x158757e000 - 0x1587584fff 0x1587585000 - 0x1587585fff 0x1587586000 - 0x15875abfff 0x15875ac000 - 0x15875affff 0x15875b0000 - 0x15875b0fff 0x15875b1000 - 0x15875b2fff 0x15875b3000 - 0x15875b3fff 0x15875b4000 - 0x15875b4fff 0x15875b5000 - 0x15875b5fff 0x15875b6000 - 0x15875b9fff 0x15875ba000 - 0x15875bafff 0x15875bb000 - 0x15875bbfff 0x15875bc000 - 0x15875bdfff 0x15875be000 - 0x15875befff 0x15875bf000 - 0x15875bffff 0x15875c0000 - 0x158772bfff 0x158772c000 - 0x158772efff 0x158772f000 - 0x158772ffff 0x1587730000 - 0x1587732fff 0x1587733000 - 0x1587745fff 0x1587746000 - 0x1587746fff 0x1587747000 - 0x1587747fff 0x1587748000 - 0x1587866fff 0x1587867000 - 0x1587869fff 0x158786a000 - 0x158786cfff 0x158786d000 - 0x1587871fff 0x1587872000 - 0x15878c6fff 0x15878c7000 - 0x1587f71fff 0x3fffd60000 - 0x3fffd80fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/german.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x33d2f000 - 0x33d4ffff 0x80000000 - 0x800bffff 0x1591be8000 - 0x1591c02fff 0x1591c03000 - 0x1591c03fff 0x1591c04000 - 0x1591c04fff 0x1591c05000 - 0x1591c06fff 0x1591c07000 - 0x1591c08fff 0x1591c09000 - 0x1591c0ffff 0x1591c10000 - 0x1591c10fff 0x1591c11000 - 0x1591c11fff 0x1591c14000 - 0x1591c15fff 0x1591c16000 - 0x1591c54fff 0x1591c55000 - 0x1591c56fff 0x1591c57000 - 0x1591c5dfff 0x1591c5e000 - 0x1591c5efff 0x1591c5f000 - 0x1591c84fff 0x1591c85000 - 0x1591c88fff 0x1591c89000 - 0x1591c89fff 0x1591c8a000 - 0x1591c8bfff 0x1591c8c000 - 0x1591c8cfff 0x1591c8d000 - 0x1591c8dfff 0x1591c8e000 - 0x1591c8efff 0x1591c8f000 - 0x1591c92fff 0x1591c93000 - 0x1591c93fff 0x1591c94000 - 0x1591c94fff 0x1591c95000 - 0x1591c96fff 0x1591c97000 - 0x1591c97fff 0x1591c98000 - 0x1591c98fff 0x1591c99000 - 0x1591e04fff 0x1591e05000 - 0x1591e07fff 0x1591e08000 - 0x1591e08fff 0x1591e09000 - 0x1591e0bfff 0x1591e0c000 - 0x1591e1efff 0x1591e1f000 - 0x1591e1ffff 0x1591e20000 - 0x1591e20fff 0x1591e21000 - 0x1591f3ffff 0x1591f40000 - 0x1591f42fff 0x1591f43000 - 0x1591f45fff 0x1591f46000 - 0x1591f4afff 0x1591f4b000 - 0x1591f9ffff 0x1591fa0000 - 0x159264afff 0x3fff8af000 - 0x3fff8cffff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/french.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2ebe7000 - 0x2ec07fff 0x80000000 - 0x800bffff 0x157bb62000 - 0x157bb7cfff 0x157bb7d000 - 0x157bb7dfff 0x157bb7e000 - 0x157bb7efff 0x157bb7f000 - 0x157bb80fff 0x157bb81000 - 0x157bb82fff 0x157bb83000 - 0x157bb89fff 0x157bb8a000 - 0x157bb8afff 0x157bb8b000 - 0x157bb8bfff 0x157bb8e000 - 0x157bb8ffff 0x157bb90000 - 0x157bbcefff 0x157bbcf000 - 0x157bbd0fff 0x157bbd1000 - 0x157bbd7fff 0x157bbd8000 - 0x157bbd8fff 0x157bbd9000 - 0x157bbfefff 0x157bbff000 - 0x157bc02fff 0x157bc03000 - 0x157bc03fff 0x157bc04000 - 0x157bc05fff 0x157bc06000 - 0x157bc06fff 0x157bc07000 - 0x157bc07fff 0x157bc08000 - 0x157bc08fff 0x157bc09000 - 0x157bc0cfff 0x157bc0d000 - 0x157bc0dfff 0x157bc0e000 - 0x157bc0efff 0x157bc0f000 - 0x157bc10fff 0x157bc11000 - 0x157bc11fff 0x157bc12000 - 0x157bc12fff 0x157bc13000 - 0x157bd7efff 0x157bd7f000 - 0x157bd81fff 0x157bd82000 - 0x157bd82fff 0x157bd83000 - 0x157bd85fff 0x157bd86000 - 0x157bd98fff 0x157bd99000 - 0x157bd99fff 0x157bd9a000 - 0x157bd9afff 0x157bd9b000 - 0x157beb9fff 0x157beba000 - 0x157bebcfff 0x157bebd000 - 0x157bebffff 0x157bec0000 - 0x157bec4fff 0x157bec5000 - 0x157bf19fff 0x157bf1a000 - 0x157c5c4fff 0x3fffbca000 - 0x3fffbeafff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/spanish.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x660c000 - 0x662cfff 0x80000000 - 0x800bffff 0x156db08000 - 0x156db22fff 0x156db23000 - 0x156db23fff 0x156db24000 - 0x156db24fff 0x156db25000 - 0x156db26fff 0x156db27000 - 0x156db28fff 0x156db29000 - 0x156db2ffff 0x156db30000 - 0x156db30fff 0x156db31000 - 0x156db31fff 0x156db34000 - 0x156db35fff 0x156db36000 - 0x156db74fff 0x156db75000 - 0x156db76fff 0x156db77000 - 0x156db7dfff 0x156db7e000 - 0x156db7efff 0x156db7f000 - 0x156dba4fff 0x156dba5000 - 0x156dba8fff 0x156dba9000 - 0x156dba9fff 0x156dbaa000 - 0x156dbabfff 0x156dbac000 - 0x156dbacfff 0x156dbad000 - 0x156dbadfff 0x156dbae000 - 0x156dbaefff 0x156dbaf000 - 0x156dbb2fff 0x156dbb3000 - 0x156dbb3fff 0x156dbb4000 - 0x156dbb4fff 0x156dbb5000 - 0x156dbb6fff 0x156dbb7000 - 0x156dbb7fff 0x156dbb8000 - 0x156dbb8fff 0x156dbb9000 - 0x156dd24fff 0x156dd25000 - 0x156dd27fff 0x156dd28000 - 0x156dd28fff 0x156dd29000 - 0x156dd2bfff 0x156dd2c000 - 0x156dd3efff 0x156dd3f000 - 0x156dd3ffff 0x156dd40000 - 0x156dd40fff 0x156dd41000 - 0x156de5ffff 0x156de60000 - 0x156de62fff 0x156de63000 - 0x156de65fff 0x156de66000 - 0x156de6afff 0x156de6b000 - 0x156debffff 0x156dec0000 - 0x156e56afff 0x3fffa5a000 - 0x3fffa7afff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/russian.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x339a4000 - 0x339c4fff 0x80000000 - 0x800bffff 0x15716e0000 - 0x15716fafff 0x15716fb000 - 0x15716fbfff 0x15716fc000 - 0x15716fcfff 0x15716fd000 - 0x15716fefff 0x15716ff000 - 0x1571700fff 0x1571701000 - 0x1571707fff 0x1571708000 - 0x1571708fff 0x1571709000 - 0x1571709fff 0x157170c000 - 0x157170dfff 0x157170e000 - 0x157174cfff 0x157174d000 - 0x157174efff 0x157174f000 - 0x1571755fff 0x1571756000 - 0x1571756fff 0x1571757000 - 0x157177cfff 0x157177d000 - 0x1571780fff 0x1571781000 - 0x1571781fff 0x1571782000 - 0x1571783fff 0x1571784000 - 0x1571784fff 0x1571785000 - 0x1571785fff 0x1571786000 - 0x1571786fff 0x1571787000 - 0x157178afff 0x157178b000 - 0x157178bfff 0x157178c000 - 0x157178cfff 0x157178d000 - 0x157178efff 0x157178f000 - 0x157178ffff 0x1571790000 - 0x1571790fff 0x1571791000 - 0x15718fcfff 0x15718fd000 - 0x15718fffff 0x1571900000 - 0x1571900fff 0x1571901000 - 0x1571903fff 0x1571904000 - 0x1571916fff 0x1571917000 - 0x1571917fff 0x1571918000 - 0x1571918fff 0x1571919000 - 0x1571a37fff 0x1571a38000 - 0x1571a3afff 0x1571a3b000 - 0x1571a3dfff 0x1571a3e000 - 0x1571a42fff 0x1571a43000 - 0x1571a97fff 0x1571a98000 - 0x1572142fff 0x3fff9c0000 - 0x3fff9e0fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/danish.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2dc61000 - 0x2dc81fff 0x80000000 - 0x800bffff 0x1584546000 - 0x1584560fff 0x1584561000 - 0x1584561fff 0x1584562000 - 0x1584562fff 0x1584563000 - 0x1584564fff 0x1584565000 - 0x1584566fff 0x1584567000 - 0x158456dfff 0x158456e000 - 0x158456efff 0x158456f000 - 0x158456ffff 0x1584572000 - 0x1584573fff 0x1584574000 - 0x15845b2fff 0x15845b3000 - 0x15845b4fff 0x15845b5000 - 0x15845bbfff 0x15845bc000 - 0x15845bcfff 0x15845bd000 - 0x15845e2fff 0x15845e3000 - 0x15845e6fff 0x15845e7000 - 0x15845e7fff 0x15845e8000 - 0x15845e9fff 0x15845ea000 - 0x15845eafff 0x15845eb000 - 0x15845ebfff 0x15845ec000 - 0x15845ecfff 0x15845ed000 - 0x15845f0fff 0x15845f1000 - 0x15845f1fff 0x15845f2000 - 0x15845f2fff 0x15845f3000 - 0x15845f4fff 0x15845f5000 - 0x15845f5fff 0x15845f6000 - 0x15845f6fff 0x15845f7000 - 0x1584762fff 0x1584763000 - 0x1584765fff 0x1584766000 - 0x1584766fff 0x1584767000 - 0x1584769fff 0x158476a000 - 0x158477cfff 0x158477d000 - 0x158477dfff 0x158477e000 - 0x158477efff 0x158477f000 - 0x158489dfff 0x158489e000 - 0x15848a0fff 0x15848a1000 - 0x15848a3fff 0x15848a4000 - 0x15848a8fff 0x15848a9000 - 0x15848fdfff 0x15848fe000 - 0x1584fa8fff 0x3fff83f000 - 0x3fff85ffff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/dutch.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x308fa000 - 0x3091afff 0x80000000 - 0x800bffff 0x157d7d2000 - 0x157d7ecfff 0x157d7ed000 - 0x157d7edfff 0x157d7ee000 - 0x157d7eefff 0x157d7ef000 - 0x157d7f0fff 0x157d7f1000 - 0x157d7f2fff 0x157d7f3000 - 0x157d7f9fff 0x157d7fa000 - 0x157d7fafff 0x157d7fb000 - 0x157d7fbfff 0x157d7fe000 - 0x157d7fffff 0x157d800000 - 0x157d83efff 0x157d83f000 - 0x157d840fff 0x157d841000 - 0x157d847fff 0x157d848000 - 0x157d848fff 0x157d849000 - 0x157d86efff 0x157d86f000 - 0x157d872fff 0x157d873000 - 0x157d873fff 0x157d874000 - 0x157d875fff 0x157d876000 - 0x157d876fff 0x157d877000 - 0x157d877fff 0x157d878000 - 0x157d878fff 0x157d879000 - 0x157d87cfff 0x157d87d000 - 0x157d87dfff 0x157d87e000 - 0x157d87efff 0x157d87f000 - 0x157d880fff 0x157d881000 - 0x157d881fff 0x157d882000 - 0x157d882fff 0x157d883000 - 0x157d9eefff 0x157d9ef000 - 0x157d9f1fff 0x157d9f2000 - 0x157d9f2fff 0x157d9f3000 - 0x157d9f5fff 0x157d9f6000 - 0x157da08fff 0x157da09000 - 0x157da09fff 0x157da0a000 - 0x157da0afff 0x157da0b000 - 0x157db29fff 0x157db2a000 - 0x157db2cfff 0x157db2d000 - 0x157db2ffff 0x157db30000 - 0x157db34fff 0x157db35000 - 0x157db89fff 0x157db8a000 - 0x157e234fff 0x3fffc48000 - 0x3fffc68fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/deprecated.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x29364000 - 0x29384fff 0x80000000 - 0x800bffff 0x157857d000 - 0x1578597fff 0x1578598000 - 0x1578598fff 0x1578599000 - 0x1578599fff 0x157859a000 - 0x157859bfff 0x157859c000 - 0x157859dfff 0x157859e000 - 0x15785a4fff 0x15785a5000 - 0x15785a5fff 0x15785a6000 - 0x15785a6fff 0x15785a9000 - 0x15785aafff 0x15785ab000 - 0x15785e9fff 0x15785ea000 - 0x15785ebfff 0x15785ec000 - 0x15785f2fff 0x15785f3000 - 0x15785f3fff 0x15785f4000 - 0x1578619fff 0x157861a000 - 0x157861dfff 0x157861e000 - 0x157861efff 0x157861f000 - 0x1578620fff 0x1578621000 - 0x1578621fff 0x1578622000 - 0x1578622fff 0x1578623000 - 0x1578623fff 0x1578624000 - 0x1578627fff 0x1578628000 - 0x1578628fff 0x1578629000 - 0x1578629fff 0x157862a000 - 0x157862bfff 0x157862c000 - 0x157862cfff 0x157862d000 - 0x157862dfff 0x157862e000 - 0x1578799fff 0x157879a000 - 0x157879cfff 0x157879d000 - 0x157879dfff 0x157879e000 - 0x15787a0fff 0x15787a1000 - 0x15787b3fff 0x15787b4000 - 0x15787b4fff 0x15787b5000 - 0x15787b5fff 0x15787b6000 - 0x15788d4fff 0x15788d5000 - 0x15788d7fff 0x15788d8000 - 0x15788dafff 0x15788db000 - 0x15788dffff 0x15788e0000 - 0x1578934fff 0x1578935000 - 0x1578fdffff 0x3fffa59000 - 0x3fffa79fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/config.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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)" Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0xd97b000 - 0xd99bfff 0x80000000 - 0x800bffff 0x15629de000 - 0x15629f8fff 0x15629f9000 - 0x15629f9fff 0x15629fa000 - 0x15629fafff 0x15629fb000 - 0x15629fcfff 0x15629fd000 - 0x15629fefff 0x15629ff000 - 0x1562a05fff 0x1562a06000 - 0x1562a06fff 0x1562a07000 - 0x1562a07fff 0x1562a0a000 - 0x1562a0bfff 0x1562a0c000 - 0x1562a4afff 0x1562a4b000 - 0x1562a4cfff 0x1562a4d000 - 0x1562a53fff 0x1562a54000 - 0x1562a54fff 0x1562a55000 - 0x1562a7afff 0x1562a7b000 - 0x1562a7efff 0x1562a7f000 - 0x1562a7ffff 0x1562a80000 - 0x1562a81fff 0x1562a82000 - 0x1562a82fff 0x1562a83000 - 0x1562a83fff 0x1562a84000 - 0x1562a84fff 0x1562a85000 - 0x1562a88fff 0x1562a89000 - 0x1562a89fff 0x1562a8a000 - 0x1562a8afff 0x1562a8b000 - 0x1562a8cfff 0x1562a8d000 - 0x1562a8dfff 0x1562a8e000 - 0x1562a8efff 0x1562a8f000 - 0x1562bfafff 0x1562bfb000 - 0x1562bfdfff 0x1562bfe000 - 0x1562bfefff 0x1562bff000 - 0x1562c01fff 0x1562c02000 - 0x1562c14fff 0x1562c15000 - 0x1562c15fff 0x1562c16000 - 0x1562c16fff 0x1562c17000 - 0x1562d35fff 0x1562d36000 - 0x1562d38fff 0x1562d39000 - 0x1562d3bfff 0x1562d3c000 - 0x1562d40fff 0x1562d41000 - 0x1562d95fff 0x1562d96000 - 0x1563440fff 0x3fffb3b000 - 0x3fffb5bfff i i i i i i i ooooo o ooooooo ooooo ooooo I I I I I I I 8 8 8 8 8 o 8 8 I \ `+' / I 8 8 8 8 8 8 \ `-+-' / 8 8 8 ooooo 8oooo `-__|__-' 8 8 8 8 8 | 8 o 8 8 o 8 8 ------+------ ooooo 8oooooo ooo8ooo ooooo 8 Welcome to GNU CLISP 2.49.93+ (2018-02-18) 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/room.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/room.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/functions.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/functions.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/trace.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/trace.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/cmacros.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/cmacros.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/compiler.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/compiler.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/defs2.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/defs2.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/loop.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/loop.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos.fas ... ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-slots1.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-slots1.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-method1.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-method1.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-methcomb1.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-methcomb1.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-genfun1.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-genfun1.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-genfun2a.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-genfun2a.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-methcomb2.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-methcomb2.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-genfun2b.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-genfun2b.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-method2.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-method2.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-genfun3.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-genfun3.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-dependent.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-dependent.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-genfun4.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-genfun4.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-method3.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-method3.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-methcomb3.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-methcomb3.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-slots2.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-slots2.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-slotdef2.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-slotdef2.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-stablehash2.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-stablehash2.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-specializer2.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-specializer2.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-class4.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-class4.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-class5.fas ... WARNING: DEFGENERIC: redefining function SHARED-INITIALIZE in /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-class5.fas, was defined in top-level WARNING: DEFGENERIC: redefining function REINITIALIZE-INSTANCE in /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-class5.fas, was defined in top-level WARNING: DEFGENERIC: redefining function INITIALIZE-INSTANCE in /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-class5.fas, was defined in top-level ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-class5.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-slotdef3.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-slotdef3.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-specializer3.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-specializer3.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-class6.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-class6.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-method4.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-method4.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-methcomb4.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-methcomb4.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-genfun5.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-genfun5.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-print.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-print.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-custom.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-custom.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/documentation.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/documentation.fas ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gray.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gray.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/fill-out.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/fill-out.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/disassem.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/disassem.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/condition.fas ... WARNING: DEFUN/DEFMACRO: redefining function MUFFLE-CERRORS in /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/condition.fas, was defined in C ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/condition.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/loadform.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/loadform.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gstream.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gstream.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/xcharin.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/xcharin.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/keyboard.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/keyboard.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/screen.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/screen.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/runprog.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/runprog.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/query.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/query.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/reploop.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/reploop.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/savemem.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/savemem.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dribble.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dribble.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pprint.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pprint.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/describe.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/describe.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/edit.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/edit.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clhs.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clhs.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/inspect.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/inspect.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/macros3.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/macros3.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/complete.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/complete.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/case-sensitive.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/case-sensitive.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/foreign1.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/foreign1.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/exporting.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/exporting.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/danish.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/danish.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/german.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/german.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/french.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/french.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/spanish.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/spanish.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dutch.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dutch.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/russian.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/russian.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/deprecated.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/deprecated.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/config.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/config.fas ;; Wrote the memory image into lispinit.mem (3,317,984 bytes) Bytes permanently allocated: 173,424 Bytes currently in use: 3,140,808 Bytes available until next GC: 1,566,852 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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/bits/libc-header-start.h:33, from /usr/include/stdlib.h:25, from /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib/stdlib.h:36, from ../src/lispbibl.d:1123, from gen-README.c:1: /usr/include/features.h:397:4: warning: #warning _FORTIFY_SOURCE requires compiling with optimization (-O) [-Wcpp] 397 | # warning _FORTIFY_SOURCE requires compiling with optimization (-O) | ^~~~~~~ ./gen-README > README rm -f gen-README.c gen-README ./txt2c -I../src/ < ../src/_README.de > gen-READMEde.c gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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/bits/libc-header-start.h:33, from /usr/include/stdlib.h:25, from /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib/stdlib.h:36, from ../src/lispbibl.d:1123, from gen-READMEde.c:1: /usr/include/features.h:397:4: warning: #warning _FORTIFY_SOURCE requires compiling with optimization (-O) [-Wcpp] 397 | # warning _FORTIFY_SOURCE requires compiling with optimization (-O) | ^~~~~~~ ./gen-READMEde > README.de rm -f gen-READMEde.c gen-READMEde ./txt2c -I../src/ < ../src/_README.es > gen-READMEes.c gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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/bits/libc-header-start.h:33, from /usr/include/stdlib.h:25, from /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib/stdlib.h:36, from ../src/lispbibl.d:1123, from gen-READMEes.c:1: /usr/include/features.h:397:4: warning: #warning _FORTIFY_SOURCE requires compiling with optimization (-O) [-Wcpp] 397 | # warning _FORTIFY_SOURCE requires compiling with optimization (-O) | ^~~~~~~ ./gen-READMEes > README.es rm -f gen-READMEes.c gen-READMEes rm -f MAGIC.add ln -s ../unix/MAGIC.add MAGIC.add ./txt2c -I../src/ < ../doc/_clisp.1 > gen-clisp1.c gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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/bits/libc-header-start.h:33, from /usr/include/stdlib.h:25, from /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib/stdlib.h:36, from ../src/lispbibl.d:1123, from gen-clisp1.c:1: /usr/include/features.h:397:4: warning: #warning _FORTIFY_SOURCE requires compiling with optimization (-O) [-Wcpp] 397 | # warning _FORTIFY_SOURCE requires compiling with optimization (-O) | ^~~~~~~ ./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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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/bits/libc-header-start.h:33, from /usr/include/stdlib.h:25, from /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib/stdlib.h:36, from ../src/lispbibl.d:1123, from gen-clisphtml.c:1: /usr/include/features.h:397:4: warning: #warning _FORTIFY_SOURCE requires compiling with optimization (-O) [-Wcpp] 397 | # warning _FORTIFY_SOURCE requires compiling with optimization (-O) | ^~~~~~~ ./gen-clisphtml | sed -e 's,="http://www.ai.mit.edu/projects/iiip/doc/CommonLISP/HyperSpec/,="http://www.lispworks.com/documentation/HyperSpec/,' | 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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/bits/libc-header-start.h:33, from /usr/include/stdlib.h:25, from /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib/stdlib.h:36, from ../src/lispbibl.d:1123, from gen-clisp-link1.c:1: /usr/include/features.h:397:4: warning: #warning _FORTIFY_SOURCE requires compiling with optimization (-O) [-Wcpp] 397 | # warning _FORTIFY_SOURCE requires compiling with optimization (-O) | ^~~~~~~ ./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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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/bits/libc-header-start.h:33, from /usr/include/stdlib.h:25, from /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib/stdlib.h:36, from ../src/lispbibl.d:1123, from gen-clisp-linkhtml.c:1: /usr/include/features.h:397:4: warning: #warning _FORTIFY_SOURCE requires compiling with optimization (-O) [-Wcpp] 397 | # warning _FORTIFY_SOURCE requires compiling with optimization (-O) | ^~~~~~~ ./gen-clisp-linkhtml | sed -e 's,="http://www.ai.mit.edu/projects/iiip/doc/CommonLISP/HyperSpec/,="http://www.lispworks.com/documentation/HyperSpec/,' | 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:1326: warning [p 9, 1.2i]: can't break line troff: clisp.1:1336: warning [p 9, 2.0i]: can't break line troff: clisp.1:1346: warning [p 9, 2.8i]: can't break line troff: clisp.1:1376: warning [p 9, 5.2i]: can't break line troff: clisp.1:1381: warning [p 9, 5.6i]: can't break line troff: clisp.1:1416: warning [p 9, 8.4i]: can't break line troff: clisp.1:1482: warning [p 10, 4.5i]: can't break line troff: clisp.1:1492: warning [p 10, 5.3i]: can't break line troff: clisp.1:1549: warning [p 10, 10.0i]: can't break line troff: clisp.1:1574: warning [p 11, 2.8i]: can't 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.1i]: can't 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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} -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/modules.c modules.c cd linkkit && ln -s /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp.h clisp.h cd linkkit && ln -s /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/utils/modprep.lisp modprep.lisp (echo 'CC='"'"'gcc'"'" ;\ echo 'CPPFLAGS='"'"'-I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib'"'" ;\ echo 'CFLAGS='"'"'-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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/bits/libc-header-start.h:33, from /usr/include/stdlib.h:25, from /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib/stdlib.h:36, from ../src/lispbibl.d:1123, from gen-clispc.c:1: /usr/include/features.h:397:4: warning: #warning _FORTIFY_SOURCE requires compiling with optimization (-O) [-Wcpp] 397 | # warning _FORTIFY_SOURCE requires compiling with optimization (-O) | ^~~~~~~ ./gen-clispc > clisp.c rm -f gen-clispc.c gen-clispc gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f i18n/Makefile || test -n "`find $m/Makefile -prune -newer i18n/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > i18n/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache configure: ** I18N (Common) checking how to remove colons from paths... (cached) echo $x checking for CLISP version... 2.49.93+ (2018-02-18) (built 3805243200) (memory 3806542281) checking for CLISP libdir... /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/ checking for CLISP linking set... /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build 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 we are using the GNU C compiler... (cached) yes checking whether gcc accepts -g... (cached) yes checking for gcc option to accept ISO C89... (cached) none needed checking whether gcc understands -c and -o together... (cached) yes 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 grep that handles long lines and -e... (cached) /usr/bin/grep checking for egrep... (cached) /usr/bin/grep -E checking for ANSI C header files... (cached) yes checking for sys/types.h... (cached) yes checking for sys/stat.h... (cached) yes checking for stdlib.h... (cached) yes checking for string.h... (cached) yes checking for memory.h... (cached) yes checking for strings.h... (cached) yes checking for inttypes.h... (cached) yes checking for stdint.h... (cached) yes checking for unistd.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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/i18n' /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K boot -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/i18n/i18n.lisp -o ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2159d000 - 0x215bdfff 0x80000000 - 0x800bffff 0x158a8e4000 - 0x158a8fefff 0x158a8ff000 - 0x158a8fffff 0x158a900000 - 0x158a900fff 0x158a901000 - 0x158a902fff 0x158a903000 - 0x158a904fff 0x158a905000 - 0x158a90bfff 0x158a90c000 - 0x158a90cfff 0x158a90d000 - 0x158a90dfff 0x158a910000 - 0x158a911fff 0x158a912000 - 0x158a950fff 0x158a951000 - 0x158a952fff 0x158a953000 - 0x158a959fff 0x158a95a000 - 0x158a95afff 0x158a95b000 - 0x158a980fff 0x158a981000 - 0x158a984fff 0x158a985000 - 0x158a985fff 0x158a986000 - 0x158a987fff 0x158a988000 - 0x158a988fff 0x158a989000 - 0x158a989fff 0x158a98a000 - 0x158a98afff 0x158a98b000 - 0x158a98efff 0x158a98f000 - 0x158a98ffff 0x158a990000 - 0x158a990fff 0x158a991000 - 0x158a992fff 0x158a993000 - 0x158a993fff 0x158a994000 - 0x158a994fff 0x158a995000 - 0x158ab00fff 0x158ab01000 - 0x158ab03fff 0x158ab04000 - 0x158ab04fff 0x158ab05000 - 0x158ab07fff 0x158ab08000 - 0x158ab1afff 0x158ab1b000 - 0x158ab1bfff 0x158ab1c000 - 0x158ab1cfff 0x158ab1d000 - 0x158ac3bfff 0x158ac3c000 - 0x158ac3efff 0x158ac3f000 - 0x158ac41fff 0x158ac42000 - 0x158ac46fff 0x158ac47000 - 0x158ac9bfff 0x158ac9c000 - 0x158b346fff 0x3fffa40000 - 0x3fffa61fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/i18n/i18n.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/i18n/i18n.fas 0 errors, 0 warnings /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K boot -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -C /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit/modprep /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/i18n/gettext.c ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x8895000 - 0x88b5fff 0x80000000 - 0x800bffff 0x157a1e0000 - 0x157a1fafff 0x157a1fb000 - 0x157a1fbfff 0x157a1fc000 - 0x157a1fcfff 0x157a1fd000 - 0x157a1fefff 0x157a1ff000 - 0x157a200fff 0x157a201000 - 0x157a207fff 0x157a208000 - 0x157a208fff 0x157a209000 - 0x157a209fff 0x157a20c000 - 0x157a20dfff 0x157a20e000 - 0x157a24cfff 0x157a24d000 - 0x157a24efff 0x157a24f000 - 0x157a255fff 0x157a256000 - 0x157a256fff 0x157a257000 - 0x157a27cfff 0x157a27d000 - 0x157a280fff 0x157a281000 - 0x157a281fff 0x157a282000 - 0x157a283fff 0x157a284000 - 0x157a284fff 0x157a285000 - 0x157a285fff 0x157a286000 - 0x157a286fff 0x157a287000 - 0x157a28afff 0x157a28b000 - 0x157a28bfff 0x157a28c000 - 0x157a28cfff 0x157a28d000 - 0x157a28efff 0x157a28f000 - 0x157a28ffff 0x157a290000 - 0x157a290fff 0x157a291000 - 0x157a3fcfff 0x157a3fd000 - 0x157a3fffff 0x157a400000 - 0x157a400fff 0x157a401000 - 0x157a403fff 0x157a404000 - 0x157a416fff 0x157a417000 - 0x157a417fff 0x157a418000 - 0x157a418fff 0x157a419000 - 0x157a537fff 0x157a538000 - 0x157a53afff 0x157a53b000 - 0x157a53dfff 0x157a53e000 - 0x157a542fff 0x157a543000 - 0x157a597fff 0x157a598000 - 0x157ac42fff 0x3fffbc5000 - 0x3fffbe6fff ;; MODPREP: "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/i18n/gettext.c" --> #P"gettext.m.c" ;; MODPREP: reading "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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,814 bytes) gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I. -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit \ -c gettext.m.c -o gettext.o /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/i18n/gettext.c: In function ‘bool_char_lconv’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/i18n/gettext.c: In function ‘int_char_lconv’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/i18n/preload.lisp . make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f syscalls/Makefile || test -n "`find $m/Makefile -prune -newer syscalls/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > syscalls/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache configure: ** System Calls (Common) checking how to remove colons from paths... (cached) echo $x checking for CLISP version... (cached) 2.49.93+ (2018-02-18) (built 3805243200) (memory 3806542281) checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/ checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build 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 we are using the GNU C compiler... (cached) yes checking whether gcc accepts -g... (cached) yes checking for gcc option to accept ISO C89... (cached) none needed checking whether gcc understands -c and -o together... (cached) yes 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 grep that handles long lines and -e... (cached) /usr/bin/grep checking for egrep... (cached) /usr/bin/grep -E checking for ANSI C header files... (cached) yes checking for sys/types.h... (cached) yes checking for sys/stat.h... (cached) yes checking for stdlib.h... (cached) yes checking for string.h... (cached) yes checking for memory.h... (cached) yes checking for strings.h... (cached) yes checking for inttypes.h... (cached) yes checking for stdint.h... (cached) yes checking for unistd.h... (cached) yes checking for minix/config.h... (cached) no checking whether it is safe to define __EXTENSIONS__... (cached) yes checking whether _XOPEN_SOURCE should be defined... (cached) no checking for a BSD-compatible install... (cached) /usr/bin/install -c checking whether build environment is sane... yes checking for a thread-safe mkdir -p... (cached) /usr/bin/mkdir -p checking for gawk... (cached) gawk checking whether make sets $(MAKE)... (cached) yes checking whether make supports the include directive... yes (GNU style) checking whether make supports nested variables... (cached) yes checking dependency style of gcc... (cached) gcc3 checking for ranlib... (cached) ranlib configure: ** System Calls (Headers) checking fcntl.h usability... yes checking fcntl.h presence... yes checking for fcntl.h... yes checking for netdb.h... (cached) yes checking utime.h usability... yes checking utime.h presence... yes checking for utime.h... yes checking pwd.h usability... yes checking pwd.h presence... yes checking for pwd.h... yes checking sys/unistd.h usability... yes checking sys/unistd.h presence... yes checking for sys/unistd.h... yes checking syslog.h usability... yes checking syslog.h presence... yes checking for syslog.h... yes checking signal.h usability... yes checking signal.h presence... yes checking for signal.h... yes checking grp.h usability... yes checking grp.h presence... yes checking for grp.h... yes checking crypt.h usability... yes checking crypt.h presence... yes checking for crypt.h... yes checking utmpx.h usability... yes checking utmpx.h presence... yes checking for utmpx.h... yes checking shlobj.h usability... no checking shlobj.h presence... no checking for shlobj.h... no checking sys/statvfs.h usability... yes checking sys/statvfs.h presence... yes checking for sys/statvfs.h... yes checking sys/statfs.h usability... yes checking sys/statfs.h presence... yes checking for sys/statfs.h... yes checking for sys/param.h... (cached) yes checking ftw.h usability... yes checking ftw.h presence... yes checking for ftw.h... yes checking for special C compiler options needed for large files... (cached) no checking for _FILE_OFFSET_BITS value needed for large files... (cached) no checking size of 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 whether the preprocessor supports include_next... (cached) yes checking whether system header files limit the line length... (cached) no checking build system type... (cached) riscv64-unknown-linux-gnu checking host system type... (cached) riscv64-unknown-linux-gnu checking for complete errno.h... (cached) yes configure: ** System Calls (Functions) checking for library containing crypt... -lcrypt checking for library containing erf... -lm checking for confstr... yes checking for fcntl... 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 crypt... yes checking for encrypt... no checking for setkey... no checking for GlobalMemoryStatusEx... no checking for gethostid... yes checking for sethostid... yes checking for getdomainname... yes checking for setdomainname... yes checking for nftw... yes checking for getdate... yes checking size of rlim_t... 8 checking for uid_t in sys/types.h... (cached) yes checking for unistd.h... (cached) yes checking for working chown... yes 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls' /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K boot -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -m 2MW -C /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit/modprep /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/syscalls/calls.c ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2f736000 - 0x2f756fff 0x80000000 - 0x800bffff 0x157cae3000 - 0x157cafdfff 0x157cafe000 - 0x157cafefff 0x157caff000 - 0x157cafffff 0x157cb00000 - 0x157cb01fff 0x157cb02000 - 0x157cb03fff 0x157cb04000 - 0x157cb0afff 0x157cb0b000 - 0x157cb0bfff 0x157cb0c000 - 0x157cb0cfff 0x157cb0f000 - 0x157cb10fff 0x157cb11000 - 0x157cb4ffff 0x157cb50000 - 0x157cb51fff 0x157cb52000 - 0x157cb58fff 0x157cb59000 - 0x157cb59fff 0x157cb5a000 - 0x157cb7ffff 0x157cb80000 - 0x157cb83fff 0x157cb84000 - 0x157cb84fff 0x157cb85000 - 0x157cb86fff 0x157cb87000 - 0x157cb87fff 0x157cb88000 - 0x157cb88fff 0x157cb89000 - 0x157cb89fff 0x157cb8a000 - 0x157cb8dfff 0x157cb8e000 - 0x157cb8efff 0x157cb8f000 - 0x157cb8ffff 0x157cb90000 - 0x157cb91fff 0x157cb92000 - 0x157cb92fff 0x157cb93000 - 0x157cb93fff 0x157cb94000 - 0x157ccfffff 0x157cd00000 - 0x157cd02fff 0x157cd03000 - 0x157cd03fff 0x157cd04000 - 0x157cd06fff 0x157cd07000 - 0x157cd19fff 0x157cd1a000 - 0x157cd1afff 0x157cd1b000 - 0x157cd1bfff 0x157cd1c000 - 0x157ce3afff 0x157ce3b000 - 0x157ce3dfff 0x157ce3e000 - 0x157ce40fff 0x157ce41000 - 0x157ce45fff 0x157ce46000 - 0x157ce9afff 0x157ce9b000 - 0x157d545fff 0x3fff94d000 - 0x3fff96efff ;; MODPREP: "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/syscalls/calls.c" --> #P"calls.m.c" ;; MODPREP: reading "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/syscalls/calls.c": 244,348 bytes, 4,746 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/syscalls/calls.c" :5723: fixed object case ":ERROR_ITERATED_DATA_EXCEEDS_64k" WARNING: "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/syscalls/calls.c" :5723: 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,554 objects, 122 DEFUNs, 3 DEFVARs (3 inits) ;; packages: ("SYS" "OS" "POSIX") MODPREP: wrote calls.m.c (1,735,451 bytes) gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I. -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit \ -c calls.m.c -o calls.o /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/syscalls/calls.c: In function ‘C_subr_posix_file_size’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/syscalls/calls.c:470:49: warning: cast between incompatible function types from ‘int (*)(const char *, struct stat *)’ to ‘void * (*)(const char *, void *)’ [-Wcast-function-type] 470 | if (ON_PNAMESTRING(STACK_0,stat,&buf)) | ^ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/syscalls/calls.c: In function ‘C_subr_posix_file_stat’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/syscalls/calls.c:2034:51: warning: cast between incompatible function types from ‘int (*)(const char *, struct stat *)’ to ‘void * (*)(const char *, void *)’ [-Wcast-function-type] 2034 | if (ON_PNAMESTRING(STACK_1,*(link_p ? &stat : &lstat),&buf)) | ^ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/syscalls/calls.c:2076:2: warning: label ‘call_make_file_stat’ defined but not used [-Wunused-label] 2076 | call_make_file_stat: | ^~~~~~~~~~~~~~~~~~~ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/syscalls/calls.c: In function ‘C_subr_posix_set_file_stat’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/syscalls/calls.c:2229:51: warning: cast between incompatible function types from ‘int (*)(const char *, struct stat *)’ to ‘void * (*)(const char *, void *)’ [-Wcast-function-type] 2229 | if (ON_PNAMESTRING(STACK_0,stat,&st)) OS_file_error(value1); | ^ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/syscalls/calls.c:2246:51: warning: cast between incompatible function types from ‘int (*)(const char *, struct stat *)’ to ‘void * (*)(const char *, void *)’ [-Wcast-function-type] 2246 | if (ON_PNAMESTRING(STACK_1,stat,&st)) OS_file_error(value1); | ^ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/syscalls/calls.c: In function ‘C_subr_posix_stat_vfs’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/syscalls/calls.c:2482:51: warning: cast between incompatible function types from ‘int (*)(const char * restrict, struct statvfs * restrict)’ to ‘void * (*)(const char *, void *)’ [-Wcast-function-type] 2482 | if (ON_PNAMESTRING(STACK_0,statvfs,&buf)) | ^ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/syscalls/calls.c: In function ‘C_subr_os_file_owner’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/syscalls/calls.c:2737:98: warning: cast between incompatible function types from ‘const char * (*)(const char *)’ to ‘void * (*)(const char *, void *)’ [-Wcast-function-type] 2737 | VALUES1(safe_to_string((char*)ON_PNAMESTRING(popSTACK(),get_owner,NULL))); | ^ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/syscalls/calls.c: In function ‘copy_attributes_and_close’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/syscalls/calls.c:3042:49: warning: cast between incompatible function types from ‘int (*)(const char *, const struct utimbuf *)’ to ‘void * (*)(const char *, void *)’ [-Wcast-function-type] 3042 | if (ON_PNAMESTRING(STACK_0,utime,&utb)) { | ^ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/syscalls/calls.c:3049:2: warning: label ‘close_success’ defined but not used [-Wunused-label] 3049 | close_success: | ^~~~~~~~~~~~~ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/syscalls/calls.c: In function ‘C_subr_posix__25sethostid’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/syscalls/calls.c:1938:34: warning: ignoring return value of ‘sethostid’ declared with attribute ‘warn_unused_result’ [-Wunused-result] 1938 | begin_system_call(); errno = 0; sethostid(hid); e = errno; end_system_call(); | ^~~~~~~~~~~~~~ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K boot -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/syscalls/posix.lisp -o ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0xc355000 - 0xc375fff 0x80000000 - 0x800bffff 0x155d5a9000 - 0x155d5c3fff 0x155d5c4000 - 0x155d5c4fff 0x155d5c5000 - 0x155d5c5fff 0x155d5c6000 - 0x155d5c7fff 0x155d5c8000 - 0x155d5c9fff 0x155d5ca000 - 0x155d5d0fff 0x155d5d1000 - 0x155d5d1fff 0x155d5d2000 - 0x155d5d2fff 0x155d5d5000 - 0x155d5d6fff 0x155d5d7000 - 0x155d615fff 0x155d616000 - 0x155d617fff 0x155d618000 - 0x155d61efff 0x155d61f000 - 0x155d61ffff 0x155d620000 - 0x155d645fff 0x155d646000 - 0x155d649fff 0x155d64a000 - 0x155d64afff 0x155d64b000 - 0x155d64cfff 0x155d64d000 - 0x155d64dfff 0x155d64e000 - 0x155d64efff 0x155d64f000 - 0x155d64ffff 0x155d650000 - 0x155d653fff 0x155d654000 - 0x155d654fff 0x155d655000 - 0x155d655fff 0x155d656000 - 0x155d657fff 0x155d658000 - 0x155d658fff 0x155d659000 - 0x155d659fff 0x155d65a000 - 0x155d7c5fff 0x155d7c6000 - 0x155d7c8fff 0x155d7c9000 - 0x155d7c9fff 0x155d7ca000 - 0x155d7ccfff 0x155d7cd000 - 0x155d7dffff 0x155d7e0000 - 0x155d7e0fff 0x155d7e1000 - 0x155d7e1fff 0x155d7e2000 - 0x155d900fff 0x155d901000 - 0x155d903fff 0x155d904000 - 0x155d906fff 0x155d907000 - 0x155d90bfff 0x155d90c000 - 0x155d960fff 0x155d961000 - 0x155e00bfff 0x3fff967000 - 0x3fff988fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/syscalls/posix.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/syscalls/preload.lisp . ln -s /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/syscalls/datemsk . make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f regexp/Makefile || test -n "`find $m/Makefile -prune -newer regexp/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > regexp/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache configure: ** Regexp (Common) checking how to remove colons from paths... (cached) echo $x checking for CLISP version... (cached) 2.49.93+ (2018-02-18) (built 3805243200) (memory 3806542281) checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/ checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build 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 we are using the GNU C compiler... (cached) yes checking whether gcc accepts -g... (cached) yes checking for gcc option to accept ISO C89... (cached) none needed checking whether gcc understands -c and -o together... (cached) yes 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 grep that handles long lines and -e... (cached) /usr/bin/grep checking for egrep... (cached) /usr/bin/grep -E checking for ANSI C header files... (cached) yes checking for sys/types.h... (cached) yes checking for sys/stat.h... (cached) yes checking for stdlib.h... (cached) yes checking for string.h... (cached) yes checking for memory.h... (cached) yes checking for strings.h... (cached) yes checking for inttypes.h... (cached) yes checking for stdint.h... (cached) yes checking for unistd.h... (cached) yes checking for minix/config.h... (cached) no checking whether it is safe to define __EXTENSIONS__... (cached) yes checking whether _XOPEN_SOURCE should be defined... (cached) no checking for a BSD-compatible install... (cached) /usr/bin/install -c checking whether build environment is sane... yes checking for a thread-safe mkdir -p... (cached) /usr/bin/mkdir -p checking for gawk... (cached) gawk checking whether make sets $(MAKE)... (cached) yes checking whether make supports the include directive... yes (GNU style) checking whether make supports nested variables... (cached) yes checking dependency style of gcc... (cached) gcc3 checking for C/C++ restrict keyword... (cached) __restrict configure: ** Regexp (Output) checking that generated files are newer than configure... done configure: creating ./config.status config.status: creating Makefile config.status: creating link.sh config.status: creating config.h config.status: executing depfiles commands configure: ** Regexp (Done) make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/regexp' /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K boot -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/regexp/regexp.lisp -o ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x6ea3000 - 0x6ec3fff 0x80000000 - 0x800bffff 0x157f088000 - 0x157f0a2fff 0x157f0a3000 - 0x157f0a3fff 0x157f0a4000 - 0x157f0a4fff 0x157f0a5000 - 0x157f0a6fff 0x157f0a7000 - 0x157f0a8fff 0x157f0a9000 - 0x157f0affff 0x157f0b0000 - 0x157f0b0fff 0x157f0b1000 - 0x157f0b1fff 0x157f0b4000 - 0x157f0b5fff 0x157f0b6000 - 0x157f0f4fff 0x157f0f5000 - 0x157f0f6fff 0x157f0f7000 - 0x157f0fdfff 0x157f0fe000 - 0x157f0fefff 0x157f0ff000 - 0x157f124fff 0x157f125000 - 0x157f128fff 0x157f129000 - 0x157f129fff 0x157f12a000 - 0x157f12bfff 0x157f12c000 - 0x157f12cfff 0x157f12d000 - 0x157f12dfff 0x157f12e000 - 0x157f12efff 0x157f12f000 - 0x157f132fff 0x157f133000 - 0x157f133fff 0x157f134000 - 0x157f134fff 0x157f135000 - 0x157f136fff 0x157f137000 - 0x157f137fff 0x157f138000 - 0x157f138fff 0x157f139000 - 0x157f2a4fff 0x157f2a5000 - 0x157f2a7fff 0x157f2a8000 - 0x157f2a8fff 0x157f2a9000 - 0x157f2abfff 0x157f2ac000 - 0x157f2befff 0x157f2bf000 - 0x157f2bffff 0x157f2c0000 - 0x157f2c0fff 0x157f2c1000 - 0x157f3dffff 0x157f3e0000 - 0x157f3e2fff 0x157f3e3000 - 0x157f3e5fff 0x157f3e6000 - 0x157f3eafff 0x157f3eb000 - 0x157f43ffff 0x157f440000 - 0x157faeafff 0x3fffbf8000 - 0x3fffc19fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/regexp/regexp.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K boot -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -C /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit/modprep /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/regexp/regexi.c ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x37eab000 - 0x37ecbfff 0x80000000 - 0x800bffff 0x1559135000 - 0x155914ffff 0x1559150000 - 0x1559150fff 0x1559151000 - 0x1559151fff 0x1559152000 - 0x1559153fff 0x1559154000 - 0x1559155fff 0x1559156000 - 0x155915cfff 0x155915d000 - 0x155915dfff 0x155915e000 - 0x155915efff 0x1559161000 - 0x1559162fff 0x1559163000 - 0x15591a1fff 0x15591a2000 - 0x15591a3fff 0x15591a4000 - 0x15591aafff 0x15591ab000 - 0x15591abfff 0x15591ac000 - 0x15591d1fff 0x15591d2000 - 0x15591d5fff 0x15591d6000 - 0x15591d6fff 0x15591d7000 - 0x15591d8fff 0x15591d9000 - 0x15591d9fff 0x15591da000 - 0x15591dafff 0x15591db000 - 0x15591dbfff 0x15591dc000 - 0x15591dffff 0x15591e0000 - 0x15591e0fff 0x15591e1000 - 0x15591e1fff 0x15591e2000 - 0x15591e3fff 0x15591e4000 - 0x15591e4fff 0x15591e5000 - 0x15591e5fff 0x15591e6000 - 0x1559351fff 0x1559352000 - 0x1559354fff 0x1559355000 - 0x1559355fff 0x1559356000 - 0x1559358fff 0x1559359000 - 0x155936bfff 0x155936c000 - 0x155936cfff 0x155936d000 - 0x155936dfff 0x155936e000 - 0x155948cfff 0x155948d000 - 0x155948ffff 0x1559490000 - 0x1559492fff 0x1559493000 - 0x1559497fff 0x1559498000 - 0x15594ecfff 0x15594ed000 - 0x1559b97fff 0x3fff84f000 - 0x3fff870fff ;; MODPREP: "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/regexp/regexi.c" --> #P"regexi.m.c" ;; MODPREP: reading "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/regexp/regexi.c": 6,375 bytes, 161 lines ;; MODPREP: 11 objects, 3 DEFUNs ;; packages: ("REGEXP") MODPREP: wrote regexi.m.c (11,423 bytes) gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I. -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit \ -c regexi.m.c -o regexi.o /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/regexp/regexi.c: In function ‘C_subr_regexp_regexp_exec’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/regexp/regexi.c:120: note: here ln -s /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/regexp/preload.lisp . make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f readline/Makefile || test -n "`find $m/Makefile -prune -newer readline/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > readline/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache configure: ** Readline (Common) checking how to remove colons from paths... (cached) echo $x checking for CLISP version... (cached) 2.49.93+ (2018-02-18) (built 3805243200) (memory 3806542281) checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/ checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build 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 we are using the GNU C compiler... (cached) yes checking whether gcc accepts -g... (cached) yes checking for gcc option to accept ISO C89... (cached) none needed checking whether gcc understands -c and -o together... (cached) yes 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 grep that handles long lines and -e... (cached) /usr/bin/grep checking for egrep... (cached) /usr/bin/grep -E checking for ANSI C header files... (cached) yes checking for sys/types.h... (cached) yes checking for sys/stat.h... (cached) yes checking for stdlib.h... (cached) yes checking for string.h... (cached) yes checking for memory.h... (cached) yes checking for strings.h... (cached) yes checking for inttypes.h... (cached) yes checking for stdint.h... (cached) yes checking for unistd.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 host CPU and C ABI... (cached) riscv64-lp64d checking for the common suffixes of directories in the library search path... (cached) lib,lib 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/readline' /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K boot -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/readline/readline.lisp -o ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x184f4000 - 0x18514fff 0x80000000 - 0x800bffff 0x1567a92000 - 0x1567aacfff 0x1567aad000 - 0x1567aadfff 0x1567aae000 - 0x1567aaefff 0x1567aaf000 - 0x1567ab0fff 0x1567ab1000 - 0x1567ab2fff 0x1567ab3000 - 0x1567ab9fff 0x1567aba000 - 0x1567abafff 0x1567abb000 - 0x1567abbfff 0x1567abe000 - 0x1567abffff 0x1567ac0000 - 0x1567afefff 0x1567aff000 - 0x1567b00fff 0x1567b01000 - 0x1567b07fff 0x1567b08000 - 0x1567b08fff 0x1567b09000 - 0x1567b2efff 0x1567b2f000 - 0x1567b32fff 0x1567b33000 - 0x1567b33fff 0x1567b34000 - 0x1567b35fff 0x1567b36000 - 0x1567b36fff 0x1567b37000 - 0x1567b37fff 0x1567b38000 - 0x1567b38fff 0x1567b39000 - 0x1567b3cfff 0x1567b3d000 - 0x1567b3dfff 0x1567b3e000 - 0x1567b3efff 0x1567b3f000 - 0x1567b40fff 0x1567b41000 - 0x1567b41fff 0x1567b42000 - 0x1567b42fff 0x1567b43000 - 0x1567caefff 0x1567caf000 - 0x1567cb1fff 0x1567cb2000 - 0x1567cb2fff 0x1567cb3000 - 0x1567cb5fff 0x1567cb6000 - 0x1567cc8fff 0x1567cc9000 - 0x1567cc9fff 0x1567cca000 - 0x1567ccafff 0x1567ccb000 - 0x1567de9fff 0x1567dea000 - 0x1567decfff 0x1567ded000 - 0x1567deffff 0x1567df0000 - 0x1567df4fff 0x1567df5000 - 0x1567e49fff 0x1567e4a000 - 0x15684f4fff 0x3fffc33000 - 0x3fffc54fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/readline/readline.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/readline/readline.fas ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/readline/readline.c 0 errors, 0 warnings gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit -c readline.c make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/readline' rm -rf base MAKE=make CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/i18n' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/i18n' make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls' make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/regexp' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/regexp' make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/readline' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/readline' gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit -c modules.c gcc -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -lcrypt gettext.o lisp.a -Wl,--whole-archive libgnu.a -Wl,--no-whole-archive -lreadline -lncurses -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -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") Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2dfbf000 - 0x2dfdffff 0x80000000 - 0x800bffff 0x158f299000 - 0x158f2b3fff 0x158f2b4000 - 0x158f2b4fff 0x158f2b5000 - 0x158f2b5fff 0x158f2b6000 - 0x158f2b7fff 0x158f2b8000 - 0x158f2b9fff 0x158f2ba000 - 0x158f2c0fff 0x158f2c1000 - 0x158f2c1fff 0x158f2c2000 - 0x158f2c2fff 0x158f2c5000 - 0x158f2c6fff 0x158f2c7000 - 0x158f305fff 0x158f306000 - 0x158f307fff 0x158f308000 - 0x158f30efff 0x158f30f000 - 0x158f30ffff 0x158f310000 - 0x158f335fff 0x158f336000 - 0x158f339fff 0x158f33a000 - 0x158f33afff 0x158f33b000 - 0x158f33cfff 0x158f33d000 - 0x158f33dfff 0x158f33e000 - 0x158f33efff 0x158f33f000 - 0x158f33ffff 0x158f340000 - 0x158f343fff 0x158f344000 - 0x158f344fff 0x158f345000 - 0x158f345fff 0x158f346000 - 0x158f347fff 0x158f348000 - 0x158f348fff 0x158f349000 - 0x158f349fff 0x158f34a000 - 0x158f4b5fff 0x158f4b6000 - 0x158f4b8fff 0x158f4b9000 - 0x158f4b9fff 0x158f4ba000 - 0x158f4bcfff 0x158f4bd000 - 0x158f4cffff 0x158f4d0000 - 0x158f4d0fff 0x158f4d1000 - 0x158f4d1fff 0x158f4d2000 - 0x158f5f0fff 0x158f5f1000 - 0x158f5f3fff 0x158f5f4000 - 0x158f5f6fff 0x158f5f7000 - 0x158f5fbfff 0x158f5fc000 - 0x158f650fff 0x158f651000 - 0x158fcfbfff 0x3fff83f000 - 0x3fff85ffff ;; 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,310,232 bytes) Bytes permanently allocated: 173,424 Bytes currently in use: 3,133,976 Bytes available until next GC: 1,562,056 3133976 ; 1562056 ; 173424 ; 1 ; 256632 ; 58254 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") Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0x1d059000 - 0x1d079fff 0x80000000 - 0x800bffff 0x158e103000 - 0x158e11dfff 0x158e11e000 - 0x158e11efff 0x158e11f000 - 0x158e11ffff 0x158e120000 - 0x158e121fff 0x158e122000 - 0x158e123fff 0x158e124000 - 0x158e12afff 0x158e12b000 - 0x158e12bfff 0x158e12c000 - 0x158e12cfff 0x158e12f000 - 0x158e130fff 0x158e131000 - 0x158e16ffff 0x158e170000 - 0x158e171fff 0x158e172000 - 0x158e178fff 0x158e179000 - 0x158e179fff 0x158e17a000 - 0x158e203fff 0x158e204000 - 0x158e204fff 0x158e205000 - 0x158e205fff 0x158e206000 - 0x158e236fff 0x158e237000 - 0x158e237fff 0x158e238000 - 0x158e238fff 0x158e239000 - 0x158e239fff 0x158e23a000 - 0x158e241fff 0x158e242000 - 0x158e267fff 0x158e268000 - 0x158e26bfff 0x158e26c000 - 0x158e26cfff 0x158e26d000 - 0x158e26efff 0x158e26f000 - 0x158e26ffff 0x158e270000 - 0x158e270fff 0x158e271000 - 0x158e271fff 0x158e272000 - 0x158e275fff 0x158e276000 - 0x158e276fff 0x158e277000 - 0x158e277fff 0x158e278000 - 0x158e279fff 0x158e27a000 - 0x158e27bfff 0x158e27c000 - 0x158e27cfff 0x158e27d000 - 0x158e27dfff 0x158e27e000 - 0x158e3e9fff 0x158e3ea000 - 0x158e3ecfff 0x158e3ed000 - 0x158e3edfff 0x158e3ee000 - 0x158e3eefff 0x158e3ef000 - 0x158e401fff 0x158e402000 - 0x158e402fff 0x158e403000 - 0x158e403fff 0x158e404000 - 0x158e522fff 0x158e523000 - 0x158e525fff 0x158e526000 - 0x158e528fff 0x158e529000 - 0x158e52dfff 0x158e52e000 - 0x158e582fff 0x158e583000 - 0x158ec2dfff 0x3fffb32000 - 0x3fffb52fff ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/i18n/i18n.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/i18n/i18n.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls/posix.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls/posix.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/regexp/regexp.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/regexp/regexp.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/readline/readline.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/readline/readline.fas ;; Wrote the memory image into base/lispinit.mem (3,792,672 bytes) Bytes permanently allocated: 179,976 Bytes currently in use: 3,604,608 Bytes available until next GC: 1,797,372 3604608 ; 1797372 ; 179976 ; 2 ; 1574856 ; 140634 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f asdf/Makefile || test -n "`find $m/Makefile -prune -newer asdf/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > asdf/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/asdf' /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -m 2MW -c /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/asdf/asdf.lisp -o ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0x15c4c000 - 0x15c6cfff 0x80000000 - 0x800bffff 0x1562b8b000 - 0x1562ba5fff 0x1562ba6000 - 0x1562ba6fff 0x1562ba7000 - 0x1562ba7fff 0x1562ba8000 - 0x1562ba9fff 0x1562baa000 - 0x1562babfff 0x1562bac000 - 0x1562bb2fff 0x1562bb3000 - 0x1562bb3fff 0x1562bb4000 - 0x1562bb4fff 0x1562bb7000 - 0x1562bb8fff 0x1562bb9000 - 0x1562bf7fff 0x1562bf8000 - 0x1562bf9fff 0x1562bfa000 - 0x1562c00fff 0x1562c01000 - 0x1562c01fff 0x1562c02000 - 0x1562c8bfff 0x1562c8c000 - 0x1562c8cfff 0x1562c8d000 - 0x1562c8dfff 0x1562c8e000 - 0x1562cbefff 0x1562cbf000 - 0x1562cbffff 0x1562cc0000 - 0x1562cc0fff 0x1562cc1000 - 0x1562cc1fff 0x1562cc2000 - 0x1562cc9fff 0x1562cca000 - 0x1562ceffff 0x1562cf0000 - 0x1562cf3fff 0x1562cf4000 - 0x1562cf4fff 0x1562cf5000 - 0x1562cf6fff 0x1562cf7000 - 0x1562cf7fff 0x1562cf8000 - 0x1562cf8fff 0x1562cf9000 - 0x1562cf9fff 0x1562cfa000 - 0x1562cfdfff 0x1562cfe000 - 0x1562cfefff 0x1562cff000 - 0x1562cfffff 0x1562d00000 - 0x1562d01fff 0x1562d02000 - 0x1562d03fff 0x1562d04000 - 0x1562d04fff 0x1562d05000 - 0x1562d05fff 0x1562d06000 - 0x1562e71fff 0x1562e72000 - 0x1562e74fff 0x1562e75000 - 0x1562e75fff 0x1562e76000 - 0x1562e76fff 0x1562e77000 - 0x1562e89fff 0x1562e8a000 - 0x1562e8afff 0x1562e8b000 - 0x1562e8bfff 0x1562e8c000 - 0x1562faafff 0x1562fab000 - 0x1562fadfff 0x1562fae000 - 0x1562fb0fff 0x1562fb1000 - 0x1562fb5fff 0x1562fb6000 - 0x156300afff 0x156300b000 - 0x15636b5fff 0x3fffeab000 - 0x3fffeccfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/asdf/asdf.fas 0 errors, 3 warnings ln -s /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/asdf/link.sh . make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f berkeley-db/Makefile || test -n "`find $m/Makefile -prune -newer berkeley-db/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > berkeley-db/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache configure: ** Berkeley-DB (Common) checking how to remove colons from paths... (cached) echo $x checking for CLISP version... (cached) 2.49.93+ (2018-02-18) (built 3805243200) (memory 3806542281) checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/ checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build 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 we are using the GNU C compiler... (cached) yes checking whether gcc accepts -g... (cached) yes checking for gcc option to accept ISO C89... (cached) none needed checking whether gcc understands -c and -o together... (cached) yes 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 grep that handles long lines and -e... (cached) /usr/bin/grep checking for egrep... (cached) /usr/bin/grep -E checking for ANSI C header files... (cached) yes checking for sys/types.h... (cached) yes checking for sys/stat.h... (cached) yes checking for stdlib.h... (cached) yes checking for string.h... (cached) yes checking for memory.h... (cached) yes checking for strings.h... (cached) yes checking for inttypes.h... (cached) yes checking for stdint.h... (cached) yes checking for unistd.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 host CPU and C ABI... (cached) riscv64-lp64d checking for the common suffixes of directories in the library search path... (cached) lib,lib checking how to link with libdb... /usr/lib64/libdb.so -L/usr/lib64 checking for special C compiler options needed for large files... (cached) no checking for _FILE_OFFSET_BITS value needed for large files... (cached) no configure: ** Berkeley-DB (Headers) checking db.h usability... yes checking db.h presence... yes 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 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/berkeley-db' /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -C /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit/modprep /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/berkeley-db/bdb.c ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0xf9ec000 - 0xfa0cfff 0x80000000 - 0x800bffff 0x156bf71000 - 0x156bf8bfff 0x156bf8c000 - 0x156bf8cfff 0x156bf8d000 - 0x156bf8dfff 0x156bf8e000 - 0x156bf8ffff 0x156bf90000 - 0x156bf91fff 0x156bf92000 - 0x156bf98fff 0x156bf99000 - 0x156bf99fff 0x156bf9a000 - 0x156bf9afff 0x156bf9d000 - 0x156bf9efff 0x156bf9f000 - 0x156bfddfff 0x156bfde000 - 0x156bfdffff 0x156bfe0000 - 0x156bfe6fff 0x156bfe7000 - 0x156bfe7fff 0x156bfe8000 - 0x156c071fff 0x156c072000 - 0x156c072fff 0x156c073000 - 0x156c073fff 0x156c074000 - 0x156c0a4fff 0x156c0a5000 - 0x156c0a5fff 0x156c0a6000 - 0x156c0a6fff 0x156c0a7000 - 0x156c0a7fff 0x156c0a8000 - 0x156c0affff 0x156c0b0000 - 0x156c0d5fff 0x156c0d6000 - 0x156c0d9fff 0x156c0da000 - 0x156c0dafff 0x156c0db000 - 0x156c0dcfff 0x156c0dd000 - 0x156c0ddfff 0x156c0de000 - 0x156c0defff 0x156c0df000 - 0x156c0dffff 0x156c0e0000 - 0x156c0e3fff 0x156c0e4000 - 0x156c0e4fff 0x156c0e5000 - 0x156c0e5fff 0x156c0e6000 - 0x156c0e7fff 0x156c0e8000 - 0x156c0e9fff 0x156c0ea000 - 0x156c0eafff 0x156c0eb000 - 0x156c0ebfff 0x156c0ec000 - 0x156c257fff 0x156c258000 - 0x156c25afff 0x156c25b000 - 0x156c25bfff 0x156c25c000 - 0x156c25cfff 0x156c25d000 - 0x156c26ffff 0x156c270000 - 0x156c270fff 0x156c271000 - 0x156c271fff 0x156c272000 - 0x156c390fff 0x156c391000 - 0x156c393fff 0x156c394000 - 0x156c396fff 0x156c397000 - 0x156c39bfff 0x156c39c000 - 0x156c3f0fff 0x156c3f1000 - 0x156ca9bfff 0x3fff84e000 - 0x3fff86ffff ;; MODPREP: "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/berkeley-db/bdb.c" --> #P"bdb.m.c" ;; MODPREP: reading "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/berkeley-db/bdb.c": 108,559 bytes, 2,714 lines ;; MODPREP: 285 objects, 62 DEFUNs, 1 DEFVAR (1 init) ;; packages: ("BDB") MODPREP: wrote bdb.m.c (211,538 bytes) gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I. -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit \ -c bdb.m.c -o bdb.o /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/berkeley-db/bdb.c: In function ‘error_callback’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/berkeley-db/bdb.c: In function ‘C_subr_bdb_txn_recover’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/berkeley-db/bdb.c:2760:49: warning: passing argument 4 of ‘dbe->txn_recover’ from incompatible pointer type [-Wincompatible-pointer-types] 2760 | status = dbe->txn_recover(dbe,preplist,tx_max,&retnum,flags); | ^~~~~~~ | | | u_int32_t * {aka unsigned int *} /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/berkeley-db/bdb.c:2760:49: note: expected ‘long int *’ but argument is of type ‘u_int32_t *’ {aka ‘unsigned int *’} /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/berkeley-db/bdb.c: In function ‘C_subr_bdb_dbe_get_options’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/berkeley-db/bdb.c:1176:7: note: here 1176 | case 0: VALUES1(NIL); | ^~~~ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/berkeley-db/bdb.c:1176:97: warning: this statement may fall through [-Wimplicit-fallthrough=] 1176 | case 0: VALUES1(NIL); | ^ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/berkeley-db/bdb.c:1177:7: note: here 1177 | default: NOTREACHED; | ^~~~~~~ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/berkeley-db/bdb.c: In function ‘dbt_to_object’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/berkeley-db/bdb.c:1384:10: warning: this statement may fall through [-Wimplicit-fallthrough=] 1384 | if (key_type == -1) { | ^ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/berkeley-db/bdb.c:1409:5: note: here 1409 | default: NOTREACHED; | ^~~~~~~ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/berkeley-db/bdb.c: In function ‘C_subr_bdb_db_get_options’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/berkeley-db/bdb.c:2120:7: note: here 2120 | case 0: VALUES1(NIL); | ^~~~ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/berkeley-db/bdb.c:2120:97: warning: this statement may fall through [-Wimplicit-fallthrough=] 2120 | case 0: VALUES1(NIL); | ^ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/berkeley-db/bdb.c:2121:7: note: here 2121 | default: NOTREACHED; | ^~~~~~~ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/berkeley-db/dbi.lisp -o ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0x1dd3d000 - 0x1dd5dfff 0x80000000 - 0x800bffff 0x155e8d0000 - 0x155e8eafff 0x155e8eb000 - 0x155e8ebfff 0x155e8ec000 - 0x155e8ecfff 0x155e8ed000 - 0x155e8eefff 0x155e8ef000 - 0x155e8f0fff 0x155e8f1000 - 0x155e8f7fff 0x155e8f8000 - 0x155e8f8fff 0x155e8f9000 - 0x155e8f9fff 0x155e8fc000 - 0x155e8fdfff 0x155e8fe000 - 0x155e93cfff 0x155e93d000 - 0x155e93efff 0x155e93f000 - 0x155e945fff 0x155e946000 - 0x155e946fff 0x155e947000 - 0x155e9d0fff 0x155e9d1000 - 0x155e9d1fff 0x155e9d2000 - 0x155e9d2fff 0x155e9d3000 - 0x155ea03fff 0x155ea04000 - 0x155ea04fff 0x155ea05000 - 0x155ea05fff 0x155ea06000 - 0x155ea06fff 0x155ea07000 - 0x155ea0efff 0x155ea0f000 - 0x155ea34fff 0x155ea35000 - 0x155ea38fff 0x155ea39000 - 0x155ea39fff 0x155ea3a000 - 0x155ea3bfff 0x155ea3c000 - 0x155ea3cfff 0x155ea3d000 - 0x155ea3dfff 0x155ea3e000 - 0x155ea3efff 0x155ea3f000 - 0x155ea42fff 0x155ea43000 - 0x155ea43fff 0x155ea44000 - 0x155ea44fff 0x155ea45000 - 0x155ea46fff 0x155ea47000 - 0x155ea48fff 0x155ea49000 - 0x155ea49fff 0x155ea4a000 - 0x155ea4afff 0x155ea4b000 - 0x155ebb6fff 0x155ebb7000 - 0x155ebb9fff 0x155ebba000 - 0x155ebbafff 0x155ebbb000 - 0x155ebbbfff 0x155ebbc000 - 0x155ebcefff 0x155ebcf000 - 0x155ebcffff 0x155ebd0000 - 0x155ebd0fff 0x155ebd1000 - 0x155eceffff 0x155ecf0000 - 0x155ecf2fff 0x155ecf3000 - 0x155ecf5fff 0x155ecf6000 - 0x155ecfafff 0x155ecfb000 - 0x155ed4ffff 0x155ed50000 - 0x155f3fafff 0x3ffff39000 - 0x3ffff5afff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/berkeley-db/dbi.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/berkeley-db/preload.lisp . make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f bindings/glibc/Makefile || test -n "`find $m/Makefile -prune -newer bindings/glibc/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > bindings/glibc/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc' /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/bindings/glibc/linux.lisp -o ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0x3ae0a000 - 0x3ae2afff 0x80000000 - 0x800bffff 0x1594fa9000 - 0x1594fc3fff 0x1594fc4000 - 0x1594fc4fff 0x1594fc5000 - 0x1594fc5fff 0x1594fc6000 - 0x1594fc7fff 0x1594fc8000 - 0x1594fc9fff 0x1594fca000 - 0x1594fd0fff 0x1594fd1000 - 0x1594fd1fff 0x1594fd2000 - 0x1594fd2fff 0x1594fd5000 - 0x1594fd6fff 0x1594fd7000 - 0x1595015fff 0x1595016000 - 0x1595017fff 0x1595018000 - 0x159501efff 0x159501f000 - 0x159501ffff 0x1595020000 - 0x15950a9fff 0x15950aa000 - 0x15950aafff 0x15950ab000 - 0x15950abfff 0x15950ac000 - 0x15950dcfff 0x15950dd000 - 0x15950ddfff 0x15950de000 - 0x15950defff 0x15950df000 - 0x15950dffff 0x15950e0000 - 0x15950e7fff 0x15950e8000 - 0x159510dfff 0x159510e000 - 0x1595111fff 0x1595112000 - 0x1595112fff 0x1595113000 - 0x1595114fff 0x1595115000 - 0x1595115fff 0x1595116000 - 0x1595116fff 0x1595117000 - 0x1595117fff 0x1595118000 - 0x159511bfff 0x159511c000 - 0x159511cfff 0x159511d000 - 0x159511dfff 0x159511e000 - 0x159511ffff 0x1595120000 - 0x1595121fff 0x1595122000 - 0x1595122fff 0x1595123000 - 0x1595123fff 0x1595124000 - 0x159528ffff 0x1595290000 - 0x1595292fff 0x1595293000 - 0x1595293fff 0x1595294000 - 0x1595294fff 0x1595295000 - 0x15952a7fff 0x15952a8000 - 0x15952a8fff 0x15952a9000 - 0x15952a9fff 0x15952aa000 - 0x15953c8fff 0x15953c9000 - 0x15953cbfff 0x15953cc000 - 0x15953cefff 0x15953cf000 - 0x15953d3fff 0x15953d4000 - 0x1595428fff 0x1595429000 - 0x1595ad3fff 0x3fffccf000 - 0x3fffcf0fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/bindings/glibc/linux.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/linux.fas ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/linux.c 0 errors, 0 warnings gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I$(/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -b)/linkkit -c linux.c 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:183:12: note: declared here 183 | 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); | ^~~~~~~~~~~~~~~~~~~~~~~~~ In file included from linux.c:23: /usr/include/dirent.h:201:12: note: declared here 201 | 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib/signal.h:52, from /usr/include/sys/wait.h:36, from /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/bindings/glibc/wrap.lisp -o ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0x2ef0b000 - 0x2ef2bfff 0x80000000 - 0x800bffff 0x159303b000 - 0x1593055fff 0x1593056000 - 0x1593056fff 0x1593057000 - 0x1593057fff 0x1593058000 - 0x1593059fff 0x159305a000 - 0x159305bfff 0x159305c000 - 0x1593062fff 0x1593063000 - 0x1593063fff 0x1593064000 - 0x1593064fff 0x1593067000 - 0x1593068fff 0x1593069000 - 0x15930a7fff 0x15930a8000 - 0x15930a9fff 0x15930aa000 - 0x15930b0fff 0x15930b1000 - 0x15930b1fff 0x15930b2000 - 0x159313bfff 0x159313c000 - 0x159313cfff 0x159313d000 - 0x159313dfff 0x159313e000 - 0x159316efff 0x159316f000 - 0x159316ffff 0x1593170000 - 0x1593170fff 0x1593171000 - 0x1593171fff 0x1593172000 - 0x1593179fff 0x159317a000 - 0x159319ffff 0x15931a0000 - 0x15931a3fff 0x15931a4000 - 0x15931a4fff 0x15931a5000 - 0x15931a6fff 0x15931a7000 - 0x15931a7fff 0x15931a8000 - 0x15931a8fff 0x15931a9000 - 0x15931a9fff 0x15931aa000 - 0x15931adfff 0x15931ae000 - 0x15931aefff 0x15931af000 - 0x15931affff 0x15931b0000 - 0x15931b1fff 0x15931b2000 - 0x15931b3fff 0x15931b4000 - 0x15931b4fff 0x15931b5000 - 0x15931b5fff 0x15931b6000 - 0x1593321fff 0x1593322000 - 0x1593324fff 0x1593325000 - 0x1593325fff 0x1593326000 - 0x1593326fff 0x1593327000 - 0x1593339fff 0x159333a000 - 0x159333afff 0x159333b000 - 0x159333bfff 0x159333c000 - 0x159345afff 0x159345b000 - 0x159345dfff 0x159345e000 - 0x1593460fff 0x1593461000 - 0x1593465fff 0x1593466000 - 0x15934bafff 0x15934bb000 - 0x1593b65fff 0x3fff994000 - 0x3fff9b5fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/bindings/glibc/wrap.lisp ... ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/linux.lib ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/linux.lib ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/wrap.fas 0 errors, 0 warnings ln -s /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/bindings/glibc/link.sh . make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f clx/new-clx/Makefile || test -n "`find $m/Makefile -prune -newer clx/new-clx/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > clx/new-clx/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../../config.cache configure: ** NEW CLX checking how to remove colons from paths... (cached) echo $x checking for CLISP version... (cached) 2.49.93+ (2018-02-18) (built 3805243200) (memory 3806542281) checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/ checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build 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 we are using the GNU C compiler... (cached) yes checking whether gcc accepts -g... (cached) yes checking for gcc option to accept ISO C89... (cached) none needed checking whether gcc understands -c and -o together... (cached) yes 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 grep that handles long lines and -e... (cached) /usr/bin/grep checking for egrep... (cached) /usr/bin/grep -E checking for ANSI C header files... (cached) yes checking for sys/types.h... (cached) yes checking for sys/stat.h... (cached) yes checking for stdlib.h... (cached) yes checking for string.h... (cached) yes checking for memory.h... (cached) yes checking for strings.h... (cached) yes checking for inttypes.h... (cached) yes checking for stdint.h... (cached) yes checking for unistd.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 whether time.h and sys/time.h may both be included... yes checking for netdb.h... (cached) yes checking for netinet/in.h... (cached) yes checking for X... (cached) libraries , headers checking for gethostbyname... (cached) yes checking for connect... (cached) yes checking for remove... (cached) yes checking for shmat... (cached) yes checking for IceConnectionNumber in -lICE... (cached) yes checking for special C compiler options needed for large files... (cached) no checking for _FILE_OFFSET_BITS value needed for large files... (cached) no checking size of KeySym... 8 checking for XGetAtomNames... yes checking for Xpm library... yes checking for X shape extension... yes checking if XauGetAuthByAddr needs -lXau... yes configure: ** NEW CLX (output) configure: updating cache ../../config.cache configure: creating ./config.status config.status: creating Makefile config.status: creating link.sh config.status: creating config.h configure: ** NEW CLX (done) make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clx/new-clx' /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -i /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx-preload.lisp -c /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.lisp -o ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0x36c81000 - 0x36ca1fff 0x80000000 - 0x800bffff 0x157e600000 - 0x157e61afff 0x157e61b000 - 0x157e61bfff 0x157e61c000 - 0x157e61cfff 0x157e61d000 - 0x157e61efff 0x157e61f000 - 0x157e620fff 0x157e621000 - 0x157e627fff 0x157e628000 - 0x157e628fff 0x157e629000 - 0x157e629fff 0x157e62c000 - 0x157e62dfff 0x157e62e000 - 0x157e66cfff 0x157e66d000 - 0x157e66efff 0x157e66f000 - 0x157e675fff 0x157e676000 - 0x157e676fff 0x157e677000 - 0x157e700fff 0x157e701000 - 0x157e701fff 0x157e702000 - 0x157e702fff 0x157e703000 - 0x157e733fff 0x157e734000 - 0x157e734fff 0x157e735000 - 0x157e735fff 0x157e736000 - 0x157e736fff 0x157e737000 - 0x157e73efff 0x157e73f000 - 0x157e764fff 0x157e765000 - 0x157e768fff 0x157e769000 - 0x157e769fff 0x157e76a000 - 0x157e76bfff 0x157e76c000 - 0x157e76cfff 0x157e76d000 - 0x157e76dfff 0x157e76e000 - 0x157e76efff 0x157e76f000 - 0x157e772fff 0x157e773000 - 0x157e773fff 0x157e774000 - 0x157e774fff 0x157e775000 - 0x157e776fff 0x157e777000 - 0x157e778fff 0x157e779000 - 0x157e779fff 0x157e77a000 - 0x157e77afff 0x157e77b000 - 0x157e8e6fff 0x157e8e7000 - 0x157e8e9fff 0x157e8ea000 - 0x157e8eafff 0x157e8eb000 - 0x157e8ebfff 0x157e8ec000 - 0x157e8fefff 0x157e8ff000 - 0x157e8fffff 0x157e900000 - 0x157e900fff 0x157e901000 - 0x157ea1ffff 0x157ea20000 - 0x157ea22fff 0x157ea23000 - 0x157ea25fff 0x157ea26000 - 0x157ea2afff 0x157ea2b000 - 0x157ea7ffff 0x157ea80000 - 0x157f12afff 0x3ffff9f000 - 0x3ffffc0fff ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx-preload.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx-preload.lisp ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.lisp ... WARNING: PROCLAIM(VALUES): # is locked Ignore the lock and proceed ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -i /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx-preload.lisp -c /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/image.lisp -o ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0x26b7d000 - 0x26b9dfff 0x80000000 - 0x800bffff 0x158de33000 - 0x158de4dfff 0x158de4e000 - 0x158de4efff 0x158de4f000 - 0x158de4ffff 0x158de50000 - 0x158de51fff 0x158de52000 - 0x158de53fff 0x158de54000 - 0x158de5afff 0x158de5b000 - 0x158de5bfff 0x158de5c000 - 0x158de5cfff 0x158de5f000 - 0x158de60fff 0x158de61000 - 0x158de9ffff 0x158dea0000 - 0x158dea1fff 0x158dea2000 - 0x158dea8fff 0x158dea9000 - 0x158dea9fff 0x158deaa000 - 0x158df33fff 0x158df34000 - 0x158df34fff 0x158df35000 - 0x158df35fff 0x158df36000 - 0x158df66fff 0x158df67000 - 0x158df67fff 0x158df68000 - 0x158df68fff 0x158df69000 - 0x158df69fff 0x158df6a000 - 0x158df71fff 0x158df72000 - 0x158df97fff 0x158df98000 - 0x158df9bfff 0x158df9c000 - 0x158df9cfff 0x158df9d000 - 0x158df9efff 0x158df9f000 - 0x158df9ffff 0x158dfa0000 - 0x158dfa0fff 0x158dfa1000 - 0x158dfa1fff 0x158dfa2000 - 0x158dfa5fff 0x158dfa6000 - 0x158dfa6fff 0x158dfa7000 - 0x158dfa7fff 0x158dfa8000 - 0x158dfa9fff 0x158dfaa000 - 0x158dfabfff 0x158dfac000 - 0x158dfacfff 0x158dfad000 - 0x158dfadfff 0x158dfae000 - 0x158e119fff 0x158e11a000 - 0x158e11cfff 0x158e11d000 - 0x158e11dfff 0x158e11e000 - 0x158e11efff 0x158e11f000 - 0x158e131fff 0x158e132000 - 0x158e132fff 0x158e133000 - 0x158e133fff 0x158e134000 - 0x158e252fff 0x158e253000 - 0x158e255fff 0x158e256000 - 0x158e258fff 0x158e259000 - 0x158e25dfff 0x158e25e000 - 0x158e2b2fff 0x158e2b3000 - 0x158e95dfff 0x3fff92e000 - 0x3fff94ffff ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx-preload.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx-preload.lisp ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/image.lisp ... ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clx/new-clx/clx.lib ... WARNING: PROCLAIM(VALUES): # is locked Ignore the lock and proceed ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clx/new-clx/clx.lib ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -i /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx-preload.lisp -c /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/resource.lisp -o ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0xdc4b000 - 0xdc6bfff 0x80000000 - 0x800bffff 0x157fa86000 - 0x157faa0fff 0x157faa1000 - 0x157faa1fff 0x157faa2000 - 0x157faa2fff 0x157faa3000 - 0x157faa4fff 0x157faa5000 - 0x157faa6fff 0x157faa7000 - 0x157faadfff 0x157faae000 - 0x157faaefff 0x157faaf000 - 0x157faaffff 0x157fab2000 - 0x157fab3fff 0x157fab4000 - 0x157faf2fff 0x157faf3000 - 0x157faf4fff 0x157faf5000 - 0x157fafbfff 0x157fafc000 - 0x157fafcfff 0x157fafd000 - 0x157fb86fff 0x157fb87000 - 0x157fb87fff 0x157fb88000 - 0x157fb88fff 0x157fb89000 - 0x157fbb9fff 0x157fbba000 - 0x157fbbafff 0x157fbbb000 - 0x157fbbbfff 0x157fbbc000 - 0x157fbbcfff 0x157fbbd000 - 0x157fbc4fff 0x157fbc5000 - 0x157fbeafff 0x157fbeb000 - 0x157fbeefff 0x157fbef000 - 0x157fbeffff 0x157fbf0000 - 0x157fbf1fff 0x157fbf2000 - 0x157fbf2fff 0x157fbf3000 - 0x157fbf3fff 0x157fbf4000 - 0x157fbf4fff 0x157fbf5000 - 0x157fbf8fff 0x157fbf9000 - 0x157fbf9fff 0x157fbfa000 - 0x157fbfafff 0x157fbfb000 - 0x157fbfcfff 0x157fbfd000 - 0x157fbfefff 0x157fbff000 - 0x157fbfffff 0x157fc00000 - 0x157fc00fff 0x157fc01000 - 0x157fd6cfff 0x157fd6d000 - 0x157fd6ffff 0x157fd70000 - 0x157fd70fff 0x157fd71000 - 0x157fd71fff 0x157fd72000 - 0x157fd84fff 0x157fd85000 - 0x157fd85fff 0x157fd86000 - 0x157fd86fff 0x157fd87000 - 0x157fea5fff 0x157fea6000 - 0x157fea8fff 0x157fea9000 - 0x157feabfff 0x157feac000 - 0x157feb0fff 0x157feb1000 - 0x157ff05fff 0x157ff06000 - 0x15805b0fff 0x3fffbe4000 - 0x3fffc05fff ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx-preload.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx-preload.lisp ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/resource.lisp ... ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clx/new-clx/clx.lib ... WARNING: PROCLAIM(VALUES): # is locked Ignore the lock and proceed ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clx/new-clx/clx.lib ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f > genclx.c gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -DWANT_XPM=1 -DWANT_XSHAPE=1 genclx.c -o genclx ./genclx -l -o clx.d > clx.d rm -f genclx.c rm -f genclx /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -C /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit/modprep clx.d clx.c Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0x1ffc000 - 0x201cfff 0x80000000 - 0x800bffff 0x155c8d7000 - 0x155c8f1fff 0x155c8f2000 - 0x155c8f2fff 0x155c8f3000 - 0x155c8f3fff 0x155c8f4000 - 0x155c8f5fff 0x155c8f6000 - 0x155c8f7fff 0x155c8f8000 - 0x155c8fefff 0x155c8ff000 - 0x155c8fffff 0x155c900000 - 0x155c900fff 0x155c903000 - 0x155c904fff 0x155c905000 - 0x155c943fff 0x155c944000 - 0x155c945fff 0x155c946000 - 0x155c94cfff 0x155c94d000 - 0x155c94dfff 0x155c94e000 - 0x155c9d7fff 0x155c9d8000 - 0x155c9d8fff 0x155c9d9000 - 0x155c9d9fff 0x155c9da000 - 0x155ca0afff 0x155ca0b000 - 0x155ca0bfff 0x155ca0c000 - 0x155ca0cfff 0x155ca0d000 - 0x155ca0dfff 0x155ca0e000 - 0x155ca15fff 0x155ca16000 - 0x155ca3bfff 0x155ca3c000 - 0x155ca3ffff 0x155ca40000 - 0x155ca40fff 0x155ca41000 - 0x155ca42fff 0x155ca43000 - 0x155ca43fff 0x155ca44000 - 0x155ca44fff 0x155ca45000 - 0x155ca45fff 0x155ca46000 - 0x155ca49fff 0x155ca4a000 - 0x155ca4afff 0x155ca4b000 - 0x155ca4bfff 0x155ca4c000 - 0x155ca4dfff 0x155ca4e000 - 0x155ca4ffff 0x155ca50000 - 0x155ca50fff 0x155ca51000 - 0x155ca51fff 0x155ca52000 - 0x155cbbdfff 0x155cbbe000 - 0x155cbc0fff 0x155cbc1000 - 0x155cbc1fff 0x155cbc2000 - 0x155cbc2fff 0x155cbc3000 - 0x155cbd5fff 0x155cbd6000 - 0x155cbd6fff 0x155cbd7000 - 0x155cbd7fff 0x155cbd8000 - 0x155ccf6fff 0x155ccf7000 - 0x155ccf9fff 0x155ccfa000 - 0x155ccfcfff 0x155ccfd000 - 0x155cd01fff 0x155cd02000 - 0x155cd56fff 0x155cd57000 - 0x155d401fff 0x3fffe1b000 - 0x3fffe3cfff ;; MODPREP: "clx.d" --> #P"clx.c" ;; MODPREP: reading "clx.d": 359,209 bytes, 8,807 lines WARNING: "clx.d":1841:XLIB:OPEN-DISPLAY: emulating signature (1 0 &ALLOW-OTHER-KEYS) WARNING: "clx.d":3608:XLIB:COPY-AREA: emulating signature (9 0) WARNING: "clx.d":3628:XLIB:COPY-PLANE: emulating signature (10 0) WARNING: "clx.d":3697:XLIB:DRAW-LINE: emulating signature (6 1) WARNING: "clx.d":3783:XLIB:DRAW-RECTANGLE: emulating signature (6 1) WARNING: "clx.d":3820:XLIB:DRAW-ARC: emulating signature (8 1) WARNING: "clx.d":4031:XLIB:DRAW-GLYPH: emulating signature (5 0 &KEY) WARNING: "clx.d":4038:XLIB:DRAW-GLYPHS: emulating signature (5 0 &KEY) WARNING: "clx.d":4044:XLIB:DRAW-IMAGE-GLYPH: emulating signature (5 0 &KEY) WARNING: "clx.d":4049:XLIB:DRAW-IMAGE-GLYPHS: emulating signature (5 0 &KEY) WARNING: "clx.d":5417:XLIB:CHANGE-PROPERTY: emulating signature (5 0 &KEY) WARNING: "clx.d":6172:XLIB:QUEUE-EVENT: emulating signature (2 0 &ALLOW-OTHER-KEYS) WARNING: "clx.d":6268:XLIB:SEND-EVENT: emulating signature (3 0 &ALLOW-OTHER-KEYS) WARNING: "clx.d":6414:XLIB:WARP-POINTER-IF-INSIDE: emulating signature (6 2) WARNING: "clx.d":6434:XLIB:WARP-POINTER-RELATIVE-IF-INSIDE: emulating signature (5 2) ;; MODPREP: 552 objects, 410 DEFUNs (15 emulated), 1 DEFVAR (1 init) ;; packages: ("XPM" "XLIB") MODPREP: wrote clx.c (605,000 bytes) gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit -c clx.c /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f: In function ‘get_color’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f:1652:33: warning: unused parameter ‘dpy’ [-Wunused-parameter] 1652 | { | ^ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_make_event_mask’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_make_state_mask’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_open_display’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_set_gcontext_display’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_display_trace’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_copy_gcontext_components’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_copy_area’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f:3608:131: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter] 3608 | { | ^ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_copy_plane’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_draw_line’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f:3697:131: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter] 3697 | { | ^ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_draw_rectangle’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f:3783:141: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter] 3783 | { | ^ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_draw_arc’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_draw_glyph’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f:4031:133: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter] 4031 | { NOTIMPLEMENTED; } | ^ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_draw_glyphs’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f:4038:135: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter] 4038 | { | ^ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_draw_image_glyph’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f:4044:145: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter] 4044 | { NOTIMPLEMENTED; } | ^ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_draw_image_glyphs’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f:4049:147: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter] 4049 | { | ^ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_put_image’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f:4369:22: warning: variable ‘bg’ set but not used [-Wunused-but-set-variable] 4369 | | ^ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f:4369:19: warning: variable ‘fg’ set but not used [-Wunused-but-set-variable] 4369 | | ^ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_text_extents’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f:4744:7: warning: unused variable ‘start’ [-Wunused-variable] 4744 | int start = get_uint16_0 (STACK_2); | ^~~~~ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_text_width’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f:4792:9: warning: unused variable ‘start’ [-Wunused-variable] 4792 | int start = get_uint16_0 (STACK_2); | ^~~~~ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f:4814:9: warning: unused variable ‘end’ [-Wunused-variable] 4814 | int end = missingp(STACK_1) ? vector_length (STACK_3) : get_uint16 (STACK_1); | ^~~ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f:4813:9: warning: unused variable ‘start’ [-Wunused-variable] 4813 | int start = get_uint16_0 (STACK_2); | ^~~~~ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_change_property’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f:5417:143: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter] 5417 | { | ^ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_queue_event’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f:6172:135: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter] 6172 | { | ^ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_send_event’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f:6268:133: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter] 6268 | { | ^ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_global_pointer_position’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f:6341:7: warning: variable ‘same_screen_p’ set but not used [-Wunused-but-set-variable] 6341 | | ^ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_warp_pointer_if_inside’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f:6414:157: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter] 6414 | { | ^ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_warp_pointer_relative_if_inside’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f:6434:175: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter] 6434 | { | ^ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_set_pointer_mapping’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f:7009:7: warning: variable ‘result’ set but not used [-Wunused-but-set-variable] 7009 | int result; | ^~~~~~ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f: In function ‘keycode2keysym’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f:7254:3: warning: ‘XKeycodeToKeysym’ is deprecated [-Wdeprecated-declarations] 7254 | /* There is a comment in MIT-CLX, translate.lisp, which I want to quote here: | ^~ In file included from /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f:415: /usr/include/X11/Xlib.h:1687:15: note: declared here 1687 | extern KeySym XKeycodeToKeysym( | ^~~~~~~~~~~~~~~~ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f:7254:2: warning: ‘XKeycodeToKeysym’ is deprecated [-Wdeprecated-declarations] 7254 | /* There is a comment in MIT-CLX, translate.lisp, which I want to quote here: | ^~ In file included from /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f:415: /usr/include/X11/Xlib.h:1687:15: note: declared here 1687 | extern KeySym XKeycodeToKeysym( | ^~~~~~~~~~~~~~~~ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_keysym__3Echaracter’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f:7365:12: warning: variable ‘dpy’ set but not used [-Wunused-but-set-variable] 7365 | KeySym keysym; | ^~~ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_keysym’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f:7414:125: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter] 7414 | if (uint8_p(STACK_(argcount))) { | ^ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_default_keysym_index’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f:8084:12: warning: unused variable ‘dpy’ [-Wunused-variable] 8084 | Display *dpy = pop_display(); | ^~~ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f:8083:11: warning: unused variable ‘keycode’ [-Wunused-variable] 8083 | KeyCode keycode = get_uint8(popSTACK()); | ^~~~~~~ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.f:8082:7: warning: unused variable ‘state’ [-Wunused-variable] 8082 | int state = get_uint32(popSTACK()); | ^~~~~ At top level: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx-preload.lisp . make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f dbus/Makefile || test -n "`find $m/Makefile -prune -newer dbus/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > dbus/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache configure: ** Dbus (Common) checking how to remove colons from paths... (cached) echo $x checking for CLISP version... (cached) 2.49.93+ (2018-02-18) (built 3805243200) (memory 3806542281) checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/ checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build 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 we are using the GNU C compiler... (cached) yes checking whether gcc accepts -g... (cached) yes checking for gcc option to accept ISO C89... (cached) none needed checking whether gcc understands -c and -o together... (cached) yes 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 grep that handles long lines and -e... (cached) /usr/bin/grep checking for egrep... (cached) /usr/bin/grep -E checking for ANSI C header files... (cached) yes checking for sys/types.h... (cached) yes checking for sys/stat.h... (cached) yes checking for stdlib.h... (cached) yes checking for string.h... (cached) yes checking for memory.h... (cached) yes checking for strings.h... (cached) yes checking for inttypes.h... (cached) yes checking for stdint.h... (cached) yes checking for unistd.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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dbus' /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/dbus/dbus.lisp -o ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0x3c819000 - 0x3c839fff 0x80000000 - 0x800bffff 0x158b6b8000 - 0x158b6d2fff 0x158b6d3000 - 0x158b6d3fff 0x158b6d4000 - 0x158b6d4fff 0x158b6d5000 - 0x158b6d6fff 0x158b6d7000 - 0x158b6d8fff 0x158b6d9000 - 0x158b6dffff 0x158b6e0000 - 0x158b6e0fff 0x158b6e1000 - 0x158b6e1fff 0x158b6e4000 - 0x158b6e5fff 0x158b6e6000 - 0x158b724fff 0x158b725000 - 0x158b726fff 0x158b727000 - 0x158b72dfff 0x158b72e000 - 0x158b72efff 0x158b72f000 - 0x158b7b8fff 0x158b7b9000 - 0x158b7b9fff 0x158b7ba000 - 0x158b7bafff 0x158b7bb000 - 0x158b7ebfff 0x158b7ec000 - 0x158b7ecfff 0x158b7ed000 - 0x158b7edfff 0x158b7ee000 - 0x158b7eefff 0x158b7ef000 - 0x158b7f6fff 0x158b7f7000 - 0x158b81cfff 0x158b81d000 - 0x158b820fff 0x158b821000 - 0x158b821fff 0x158b822000 - 0x158b823fff 0x158b824000 - 0x158b824fff 0x158b825000 - 0x158b825fff 0x158b826000 - 0x158b826fff 0x158b827000 - 0x158b82afff 0x158b82b000 - 0x158b82bfff 0x158b82c000 - 0x158b82cfff 0x158b82d000 - 0x158b82efff 0x158b82f000 - 0x158b830fff 0x158b831000 - 0x158b831fff 0x158b832000 - 0x158b832fff 0x158b833000 - 0x158b99efff 0x158b99f000 - 0x158b9a1fff 0x158b9a2000 - 0x158b9a2fff 0x158b9a3000 - 0x158b9a3fff 0x158b9a4000 - 0x158b9b6fff 0x158b9b7000 - 0x158b9b7fff 0x158b9b8000 - 0x158b9b8fff 0x158b9b9000 - 0x158bad7fff 0x158bad8000 - 0x158badafff 0x158badb000 - 0x158baddfff 0x158bade000 - 0x158bae2fff 0x158bae3000 - 0x158bb37fff 0x158bb38000 - 0x158c1e2fff 0x3fffcf7000 - 0x3fffd18fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/dbus/dbus.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dbus/dbus.fas ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dbus/dbus.c 0 errors, 0 warnings gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit -I/usr/include/dbus-1.0 -I/usr/lib64/dbus-1.0/include -c dbus.c 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f fastcgi/Makefile || test -n "`find $m/Makefile -prune -newer fastcgi/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > fastcgi/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache configure: ** FastCGI (Common) checking how to remove colons from paths... (cached) echo $x checking for CLISP version... (cached) 2.49.93+ (2018-02-18) (built 3805243200) (memory 3806542281) checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/ checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build 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 we are using the GNU C compiler... (cached) yes checking whether gcc accepts -g... (cached) yes checking for gcc option to accept ISO C89... (cached) none needed checking whether gcc understands -c and -o together... (cached) yes 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 grep that handles long lines and -e... (cached) /usr/bin/grep checking for egrep... (cached) /usr/bin/grep -E checking for ANSI C header files... (cached) yes checking for sys/types.h... (cached) yes checking for sys/stat.h... (cached) yes checking for stdlib.h... (cached) yes checking for string.h... (cached) yes checking for memory.h... (cached) yes checking for strings.h... (cached) yes checking for inttypes.h... (cached) yes checking for stdint.h... (cached) yes checking for unistd.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 host CPU and C ABI... (cached) riscv64-lp64d checking for the common suffixes of directories in the library search path... (cached) lib,lib checking how to link with libfcgi... /usr/lib64/libfcgi.so -L/usr/lib64 configure: ** FastCGI (Headers) checking fcgi_stdio.h usability... yes checking fcgi_stdio.h presence... yes 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/fastcgi' /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/fastcgi/fastcgi.lisp -o ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0x3d24e000 - 0x3d26efff 0x80000000 - 0x800bffff 0x158fc80000 - 0x158fc9afff 0x158fc9b000 - 0x158fc9bfff 0x158fc9c000 - 0x158fc9cfff 0x158fc9d000 - 0x158fc9efff 0x158fc9f000 - 0x158fca0fff 0x158fca1000 - 0x158fca7fff 0x158fca8000 - 0x158fca8fff 0x158fca9000 - 0x158fca9fff 0x158fcac000 - 0x158fcadfff 0x158fcae000 - 0x158fcecfff 0x158fced000 - 0x158fceefff 0x158fcef000 - 0x158fcf5fff 0x158fcf6000 - 0x158fcf6fff 0x158fcf7000 - 0x158fd80fff 0x158fd81000 - 0x158fd81fff 0x158fd82000 - 0x158fd82fff 0x158fd83000 - 0x158fdb3fff 0x158fdb4000 - 0x158fdb4fff 0x158fdb5000 - 0x158fdb5fff 0x158fdb6000 - 0x158fdb6fff 0x158fdb7000 - 0x158fdbefff 0x158fdbf000 - 0x158fde4fff 0x158fde5000 - 0x158fde8fff 0x158fde9000 - 0x158fde9fff 0x158fdea000 - 0x158fdebfff 0x158fdec000 - 0x158fdecfff 0x158fded000 - 0x158fdedfff 0x158fdee000 - 0x158fdeefff 0x158fdef000 - 0x158fdf2fff 0x158fdf3000 - 0x158fdf3fff 0x158fdf4000 - 0x158fdf4fff 0x158fdf5000 - 0x158fdf6fff 0x158fdf7000 - 0x158fdf8fff 0x158fdf9000 - 0x158fdf9fff 0x158fdfa000 - 0x158fdfafff 0x158fdfb000 - 0x158ff66fff 0x158ff67000 - 0x158ff69fff 0x158ff6a000 - 0x158ff6afff 0x158ff6b000 - 0x158ff6bfff 0x158ff6c000 - 0x158ff7efff 0x158ff7f000 - 0x158ff7ffff 0x158ff80000 - 0x158ff80fff 0x158ff81000 - 0x159009ffff 0x15900a0000 - 0x15900a2fff 0x15900a3000 - 0x15900a5fff 0x15900a6000 - 0x15900aafff 0x15900ab000 - 0x15900fffff 0x1590100000 - 0x15907aafff 0x3fffc9b000 - 0x3fffcbcfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/fastcgi/fastcgi.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/fastcgi/fastcgi.fas ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/fastcgi/fastcgi.c 0 errors, 0 warnings gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit -I.. -c fastcgi.c gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit -I.. -c /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/fastcgi/fastcgi_wrappers.c /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/fastcgi/fastcgi_wrappers.c:71:9: warning: no previous declaration for ‘fcgi_env’ [-Wmissing-declarations] 71 | char ** fcgi_env() { | ^~~~~~~~ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/fastcgi/fastcgi_wrappers.c: In function ‘read_stdio’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/fastcgi/fastcgi_wrappers.c: At top level: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f gdbm/Makefile || test -n "`find $m/Makefile -prune -newer gdbm/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > gdbm/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache configure: ** Gdbm (Common) checking how to remove colons from paths... (cached) echo $x checking for CLISP version... (cached) 2.49.93+ (2018-02-18) (built 3805243200) (memory 3806542281) checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/ checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build 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 we are using the GNU C compiler... (cached) yes checking whether gcc accepts -g... (cached) yes checking for gcc option to accept ISO C89... (cached) none needed checking whether gcc understands -c and -o together... (cached) yes 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 grep that handles long lines and -e... (cached) /usr/bin/grep checking for egrep... (cached) /usr/bin/grep -E checking for ANSI C header files... (cached) yes checking for sys/types.h... (cached) yes checking for sys/stat.h... (cached) yes checking for stdlib.h... (cached) yes checking for string.h... (cached) yes checking for memory.h... (cached) yes checking for strings.h... (cached) yes checking for inttypes.h... (cached) yes checking for stdint.h... (cached) yes checking for unistd.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 host CPU and C ABI... (cached) riscv64-lp64d checking for the common suffixes of directories in the library search path... (cached) lib,lib checking how to link with libgdbm... /usr/lib64/libgdbm.so -L/usr/lib64 configure: ** Gdbm (Headers) checking gdbm.h usability... yes checking gdbm.h presence... yes 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gdbm' /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/gdbm/gdbm.lisp -o ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0x28712000 - 0x28732fff 0x80000000 - 0x800bffff 0x156c31b000 - 0x156c335fff 0x156c336000 - 0x156c336fff 0x156c337000 - 0x156c337fff 0x156c338000 - 0x156c339fff 0x156c33a000 - 0x156c33bfff 0x156c33c000 - 0x156c342fff 0x156c343000 - 0x156c343fff 0x156c344000 - 0x156c344fff 0x156c347000 - 0x156c348fff 0x156c349000 - 0x156c387fff 0x156c388000 - 0x156c389fff 0x156c38a000 - 0x156c390fff 0x156c391000 - 0x156c391fff 0x156c392000 - 0x156c41bfff 0x156c41c000 - 0x156c41cfff 0x156c41d000 - 0x156c41dfff 0x156c41e000 - 0x156c44efff 0x156c44f000 - 0x156c44ffff 0x156c450000 - 0x156c450fff 0x156c451000 - 0x156c451fff 0x156c452000 - 0x156c459fff 0x156c45a000 - 0x156c47ffff 0x156c480000 - 0x156c483fff 0x156c484000 - 0x156c484fff 0x156c485000 - 0x156c486fff 0x156c487000 - 0x156c487fff 0x156c488000 - 0x156c488fff 0x156c489000 - 0x156c489fff 0x156c48a000 - 0x156c48dfff 0x156c48e000 - 0x156c48efff 0x156c48f000 - 0x156c48ffff 0x156c490000 - 0x156c491fff 0x156c492000 - 0x156c493fff 0x156c494000 - 0x156c494fff 0x156c495000 - 0x156c495fff 0x156c496000 - 0x156c601fff 0x156c602000 - 0x156c604fff 0x156c605000 - 0x156c605fff 0x156c606000 - 0x156c606fff 0x156c607000 - 0x156c619fff 0x156c61a000 - 0x156c61afff 0x156c61b000 - 0x156c61bfff 0x156c61c000 - 0x156c73afff 0x156c73b000 - 0x156c73dfff 0x156c73e000 - 0x156c740fff 0x156c741000 - 0x156c745fff 0x156c746000 - 0x156c79afff 0x156c79b000 - 0x156ce45fff 0x3fffaf8000 - 0x3fffb19fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/gdbm/gdbm.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gdbm/gdbm.fas 0 errors, 0 warnings /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -C /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit/modprep /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/gdbm/gdbm.c ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0xf083000 - 0xf0a3fff 0x80000000 - 0x800bffff 0x156e3c2000 - 0x156e3dcfff 0x156e3dd000 - 0x156e3ddfff 0x156e3de000 - 0x156e3defff 0x156e3df000 - 0x156e3e0fff 0x156e3e1000 - 0x156e3e2fff 0x156e3e3000 - 0x156e3e9fff 0x156e3ea000 - 0x156e3eafff 0x156e3eb000 - 0x156e3ebfff 0x156e3ee000 - 0x156e3effff 0x156e3f0000 - 0x156e42efff 0x156e42f000 - 0x156e430fff 0x156e431000 - 0x156e437fff 0x156e438000 - 0x156e438fff 0x156e439000 - 0x156e4c2fff 0x156e4c3000 - 0x156e4c3fff 0x156e4c4000 - 0x156e4c4fff 0x156e4c5000 - 0x156e4f5fff 0x156e4f6000 - 0x156e4f6fff 0x156e4f7000 - 0x156e4f7fff 0x156e4f8000 - 0x156e4f8fff 0x156e4f9000 - 0x156e500fff 0x156e501000 - 0x156e526fff 0x156e527000 - 0x156e52afff 0x156e52b000 - 0x156e52bfff 0x156e52c000 - 0x156e52dfff 0x156e52e000 - 0x156e52efff 0x156e52f000 - 0x156e52ffff 0x156e530000 - 0x156e530fff 0x156e531000 - 0x156e534fff 0x156e535000 - 0x156e535fff 0x156e536000 - 0x156e536fff 0x156e537000 - 0x156e538fff 0x156e539000 - 0x156e53afff 0x156e53b000 - 0x156e53bfff 0x156e53c000 - 0x156e53cfff 0x156e53d000 - 0x156e6a8fff 0x156e6a9000 - 0x156e6abfff 0x156e6ac000 - 0x156e6acfff 0x156e6ad000 - 0x156e6adfff 0x156e6ae000 - 0x156e6c0fff 0x156e6c1000 - 0x156e6c1fff 0x156e6c2000 - 0x156e6c2fff 0x156e6c3000 - 0x156e7e1fff 0x156e7e2000 - 0x156e7e4fff 0x156e7e5000 - 0x156e7e7fff 0x156e7e8000 - 0x156e7ecfff 0x156e7ed000 - 0x156e841fff 0x156e842000 - 0x156eeecfff 0x3ffffb3000 - 0x3ffffd4fff ;; MODPREP: "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/gdbm/gdbm.c" --> #P"gdbm.m.c" ;; MODPREP: reading "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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,440 bytes) gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I. -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit \ -c gdbm.m.c -o gdbm.o ln -s /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/gdbm/preload.lisp . make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache configure: ** GTK2 (Common) checking how to remove colons from paths... (cached) echo $x checking for CLISP version... (cached) 2.49.93+ (2018-02-18) (built 3805243200) (memory 3806542281) checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/ checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build 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 we are using the GNU C compiler... (cached) yes checking whether gcc accepts -g... (cached) yes checking for gcc option to accept ISO C89... (cached) none needed checking whether gcc understands -c and -o together... (cached) yes 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 grep that handles long lines and -e... (cached) /usr/bin/grep checking for egrep... (cached) /usr/bin/grep -E checking for ANSI C header files... (cached) yes checking for sys/types.h... (cached) yes checking for sys/stat.h... (cached) yes checking for stdlib.h... (cached) yes checking for string.h... (cached) yes checking for memory.h... (cached) yes checking for strings.h... (cached) yes checking for inttypes.h... (cached) yes checking for stdint.h... (cached) yes checking for unistd.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.32) 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gtk2' /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/gtk2/gtk.lisp -o ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0x10faf000 - 0x10fcffff 0x80000000 - 0x800bffff 0x1569134000 - 0x156914efff 0x156914f000 - 0x156914ffff 0x1569150000 - 0x1569150fff 0x1569151000 - 0x1569152fff 0x1569153000 - 0x1569154fff 0x1569155000 - 0x156915bfff 0x156915c000 - 0x156915cfff 0x156915d000 - 0x156915dfff 0x1569160000 - 0x1569161fff 0x1569162000 - 0x15691a0fff 0x15691a1000 - 0x15691a2fff 0x15691a3000 - 0x15691a9fff 0x15691aa000 - 0x15691aafff 0x15691ab000 - 0x1569234fff 0x1569235000 - 0x1569235fff 0x1569236000 - 0x1569236fff 0x1569237000 - 0x1569267fff 0x1569268000 - 0x1569268fff 0x1569269000 - 0x1569269fff 0x156926a000 - 0x156926afff 0x156926b000 - 0x1569272fff 0x1569273000 - 0x1569298fff 0x1569299000 - 0x156929cfff 0x156929d000 - 0x156929dfff 0x156929e000 - 0x156929ffff 0x15692a0000 - 0x15692a0fff 0x15692a1000 - 0x15692a1fff 0x15692a2000 - 0x15692a2fff 0x15692a3000 - 0x15692a6fff 0x15692a7000 - 0x15692a7fff 0x15692a8000 - 0x15692a8fff 0x15692a9000 - 0x15692aafff 0x15692ab000 - 0x15692acfff 0x15692ad000 - 0x15692adfff 0x15692ae000 - 0x15692aefff 0x15692af000 - 0x156941afff 0x156941b000 - 0x156941dfff 0x156941e000 - 0x156941efff 0x156941f000 - 0x156941ffff 0x1569420000 - 0x1569432fff 0x1569433000 - 0x1569433fff 0x1569434000 - 0x1569434fff 0x1569435000 - 0x1569553fff 0x1569554000 - 0x1569556fff 0x1569557000 - 0x1569559fff 0x156955a000 - 0x156955efff 0x156955f000 - 0x15695b3fff 0x15695b4000 - 0x1569c5efff 0x3ffff05000 - 0x3ffff26fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/gtk2/gtk.lisp ... ;; Reading 31,362 bytes from /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/gtk2/gtk-server.cfg ;; Defined 335 functions ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gtk2/gtk.fas ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gtk2/gtk.c 0 errors, 0 warnings gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit -I/usr/include/gtk-2.0 -I/usr/lib64/gtk-2.0/include -I/usr/include/pango-1.0 -I/usr/include/glib-2.0 -I/usr/lib64/glib-2.0/include -I/usr/include/harfbuzz -I/usr/include/freetype2 -I/usr/include/libpng16 -I/usr/include/libmount -I/usr/include/blkid -I/usr/include/fribidi -I/usr/include/libxml2 -I/usr/include/cairo -I/usr/include/pixman-1 -I/usr/include/gdk-pixbuf-2.0 -I/usr/include/atk-1.0 -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/glib-2.0 -I/usr/lib64/glib-2.0/include -I/usr/include/harfbuzz -I/usr/include/freetype2 -I/usr/include/libpng16 -I/usr/include/libmount -I/usr/include/blkid -I/usr/include/fribidi -I/usr/include/libxml2 -I/usr/include/cairo -I/usr/include/pixman-1 -I/usr/include/gdk-pixbuf-2.0 -I/usr/include/atk-1.0 -pthread -c gtk.c 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: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:24, from /usr/include/glib-2.0/gobject/gbinding.h:29, from /usr/include/glib-2.0/glib-object.h:22, from /usr/include/glib-2.0/gio/gioenums.h:28, from /usr/include/glib-2.0/gio/giotypes.h:28, from /usr/include/glib-2.0/gio/gio.h:26, 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, from gtk.c:104: /usr/include/glib-2.0/gobject/gtype.h:679:1: note: declared here 679 | { | ^ 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, from gtk.c:104: /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:32, from /usr/include/glib-2.0/glib.h:30, from /usr/include/glib-2.0/gobject/gbinding.h:28, from /usr/include/glib-2.0/glib-object.h:22, from /usr/include/glib-2.0/gio/gioenums.h:28, from /usr/include/glib-2.0/gio/giotypes.h:28, from /usr/include/glib-2.0/gio/gio.h:26, 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, from gtk.c:104: /usr/include/glib-2.0/glib/gtypes.h:547:8: note: declared here 547 | struct _GTimeVal | ^~~~~~~~~ ln -s /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/gtk2/preload.lisp . make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f libsvm/Makefile || test -n "`find $m/Makefile -prune -newer libsvm/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > libsvm/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache configure: ** LibSVM (Common) checking how to remove colons from paths... (cached) echo $x checking for CLISP version... (cached) 2.49.93+ (2018-02-18) (built 3805243200) (memory 3806542281) checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/ checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build 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 we are using the GNU C compiler... (cached) yes checking whether gcc accepts -g... (cached) yes checking for gcc option to accept ISO C89... (cached) none needed checking whether gcc understands -c and -o together... (cached) yes 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 grep that handles long lines and -e... (cached) /usr/bin/grep checking for egrep... (cached) /usr/bin/grep -E checking for ANSI C header files... (cached) yes checking for sys/types.h... (cached) yes checking for sys/stat.h... (cached) yes checking for stdlib.h... (cached) yes checking for string.h... (cached) yes checking for memory.h... (cached) yes checking for strings.h... (cached) yes checking for inttypes.h... (cached) yes checking for stdint.h... (cached) yes checking for unistd.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 host CPU and C ABI... (cached) riscv64-lp64d checking for the common suffixes of directories in the library search path... (cached) lib,lib checking how to link with libsvm... /usr/lib64/libsvm.so -L/usr/lib64 configure: ** LibSVM (Headers) checking svm.h usability... yes checking svm.h presence... yes 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/libsvm' /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/libsvm/libsvm.lisp -o ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0x1b1c9000 - 0x1b1e9fff 0x80000000 - 0x800bffff 0x158b357000 - 0x158b371fff 0x158b372000 - 0x158b372fff 0x158b373000 - 0x158b373fff 0x158b374000 - 0x158b375fff 0x158b376000 - 0x158b377fff 0x158b378000 - 0x158b37efff 0x158b37f000 - 0x158b37ffff 0x158b380000 - 0x158b380fff 0x158b383000 - 0x158b384fff 0x158b385000 - 0x158b3c3fff 0x158b3c4000 - 0x158b3c5fff 0x158b3c6000 - 0x158b3ccfff 0x158b3cd000 - 0x158b3cdfff 0x158b3ce000 - 0x158b457fff 0x158b458000 - 0x158b458fff 0x158b459000 - 0x158b459fff 0x158b45a000 - 0x158b48afff 0x158b48b000 - 0x158b48bfff 0x158b48c000 - 0x158b48cfff 0x158b48d000 - 0x158b48dfff 0x158b48e000 - 0x158b495fff 0x158b496000 - 0x158b4bbfff 0x158b4bc000 - 0x158b4bffff 0x158b4c0000 - 0x158b4c0fff 0x158b4c1000 - 0x158b4c2fff 0x158b4c3000 - 0x158b4c3fff 0x158b4c4000 - 0x158b4c4fff 0x158b4c5000 - 0x158b4c5fff 0x158b4c6000 - 0x158b4c9fff 0x158b4ca000 - 0x158b4cafff 0x158b4cb000 - 0x158b4cbfff 0x158b4cc000 - 0x158b4cdfff 0x158b4ce000 - 0x158b4cffff 0x158b4d0000 - 0x158b4d0fff 0x158b4d1000 - 0x158b4d1fff 0x158b4d2000 - 0x158b63dfff 0x158b63e000 - 0x158b640fff 0x158b641000 - 0x158b641fff 0x158b642000 - 0x158b642fff 0x158b643000 - 0x158b655fff 0x158b656000 - 0x158b656fff 0x158b657000 - 0x158b657fff 0x158b658000 - 0x158b776fff 0x158b777000 - 0x158b779fff 0x158b77a000 - 0x158b77cfff 0x158b77d000 - 0x158b781fff 0x158b782000 - 0x158b7d6fff 0x158b7d7000 - 0x158be81fff 0x3fff8ab000 - 0x3fff8ccfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/libsvm/libsvm.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/libsvm/libsvm.fas ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/libsvm/libsvm.c 0 errors, 0 warnings gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit -c libsvm.c 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/libsvm/preload.lisp . make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f pari/Makefile || test -n "`find $m/Makefile -prune -newer pari/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > pari/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache configure: ** PARI (Common) checking how to remove colons from paths... (cached) echo $x checking for CLISP version... (cached) 2.49.93+ (2018-02-18) (built 3805243200) (memory 3806542281) checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/ checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build 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 we are using the GNU C compiler... (cached) yes checking whether gcc accepts -g... (cached) yes checking for gcc option to accept ISO C89... (cached) none needed checking whether gcc understands -c and -o together... (cached) yes 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 grep that handles long lines and -e... (cached) /usr/bin/grep checking for egrep... (cached) /usr/bin/grep -E checking for ANSI C header files... (cached) yes checking for sys/types.h... (cached) yes checking for sys/stat.h... (cached) yes checking for stdlib.h... (cached) yes checking for string.h... (cached) yes checking for memory.h... (cached) yes checking for strings.h... (cached) yes checking for inttypes.h... (cached) yes checking for stdint.h... (cached) yes checking for unistd.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 host CPU and C ABI... (cached) riscv64-lp64d checking for the common suffixes of directories in the library search path... (cached) lib,lib checking how to link with libpari... /usr/lib64/libpari.so -L/usr/lib64 configure: ** PARI (Headers) checking pari/pari.h usability... yes checking pari/pari.h presence... yes 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pari' /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/pari/desc2lisp.lisp -o ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0x1612d000 - 0x1614dfff 0x80000000 - 0x800bffff 0x156c33f000 - 0x156c359fff 0x156c35a000 - 0x156c35afff 0x156c35b000 - 0x156c35bfff 0x156c35c000 - 0x156c35dfff 0x156c35e000 - 0x156c35ffff 0x156c360000 - 0x156c366fff 0x156c367000 - 0x156c367fff 0x156c368000 - 0x156c368fff 0x156c36b000 - 0x156c36cfff 0x156c36d000 - 0x156c3abfff 0x156c3ac000 - 0x156c3adfff 0x156c3ae000 - 0x156c3b4fff 0x156c3b5000 - 0x156c3b5fff 0x156c3b6000 - 0x156c43ffff 0x156c440000 - 0x156c440fff 0x156c441000 - 0x156c441fff 0x156c442000 - 0x156c472fff 0x156c473000 - 0x156c473fff 0x156c474000 - 0x156c474fff 0x156c475000 - 0x156c475fff 0x156c476000 - 0x156c47dfff 0x156c47e000 - 0x156c4a3fff 0x156c4a4000 - 0x156c4a7fff 0x156c4a8000 - 0x156c4a8fff 0x156c4a9000 - 0x156c4aafff 0x156c4ab000 - 0x156c4abfff 0x156c4ac000 - 0x156c4acfff 0x156c4ad000 - 0x156c4adfff 0x156c4ae000 - 0x156c4b1fff 0x156c4b2000 - 0x156c4b2fff 0x156c4b3000 - 0x156c4b3fff 0x156c4b4000 - 0x156c4b5fff 0x156c4b6000 - 0x156c4b7fff 0x156c4b8000 - 0x156c4b8fff 0x156c4b9000 - 0x156c4b9fff 0x156c4ba000 - 0x156c625fff 0x156c626000 - 0x156c628fff 0x156c629000 - 0x156c629fff 0x156c62a000 - 0x156c62afff 0x156c62b000 - 0x156c63dfff 0x156c63e000 - 0x156c63efff 0x156c63f000 - 0x156c63ffff 0x156c640000 - 0x156c75efff 0x156c75f000 - 0x156c761fff 0x156c762000 - 0x156c764fff 0x156c765000 - 0x156c769fff 0x156c76a000 - 0x156c7befff 0x156c7bf000 - 0x156ce69fff 0x3fffd89000 - 0x3fffdaafff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/pari/desc2lisp.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pari/desc2lisp.fas 0 errors, 0 warnings /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -i desc2lisp -c /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/pari/pari.lisp -o ./ /usr/share/pari Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0x14f13000 - 0x14f33fff 0x80000000 - 0x800bffff 0x1587849000 - 0x1587863fff 0x1587864000 - 0x1587864fff 0x1587865000 - 0x1587865fff 0x1587866000 - 0x1587867fff 0x1587868000 - 0x1587869fff 0x158786a000 - 0x1587870fff 0x1587871000 - 0x1587871fff 0x1587872000 - 0x1587872fff 0x1587875000 - 0x1587876fff 0x1587877000 - 0x15878b5fff 0x15878b6000 - 0x15878b7fff 0x15878b8000 - 0x15878befff 0x15878bf000 - 0x15878bffff 0x15878c0000 - 0x1587949fff 0x158794a000 - 0x158794afff 0x158794b000 - 0x158794bfff 0x158794c000 - 0x158797cfff 0x158797d000 - 0x158797dfff 0x158797e000 - 0x158797efff 0x158797f000 - 0x158797ffff 0x1587980000 - 0x1587987fff 0x1587988000 - 0x15879adfff 0x15879ae000 - 0x15879b1fff 0x15879b2000 - 0x15879b2fff 0x15879b3000 - 0x15879b4fff 0x15879b5000 - 0x15879b5fff 0x15879b6000 - 0x15879b6fff 0x15879b7000 - 0x15879b7fff 0x15879b8000 - 0x15879bbfff 0x15879bc000 - 0x15879bcfff 0x15879bd000 - 0x15879bdfff 0x15879be000 - 0x15879bffff 0x15879c0000 - 0x15879c1fff 0x15879c2000 - 0x15879c2fff 0x15879c3000 - 0x15879c3fff 0x15879c4000 - 0x1587b2ffff 0x1587b30000 - 0x1587b32fff 0x1587b33000 - 0x1587b33fff 0x1587b34000 - 0x1587b34fff 0x1587b35000 - 0x1587b47fff 0x1587b48000 - 0x1587b48fff 0x1587b49000 - 0x1587b49fff 0x1587b4a000 - 0x1587c68fff 0x1587c69000 - 0x1587c6bfff 0x1587c6c000 - 0x1587c6efff 0x1587c6f000 - 0x1587c73fff 0x1587c74000 - 0x1587cc8fff 0x1587cc9000 - 0x1588373fff 0x3fff941000 - 0x3fff962fff ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pari/desc2lisp.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pari/desc2lisp.fas ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/pari/pari.lisp ... Reading "/usr/share/pari/pari.desc" (1,428,017 bytes) WARNING: Existing name: "arg" (arg :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,287 functions Ignored: non-basic: 134 no C-name: 87 obsolete: 41 sums: 37 graphic: 34 wrapped: 32 programming/internals: 28 programming/control: 28 programming/parallel: 9 Classes: basic: 1,153 gp2c_internal: 59 default: 46 header: 19 gp: 6 gp2c: 4 Sections: number_fields: 183 number_theoretical: 118 elliptic_curves: 86 linear_algebra: 85 programming/specific: 73 algebras: 69 modular_forms: 69 transcendental: 67 conversions: 64 nil: 63 polynomials: 55 member_functions: 47 default: 47 symbolic_operators: 46 sums: 37 graphic: 34 modular_symbols: 30 programming/internals: 28 programming/control: 28 l_functions: 26 operators: 12 combinatorics: 11 programming/parallel: 9 Emitted 979 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("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 non-rational 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pari/pari.fas ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pari/pari.c 0 errors, 8 warnings gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/pari -c pari.c 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/pari -c /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/pari/cpari.c /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/pari/preload.lisp . make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pari' mkdir -p pcre m=`cd ../modules/pcre; pwd`; \ if test -f $m/configure && { test ! -f pcre/config.status || test -n "`find $m/configure -prune -newer pcre/config.status`"; } ; then ( cd pcre ;\ cache=`echo pcre/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \ if test -f ${cache} ; then \ . ${cache}; \ if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \ if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \ if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \ if test "${ac_cv_env_CLFLAGS_set}" = set; then CLFLAGS="${ac_cv_env_CLFLAGS_value}"; export CLFLAGS; fi; \ if test "${ac_cv_env_LIBS_set}" = set; then LIBS="${ac_cv_env_LIBS_value}"; export LIBS; fi; \ if test "${ac_cv_env_CPPFLAGS_set}" = set; then CPPFLAGS="${ac_cv_env_CPPFLAGS_value}"; export CPPFLAGS; fi; \ if test "${ac_cv_env_CPP_set}" = set; then CPP="${ac_cv_env_CPP_value}"; export CPP; fi; \ if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ /bin/sh $m/configure --with-clisp="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f pcre/Makefile || test -n "`find $m/Makefile -prune -newer pcre/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > pcre/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \ cd pcre ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache configure: ** PCRE (Common) checking how to remove colons from paths... (cached) echo $x checking for CLISP version... (cached) 2.49.93+ (2018-02-18) (built 3805243200) (memory 3806542281) checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/ checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build 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 we are using the GNU C compiler... (cached) yes checking whether gcc accepts -g... (cached) yes checking for gcc option to accept ISO C89... (cached) none needed checking whether gcc understands -c and -o together... (cached) yes 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 grep that handles long lines and -e... (cached) /usr/bin/grep checking for egrep... (cached) /usr/bin/grep -E checking for ANSI C header files... (cached) yes checking for sys/types.h... (cached) yes checking for sys/stat.h... (cached) yes checking for stdlib.h... (cached) yes checking for string.h... (cached) yes checking for memory.h... (cached) yes checking for strings.h... (cached) yes checking for inttypes.h... (cached) yes checking for stdint.h... (cached) yes checking for unistd.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 host CPU and C ABI... (cached) riscv64-lp64d checking for the common suffixes of directories in the library search path... (cached) lib,lib checking how to link with libpcre... /usr/lib64/libpcre.so -L/usr/lib64 configure: ** PCRE (Headers) checking pcre.h usability... yes checking pcre.h presence... yes checking for pcre.h... yes configure: ** PCRE (Functions) checking for library containing pcre_compile... none required checking for pcre_get_stringnumber... yes checking for pcre_config... yes checking for pcre_dfa_exec... yes configure: ** PCRE (Output) configure: updating cache ../config.cache configure: creating ./config.status config.status: creating Makefile config.status: creating link.sh config.status: creating config.h configure: ** PCRE (Done) make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pcre' /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/pcre/pcre.lisp -o ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0x109bf000 - 0x109dffff 0x80000000 - 0x800bffff 0x1578f4b000 - 0x1578f65fff 0x1578f66000 - 0x1578f66fff 0x1578f67000 - 0x1578f67fff 0x1578f68000 - 0x1578f69fff 0x1578f6a000 - 0x1578f6bfff 0x1578f6c000 - 0x1578f72fff 0x1578f73000 - 0x1578f73fff 0x1578f74000 - 0x1578f74fff 0x1578f77000 - 0x1578f78fff 0x1578f79000 - 0x1578fb7fff 0x1578fb8000 - 0x1578fb9fff 0x1578fba000 - 0x1578fc0fff 0x1578fc1000 - 0x1578fc1fff 0x1578fc2000 - 0x157904bfff 0x157904c000 - 0x157904cfff 0x157904d000 - 0x157904dfff 0x157904e000 - 0x157907efff 0x157907f000 - 0x157907ffff 0x1579080000 - 0x1579080fff 0x1579081000 - 0x1579081fff 0x1579082000 - 0x1579089fff 0x157908a000 - 0x15790affff 0x15790b0000 - 0x15790b3fff 0x15790b4000 - 0x15790b4fff 0x15790b5000 - 0x15790b6fff 0x15790b7000 - 0x15790b7fff 0x15790b8000 - 0x15790b8fff 0x15790b9000 - 0x15790b9fff 0x15790ba000 - 0x15790bdfff 0x15790be000 - 0x15790befff 0x15790bf000 - 0x15790bffff 0x15790c0000 - 0x15790c1fff 0x15790c2000 - 0x15790c3fff 0x15790c4000 - 0x15790c4fff 0x15790c5000 - 0x15790c5fff 0x15790c6000 - 0x1579231fff 0x1579232000 - 0x1579234fff 0x1579235000 - 0x1579235fff 0x1579236000 - 0x1579236fff 0x1579237000 - 0x1579249fff 0x157924a000 - 0x157924afff 0x157924b000 - 0x157924bfff 0x157924c000 - 0x157936afff 0x157936b000 - 0x157936dfff 0x157936e000 - 0x1579370fff 0x1579371000 - 0x1579375fff 0x1579376000 - 0x15793cafff 0x15793cb000 - 0x1579a75fff 0x3fffae5000 - 0x3fffb06fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/pcre/pcre.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pcre/pcre.fas The following functions were used but not defined: PCRE:PCRE-NAME-TO-INDEX PCRE:PCRE-COMPILE PCRE:PCRE-EXEC 0 errors, 0 warnings /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -C /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit/modprep /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/pcre/cpcre.c ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0x3c4e9000 - 0x3c509fff 0x80000000 - 0x800bffff 0x157c2fc000 - 0x157c316fff 0x157c317000 - 0x157c317fff 0x157c318000 - 0x157c318fff 0x157c319000 - 0x157c31afff 0x157c31b000 - 0x157c31cfff 0x157c31d000 - 0x157c323fff 0x157c324000 - 0x157c324fff 0x157c325000 - 0x157c325fff 0x157c328000 - 0x157c329fff 0x157c32a000 - 0x157c368fff 0x157c369000 - 0x157c36afff 0x157c36b000 - 0x157c371fff 0x157c372000 - 0x157c372fff 0x157c373000 - 0x157c3fcfff 0x157c3fd000 - 0x157c3fdfff 0x157c3fe000 - 0x157c3fefff 0x157c3ff000 - 0x157c42ffff 0x157c430000 - 0x157c430fff 0x157c431000 - 0x157c431fff 0x157c432000 - 0x157c432fff 0x157c433000 - 0x157c43afff 0x157c43b000 - 0x157c460fff 0x157c461000 - 0x157c464fff 0x157c465000 - 0x157c465fff 0x157c466000 - 0x157c467fff 0x157c468000 - 0x157c468fff 0x157c469000 - 0x157c469fff 0x157c46a000 - 0x157c46afff 0x157c46b000 - 0x157c46efff 0x157c46f000 - 0x157c46ffff 0x157c470000 - 0x157c470fff 0x157c471000 - 0x157c472fff 0x157c473000 - 0x157c474fff 0x157c475000 - 0x157c475fff 0x157c476000 - 0x157c476fff 0x157c477000 - 0x157c5e2fff 0x157c5e3000 - 0x157c5e5fff 0x157c5e6000 - 0x157c5e6fff 0x157c5e7000 - 0x157c5e7fff 0x157c5e8000 - 0x157c5fafff 0x157c5fb000 - 0x157c5fbfff 0x157c5fc000 - 0x157c5fcfff 0x157c5fd000 - 0x157c71bfff 0x157c71c000 - 0x157c71efff 0x157c71f000 - 0x157c721fff 0x157c722000 - 0x157c726fff 0x157c727000 - 0x157c77bfff 0x157c77c000 - 0x157ce26fff 0x3fffafb000 - 0x3fffb1cfff ;; MODPREP: "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/pcre/cpcre.c" --> #P"cpcre.m.c" ;; MODPREP: reading "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/pcre/cpcre.c": 18,210 bytes, 423 lines ;; MODPREP: 92 objects, 7 DEFUNs, 1 DEFVAR (1 init) ;; packages: ("PCRE") MODPREP: wrote cpcre.m.c (64,369 bytes) gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I. -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit \ -c cpcre.m.c -o cpcre.o ln -s /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/pcre/preload.lisp . make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pcre' 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f postgresql/Makefile || test -n "`find $m/Makefile -prune -newer postgresql/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > postgresql/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache configure: ** PostgreSQL (Common) checking how to remove colons from paths... (cached) echo $x checking for CLISP version... (cached) 2.49.93+ (2018-02-18) (built 3805243200) (memory 3806542281) checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/ checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build 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 we are using the GNU C compiler... (cached) yes checking whether gcc accepts -g... (cached) yes checking for gcc option to accept ISO C89... (cached) none needed checking whether gcc understands -c and -o together... (cached) yes 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 grep that handles long lines and -e... (cached) /usr/bin/grep checking for egrep... (cached) /usr/bin/grep -E checking for ANSI C header files... (cached) yes checking for sys/types.h... (cached) yes checking for sys/stat.h... (cached) yes checking for stdlib.h... (cached) yes checking for string.h... (cached) yes checking for memory.h... (cached) yes checking for strings.h... (cached) yes checking for inttypes.h... (cached) yes checking for stdint.h... (cached) yes checking for unistd.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 host CPU and C ABI... (cached) riscv64-lp64d checking for the common suffixes of directories in the library search path... (cached) lib,lib checking how to link with libpq... /usr/lib64/libpq.so -L/usr/lib64 configure: ** PostgreSQL (Headers) checking postgres_ext.h usability... yes checking postgres_ext.h presence... yes checking for postgres_ext.h... yes checking postgresql/postgres_ext.h usability... no checking postgresql/postgres_ext.h presence... no checking for postgresql/postgres_ext.h... no checking pgsql/postgres_ext.h usability... no checking pgsql/postgres_ext.h presence... 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/postgresql' /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/postgresql/postgresql.lisp -o ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0x35f2d000 - 0x35f4dfff 0x80000000 - 0x800bffff 0x1561949000 - 0x1561963fff 0x1561964000 - 0x1561964fff 0x1561965000 - 0x1561965fff 0x1561966000 - 0x1561967fff 0x1561968000 - 0x1561969fff 0x156196a000 - 0x1561970fff 0x1561971000 - 0x1561971fff 0x1561972000 - 0x1561972fff 0x1561975000 - 0x1561976fff 0x1561977000 - 0x15619b5fff 0x15619b6000 - 0x15619b7fff 0x15619b8000 - 0x15619befff 0x15619bf000 - 0x15619bffff 0x15619c0000 - 0x1561a49fff 0x1561a4a000 - 0x1561a4afff 0x1561a4b000 - 0x1561a4bfff 0x1561a4c000 - 0x1561a7cfff 0x1561a7d000 - 0x1561a7dfff 0x1561a7e000 - 0x1561a7efff 0x1561a7f000 - 0x1561a7ffff 0x1561a80000 - 0x1561a87fff 0x1561a88000 - 0x1561aadfff 0x1561aae000 - 0x1561ab1fff 0x1561ab2000 - 0x1561ab2fff 0x1561ab3000 - 0x1561ab4fff 0x1561ab5000 - 0x1561ab5fff 0x1561ab6000 - 0x1561ab6fff 0x1561ab7000 - 0x1561ab7fff 0x1561ab8000 - 0x1561abbfff 0x1561abc000 - 0x1561abcfff 0x1561abd000 - 0x1561abdfff 0x1561abe000 - 0x1561abffff 0x1561ac0000 - 0x1561ac1fff 0x1561ac2000 - 0x1561ac2fff 0x1561ac3000 - 0x1561ac3fff 0x1561ac4000 - 0x1561c2ffff 0x1561c30000 - 0x1561c32fff 0x1561c33000 - 0x1561c33fff 0x1561c34000 - 0x1561c34fff 0x1561c35000 - 0x1561c47fff 0x1561c48000 - 0x1561c48fff 0x1561c49000 - 0x1561c49fff 0x1561c4a000 - 0x1561d68fff 0x1561d69000 - 0x1561d6bfff 0x1561d6c000 - 0x1561d6efff 0x1561d6f000 - 0x1561d73fff 0x1561d74000 - 0x1561dc8fff 0x1561dc9000 - 0x1562473fff 0x3fffa29000 - 0x3fffa4afff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/postgresql/postgresql.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/postgresql/postgresql.fas ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/postgresql/postgresql.c 0 errors, 0 warnings gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit \ -c postgresql.c /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/postgresql/sql.lisp -o ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0x1008a000 - 0x100aafff 0x80000000 - 0x800bffff 0x1587788000 - 0x15877a2fff 0x15877a3000 - 0x15877a3fff 0x15877a4000 - 0x15877a4fff 0x15877a5000 - 0x15877a6fff 0x15877a7000 - 0x15877a8fff 0x15877a9000 - 0x15877affff 0x15877b0000 - 0x15877b0fff 0x15877b1000 - 0x15877b1fff 0x15877b4000 - 0x15877b5fff 0x15877b6000 - 0x15877f4fff 0x15877f5000 - 0x15877f6fff 0x15877f7000 - 0x15877fdfff 0x15877fe000 - 0x15877fefff 0x15877ff000 - 0x1587888fff 0x1587889000 - 0x1587889fff 0x158788a000 - 0x158788afff 0x158788b000 - 0x15878bbfff 0x15878bc000 - 0x15878bcfff 0x15878bd000 - 0x15878bdfff 0x15878be000 - 0x15878befff 0x15878bf000 - 0x15878c6fff 0x15878c7000 - 0x15878ecfff 0x15878ed000 - 0x15878f0fff 0x15878f1000 - 0x15878f1fff 0x15878f2000 - 0x15878f3fff 0x15878f4000 - 0x15878f4fff 0x15878f5000 - 0x15878f5fff 0x15878f6000 - 0x15878f6fff 0x15878f7000 - 0x15878fafff 0x15878fb000 - 0x15878fbfff 0x15878fc000 - 0x15878fcfff 0x15878fd000 - 0x15878fefff 0x15878ff000 - 0x1587900fff 0x1587901000 - 0x1587901fff 0x1587902000 - 0x1587902fff 0x1587903000 - 0x1587a6efff 0x1587a6f000 - 0x1587a71fff 0x1587a72000 - 0x1587a72fff 0x1587a73000 - 0x1587a73fff 0x1587a74000 - 0x1587a86fff 0x1587a87000 - 0x1587a87fff 0x1587a88000 - 0x1587a88fff 0x1587a89000 - 0x1587ba7fff 0x1587ba8000 - 0x1587baafff 0x1587bab000 - 0x1587badfff 0x1587bae000 - 0x1587bb2fff 0x1587bb3000 - 0x1587c07fff 0x1587c08000 - 0x15882b2fff 0x3fff7ec000 - 0x3fff80dfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/postgresql/sql.lisp ... ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/postgresql/postgresql.lib ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/postgresql/postgresql.lib ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/postgresql/sql.fas 0 errors, 0 warnings make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f rawsock/Makefile || test -n "`find $m/Makefile -prune -newer rawsock/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > rawsock/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache configure: ** Rawsock (Common) checking how to remove colons from paths... (cached) echo $x checking for CLISP version... (cached) 2.49.93+ (2018-02-18) (built 3805243200) (memory 3806542281) checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/ checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build 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 we are using the GNU C compiler... (cached) yes checking whether gcc accepts -g... (cached) yes checking for gcc option to accept ISO C89... (cached) none needed checking whether gcc understands -c and -o together... (cached) yes 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 grep that handles long lines and -e... (cached) /usr/bin/grep checking for egrep... (cached) /usr/bin/grep -E checking for ANSI C header files... (cached) yes checking for sys/types.h... (cached) yes checking for sys/stat.h... (cached) yes checking for stdlib.h... (cached) yes checking for string.h... (cached) yes checking for memory.h... (cached) yes checking for strings.h... (cached) yes checking for inttypes.h... (cached) yes checking for stdint.h... (cached) yes checking for unistd.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: ** Rawsock (Headers) checking for sys/socket.h... (cached) yes checking for library containing setsockopt... (cached) none needed 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 linux/if_packet.h usability... yes checking linux/if_packet.h presence... yes checking for linux/if_packet.h... yes checking for netdb.h... (cached) yes checking asm/types.h usability... yes checking asm/types.h presence... yes checking for asm/types.h... yes checking for sys/ioctl.h... (cached) yes checking stropts.h usability... no checking stropts.h presence... no checking for stropts.h... no checking poll.h usability... yes checking poll.h presence... yes checking for poll.h... yes checking for sys/un.h... (cached) yes checking ifaddrs.h usability... yes checking ifaddrs.h presence... 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/rawsock' /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/rawsock/sock.lisp -o ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0x3964b000 - 0x3966bfff 0x80000000 - 0x800bffff 0x1592a92000 - 0x1592aacfff 0x1592aad000 - 0x1592aadfff 0x1592aae000 - 0x1592aaefff 0x1592aaf000 - 0x1592ab0fff 0x1592ab1000 - 0x1592ab2fff 0x1592ab3000 - 0x1592ab9fff 0x1592aba000 - 0x1592abafff 0x1592abb000 - 0x1592abbfff 0x1592abe000 - 0x1592abffff 0x1592ac0000 - 0x1592afefff 0x1592aff000 - 0x1592b00fff 0x1592b01000 - 0x1592b07fff 0x1592b08000 - 0x1592b08fff 0x1592b09000 - 0x1592b92fff 0x1592b93000 - 0x1592b93fff 0x1592b94000 - 0x1592b94fff 0x1592b95000 - 0x1592bc5fff 0x1592bc6000 - 0x1592bc6fff 0x1592bc7000 - 0x1592bc7fff 0x1592bc8000 - 0x1592bc8fff 0x1592bc9000 - 0x1592bd0fff 0x1592bd1000 - 0x1592bf6fff 0x1592bf7000 - 0x1592bfafff 0x1592bfb000 - 0x1592bfbfff 0x1592bfc000 - 0x1592bfdfff 0x1592bfe000 - 0x1592bfefff 0x1592bff000 - 0x1592bfffff 0x1592c00000 - 0x1592c00fff 0x1592c01000 - 0x1592c04fff 0x1592c05000 - 0x1592c05fff 0x1592c06000 - 0x1592c06fff 0x1592c07000 - 0x1592c08fff 0x1592c09000 - 0x1592c0afff 0x1592c0b000 - 0x1592c0bfff 0x1592c0c000 - 0x1592c0cfff 0x1592c0d000 - 0x1592d78fff 0x1592d79000 - 0x1592d7bfff 0x1592d7c000 - 0x1592d7cfff 0x1592d7d000 - 0x1592d7dfff 0x1592d7e000 - 0x1592d90fff 0x1592d91000 - 0x1592d91fff 0x1592d92000 - 0x1592d92fff 0x1592d93000 - 0x1592eb1fff 0x1592eb2000 - 0x1592eb4fff 0x1592eb5000 - 0x1592eb7fff 0x1592eb8000 - 0x1592ebcfff 0x1592ebd000 - 0x1592f11fff 0x1592f12000 - 0x15935bcfff 0x3fffc6f000 - 0x3fffc90fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/rawsock/sock.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -C /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit/modprep /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/rawsock/rawsock.c ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0xe13f000 - 0xe15ffff 0x80000000 - 0x800bffff 0x157f75e000 - 0x157f778fff 0x157f779000 - 0x157f779fff 0x157f77a000 - 0x157f77afff 0x157f77b000 - 0x157f77cfff 0x157f77d000 - 0x157f77efff 0x157f77f000 - 0x157f785fff 0x157f786000 - 0x157f786fff 0x157f787000 - 0x157f787fff 0x157f78a000 - 0x157f78bfff 0x157f78c000 - 0x157f7cafff 0x157f7cb000 - 0x157f7ccfff 0x157f7cd000 - 0x157f7d3fff 0x157f7d4000 - 0x157f7d4fff 0x157f7d5000 - 0x157f85efff 0x157f85f000 - 0x157f85ffff 0x157f860000 - 0x157f860fff 0x157f861000 - 0x157f891fff 0x157f892000 - 0x157f892fff 0x157f893000 - 0x157f893fff 0x157f894000 - 0x157f894fff 0x157f895000 - 0x157f89cfff 0x157f89d000 - 0x157f8c2fff 0x157f8c3000 - 0x157f8c6fff 0x157f8c7000 - 0x157f8c7fff 0x157f8c8000 - 0x157f8c9fff 0x157f8ca000 - 0x157f8cafff 0x157f8cb000 - 0x157f8cbfff 0x157f8cc000 - 0x157f8ccfff 0x157f8cd000 - 0x157f8d0fff 0x157f8d1000 - 0x157f8d1fff 0x157f8d2000 - 0x157f8d2fff 0x157f8d3000 - 0x157f8d4fff 0x157f8d5000 - 0x157f8d6fff 0x157f8d7000 - 0x157f8d7fff 0x157f8d8000 - 0x157f8d8fff 0x157f8d9000 - 0x157fa44fff 0x157fa45000 - 0x157fa47fff 0x157fa48000 - 0x157fa48fff 0x157fa49000 - 0x157fa49fff 0x157fa4a000 - 0x157fa5cfff 0x157fa5d000 - 0x157fa5dfff 0x157fa5e000 - 0x157fa5efff 0x157fa5f000 - 0x157fb7dfff 0x157fb7e000 - 0x157fb80fff 0x157fb81000 - 0x157fb83fff 0x157fb84000 - 0x157fb88fff 0x157fb89000 - 0x157fbddfff 0x157fbde000 - 0x1580288fff 0x3fffdfa000 - 0x3fffe1bfff ;; MODPREP: "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/rawsock/rawsock.c" --> #P"rawsock.m.c" ;; MODPREP: reading "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/rawsock/rawsock.c": 59,766 bytes, 1,489 lines WARNING: "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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,472 bytes) gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I. -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit \ -c rawsock.m.c -o rawsock.o /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/rawsock/rawsock.c: In function ‘C_subr_rawsock_recvfrom’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/rawsock/rawsock.c:962:9: warning: unused variable ‘buffer’ [-Wunused-variable] 962 | void *buffer; | ^~~~~~ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/rawsock/rawsock.c: In function ‘C_subr_rawsock_sock_read’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/rawsock/rawsock.c:1051:13: warning: unused variable ‘pinned_count’ [-Wunused-variable] 1051 | ssize_t pinned_count = retval; | ^~~~~~~~~~~~ /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/rawsock/rawsock.c: In function ‘C_subr_rawsock_sock_write’: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/rawsock/rawsock.c:1125:13: warning: unused variable ‘pinned_count’ [-Wunused-variable] 1125 | ssize_t pinned_count = retval; | ^~~~~~~~~~~~ In file included from /usr/include/string.h:519, from /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib/string.h:41, from /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/rawsock/rawsock.c:19: In function ‘strncpy’, inlined from ‘configdev’ at /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/rawsock/rawsock.c:1150:3, inlined from ‘C_subr_rawsock_configdev’ at /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/rawsock/rawsock.c:1181:2673: /usr/include/bits/string_fortified.h:106:10: warning: ‘__builtin_strncpy’ specified bound 16 equals destination size [-Wstringop-truncation] 106 | return __builtin___strncpy_chk (__dest, __src, __len, __bos (__dest)); | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ In function ‘strncpy’, inlined from ‘configdev’ at /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/rawsock/rawsock.c:1159:3, inlined from ‘C_subr_rawsock_configdev’ at /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/rawsock/rawsock.c:1181:2673: /usr/include/bits/string_fortified.h:106:10: warning: ‘__builtin_strncpy’ specified bound 16 equals destination size [-Wstringop-truncation] 106 | return __builtin___strncpy_chk (__dest, __src, __len, __bos (__dest)); | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ln -s /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/rawsock/preload.lisp . make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f zlib/Makefile || test -n "`find $m/Makefile -prune -newer zlib/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > zlib/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache configure: ** Zlib (Common) checking how to remove colons from paths... (cached) echo $x checking for CLISP version... (cached) 2.49.93+ (2018-02-18) (built 3805243200) (memory 3806542281) checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/ checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build 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 we are using the GNU C compiler... (cached) yes checking whether gcc accepts -g... (cached) yes checking for gcc option to accept ISO C89... (cached) none needed checking whether gcc understands -c and -o together... (cached) yes 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 grep that handles long lines and -e... (cached) /usr/bin/grep checking for egrep... (cached) /usr/bin/grep -E checking for ANSI C header files... (cached) yes checking for sys/types.h... (cached) yes checking for sys/stat.h... (cached) yes checking for stdlib.h... (cached) yes checking for string.h... (cached) yes checking for memory.h... (cached) yes checking for strings.h... (cached) yes checking for inttypes.h... (cached) yes checking for stdint.h... (cached) yes checking for unistd.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 host CPU and C ABI... (cached) riscv64-lp64d checking for the common suffixes of directories in the library search path... (cached) lib,lib checking how to link with libz... /usr/lib64/libz.so -L/usr/lib64 configure: ** Zlib (Headers) checking zlib.h usability... yes checking zlib.h presence... yes 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/zlib' /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/zlib/zlib.lisp -o ./ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0x38aa4000 - 0x38ac4fff 0x80000000 - 0x800bffff 0x15694f9000 - 0x1569513fff 0x1569514000 - 0x1569514fff 0x1569515000 - 0x1569515fff 0x1569516000 - 0x1569517fff 0x1569518000 - 0x1569519fff 0x156951a000 - 0x1569520fff 0x1569521000 - 0x1569521fff 0x1569522000 - 0x1569522fff 0x1569525000 - 0x1569526fff 0x1569527000 - 0x1569565fff 0x1569566000 - 0x1569567fff 0x1569568000 - 0x156956efff 0x156956f000 - 0x156956ffff 0x1569570000 - 0x15695f9fff 0x15695fa000 - 0x15695fafff 0x15695fb000 - 0x15695fbfff 0x15695fc000 - 0x156962cfff 0x156962d000 - 0x156962dfff 0x156962e000 - 0x156962efff 0x156962f000 - 0x156962ffff 0x1569630000 - 0x1569637fff 0x1569638000 - 0x156965dfff 0x156965e000 - 0x1569661fff 0x1569662000 - 0x1569662fff 0x1569663000 - 0x1569664fff 0x1569665000 - 0x1569665fff 0x1569666000 - 0x1569666fff 0x1569667000 - 0x1569667fff 0x1569668000 - 0x156966bfff 0x156966c000 - 0x156966cfff 0x156966d000 - 0x156966dfff 0x156966e000 - 0x156966ffff 0x1569670000 - 0x1569671fff 0x1569672000 - 0x1569672fff 0x1569673000 - 0x1569673fff 0x1569674000 - 0x15697dffff 0x15697e0000 - 0x15697e2fff 0x15697e3000 - 0x15697e3fff 0x15697e4000 - 0x15697e4fff 0x15697e5000 - 0x15697f7fff 0x15697f8000 - 0x15697f8fff 0x15697f9000 - 0x15697f9fff 0x15697fa000 - 0x1569918fff 0x1569919000 - 0x156991bfff 0x156991c000 - 0x156991efff 0x156991f000 - 0x1569923fff 0x1569924000 - 0x1569978fff 0x1569979000 - 0x156a023fff 0x3fff96a000 - 0x3fff98bfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/zlib/zlib.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/zlib/zlib.fas ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/zlib/zlib.c 0 errors, 0 warnings gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit -c zlib.c make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/zlib' rm -rf full rm -rf dynmod; mkdir dynmod MAKE=make CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 pcre postgresql rawsock zlib || (rm -rf full ; exit 1) make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/asdf' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/asdf' make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/berkeley-db' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/berkeley-db' gcc -shared -fPIC -DPIC bdb.o /usr/lib64/libdb.so -L/usr/lib64 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-bdb.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc' gcc -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,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-linux.so /usr/bin/ld: linux.o: in function `module__linux__init_function_2': /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/linux.c:963: warning: the use of `tmpnam' is dangerous, better use `mkstemp' /usr/bin/ld: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/linux.c:964: warning: the use of `tmpnam_r' is dangerous, better use `mkstemp' /usr/bin/ld: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/linux.c:965: warning: the use of `tempnam' is dangerous, better use `mkstemp' /usr/bin/ld: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/linux.c:689: warning: the use of `mktemp' is dangerous, better use `mkstemp' or `mkdtemp' make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clx/new-clx' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clx/new-clx' gcc -shared -fPIC -DPIC clx.o -lXpm -lXext -lXau -lSM -lICE -lX11 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-clx.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dbus' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dbus' gcc -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,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-dbus.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/fastcgi' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/fastcgi' gcc -shared -fPIC -DPIC fastcgi.o fastcgi_wrappers.o /usr/lib64/libfcgi.so -L/usr/lib64 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-fastcgi.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gdbm' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gdbm' gcc -shared -fPIC -DPIC gdbm.o /usr/lib64/libgdbm.so -L/usr/lib64 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-gdbm.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gtk2' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gtk2' gcc -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,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-gtk.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/libsvm' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/libsvm' gcc -shared -fPIC -DPIC libsvm.o -lm /usr/lib64/libsvm.so -L/usr/lib64 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-libsvm.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pari' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pari' gcc -shared -fPIC -DPIC cpari.o pari.o -lm /usr/lib64/libpari.so -L/usr/lib64 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-pari.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pcre' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pcre' gcc -shared -fPIC -DPIC cpcre.o /usr/lib64/libpcre.so -L/usr/lib64 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-pcre.so -o /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-pcre.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/postgresql' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/postgresql' gcc -shared -fPIC -DPIC postgresql.o /usr/lib64/libpq.so -L/usr/lib64 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-postgresql.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/rawsock' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/rawsock' gcc -shared -fPIC -DPIC rawsock.o -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-rawsock.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/zlib' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/zlib' gcc -shared -fPIC -DPIC zlib.o /usr/lib64/libz.so -L/usr/lib64 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-zlib.so gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit -c modules.c gcc -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -L/usr/lib64 rawsock.o postgresql.o /usr/lib64/libpq.so -L/usr/lib64 cpcre.o /usr/lib64/libpcre.so -L/usr/lib64 cpari.o pari.o -lm /usr/lib64/libpari.so -L/usr/lib64 libsvm.o -lm /usr/lib64/libsvm.so -L/usr/lib64 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 -L/usr/lib64 fastcgi.o fastcgi_wrappers.o /usr/lib64/libfcgi.so -L/usr/lib64 dbus.o -ldbus-1 clx.o -lXpm -lXext -lXau -lSM -lICE -lX11 linux.o -lm bdb.o /usr/lib64/libdb.so -L/usr/lib64 readline.o -lreadline -lncurses regexi.o calls.o -lm -lcrypt gettext.o lisp.a -Wl,--whole-archive libgnu.a -Wl,--no-whole-archive -lreadline -lncurses -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl -o lisp.run /usr/bin/ld: linux.o: in function `module__linux__init_function_2': /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/linux.c:963: warning: the use of `tmpnam' is dangerous, better use `mkstemp' /usr/bin/ld: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/linux.c:964: warning: the use of `tmpnam_r' is dangerous, better use `mkstemp' /usr/bin/ld: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/linux.c:965: warning: the use of `tempnam' is dangerous, better use `mkstemp' /usr/bin/ld: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/linux.c:689: 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 pcre/preload.lisp -i rawsock/preload.lisp -x (saveinitmem "full/lispinit.mem") Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0x3ce31000 - 0x3ce51fff 0x80000000 - 0x800bffff 0x1580a6a000 - 0x1580a84fff 0x1580a85000 - 0x1580a85fff 0x1580a86000 - 0x1580a86fff 0x1580a87000 - 0x1580a88fff 0x1580a89000 - 0x1580a8afff 0x1580a8b000 - 0x1580a91fff 0x1580a92000 - 0x1580a92fff 0x1580a93000 - 0x1580a93fff 0x1580a96000 - 0x1580a97fff 0x1580a98000 - 0x1580ad6fff 0x1580ad7000 - 0x1580ad8fff 0x1580ad9000 - 0x1580adffff 0x1580ae0000 - 0x1580ae0fff 0x1580ae1000 - 0x1580b6afff 0x1580b6b000 - 0x1580b6bfff 0x1580b6c000 - 0x1580b6cfff 0x1580b6d000 - 0x1580b9dfff 0x1580b9e000 - 0x1580b9efff 0x1580b9f000 - 0x1580b9ffff 0x1580ba0000 - 0x1580ba0fff 0x1580ba1000 - 0x1580ba8fff 0x1580ba9000 - 0x1580bcefff 0x1580bcf000 - 0x1580bd2fff 0x1580bd3000 - 0x1580bd3fff 0x1580bd4000 - 0x1580bd5fff 0x1580bd6000 - 0x1580bd6fff 0x1580bd7000 - 0x1580bd7fff 0x1580bd8000 - 0x1580bd8fff 0x1580bd9000 - 0x1580bdcfff 0x1580bdd000 - 0x1580bddfff 0x1580bde000 - 0x1580bdefff 0x1580bdf000 - 0x1580be0fff 0x1580be1000 - 0x1580be2fff 0x1580be3000 - 0x1580be3fff 0x1580be4000 - 0x1580be4fff 0x1580be5000 - 0x1580d50fff 0x1580d51000 - 0x1580d53fff 0x1580d54000 - 0x1580d54fff 0x1580d55000 - 0x1580d55fff 0x1580d56000 - 0x1580d68fff 0x1580d69000 - 0x1580d69fff 0x1580d6a000 - 0x1580d6afff 0x1580d6b000 - 0x1580e89fff 0x1580e8a000 - 0x1580e8cfff 0x1580e8d000 - 0x1580e8ffff 0x1580e90000 - 0x1580e94fff 0x1580e95000 - 0x1580ee9fff 0x1580eea000 - 0x1581594fff 0x3fffcee000 - 0x3fffd0efff ;; 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gtk2/preload.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gtk2/preload.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/libsvm/preload.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/libsvm/preload.lisp ;; Loading file pari/preload.lisp ... ;; Loaded file pari/preload.lisp ;; Loading file pcre/preload.lisp ... ;; Loaded file pcre/preload.lisp ;; Loading file rawsock/preload.lisp ... ;; Loaded file rawsock/preload.lisp ;; Wrote the memory image into full/lispinit.mem (3,798,272 bytes) Bytes permanently allocated: 179,976 Bytes currently in use: 3,610,208 Bytes available until next GC: 1,800,172 3610208 ; 1800172 ; 179976 ; 1 ; 581984 ; 73416 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 pcre/pcre -i postgresql/postgresql -i postgresql/sql -i rawsock/sock -i zlib/zlib -x (saveinitmem "full/lispinit.mem") Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x225fff 0x227000 - 0x258fff 0x259000 - 0x29bfff 0x29c000 - 0x2c1fff 0x26de000 - 0x271ffff 0x80000000 - 0x800bffff 0x158e07b000 - 0x158e095fff 0x158e096000 - 0x158e096fff 0x158e097000 - 0x158e097fff 0x158e098000 - 0x158e099fff 0x158e09a000 - 0x158e09bfff 0x158e09c000 - 0x158e0a2fff 0x158e0a3000 - 0x158e0a3fff 0x158e0a4000 - 0x158e0a4fff 0x158e0a7000 - 0x158e0a8fff 0x158e0a9000 - 0x158e0bbfff 0x158e0bc000 - 0x158e0bcfff 0x158e0bd000 - 0x158e0bdfff 0x158e0be000 - 0x158e0fffff 0x158e100000 - 0x158e102fff 0x158e103000 - 0x158e103fff 0x158e104000 - 0x158e13efff 0x158e13f000 - 0x158e13ffff 0x158e140000 - 0x158e140fff 0x158e141000 - 0x158e141fff 0x158e142000 - 0x158e6c6fff 0x158e6c7000 - 0x158e6c7fff 0x158e6c8000 - 0x158e6c8fff 0x158e6c9000 - 0x158e6f4fff 0x158e6f5000 - 0x158e713fff 0x158e714000 - 0x158e71efff 0x158e71f000 - 0x158e71ffff 0x158e720000 - 0x158e720fff 0x158e721000 - 0x158e721fff 0x158e722000 - 0x158eb1dfff 0x158eb1e000 - 0x158eb1efff 0x158eb1f000 - 0x158eb24fff 0x158eb25000 - 0x158eb29fff 0x158eb2a000 - 0x158eb2dfff 0x158eb2e000 - 0x158ebd4fff 0x158ebd5000 - 0x158ebd8fff 0x158ebd9000 - 0x158ebdafff 0x158ebdb000 - 0x158ebfafff 0x158ebfb000 - 0x158ebfbfff 0x158ebfc000 - 0x158ebfcfff 0x158ebfd000 - 0x158ec45fff 0x158ec46000 - 0x158ec46fff 0x158ec47000 - 0x158ec48fff 0x158ec49000 - 0x158ec49fff 0x158ec4a000 - 0x158ec4afff 0x158ec4b000 - 0x158ed51fff 0x158ed52000 - 0x158ed52fff 0x158ed53000 - 0x158ed53fff 0x158ed54000 - 0x158ed54fff 0x158ed55000 - 0x158ed6afff 0x158ed6b000 - 0x158ed6bfff 0x158ed6c000 - 0x158ed6cfff 0x158ed6d000 - 0x158ed77fff 0x158ed78000 - 0x158ed78fff 0x158ed79000 - 0x158ed79fff 0x158ed7a000 - 0x158ed7bfff 0x158ed7c000 - 0x158ed84fff 0x158ed85000 - 0x158ed85fff 0x158ed86000 - 0x158ed86fff 0x158ed87000 - 0x158edc7fff 0x158edc8000 - 0x158edc8fff 0x158edc9000 - 0x158edc9fff 0x158edca000 - 0x158edcafff 0x158edcb000 - 0x158edcbfff 0x158edcc000 - 0x158edd8fff 0x158edd9000 - 0x158edd9fff 0x158edda000 - 0x158eddafff 0x158eddb000 - 0x158ede8fff 0x158ede9000 - 0x158ede9fff 0x158edea000 - 0x158edeafff 0x158edeb000 - 0x158edebfff 0x158edec000 - 0x158ededfff 0x158edee000 - 0x158edeefff 0x158edef000 - 0x158edeffff 0x158edf0000 - 0x158ef01fff 0x158ef02000 - 0x158ef02fff 0x158ef03000 - 0x158ef07fff 0x158ef08000 - 0x158ef09fff 0x158ef0a000 - 0x158ef93fff 0x158ef94000 - 0x158ef94fff 0x158ef95000 - 0x158ef95fff 0x158ef96000 - 0x158f0dffff 0x158f0e0000 - 0x158f0e0fff 0x158f0e1000 - 0x158f0e6fff 0x158f0e7000 - 0x158f0eafff 0x158f0eb000 - 0x158f129fff 0x158f12a000 - 0x158f12bfff 0x158f12c000 - 0x158f132fff 0x158f133000 - 0x158f133fff 0x158f134000 - 0x158f164fff 0x158f165000 - 0x158f165fff 0x158f166000 - 0x158f166fff 0x158f167000 - 0x158f167fff 0x158f168000 - 0x158f16ffff 0x158f170000 - 0x158f195fff 0x158f196000 - 0x158f199fff 0x158f19a000 - 0x158f19afff 0x158f19b000 - 0x158f19cfff 0x158f19d000 - 0x158f19dfff 0x158f19e000 - 0x158f19efff 0x158f19f000 - 0x158f19ffff 0x158f1a0000 - 0x158f1a1fff 0x158f1a2000 - 0x158f1a5fff 0x158f1a6000 - 0x158f1a6fff 0x158f1a7000 - 0x158f1a7fff 0x158f1a8000 - 0x158f1a9fff 0x158f1aa000 - 0x158f1aafff 0x158f1ab000 - 0x158f1abfff 0x158f1ac000 - 0x158f317fff 0x158f318000 - 0x158f31afff 0x158f31b000 - 0x158f31bfff 0x158f31c000 - 0x158f31cfff 0x158f31d000 - 0x158f32ffff 0x158f330000 - 0x158f330fff 0x158f331000 - 0x158f331fff 0x158f332000 - 0x158f450fff 0x158f451000 - 0x158f453fff 0x158f454000 - 0x158f456fff 0x158f457000 - 0x158f459fff 0x158f45a000 - 0x158f4c6fff 0x158f4c7000 - 0x158f4c7fff 0x158f4c8000 - 0x158f4cffff 0x158f4d0000 - 0x158f4d4fff 0x158f4d5000 - 0x158f4d6fff 0x158f4d7000 - 0x158f6c9fff 0x158f6ca000 - 0x158f6cafff 0x158f6cb000 - 0x158f6f2fff 0x158f6f3000 - 0x158f6f7fff 0x158f6f8000 - 0x158f6fbfff 0x158f6fc000 - 0x158f738fff 0x158f739000 - 0x158f739fff 0x158f73a000 - 0x158f73afff 0x158f73b000 - 0x158f73cfff 0x158f73d000 - 0x158f77efff 0x158f77f000 - 0x158f77ffff 0x158f780000 - 0x158f780fff 0x158f781000 - 0x158f782fff 0x158f783000 - 0x158f784fff 0x158f785000 - 0x158f79afff 0x158f79b000 - 0x158f79bfff 0x158f79c000 - 0x158f79cfff 0x158f79d000 - 0x158f7a0fff 0x158f7a1000 - 0x158f804fff 0x158f805000 - 0x158f805fff 0x158f806000 - 0x158f806fff 0x158f807000 - 0x158f807fff 0x158f808000 - 0x158f9a6fff 0x158f9a7000 - 0x158f9b0fff 0x158f9b1000 - 0x158f9b4fff 0x158f9b5000 - 0x158f9bafff 0x158f9bb000 - 0x158f9bcfff 0x158f9bd000 - 0x158f9bdfff 0x158f9be000 - 0x158f9befff 0x158f9bf000 - 0x158f9bffff 0x158f9c0000 - 0x158f9cafff 0x158f9cb000 - 0x158f9cbfff 0x158f9cc000 - 0x158f9ccfff 0x158f9cd000 - 0x158f9cdfff 0x158f9ce000 - 0x158f9d1fff 0x158f9d2000 - 0x158f9d2fff 0x158f9d3000 - 0x158f9d3fff 0x158f9d4000 - 0x158f9f5fff 0x158f9f6000 - 0x158f9f8fff 0x158f9f9000 - 0x158f9f9fff 0x158f9fa000 - 0x158facefff 0x158facf000 - 0x158fad1fff 0x158fad2000 - 0x158fad3fff 0x158fad4000 - 0x158fc5ffff 0x158fc60000 - 0x158fc65fff 0x158fc66000 - 0x158fc68fff 0x158fc69000 - 0x158fc6cfff 0x158fc6d000 - 0x158fc7efff 0x158fc7f000 - 0x158fc7ffff 0x158fc80000 - 0x158fc80fff 0x158fc81000 - 0x158fcc2fff 0x158fcc3000 - 0x158fcc5fff 0x158fcc6000 - 0x158fcc6fff 0x158fcc7000 - 0x158fd02fff 0x158fd03000 - 0x158fd03fff 0x158fd04000 - 0x158fd05fff 0x158fd06000 - 0x158fd06fff 0x158fd07000 - 0x158fd0efff 0x158fd0f000 - 0x158fd0ffff 0x158fd10000 - 0x158fd10fff 0x158fd11000 - 0x158fd12fff 0x158fd13000 - 0x158fd13fff 0x158fd14000 - 0x158fd14fff 0x158fd15000 - 0x158fd20fff 0x158fd21000 - 0x158fd21fff 0x158fd22000 - 0x158fd22fff 0x158fd23000 - 0x158fd24fff 0x158fd25000 - 0x158fd2cfff 0x158fd2d000 - 0x158fd2dfff 0x158fd2e000 - 0x158fd2efff 0x158fd2f000 - 0x158fd36fff 0x158fd37000 - 0x158fd37fff 0x158fd38000 - 0x158fd38fff 0x158fd39000 - 0x158fd3afff 0x158fd3b000 - 0x158fd3bfff 0x158fd3c000 - 0x158fd3cfff 0x158fd3d000 - 0x158fd3efff 0x158fd3f000 - 0x158fd3ffff 0x158fd40000 - 0x158fd40fff 0x158fd41000 - 0x158fd6cfff 0x158fd6d000 - 0x158fd6dfff 0x158fd6e000 - 0x158fd6efff 0x158fd6f000 - 0x158fd74fff 0x158fd75000 - 0x158fd75fff 0x158fd76000 - 0x158fd76fff 0x158fd77000 - 0x158fd78fff 0x158fd79000 - 0x158fea3fff 0x158fea4000 - 0x158feabfff 0x158feac000 - 0x158feadfff 0x158feae000 - 0x158feaefff 0x158feaf000 - 0x158ff55fff 0x158ff56000 - 0x158ff56fff 0x158ff57000 - 0x158ff57fff 0x158ff58000 - 0x158ff58fff 0x158ff59000 - 0x158ffecfff 0x158ffed000 - 0x158ffedfff 0x158ffee000 - 0x158fff3fff 0x158fff4000 - 0x158fff4fff 0x158fff5000 - 0x1590082fff 0x1590083000 - 0x1590085fff 0x1590086000 - 0x1590087fff 0x1590088000 - 0x1590088fff 0x1590089000 - 0x15900a9fff 0x15900aa000 - 0x15900aafff 0x15900ab000 - 0x15900abfff 0x15900ac000 - 0x15900adfff 0x15900ae000 - 0x1590154fff 0x1590155000 - 0x159015ffff 0x1590160000 - 0x1590162fff 0x1590163000 - 0x1590172fff 0x1590173000 - 0x1590173fff 0x1590174000 - 0x1590174fff 0x1590175000 - 0x1590175fff 0x1590176000 - 0x1590178fff 0x1590179000 - 0x1590179fff 0x159017a000 - 0x159017afff 0x159017b000 - 0x1590185fff 0x1590186000 - 0x1590186fff 0x1590187000 - 0x1590187fff 0x1590188000 - 0x159018afff 0x159018b000 - 0x159018bfff 0x159018c000 - 0x159018cfff 0x159018d000 - 0x159019cfff 0x159019d000 - 0x159019dfff 0x159019e000 - 0x159019efff 0x159019f000 - 0x15901a0fff 0x15901a1000 - 0x15901abfff 0x15901ac000 - 0x15901acfff 0x15901ad000 - 0x15901adfff 0x15901ae000 - 0x15901aefff 0x15901af000 - 0x15901c5fff 0x15901c6000 - 0x15901c6fff 0x15901c7000 - 0x15901c7fff 0x15901c8000 - 0x159021dfff 0x159021e000 - 0x159021efff 0x159021f000 - 0x1590222fff 0x1590223000 - 0x1590223fff 0x1590224000 - 0x1590225fff 0x1590226000 - 0x1590226fff 0x1590227000 - 0x1590227fff 0x1590228000 - 0x1590232fff 0x1590233000 - 0x1590233fff 0x1590234000 - 0x1590234fff 0x1590235000 - 0x1590236fff 0x1590237000 - 0x159023cfff 0x159023d000 - 0x159023dfff 0x159023e000 - 0x159023efff 0x159023f000 - 0x1590273fff 0x1590274000 - 0x1590274fff 0x1590275000 - 0x1590275fff 0x1590276000 - 0x1590296fff 0x1590297000 - 0x1590297fff 0x1590298000 - 0x1590298fff 0x1590299000 - 0x1590299fff 0x159029a000 - 0x159029bfff 0x159029c000 - 0x15902b5fff 0x15902b6000 - 0x15902b6fff 0x15902b7000 - 0x15902b7fff 0x15902b8000 - 0x15902befff 0x15902bf000 - 0x15902bffff 0x15902c0000 - 0x15902c0fff 0x15902c1000 - 0x15902c2fff 0x15902c3000 - 0x15902e3fff 0x15902e4000 - 0x15902e4fff 0x15902e5000 - 0x15902e5fff 0x15902e6000 - 0x15902e6fff 0x15902e7000 - 0x15902fbfff 0x15902fc000 - 0x15902fcfff 0x15902fd000 - 0x15902fefff 0x15902ff000 - 0x15902fffff 0x1590300000 - 0x159030dfff 0x159030e000 - 0x159030efff 0x159030f000 - 0x159030ffff 0x1590310000 - 0x1590318fff 0x1590319000 - 0x1590319fff 0x159031a000 - 0x159031afff 0x159031b000 - 0x1590337fff 0x1590338000 - 0x1590338fff 0x1590339000 - 0x1590339fff 0x159033a000 - 0x15903f3fff 0x15903f4000 - 0x15903f4fff 0x15903f5000 - 0x15903f5fff 0x15903f6000 - 0x15903fafff 0x15903fb000 - 0x15903fcfff 0x15903fd000 - 0x1590426fff 0x1590427000 - 0x1590427fff 0x1590428000 - 0x159042afff 0x159042b000 - 0x159042bfff 0x159042c000 - 0x159047afff 0x159047b000 - 0x159047bfff 0x159047c000 - 0x159047cfff 0x159047d000 - 0x1590481fff 0x1590482000 - 0x1590482fff 0x1590483000 - 0x1590483fff 0x1590484000 - 0x15904a2fff 0x15904a3000 - 0x15904a3fff 0x15904a4000 - 0x15904a4fff 0x15904a5000 - 0x15904a6fff 0x15904a7000 - 0x15904bffff 0x15904c0000 - 0x15904c0fff 0x15904c1000 - 0x15904c1fff 0x15904c2000 - 0x15904c8fff 0x15904c9000 - 0x159051dfff 0x159051e000 - 0x1590bc8fff 0x3fffc85000 - 0x3fffca5fff ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/asdf/asdf.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/asdf/asdf.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/berkeley-db/dbi.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/berkeley-db/dbi.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/linux.fas ... WARNING: FFI:DEF-C-CONST(SIGUNUSED): CPP constant SIGUNUSED is not defined ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/linux.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/wrap.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/wrap.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clx/new-clx/clx.fas ... WARNING: PROCLAIM(VALUES): # is locked Ignore the lock and proceed ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clx/new-clx/clx.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clx/new-clx/image.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clx/new-clx/image.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clx/new-clx/resource.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clx/new-clx/resource.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dbus/dbus.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dbus/dbus.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/fastcgi/fastcgi.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/fastcgi/fastcgi.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gdbm/gdbm.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gdbm/gdbm.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gtk2/gtk.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gtk2/gtk.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/libsvm/libsvm.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/libsvm/libsvm.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pari/pari.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pari/pari.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pcre/pcre.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pcre/pcre.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/postgresql/postgresql.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/postgresql/postgresql.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/postgresql/sql.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/postgresql/sql.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/rawsock/sock.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/rawsock/sock.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/zlib/zlib.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/zlib/zlib.fas ;; Wrote the memory image into full/lispinit.mem (9,844,544 bytes) Bytes permanently allocated: 209,712 Bytes currently in use: 9,616,488 Bytes available until next GC: 4,803,312 9616488 ; 4803312 ; 209712 ; 22 ; 61128936 ; 2148648 ===> make SUCCEEDED 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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x4f62000 - 0x4f82fff 0x80000000 - 0x800bffff 0x1590951000 - 0x159096bfff 0x159096c000 - 0x159096cfff 0x159096d000 - 0x159096dfff 0x159096e000 - 0x159096ffff 0x1590970000 - 0x1590971fff 0x1590972000 - 0x1590978fff 0x1590979000 - 0x1590979fff 0x159097a000 - 0x159097afff 0x159097d000 - 0x159097efff 0x159097f000 - 0x15909bdfff 0x15909be000 - 0x15909bffff 0x15909c0000 - 0x15909c6fff 0x15909c7000 - 0x15909c7fff 0x15909c8000 - 0x15909edfff 0x15909ee000 - 0x15909f1fff 0x15909f2000 - 0x15909f2fff 0x15909f3000 - 0x15909f4fff 0x15909f5000 - 0x15909f5fff 0x15909f6000 - 0x15909f6fff 0x15909f7000 - 0x15909f7fff 0x15909f8000 - 0x15909fbfff 0x15909fc000 - 0x15909fcfff 0x15909fd000 - 0x15909fdfff 0x15909fe000 - 0x15909fffff 0x1590a00000 - 0x1590a00fff 0x1590a01000 - 0x1590a01fff 0x1590a02000 - 0x1590b6dfff 0x1590b6e000 - 0x1590b70fff 0x1590b71000 - 0x1590b71fff 0x1590b72000 - 0x1590b74fff 0x1590b75000 - 0x1590b87fff 0x1590b88000 - 0x1590b88fff 0x1590b89000 - 0x1590b89fff 0x1590b8a000 - 0x1590ca8fff 0x1590ca9000 - 0x1590cabfff 0x1590cac000 - 0x1590caefff 0x1590caf000 - 0x1590cb3fff 0x1590cb4000 - 0x1590d08fff 0x1590d09000 - 0x15913b3fff 0x3fffdbb000 - 0x3fffddbfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/init.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2dd45000 - 0x2dd65fff 0x80000000 - 0x800bffff 0x158211f000 - 0x1582139fff 0x158213a000 - 0x158213afff 0x158213b000 - 0x158213bfff 0x158213c000 - 0x158213dfff 0x158213e000 - 0x158213ffff 0x1582140000 - 0x1582146fff 0x1582147000 - 0x1582147fff 0x1582148000 - 0x1582148fff 0x158214b000 - 0x158214cfff 0x158214d000 - 0x158218bfff 0x158218c000 - 0x158218dfff 0x158218e000 - 0x1582194fff 0x1582195000 - 0x1582195fff 0x1582196000 - 0x15821bbfff 0x15821bc000 - 0x15821bffff 0x15821c0000 - 0x15821c0fff 0x15821c1000 - 0x15821c2fff 0x15821c3000 - 0x15821c3fff 0x15821c4000 - 0x15821c4fff 0x15821c5000 - 0x15821c5fff 0x15821c6000 - 0x15821c9fff 0x15821ca000 - 0x15821cafff 0x15821cb000 - 0x15821cbfff 0x15821cc000 - 0x15821cdfff 0x15821ce000 - 0x15821cefff 0x15821cf000 - 0x15821cffff 0x15821d0000 - 0x158233bfff 0x158233c000 - 0x158233efff 0x158233f000 - 0x158233ffff 0x1582340000 - 0x1582342fff 0x1582343000 - 0x1582355fff 0x1582356000 - 0x1582356fff 0x1582357000 - 0x1582357fff 0x1582358000 - 0x1582476fff 0x1582477000 - 0x1582479fff 0x158247a000 - 0x158247cfff 0x158247d000 - 0x1582481fff 0x1582482000 - 0x15824d6fff 0x15824d7000 - 0x1582b81fff 0x3ffff09000 - 0x3ffff29fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/defseq.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x171f7000 - 0x17217fff 0x80000000 - 0x800bffff 0x159199d000 - 0x15919b7fff 0x15919b8000 - 0x15919b8fff 0x15919b9000 - 0x15919b9fff 0x15919ba000 - 0x15919bbfff 0x15919bc000 - 0x15919bdfff 0x15919be000 - 0x15919c4fff 0x15919c5000 - 0x15919c5fff 0x15919c6000 - 0x15919c6fff 0x15919c9000 - 0x15919cafff 0x15919cb000 - 0x1591a09fff 0x1591a0a000 - 0x1591a0bfff 0x1591a0c000 - 0x1591a12fff 0x1591a13000 - 0x1591a13fff 0x1591a14000 - 0x1591a39fff 0x1591a3a000 - 0x1591a3dfff 0x1591a3e000 - 0x1591a3efff 0x1591a3f000 - 0x1591a40fff 0x1591a41000 - 0x1591a41fff 0x1591a42000 - 0x1591a42fff 0x1591a43000 - 0x1591a43fff 0x1591a44000 - 0x1591a47fff 0x1591a48000 - 0x1591a48fff 0x1591a49000 - 0x1591a49fff 0x1591a4a000 - 0x1591a4bfff 0x1591a4c000 - 0x1591a4cfff 0x1591a4d000 - 0x1591a4dfff 0x1591a4e000 - 0x1591bb9fff 0x1591bba000 - 0x1591bbcfff 0x1591bbd000 - 0x1591bbdfff 0x1591bbe000 - 0x1591bc0fff 0x1591bc1000 - 0x1591bd3fff 0x1591bd4000 - 0x1591bd4fff 0x1591bd5000 - 0x1591bd5fff 0x1591bd6000 - 0x1591cf4fff 0x1591cf5000 - 0x1591cf7fff 0x1591cf8000 - 0x1591cfafff 0x1591cfb000 - 0x1591cfffff 0x1591d00000 - 0x1591d54fff 0x1591d55000 - 0x15923fffff 0x3fffa7c000 - 0x3fffa9cfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/backquote.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2dc59000 - 0x2dc79fff 0x80000000 - 0x800bffff 0x157ab84000 - 0x157ab9efff 0x157ab9f000 - 0x157ab9ffff 0x157aba0000 - 0x157aba0fff 0x157aba1000 - 0x157aba2fff 0x157aba3000 - 0x157aba4fff 0x157aba5000 - 0x157ababfff 0x157abac000 - 0x157abacfff 0x157abad000 - 0x157abadfff 0x157abb0000 - 0x157abb1fff 0x157abb2000 - 0x157abf0fff 0x157abf1000 - 0x157abf2fff 0x157abf3000 - 0x157abf9fff 0x157abfa000 - 0x157abfafff 0x157abfb000 - 0x157ac20fff 0x157ac21000 - 0x157ac24fff 0x157ac25000 - 0x157ac25fff 0x157ac26000 - 0x157ac27fff 0x157ac28000 - 0x157ac28fff 0x157ac29000 - 0x157ac29fff 0x157ac2a000 - 0x157ac2afff 0x157ac2b000 - 0x157ac2efff 0x157ac2f000 - 0x157ac2ffff 0x157ac30000 - 0x157ac30fff 0x157ac31000 - 0x157ac32fff 0x157ac33000 - 0x157ac33fff 0x157ac34000 - 0x157ac34fff 0x157ac35000 - 0x157ada0fff 0x157ada1000 - 0x157ada3fff 0x157ada4000 - 0x157ada4fff 0x157ada5000 - 0x157ada7fff 0x157ada8000 - 0x157adbafff 0x157adbb000 - 0x157adbbfff 0x157adbc000 - 0x157adbcfff 0x157adbd000 - 0x157aedbfff 0x157aedc000 - 0x157aedefff 0x157aedf000 - 0x157aee1fff 0x157aee2000 - 0x157aee6fff 0x157aee7000 - 0x157af3bfff 0x157af3c000 - 0x157b5e6fff 0x3fffb95000 - 0x3fffbb5fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/defmacro.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x27147000 - 0x27167fff 0x80000000 - 0x800bffff 0x158379b000 - 0x15837b5fff 0x15837b6000 - 0x15837b6fff 0x15837b7000 - 0x15837b7fff 0x15837b8000 - 0x15837b9fff 0x15837ba000 - 0x15837bbfff 0x15837bc000 - 0x15837c2fff 0x15837c3000 - 0x15837c3fff 0x15837c4000 - 0x15837c4fff 0x15837c7000 - 0x15837c8fff 0x15837c9000 - 0x1583807fff 0x1583808000 - 0x1583809fff 0x158380a000 - 0x1583810fff 0x1583811000 - 0x1583811fff 0x1583812000 - 0x1583837fff 0x1583838000 - 0x158383bfff 0x158383c000 - 0x158383cfff 0x158383d000 - 0x158383efff 0x158383f000 - 0x158383ffff 0x1583840000 - 0x1583840fff 0x1583841000 - 0x1583841fff 0x1583842000 - 0x1583845fff 0x1583846000 - 0x1583846fff 0x1583847000 - 0x1583847fff 0x1583848000 - 0x1583849fff 0x158384a000 - 0x158384afff 0x158384b000 - 0x158384bfff 0x158384c000 - 0x15839b7fff 0x15839b8000 - 0x15839bafff 0x15839bb000 - 0x15839bbfff 0x15839bc000 - 0x15839befff 0x15839bf000 - 0x15839d1fff 0x15839d2000 - 0x15839d2fff 0x15839d3000 - 0x15839d3fff 0x15839d4000 - 0x1583af2fff 0x1583af3000 - 0x1583af5fff 0x1583af6000 - 0x1583af8fff 0x1583af9000 - 0x1583afdfff 0x1583afe000 - 0x1583b52fff 0x1583b53000 - 0x15841fdfff 0x3ffffba000 - 0x3ffffdafff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/macros1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x22926000 - 0x22946fff 0x80000000 - 0x800bffff 0x1588d67000 - 0x1588d81fff 0x1588d82000 - 0x1588d82fff 0x1588d83000 - 0x1588d83fff 0x1588d84000 - 0x1588d85fff 0x1588d86000 - 0x1588d87fff 0x1588d88000 - 0x1588d8efff 0x1588d8f000 - 0x1588d8ffff 0x1588d90000 - 0x1588d90fff 0x1588d93000 - 0x1588d94fff 0x1588d95000 - 0x1588dd3fff 0x1588dd4000 - 0x1588dd5fff 0x1588dd6000 - 0x1588ddcfff 0x1588ddd000 - 0x1588dddfff 0x1588dde000 - 0x1588e03fff 0x1588e04000 - 0x1588e07fff 0x1588e08000 - 0x1588e08fff 0x1588e09000 - 0x1588e0afff 0x1588e0b000 - 0x1588e0bfff 0x1588e0c000 - 0x1588e0cfff 0x1588e0d000 - 0x1588e0dfff 0x1588e0e000 - 0x1588e11fff 0x1588e12000 - 0x1588e12fff 0x1588e13000 - 0x1588e13fff 0x1588e14000 - 0x1588e15fff 0x1588e16000 - 0x1588e16fff 0x1588e17000 - 0x1588e17fff 0x1588e18000 - 0x1588f83fff 0x1588f84000 - 0x1588f86fff 0x1588f87000 - 0x1588f87fff 0x1588f88000 - 0x1588f8afff 0x1588f8b000 - 0x1588f9dfff 0x1588f9e000 - 0x1588f9efff 0x1588f9f000 - 0x1588f9ffff 0x1588fa0000 - 0x15890befff 0x15890bf000 - 0x15890c1fff 0x15890c2000 - 0x15890c4fff 0x15890c5000 - 0x15890c9fff 0x15890ca000 - 0x158911efff 0x158911f000 - 0x15897c9fff 0x3ffffc0000 - 0x3ffffe0fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/macros2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3da3e000 - 0x3da5efff 0x80000000 - 0x800bffff 0x158c72c000 - 0x158c746fff 0x158c747000 - 0x158c747fff 0x158c748000 - 0x158c748fff 0x158c749000 - 0x158c74afff 0x158c74b000 - 0x158c74cfff 0x158c74d000 - 0x158c753fff 0x158c754000 - 0x158c754fff 0x158c755000 - 0x158c755fff 0x158c758000 - 0x158c759fff 0x158c75a000 - 0x158c798fff 0x158c799000 - 0x158c79afff 0x158c79b000 - 0x158c7a1fff 0x158c7a2000 - 0x158c7a2fff 0x158c7a3000 - 0x158c7c8fff 0x158c7c9000 - 0x158c7ccfff 0x158c7cd000 - 0x158c7cdfff 0x158c7ce000 - 0x158c7cffff 0x158c7d0000 - 0x158c7d0fff 0x158c7d1000 - 0x158c7d1fff 0x158c7d2000 - 0x158c7d2fff 0x158c7d3000 - 0x158c7d6fff 0x158c7d7000 - 0x158c7d7fff 0x158c7d8000 - 0x158c7d8fff 0x158c7d9000 - 0x158c7dafff 0x158c7db000 - 0x158c7dbfff 0x158c7dc000 - 0x158c7dcfff 0x158c7dd000 - 0x158c948fff 0x158c949000 - 0x158c94bfff 0x158c94c000 - 0x158c94cfff 0x158c94d000 - 0x158c94ffff 0x158c950000 - 0x158c962fff 0x158c963000 - 0x158c963fff 0x158c964000 - 0x158c964fff 0x158c965000 - 0x158ca83fff 0x158ca84000 - 0x158ca86fff 0x158ca87000 - 0x158ca89fff 0x158ca8a000 - 0x158ca8efff 0x158ca8f000 - 0x158cae3fff 0x158cae4000 - 0x158d18efff 0x3fff91c000 - 0x3fff93cfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/defs1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2544000 - 0x2564fff 0x80000000 - 0x800bffff 0x156a8e1000 - 0x156a8fbfff 0x156a8fc000 - 0x156a8fcfff 0x156a8fd000 - 0x156a8fdfff 0x156a8fe000 - 0x156a8fffff 0x156a900000 - 0x156a901fff 0x156a902000 - 0x156a908fff 0x156a909000 - 0x156a909fff 0x156a90a000 - 0x156a90afff 0x156a90d000 - 0x156a90efff 0x156a90f000 - 0x156a94dfff 0x156a94e000 - 0x156a94ffff 0x156a950000 - 0x156a956fff 0x156a957000 - 0x156a957fff 0x156a958000 - 0x156a97dfff 0x156a97e000 - 0x156a981fff 0x156a982000 - 0x156a982fff 0x156a983000 - 0x156a984fff 0x156a985000 - 0x156a985fff 0x156a986000 - 0x156a986fff 0x156a987000 - 0x156a987fff 0x156a988000 - 0x156a98bfff 0x156a98c000 - 0x156a98cfff 0x156a98d000 - 0x156a98dfff 0x156a98e000 - 0x156a98ffff 0x156a990000 - 0x156a990fff 0x156a991000 - 0x156a991fff 0x156a992000 - 0x156aafdfff 0x156aafe000 - 0x156ab00fff 0x156ab01000 - 0x156ab01fff 0x156ab02000 - 0x156ab04fff 0x156ab05000 - 0x156ab17fff 0x156ab18000 - 0x156ab18fff 0x156ab19000 - 0x156ab19fff 0x156ab1a000 - 0x156ac38fff 0x156ac39000 - 0x156ac3bfff 0x156ac3c000 - 0x156ac3efff 0x156ac3f000 - 0x156ac43fff 0x156ac44000 - 0x156ac98fff 0x156ac99000 - 0x156b343fff 0x3fffbba000 - 0x3fffbdafff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/lambdalist.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3cc12000 - 0x3cc32fff 0x80000000 - 0x800bffff 0x15850fc000 - 0x1585116fff 0x1585117000 - 0x1585117fff 0x1585118000 - 0x1585118fff 0x1585119000 - 0x158511afff 0x158511b000 - 0x158511cfff 0x158511d000 - 0x1585123fff 0x1585124000 - 0x1585124fff 0x1585125000 - 0x1585125fff 0x1585128000 - 0x1585129fff 0x158512a000 - 0x1585168fff 0x1585169000 - 0x158516afff 0x158516b000 - 0x1585171fff 0x1585172000 - 0x1585172fff 0x1585173000 - 0x1585198fff 0x1585199000 - 0x158519cfff 0x158519d000 - 0x158519dfff 0x158519e000 - 0x158519ffff 0x15851a0000 - 0x15851a0fff 0x15851a1000 - 0x15851a1fff 0x15851a2000 - 0x15851a2fff 0x15851a3000 - 0x15851a6fff 0x15851a7000 - 0x15851a7fff 0x15851a8000 - 0x15851a8fff 0x15851a9000 - 0x15851aafff 0x15851ab000 - 0x15851abfff 0x15851ac000 - 0x15851acfff 0x15851ad000 - 0x1585318fff 0x1585319000 - 0x158531bfff 0x158531c000 - 0x158531cfff 0x158531d000 - 0x158531ffff 0x1585320000 - 0x1585332fff 0x1585333000 - 0x1585333fff 0x1585334000 - 0x1585334fff 0x1585335000 - 0x1585453fff 0x1585454000 - 0x1585456fff 0x1585457000 - 0x1585459fff 0x158545a000 - 0x158545efff 0x158545f000 - 0x15854b3fff 0x15854b4000 - 0x1585b5efff 0x3fffdf9000 - 0x3fffe19fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/places.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0xa4b5000 - 0xa4d5fff 0x80000000 - 0x800bffff 0x1591aa4000 - 0x1591abefff 0x1591abf000 - 0x1591abffff 0x1591ac0000 - 0x1591ac0fff 0x1591ac1000 - 0x1591ac2fff 0x1591ac3000 - 0x1591ac4fff 0x1591ac5000 - 0x1591acbfff 0x1591acc000 - 0x1591accfff 0x1591acd000 - 0x1591acdfff 0x1591ad0000 - 0x1591ad1fff 0x1591ad2000 - 0x1591b10fff 0x1591b11000 - 0x1591b12fff 0x1591b13000 - 0x1591b19fff 0x1591b1a000 - 0x1591b1afff 0x1591b1b000 - 0x1591b40fff 0x1591b41000 - 0x1591b44fff 0x1591b45000 - 0x1591b45fff 0x1591b46000 - 0x1591b47fff 0x1591b48000 - 0x1591b48fff 0x1591b49000 - 0x1591b49fff 0x1591b4a000 - 0x1591b4afff 0x1591b4b000 - 0x1591b4efff 0x1591b4f000 - 0x1591b4ffff 0x1591b50000 - 0x1591b50fff 0x1591b51000 - 0x1591b52fff 0x1591b53000 - 0x1591b53fff 0x1591b54000 - 0x1591b54fff 0x1591b55000 - 0x1591cc0fff 0x1591cc1000 - 0x1591cc3fff 0x1591cc4000 - 0x1591cc4fff 0x1591cc5000 - 0x1591cc7fff 0x1591cc8000 - 0x1591cdafff 0x1591cdb000 - 0x1591cdbfff 0x1591cdc000 - 0x1591cdcfff 0x1591cdd000 - 0x1591dfbfff 0x1591dfc000 - 0x1591dfefff 0x1591dff000 - 0x1591e01fff 0x1591e02000 - 0x1591e06fff 0x1591e07000 - 0x1591e5bfff 0x1591e5c000 - 0x1592506fff 0x3fffbce000 - 0x3fffbeefff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/floatprint.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x24f5c000 - 0x24f7cfff 0x80000000 - 0x800bffff 0x1594220000 - 0x159423afff 0x159423b000 - 0x159423bfff 0x159423c000 - 0x159423cfff 0x159423d000 - 0x159423efff 0x159423f000 - 0x1594240fff 0x1594241000 - 0x1594247fff 0x1594248000 - 0x1594248fff 0x1594249000 - 0x1594249fff 0x159424c000 - 0x159424dfff 0x159424e000 - 0x159428cfff 0x159428d000 - 0x159428efff 0x159428f000 - 0x1594295fff 0x1594296000 - 0x1594296fff 0x1594297000 - 0x15942bcfff 0x15942bd000 - 0x15942c0fff 0x15942c1000 - 0x15942c1fff 0x15942c2000 - 0x15942c3fff 0x15942c4000 - 0x15942c4fff 0x15942c5000 - 0x15942c5fff 0x15942c6000 - 0x15942c6fff 0x15942c7000 - 0x15942cafff 0x15942cb000 - 0x15942cbfff 0x15942cc000 - 0x15942ccfff 0x15942cd000 - 0x15942cefff 0x15942cf000 - 0x15942cffff 0x15942d0000 - 0x15942d0fff 0x15942d1000 - 0x159443cfff 0x159443d000 - 0x159443ffff 0x1594440000 - 0x1594440fff 0x1594441000 - 0x1594443fff 0x1594444000 - 0x1594456fff 0x1594457000 - 0x1594457fff 0x1594458000 - 0x1594458fff 0x1594459000 - 0x1594577fff 0x1594578000 - 0x159457afff 0x159457b000 - 0x159457dfff 0x159457e000 - 0x1594582fff 0x1594583000 - 0x15945d7fff 0x15945d8000 - 0x1594c82fff 0x3fffd79000 - 0x3fffd99fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/defpackage.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x12486000 - 0x124a6fff 0x80000000 - 0x800bffff 0x155d7cf000 - 0x155d7e9fff 0x155d7ea000 - 0x155d7eafff 0x155d7eb000 - 0x155d7ebfff 0x155d7ec000 - 0x155d7edfff 0x155d7ee000 - 0x155d7effff 0x155d7f0000 - 0x155d7f6fff 0x155d7f7000 - 0x155d7f7fff 0x155d7f8000 - 0x155d7f8fff 0x155d7fb000 - 0x155d7fcfff 0x155d7fd000 - 0x155d83bfff 0x155d83c000 - 0x155d83dfff 0x155d83e000 - 0x155d844fff 0x155d845000 - 0x155d845fff 0x155d846000 - 0x155d86bfff 0x155d86c000 - 0x155d86ffff 0x155d870000 - 0x155d870fff 0x155d871000 - 0x155d872fff 0x155d873000 - 0x155d873fff 0x155d874000 - 0x155d874fff 0x155d875000 - 0x155d875fff 0x155d876000 - 0x155d879fff 0x155d87a000 - 0x155d87afff 0x155d87b000 - 0x155d87bfff 0x155d87c000 - 0x155d87dfff 0x155d87e000 - 0x155d87efff 0x155d87f000 - 0x155d87ffff 0x155d880000 - 0x155d9ebfff 0x155d9ec000 - 0x155d9eefff 0x155d9ef000 - 0x155d9effff 0x155d9f0000 - 0x155d9f2fff 0x155d9f3000 - 0x155da05fff 0x155da06000 - 0x155da06fff 0x155da07000 - 0x155da07fff 0x155da08000 - 0x155db26fff 0x155db27000 - 0x155db29fff 0x155db2a000 - 0x155db2cfff 0x155db2d000 - 0x155db31fff 0x155db32000 - 0x155db86fff 0x155db87000 - 0x155e231fff 0x3fff8e9000 - 0x3fff909fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/type.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3b903000 - 0x3b923fff 0x80000000 - 0x800bffff 0x156f843000 - 0x156f85dfff 0x156f85e000 - 0x156f85efff 0x156f85f000 - 0x156f85ffff 0x156f860000 - 0x156f861fff 0x156f862000 - 0x156f863fff 0x156f864000 - 0x156f86afff 0x156f86b000 - 0x156f86bfff 0x156f86c000 - 0x156f86cfff 0x156f86f000 - 0x156f870fff 0x156f871000 - 0x156f8affff 0x156f8b0000 - 0x156f8b1fff 0x156f8b2000 - 0x156f8b8fff 0x156f8b9000 - 0x156f8b9fff 0x156f8ba000 - 0x156f8dffff 0x156f8e0000 - 0x156f8e3fff 0x156f8e4000 - 0x156f8e4fff 0x156f8e5000 - 0x156f8e6fff 0x156f8e7000 - 0x156f8e7fff 0x156f8e8000 - 0x156f8e8fff 0x156f8e9000 - 0x156f8e9fff 0x156f8ea000 - 0x156f8edfff 0x156f8ee000 - 0x156f8eefff 0x156f8ef000 - 0x156f8effff 0x156f8f0000 - 0x156f8f1fff 0x156f8f2000 - 0x156f8f2fff 0x156f8f3000 - 0x156f8f3fff 0x156f8f4000 - 0x156fa5ffff 0x156fa60000 - 0x156fa62fff 0x156fa63000 - 0x156fa63fff 0x156fa64000 - 0x156fa66fff 0x156fa67000 - 0x156fa79fff 0x156fa7a000 - 0x156fa7afff 0x156fa7b000 - 0x156fa7bfff 0x156fa7c000 - 0x156fb9afff 0x156fb9b000 - 0x156fb9dfff 0x156fb9e000 - 0x156fba0fff 0x156fba1000 - 0x156fba5fff 0x156fba6000 - 0x156fbfafff 0x156fbfb000 - 0x15702a5fff 0x3fffa15000 - 0x3fffa35fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/subtypep.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1c40e000 - 0x1c42efff 0x80000000 - 0x800bffff 0x1565b24000 - 0x1565b3efff 0x1565b3f000 - 0x1565b3ffff 0x1565b40000 - 0x1565b40fff 0x1565b41000 - 0x1565b42fff 0x1565b43000 - 0x1565b44fff 0x1565b45000 - 0x1565b4bfff 0x1565b4c000 - 0x1565b4cfff 0x1565b4d000 - 0x1565b4dfff 0x1565b50000 - 0x1565b51fff 0x1565b52000 - 0x1565b90fff 0x1565b91000 - 0x1565b92fff 0x1565b93000 - 0x1565b99fff 0x1565b9a000 - 0x1565b9afff 0x1565b9b000 - 0x1565bc0fff 0x1565bc1000 - 0x1565bc4fff 0x1565bc5000 - 0x1565bc5fff 0x1565bc6000 - 0x1565bc7fff 0x1565bc8000 - 0x1565bc8fff 0x1565bc9000 - 0x1565bc9fff 0x1565bca000 - 0x1565bcafff 0x1565bcb000 - 0x1565bcefff 0x1565bcf000 - 0x1565bcffff 0x1565bd0000 - 0x1565bd0fff 0x1565bd1000 - 0x1565bd2fff 0x1565bd3000 - 0x1565bd3fff 0x1565bd4000 - 0x1565bd4fff 0x1565bd5000 - 0x1565d40fff 0x1565d41000 - 0x1565d43fff 0x1565d44000 - 0x1565d44fff 0x1565d45000 - 0x1565d47fff 0x1565d48000 - 0x1565d5afff 0x1565d5b000 - 0x1565d5bfff 0x1565d5c000 - 0x1565d5cfff 0x1565d5d000 - 0x1565e7bfff 0x1565e7c000 - 0x1565e7efff 0x1565e7f000 - 0x1565e81fff 0x1565e82000 - 0x1565e86fff 0x1565e87000 - 0x1565edbfff 0x1565edc000 - 0x1566586fff 0x3fffcf2000 - 0x3fffd12fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-package.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2ef7c000 - 0x2ef9cfff 0x80000000 - 0x800bffff 0x1575ee6000 - 0x1575f00fff 0x1575f01000 - 0x1575f01fff 0x1575f02000 - 0x1575f02fff 0x1575f03000 - 0x1575f04fff 0x1575f05000 - 0x1575f06fff 0x1575f07000 - 0x1575f0dfff 0x1575f0e000 - 0x1575f0efff 0x1575f0f000 - 0x1575f0ffff 0x1575f12000 - 0x1575f13fff 0x1575f14000 - 0x1575f52fff 0x1575f53000 - 0x1575f54fff 0x1575f55000 - 0x1575f5bfff 0x1575f5c000 - 0x1575f5cfff 0x1575f5d000 - 0x1575f82fff 0x1575f83000 - 0x1575f86fff 0x1575f87000 - 0x1575f87fff 0x1575f88000 - 0x1575f89fff 0x1575f8a000 - 0x1575f8afff 0x1575f8b000 - 0x1575f8bfff 0x1575f8c000 - 0x1575f8cfff 0x1575f8d000 - 0x1575f90fff 0x1575f91000 - 0x1575f91fff 0x1575f92000 - 0x1575f92fff 0x1575f93000 - 0x1575f94fff 0x1575f95000 - 0x1575f95fff 0x1575f96000 - 0x1575f96fff 0x1575f97000 - 0x1576102fff 0x1576103000 - 0x1576105fff 0x1576106000 - 0x1576106fff 0x1576107000 - 0x1576109fff 0x157610a000 - 0x157611cfff 0x157611d000 - 0x157611dfff 0x157611e000 - 0x157611efff 0x157611f000 - 0x157623dfff 0x157623e000 - 0x1576240fff 0x1576241000 - 0x1576243fff 0x1576244000 - 0x1576248fff 0x1576249000 - 0x157629dfff 0x157629e000 - 0x1576948fff 0x3fffb4b000 - 0x3fffb6bfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-macros.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x38b37000 - 0x38b57fff 0x80000000 - 0x800bffff 0x1565b75000 - 0x1565b8ffff 0x1565b90000 - 0x1565b90fff 0x1565b91000 - 0x1565b91fff 0x1565b92000 - 0x1565b93fff 0x1565b94000 - 0x1565b95fff 0x1565b96000 - 0x1565b9cfff 0x1565b9d000 - 0x1565b9dfff 0x1565b9e000 - 0x1565b9efff 0x1565ba1000 - 0x1565ba2fff 0x1565ba3000 - 0x1565be1fff 0x1565be2000 - 0x1565be3fff 0x1565be4000 - 0x1565beafff 0x1565beb000 - 0x1565bebfff 0x1565bec000 - 0x1565c11fff 0x1565c12000 - 0x1565c15fff 0x1565c16000 - 0x1565c16fff 0x1565c17000 - 0x1565c18fff 0x1565c19000 - 0x1565c19fff 0x1565c1a000 - 0x1565c1afff 0x1565c1b000 - 0x1565c1bfff 0x1565c1c000 - 0x1565c1ffff 0x1565c20000 - 0x1565c20fff 0x1565c21000 - 0x1565c21fff 0x1565c22000 - 0x1565c23fff 0x1565c24000 - 0x1565c24fff 0x1565c25000 - 0x1565c25fff 0x1565c26000 - 0x1565d91fff 0x1565d92000 - 0x1565d94fff 0x1565d95000 - 0x1565d95fff 0x1565d96000 - 0x1565d98fff 0x1565d99000 - 0x1565dabfff 0x1565dac000 - 0x1565dacfff 0x1565dad000 - 0x1565dadfff 0x1565dae000 - 0x1565eccfff 0x1565ecd000 - 0x1565ecffff 0x1565ed0000 - 0x1565ed2fff 0x1565ed3000 - 0x1565ed7fff 0x1565ed8000 - 0x1565f2cfff 0x1565f2d000 - 0x15665d7fff 0x3fffeba000 - 0x3fffedafff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-class0.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1e7b4000 - 0x1e7d4fff 0x80000000 - 0x800bffff 0x157cc8b000 - 0x157cca5fff 0x157cca6000 - 0x157cca6fff 0x157cca7000 - 0x157cca7fff 0x157cca8000 - 0x157cca9fff 0x157ccaa000 - 0x157ccabfff 0x157ccac000 - 0x157ccb2fff 0x157ccb3000 - 0x157ccb3fff 0x157ccb4000 - 0x157ccb4fff 0x157ccb7000 - 0x157ccb8fff 0x157ccb9000 - 0x157ccf7fff 0x157ccf8000 - 0x157ccf9fff 0x157ccfa000 - 0x157cd00fff 0x157cd01000 - 0x157cd01fff 0x157cd02000 - 0x157cd27fff 0x157cd28000 - 0x157cd2bfff 0x157cd2c000 - 0x157cd2cfff 0x157cd2d000 - 0x157cd2efff 0x157cd2f000 - 0x157cd2ffff 0x157cd30000 - 0x157cd30fff 0x157cd31000 - 0x157cd31fff 0x157cd32000 - 0x157cd35fff 0x157cd36000 - 0x157cd36fff 0x157cd37000 - 0x157cd37fff 0x157cd38000 - 0x157cd39fff 0x157cd3a000 - 0x157cd3afff 0x157cd3b000 - 0x157cd3bfff 0x157cd3c000 - 0x157cea7fff 0x157cea8000 - 0x157ceaafff 0x157ceab000 - 0x157ceabfff 0x157ceac000 - 0x157ceaefff 0x157ceaf000 - 0x157cec1fff 0x157cec2000 - 0x157cec2fff 0x157cec3000 - 0x157cec3fff 0x157cec4000 - 0x157cfe2fff 0x157cfe3000 - 0x157cfe5fff 0x157cfe6000 - 0x157cfe8fff 0x157cfe9000 - 0x157cfedfff 0x157cfee000 - 0x157d042fff 0x157d043000 - 0x157d6edfff 0x3fffe8e000 - 0x3fffeaefff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-metaobject1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2b16000 - 0x2b36fff 0x80000000 - 0x800bffff 0x15584b0000 - 0x15584cafff 0x15584cb000 - 0x15584cbfff 0x15584cc000 - 0x15584ccfff 0x15584cd000 - 0x15584cefff 0x15584cf000 - 0x15584d0fff 0x15584d1000 - 0x15584d7fff 0x15584d8000 - 0x15584d8fff 0x15584d9000 - 0x15584d9fff 0x15584dc000 - 0x15584ddfff 0x15584de000 - 0x155851cfff 0x155851d000 - 0x155851efff 0x155851f000 - 0x1558525fff 0x1558526000 - 0x1558526fff 0x1558527000 - 0x155854cfff 0x155854d000 - 0x1558550fff 0x1558551000 - 0x1558551fff 0x1558552000 - 0x1558553fff 0x1558554000 - 0x1558554fff 0x1558555000 - 0x1558555fff 0x1558556000 - 0x1558556fff 0x1558557000 - 0x155855afff 0x155855b000 - 0x155855bfff 0x155855c000 - 0x155855cfff 0x155855d000 - 0x155855efff 0x155855f000 - 0x155855ffff 0x1558560000 - 0x1558560fff 0x1558561000 - 0x15586ccfff 0x15586cd000 - 0x15586cffff 0x15586d0000 - 0x15586d0fff 0x15586d1000 - 0x15586d3fff 0x15586d4000 - 0x15586e6fff 0x15586e7000 - 0x15586e7fff 0x15586e8000 - 0x15586e8fff 0x15586e9000 - 0x1558807fff 0x1558808000 - 0x155880afff 0x155880b000 - 0x155880dfff 0x155880e000 - 0x1558812fff 0x1558813000 - 0x1558867fff 0x1558868000 - 0x1558f12fff 0x3fffe23000 - 0x3fffe43fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-slotdef1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x9dc1000 - 0x9de1fff 0x80000000 - 0x800bffff 0x155efdc000 - 0x155eff6fff 0x155eff7000 - 0x155eff7fff 0x155eff8000 - 0x155eff8fff 0x155eff9000 - 0x155effafff 0x155effb000 - 0x155effcfff 0x155effd000 - 0x155f003fff 0x155f004000 - 0x155f004fff 0x155f005000 - 0x155f005fff 0x155f008000 - 0x155f009fff 0x155f00a000 - 0x155f048fff 0x155f049000 - 0x155f04afff 0x155f04b000 - 0x155f051fff 0x155f052000 - 0x155f052fff 0x155f053000 - 0x155f078fff 0x155f079000 - 0x155f07cfff 0x155f07d000 - 0x155f07dfff 0x155f07e000 - 0x155f07ffff 0x155f080000 - 0x155f080fff 0x155f081000 - 0x155f081fff 0x155f082000 - 0x155f082fff 0x155f083000 - 0x155f086fff 0x155f087000 - 0x155f087fff 0x155f088000 - 0x155f088fff 0x155f089000 - 0x155f08afff 0x155f08b000 - 0x155f08bfff 0x155f08c000 - 0x155f08cfff 0x155f08d000 - 0x155f1f8fff 0x155f1f9000 - 0x155f1fbfff 0x155f1fc000 - 0x155f1fcfff 0x155f1fd000 - 0x155f1fffff 0x155f200000 - 0x155f212fff 0x155f213000 - 0x155f213fff 0x155f214000 - 0x155f214fff 0x155f215000 - 0x155f333fff 0x155f334000 - 0x155f336fff 0x155f337000 - 0x155f339fff 0x155f33a000 - 0x155f33efff 0x155f33f000 - 0x155f393fff 0x155f394000 - 0x155fa3efff 0x3fffd50000 - 0x3fffd70fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-stablehash1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0xb971000 - 0xb991fff 0x80000000 - 0x800bffff 0x15639e9000 - 0x1563a03fff 0x1563a04000 - 0x1563a04fff 0x1563a05000 - 0x1563a05fff 0x1563a06000 - 0x1563a07fff 0x1563a08000 - 0x1563a09fff 0x1563a0a000 - 0x1563a10fff 0x1563a11000 - 0x1563a11fff 0x1563a12000 - 0x1563a12fff 0x1563a15000 - 0x1563a16fff 0x1563a17000 - 0x1563a55fff 0x1563a56000 - 0x1563a57fff 0x1563a58000 - 0x1563a5efff 0x1563a5f000 - 0x1563a5ffff 0x1563a60000 - 0x1563a85fff 0x1563a86000 - 0x1563a89fff 0x1563a8a000 - 0x1563a8afff 0x1563a8b000 - 0x1563a8cfff 0x1563a8d000 - 0x1563a8dfff 0x1563a8e000 - 0x1563a8efff 0x1563a8f000 - 0x1563a8ffff 0x1563a90000 - 0x1563a93fff 0x1563a94000 - 0x1563a94fff 0x1563a95000 - 0x1563a95fff 0x1563a96000 - 0x1563a97fff 0x1563a98000 - 0x1563a98fff 0x1563a99000 - 0x1563a99fff 0x1563a9a000 - 0x1563c05fff 0x1563c06000 - 0x1563c08fff 0x1563c09000 - 0x1563c09fff 0x1563c0a000 - 0x1563c0cfff 0x1563c0d000 - 0x1563c1ffff 0x1563c20000 - 0x1563c20fff 0x1563c21000 - 0x1563c21fff 0x1563c22000 - 0x1563d40fff 0x1563d41000 - 0x1563d43fff 0x1563d44000 - 0x1563d46fff 0x1563d47000 - 0x1563d4bfff 0x1563d4c000 - 0x1563da0fff 0x1563da1000 - 0x156444bfff 0x3fffd71000 - 0x3fffd91fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-specializer1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x16873000 - 0x16893fff 0x80000000 - 0x800bffff 0x1586abe000 - 0x1586ad8fff 0x1586ad9000 - 0x1586ad9fff 0x1586ada000 - 0x1586adafff 0x1586adb000 - 0x1586adcfff 0x1586add000 - 0x1586adefff 0x1586adf000 - 0x1586ae5fff 0x1586ae6000 - 0x1586ae6fff 0x1586ae7000 - 0x1586ae7fff 0x1586aea000 - 0x1586aebfff 0x1586aec000 - 0x1586b2afff 0x1586b2b000 - 0x1586b2cfff 0x1586b2d000 - 0x1586b33fff 0x1586b34000 - 0x1586b34fff 0x1586b35000 - 0x1586b5afff 0x1586b5b000 - 0x1586b5efff 0x1586b5f000 - 0x1586b5ffff 0x1586b60000 - 0x1586b61fff 0x1586b62000 - 0x1586b62fff 0x1586b63000 - 0x1586b63fff 0x1586b64000 - 0x1586b64fff 0x1586b65000 - 0x1586b68fff 0x1586b69000 - 0x1586b69fff 0x1586b6a000 - 0x1586b6afff 0x1586b6b000 - 0x1586b6cfff 0x1586b6d000 - 0x1586b6dfff 0x1586b6e000 - 0x1586b6efff 0x1586b6f000 - 0x1586cdafff 0x1586cdb000 - 0x1586cddfff 0x1586cde000 - 0x1586cdefff 0x1586cdf000 - 0x1586ce1fff 0x1586ce2000 - 0x1586cf4fff 0x1586cf5000 - 0x1586cf5fff 0x1586cf6000 - 0x1586cf6fff 0x1586cf7000 - 0x1586e15fff 0x1586e16000 - 0x1586e18fff 0x1586e19000 - 0x1586e1bfff 0x1586e1c000 - 0x1586e20fff 0x1586e21000 - 0x1586e75fff 0x1586e76000 - 0x1587520fff 0x3fffd6d000 - 0x3fffd8dfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-class1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1c499000 - 0x1c4b9fff 0x80000000 - 0x800bffff 0x156a884000 - 0x156a89efff 0x156a89f000 - 0x156a89ffff 0x156a8a0000 - 0x156a8a0fff 0x156a8a1000 - 0x156a8a2fff 0x156a8a3000 - 0x156a8a4fff 0x156a8a5000 - 0x156a8abfff 0x156a8ac000 - 0x156a8acfff 0x156a8ad000 - 0x156a8adfff 0x156a8b0000 - 0x156a8b1fff 0x156a8b2000 - 0x156a8f0fff 0x156a8f1000 - 0x156a8f2fff 0x156a8f3000 - 0x156a8f9fff 0x156a8fa000 - 0x156a8fafff 0x156a8fb000 - 0x156a920fff 0x156a921000 - 0x156a924fff 0x156a925000 - 0x156a925fff 0x156a926000 - 0x156a927fff 0x156a928000 - 0x156a928fff 0x156a929000 - 0x156a929fff 0x156a92a000 - 0x156a92afff 0x156a92b000 - 0x156a92efff 0x156a92f000 - 0x156a92ffff 0x156a930000 - 0x156a930fff 0x156a931000 - 0x156a932fff 0x156a933000 - 0x156a933fff 0x156a934000 - 0x156a934fff 0x156a935000 - 0x156aaa0fff 0x156aaa1000 - 0x156aaa3fff 0x156aaa4000 - 0x156aaa4fff 0x156aaa5000 - 0x156aaa7fff 0x156aaa8000 - 0x156aabafff 0x156aabb000 - 0x156aabbfff 0x156aabc000 - 0x156aabcfff 0x156aabd000 - 0x156abdbfff 0x156abdc000 - 0x156abdefff 0x156abdf000 - 0x156abe1fff 0x156abe2000 - 0x156abe6fff 0x156abe7000 - 0x156ac3bfff 0x156ac3c000 - 0x156b2e6fff 0x3ffff94000 - 0x3ffffb4fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-class2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2c4ad000 - 0x2c4cdfff 0x80000000 - 0x800bffff 0x155b6f1000 - 0x155b70bfff 0x155b70c000 - 0x155b70cfff 0x155b70d000 - 0x155b70dfff 0x155b70e000 - 0x155b70ffff 0x155b710000 - 0x155b711fff 0x155b712000 - 0x155b718fff 0x155b719000 - 0x155b719fff 0x155b71a000 - 0x155b71afff 0x155b71d000 - 0x155b71efff 0x155b71f000 - 0x155b75dfff 0x155b75e000 - 0x155b75ffff 0x155b760000 - 0x155b766fff 0x155b767000 - 0x155b767fff 0x155b768000 - 0x155b78dfff 0x155b78e000 - 0x155b791fff 0x155b792000 - 0x155b792fff 0x155b793000 - 0x155b794fff 0x155b795000 - 0x155b795fff 0x155b796000 - 0x155b796fff 0x155b797000 - 0x155b797fff 0x155b798000 - 0x155b79bfff 0x155b79c000 - 0x155b79cfff 0x155b79d000 - 0x155b79dfff 0x155b79e000 - 0x155b79ffff 0x155b7a0000 - 0x155b7a0fff 0x155b7a1000 - 0x155b7a1fff 0x155b7a2000 - 0x155b90dfff 0x155b90e000 - 0x155b910fff 0x155b911000 - 0x155b911fff 0x155b912000 - 0x155b914fff 0x155b915000 - 0x155b927fff 0x155b928000 - 0x155b928fff 0x155b929000 - 0x155b929fff 0x155b92a000 - 0x155ba48fff 0x155ba49000 - 0x155ba4bfff 0x155ba4c000 - 0x155ba4efff 0x155ba4f000 - 0x155ba53fff 0x155ba54000 - 0x155baa8fff 0x155baa9000 - 0x155c153fff 0x3fff9a0000 - 0x3fff9c0fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-class3.lisp ... WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x22b87000 - 0x22ba7fff 0x80000000 - 0x800bffff 0x1557742000 - 0x155775cfff 0x155775d000 - 0x155775dfff 0x155775e000 - 0x155775efff 0x155775f000 - 0x1557760fff 0x1557761000 - 0x1557762fff 0x1557763000 - 0x1557769fff 0x155776a000 - 0x155776afff 0x155776b000 - 0x155776bfff 0x155776e000 - 0x155776ffff 0x1557770000 - 0x15577aefff 0x15577af000 - 0x15577b0fff 0x15577b1000 - 0x15577b7fff 0x15577b8000 - 0x15577b8fff 0x15577b9000 - 0x15577defff 0x15577df000 - 0x15577e2fff 0x15577e3000 - 0x15577e3fff 0x15577e4000 - 0x15577e5fff 0x15577e6000 - 0x15577e6fff 0x15577e7000 - 0x15577e7fff 0x15577e8000 - 0x15577e8fff 0x15577e9000 - 0x15577ecfff 0x15577ed000 - 0x15577edfff 0x15577ee000 - 0x15577eefff 0x15577ef000 - 0x15577f0fff 0x15577f1000 - 0x15577f1fff 0x15577f2000 - 0x15577f2fff 0x15577f3000 - 0x155795efff 0x155795f000 - 0x1557961fff 0x1557962000 - 0x1557962fff 0x1557963000 - 0x1557965fff 0x1557966000 - 0x1557978fff 0x1557979000 - 0x1557979fff 0x155797a000 - 0x155797afff 0x155797b000 - 0x1557a99fff 0x1557a9a000 - 0x1557a9cfff 0x1557a9d000 - 0x1557a9ffff 0x1557aa0000 - 0x1557aa4fff 0x1557aa5000 - 0x1557af9fff 0x1557afa000 - 0x15581a4fff 0x3fff8ac000 - 0x3fff8ccfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/defstruct.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x211cf000 - 0x211effff 0x80000000 - 0x800bffff 0x158160d000 - 0x1581627fff 0x1581628000 - 0x1581628fff 0x1581629000 - 0x1581629fff 0x158162a000 - 0x158162bfff 0x158162c000 - 0x158162dfff 0x158162e000 - 0x1581634fff 0x1581635000 - 0x1581635fff 0x1581636000 - 0x1581636fff 0x1581639000 - 0x158163afff 0x158163b000 - 0x1581679fff 0x158167a000 - 0x158167bfff 0x158167c000 - 0x1581682fff 0x1581683000 - 0x1581683fff 0x1581684000 - 0x15816a9fff 0x15816aa000 - 0x15816adfff 0x15816ae000 - 0x15816aefff 0x15816af000 - 0x15816b0fff 0x15816b1000 - 0x15816b1fff 0x15816b2000 - 0x15816b2fff 0x15816b3000 - 0x15816b3fff 0x15816b4000 - 0x15816b7fff 0x15816b8000 - 0x15816b8fff 0x15816b9000 - 0x15816b9fff 0x15816ba000 - 0x15816bbfff 0x15816bc000 - 0x15816bcfff 0x15816bd000 - 0x15816bdfff 0x15816be000 - 0x1581829fff 0x158182a000 - 0x158182cfff 0x158182d000 - 0x158182dfff 0x158182e000 - 0x1581830fff 0x1581831000 - 0x1581843fff 0x1581844000 - 0x1581844fff 0x1581845000 - 0x1581845fff 0x1581846000 - 0x1581964fff 0x1581965000 - 0x1581967fff 0x1581968000 - 0x158196afff 0x158196b000 - 0x158196ffff 0x1581970000 - 0x15819c4fff 0x15819c5000 - 0x158206ffff 0x3fff7ff000 - 0x3fff81ffff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2d9be000 - 0x2d9defff 0x80000000 - 0x800bffff 0x1568722000 - 0x156873cfff 0x156873d000 - 0x156873dfff 0x156873e000 - 0x156873efff 0x156873f000 - 0x1568740fff 0x1568741000 - 0x1568742fff 0x1568743000 - 0x1568749fff 0x156874a000 - 0x156874afff 0x156874b000 - 0x156874bfff 0x156874e000 - 0x156874ffff 0x1568750000 - 0x156878efff 0x156878f000 - 0x1568790fff 0x1568791000 - 0x1568797fff 0x1568798000 - 0x1568798fff 0x1568799000 - 0x15687befff 0x15687bf000 - 0x15687c2fff 0x15687c3000 - 0x15687c3fff 0x15687c4000 - 0x15687c5fff 0x15687c6000 - 0x15687c6fff 0x15687c7000 - 0x15687c7fff 0x15687c8000 - 0x15687c8fff 0x15687c9000 - 0x15687ccfff 0x15687cd000 - 0x15687cdfff 0x15687ce000 - 0x15687cefff 0x15687cf000 - 0x15687d0fff 0x15687d1000 - 0x15687d1fff 0x15687d2000 - 0x15687d2fff 0x15687d3000 - 0x156893efff 0x156893f000 - 0x1568941fff 0x1568942000 - 0x1568942fff 0x1568943000 - 0x1568945fff 0x1568946000 - 0x1568958fff 0x1568959000 - 0x1568959fff 0x156895a000 - 0x156895afff 0x156895b000 - 0x1568a79fff 0x1568a7a000 - 0x1568a7cfff 0x1568a7d000 - 0x1568a7ffff 0x1568a80000 - 0x1568a84fff 0x1568a85000 - 0x1568ad9fff 0x1568ada000 - 0x1569184fff 0x3fff9ed000 - 0x3fffa0dfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/international.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x6c4e000 - 0x6c6efff 0x80000000 - 0x800bffff 0x158d0d9000 - 0x158d0f3fff 0x158d0f4000 - 0x158d0f4fff 0x158d0f5000 - 0x158d0f5fff 0x158d0f6000 - 0x158d0f7fff 0x158d0f8000 - 0x158d0f9fff 0x158d0fa000 - 0x158d100fff 0x158d101000 - 0x158d101fff 0x158d102000 - 0x158d102fff 0x158d105000 - 0x158d106fff 0x158d107000 - 0x158d145fff 0x158d146000 - 0x158d147fff 0x158d148000 - 0x158d14efff 0x158d14f000 - 0x158d14ffff 0x158d150000 - 0x158d175fff 0x158d176000 - 0x158d179fff 0x158d17a000 - 0x158d17afff 0x158d17b000 - 0x158d17cfff 0x158d17d000 - 0x158d17dfff 0x158d17e000 - 0x158d17efff 0x158d17f000 - 0x158d17ffff 0x158d180000 - 0x158d183fff 0x158d184000 - 0x158d184fff 0x158d185000 - 0x158d185fff 0x158d186000 - 0x158d187fff 0x158d188000 - 0x158d188fff 0x158d189000 - 0x158d189fff 0x158d18a000 - 0x158d2f5fff 0x158d2f6000 - 0x158d2f8fff 0x158d2f9000 - 0x158d2f9fff 0x158d2fa000 - 0x158d2fcfff 0x158d2fd000 - 0x158d30ffff 0x158d310000 - 0x158d310fff 0x158d311000 - 0x158d311fff 0x158d312000 - 0x158d430fff 0x158d431000 - 0x158d433fff 0x158d434000 - 0x158d436fff 0x158d437000 - 0x158d43bfff 0x158d43c000 - 0x158d490fff 0x158d491000 - 0x158db3bfff 0x3fffda4000 - 0x3fffdc4fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x32cc7000 - 0x32ce7fff 0x80000000 - 0x800bffff 0x15944c6000 - 0x15944e0fff 0x15944e1000 - 0x15944e1fff 0x15944e2000 - 0x15944e2fff 0x15944e3000 - 0x15944e4fff 0x15944e5000 - 0x15944e6fff 0x15944e7000 - 0x15944edfff 0x15944ee000 - 0x15944eefff 0x15944ef000 - 0x15944effff 0x15944f2000 - 0x15944f3fff 0x15944f4000 - 0x1594532fff 0x1594533000 - 0x1594534fff 0x1594535000 - 0x159453bfff 0x159453c000 - 0x159453cfff 0x159453d000 - 0x1594562fff 0x1594563000 - 0x1594566fff 0x1594567000 - 0x1594567fff 0x1594568000 - 0x1594569fff 0x159456a000 - 0x159456afff 0x159456b000 - 0x159456bfff 0x159456c000 - 0x159456cfff 0x159456d000 - 0x1594570fff 0x1594571000 - 0x1594571fff 0x1594572000 - 0x1594572fff 0x1594573000 - 0x1594574fff 0x1594575000 - 0x1594575fff 0x1594576000 - 0x1594576fff 0x1594577000 - 0x15946e2fff 0x15946e3000 - 0x15946e5fff 0x15946e6000 - 0x15946e6fff 0x15946e7000 - 0x15946e9fff 0x15946ea000 - 0x15946fcfff 0x15946fd000 - 0x15946fdfff 0x15946fe000 - 0x15946fefff 0x15946ff000 - 0x159481dfff 0x159481e000 - 0x1594820fff 0x1594821000 - 0x1594823fff 0x1594824000 - 0x1594828fff 0x1594829000 - 0x159487dfff 0x159487e000 - 0x1594f28fff 0x3fff9f4000 - 0x3fffa14fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/functions.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0xdee5000 - 0xdf05fff 0x80000000 - 0x800bffff 0x158fe66000 - 0x158fe80fff 0x158fe81000 - 0x158fe81fff 0x158fe82000 - 0x158fe82fff 0x158fe83000 - 0x158fe84fff 0x158fe85000 - 0x158fe86fff 0x158fe87000 - 0x158fe8dfff 0x158fe8e000 - 0x158fe8efff 0x158fe8f000 - 0x158fe8ffff 0x158fe92000 - 0x158fe93fff 0x158fe94000 - 0x158fed2fff 0x158fed3000 - 0x158fed4fff 0x158fed5000 - 0x158fedbfff 0x158fedc000 - 0x158fedcfff 0x158fedd000 - 0x158ff02fff 0x158ff03000 - 0x158ff06fff 0x158ff07000 - 0x158ff07fff 0x158ff08000 - 0x158ff09fff 0x158ff0a000 - 0x158ff0afff 0x158ff0b000 - 0x158ff0bfff 0x158ff0c000 - 0x158ff0cfff 0x158ff0d000 - 0x158ff10fff 0x158ff11000 - 0x158ff11fff 0x158ff12000 - 0x158ff12fff 0x158ff13000 - 0x158ff14fff 0x158ff15000 - 0x158ff15fff 0x158ff16000 - 0x158ff16fff 0x158ff17000 - 0x1590082fff 0x1590083000 - 0x1590085fff 0x1590086000 - 0x1590086fff 0x1590087000 - 0x1590089fff 0x159008a000 - 0x159009cfff 0x159009d000 - 0x159009dfff 0x159009e000 - 0x159009efff 0x159009f000 - 0x15901bdfff 0x15901be000 - 0x15901c0fff 0x15901c1000 - 0x15901c3fff 0x15901c4000 - 0x15901c8fff 0x15901c9000 - 0x159021dfff 0x159021e000 - 0x15908c8fff 0x3fff8bc000 - 0x3fff8dcfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/trace.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x5fa000 - 0x61afff 0x80000000 - 0x800bffff 0x156be4a000 - 0x156be64fff 0x156be65000 - 0x156be65fff 0x156be66000 - 0x156be66fff 0x156be67000 - 0x156be68fff 0x156be69000 - 0x156be6afff 0x156be6b000 - 0x156be71fff 0x156be72000 - 0x156be72fff 0x156be73000 - 0x156be73fff 0x156be76000 - 0x156be77fff 0x156be78000 - 0x156beb6fff 0x156beb7000 - 0x156beb8fff 0x156beb9000 - 0x156bebffff 0x156bec0000 - 0x156bec0fff 0x156bec1000 - 0x156bee6fff 0x156bee7000 - 0x156beeafff 0x156beeb000 - 0x156beebfff 0x156beec000 - 0x156beedfff 0x156beee000 - 0x156beeefff 0x156beef000 - 0x156beeffff 0x156bef0000 - 0x156bef0fff 0x156bef1000 - 0x156bef4fff 0x156bef5000 - 0x156bef5fff 0x156bef6000 - 0x156bef6fff 0x156bef7000 - 0x156bef8fff 0x156bef9000 - 0x156bef9fff 0x156befa000 - 0x156befafff 0x156befb000 - 0x156c066fff 0x156c067000 - 0x156c069fff 0x156c06a000 - 0x156c06afff 0x156c06b000 - 0x156c06dfff 0x156c06e000 - 0x156c080fff 0x156c081000 - 0x156c081fff 0x156c082000 - 0x156c082fff 0x156c083000 - 0x156c1a1fff 0x156c1a2000 - 0x156c1a4fff 0x156c1a5000 - 0x156c1a7fff 0x156c1a8000 - 0x156c1acfff 0x156c1ad000 - 0x156c201fff 0x156c202000 - 0x156c8acfff 0x3fffacb000 - 0x3fffaebfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/cmacros.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0xd0ae000 - 0xd0cefff 0x80000000 - 0x800bffff 0x1570a6d000 - 0x1570a87fff 0x1570a88000 - 0x1570a88fff 0x1570a89000 - 0x1570a89fff 0x1570a8a000 - 0x1570a8bfff 0x1570a8c000 - 0x1570a8dfff 0x1570a8e000 - 0x1570a94fff 0x1570a95000 - 0x1570a95fff 0x1570a96000 - 0x1570a96fff 0x1570a99000 - 0x1570a9afff 0x1570a9b000 - 0x1570ad9fff 0x1570ada000 - 0x1570adbfff 0x1570adc000 - 0x1570ae2fff 0x1570ae3000 - 0x1570ae3fff 0x1570ae4000 - 0x1570b09fff 0x1570b0a000 - 0x1570b0dfff 0x1570b0e000 - 0x1570b0efff 0x1570b0f000 - 0x1570b10fff 0x1570b11000 - 0x1570b11fff 0x1570b12000 - 0x1570b12fff 0x1570b13000 - 0x1570b13fff 0x1570b14000 - 0x1570b17fff 0x1570b18000 - 0x1570b18fff 0x1570b19000 - 0x1570b19fff 0x1570b1a000 - 0x1570b1bfff 0x1570b1c000 - 0x1570b1cfff 0x1570b1d000 - 0x1570b1dfff 0x1570b1e000 - 0x1570c89fff 0x1570c8a000 - 0x1570c8cfff 0x1570c8d000 - 0x1570c8dfff 0x1570c8e000 - 0x1570c90fff 0x1570c91000 - 0x1570ca3fff 0x1570ca4000 - 0x1570ca4fff 0x1570ca5000 - 0x1570ca5fff 0x1570ca6000 - 0x1570dc4fff 0x1570dc5000 - 0x1570dc7fff 0x1570dc8000 - 0x1570dcafff 0x1570dcb000 - 0x1570dcffff 0x1570dd0000 - 0x1570e24fff 0x1570e25000 - 0x15714cffff 0x3fffee3000 - 0x3ffff03fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/compiler.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1906c000 - 0x1908cfff 0x80000000 - 0x800bffff 0x158c77b000 - 0x158c795fff 0x158c796000 - 0x158c796fff 0x158c797000 - 0x158c797fff 0x158c798000 - 0x158c799fff 0x158c79a000 - 0x158c79bfff 0x158c79c000 - 0x158c7a2fff 0x158c7a3000 - 0x158c7a3fff 0x158c7a4000 - 0x158c7a4fff 0x158c7a7000 - 0x158c7a8fff 0x158c7a9000 - 0x158c7e7fff 0x158c7e8000 - 0x158c7e9fff 0x158c7ea000 - 0x158c7f0fff 0x158c7f1000 - 0x158c7f1fff 0x158c7f2000 - 0x158c817fff 0x158c818000 - 0x158c81bfff 0x158c81c000 - 0x158c81cfff 0x158c81d000 - 0x158c81efff 0x158c81f000 - 0x158c81ffff 0x158c820000 - 0x158c820fff 0x158c821000 - 0x158c821fff 0x158c822000 - 0x158c825fff 0x158c826000 - 0x158c826fff 0x158c827000 - 0x158c827fff 0x158c828000 - 0x158c829fff 0x158c82a000 - 0x158c82afff 0x158c82b000 - 0x158c82bfff 0x158c82c000 - 0x158c997fff 0x158c998000 - 0x158c99afff 0x158c99b000 - 0x158c99bfff 0x158c99c000 - 0x158c99efff 0x158c99f000 - 0x158c9b1fff 0x158c9b2000 - 0x158c9b2fff 0x158c9b3000 - 0x158c9b3fff 0x158c9b4000 - 0x158cad2fff 0x158cad3000 - 0x158cad5fff 0x158cad6000 - 0x158cad8fff 0x158cad9000 - 0x158caddfff 0x158cade000 - 0x158cb32fff 0x158cb33000 - 0x158d1ddfff 0x3fffda5000 - 0x3fffdc5fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/defs2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x360c5000 - 0x360e5fff 0x80000000 - 0x800bffff 0x1563b07000 - 0x1563b21fff 0x1563b22000 - 0x1563b22fff 0x1563b23000 - 0x1563b23fff 0x1563b24000 - 0x1563b25fff 0x1563b26000 - 0x1563b27fff 0x1563b28000 - 0x1563b2efff 0x1563b2f000 - 0x1563b2ffff 0x1563b30000 - 0x1563b30fff 0x1563b33000 - 0x1563b34fff 0x1563b35000 - 0x1563b73fff 0x1563b74000 - 0x1563b75fff 0x1563b76000 - 0x1563b7cfff 0x1563b7d000 - 0x1563b7dfff 0x1563b7e000 - 0x1563ba3fff 0x1563ba4000 - 0x1563ba7fff 0x1563ba8000 - 0x1563ba8fff 0x1563ba9000 - 0x1563baafff 0x1563bab000 - 0x1563babfff 0x1563bac000 - 0x1563bacfff 0x1563bad000 - 0x1563badfff 0x1563bae000 - 0x1563bb1fff 0x1563bb2000 - 0x1563bb2fff 0x1563bb3000 - 0x1563bb3fff 0x1563bb4000 - 0x1563bb5fff 0x1563bb6000 - 0x1563bb6fff 0x1563bb7000 - 0x1563bb7fff 0x1563bb8000 - 0x1563d23fff 0x1563d24000 - 0x1563d26fff 0x1563d27000 - 0x1563d27fff 0x1563d28000 - 0x1563d2afff 0x1563d2b000 - 0x1563d3dfff 0x1563d3e000 - 0x1563d3efff 0x1563d3f000 - 0x1563d3ffff 0x1563d40000 - 0x1563e5efff 0x1563e5f000 - 0x1563e61fff 0x1563e62000 - 0x1563e64fff 0x1563e65000 - 0x1563e69fff 0x1563e6a000 - 0x1563ebefff 0x1563ebf000 - 0x1564569fff 0x3fff8ba000 - 0x3fff8dafff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/loop.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x17854000 - 0x17874fff 0x80000000 - 0x800bffff 0x156d732000 - 0x156d74cfff 0x156d74d000 - 0x156d74dfff 0x156d74e000 - 0x156d74efff 0x156d74f000 - 0x156d750fff 0x156d751000 - 0x156d752fff 0x156d753000 - 0x156d759fff 0x156d75a000 - 0x156d75afff 0x156d75b000 - 0x156d75bfff 0x156d75e000 - 0x156d75ffff 0x156d760000 - 0x156d79efff 0x156d79f000 - 0x156d7a0fff 0x156d7a1000 - 0x156d7a7fff 0x156d7a8000 - 0x156d7a8fff 0x156d7a9000 - 0x156d7cefff 0x156d7cf000 - 0x156d7d2fff 0x156d7d3000 - 0x156d7d3fff 0x156d7d4000 - 0x156d7d5fff 0x156d7d6000 - 0x156d7d6fff 0x156d7d7000 - 0x156d7d7fff 0x156d7d8000 - 0x156d7d8fff 0x156d7d9000 - 0x156d7dcfff 0x156d7dd000 - 0x156d7ddfff 0x156d7de000 - 0x156d7defff 0x156d7df000 - 0x156d7e0fff 0x156d7e1000 - 0x156d7e1fff 0x156d7e2000 - 0x156d7e2fff 0x156d7e3000 - 0x156d94efff 0x156d94f000 - 0x156d951fff 0x156d952000 - 0x156d952fff 0x156d953000 - 0x156d955fff 0x156d956000 - 0x156d968fff 0x156d969000 - 0x156d969fff 0x156d96a000 - 0x156d96afff 0x156d96b000 - 0x156da89fff 0x156da8a000 - 0x156da8cfff 0x156da8d000 - 0x156da8ffff 0x156da90000 - 0x156da94fff 0x156da95000 - 0x156dae9fff 0x156daea000 - 0x156e194fff 0x3fff895000 - 0x3fff8b5fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x5675000 - 0x5695fff 0x80000000 - 0x800bffff 0x157c2ba000 - 0x157c2d4fff 0x157c2d5000 - 0x157c2d5fff 0x157c2d6000 - 0x157c2d6fff 0x157c2d7000 - 0x157c2d8fff 0x157c2d9000 - 0x157c2dafff 0x157c2db000 - 0x157c2e1fff 0x157c2e2000 - 0x157c2e2fff 0x157c2e3000 - 0x157c2e3fff 0x157c2e6000 - 0x157c2e7fff 0x157c2e8000 - 0x157c326fff 0x157c327000 - 0x157c328fff 0x157c329000 - 0x157c32ffff 0x157c330000 - 0x157c330fff 0x157c331000 - 0x157c356fff 0x157c357000 - 0x157c35afff 0x157c35b000 - 0x157c35bfff 0x157c35c000 - 0x157c35dfff 0x157c35e000 - 0x157c35efff 0x157c35f000 - 0x157c35ffff 0x157c360000 - 0x157c360fff 0x157c361000 - 0x157c364fff 0x157c365000 - 0x157c365fff 0x157c366000 - 0x157c366fff 0x157c367000 - 0x157c368fff 0x157c369000 - 0x157c369fff 0x157c36a000 - 0x157c36afff 0x157c36b000 - 0x157c4d6fff 0x157c4d7000 - 0x157c4d9fff 0x157c4da000 - 0x157c4dafff 0x157c4db000 - 0x157c4ddfff 0x157c4de000 - 0x157c4f0fff 0x157c4f1000 - 0x157c4f1fff 0x157c4f2000 - 0x157c4f2fff 0x157c4f3000 - 0x157c611fff 0x157c612000 - 0x157c614fff 0x157c615000 - 0x157c617fff 0x157c618000 - 0x157c61cfff 0x157c61d000 - 0x157c671fff 0x157c672000 - 0x157cd1cfff 0x3fffc14000 - 0x3fffc34fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-stablehash2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0xf961000 - 0xf981fff 0x80000000 - 0x800bffff 0x157543c000 - 0x1575456fff 0x1575457000 - 0x1575457fff 0x1575458000 - 0x1575458fff 0x1575459000 - 0x157545afff 0x157545b000 - 0x157545cfff 0x157545d000 - 0x1575463fff 0x1575464000 - 0x1575464fff 0x1575465000 - 0x1575465fff 0x1575468000 - 0x1575469fff 0x157546a000 - 0x15754a8fff 0x15754a9000 - 0x15754aafff 0x15754ab000 - 0x15754b1fff 0x15754b2000 - 0x15754b2fff 0x15754b3000 - 0x15754d8fff 0x15754d9000 - 0x15754dcfff 0x15754dd000 - 0x15754ddfff 0x15754de000 - 0x15754dffff 0x15754e0000 - 0x15754e0fff 0x15754e1000 - 0x15754e1fff 0x15754e2000 - 0x15754e2fff 0x15754e3000 - 0x15754e6fff 0x15754e7000 - 0x15754e7fff 0x15754e8000 - 0x15754e8fff 0x15754e9000 - 0x15754eafff 0x15754eb000 - 0x15754ebfff 0x15754ec000 - 0x15754ecfff 0x15754ed000 - 0x1575658fff 0x1575659000 - 0x157565bfff 0x157565c000 - 0x157565cfff 0x157565d000 - 0x157565ffff 0x1575660000 - 0x1575672fff 0x1575673000 - 0x1575673fff 0x1575674000 - 0x1575674fff 0x1575675000 - 0x1575793fff 0x1575794000 - 0x1575796fff 0x1575797000 - 0x1575799fff 0x157579a000 - 0x157579efff 0x157579f000 - 0x15757f3fff 0x15757f4000 - 0x1575e9efff 0x3fffd29000 - 0x3fffd49fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-specializer2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1ac4e000 - 0x1ac6efff 0x80000000 - 0x800bffff 0x1570ed6000 - 0x1570ef0fff 0x1570ef1000 - 0x1570ef1fff 0x1570ef2000 - 0x1570ef2fff 0x1570ef3000 - 0x1570ef4fff 0x1570ef5000 - 0x1570ef6fff 0x1570ef7000 - 0x1570efdfff 0x1570efe000 - 0x1570efefff 0x1570eff000 - 0x1570efffff 0x1570f02000 - 0x1570f03fff 0x1570f04000 - 0x1570f42fff 0x1570f43000 - 0x1570f44fff 0x1570f45000 - 0x1570f4bfff 0x1570f4c000 - 0x1570f4cfff 0x1570f4d000 - 0x1570f72fff 0x1570f73000 - 0x1570f76fff 0x1570f77000 - 0x1570f77fff 0x1570f78000 - 0x1570f79fff 0x1570f7a000 - 0x1570f7afff 0x1570f7b000 - 0x1570f7bfff 0x1570f7c000 - 0x1570f7cfff 0x1570f7d000 - 0x1570f80fff 0x1570f81000 - 0x1570f81fff 0x1570f82000 - 0x1570f82fff 0x1570f83000 - 0x1570f84fff 0x1570f85000 - 0x1570f85fff 0x1570f86000 - 0x1570f86fff 0x1570f87000 - 0x15710f2fff 0x15710f3000 - 0x15710f5fff 0x15710f6000 - 0x15710f6fff 0x15710f7000 - 0x15710f9fff 0x15710fa000 - 0x157110cfff 0x157110d000 - 0x157110dfff 0x157110e000 - 0x157110efff 0x157110f000 - 0x157122dfff 0x157122e000 - 0x1571230fff 0x1571231000 - 0x1571233fff 0x1571234000 - 0x1571238fff 0x1571239000 - 0x157128dfff 0x157128e000 - 0x1571938fff 0x3fffdd0000 - 0x3fffdf0fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-specializer3.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0xe548000 - 0xe568fff 0x80000000 - 0x800bffff 0x157edc3000 - 0x157edddfff 0x157edde000 - 0x157eddefff 0x157eddf000 - 0x157eddffff 0x157ede0000 - 0x157ede1fff 0x157ede2000 - 0x157ede3fff 0x157ede4000 - 0x157edeafff 0x157edeb000 - 0x157edebfff 0x157edec000 - 0x157edecfff 0x157edef000 - 0x157edf0fff 0x157edf1000 - 0x157ee2ffff 0x157ee30000 - 0x157ee31fff 0x157ee32000 - 0x157ee38fff 0x157ee39000 - 0x157ee39fff 0x157ee3a000 - 0x157ee5ffff 0x157ee60000 - 0x157ee63fff 0x157ee64000 - 0x157ee64fff 0x157ee65000 - 0x157ee66fff 0x157ee67000 - 0x157ee67fff 0x157ee68000 - 0x157ee68fff 0x157ee69000 - 0x157ee69fff 0x157ee6a000 - 0x157ee6dfff 0x157ee6e000 - 0x157ee6efff 0x157ee6f000 - 0x157ee6ffff 0x157ee70000 - 0x157ee71fff 0x157ee72000 - 0x157ee72fff 0x157ee73000 - 0x157ee73fff 0x157ee74000 - 0x157efdffff 0x157efe0000 - 0x157efe2fff 0x157efe3000 - 0x157efe3fff 0x157efe4000 - 0x157efe6fff 0x157efe7000 - 0x157eff9fff 0x157effa000 - 0x157effafff 0x157effb000 - 0x157effbfff 0x157effc000 - 0x157f11afff 0x157f11b000 - 0x157f11dfff 0x157f11e000 - 0x157f120fff 0x157f121000 - 0x157f125fff 0x157f126000 - 0x157f17afff 0x157f17b000 - 0x157f825fff 0x3fff9f6000 - 0x3fffa16fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-class4.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x789c000 - 0x78bcfff 0x80000000 - 0x800bffff 0x1578097000 - 0x15780b1fff 0x15780b2000 - 0x15780b2fff 0x15780b3000 - 0x15780b3fff 0x15780b4000 - 0x15780b5fff 0x15780b6000 - 0x15780b7fff 0x15780b8000 - 0x15780befff 0x15780bf000 - 0x15780bffff 0x15780c0000 - 0x15780c0fff 0x15780c3000 - 0x15780c4fff 0x15780c5000 - 0x1578103fff 0x1578104000 - 0x1578105fff 0x1578106000 - 0x157810cfff 0x157810d000 - 0x157810dfff 0x157810e000 - 0x1578133fff 0x1578134000 - 0x1578137fff 0x1578138000 - 0x1578138fff 0x1578139000 - 0x157813afff 0x157813b000 - 0x157813bfff 0x157813c000 - 0x157813cfff 0x157813d000 - 0x157813dfff 0x157813e000 - 0x1578141fff 0x1578142000 - 0x1578142fff 0x1578143000 - 0x1578143fff 0x1578144000 - 0x1578145fff 0x1578146000 - 0x1578146fff 0x1578147000 - 0x1578147fff 0x1578148000 - 0x15782b3fff 0x15782b4000 - 0x15782b6fff 0x15782b7000 - 0x15782b7fff 0x15782b8000 - 0x15782bafff 0x15782bb000 - 0x15782cdfff 0x15782ce000 - 0x15782cefff 0x15782cf000 - 0x15782cffff 0x15782d0000 - 0x15783eefff 0x15783ef000 - 0x15783f1fff 0x15783f2000 - 0x15783f4fff 0x15783f5000 - 0x15783f9fff 0x15783fa000 - 0x157844efff 0x157844f000 - 0x1578af9fff 0x3fff947000 - 0x3fff967fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-class5.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2b8c0000 - 0x2b8e0fff 0x80000000 - 0x800bffff 0x1564921000 - 0x156493bfff 0x156493c000 - 0x156493cfff 0x156493d000 - 0x156493dfff 0x156493e000 - 0x156493ffff 0x1564940000 - 0x1564941fff 0x1564942000 - 0x1564948fff 0x1564949000 - 0x1564949fff 0x156494a000 - 0x156494afff 0x156494d000 - 0x156494efff 0x156494f000 - 0x156498dfff 0x156498e000 - 0x156498ffff 0x1564990000 - 0x1564996fff 0x1564997000 - 0x1564997fff 0x1564998000 - 0x15649bdfff 0x15649be000 - 0x15649c1fff 0x15649c2000 - 0x15649c2fff 0x15649c3000 - 0x15649c4fff 0x15649c5000 - 0x15649c5fff 0x15649c6000 - 0x15649c6fff 0x15649c7000 - 0x15649c7fff 0x15649c8000 - 0x15649cbfff 0x15649cc000 - 0x15649ccfff 0x15649cd000 - 0x15649cdfff 0x15649ce000 - 0x15649cffff 0x15649d0000 - 0x15649d0fff 0x15649d1000 - 0x15649d1fff 0x15649d2000 - 0x1564b3dfff 0x1564b3e000 - 0x1564b40fff 0x1564b41000 - 0x1564b41fff 0x1564b42000 - 0x1564b44fff 0x1564b45000 - 0x1564b57fff 0x1564b58000 - 0x1564b58fff 0x1564b59000 - 0x1564b59fff 0x1564b5a000 - 0x1564c78fff 0x1564c79000 - 0x1564c7bfff 0x1564c7c000 - 0x1564c7efff 0x1564c7f000 - 0x1564c83fff 0x1564c84000 - 0x1564cd8fff 0x1564cd9000 - 0x1565383fff 0x3fffdac000 - 0x3fffdccfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-class6.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x782c000 - 0x784cfff 0x80000000 - 0x800bffff 0x158aa86000 - 0x158aaa0fff 0x158aaa1000 - 0x158aaa1fff 0x158aaa2000 - 0x158aaa2fff 0x158aaa3000 - 0x158aaa4fff 0x158aaa5000 - 0x158aaa6fff 0x158aaa7000 - 0x158aaadfff 0x158aaae000 - 0x158aaaefff 0x158aaaf000 - 0x158aaaffff 0x158aab2000 - 0x158aab3fff 0x158aab4000 - 0x158aaf2fff 0x158aaf3000 - 0x158aaf4fff 0x158aaf5000 - 0x158aafbfff 0x158aafc000 - 0x158aafcfff 0x158aafd000 - 0x158ab22fff 0x158ab23000 - 0x158ab26fff 0x158ab27000 - 0x158ab27fff 0x158ab28000 - 0x158ab29fff 0x158ab2a000 - 0x158ab2afff 0x158ab2b000 - 0x158ab2bfff 0x158ab2c000 - 0x158ab2cfff 0x158ab2d000 - 0x158ab30fff 0x158ab31000 - 0x158ab31fff 0x158ab32000 - 0x158ab32fff 0x158ab33000 - 0x158ab34fff 0x158ab35000 - 0x158ab35fff 0x158ab36000 - 0x158ab36fff 0x158ab37000 - 0x158aca2fff 0x158aca3000 - 0x158aca5fff 0x158aca6000 - 0x158aca6fff 0x158aca7000 - 0x158aca9fff 0x158acaa000 - 0x158acbcfff 0x158acbd000 - 0x158acbdfff 0x158acbe000 - 0x158acbefff 0x158acbf000 - 0x158adddfff 0x158adde000 - 0x158ade0fff 0x158ade1000 - 0x158ade3fff 0x158ade4000 - 0x158ade8fff 0x158ade9000 - 0x158ae3dfff 0x158ae3e000 - 0x158b4e8fff 0x3ffff85000 - 0x3ffffa5fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-slotdef2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x15c80000 - 0x15ca0fff 0x80000000 - 0x800bffff 0x1581400000 - 0x158141afff 0x158141b000 - 0x158141bfff 0x158141c000 - 0x158141cfff 0x158141d000 - 0x158141efff 0x158141f000 - 0x1581420fff 0x1581421000 - 0x1581427fff 0x1581428000 - 0x1581428fff 0x1581429000 - 0x1581429fff 0x158142c000 - 0x158142dfff 0x158142e000 - 0x158146cfff 0x158146d000 - 0x158146efff 0x158146f000 - 0x1581475fff 0x1581476000 - 0x1581476fff 0x1581477000 - 0x158149cfff 0x158149d000 - 0x15814a0fff 0x15814a1000 - 0x15814a1fff 0x15814a2000 - 0x15814a3fff 0x15814a4000 - 0x15814a4fff 0x15814a5000 - 0x15814a5fff 0x15814a6000 - 0x15814a6fff 0x15814a7000 - 0x15814aafff 0x15814ab000 - 0x15814abfff 0x15814ac000 - 0x15814acfff 0x15814ad000 - 0x15814aefff 0x15814af000 - 0x15814affff 0x15814b0000 - 0x15814b0fff 0x15814b1000 - 0x158161cfff 0x158161d000 - 0x158161ffff 0x1581620000 - 0x1581620fff 0x1581621000 - 0x1581623fff 0x1581624000 - 0x1581636fff 0x1581637000 - 0x1581637fff 0x1581638000 - 0x1581638fff 0x1581639000 - 0x1581757fff 0x1581758000 - 0x158175afff 0x158175b000 - 0x158175dfff 0x158175e000 - 0x1581762fff 0x1581763000 - 0x15817b7fff 0x15817b8000 - 0x1581e62fff 0x3fff936000 - 0x3fff956fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-slotdef3.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3a428000 - 0x3a448fff 0x80000000 - 0x800bffff 0x158ca66000 - 0x158ca80fff 0x158ca81000 - 0x158ca81fff 0x158ca82000 - 0x158ca82fff 0x158ca83000 - 0x158ca84fff 0x158ca85000 - 0x158ca86fff 0x158ca87000 - 0x158ca8dfff 0x158ca8e000 - 0x158ca8efff 0x158ca8f000 - 0x158ca8ffff 0x158ca92000 - 0x158ca93fff 0x158ca94000 - 0x158cad2fff 0x158cad3000 - 0x158cad4fff 0x158cad5000 - 0x158cadbfff 0x158cadc000 - 0x158cadcfff 0x158cadd000 - 0x158cb02fff 0x158cb03000 - 0x158cb06fff 0x158cb07000 - 0x158cb07fff 0x158cb08000 - 0x158cb09fff 0x158cb0a000 - 0x158cb0afff 0x158cb0b000 - 0x158cb0bfff 0x158cb0c000 - 0x158cb0cfff 0x158cb0d000 - 0x158cb10fff 0x158cb11000 - 0x158cb11fff 0x158cb12000 - 0x158cb12fff 0x158cb13000 - 0x158cb14fff 0x158cb15000 - 0x158cb15fff 0x158cb16000 - 0x158cb16fff 0x158cb17000 - 0x158cc82fff 0x158cc83000 - 0x158cc85fff 0x158cc86000 - 0x158cc86fff 0x158cc87000 - 0x158cc89fff 0x158cc8a000 - 0x158cc9cfff 0x158cc9d000 - 0x158cc9dfff 0x158cc9e000 - 0x158cc9efff 0x158cc9f000 - 0x158cdbdfff 0x158cdbe000 - 0x158cdc0fff 0x158cdc1000 - 0x158cdc3fff 0x158cdc4000 - 0x158cdc8fff 0x158cdc9000 - 0x158ce1dfff 0x158ce1e000 - 0x158d4c8fff 0x3fffda0000 - 0x3fffdc0fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-slots1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3da08000 - 0x3da28fff 0x80000000 - 0x800bffff 0x155b12f000 - 0x155b149fff 0x155b14a000 - 0x155b14afff 0x155b14b000 - 0x155b14bfff 0x155b14c000 - 0x155b14dfff 0x155b14e000 - 0x155b14ffff 0x155b150000 - 0x155b156fff 0x155b157000 - 0x155b157fff 0x155b158000 - 0x155b158fff 0x155b15b000 - 0x155b15cfff 0x155b15d000 - 0x155b19bfff 0x155b19c000 - 0x155b19dfff 0x155b19e000 - 0x155b1a4fff 0x155b1a5000 - 0x155b1a5fff 0x155b1a6000 - 0x155b1cbfff 0x155b1cc000 - 0x155b1cffff 0x155b1d0000 - 0x155b1d0fff 0x155b1d1000 - 0x155b1d2fff 0x155b1d3000 - 0x155b1d3fff 0x155b1d4000 - 0x155b1d4fff 0x155b1d5000 - 0x155b1d5fff 0x155b1d6000 - 0x155b1d9fff 0x155b1da000 - 0x155b1dafff 0x155b1db000 - 0x155b1dbfff 0x155b1dc000 - 0x155b1ddfff 0x155b1de000 - 0x155b1defff 0x155b1df000 - 0x155b1dffff 0x155b1e0000 - 0x155b34bfff 0x155b34c000 - 0x155b34efff 0x155b34f000 - 0x155b34ffff 0x155b350000 - 0x155b352fff 0x155b353000 - 0x155b365fff 0x155b366000 - 0x155b366fff 0x155b367000 - 0x155b367fff 0x155b368000 - 0x155b486fff 0x155b487000 - 0x155b489fff 0x155b48a000 - 0x155b48cfff 0x155b48d000 - 0x155b491fff 0x155b492000 - 0x155b4e6fff 0x155b4e7000 - 0x155bb91fff 0x3fffaa4000 - 0x3fffac4fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-slots2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3571e000 - 0x3573efff 0x80000000 - 0x800bffff 0x158ad06000 - 0x158ad20fff 0x158ad21000 - 0x158ad21fff 0x158ad22000 - 0x158ad22fff 0x158ad23000 - 0x158ad24fff 0x158ad25000 - 0x158ad26fff 0x158ad27000 - 0x158ad2dfff 0x158ad2e000 - 0x158ad2efff 0x158ad2f000 - 0x158ad2ffff 0x158ad32000 - 0x158ad33fff 0x158ad34000 - 0x158ad72fff 0x158ad73000 - 0x158ad74fff 0x158ad75000 - 0x158ad7bfff 0x158ad7c000 - 0x158ad7cfff 0x158ad7d000 - 0x158ada2fff 0x158ada3000 - 0x158ada6fff 0x158ada7000 - 0x158ada7fff 0x158ada8000 - 0x158ada9fff 0x158adaa000 - 0x158adaafff 0x158adab000 - 0x158adabfff 0x158adac000 - 0x158adacfff 0x158adad000 - 0x158adb0fff 0x158adb1000 - 0x158adb1fff 0x158adb2000 - 0x158adb2fff 0x158adb3000 - 0x158adb4fff 0x158adb5000 - 0x158adb5fff 0x158adb6000 - 0x158adb6fff 0x158adb7000 - 0x158af22fff 0x158af23000 - 0x158af25fff 0x158af26000 - 0x158af26fff 0x158af27000 - 0x158af29fff 0x158af2a000 - 0x158af3cfff 0x158af3d000 - 0x158af3dfff 0x158af3e000 - 0x158af3efff 0x158af3f000 - 0x158b05dfff 0x158b05e000 - 0x158b060fff 0x158b061000 - 0x158b063fff 0x158b064000 - 0x158b068fff 0x158b069000 - 0x158b0bdfff 0x158b0be000 - 0x158b768fff 0x3fffafe000 - 0x3fffb1efff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-method1.lisp ... WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1bb5c000 - 0x1bb7cfff 0x80000000 - 0x800bffff 0x157283f000 - 0x1572859fff 0x157285a000 - 0x157285afff 0x157285b000 - 0x157285bfff 0x157285c000 - 0x157285dfff 0x157285e000 - 0x157285ffff 0x1572860000 - 0x1572866fff 0x1572867000 - 0x1572867fff 0x1572868000 - 0x1572868fff 0x157286b000 - 0x157286cfff 0x157286d000 - 0x15728abfff 0x15728ac000 - 0x15728adfff 0x15728ae000 - 0x15728b4fff 0x15728b5000 - 0x15728b5fff 0x15728b6000 - 0x15728dbfff 0x15728dc000 - 0x15728dffff 0x15728e0000 - 0x15728e0fff 0x15728e1000 - 0x15728e2fff 0x15728e3000 - 0x15728e3fff 0x15728e4000 - 0x15728e4fff 0x15728e5000 - 0x15728e5fff 0x15728e6000 - 0x15728e9fff 0x15728ea000 - 0x15728eafff 0x15728eb000 - 0x15728ebfff 0x15728ec000 - 0x15728edfff 0x15728ee000 - 0x15728eefff 0x15728ef000 - 0x15728effff 0x15728f0000 - 0x1572a5bfff 0x1572a5c000 - 0x1572a5efff 0x1572a5f000 - 0x1572a5ffff 0x1572a60000 - 0x1572a62fff 0x1572a63000 - 0x1572a75fff 0x1572a76000 - 0x1572a76fff 0x1572a77000 - 0x1572a77fff 0x1572a78000 - 0x1572b96fff 0x1572b97000 - 0x1572b99fff 0x1572b9a000 - 0x1572b9cfff 0x1572b9d000 - 0x1572ba1fff 0x1572ba2000 - 0x1572bf6fff 0x1572bf7000 - 0x15732a1fff 0x3fffe6d000 - 0x3fffe8dfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-method2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x35ec7000 - 0x35ee7fff 0x80000000 - 0x800bffff 0x15580c6000 - 0x15580e0fff 0x15580e1000 - 0x15580e1fff 0x15580e2000 - 0x15580e2fff 0x15580e3000 - 0x15580e4fff 0x15580e5000 - 0x15580e6fff 0x15580e7000 - 0x15580edfff 0x15580ee000 - 0x15580eefff 0x15580ef000 - 0x15580effff 0x15580f2000 - 0x15580f3fff 0x15580f4000 - 0x1558132fff 0x1558133000 - 0x1558134fff 0x1558135000 - 0x155813bfff 0x155813c000 - 0x155813cfff 0x155813d000 - 0x1558162fff 0x1558163000 - 0x1558166fff 0x1558167000 - 0x1558167fff 0x1558168000 - 0x1558169fff 0x155816a000 - 0x155816afff 0x155816b000 - 0x155816bfff 0x155816c000 - 0x155816cfff 0x155816d000 - 0x1558170fff 0x1558171000 - 0x1558171fff 0x1558172000 - 0x1558172fff 0x1558173000 - 0x1558174fff 0x1558175000 - 0x1558175fff 0x1558176000 - 0x1558176fff 0x1558177000 - 0x15582e2fff 0x15582e3000 - 0x15582e5fff 0x15582e6000 - 0x15582e6fff 0x15582e7000 - 0x15582e9fff 0x15582ea000 - 0x15582fcfff 0x15582fd000 - 0x15582fdfff 0x15582fe000 - 0x15582fefff 0x15582ff000 - 0x155841dfff 0x155841e000 - 0x1558420fff 0x1558421000 - 0x1558423fff 0x1558424000 - 0x1558428fff 0x1558429000 - 0x155847dfff 0x155847e000 - 0x1558b28fff 0x3fff80c000 - 0x3fff82cfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-method3.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x292e0000 - 0x29300fff 0x80000000 - 0x800bffff 0x1573f43000 - 0x1573f5dfff 0x1573f5e000 - 0x1573f5efff 0x1573f5f000 - 0x1573f5ffff 0x1573f60000 - 0x1573f61fff 0x1573f62000 - 0x1573f63fff 0x1573f64000 - 0x1573f6afff 0x1573f6b000 - 0x1573f6bfff 0x1573f6c000 - 0x1573f6cfff 0x1573f6f000 - 0x1573f70fff 0x1573f71000 - 0x1573faffff 0x1573fb0000 - 0x1573fb1fff 0x1573fb2000 - 0x1573fb8fff 0x1573fb9000 - 0x1573fb9fff 0x1573fba000 - 0x1573fdffff 0x1573fe0000 - 0x1573fe3fff 0x1573fe4000 - 0x1573fe4fff 0x1573fe5000 - 0x1573fe6fff 0x1573fe7000 - 0x1573fe7fff 0x1573fe8000 - 0x1573fe8fff 0x1573fe9000 - 0x1573fe9fff 0x1573fea000 - 0x1573fedfff 0x1573fee000 - 0x1573feefff 0x1573fef000 - 0x1573feffff 0x1573ff0000 - 0x1573ff1fff 0x1573ff2000 - 0x1573ff2fff 0x1573ff3000 - 0x1573ff3fff 0x1573ff4000 - 0x157415ffff 0x1574160000 - 0x1574162fff 0x1574163000 - 0x1574163fff 0x1574164000 - 0x1574166fff 0x1574167000 - 0x1574179fff 0x157417a000 - 0x157417afff 0x157417b000 - 0x157417bfff 0x157417c000 - 0x157429afff 0x157429b000 - 0x157429dfff 0x157429e000 - 0x15742a0fff 0x15742a1000 - 0x15742a5fff 0x15742a6000 - 0x15742fafff 0x15742fb000 - 0x15749a5fff 0x3fff9b3000 - 0x3fff9d3fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-method4.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1469000 - 0x1489fff 0x80000000 - 0x800bffff 0x1568124000 - 0x156813efff 0x156813f000 - 0x156813ffff 0x1568140000 - 0x1568140fff 0x1568141000 - 0x1568142fff 0x1568143000 - 0x1568144fff 0x1568145000 - 0x156814bfff 0x156814c000 - 0x156814cfff 0x156814d000 - 0x156814dfff 0x1568150000 - 0x1568151fff 0x1568152000 - 0x1568190fff 0x1568191000 - 0x1568192fff 0x1568193000 - 0x1568199fff 0x156819a000 - 0x156819afff 0x156819b000 - 0x15681c0fff 0x15681c1000 - 0x15681c4fff 0x15681c5000 - 0x15681c5fff 0x15681c6000 - 0x15681c7fff 0x15681c8000 - 0x15681c8fff 0x15681c9000 - 0x15681c9fff 0x15681ca000 - 0x15681cafff 0x15681cb000 - 0x15681cefff 0x15681cf000 - 0x15681cffff 0x15681d0000 - 0x15681d0fff 0x15681d1000 - 0x15681d2fff 0x15681d3000 - 0x15681d3fff 0x15681d4000 - 0x15681d4fff 0x15681d5000 - 0x1568340fff 0x1568341000 - 0x1568343fff 0x1568344000 - 0x1568344fff 0x1568345000 - 0x1568347fff 0x1568348000 - 0x156835afff 0x156835b000 - 0x156835bfff 0x156835c000 - 0x156835cfff 0x156835d000 - 0x156847bfff 0x156847c000 - 0x156847efff 0x156847f000 - 0x1568481fff 0x1568482000 - 0x1568486fff 0x1568487000 - 0x15684dbfff 0x15684dc000 - 0x1568b86fff 0x3fff99a000 - 0x3fff9bafff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-methcomb1.lisp ... WARNING: Redefining metaobject class # has no effect. ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x202c5000 - 0x202e5fff 0x80000000 - 0x800bffff 0x157007f000 - 0x1570099fff 0x157009a000 - 0x157009afff 0x157009b000 - 0x157009bfff 0x157009c000 - 0x157009dfff 0x157009e000 - 0x157009ffff 0x15700a0000 - 0x15700a6fff 0x15700a7000 - 0x15700a7fff 0x15700a8000 - 0x15700a8fff 0x15700ab000 - 0x15700acfff 0x15700ad000 - 0x15700ebfff 0x15700ec000 - 0x15700edfff 0x15700ee000 - 0x15700f4fff 0x15700f5000 - 0x15700f5fff 0x15700f6000 - 0x157011bfff 0x157011c000 - 0x157011ffff 0x1570120000 - 0x1570120fff 0x1570121000 - 0x1570122fff 0x1570123000 - 0x1570123fff 0x1570124000 - 0x1570124fff 0x1570125000 - 0x1570125fff 0x1570126000 - 0x1570129fff 0x157012a000 - 0x157012afff 0x157012b000 - 0x157012bfff 0x157012c000 - 0x157012dfff 0x157012e000 - 0x157012efff 0x157012f000 - 0x157012ffff 0x1570130000 - 0x157029bfff 0x157029c000 - 0x157029efff 0x157029f000 - 0x157029ffff 0x15702a0000 - 0x15702a2fff 0x15702a3000 - 0x15702b5fff 0x15702b6000 - 0x15702b6fff 0x15702b7000 - 0x15702b7fff 0x15702b8000 - 0x15703d6fff 0x15703d7000 - 0x15703d9fff 0x15703da000 - 0x15703dcfff 0x15703dd000 - 0x15703e1fff 0x15703e2000 - 0x1570436fff 0x1570437000 - 0x1570ae1fff 0x3fffaf8000 - 0x3fffb18fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-methcomb2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x18b08000 - 0x18b28fff 0x80000000 - 0x800bffff 0x1556b0a000 - 0x1556b24fff 0x1556b25000 - 0x1556b25fff 0x1556b26000 - 0x1556b26fff 0x1556b27000 - 0x1556b28fff 0x1556b29000 - 0x1556b2afff 0x1556b2b000 - 0x1556b31fff 0x1556b32000 - 0x1556b32fff 0x1556b33000 - 0x1556b33fff 0x1556b36000 - 0x1556b37fff 0x1556b38000 - 0x1556b76fff 0x1556b77000 - 0x1556b78fff 0x1556b79000 - 0x1556b7ffff 0x1556b80000 - 0x1556b80fff 0x1556b81000 - 0x1556ba6fff 0x1556ba7000 - 0x1556baafff 0x1556bab000 - 0x1556babfff 0x1556bac000 - 0x1556badfff 0x1556bae000 - 0x1556baefff 0x1556baf000 - 0x1556baffff 0x1556bb0000 - 0x1556bb0fff 0x1556bb1000 - 0x1556bb4fff 0x1556bb5000 - 0x1556bb5fff 0x1556bb6000 - 0x1556bb6fff 0x1556bb7000 - 0x1556bb8fff 0x1556bb9000 - 0x1556bb9fff 0x1556bba000 - 0x1556bbafff 0x1556bbb000 - 0x1556d26fff 0x1556d27000 - 0x1556d29fff 0x1556d2a000 - 0x1556d2afff 0x1556d2b000 - 0x1556d2dfff 0x1556d2e000 - 0x1556d40fff 0x1556d41000 - 0x1556d41fff 0x1556d42000 - 0x1556d42fff 0x1556d43000 - 0x1556e61fff 0x1556e62000 - 0x1556e64fff 0x1556e65000 - 0x1556e67fff 0x1556e68000 - 0x1556e6cfff 0x1556e6d000 - 0x1556ec1fff 0x1556ec2000 - 0x155756cfff 0x3ffffba000 - 0x3ffffdafff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-methcomb3.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x11918000 - 0x11938fff 0x80000000 - 0x800bffff 0x1578485000 - 0x157849ffff 0x15784a0000 - 0x15784a0fff 0x15784a1000 - 0x15784a1fff 0x15784a2000 - 0x15784a3fff 0x15784a4000 - 0x15784a5fff 0x15784a6000 - 0x15784acfff 0x15784ad000 - 0x15784adfff 0x15784ae000 - 0x15784aefff 0x15784b1000 - 0x15784b2fff 0x15784b3000 - 0x15784f1fff 0x15784f2000 - 0x15784f3fff 0x15784f4000 - 0x15784fafff 0x15784fb000 - 0x15784fbfff 0x15784fc000 - 0x1578521fff 0x1578522000 - 0x1578525fff 0x1578526000 - 0x1578526fff 0x1578527000 - 0x1578528fff 0x1578529000 - 0x1578529fff 0x157852a000 - 0x157852afff 0x157852b000 - 0x157852bfff 0x157852c000 - 0x157852ffff 0x1578530000 - 0x1578530fff 0x1578531000 - 0x1578531fff 0x1578532000 - 0x1578533fff 0x1578534000 - 0x1578534fff 0x1578535000 - 0x1578535fff 0x1578536000 - 0x15786a1fff 0x15786a2000 - 0x15786a4fff 0x15786a5000 - 0x15786a5fff 0x15786a6000 - 0x15786a8fff 0x15786a9000 - 0x15786bbfff 0x15786bc000 - 0x15786bcfff 0x15786bd000 - 0x15786bdfff 0x15786be000 - 0x15787dcfff 0x15787dd000 - 0x15787dffff 0x15787e0000 - 0x15787e2fff 0x15787e3000 - 0x15787e7fff 0x15787e8000 - 0x157883cfff 0x157883d000 - 0x1578ee7fff 0x3fff8cd000 - 0x3fff8edfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-methcomb4.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3962c000 - 0x3964cfff 0x80000000 - 0x800bffff 0x159060c000 - 0x1590626fff 0x1590627000 - 0x1590627fff 0x1590628000 - 0x1590628fff 0x1590629000 - 0x159062afff 0x159062b000 - 0x159062cfff 0x159062d000 - 0x1590633fff 0x1590634000 - 0x1590634fff 0x1590635000 - 0x1590635fff 0x1590638000 - 0x1590639fff 0x159063a000 - 0x1590678fff 0x1590679000 - 0x159067afff 0x159067b000 - 0x1590681fff 0x1590682000 - 0x1590682fff 0x1590683000 - 0x15906a8fff 0x15906a9000 - 0x15906acfff 0x15906ad000 - 0x15906adfff 0x15906ae000 - 0x15906affff 0x15906b0000 - 0x15906b0fff 0x15906b1000 - 0x15906b1fff 0x15906b2000 - 0x15906b2fff 0x15906b3000 - 0x15906b6fff 0x15906b7000 - 0x15906b7fff 0x15906b8000 - 0x15906b8fff 0x15906b9000 - 0x15906bafff 0x15906bb000 - 0x15906bbfff 0x15906bc000 - 0x15906bcfff 0x15906bd000 - 0x1590828fff 0x1590829000 - 0x159082bfff 0x159082c000 - 0x159082cfff 0x159082d000 - 0x159082ffff 0x1590830000 - 0x1590842fff 0x1590843000 - 0x1590843fff 0x1590844000 - 0x1590844fff 0x1590845000 - 0x1590963fff 0x1590964000 - 0x1590966fff 0x1590967000 - 0x1590969fff 0x159096a000 - 0x159096efff 0x159096f000 - 0x15909c3fff 0x15909c4000 - 0x159106efff 0x3fffba2000 - 0x3fffbc2fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun1.lisp ... WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. WARNING: Redefining metaobject class # has no effect. ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0xcfc4000 - 0xcfe4fff 0x80000000 - 0x800bffff 0x157375c000 - 0x1573776fff 0x1573777000 - 0x1573777fff 0x1573778000 - 0x1573778fff 0x1573779000 - 0x157377afff 0x157377b000 - 0x157377cfff 0x157377d000 - 0x1573783fff 0x1573784000 - 0x1573784fff 0x1573785000 - 0x1573785fff 0x1573788000 - 0x1573789fff 0x157378a000 - 0x15737c8fff 0x15737c9000 - 0x15737cafff 0x15737cb000 - 0x15737d1fff 0x15737d2000 - 0x15737d2fff 0x15737d3000 - 0x15737f8fff 0x15737f9000 - 0x15737fcfff 0x15737fd000 - 0x15737fdfff 0x15737fe000 - 0x15737fffff 0x1573800000 - 0x1573800fff 0x1573801000 - 0x1573801fff 0x1573802000 - 0x1573802fff 0x1573803000 - 0x1573806fff 0x1573807000 - 0x1573807fff 0x1573808000 - 0x1573808fff 0x1573809000 - 0x157380afff 0x157380b000 - 0x157380bfff 0x157380c000 - 0x157380cfff 0x157380d000 - 0x1573978fff 0x1573979000 - 0x157397bfff 0x157397c000 - 0x157397cfff 0x157397d000 - 0x157397ffff 0x1573980000 - 0x1573992fff 0x1573993000 - 0x1573993fff 0x1573994000 - 0x1573994fff 0x1573995000 - 0x1573ab3fff 0x1573ab4000 - 0x1573ab6fff 0x1573ab7000 - 0x1573ab9fff 0x1573aba000 - 0x1573abefff 0x1573abf000 - 0x1573b13fff 0x1573b14000 - 0x15741befff 0x3ffff48000 - 0x3ffff68fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun2a.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1d459000 - 0x1d479fff 0x80000000 - 0x800bffff 0x158177d000 - 0x1581797fff 0x1581798000 - 0x1581798fff 0x1581799000 - 0x1581799fff 0x158179a000 - 0x158179bfff 0x158179c000 - 0x158179dfff 0x158179e000 - 0x15817a4fff 0x15817a5000 - 0x15817a5fff 0x15817a6000 - 0x15817a6fff 0x15817a9000 - 0x15817aafff 0x15817ab000 - 0x15817e9fff 0x15817ea000 - 0x15817ebfff 0x15817ec000 - 0x15817f2fff 0x15817f3000 - 0x15817f3fff 0x15817f4000 - 0x1581819fff 0x158181a000 - 0x158181dfff 0x158181e000 - 0x158181efff 0x158181f000 - 0x1581820fff 0x1581821000 - 0x1581821fff 0x1581822000 - 0x1581822fff 0x1581823000 - 0x1581823fff 0x1581824000 - 0x1581827fff 0x1581828000 - 0x1581828fff 0x1581829000 - 0x1581829fff 0x158182a000 - 0x158182bfff 0x158182c000 - 0x158182cfff 0x158182d000 - 0x158182dfff 0x158182e000 - 0x1581999fff 0x158199a000 - 0x158199cfff 0x158199d000 - 0x158199dfff 0x158199e000 - 0x15819a0fff 0x15819a1000 - 0x15819b3fff 0x15819b4000 - 0x15819b4fff 0x15819b5000 - 0x15819b5fff 0x15819b6000 - 0x1581ad4fff 0x1581ad5000 - 0x1581ad7fff 0x1581ad8000 - 0x1581adafff 0x1581adb000 - 0x1581adffff 0x1581ae0000 - 0x1581b34fff 0x1581b35000 - 0x15821dffff 0x3fff9d4000 - 0x3fff9f4fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun2b.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3faba000 - 0x3fadafff 0x80000000 - 0x800bffff 0x157aca4000 - 0x157acbefff 0x157acbf000 - 0x157acbffff 0x157acc0000 - 0x157acc0fff 0x157acc1000 - 0x157acc2fff 0x157acc3000 - 0x157acc4fff 0x157acc5000 - 0x157accbfff 0x157accc000 - 0x157acccfff 0x157accd000 - 0x157accdfff 0x157acd0000 - 0x157acd1fff 0x157acd2000 - 0x157ad10fff 0x157ad11000 - 0x157ad12fff 0x157ad13000 - 0x157ad19fff 0x157ad1a000 - 0x157ad1afff 0x157ad1b000 - 0x157ad40fff 0x157ad41000 - 0x157ad44fff 0x157ad45000 - 0x157ad45fff 0x157ad46000 - 0x157ad47fff 0x157ad48000 - 0x157ad48fff 0x157ad49000 - 0x157ad49fff 0x157ad4a000 - 0x157ad4afff 0x157ad4b000 - 0x157ad4efff 0x157ad4f000 - 0x157ad4ffff 0x157ad50000 - 0x157ad50fff 0x157ad51000 - 0x157ad52fff 0x157ad53000 - 0x157ad53fff 0x157ad54000 - 0x157ad54fff 0x157ad55000 - 0x157aec0fff 0x157aec1000 - 0x157aec3fff 0x157aec4000 - 0x157aec4fff 0x157aec5000 - 0x157aec7fff 0x157aec8000 - 0x157aedafff 0x157aedb000 - 0x157aedbfff 0x157aedc000 - 0x157aedcfff 0x157aedd000 - 0x157affbfff 0x157affc000 - 0x157affefff 0x157afff000 - 0x157b001fff 0x157b002000 - 0x157b006fff 0x157b007000 - 0x157b05bfff 0x157b05c000 - 0x157b706fff 0x3ffff34000 - 0x3ffff54fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun3.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1bf1a000 - 0x1bf3afff 0x80000000 - 0x800bffff 0x157a3c7000 - 0x157a3e1fff 0x157a3e2000 - 0x157a3e2fff 0x157a3e3000 - 0x157a3e3fff 0x157a3e4000 - 0x157a3e5fff 0x157a3e6000 - 0x157a3e7fff 0x157a3e8000 - 0x157a3eefff 0x157a3ef000 - 0x157a3effff 0x157a3f0000 - 0x157a3f0fff 0x157a3f3000 - 0x157a3f4fff 0x157a3f5000 - 0x157a433fff 0x157a434000 - 0x157a435fff 0x157a436000 - 0x157a43cfff 0x157a43d000 - 0x157a43dfff 0x157a43e000 - 0x157a463fff 0x157a464000 - 0x157a467fff 0x157a468000 - 0x157a468fff 0x157a469000 - 0x157a46afff 0x157a46b000 - 0x157a46bfff 0x157a46c000 - 0x157a46cfff 0x157a46d000 - 0x157a46dfff 0x157a46e000 - 0x157a471fff 0x157a472000 - 0x157a472fff 0x157a473000 - 0x157a473fff 0x157a474000 - 0x157a475fff 0x157a476000 - 0x157a476fff 0x157a477000 - 0x157a477fff 0x157a478000 - 0x157a5e3fff 0x157a5e4000 - 0x157a5e6fff 0x157a5e7000 - 0x157a5e7fff 0x157a5e8000 - 0x157a5eafff 0x157a5eb000 - 0x157a5fdfff 0x157a5fe000 - 0x157a5fefff 0x157a5ff000 - 0x157a5fffff 0x157a600000 - 0x157a71efff 0x157a71f000 - 0x157a721fff 0x157a722000 - 0x157a724fff 0x157a725000 - 0x157a729fff 0x157a72a000 - 0x157a77efff 0x157a77f000 - 0x157ae29fff 0x3ffff6a000 - 0x3ffff8afff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun4.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2ae0f000 - 0x2ae2ffff 0x80000000 - 0x800bffff 0x158fd62000 - 0x158fd7cfff 0x158fd7d000 - 0x158fd7dfff 0x158fd7e000 - 0x158fd7efff 0x158fd7f000 - 0x158fd80fff 0x158fd81000 - 0x158fd82fff 0x158fd83000 - 0x158fd89fff 0x158fd8a000 - 0x158fd8afff 0x158fd8b000 - 0x158fd8bfff 0x158fd8e000 - 0x158fd8ffff 0x158fd90000 - 0x158fdcefff 0x158fdcf000 - 0x158fdd0fff 0x158fdd1000 - 0x158fdd7fff 0x158fdd8000 - 0x158fdd8fff 0x158fdd9000 - 0x158fdfefff 0x158fdff000 - 0x158fe02fff 0x158fe03000 - 0x158fe03fff 0x158fe04000 - 0x158fe05fff 0x158fe06000 - 0x158fe06fff 0x158fe07000 - 0x158fe07fff 0x158fe08000 - 0x158fe08fff 0x158fe09000 - 0x158fe0cfff 0x158fe0d000 - 0x158fe0dfff 0x158fe0e000 - 0x158fe0efff 0x158fe0f000 - 0x158fe10fff 0x158fe11000 - 0x158fe11fff 0x158fe12000 - 0x158fe12fff 0x158fe13000 - 0x158ff7efff 0x158ff7f000 - 0x158ff81fff 0x158ff82000 - 0x158ff82fff 0x158ff83000 - 0x158ff85fff 0x158ff86000 - 0x158ff98fff 0x158ff99000 - 0x158ff99fff 0x158ff9a000 - 0x158ff9afff 0x158ff9b000 - 0x15900b9fff 0x15900ba000 - 0x15900bcfff 0x15900bd000 - 0x15900bffff 0x15900c0000 - 0x15900c4fff 0x15900c5000 - 0x1590119fff 0x159011a000 - 0x15907c4fff 0x3fffbe6000 - 0x3fffc06fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-genfun5.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1d014000 - 0x1d034fff 0x80000000 - 0x800bffff 0x1570f6c000 - 0x1570f86fff 0x1570f87000 - 0x1570f87fff 0x1570f88000 - 0x1570f88fff 0x1570f89000 - 0x1570f8afff 0x1570f8b000 - 0x1570f8cfff 0x1570f8d000 - 0x1570f93fff 0x1570f94000 - 0x1570f94fff 0x1570f95000 - 0x1570f95fff 0x1570f98000 - 0x1570f99fff 0x1570f9a000 - 0x1570fd8fff 0x1570fd9000 - 0x1570fdafff 0x1570fdb000 - 0x1570fe1fff 0x1570fe2000 - 0x1570fe2fff 0x1570fe3000 - 0x1571008fff 0x1571009000 - 0x157100cfff 0x157100d000 - 0x157100dfff 0x157100e000 - 0x157100ffff 0x1571010000 - 0x1571010fff 0x1571011000 - 0x1571011fff 0x1571012000 - 0x1571012fff 0x1571013000 - 0x1571016fff 0x1571017000 - 0x1571017fff 0x1571018000 - 0x1571018fff 0x1571019000 - 0x157101afff 0x157101b000 - 0x157101bfff 0x157101c000 - 0x157101cfff 0x157101d000 - 0x1571188fff 0x1571189000 - 0x157118bfff 0x157118c000 - 0x157118cfff 0x157118d000 - 0x157118ffff 0x1571190000 - 0x15711a2fff 0x15711a3000 - 0x15711a3fff 0x15711a4000 - 0x15711a4fff 0x15711a5000 - 0x15712c3fff 0x15712c4000 - 0x15712c6fff 0x15712c7000 - 0x15712c9fff 0x15712ca000 - 0x15712cefff 0x15712cf000 - 0x1571323fff 0x1571324000 - 0x15719cefff 0x3fffbf1000 - 0x3fffc11fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-dependent.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3a84b000 - 0x3a86bfff 0x80000000 - 0x800bffff 0x155b474000 - 0x155b48efff 0x155b48f000 - 0x155b48ffff 0x155b490000 - 0x155b490fff 0x155b491000 - 0x155b492fff 0x155b493000 - 0x155b494fff 0x155b495000 - 0x155b49bfff 0x155b49c000 - 0x155b49cfff 0x155b49d000 - 0x155b49dfff 0x155b4a0000 - 0x155b4a1fff 0x155b4a2000 - 0x155b4e0fff 0x155b4e1000 - 0x155b4e2fff 0x155b4e3000 - 0x155b4e9fff 0x155b4ea000 - 0x155b4eafff 0x155b4eb000 - 0x155b510fff 0x155b511000 - 0x155b514fff 0x155b515000 - 0x155b515fff 0x155b516000 - 0x155b517fff 0x155b518000 - 0x155b518fff 0x155b519000 - 0x155b519fff 0x155b51a000 - 0x155b51afff 0x155b51b000 - 0x155b51efff 0x155b51f000 - 0x155b51ffff 0x155b520000 - 0x155b520fff 0x155b521000 - 0x155b522fff 0x155b523000 - 0x155b523fff 0x155b524000 - 0x155b524fff 0x155b525000 - 0x155b690fff 0x155b691000 - 0x155b693fff 0x155b694000 - 0x155b694fff 0x155b695000 - 0x155b697fff 0x155b698000 - 0x155b6aafff 0x155b6ab000 - 0x155b6abfff 0x155b6ac000 - 0x155b6acfff 0x155b6ad000 - 0x155b7cbfff 0x155b7cc000 - 0x155b7cefff 0x155b7cf000 - 0x155b7d1fff 0x155b7d2000 - 0x155b7d6fff 0x155b7d7000 - 0x155b82bfff 0x155b82c000 - 0x155bed6fff 0x3fffdd5000 - 0x3fffdf5fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-print.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0xe789000 - 0xe7a9fff 0x80000000 - 0x800bffff 0x157cbcb000 - 0x157cbe5fff 0x157cbe6000 - 0x157cbe6fff 0x157cbe7000 - 0x157cbe7fff 0x157cbe8000 - 0x157cbe9fff 0x157cbea000 - 0x157cbebfff 0x157cbec000 - 0x157cbf2fff 0x157cbf3000 - 0x157cbf3fff 0x157cbf4000 - 0x157cbf4fff 0x157cbf7000 - 0x157cbf8fff 0x157cbf9000 - 0x157cc37fff 0x157cc38000 - 0x157cc39fff 0x157cc3a000 - 0x157cc40fff 0x157cc41000 - 0x157cc41fff 0x157cc42000 - 0x157cc67fff 0x157cc68000 - 0x157cc6bfff 0x157cc6c000 - 0x157cc6cfff 0x157cc6d000 - 0x157cc6efff 0x157cc6f000 - 0x157cc6ffff 0x157cc70000 - 0x157cc70fff 0x157cc71000 - 0x157cc71fff 0x157cc72000 - 0x157cc75fff 0x157cc76000 - 0x157cc76fff 0x157cc77000 - 0x157cc77fff 0x157cc78000 - 0x157cc79fff 0x157cc7a000 - 0x157cc7afff 0x157cc7b000 - 0x157cc7bfff 0x157cc7c000 - 0x157cde7fff 0x157cde8000 - 0x157cdeafff 0x157cdeb000 - 0x157cdebfff 0x157cdec000 - 0x157cdeefff 0x157cdef000 - 0x157ce01fff 0x157ce02000 - 0x157ce02fff 0x157ce03000 - 0x157ce03fff 0x157ce04000 - 0x157cf22fff 0x157cf23000 - 0x157cf25fff 0x157cf26000 - 0x157cf28fff 0x157cf29000 - 0x157cf2dfff 0x157cf2e000 - 0x157cf82fff 0x157cf83000 - 0x157d62dfff 0x3fff951000 - 0x3fff971fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clos-custom.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x96a8000 - 0x96c8fff 0x80000000 - 0x800bffff 0x1589f0c000 - 0x1589f26fff 0x1589f27000 - 0x1589f27fff 0x1589f28000 - 0x1589f28fff 0x1589f29000 - 0x1589f2afff 0x1589f2b000 - 0x1589f2cfff 0x1589f2d000 - 0x1589f33fff 0x1589f34000 - 0x1589f34fff 0x1589f35000 - 0x1589f35fff 0x1589f38000 - 0x1589f39fff 0x1589f3a000 - 0x1589f78fff 0x1589f79000 - 0x1589f7afff 0x1589f7b000 - 0x1589f81fff 0x1589f82000 - 0x1589f82fff 0x1589f83000 - 0x1589fa8fff 0x1589fa9000 - 0x1589facfff 0x1589fad000 - 0x1589fadfff 0x1589fae000 - 0x1589faffff 0x1589fb0000 - 0x1589fb0fff 0x1589fb1000 - 0x1589fb1fff 0x1589fb2000 - 0x1589fb2fff 0x1589fb3000 - 0x1589fb6fff 0x1589fb7000 - 0x1589fb7fff 0x1589fb8000 - 0x1589fb8fff 0x1589fb9000 - 0x1589fbafff 0x1589fbb000 - 0x1589fbbfff 0x1589fbc000 - 0x1589fbcfff 0x1589fbd000 - 0x158a128fff 0x158a129000 - 0x158a12bfff 0x158a12c000 - 0x158a12cfff 0x158a12d000 - 0x158a12ffff 0x158a130000 - 0x158a142fff 0x158a143000 - 0x158a143fff 0x158a144000 - 0x158a144fff 0x158a145000 - 0x158a263fff 0x158a264000 - 0x158a266fff 0x158a267000 - 0x158a269fff 0x158a26a000 - 0x158a26efff 0x158a26f000 - 0x158a2c3fff 0x158a2c4000 - 0x158a96efff 0x3fffbc5000 - 0x3fffbe5fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/documentation.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2032a000 - 0x2034afff 0x80000000 - 0x800bffff 0x1573768000 - 0x1573782fff 0x1573783000 - 0x1573783fff 0x1573784000 - 0x1573784fff 0x1573785000 - 0x1573786fff 0x1573787000 - 0x1573788fff 0x1573789000 - 0x157378ffff 0x1573790000 - 0x1573790fff 0x1573791000 - 0x1573791fff 0x1573794000 - 0x1573795fff 0x1573796000 - 0x15737d4fff 0x15737d5000 - 0x15737d6fff 0x15737d7000 - 0x15737ddfff 0x15737de000 - 0x15737defff 0x15737df000 - 0x1573804fff 0x1573805000 - 0x1573808fff 0x1573809000 - 0x1573809fff 0x157380a000 - 0x157380bfff 0x157380c000 - 0x157380cfff 0x157380d000 - 0x157380dfff 0x157380e000 - 0x157380efff 0x157380f000 - 0x1573812fff 0x1573813000 - 0x1573813fff 0x1573814000 - 0x1573814fff 0x1573815000 - 0x1573816fff 0x1573817000 - 0x1573817fff 0x1573818000 - 0x1573818fff 0x1573819000 - 0x1573984fff 0x1573985000 - 0x1573987fff 0x1573988000 - 0x1573988fff 0x1573989000 - 0x157398bfff 0x157398c000 - 0x157399efff 0x157399f000 - 0x157399ffff 0x15739a0000 - 0x15739a0fff 0x15739a1000 - 0x1573abffff 0x1573ac0000 - 0x1573ac2fff 0x1573ac3000 - 0x1573ac5fff 0x1573ac6000 - 0x1573acafff 0x1573acb000 - 0x1573b1ffff 0x1573b20000 - 0x15741cafff 0x3fffee0000 - 0x3ffff00fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/fill-out.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2c9fb000 - 0x2ca1bfff 0x80000000 - 0x800bffff 0x1579bdb000 - 0x1579bf5fff 0x1579bf6000 - 0x1579bf6fff 0x1579bf7000 - 0x1579bf7fff 0x1579bf8000 - 0x1579bf9fff 0x1579bfa000 - 0x1579bfbfff 0x1579bfc000 - 0x1579c02fff 0x1579c03000 - 0x1579c03fff 0x1579c04000 - 0x1579c04fff 0x1579c07000 - 0x1579c08fff 0x1579c09000 - 0x1579c47fff 0x1579c48000 - 0x1579c49fff 0x1579c4a000 - 0x1579c50fff 0x1579c51000 - 0x1579c51fff 0x1579c52000 - 0x1579c77fff 0x1579c78000 - 0x1579c7bfff 0x1579c7c000 - 0x1579c7cfff 0x1579c7d000 - 0x1579c7efff 0x1579c7f000 - 0x1579c7ffff 0x1579c80000 - 0x1579c80fff 0x1579c81000 - 0x1579c81fff 0x1579c82000 - 0x1579c85fff 0x1579c86000 - 0x1579c86fff 0x1579c87000 - 0x1579c87fff 0x1579c88000 - 0x1579c89fff 0x1579c8a000 - 0x1579c8afff 0x1579c8b000 - 0x1579c8bfff 0x1579c8c000 - 0x1579df7fff 0x1579df8000 - 0x1579dfafff 0x1579dfb000 - 0x1579dfbfff 0x1579dfc000 - 0x1579dfefff 0x1579dff000 - 0x1579e11fff 0x1579e12000 - 0x1579e12fff 0x1579e13000 - 0x1579e13fff 0x1579e14000 - 0x1579f32fff 0x1579f33000 - 0x1579f35fff 0x1579f36000 - 0x1579f38fff 0x1579f39000 - 0x1579f3dfff 0x1579f3e000 - 0x1579f92fff 0x1579f93000 - 0x157a63dfff 0x3fffde7000 - 0x3fffe07fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/disassem.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2c337000 - 0x2c357fff 0x80000000 - 0x800bffff 0x156dba6000 - 0x156dbc0fff 0x156dbc1000 - 0x156dbc1fff 0x156dbc2000 - 0x156dbc2fff 0x156dbc3000 - 0x156dbc4fff 0x156dbc5000 - 0x156dbc6fff 0x156dbc7000 - 0x156dbcdfff 0x156dbce000 - 0x156dbcefff 0x156dbcf000 - 0x156dbcffff 0x156dbd2000 - 0x156dbd3fff 0x156dbd4000 - 0x156dc12fff 0x156dc13000 - 0x156dc14fff 0x156dc15000 - 0x156dc1bfff 0x156dc1c000 - 0x156dc1cfff 0x156dc1d000 - 0x156dc42fff 0x156dc43000 - 0x156dc46fff 0x156dc47000 - 0x156dc47fff 0x156dc48000 - 0x156dc49fff 0x156dc4a000 - 0x156dc4afff 0x156dc4b000 - 0x156dc4bfff 0x156dc4c000 - 0x156dc4cfff 0x156dc4d000 - 0x156dc50fff 0x156dc51000 - 0x156dc51fff 0x156dc52000 - 0x156dc52fff 0x156dc53000 - 0x156dc54fff 0x156dc55000 - 0x156dc55fff 0x156dc56000 - 0x156dc56fff 0x156dc57000 - 0x156ddc2fff 0x156ddc3000 - 0x156ddc5fff 0x156ddc6000 - 0x156ddc6fff 0x156ddc7000 - 0x156ddc9fff 0x156ddca000 - 0x156dddcfff 0x156dddd000 - 0x156ddddfff 0x156ddde000 - 0x156dddefff 0x156dddf000 - 0x156defdfff 0x156defe000 - 0x156df00fff 0x156df01000 - 0x156df03fff 0x156df04000 - 0x156df08fff 0x156df09000 - 0x156df5dfff 0x156df5e000 - 0x156e608fff 0x3fffb89000 - 0x3fffba9fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/condition.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x65cf000 - 0x65effff 0x80000000 - 0x800bffff 0x15873c6000 - 0x15873e0fff 0x15873e1000 - 0x15873e1fff 0x15873e2000 - 0x15873e2fff 0x15873e3000 - 0x15873e4fff 0x15873e5000 - 0x15873e6fff 0x15873e7000 - 0x15873edfff 0x15873ee000 - 0x15873eefff 0x15873ef000 - 0x15873effff 0x15873f2000 - 0x15873f3fff 0x15873f4000 - 0x1587432fff 0x1587433000 - 0x1587434fff 0x1587435000 - 0x158743bfff 0x158743c000 - 0x158743cfff 0x158743d000 - 0x1587462fff 0x1587463000 - 0x1587466fff 0x1587467000 - 0x1587467fff 0x1587468000 - 0x1587469fff 0x158746a000 - 0x158746afff 0x158746b000 - 0x158746bfff 0x158746c000 - 0x158746cfff 0x158746d000 - 0x1587470fff 0x1587471000 - 0x1587471fff 0x1587472000 - 0x1587472fff 0x1587473000 - 0x1587474fff 0x1587475000 - 0x1587475fff 0x1587476000 - 0x1587476fff 0x1587477000 - 0x15875e2fff 0x15875e3000 - 0x15875e5fff 0x15875e6000 - 0x15875e6fff 0x15875e7000 - 0x15875e9fff 0x15875ea000 - 0x15875fcfff 0x15875fd000 - 0x15875fdfff 0x15875fe000 - 0x15875fefff 0x15875ff000 - 0x158771dfff 0x158771e000 - 0x1587720fff 0x1587721000 - 0x1587723fff 0x1587724000 - 0x1587728fff 0x1587729000 - 0x158777dfff 0x158777e000 - 0x1587e28fff 0x3fffb28000 - 0x3fffb48fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/loadform.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x25443000 - 0x25463fff 0x80000000 - 0x800bffff 0x158621b000 - 0x1586235fff 0x1586236000 - 0x1586236fff 0x1586237000 - 0x1586237fff 0x1586238000 - 0x1586239fff 0x158623a000 - 0x158623bfff 0x158623c000 - 0x1586242fff 0x1586243000 - 0x1586243fff 0x1586244000 - 0x1586244fff 0x1586247000 - 0x1586248fff 0x1586249000 - 0x1586287fff 0x1586288000 - 0x1586289fff 0x158628a000 - 0x1586290fff 0x1586291000 - 0x1586291fff 0x1586292000 - 0x15862b7fff 0x15862b8000 - 0x15862bbfff 0x15862bc000 - 0x15862bcfff 0x15862bd000 - 0x15862befff 0x15862bf000 - 0x15862bffff 0x15862c0000 - 0x15862c0fff 0x15862c1000 - 0x15862c1fff 0x15862c2000 - 0x15862c5fff 0x15862c6000 - 0x15862c6fff 0x15862c7000 - 0x15862c7fff 0x15862c8000 - 0x15862c9fff 0x15862ca000 - 0x15862cafff 0x15862cb000 - 0x15862cbfff 0x15862cc000 - 0x1586437fff 0x1586438000 - 0x158643afff 0x158643b000 - 0x158643bfff 0x158643c000 - 0x158643efff 0x158643f000 - 0x1586451fff 0x1586452000 - 0x1586452fff 0x1586453000 - 0x1586453fff 0x1586454000 - 0x1586572fff 0x1586573000 - 0x1586575fff 0x1586576000 - 0x1586578fff 0x1586579000 - 0x158657dfff 0x158657e000 - 0x15865d2fff 0x15865d3000 - 0x1586c7dfff 0x3fffbde000 - 0x3fffbfefff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gstream.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1a994000 - 0x1a9b4fff 0x80000000 - 0x800bffff 0x157d525000 - 0x157d53ffff 0x157d540000 - 0x157d540fff 0x157d541000 - 0x157d541fff 0x157d542000 - 0x157d543fff 0x157d544000 - 0x157d545fff 0x157d546000 - 0x157d54cfff 0x157d54d000 - 0x157d54dfff 0x157d54e000 - 0x157d54efff 0x157d551000 - 0x157d552fff 0x157d553000 - 0x157d591fff 0x157d592000 - 0x157d593fff 0x157d594000 - 0x157d59afff 0x157d59b000 - 0x157d59bfff 0x157d59c000 - 0x157d5c1fff 0x157d5c2000 - 0x157d5c5fff 0x157d5c6000 - 0x157d5c6fff 0x157d5c7000 - 0x157d5c8fff 0x157d5c9000 - 0x157d5c9fff 0x157d5ca000 - 0x157d5cafff 0x157d5cb000 - 0x157d5cbfff 0x157d5cc000 - 0x157d5cffff 0x157d5d0000 - 0x157d5d0fff 0x157d5d1000 - 0x157d5d1fff 0x157d5d2000 - 0x157d5d3fff 0x157d5d4000 - 0x157d5d4fff 0x157d5d5000 - 0x157d5d5fff 0x157d5d6000 - 0x157d741fff 0x157d742000 - 0x157d744fff 0x157d745000 - 0x157d745fff 0x157d746000 - 0x157d748fff 0x157d749000 - 0x157d75bfff 0x157d75c000 - 0x157d75cfff 0x157d75d000 - 0x157d75dfff 0x157d75e000 - 0x157d87cfff 0x157d87d000 - 0x157d87ffff 0x157d880000 - 0x157d882fff 0x157d883000 - 0x157d887fff 0x157d888000 - 0x157d8dcfff 0x157d8dd000 - 0x157df87fff 0x3fffe47000 - 0x3fffe67fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/xcharin.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3f6bf000 - 0x3f6dffff 0x80000000 - 0x800bffff 0x1579ba0000 - 0x1579bbafff 0x1579bbb000 - 0x1579bbbfff 0x1579bbc000 - 0x1579bbcfff 0x1579bbd000 - 0x1579bbefff 0x1579bbf000 - 0x1579bc0fff 0x1579bc1000 - 0x1579bc7fff 0x1579bc8000 - 0x1579bc8fff 0x1579bc9000 - 0x1579bc9fff 0x1579bcc000 - 0x1579bcdfff 0x1579bce000 - 0x1579c0cfff 0x1579c0d000 - 0x1579c0efff 0x1579c0f000 - 0x1579c15fff 0x1579c16000 - 0x1579c16fff 0x1579c17000 - 0x1579c3cfff 0x1579c3d000 - 0x1579c40fff 0x1579c41000 - 0x1579c41fff 0x1579c42000 - 0x1579c43fff 0x1579c44000 - 0x1579c44fff 0x1579c45000 - 0x1579c45fff 0x1579c46000 - 0x1579c46fff 0x1579c47000 - 0x1579c4afff 0x1579c4b000 - 0x1579c4bfff 0x1579c4c000 - 0x1579c4cfff 0x1579c4d000 - 0x1579c4efff 0x1579c4f000 - 0x1579c4ffff 0x1579c50000 - 0x1579c50fff 0x1579c51000 - 0x1579dbcfff 0x1579dbd000 - 0x1579dbffff 0x1579dc0000 - 0x1579dc0fff 0x1579dc1000 - 0x1579dc3fff 0x1579dc4000 - 0x1579dd6fff 0x1579dd7000 - 0x1579dd7fff 0x1579dd8000 - 0x1579dd8fff 0x1579dd9000 - 0x1579ef7fff 0x1579ef8000 - 0x1579efafff 0x1579efb000 - 0x1579efdfff 0x1579efe000 - 0x1579f02fff 0x1579f03000 - 0x1579f57fff 0x1579f58000 - 0x157a602fff 0x3fffcd3000 - 0x3fffcf3fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/keyboard.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x23ca2000 - 0x23cc2fff 0x80000000 - 0x800bffff 0x15871e9000 - 0x1587203fff 0x1587204000 - 0x1587204fff 0x1587205000 - 0x1587205fff 0x1587206000 - 0x1587207fff 0x1587208000 - 0x1587209fff 0x158720a000 - 0x1587210fff 0x1587211000 - 0x1587211fff 0x1587212000 - 0x1587212fff 0x1587215000 - 0x1587216fff 0x1587217000 - 0x1587255fff 0x1587256000 - 0x1587257fff 0x1587258000 - 0x158725efff 0x158725f000 - 0x158725ffff 0x1587260000 - 0x1587285fff 0x1587286000 - 0x1587289fff 0x158728a000 - 0x158728afff 0x158728b000 - 0x158728cfff 0x158728d000 - 0x158728dfff 0x158728e000 - 0x158728efff 0x158728f000 - 0x158728ffff 0x1587290000 - 0x1587293fff 0x1587294000 - 0x1587294fff 0x1587295000 - 0x1587295fff 0x1587296000 - 0x1587297fff 0x1587298000 - 0x1587298fff 0x1587299000 - 0x1587299fff 0x158729a000 - 0x1587405fff 0x1587406000 - 0x1587408fff 0x1587409000 - 0x1587409fff 0x158740a000 - 0x158740cfff 0x158740d000 - 0x158741ffff 0x1587420000 - 0x1587420fff 0x1587421000 - 0x1587421fff 0x1587422000 - 0x1587540fff 0x1587541000 - 0x1587543fff 0x1587544000 - 0x1587546fff 0x1587547000 - 0x158754bfff 0x158754c000 - 0x15875a0fff 0x15875a1000 - 0x1587c4bfff 0x3fff904000 - 0x3fff924fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/screen.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x30576000 - 0x30596fff 0x80000000 - 0x800bffff 0x1564ca9000 - 0x1564cc3fff 0x1564cc4000 - 0x1564cc4fff 0x1564cc5000 - 0x1564cc5fff 0x1564cc6000 - 0x1564cc7fff 0x1564cc8000 - 0x1564cc9fff 0x1564cca000 - 0x1564cd0fff 0x1564cd1000 - 0x1564cd1fff 0x1564cd2000 - 0x1564cd2fff 0x1564cd5000 - 0x1564cd6fff 0x1564cd7000 - 0x1564d15fff 0x1564d16000 - 0x1564d17fff 0x1564d18000 - 0x1564d1efff 0x1564d1f000 - 0x1564d1ffff 0x1564d20000 - 0x1564d45fff 0x1564d46000 - 0x1564d49fff 0x1564d4a000 - 0x1564d4afff 0x1564d4b000 - 0x1564d4cfff 0x1564d4d000 - 0x1564d4dfff 0x1564d4e000 - 0x1564d4efff 0x1564d4f000 - 0x1564d4ffff 0x1564d50000 - 0x1564d53fff 0x1564d54000 - 0x1564d54fff 0x1564d55000 - 0x1564d55fff 0x1564d56000 - 0x1564d57fff 0x1564d58000 - 0x1564d58fff 0x1564d59000 - 0x1564d59fff 0x1564d5a000 - 0x1564ec5fff 0x1564ec6000 - 0x1564ec8fff 0x1564ec9000 - 0x1564ec9fff 0x1564eca000 - 0x1564eccfff 0x1564ecd000 - 0x1564edffff 0x1564ee0000 - 0x1564ee0fff 0x1564ee1000 - 0x1564ee1fff 0x1564ee2000 - 0x1565000fff 0x1565001000 - 0x1565003fff 0x1565004000 - 0x1565006fff 0x1565007000 - 0x156500bfff 0x156500c000 - 0x1565060fff 0x1565061000 - 0x156570bfff 0x3ffffdc000 - 0x3fffffcfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/runprog.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3e692000 - 0x3e6b2fff 0x80000000 - 0x800bffff 0x158bf3f000 - 0x158bf59fff 0x158bf5a000 - 0x158bf5afff 0x158bf5b000 - 0x158bf5bfff 0x158bf5c000 - 0x158bf5dfff 0x158bf5e000 - 0x158bf5ffff 0x158bf60000 - 0x158bf66fff 0x158bf67000 - 0x158bf67fff 0x158bf68000 - 0x158bf68fff 0x158bf6b000 - 0x158bf6cfff 0x158bf6d000 - 0x158bfabfff 0x158bfac000 - 0x158bfadfff 0x158bfae000 - 0x158bfb4fff 0x158bfb5000 - 0x158bfb5fff 0x158bfb6000 - 0x158bfdbfff 0x158bfdc000 - 0x158bfdffff 0x158bfe0000 - 0x158bfe0fff 0x158bfe1000 - 0x158bfe2fff 0x158bfe3000 - 0x158bfe3fff 0x158bfe4000 - 0x158bfe4fff 0x158bfe5000 - 0x158bfe5fff 0x158bfe6000 - 0x158bfe9fff 0x158bfea000 - 0x158bfeafff 0x158bfeb000 - 0x158bfebfff 0x158bfec000 - 0x158bfedfff 0x158bfee000 - 0x158bfeefff 0x158bfef000 - 0x158bfeffff 0x158bff0000 - 0x158c15bfff 0x158c15c000 - 0x158c15efff 0x158c15f000 - 0x158c15ffff 0x158c160000 - 0x158c162fff 0x158c163000 - 0x158c175fff 0x158c176000 - 0x158c176fff 0x158c177000 - 0x158c177fff 0x158c178000 - 0x158c296fff 0x158c297000 - 0x158c299fff 0x158c29a000 - 0x158c29cfff 0x158c29d000 - 0x158c2a1fff 0x158c2a2000 - 0x158c2f6fff 0x158c2f7000 - 0x158c9a1fff 0x3fff96f000 - 0x3fff98ffff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/query.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1616b000 - 0x1618bfff 0x80000000 - 0x800bffff 0x158ac07000 - 0x158ac21fff 0x158ac22000 - 0x158ac22fff 0x158ac23000 - 0x158ac23fff 0x158ac24000 - 0x158ac25fff 0x158ac26000 - 0x158ac27fff 0x158ac28000 - 0x158ac2efff 0x158ac2f000 - 0x158ac2ffff 0x158ac30000 - 0x158ac30fff 0x158ac33000 - 0x158ac34fff 0x158ac35000 - 0x158ac73fff 0x158ac74000 - 0x158ac75fff 0x158ac76000 - 0x158ac7cfff 0x158ac7d000 - 0x158ac7dfff 0x158ac7e000 - 0x158aca3fff 0x158aca4000 - 0x158aca7fff 0x158aca8000 - 0x158aca8fff 0x158aca9000 - 0x158acaafff 0x158acab000 - 0x158acabfff 0x158acac000 - 0x158acacfff 0x158acad000 - 0x158acadfff 0x158acae000 - 0x158acb1fff 0x158acb2000 - 0x158acb2fff 0x158acb3000 - 0x158acb3fff 0x158acb4000 - 0x158acb5fff 0x158acb6000 - 0x158acb6fff 0x158acb7000 - 0x158acb7fff 0x158acb8000 - 0x158ae23fff 0x158ae24000 - 0x158ae26fff 0x158ae27000 - 0x158ae27fff 0x158ae28000 - 0x158ae2afff 0x158ae2b000 - 0x158ae3dfff 0x158ae3e000 - 0x158ae3efff 0x158ae3f000 - 0x158ae3ffff 0x158ae40000 - 0x158af5efff 0x158af5f000 - 0x158af61fff 0x158af62000 - 0x158af64fff 0x158af65000 - 0x158af69fff 0x158af6a000 - 0x158afbefff 0x158afbf000 - 0x158b669fff 0x3fffa3d000 - 0x3fffa5dfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/reploop.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x34e2a000 - 0x34e4afff 0x80000000 - 0x800bffff 0x156bcaa000 - 0x156bcc4fff 0x156bcc5000 - 0x156bcc5fff 0x156bcc6000 - 0x156bcc6fff 0x156bcc7000 - 0x156bcc8fff 0x156bcc9000 - 0x156bccafff 0x156bccb000 - 0x156bcd1fff 0x156bcd2000 - 0x156bcd2fff 0x156bcd3000 - 0x156bcd3fff 0x156bcd6000 - 0x156bcd7fff 0x156bcd8000 - 0x156bd16fff 0x156bd17000 - 0x156bd18fff 0x156bd19000 - 0x156bd1ffff 0x156bd20000 - 0x156bd20fff 0x156bd21000 - 0x156bd46fff 0x156bd47000 - 0x156bd4afff 0x156bd4b000 - 0x156bd4bfff 0x156bd4c000 - 0x156bd4dfff 0x156bd4e000 - 0x156bd4efff 0x156bd4f000 - 0x156bd4ffff 0x156bd50000 - 0x156bd50fff 0x156bd51000 - 0x156bd54fff 0x156bd55000 - 0x156bd55fff 0x156bd56000 - 0x156bd56fff 0x156bd57000 - 0x156bd58fff 0x156bd59000 - 0x156bd59fff 0x156bd5a000 - 0x156bd5afff 0x156bd5b000 - 0x156bec6fff 0x156bec7000 - 0x156bec9fff 0x156beca000 - 0x156becafff 0x156becb000 - 0x156becdfff 0x156bece000 - 0x156bee0fff 0x156bee1000 - 0x156bee1fff 0x156bee2000 - 0x156bee2fff 0x156bee3000 - 0x156c001fff 0x156c002000 - 0x156c004fff 0x156c005000 - 0x156c007fff 0x156c008000 - 0x156c00cfff 0x156c00d000 - 0x156c061fff 0x156c062000 - 0x156c70cfff 0x3fffa50000 - 0x3fffa70fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/dribble.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x32ce2000 - 0x32d02fff 0x80000000 - 0x800bffff 0x158cdc0000 - 0x158cddafff 0x158cddb000 - 0x158cddbfff 0x158cddc000 - 0x158cddcfff 0x158cddd000 - 0x158cddefff 0x158cddf000 - 0x158cde0fff 0x158cde1000 - 0x158cde7fff 0x158cde8000 - 0x158cde8fff 0x158cde9000 - 0x158cde9fff 0x158cdec000 - 0x158cdedfff 0x158cdee000 - 0x158ce2cfff 0x158ce2d000 - 0x158ce2efff 0x158ce2f000 - 0x158ce35fff 0x158ce36000 - 0x158ce36fff 0x158ce37000 - 0x158ce5cfff 0x158ce5d000 - 0x158ce60fff 0x158ce61000 - 0x158ce61fff 0x158ce62000 - 0x158ce63fff 0x158ce64000 - 0x158ce64fff 0x158ce65000 - 0x158ce65fff 0x158ce66000 - 0x158ce66fff 0x158ce67000 - 0x158ce6afff 0x158ce6b000 - 0x158ce6bfff 0x158ce6c000 - 0x158ce6cfff 0x158ce6d000 - 0x158ce6efff 0x158ce6f000 - 0x158ce6ffff 0x158ce70000 - 0x158ce70fff 0x158ce71000 - 0x158cfdcfff 0x158cfdd000 - 0x158cfdffff 0x158cfe0000 - 0x158cfe0fff 0x158cfe1000 - 0x158cfe3fff 0x158cfe4000 - 0x158cff6fff 0x158cff7000 - 0x158cff7fff 0x158cff8000 - 0x158cff8fff 0x158cff9000 - 0x158d117fff 0x158d118000 - 0x158d11afff 0x158d11b000 - 0x158d11dfff 0x158d11e000 - 0x158d122fff 0x158d123000 - 0x158d177fff 0x158d178000 - 0x158d822fff 0x3fffd05000 - 0x3fffd25fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/complete.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1cf8f000 - 0x1cfaffff 0x80000000 - 0x800bffff 0x15875c0000 - 0x15875dafff 0x15875db000 - 0x15875dbfff 0x15875dc000 - 0x15875dcfff 0x15875dd000 - 0x15875defff 0x15875df000 - 0x15875e0fff 0x15875e1000 - 0x15875e7fff 0x15875e8000 - 0x15875e8fff 0x15875e9000 - 0x15875e9fff 0x15875ec000 - 0x15875edfff 0x15875ee000 - 0x158762cfff 0x158762d000 - 0x158762efff 0x158762f000 - 0x1587635fff 0x1587636000 - 0x1587636fff 0x1587637000 - 0x158765cfff 0x158765d000 - 0x1587660fff 0x1587661000 - 0x1587661fff 0x1587662000 - 0x1587663fff 0x1587664000 - 0x1587664fff 0x1587665000 - 0x1587665fff 0x1587666000 - 0x1587666fff 0x1587667000 - 0x158766afff 0x158766b000 - 0x158766bfff 0x158766c000 - 0x158766cfff 0x158766d000 - 0x158766efff 0x158766f000 - 0x158766ffff 0x1587670000 - 0x1587670fff 0x1587671000 - 0x15877dcfff 0x15877dd000 - 0x15877dffff 0x15877e0000 - 0x15877e0fff 0x15877e1000 - 0x15877e3fff 0x15877e4000 - 0x15877f6fff 0x15877f7000 - 0x15877f7fff 0x15877f8000 - 0x15877f8fff 0x15877f9000 - 0x1587917fff 0x1587918000 - 0x158791afff 0x158791b000 - 0x158791dfff 0x158791e000 - 0x1587922fff 0x1587923000 - 0x1587977fff 0x1587978000 - 0x1588022fff 0x3ffff2c000 - 0x3ffff4cfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/pprint.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x45cb000 - 0x45ebfff 0x80000000 - 0x800bffff 0x1580e61000 - 0x1580e7bfff 0x1580e7c000 - 0x1580e7cfff 0x1580e7d000 - 0x1580e7dfff 0x1580e7e000 - 0x1580e7ffff 0x1580e80000 - 0x1580e81fff 0x1580e82000 - 0x1580e88fff 0x1580e89000 - 0x1580e89fff 0x1580e8a000 - 0x1580e8afff 0x1580e8d000 - 0x1580e8efff 0x1580e8f000 - 0x1580ecdfff 0x1580ece000 - 0x1580ecffff 0x1580ed0000 - 0x1580ed6fff 0x1580ed7000 - 0x1580ed7fff 0x1580ed8000 - 0x1580efdfff 0x1580efe000 - 0x1580f01fff 0x1580f02000 - 0x1580f02fff 0x1580f03000 - 0x1580f04fff 0x1580f05000 - 0x1580f05fff 0x1580f06000 - 0x1580f06fff 0x1580f07000 - 0x1580f07fff 0x1580f08000 - 0x1580f0bfff 0x1580f0c000 - 0x1580f0cfff 0x1580f0d000 - 0x1580f0dfff 0x1580f0e000 - 0x1580f0ffff 0x1580f10000 - 0x1580f10fff 0x1580f11000 - 0x1580f11fff 0x1580f12000 - 0x158107dfff 0x158107e000 - 0x1581080fff 0x1581081000 - 0x1581081fff 0x1581082000 - 0x1581084fff 0x1581085000 - 0x1581097fff 0x1581098000 - 0x1581098fff 0x1581099000 - 0x1581099fff 0x158109a000 - 0x15811b8fff 0x15811b9000 - 0x15811bbfff 0x15811bc000 - 0x15811befff 0x15811bf000 - 0x15811c3fff 0x15811c4000 - 0x1581218fff 0x1581219000 - 0x15818c3fff 0x3fff88e000 - 0x3fff8aefff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/describe.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x179ae000 - 0x179cefff 0x80000000 - 0x800bffff 0x1571466000 - 0x1571480fff 0x1571481000 - 0x1571481fff 0x1571482000 - 0x1571482fff 0x1571483000 - 0x1571484fff 0x1571485000 - 0x1571486fff 0x1571487000 - 0x157148dfff 0x157148e000 - 0x157148efff 0x157148f000 - 0x157148ffff 0x1571492000 - 0x1571493fff 0x1571494000 - 0x15714d2fff 0x15714d3000 - 0x15714d4fff 0x15714d5000 - 0x15714dbfff 0x15714dc000 - 0x15714dcfff 0x15714dd000 - 0x1571502fff 0x1571503000 - 0x1571506fff 0x1571507000 - 0x1571507fff 0x1571508000 - 0x1571509fff 0x157150a000 - 0x157150afff 0x157150b000 - 0x157150bfff 0x157150c000 - 0x157150cfff 0x157150d000 - 0x1571510fff 0x1571511000 - 0x1571511fff 0x1571512000 - 0x1571512fff 0x1571513000 - 0x1571514fff 0x1571515000 - 0x1571515fff 0x1571516000 - 0x1571516fff 0x1571517000 - 0x1571682fff 0x1571683000 - 0x1571685fff 0x1571686000 - 0x1571686fff 0x1571687000 - 0x1571689fff 0x157168a000 - 0x157169cfff 0x157169d000 - 0x157169dfff 0x157169e000 - 0x157169efff 0x157169f000 - 0x15717bdfff 0x15717be000 - 0x15717c0fff 0x15717c1000 - 0x15717c3fff 0x15717c4000 - 0x15717c8fff 0x15717c9000 - 0x157181dfff 0x157181e000 - 0x1571ec8fff 0x3ffff6d000 - 0x3ffff8dfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/room.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x22109000 - 0x22129fff 0x80000000 - 0x800bffff 0x158f004000 - 0x158f01efff 0x158f01f000 - 0x158f01ffff 0x158f020000 - 0x158f020fff 0x158f021000 - 0x158f022fff 0x158f023000 - 0x158f024fff 0x158f025000 - 0x158f02bfff 0x158f02c000 - 0x158f02cfff 0x158f02d000 - 0x158f02dfff 0x158f030000 - 0x158f031fff 0x158f032000 - 0x158f070fff 0x158f071000 - 0x158f072fff 0x158f073000 - 0x158f079fff 0x158f07a000 - 0x158f07afff 0x158f07b000 - 0x158f0a0fff 0x158f0a1000 - 0x158f0a4fff 0x158f0a5000 - 0x158f0a5fff 0x158f0a6000 - 0x158f0a7fff 0x158f0a8000 - 0x158f0a8fff 0x158f0a9000 - 0x158f0a9fff 0x158f0aa000 - 0x158f0aafff 0x158f0ab000 - 0x158f0aefff 0x158f0af000 - 0x158f0affff 0x158f0b0000 - 0x158f0b0fff 0x158f0b1000 - 0x158f0b2fff 0x158f0b3000 - 0x158f0b3fff 0x158f0b4000 - 0x158f0b4fff 0x158f0b5000 - 0x158f220fff 0x158f221000 - 0x158f223fff 0x158f224000 - 0x158f224fff 0x158f225000 - 0x158f227fff 0x158f228000 - 0x158f23afff 0x158f23b000 - 0x158f23bfff 0x158f23c000 - 0x158f23cfff 0x158f23d000 - 0x158f35bfff 0x158f35c000 - 0x158f35efff 0x158f35f000 - 0x158f361fff 0x158f362000 - 0x158f366fff 0x158f367000 - 0x158f3bbfff 0x158f3bc000 - 0x158fa66fff 0x3fff8eb000 - 0x3fff90bfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/edit.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1e6b8000 - 0x1e6d8fff 0x80000000 - 0x800bffff 0x1594528000 - 0x1594542fff 0x1594543000 - 0x1594543fff 0x1594544000 - 0x1594544fff 0x1594545000 - 0x1594546fff 0x1594547000 - 0x1594548fff 0x1594549000 - 0x159454ffff 0x1594550000 - 0x1594550fff 0x1594551000 - 0x1594551fff 0x1594554000 - 0x1594555fff 0x1594556000 - 0x1594594fff 0x1594595000 - 0x1594596fff 0x1594597000 - 0x159459dfff 0x159459e000 - 0x159459efff 0x159459f000 - 0x15945c4fff 0x15945c5000 - 0x15945c8fff 0x15945c9000 - 0x15945c9fff 0x15945ca000 - 0x15945cbfff 0x15945cc000 - 0x15945ccfff 0x15945cd000 - 0x15945cdfff 0x15945ce000 - 0x15945cefff 0x15945cf000 - 0x15945d2fff 0x15945d3000 - 0x15945d3fff 0x15945d4000 - 0x15945d4fff 0x15945d5000 - 0x15945d6fff 0x15945d7000 - 0x15945d7fff 0x15945d8000 - 0x15945d8fff 0x15945d9000 - 0x1594744fff 0x1594745000 - 0x1594747fff 0x1594748000 - 0x1594748fff 0x1594749000 - 0x159474bfff 0x159474c000 - 0x159475efff 0x159475f000 - 0x159475ffff 0x1594760000 - 0x1594760fff 0x1594761000 - 0x159487ffff 0x1594880000 - 0x1594882fff 0x1594883000 - 0x1594885fff 0x1594886000 - 0x159488afff 0x159488b000 - 0x15948dffff 0x15948e0000 - 0x1594f8afff 0x3ffff49000 - 0x3ffff69fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/macros3.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x193f9000 - 0x19419fff 0x80000000 - 0x800bffff 0x157a8cc000 - 0x157a8e6fff 0x157a8e7000 - 0x157a8e7fff 0x157a8e8000 - 0x157a8e8fff 0x157a8e9000 - 0x157a8eafff 0x157a8eb000 - 0x157a8ecfff 0x157a8ed000 - 0x157a8f3fff 0x157a8f4000 - 0x157a8f4fff 0x157a8f5000 - 0x157a8f5fff 0x157a8f8000 - 0x157a8f9fff 0x157a8fa000 - 0x157a938fff 0x157a939000 - 0x157a93afff 0x157a93b000 - 0x157a941fff 0x157a942000 - 0x157a942fff 0x157a943000 - 0x157a968fff 0x157a969000 - 0x157a96cfff 0x157a96d000 - 0x157a96dfff 0x157a96e000 - 0x157a96ffff 0x157a970000 - 0x157a970fff 0x157a971000 - 0x157a971fff 0x157a972000 - 0x157a972fff 0x157a973000 - 0x157a976fff 0x157a977000 - 0x157a977fff 0x157a978000 - 0x157a978fff 0x157a979000 - 0x157a97afff 0x157a97b000 - 0x157a97bfff 0x157a97c000 - 0x157a97cfff 0x157a97d000 - 0x157aae8fff 0x157aae9000 - 0x157aaebfff 0x157aaec000 - 0x157aaecfff 0x157aaed000 - 0x157aaeffff 0x157aaf0000 - 0x157ab02fff 0x157ab03000 - 0x157ab03fff 0x157ab04000 - 0x157ab04fff 0x157ab05000 - 0x157ac23fff 0x157ac24000 - 0x157ac26fff 0x157ac27000 - 0x157ac29fff 0x157ac2a000 - 0x157ac2efff 0x157ac2f000 - 0x157ac83fff 0x157ac84000 - 0x157b32efff 0x3fff827000 - 0x3fff847fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/clhs.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3f3000 - 0x413fff 0x80000000 - 0x800bffff 0x15803c9000 - 0x15803e3fff 0x15803e4000 - 0x15803e4fff 0x15803e5000 - 0x15803e5fff 0x15803e6000 - 0x15803e7fff 0x15803e8000 - 0x15803e9fff 0x15803ea000 - 0x15803f0fff 0x15803f1000 - 0x15803f1fff 0x15803f2000 - 0x15803f2fff 0x15803f5000 - 0x15803f6fff 0x15803f7000 - 0x1580435fff 0x1580436000 - 0x1580437fff 0x1580438000 - 0x158043efff 0x158043f000 - 0x158043ffff 0x1580440000 - 0x1580465fff 0x1580466000 - 0x1580469fff 0x158046a000 - 0x158046afff 0x158046b000 - 0x158046cfff 0x158046d000 - 0x158046dfff 0x158046e000 - 0x158046efff 0x158046f000 - 0x158046ffff 0x1580470000 - 0x1580473fff 0x1580474000 - 0x1580474fff 0x1580475000 - 0x1580475fff 0x1580476000 - 0x1580477fff 0x1580478000 - 0x1580478fff 0x1580479000 - 0x1580479fff 0x158047a000 - 0x15805e5fff 0x15805e6000 - 0x15805e8fff 0x15805e9000 - 0x15805e9fff 0x15805ea000 - 0x15805ecfff 0x15805ed000 - 0x15805fffff 0x1580600000 - 0x1580600fff 0x1580601000 - 0x1580601fff 0x1580602000 - 0x1580720fff 0x1580721000 - 0x1580723fff 0x1580724000 - 0x1580726fff 0x1580727000 - 0x158072bfff 0x158072c000 - 0x1580780fff 0x1580781000 - 0x1580e2bfff 0x3fff87e000 - 0x3fff89efff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/inspect.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x196eb000 - 0x1970bfff 0x80000000 - 0x800bffff 0x156b81f000 - 0x156b839fff 0x156b83a000 - 0x156b83afff 0x156b83b000 - 0x156b83bfff 0x156b83c000 - 0x156b83dfff 0x156b83e000 - 0x156b83ffff 0x156b840000 - 0x156b846fff 0x156b847000 - 0x156b847fff 0x156b848000 - 0x156b848fff 0x156b84b000 - 0x156b84cfff 0x156b84d000 - 0x156b88bfff 0x156b88c000 - 0x156b88dfff 0x156b88e000 - 0x156b894fff 0x156b895000 - 0x156b895fff 0x156b896000 - 0x156b8bbfff 0x156b8bc000 - 0x156b8bffff 0x156b8c0000 - 0x156b8c0fff 0x156b8c1000 - 0x156b8c2fff 0x156b8c3000 - 0x156b8c3fff 0x156b8c4000 - 0x156b8c4fff 0x156b8c5000 - 0x156b8c5fff 0x156b8c6000 - 0x156b8c9fff 0x156b8ca000 - 0x156b8cafff 0x156b8cb000 - 0x156b8cbfff 0x156b8cc000 - 0x156b8cdfff 0x156b8ce000 - 0x156b8cefff 0x156b8cf000 - 0x156b8cffff 0x156b8d0000 - 0x156ba3bfff 0x156ba3c000 - 0x156ba3efff 0x156ba3f000 - 0x156ba3ffff 0x156ba40000 - 0x156ba42fff 0x156ba43000 - 0x156ba55fff 0x156ba56000 - 0x156ba56fff 0x156ba57000 - 0x156ba57fff 0x156ba58000 - 0x156bb76fff 0x156bb77000 - 0x156bb79fff 0x156bb7a000 - 0x156bb7cfff 0x156bb7d000 - 0x156bb81fff 0x156bb82000 - 0x156bbd6fff 0x156bbd7000 - 0x156c281fff 0x3fffb44000 - 0x3fffb64fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gray.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x339d2000 - 0x339f2fff 0x80000000 - 0x800bffff 0x155c769000 - 0x155c783fff 0x155c784000 - 0x155c784fff 0x155c785000 - 0x155c785fff 0x155c786000 - 0x155c787fff 0x155c788000 - 0x155c789fff 0x155c78a000 - 0x155c790fff 0x155c791000 - 0x155c791fff 0x155c792000 - 0x155c792fff 0x155c795000 - 0x155c796fff 0x155c797000 - 0x155c7d5fff 0x155c7d6000 - 0x155c7d7fff 0x155c7d8000 - 0x155c7defff 0x155c7df000 - 0x155c7dffff 0x155c7e0000 - 0x155c805fff 0x155c806000 - 0x155c809fff 0x155c80a000 - 0x155c80afff 0x155c80b000 - 0x155c80cfff 0x155c80d000 - 0x155c80dfff 0x155c80e000 - 0x155c80efff 0x155c80f000 - 0x155c80ffff 0x155c810000 - 0x155c813fff 0x155c814000 - 0x155c814fff 0x155c815000 - 0x155c815fff 0x155c816000 - 0x155c817fff 0x155c818000 - 0x155c818fff 0x155c819000 - 0x155c819fff 0x155c81a000 - 0x155c985fff 0x155c986000 - 0x155c988fff 0x155c989000 - 0x155c989fff 0x155c98a000 - 0x155c98cfff 0x155c98d000 - 0x155c99ffff 0x155c9a0000 - 0x155c9a0fff 0x155c9a1000 - 0x155c9a1fff 0x155c9a2000 - 0x155cac0fff 0x155cac1000 - 0x155cac3fff 0x155cac4000 - 0x155cac6fff 0x155cac7000 - 0x155cacbfff 0x155cacc000 - 0x155cb20fff 0x155cb21000 - 0x155d1cbfff 0x3fffa91000 - 0x3fffab1fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/case-sensitive.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x98f000 - 0x9affff 0x80000000 - 0x800bffff 0x158d241000 - 0x158d25bfff 0x158d25c000 - 0x158d25cfff 0x158d25d000 - 0x158d25dfff 0x158d25e000 - 0x158d25ffff 0x158d260000 - 0x158d261fff 0x158d262000 - 0x158d268fff 0x158d269000 - 0x158d269fff 0x158d26a000 - 0x158d26afff 0x158d26d000 - 0x158d26efff 0x158d26f000 - 0x158d2adfff 0x158d2ae000 - 0x158d2affff 0x158d2b0000 - 0x158d2b6fff 0x158d2b7000 - 0x158d2b7fff 0x158d2b8000 - 0x158d2ddfff 0x158d2de000 - 0x158d2e1fff 0x158d2e2000 - 0x158d2e2fff 0x158d2e3000 - 0x158d2e4fff 0x158d2e5000 - 0x158d2e5fff 0x158d2e6000 - 0x158d2e6fff 0x158d2e7000 - 0x158d2e7fff 0x158d2e8000 - 0x158d2ebfff 0x158d2ec000 - 0x158d2ecfff 0x158d2ed000 - 0x158d2edfff 0x158d2ee000 - 0x158d2effff 0x158d2f0000 - 0x158d2f0fff 0x158d2f1000 - 0x158d2f1fff 0x158d2f2000 - 0x158d45dfff 0x158d45e000 - 0x158d460fff 0x158d461000 - 0x158d461fff 0x158d462000 - 0x158d464fff 0x158d465000 - 0x158d477fff 0x158d478000 - 0x158d478fff 0x158d479000 - 0x158d479fff 0x158d47a000 - 0x158d598fff 0x158d599000 - 0x158d59bfff 0x158d59c000 - 0x158d59efff 0x158d59f000 - 0x158d5a3fff 0x158d5a4000 - 0x158d5f8fff 0x158d5f9000 - 0x158dca3fff 0x3fffba0000 - 0x3fffbc0fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/foreign1.lisp ... WARNING: DEFINE-COMPILER-MACRO: redefining compiler macro PARSE-C-TYPE in /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/foreign1.lisp, was defined in top-level ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3c490000 - 0x3c4b0fff 0x80000000 - 0x800bffff 0x157bcb8000 - 0x157bcd2fff 0x157bcd3000 - 0x157bcd3fff 0x157bcd4000 - 0x157bcd4fff 0x157bcd5000 - 0x157bcd6fff 0x157bcd7000 - 0x157bcd8fff 0x157bcd9000 - 0x157bcdffff 0x157bce0000 - 0x157bce0fff 0x157bce1000 - 0x157bce1fff 0x157bce4000 - 0x157bce5fff 0x157bce6000 - 0x157bd24fff 0x157bd25000 - 0x157bd26fff 0x157bd27000 - 0x157bd2dfff 0x157bd2e000 - 0x157bd2efff 0x157bd2f000 - 0x157bd54fff 0x157bd55000 - 0x157bd58fff 0x157bd59000 - 0x157bd59fff 0x157bd5a000 - 0x157bd5bfff 0x157bd5c000 - 0x157bd5cfff 0x157bd5d000 - 0x157bd5dfff 0x157bd5e000 - 0x157bd5efff 0x157bd5f000 - 0x157bd62fff 0x157bd63000 - 0x157bd63fff 0x157bd64000 - 0x157bd64fff 0x157bd65000 - 0x157bd66fff 0x157bd67000 - 0x157bd67fff 0x157bd68000 - 0x157bd68fff 0x157bd69000 - 0x157bed4fff 0x157bed5000 - 0x157bed7fff 0x157bed8000 - 0x157bed8fff 0x157bed9000 - 0x157bedbfff 0x157bedc000 - 0x157beeefff 0x157beef000 - 0x157beeffff 0x157bef0000 - 0x157bef0fff 0x157bef1000 - 0x157c00ffff 0x157c010000 - 0x157c012fff 0x157c013000 - 0x157c015fff 0x157c016000 - 0x157c01afff 0x157c01b000 - 0x157c06ffff 0x157c070000 - 0x157c71afff 0x3fff92e000 - 0x3fff94efff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/exporting.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1023c000 - 0x1025cfff 0x80000000 - 0x800bffff 0x158afb0000 - 0x158afcafff 0x158afcb000 - 0x158afcbfff 0x158afcc000 - 0x158afccfff 0x158afcd000 - 0x158afcefff 0x158afcf000 - 0x158afd0fff 0x158afd1000 - 0x158afd7fff 0x158afd8000 - 0x158afd8fff 0x158afd9000 - 0x158afd9fff 0x158afdc000 - 0x158afddfff 0x158afde000 - 0x158b01cfff 0x158b01d000 - 0x158b01efff 0x158b01f000 - 0x158b025fff 0x158b026000 - 0x158b026fff 0x158b027000 - 0x158b04cfff 0x158b04d000 - 0x158b050fff 0x158b051000 - 0x158b051fff 0x158b052000 - 0x158b053fff 0x158b054000 - 0x158b054fff 0x158b055000 - 0x158b055fff 0x158b056000 - 0x158b056fff 0x158b057000 - 0x158b05afff 0x158b05b000 - 0x158b05bfff 0x158b05c000 - 0x158b05cfff 0x158b05d000 - 0x158b05efff 0x158b05f000 - 0x158b05ffff 0x158b060000 - 0x158b060fff 0x158b061000 - 0x158b1ccfff 0x158b1cd000 - 0x158b1cffff 0x158b1d0000 - 0x158b1d0fff 0x158b1d1000 - 0x158b1d3fff 0x158b1d4000 - 0x158b1e6fff 0x158b1e7000 - 0x158b1e7fff 0x158b1e8000 - 0x158b1e8fff 0x158b1e9000 - 0x158b307fff 0x158b308000 - 0x158b30afff 0x158b30b000 - 0x158b30dfff 0x158b30e000 - 0x158b312fff 0x158b313000 - 0x158b367fff 0x158b368000 - 0x158ba12fff 0x3fffa58000 - 0x3fffa78fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/german.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x36dae000 - 0x36dcefff 0x80000000 - 0x800bffff 0x1576505000 - 0x157651ffff 0x1576520000 - 0x1576520fff 0x1576521000 - 0x1576521fff 0x1576522000 - 0x1576523fff 0x1576524000 - 0x1576525fff 0x1576526000 - 0x157652cfff 0x157652d000 - 0x157652dfff 0x157652e000 - 0x157652efff 0x1576531000 - 0x1576532fff 0x1576533000 - 0x1576571fff 0x1576572000 - 0x1576573fff 0x1576574000 - 0x157657afff 0x157657b000 - 0x157657bfff 0x157657c000 - 0x15765a1fff 0x15765a2000 - 0x15765a5fff 0x15765a6000 - 0x15765a6fff 0x15765a7000 - 0x15765a8fff 0x15765a9000 - 0x15765a9fff 0x15765aa000 - 0x15765aafff 0x15765ab000 - 0x15765abfff 0x15765ac000 - 0x15765affff 0x15765b0000 - 0x15765b0fff 0x15765b1000 - 0x15765b1fff 0x15765b2000 - 0x15765b3fff 0x15765b4000 - 0x15765b4fff 0x15765b5000 - 0x15765b5fff 0x15765b6000 - 0x1576721fff 0x1576722000 - 0x1576724fff 0x1576725000 - 0x1576725fff 0x1576726000 - 0x1576728fff 0x1576729000 - 0x157673bfff 0x157673c000 - 0x157673cfff 0x157673d000 - 0x157673dfff 0x157673e000 - 0x157685cfff 0x157685d000 - 0x157685ffff 0x1576860000 - 0x1576862fff 0x1576863000 - 0x1576867fff 0x1576868000 - 0x15768bcfff 0x15768bd000 - 0x1576f67fff 0x3fffc44000 - 0x3fffc64fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/french.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x12db4000 - 0x12dd4fff 0x80000000 - 0x800bffff 0x1589811000 - 0x158982bfff 0x158982c000 - 0x158982cfff 0x158982d000 - 0x158982dfff 0x158982e000 - 0x158982ffff 0x1589830000 - 0x1589831fff 0x1589832000 - 0x1589838fff 0x1589839000 - 0x1589839fff 0x158983a000 - 0x158983afff 0x158983d000 - 0x158983efff 0x158983f000 - 0x158987dfff 0x158987e000 - 0x158987ffff 0x1589880000 - 0x1589886fff 0x1589887000 - 0x1589887fff 0x1589888000 - 0x15898adfff 0x15898ae000 - 0x15898b1fff 0x15898b2000 - 0x15898b2fff 0x15898b3000 - 0x15898b4fff 0x15898b5000 - 0x15898b5fff 0x15898b6000 - 0x15898b6fff 0x15898b7000 - 0x15898b7fff 0x15898b8000 - 0x15898bbfff 0x15898bc000 - 0x15898bcfff 0x15898bd000 - 0x15898bdfff 0x15898be000 - 0x15898bffff 0x15898c0000 - 0x15898c0fff 0x15898c1000 - 0x15898c1fff 0x15898c2000 - 0x1589a2dfff 0x1589a2e000 - 0x1589a30fff 0x1589a31000 - 0x1589a31fff 0x1589a32000 - 0x1589a34fff 0x1589a35000 - 0x1589a47fff 0x1589a48000 - 0x1589a48fff 0x1589a49000 - 0x1589a49fff 0x1589a4a000 - 0x1589b68fff 0x1589b69000 - 0x1589b6bfff 0x1589b6c000 - 0x1589b6efff 0x1589b6f000 - 0x1589b73fff 0x1589b74000 - 0x1589bc8fff 0x1589bc9000 - 0x158a273fff 0x3fffad9000 - 0x3fffaf9fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/spanish.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x22ca4000 - 0x22cc4fff 0x80000000 - 0x800bffff 0x157bbf5000 - 0x157bc0ffff 0x157bc10000 - 0x157bc10fff 0x157bc11000 - 0x157bc11fff 0x157bc12000 - 0x157bc13fff 0x157bc14000 - 0x157bc15fff 0x157bc16000 - 0x157bc1cfff 0x157bc1d000 - 0x157bc1dfff 0x157bc1e000 - 0x157bc1efff 0x157bc21000 - 0x157bc22fff 0x157bc23000 - 0x157bc61fff 0x157bc62000 - 0x157bc63fff 0x157bc64000 - 0x157bc6afff 0x157bc6b000 - 0x157bc6bfff 0x157bc6c000 - 0x157bc91fff 0x157bc92000 - 0x157bc95fff 0x157bc96000 - 0x157bc96fff 0x157bc97000 - 0x157bc98fff 0x157bc99000 - 0x157bc99fff 0x157bc9a000 - 0x157bc9afff 0x157bc9b000 - 0x157bc9bfff 0x157bc9c000 - 0x157bc9ffff 0x157bca0000 - 0x157bca0fff 0x157bca1000 - 0x157bca1fff 0x157bca2000 - 0x157bca3fff 0x157bca4000 - 0x157bca4fff 0x157bca5000 - 0x157bca5fff 0x157bca6000 - 0x157be11fff 0x157be12000 - 0x157be14fff 0x157be15000 - 0x157be15fff 0x157be16000 - 0x157be18fff 0x157be19000 - 0x157be2bfff 0x157be2c000 - 0x157be2cfff 0x157be2d000 - 0x157be2dfff 0x157be2e000 - 0x157bf4cfff 0x157bf4d000 - 0x157bf4ffff 0x157bf50000 - 0x157bf52fff 0x157bf53000 - 0x157bf57fff 0x157bf58000 - 0x157bfacfff 0x157bfad000 - 0x157c657fff 0x3fffa25000 - 0x3fffa45fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/russian.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2f043000 - 0x2f063fff 0x80000000 - 0x800bffff 0x156a2b2000 - 0x156a2ccfff 0x156a2cd000 - 0x156a2cdfff 0x156a2ce000 - 0x156a2cefff 0x156a2cf000 - 0x156a2d0fff 0x156a2d1000 - 0x156a2d2fff 0x156a2d3000 - 0x156a2d9fff 0x156a2da000 - 0x156a2dafff 0x156a2db000 - 0x156a2dbfff 0x156a2de000 - 0x156a2dffff 0x156a2e0000 - 0x156a31efff 0x156a31f000 - 0x156a320fff 0x156a321000 - 0x156a327fff 0x156a328000 - 0x156a328fff 0x156a329000 - 0x156a34efff 0x156a34f000 - 0x156a352fff 0x156a353000 - 0x156a353fff 0x156a354000 - 0x156a355fff 0x156a356000 - 0x156a356fff 0x156a357000 - 0x156a357fff 0x156a358000 - 0x156a358fff 0x156a359000 - 0x156a35cfff 0x156a35d000 - 0x156a35dfff 0x156a35e000 - 0x156a35efff 0x156a35f000 - 0x156a360fff 0x156a361000 - 0x156a361fff 0x156a362000 - 0x156a362fff 0x156a363000 - 0x156a4cefff 0x156a4cf000 - 0x156a4d1fff 0x156a4d2000 - 0x156a4d2fff 0x156a4d3000 - 0x156a4d5fff 0x156a4d6000 - 0x156a4e8fff 0x156a4e9000 - 0x156a4e9fff 0x156a4ea000 - 0x156a4eafff 0x156a4eb000 - 0x156a609fff 0x156a60a000 - 0x156a60cfff 0x156a60d000 - 0x156a60ffff 0x156a610000 - 0x156a614fff 0x156a615000 - 0x156a669fff 0x156a66a000 - 0x156ad14fff 0x3fffb58000 - 0x3fffb78fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/danish.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3c89a000 - 0x3c8bafff 0x80000000 - 0x800bffff 0x1573798000 - 0x15737b2fff 0x15737b3000 - 0x15737b3fff 0x15737b4000 - 0x15737b4fff 0x15737b5000 - 0x15737b6fff 0x15737b7000 - 0x15737b8fff 0x15737b9000 - 0x15737bffff 0x15737c0000 - 0x15737c0fff 0x15737c1000 - 0x15737c1fff 0x15737c4000 - 0x15737c5fff 0x15737c6000 - 0x1573804fff 0x1573805000 - 0x1573806fff 0x1573807000 - 0x157380dfff 0x157380e000 - 0x157380efff 0x157380f000 - 0x1573834fff 0x1573835000 - 0x1573838fff 0x1573839000 - 0x1573839fff 0x157383a000 - 0x157383bfff 0x157383c000 - 0x157383cfff 0x157383d000 - 0x157383dfff 0x157383e000 - 0x157383efff 0x157383f000 - 0x1573842fff 0x1573843000 - 0x1573843fff 0x1573844000 - 0x1573844fff 0x1573845000 - 0x1573846fff 0x1573847000 - 0x1573847fff 0x1573848000 - 0x1573848fff 0x1573849000 - 0x15739b4fff 0x15739b5000 - 0x15739b7fff 0x15739b8000 - 0x15739b8fff 0x15739b9000 - 0x15739bbfff 0x15739bc000 - 0x15739cefff 0x15739cf000 - 0x15739cffff 0x15739d0000 - 0x15739d0fff 0x15739d1000 - 0x1573aeffff 0x1573af0000 - 0x1573af2fff 0x1573af3000 - 0x1573af5fff 0x1573af6000 - 0x1573afafff 0x1573afb000 - 0x1573b4ffff 0x1573b50000 - 0x15741fafff 0x3fffe22000 - 0x3fffe42fff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/dutch.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x400c5000 - 0x400e5fff 0x80000000 - 0x800bffff 0x1591ff5000 - 0x159200ffff 0x1592010000 - 0x1592010fff 0x1592011000 - 0x1592011fff 0x1592012000 - 0x1592013fff 0x1592014000 - 0x1592015fff 0x1592016000 - 0x159201cfff 0x159201d000 - 0x159201dfff 0x159201e000 - 0x159201efff 0x1592021000 - 0x1592022fff 0x1592023000 - 0x1592061fff 0x1592062000 - 0x1592063fff 0x1592064000 - 0x159206afff 0x159206b000 - 0x159206bfff 0x159206c000 - 0x1592091fff 0x1592092000 - 0x1592095fff 0x1592096000 - 0x1592096fff 0x1592097000 - 0x1592098fff 0x1592099000 - 0x1592099fff 0x159209a000 - 0x159209afff 0x159209b000 - 0x159209bfff 0x159209c000 - 0x159209ffff 0x15920a0000 - 0x15920a0fff 0x15920a1000 - 0x15920a1fff 0x15920a2000 - 0x15920a3fff 0x15920a4000 - 0x15920a4fff 0x15920a5000 - 0x15920a5fff 0x15920a6000 - 0x1592211fff 0x1592212000 - 0x1592214fff 0x1592215000 - 0x1592215fff 0x1592216000 - 0x1592218fff 0x1592219000 - 0x159222bfff 0x159222c000 - 0x159222cfff 0x159222d000 - 0x159222dfff 0x159222e000 - 0x159234cfff 0x159234d000 - 0x159234ffff 0x1592350000 - 0x1592352fff 0x1592353000 - 0x1592357fff 0x1592358000 - 0x15923acfff 0x15923ad000 - 0x1592a57fff 0x3ffff3a000 - 0x3ffff5afff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/deprecated.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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/ Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x27408000 - 0x27428fff 0x80000000 - 0x800bffff 0x15802c1000 - 0x15802dbfff 0x15802dc000 - 0x15802dcfff 0x15802dd000 - 0x15802ddfff 0x15802de000 - 0x15802dffff 0x15802e0000 - 0x15802e1fff 0x15802e2000 - 0x15802e8fff 0x15802e9000 - 0x15802e9fff 0x15802ea000 - 0x15802eafff 0x15802ed000 - 0x15802eefff 0x15802ef000 - 0x158032dfff 0x158032e000 - 0x158032ffff 0x1580330000 - 0x1580336fff 0x1580337000 - 0x1580337fff 0x1580338000 - 0x158035dfff 0x158035e000 - 0x1580361fff 0x1580362000 - 0x1580362fff 0x1580363000 - 0x1580364fff 0x1580365000 - 0x1580365fff 0x1580366000 - 0x1580366fff 0x1580367000 - 0x1580367fff 0x1580368000 - 0x158036bfff 0x158036c000 - 0x158036cfff 0x158036d000 - 0x158036dfff 0x158036e000 - 0x158036ffff 0x1580370000 - 0x1580370fff 0x1580371000 - 0x1580371fff 0x1580372000 - 0x15804ddfff 0x15804de000 - 0x15804e0fff 0x15804e1000 - 0x15804e1fff 0x15804e2000 - 0x15804e4fff 0x15804e5000 - 0x15804f7fff 0x15804f8000 - 0x15804f8fff 0x15804f9000 - 0x15804f9fff 0x15804fa000 - 0x1580618fff 0x1580619000 - 0x158061bfff 0x158061c000 - 0x158061efff 0x158061f000 - 0x1580623fff 0x1580624000 - 0x1580678fff 0x1580679000 - 0x1580d23fff 0x3fffc3b000 - 0x3fffc5bfff ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/config.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1740e000 - 0x1742efff 0x80000000 - 0x800bffff 0x1564cd4000 - 0x1564ceefff 0x1564cef000 - 0x1564ceffff 0x1564cf0000 - 0x1564cf0fff 0x1564cf1000 - 0x1564cf2fff 0x1564cf3000 - 0x1564cf4fff 0x1564cf5000 - 0x1564cfbfff 0x1564cfc000 - 0x1564cfcfff 0x1564cfd000 - 0x1564cfdfff 0x1564d00000 - 0x1564d01fff 0x1564d02000 - 0x1564d40fff 0x1564d41000 - 0x1564d42fff 0x1564d43000 - 0x1564d49fff 0x1564d4a000 - 0x1564d4afff 0x1564d4b000 - 0x1564d70fff 0x1564d71000 - 0x1564d74fff 0x1564d75000 - 0x1564d75fff 0x1564d76000 - 0x1564d77fff 0x1564d78000 - 0x1564d78fff 0x1564d79000 - 0x1564d79fff 0x1564d7a000 - 0x1564d7afff 0x1564d7b000 - 0x1564d7efff 0x1564d7f000 - 0x1564d7ffff 0x1564d80000 - 0x1564d80fff 0x1564d81000 - 0x1564d82fff 0x1564d83000 - 0x1564d83fff 0x1564d84000 - 0x1564d84fff 0x1564d85000 - 0x1564ef0fff 0x1564ef1000 - 0x1564ef3fff 0x1564ef4000 - 0x1564ef4fff 0x1564ef5000 - 0x1564ef7fff 0x1564ef8000 - 0x1564f0afff 0x1564f0b000 - 0x1564f0bfff 0x1564f0c000 - 0x1564f0cfff 0x1564f0d000 - 0x156502bfff 0x156502c000 - 0x156502efff 0x156502f000 - 0x1565031fff 0x1565032000 - 0x1565036fff 0x1565037000 - 0x156508bfff 0x156508c000 - 0x1565736fff 0x3fffd34000 - 0x3fffd54fff 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 Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x27a91000 - 0x27ab1fff 0x80000000 - 0x800bffff 0x1575b1f000 - 0x1575b39fff 0x1575b3a000 - 0x1575b3afff 0x1575b3b000 - 0x1575b3bfff 0x1575b3c000 - 0x1575b3dfff 0x1575b3e000 - 0x1575b3ffff 0x1575b40000 - 0x1575b46fff 0x1575b47000 - 0x1575b47fff 0x1575b48000 - 0x1575b48fff 0x1575b4b000 - 0x1575b4cfff 0x1575b4d000 - 0x1575b8bfff 0x1575b8c000 - 0x1575b8dfff 0x1575b8e000 - 0x1575b94fff 0x1575b95000 - 0x1575b95fff 0x1575b96000 - 0x1575bbbfff 0x1575bbc000 - 0x1575bbffff 0x1575bc0000 - 0x1575bc0fff 0x1575bc1000 - 0x1575bc2fff 0x1575bc3000 - 0x1575bc3fff 0x1575bc4000 - 0x1575bc4fff 0x1575bc5000 - 0x1575bc5fff 0x1575bc6000 - 0x1575bc9fff 0x1575bca000 - 0x1575bcafff 0x1575bcb000 - 0x1575bcbfff 0x1575bcc000 - 0x1575bcdfff 0x1575bce000 - 0x1575bcefff 0x1575bcf000 - 0x1575bcffff 0x1575bd0000 - 0x1575d3bfff 0x1575d3c000 - 0x1575d3efff 0x1575d3f000 - 0x1575d3ffff 0x1575d40000 - 0x1575d42fff 0x1575d43000 - 0x1575d55fff 0x1575d56000 - 0x1575d56fff 0x1575d57000 - 0x1575d57fff 0x1575d58000 - 0x1575e76fff 0x1575e77000 - 0x1575e79fff 0x1575e7a000 - 0x1575e7cfff 0x1575e7d000 - 0x1575e81fff 0x1575e82000 - 0x1575ed6fff 0x1575ed7000 - 0x1576581fff 0x3fff99b000 - 0x3fff9bbfff 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 Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3e4b3000 - 0x3e4d3fff 0x80000000 - 0x800bffff 0x157bbc6000 - 0x157bbe0fff 0x157bbe1000 - 0x157bbe1fff 0x157bbe2000 - 0x157bbe2fff 0x157bbe3000 - 0x157bbe4fff 0x157bbe5000 - 0x157bbe6fff 0x157bbe7000 - 0x157bbedfff 0x157bbee000 - 0x157bbeefff 0x157bbef000 - 0x157bbeffff 0x157bbf2000 - 0x157bbf3fff 0x157bbf4000 - 0x157bc32fff 0x157bc33000 - 0x157bc34fff 0x157bc35000 - 0x157bc3bfff 0x157bc3c000 - 0x157bc3cfff 0x157bc3d000 - 0x157bc62fff 0x157bc63000 - 0x157bc66fff 0x157bc67000 - 0x157bc67fff 0x157bc68000 - 0x157bc69fff 0x157bc6a000 - 0x157bc6afff 0x157bc6b000 - 0x157bc6bfff 0x157bc6c000 - 0x157bc6cfff 0x157bc6d000 - 0x157bc70fff 0x157bc71000 - 0x157bc71fff 0x157bc72000 - 0x157bc72fff 0x157bc73000 - 0x157bc74fff 0x157bc75000 - 0x157bc75fff 0x157bc76000 - 0x157bc76fff 0x157bc77000 - 0x157bde2fff 0x157bde3000 - 0x157bde5fff 0x157bde6000 - 0x157bde6fff 0x157bde7000 - 0x157bde9fff 0x157bdea000 - 0x157bdfcfff 0x157bdfd000 - 0x157bdfdfff 0x157bdfe000 - 0x157bdfefff 0x157bdff000 - 0x157bf1dfff 0x157bf1e000 - 0x157bf20fff 0x157bf21000 - 0x157bf23fff 0x157bf24000 - 0x157bf28fff 0x157bf29000 - 0x157bf7dfff 0x157bf7e000 - 0x157c628fff 0x3fffc39000 - 0x3fffc59fff 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 Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x262e6000 - 0x26306fff 0x80000000 - 0x800bffff 0x1575aae000 - 0x1575ac8fff 0x1575ac9000 - 0x1575ac9fff 0x1575aca000 - 0x1575acafff 0x1575acb000 - 0x1575accfff 0x1575acd000 - 0x1575acefff 0x1575acf000 - 0x1575ad5fff 0x1575ad6000 - 0x1575ad6fff 0x1575ad7000 - 0x1575ad7fff 0x1575ada000 - 0x1575adbfff 0x1575adc000 - 0x1575b1afff 0x1575b1b000 - 0x1575b1cfff 0x1575b1d000 - 0x1575b23fff 0x1575b24000 - 0x1575b24fff 0x1575b25000 - 0x1575b4afff 0x1575b4b000 - 0x1575b4efff 0x1575b4f000 - 0x1575b4ffff 0x1575b50000 - 0x1575b51fff 0x1575b52000 - 0x1575b52fff 0x1575b53000 - 0x1575b53fff 0x1575b54000 - 0x1575b54fff 0x1575b55000 - 0x1575b58fff 0x1575b59000 - 0x1575b59fff 0x1575b5a000 - 0x1575b5afff 0x1575b5b000 - 0x1575b5cfff 0x1575b5d000 - 0x1575b5dfff 0x1575b5e000 - 0x1575b5efff 0x1575b5f000 - 0x1575ccafff 0x1575ccb000 - 0x1575ccdfff 0x1575cce000 - 0x1575ccefff 0x1575ccf000 - 0x1575cd1fff 0x1575cd2000 - 0x1575ce4fff 0x1575ce5000 - 0x1575ce5fff 0x1575ce6000 - 0x1575ce6fff 0x1575ce7000 - 0x1575e05fff 0x1575e06000 - 0x1575e08fff 0x1575e09000 - 0x1575e0bfff 0x1575e0c000 - 0x1575e10fff 0x1575e11000 - 0x1575e65fff 0x1575e66000 - 0x1576510fff 0x3fff8e7000 - 0x3fff907fff ;; 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2aff5000 - 0x2b015fff 0x80000000 - 0x800bffff 0x15796b6000 - 0x15796d0fff 0x15796d1000 - 0x15796d1fff 0x15796d2000 - 0x15796d2fff 0x15796d3000 - 0x15796d4fff 0x15796d5000 - 0x15796d6fff 0x15796d7000 - 0x15796ddfff 0x15796de000 - 0x15796defff 0x15796df000 - 0x15796dffff 0x15796e2000 - 0x15796e3fff 0x15796e4000 - 0x1579722fff 0x1579723000 - 0x1579724fff 0x1579725000 - 0x157972bfff 0x157972c000 - 0x157972cfff 0x157972d000 - 0x1579752fff 0x1579753000 - 0x1579756fff 0x1579757000 - 0x1579757fff 0x1579758000 - 0x1579759fff 0x157975a000 - 0x157975afff 0x157975b000 - 0x157975bfff 0x157975c000 - 0x157975cfff 0x157975d000 - 0x1579760fff 0x1579761000 - 0x1579761fff 0x1579762000 - 0x1579762fff 0x1579763000 - 0x1579764fff 0x1579765000 - 0x1579765fff 0x1579766000 - 0x1579766fff 0x1579767000 - 0x15798d2fff 0x15798d3000 - 0x15798d5fff 0x15798d6000 - 0x15798d6fff 0x15798d7000 - 0x15798d9fff 0x15798da000 - 0x15798ecfff 0x15798ed000 - 0x15798edfff 0x15798ee000 - 0x15798eefff 0x15798ef000 - 0x1579a0dfff 0x1579a0e000 - 0x1579a10fff 0x1579a11000 - 0x1579a13fff 0x1579a14000 - 0x1579a18fff 0x1579a19000 - 0x1579a6dfff 0x1579a6e000 - 0x157a118fff 0x3fffb7d000 - 0x3fffb9dfff (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 Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2b880000 - 0x2b8a0fff 0x80000000 - 0x800bffff 0x15925a9000 - 0x15925c3fff 0x15925c4000 - 0x15925c4fff 0x15925c5000 - 0x15925c5fff 0x15925c6000 - 0x15925c7fff 0x15925c8000 - 0x15925c9fff 0x15925ca000 - 0x15925d0fff 0x15925d1000 - 0x15925d1fff 0x15925d2000 - 0x15925d2fff 0x15925d5000 - 0x15925d6fff 0x15925d7000 - 0x1592615fff 0x1592616000 - 0x1592617fff 0x1592618000 - 0x159261efff 0x159261f000 - 0x159261ffff 0x1592620000 - 0x1592645fff 0x1592646000 - 0x1592649fff 0x159264a000 - 0x159264afff 0x159264b000 - 0x159264cfff 0x159264d000 - 0x159264dfff 0x159264e000 - 0x159264efff 0x159264f000 - 0x159264ffff 0x1592650000 - 0x1592653fff 0x1592654000 - 0x1592654fff 0x1592655000 - 0x1592655fff 0x1592656000 - 0x1592657fff 0x1592658000 - 0x1592658fff 0x1592659000 - 0x1592659fff 0x159265a000 - 0x15927c5fff 0x15927c6000 - 0x15927c8fff 0x15927c9000 - 0x15927c9fff 0x15927ca000 - 0x15927ccfff 0x15927cd000 - 0x15927dffff 0x15927e0000 - 0x15927e0fff 0x15927e1000 - 0x15927e1fff 0x15927e2000 - 0x1592900fff 0x1592901000 - 0x1592903fff 0x1592904000 - 0x1592906fff 0x1592907000 - 0x159290bfff 0x159290c000 - 0x1592960fff 0x1592961000 - 0x159300bfff 0x3fffbaa000 - 0x3fffbcafff 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 Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x19e01000 - 0x19e21fff 0x80000000 - 0x800bffff 0x1588b3a000 - 0x1588b54fff 0x1588b55000 - 0x1588b55fff 0x1588b56000 - 0x1588b56fff 0x1588b57000 - 0x1588b58fff 0x1588b59000 - 0x1588b5afff 0x1588b5b000 - 0x1588b61fff 0x1588b62000 - 0x1588b62fff 0x1588b63000 - 0x1588b63fff 0x1588b66000 - 0x1588b67fff 0x1588b68000 - 0x1588ba6fff 0x1588ba7000 - 0x1588ba8fff 0x1588ba9000 - 0x1588baffff 0x1588bb0000 - 0x1588bb0fff 0x1588bb1000 - 0x1588bd6fff 0x1588bd7000 - 0x1588bdafff 0x1588bdb000 - 0x1588bdbfff 0x1588bdc000 - 0x1588bddfff 0x1588bde000 - 0x1588bdefff 0x1588bdf000 - 0x1588bdffff 0x1588be0000 - 0x1588be0fff 0x1588be1000 - 0x1588be4fff 0x1588be5000 - 0x1588be5fff 0x1588be6000 - 0x1588be6fff 0x1588be7000 - 0x1588be8fff 0x1588be9000 - 0x1588be9fff 0x1588bea000 - 0x1588beafff 0x1588beb000 - 0x1588d56fff 0x1588d57000 - 0x1588d59fff 0x1588d5a000 - 0x1588d5afff 0x1588d5b000 - 0x1588d5dfff 0x1588d5e000 - 0x1588d70fff 0x1588d71000 - 0x1588d71fff 0x1588d72000 - 0x1588d72fff 0x1588d73000 - 0x1588e91fff 0x1588e92000 - 0x1588e94fff 0x1588e95000 - 0x1588e97fff 0x1588e98000 - 0x1588e9cfff 0x1588e9d000 - 0x1588ef1fff 0x1588ef2000 - 0x158959cfff 0x3ffff87000 - 0x3ffffa7fff 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 Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3c5a3000 - 0x3c5c3fff 0x80000000 - 0x800bffff 0x158a0f8000 - 0x158a112fff 0x158a113000 - 0x158a113fff 0x158a114000 - 0x158a114fff 0x158a115000 - 0x158a116fff 0x158a117000 - 0x158a118fff 0x158a119000 - 0x158a11ffff 0x158a120000 - 0x158a120fff 0x158a121000 - 0x158a121fff 0x158a124000 - 0x158a125fff 0x158a126000 - 0x158a164fff 0x158a165000 - 0x158a166fff 0x158a167000 - 0x158a16dfff 0x158a16e000 - 0x158a16efff 0x158a16f000 - 0x158a194fff 0x158a195000 - 0x158a198fff 0x158a199000 - 0x158a199fff 0x158a19a000 - 0x158a19bfff 0x158a19c000 - 0x158a19cfff 0x158a19d000 - 0x158a19dfff 0x158a19e000 - 0x158a19efff 0x158a19f000 - 0x158a1a2fff 0x158a1a3000 - 0x158a1a3fff 0x158a1a4000 - 0x158a1a4fff 0x158a1a5000 - 0x158a1a6fff 0x158a1a7000 - 0x158a1a7fff 0x158a1a8000 - 0x158a1a8fff 0x158a1a9000 - 0x158a314fff 0x158a315000 - 0x158a317fff 0x158a318000 - 0x158a318fff 0x158a319000 - 0x158a31bfff 0x158a31c000 - 0x158a32efff 0x158a32f000 - 0x158a32ffff 0x158a330000 - 0x158a330fff 0x158a331000 - 0x158a44ffff 0x158a450000 - 0x158a452fff 0x158a453000 - 0x158a455fff 0x158a456000 - 0x158a45afff 0x158a45b000 - 0x158a4affff 0x158a4b0000 - 0x158ab5afff 0x3fffc20000 - 0x3fffc40fff 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 Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1794b000 - 0x1796bfff 0x80000000 - 0x800bffff 0x1588e5c000 - 0x1588e76fff 0x1588e77000 - 0x1588e77fff 0x1588e78000 - 0x1588e78fff 0x1588e79000 - 0x1588e7afff 0x1588e7b000 - 0x1588e7cfff 0x1588e7d000 - 0x1588e83fff 0x1588e84000 - 0x1588e84fff 0x1588e85000 - 0x1588e85fff 0x1588e88000 - 0x1588e89fff 0x1588e8a000 - 0x1588ec8fff 0x1588ec9000 - 0x1588ecafff 0x1588ecb000 - 0x1588ed1fff 0x1588ed2000 - 0x1588ed2fff 0x1588ed3000 - 0x1588ef8fff 0x1588ef9000 - 0x1588efcfff 0x1588efd000 - 0x1588efdfff 0x1588efe000 - 0x1588efffff 0x1588f00000 - 0x1588f00fff 0x1588f01000 - 0x1588f01fff 0x1588f02000 - 0x1588f02fff 0x1588f03000 - 0x1588f06fff 0x1588f07000 - 0x1588f07fff 0x1588f08000 - 0x1588f08fff 0x1588f09000 - 0x1588f0afff 0x1588f0b000 - 0x1588f0bfff 0x1588f0c000 - 0x1588f0cfff 0x1588f0d000 - 0x1589078fff 0x1589079000 - 0x158907bfff 0x158907c000 - 0x158907cfff 0x158907d000 - 0x158907ffff 0x1589080000 - 0x1589092fff 0x1589093000 - 0x1589093fff 0x1589094000 - 0x1589094fff 0x1589095000 - 0x15891b3fff 0x15891b4000 - 0x15891b6fff 0x15891b7000 - 0x15891b9fff 0x15891ba000 - 0x15891befff 0x15891bf000 - 0x1589213fff 0x1589214000 - 0x15898befff 0x3fffc41000 - 0x3fffc61fff 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 Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x122c7000 - 0x122e7fff 0x80000000 - 0x800bffff 0x15879b3000 - 0x15879cdfff 0x15879ce000 - 0x15879cefff 0x15879cf000 - 0x15879cffff 0x15879d0000 - 0x15879d1fff 0x15879d2000 - 0x15879d3fff 0x15879d4000 - 0x15879dafff 0x15879db000 - 0x15879dbfff 0x15879dc000 - 0x15879dcfff 0x15879df000 - 0x15879e0fff 0x15879e1000 - 0x1587a1ffff 0x1587a20000 - 0x1587a21fff 0x1587a22000 - 0x1587a28fff 0x1587a29000 - 0x1587a29fff 0x1587a2a000 - 0x1587a4ffff 0x1587a50000 - 0x1587a53fff 0x1587a54000 - 0x1587a54fff 0x1587a55000 - 0x1587a56fff 0x1587a57000 - 0x1587a57fff 0x1587a58000 - 0x1587a58fff 0x1587a59000 - 0x1587a59fff 0x1587a5a000 - 0x1587a5dfff 0x1587a5e000 - 0x1587a5efff 0x1587a5f000 - 0x1587a5ffff 0x1587a60000 - 0x1587a61fff 0x1587a62000 - 0x1587a62fff 0x1587a63000 - 0x1587a63fff 0x1587a64000 - 0x1587bcffff 0x1587bd0000 - 0x1587bd2fff 0x1587bd3000 - 0x1587bd3fff 0x1587bd4000 - 0x1587bd6fff 0x1587bd7000 - 0x1587be9fff 0x1587bea000 - 0x1587beafff 0x1587beb000 - 0x1587bebfff 0x1587bec000 - 0x1587d0afff 0x1587d0b000 - 0x1587d0dfff 0x1587d0e000 - 0x1587d10fff 0x1587d11000 - 0x1587d15fff 0x1587d16000 - 0x1587d6afff 0x1587d6b000 - 0x1588415fff 0x3fff963000 - 0x3fff983fff 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 Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0xe35f000 - 0xe37ffff 0x80000000 - 0x800bffff 0x155c778000 - 0x155c792fff 0x155c793000 - 0x155c793fff 0x155c794000 - 0x155c794fff 0x155c795000 - 0x155c796fff 0x155c797000 - 0x155c798fff 0x155c799000 - 0x155c79ffff 0x155c7a0000 - 0x155c7a0fff 0x155c7a1000 - 0x155c7a1fff 0x155c7a4000 - 0x155c7a5fff 0x155c7a6000 - 0x155c7e4fff 0x155c7e5000 - 0x155c7e6fff 0x155c7e7000 - 0x155c7edfff 0x155c7ee000 - 0x155c7eefff 0x155c7ef000 - 0x155c814fff 0x155c815000 - 0x155c818fff 0x155c819000 - 0x155c819fff 0x155c81a000 - 0x155c81bfff 0x155c81c000 - 0x155c81cfff 0x155c81d000 - 0x155c81dfff 0x155c81e000 - 0x155c81efff 0x155c81f000 - 0x155c822fff 0x155c823000 - 0x155c823fff 0x155c824000 - 0x155c824fff 0x155c825000 - 0x155c826fff 0x155c827000 - 0x155c827fff 0x155c828000 - 0x155c828fff 0x155c829000 - 0x155c994fff 0x155c995000 - 0x155c997fff 0x155c998000 - 0x155c998fff 0x155c999000 - 0x155c99bfff 0x155c99c000 - 0x155c9aefff 0x155c9af000 - 0x155c9affff 0x155c9b0000 - 0x155c9b0fff 0x155c9b1000 - 0x155cacffff 0x155cad0000 - 0x155cad2fff 0x155cad3000 - 0x155cad5fff 0x155cad6000 - 0x155cadafff 0x155cadb000 - 0x155cb2ffff 0x155cb30000 - 0x155d1dafff 0x3fffb63000 - 0x3fffb83fff (./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 Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x35234000 - 0x35254fff 0x80000000 - 0x800bffff 0x159249c000 - 0x15924b6fff 0x15924b7000 - 0x15924b7fff 0x15924b8000 - 0x15924b8fff 0x15924b9000 - 0x15924bafff 0x15924bb000 - 0x15924bcfff 0x15924bd000 - 0x15924c3fff 0x15924c4000 - 0x15924c4fff 0x15924c5000 - 0x15924c5fff 0x15924c8000 - 0x15924c9fff 0x15924ca000 - 0x1592508fff 0x1592509000 - 0x159250afff 0x159250b000 - 0x1592511fff 0x1592512000 - 0x1592512fff 0x1592513000 - 0x1592538fff 0x1592539000 - 0x159253cfff 0x159253d000 - 0x159253dfff 0x159253e000 - 0x159253ffff 0x1592540000 - 0x1592540fff 0x1592541000 - 0x1592541fff 0x1592542000 - 0x1592542fff 0x1592543000 - 0x1592546fff 0x1592547000 - 0x1592547fff 0x1592548000 - 0x1592548fff 0x1592549000 - 0x159254afff 0x159254b000 - 0x159254bfff 0x159254c000 - 0x159254cfff 0x159254d000 - 0x15926b8fff 0x15926b9000 - 0x15926bbfff 0x15926bc000 - 0x15926bcfff 0x15926bd000 - 0x15926bffff 0x15926c0000 - 0x15926d2fff 0x15926d3000 - 0x15926d3fff 0x15926d4000 - 0x15926d4fff 0x15926d5000 - 0x15927f3fff 0x15927f4000 - 0x15927f6fff 0x15927f7000 - 0x15927f9fff 0x15927fa000 - 0x15927fefff 0x15927ff000 - 0x1592853fff 0x1592854000 - 0x1592efefff 0x3fffa7f000 - 0x3fffa9ffff 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 Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3e3cd000 - 0x3e3edfff 0x80000000 - 0x800bffff 0x155fc92000 - 0x155fcacfff 0x155fcad000 - 0x155fcadfff 0x155fcae000 - 0x155fcaefff 0x155fcaf000 - 0x155fcb0fff 0x155fcb1000 - 0x155fcb2fff 0x155fcb3000 - 0x155fcb9fff 0x155fcba000 - 0x155fcbafff 0x155fcbb000 - 0x155fcbbfff 0x155fcbe000 - 0x155fcbffff 0x155fcc0000 - 0x155fcfefff 0x155fcff000 - 0x155fd00fff 0x155fd01000 - 0x155fd07fff 0x155fd08000 - 0x155fd08fff 0x155fd09000 - 0x155fd2efff 0x155fd2f000 - 0x155fd32fff 0x155fd33000 - 0x155fd33fff 0x155fd34000 - 0x155fd35fff 0x155fd36000 - 0x155fd36fff 0x155fd37000 - 0x155fd37fff 0x155fd38000 - 0x155fd38fff 0x155fd39000 - 0x155fd3cfff 0x155fd3d000 - 0x155fd3dfff 0x155fd3e000 - 0x155fd3efff 0x155fd3f000 - 0x155fd40fff 0x155fd41000 - 0x155fd41fff 0x155fd42000 - 0x155fd42fff 0x155fd43000 - 0x155feaefff 0x155feaf000 - 0x155feb1fff 0x155feb2000 - 0x155feb2fff 0x155feb3000 - 0x155feb5fff 0x155feb6000 - 0x155fec8fff 0x155fec9000 - 0x155fec9fff 0x155feca000 - 0x155fecafff 0x155fecb000 - 0x155ffe9fff 0x155ffea000 - 0x155ffecfff 0x155ffed000 - 0x155ffeffff 0x155fff0000 - 0x155fff4fff 0x155fff5000 - 0x1560049fff 0x156004a000 - 0x15606f4fff 0x3ffffa5000 - 0x3ffffc5fff 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 Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x33d0a000 - 0x33d2afff 0x80000000 - 0x800bffff 0x15570a2000 - 0x15570bcfff 0x15570bd000 - 0x15570bdfff 0x15570be000 - 0x15570befff 0x15570bf000 - 0x15570c0fff 0x15570c1000 - 0x15570c2fff 0x15570c3000 - 0x15570c9fff 0x15570ca000 - 0x15570cafff 0x15570cb000 - 0x15570cbfff 0x15570ce000 - 0x15570cffff 0x15570d0000 - 0x155710efff 0x155710f000 - 0x1557110fff 0x1557111000 - 0x1557117fff 0x1557118000 - 0x1557118fff 0x1557119000 - 0x155713efff 0x155713f000 - 0x1557142fff 0x1557143000 - 0x1557143fff 0x1557144000 - 0x1557145fff 0x1557146000 - 0x1557146fff 0x1557147000 - 0x1557147fff 0x1557148000 - 0x1557148fff 0x1557149000 - 0x155714cfff 0x155714d000 - 0x155714dfff 0x155714e000 - 0x155714efff 0x155714f000 - 0x1557150fff 0x1557151000 - 0x1557151fff 0x1557152000 - 0x1557152fff 0x1557153000 - 0x15572befff 0x15572bf000 - 0x15572c1fff 0x15572c2000 - 0x15572c2fff 0x15572c3000 - 0x15572c5fff 0x15572c6000 - 0x15572d8fff 0x15572d9000 - 0x15572d9fff 0x15572da000 - 0x15572dafff 0x15572db000 - 0x15573f9fff 0x15573fa000 - 0x15573fcfff 0x15573fd000 - 0x15573fffff 0x1557400000 - 0x1557404fff 0x1557405000 - 0x1557459fff 0x155745a000 - 0x1557b04fff 0x3ffff8d000 - 0x3ffffadfff 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 Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3beb3000 - 0x3bed3fff 0x80000000 - 0x800bffff 0x158cfe1000 - 0x158cffbfff 0x158cffc000 - 0x158cffcfff 0x158cffd000 - 0x158cffdfff 0x158cffe000 - 0x158cffffff 0x158d000000 - 0x158d001fff 0x158d002000 - 0x158d008fff 0x158d009000 - 0x158d009fff 0x158d00a000 - 0x158d00afff 0x158d00d000 - 0x158d00efff 0x158d00f000 - 0x158d04dfff 0x158d04e000 - 0x158d04ffff 0x158d050000 - 0x158d056fff 0x158d057000 - 0x158d057fff 0x158d058000 - 0x158d07dfff 0x158d07e000 - 0x158d081fff 0x158d082000 - 0x158d082fff 0x158d083000 - 0x158d084fff 0x158d085000 - 0x158d085fff 0x158d086000 - 0x158d086fff 0x158d087000 - 0x158d087fff 0x158d088000 - 0x158d08bfff 0x158d08c000 - 0x158d08cfff 0x158d08d000 - 0x158d08dfff 0x158d08e000 - 0x158d08ffff 0x158d090000 - 0x158d090fff 0x158d091000 - 0x158d091fff 0x158d092000 - 0x158d1fdfff 0x158d1fe000 - 0x158d200fff 0x158d201000 - 0x158d201fff 0x158d202000 - 0x158d204fff 0x158d205000 - 0x158d217fff 0x158d218000 - 0x158d218fff 0x158d219000 - 0x158d219fff 0x158d21a000 - 0x158d338fff 0x158d339000 - 0x158d33bfff 0x158d33c000 - 0x158d33efff 0x158d33f000 - 0x158d343fff 0x158d344000 - 0x158d398fff 0x158d399000 - 0x158da43fff 0x3fffe5c000 - 0x3fffe7cfff 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 Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3b245000 - 0x3b265fff 0x80000000 - 0x800bffff 0x15700b5000 - 0x15700cffff 0x15700d0000 - 0x15700d0fff 0x15700d1000 - 0x15700d1fff 0x15700d2000 - 0x15700d3fff 0x15700d4000 - 0x15700d5fff 0x15700d6000 - 0x15700dcfff 0x15700dd000 - 0x15700ddfff 0x15700de000 - 0x15700defff 0x15700e1000 - 0x15700e2fff 0x15700e3000 - 0x1570121fff 0x1570122000 - 0x1570123fff 0x1570124000 - 0x157012afff 0x157012b000 - 0x157012bfff 0x157012c000 - 0x1570151fff 0x1570152000 - 0x1570155fff 0x1570156000 - 0x1570156fff 0x1570157000 - 0x1570158fff 0x1570159000 - 0x1570159fff 0x157015a000 - 0x157015afff 0x157015b000 - 0x157015bfff 0x157015c000 - 0x157015ffff 0x1570160000 - 0x1570160fff 0x1570161000 - 0x1570161fff 0x1570162000 - 0x1570163fff 0x1570164000 - 0x1570164fff 0x1570165000 - 0x1570165fff 0x1570166000 - 0x15702d1fff 0x15702d2000 - 0x15702d4fff 0x15702d5000 - 0x15702d5fff 0x15702d6000 - 0x15702d8fff 0x15702d9000 - 0x15702ebfff 0x15702ec000 - 0x15702ecfff 0x15702ed000 - 0x15702edfff 0x15702ee000 - 0x157040cfff 0x157040d000 - 0x157040ffff 0x1570410000 - 0x1570412fff 0x1570413000 - 0x1570417fff 0x1570418000 - 0x157046cfff 0x157046d000 - 0x1570b17fff 0x3fffd9f000 - 0x3fffdbffff 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 Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x33d9d000 - 0x33dbdfff 0x80000000 - 0x800bffff 0x157927a000 - 0x1579294fff 0x1579295000 - 0x1579295fff 0x1579296000 - 0x1579296fff 0x1579297000 - 0x1579298fff 0x1579299000 - 0x157929afff 0x157929b000 - 0x15792a1fff 0x15792a2000 - 0x15792a2fff 0x15792a3000 - 0x15792a3fff 0x15792a6000 - 0x15792a7fff 0x15792a8000 - 0x15792e6fff 0x15792e7000 - 0x15792e8fff 0x15792e9000 - 0x15792effff 0x15792f0000 - 0x15792f0fff 0x15792f1000 - 0x1579316fff 0x1579317000 - 0x157931afff 0x157931b000 - 0x157931bfff 0x157931c000 - 0x157931dfff 0x157931e000 - 0x157931efff 0x157931f000 - 0x157931ffff 0x1579320000 - 0x1579320fff 0x1579321000 - 0x1579324fff 0x1579325000 - 0x1579325fff 0x1579326000 - 0x1579326fff 0x1579327000 - 0x1579328fff 0x1579329000 - 0x1579329fff 0x157932a000 - 0x157932afff 0x157932b000 - 0x1579496fff 0x1579497000 - 0x1579499fff 0x157949a000 - 0x157949afff 0x157949b000 - 0x157949dfff 0x157949e000 - 0x15794b0fff 0x15794b1000 - 0x15794b1fff 0x15794b2000 - 0x15794b2fff 0x15794b3000 - 0x15795d1fff 0x15795d2000 - 0x15795d4fff 0x15795d5000 - 0x15795d7fff 0x15795d8000 - 0x15795dcfff 0x15795dd000 - 0x1579631fff 0x1579632000 - 0x1579cdcfff 0x3fffe60000 - 0x3fffe80fff 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 Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x20d9a000 - 0x20dbafff 0x80000000 - 0x800bffff 0x157b5da000 - 0x157b5f4fff 0x157b5f5000 - 0x157b5f5fff 0x157b5f6000 - 0x157b5f6fff 0x157b5f7000 - 0x157b5f8fff 0x157b5f9000 - 0x157b5fafff 0x157b5fb000 - 0x157b601fff 0x157b602000 - 0x157b602fff 0x157b603000 - 0x157b603fff 0x157b606000 - 0x157b607fff 0x157b608000 - 0x157b646fff 0x157b647000 - 0x157b648fff 0x157b649000 - 0x157b64ffff 0x157b650000 - 0x157b650fff 0x157b651000 - 0x157b676fff 0x157b677000 - 0x157b67afff 0x157b67b000 - 0x157b67bfff 0x157b67c000 - 0x157b67dfff 0x157b67e000 - 0x157b67efff 0x157b67f000 - 0x157b67ffff 0x157b680000 - 0x157b680fff 0x157b681000 - 0x157b684fff 0x157b685000 - 0x157b685fff 0x157b686000 - 0x157b686fff 0x157b687000 - 0x157b688fff 0x157b689000 - 0x157b689fff 0x157b68a000 - 0x157b68afff 0x157b68b000 - 0x157b7f6fff 0x157b7f7000 - 0x157b7f9fff 0x157b7fa000 - 0x157b7fafff 0x157b7fb000 - 0x157b7fdfff 0x157b7fe000 - 0x157b810fff 0x157b811000 - 0x157b811fff 0x157b812000 - 0x157b812fff 0x157b813000 - 0x157b931fff 0x157b932000 - 0x157b934fff 0x157b935000 - 0x157b937fff 0x157b938000 - 0x157b93cfff 0x157b93d000 - 0x157b991fff 0x157b992000 - 0x157c03cfff 0x3fffcec000 - 0x3fffd0cfff *** - 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))' Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3c363000 - 0x3c383fff 0x80000000 - 0x800bffff 0x156c4ba000 - 0x156c4d4fff 0x156c4d5000 - 0x156c4d5fff 0x156c4d6000 - 0x156c4d6fff 0x156c4d7000 - 0x156c4d8fff 0x156c4d9000 - 0x156c4dafff 0x156c4db000 - 0x156c4e1fff 0x156c4e2000 - 0x156c4e2fff 0x156c4e3000 - 0x156c4e3fff 0x156c4e6000 - 0x156c4e7fff 0x156c4e8000 - 0x156c526fff 0x156c527000 - 0x156c528fff 0x156c529000 - 0x156c52ffff 0x156c530000 - 0x156c530fff 0x156c531000 - 0x156c556fff 0x156c557000 - 0x156c55afff 0x156c55b000 - 0x156c55bfff 0x156c55c000 - 0x156c55dfff 0x156c55e000 - 0x156c55efff 0x156c55f000 - 0x156c55ffff 0x156c560000 - 0x156c560fff 0x156c561000 - 0x156c564fff 0x156c565000 - 0x156c565fff 0x156c566000 - 0x156c566fff 0x156c567000 - 0x156c568fff 0x156c569000 - 0x156c569fff 0x156c56a000 - 0x156c56afff 0x156c56b000 - 0x156c6d6fff 0x156c6d7000 - 0x156c6d9fff 0x156c6da000 - 0x156c6dafff 0x156c6db000 - 0x156c6ddfff 0x156c6de000 - 0x156c6f0fff 0x156c6f1000 - 0x156c6f1fff 0x156c6f2000 - 0x156c6f2fff 0x156c6f3000 - 0x156c811fff 0x156c812000 - 0x156c814fff 0x156c815000 - 0x156c817fff 0x156c818000 - 0x156c81cfff 0x156c81d000 - 0x156c871fff 0x156c872000 - 0x156cf1cfff 0x3ffff5e000 - 0x3ffff7efff #P"/proc/62545/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 Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1e6a1000 - 0x1e6c1fff 0x80000000 - 0x800bffff 0x156d512000 - 0x156d52cfff 0x156d52d000 - 0x156d52dfff 0x156d52e000 - 0x156d52efff 0x156d52f000 - 0x156d530fff 0x156d531000 - 0x156d532fff 0x156d533000 - 0x156d539fff 0x156d53a000 - 0x156d53afff 0x156d53b000 - 0x156d53bfff 0x156d53e000 - 0x156d53ffff 0x156d540000 - 0x156d57efff 0x156d57f000 - 0x156d580fff 0x156d581000 - 0x156d587fff 0x156d588000 - 0x156d588fff 0x156d589000 - 0x156d5aefff 0x156d5af000 - 0x156d5b2fff 0x156d5b3000 - 0x156d5b3fff 0x156d5b4000 - 0x156d5b5fff 0x156d5b6000 - 0x156d5b6fff 0x156d5b7000 - 0x156d5b7fff 0x156d5b8000 - 0x156d5b8fff 0x156d5b9000 - 0x156d5bcfff 0x156d5bd000 - 0x156d5bdfff 0x156d5be000 - 0x156d5befff 0x156d5bf000 - 0x156d5c0fff 0x156d5c1000 - 0x156d5c1fff 0x156d5c2000 - 0x156d5c2fff 0x156d5c3000 - 0x156d72efff 0x156d72f000 - 0x156d731fff 0x156d732000 - 0x156d732fff 0x156d733000 - 0x156d735fff 0x156d736000 - 0x156d748fff 0x156d749000 - 0x156d749fff 0x156d74a000 - 0x156d74afff 0x156d74b000 - 0x156d869fff 0x156d86a000 - 0x156d86cfff 0x156d86d000 - 0x156d86ffff 0x156d870000 - 0x156d874fff 0x156d875000 - 0x156d8c9fff 0x156d8ca000 - 0x156df74fff 0x3fff807000 - 0x3fff827fff #P"/proc/62547/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1843c000 - 0x1845cfff 0x80000000 - 0x800bffff 0x1560104000 - 0x156011efff 0x156011f000 - 0x156011ffff 0x1560120000 - 0x1560120fff 0x1560121000 - 0x1560122fff 0x1560123000 - 0x1560124fff 0x1560125000 - 0x156012bfff 0x156012c000 - 0x156012cfff 0x156012d000 - 0x156012dfff 0x156012e000 - 0x156012efff 0x1560130000 - 0x1560131fff 0x1560132000 - 0x1560170fff 0x1560171000 - 0x1560172fff 0x1560173000 - 0x1560179fff 0x156017a000 - 0x156017afff 0x156017b000 - 0x15601a0fff 0x15601a1000 - 0x15601a4fff 0x15601a5000 - 0x15601a5fff 0x15601a6000 - 0x15601a7fff 0x15601a8000 - 0x15601a8fff 0x15601a9000 - 0x15601a9fff 0x15601aa000 - 0x15601aafff 0x15601ab000 - 0x15601aefff 0x15601af000 - 0x15601affff 0x15601b0000 - 0x15601b0fff 0x15601b1000 - 0x15601b2fff 0x15601b3000 - 0x15601b3fff 0x15601b4000 - 0x15601b4fff 0x15601b5000 - 0x1560320fff 0x1560321000 - 0x1560323fff 0x1560324000 - 0x1560324fff 0x1560325000 - 0x1560327fff 0x1560328000 - 0x156033afff 0x156033b000 - 0x156033bfff 0x156033c000 - 0x156033cfff 0x156033d000 - 0x156045bfff 0x156045c000 - 0x156045efff 0x156045f000 - 0x1560461fff 0x1560462000 - 0x1560466fff 0x1560467000 - 0x15604bbfff 0x15604bc000 - 0x1560b66fff 0x1560b67000 - 0x1560b69fff 0x1560b6a000 - 0x1560b6bfff 0x1560b6c000 - 0x1560b6cfff 0x1560b6d000 - 0x1560b6dfff 0x3fffd52000 - 0x3fffd72fff i i i i i i i ooooo o ooooooo ooooo ooooo I I I I I I I 8 8 8 8 8 o 8 8 I \ `+' / I 8 8 8 8 8 8 \ `-+-' / 8 8 8 ooooo 8oooo `-__|__-' 8 8 8 8 8 | 8 o 8 8 o 8 8 ------+------ ooooo 8oooooo ooo8ooo ooooo 8 Welcome to GNU CLISP 2.49.93+ (2018-02-18) 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/tests.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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))" Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1c0eb000 - 0x1c10bfff 0x80000000 - 0x800bffff 0x1577b54000 - 0x1577b6efff 0x1577b6f000 - 0x1577b6ffff 0x1577b70000 - 0x1577b70fff 0x1577b71000 - 0x1577b72fff 0x1577b73000 - 0x1577b74fff 0x1577b75000 - 0x1577b7bfff 0x1577b7c000 - 0x1577b7cfff 0x1577b7d000 - 0x1577b7dfff 0x1577b7e000 - 0x1577b7efff 0x1577b80000 - 0x1577b81fff 0x1577b82000 - 0x1577bc0fff 0x1577bc1000 - 0x1577bc2fff 0x1577bc3000 - 0x1577bc9fff 0x1577bca000 - 0x1577bcafff 0x1577bcb000 - 0x1577bf0fff 0x1577bf1000 - 0x1577bf4fff 0x1577bf5000 - 0x1577bf5fff 0x1577bf6000 - 0x1577bf7fff 0x1577bf8000 - 0x1577bf8fff 0x1577bf9000 - 0x1577bf9fff 0x1577bfa000 - 0x1577bfafff 0x1577bfb000 - 0x1577bfefff 0x1577bff000 - 0x1577bfffff 0x1577c00000 - 0x1577c00fff 0x1577c01000 - 0x1577c02fff 0x1577c03000 - 0x1577c03fff 0x1577c04000 - 0x1577c04fff 0x1577c05000 - 0x1577d70fff 0x1577d71000 - 0x1577d73fff 0x1577d74000 - 0x1577d74fff 0x1577d75000 - 0x1577d77fff 0x1577d78000 - 0x1577d8afff 0x1577d8b000 - 0x1577d8bfff 0x1577d8c000 - 0x1577d8cfff 0x1577d8d000 - 0x1577eabfff 0x1577eac000 - 0x1577eaefff 0x1577eaf000 - 0x1577eb1fff 0x1577eb2000 - 0x1577eb6fff 0x1577eb7000 - 0x1577f0bfff 0x1577f0c000 - 0x15785b6fff 0x15785b7000 - 0x15785b9fff 0x15785ba000 - 0x15785bbfff 0x15785bc000 - 0x15785bcfff 0x15785bd000 - 0x15785bdfff 0x3fff944000 - 0x3fff964fff i i i i i i i ooooo o ooooooo ooooo ooooo I I I I I I I 8 8 8 8 8 o 8 8 I \ `+' / I 8 8 8 8 8 8 \ `-+-' / 8 8 8 ooooo 8oooo `-__|__-' 8 8 8 8 8 | 8 o 8 8 o 8 8 ------+------ ooooo 8oooooo ooo8ooo ooooo 8 Welcome to GNU CLISP 2.49.93+ (2018-02-18) 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/tests.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/tests.fas RUN-TEST: started # ((LAMBDA (A B) (+ A (* B 3))) 4 5) EQL-OK: 19 ((LAMBDA (A &OPTIONAL (B 2)) (+ A (* B 3))) 4 5) EQL-OK: 19 ((LAMBDA (&OPTIONAL (A 2 B) (C 3 D) &REST X) (LIST A B C D X))) EQUAL-OK: (2 NIL 3 NIL NIL) ((LAMBDA (A B &KEY C D) (LIST A B C D)) 1 2) EQUAL-OK: (1 2 NIL NIL) ((LAMBDA (A &OPTIONAL (B 3) &REST X &KEY C (D A)) (LIST A B C D X)) 1) EQUAL-OK: (1 3 NIL 1 NIL) ((LAMBDA (X &AUX (A 3) (B 4)) (+ X (* A B))) 2) EQL-OK: 14 ((LAMBDA (X Y &OPTIONAL A B &REST Z &KEY C (D Y) &AUX (U 3) (V 4)) (+ X Y A (* B (CAR Z)) C (* D U) V)) 3 4 5 2 7 :C 6 :D 8) [SIMPLE-PROGRAM-ERROR]: :LAMBDA: keyword arguments in (7 :C 6 :D 8) should occur pairwise EQL-OK: ERROR ((LAMBDA (X Y) ((LAMBDA (A B) (LIST A B)) 'U 'V)) 5 6) EQUAL-OK: (U V) ((LAMBDA (X &ALLOW-OTHER-KEYS) (LIST X Y)) 2 :Y 3) [SIMPLE-SOURCE-PROGRAM-ERROR]: FUNCTION: Lambda list marker &ALLOW-OTHER-KEYS not allowed here. EQL-OK: ERROR LAMBDA-LIST-KEYWORDS EQUAL-OK: (&OPTIONAL &REST &KEY &ALLOW-OTHER-KEYS &AUX &BODY &WHOLE &ENVIRONMENT) (LET ((S (PRIN1-TO-STRING LAMBDA-PARAMETERS-LIMIT))) (OR (EQUAL S "65536") (EQUAL S "4294967296") (EQUAL S "4096"))) EQL-OK: T (TYPEP 'NIL 'NULL) EQL-OK: T (TYPEP '(A B C) 'NULL) EQL-OK: NIL (TYPEP 'ABC 'SYMBOL) EQL-OK: T (TYPEP 4 'ATOM) EQL-OK: T (TYPEP 55 'CONS) EQL-OK: NIL (TYPEP '(A (B C)) 'LIST) EQL-OK: T (TYPEP 5/8 'NUMBER) EQL-OK: T (TYPEP -800 'INTEGER) EQL-OK: T (TYPEP 5/7 'RATIONAL) EQL-OK: T (TYPEP 2.718 'FLOAT) EQL-OK: T (TYPEP #C(1.23 3.56) 'FLOAT) EQL-OK: NIL (TYPEP #\a 'CHARACTER) EQL-OK: T (TYPEP "abc" 'STRING) EQL-OK: T (TYPEP '#(1 2 3) 'STRING) EQL-OK: NIL (TYPEP '#(A B C) 'BIT-VECTOR) EQL-OK: NIL (TYPEP '#(A B C) 'VECTOR) EQL-OK: T (TYPEP "abc" 'VECTOR) EQL-OK: T (TYPEP '#(1 2 3 4) 'SIMPLE-VECTOR) EQL-OK: T (TYPEP 3 'SIMPLE-VECTOR) EQL-OK: NIL (TYPEP "a b cd" 'SIMPLE-STRING) EQL-OK: T (TYPEP 'ABC 'SIMPLE-STRING) EQL-OK: NIL (TYPEP #*1101 'SIMPLE-BIT-VECTOR) EQL-OK: T (TYPEP '#(1 0 0 1) 'SIMPLE-BIT-VECTOR) EQL-OK: NIL (TYPEP '#2A((A B) (C D)) 'ARRAY) EQL-OK: T (SETQ X 7) EQL-OK: 7 (TYPEP X 'COMPILED-FUNCTION) EQL-OK: NIL (TYPEP X 'COMMON) [SIMPLE-ERROR]: TYPEP: invalid type specification COMMON EQL-OK: ERROR (SUBTYPEP 'CHARACTER 'NUMBER) EQL-OK: NIL (SUBTYPEP 'NUMBER 'CHARACTER) EQL-OK: NIL (SUBTYPEP 'STRING 'NUMBER) EQL-OK: NIL (SUBTYPEP 'COMPLEX 'NUMBER) EQL-OK: T (SUBTYPEP 'FLOAT 'NUMBER) EQL-OK: T (SUBTYPEP 'FIXNUM 'NUMBER) EQL-OK: T (SUBTYPEP 'RATIONAL 'NUMBER) EQL-OK: T (SUBTYPEP 'FLOAT 'COMPLEX) EQL-OK: NIL (SUBTYPEP 'INTEGER 'RATIONAL) EQL-OK: T (SUBTYPEP 'NUMBER 'VECTOR) EQL-OK: NIL (SUBTYPEP 'VECTOR 'ARRAY) EQL-OK: T (SUBTYPEP 'NUMBER 'ARRAY) EQL-OK: NIL (NULL 'NIL) EQL-OK: T (SYMBOLP *STANDARD-INPUT*) EQL-OK: NIL (SYMBOLP 'CAR) EQL-OK: T (ATOM 'ABC) EQL-OK: T (CONSP (ACONS 'X 'Y 'A)) EQL-OK: T (LISTP '(((A . B) . C))) EQL-OK: T (LISTP 'A) EQL-OK: NIL (LISTP NIL) EQL-OK: T (LISTP '(A B C)) EQL-OK: T (NUMBERP #*101) EQL-OK: NIL (NUMBERP -5) EQL-OK: T (INTEGERP 5) EQL-OK: T (INTEGERP #\+) EQL-OK: NIL (RATIONALP 0) EQL-OK: T (FLOATP -5) EQL-OK: NIL (FLOATP (READ-FROM-STRING "1.0e30")) EQL-OK: T (FLOATP 123.4) EQL-OK: T (COMPLEXP 1/2) EQL-OK: NIL (COMPLEXP #C(2 3)) EQL-OK: T (CHARACTERP #\1) EQL-OK: T (STRINGP "abc") EQL-OK: T (STRINGP :+*/-) EQL-OK: NIL (BIT-VECTOR-P (READ-FROM-STRING "#5*01110")) EQL-OK: T (VECTORP "abc") EQL-OK: T (SIMPLE-VECTOR-P #*101) EQL-OK: NIL (SIMPLE-STRING-P "abc") EQL-OK: T (SIMPLE-STRING-P :+*/-) EQL-OK: NIL (SIMPLE-BIT-VECTOR-P #*101) EQL-OK: T (ARRAYP (READ-FROM-STRING "#7(2 4 3)")) EQL-OK: T (ARRAYP '(READ-FROM-STRING "#1a 5.77")) EQL-OK: NIL (PACKAGEP (READ-FROM-STRING "#5*01110")) EQL-OK: NIL (PACKAGEP *PACKAGE*) EQL-OK: T (FUNCTIONP 'ATOM) EQL-OK: NIL (COMPILED-FUNCTION-P 'DO) EQL-OK: NIL (EQ '(1 2 3 4 5) (COPY-LIST '(1 2 3 4 5))) EQL-OK: NIL (SETQ X '((1 . A) (2 . B) (3 . C))) EQUAL-OK: ((1 . A) (2 . B) (3 . C)) (EQ (CADR X) (CADR (COPY-ALIST X))) EQL-OK: NIL (EQ #\A #\A) EQL-OK: T (EQ "Foo" "Foo") EQL-OK: NIL (EQ "Foo" (COPY-SEQ "Foo")) EQL-OK: NIL (EQL #C(3.0 -4.0) #C(3 -4)) EQL-OK: NIL (EQL (CONS 'A 'B) (CONS 'A 'C)) EQL-OK: NIL (EQUAL '(1 2 3 4 5) (COPY-LIST '(1 2 3 4 5))) EQL-OK: T (EQUAL X (COPY-ALIST X)) EQL-OK: T (EQUAL 3 3) EQL-OK: T (EQUAL 3 3.0) EQL-OK: NIL (EQUAL 3.0 3.0) EQL-OK: T (EQUAL #C(3 -4) #C(3 -4)) EQL-OK: T (EQUALP '(1 2 3 4 5) (COPY-LIST '(1 2 3 4 5))) EQL-OK: T (EQUALP " foo" " FOO") EQL-OK: T (EQUALP " fou" " FOO") EQL-OK: NIL (EQUALP '(0 1) '(#P"")) EQL-OK: NIL (NOT 1) EQL-OK: NIL (NOT NIL) EQL-OK: T (AND (EQ 1 2) (EQ 2 3) (EQ 3 4) (EQ 4 4)) EQL-OK: NIL (AND (EQ 1 2) (EQ 3 3) (EQ 3 4) (EQ 4 4)) EQL-OK: NIL (OR (EQ 2 2) (EQ 3 3) (EQ 3 4) (EQ 4 4)) EQL-OK: T (OR (EQ 1 2) (EQ 2 3) (EQ 3 4) (EQ 4 5)) EQL-OK: NIL (SETQ LI1 '(A (B) ((C) (D)))) EQUAL-OK: (A (B) ((C) (D))) (SETQ VEC1 '#(0 1 2 3)) EQUALP-OK: #(0 1 2 3) (SETF (NTH 1 LI1) 'UU) EQL-OK: UU (EVAL 'LI1) EQUAL-OK: (A UU ((C) (D))) (SETF (ELT LI1 1) 'OO) EQL-OK: OO (SETF (ELT VEC1 1) 'OO) EQL-OK: OO (EVAL 'LI1) EQUAL-OK: (A OO ((C) (D))) (EVAL 'VEC1) EQUALP-OK: #(0 OO 2 3) (SETF (REST LI1) '((WW))) EQUAL-OK: ((WW)) (EVAL 'LI1) EQUAL-OK: (A (WW)) (SETF (FIRST LI1) 'AA) EQL-OK: AA (FIRST LI1) EQL-OK: AA (SETF (SECOND LI1) 'BB) EQL-OK: BB (EVAL 'LI1) EQUAL-OK: (AA BB) (SETF (REST LI1) '(2 3 4 5 6 7 8 9 10)) EQUAL-OK: (2 3 4 5 6 7 8 9 10) (SETF (SECOND LI1) 22) EQL-OK: 22 (EVAL 'LI1) EQUAL-OK: (AA 22 3 4 5 6 7 8 9 10) (SETF (THIRD LI1) '33) EQL-OK: 33 (SETF (FOURTH LI1) '44) EQL-OK: 44 (SETF (FIFTH LI1) '55) EQL-OK: 55 (SETF (SIXTH LI1) '66) EQL-OK: 66 (SETF (SEVENTH LI1) '77) EQL-OK: 77 (SETF (EIGHTH LI1) '88) EQL-OK: 88 (SETF (NINTH LI1) '99) EQL-OK: 99 (SETF (TENTH LI1) '1010) EQL-OK: 1010 (EVAL 'LI1) EQUAL-OK: (AA 22 33 44 55 66 77 88 99 1010) (SETF (FIRST LI1) '(((A)))) EQUAL-OK: (((A))) (SETF (CAAAR LI1) 'UU) EQL-OK: UU (CAAAR LI1) EQL-OK: UU (CAR LI1) EQUAL-OK: ((UU)) (SETF (CAAR LI1) 'OO) EQL-OK: OO (EVAL 'LI1) EQUAL-OK: ((OO) 22 33 44 55 66 77 88 99 1010) (SETF (CAR LI1) 'II) EQL-OK: II (EVAL 'LI1) EQUAL-OK: (II 22 33 44 55 66 77 88 99 1010) (SETF (CDDDR LI1) 'PP) EQL-OK: PP (EVAL 'LI1) EQUAL-OK: (II 22 33 . PP) (SETF (CADDR LI1) '333) EQL-OK: 333 (EVAL 'LI1) EQUAL-OK: (II 22 333 . PP) (SETF (SVREF VEC1 2) 'KK) EQL-OK: KK (EVAL 'VEC1) EQUALP-OK: #(0 OO KK 3) (SETF (GET 'A 'B) 'UU) EQL-OK: UU (GET 'A 'B) EQL-OK: UU (SETF (GETF (CADR (SETQ XX '(AAA (I1 V1 I2 V2)))) 'I2) 'V222) EQL-OK: V222 (EVAL 'XX) EQUAL-OK: (AAA (I1 V1 I2 V222)) (GETF (CADR XX) 'I2) EQL-OK: V222 (GETF (CADR XX) 'I1) EQL-OK: V1 (SETF (DOCUMENTATION 'BEISPIEL 'TYP1) "doc 1") EQUAL-OK: "doc 1" (SETF (DOCUMENTATION 'BEISPIEL 'TYP2) "doc 2") EQUAL-OK: "doc 2" (DOCUMENTATION 'BEISPIEL 'TYP2) EQUAL-OK: "doc 2" (SETF (DOCUMENTATION 'BEISPIEL 'TYP2) "doc 3") EQUAL-OK: "doc 3" (DOCUMENTATION 'BEISPIEL 'TYP2) EQUAL-OK: "doc 3" (SYMBOL-PLIST 'BEISPIEL) EQUAL-OK: (SYSTEM::DOC (TYP2 "doc 3" TYP1 "doc 1")) (SETF (SYMBOL-VALUE 'XX) 'VOELLIGNEU) EQL-OK: VOELLIGNEU (EVAL 'XX) EQL-OK: VOELLIGNEU (LET ((X (LIST 'A 'B 'C))) (RPLACD (LAST X) X) (LIST-LENGTH X)) EQL-OK: NIL (MAPCAR #'(LAMBDA (X) (LIST X)) '(A B C)) EQUAL-OK: ((A) (B) (C)) (MAPC #'(LAMBDA (X Y Z) (LIST X Y Z)) '(A B C) '(1 2 3) '(U I V)) EQUAL-OK: (A B C) (MAPL #'(LAMBDA (X Y Z) (LIST X Y Z)) '(A B C) '(1 2 3) '(U I V)) EQUAL-OK: (A B C) (MAPLIST #'(LAMBDA (X Y Z) (LIST X Y Z)) '(A B C) '(1 2 3) '(U I V)) EQUAL-OK: (((A B C) (1 2 3) (U I V)) ((B C) (2 3) (I V)) ((C) (3) (V))) (MAPCON #'(LAMBDA (X Y Z) (LIST X Y Z)) '(A B) '(1 2 3) '(U I V)) EQUAL-OK: ((A B) (1 2 3) (U I V) (B) (2 3) (I V)) (MAPCAN #'(LAMBDA (X Y Z) (LIST X Y Z)) '(A B C) '(1 2 3) '(U I V)) EQUAL-OK: (A 1 U B 2 I C 3 V) (FUNCALL (COMPILE NIL (LAMBDA (X) (FLET ((FOO (Y) (+ Y 1))) (FOO (* 2 X))))) 3) EQL-OK: 7 (LET ((NOT-A-GLOBALLY-SPECIAL-VAR 3)) (PROGV '(NOT-A-GLOBALLY-SPECIAL-VAR) '(4) (LIST NOT-A-GLOBALLY-SPECIAL-VAR (SYMBOL-VALUE 'NOT-A-GLOBALLY-SPECIAL-VAR)))) EQUAL-OK: (3 4) (FLET ((CONS (X Y) `(KONS ,X ,Y))) (LET ((CONS (SYMBOL-FUNCTION '+))) (FUNCALL #'CONS (FUNCALL 'CONS 1 2) (FUNCALL CONS 1 2)))) EQUAL-OK: (KONS (1 . 2) 3) (LET* ((N (MIN (1- LAMBDA-PARAMETERS-LIMIT) (CASE (READ-FROM-STRING (SOFTWARE-TYPE)) ((G++ I686-PC-MINGW32-G++) 256) (I686-PC-MINGW32-GCC 512) (T 1024)))) (VARS (LOOP REPEAT N COLLECT (GENSYM)))) (EVAL `(= ,N (FLET ((%F ,VARS (+ ,@VARS))) (%F ,@(LOOP FOR E IN VARS COLLECT 1)))))) EQL-OK: T (LET ((LS (LOOP FOR I FROM 1 TO (MIN (1- MULTIPLE-VALUES-LIMIT) 100000) COLLECT I))) (EQUAL LS (MULTIPLE-VALUE-LIST (VALUES-LIST LS)))) EQL-OK: T (KEYWORDP 36) EQL-OK: NIL (KEYWORDP :RENAME) EQL-OK: T (ZEROP -456) EQL-OK: NIL (ZEROP 0) EQL-OK: T (PLUSP 3) EQL-OK: T (PLUSP 3453786543987565) EQL-OK: T (MINUSP -456) EQL-OK: T (ODDP -1) EQL-OK: T (ODDP 0) EQL-OK: NIL (EVENP -456) EQL-OK: T (EVENP -345) EQL-OK: NIL (= 5/2 2.5) EQL-OK: T (/= 3.0 3) EQL-OK: NIL (/= 3.0 #C(3.0 1.0)) EQL-OK: T (< 3.0 3) EQL-OK: NIL (< 3 3.0 3 #C(3.0 0.0)) [SIMPLE-TYPE-ERROR]: <: #1=#C(3.0 0.0) is not a real number EQL-OK: ERROR (< -5 -4 -2 0 4 5) EQL-OK: T (> 8 7 6 5 4) EQL-OK: T (> 3 3.0 3 #C(3.0 0.0)) [SIMPLE-TYPE-ERROR]: >: #1=#C(3.0 0.0) is not a real number EQL-OK: ERROR (<= 3.0 3) EQL-OK: T (<= 3 3) EQL-OK: T (<= 1 3 3 2 5) EQL-OK: NIL (<= 5/2 2.5) EQL-OK: T (>= -5 -4 -2 0 4 5) EQL-OK: NIL (MAX 1 3 2 -7) EQL-OK: 3 (+ 1 1/2 0.5 #C(3.0 5.5)) EQL-OK: #C(5.0 5.5) (- 3 0 3 5 -6) EQL-OK: 1 (- #C(0 6) 1/4 0.5 7) EQUALP-OK: #C(-7.75 6.0) (* 7 6 5 4 3 2 1) EQL-OK: 5040 (* 2 2 2.0 2) EQL-OK: 16.0 (/ -8) EQL-OK: -1/8 (/ 4 2) EQL-OK: 2 (1+ 0) EQL-OK: 1 (1+ #C(0 1)) EQL-OK: #C(1 1) (1- 5.0) EQL-OK: 4.0 (CONJUGATE #C(3/5 4/5)) EQL-OK: #C(3/5 -4/5) (GCD 91 -49) EQL-OK: 7 (LCM 14 35) EQL-OK: 70 (PRIN1-TO-STRING (EXP 1)) EQUAL-OK: "2.7182817" (EXPT #C(0 1) 2) EQL-OK: -1 (PRIN1-TO-STRING (EXPT 2 #C(0 1))) EQUAL-OK: "#C(0.7692389 0.63896126)" (PRIN1-TO-STRING (LOG -3 10)) EQUAL-OK: "#C(0.47712126 1.3643764)" (LOG 3 0) [SIMPLE-DIVISION-BY-ZERO]: LOG: division by zero EQL-OK: ERROR (SQRT 9) EQUALP-OK: 3.0 (SQRT -9.0) EQUALP-OK: #C(0.0 3.0) (ISQRT 9) EQL-OK: 3 (ISQRT 26) EQL-OK: 5 (ABS 6) EQL-OK: 6 (ABS -6) EQL-OK: 6 (SIGNUM 0) EQL-OK: 0 (SIGNUM -4) EQL-OK: -1 (SIGNUM 4) EQL-OK: 1 (PRIN1-TO-STRING (SIN (* 8 (/ PI 2)))) EQUAL-OK: "2.0066230454737344098L-19" (LET* ((FUDGE 2) (VAL (TAN (/ PI 2))) (REF (COS (/ PI 2))) (REL-ERR (ABS (/ (- (/ VAL) REF) REF)))) (< REL-ERR (* FUDGE LONG-FLOAT-EPSILON))) EQL-OK: T (PRIN1-TO-STRING (SIN (EXPT 10 3))) EQUAL-OK: "0.82687956" (COS 0) EQUALP-OK: 1.0 (PRIN1-TO-STRING (COS (/ PI 2))) EQUAL-OK: "-2.5082788068421680123L-20" (PRIN1-TO-STRING (TAN 1)) EQUAL-OK: "1.5574077" (PRIN1-TO-STRING (TAN (/ PI 2))) EQUAL-OK: "-3.9867976290042641156L19" (PRIN1-TO-STRING (CIS -1)) EQUAL-OK: "#C(0.5403023 -0.84147096)" (CIS 2.5) EQL-OK: #C(-0.8011436 0.5984721) (PRIN1-TO-STRING (ASIN -1)) EQUAL-OK: "-1.5707964" (ASIN 0) EQUALP-OK: 0.0 (ASIN 2) EQL-OK: #C(1.5707964 -1.316958) (PRIN1-TO-STRING (ACOS 0)) EQUAL-OK: "1.5707964" (PRIN1-TO-STRING (ACOS -1)) EQUAL-OK: "3.1415927" (PRIN1-TO-STRING (ACOS 2)) EQUAL-OK: "#C(0 1.316958)" (ACOS 1.00001) EQUALP-OK: #C(0.0 0.0044751023) (ATAN 1) EQL-OK: 0.7853981 (PRIN1-TO-STRING PI) EQUAL-OK: "3.1415926535897932385L0" (SINH 0) EQUALP-OK: 0.0 (PRIN1-TO-STRING (SINH #C(5.0 -9.6))) EQUAL-OK: "#C(-73.06699 12.93681)" (COSH 0) EQUALP-OK: 1.0 (PRIN1-TO-STRING (COSH 1)) EQUAL-OK: "1.5430807" (TANH 50) EQL-OK: 1.0 (PRIN1-TO-STRING (TANH 0.00753)) EQUAL-OK: "0.0075298576" (PRIN1-TO-STRING (ASINH 0.5)) EQUAL-OK: "0.48121184" (PRIN1-TO-STRING (ASINH 3/7)) EQUAL-OK: "0.4164307" (ACOSH 0) EQL-OK: #C(0 1.5707964) (ACOSH 1) EQL-OK: 0 (ACOSH -1) EQL-OK: #C(0 3.1415927) (PRIN1-TO-STRING (ATANH 0.5)) EQUAL-OK: "0.54930615" (PRIN1-TO-STRING (ATANH 3/7)) EQUAL-OK: "0.4581453" (= (SIN (* #C(0 1) 5)) (* #C(0 1) (SINH 5))) EQL-OK: T (= (COS (* #C(0 1) 5)) (COSH 5)) EQL-OK: T (= (TAN (* #C(0 1) 5)) (* #C(0 1) (TANH 5))) EQL-OK: T (= (SINH (* #C(0 1) 5)) (* #C(0 1) (SIN 5))) EQL-OK: T (= (COSH (* #C(0 1) 5)) (COS 5)) EQL-OK: T (= (TANH (* #C(0 1) 5)) (* #C(0 1) (TAN 5))) EQL-OK: T (FLOAT 1) EQL-OK: 1.0 (FLOAT 0.5) EQL-OK: 0.5 (RATIONAL 2) EQL-OK: 2 (RATIONAL 2.0) EQL-OK: 2 (RATIONAL 2.5) EQL-OK: 5/2 (RATIONALIZE 2.5) EQL-OK: 5/2 (RATIONALIZE 7/3) EQL-OK: 7/3 (RATIONALIZE PI) EQL-OK: 8717442233/2774848045 (NUMERATOR 5/2) EQL-OK: 5 (NUMERATOR (/ 8 -6)) EQL-OK: -4 (DENOMINATOR 5/2) EQL-OK: 2 (DENOMINATOR (/ 8 -6)) EQL-OK: 3 (GCD (NUMERATOR 7/9) (DENOMINATOR 7/9)) EQL-OK: 1 (FLOOR 2.6) EQL-OK: 2 (FLOOR 2.5) EQL-OK: 2 (CEILING 2.6) EQL-OK: 3 (CEILING 2.5) EQL-OK: 3 (CEILING 2.4) EQL-OK: 3 (TRUNCATE 2.6) EQL-OK: 2 (TRUNCATE 2.5) EQL-OK: 2 (TRUNCATE 2.4) EQL-OK: 2 (ROUND 2.6) EQL-OK: 3 (ROUND 2.5) EQL-OK: 2 (ROUND 2.4) EQL-OK: 2 (MOD 13 4) EQL-OK: 1 (MOD -13 4) EQL-OK: 3 (PRIN1-TO-STRING (REM 13.4 1)) EQUAL-OK: "0.39999962" (FFLOOR 2.6) EQUALP-OK: 2 (FFLOOR 2.5) EQUALP-OK: 2 (FFLOOR 2.4) EQUALP-OK: 2 (FCEILING -0.3) EQUALP-OK: 0 (FCEILING -0.7) EQUALP-OK: 0 (FCEILING -2.4) EQUALP-OK: -2 (FTRUNCATE 2.5) EQL-OK: 2.0 (FTRUNCATE 2.4) EQL-OK: 2.0 (FROUND -0.7) EQL-OK: -1.0 (FROUND -2.4) EQL-OK: -2.0 (DECODE-FLOAT 35.0) EQL-OK: 0.546875 (DECODE-FLOAT 3.5s0) EQL-OK: 0.875s0 (SCALE-FLOAT 2.5 5) EQL-OK: 80.0 (SCALE-FLOAT 0.7541 2) EQL-OK: 3.0164 (FLOAT-RADIX 2.5) EQL-OK: 2 (FLOAT-RADIX 3.5d0) EQL-OK: 2 (COMPLEX 1/4 7.3) EQUALP-OK: #C(0.25 7.3) (COMPLEX 1 0) EQL-OK: 1 (REALPART 5) EQL-OK: 5 (REALPART #C(1.4 0.0)) EQL-OK: 1.4 (IMAGPART 5) EQL-OK: 0 (IMAGPART #C(1.4 0.0)) EQL-OK: 0.0 (LOGCOUNT 13) EQL-OK: 3 (LOGCOUNT -13) EQL-OK: 2 (INTEGER-LENGTH 0) EQL-OK: 0 (INTEGER-LENGTH 1) EQL-OK: 1 BOOLE-CLR EQL-OK: 0 BOOLE-SET EQL-OK: 15 BOOLE-1 EQL-OK: 10 BOOLE-2 EQL-OK: 12 BOOLE-C1 EQL-OK: 5 BOOLE-C2 EQL-OK: 3 BOOLE-AND EQL-OK: 8 BOOLE-IOR EQL-OK: 14 BOOLE-XOR EQL-OK: 6 BOOLE-EQV EQL-OK: 9 BOOLE-NAND EQL-OK: 7 BOOLE-NOR EQL-OK: 1 BOOLE-ANDC1 EQL-OK: 4 BOOLE-ANDC2 EQL-OK: 2 BOOLE-ORC1 EQL-OK: 13 BOOLE-ORC2 EQL-OK: 11 (LET ((S (PRIN1-TO-STRING MOST-POSITIVE-FIXNUM))) (OR (EQUAL S "16777215") (EQUAL S "33554431") (EQUAL S "67108863") (EQUAL S "4294967295") (EQUAL S "8589934591") (EQUAL S "17179869183") (EQUAL S "34359738367") (EQUAL S "68719476735") (EQUAL S "549755813887") (EQUAL S "1099511627775") (EQUAL S "2199023255551") (EQUAL S "281474976710655") (EQUAL S "4503599627370495") (EQUAL S "36028797018963967") (EQUAL S "72057594037927935") (EQUAL S "288230376151711743"))) EQL-OK: T (LET ((S (PRIN1-TO-STRING MOST-NEGATIVE-FIXNUM))) (OR (EQUAL S "-16777216") (EQUAL S "-33554432") (EQUAL S "-67108864") (EQUAL S "-4294967296") (EQUAL S "-8589934592") (EQUAL S "-17179869184") (EQUAL S "-34359738368") (EQUAL S "-68719476736") (EQUAL S "-549755813888") (EQUAL S "-1099511627776") (EQUAL S "-2199023255552") (EQUAL S "-281474976710656") (EQUAL S "-4503599627370496") (EQUAL S "-36028797018963968") (EQUAL S "-72057594037927936") (EQUAL S "-288230376151711744"))) EQL-OK: T (PRIN1-TO-STRING MOST-POSITIVE-SHORT-FLOAT) EQUAL-OK: "3.4028s38" (PRIN1-TO-STRING LEAST-POSITIVE-SHORT-FLOAT) EQUAL-OK: "1.1755s-38" (PRIN1-TO-STRING LEAST-NEGATIVE-SHORT-FLOAT) EQUAL-OK: "-1.1755s-38" (PRIN1-TO-STRING MOST-NEGATIVE-SHORT-FLOAT) EQUAL-OK: "-3.4028s38" (LET ((S (PRIN1-TO-STRING MOST-POSITIVE-SINGLE-FLOAT))) (OR (EQUAL S "1.7014117E38") (EQUAL S "3.4028235E38"))) EQL-OK: T (LET ((S (PRIN1-TO-STRING LEAST-POSITIVE-SINGLE-FLOAT))) (OR (EQUAL S "2.938736E-39") (EQUAL S "1.1754944E-38"))) EQL-OK: T (LET ((S (PRIN1-TO-STRING LEAST-NEGATIVE-SINGLE-FLOAT))) (OR (EQUAL S "-2.938736E-39") (EQUAL S "-1.1754944E-38"))) EQL-OK: T (LET ((S (PRIN1-TO-STRING MOST-NEGATIVE-SINGLE-FLOAT))) (OR (EQUAL S "-1.7014117E38") (EQUAL S "-3.4028235E38"))) EQL-OK: T (LET ((S (PRIN1-TO-STRING MOST-POSITIVE-DOUBLE-FLOAT))) (OR (EQUAL S "8.988465674311579d307") (EQUAL S "1.7976931348623157d308"))) EQL-OK: T (LET ((S (PRIN1-TO-STRING LEAST-POSITIVE-DOUBLE-FLOAT))) (OR (EQUAL S "5.562684646268004d-309") (EQUAL S "2.2250738585072014d-308"))) EQL-OK: T (LET ((S (PRIN1-TO-STRING LEAST-NEGATIVE-DOUBLE-FLOAT))) (OR (EQUAL S "-5.562684646268004d-309") (EQUAL S "-2.2250738585072014d-308"))) EQL-OK: T (LET ((S (PRIN1-TO-STRING MOST-NEGATIVE-DOUBLE-FLOAT))) (OR (EQUAL S "-8.988465674311579d307") (EQUAL S "-1.7976931348623157d308"))) EQL-OK: T (PRIN1-TO-STRING MOST-POSITIVE-LONG-FLOAT) EQUAL-OK: "8.8080652584198167656L646456992" (PRIN1-TO-STRING LEAST-POSITIVE-LONG-FLOAT) EQUAL-OK: "5.676615526003731344L-646456994" (PRIN1-TO-STRING LEAST-NEGATIVE-LONG-FLOAT) EQUAL-OK: "-5.676615526003731344L-646456994" (PRIN1-TO-STRING MOST-NEGATIVE-LONG-FLOAT) EQUAL-OK: "-8.8080652584198167656L646456992" (PRIN1-TO-STRING SHORT-FLOAT-EPSILON) EQUAL-OK: "7.6295s-6" (PRIN1-TO-STRING SINGLE-FLOAT-EPSILON) EQUAL-OK: "5.960465E-8" (LET ((S (PRIN1-TO-STRING DOUBLE-FLOAT-EPSILON))) (OR (EQUAL S "1.1102230246251568d-16"))) EQL-OK: T (PRIN1-TO-STRING LONG-FLOAT-EPSILON) EQUAL-OK: "5.4210108624275221706L-20" (PRIN1-TO-STRING SHORT-FLOAT-NEGATIVE-EPSILON) EQUAL-OK: "3.81476s-6" (PRIN1-TO-STRING SINGLE-FLOAT-NEGATIVE-EPSILON) EQUAL-OK: "2.9802326E-8" (LET ((S (PRIN1-TO-STRING DOUBLE-FLOAT-NEGATIVE-EPSILON))) (OR (EQUAL S "5.551115123125784d-17"))) EQL-OK: T (PRIN1-TO-STRING LONG-FLOAT-NEGATIVE-EPSILON) EQUAL-OK: "2.7105054312137610853L-20" (/ 1 0) [SIMPLE-DIVISION-BY-ZERO]: /: division by zero EQL-OK: ERROR (/ 1 0.0s0) [SIMPLE-DIVISION-BY-ZERO]: /: division by zero EQL-OK: ERROR (/ 1 0.0) [SIMPLE-DIVISION-BY-ZERO]: /: division by zero EQL-OK: ERROR (/ 1 0.0d0) [SIMPLE-DIVISION-BY-ZERO]: /: division by zero EQL-OK: ERROR (/ 1 0.0L0) [SIMPLE-DIVISION-BY-ZERO]: /: division by zero EQL-OK: ERROR (EXPT 10.0s0 1000) [SIMPLE-FLOATING-POINT-OVERFLOW]: EXPT: floating point overflow EQL-OK: ERROR (EXPT 10.0 1000) [SIMPLE-FLOATING-POINT-OVERFLOW]: EXPT: floating point overflow EQL-OK: ERROR (EXPT 10.0d0 1000) [SIMPLE-FLOATING-POINT-OVERFLOW]: EXPT: floating point overflow EQL-OK: ERROR (EXPT 10.0L0 1000000000) [SIMPLE-FLOATING-POINT-OVERFLOW]: EXPT: floating point overflow EQL-OK: ERROR (STANDARD-CHAR-P #\a) EQL-OK: T (STANDARD-CHAR-P 1) [SIMPLE-TYPE-ERROR]: STANDARD-CHAR-P: argument 1 is not a character EQL-OK: ERROR (GRAPHIC-CHAR-P #\a) EQL-OK: T (GRAPHIC-CHAR-P 1) [SIMPLE-TYPE-ERROR]: GRAPHIC-CHAR-P: argument 1 is not a character EQL-OK: ERROR (STRING-CHAR-P #\a) EQL-OK: T (STRING-CHAR-P #\1) EQL-OK: T (STRING-CHAR-P "") [SIMPLE-TYPE-ERROR]: STRING-CHAR-P: argument #1="" is not a character EQL-OK: ERROR (ALPHA-CHAR-P #\a) EQL-OK: T (ALPHA-CHAR-P #\$) EQL-OK: NIL (UPPER-CASE-P #\a) EQL-OK: NIL (LOWER-CASE-P #\A) EQL-OK: NIL (BOTH-CASE-P #\a) EQL-OK: T (BOTH-CASE-P #\$) EQL-OK: NIL (DIGIT-CHAR-P #\a) EQL-OK: NIL (DIGIT-CHAR-P #\5) EQL-OK: 5 (ALPHANUMERICP #\a) EQL-OK: T (ALPHANUMERICP #\$) EQL-OK: NIL (CHAR= #\d #\d) EQL-OK: T (CHAR/= #\d #\d) EQL-OK: NIL (CHAR< #\z #\0) EQL-OK: NIL (CHAR-EQUAL #\d #\d) EQL-OK: T (CHAR-NOT-EQUAL #\d #\d) EQL-OK: NIL (CHAR-LESSP #\d #\x) EQL-OK: T (CHAR-LESSP #\d #\d) EQL-OK: NIL (CHAR-NOT-GREATERP #\d #\d) EQL-OK: T (CHAR-GREATERP #\e #\d) EQL-OK: T (CHAR-NOT-LESSP #\e #\d) EQL-OK: T (CHAR-UPCASE #\a) EQL-OK: #\A (CHAR-UPCASE #\=) EQL-OK: #\= (CHAR= (CHAR-DOWNCASE (CHAR-UPCASE #\x)) #\x) EQL-OK: T (CHAR-DOWNCASE #\A) EQL-OK: #\a (CHAR= (CHAR-UPCASE (CHAR-DOWNCASE #\X)) #\X) EQL-OK: T (DIGIT-CHAR 7) EQL-OK: #\7 (DIGIT-CHAR 12) EQL-OK: NIL CHAR-CODE-LIMIT EQL-OK: 1114112 (ELT (SYMBOL-NAME 'ABC) 0) EQL-OK: #\A (SUBSEQ '(A B C D E) 2) EQUAL-OK: (C D E) (COPY-SEQ '#(A B C)) EQUALP-OK: #(A B C) (COPY-SEQ '((A B) C (D E))) EQUAL-OK: ((A B) C (D E)) (LENGTH '#(A B C D E F)) EQL-OK: 6 (LENGTH '(A B C D E F)) EQL-OK: 6 (NREVERSE '(A (B (C) D))) EQUAL-OK: ((B (C) D) A) (REVERSE '(1 2 3 4)) EQUAL-OK: (4 3 2 1) (MAKE-SEQUENCE 'VECTOR 4 :INITIAL-ELEMENT 'O) EQUALP-OK: #(O O O O) (MAKE-SEQUENCE 'LIST 4 :INITIAL-ELEMENT 'O) EQUAL-OK: (O O O O) (EQUALP (MAKE-SEQUENCE 'STRING 5 :INITIAL-ELEMENT #\a) (MAKE-STRING 5 :INITIAL-ELEMENT #\a)) EQL-OK: T (CONCATENATE 'LIST '(A B C) '(1 2)) EQUAL-OK: (A B C 1 2) (MAP 'LIST 'LIST '(#\a #\b #\c) '(#\1 #\2 #\3)) EQUAL-OK: ((#\a #\1) (#\b #\2) (#\c #\3)) (MAP 'LIST 'LIST '(A B C) '(1 2 3)) EQUAL-OK: ((A 1) (B 2) (C 3)) (MAKE-SEQUENCE '(VECTOR T 5) 5 :INITIAL-ELEMENT 'A) EQUALP-OK: #(A A A A A) (MAKE-SEQUENCE '(VECTOR T 5) 6 :INITIAL-ELEMENT 'A) [SIMPLE-TYPE-ERROR]: MAKE-SEQUENCE: sequence type forces length 5, but result has length 6 EQL-OK: ERROR (MAKE-SEQUENCE '(OR (VECTOR T 5) (VECTOR T 10)) 5 :INITIAL-ELEMENT 'A) EQUALP-OK: #(A A A A A) (MAKE-SEQUENCE '(OR (VECTOR T 5) (VECTOR T 10)) 6 :INITIAL-ELEMENT 'A) [SIMPLE-TYPE-ERROR]: MAKE-SEQUENCE: the result #1=#(A A A A A A) is not of type #2=(OR (VECTOR T 5) (VECTOR T 10)) EQL-OK: ERROR (MAKE-SEQUENCE '(VECTOR T 5) 5 :INITIAL-ELEMENT #\A :UPDATE #'(LAMBDA (C) (CODE-CHAR (1+ (CHAR-CODE C))))) EQUALP-OK: #(#\A #\B #\C #\D #\E) (MAKE-SEQUENCE '(VECTOR T 5) 6 :INITIAL-ELEMENT #\A :UPDATE #'(LAMBDA (C) (CODE-CHAR (1+ (CHAR-CODE C))))) [SIMPLE-TYPE-ERROR]: MAKE-SEQUENCE: sequence type forces length 5, but result has length 6 EQL-OK: ERROR (MAKE-SEQUENCE '(OR (VECTOR T 5) (VECTOR T 10)) 5 :INITIAL-ELEMENT #\A :UPDATE #'(LAMBDA (C) (CODE-CHAR (1+ (CHAR-CODE C))))) EQUALP-OK: #(#\A #\B #\C #\D #\E) (MAKE-SEQUENCE '(OR (VECTOR T 5) (VECTOR T 10)) 6 :INITIAL-ELEMENT #\A :UPDATE #'(LAMBDA (C) (CODE-CHAR (1+ (CHAR-CODE C))))) [SIMPLE-TYPE-ERROR]: MAKE-SEQUENCE: the result #1=#(#\A #\B #\C #\D #\E #\F) is not of type #2=(OR (VECTOR T 5) (VECTOR T 10)) EQL-OK: ERROR (COERCE #(A B C D E) '(VECTOR T 5)) EQUALP-OK: #(A B C D E) (COERCE #(A B C D E F) '(VECTOR T 5)) [SIMPLE-TYPE-ERROR]: COERCE: sequence type forces length 5, but result has length 6 EQL-OK: ERROR (COERCE #(A B C D E) '(OR (VECTOR T 5) (VECTOR T 10))) EQUALP-OK: #(A B C D E) (COERCE #(A B C D E F) '(OR (VECTOR T 5) (VECTOR T 10))) [SIMPLE-TYPE-ERROR]: COERCE: the result #1=#(A B C D E F) is not of type #2=(OR (VECTOR T 5) (VECTOR T 10)) EQL-OK: ERROR (COERCE '(A B C D E) '(VECTOR T 5)) EQUALP-OK: #(A B C D E) (COERCE '(A B C D E F) '(VECTOR T 5)) [SIMPLE-TYPE-ERROR]: COERCE: sequence type forces length 5, but result has length 6 EQL-OK: ERROR (COERCE '(A B C D E) '(OR (VECTOR T 5) (VECTOR T 10))) EQUALP-OK: #(A B C D E) (COERCE '(A B C D E F) '(OR (VECTOR T 5) (VECTOR T 10))) [SIMPLE-TYPE-ERROR]: COERCE: the result #1=#(A B C D E F) is not of type #2=(OR (VECTOR T 5) (VECTOR T 10)) EQL-OK: ERROR (SYSTEM::COERCED-SUBSEQ #(A B C D E) '(VECTOR T 5)) EQUALP-OK: #(A B C D E) (SYSTEM::COERCED-SUBSEQ #(A B C D E F) '(VECTOR T 5)) [SIMPLE-TYPE-ERROR]: SYSTEM::COERCED-SUBSEQ: sequence type forces length 5, but result has length 6 EQL-OK: ERROR (SYSTEM::COERCED-SUBSEQ #(A B C D E) '(OR (VECTOR T 5) (VECTOR T 10))) EQUALP-OK: #(A B C D E) (SYSTEM::COERCED-SUBSEQ #(A B C D E F) '(OR (VECTOR T 5) (VECTOR T 10))) [SIMPLE-TYPE-ERROR]: SYSTEM::COERCED-SUBSEQ: the result #1=#(A B C D E F) is not of type #2=(OR (VECTOR T 5) (VECTOR T 10)) EQL-OK: ERROR (SYSTEM::COERCED-SUBSEQ '(A B C D E) '(VECTOR T 5)) EQUALP-OK: #(A B C D E) (SYSTEM::COERCED-SUBSEQ '(A B C D E F) '(VECTOR T 5)) [SIMPLE-TYPE-ERROR]: SYSTEM::COERCED-SUBSEQ: sequence type forces length 5, but result has length 6 EQL-OK: ERROR (SYSTEM::COERCED-SUBSEQ '(A B C D E) '(OR (VECTOR T 5) (VECTOR T 10))) EQUALP-OK: #(A B C D E) (SYSTEM::COERCED-SUBSEQ '(A B C D E F) '(OR (VECTOR T 5) (VECTOR T 10))) [SIMPLE-TYPE-ERROR]: SYSTEM::COERCED-SUBSEQ: the result #1=#(A B C D E F) is not of type #2=(OR (VECTOR T 5) (VECTOR T 10)) EQL-OK: ERROR (CONCATENATE '(VECTOR T 5) '(A B C) '(D E)) EQUALP-OK: #(A B C D E) (CONCATENATE '(VECTOR T 5) '(A B C) '(D E F)) [SIMPLE-TYPE-ERROR]: CONCATENATE: sequence type forces length 5, but result has length 6 EQL-OK: ERROR (CONCATENATE '(OR (VECTOR T 5) (VECTOR T 10)) '(A B C) '(D E)) EQUALP-OK: #(A B C D E) (CONCATENATE '(OR (VECTOR T 5) (VECTOR T 10)) '(A B C) '(D E F)) [SIMPLE-TYPE-ERROR]: CONCATENATE: the result #1=#(A B C D E F) is not of type #2=(OR (VECTOR T 5) (VECTOR T 10)) EQL-OK: ERROR (MAP '(VECTOR T 5) #'IDENTITY '(A B C D E)) EQUALP-OK: #(A B C D E) (MAP '(VECTOR T 5) #'IDENTITY '(A B C D E F)) [SIMPLE-TYPE-ERROR]: MAP: sequence type forces length 5, but result has length 6 EQL-OK: ERROR (MAP '(OR (VECTOR T 5) (VECTOR T 10)) #'IDENTITY '(A B C D E)) EQUALP-OK: #(A B C D E) (MAP '(OR (VECTOR T 5) (VECTOR T 10)) #'IDENTITY '(A B C D E F)) [SIMPLE-TYPE-ERROR]: MAP: the result #1=#(A B C D E F) is not of type #2=(OR (VECTOR T 5) (VECTOR T 10)) EQL-OK: ERROR (MERGE '(VECTOR T 5) '(A B C D E) 'NIL #'<) EQUALP-OK: #(A B C D E) (MERGE '(VECTOR T 5) '(A B C D E F) 'NIL #'<) [SIMPLE-TYPE-ERROR]: MERGE: sequence type forces length 5, but result has length 6 EQL-OK: ERROR (MERGE '(OR (VECTOR T 5) (VECTOR T 10)) '(A B C D E) 'NIL #'<) EQUALP-OK: #(A B C D E) (MERGE '(OR (VECTOR T 5) (VECTOR T 10)) '(A B C D E F) 'NIL #'<) [SIMPLE-TYPE-ERROR]: MERGE: the result #1=#(A B C D E F) is not of type #2=(OR (VECTOR T 5) (VECTOR T 10)) EQL-OK: ERROR (SOME 'NULL '(A B NIL T E)) EQL-OK: T (EVERY 'ATOM '(A 8 #(A B))) EQL-OK: T (NOTANY 'EQ '(A B C D E 4) '(I J K L M 4)) EQL-OK: NIL (NOTEVERY 'EQ '#(U) '(A X U)) EQL-OK: T (REDUCE 'LIST '(A) :FROM-END NIL :INITIAL-VALUE NIL) EQUAL-OK: (NIL A) (REDUCE 'LIST '(A B C D) :FROM-END NIL :INITIAL-VALUE 'III) EQUAL-OK: ((((III A) B) C) D) (REDUCE 'LIST '(A B C D) :FROM-END T) EQUAL-OK: (A (B (C D))) (FILL '#(A B C D) 'I :START 1 :END 3) EQUALP-OK: #(A I I D) (REPLACE '#(A B C D) '#(I J) :START1 1) EQUALP-OK: #(A I J D) (REMOVE 'NUMBERP '#(Y A 4 A C 9 A D 2 3) :COUNT 1 :FROM-END T) EQUALP-OK: #(Y A 4 A C 9 A D 2 3) (REMOVE 'A '(A 1 B A 2 A) :START 1) EQUAL-OK: (A 1 B 2) (REMOVE-DUPLICATES '(A B C A D A) :START 1) EQUAL-OK: (A B C D A) (REMOVE-IF 'NUMBERP '#(Y A 4 A C 9 A D 2 3)) EQUALP-OK: #(Y A A C A D) (REMOVE-IF-NOT 'NUMBERP '#(Y A 4 A C 9 A D 2 3)) EQUALP-OK: #(4 9 2 3) (REMOVE-IF-NOT 'NUMBERP '#(Y A 4 A C 9 A D 2 3) :COUNT 2 :FROM-END NIL) EQUALP-OK: #(4 A C 9 A D 2 3) (DELETE '(A) '((A B) (C D) (A)) :TEST 'EQUAL) EQUAL-OK: ((A B) (C D)) (DELETE-IF #'(LAMBDA (X) (EQ (CAR X) 'A)) '((A B) (C D) (A))) EQUAL-OK: ((C D)) (DELETE-IF-NOT 'NUMBERP '(A 3 B 4)) EQUAL-OK: (3 4) (NSUBSTITUTE 'NEW '(1 OLD) '((0 OLD) (1 OLD) (2 OLD)) :TEST-NOT 'EQUAL :FROM-END T) EQUAL-OK: (NEW (1 OLD) NEW) (NSUBSTITUTE 'NEW 'OLD '(0 OLD 1 OLD 2 OLD) :END 2) EQUAL-OK: (0 NEW 1 OLD 2 OLD) (NSUBSTITUTE-IF 'NEW 'NUMBERP '(0 A 1 B 2 C 3 D) :COUNT 2 :END 5) EQUAL-OK: (NEW A NEW B 2 C 3 D) (NSUBSTITUTE-IF-NOT 'NEW 'NUMBERP '(0 A 1 B 2 C 3 D) :COUNT 2 :FROM-END T) EQUAL-OK: (0 A 1 B 2 NEW 3 NEW) (SUBSTITUTE 'NEW '(2 OLD) '((1 OLD) (2 OLD) (3 OLD) (4 OLD)) :TEST 'EQUAL :START 3) EQUAL-OK: ((1 OLD) (2 OLD) (3 OLD) (4 OLD)) (SUBSTITUTE-IF 'NEW 'NUMBERP '(A 1 B 2 D 3)) EQUAL-OK: (A NEW B NEW D NEW) (SUBSTITUTE-IF-NOT 'NEW 'NUMBERP '(A 1 B 2 D 3) :COUNT 2 :FROM-END T) EQUAL-OK: (A 1 NEW 2 NEW 3) (FIND '0 '((0 A) (1 A) (2 A) (0 B)) :TEST '= :FROM-END T :KEY 'CAR :START 1) EQUAL-OK: (0 B) (FIND-IF 'NUMBERP '((A 0) (B 1) (C 2)) :KEY 'CADR :START 3) EQL-OK: NIL (POSITION 'A '((0 A) (1 B) (2 A) (3 B)) :TEST #'(LAMBDA (X Y) (EQ X (CADR Y))) :START 1) EQL-OK: 2 (POSITION 'A '((0 A) (1 B) (2 A) (3 B)) :KEY 'CADR) EQL-OK: 0 (POSITION-IF 'NUMBERP '((0 X) (1 7.0) (2 8)) :FROM-END T :START 1 :KEY 'CADR) EQL-OK: 2 (COUNT '(A) '(A (A) A (A) A B) :TEST-NOT 'EQUAL :KEY #'(LAMBDA (X) (IF (ATOM X) (LIST X)))) EQL-OK: 3 (COUNT-IF-NOT 'NUMBERP '#(A 3 B 5 7 C D) :START 2 :END 5) EQL-OK: 1 (MISMATCH '(A B C 3 4 5) '(A B X 3 4 B) :START1 1 :START2 5 :END1 2 :TEST-NOT 'EQ) EQL-OK: 1 (MISMATCH '(A B C 3 4 5) '(U B X 3 4 5) :FROM-END T) EQL-OK: 3 (SEARCH "ABCD" "0ABIABJBCBC" :END1 3 :START1 1 :START2 0 :FROM-END T) EQL-OK: 9 (SEARCH '(#\A #\B #\C #\D) "0ABIABJBCBC" :END1 2 :START2 0 :FROM-END T) EQL-OK: 4 (SEARCH '(A B C D) '(0 A B I A B J B C B C) :END1 2 :START2 2) EQL-OK: 4 (SORT '((U 3) (I 1) (A 7) (K 3) (C 4) (B 6)) '< :KEY 'CADR) EQUAL-OK: ((I 1) (U 3) (K 3) (C 4) (B 6) (A 7)) (STABLE-SORT '((B 4) (A 3) (A 2) (B 1) (C 9) (B 2)) 'STRING< :KEY 'CAR) EQUAL-OK: ((A 3) (A 2) (B 4) (B 1) (B 2) (C 9)) (MERGE 'LIST '(5 1 4 4 7) '(2 3 5 6 8 9) '<) EQUAL-OK: (2 3 5 1 4 4 5 6 7 8 9) (MERGE 'LIST '(1 4 4 7) '(2 3 5 6 8 9) '<) EQUAL-OK: (1 2 3 4 4 5 6 7 8 9) (CAR '(A B C D E F G)) EQL-OK: A (CDR '(A B C D E F G)) EQUAL-OK: (B C D E F G) (CADR '(A B C D E F G)) EQL-OK: B (CDDR '(A B C D E F G)) EQUAL-OK: (C D E F G) (CADDR '(A B C D E F G)) EQL-OK: C (CDDDR '(A B C D E F G)) EQUAL-OK: (D E F G) (CADDDR '(A B C D E F G)) EQL-OK: D (CDDDDR '(A B C D E F G)) EQUAL-OK: (E F G) (CAADR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G)) EQUAL-OK: ((U V W) X) (CADAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G)) EQUAL-OK: (6 7) (CDAAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G)) EQUAL-OK: (5) (CDADR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G)) EQUAL-OK: (Y) (CDDAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G)) EQL-OK: NIL (CAAAAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G)) EQUAL-OK: (1 2 3) (CAADAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G)) EQL-OK: 6 (CAADDR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G)) EQUAL-OK: (Q W E) (CADAAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G)) EQL-OK: 5 (CADADR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G)) EQL-OK: Y (CADDAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G)) EQL-OK: NIL (CADDDR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G)) EQUAL-OK: (A B C) (CDAAAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G)) EQUAL-OK: (4) (CDAADR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G)) EQUAL-OK: (X) (CDADAR '(((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C) E F G)) EQUAL-OK: (7) (CONS 1 2) EQUAL-OK: (1 . 2) (CONS 'A (CONS 'B (CONS 'C 'NIL))) EQUAL-OK: (A B C) (CONS 'A '(B C D)) EQUAL-OK: (A B C D) (TREE-EQUAL 5 (+ 2 3) :TEST #'EQL) EQL-OK: T (ENDP 'NIL) EQL-OK: T (ENDP '(A . B)) EQL-OK: NIL (LIST-LENGTH '(A B C D)) EQL-OK: 4 (LET ((X (LIST 'A 'B 'C))) (RPLACD (LAST X) X) (LIST-LENGTH X)) EQL-OK: NIL (NTH 0 '(A B C D)) EQL-OK: A (FIRST '(1 2 3 4 5 6 7 8 9 10 11)) EQL-OK: 1 (SECOND '(1 2 3 4 5 6 7 8 9 10 11)) EQL-OK: 2 (THIRD '(1 2 3 4 5 6 7 8 9 10 11)) EQL-OK: 3 (FOURTH '(1 2 3 4 5 6 7 8 9 10 11)) EQL-OK: 4 (FIFTH '(1 2 3 4 5 6 7 8 9 10 11)) EQL-OK: 5 (SIXTH '(1 2 3 4 5 6 7 8 9 10 11)) EQL-OK: 6 (SEVENTH '(1 2 3 4 5 6 7 8 9 10 11)) EQL-OK: 7 (EIGHTH '(1 2 3 4 5 6 7 8 9 10 11)) EQL-OK: 8 (NINTH '(1 2 3 4 5 6 7 8 9 10 11)) EQL-OK: 9 (TENTH '(1 2 3 4 5 6 7 8 9 10 11)) EQL-OK: 10 (REST '(A . B)) EQL-OK: B (NTHCDR 1 '(A B C D)) EQUAL-OK: (B C D) (LAST '(1 2 3 4 5)) EQUAL-OK: (5) (LAST '(1 2 3 . 4)) EQUAL-OK: (3 . 4) (LIST 'A 'B 'C 'D) EQUAL-OK: (A B C D) (LIST* 'A 'B 'C 'D) EQUAL-OK: (A B C . D) (MAKE-LIST 4 :INITIAL-ELEMENT 'O) EQUAL-OK: (O O O O) (MAKE-LIST 3 :INITIAL-ELEMENT 'RAH) EQUAL-OK: (RAH RAH RAH) (APPEND '(A B C) '(D E F) 'NIL '(G)) EQUAL-OK: (A B C D E F G) (COPY-LIST '(1 2 3 4 5)) EQUAL-OK: (1 2 3 4 5) (COPY-LIST '(1 2 3 . 4)) EQUAL-OK: (1 2 3 . 4) (COPY-ALIST '(A B)) EQUAL-OK: (A B) (COPY-ALIST '((1 . A) (2 . B) (3 . C))) EQUAL-OK: ((1 . A) (2 . B) (3 . C)) (COPY-ALIST '((A B) C (D E))) EQUAL-OK: ((A B) C (D E)) (COPY-TREE '(A B (C (D) (E F)) G)) EQUAL-OK: (A B (C (D) (E F)) G) (REVAPPEND '(A B C) '(D E F)) EQUAL-OK: (C B A D E F) (REVAPPEND '(A B C) 'I) EQUAL-OK: (C B A . I) (NRECONC '(A B C) '(I J)) EQUAL-OK: (C B A I J) (SETQ AA NIL) EQL-OK: NIL (PUSH '1 AA) EQUAL-OK: (1) (PUSH '2 AA) EQUAL-OK: (2 1) (POP AA) EQL-OK: 2 (POP AA) EQL-OK: 1 (POP AA) EQL-OK: NIL (SETQ AA '(B A)) EQUAL-OK: (B A) (PUSHNEW 'A AA) EQUAL-OK: (B A) (PUSHNEW 'C AA) EQUAL-OK: (C B A) (PUSHNEW 'U (CAR (SETQ XX '(NIL KKK)))) EQUAL-OK: (U) (PUSHNEW 'U (CAR XX)) EQUAL-OK: (U) (PUSHNEW 'V (CAR XX)) EQUAL-OK: (V U) (EVAL 'XX) EQUAL-OK: ((V U) KKK) (BUTLAST '(A B C) 2) EQUAL-OK: (A) (NBUTLAST '(A B C D) 6) EQL-OK: NIL (NBUTLAST '(A B C D) 1) EQUAL-OK: (A B C) (LDIFF (SETQ XX '(A B C D E)) (CDDR XX)) EQUAL-OK: (A B) (LDIFF (SETQ XX '(A B C D . E)) (CDDR XX)) EQUAL-OK: (A B) (LDIFF '(A B C D . E) 'E) EQUAL-OK: (A B C D) (LDIFF '(1 . 2) 3) EQUAL-OK: (1 . 2) (LET ((LISTS '#((A B C) (A B C . D))) (LD-RES #(#(NIL (A B) (A B C) (A B C) (A B C) (A B C) (A B C)) #(NIL (A B) (A B C . D) (A B C . D) (A B C . D) (A B C) (A B C . D)))) (TP-RES #(#(T T NIL NIL T NIL NIL) #(T T NIL NIL NIL T NIL)))) (DOTIMES (I (LENGTH LISTS)) (LET* ((LIST (AREF LISTS I)) (L-R (AREF LD-RES I)) (T-R (AREF TP-RES I)) (OBJECTS (VECTOR LIST (CDDR LIST) (COPY-LIST (CDDR LIST)) '(F G H) 'NIL 'D 'X))) (DOTIMES (J (LENGTH OBJECTS)) (LET ((OBJECT (AREF OBJECTS J))) (UNLESS (EQUAL (TAILP OBJECT LIST) (AREF T-R J)) (ERROR "(tailp ~s ~s): ~s; should be: ~s" OBJECT LIST (TAILP OBJECT LIST) (AREF T-R J))) (UNLESS (EQUAL (LDIFF LIST OBJECT) (AREF L-R J)) (ERROR "(ldiff ~s ~s): ~s; should be: ~s" LIST OBJECT (LDIFF LIST OBJECT) (AREF L-R J)))))))) EQL-OK: NIL (TAILP 10203040506070 (LIST* 'A 'B (1- 10203040506071))) EQL-OK: T (NSUBST 'A 'B '(U B (B) C) :TEST-NOT #'(LAMBDA (X Y) (NOT (EQL X Y)))) EQUAL-OK: (U A (A) C) (NSUBST-IF 'OO 'NUMBERP '(A B C (3 (4) 0))) EQUAL-OK: (A B C (OO (OO) OO)) (NSUBST-IF-NOT 'OO #'(LAMBDA (X) (OR (LIST X) (SYMBOLP X))) '(A B C (3 (4) 0))) EQUAL-OK: (A B C (3 (4) 0)) (SUBST 'A 'B '(U B (B) C) :TEST-NOT #'(LAMBDA (X Y) (NOT (EQL X Y))) :KEY #'(LAMBDA (U) (IF (LISTP U) (CAR U)))) EQUAL-OK: (U . A) (SUBST-IF 'NUMMMER 'NUMBERP '((A (7 (V 6))))) EQUAL-OK: ((A (NUMMMER (V NUMMMER)))) (SUBST-IF-NOT 'NUMMMER #'(LAMBDA (X) (OR (LISTP X) (NUMBERP X))) '((A (7 (V 6))))) EQUAL-OK: ((NUMMMER (7 (NUMMMER 6)))) (NSUBLIS '(((A) . UU) (A . II)) '(I (A) A) :TEST #'(LAMBDA (X Y) (IF (LISTP Y) (EQL X (CAR Y))))) EQUAL-OK: (I (UU) UU) (SUBLIS '(((A) . UU) (A . II)) '(I (A) A) :TEST #'(LAMBDA (X Y) (IF (LISTP Y) (EQL X (CAR Y))))) EQUAL-OK: (I (UU) UU) (MEMBER 'A '((A) (B) (A) (C)) :KEY 'CAR) EQUAL-OK: ((A) (B) (A) (C)) (MEMBER-IF 'NUMBERP '((A) (B) (3) (C)) :KEY 'CAR) EQUAL-OK: ((3) (C)) (MEMBER-IF-NOT 'NUMBERP '((8) (A) (B) (3) (C)) :KEY 'CAR) EQUAL-OK: ((A) (B) (3) (C)) (TAILP (CDDR (SETQ XX '(U I A B))) XX) EQL-OK: T (TAILP 'D '(A B C . D)) EQL-OK: T (ADJOIN 'A '((A) B C) :TEST 'EQUAL) EQUAL-OK: (A (A) B C) (NUNION '(A B C D) '(U I B A)) EQUAL-OK: (C D U I B A) (UNION '(A B C D) '(A D I V)) EQUAL-OK: (B C A D I V) (INTERSECTION '((A 1) (A 2) (A 3)) '((A 4) (A 2) (B 6) (C 7)) :TEST 'EQUAL) EQUAL-OK: ((A 2)) (NINTERSECTION '(A B C D) '(C D E F G) :TEST-NOT 'EQL) EQUAL-OK: (A B C D) (NSET-DIFFERENCE '(A B C D) '(I J C)) EQUAL-OK: (A B D) (NSET-EXCLUSIVE-OR '(A B C) '(I A D C)) EQUAL-OK: (B I D) (SET-DIFFERENCE '(ANTON BERTA AUTO BERLIN) '(AMERILLA) :TEST #'(LAMBDA (X Y) (EQL (ELT (SYMBOL-NAME X) 0) (ELT (SYMBOL-NAME Y) 0)))) EQUAL-OK: (BERTA BERLIN) (SET-EXCLUSIVE-OR '(ANTON ANNA EMIL) '(BERTA AUTO AUGUST) :TEST #'(LAMBDA (X Y) (EQL (ELT (SYMBOL-NAME X) 0) (ELT (SYMBOL-NAME Y) 0)))) EQUAL-OK: (EMIL BERTA) (SUBSETP '(A B) '(B A U I C D)) EQL-OK: T (ACONS 'A 'B '((C . D))) EQUAL-OK: ((A . B) (C . D)) (ACONS 'A 'B NIL) EQUAL-OK: ((A . B)) (ASSOC 'A '((B C) A ((A) U) (A I)) :TEST-NOT #'(LAMBDA (X Y) (IF (ATOM Y) (EQL Y X)))) EQUAL-OK: (B C) (ASSOC-IF 'SYMBOLP '((A . 3) (3 . A))) EQUAL-OK: (A . 3) (ASSOC-IF-NOT 'NUMBERP '((A . 3) (3 . A))) EQUAL-OK: (A . 3) (PAIRLIS '(A B C) '(1 2 3)) EQUAL-OK: ((C . 3) (B . 2) (A . 1)) (RASSOC 'A '((1 . B) (2 . A))) EQUAL-OK: (2 . A) (RASSOC-IF 'SYMBOLP '((1 . 3) (2 . A))) EQUAL-OK: (2 . A) (RASSOC-IF-NOT 'SYMBOLP '((1 . 3) (2 . A))) EQUAL-OK: (1 . 3) (HASH-TABLE-P (MAKE-HASH-TABLE :TEST #'EQL :REHASH-SIZE 2 :SIZE 20)) EQL-OK: T (HASH-TABLE-P (MAKE-HASH-TABLE :TEST #'EQL :REHASH-SIZE 1.1 :SIZE 20)) EQL-OK: T (DEFUN TEST-HASH-TABLE-ITERATOR (HASH-TABLE) (LET ((ALL-ENTRIES 'NIL) (GENERATED-ENTRIES 'NIL) (UNIQUE (LIST NIL))) (MAPHASH #'(LAMBDA (KEY VALUE) (PUSH (LIST KEY VALUE) ALL-ENTRIES)) HASH-TABLE) (WITH-HASH-TABLE-ITERATOR (GENERATOR-FN HASH-TABLE) (LOOP (MULTIPLE-VALUE-BIND (MORE? KEY VALUE) (GENERATOR-FN) (UNLESS MORE? (RETURN)) (UNLESS (EQL VALUE (GETHASH KEY HASH-TABLE UNIQUE)) (ERROR "Key ~S not found for value ~S" KEY VALUE)) (PUSH (LIST KEY VALUE) GENERATED-ENTRIES)))) (UNLESS (= (LENGTH ALL-ENTRIES) (LENGTH GENERATED-ENTRIES) (LENGTH (UNION ALL-ENTRIES GENERATED-ENTRIES :KEY #'CAR :TEST (HASH-TABLE-TEST HASH-TABLE)))) (ERROR "Generated entries and Maphash entries don't correspond")) T)) EQL-OK: TEST-HASH-TABLE-ITERATOR (LET ((TAB (MAKE-HASH-TABLE :TEST #'EQUAL))) (SETF (GETHASH "Richard" TAB) "Gabriel") (SETF (GETHASH "Bruno" TAB) "Haible") (SETF (GETHASH "Michael" TAB) "Stoll") (SETF (GETHASH "Linus" TAB) "Torvalds") (SETF (GETHASH "Richard" TAB) "Stallman") (TEST-HASH-TABLE-ITERATOR TAB)) EQL-OK: T (GETHASH "foo" (READ-FROM-STRING (PRIN1-TO-STRING (MAKE-HASH-TABLE :TEST 'EQUALP :INITIAL-CONTENTS '(("FOO" . "bar")))))) EQUAL-OK: "bar" (DEFSTRUCT (ICE-CREAM-FACTORY (:CONSTRUCTOR MAKE-FACTORY) (:CONSTRUCTOR FABRICATE-FACTORY (&KEY (CAPACITY 5) LOCATION (LOCAL-FLAVORS (CASE LOCATION ((HAWAII) '(PINEAPPLE MACADAMIA GUAVA)) ((MASSACHUSETTS) '(LOBSTER BAKED-BEAN)) ((CALIFORNIA) '(GINGER LOTUS AVOCADO BEAN-SPROUT GARLIC)) ((TEXAS) '(JALAPENO BARBECUE)))) (FLAVORS (SUBSEQ (APPEND LOCAL-FLAVORS '(VANILLA CHOCOLATE STRAWBERRY PISTACHIO MAPLE-WALNUT PEPPERMINT)) 0 CAPACITY)) ((:OWN OWNER))))) (CAPACITY 3) (FLAVORS '(VANILLA CHOCOLATE STRAWBERRY MANGO)) (OWNER 'ME)) EQL-OK: ICE-CREAM-FACTORY (LET ((HOUSTON (FABRICATE-FACTORY :CAPACITY 4 :LOCATION 'TEXAS))) (ICE-CREAM-FACTORY-FLAVORS HOUSTON)) EQUAL-OK: (JALAPENO BARBECUE VANILLA CHOCOLATE) (LET ((CAMBRIDGE (FABRICATE-FACTORY :LOCATION 'MASSACHUSETTS))) (ICE-CREAM-FACTORY-FLAVORS CAMBRIDGE)) EQUAL-OK: (LOBSTER BAKED-BEAN VANILLA CHOCOLATE STRAWBERRY) (LET ((SEATTLE (FABRICATE-FACTORY :LOCAL-FLAVORS '(SALMON)))) (ICE-CREAM-FACTORY-FLAVORS SEATTLE)) EQUAL-OK: (SALMON VANILLA CHOCOLATE STRAWBERRY PISTACHIO) (LET ((WHEATON (FABRICATE-FACTORY :CAPACITY 4 :LOCATION 'ILLINOIS))) (ICE-CREAM-FACTORY-FLAVORS WHEATON)) EQUAL-OK: (VANILLA CHOCOLATE STRAWBERRY PISTACHIO) (LET ((PITTSBURGH (FABRICATE-FACTORY :CAPACITY 4))) (ICE-CREAM-FACTORY-FLAVORS PITTSBURGH)) EQUAL-OK: (VANILLA CHOCOLATE STRAWBERRY PISTACHIO) (LET ((CLEVELAND (MAKE-FACTORY :CAPACITY 4))) (ICE-CREAM-FACTORY-FLAVORS CLEVELAND)) EQUAL-OK: (VANILLA CHOCOLATE STRAWBERRY MANGO) (PROGN (DEFVAR *X* 'GLOBAL-X) (LET ((Y 'LOCAL-Y)) (DEFSTRUCT BAZ (*X* 'X-INIT) (Y *X*) (Z Y)))) EQL-OK: BAZ (MAKE-BAZ) EQUALP-OK: #S(BAZ :*X* X-INIT :Y GLOBAL-X :Z LOCAL-Y) (CONSTANTP -5) EQL-OK: T (CONSTANTP (READ-FROM-STRING "1.0e30")) EQL-OK: T (STREAMP *STANDARD-INPUT*) EQL-OK: T (INPUT-STREAM-P *TERMINAL-IO*) EQL-OK: T (READTABLEP *READTABLE*) EQL-OK: T (READTABLEP 'PROGN) EQL-OK: NIL (GET-DISPATCH-MACRO-CHARACTER #\# #\0) EQL-OK: NIL (STRINGP (SHOW (LISP-IMPLEMENTATION-TYPE))) "CLISP" EQL-OK: T (STRINGP (SHOW (LISP-IMPLEMENTATION-VERSION))) "2.49.93+ (2018-02-18) (built 3805243200) (memory 3806542281)" EQL-OK: T (STRINGP (SHOW (MACHINE-INSTANCE))) "fedora-riscv-9.gcc141.osuosl.org [192.168.122.105]" 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 # (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 # (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 ) 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 # (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 # 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 # (USE-PACKAGE "CLOS") EQL-OK: T (UNINTERN ') EQL-OK: T (PROGN (DEFCLASS 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 () ((Z :INITFORM 0 :ACCESSOR Z-VAL :READER GET-Z :WRITER SET-Z :INITARG :Z))) NIL) EQL-OK: NIL (DEFPARAMETER A (MAKE-INSTANCE (FIND-CLASS ') :X 10)) EQL-OK: A (LET (CACHE) (DEFMETHOD SLOT-MISSING ((CLASS T) (OBJ ) (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 ') :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 # WARNING: Replacing method #1=# #3=#)> in # 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--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 ') EQL-OK: T (PROGN (DEFCLASS NIL ((X :INITFORM 0 :ACCESSOR X-VAL :INITARG :X) (Y :INITFORM 1 :ACCESSOR Y-VAL :INITARG :Y))) NIL) WARNING: Adding method #>)> to an already called generic function # WARNING: Adding method # #2=#>)> to an already called generic function # WARNING: Adding method #>)> to an already called generic function # EQL-OK: NIL (DEFPARAMETER A (MAKE-INSTANCE (FIND-CLASS ') :X 10)) EQL-OK: A (DEFPARAMETER B (MAKE-INSTANCE (FIND-CLASS ') :Y 20 :X 10)) EQL-OK: B (DEFPARAMETER C (MAKE-INSTANCE (FIND-CLASS '))) 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 ') EQL-OK: T (LET* ((C (DEFCLASS NIL ((X :INITFORM 0 :ACCESSOR X-VAL :INITARG :X) (Y :INITFORM 1 :ACCESSOR Y-VAL :INITARG :Y)))) (M (DEFMETHOD INITIALIZE-INSTANCE :AFTER ((INSTANCE ) &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 #>)> to an already called generic function # WARNING: Adding method #>)> to an already called generic function # EQL-OK: T (X-VAL (MAKE-INSTANCE (FIND-CLASS '))) EQL-OK: 1 (X-VAL (MAKE-INSTANCE (FIND-CLASS ') :X 10)) EQL-OK: 10 (X-VAL (MAKE-INSTANCE (FIND-CLASS ') :Y 20)) EQL-OK: 20 (X-VAL (MAKE-INSTANCE (FIND-CLASS ') :X 10 :Y 20)) EQL-OK: 10 (LET ((M (DEFMETHOD INITIALIZE-INSTANCE ((INST ) &REST IGNORE) (CALL-NEXT-METHOD) 123))) (EQ M (FIND-METHOD #'INITIALIZE-INSTANCE NIL (LIST (FIND-CLASS '))))) EQL-OK: T (X-VAL (MAKE-INSTANCE (FIND-CLASS ') :X 101 :Y 120)) EQL-OK: 101 (SETF (FIND-CLASS ') NIL) EQL-OK: NIL (UNINTERN ') 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/clos-tst-make-load-form-demo.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/clos-tst-make-load-form-demo.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/clos-tst-make-load-form-demo.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/clos-tst-mlf-tmp.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/clos-tst-mlf-tmp.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/clos-tst-mlf-tmp.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/clos-tst-mlf-tmp.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/clos-tst-mlf-tmp.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/clos-tst-mlf-tmp.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/clos-tst-mlf-tmp.fas EQUALP-OK: # (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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/clos-tst-make-load-form-demo.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/clos-tst-make-load-form-demo.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/clos-tst-make-load-form-demo.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/clos-tst-make-load-form-demo.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/clos-tst-make-load-form-demo.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/clos-tst-make-load-form-demo.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/clos-tst.lisp ... WARNING: (SETF FIND-CLASS): redefining class FOO in /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/clos-tst.lisp, was defined in top-level ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/clos-tst.fas 0 errors, 1 warning ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/clos-tst.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 obsolete EQUAL-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 obsolete EQL-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=# #3=#)> from an already called generic function # WARNING: Removing method #1=# #3=#)> from an already called generic function # WARNING: DEFCLASS: Class X-Y-POSITION (or one of its ancestors) is being redefined, instances are obsolete EQUAL-OK: (X-Y-POSITION 1.0000000000000002d0 1.0d0 1.4142135623730951d0 0.7853981633974483d0) (MULTIPLE-VALUE-BIND (VALUE CONDITION) (IGNORE-ERRORS (DEFCLASS FOO70 NIL NIL) (SETQ I (MAKE-INSTANCE 'FOO70)) (DEFCLASS FOO70 NIL ((SIZE :INITARG :SIZE :INITFORM 1) (OTHER))) (SLOT-VALUE I 'SIZE)) (LIST VALUE (TYPEP CONDITION 'ERROR))) WARNING: DEFCLASS: Class FOO70 (or one of its ancestors) is being redefined, instances are obsolete EQUAL-OK: (1 NIL) (MULTIPLE-VALUE-BIND (VALUE CONDITION) (IGNORE-ERRORS (DEFCLASS FOO71 NIL NIL) (SETQ I (MAKE-INSTANCE 'FOO71)) (DEFCLASS FOO71 NIL ((SIZE :INITARG :SIZE :INITFORM 1 :ALLOCATION :CLASS) (OTHER))) (SLOT-VALUE I 'SIZE)) (LIST VALUE (TYPEP CONDITION 'ERROR))) WARNING: DEFCLASS: Class FOO71 (or one of its ancestors) is being redefined, instances are obsolete EQUAL-OK: (1 NIL) (MULTIPLE-VALUE-BIND (VALUE CONDITION) (IGNORE-ERRORS (DEFCLASS FOO72 NIL ((SIZE :INITARG :SIZE :INITFORM 1))) (SETQ I (MAKE-INSTANCE 'FOO72 :SIZE 5)) (DEFCLASS FOO72 NIL ((OTHER))) (SLOT-VALUE I 'SIZE)) (LIST VALUE (TYPEP CONDITION 'ERROR))) 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 obsolete EQUAL-OK: (NIL T) (MULTIPLE-VALUE-BIND (VALUE CONDITION) (IGNORE-ERRORS (DEFCLASS FOO74 NIL ((SIZE :INITARG :SIZE :INITFORM 1 :ALLOCATION :CLASS))) (SETQ I (MAKE-INSTANCE 'FOO74)) (DEFCLASS FOO74 NIL ((SIZE :INITARG :SIZE :INITFORM 2 :ALLOCATION :CLASS) (OTHER))) (SLOT-VALUE I 'SIZE)) (LIST VALUE (TYPEP CONDITION 'ERROR))) WARNING: DEFCLASS: Class FOO74 (or one of its ancestors) is being redefined, instances are obsolete EQUAL-OK: (1 NIL) (MULTIPLE-VALUE-BIND (VALUE CONDITION) (IGNORE-ERRORS (DEFCLASS FOO75 NIL ((SIZE :INITARG :SIZE :INITFORM 1 :ALLOCATION :CLASS))) (SETQ I (MAKE-INSTANCE 'FOO75)) (DEFCLASS FOO75 NIL ((SIZE :INITARG :SIZE :INITFORM 2) (OTHER))) (SLOT-VALUE I 'SIZE)) (LIST VALUE (TYPEP CONDITION 'ERROR))) WARNING: DEFCLASS: Class FOO75 (or one of its ancestors) is being redefined, instances are obsolete EQUAL-OK: (1 NIL) (MULTIPLE-VALUE-BIND (VALUE CONDITION) (IGNORE-ERRORS (DEFCLASS FOO76 NIL ((SIZE :INITARG :SIZE :INITFORM 1))) (SETQ I (MAKE-INSTANCE 'FOO76 :SIZE 5)) (DEFCLASS FOO76 NIL ((SIZE :INITARG :SIZE :INITFORM 2) (OTHER))) (SLOT-VALUE I 'SIZE)) (LIST VALUE (TYPEP CONDITION 'ERROR))) WARNING: DEFCLASS: Class FOO76 (or one of its ancestors) is being redefined, instances are obsolete EQUAL-OK: (5 NIL) (MULTIPLE-VALUE-BIND (VALUE CONDITION) (IGNORE-ERRORS (DEFCLASS FOO77 NIL ((SIZE :INITARG :SIZE :INITFORM 1))) (SETQ I (MAKE-INSTANCE 'FOO77 :SIZE 5)) (DEFCLASS FOO77 NIL ((SIZE :INITARG :SIZE :INITFORM 2 :ALLOCATION :CLASS) (OTHER))) (SLOT-VALUE I 'SIZE)) (LIST VALUE (TYPEP CONDITION 'ERROR))) WARNING: DEFCLASS: Class FOO77 (or one of its ancestors) is being redefined, instances are obsolete EQUAL-OK: (2 NIL) (MULTIPLE-VALUE-BIND (VALUE CONDITION) (IGNORE-ERRORS (DEFCLASS FOO80A NIL NIL) (DEFCLASS FOO80B (FOO80A) NIL) (SETQ I (MAKE-INSTANCE 'FOO80B)) (DEFCLASS FOO80A NIL ((SIZE :INITARG :SIZE :INITFORM 1) (OTHER))) (SLOT-VALUE I 'SIZE)) (LIST VALUE (TYPEP CONDITION 'ERROR))) WARNING: DEFCLASS: Class FOO80B (or one of its ancestors) is being redefined, instances are obsolete EQUAL-OK: (1 NIL) (MULTIPLE-VALUE-BIND (VALUE CONDITION) (IGNORE-ERRORS (DEFCLASS FOO81A NIL NIL) (DEFCLASS FOO81B (FOO81A) NIL) (SETQ I (MAKE-INSTANCE 'FOO81B)) (DEFCLASS FOO81A NIL ((SIZE :INITARG :SIZE :INITFORM 1 :ALLOCATION :CLASS) (OTHER))) (SLOT-VALUE I 'SIZE)) (LIST VALUE (TYPEP CONDITION 'ERROR))) WARNING: DEFCLASS: Class FOO81B (or one of its ancestors) is being redefined, instances are obsolete EQUAL-OK: (1 NIL) (MULTIPLE-VALUE-BIND (VALUE CONDITION) (IGNORE-ERRORS (DEFCLASS FOO82A NIL ((SIZE :INITARG :SIZE :INITFORM 1))) (DEFCLASS FOO82B (FOO82A) NIL) (SETQ I (MAKE-INSTANCE 'FOO82B :SIZE 5)) (DEFCLASS FOO82A NIL ((OTHER))) (SLOT-VALUE I 'SIZE)) (LIST VALUE (TYPEP CONDITION 'ERROR))) WARNING: DEFCLASS: Class FOO82B (or one of its ancestors) is being redefined, instances are obsolete EQUAL-OK: (NIL T) (MULTIPLE-VALUE-BIND (VALUE CONDITION) (IGNORE-ERRORS (DEFCLASS FOO83A NIL ((SIZE :INITARG :SIZE :INITFORM 1 :ALLOCATION :CLASS))) (DEFCLASS FOO83B (FOO83A) NIL) (SETQ I (MAKE-INSTANCE 'FOO83B)) (DEFCLASS FOO83A NIL ((OTHER))) (SLOT-VALUE I 'SIZE)) (LIST VALUE (TYPEP CONDITION 'ERROR))) WARNING: DEFCLASS: Class FOO83B (or one of its ancestors) is being redefined, instances are obsolete EQUAL-OK: (NIL T) (MULTIPLE-VALUE-BIND (VALUE CONDITION) (IGNORE-ERRORS (DEFCLASS FOO84A NIL ((SIZE :INITARG :SIZE :INITFORM 1 :ALLOCATION :CLASS))) (DEFCLASS FOO84B (FOO84A) NIL) (SETQ I (MAKE-INSTANCE 'FOO84B)) (DEFCLASS FOO84A NIL ((SIZE :INITARG :SIZE :INITFORM 2 :ALLOCATION :CLASS) (OTHER))) (SLOT-VALUE I 'SIZE)) (LIST VALUE (TYPEP CONDITION 'ERROR))) WARNING: DEFCLASS: Class FOO84B (or one of its ancestors) is being redefined, instances are obsolete EQUAL-OK: (1 NIL) (MULTIPLE-VALUE-BIND (VALUE CONDITION) (IGNORE-ERRORS (DEFCLASS FOO85A NIL ((SIZE :INITARG :SIZE :INITFORM 1 :ALLOCATION :CLASS))) (DEFCLASS FOO85B (FOO85A) NIL) (SETQ I (MAKE-INSTANCE 'FOO85B)) (DEFCLASS FOO85A NIL ((SIZE :INITARG :SIZE :INITFORM 2) (OTHER))) (SLOT-VALUE I 'SIZE)) (LIST VALUE (TYPEP CONDITION 'ERROR))) WARNING: DEFCLASS: Class FOO85B (or one of its ancestors) is being redefined, instances are obsolete EQUAL-OK: (1 NIL) (MULTIPLE-VALUE-BIND (VALUE CONDITION) (IGNORE-ERRORS (DEFCLASS FOO86A NIL ((SIZE :INITARG :SIZE :INITFORM 1))) (DEFCLASS FOO86B (FOO86A) NIL) (SETQ I (MAKE-INSTANCE 'FOO86B :SIZE 5)) (DEFCLASS FOO86A NIL ((SIZE :INITARG :SIZE :INITFORM 2) (OTHER))) (SLOT-VALUE I 'SIZE)) (LIST VALUE (TYPEP CONDITION 'ERROR))) WARNING: DEFCLASS: Class FOO86B (or one of its ancestors) is being redefined, instances are obsolete EQUAL-OK: (5 NIL) (MULTIPLE-VALUE-BIND (VALUE CONDITION) (IGNORE-ERRORS (DEFCLASS FOO87A NIL ((SIZE :INITARG :SIZE :INITFORM 1))) (DEFCLASS FOO87B (FOO87A) NIL) (SETQ I (MAKE-INSTANCE 'FOO87B :SIZE 5)) (DEFCLASS FOO87A NIL ((SIZE :INITARG :SIZE :INITFORM 2 :ALLOCATION :CLASS) (OTHER))) (SLOT-VALUE I 'SIZE)) (LIST VALUE (TYPEP CONDITION 'ERROR))) WARNING: DEFCLASS: Class FOO87B (or one of its ancestors) is being redefined, instances are obsolete EQUAL-OK: (2 NIL) (PROGN (DEFCLASS FOO88B (FOO88A) ((S :INITARG :S))) (DEFCLASS FOO88C (B) NIL) (DEFCLASS FOO88A NIL NIL) (LIST (LENGTH (CLOS::LIST-FINALIZED-DIRECT-SUBCLASSES (FIND-CLASS 'FOO88A))) (LENGTH (CLOS::LIST-FINALIZED-DIRECT-SUBCLASSES (FIND-CLASS 'FOO88B))) (LENGTH (CLOS::LIST-FINALIZED-DIRECT-SUBCLASSES (FIND-CLASS 'FOO88C))))) EQUAL-OK: (0 0 0) (PROGN (DEFCLASS FOO89B (FOO89A) ((S :INITARG :S))) (DEFCLASS FOO89C (B) NIL) (DEFCLASS FOO89A NIL NIL) (LET ((X (MAKE-INSTANCE 'FOO89B :S 5))) (LIST (LENGTH (CLOS::LIST-FINALIZED-DIRECT-SUBCLASSES (FIND-CLASS 'FOO89A))) (LENGTH (CLOS::LIST-FINALIZED-DIRECT-SUBCLASSES (FIND-CLASS 'FOO89B))) (LENGTH (CLOS::LIST-FINALIZED-DIRECT-SUBCLASSES (FIND-CLASS 'FOO89C)))))) EQUAL-OK: (1 0 0) (PROGN (DEFCLASS FOO90B (FOO90A) ((S :INITARG :S))) (DEFCLASS FOO90C (FOO90B) NIL) (DEFCLASS FOO90A NIL NIL) (LET ((X (MAKE-INSTANCE 'FOO90B :S 5))) (DEFCLASS FOO90B NIL (S)) (LIST (LENGTH (CLOS::LIST-FINALIZED-DIRECT-SUBCLASSES (FIND-CLASS 'FOO90A))) (LENGTH (CLOS::LIST-FINALIZED-DIRECT-SUBCLASSES (FIND-CLASS 'FOO90B))) (LENGTH (CLOS::LIST-FINALIZED-DIRECT-SUBCLASSES (FIND-CLASS 'FOO90C)))))) WARNING: DEFCLASS: Class FOO90B (or one of its ancestors) is being redefined, instances are obsolete EQUAL-OK: (0 0 0) (PROGN (DEFCLASS FOO91A NIL NIL) (DEFCLASS FOO91B (FOO91A) NIL) (DEFCLASS FOO91C (FOO91B) NIL) (DEFCLASS FOO91B (FOO91A FOO91OTHER) NIL) (LIST (LENGTH (CLOS::LIST-FINALIZED-DIRECT-SUBCLASSES (FIND-CLASS 'FOO91A))) (LENGTH (CLOS::LIST-FINALIZED-DIRECT-SUBCLASSES (FIND-CLASS 'FOO91B))) (LENGTH (CLOS::LIST-FINALIZED-DIRECT-SUBCLASSES (FIND-CLASS 'FOO91C))))) EQUAL-OK: (0 0 0) (PROGN (DEFCLASS FOO92B (FOO92A) ((S :INITARG :S))) (DEFCLASS FOO92A NIL NIL) (LET ((X (MAKE-INSTANCE 'FOO92B :S 5)) (UPDATE-COUNTER 0)) (DEFCLASS FOO92B (FOO92A) ((S) (S1) (S2))) (SLOT-VALUE X 'S) (DEFMETHOD UPDATE-INSTANCE-FOR-REDEFINED-CLASS ((OBJECT FOO92B) ADDED-SLOTS DISCARDED-SLOTS PROPERTY-LIST &REST INITARGS) (INCF UPDATE-COUNTER)) (MAKE-INSTANCES-OBSOLETE 'FOO92A) (SLOT-VALUE X 'S) UPDATE-COUNTER)) WARNING: DEFCLASS: Class FOO92B (or one of its ancestors) is being redefined, instances are obsolete WARNING: MAKE-INSTANCES-OBSOLETE: instances of class FOO92B are made obsolete EQL-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 obsolete EQL-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=#)> from an already called generic function # 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=#)> from an already called generic function # WARNING: DEFCLASS: Class FOO97B (or one of its ancestors) is being redefined, instances are obsolete EQUAL-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 obsolete EQUAL-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 obsolete EQUAL-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 obsolete EQUAL-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 obsolete EQUAL-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 obsolete EQUAL-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 obsolete EQUAL-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 obsolete EQUAL-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 obsolete EQUAL-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 obsolete EQUAL-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=# #2# #2#)> has 3, but #3=# 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=# #3=#) 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=#, allows no method qualifiers except (:BEFORE :AFTER :AROUND): # #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=#, does not allow more than one method qualifier on a method: # #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=#: 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=#: 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 #, does not allow less than one method qualifier on a method: #)> 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 #: The value of CLOS::ORDER is #1#, should be :MOST-SPECIFIC-FIRST or :MOST-SPECIFIC-LAST. EQL-OK: ERROR (PROGN (DEFGENERIC TEST-MC05-3 (X) (:METHOD MC05 ((X REAL)) 'REAL) (:METHOD MC05 ((X INTEGER)) 'INTEGER) (:METHOD MC05 ((X NUMBER)) 'NUMBER) (:METHOD-COMBINATION MC05 :MOST-SPECIFIC-LAST)) (TEST-MC05-3 3)) EQUAL-OK: (NUMBER REAL INTEGER) (PROGN (DEFGENERIC TEST-MC05-4 (X) (:METHOD MC05 ((X REAL)) 'REAL) (:METHOD-COMBINATION MC05 :MOST-SPECIFIC-LAST)) (TEST-MC05-4 3)) EQUAL-OK: (REAL) (PROGN (DEFGENERIC TEST-MC05-5 (X) (:METHOD MC05 ((X REAL)) 'REAL) (:METHOD-COMBINATION MC05 NIL))) [SIMPLE-PROGRAM-ERROR]: DEFGENERIC TEST-MC05-5: Invalid method-combination options (NIL) for #: The value of CLOS::ORDER is NIL, should be :MOST-SPECIFIC-FIRST or :MOST-SPECIFIC-LAST. EQL-OK: ERROR (PROGN (DEFGENERIC TEST-MC05-6 (X) (:METHOD MC05 ((X REAL)) 'REAL) (:METHOD-COMBINATION MC05 :MOST-SPECIFIC-FIRST JUNK))) [SIMPLE-PROGRAM-ERROR]: DEFGENERIC TEST-MC05-6: Invalid method-combination options (:MOST-SPECIFIC-FIRST JUNK) for #: APPLY: too many arguments given to # 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=# applied to argument list NIL: While computing the effective method through #: Impossible to combine the methods: Method #2=# #3# #3#)> has the same specializers and different qualifiers than other methods in method group METHOD-LIST, and is actually used in the effective method. EQL-OK: ERROR (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--1 : variable ARG1 is not used. Misspelled or missing IGNORE declaration? WARNING: in MC-TEST-W-ARGS--1 : variable ARG2 is not used. Misspelled or missing IGNORE declaration? WARNING: in MC-TEST-W-ARGS--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=# 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 #, does not allow the method qualifiers #1=(:IGNORE): #)> 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 #: 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 #: 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--1-1 : Mixing &OPTIONAL and &KEY in lambda list (&OPTIONAL #:G13639 &KEY (TEST 'EQ) (TEST-NOT 'NEQ) &ALLOW-OTHER-KEYS) is bad design EQUAL-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--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 design EQUAL-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--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--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 design EQUAL-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--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 design EQUAL-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--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 design EQUAL-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--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--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 design EQUAL-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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-custom.fas WARNING: (SETF FIND-CLASS): redefining class FORWARD-REFERENCED-CLASS in top-level, was defined in /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clos-custom.fas EQL-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 obsolete EQUAL-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 obsolete EQL-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 obsolete EQL-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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/tests/listeners.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 '( 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/clos-tst.fas EQL-OK: NIL RUN-TEST: finished "clos" (0 errors out of 496 tests) RUN-TEST: started # (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 # (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 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 GB18030: 12 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 body EQL-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 # (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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/eval20-tst-eval-when-test.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/eval20-tst-eval-when-test.fas 0 errors, 0 warnings EQL-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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/eval20-tst-eval-when-test.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/eval20-tst-eval-when-test.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/eval20-tst-eval-when-test.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/eval20-tst-eval-when-test.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/eval20-tst-eval-when-test.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/eval20-tst-eval-when-test.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/eval20-tst-eval-when-test.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/eval20-tst-eval-when-test.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/eval20-tst-eval-when-test.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/eval20-tst-eval-when-test.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/eval20-tst-eval-when-test.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/eval20-tst-eval-when-test.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/eval20-tst-eval-when-test.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/eval20-tst-eval-when-test.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/eval20-tst-eval-when-test.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 ... 0 errors, 0 warnings ;; Loaded file eval20-tst.lisp 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/decl.fas 0 errors, 2 warnings EQUAL-OK: (2 2) (LET ((WARNINGS 0)) (HANDLER-BIND ((WARNING (LAMBDA (W) (INCF WARNINGS)))) (LOAD (COMPILE-FILE-PATHNAME *DECL-FILE*))) (POST-COMPILE-FILE-CLEANUP *DECL-FILE*) WARNINGS) ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/decl.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 # (FUNCALL (MAKE-COMPLETION '("a" "abc" "ab")) "ab" 0 2) EQUAL-OK: ("ab" "ab" "abc") (FUNCALL (MAKE-COMPLETION '("a" "abc" "ab")) "b" 0 1) EQL-OK: NIL (FUNCALL (MAKE-COMPLETION '("abz" "abc")) "a" 0 1) EQUAL-OK: ("ab" "abc" "abz") (FUNCALL (MAKE-COMPLETION '("a" "abc" "ab")) "" 0 0) EQUAL-OK: ("a" "a" "ab" "abc") (LONGEST-COMMON-PREFIX '("a" "abc")) EQUAL-OK: "a" (LONGEST-COMMON-PREFIX '("za" "abc")) EQUAL-OK: "" (LONGEST-COMMON-PREFIX '(#*1100 #*100)) EQUAL-OK: #*1 (LONGEST-COMMON-PREFIX NIL) [SIMPLE-PROGRAM-ERROR]: APPLY: too few arguments given to MIN EQL-OK: ERROR (STARTS-WITH-P "a" "A") EQL-OK: T (STARTS-WITH-P "ab" "b") EQL-OK: NIL (STARTS-WITH-P "http://clisp.org" "http://") EQL-OK: T (STARTS-WITH-P "FoOb" "Fo0b") EQL-OK: NIL (LET* ((DIR (MAKE-PATHNAME :DIRECTORY '(:RELATIVE "foo" "bar" "baz"))) SR1 SR2 (*LOAD-PATHS* (LIST (MAKE-PATHNAME :DIRECTORY (APPEND (SUBSEQ (PATHNAME-DIRECTORY DIR) 0 2) '(:WILD-INFERIORS))))) (FILE (MERGE-PATHNAMES DIR "quux"))) (LIST (MULTIPLE-VALUE-BIND (PATHSPEC CREATED) (ENSURE-DIRECTORIES-EXIST DIR) (LIST (OR (EQUAL PATHSPEC DIR) (LIST PATHSPEC DIR)) CREATED)) (NOT (PROBE-FILE (OPEN FILE :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE))) (LENGTH (SETQ SR1 (SYSTEM::SEARCH-FILE (PATHNAME-NAME FILE)))) (LENGTH (SETQ SR2 (SYSTEM::SEARCH-FILE (MAKE-PATHNAME :NAME (PATHNAME-NAME FILE))))) (OR (EQUAL SR1 SR2) (LIST SR1 SR2)) (OR (EQUAL (FIRST SR1) (TRUENAME FILE)) (LIST SR1 FILE (TRUENAME FILE))) (NOT (DELETE-FILE FILE)) (LOOP FOR D ON (REVERSE (REST (PATHNAME-DIRECTORY DIR))) COLLECT (DELETE-DIRECTORY (MAKE-PATHNAME :DIRECTORY (CONS :RELATIVE (REVERSE D))))))) EQUAL-OK: ((T T) NIL 1 1 T T NIL (T T T)) (MAPCAR (LAMBDA (X &AUX A B) (LIST (SETF (IF X A B) 2) A B)) '(T NIL)) EQUAL-OK: ((2 2 NIL) (2 NIL 2)) (LOOP WITH A AND B FOR X BELOW 2 COLLECT (MULTIPLE-VALUE-LIST (SETF (IF (ZEROP X) (VALUES A B) (VALUES B A)) (FLOOR 7 5))) COLLECT (CONS A B)) EQUAL-OK: ((1 2) (1 . 2) (1 2) (2 . 1)) (LET (X A B C) (SETF (IF (ZEROP X) (VALUES A B) C) X)) [SIMPLE-SOURCE-PROGRAM-ERROR]: SETF place (IF #1=(ZEROP X) #2=(VALUES A B) C) expects different numbers of values in the true and false branches (2 vs. 1 values). EQL-OK: ERROR (FCASE STRING= (LET ((FOO "two third")) (SUBSEQ FOO 0 (POSITION #\Space FOO))) ("first" 1) (("second" "two") 2) (("true" "yes") T) (OTHERWISE NIL)) EQL-OK: 2 (MULTIPLE-VALUE-LIST (XOR NIL NIL NIL)) EQUAL-OK: (NIL) (MULTIPLE-VALUE-LIST (XOR NIL (BLOCK NIL (RETURN 'A)) NIL)) EQUAL-OK: (A 2) (! 10) EQL-OK: 3628800 (! 11) EQL-OK: 39916800 (! 0) EQL-OK: 1 (! 3/2) [SIMPLE-TYPE-ERROR]: !: argument #1=3/2 is not a nonnegative fixnum EQL-OK: ERROR (MULTIPLE-VALUE-LIST (LET (A B) (PUSH (VALUES 1 2) (VALUES A B)))) EQUAL-OK: ((1) (2)) (LET (A B) (LIST (MULTIPLE-VALUE-LIST (PUSHNEW (VALUES 1 2) (VALUES A B))) A B)) EQUAL-OK: (((1) (2)) (1) (2)) (LET ((A '(1)) (B '(2 3))) (LIST (MULTIPLE-VALUE-LIST (POP (VALUES A B))) A B)) EQUAL-OK: ((1 2) NIL (3)) (DEFUN TEST-DOHASH (HASH-TABLE) (LET ((ALL-ENTRIES 'NIL) (GENERATED-ENTRIES 'NIL) (UNIQUE (LIST NIL))) (MAPHASH #'(LAMBDA (KEY VALUE) (PUSH (LIST KEY VALUE) ALL-ENTRIES)) HASH-TABLE) (DOHASH (KEY VALUE HASH-TABLE) (DECLARE (OPTIMIZE SAFETY)) (UNLESS (EQL VALUE (GETHASH KEY HASH-TABLE UNIQUE)) (ERROR "Key ~S not found for value ~S" KEY VALUE)) (PUSH (LIST KEY VALUE) GENERATED-ENTRIES)) (UNLESS (= (LENGTH ALL-ENTRIES) (LENGTH GENERATED-ENTRIES) (LENGTH (UNION ALL-ENTRIES GENERATED-ENTRIES :KEY #'CAR :TEST (HASH-TABLE-TEST HASH-TABLE)))) (ERROR "MAPHASH and EXT:DOHASH entries don't correspond")) T)) EQL-OK: TEST-DOHASH (LET ((TAB (MAKE-HASH-TABLE :TEST #'EQUAL))) (SETF (GETHASH "Richard" TAB) "Gabriel") (SETF (GETHASH "Bruno" TAB) "Haible") (SETF (GETHASH "Michael" TAB) "Stoll") (SETF (GETHASH "Linus" TAB) "Torvalds") (SETF (GETHASH "Richard" TAB) "Stallman") (TEST-DOHASH TAB)) EQL-OK: T (LET ((HASH-TABLE (MAKE-HASH-TABLE)) (ENTRIES 'NIL)) (SETF (GETHASH 1 HASH-TABLE) 100) (SETF (GETHASH 2 HASH-TABLE) 200) (SORT (DOHASH (KEY VALUE HASH-TABLE ENTRIES) (DECLARE (IGNORE KEY)) (PUSH VALUE ENTRIES)) #'<)) EQUAL-OK: (100 200) (LET ((HASH-TABLE (MAKE-HASH-TABLE :INITIAL-CONTENTS '((1 . 100) (2 . 200)))) (ENTRIES 'NIL)) (SORT (DOHASH (KEY VALUE HASH-TABLE ENTRIES) (PUSH VALUE ENTRIES) (GO SKIP) (PUSH KEY ENTRIES) SKIP) #'<)) EQUAL-OK: (100 200) (LET ((X (LIST 1))) (LIST (LETF (((CAR X) 3)) (LIST X (COPY-LIST X))) X)) EQUAL-OK: (((1) (3)) (1)) (LET ((X (LIST 1))) (LIST (LETF (((CAR X) 3) ((CDR X) (COPY-LIST X))) (LIST X (COPY-LIST X))) X)) EQUAL-OK: (((1) (3 1)) (1)) (LET (A B) (LIST (LETF (((VALUES A B) (VALUES 1 2))) (LIST A B)) (LIST A B))) EQUAL-OK: ((1 2) (NIL NIL)) (LET ((X (LIST 2))) (LIST (LETF* (((CAR X) 3)) (LIST X (COPY-LIST X))) X)) EQUAL-OK: (((2) (3)) (2)) (LET ((X (LIST 1))) (LIST (LETF* (((CAR X) 3) ((CDR X) (COPY-LIST X))) (LIST X (COPY-LIST X))) X)) EQUAL-OK: (((1) (3 3)) (1)) (LET (A B) (LIST (LETF* (((VALUES A B) (VALUES 1 2))) (LIST A B)) (LIST A B))) EQUAL-OK: ((1 2) (NIL NIL)) (LET ((X (LIST 1))) (BLOCK NIL (LETF (((CAR X) 2) ((CDR (PROGN (RETURN) X)) 3)) X)) X) EQUAL-OK: (1) (LET ((X (LIST 11184810))) (LETF (((LDB (BYTE 5 9) (FIRST X)) -1)) (SETF (FIRST X) 0)) X) EQUAL-OK: (10752) (LET ((X (LIST 1))) (LETF (((FIRST X) 3)))) EQL-OK: NIL (LET ((X (LIST 1))) (MACROLET ((FROB NIL '(FIRST X))) (LETF (((FROB) 2)) (COPY-LIST X)))) EQUAL-OK: (2) (LET ((X (LIST 1))) (MACROLET ((FROB NIL '(FIRST X))) (LETF* (((FROB) 2)) (COPY-LIST X)))) EQUAL-OK: (2) (SYMBOL-MACROLET ((A *PRINT-BASE*)) (LETF ((A 36)) (PRINC-TO-STRING 20))) EQUAL-OK: "K" (SYMBOL-MACROLET ((A *PRINT-BASE*)) (LETF* ((A 36)) (PRINC-TO-STRING 20))) EQUAL-OK: "K" (LET (A B C) (SYMBOL-MACROLET ((A *PRINT-BASE*)) (LETF (((VALUES A B C) 36)) (PRINC-TO-STRING 20)))) EQUAL-OK: "K" (LET (A B C) (SYMBOL-MACROLET ((A *PRINT-BASE*)) (LETF* (((VALUES A B C) 36)) (PRINC-TO-STRING 20)))) EQUAL-OK: "K" (LET ((A (VECTOR 0 0))) (LETF (((VALUES (AREF A 0) (AREF A 1)) (FLOOR 7 5))) (COPY-SEQ A))) EQUALP-OK: #(1 2) (LET ((A (VECTOR 0 0))) (LETF* (((VALUES (AREF A 0) (AREF A 1)) (FLOOR 7 5))) (COPY-SEQ A))) EQUALP-OK: #(1 2) (LETF (((VALUES) 1)) 2) EQL-OK: 2 (LETF* (((VALUES) 1)) 2) EQL-OK: 2 (MAKUNBOUND 'XX) EQL-OK: XX (LETF (((SYMBOL-VALUE 'XX) 3)) (DECLARE (SPECIAL XX)) XX) [SIMPLE-UNBOUND-VARIABLE]: SYMBOL-VALUE: variable XX has no value EQL-OK: ERROR (MULTIPLE-VALUE-LIST (GETHASH 1 (LETF* ((H (MAKE-HASH-TABLE)) ((GETHASH 1 H) 'A)) H) 2)) EQUAL-OK: (NIL T) (MULTIPLE-VALUE-LIST (GETHASH 1 (LETF* ((H (MAKE-HASH-TABLE)) ((GETHASH 1 H 'B) 'A)) H) 2)) EQUAL-OK: (B T) (LET ((A 'NIL)) (LETF* (((GETF A :KEY) 1))) A) EQUAL-OK: (:KEY NIL) (LET ((A 'NIL)) (LETF* (((GETF A :KEY :DEFAULT) 1))) A) EQUAL-OK: (:KEY :DEFAULT) (LET ((A 'NIL)) (LETF (((GETF A :KEY :DEFAULT) 1))) A) EQUAL-OK: (:KEY :DEFAULT) (LET* ((X 9) (F (LAMBDA NIL X))) (LETF (((VALUES X Y) (FLOOR 7 5))) (LIST X (FUNCALL F)))) EQUAL-OK: (1 9) (LET* ((X 9) (F (LAMBDA NIL X))) (LETF* (((VALUES X Y) (FLOOR 7 5))) (LIST X (FUNCALL F)))) EQUAL-OK: (1 9) (LET* ((X 9) (FX (LAMBDA NIL X)) (Y 3) (FY (LAMBDA NIL Y))) (LETF* (((VALUES (VALUES X) Y) (FLOOR 7 5))) (LIST X (FUNCALL FX) Y (FUNCALL FY)))) EQUAL-OK: (1 1 2 2) (LET* ((X (LIST 9)) (Y 8) (FY (LAMBDA NIL Y))) (LETF* (((VALUES (CAR X) Y) (FLOOR 7 5))) (LIST Y (FUNCALL FY)))) EQUAL-OK: (2 2) (LET ((X 1)) (LOCALLY (DECLARE (SYSTEM::IMPLEMENTATION-DEPENDENT X)) X)) WARNING: Reference to X is implementation-dependent, per ANSI CL 6.1.1.4. EQL-OK: 1 (LET ((X 1)) (LOCALLY (DECLARE (SYSTEM::IMPLEMENTATION-DEPENDENT X)) T)) EQL-OK: T (HANDLER-CASE (LET ((X 1)) (LOCALLY (DECLARE (SYSTEM::IMPLEMENTATION-DEPENDENT X)) X)) (WARNING (W) (PRINC-TO-STRING W))) EQUAL-OK: "Reference to X is implementation-dependent, per ANSI CL 6.1.1.4." (HANDLER-CASE (LET ((X 1)) (LOCALLY (DECLARE (SYSTEM::IMPLEMENTATION-DEPENDENT X)) (SETQ X 2))) (WARNING (W) (PRINC-TO-STRING W))) EQUAL-OK: "Reference to X is implementation-dependent, per ANSI CL 6.1.1.4." (HANDLER-CASE (LET ((X 1)) (LOCALLY (DECLARE (SYSTEM::IMPLEMENTATION-DEPENDENT X)) (MULTIPLE-VALUE-SETQ (X) 2))) (WARNING (W) (PRINC-TO-STRING W))) EQUAL-OK: "Reference to X is implementation-dependent, per ANSI CL 6.1.1.4." (DEFUN ANONYMIZE-COMPILED-FORM-GENSYM (S) (LET ((I (SEARCH "COMPILED-FORM-" S))) (IF I (LET* ((J (+ I 14)) (K (POSITION-IF-NOT #'DIGIT-CHAR-P S :START J))) (CONCATENATE 'STRING (SUBSEQ S 0 J) (SUBSEQ S K))) S))) EQL-OK: ANONYMIZE-COMPILED-FORM-GENSYM (LET ((X 1)) (LOCALLY (DECLARE (SYSTEM::IMPLEMENTATION-DEPENDENT X)) (LOCALLY (DECLARE (COMPILE)) X))) WARNING: in #:COMPILED-FORM-1077 : Reference to X is implementation-dependent, per ANSI CL 6.1.1.4. WARNING: in #:COMPILED-FORM-1077 : Reference to X is implementation-dependent, per ANSI CL 6.1.1.4. EQL-OK: 1 (LET ((X 1)) (LOCALLY (DECLARE (SYSTEM::IMPLEMENTATION-DEPENDENT X)) (LOCALLY (DECLARE (COMPILE)) T))) EQL-OK: T (HANDLER-CASE (LET ((X 1)) (LOCALLY (DECLARE (SYSTEM::IMPLEMENTATION-DEPENDENT X)) (LOCALLY (DECLARE (COMPILE)) X))) (WARNING (W) (ANONYMIZE-COMPILED-FORM-GENSYM (PRINC-TO-STRING W)))) EQUAL-OK: "in #:COMPILED-FORM- : Reference to X is implementation-dependent, per ANSI CL 6.1.1.4." (HANDLER-CASE (LET ((X 1)) (LOCALLY (DECLARE (SYSTEM::IMPLEMENTATION-DEPENDENT X)) (LOCALLY (DECLARE (COMPILE)) (SETQ X 2)))) (WARNING (W) (ANONYMIZE-COMPILED-FORM-GENSYM (PRINC-TO-STRING W)))) EQUAL-OK: "in #:COMPILED-FORM- : Reference to X is implementation-dependent, per ANSI CL 6.1.1.4." (HANDLER-CASE (LET ((X 1)) (LOCALLY (DECLARE (SYSTEM::IMPLEMENTATION-DEPENDENT X)) (LOCALLY (DECLARE (COMPILE)) (MULTIPLE-VALUE-SETQ (X) 2)))) (WARNING (W) (ANONYMIZE-COMPILED-FORM-GENSYM (PRINC-TO-STRING W)))) EQUAL-OK: "in #:COMPILED-FORM- : Reference to X is implementation-dependent, per ANSI CL 6.1.1.4." (LOCALLY (DECLARE (COMPILE)) (LET ((X 1)) (LOCALLY (DECLARE (SYSTEM::IMPLEMENTATION-DEPENDENT X)) X))) WARNING: in #:COMPILED-FORM-1085 : Reference to X is implementation-dependent, per ANSI CL 6.1.1.4. WARNING: in #:COMPILED-FORM-1085 : Reference to X is implementation-dependent, per ANSI CL 6.1.1.4. EQL-OK: 1 (LOCALLY (DECLARE (COMPILE)) (LET ((X 1)) (LOCALLY (DECLARE (SYSTEM::IMPLEMENTATION-DEPENDENT X)) T))) WARNING: in #:COMPILED-FORM-1086 : variable X is not used. Misspelled or missing IGNORE declaration? EQL-OK: T (HANDLER-CASE (LOCALLY (DECLARE (COMPILE)) (LET ((X 1)) (LOCALLY (DECLARE (SYSTEM::IMPLEMENTATION-DEPENDENT X)) X))) (WARNING (W) (ANONYMIZE-COMPILED-FORM-GENSYM (PRINC-TO-STRING W)))) EQUAL-OK: "in #:COMPILED-FORM- : Reference to X is implementation-dependent, per ANSI CL 6.1.1.4." (HANDLER-CASE (LOCALLY (DECLARE (COMPILE)) (LET ((X 1)) (LOCALLY (DECLARE (SYSTEM::IMPLEMENTATION-DEPENDENT X)) (SETQ X 2)))) (WARNING (W) (ANONYMIZE-COMPILED-FORM-GENSYM (PRINC-TO-STRING W)))) EQUAL-OK: "in #:COMPILED-FORM- : Reference to X is implementation-dependent, per ANSI CL 6.1.1.4." (HANDLER-CASE (LOCALLY (DECLARE (COMPILE)) (LET ((X 1)) (LOCALLY (DECLARE (SYSTEM::IMPLEMENTATION-DEPENDENT X)) (MULTIPLE-VALUE-SETQ (X) 2)))) (WARNING (W) (ANONYMIZE-COMPILED-FORM-GENSYM (PRINC-TO-STRING W)))) EQUAL-OK: "in #:COMPILED-FORM- : Reference to X is implementation-dependent, per ANSI CL 6.1.1.4." (EVERY #'FEATUREP *FEATURES*) EQL-OK: T (NOTANY (LAMBDA (X) (FEATUREP `(NOT ,X))) *FEATURES*) EQL-OK: T ((LAMBDA (X) (DECLARE (COMPILE)) (ETHE INTEGER X)) 3) EQL-OK: 3 ((LAMBDA (X) (DECLARE (COMPILE)) (ETHE INTEGER X)) T) [SIMPLE-ERROR]: The form X yielded T , that's not of type INTEGER. EQL-OK: ERROR (LOCALLY (DECLARE (COMPILE)) (MULTIPLE-VALUE-LIST (ETHE (VALUES INTEGER FLOAT) (TRUNCATE 3.2 2)))) EQUAL-OK: (1 1.2) (LOCALLY (DECLARE (COMPILE)) (ETHE (VALUES FLOAT INTEGER) (TRUNCATE 3.2 2))) [SIMPLE-ERROR]: The form (TRUNCATE 3.2 2) yielded 1 ; 1.2 , that's not of type (VALUES FLOAT INTEGER). EQL-OK: ERROR (CANONICALIZE 1 `(,#'1+)) [SIMPLE-ERROR]: CANONICALIZE(1 (#)): 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/ Creating directory: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/foo/ Creating directory: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/foo/bar/ Creating directory: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/foo/bar/baz/ ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/foo/bar/baz/zot.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/foo/bar/baz/zot.lisp /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/foo/bar/baz/zot.lisp 29 2020-08-16 02:19:11 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/ 4096 2020-08-16 02:19:11 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/foo/ 4096 2020-08-16 02:19:11 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/foo/bar/ 4096 2020-08-16 02:19:11 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/foo/bar/baz/ 4096 2020-08-16 02:19:11 removing file #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/foo/bar/baz/zot.lisp" removing directory #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/foo/bar/baz/" removing directory #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/foo/bar/" removing directory #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/foo/" removing directory #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/" EQUAL-OK: (#P"") (CHECK-LOAD "ext-clisp-tst/foo/bar/baz/zot") Creating directory: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/ Creating directory: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/foo/ Creating directory: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/foo/bar/ Creating directory: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/foo/bar/baz/ ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/foo/bar/baz/zot ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/foo/bar/baz/zot /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/foo/bar/baz/zot 29 2020-08-16 02:19:11 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/ 4096 2020-08-16 02:19:11 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/foo/ 4096 2020-08-16 02:19:11 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/foo/bar/ 4096 2020-08-16 02:19:11 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/foo/bar/baz/ 4096 2020-08-16 02:19:11 removing file #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/foo/bar/baz/zot" removing directory #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/foo/bar/baz/" removing directory #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/foo/bar/" removing directory #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/foo/" removing directory #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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: # already points to file #1="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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: # already points to file "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst-abazonk" , opening the file again for :INPUT may produce unexpected results Open the file anyway EQL-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: # already points to file "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst-abazonk" , opening the file again for :INPUT may produce unexpected results EQL-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"))) EQL-OK: *S4* (OPEN-STREAM-P *S1*) EQL-OK: NIL (OPEN-STREAM-P *S2*) EQL-OK: T (OPEN-STREAM-P *S3*) EQL-OK: T (OPEN-STREAM-P *S4*) EQL-OK: T (EQUAL (TRUENAME *S1*) (TRUENAME *S4*)) EQL-OK: T (DEFPARAMETER *S1* (LET ((*REOPEN-OPEN-FILE* 'CLOSE)) (OPEN "ext-clisp-tst-abazonk" :DIRECTION :OUTPUT))) EQL-OK: *S1* (OPEN-STREAM-P *S1*) EQL-OK: T (OPEN-STREAM-P *S2*) EQL-OK: NIL (OPEN-STREAM-P *S3*) EQL-OK: NIL (OPEN-STREAM-P *S4*) EQL-OK: NIL (EQUAL (TRUENAME *S1*) (TRUENAME *S4*)) EQL-OK: T (LET ((*REOPEN-OPEN-FILE* 0)) (OPEN "ext-clisp-tst-abazonk")) WARNING: OPEN: The value of *REOPEN-OPEN-FILE* should be one of ERROR, WARN, CLOSE, or NIL, not 0. It has been changed to ERROR. [SIMPLE-FILE-ERROR]: OPEN: # already points to file #1="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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)"))))) Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x232f8000 - 0x23318fff 0x80000000 - 0x800bffff 0x15668e7000 - 0x1566901fff 0x1566902000 - 0x1566902fff 0x1566903000 - 0x1566903fff 0x1566904000 - 0x1566905fff 0x1566906000 - 0x1566907fff 0x1566908000 - 0x156690efff 0x1566913000 - 0x1566914fff 0x1566915000 - 0x1566953fff 0x1566954000 - 0x1566955fff 0x1566956000 - 0x156695cfff 0x156695d000 - 0x156695dfff 0x156695e000 - 0x1566983fff 0x1566984000 - 0x1566987fff 0x1566988000 - 0x1566988fff 0x1566989000 - 0x156698afff 0x156698b000 - 0x156698bfff 0x156698c000 - 0x156698cfff 0x156698d000 - 0x156698dfff 0x156698e000 - 0x1566991fff 0x1566992000 - 0x1566992fff 0x1566993000 - 0x1566993fff 0x1566994000 - 0x1566995fff 0x1566996000 - 0x1566996fff 0x1566997000 - 0x1566997fff 0x1566998000 - 0x1566b03fff 0x1566b04000 - 0x1566b06fff 0x1566b07000 - 0x1566b07fff 0x1566b08000 - 0x1566b0afff 0x1566b0b000 - 0x1566b1dfff 0x1566b1e000 - 0x1566b1efff 0x1566b1f000 - 0x1566b1ffff 0x1566b20000 - 0x1566c3efff 0x1566c3f000 - 0x1566c41fff 0x1566c42000 - 0x1566c44fff 0x1566c45000 - 0x1566c49fff 0x3ffffa5000 - 0x3ffffc5fff Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x27149000 - 0x27169fff 0x80000000 - 0x800bffff 0x158d71e000 - 0x158d738fff 0x158d739000 - 0x158d739fff 0x158d73a000 - 0x158d73afff 0x158d73b000 - 0x158d73cfff 0x158d73d000 - 0x158d73efff 0x158d73f000 - 0x158d745fff 0x158d74a000 - 0x158d74bfff 0x158d74c000 - 0x158d78afff 0x158d78b000 - 0x158d78cfff 0x158d78d000 - 0x158d793fff 0x158d794000 - 0x158d794fff 0x158d795000 - 0x158d7bafff 0x158d7bb000 - 0x158d7befff 0x158d7bf000 - 0x158d7bffff 0x158d7c0000 - 0x158d7c1fff 0x158d7c2000 - 0x158d7c2fff 0x158d7c3000 - 0x158d7c3fff 0x158d7c4000 - 0x158d7c4fff 0x158d7c5000 - 0x158d7c8fff 0x158d7c9000 - 0x158d7c9fff 0x158d7ca000 - 0x158d7cafff 0x158d7cb000 - 0x158d7ccfff 0x158d7cd000 - 0x158d7cdfff 0x158d7ce000 - 0x158d7cefff 0x158d7cf000 - 0x158d93afff 0x158d93b000 - 0x158d93dfff 0x158d93e000 - 0x158d93efff 0x158d93f000 - 0x158d941fff 0x158d942000 - 0x158d954fff 0x158d955000 - 0x158d955fff 0x158d956000 - 0x158d956fff 0x158d957000 - 0x158da75fff 0x158da76000 - 0x158da78fff 0x158da79000 - 0x158da7bfff 0x158da7c000 - 0x158da80fff 0x3fff7ec000 - 0x3fff80cfff 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))) Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x22567000 - 0x22587fff 0x80000000 - 0x800bffff 0x158fb4f000 - 0x158fb69fff 0x158fb6a000 - 0x158fb6afff 0x158fb6b000 - 0x158fb6bfff 0x158fb6c000 - 0x158fb6dfff 0x158fb6e000 - 0x158fb6ffff 0x158fb70000 - 0x158fb76fff 0x158fb7b000 - 0x158fb7cfff 0x158fb7d000 - 0x158fbbbfff 0x158fbbc000 - 0x158fbbdfff 0x158fbbe000 - 0x158fbc4fff 0x158fbc5000 - 0x158fbc5fff 0x158fbc6000 - 0x158fbebfff 0x158fbec000 - 0x158fbeffff 0x158fbf0000 - 0x158fbf0fff 0x158fbf1000 - 0x158fbf2fff 0x158fbf3000 - 0x158fbf3fff 0x158fbf4000 - 0x158fbf4fff 0x158fbf5000 - 0x158fbf5fff 0x158fbf6000 - 0x158fbf9fff 0x158fbfa000 - 0x158fbfafff 0x158fbfb000 - 0x158fbfbfff 0x158fbfc000 - 0x158fbfdfff 0x158fbfe000 - 0x158fbfefff 0x158fbff000 - 0x158fbfffff 0x158fc00000 - 0x158fd6bfff 0x158fd6c000 - 0x158fd6efff 0x158fd6f000 - 0x158fd6ffff 0x158fd70000 - 0x158fd72fff 0x158fd73000 - 0x158fd85fff 0x158fd86000 - 0x158fd86fff 0x158fd87000 - 0x158fd87fff 0x158fd88000 - 0x158fea6fff 0x158fea7000 - 0x158fea9fff 0x158feaa000 - 0x158feacfff 0x158fead000 - 0x158feb1fff 0x3fffb10000 - 0x3fffb30fff 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)))) 62565 Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x215ba000 - 0x215dafff 0x80000000 - 0x800bffff 0x1579203000 - 0x157921dfff 0x157921e000 - 0x157921efff 0x157921f000 - 0x157921ffff 0x1579220000 - 0x1579221fff 0x1579222000 - 0x1579223fff 0x1579224000 - 0x157922afff 0x157922f000 - 0x1579230fff 0x1579231000 - 0x157926ffff 0x1579270000 - 0x1579271fff 0x1579272000 - 0x1579278fff 0x1579279000 - 0x1579279fff 0x157927a000 - 0x157929ffff 0x15792a0000 - 0x15792a3fff 0x15792a4000 - 0x15792a4fff 0x15792a5000 - 0x15792a6fff 0x15792a7000 - 0x15792a7fff 0x15792a8000 - 0x15792a8fff 0x15792a9000 - 0x15792a9fff 0x15792aa000 - 0x15792adfff 0x15792ae000 - 0x15792aefff 0x15792af000 - 0x15792affff 0x15792b0000 - 0x15792b1fff 0x15792b2000 - 0x15792b2fff 0x15792b3000 - 0x15792b3fff 0x15792b4000 - 0x157941ffff 0x1579420000 - 0x1579422fff 0x1579423000 - 0x1579423fff 0x1579424000 - 0x1579426fff 0x1579427000 - 0x1579439fff 0x157943a000 - 0x157943afff 0x157943b000 - 0x157943bfff 0x157943c000 - 0x157955afff 0x157955b000 - 0x157955dfff 0x157955e000 - 0x1579560fff 0x1579561000 - 0x1579565fff 0x3fffd56000 - 0x3fffd76fff EQUAL-OK: (T T T T "(quit)" NIL "[1]> ") (LET ((ARGS (LIST (CODE-CHAR (RANDOM CHAR-CODE-LIMIT)) (USER-HOMEDIR-PATHNAME) 'ARGS))) (LOOP :FOR L :IN '((LAMBDA (A B C) (CONCATENATE 'STRING "[" (SYMBOL-NAME C) " " (NAMESTRING B) " " (CHAR-NAME A) "]"))) :FOR C = (COMPILE NIL L) :DO (DISASSEMBLE C) :ALWAYS (STRING= (APPLY (COERCE L 'FUNCTION) ARGS) (SHOW (APPLY C ARGS))))) [1]> 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/ U00094E93]" 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.utf8" 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.utf8" 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 # (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))))) "fedora-riscv-9.gcc141.osuosl.org" "fedora-riscv-9.gcc141.osuosl.org [192.168.122.105]" 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) # 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: # 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 # 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)) # 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]: # 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: # 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: # 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 # 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=# 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: 1047340 (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: # 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 # 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))) 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: 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)) 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))))) "8.44 2020-02-12" 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 # (DEFUN TEST-POS-EPSILON () (/= (FLOAT 1 ) (+ (FLOAT 1 ) ))) 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 () (/= (FLOAT 1 ) (- (FLOAT 1 ) ))) 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 # (FORMAT NIL "~10") EQUAL-OK: "foo bar" (FORMAT NIL "~10:") EQUAL-OK: " foo bar" (FORMAT NIL "~10@") EQUAL-OK: "foo bar " (FORMAT NIL "~10:@") EQUAL-OK: " foo bar " (FORMAT NIL "~10") EQUAL-OK: " foobar" (FORMAT NIL "~10:") EQUAL-OK: " foobar" (FORMAT NIL "~10@") EQUAL-OK: "foobar " (FORMAT NIL "~10:@") 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-:~ same line no space despite 2* and sp-*") EQUAL-OK: "format-:same line no space despite 2* and sp-*" (FORMAT NIL "format-:~@ new beginning of line despite + sp-*") EQUAL-OK: "format-: new beginning of line despite + sp-*" (FORMAT NIL "format-:~: gleiche Zeile aber ein tab vor Anfang-*") EQUAL-OK: "format-: 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~ ~@ 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 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: " 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: " 7" (FORMAT NIL "~@? ~D" "<~A ~D>" "Foo" 5 14 7) EQUAL-OK: " 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: ." (FORMAT NIL "Pairs:~:{ <~S,~S>~}." '((A 1) (B 2) (C 3))) EQUAL-OK: "Pairs: ." (FORMAT NIL "Pairs:~@{ <~S,~S>~}." 'A 1 'B 2 'C 3) EQUAL-OK: "Pairs: ." (FORMAT NIL "Pairs:~:@{ <~S,~S>~}." '(A 1) '(B 2) '(C 3)) EQUAL-OK: "Pairs: ." (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 # (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 # (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 # 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 # (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 " 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 # (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 # (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=# # #>> 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=# 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=# 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=# 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=# 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: "# (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 # (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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/lambda-tst-function-lambda-expression-test.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/lambda-tst-function-lambda-expression-test.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/lambda-tst-function-lambda-expression-test.fas ... WARNING: DEFUN/DEFMACRO: redefining function FOO in /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/lambda-tst-function-lambda-expression-test.fas, was defined in top-level ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/lambda-tst-function-lambda-expression-test.fas 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) # 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) # 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=# . #-1>) (#2=# . #-1>) (#3=# . #-1>))) CLOS::COMPUTE-APPLICABLE-METHODS-EFFECTIVE-METHOD #4=#) (CONST 1) = DISASSEMBLE (CONST 2) = NIL (CONST 3) = NIL (CONST 4) = #(1 0 T T (:QUALIFIERS :SPECIALIZERS) NIL) (CONST 5) = (0) (CONST 6) = (#1=#)> #3=#)> #5=#)> #7=#)> #9=#)> #11=#)> #13=#)> #15=#)>) (CONST 7) = # (CONST 8) = #1=# (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=#)> #3=#)> #5=#)>) . #-1>) ((#7=#)> #5#) . #-1>) ((#3# #5#) . #-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) = # 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) ; # 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 # (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 # (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 # (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 # (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 # (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 # (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 # (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 # (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 specification EQUAL-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 specification EQUAL-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 specification EQUAL-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 specification EQUAL-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 specification EQUAL-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 specification EQUAL-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 body EQUAL-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-479950 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-479960 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 specification EQUAL-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 # (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)) WARNING: OTHERWISE used as a key in (OTHERWISE 4), it would be better to use parentheses. EQL-OK: 4 (MACROLET ((FOO (&ENVIRONMENT ENV) (IF (MACRO-FUNCTION 'BAR ENV) ''YES ''NO))) (LIST (FOO) (MACROLET ((BAR NIL :BEEP)) (FOO)))) EQUAL-OK: (NO YES) (MACROLET ((%M (NIL) :GOOD)) (%M NIL)) EQL-OK: :GOOD (MACROLET ((%M (NIL) :GOOD)) (%M 10)) [SIMPLE-SOURCE-PROGRAM-ERROR]: %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: # (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)))) WARNING: in #:FUNC-480241 : #:B-480243 is neither declared nor bound, it will be treated as if it were declared SPECIAL. EQL-OK: 3 (PROGN (DEFINE-SYMBOL-MACRO FOO137 (SYMBOL-VALUE 'FOO137)) (SETQ FOO137 73) FOO137) 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: 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 definition EQL-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-MACRO definition EQL-OK: T (PROGN (DEFVAR FOO142 1) (APPEASE-CERRORS (DEFINE-SYMBOL-MACRO FOO142 T)) FOO142) WARNING: SYSTEM::%PROCLAIM-SYMBOL-MACRO: the symbol FOO142 names a global SPECIAL variable Remove the global SPECIAL variable binding EQL-OK: T (LET ((S (DEFINE-SYMBOL-MACRO FOO143 T))) (IMPORT S "KEYWORD") (EVAL S)) EQL-OK: T (DEFPARAMETER *MY-TYPEOF-COUNTER* 0) EQL-OK: *MY-TYPEOF-COUNTER* (DEFMACRO MY-TYPEOF (PLACE &ENVIRONMENT ENV) (LET ((EXP-PLACE (MACROEXPAND PLACE ENV))) (UNLESS (AND (CONSP EXP-PLACE) (EQ (CAR EXP-PLACE) 'FOREIGN-VALUE)) (ERROR "MY-TYPEOF not upon a place: ~S" EXP-PLACE)) (INCF *MY-TYPEOF-COUNTER*) (SECOND EXP-PLACE))) EQL-OK: MY-TYPEOF (DEFMACRO WITH-VAR ((VAR FVAR) &BODY BODY) (LET ((FV (GENSYM (SYMBOL-NAME VAR)))) `(LET ((,FV ,FVAR)) (SYMBOL-MACROLET ((,VAR (FOREIGN-VALUE ,FV))) ,@BODY)))) EQL-OK: WITH-VAR (WITH-VAR (MY-VAR "fake variable") (MY-TYPEOF MY-VAR)) EQUAL-OK: "fake variable" *MY-TYPEOF-COUNTER* EQL-OK: 1 (FUNCALL (LAMBDA NIL (DECLARE (COMPILE)) (WITH-VAR (MY-VAR "fake variable") (MY-TYPEOF MY-VAR)))) EQUAL-OK: "fake variable" *MY-TYPEOF-COUNTER* EQL-OK: 2 (DEFMACRO MY-MAC (&OPTIONAL (X (ERROR "missing arg")) &KEY (Y (ERROR "missing arg"))) `'(,X ,Y)) EQL-OK: MY-MAC (MY-MAC 1 :Y 10) EQUAL-OK: (1 10) (DEFMACRO MY-MAC (&KEY (B T)) (IF B 'C 'D)) EQL-OK: MY-MAC (MACROEXPAND '(MY-MAC)) EQL-OK: C (MACROEXPAND '(MY-MAC :B NIL)) EQL-OK: D (DEFMACRO MY-MAC (&KEY (A T B)) `(,A ,B)) EQL-OK: MY-MAC (MACROEXPAND '(MY-MAC :A 1)) EQUAL-OK: (1 T) (MACROEXPAND '(MY-MAC)) EQUAL-OK: (T NIL) (DEFMACRO DM1A (&WHOLE X) `',X) EQL-OK: DM1A (MACROEXPAND '(DM1A)) EQUAL-OK: '(DM1A) (DEFMACRO DM1B (&WHOLE X A &OPTIONAL B) `'(,X ,A ,B)) EQL-OK: DM1B (MACROEXPAND '(DM1B Q)) EQUAL-OK: '((DM1B Q) Q NIL) (MACROEXPAND '(DM1B Q R)) EQUAL-OK: '((DM1B Q R) Q R) (DEFMACRO DM2A (&WHOLE FORM A B) `'(FORM ,FORM A ,A B ,B)) EQL-OK: DM2A (MACROEXPAND '(DM2A X Y)) EQUAL-OK: '(FORM (DM2A X Y) A X B Y) (DM2A X Y) EQUAL-OK: (FORM (DM2A X Y) A X B Y) (DEFMACRO INCFQ (X) `(SETQ ,X (+ ,X 1))) EQL-OK: INCFQ (DEFMACRO DM2B (&WHOLE FORM A (&WHOLE B (C . D) &OPTIONAL (E 5)) &BODY F &ENVIRONMENT ENV) ``(,',FORM ,,A ,',B ,',(MACROEXPAND C ENV) ,',D ,',E ,',F)) EQL-OK: DM2B (DM2B :X1 (((INCFQ X2) X3 X4)) X5 X6) EQUAL-OK: ((DM2B :X1 (((INCFQ X2) X3 X4)) X5 X6) :X1 (((INCFQ X2) X3 X4)) (SETQ X2 (+ X2 1)) (X3 X4) 5 (X5 X6)) (LET ((X1 5)) (MACROLET ((SEGUNDO (X) `(CADR ,X))) (DM2B X1 (((SEGUNDO X2) X3 X4)) X5 X6))) EQUAL-OK: ((DM2B X1 (((SEGUNDO X2) X3 X4)) X5 X6) 5 (((SEGUNDO X2) X3 X4)) (CADR X2) (X3 X4) 5 (X5 X6)) (LOOP :FOR A :IN (FUNCALL (SYSTEM::COMPILE-FORM-IN-TOPLEVEL-ENVIRONMENT '(LIST (LIST #'EQUAL 2 2) (LIST #'EQUAL 2 3)))) :COLLECT (FUNCALL (CAR A) (CADR A) (CADDR A))) EQUAL-OK: (T NIL) (PROGN (DEFCLASS T1 NIL ((FOO :ACCESSOR FOO :INITFORM :FOO))) (LIST (FUNCALL (COMPILE NIL (LAMBDA NIL (TYPEP (MAKE-INSTANCE 'T1) 'T1)))) (FUNCALL (SYSTEM::COMPILE-FORM-IN-TOPLEVEL-ENVIRONMENT '(TYPEP (MAKE-INSTANCE 'T1) 'T1))))) EQUAL-OK: (T T) (PROGN (DECLAIM (NOTINLINE NOTINLINE-TEST-FUNC-1)) (DEFUN NOTINLINE-TEST-FUNC-1 (X) X) (COMPILE 'NOTINLINE-TEST-FUNC-1) (DEFUN NOTINLINE-TEST-FUNC-2 (X) (NOTINLINE-TEST-FUNC-1 X) X) (COMPILE 'NOTINLINE-TEST-FUNC-2) (DEFVAR *NOTINLINE-TEST-VAR* 10) (DEFUN NOTINLINE-TEST-FUNC-1 (X) (INCF *NOTINLINE-TEST-VAR* X)) (LIST (NOTINLINE-TEST-FUNC-2 12) *NOTINLINE-TEST-VAR*)) EQUAL-OK: (12 22) (LET ((FILE "macro8-tst-tmp.lisp")) (WITH-OPEN-FILE (O FILE :DIRECTION :OUTPUT) (WRITE-LINE "(defun caller (a b) (foo a b))" O) (WRITE-LINE "(defun foo (a b c) (list a b c))" O)) (UNWIND-PROTECT (PROGN (LOAD FILE :COMPILING T) (FOO 1 2 3)) (DELETE-FILE FILE))) ;; Loading file macro8-tst-tmp.lisp ... WARNING: in CALLER : FOO was called with 2 arguments, but it requires 1 argument. WARNING: DEFUN/DEFMACRO: redefining function FOO in /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-tmp1.lisp, was defined in /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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. 0 errors, 1 warning ;; Loaded file macro8-tst-tmp2.lisp 0 errors, 1 warning ;; Loaded file macro8-tst-tmp1.lisp EQUAL-OK: (T T) (TEST-COMPILER (LAMBDA (A) (IF (AND (IF A T NIL) NIL) A (MIN (BLOCK B5 -1) A))) 123) EQUAL-OK: (T -1 -1) (TEST-COMPILER (LAMBDA (A B C) (IF (OR (NOT (AND A NIL)) (AND (OR B (LDB-TEST (BYTE 26 31) C)) T)) B B)) 123 144 532) EQUAL-OK: (T 144 144) (TEST-COMPILER (LAMBDA (C) (IF (OR (NOT (IF C NIL NIL)) (AND (AND (LDB-TEST (BYTE 13 25) -707966251) (LOGBITP 5 C)) (LDB-TEST (BYTE 13 26) -396394270089))) 513972305 19641756)) 125) EQUAL-OK: (T 513972305 513972305) (LET ((FILE "macro8-tst-tmp.lisp")) (WITH-OPEN-FILE (OUT FILE :DIRECTION :OUTPUT) (WRITE '(EVAL-WHEN (LOAD COMPILE EVAL) (+ (FUNCALL (COMPILE NIL (LAMBDA NIL (LOAD-TIME-VALUE (+ 2 3))))) 120)) :STREAM OUT)) (UNWIND-PROTECT (COMPILE-FILE FILE) (POST-COMPILE-FILE-CLEANUP FILE)) NIL) ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-tmp.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-tmp.fas 0 errors, 0 warnings EQL-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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-tmp.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-tmp.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-tmp.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-tmp.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-tmp.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-tmp.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-tmp.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-tmp.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-tmp.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-warn.fas 0 errors, 2 warnings EQUAL-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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/tests/bug001.lisp ... WARNING: function %F13 is not used. Misspelled or missing IGNORE declaration? EVAL: -105424 COMPILE: -105424 ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/tests/bug001.lisp EQL-OK: T (PROGN (LOAD (MERGE-PATHNAMES "bug002.lisp" *RUN-TEST-TRUENAME*)) T) ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-donc.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-donc.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-donc.fas ... WARNING: G is already compiled. ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-donc.lisp, was defined in /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-tmp1.lisp ;; Loaded file macro8-tst-donc.lisp ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-donc.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-donc.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-donc.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-test-compile-file-output-argument.lisp ... ;; Wrote file macro8-tst-test-compile-file-output-argument.fas 0 errors, 0 warnings EQL-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: # is already compiled. EQUAL-OK: (# 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-test-compiled-file-p.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-test-compiled-file-p.fas 0 errors, 0 warnings EQUAL-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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-test-compile-time-value.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-test-compile-time-value.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-test-compile-time-value.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-test-crlf-print-read.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-test-crlf-print-read.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-test-crlf-print-read.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-test-crlf-print-read.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-test-crlf-print-read.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-test-crlf-print-read.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-test-crlf-print-read.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-test-crlf-print-read.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-test-crlf-print-read.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-test-pr-kw.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-test-pr-kw.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-test-pr-kw.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 0 EQUAL-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 T EQUAL-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 # , is accessible in 1 package /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8.erg, names a macro, has 1 property SYSTEM::DEFINITION. For more information, evaluate (SYMBOL-PLIST 'TEST-MACRO-ARGLIST). # is the package named /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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. # 0> is a macro expander. Argument list:"Due to the compiler optimization settings, lambda list for # 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. Misspelled or missing IGNORE declaration? EQUAL-OK: (X 1 NIL) (MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA NIL (FLET ((F (Z) (1+ Z))) #'F)))) EQUAL-OK: (X NIL NIL) (MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA (Y) (FLET ((F (Z) (1+ Z))) Y)))) WARNING: function X-F is not used. Misspelled or missing IGNORE declaration? EQUAL-OK: (X 1 NIL) (MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA (Y) (FLET ((F (Z) (1+ Z))) (DECLARE (IGNORABLE #'F)) Y)))) EQUAL-OK: (X NIL NIL) (MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA (Y) (FLET ((F (Z) (1+ Z))) (DECLARE (IGNORE #'F)) Y)))) EQUAL-OK: (X NIL NIL) (MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA NIL (FLET ((F (Z) (1+ Z))) (DECLARE (IGNORE #'F)) #'F)))) WARNING: in X : function X-F is used despite IGNORE declaration. EQUAL-OK: (X 1 NIL) (MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA (Y) (FLET ((F (Z) (1+ Z))) (DECLARE (IGNORE #'F)) #'F)))) WARNING: in X : variable Y is not used. Misspelled or missing IGNORE declaration? WARNING: in X : function X-F is used despite IGNORE declaration. EQUAL-OK: (X 2 NIL) (MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA (Y) (DECLARE (IGNORE Y)) (FLET ((F (Z) (1+ Z))) #'F)))) EQUAL-OK: (X NIL NIL) (MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA (Y) (DECLARE (IGNORE Y)) (FLET ((F (Z) (1+ Z))) (F Y))))) WARNING: in X : variable Y is used despite IGNORE declaration. EQUAL-OK: (X 1 NIL) (HANDLER-CASE (FUNCALL (LOCALLY (DECLARE (OPTIMIZE (SAFETY 3))) (COMPILE NIL (LAMBDA (A) (AREF A 0) 1))) 2) (TYPE-ERROR (C) (PRINC-ERROR C) :GOOD) (ERROR (C) (PRINC-ERROR C) :BAD)) [SIMPLE-TYPE-ERROR]: AREF: argument 2 is not an array EQL-OK: :GOOD (FUNCALL (LOCALLY (DECLARE (OPTIMIZE (SAFETY 2))) (COMPILE NIL (LAMBDA (A) (AREF A 0) 1))) 2) EQL-OK: 1 (HANDLER-CASE (FUNCALL (LOCALLY (DECLARE (OPTIMIZE (SAFETY 0))) (COMPILE NIL (LAMBDA (S) (PARSE-INTEGER S) 1))) "a") (ERROR (C) (PRINC-ERROR C) :GOOD)) [SIMPLE-PARSE-ERROR]: PARSE-INTEGER: substring "a" does not have integer syntax at position 0 EQL-OK: :GOOD (MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA NIL (LET (A) T)))) WARNING: in X : variable A is not used. Misspelled or missing IGNORE declaration? EQUAL-OK: (X 1 NIL) (MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA NIL T))) EQUAL-OK: (X NIL NIL) (MULTIPLE-VALUE-LIST (COMPILE 'X (LAMBDA NIL (LET (A) (SETQ A 1))))) WARNING: in X : variable A is assigned but not 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 design EQUAL-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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/macro8-tst-warn.lisp EQL-OK: NIL RUN-TEST: finished "macro8" (0 errors out of 253 tests) RUN-TEST: started # (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 # (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: "#" (AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'CLASS))) EQUAL-OK: "#>" (AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'STANDARD-CLASS))) EQUAL-OK: "# :UNINITIALIZED>" (AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'STRUCTURE-CLASS))) EQUAL-OK: "#>" (AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'EQL-SPECIALIZER))) EQUAL-OK: "#>" (AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'SLOT-DEFINITION))) EQUAL-OK: "# >" (AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'DIRECT-SLOT-DEFINITION))) EQUAL-OK: "# >" (AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'EFFECTIVE-SLOT-DEFINITION))) EQUAL-OK: "# >" (AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'STANDARD-DIRECT-SLOT-DEFINITION))) EQUAL-OK: "# >" (AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'STANDARD-EFFECTIVE-SLOT-DEFINITION))) EQUAL-OK: "# >" (AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'METHOD-COMBINATION))) EQUAL-OK: "# >" (AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'METHOD))) EQUAL-OK: "#" (AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'STANDARD-METHOD))) EQUAL-OK: "#" (AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'STANDARD-READER-METHOD))) EQUAL-OK: "#" (AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'STANDARD-WRITER-METHOD))) EQUAL-OK: "#" (AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'FUNCALLABLE-STANDARD-OBJECT))) EQUAL-OK: "#>" (AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'GENERIC-FUNCTION))) EQUAL-OK: "#>" (AS-STRING (ALLOCATE-INSTANCE (FIND-CLASS 'STANDARD-GENERIC-FUNCTION))) EQUAL-OK: "#>" (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=# EQL-OK: ERROR (LOCALLY (DECLARE (COMPILE)) (TYPEP 1 *FORWARDCLASS*)) [SIMPLE-ERROR]: TYPEP: invalid type specification #1=# EQL-OK: ERROR (TYPE-EXPAND *FORWARDCLASS*) [SIMPLE-ERROR]: TYPE-EXPAND: invalid type specification #1=# EQL-OK: ERROR (SUBTYPEP *FORWARDCLASS* 'T) [SIMPLE-ERROR]: SUBTYPEP: invalid type specification #1=# EQL-OK: ERROR (SUBTYPEP 'NIL *FORWARDCLASS*) [SIMPLE-ERROR]: SUBTYPEP: invalid type specification #1=# EQL-OK: ERROR (SYSTEM::SUBTYPE-INTEGER *FORWARDCLASS*) [SIMPLE-ERROR]: SUBTYPEP: invalid type specification #1=# 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=# cannot be printed readably. EQL-OK: ERROR (SETF (FIND-CLASS 'FOO133A) *FORWARDCLASS*) [SIMPLE-TYPE-ERROR]: (SETF FIND-CLASS): #1=# 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=# EQL-OK: ERROR (CLASS-NAME *FORWARDCLASS*) EQL-OK: FORWARDCLASS03 (CLASS-DIRECT-SUPERCLASSES *FORWARDCLASS*) WARNING: CLASS-DIRECT-SUPERCLASSES being called on #1=#, but class FORWARDCLASS03 is not yet defined. EQL-OK: NIL (CLASS-DIRECT-SLOTS *FORWARDCLASS*) WARNING: CLASS-DIRECT-SLOTS being called on #1=#, but class FORWARDCLASS03 is not yet defined. EQL-OK: NIL (CLASS-DIRECT-DEFAULT-INITARGS *FORWARDCLASS*) WARNING: CLASS-DIRECT-DEFAULT-INITARGS being called on #1=#, but class FORWARDCLASS03 is not yet defined. EQL-OK: NIL (CLASS-PRECEDENCE-LIST *FORWARDCLASS*) [METHOD-CALL-TYPE-ERROR]: NO-APPLICABLE-METHOD: When calling #1=# with arguments #2=(#3=#), no method is applicable. EQL-OK: ERROR (CLASS-SLOTS *FORWARDCLASS*) [METHOD-CALL-TYPE-ERROR]: NO-APPLICABLE-METHOD: When calling #1=# with arguments #2=(#3=#), no method is applicable. EQL-OK: ERROR (CLASS-DEFAULT-INITARGS *FORWARDCLASS*) [METHOD-CALL-TYPE-ERROR]: NO-APPLICABLE-METHOD: When calling #1=# with arguments #2=(#3=#), 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=# with arguments #2=(#3=#), no method is applicable. EQL-OK: ERROR (FINALIZE-INHERITANCE *FORWARDCLASS*) [METHOD-CALL-TYPE-ERROR]: NO-APPLICABLE-METHOD: When calling #1=# with arguments #2=(#3=#), 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=# 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=# 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=# EQL-OK: ERROR (LOCALLY (DECLARE (COMPILE)) (TYPEP 1 *FORWARDCLASS*)) [SIMPLE-ERROR]: TYPEP: invalid type specification #1=# EQL-OK: ERROR (TYPE-EXPAND *FORWARDCLASS*) [SIMPLE-ERROR]: TYPE-EXPAND: invalid type specification #1=# EQL-OK: ERROR (SUBTYPEP *FORWARDCLASS* 'T) [SIMPLE-ERROR]: SUBTYPEP: invalid type specification #1=# EQL-OK: ERROR (SUBTYPEP 'NIL *FORWARDCLASS*) [SIMPLE-ERROR]: SUBTYPEP: invalid type specification #1=# EQL-OK: ERROR (SYSTEM::SUBTYPE-INTEGER *FORWARDCLASS*) [SIMPLE-ERROR]: SUBTYPEP: invalid type specification #1=# 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=# cannot be printed readably. EQL-OK: ERROR (SETF (FIND-CLASS 'FOO134A) *FORWARDCLASS*) [SIMPLE-TYPE-ERROR]: (SETF FIND-CLASS): #1=# 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=# with arguments #2=(FORWARDCLASS04CHANGED #3=#), 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=#, but class FORWARDCLASS04 is not yet defined. EQL-OK: NIL (CLASS-DIRECT-SLOTS *FORWARDCLASS*) WARNING: CLASS-DIRECT-SLOTS being called on #1=#, but class FORWARDCLASS04 is not yet defined. EQL-OK: NIL (CLASS-DIRECT-DEFAULT-INITARGS *FORWARDCLASS*) WARNING: CLASS-DIRECT-DEFAULT-INITARGS being called on #1=#, but class FORWARDCLASS04 is not yet defined. EQL-OK: NIL (CLASS-PRECEDENCE-LIST *FORWARDCLASS*) [METHOD-CALL-TYPE-ERROR]: NO-APPLICABLE-METHOD: When calling #1=# with arguments #2=(#3=#), no method is applicable. EQL-OK: ERROR (CLASS-SLOTS *FORWARDCLASS*) [METHOD-CALL-TYPE-ERROR]: NO-APPLICABLE-METHOD: When calling #1=# with arguments #2=(#3=#), no method is applicable. EQL-OK: ERROR (CLASS-DEFAULT-INITARGS *FORWARDCLASS*) [METHOD-CALL-TYPE-ERROR]: NO-APPLICABLE-METHOD: When calling #1=# with arguments #2=(#3=#), 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=# with arguments #2=(#3=#), no method is applicable. EQL-OK: ERROR (FINALIZE-INHERITANCE *FORWARDCLASS*) [METHOD-CALL-TYPE-ERROR]: NO-APPLICABLE-METHOD: When calling #1=# with arguments #2=(#3=#), 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=# 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=# 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 # #2=#)> to an already called generic function # 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 # #2=#)> to an already called generic function # 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 # #2=#)> to an already called generic function # 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 #)> to an already called generic function # EQUAL-OK: (2 NIL) (LET (( (FIND-CLASS 'T)) (OPERATION-COUNTER 0)) (DEFMETHOD ADD-DIRECT-METHOD ((SPECIALIZER (EQL )) (METHOD METHOD)) (INCF OPERATION-COUNTER)) (DEFMETHOD REMOVE-DIRECT-METHOD ((SPECIALIZER (EQL )) (METHOD METHOD)) (INCF OPERATION-COUNTER)) (DEFMETHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS ((CLASS (EQL ))) 'NIL) (DEFMETHOD SPECIALIZER-DIRECT-METHODS ((CLASS (EQL ))) '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=# # #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 #)> to an already called generic function # WARNING: Removing method #1=#)> from an already called generic function # 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 #))> to an already called generic function # 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 #))> to an already called generic function # [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=#))> from an already called generic function # EQL-OK: ERROR (LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS03 NIL NIL))) (DEFMETHOD CLASS-DIRECT-DEFAULT-INITARGS ((C (EQL *SAMPCLASS*))) (CALL-NEXT-METHOD)) (CLASS-DIRECT-DEFAULT-INITARGS *SAMPCLASS*) T) WARNING: Adding method #))> to an already called generic function # 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 #))> to an already called generic function # [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=#))> from an already called generic function # EQL-OK: ERROR (LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS05 NIL NIL))) (DEFMETHOD CLASS-DIRECT-SLOTS ((C (EQL *SAMPCLASS*))) (CALL-NEXT-METHOD)) (CLASS-DIRECT-SLOTS *SAMPCLASS*) T) WARNING: Adding method #))> to an already called generic function # 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 #))> to an already called generic function # [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=#))> from an already called generic function # EQL-OK: ERROR (LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS07 NIL 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=#) 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 #))> to an already called generic function # 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 #))> to an already called generic function # [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=#))> from an already called generic function # EQL-OK: ERROR (LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS11 NIL NIL))) (DEFMETHOD CLASS-PRECEDENCE-LIST ((C (EQL *SAMPCLASS*))) (CALL-NEXT-METHOD)) (UNLESS (CLASS-FINALIZED-P *SAMPCLASS*) (FINALIZE-INHERITANCE *SAMPCLASS*)) (CLASS-PRECEDENCE-LIST *SAMPCLASS*) T) WARNING: Adding method #))> to an already called generic function # 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 #))> to an already called generic function # [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=# #3=# #4=#) Values returned by the extending method: #1#, T WARNING: Removing method #1=#))> from an already called generic function # EQL-OK: ERROR (LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS13 NIL NIL))) (DEFMETHOD CLASS-PROTOTYPE ((C (EQL *SAMPCLASS*))) (CALL-NEXT-METHOD)) (UNLESS (CLASS-FINALIZED-P *SAMPCLASS*) (FINALIZE-INHERITANCE *SAMPCLASS*)) (CLASS-PROTOTYPE *SAMPCLASS*) T) WARNING: Adding method #))> to an already called generic function # 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 #))> to an already called generic function # [SIMPLE-ERROR]: CLASS-PROTOTYPE: Extending a standardized method is only allowed if it returns the same values as the next method. Original values: #1=# Values returned by the extending method: #1#, T WARNING: Removing method #1=#))> from an already called generic function # EQL-OK: ERROR (LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS15 NIL NIL))) (DEFMETHOD CLASS-SLOTS ((C (EQL *SAMPCLASS*))) (CALL-NEXT-METHOD)) (UNLESS (CLASS-FINALIZED-P *SAMPCLASS*) (FINALIZE-INHERITANCE *SAMPCLASS*)) (CLASS-SLOTS *SAMPCLASS*) T) WARNING: Adding method #))> to an already called generic function # 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 #))> to an already called generic function # [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=#))> from an already called generic function # EQL-OK: ERROR (LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS17 NIL NIL))) (DEFMETHOD (SETF CLASS-NAME) (NEW-VALUE (C (EQL *SAMPCLASS*))) (CALL-NEXT-METHOD)) (SETF (CLASS-NAME *SAMPCLASS*) 'SAMPCLASS17RENAMED) T) EQL-OK: T (LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS18 NIL NIL))) (LET ((BADMETHOD (DEFMETHOD (SETF CLASS-NAME) (NEW-VALUE (C (EQL *SAMPCLASS*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (SETF (CLASS-NAME *SAMPCLASS*) 'SAMPCLASS18RENAMED)) (REMOVE-METHOD #'(SETF CLASS-NAME) BADMETHOD)))) [SIMPLE-ERROR]: #1=(SETF CLASS-NAME): Extending a standardized method is only allowed if it returns the same values as the next method. Original values: SAMPCLASS18RENAMED Values returned by the extending method: SAMPCLASS18RENAMED, T EQL-OK: ERROR (LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS19 NIL NIL))) (DEFMETHOD FINALIZE-INHERITANCE ((C (EQL *SAMPCLASS*))) (CALL-NEXT-METHOD)) (FINALIZE-INHERITANCE *SAMPCLASS*) T) WARNING: Adding method #))> to an already called generic function # 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 #))> to an already called generic function # [SIMPLE-ERROR]: FINALIZE-INHERITANCE: 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=#))> from an already called generic function # EQL-OK: ERROR (LET ((*SAMPGF* (DEFGENERIC SAMPGF01 (X Y)))) (DEFMETHOD FIND-METHOD-COMBINATION ((GF (EQL *SAMPGF*)) NAME OPTIONS) (CALL-NEXT-METHOD)) (FIND-METHOD-COMBINATION *SAMPGF* 'STANDARD NIL) T) WARNING: Adding method #) #1=# #1#)> to an already called generic function # 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 #) #1=# #1#)> to an already called generic function # [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=# Values returned by the extending method: #1#, T WARNING: Removing method #1=#) #2=# #2#)> from an already called generic function # 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 #))> to an already called generic function # [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=#))> from an already called generic function # EQL-OK: ERROR (LET ((*SAMPGF* (DEFGENERIC SAMPGF05 (X Y)))) (DEFMETHOD GENERIC-FUNCTION-DECLARATIONS ((GF (EQL *SAMPGF*))) (CALL-NEXT-METHOD)) (GENERIC-FUNCTION-DECLARATIONS *SAMPGF*) T) WARNING: Adding method #))> to an already called generic function # 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 #))> to an already called generic function # [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=#))> from an already called generic function # EQL-OK: ERROR (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 #))> to an already called generic function # [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=#))> from an already called generic function # EQL-OK: ERROR (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 #))> to an already called generic function # 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 #))> to an already called generic function # [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=# Values returned by the extending method: #1#, T WARNING: Removing method #1=#))> from an already called generic function # EQL-OK: ERROR (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 #))> to an already called generic function # 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 #))> to an already called generic function # [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=# Values returned by the extending method: #1#, T WARNING: Removing method #1=#))> from an already called generic function # EQL-OK: ERROR (LET ((*SAMPGF* (DEFGENERIC SAMPGF13 (X Y)))) (DEFMETHOD GENERIC-FUNCTION-METHODS ((GF (EQL *SAMPGF*))) (CALL-NEXT-METHOD)) (GENERIC-FUNCTION-METHODS *SAMPGF*) T) WARNING: Adding method #))> to an already called generic function # 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 #))> to an already called generic function # [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=#))> from an already called generic function # EQL-OK: ERROR (LET ((*SAMPGF* (DEFGENERIC SAMPGF15 (X Y)))) (DEFMETHOD GENERIC-FUNCTION-NAME ((GF (EQL *SAMPGF*))) (CALL-NEXT-METHOD)) (GENERIC-FUNCTION-NAME *SAMPGF*) T) WARNING: Adding method #))> to an already called generic function # 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 #))> to an already called generic function # [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=#))> from an already called generic function # EQL-OK: ERROR (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 # (EQL #))> to an already called generic function # [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=# (EQL #))> from an already called generic function # EQL-OK: ERROR (LET ((*SAMPMETHOD* (DEFMETHOD SAMPGF19 NIL 'BAR))) (DEFMETHOD METHOD-FUNCTION ((METHOD (EQL *SAMPMETHOD*))) (CALL-NEXT-METHOD)) (METHOD-FUNCTION *SAMPMETHOD*) T) WARNING: Adding method #))> to an already called generic 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 #))> to an already called generic 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=# Values returned by the extending method: #1#, T WARNING: Removing method #1=#))> from an already called generic function # EQL-OK: ERROR (LET ((*SAMPMETHOD* (DEFMETHOD SAMPGF21 NIL 'BAR))) (DEFMETHOD METHOD-GENERIC-FUNCTION ((METHOD (EQL *SAMPMETHOD*))) (CALL-NEXT-METHOD)) (METHOD-GENERIC-FUNCTION *SAMPMETHOD*) T) EQL-OK: T (LET ((*SAMPMETHOD* (DEFMETHOD SAMPGF22 NIL 'BAR))) (LET ((BADMETHOD (DEFMETHOD METHOD-GENERIC-FUNCTION ((METHOD (EQL *SAMPMETHOD*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (METHOD-GENERIC-FUNCTION *SAMPMETHOD*)) (REMOVE-METHOD #'METHOD-GENERIC-FUNCTION BADMETHOD)))) [SIMPLE-ERROR]: METHOD-GENERIC-FUNCTION: Extending a standardized method is only allowed if it returns the same values as the next method. Original values: #1=# 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 #))> to an already called generic function # 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 #))> to an already called generic function # [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=#))> from an already called generic function # EQL-OK: ERROR (LET ((*SAMPMETHOD* (DEFMETHOD SAMPGF25 NIL 'BAR))) (DEFMETHOD METHOD-SPECIALIZERS ((METHOD (EQL *SAMPMETHOD*))) (CALL-NEXT-METHOD)) (METHOD-SPECIALIZERS *SAMPMETHOD*) T) WARNING: Adding method #))> to an already called generic function # 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 #))> to an already called generic function # [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=#))> from an already called generic function # EQL-OK: ERROR (LET ((*SAMPMETHOD* (PROGN (DEFCLASS SAMPCLASS21 NIL ((X :READER SAMPCLASS21X))) (FIRST (GENERIC-FUNCTION-METHODS #'SAMPCLASS21X))))) (DEFMETHOD ACCESSOR-METHOD-SLOT-DEFINITION ((METHOD (EQL *SAMPMETHOD*))) (CALL-NEXT-METHOD)) (ACCESSOR-METHOD-SLOT-DEFINITION *SAMPMETHOD*) T) EQL-OK: T (LET ((*SAMPMETHOD* (PROGN (DEFCLASS SAMPCLASS22 NIL ((X :READER SAMPCLASS22X))) (FIRST (GENERIC-FUNCTION-METHODS #'SAMPCLASS22X))))) (LET ((BADMETHOD (DEFMETHOD ACCESSOR-METHOD-SLOT-DEFINITION ((SLOTDEF (EQL *SAMPMETHOD*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (ACCESSOR-METHOD-SLOT-DEFINITION *SAMPMETHOD*)) (REMOVE-METHOD #'ACCESSOR-METHOD-SLOT-DEFINITION BADMETHOD)))) WARNING: Adding method #)>))> to an already called generic function # [SIMPLE-ERROR]: ACCESSOR-METHOD-SLOT-DEFINITION: Extending a standardized method is only allowed if it returns the same values as the next method. Original values: #1=# Values returned by the extending method: #1#, T WARNING: Removing method #1=#)>))> from an already called generic function # EQL-OK: ERROR (LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS23 NIL ((X))))))) (DEFMETHOD SLOT-DEFINITION-ALLOCATION ((SLOTDEF (EQL *SAMPSLOT*))) (CALL-NEXT-METHOD)) (SLOT-DEFINITION-ALLOCATION *SAMPSLOT*) T) WARNING: Adding method #))> to an already called generic function # EQL-OK: T (LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS24 NIL ((X))))))) (LET ((BADMETHOD (DEFMETHOD SLOT-DEFINITION-ALLOCATION ((SLOTDEF (EQL *SAMPSLOT*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (SLOT-DEFINITION-ALLOCATION *SAMPSLOT*)) (REMOVE-METHOD #'SLOT-DEFINITION-ALLOCATION BADMETHOD)))) WARNING: Adding method #))> to an already called generic function # [SIMPLE-ERROR]: SLOT-DEFINITION-ALLOCATION: Extending a standardized method is only allowed if it returns the same values as the next method. Original values: :INSTANCE Values returned by the extending method: :INSTANCE, T WARNING: Removing method #1=#))> from an already called generic function # EQL-OK: ERROR (LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS25 NIL ((X))))))) (DEFMETHOD SLOT-DEFINITION-INITARGS ((SLOTDEF (EQL *SAMPSLOT*))) (CALL-NEXT-METHOD)) (SLOT-DEFINITION-INITARGS *SAMPSLOT*) T) WARNING: Adding method #))> to an already called generic function # EQL-OK: T (LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS26 NIL ((X))))))) (LET ((BADMETHOD (DEFMETHOD SLOT-DEFINITION-INITARGS ((SLOTDEF (EQL *SAMPSLOT*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (SLOT-DEFINITION-INITARGS *SAMPSLOT*)) (REMOVE-METHOD #'SLOT-DEFINITION-INITARGS BADMETHOD)))) WARNING: Adding method #))> to an already called generic function # [SIMPLE-ERROR]: SLOT-DEFINITION-INITARGS: Extending a standardized method is only allowed if it returns the same values as the next method. Original values: NIL Values returned by the extending method: NIL, T WARNING: Removing method #1=#))> from an already called generic function # EQL-OK: ERROR (LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS27 NIL ((X))))))) (DEFMETHOD SLOT-DEFINITION-INITFORM ((SLOTDEF (EQL *SAMPSLOT*))) (CALL-NEXT-METHOD)) (SLOT-DEFINITION-INITFORM *SAMPSLOT*) T) WARNING: Adding method #))> to an already called generic function # EQL-OK: T (LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS28 NIL ((X))))))) (LET ((BADMETHOD (DEFMETHOD SLOT-DEFINITION-INITFORM ((SLOTDEF (EQL *SAMPSLOT*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (SLOT-DEFINITION-INITFORM *SAMPSLOT*)) (REMOVE-METHOD #'SLOT-DEFINITION-INITFORM BADMETHOD)))) WARNING: Adding method #))> to an already called generic function # [SIMPLE-ERROR]: SLOT-DEFINITION-INITFORM: Extending a standardized method is only allowed if it returns the same values as the next method. Original values: NIL Values returned by the extending method: NIL, T WARNING: Removing method #1=#))> from an already called generic function # EQL-OK: ERROR (LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS29 NIL ((X))))))) (DEFMETHOD SLOT-DEFINITION-INITFUNCTION ((SLOTDEF (EQL *SAMPSLOT*))) (CALL-NEXT-METHOD)) (SLOT-DEFINITION-INITFUNCTION *SAMPSLOT*) T) WARNING: Adding method #))> to an already called generic function # EQL-OK: T (LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS30 NIL ((X))))))) (LET ((BADMETHOD (DEFMETHOD SLOT-DEFINITION-INITFUNCTION ((SLOTDEF (EQL *SAMPSLOT*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (SLOT-DEFINITION-INITFUNCTION *SAMPSLOT*)) (REMOVE-METHOD #'SLOT-DEFINITION-INITFUNCTION BADMETHOD)))) WARNING: Adding method #))> to an already called generic function # [SIMPLE-ERROR]: SLOT-DEFINITION-INITFUNCTION: Extending a standardized method is only allowed if it returns the same values as the next method. Original values: NIL Values returned by the extending method: NIL, T WARNING: Removing method #1=#))> from an already called generic function # EQL-OK: ERROR (LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS31 NIL ((X))))))) (DEFMETHOD SLOT-DEFINITION-NAME ((SLOTDEF (EQL *SAMPSLOT*))) (CALL-NEXT-METHOD)) (SLOT-DEFINITION-NAME *SAMPSLOT*) T) WARNING: Adding method #))> to an already called generic function # EQL-OK: T (LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS32 NIL ((X))))))) (LET ((BADMETHOD (DEFMETHOD SLOT-DEFINITION-NAME ((SLOTDEF (EQL *SAMPSLOT*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (SLOT-DEFINITION-NAME *SAMPSLOT*)) (REMOVE-METHOD #'SLOT-DEFINITION-NAME BADMETHOD)))) WARNING: Adding method #))> to an already called generic function # [SIMPLE-ERROR]: SLOT-DEFINITION-NAME: Extending a standardized method is only allowed if it returns the same values as the next method. 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=#))> to an already called generic function # EQL-OK: T (LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS34 NIL ((X))))))) (LET ((BADMETHOD (DEFMETHOD SLOT-DEFINITION-TYPE ((SLOTDEF (EQL *SAMPSLOT*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (SLOT-DEFINITION-TYPE *SAMPSLOT*)) (REMOVE-METHOD #'SLOT-DEFINITION-TYPE BADMETHOD)))) WARNING: Adding method #))> to an already called generic function # [SIMPLE-ERROR]: SLOT-DEFINITION-TYPE: Extending a standardized method is only allowed if it returns the same values as the next method. Original values: T Values returned by the extending method: T, T WARNING: Removing method #1=#))> from an already called generic function # EQL-OK: ERROR (LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS35 NIL ((X))))))) (DEFMETHOD SLOT-DEFINITION-READERS ((SLOTDEF (EQL *SAMPSLOT*))) (CALL-NEXT-METHOD)) (SLOT-DEFINITION-READERS *SAMPSLOT*) T) WARNING: Adding method #))> to an already called generic function # EQL-OK: T (LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS36 NIL ((X))))))) (LET ((BADMETHOD (DEFMETHOD SLOT-DEFINITION-READERS ((SLOTDEF (EQL *SAMPSLOT*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (SLOT-DEFINITION-READERS *SAMPSLOT*)) (REMOVE-METHOD #'SLOT-DEFINITION-READERS BADMETHOD)))) WARNING: Adding method #))> to an already called generic function # [SIMPLE-ERROR]: SLOT-DEFINITION-READERS: Extending a standardized method is only allowed if it returns the same values as the next method. Original values: NIL Values returned by the extending method: NIL, T WARNING: Removing method #1=#))> from an already called generic function # EQL-OK: ERROR (LET ((STRUCT (DEFSTRUCT STRUCT04 SLOT1))) (NCONC (MAPCAR #'SLOT-DEFINITION-READERS (CLASS-DIRECT-SLOTS (FIND-CLASS STRUCT))) (MAPCAR #'SLOT-DEFINITION-WRITERS (CLASS-DIRECT-SLOTS (FIND-CLASS STRUCT))))) EQUAL-OK: ((STRUCT04-SLOT1) ((SETF STRUCT04-SLOT1))) (LET ((STRUCT (DEFSTRUCT STRUCT04RO (SLOT1 T :READ-ONLY T)))) (NCONC (MAPCAR #'SLOT-DEFINITION-READERS (CLASS-DIRECT-SLOTS (FIND-CLASS STRUCT))) (MAPCAR #'SLOT-DEFINITION-WRITERS (CLASS-DIRECT-SLOTS (FIND-CLASS STRUCT))))) EQUAL-OK: ((STRUCT04RO-SLOT1) NIL) (LET ((STRUCT (DEFSTRUCT (STRUCT04V (:TYPE VECTOR)) SLOT1))) (NCONC (MAPCAR #'SLOT-DEFINITION-READERS (STRUCTURE-DIRECT-SLOTS STRUCT)) (MAPCAR #'SLOT-DEFINITION-WRITERS (STRUCTURE-DIRECT-SLOTS STRUCT)))) EQUAL-OK: ((STRUCT04V-SLOT1) ((SETF STRUCT04V-SLOT1))) (LET ((STRUCT (DEFSTRUCT (STRUCT04ROV (:TYPE VECTOR)) (SLOT1 T :READ-ONLY T)))) (NCONC (MAPCAR #'SLOT-DEFINITION-READERS (STRUCTURE-DIRECT-SLOTS STRUCT)) (MAPCAR #'SLOT-DEFINITION-WRITERS (STRUCTURE-DIRECT-SLOTS STRUCT)))) EQUAL-OK: ((STRUCT04ROV-SLOT1) NIL) (LET* ((F "mop-tst-defstruct-test.lisp") (*SUPPRESS-CHECK-REDEFINITION* NIL) (*BREAK-ON-SIGNALS* T)) (WITH-OPEN-FILE (S F :DIRECTION :OUTPUT :IF-EXISTS :SUPERSEDE) (WRITE '(DEFSTRUCT STRUCT05 SLOT) :STREAM S) (TERPRI S) (WRITE '(DEFSTRUCT (STRUCT05V (:TYPE VECTOR)) SLOTV) :STREAM S) (TERPRI S)) (UNWIND-PROTECT (PROGN (COMPILE-FILE F) NIL) (POST-COMPILE-FILE-CLEANUP F))) ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/mop-tst-defstruct-test.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/mop-tst-defstruct-test.fas 0 errors, 0 warnings EQL-OK: NIL (LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS37 NIL ((X))))))) (DEFMETHOD SLOT-DEFINITION-WRITERS ((SLOTDEF (EQL *SAMPSLOT*))) (CALL-NEXT-METHOD)) (SLOT-DEFINITION-WRITERS *SAMPSLOT*) T) WARNING: Adding method #))> to an already called generic function # EQL-OK: T (LET ((*SAMPSLOT* (FIRST (CLASS-DIRECT-SLOTS (DEFCLASS SAMPCLASS38 NIL ((X))))))) (LET ((BADMETHOD (DEFMETHOD SLOT-DEFINITION-WRITERS ((SLOTDEF (EQL *SAMPSLOT*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (SLOT-DEFINITION-WRITERS *SAMPSLOT*)) (REMOVE-METHOD #'SLOT-DEFINITION-WRITERS BADMETHOD)))) WARNING: Adding method #))> to an already called generic function # [SIMPLE-ERROR]: SLOT-DEFINITION-WRITERS: Extending a standardized method is only allowed if it returns the same values as the next method. Original values: NIL Values returned by the extending method: NIL, T WARNING: Removing method #1=#))> from an already called generic function # EQL-OK: ERROR (LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS39 NIL ((X))))) (UNLESS (CLASS-FINALIZED-P *SAMPCLASS*) (FINALIZE-INHERITANCE *SAMPCLASS*)) (LET ((*SAMPSLOT* (FIRST (CLASS-SLOTS *SAMPCLASS*)))) (DEFMETHOD SLOT-DEFINITION-LOCATION ((SLOTDEF (EQL *SAMPSLOT*))) (CALL-NEXT-METHOD)) (SLOT-DEFINITION-LOCATION *SAMPSLOT*) T)) WARNING: Adding method #))> to an already called generic function # EQL-OK: T (LET ((*SAMPCLASS* (DEFCLASS SAMPCLASS39 NIL ((X))))) (UNLESS (CLASS-FINALIZED-P *SAMPCLASS*) (FINALIZE-INHERITANCE *SAMPCLASS*)) (LET ((*SAMPSLOT* (FIRST (CLASS-SLOTS *SAMPCLASS*)))) (LET ((BADMETHOD (DEFMETHOD SLOT-DEFINITION-LOCATION ((SLOTDEF (EQL *SAMPSLOT*))) (VALUES (CALL-NEXT-METHOD) T)))) (UNWIND-PROTECT (NTH-VALUE 1 (SLOT-DEFINITION-LOCATION *SAMPSLOT*)) (REMOVE-METHOD #'SLOT-DEFINITION-LOCATION BADMETHOD))))) WARNING: Adding method #))> to an already called generic function # [SIMPLE-ERROR]: SLOT-DEFINITION-LOCATION: Extending a standardized method is only allowed if it returns the same values as the next method. Original values: 1 Values returned by the extending method: 1, T WARNING: Removing method #1=#))> from an already called generic function # EQL-OK: ERROR (LET ((ADD-METHOD-CALLED NIL)) (DEFCLASS TESTGENERICFUNCTION142 (STANDARD-GENERIC-FUNCTION) NIL (:METACLASS FUNCALLABLE-STANDARD-CLASS)) (DEFMETHOD ADD-METHOD :BEFORE ((GF TESTGENERICFUNCTION142) (METHOD STANDARD-METHOD)) (SETQ ADD-METHOD-CALLED T)) (DEFGENERIC TESTGF142 (X) (:GENERIC-FUNCTION-CLASS TESTGENERICFUNCTION142)) (DEFMETHOD TESTGF142 (X) (DECLARE (IGNORE X))) (LIST ADD-METHOD-CALLED (SYMBOLS-CLEANUP '(TESTGENERICFUNCTION142 TESTGF142)))) EQUAL-OK: (T NIL) (LET ((REMOVE-METHOD-CALLED NIL)) (DEFCLASS TESTGENERICFUNCTION143 (STANDARD-GENERIC-FUNCTION) NIL (:METACLASS FUNCALLABLE-STANDARD-CLASS)) (DEFMETHOD REMOVE-METHOD :BEFORE ((GF TESTGENERICFUNCTION143) (METHOD STANDARD-METHOD)) (SETQ REMOVE-METHOD-CALLED T)) (DEFGENERIC TESTGF143 (X) (:GENERIC-FUNCTION-CLASS TESTGENERICFUNCTION143)) (DEFMETHOD TESTGF143 (X) (DECLARE (IGNORE X)) 17) (DEFMETHOD TESTGF143 (X) (DECLARE (IGNORE X)) 19) (LIST REMOVE-METHOD-CALLED (SYMBOLS-CLEANUP '(TESTGENERICFUNCTION143 TESTGF143)))) WARNING: Replacing method #)> in # 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 #)> to an already called generic function # WARNING: Adding method #)> to an already called generic function # WARNING: Adding method #)> to an already called generic function # WARNING: Redefining an already called generic function # 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/tests/mop-aux.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/tests/mop-aux.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/tests/hash-classes.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 (( (FIND-CLASS 'T))) (UNLESS (EVERY #'(LAMBDA (SPECIALIZER) (EQ SPECIALIZER )) (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 # #2=#)> to an already called generic function # WARNING: Adding method # #2=#)> to an already called generic function # 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=# in # (check the :ALLOCATION slot option) EQL-OK: ERROR (LET (CONSTRUCTOR) (DEFCLASS CONSTRUCTOR NIL ((NAME :INITARG :NAME :ACCESSOR CONSTRUCTOR-NAME) (FIELDS :INITARG :FIELDS :ACCESSOR CONSTRUCTOR-FIELDS)) (:METACLASS FUNCALLABLE-STANDARD-CLASS)) (DEFMETHOD INITIALIZE-INSTANCE :AFTER ((C CONSTRUCTOR) &KEY) (WITH-SLOTS (NAME FIELDS) C (SET-FUNCALLABLE-INSTANCE-FUNCTION C #'(LAMBDA NIL (LET ((NEW (MAKE-ARRAY (1+ (LENGTH FIELDS))))) (SETF (AREF NEW 0) NAME) NEW))))) (SETQ CONSTRUCTOR (MAKE-INSTANCE 'CONSTRUCTOR :NAME 'POSITION :FIELDS '(X Y))) (LIST (STRINGP (WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (DESCRIBE CONSTRUCTOR))) (FUNCALL CONSTRUCTOR) (SYMBOLS-CLEANUP '(CONSTRUCTOR CONSTRUCTOR-NAME CONSTRUCTOR-FIELDS)))) 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=#)> in # WARNING: Replacing method #1=#)> in # WARNING: Adding method #)> to an already called generic function # WARNING: Adding method #)> to an already called generic function # WARNING: Replacing method #1=#)> in # 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=#)> in # WARNING: Replacing method #1=#)> in # WARNING: Replacing method #1=#)> in # 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/mop-tst-defstruct-test.lisp EQL-OK: NIL RUN-TEST: finished "mop" (0 errors out of 225 tests) RUN-TEST: started # (+ 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 # (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 body EQL-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 body EQL-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 body EQL-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 # (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 #: #1=# 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 #: #1=# 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 #. Proceed with the new value. 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") (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=# 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 #: #1=# 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 #: #1=# 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 #: #1=# 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 #: 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)) # # # # # # # # # # # # # # # # # # # # EQL-OK: NIL (EXT:APPEASE-CERRORS (LET (SYSTEM::*COUTPUT-STREAM*) (SETQ SYSTEM::*COUTPUT-STREAM* 123))) WARNING: SETQ(SYSTEM::*COUTPUT-STREAM*): # is locked Ignore the lock and proceed EQL-OK: 123 (EXT:PACKAGE-CASE-SENSITIVE-P (MAKE-PACKAGE "PACK11-PACKAGE-CASE" :CASE-SENSITIVE T :CASE-INVERTED T)) EQL-OK: T (EXT:PACKAGE-CASE-INVERTED-P (DEFPACKAGE "PACK11-PACKAGE-CASE" (:CASE-SENSITIVE NIL) (:CASE-INVERTED NIL))) WARNING: One should not change the case sensitiveness of #. WARNING: One should not change the case inversion of #. 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/pack11-tst.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/pack11-tst.fas 0 errors, 0 warnings EQUAL-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 # (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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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=# 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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=# 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-abazonk.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-abazonk-logical.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-compile-file-ansi-pathname.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-compile-file-ansi-pathname.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-compile-file-ansi-pathname.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-compile-file-pathname.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-compile-file-pathname.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-compile-file-pathname.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-compile-file-pathname.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-compile-file-pathname.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-compile-file-pathname.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-compile-file-pathname.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-compile-file-pathname.lisp ... ;; Wrote file # 0 errors, 0 warnings EQUAL-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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/loghosts ... ;; Defined logical host FOO ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-load-path-dir/loghosts ... ;; Defined logical host FOO ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d2/s1/" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d2/s2/" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d2/" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d1/s1/" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d1/s2/" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d1/" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/") ((#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d2/s1/" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d2/s1/" (14 22 2 16 8 2020) 4096) (#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d2/s2/" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d2/s2/" (14 22 2 16 8 2020) 4096) (#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d2/" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d2/" (14 22 2 16 8 2020) 4096) (#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d1/s1/" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d1/s1/" (14 22 2 16 8 2020) 4096) (#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d1/s2/" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d1/s2/" (14 22 2 16 8 2020) 4096) (#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d1/" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d1/" (14 22 2 16 8 2020) 4096) (#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/" (14 22 2 16 8 2020) 4096)) /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d1/f 0 2020-08-16 02:22:14 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d1/s1/f 0 2020-08-16 02:22:14 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d1/s2/f 0 2020-08-16 02:22:14 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d2/f 0 2020-08-16 02:22:14 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d2/s1/f 0 2020-08-16 02:22:14 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d2/s2/f 0 2020-08-16 02:22:14 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/f 0 2020-08-16 02:22:14 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/ 4096 2020-08-16 02:22:14 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d1/ 4096 2020-08-16 02:22:14 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d1/s1/ 4096 2020-08-16 02:22:14 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d1/s2/ 4096 2020-08-16 02:22:14 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d2/ 4096 2020-08-16 02:22:14 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d2/s1/ 4096 2020-08-16 02:22:14 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d2/s2/ 4096 2020-08-16 02:22:14 removing file #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d2/s1/f" removing file #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d2/s2/f" removing file #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d2/f" removing file #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d1/s1/f" removing file #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d1/s2/f" removing file #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d1/f" removing file #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/f" removing directory #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d2/s1/" removing directory #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d2/s2/" removing directory #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d2/" removing directory #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d1/s1/" removing directory #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d1/s2/" removing directory #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d1/" removing directory #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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"/" 3806536441 4096) EQL-OK: T (EQUALP (SHOW (MULTIPLE-VALUE-LIST (PROBE-PATHNAME "/etc"))) (SHOW (MULTIPLE-VALUE-LIST (PROBE-PATHNAME "/etc/")))) (#P"/etc/" #P"/etc/" 3806537788 4096) (#P"/etc/" #P"/etc/" 3806537788 4096) EQL-OK: T (EQUALP (SHOW (MULTIPLE-VALUE-LIST (PROBE-PATHNAME (DEFAULT-DIRECTORY)))) (SHOW (MULTIPLE-VALUE-LIST (PROBE-PATHNAME "")))) (#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/" 3806547735 4096) (#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/" 3806547735 4096) EQL-OK: T (LET* ((PATH "test-pathname") (S1 (OPEN PATH :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE)) (S2 (OPEN PATH :DIRECTION :INPUT))) (UNWIND-PROTECT (LET ((P-P (SHOW (MULTIPLE-VALUE-LIST (PROBE-PATHNAME PATH)))) (P-C (SHOW (MULTIPLE-VALUE-LIST (PROBE-PATHNAME S1)))) (P-O (SHOW (MULTIPLE-VALUE-LIST (PROBE-PATHNAME S2))))) (LIST (EQUALP P-P P-C) (EQUALP P-P P-O) (EQUALP P-C P-O))) (CLOSE S2) (DELETE-FILE S1))) (#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/test-pathname" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/test-pathname" 3806547735 0) (#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/test-pathname" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/test-pathname" 3806547735 0) (#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/test-pathname" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/test-pathname" 3806547735 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-load-weird-dir/path-tst-good-file.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-load-weird-dir/path-tst-good-file.lisp /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-load-weird-dir/path-tst-good-file.lisp 31 2020-08-16 02:22:15 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-load-weird-dir/weird  0 2020-08-16 02:22:15 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-load-weird-dir/ 4096 2020-08-16 02:22:15 removing file #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-load-weird-dir/path-tst-good-file.lisp" removing file #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-load-weird-dir/weird " removing directory #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/tmp-dir/foo.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/tmp-dir/foo.lisp LOAD: A file with name #1=foo does not exist ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/tmp-dir/foo.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/tmp-dir/foo.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/tmp-dir/foo.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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,111 files under #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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))) 57 directories under #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 # (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 # (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 # (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 (PROGN (COND ((OR (STRING= (MACHINE-TYPE) "MIPS") (STRING= (MACHINE-TYPE) "MIPS64")) (DEFCONSTANT +ECONNREFUSED+ 146) (DEFCONSTANT +ECONNRESET+ 131)) ((OR (STRING= (MACHINE-TYPE) "SPARC64")) (DEFCONSTANT +ECONNREFUSED+ 61) (DEFCONSTANT +ECONNRESET+ 54)) ((STRING= (MACHINE-TYPE) "I686-AT386") (DEFCONSTANT +ECONNREFUSED+ 1073741885) (DEFCONSTANT +ECONNRESET+ 1073741878)) (T (DEFCONSTANT +ECONNREFUSED+ 111) (DEFCONSTANT +ECONNRESET+ 104))) (IF (STRING= (MACHINE-TYPE) "I686-AT386") (PROGN (DEFCONSTANT +EINVAL+ 1073741846) (DEFCONSTANT +EPIPE+ 1073741856)) (PROGN (DEFCONSTANT +EINVAL+ 22) (DEFCONSTANT +EPIPE+ 32))) NIL) EQL-OK: NIL (DEFUN IS-MIPS NIL "Test whether this is a mips machine (either 32- or 64-bit)" (LET ((M (MACHINE-TYPE))) (AND (>= (LENGTH M) 4) (STRING= "MIPS" (SUBSEQ M 0 4))))) EQL-OK: IS-MIPS (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))) # EQL-OK: *SERVER* (MULTIPLE-VALUE-LIST (SOCKET-STATUS *SERVER* 0)) EQUAL-OK: (NIL 0) (DEFPARAMETER *SOCKET-1* (SHOW (SOCKET-CONNECT (SOCKET-SERVER-PORT *SERVER*) "localhost" :TIMEOUT 0))) # EQL-OK: *SOCKET-1* (DEFPARAMETER *STATUS-ARG* (LIST (LIST *SERVER*) (LIST *SOCKET-1* :IO))) EQL-OK: *STATUS-ARG* (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*))) # 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)))) # 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)))) # 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*)) # # # 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 (fedora-riscv-9.gcc141.osuosl.org)" 48450) ("127.0.0.1 (localhost)" 9096) ("127.0.0.1 (fedora-riscv-9.gcc141.osuosl.org)" 9096) ("127.0.0.1 (localhost)" 48450)) 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 (OPEN-STREAM-P (SETQ *SOCKET-1* (SOCKET-CONNECT 12345 "localhost" :TIMEOUT 0))) EQL-OK: T (CHECK-OS-ERROR (READ-LINE *SOCKET-1*) (:ECONNREFUSED 111)) [OS-STREAM-ERROR]: OS-STREAM-ERROR(111): Connection refused EQL-OK: T (CLOSE *SOCKET-1*) 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))))) Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x27e0c000 - 0x27e2cfff 0x80000000 - 0x800bffff 0x156732d000 - 0x1567347fff 0x1567348000 - 0x1567348fff 0x1567349000 - 0x1567349fff 0x156734a000 - 0x156734bfff 0x156734c000 - 0x156734dfff 0x156734e000 - 0x1567354fff 0x1567359000 - 0x156735afff 0x156735b000 - 0x1567399fff 0x156739a000 - 0x156739bfff 0x156739c000 - 0x15673a2fff 0x15673a3000 - 0x15673a3fff 0x15673a4000 - 0x15673c9fff 0x15673ca000 - 0x15673cdfff 0x15673ce000 - 0x15673cefff 0x15673cf000 - 0x15673d0fff 0x15673d1000 - 0x15673d1fff 0x15673d2000 - 0x15673d2fff 0x15673d3000 - 0x15673d3fff 0x15673d4000 - 0x15673d7fff 0x15673d8000 - 0x15673d8fff 0x15673d9000 - 0x15673d9fff 0x15673da000 - 0x15673dbfff 0x15673dc000 - 0x15673dcfff 0x15673dd000 - 0x15673ddfff 0x15673de000 - 0x1567549fff 0x156754a000 - 0x156754cfff 0x156754d000 - 0x156754dfff 0x156754e000 - 0x1567550fff 0x1567551000 - 0x1567563fff 0x1567564000 - 0x1567564fff 0x1567565000 - 0x1567565fff 0x1567566000 - 0x1567684fff 0x1567685000 - 0x1567687fff 0x1567688000 - 0x156768afff 0x156768b000 - 0x156768ffff 0x3fffdde000 - 0x3fffdfefff EQL-OK: T (LET ((INTERFACES '(NIL "localhost" "0.0.0.0" "127.0.0.1"))) (MAPCAR (LAMBDA (I) (LET ((S (SOCKET-SERVER 0 :INTERFACE I))) (UNWIND-PROTECT (SOCKET-SERVER-HOST (SHOW S)) (SOCKET-SERVER-CLOSE S)))) INTERFACES)) # # # # EQUAL-OK: ("0.0.0.0" "127.0.0.1" "0.0.0.0" "127.0.0.1") (MULTIPLE-VALUE-BIND (RUN ARGS) (CMD-ARGS) (LET ((SE (SOCKET-SERVER))) (RUN-PROGRAM RUN :ARGUMENTS (APPEND ARGS (LIST "-q" "-q" "-x" (FORMAT NIL "(close (prog1 (socket:socket-connect ~D) (sleep 1s-2)))" (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) (SOCKET-STATUS SO) (CHECK-OS-ERROR (READ-CHAR SO) (:ECONNRESET 104)) (NULL (MEMBER (SOCKET-STATUS SO) '(:EOF :APPEND))) (CHECK-OS-ERROR (WRITE-LINE "bar" SO) (:EPIPE 32)) (NULL (MEMBER (SOCKET-STATUS SO) '(:EOF :APPEND))) (HANDLER-CASE (READ-CHAR SO) (END-OF-FILE (C) (PRINC 'READ-CHAR) (PRINC-ERROR C) 'END-OF-FILE)))) (SOCKET-SERVER-CLOSE SE)))) Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0xdb9a000 - 0xdbbafff 0x80000000 - 0x800bffff 0x1557006000 - 0x1557020fff 0x1557021000 - 0x1557021fff 0x1557022000 - 0x1557022fff 0x1557023000 - 0x1557024fff 0x1557025000 - 0x1557026fff 0x1557027000 - 0x155702dfff 0x1557032000 - 0x1557033fff 0x1557034000 - 0x1557072fff 0x1557073000 - 0x1557074fff 0x1557075000 - 0x155707bfff 0x155707c000 - 0x155707cfff 0x155707d000 - 0x15570a2fff 0x15570a3000 - 0x15570a6fff 0x15570a7000 - 0x15570a7fff 0x15570a8000 - 0x15570a9fff 0x15570aa000 - 0x15570aafff 0x15570ab000 - 0x15570abfff 0x15570ac000 - 0x15570acfff 0x15570ad000 - 0x15570b0fff 0x15570b1000 - 0x15570b1fff 0x15570b2000 - 0x15570b2fff 0x15570b3000 - 0x15570b4fff 0x15570b5000 - 0x15570b5fff 0x15570b6000 - 0x15570b6fff 0x15570b7000 - 0x1557222fff 0x1557223000 - 0x1557225fff 0x1557226000 - 0x1557226fff 0x1557227000 - 0x1557229fff 0x155722a000 - 0x155723cfff 0x155723d000 - 0x155723dfff 0x155723e000 - 0x155723efff 0x155723f000 - 0x155735dfff 0x155735e000 - 0x1557360fff 0x1557361000 - 0x1557363fff 0x1557364000 - 0x1557368fff 0x3fff922000 - 0x3fff942fff [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=# has reached its end EQUAL-OK: (:OUTPUT "foo" :OUTPUT T NIL T NIL END-OF-FILE) (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 '*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 94 tests) RUN-TEST: started # (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 # (PRIN1-TO-STRING (MAKE-BROADCAST-STREAM)) EQUAL-OK: "#" (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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/config.fas WARNING: DEFUN/DEFMACRO: redefining function IMPNOTES-ROOT in top-level, was defined in /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/config.fas EQL-OK: NIL (DEFUN CLOSE-1 (S) (LET* ((I (INPUT-STREAM-P S)) (O (OUTPUT-STREAM-P S)) (E (STREAM-ELEMENT-TYPE S)) (F (STREAM-EXTERNAL-FORMAT S)) (C (CLOSE S))) (AND (EQ I (INPUT-STREAM-P S)) (EQ O (OUTPUT-STREAM-P S)) (EQUAL E (STREAM-ELEMENT-TYPE S)) (EQUAL F (STREAM-EXTERNAL-FORMAT S)) C))) EQL-OK: CLOSE-1 (PROGN (SETQ S1 (OPEN "d1.plc" :DIRECTION :OUTPUT)) (SETQ S2 (OPEN "d2.plc" :DIRECTION :OUTPUT)) (SETQ S3 (OPEN "d3.plc" :DIRECTION :OUTPUT)) (SETQ B1 (MAKE-BROADCAST-STREAM S1 S2 S3 *STANDARD-OUTPUT*)) T) EQL-OK: T (PRINT "test broadcast satz 1" B1) "test broadcast satz 1" EQUAL-OK: "test broadcast satz 1" (PRINT "test broadcast satz 2" B1) "test broadcast satz 2" EQUAL-OK: "test broadcast satz 2" (PRINT "test broadcast satz 3" B1) "test broadcast satz 3" EQUAL-OK: "test broadcast satz 3" (CLOSE-1 S1) EQL-OK: T (CLOSE-1 S2) EQL-OK: T (CLOSE-1 S3) EQL-OK: T (PROGN (SETQ S (OPEN "d1.plc")) T) EQL-OK: T (READ S) EQUAL-OK: "test broadcast satz 1" (READ S) EQUAL-OK: "test broadcast satz 2" (READ S) EQUAL-OK: "test broadcast satz 3" (CLOSE-1 S) EQL-OK: T (PROGN (SETQ S (OPEN "d2.plc")) T) EQL-OK: T (READ S) EQUAL-OK: "test broadcast satz 1" (READ S) EQUAL-OK: "test broadcast satz 2" (READ S) EQUAL-OK: "test broadcast satz 3" (CLOSE-1 S) EQL-OK: T (PROGN (SETQ S (OPEN "d3.plc")) T) EQL-OK: T (READ S) EQUAL-OK: "test broadcast satz 1" (READ S) EQUAL-OK: "test broadcast satz 2" (READ S) EQUAL-OK: "test broadcast satz 3" (CLOSE-1 S) EQL-OK: T (PROGN (SETQ S (OPEN "t0.plc" :DIRECTION :OUTPUT)) T) EQL-OK: T (PRINT 'READ1 S) EQL-OK: READ1 (PRINT 'READ2 S) EQL-OK: READ2 (CLOSE-1 S) EQL-OK: T (PROGN (SETQ INPTW (OPEN "t0.plc")) (SETQ S1 (OPEN "d1.plc" :DIRECTION :OUTPUT)) (SETQ S2 (OPEN "d2.plc" :DIRECTION :OUTPUT)) (SETQ SY (MAKE-SYNONYM-STREAM 'S2)) (SETQ S3 (OPEN "d3.plc" :DIRECTION :OUTPUT)) (SETQ TW (MAKE-TWO-WAY-STREAM INPTW S3)) (SETQ S4 (OPEN "d4.plc" :DIRECTION :OUTPUT)) (SETQ EC (MAKE-ECHO-STREAM INPTW S4)) (SETQ S5 (OPEN "d5.plc" :DIRECTION :OUTPUT)) (SETQ S6 (OPEN "d6.plc" :DIRECTION :OUTPUT)) (SETQ B1 (MAKE-BROADCAST-STREAM S5 S6)) (SETQ S7 (OPEN "d7.plc" :DIRECTION :OUTPUT)) (SETQ B2 (MAKE-BROADCAST-STREAM S1 SY TW EC B1 S7)) T) EQL-OK: T (PRINT "w to b2 1.satz" B2) EQUAL-OK: "w to b2 1.satz" (PRINT "w to sy" SY) EQUAL-OK: "w to sy" (PRINT "w to b2 2.satz" B2) EQUAL-OK: "w to b2 2.satz" (PRINT "w to tw" TW) EQUAL-OK: "w to tw" (PRINT "w to b2 3.satz" B2) EQUAL-OK: "w to b2 3.satz" (PRINT "w to ec" EC) EQUAL-OK: "w to ec" (PRINT "w to b2 4.satz" B2) EQUAL-OK: "w to b2 4.satz" (PRINT "w to b1" B1) EQUAL-OK: "w to b1" (PRINT "w to b2 5.satz" B2) EQUAL-OK: "w to b2 5.satz" (PRINT "w to s7" S7) EQUAL-OK: "w to s7" (PRINT "w to b2 6.satz" B2) EQUAL-OK: "w to b2 6.satz" (READ TW) EQL-OK: READ1 (READ EC) EQL-OK: READ2 (PRINT "w to b2 7.satz" B2) EQUAL-OK: "w to b2 7.satz" (PRINT "w to b2 8.satz" B2) EQUAL-OK: "w to b2 8.satz" (CLOSE-1 INPTW) EQL-OK: T (CLOSE-1 S1) EQL-OK: T (CLOSE-1 S2) EQL-OK: T (CLOSE-1 S3) EQL-OK: T (CLOSE-1 S4) EQL-OK: T (CLOSE-1 S5) EQL-OK: T (CLOSE-1 S6) EQL-OK: T (CLOSE-1 S7) EQL-OK: T (PROGN (SETQ S (OPEN "d1.plc")) T) EQL-OK: T (READ S) EQUAL-OK: "w to b2 1.satz" (READ S) EQUAL-OK: "w to b2 2.satz" (READ S) EQUAL-OK: "w to b2 3.satz" (READ S) EQUAL-OK: "w to b2 4.satz" (READ S) EQUAL-OK: "w to b2 5.satz" (READ S) EQUAL-OK: "w to b2 6.satz" (READ S) EQUAL-OK: "w to b2 7.satz" (READ S) EQUAL-OK: "w to b2 8.satz" (CLOSE-1 S) EQL-OK: T (PROGN (SETQ S (OPEN "d2.plc")) T) EQL-OK: T (READ S) EQUAL-OK: "w to b2 1.satz" (READ S) EQUAL-OK: "w to sy" (READ S) EQUAL-OK: "w to b2 2.satz" (READ S) EQUAL-OK: "w to b2 3.satz" (READ S) EQUAL-OK: "w to b2 4.satz" (READ S) EQUAL-OK: "w to b2 5.satz" (READ S) EQUAL-OK: "w to b2 6.satz" (READ S) EQUAL-OK: "w to b2 7.satz" (READ S) EQUAL-OK: "w to b2 8.satz" (CLOSE-1 S) EQL-OK: T (PROGN (SETQ S (OPEN "d3.plc")) T) EQL-OK: T (READ S) EQUAL-OK: "w to b2 1.satz" (READ S) EQUAL-OK: "w to b2 2.satz" (READ S) EQUAL-OK: "w to tw" (READ S) EQUAL-OK: "w to b2 3.satz" (READ S) EQUAL-OK: "w to b2 4.satz" (READ S) EQUAL-OK: "w to b2 5.satz" (READ S) EQUAL-OK: "w to b2 6.satz" (READ S) EQUAL-OK: "w to b2 7.satz" (READ S) EQUAL-OK: "w to b2 8.satz" (CLOSE-1 S) EQL-OK: T (PROGN (SETQ S (OPEN "d4.plc")) T) EQL-OK: T (READ S) EQUAL-OK: "w to b2 1.satz" (READ S) EQUAL-OK: "w to b2 2.satz" (READ S) EQUAL-OK: "w to b2 3.satz" (READ S) EQUAL-OK: "w to ec" (READ S) EQUAL-OK: "w to b2 4.satz" (READ S) EQUAL-OK: "w to b2 5.satz" (READ S) EQUAL-OK: "w to b2 6.satz" (READ S) EQL-OK: READ2 (READ S) EQUAL-OK: "w to b2 7.satz" (READ S) EQUAL-OK: "w to b2 8.satz" (CLOSE-1 S) EQL-OK: T (PROGN (SETQ S (OPEN "d5.plc")) T) EQL-OK: T (READ S) EQUAL-OK: "w to b2 1.satz" (READ S) EQUAL-OK: "w to b2 2.satz" (READ S) EQUAL-OK: "w to b2 3.satz" (READ S) EQUAL-OK: "w to b2 4.satz" (READ S) EQUAL-OK: "w to b1" (READ S) EQUAL-OK: "w to b2 5.satz" (READ S) EQUAL-OK: "w to b2 6.satz" (READ S) EQUAL-OK: "w to b2 7.satz" (READ S) EQUAL-OK: "w to b2 8.satz" (CLOSE-1 S) EQL-OK: T (PROGN (SETQ S (OPEN "d6.plc")) T) EQL-OK: T (READ S) EQUAL-OK: "w to b2 1.satz" (READ S) EQUAL-OK: "w to b2 2.satz" (READ S) EQUAL-OK: "w to b2 3.satz" (READ S) EQUAL-OK: "w to b2 4.satz" (READ S) EQUAL-OK: "w to b1" (READ S) EQUAL-OK: "w to b2 5.satz" (READ S) EQUAL-OK: "w to b2 6.satz" (READ S) EQUAL-OK: "w to b2 7.satz" (READ S) EQUAL-OK: "w to b2 8.satz" (CLOSE-1 S) EQL-OK: T (PROGN (SETQ S (OPEN "d7.plc")) T) EQL-OK: T (READ S) EQUAL-OK: "w to b2 1.satz" (READ S) EQUAL-OK: "w to b2 2.satz" (READ S) EQUAL-OK: "w to b2 3.satz" (READ S) EQUAL-OK: "w to b2 4.satz" (READ S) EQUAL-OK: "w to b2 5.satz" (READ S) EQUAL-OK: "w to s7" (READ S) EQUAL-OK: "w to b2 6.satz" (READ S) EQUAL-OK: "w to b2 7.satz" (READ S) EQUAL-OK: "w to b2 8.satz" (CLOSE-1 S) EQL-OK: T (PROGN (SETQ S (OPEN "t1.plc" :DIRECTION :OUTPUT)) T) EQL-OK: T (PRINT "1.satz t1" S) EQUAL-OK: "1.satz t1" (PRINT "2.satz t1" S) EQUAL-OK: "2.satz t1" (CLOSE-1 S) EQL-OK: T (PROGN (SETQ S (OPEN "t2.plc" :DIRECTION :OUTPUT)) T) EQL-OK: T (PRINT "1.satz t2" S) EQUAL-OK: "1.satz t2" (PRINT "2.satz t2" S) EQUAL-OK: "2.satz t2" (CLOSE-1 S) EQL-OK: T (PROGN (SETQ S (OPEN "t3.plc" :DIRECTION :OUTPUT)) T) EQL-OK: T (PRINT "1.satz t3" S) EQUAL-OK: "1.satz t3" (PRINT "2.satz t3" S) EQUAL-OK: "2.satz t3" (CLOSE-1 S) EQL-OK: T (PROGN (SETQ S (OPEN "t4.plc" :DIRECTION :OUTPUT)) T) EQL-OK: T (PRINT "1.satz t4" S) EQUAL-OK: "1.satz t4" (PRINT "2.satz t4" S) EQUAL-OK: "2.satz t4" (CLOSE-1 S) EQL-OK: T (PROGN (SETQ S (OPEN "t5.plc" :DIRECTION :OUTPUT)) T) EQL-OK: T (PRINT "1.satz t5" S) EQUAL-OK: "1.satz t5" (PRINT "2.satz t5" S) EQUAL-OK: "2.satz t5" (CLOSE-1 S) EQL-OK: T (PROGN (SETQ S (OPEN "t6.plc" :DIRECTION :OUTPUT)) T) EQL-OK: T (PRINT "1.satz t6" S) EQUAL-OK: "1.satz t6" (PRINT "2.satz t6" S) EQUAL-OK: "2.satz t6" (CLOSE-1 S) EQL-OK: T (PROGN (SETQ S (OPEN "t7.plc" :DIRECTION :OUTPUT)) T) EQL-OK: T (PRINT "1.satz t7" S) EQUAL-OK: "1.satz t7" (PRINT "2.satz t7" S) EQUAL-OK: "2.satz t7" (CLOSE-1 S) EQL-OK: T (PROGN (SETQ S (OPEN "t8.plc" :DIRECTION :OUTPUT)) T) EQL-OK: T (PRINT "1.satz t8" S) EQUAL-OK: "1.satz t8" (PRINT "2.satz t8" S) EQUAL-OK: "2.satz t8" (CLOSE-1 S) EQL-OK: T (PROGN (SETQ S (OPEN "t9.plc" :DIRECTION :OUTPUT)) T) EQL-OK: T (PRINT "1.satz t9" S) EQUAL-OK: "1.satz t9" (PRINT "2.satz t9" S) EQUAL-OK: "2.satz t9" (CLOSE-1 S) EQL-OK: T (PROGN (SETQ S (OPEN "t10.plc" :DIRECTION :OUTPUT)) T) EQL-OK: T (PRINT "1.satz t10" S) EQUAL-OK: "1.satz t10" (PRINT "2.satz t10" S) EQUAL-OK: "2.satz t10" (CLOSE-1 S) EQL-OK: T (PROGN (SETQ S1 (OPEN "t1.plc")) (SETQ S2 (OPEN "t2.plc")) (SETQ S3 (OPEN "t3.plc")) (SETQ S4 (OPEN "t4.plc")) (SETQ S5 (OPEN "t5.plc")) (SETQ C1 (MAKE-CONCATENATED-STREAM S1 S2 S3)) (SETQ C2 (MAKE-CONCATENATED-STREAM S4 S5)) T) EQL-OK: T (READ C1) EQUAL-OK: "1.satz t1" (READ C2) EQUAL-OK: "1.satz t4" (READ C1) EQUAL-OK: "2.satz t1" (READ C1) EQUAL-OK: "1.satz t2" (READ C2) EQUAL-OK: "2.satz t4" (READ C2) EQUAL-OK: "1.satz t5" (READ C1) EQUAL-OK: "2.satz t2" (READ C1) EQUAL-OK: "1.satz t3" (READ C1) EQUAL-OK: "2.satz t3" (READ C2) EQUAL-OK: "2.satz t5" (CLOSE-1 S1) EQL-OK: T (CLOSE-1 S2) EQL-OK: T (CLOSE-1 S3) EQL-OK: T (CLOSE-1 S4) EQL-OK: T (CLOSE-1 S5) EQL-OK: T (PROGN (SETQ S1 (OPEN "t1.plc")) (SETQ S2 (OPEN "t2.plc")) (SETQ S3 (OPEN "t3.plc")) (SETQ S4 (OPEN "t4.plc")) (SETQ S5 (OPEN "t5.plc")) (SETQ S6 (OPEN "t6.plc")) (SETQ S7 (OPEN "t7.plc")) (SETQ S8 (OPEN "t8.plc")) (SETQ S9 (OPEN "t9.plc")) (SETQ S10 (OPEN "t10.plc")) (SETQ C1 (MAKE-CONCATENATED-STREAM S1 S2)) (SETQ C2 (MAKE-CONCATENATED-STREAM S3)) (SETQ C3 (MAKE-CONCATENATED-STREAM C1 C2 S4)) (SETQ C4 (MAKE-CONCATENATED-STREAM S5 S6 S7 S8 S9 S10)) T) EQL-OK: T (READ C4) EQUAL-OK: "1.satz t5" (READ C3) EQUAL-OK: "1.satz t1" (READ C4) EQUAL-OK: "2.satz t5" (READ C4) EQUAL-OK: "1.satz t6" (READ C3) EQUAL-OK: "2.satz t1" (READ C3) EQUAL-OK: "1.satz t2" (READ C4) EQUAL-OK: "2.satz t6" (READ C4) EQUAL-OK: "1.satz t7" (READ C4) EQUAL-OK: "2.satz t7" (READ C3) EQUAL-OK: "2.satz t2" (READ C3) EQUAL-OK: "1.satz t3" (READ C3) EQUAL-OK: "2.satz t3" (READ C4) EQUAL-OK: "1.satz t8" (READ C4) EQUAL-OK: "2.satz t8" (READ C4) EQUAL-OK: "1.satz t9" (READ C4) EQUAL-OK: "2.satz t9" (READ C3) EQUAL-OK: "1.satz t4" (READ C3) EQUAL-OK: "2.satz t4" (READ C4) EQUAL-OK: "1.satz t10" (READ C4) EQUAL-OK: "2.satz t10" (CLOSE-1 S1) EQL-OK: T (CLOSE-1 S2) EQL-OK: T (CLOSE-1 S3) EQL-OK: T (CLOSE-1 S4) EQL-OK: T (CLOSE-1 S5) EQL-OK: T (CLOSE-1 S6) EQL-OK: T (CLOSE-1 S7) EQL-OK: T (CLOSE-1 S8) EQL-OK: T (CLOSE-1 S9) EQL-OK: T (CLOSE-1 S10) EQL-OK: T (SETQ STR1 "test 123456") EQUAL-OK: "test 123456" (PROGN (SETQ S1 (MAKE-STRING-INPUT-STREAM STR1)) T) EQL-OK: T (READ S1) EQL-OK: TEST (READ-CHAR S1) EQL-OK: #\1 (READ-CHAR S1) EQL-OK: #\2 (UNREAD-CHAR #\2 S1) EQL-OK: NIL (READ-CHAR S1) EQL-OK: #\2 (READ-CHAR S1) EQL-OK: #\3 (READ-CHAR S1) EQL-OK: #\4 (UNREAD-CHAR #\A S1) [SIMPLE-STREAM-ERROR]: UNREAD-CHAR: the last character read from #1=# 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 # 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 # 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 # 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/tmp.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/tmp.fas 0 errors, 0 warnings EQL-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=# 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) foo EQUAL-OK: "foo" (LET ((*REOPEN-OPEN-FILE* NIL)) (WITH-OPEN-FILE (COPY S :DIRECTION :OUTPUT) (STREAMP COPY))) EQL-OK: T (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 388 tests) RUN-TEST: started # (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: # already points to file "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/streamslong-tst-foo" , opening the file again for :INPUT may produce unexpected results Open the file anyway EQL-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") "#") (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 # (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 # (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 # (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 # (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: 358.244 sec. Run time: 357.56943 sec. Space: 127793360 Bytes GC: 43, GC time: 4.021288 sec. EQL-OK: NIL (TIME-LOOP 4300066700 4300181201 10) (:GOOD 4300066700 NIL) Real time: 4.164113 sec. Run time: 4.162334 sec. Space: 1465776 Bytes EQL-OK: NIL (TIME-LOOP 100000 5000000000 5000 0) (:GOOD 100000 NIL) Real time: 125.22752 sec. Run time: 125.07542 sec. Space: 127793488 Bytes GC: 43, GC time: 4.640498 sec. EQL-OK: NIL (TIME-LOOP 4300066700 4300081201 10 0) (:GOOD 4300066700 NIL) Real time: 0.225724 sec. Run time: 0.207964 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 # 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 #: #1=# 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=#: token "." not allowed here EQL-OK: ERROR (READ-FROM-STRING "(a .. b)") [SIMPLE-READER-ERROR]: READ from #1=#: 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=#: token "." not allowed here EQL-OK: ERROR (READ-FROM-STRING "(a b c ...)") [SIMPLE-READER-ERROR]: READ from #1=#: 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 #: #1=# 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=#: too many colons in token ":abc:" EQL-OK: ERROR (READ-FROM-STRING ":abc:00") [SIMPLE-READER-ERROR]: READ from #1=#: too many colons in token ":abc:00" EQL-OK: ERROR (READ-FROM-STRING "ab:cd:2") [SIMPLE-READER-ERROR]: READ from #1=#: too many colons in token "ab:cd:2" EQL-OK: ERROR (READ-FROM-STRING "ab:") [SIMPLE-PACKAGE-ERROR]: READ from #: there is no package with name #1="AB" EQL-OK: ERROR (READ-FROM-STRING "ab:cd:") [SIMPLE-READER-ERROR]: READ from #1=#: 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=#: 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=#: 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=#: VECTOR is longer than the explicitly given length 0 EQL-OK: ERROR (READ-FROM-STRING "#0r111") [SIMPLE-READER-ERROR]: READ from #1=#: 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=#: 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=#: 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=# 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=#: illegal character #\Escape EQL-OK: ERROR (READ-FROM-STRING "abc") [SIMPLE-READER-ERROR]: READ from #1=#: illegal character #\Escape EQL-OK: ERROR (READ-FROM-STRING "a|bc") [SIMPLE-END-OF-FILE]: READ: input stream #1=# ends within a token after multiple escape character EQL-OK: ERROR (READ-FROM-STRING "#2(a b c)") [SIMPLE-READER-ERROR]: READ from #1=#: 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=#: BIT-VECTOR is longer than the explicitly given length 2 EQL-OK: ERROR (READ-FROM-STRING "#1#") [SIMPLE-READER-ERROR]: READ from #1=#: undefined label #1# EQL-OK: ERROR (READ-FROM-STRING "... ") [SIMPLE-READER-ERROR]: READ from #1=#: 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=# 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=# 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: "#" (READ-FROM-STRING "#(1 2 3 . )") [SIMPLE-READER-ERROR]: READ from #1=#: token "." not allowed here EQL-OK: ERROR (READ-FROM-STRING "(a .)") [SIMPLE-READER-ERROR]: READ-DELIMITED-LIST from #1=#: illegal end of dotted list EQL-OK: ERROR (READ-FROM-STRING "(. a)") [SIMPLE-READER-ERROR]: READ from #1=#: 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=#: 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=#: 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=#: 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=#: After #\# is #\n an undefined dispatch macro character EQL-OK: ERROR (READ-FROM-STRING "#control-") [SIMPLE-READER-ERROR]: READ from #1=#: 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=#: there is no character with name "bREAK" EQL-OK: ERROR (READ-FROM-STRING "#\\home-up") [SIMPLE-READER-ERROR]: READ from #1=#: 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=#: bad syntax for complex number: #C(PI 0) EQL-OK: ERROR (READ-FROM-STRING "#c(0 pi)") [SIMPLE-READER-ERROR]: READ from #1=#: 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 # (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 #) '(FUNCTION (INTEGER INTEGER) CONS))) EQUAL-OK: (NIL NIL) (MULTIPLE-VALUE-LIST (SUBTYPEP '(AND (EQL #) INTEGER) 'CHARACTER)) EQUAL-OK: (T T) (MULTIPLE-VALUE-LIST (SUBTYPEP '(AND (EQL #) (FUNCTION (T T) CONS)) 'CHARACTER)) EQUAL-OK: (NIL NIL) (MULTIPLE-VALUE-LIST (SUBTYPEP '(AND (EQL #) FUNCTION) 'CHARACTER)) EQUAL-OK: (NIL T) (MULTIPLE-VALUE-LIST (SUBTYPEP '(AND (EQL #) INTEGER) '(FUNCTION (INTEGER INTEGER) CONS))) EQUAL-OK: (T T) (MULTIPLE-VALUE-LIST (SUBTYPEP '(AND (EQL #) (FUNCTION (T T) CONS)) '(FUNCTION (INTEGER INTEGER) CONS))) EQUAL-OK: (NIL NIL) (MULTIPLE-VALUE-LIST (SUBTYPEP '(AND (EQL #) FUNCTION) '(FUNCTION (INTEGER INTEGER) CONS))) EQUAL-OK: (NIL NIL) (MULTIPLE-VALUE-LIST (SUBTYPEP '(AND (EQL #) INTEGER) 'FUNCTION)) EQUAL-OK: (T T) (MULTIPLE-VALUE-LIST (SUBTYPEP '(AND (EQL #) (FUNCTION (T T) CONS)) 'FUNCTION)) EQUAL-OK: (T T) (MULTIPLE-VALUE-LIST (SUBTYPEP '(AND (EQL #) 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 # (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=#: 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 # (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 # (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.169579 sec. Run time: 0.169524 sec. Space: 0 Bytes GC: 1, GC time: 0.168432 sec. Real time: 0.114991 sec. Run time: 0.114966 sec. Space: 0 Bytes GC: 1, GC time: 0.114242 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.236904 sec. Run time: 0.236595 sec. Space: 0 Bytes GC: 1, GC time: 0.23606 sec. Real time: 0.127843 sec. Run time: 0.127847 sec. Space: 0 Bytes GC: 1, GC time: 0.127364 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 # (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 # (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 # (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 defined 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))))) 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 # (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=#: 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 # (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: # (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=# 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 (# # #) #1=#): 2 name conflicts remain Which symbol with name "SYM-2" should be accessible in #1#? [SIMPLE-PACKAGE-ERROR]: (USE-PACKAGE (# # #) #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=# before being exported. [SIMPLE-PACKAGE-ERROR]: Importing PACK-5::SYM-1 into #1=# produces a name conflict with PACK-3:SYM-1 and other symbols. [SIMPLE-PACKAGE-ERROR]: Exporting PACK-2::FOO from #1=# produces a name conflict with PACK-1::FOO from #2=#. You may choose which symbol should be accessible in #2#. [SIMPLE-PACKAGE-ERROR]: Exporting PACK-2::BAR-22372 from #1=# produces a name conflict with PACK-1::BAR-22372 from #2=#. You may choose which symbol should be accessible in #2#. [SIMPLE-PACKAGE-ERROR]: Uninterning PACK-1::BAR-22372 from #1=# uncovers a name conflict. You may choose the symbol in favour of which to resolve the conflict. [SIMPLE-PACKAGE-ERROR]: DELETE-PACKAGE: #1=# is used by #. [SIMPLE-PACKAGE-ERROR]: DELETE-PACKAGE: #1=# is used by #. [SIMPLE-PACKAGE-ERROR]: DELETE-PACKAGE: #1=# is used by #. 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 # (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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 # (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=#>" (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 # (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=#>" (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 # (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=#>" (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 # (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=#>" (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 # (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=#>" (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 # (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=#>" (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 # (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=#>" (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 # (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=#>" (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 # (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=#>" (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 # (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=#>" (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 # (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=#>" (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 # (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=#>" (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 # (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=#>" (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 # (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=#>" (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 # (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=#>" (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 # (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=#>" (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 # (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=#>" (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 # (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=#>" (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 # (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=#>" (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 # (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=#>" (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,917 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 94 tests 38 steele7: 0 errors out of 86 tests 39 streams: 0 errors out of 388 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: 1184.3124 sec. Run time: 1170.7106 sec. Space: 1360239224 Bytes GC: 790, GC time: 73.023796 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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)))' Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x17f2b000 - 0x17f4bfff 0x80000000 - 0x800bffff 0x1579720000 - 0x157973afff 0x157973b000 - 0x157973bfff 0x157973c000 - 0x157973cfff 0x157973d000 - 0x157973efff 0x157973f000 - 0x1579740fff 0x1579741000 - 0x1579747fff 0x1579748000 - 0x1579748fff 0x1579749000 - 0x1579749fff 0x157974c000 - 0x157974dfff 0x157974e000 - 0x157978cfff 0x157978d000 - 0x157978efff 0x157978f000 - 0x1579795fff 0x1579796000 - 0x1579796fff 0x1579797000 - 0x15797bcfff 0x15797bd000 - 0x15797c0fff 0x15797c1000 - 0x15797c1fff 0x15797c2000 - 0x15797c3fff 0x15797c4000 - 0x15797c4fff 0x15797c5000 - 0x15797c5fff 0x15797c6000 - 0x15797c6fff 0x15797c7000 - 0x15797cafff 0x15797cb000 - 0x15797cbfff 0x15797cc000 - 0x15797ccfff 0x15797cd000 - 0x15797cefff 0x15797cf000 - 0x15797cffff 0x15797d0000 - 0x15797d0fff 0x15797d1000 - 0x157993cfff 0x157993d000 - 0x157993ffff 0x1579940000 - 0x1579940fff 0x1579941000 - 0x1579943fff 0x1579944000 - 0x1579956fff 0x1579957000 - 0x1579957fff 0x1579958000 - 0x1579958fff 0x1579959000 - 0x1579a77fff 0x1579a78000 - 0x1579a7afff 0x1579a7b000 - 0x1579a7dfff 0x1579a7e000 - 0x1579a82fff 0x1579a83000 - 0x1579ad7fff 0x1579ad8000 - 0x157a182fff 0x3fffcb4000 - 0x3fffcd4fff i i i i i i i ooooo o ooooooo ooooo ooooo I I I I I I I 8 8 8 8 8 o 8 8 I \ `+' / I 8 8 8 8 8 8 \ `-+-' / 8 8 8 ooooo 8oooo `-__|__-' 8 8 8 8 8 | 8 o 8 8 o 8 8 ------+------ ooooo 8oooooo ooo8ooo ooooo 8 Welcome to GNU CLISP 2.49.93+ (2018-02-18) 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/tests.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/tests.fas ;; Loaded file tests.lisp RUN-TEST: started # (NOT (EQ (SIGNAL "test signal") NIL)) EQL-OK: NIL (NOT (EQ (SIGNAL 'SIMPLE-ERROR :FORMAT-CONTROL "simple-error" :FORMAT-ARGUMENTS NIL) NIL)) EQL-OK: NIL (NOT (EQ (SIGNAL 'SIMPLE-WARNING :FORMAT-CONTROL "simple-warning" :FORMAT-ARGUMENTS NIL) NIL)) EQL-OK: NIL (NOT (HANDLER-CASE (SIGNAL "test simple-condition") (SIMPLE-CONDITION NIL T) (CONDITION NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (SIGNAL 'SIMPLE-WARNING :FORMAT-CONTROL "simple warning" :FORMAT-ARGUMENTS NIL) (SIMPLE-WARNING NIL T) (WARNING NIL NIL) (CONDITION NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (SIGNAL 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (LET ((*BREAK-ON-SIGNALS* 'ARITHMETIC-ERROR)) (HANDLER-CASE (SIGNAL 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) EQL-OK: NIL (NOT (HANDLER-CASE (ERROR "simple-error test") (SIMPLE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (ERROR 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (ERROR 'NO-SUCH-ERROR!!) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (ERROR 'SIMPLE-CONDITION :FORMAT-CONTROL "simple-condition test") (SIMPLE-CONDITION NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (ERROR 'SIMPLE-WARNING :FORMAT-CONTROL "simple-warning test") (SIMPLE-WARNING NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (CERROR "Continue." "error test") (SIMPLE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (CERROR "Continue." 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-BIND ((SIMPLE-ERROR #'(LAMBDA (CONDITION) (DECLARE (IGNORE CONDITION)) (INVOKE-RESTART 'CONTINUE)))) (EQ (CERROR "Continue." "error test") NIL))) EQL-OK: NIL (NOT (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (CONDITION) (DECLARE (IGNORE CONDITION)) (INVOKE-RESTART 'CONTINUE)))) (EQ (CERROR "Continue." 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR) NIL))) EQL-OK: NIL (NOT (LET ((*ERROR-OUTPUT* (MAKE-STRING-OUTPUT-STREAM))) (AND (EQ (WARN "I warn you!") NIL) (GET-OUTPUT-STREAM-STRING *ERROR-OUTPUT*)))) EQL-OK: NIL (NOT (HANDLER-BIND ((WARNING #'(LAMBDA (CONDITION) (DECLARE (IGNORE CONDITION)) (INVOKE-RESTART 'MUFFLE-WARNING)))) (EQ (WARN "I warn you!") NIL))) EQL-OK: NIL (NOT (LET ((*ERROR-OUTPUT* (MAKE-STRING-OUTPUT-STREAM))) (HANDLER-BIND ((WARNING #'(LAMBDA (CONDITION) (DECLARE (IGNORE CONDITION)) (INVOKE-RESTART 'MUFFLE-WARNING)))) (AND (EQ (WARN "I warn you!") NIL) (STRING= (GET-OUTPUT-STREAM-STRING *ERROR-OUTPUT*) ""))))) EQL-OK: NIL (NOT (BLOCK TAG (HANDLER-CASE (WARN 'SIMPLE-ERROR :FORMAT-CONTROL "boom!" :FORMAT-ARGUMENTS NIL) (TYPE-ERROR NIL T) (SIMPLE-ERROR NIL NIL) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) EQL-OK: NIL (NOT (BLOCK TAG (HANDLER-CASE (WARN 'SIMPLE-CONDITION :FORMAT-CONTROL "boom!" :FORMAT-ARGUMENTS NIL) (TYPE-ERROR NIL T) (SIMPLE-CONDITION NIL NIL) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) EQL-OK: NIL (NOT (BLOCK TAG (LET ((CONDITION (MAKE-CONDITION 'SIMPLE-CONDITION :FORMAT-CONTROL "boom!" :FORMAT-ARGUMENTS NIL))) (HANDLER-CASE (WARN CONDITION) (TYPE-ERROR NIL T) (SIMPLE-CONDITION NIL NIL) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))))) EQL-OK: NIL (NOT (BLOCK TAG (LET ((CONDITION (MAKE-CONDITION 'SIMPLE-ERROR :FORMAT-CONTROL "boom!" :FORMAT-ARGUMENTS NIL))) (HANDLER-CASE (WARN CONDITION) (TYPE-ERROR NIL T) (SIMPLE-ERROR NIL NIL) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))))) EQL-OK: NIL (NOT (BLOCK TAG (LET ((CONDITION (MAKE-CONDITION 'SIMPLE-WARNING :FORMAT-CONTROL "boom!" :FORMAT-ARGUMENTS NIL))) (HANDLER-CASE (WARN CONDITION) (TYPE-ERROR NIL NIL) (SIMPLE-WARNING NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))))) EQL-OK: NIL (NOT (BLOCK TAG (LET ((CONDITION (MAKE-CONDITION 'SIMPLE-WARNING :FORMAT-CONTROL "boom!" :FORMAT-ARGUMENTS NIL))) (HANDLER-CASE (WARN CONDITION :FORMAT-CONTROL "boom!" :FORMAT-ARGUMENTS NIL) (TYPE-ERROR NIL T) (SIMPLE-WARNING NIL NIL) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))))) EQL-OK: NIL (NOT (NULL (HANDLER-BIND NIL))) EQL-OK: NIL (NOT (HANDLER-BIND NIL T)) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (HANDLER-BIND NIL 1 2 3 (VALUES 4 5 6))) '(4 5 6))) EQL-OK: NIL (NOT (EQ 'HANDLED (BLOCK TAG (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'HANDLED)))) (ERROR 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR))))) EQL-OK: NIL (NOT (EQ 'HANDLED (BLOCK TAG (HANDLER-BIND ((ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'HANDLED)))) (ERROR 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR))))) EQL-OK: NIL (NOT (EQ 'HANDLED (BLOCK TAG (HANDLER-BIND ((CONDITION #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'HANDLED)))) (ERROR 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR))))) EQL-OK: NIL (NOT (EQ 'OUTER-HANDLER (BLOCK TAG (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'OUTER-HANDLER)))) (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (C) (ERROR C))) (TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'INNER-HANDLER)))) (ERROR 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR)))))) EQL-OK: NIL (NOT (EQ 'OUTER-HANDLER (BLOCK TAG (HANDLER-BIND ((ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'OUTER-HANDLER)))) (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (C) (ERROR C))) (TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'INNER-HANDLER)))) (ERROR 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR)))))) EQL-OK: NIL (NOT (EQ 'LEFT-HANDLER (BLOCK TAG (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'LEFT-HANDLER))) (TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'RIGHT-HANDLER)))) (ERROR 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR))))) EQL-OK: NIL (NOT (EQ 'LEFT-HANDLER (BLOCK TAG (HANDLER-BIND ((ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'LEFT-HANDLER))) (TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'RIGHT-HANDLER)))) (ERROR 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR))))) EQL-OK: NIL (NOT (EQ 'LEFT-HANDLER (BLOCK TAG (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'LEFT-HANDLER))) (ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'RIGHT-HANDLER)))) (ERROR 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR))))) EQL-OK: NIL (NOT (LET ((HANDLER-DECLINED NIL)) (AND (EQ (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (SETQ HANDLER-DECLINED T)))) (SIGNAL 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR)) NIL) HANDLER-DECLINED))) EQL-OK: NIL (NOT (LET ((HANDLER-DECLINED NIL)) (AND (EQ (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (PUSH 'OUTER HANDLER-DECLINED)))) (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (PUSH 'INNER HANDLER-DECLINED)))) (SIGNAL 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR))) NIL) (EQUAL HANDLER-DECLINED '(OUTER INNER))))) EQL-OK: NIL (NOT (LET ((HANDLER-DECLINED NIL)) (AND (EQ (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (PUSH 'OUTER-LEFT-HANDLER HANDLER-DECLINED))) (TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (PUSH 'OUTER-RIGHT-HANDLER HANDLER-DECLINED)))) (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (PUSH 'INNER-LEFT-HANDLER HANDLER-DECLINED))) (TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (PUSH 'INNER-RIGHT-HANDLER HANDLER-DECLINED)))) (SIGNAL 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR))) NIL) (EQUAL HANDLER-DECLINED '(OUTER-RIGHT-HANDLER OUTER-LEFT-HANDLER INNER-RIGHT-HANDLER INNER-LEFT-HANDLER))))) EQL-OK: NIL (NOT (LET ((HANDLER-DECLINED NIL)) (AND (EQ (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (PUSH 'OUTER-LEFT-HANDLER HANDLER-DECLINED))) (TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (PUSH 'OUTER-RIGHT-HANDLER HANDLER-DECLINED)))) (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (PUSH 'INNER-LEFT-HANDLER HANDLER-DECLINED))) (TYPE-ERROR #'(LAMBDA (C) (SIGNAL C) (PUSH 'INNER-RIGHT-HANDLER HANDLER-DECLINED)))) (SIGNAL 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR))) NIL) (EQUAL HANDLER-DECLINED '(OUTER-RIGHT-HANDLER OUTER-LEFT-HANDLER INNER-RIGHT-HANDLER OUTER-RIGHT-HANDLER OUTER-LEFT-HANDLER INNER-LEFT-HANDLER))))) EQL-OK: NIL (NOT (LET ((*DYNAMIC-VAR* NIL)) (DECLARE (SPECIAL *DYNAMIC-VAR*)) (BLOCK TAG (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG *DYNAMIC-VAR*)))) (LET ((*DYNAMIC-VAR* T)) (DECLARE (SPECIAL *DYNAMIC-VAR*)) (SIGNAL 'TYPE-ERROR :DATUM NIL :EXPECTED-TYPE 'VECTOR)))))) EQL-OK: NIL (NOT (LET ((DECLINED NIL)) (AND (EQ NIL (HANDLER-BIND ((SIMPLE-CONDITION #'(LAMBDA (C) (DECLARE (IGNORE C)) (PUSH 'SPECIFIC DECLINED)))) (HANDLER-BIND ((CONDITION #'(LAMBDA (C) (DECLARE (IGNORE C)) (PUSH 'GENERAL DECLINED)))) (SIGNAL "error")))) (EQUAL DECLINED '(SPECIFIC GENERAL))))) EQL-OK: NIL (NOT (BLOCK TAG (HANDLER-BIND ((ERROR #'(LAMBDA (C) (RETURN-FROM TAG (TYPEP C 'ERROR))))) (ERROR "error")))) EQL-OK: NIL (NOT (EQ 'OK (BLOCK TAG (HANDLER-BIND ((ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'OK)))) (HANDLER-BIND ((ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (ERROR "error3")))) (HANDLER-BIND ((ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (ERROR "error2")))) (ERROR "error"))))))) EQL-OK: NIL (NOT (EQ 'OK (BLOCK TAG (HANDLER-BIND ((ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (HANDLER-BIND ((ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (HANDLER-BIND ((ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'OK)))) (ERROR "error2"))))) (ERROR "error1"))))) (ERROR "error0"))))) EQL-OK: NIL (NOT (HANDLER-CASE T)) EQL-OK: NIL (NOT (HANDLER-CASE NIL (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) T))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (HANDLER-CASE (VALUES 0 1 2 3 4))) '(0 1 2 3 4))) EQL-OK: NIL (NOT (EQUAL (HANDLER-CASE (VALUES 0 1 2 3 4) (:NO-ERROR (&REST REST) REST)) '(0 1 2 3 4))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (HANDLER-CASE (VALUES 0 1 2 3 4) (:NO-ERROR (&REST REST) (VALUES REST 5 6 7 8)))) '((0 1 2 3 4) 5 6 7 8))) EQL-OK: NIL (NOT (EQ T (HANDLER-CASE T (TYPE-ERROR NIL 'TYPE-ERROR) (ERROR NIL 'ERROR)))) EQL-OK: NIL (NOT (EQ 'SIMPLE-ERROR (HANDLER-CASE (ERROR "error!") (SIMPLE-ERROR NIL 'SIMPLE-ERROR) (ERROR NIL 'ERROR)))) EQL-OK: NIL (NOT (EQ 'ERROR (HANDLER-CASE (ERROR "error!") (ERROR NIL 'ERROR) (SIMPLE-ERROR NIL 'SIMPLE-ERROR)))) EQL-OK: NIL (NOT (EQ 'ERROR (HANDLER-CASE (ERROR "error!") (ERROR NIL 'ERROR) (CONDITION NIL 'CONDITION) (SIMPLE-ERROR NIL 'SIMPLE-ERROR)))) EQL-OK: NIL (NOT (EQ 'CONDITION (HANDLER-CASE (ERROR "error!") (CONDITION NIL 'CONDITION) (ERROR NIL 'ERROR) (SIMPLE-ERROR NIL 'SIMPLE-ERROR)))) EQL-OK: NIL (NOT (EQ 'SIMPLE-ERROR (HANDLER-CASE (SIGNAL 'SIMPLE-ERROR :FORMAT-CONTROL "error!" :FORMAT-ARGUMENTS NIL) (SIMPLE-ERROR NIL 'SIMPLE-ERROR) (ERROR NIL 'ERROR)))) EQL-OK: NIL (NOT (EQ 'SIMPLE-ERROR-LEFT (HANDLER-CASE (SIGNAL 'SIMPLE-ERROR :FORMAT-CONTROL "error!" :FORMAT-ARGUMENTS NIL) (SIMPLE-ERROR NIL 'SIMPLE-ERROR-LEFT) (SIMPLE-ERROR NIL 'SIMPLE-ERROR-RIGHT)))) EQL-OK: NIL (NOT (EQ 'NO-ONE-HANDLED (HANDLER-CASE (PROGN (SIGNAL 'SIMPLE-WARNING :FORMAT-CONTROL "warning!" :FORMAT-ARGUMENTS NIL) 'NO-ONE-HANDLED) (SIMPLE-ERROR NIL 'SIMPLE-ERROR) (ERROR NIL 'ERROR)))) EQL-OK: NIL (NOT (EQUAL (HANDLER-CASE (PROGN (SIGNAL 'SIMPLE-WARNING :FORMAT-CONTROL "warning!" :FORMAT-ARGUMENTS NIL) 'NO-ONE-HANDLED) (:NO-ERROR (&REST REST) (CONS 'NO-ERROR REST)) (SIMPLE-ERROR NIL 'SIMPLE-ERROR) (ERROR NIL 'ERROR)) '(NO-ERROR NO-ONE-HANDLED))) EQL-OK: NIL (NOT (LET ((WHERE 'OUT)) (EQ (HANDLER-CASE (LET ((WHERE 'IN)) (DECLARE (IGNORABLE WHERE)) (ERROR "error!")) (ERROR NIL WHERE)) 'OUT))) EQL-OK: NIL (NOT (LET ((WHERE 'OUT)) (DECLARE (SPECIAL WHERE)) (EQ (HANDLER-CASE (LET ((WHERE 'IN)) (DECLARE (SPECIAL WHERE)) (ERROR "~S" WHERE)) (ERROR NIL WHERE)) 'OUT))) EQL-OK: NIL (NOT (TYPEP (HANDLER-CASE (ERROR "error!") (ERROR (C) C)) 'SIMPLE-ERROR)) EQL-OK: NIL (NOT (TYPEP (HANDLER-CASE (ERROR "error!") (CONDITION (C) C)) 'SIMPLE-ERROR)) EQL-OK: NIL (NOT (TYPEP (HANDLER-CASE (SIGNAL "condition") (CONDITION (C) C)) 'SIMPLE-CONDITION)) EQL-OK: NIL (NOT (TYPEP (HANDLER-CASE (WARN "warning") (CONDITION (C) C)) 'SIMPLE-WARNING)) EQL-OK: NIL (NOT (NULL (RESTART-BIND NIL))) EQL-OK: NIL (NOT (RESTART-BIND NIL T)) EQL-OK: NIL (NOT (= (RESTART-BIND NIL 0 1 2) 2)) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (RESTART-BIND NIL 0 1 2 (VALUES 3 4 5))) '(3 4 5))) EQL-OK: NIL (NOT (BLOCK TAG (RESTART-BIND ((CONTINUE #'(LAMBDA (&REST REST) (DECLARE (IGNORE REST)) (RETURN-FROM TAG T)))) (HANDLER-CASE (SIGNAL "testing simple-signal") (SIMPLE-CONDITION NIL (INVOKE-RESTART 'CONTINUE)))))) EQL-OK: NIL (NOT (BLOCK TAG (HANDLER-BIND ((SIMPLE-CONDITION #'(LAMBDA (CONDITION) (DECLARE (IGNORE CONDITION)) (INVOKE-RESTART 'CONTINUE)))) (RESTART-BIND ((CONTINUE #'(LAMBDA (&REST REST) (DECLARE (IGNORE REST)) (RETURN-FROM TAG T)))) (SIGNAL "testing simple-condition"))))) EQL-OK: NIL (NOT (BLOCK TAG (RESTART-BIND ((CONTINUE #'(LAMBDA (&REST REST) (DECLARE (IGNORE REST)) (RETURN-FROM TAG NIL)))) (HANDLER-BIND ((SIMPLE-CONDITION #'(LAMBDA (CONDITION) (DECLARE (IGNORE CONDITION)) (INVOKE-RESTART 'CONTINUE)))) (RESTART-BIND ((CONTINUE #'(LAMBDA (&REST REST) (DECLARE (IGNORE REST)) (RETURN-FROM TAG T)))) (SIGNAL "testing simple-condition")))))) EQL-OK: NIL (NOT (BLOCK TAG (RESTART-BIND ((CONTINUE #'(LAMBDA (&REST REST) (DECLARE (IGNORE REST)) (RETURN-FROM TAG T))) (CONTINUE #'(LAMBDA (&REST REST) (DECLARE (IGNORE REST)) (RETURN-FROM TAG NIL)))) (HANDLER-CASE (SIGNAL "testing simple-signal") (SIMPLE-CONDITION NIL (INVOKE-RESTART 'CONTINUE)))))) EQL-OK: NIL (NOT (BLOCK TAG (RESTART-BIND ((CONTINUE #'(LAMBDA (&REST REST) (DECLARE (IGNORE REST)) (RETURN-FROM TAG T)) :REPORT-FUNCTION #'(LAMBDA (STREAM) (FORMAT STREAM "Continue")))) (HANDLER-CASE (SIGNAL "testing simple-signal") (SIMPLE-CONDITION NIL (INVOKE-RESTART 'CONTINUE)))))) EQL-OK: NIL (NOT (BLOCK TAG (RESTART-BIND ((CONTINUE #'(LAMBDA (X) (RETURN-FROM TAG X)) :REPORT-FUNCTION #'(LAMBDA (STREAM) (FORMAT STREAM "Continue")) :INTERACTIVE-FUNCTION #'(LAMBDA NIL (LIST T)))) (HANDLER-CASE (SIGNAL "testing simple-signal") (SIMPLE-CONDITION NIL (INVOKE-RESTART-INTERACTIVELY 'CONTINUE)))))) EQL-OK: NIL (NOT (EQ 'OK (BLOCK TAG (RESTART-BIND ((CONTINUE #'(LAMBDA (X) (RETURN-FROM TAG X)))) (HANDLER-CASE (SIGNAL "testing simple-signal") (SIMPLE-CONDITION NIL (INVOKE-RESTART 'CONTINUE 'OK))))))) EQL-OK: NIL (NOT (BLOCK TAG (RESTART-BIND ((CONTINUE #'(LAMBDA (X) (RETURN-FROM TAG X)) :REPORT-FUNCTION #'(LAMBDA (STREAM) (FORMAT STREAM "Continue")) :INTERACTIVE-FUNCTION #'(LAMBDA NIL (LIST T)) :TEST-FUNCTION (CONSTANTLY T))) (HANDLER-CASE (SIGNAL "testing simple-signal") (SIMPLE-CONDITION NIL (INVOKE-RESTART-INTERACTIVELY 'CONTINUE)))))) EQL-OK: NIL (NOT (BLOCK TAG (RESTART-BIND ((CONTINUE #'(LAMBDA (X) (RETURN-FROM TAG X)) :REPORT-FUNCTION #'(LAMBDA (STREAM) (FORMAT STREAM "Continue")) :INTERACTIVE-FUNCTION #'(LAMBDA NIL (LIST T)) :TEST-FUNCTION #'(LAMBDA (C) (OR (NULL C) (TYPEP C 'SIMPLE-CONDITION))))) (HANDLER-CASE (SIGNAL "testing simple-signal") (SIMPLE-CONDITION NIL (INVOKE-RESTART-INTERACTIVELY 'CONTINUE)))))) EQL-OK: NIL (NOT (BLOCK TAG (RESTART-BIND ((TB-CONTINUE #'(LAMBDA (X) (RETURN-FROM TAG X)) :INTERACTIVE-FUNCTION #'(LAMBDA NIL (LIST T)) :TEST-FUNCTION (CONSTANTLY NIL) :REPORT-FUNCTION #'(LAMBDA (STREAM) (FORMAT STREAM "Continue")))) (NOT (FIND-RESTART 'TB-CONTINUE))))) EQL-OK: NIL (NOT (BLOCK TAG (RESTART-BIND ((TB-CONTINUE #'(LAMBDA (X) (RETURN-FROM TAG X)) :INTERACTIVE-FUNCTION #'(LAMBDA NIL (LIST T)) :TEST-FUNCTION (CONSTANTLY T) :REPORT-FUNCTION #'(LAMBDA (STREAM) (FORMAT STREAM "cont.")))) (HANDLER-CASE (SIGNAL "testing simple-signal") (SIMPLE-CONDITION NIL (INVOKE-RESTART-INTERACTIVELY 'TB-CONTINUE)))))) EQL-OK: NIL (NOT (NULL (LET ((*DYNAMIC-VAR* NIL)) (DECLARE (SPECIAL *DYNAMIC-VAR*)) (BLOCK TAG (RESTART-BIND ((CONTINUE #'(LAMBDA (X) (DECLARE (IGNORE X)) (RETURN-FROM TAG *DYNAMIC-VAR*)) :INTERACTIVE-FUNCTION #'(LAMBDA NIL (LIST T)) :TEST-FUNCTION (CONSTANTLY T) :REPORT-FUNCTION #'(LAMBDA (STREAM) (FORMAT STREAM "cont.")))) (HANDLER-CASE (LET ((*DYNAMIC-VAR* T)) (DECLARE (SPECIAL *DYNAMIC-VAR*)) (SIGNAL "testing simple-signal")) (SIMPLE-CONDITION NIL (INVOKE-RESTART-INTERACTIVELY 'CONTINUE)))))))) EQL-OK: NIL (NOT (LET ((*DYNAMIC-VAR* NIL)) (DECLARE (SPECIAL *DYNAMIC-VAR*)) (BLOCK TAG (RESTART-BIND ((CONTINUE #'(LAMBDA (X) (DECLARE (IGNORE X)) (RETURN-FROM TAG *DYNAMIC-VAR*)) :INTERACTIVE-FUNCTION #'(LAMBDA NIL (LIST T)) :TEST-FUNCTION (CONSTANTLY T) :REPORT-FUNCTION #'(LAMBDA (STREAM) (FORMAT STREAM "cont.")))) (HANDLER-BIND ((SIMPLE-CONDITION #'(LAMBDA (C) (DECLARE (IGNORE C)) (INVOKE-RESTART-INTERACTIVELY 'CONTINUE)))) (LET ((*DYNAMIC-VAR* T)) (DECLARE (SPECIAL *DYNAMIC-VAR*)) (SIGNAL "testing simple-signal"))))))) EQL-OK: NIL (NOT (BLOCK TAG (RESTART-BIND ((IGNORE-SIMPLE-SIGNAL #'(LAMBDA (&REST REST) (DECLARE (IGNORE REST)) (RETURN-FROM TAG T)))) (HANDLER-CASE (SIGNAL "testing simple-signal") (SIMPLE-CONDITION NIL (INVOKE-RESTART 'IGNORE-SIMPLE-SIGNAL)))))) EQL-OK: NIL (NOT (RESTART-CASE T)) EQL-OK: NIL (NOT (RESTART-CASE T (CONTINUE (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (RESTART-CASE (VALUES 0 1 2 3 4))) '(0 1 2 3 4))) EQL-OK: NIL (NOT (EQ 'CONTINUED (RESTART-CASE (CONTINUE) (CONTINUE (&REST REST) (DECLARE (IGNORE REST)) 'CONTINUED)))) EQL-OK: NIL (NOT (EQ NIL (RESTART-CASE (CONTINUE) (CONTINUE (&REST REST) (DECLARE (IGNORE REST)))))) EQL-OK: NIL (NOT (EQ 'CONTINUE-LEFT (RESTART-CASE (CONTINUE) (CONTINUE (&REST REST) (DECLARE (IGNORE REST)) 'CONTINUE-LEFT) (CONTINUE (&REST REST) (DECLARE (IGNORE REST)) 'CONTINUE-RIGHT)))) EQL-OK: NIL (NOT (NULL (RESTART-CASE (INVOKE-RESTART 'CONTINUE) (CONTINUE (&REST REST) :INTERACTIVE (LAMBDA NIL (LIST 0 1 2 3)) REST)))) EQL-OK: NIL (NOT (EQUAL (RESTART-CASE (INVOKE-RESTART-INTERACTIVELY 'CONTINUE) (CONTINUE (&REST REST) :INTERACTIVE (LAMBDA NIL (LIST 0 1 2 3)) REST)) '(0 1 2 3))) EQL-OK: NIL (NOT (EQUAL (RESTART-CASE (INVOKE-RESTART-INTERACTIVELY 'CONTINUE) (CONTINUE (&REST REST) :INTERACTIVE (LAMBDA NIL (LIST 0 1 2 3)) :REPORT "continue" REST)) '(0 1 2 3))) EQL-OK: NIL (NOT (EQUAL (RESTART-CASE (INVOKE-RESTART-INTERACTIVELY 'CONTINUE) (CONTINUE (&REST REST) :INTERACTIVE (LAMBDA NIL (LIST 0 1 2 3)) :REPORT "continue" :TEST (LAMBDA (C) (DECLARE (IGNORE C)) T) REST)) '(0 1 2 3))) EQL-OK: NIL (NOT (= (RESTART-CASE (HANDLER-BIND ((ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (INVOKE-RESTART 'MY-RESTART 7)))) (ERROR "Foo.")) (MY-RESTART (&OPTIONAL V) V)) 7)) EQL-OK: NIL (NOT (EQ (HANDLER-BIND ((ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (INVOKE-RESTART 'MY-RESTART 'RESTARTED)))) (RESTART-CASE (ERROR "Boo.") (MY-RESTART (&OPTIONAL V) V))) 'RESTARTED)) EQL-OK: NIL (NOT (EQ (HANDLER-BIND ((ERROR #'(LAMBDA (C) (INVOKE-RESTART (FIND-RESTART 'MY-RESTART C) 'RESTARTED)))) (RESTART-CASE (ERROR "Boo.") (MY-RESTART (&OPTIONAL V) V))) 'RESTARTED)) EQL-OK: NIL (NOT (> (LENGTH (BLOCK TAG (HANDLER-BIND ((ERROR #'(LAMBDA (C) (RETURN-FROM TAG (COMPUTE-RESTARTS C))))) (RESTART-CASE (ERROR "Boo.") (MY-RESTART (&OPTIONAL V) V) (MY-RESTART (&OPTIONAL V) V))))) 1)) EQL-OK: NIL (NOT (EQ 'OK (RESTART-CASE (INVOKE-RESTART 'JUST-A-RESTART) (JUST-A-RESTART (&REST REST) (DECLARE (IGNORE REST)) 'OK)))) EQL-OK: NIL (NOT (LISTP (MAPCAR #'RESTART-NAME (COMPUTE-RESTARTS)))) EQL-OK: NIL (NOT (LISTP (MAPCAR #'RESTART-NAME (COMPUTE-RESTARTS (MAKE-CONDITION 'SIMPLE-ERROR :FORMAT-CONTROL "error" :FORMAT-ARGUMENTS NIL))))) EQL-OK: NIL (NOT (RESTART-CASE (LET ((LIST (COMPUTE-RESTARTS))) (AND (MEMBER 'MY-RESTART LIST :TEST #'STRING= :KEY #'RESTART-NAME) (MEMBER 'YOUR-RESTART LIST :TEST #'STRING= :KEY #'RESTART-NAME))) (MY-RESTART NIL) (YOUR-RESTART NIL))) EQL-OK: NIL (NOT (RESTART-CASE (LET ((LIST (COMPUTE-RESTARTS))) (MEMBER 'MY-RESTART (CDR (MEMBER 'MY-RESTART LIST :TEST #'STRING= :KEY #'RESTART-NAME)) :TEST #'STRING= :KEY #'RESTART-NAME)) (MY-RESTART NIL) (MY-RESTART NIL))) EQL-OK: NIL (NOT (OR (FIND-RESTART 'CONTINUE) T)) EQL-OK: NIL (NOT (RESTART-CASE (FIND-RESTART 'MY-RESTART) (MY-RESTART NIL))) EQL-OK: NIL (NOT (RESTART-CASE (FIND-RESTART (FIND-RESTART 'MY-RESTART)) (MY-RESTART NIL))) EQL-OK: NIL (NOT (LET ((CONDITION (MAKE-CONDITION 'SIMPLE-ERROR :FORMAT-CONTROL "error" :FORMAT-ARGUMENTS NIL))) (BLOCK TAG (HANDLER-BIND ((ERROR #'(LAMBDA (C) (RETURN-FROM TAG (AND (EQ C CONDITION) (FIND-RESTART 'MY-RESTART C)))))) (RESTART-CASE (ERROR CONDITION) (MY-RESTART NIL)))))) EQL-OK: NIL (NOT (STRING= "MY-RESTART" (BLOCK TAG (HANDLER-BIND ((ERROR #'(LAMBDA (C) (RETURN-FROM TAG (RESTART-NAME (FIND-RESTART 'MY-RESTART C)))))) (RESTART-CASE (ERROR "error!") (MY-RESTART NIL)))))) EQL-OK: NIL (NOT (BLOCK TAG (HANDLER-BIND ((ERROR #'(LAMBDA (C) (RETURN-FROM TAG (RESTART-NAME (FIND-RESTART 'YET-ANOTHER-RESTART C)))))) (RESTART-CASE (ERROR "error!") (YET-ANOTHER-RESTART NIL))))) EQL-OK: NIL (NOT (NULL (WITH-CONDITION-RESTARTS (MAKE-CONDITION 'SIMPLE-ERROR :FORMAT-CONTROL "error" :FORMAT-ARGUMENTS NIL) NIL))) EQL-OK: NIL (NOT (WITH-CONDITION-RESTARTS (MAKE-CONDITION 'SIMPLE-ERROR :FORMAT-CONTROL "error" :FORMAT-ARGUMENTS NIL) NIL T)) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (WITH-CONDITION-RESTARTS (MAKE-CONDITION 'SIMPLE-ERROR :FORMAT-CONTROL "error" :FORMAT-ARGUMENTS NIL) NIL 0 1 2 (VALUES 3 4 5))) '(3 4 5))) EQL-OK: NIL (NOT (LET ((CONDITION (MAKE-CONDITION 'SIMPLE-ERROR :FORMAT-CONTROL "error" :FORMAT-ARGUMENTS NIL)) (OTHER (MAKE-CONDITION 'SIMPLE-ERROR :FORMAT-CONTROL "error" :FORMAT-ARGUMENTS NIL))) (BLOCK TAG (HANDLER-BIND ((ERROR #'(LAMBDA (C) (RETURN-FROM TAG (AND (FIND-RESTART 'MY-RESTART C) (NULL (WITH-CONDITION-RESTARTS OTHER (COMPUTE-RESTARTS) (FIND-RESTART 'MY-RESTART C)))))))) (RESTART-CASE (PROGN 3 2 1 'GO (ERROR CONDITION)) (MY-RESTART NIL)))))) EQL-OK: NIL (NOT (NULL (WITH-SIMPLE-RESTART (CONTINUE "continue")))) EQL-OK: NIL (NOT (WITH-SIMPLE-RESTART (CONTINUE "continue") T)) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (WITH-SIMPLE-RESTART (CONTINUE "continue") 0 1 (VALUES 2 3 4))) '(2 3 4))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (WITH-SIMPLE-RESTART (CONTINUE "continue") (CONTINUE))) '(NIL T))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (WITH-SIMPLE-RESTART (CONTINUE "continue") (HANDLER-CASE (ERROR "boo") (ERROR (C) (DECLARE (IGNORE C)) (INVOKE-RESTART 'CONTINUE))))) '(NIL T))) EQL-OK: NIL (NOT (EQ 'OK (RESTART-CASE (ABORT) (ABORT NIL 'OK)))) EQL-OK: NIL (NOT (LET ((CONDITION (MAKE-CONDITION 'SIMPLE-ERROR :FORMAT-CONTROL "error" :FORMAT-ARGUMENTS NIL))) (OR (FIND-RESTART 'ABORT CONDITION) (EQ 'HANDLED (HANDLER-CASE (ABORT CONDITION) (CONTROL-ERROR NIL 'HANDLED) (CONDITION NIL NIL)))))) EQL-OK: NIL (NOT (EQ 'OK (RESTART-CASE (MUFFLE-WARNING) (MUFFLE-WARNING NIL 'OK)))) EQL-OK: NIL (NOT (LET ((CONDITION (MAKE-CONDITION 'SIMPLE-WARNING :FORMAT-CONTROL "warning" :FORMAT-ARGUMENTS NIL))) (OR (FIND-RESTART 'MUFFLE-WARNING CONDITION) (EQ 'HANDLED (HANDLER-CASE (MUFFLE-WARNING CONDITION) (CONTROL-ERROR NIL 'HANDLED) (CONDITION NIL NIL)))))) EQL-OK: NIL (NOT (EQ 'OK (RESTART-CASE (CONTINUE) (CONTINUE NIL 'OK)))) EQL-OK: NIL (NOT (LET ((CONDITION (MAKE-CONDITION 'SIMPLE-ERROR :FORMAT-CONTROL "error" :FORMAT-ARGUMENTS NIL))) (OR (FIND-RESTART 'CONTINUE CONDITION) (NULL (CONTINUE CONDITION))))) EQL-OK: NIL (NOT (EQ 'OK (RESTART-CASE (STORE-VALUE 'OK) (STORE-VALUE (VALUE) VALUE)))) WARNING: RESTART-CASE: restart cannot be invoked interactively because it is missing a :INTERACTIVE option: (STORE-VALUE (VALUE) VALUE) EQL-OK: NIL (NOT (LET ((CONDITION (MAKE-CONDITION 'SIMPLE-ERROR :FORMAT-CONTROL "error" :FORMAT-ARGUMENTS NIL))) (OR (FIND-RESTART 'STORE-VALUE CONDITION) (NULL (STORE-VALUE T CONDITION))))) EQL-OK: NIL (NOT (EQ 'OK (RESTART-CASE (USE-VALUE 'OK) (USE-VALUE (VALUE) VALUE)))) WARNING: RESTART-CASE: restart cannot be invoked interactively because it is missing a :INTERACTIVE option: (USE-VALUE (VALUE) VALUE) EQL-OK: NIL (NOT (LET ((CONDITION (MAKE-CONDITION 'SIMPLE-ERROR :FORMAT-CONTROL "error" :FORMAT-ARGUMENTS NIL))) (OR (FIND-RESTART 'USE-VALUE CONDITION) (NULL (USE-VALUE T CONDITION))))) EQL-OK: NIL (NOT (EQ (ASSERT T) NIL)) EQL-OK: NIL (NOT (HANDLER-CASE (ASSERT NIL) (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (LET ((COUNT 0)) (AND (EQ (ASSERT (INCF COUNT)) NIL) (= COUNT 1)))) EQL-OK: NIL (NOT (HANDLER-CASE (LET ((VAR NIL)) (ASSERT VAR (VAR) "VAR should be true.")) (SIMPLE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (LET ((STR (COPY-SEQ "ABC")) (COUNT 0)) (AND (EQ (ASSERT (CHAR= (AREF STR 0) #\A) ((AREF (PROGN (INCF COUNT) STR) 0))) NIL) (ZEROP COUNT)))) EQL-OK: NIL (NOT (LET ((STR (COPY-SEQ "ABC")) (COUNT 0)) (AND (EQ (ASSERT (AND (CHAR= (AREF STR 0) #\A) (CHAR= (AREF STR 1) #\B)) ((AREF (PROGN (INCF COUNT) STR) 0) (AREF (PROGN (INCF COUNT) STR) 1))) NIL) (ZEROP COUNT)))) EQL-OK: NIL (NOT (HANDLER-CASE (LET ((VAR NIL)) (ASSERT VAR (VAR) 'TYPE-ERROR :EXPECTED-TYPE 'ARRAY)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (NULL (LET ((VAR NIL)) (CHECK-TYPE VAR NULL)))) EQL-OK: NIL (NOT (NULL (LET ((VAR '(A B C))) (CHECK-TYPE VAR CONS)))) EQL-OK: NIL (NOT (HANDLER-CASE (LET ((VAR '(A B C))) (CHECK-TYPE VAR VECTOR)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (EQ 'HANDLED (BLOCK TAG (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'HANDLED))) (ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG NIL)))) (LET ((VAR '(A B C))) (CHECK-TYPE VAR VECTOR) VAR))))) EQL-OK: NIL (NOT (STRING= (BLOCK TAG (HANDLER-BIND ((TYPE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (INVOKE-RESTART 'STORE-VALUE "eat this"))) (ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG NIL)))) (LET ((VAR '(A B C))) (CHECK-TYPE VAR VECTOR) VAR))) "eat this")) EQL-OK: NIL (NOT (NULL (IGNORE-ERRORS))) EQL-OK: NIL (NOT (IGNORE-ERRORS T)) EQL-OK: NIL (NOT (LET ((RESULT (MULTIPLE-VALUE-LIST (IGNORE-ERRORS (ERROR "error"))))) (AND (NULL (FIRST RESULT)) (TYPEP (SECOND RESULT) 'SIMPLE-ERROR)))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (IGNORE-ERRORS 'A 'B 'C (VALUES 'D 'E))) '(D E))) EQL-OK: NIL (NOT (LET ((RESULT (MULTIPLE-VALUE-LIST (IGNORE-ERRORS (SIGNAL 'SIMPLE-ERROR :FORMAT-CONTROL "error" :FORMAT-ARGUMENTS NIL))))) (AND (NULL (FIRST RESULT)) (TYPEP (SECOND RESULT) 'SIMPLE-ERROR)))) EQL-OK: NIL (NOT (EQ (IGNORE-ERRORS (SIGNAL "only signal") 'OK) 'OK)) EQL-OK: NIL (NOT (EQ (BLOCK TAG (HANDLER-BIND ((CONDITION #'(LAMBDA (C) (DECLARE (IGNORE C)) (RETURN-FROM TAG 'HANDLED)))) (IGNORE-ERRORS (ERROR 'SIMPLE-CONDITION :FORMAT-CONTROL "only condition" :FORMAT-ARGUMENTS NIL)))) 'HANDLED)) EQL-OK: NIL (NOT (LET ((RESULT (MULTIPLE-VALUE-LIST (IGNORE-ERRORS (WARN 'SIMPLE-ERROR :FORMAT-CONTROL "an error, not a warning" :FORMAT-ARGUMENTS NIL))))) (AND (NULL (FIRST RESULT)) (TYPEP (SECOND RESULT) 'TYPE-ERROR)))) EQL-OK: NIL RUN-TEST: finished "must-condition" (0 errors out of 147 tests) RUN-TEST: started # (NOT (ARRAYP (MAKE-ARRAY NIL))) EQL-OK: NIL (NOT (ARRAYP (MAKE-ARRAY 10))) EQL-OK: NIL (NOT (VECTORP (MAKE-ARRAY 10))) EQL-OK: NIL (NOT (ARRAYP (MAKE-ARRAY '(1 2)))) EQL-OK: NIL (NOT (ARRAYP (MAKE-ARRAY '(1 2 3)))) EQL-OK: NIL (NOT (ARRAYP (MAKE-ARRAY '(1 2 3 4)))) EQL-OK: NIL (NOT (ARRAYP (MAKE-ARRAY '(1 2 3 4 5)))) EQL-OK: NIL (NOT (ARRAYP (MAKE-ARRAY '(3 3 3)))) EQL-OK: NIL (NOT (ARRAYP (MAKE-ARRAY '(3 0 3)))) EQL-OK: NIL (NOT (ARRAYP (MAKE-ARRAY '5 :ELEMENT-TYPE 'CHARACTER :DISPLACED-TO "array"))) EQL-OK: NIL (NOT (ARRAYP "")) EQL-OK: NIL (NOT (ARRAYP "array")) EQL-OK: NIL (NOT (ARRAYP (MAKE-ARRAY '(2 3 4) :ADJUSTABLE T))) EQL-OK: NIL (NOT (ARRAYP (MAKE-ARRAY 6))) EQL-OK: NIL (NOT (ARRAYP #*1011)) EQL-OK: NIL (NOT (ARRAYP "hi")) EQL-OK: NIL (NOT (NOT (ARRAYP 'HI))) EQL-OK: NIL (NOT (NOT (ARRAYP 12))) EQL-OK: NIL (NOT (LET ((ARRAY (MAKE-ARRAY '(2 3) :INITIAL-CONTENTS '((0 1 2) (3 4 5))))) (AND (EQL (AREF ARRAY 0 0) 0) (EQL (AREF ARRAY 0 1) 1) (EQL (AREF ARRAY 0 2) 2) (EQL (AREF ARRAY 1 0) 3) (EQL (AREF ARRAY 1 1) 4) (EQL (AREF ARRAY 1 2) 5)))) EQL-OK: NIL (NOT (LET ((ARRAY (MAKE-ARRAY '(3 2 1) :INITIAL-CONTENTS '(((0) (1)) ((2) (3)) ((4) (5)))))) (AND (EQL (AREF ARRAY 0 0 0) 0) (EQL (AREF ARRAY 0 1 0) 1) (EQL (AREF ARRAY 1 0 0) 2) (EQL (AREF ARRAY 1 1 0) 3) (EQL (AREF ARRAY 2 0 0) 4) (EQL (AREF ARRAY 2 1 0) 5)))) EQL-OK: NIL (NOT (LET ((ARRAY (MAKE-ARRAY '(2 2 2 2) :INITIAL-CONTENTS '((((0 1) (2 3)) ((4 5) (6 7))) (((8 9) (10 11)) ((12 13) (14 15))))))) (AND (EQL (AREF ARRAY 0 0 0 0) 0) (EQL (AREF ARRAY 0 0 0 1) 1) (EQL (AREF ARRAY 0 0 1 0) 2) (EQL (AREF ARRAY 0 0 1 1) 3) (EQL (AREF ARRAY 0 1 0 0) 4) (EQL (AREF ARRAY 0 1 0 1) 5) (EQL (AREF ARRAY 0 1 1 0) 6) (EQL (AREF ARRAY 0 1 1 1) 7) (EQL (AREF ARRAY 1 0 0 0) 8) (EQL (AREF ARRAY 1 0 0 1) 9) (EQL (AREF ARRAY 1 0 1 0) 10) (EQL (AREF ARRAY 1 0 1 1) 11) (EQL (AREF ARRAY 1 1 0 0) 12) (EQL (AREF ARRAY 1 1 0 1) 13) (EQL (AREF ARRAY 1 1 1 0) 14) (EQL (AREF ARRAY 1 1 1 1) 15)))) EQL-OK: NIL (NOT (LET ((ARRAY (MAKE-ARRAY '(3 3 3 3 3 3) :INITIAL-ELEMENT NIL))) (DOTIMES (I 729) (SETF (ROW-MAJOR-AREF ARRAY I) I)) (DOTIMES (I 729 T) (UNLESS (= (AREF ARRAY (FLOOR I (* 3 3 3 3 3)) (FLOOR (MOD I (* 3 3 3 3 3)) (* 3 3 3 3)) (FLOOR (MOD I (* 3 3 3 3)) (* 3 3 3)) (FLOOR (MOD I (* 3 3 3)) (* 3 3)) (FLOOR (MOD I (* 3 3)) (* 3)) (MOD I 3)) I) (RETURN NIL))))) EQL-OK: NIL (NOT (ZEROP (AREF (MAKE-ARRAY 'NIL :INITIAL-CONTENTS 0)))) EQL-OK: NIL (NOT (LET ((ARRAY (MAKE-ARRAY 10 :INITIAL-CONTENTS '(0 1 2 3 4 5 6 7 8 9))) (OK T)) (DOTIMES (I 10) (UNLESS (EQL (AREF ARRAY I) I) (SETQ OK NIL) (RETURN))) OK)) EQL-OK: NIL (NOT (LET ((ARRAY (VECTOR 0 1 2 3 4 5 6 7 8 9)) (OK T)) (DOTIMES (I 10) (UNLESS (EQL (AREF ARRAY I) I) (SETQ OK NIL) (RETURN))) OK)) EQL-OK: NIL (NOT (LET ((ARRAY "0123456789") (OK T)) (DOTIMES (I 10) (UNLESS (CHAR= (AREF ARRAY I) (CHAR "0123456789" I)) (SETQ OK NIL) (RETURN))) OK)) EQL-OK: NIL (NOT (LET ((ARRAY (MAKE-ARRAY '(2 3) :INITIAL-CONTENTS '((0 1 2) (3 4 5))))) (EQUAL (ARRAY-DIMENSIONS ARRAY) '(2 3)))) EQL-OK: NIL (NOT (EQUAL (ARRAY-DIMENSIONS (MAKE-ARRAY 4)) '(4))) EQL-OK: NIL (NOT (EQUAL (ARRAY-DIMENSIONS (MAKE-ARRAY '(2 3))) '(2 3))) EQL-OK: NIL (NOT (EQUAL (ARRAY-DIMENSIONS (MAKE-ARRAY 4 :FILL-POINTER 2)) '(4))) EQL-OK: NIL (NOT (EQUAL (ARRAY-DIMENSIONS (MAKE-ARRAY '(2 3 4 5 6))) '(2 3 4 5 6))) EQL-OK: NIL (NOT (EQL (ARRAY-DIMENSION (MAKE-ARRAY 4) 0) 4)) EQL-OK: NIL (NOT (EQL (ARRAY-DIMENSION (MAKE-ARRAY '(2 3)) 1) 3)) EQL-OK: NIL (NOT (EQL (ARRAY-DIMENSION (MAKE-ARRAY '(2 3 4)) 2) 4)) EQL-OK: NIL (NOT (EQ (ARRAY-ELEMENT-TYPE (MAKE-ARRAY 4)) T)) EQL-OK: NIL (NOT (EQUAL (ARRAY-ELEMENT-TYPE (MAKE-ARRAY 12 :ELEMENT-TYPE '(UNSIGNED-BYTE 8))) (UPGRADED-ARRAY-ELEMENT-TYPE '(UNSIGNED-BYTE 8)))) EQL-OK: NIL (NOT (LET ((ARRAY (MAKE-ARRAY 'NIL))) (MULTIPLE-VALUE-BIND (DISPLACED-TO DISPLACED-INDEX-OFFSET) (ARRAY-DISPLACEMENT ARRAY) (AND (NOT DISPLACED-TO) (ZEROP DISPLACED-INDEX-OFFSET))))) EQL-OK: NIL (NOT (LET ((ARRAY (MAKE-ARRAY '10))) (MULTIPLE-VALUE-BIND (DISPLACED-TO DISPLACED-INDEX-OFFSET) (ARRAY-DISPLACEMENT ARRAY) (AND (NOT DISPLACED-TO) (ZEROP DISPLACED-INDEX-OFFSET))))) EQL-OK: NIL (NOT (LET ((ARRAY (MAKE-ARRAY '(2 3) :INITIAL-CONTENTS '((0 1 2) (3 4 5))))) (MULTIPLE-VALUE-BIND (DISPLACED-TO DISPLACED-INDEX-OFFSET) (ARRAY-DISPLACEMENT ARRAY) (AND (NOT DISPLACED-TO) (ZEROP DISPLACED-INDEX-OFFSET))))) EQL-OK: NIL (NOT (LET* ((SOURCE (MAKE-ARRAY '(2 5) :INITIAL-CONTENTS '((1 2 3 4 5) (11 12 13 14 15)))) (ARRAY (MAKE-ARRAY 10 :DISPLACED-TO SOURCE))) (MULTIPLE-VALUE-BIND (DISPLACED-TO DISPLACED-INDEX-OFFSET) (ARRAY-DISPLACEMENT ARRAY) (AND (EQ DISPLACED-TO SOURCE) (ZEROP DISPLACED-INDEX-OFFSET))))) EQL-OK: NIL (NOT (LET* ((SOURCE (MAKE-ARRAY '10 :INITIAL-ELEMENT 0)) (ARRAY (MAKE-ARRAY '(5 2) :DISPLACED-TO SOURCE))) (MULTIPLE-VALUE-BIND (DISPLACED-TO DISPLACED-INDEX-OFFSET) (ARRAY-DISPLACEMENT ARRAY) (AND (EQ DISPLACED-TO SOURCE) (ZEROP DISPLACED-INDEX-OFFSET))))) EQL-OK: NIL (NOT (LET* ((E0-0 (LIST 0 0)) (E0-1 (LIST 0 1)) (E1-0 (LIST 1 0)) (E1-1 (LIST 1 1)) (SOURCE (MAKE-ARRAY '(2 2) :INITIAL-CONTENTS (LIST (LIST E0-0 E0-1) (LIST E1-0 E1-1)))) (ARRAY (MAKE-ARRAY 4 :DISPLACED-TO SOURCE))) (MULTIPLE-VALUE-BIND (DISPLACED-TO DISPLACED-INDEX-OFFSET) (ARRAY-DISPLACEMENT ARRAY) (AND (EQ DISPLACED-TO SOURCE) (ZEROP DISPLACED-INDEX-OFFSET) (EQ (AREF ARRAY 0) E0-0) (EQ (AREF ARRAY 1) E0-1) (EQ (AREF ARRAY 2) E1-0) (EQ (AREF ARRAY 3) E1-1))))) EQL-OK: NIL (NOT (LET* ((E0-0 (LIST 0 0)) (E0-1 (LIST 0 1)) (E1-0 (LIST 1 0)) (E1-1 (LIST 1 1)) (SOURCE (MAKE-ARRAY '(2 2) :INITIAL-CONTENTS (LIST (LIST E0-0 E0-1) (LIST E1-0 E1-1)))) (ARRAY (MAKE-ARRAY 2 :DISPLACED-TO SOURCE :DISPLACED-INDEX-OFFSET 1))) (MULTIPLE-VALUE-BIND (DISPLACED-TO DISPLACED-INDEX-OFFSET) (ARRAY-DISPLACEMENT ARRAY) (AND (EQ DISPLACED-TO SOURCE) (EQL DISPLACED-INDEX-OFFSET 1) (EQ (AREF ARRAY 0) E0-1) (EQ (AREF ARRAY 1) E1-0))))) EQL-OK: NIL (NOT (LET ((ARRAY (MAKE-ARRAY 4 :ELEMENT-TYPE 'CHARACTER :DISPLACED-TO "0123456789" :DISPLACED-INDEX-OFFSET 6))) (MULTIPLE-VALUE-BIND (DISPLACED-TO DISPLACED-INDEX-OFFSET) (ARRAY-DISPLACEMENT ARRAY) (AND (STRING= DISPLACED-TO "0123456789") (EQL DISPLACED-INDEX-OFFSET 6) (EQL (AREF ARRAY 0) #\6) (EQL (AREF ARRAY 1) #\7) (EQL (AREF ARRAY 2) #\8) (EQL (AREF ARRAY 3) #\9))))) EQL-OK: NIL (NOT (LET ((ARRAY (MAKE-ARRAY '(1 2 5) :ELEMENT-TYPE 'CHARACTER :DISPLACED-TO "0123456789"))) (MULTIPLE-VALUE-BIND (DISPLACED-TO DISPLACED-INDEX-OFFSET) (ARRAY-DISPLACEMENT ARRAY) (AND (STRING= DISPLACED-TO "0123456789") (EQL DISPLACED-INDEX-OFFSET 0) (EQL (AREF ARRAY 0 0 0) #\0) (EQL (AREF ARRAY 0 0 1) #\1) (EQL (AREF ARRAY 0 0 2) #\2) (EQL (AREF ARRAY 0 0 3) #\3) (EQL (AREF ARRAY 0 0 4) #\4) (EQL (AREF ARRAY 0 1 0) #\5) (EQL (AREF ARRAY 0 1 1) #\6) (EQL (AREF ARRAY 0 1 2) #\7) (EQL (AREF ARRAY 0 1 3) #\8) (EQL (AREF ARRAY 0 1 4) #\9))))) EQL-OK: NIL (NOT (LET* ((SOURCE (MAKE-ARRAY '(2 5) :INITIAL-CONTENTS '("love&" "peace") :ELEMENT-TYPE 'CHARACTER)) (ARRAY (MAKE-ARRAY 10 :DISPLACED-TO SOURCE :ELEMENT-TYPE 'CHARACTER))) (MULTIPLE-VALUE-BIND (DISPLACED-TO DISPLACED-INDEX-OFFSET) (ARRAY-DISPLACEMENT ARRAY) (AND (EQ DISPLACED-TO SOURCE) (EQL DISPLACED-INDEX-OFFSET 0) (STRING= ARRAY "love&peace"))))) EQL-OK: NIL (NOT (ARRAY-IN-BOUNDS-P (MAKE-ARRAY 5) 4)) EQL-OK: NIL (NOT (NOT (ARRAY-IN-BOUNDS-P (MAKE-ARRAY 5) -1))) EQL-OK: NIL (NOT (LET ((A (MAKE-ARRAY '(7 11) :ELEMENT-TYPE 'STRING-CHAR))) (AND (ARRAY-IN-BOUNDS-P A 0 0) (ARRAY-IN-BOUNDS-P A 6 10) (NOT (ARRAY-IN-BOUNDS-P A 0 -1)) (NOT (ARRAY-IN-BOUNDS-P A 0 11)) (NOT (ARRAY-IN-BOUNDS-P A 7 0))))) EQL-OK: NIL (NOT (LET ((ARRAY (MAKE-ARRAY '(2 3) :INITIAL-CONTENTS '((0 1 2) (3 4 5))))) (EQL (ARRAY-RANK ARRAY) 2))) EQL-OK: NIL (NOT (ZEROP (ARRAY-RANK (MAKE-ARRAY 'NIL)))) EQL-OK: NIL (NOT (EQL (ARRAY-RANK (MAKE-ARRAY 10)) 1)) EQL-OK: NIL (NOT (EQL (ARRAY-RANK (MAKE-ARRAY '(2 10))) 2)) EQL-OK: NIL (NOT (EQL (ARRAY-RANK (MAKE-ARRAY '(2 10 1))) 3)) EQL-OK: NIL (NOT (EQL (ARRAY-RANK (MAKE-ARRAY '(2 10 1 3))) 4)) EQL-OK: NIL (NOT (EQL (ARRAY-RANK "") 1)) EQL-OK: NIL (NOT (EQL (ARRAY-RANK "a") 1)) EQL-OK: NIL (NOT (ZEROP (ARRAY-ROW-MAJOR-INDEX (MAKE-ARRAY 'NIL)))) EQL-OK: NIL (NOT (ZEROP (ARRAY-ROW-MAJOR-INDEX (MAKE-ARRAY '5) 0))) EQL-OK: NIL (NOT (EQL (ARRAY-ROW-MAJOR-INDEX (MAKE-ARRAY '5) 4) 4)) EQL-OK: NIL (NOT (EQL (ARRAY-ROW-MAJOR-INDEX (MAKE-ARRAY '10) 3) 3)) EQL-OK: NIL (NOT (ZEROP (ARRAY-ROW-MAJOR-INDEX (MAKE-ARRAY '(3 4)) 0 0))) EQL-OK: NIL (NOT (EQL (ARRAY-ROW-MAJOR-INDEX (MAKE-ARRAY '(3 4)) 2 3) 11)) EQL-OK: NIL (NOT (ZEROP (ARRAY-ROW-MAJOR-INDEX (MAKE-ARRAY '(3 4 5)) 0 0 0))) EQL-OK: NIL (NOT (EQL (ARRAY-ROW-MAJOR-INDEX (MAKE-ARRAY '(3 4 5)) 2 3 4) 59)) EQL-OK: NIL (NOT (LET ((ARRAY (MAKE-ARRAY '(2 3) :INITIAL-CONTENTS '((0 1 2) (3 4 5))))) (EQL (ARRAY-TOTAL-SIZE ARRAY) 6))) EQL-OK: NIL (NOT (EQL (ARRAY-TOTAL-SIZE (MAKE-ARRAY 4)) 4)) EQL-OK: NIL (NOT (EQL (ARRAY-TOTAL-SIZE (MAKE-ARRAY 4 :FILL-POINTER 2)) 4)) EQL-OK: NIL (NOT (EQL (ARRAY-TOTAL-SIZE (MAKE-ARRAY 0)) 0)) EQL-OK: NIL (NOT (EQL (ARRAY-TOTAL-SIZE (MAKE-ARRAY '(4 2))) 8)) EQL-OK: NIL (NOT (EQL (ARRAY-TOTAL-SIZE (MAKE-ARRAY '(4 0))) 0)) EQL-OK: NIL (NOT (EQL (ARRAY-TOTAL-SIZE (MAKE-ARRAY 'NIL)) 1)) EQL-OK: NIL (NOT (EQL (ARRAY-TOTAL-SIZE (MAKE-ARRAY '(2 3 4 5))) (* 2 3 4 5))) EQL-OK: NIL (NOT (LET ((ARRAY (MAKE-ARRAY 10 :INITIAL-CONTENTS '(0 1 2 3 4 5 6 7 8 9) :FILL-POINTER 0))) (DOTIMES (I 10 T) (UNLESS (EQL (AREF ARRAY I) I) (RETURN NIL))))) EQL-OK: NIL (NOT (LET ((ARRAY (MAKE-ARRAY '(10 10) :ELEMENT-TYPE 'NUMBER :INITIAL-ELEMENT 0))) (DOTIMES (I 10) (DOTIMES (J 10) (UNLESS (ZEROP (AREF ARRAY I J)) (RETURN NIL)) (SETF (AREF ARRAY I J) (+ (* I 10) J)))) (DOTIMES (I 100 T) (UNLESS (EQL (ROW-MAJOR-AREF ARRAY I) I) (RETURN NIL))))) EQL-OK: NIL (NOT (LET ((ARRAY (MAKE-ARRAY 'NIL))) (SETF (AREF ARRAY) 100) (EQL (AREF ARRAY) 100))) EQL-OK: NIL (NOT (LET ((ARRAY (MAKE-ARRAY 10 :INITIAL-CONTENTS '(A B C D E F G H I J)))) (SETF (AREF ARRAY 0) #\a) (SETF (AREF ARRAY 2) #\c) (SETF (AREF ARRAY 4) #\e) (SETF (AREF ARRAY 6) #\g) (SETF (AREF ARRAY 8) #\i) (AND (EQL (AREF ARRAY 0) #\a) (EQL (AREF ARRAY 1) 'B) (EQL (AREF ARRAY 2) #\c) (EQL (AREF ARRAY 3) 'D) (EQL (AREF ARRAY 4) #\e) (EQL (AREF ARRAY 5) 'F) (EQL (AREF ARRAY 6) #\g) (EQL (AREF ARRAY 7) 'H) (EQL (AREF ARRAY 8) #\i) (EQL (AREF ARRAY 9) 'J)))) EQL-OK: NIL (NOT (LET ((ARRAY (VECTOR 'A 'B 'C 'D 'E 'F 'G 'H 'I 'J))) (SETF (AREF ARRAY 0) #\a) (SETF (AREF ARRAY 2) #\c) (SETF (AREF ARRAY 4) #\e) (SETF (AREF ARRAY 6) #\g) (SETF (AREF ARRAY 8) #\i) (AND (EQL (AREF ARRAY 0) #\a) (EQL (AREF ARRAY 1) 'B) (EQL (AREF ARRAY 2) #\c) (EQL (AREF ARRAY 3) 'D) (EQL (AREF ARRAY 4) #\e) (EQL (AREF ARRAY 5) 'F) (EQL (AREF ARRAY 6) #\g) (EQL (AREF ARRAY 7) 'H) (EQL (AREF ARRAY 8) #\i) (EQL (AREF ARRAY 9) 'J)))) EQL-OK: NIL (NOT (LET ((ARRAY (MAKE-ARRAY '(3 4 5) :INITIAL-ELEMENT 0 :ELEMENT-TYPE 'NUMBER))) (SETF (AREF ARRAY 0 0 0) 0) (SETF (AREF ARRAY 1 1 1) 1) (SETF (AREF ARRAY 2 2 2) 2) (DOTIMES (I 3 T) (UNLESS (EQL (AREF ARRAY I I I) I) (RETURN NIL))))) EQL-OK: NIL (NOT (LET* ((ARRAY (MAKE-ARRAY '(3 4 5 6 7) :INITIAL-ELEMENT 0 :ELEMENT-TYPE 'NUMBER)) (ARRAY2 (MAKE-ARRAY (* 3 4 5 6 7) :DISPLACED-TO ARRAY))) (SETF (AREF ARRAY 2 3 4 5 6) 100) (SETF (AREF ARRAY 0 0 0 0 0) 200) (EQL (REDUCE #'+ ARRAY2) 300))) EQL-OK: NIL (NOT (ADJUSTABLE-ARRAY-P (MAKE-ARRAY 5 :ELEMENT-TYPE 'CHARACTER :ADJUSTABLE T :FILL-POINTER 3))) EQL-OK: NIL (NOT (LET ((ARRAY (ADJUST-ARRAY (MAKE-ARRAY '(2 3) :INITIAL-CONTENTS '((0 1 2) (3 4 5)) :ADJUSTABLE T) '(3 2) :INITIAL-ELEMENT 'UNDEFINED))) (AND (EQL (AREF ARRAY 0 0) 0) (EQL (AREF ARRAY 0 1) 1) (EQL (AREF ARRAY 1 0) 3) (EQL (AREF ARRAY 1 1) 4) (EQL (AREF ARRAY 2 0) 'UNDEFINED) (EQL (AREF ARRAY 2 1) 'UNDEFINED)))) EQL-OK: NIL (NOT (LET ((ARRAY (ADJUST-ARRAY (MAKE-ARRAY '(2 3) :INITIAL-CONTENTS '((0 1 2) (3 4 5)) :ADJUSTABLE T) '(3 2) :INITIAL-ELEMENT 'UNDEFINED))) (EQUAL (ARRAY-DIMENSIONS ARRAY) '(3 2)))) EQL-OK: NIL (NOT (LET ((ARRAY (ADJUST-ARRAY (MAKE-ARRAY '(2 3) :INITIAL-CONTENTS '((0 1 2) (3 4 5)) :ADJUSTABLE T) '(3 2) :INITIAL-ELEMENT 'UNDEFINED))) (NOT (ARRAY-HAS-FILL-POINTER-P ARRAY)))) EQL-OK: NIL (NOT (LET ((ARRAY (MAKE-ARRAY '(2 3) :INITIAL-CONTENTS '((0 1 2) (3 4 5))))) (NOT (ARRAY-HAS-FILL-POINTER-P ARRAY)))) EQL-OK: NIL (NOT (ARRAY-HAS-FILL-POINTER-P (MAKE-ARRAY 10 :FILL-POINTER 0))) EQL-OK: NIL (NOT (ARRAY-HAS-FILL-POINTER-P (MAKE-ARRAY 8 :FILL-POINTER 0 :INITIAL-ELEMENT 8))) EQL-OK: NIL (NOT (NOT (ARRAY-HAS-FILL-POINTER-P (MAKE-ARRAY '(2 3 4))))) EQL-OK: NIL (NOT (LET ((ARRAY (ADJUST-ARRAY (MAKE-ARRAY '(2 3) :INITIAL-CONTENTS '((0 1 2) (3 4 5)) :ADJUSTABLE T) '(3 2) :INITIAL-ELEMENT 'UNDEFINED))) (MULTIPLE-VALUE-BIND (DISPLACED-TO DISPLACED-INDEX-OFFSET) (ARRAY-DISPLACEMENT ARRAY) (AND (NOT DISPLACED-TO) (ZEROP DISPLACED-INDEX-OFFSET))))) EQL-OK: NIL (NOT (LET ((ARRAY (ADJUST-ARRAY (MAKE-ARRAY '(2 3) :INITIAL-CONTENTS '((0 1 2) (3 4 5)) :ADJUSTABLE T) '(3 2) :INITIAL-ELEMENT 'UNDEFINED))) (EQL (ARRAY-RANK ARRAY) 2))) EQL-OK: NIL (NOT (LET ((ARRAY (ADJUST-ARRAY (MAKE-ARRAY '(2 3) :INITIAL-CONTENTS '((0 1 2) (3 4 5)) :ADJUSTABLE T) '(3 2) :INITIAL-ELEMENT 'UNDEFINED))) (EQL (ARRAY-TOTAL-SIZE ARRAY) 6))) EQL-OK: NIL (NOT (EQL (FILL-POINTER (MAKE-ARRAY 8 :FILL-POINTER 4)) 4)) EQL-OK: NIL (NOT (LET ((ARRAY (MAKE-ARRAY 8 :FILL-POINTER 4 :INITIAL-ELEMENT NIL))) (AND (EQL (LENGTH ARRAY) 4) (SETF (FILL-POINTER ARRAY) 3) (EQL (FILL-POINTER ARRAY) 3) (EQL (LENGTH ARRAY) 3)))) EQL-OK: NIL (NOT (LET ((VECTOR (MAKE-ARRAY 10 :FILL-POINTER 0 :INITIAL-ELEMENT #\ :ELEMENT-TYPE 'CHARACTER))) (AND (EQL (VECTOR-PUSH #\a VECTOR) 0) (EQL (VECTOR-PUSH #\b VECTOR) 1) (EQL (VECTOR-PUSH #\c VECTOR) 2) (STRING= VECTOR "abc")))) EQL-OK: NIL (NOT (LET ((VECTOR (MAKE-ARRAY 3 :FILL-POINTER T :INITIAL-CONTENTS '(A B C)))) (AND (EQL (ARRAY-DIMENSION VECTOR 0) (FILL-POINTER VECTOR)) (EQUAL (CONCATENATE 'LIST VECTOR) '(A B C)) (ZEROP (SETF (FILL-POINTER VECTOR) 0)) (NULL (CONCATENATE 'LIST VECTOR)) (EQL (VECTOR-PUSH 'X VECTOR) 0) (EQUAL (CONCATENATE 'LIST VECTOR) '(X)) (EQ (VECTOR-POP VECTOR) 'X) (ZEROP (LENGTH VECTOR))))) EQL-OK: NIL (NOT (LET ((VECTOR (MAKE-ARRAY 10 :FILL-POINTER 0 :INITIAL-ELEMENT NIL))) (AND (EQL (LENGTH VECTOR) 0) (SETF (FILL-POINTER VECTOR) 10) (EQL (LENGTH VECTOR) 10) (SETF (FILL-POINTER VECTOR) 5) (EQL (LENGTH VECTOR) 5)))) EQL-OK: NIL (NOT (LET ((ARRAY (MAKE-ARRAY '(3 2 1) :INITIAL-CONTENTS '(((0) (1)) ((2) (3)) ((4) (5)))))) (AND (EQL (AREF ARRAY 0 0 0) (ROW-MAJOR-AREF ARRAY 0)) (EQL (AREF ARRAY 0 1 0) (ROW-MAJOR-AREF ARRAY 1)) (EQL (AREF ARRAY 1 0 0) (ROW-MAJOR-AREF ARRAY 2)) (EQL (AREF ARRAY 1 1 0) (ROW-MAJOR-AREF ARRAY 3)) (EQL (AREF ARRAY 2 0 0) (ROW-MAJOR-AREF ARRAY 4)) (EQL (AREF ARRAY 2 1 0) (ROW-MAJOR-AREF ARRAY 5))))) EQL-OK: NIL (NOT (LET ((ARRAY (MAKE-ARRAY '(3 2 1) :INITIAL-CONTENTS '(((0) (1)) ((2) (3)) ((4) (5)))))) (AND (EQL 0 (ROW-MAJOR-AREF ARRAY 0)) (EQL 1 (ROW-MAJOR-AREF ARRAY 1)) (EQL 2 (ROW-MAJOR-AREF ARRAY 2)) (EQL 3 (ROW-MAJOR-AREF ARRAY 3)) (EQL 4 (ROW-MAJOR-AREF ARRAY 4)) (EQL 5 (ROW-MAJOR-AREF ARRAY 5))))) EQL-OK: NIL (NOT (LET* ((ARRAY0 (MAKE-ARRAY '(3 2 1) :INITIAL-CONTENTS '(((0) (1)) ((2) (3)) ((4) (5))))) (ARRAY1 (MAKE-ARRAY 6 :DISPLACED-TO ARRAY0))) (AND (EQL (AREF ARRAY1 0) (ROW-MAJOR-AREF ARRAY0 0)) (EQL (AREF ARRAY1 1) (ROW-MAJOR-AREF ARRAY0 1)) (EQL (AREF ARRAY1 2) (ROW-MAJOR-AREF ARRAY0 2)) (EQL (AREF ARRAY1 3) (ROW-MAJOR-AREF ARRAY0 3)) (EQL (AREF ARRAY1 4) (ROW-MAJOR-AREF ARRAY0 4)) (EQL (AREF ARRAY1 5) (ROW-MAJOR-AREF ARRAY0 5))))) EQL-OK: NIL (NOT (LET* ((ARRAY0 (MAKE-ARRAY 6 :ELEMENT-TYPE 'CHARACTER :INITIAL-CONTENTS "abcdef")) (ARRAY1 (MAKE-ARRAY '(3 2 1) :DISPLACED-TO ARRAY0 :ELEMENT-TYPE 'CHARACTER))) (AND (EQL (AREF ARRAY0 0) (ROW-MAJOR-AREF ARRAY1 0)) (EQL (AREF ARRAY0 1) (ROW-MAJOR-AREF ARRAY1 1)) (EQL (AREF ARRAY0 2) (ROW-MAJOR-AREF ARRAY1 2)) (EQL (AREF ARRAY0 3) (ROW-MAJOR-AREF ARRAY1 3)) (EQL (AREF ARRAY0 4) (ROW-MAJOR-AREF ARRAY1 4)) (EQL (AREF ARRAY0 5) (ROW-MAJOR-AREF ARRAY1 5))))) EQL-OK: NIL (NOT (LET* ((ARRAY0 (MAKE-ARRAY 6 :ELEMENT-TYPE 'CHARACTER :INITIAL-CONTENTS "abcdef")) (ARRAY1 (MAKE-ARRAY '(3 2 1) :DISPLACED-TO ARRAY0 :ELEMENT-TYPE 'CHARACTER))) (AND (EQL #\a (ROW-MAJOR-AREF ARRAY1 0)) (EQL #\b (ROW-MAJOR-AREF ARRAY1 1)) (EQL #\c (ROW-MAJOR-AREF ARRAY1 2)) (EQL #\d (ROW-MAJOR-AREF ARRAY1 3)) (EQL #\e (ROW-MAJOR-AREF ARRAY1 4)) (EQL #\f (ROW-MAJOR-AREF ARRAY1 5))))) EQL-OK: NIL (NOT (LET ((ARRAY (MAKE-ARRAY '(3 2 1) :INITIAL-ELEMENT NIL))) (SETF (ROW-MAJOR-AREF ARRAY 0) 'A) (SETF (ROW-MAJOR-AREF ARRAY 1) 'B) (SETF (ROW-MAJOR-AREF ARRAY 2) 'C) (SETF (ROW-MAJOR-AREF ARRAY 3) 'D) (SETF (ROW-MAJOR-AREF ARRAY 4) 'E) (AND (EQL (AREF ARRAY 0 0 0) 'A) (EQL (AREF ARRAY 0 1 0) 'B) (EQL (AREF ARRAY 1 0 0) 'C) (EQL (AREF ARRAY 1 1 0) 'D) (EQL (AREF ARRAY 2 0 0) 'E) (EQL (AREF ARRAY 2 1 0) 'NIL)))) EQL-OK: NIL (NOT (LET ((STR "abcdefg")) (DOTIMES (I 7 T) (UNLESS (EQL (CHAR STR 0) (ROW-MAJOR-AREF STR 0)) (RETURN NIL))))) EQL-OK: NIL (NOT (LET ((STR (MAKE-ARRAY 5 :INITIAL-CONTENTS "abcde"))) (DOTIMES (I 3) (SETF (ROW-MAJOR-AREF STR I) (ROW-MAJOR-AREF STR (- 4 I)))) (AND (CHAR= (ROW-MAJOR-AREF STR 0) #\e) (CHAR= (ROW-MAJOR-AREF STR 1) #\d) (CHAR= (ROW-MAJOR-AREF STR 2) #\c) (CHAR= (ROW-MAJOR-AREF STR 3) #\d) (CHAR= (ROW-MAJOR-AREF STR 4) #\e)))) EQL-OK: NIL (NOT (EQ (UPGRADED-ARRAY-ELEMENT-TYPE T) T)) EQL-OK: NIL (NOT (AND (SUBTYPEP (UPGRADED-ARRAY-ELEMENT-TYPE 'BIT) 'BIT) (SUBTYPEP 'BIT (UPGRADED-ARRAY-ELEMENT-TYPE 'BIT)))) EQL-OK: NIL (NOT (AND (SUBTYPEP (UPGRADED-ARRAY-ELEMENT-TYPE 'BASE-CHAR) 'BASE-CHAR) (SUBTYPEP 'BASE-CHAR (UPGRADED-ARRAY-ELEMENT-TYPE 'BASE-CHAR)))) EQL-OK: NIL (NOT (AND (SUBTYPEP (UPGRADED-ARRAY-ELEMENT-TYPE 'CHARACTER) 'CHARACTER) (SUBTYPEP 'CHARACTER (UPGRADED-ARRAY-ELEMENT-TYPE 'CHARACTER)))) EQL-OK: NIL (NOT (SIMPLE-VECTOR-P (MAKE-ARRAY 6))) EQL-OK: NIL (NOT (NOT (SIMPLE-VECTOR-P "aaaaaa"))) EQL-OK: NIL (NOT (LET ((SV (MAKE-ARRAY 10))) (DOTIMES (I 10) (SETF (SVREF SV I) (* I I))) (DOTIMES (I 10 T) (UNLESS (EQL (SVREF SV I) (* I I)) (RETURN NIL))))) EQL-OK: NIL (NOT (LET ((SV (VECTOR 'A 'B 'C 'D 'E 'F))) (AND (EQ (SVREF SV 0) 'A) (EQ (SVREF SV 1) 'B) (EQ (SVREF SV 2) 'C) (EQ (SVREF SV 3) 'D) (EQ (SVREF SV 4) 'E) (EQ (SVREF SV 5) 'F)))) EQL-OK: NIL (NOT (LET ((SV (MAKE-ARRAY 3 :INITIAL-CONTENTS '(1 2 LAST)))) (AND (SIMPLE-VECTOR-P SV) (EQ (SVREF SV 2) 'LAST) (EQL (SVREF SV 1) 2) (EQL (SVREF SV 0) 1) (EQL (SETF (SVREF SV 1) 'LAST-BUT-ONE) 'LAST-BUT-ONE) (EQ (SVREF SV 1) 'LAST-BUT-ONE)))) EQL-OK: NIL (NOT (LET ((VEC (VECTOR 1 2 'LAST))) (AND (ARRAYP VEC) (VECTORP VEC) (SIMPLE-VECTOR-P VEC) (EQL (LENGTH VEC) 3) (EQUAL (CONCATENATE 'LIST VEC) '(1 2 LAST))))) EQL-OK: NIL (NOT (EQ (VECTOR-POP (MAKE-ARRAY 3 :INITIAL-CONTENTS '(A B C) :FILL-POINTER T)) 'C)) EQL-OK: NIL (NOT (EQ (VECTOR-POP (MAKE-ARRAY 3 :INITIAL-CONTENTS '(A B C) :FILL-POINTER 3)) 'C)) EQL-OK: NIL (NOT (EQ (VECTOR-POP (MAKE-ARRAY 3 :INITIAL-CONTENTS '(A B C) :FILL-POINTER 2)) 'B)) EQL-OK: NIL (NOT (EQ (VECTOR-POP (MAKE-ARRAY 3 :INITIAL-CONTENTS '(A B C) :FILL-POINTER 1)) 'A)) EQL-OK: NIL (NOT (LET ((VEC (MAKE-ARRAY 3 :FILL-POINTER 0))) (AND (EQL (VECTOR-PUSH 'A VEC) 0) (EQL (VECTOR-PUSH 'B VEC) 1) (EQL (VECTOR-PUSH 'C VEC) 2) (EQ (VECTOR-POP VEC) 'C) (EQ (VECTOR-POP VEC) 'B) (EQ (VECTOR-POP VEC) 'A)))) EQL-OK: NIL (NOT (LET ((VEC (MAKE-ARRAY 3 :FILL-POINTER T :INITIAL-CONTENTS '(A B C)))) (AND (SETF (FILL-POINTER VEC) 1) (EQL (VECTOR-PUSH 'Y VEC) 1) (EQL (VECTOR-PUSH 'Z VEC) 2) (EQ (VECTOR-POP VEC) 'Z) (EQ (VECTOR-POP VEC) 'Y) (EQ (VECTOR-POP VEC) 'A) (EQL (FILL-POINTER VEC) 0)))) EQL-OK: NIL (NOT (LET ((VEC (MAKE-ARRAY 3 :FILL-POINTER T :INITIAL-CONTENTS '(A B C)))) (AND (NOT (VECTOR-PUSH 'X VEC)) (NOT (VECTOR-PUSH 'Y VEC)) (EQL (SETF (FILL-POINTER VEC) 0) 0) (EQL (VECTOR-PUSH 'X VEC) 0) (EQL (VECTOR-PUSH 'Y VEC) 1) (EQL (VECTOR-PUSH 'Z VEC) 2) (NOT (VECTOR-PUSH 'L VEC))))) EQL-OK: NIL (NOT (LET ((VEC (MAKE-ARRAY 3 :FILL-POINTER 2 :INITIAL-CONTENTS '(A B L) :ADJUSTABLE T))) (AND (EQL (LENGTH VEC) 2) (EQL (VECTOR-PUSH-EXTEND 'C VEC) 2) (EQL (LENGTH VEC) 3) (EQ (VECTOR-POP VEC) 'C) (EQL (VECTOR-PUSH-EXTEND 'C VEC) 2) (EQL (VECTOR-PUSH-EXTEND 'X VEC) 3) (EQL (VECTOR-PUSH-EXTEND 'Y VEC) 4) (EQL (VECTOR-PUSH-EXTEND 'Z VEC) 5) (EQL (LENGTH VEC) 6)))) EQL-OK: NIL (NOT (LET ((VEC (MAKE-ARRAY 0 :FILL-POINTER T :ADJUSTABLE T))) (DOTIMES (I 50) (VECTOR-PUSH-EXTEND (* I I) VEC)) (DOTIMES (I 50 T) (UNLESS (EQL (VECTOR-POP VEC) (* (- 49 I) (- 49 I))) (RETURN NIL))))) EQL-OK: NIL (NOT (LET ((VEC (MAKE-ARRAY 10 :ELEMENT-TYPE 'CHARACTER :INITIAL-CONTENTS "abcdefghij" :ADJUSTABLE T :FILL-POINTER T))) (AND (EQL (VECTOR-PUSH-EXTEND #\x VEC) 10) (EQL (VECTOR-PUSH-EXTEND #\y VEC) 11) (EQL (VECTOR-PUSH-EXTEND #\z VEC) 12) (STRING= VEC "abcdefghijxyz")))) EQL-OK: NIL (NOT (VECTORP "aaaaaa")) EQL-OK: NIL (NOT (VECTORP (MAKE-ARRAY 6 :FILL-POINTER T))) EQL-OK: NIL (NOT (NOT (VECTORP (MAKE-ARRAY '(2 3 4))))) EQL-OK: NIL (NOT (VECTORP #*11)) EQL-OK: NIL (NOT (NOT (VECTORP 3))) EQL-OK: NIL (NOT (VECTORP (MAKE-ARRAY 3 :DISPLACED-TO "abc" :ELEMENT-TYPE 'CHARACTER))) EQL-OK: NIL (NOT (EQL (BIT (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-ELEMENT 1) 3) 1)) EQL-OK: NIL (NOT (EQL (SBIT (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-ELEMENT 1) 3) 1)) EQL-OK: NIL (NOT (LET ((BA (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(0 1 0 1 0 1 0 1)))) (DOTIMES (I 8 T) (UNLESS (OR (AND (EVENP I) (ZEROP (BIT BA I))) (AND (ODDP I) (EQL (BIT BA I) 1))) (RETURN NIL))))) EQL-OK: NIL (NOT (LET ((BA (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(0 1 0 1 0 1 0 1)))) (DOTIMES (I 8 T) (UNLESS (OR (AND (EVENP I) (ZEROP (SBIT BA I))) (AND (ODDP I) (EQL (SBIT BA I) 1))) (RETURN NIL))))) EQL-OK: NIL (NOT (LET ((BA (MAKE-ARRAY '(3 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '((0 1 0) (1 0 1) (0 1 0))))) (AND (ZEROP (BIT BA 0 0)) (EQL (BIT BA 0 1) 1) (ZEROP (BIT BA 0 2)) (EQL (BIT BA 1 0) 1) (ZEROP (BIT BA 1 1)) (EQL (BIT BA 1 2) 1) (ZEROP (BIT BA 2 0)) (EQL (BIT BA 2 1) 1) (ZEROP (BIT BA 2 2))))) EQL-OK: NIL (NOT (LET ((BA (MAKE-ARRAY '(3 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '((0 1 0) (1 0 1) (0 1 0))))) (AND (ZEROP (SBIT BA 0 0)) (EQL (SBIT BA 0 1) 1) (ZEROP (SBIT BA 0 2)) (EQL (SBIT BA 1 0) 1) (ZEROP (SBIT BA 1 1)) (EQL (SBIT BA 1 2) 1) (ZEROP (SBIT BA 2 0)) (EQL (SBIT BA 2 1) 1) (ZEROP (SBIT BA 2 2))))) EQL-OK: NIL (NOT (LET ((BA (MAKE-ARRAY '(3 3 3) :ELEMENT-TYPE 'BIT))) (DOTIMES (I (* 3 3 3)) (SETF (BIT BA (FLOOR I 9) (FLOOR (MOD I 9) 3) (MOD I 3)) (IF (EVENP I) 0 1))) (DOTIMES (I (* 3 3 3) T) (UNLESS (EQL (ROW-MAJOR-AREF BA I) (IF (EVENP I) 0 1)) (RETURN NIL))))) EQL-OK: NIL (NOT (LET ((BA (MAKE-ARRAY '(3 3 3) :ELEMENT-TYPE 'BIT))) (DOTIMES (I (* 3 3 3)) (SETF (SBIT BA (FLOOR I 9) (FLOOR (MOD I 9) 3) (MOD I 3)) (IF (EVENP I) 0 1))) (DOTIMES (I (* 3 3 3) T) (UNLESS (EQL (ROW-MAJOR-AREF BA I) (IF (EVENP I) 0 1)) (RETURN NIL))))) EQL-OK: NIL (NOT (LET ((BA (MAKE-ARRAY '(1 2 3 4 5) :ELEMENT-TYPE 'BIT))) (DOTIMES (I (* 1 2 3 4 5)) (SETF (BIT BA (FLOOR I (* 1 2 3 4 5)) (FLOOR (MOD I (* 2 3 4 5)) (* 3 4 5)) (FLOOR (MOD I (* 3 4 5)) (* 4 5)) (FLOOR (MOD I (* 4 5)) 5) (MOD I 5)) (IF (EVENP I) 0 1))) (DOTIMES (I (* 1 2 3 4 5) T) (UNLESS (EQL (ROW-MAJOR-AREF BA I) (IF (EVENP I) 0 1)) (RETURN NIL))))) EQL-OK: NIL (NOT (LET ((BA (MAKE-ARRAY '(1 2 3 4 5) :ELEMENT-TYPE 'BIT))) (DOTIMES (I (* 1 2 3 4 5)) (SETF (SBIT BA (FLOOR I (* 1 2 3 4 5)) (FLOOR (MOD I (* 2 3 4 5)) (* 3 4 5)) (FLOOR (MOD I (* 3 4 5)) (* 4 5)) (FLOOR (MOD I (* 4 5)) 5) (MOD I 5)) (IF (EVENP I) 0 1))) (DOTIMES (I (* 1 2 3 4 5) T) (UNLESS (EQL (ROW-MAJOR-AREF BA I) (IF (EVENP I) 0 1)) (RETURN NIL))))) EQL-OK: NIL (NOT (LET ((BA (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-ELEMENT 1))) (AND (EQL (SETF (BIT BA 3) 0) 0) (EQL (BIT BA 3) 0) (EQL (SBIT BA 5) 1) (EQL (SETF (SBIT BA 5) 0) 0) (EQL (SBIT BA 5) 0)))) EQL-OK: NIL (NOT (LET ((BA (MAKE-ARRAY 10 :ELEMENT-TYPE 'BIT :FILL-POINTER 0))) (DOTIMES (I 10) (VECTOR-PUSH (IF (ODDP I) 0 1) BA)) (DOTIMES (I 10 T) (UNLESS (AND (EQL (BIT BA I) (IF (ODDP I) 0 1)) (OR (NOT (SIMPLE-VECTOR-P BA)) (EQL (SBIT BA I) (IF (ODDP I) 0 1))) (EQL (AREF BA I) (IF (ODDP I) 0 1))) (RETURN NIL))))) EQL-OK: NIL (NOT (LET ((BA (MAKE-ARRAY 10 :ELEMENT-TYPE 'BIT :FILL-POINTER 0))) (DOTIMES (I 10) (VECTOR-PUSH (IF (ODDP I) 0 1) BA)) (DOTIMES (J 10 T) (LET ((I (- 9 J))) (UNLESS (AND (EQL (BIT BA I) (IF (ODDP I) 0 1)) (OR (NOT (SIMPLE-VECTOR-P BA)) (EQL (SBIT BA I) (IF (ODDP I) 0 1))) (EQL (AREF BA I) (IF (ODDP I) 0 1)) (EQL (VECTOR-POP BA) (IF (ODDP I) 0 1))) (RETURN NIL)))))) EQL-OK: NIL (NOT (EQUAL (BIT-AND #*11101010 #*01101011) #*01101010)) EQL-OK: NIL (NOT (EQUAL (BIT-AND #*11101010 #*01101011 NIL) #*01101010)) EQL-OK: NIL (NOT (EQUAL (BIT-AND (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010) #*01101011 T) #*01101010)) EQL-OK: NIL (NOT (EQUAL (BIT-AND #*11101010 #*01101011 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) #*01101010)) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01101011)) (BA (BIT-AND BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUAL BA #*01101010)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01010101)) (BA (BIT-AND BA1 #*10101010 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*00000000)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA (BIT-AND BA1 #*00111110 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*00110000)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*00111110)) (BA3 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) (BA4 (BIT-AND BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUAL BA3 #*00110000) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) EQL-OK: NIL (NOT (EQUALP (BIT-AND (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))) EQL-OK: NIL (NOT (EQUALP (BIT-AND (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) NIL) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))) EQL-OK: NIL (NOT (EQUALP (BIT-AND (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) T) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))) EQL-OK: NIL (NOT (EQUALP (BIT-AND (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-AND BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUALP BA (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-AND BA1 BA2 T))) (AND (EQ BA1 BA) (EQUALP BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (BA4 (BIT-AND BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUALP BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000))) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) EQL-OK: NIL (NOT (EQUAL (BIT-ANDC1 #*11101010 #*01101011) #*00000001)) EQL-OK: NIL (NOT (EQUAL (BIT-ANDC1 #*11101010 #*01101011 NIL) #*00000001)) EQL-OK: NIL (NOT (EQUAL (BIT-ANDC1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010) #*01101011 T) #*00000001)) EQL-OK: NIL (NOT (EQUAL (BIT-ANDC1 #*11101010 #*01101011 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) #*00000001)) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01101011)) (BA (BIT-ANDC1 BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUAL BA #*00000001)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01010101)) (BA (BIT-ANDC1 BA1 #*10101010 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*10101010)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA (BIT-ANDC1 BA1 #*00111110 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*00001110)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*00111110)) (BA3 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) (BA4 (BIT-ANDC1 BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUAL BA3 #*00001110) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) EQL-OK: NIL (NOT (EQUALP (BIT-ANDC1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))) EQL-OK: NIL (NOT (EQUALP (BIT-ANDC1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) NIL) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))) EQL-OK: NIL (NOT (EQUALP (BIT-ANDC1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) T) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))) EQL-OK: NIL (NOT (EQUALP (BIT-ANDC1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-ANDC1 BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUALP BA (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-ANDC1 BA1 BA2 T))) (AND (EQ BA1 BA) (EQUALP BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (BA4 (BIT-ANDC1 BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUALP BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) EQL-OK: NIL (NOT (EQUAL (BIT-ANDC2 #*11101010 #*01101011) #*10000000)) EQL-OK: NIL (NOT (EQUAL (BIT-ANDC2 #*11101010 #*01101011 NIL) #*10000000)) EQL-OK: NIL (NOT (EQUAL (BIT-ANDC2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010) #*01101011 T) #*10000000)) EQL-OK: NIL (NOT (EQUAL (BIT-ANDC2 #*11101010 #*01101011 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) #*10000000)) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01101011)) (BA (BIT-ANDC2 BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUAL BA #*10000000)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01010101)) (BA (BIT-ANDC2 BA1 #*10101010 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*01010101)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA (BIT-ANDC2 BA1 #*00111110 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*01000001)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*00111110)) (BA3 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) (BA4 (BIT-ANDC2 BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUAL BA3 #*01000001) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) EQL-OK: NIL (NOT (EQUALP (BIT-ANDC2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)))) EQL-OK: NIL (NOT (EQUALP (BIT-ANDC2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) NIL) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)))) EQL-OK: NIL (NOT (EQUALP (BIT-ANDC2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) T) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)))) EQL-OK: NIL (NOT (EQUALP (BIT-ANDC2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-ANDC2 BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUALP BA (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)))))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-ANDC2 BA1 BA2 T))) (AND (EQ BA1 BA) (EQUALP BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)))))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (BA4 (BIT-ANDC2 BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUALP BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) EQL-OK: NIL (NOT (EQUAL (BIT-EQV #*11101010 #*01101011) #*01111110)) EQL-OK: NIL (NOT (EQUAL (BIT-EQV #*11101010 #*01101011 NIL) #*01111110)) EQL-OK: NIL (NOT (EQUAL (BIT-EQV (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010) #*01101011 T) #*01111110)) EQL-OK: NIL (NOT (EQUAL (BIT-EQV #*11101010 #*01101011 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) #*01111110)) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01101011)) (BA (BIT-EQV BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUAL BA #*01111110)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01010101)) (BA (BIT-EQV BA1 #*10101010 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*00000000)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA (BIT-EQV BA1 #*00111110 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*10110000)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*00111110)) (BA3 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) (BA4 (BIT-EQV BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUAL BA3 #*10110000) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) EQL-OK: NIL (NOT (EQUALP (BIT-EQV (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))) EQL-OK: NIL (NOT (EQUALP (BIT-EQV (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) NIL) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))) EQL-OK: NIL (NOT (EQUALP (BIT-EQV (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) T) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))) EQL-OK: NIL (NOT (EQUALP (BIT-EQV (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-EQV BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUALP BA (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-EQV BA1 BA2 T))) (AND (EQ BA1 BA) (EQUALP BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (BA4 (BIT-EQV BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUALP BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000))) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) EQL-OK: NIL (NOT (EQUAL (BIT-IOR #*11101010 #*01101011) #*11101011)) EQL-OK: NIL (NOT (EQUAL (BIT-IOR #*11101010 #*01101011 NIL) #*11101011)) EQL-OK: NIL (NOT (EQUAL (BIT-IOR (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010) #*01101011 T) #*11101011)) EQL-OK: NIL (NOT (EQUAL (BIT-IOR #*11101010 #*01101011 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) #*11101011)) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01101011)) (BA (BIT-IOR BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUAL BA #*11101011)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01010101)) (BA (BIT-IOR BA1 #*10101010 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*11111111)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA (BIT-IOR BA1 #*00111110 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*01111111)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*00111110)) (BA3 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) (BA4 (BIT-IOR BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUAL BA3 #*01111111) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) EQL-OK: NIL (NOT (EQUALP (BIT-IOR (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))) EQL-OK: NIL (NOT (EQUALP (BIT-IOR (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) NIL) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))) EQL-OK: NIL (NOT (EQUALP (BIT-IOR (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) T) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))) EQL-OK: NIL (NOT (EQUALP (BIT-IOR (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-IOR BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUALP BA (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-IOR BA1 BA2 T))) (AND (EQ BA1 BA) (EQUALP BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (BA4 (BIT-IOR BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUALP BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111))) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) EQL-OK: NIL (NOT (EQUAL (BIT-NAND #*11101010 #*01101011) #*10010101)) EQL-OK: NIL (NOT (EQUAL (BIT-NAND #*11101010 #*01101011 NIL) #*10010101)) EQL-OK: NIL (NOT (EQUAL (BIT-NAND (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010) #*01101011 T) #*10010101)) EQL-OK: NIL (NOT (EQUAL (BIT-NAND #*11101010 #*01101011 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) #*10010101)) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01101011)) (BA (BIT-NAND BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUAL BA #*10010101)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01010101)) (BA (BIT-NAND BA1 #*10101010 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*11111111)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA (BIT-NAND BA1 #*00111110 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*11001111)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*00111110)) (BA3 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) (BA4 (BIT-NAND BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUAL BA3 #*11001111) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) EQL-OK: NIL (NOT (EQUALP (BIT-NAND (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))) EQL-OK: NIL (NOT (EQUALP (BIT-NAND (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) NIL) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))) EQL-OK: NIL (NOT (EQUALP (BIT-NAND (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) T) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))) EQL-OK: NIL (NOT (EQUALP (BIT-NAND (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-NAND BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUALP BA (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-NAND BA1 BA2 T))) (AND (EQ BA1 BA) (EQUALP BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (BA4 (BIT-NAND BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUALP BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111))) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) EQL-OK: NIL (NOT (EQUAL (BIT-NOR #*11101010 #*01101011) #*00010100)) EQL-OK: NIL (NOT (EQUAL (BIT-NOR #*11101010 #*01101011 NIL) #*00010100)) EQL-OK: NIL (NOT (EQUAL (BIT-NOR (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010) #*01101011 T) #*00010100)) EQL-OK: NIL (NOT (EQUAL (BIT-NOR #*11101010 #*01101011 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) #*00010100)) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01101011)) (BA (BIT-NOR BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUAL BA #*00010100)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01010101)) (BA (BIT-NOR BA1 #*10101010 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*00000000)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA (BIT-NOR BA1 #*00111110 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*10000000)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*00111110)) (BA3 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) (BA4 (BIT-NOR BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUAL BA3 #*10000000) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) EQL-OK: NIL (NOT (EQUALP (BIT-NOR (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))) EQL-OK: NIL (NOT (EQUALP (BIT-NOR (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) NIL) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))) EQL-OK: NIL (NOT (EQUALP (BIT-NOR (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) T) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))) EQL-OK: NIL (NOT (EQUALP (BIT-NOR (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-NOR BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUALP BA (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-NOR BA1 BA2 T))) (AND (EQ BA1 BA) (EQUALP BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000)))))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (BA4 (BIT-NOR BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUALP BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*000 #*000))) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) EQL-OK: NIL (NOT (EQUAL (BIT-ORC1 #*11101010 #*01101011) #*01111111)) EQL-OK: NIL (NOT (EQUAL (BIT-ORC1 #*11101010 #*01101011 NIL) #*01111111)) EQL-OK: NIL (NOT (EQUAL (BIT-ORC1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010) #*01101011 T) #*01111111)) EQL-OK: NIL (NOT (EQUAL (BIT-ORC1 #*11101010 #*01101011 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) #*01111111)) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01101011)) (BA (BIT-ORC1 BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUAL BA #*01111111)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01010101)) (BA (BIT-ORC1 BA1 #*10101010 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*10101010)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA (BIT-ORC1 BA1 #*00111110 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*10111110)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*00111110)) (BA3 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) (BA4 (BIT-ORC1 BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUAL BA3 #*10111110) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) EQL-OK: NIL (NOT (EQUALP (BIT-ORC1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))) EQL-OK: NIL (NOT (EQUALP (BIT-ORC1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) NIL) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))) EQL-OK: NIL (NOT (EQUALP (BIT-ORC1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) T) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))) EQL-OK: NIL (NOT (EQUALP (BIT-ORC1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-ORC1 BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUALP BA (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-ORC1 BA1 BA2 T))) (AND (EQ BA1 BA) (EQUALP BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (BA4 (BIT-ORC1 BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUALP BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) EQL-OK: NIL (NOT (EQUAL (BIT-ORC2 #*11101010 #*01101011) #*11111110)) EQL-OK: NIL (NOT (EQUAL (BIT-ORC2 #*11101010 #*01101011 NIL) #*11111110)) EQL-OK: NIL (NOT (EQUAL (BIT-ORC2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010) #*01101011 T) #*11111110)) EQL-OK: NIL (NOT (EQUAL (BIT-ORC2 #*11101010 #*01101011 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) #*11111110)) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01101011)) (BA (BIT-ORC2 BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUAL BA #*11111110)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01010101)) (BA (BIT-ORC2 BA1 #*10101010 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*01010101)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA (BIT-ORC2 BA1 #*00111110 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*11110001)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*00111110)) (BA3 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) (BA4 (BIT-ORC2 BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUAL BA3 #*11110001) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) EQL-OK: NIL (NOT (EQUALP (BIT-ORC2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)))) EQL-OK: NIL (NOT (EQUALP (BIT-ORC2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) NIL) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)))) EQL-OK: NIL (NOT (EQUALP (BIT-ORC2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) T) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)))) EQL-OK: NIL (NOT (EQUALP (BIT-ORC2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-ORC2 BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUALP BA (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)))))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-ORC2 BA1 BA2 T))) (AND (EQ BA1 BA) (EQUALP BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)))))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (BA4 (BIT-ORC2 BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUALP BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) EQL-OK: NIL (NOT (EQUAL (BIT-XOR #*11101010 #*01101011) #*10000001)) EQL-OK: NIL (NOT (EQUAL (BIT-XOR #*11101010 #*01101011 NIL) #*10000001)) EQL-OK: NIL (NOT (EQUAL (BIT-XOR (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010) #*01101011 T) #*10000001)) EQL-OK: NIL (NOT (EQUAL (BIT-XOR #*11101010 #*01101011 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) #*10000001)) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01101011)) (BA (BIT-XOR BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUAL BA #*10000001)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01010101)) (BA (BIT-XOR BA1 #*10101010 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*11111111)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA (BIT-XOR BA1 #*00111110 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*01001111)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*00111110)) (BA3 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) (BA4 (BIT-XOR BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUAL BA3 #*01001111) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) EQL-OK: NIL (NOT (EQUALP (BIT-XOR (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))) EQL-OK: NIL (NOT (EQUALP (BIT-XOR (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) NIL) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))) EQL-OK: NIL (NOT (EQUALP (BIT-XOR (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) T) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))) EQL-OK: NIL (NOT (EQUALP (BIT-XOR (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-XOR BA1 BA2))) (AND (NOT (EQ BA1 BA)) (NOT (EQ BA2 BA)) (NOT (EQ BA1 BA2)) (EQUALP BA (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA (BIT-XOR BA1 BA2 T))) (AND (EQ BA1 BA) (EQUALP BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111)))))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA2 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (BA4 (BIT-XOR BA1 BA2 BA3))) (AND (EQ BA3 BA4) (EQUALP BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*111 #*111))) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4)) (NOT (EQ BA2 BA3)) (NOT (EQ BA2 BA4))))) EQL-OK: NIL (NOT (EQUAL (BIT-NOT #*11101010) #*00010101)) EQL-OK: NIL (NOT (EQUAL (BIT-NOT #*11101010 NIL) #*00010101)) EQL-OK: NIL (NOT (EQUAL (BIT-NOT (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010) T) #*00010101)) EQL-OK: NIL (NOT (EQUAL (BIT-NOT #*11101010 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) #*00010101)) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*11101010)) (BA (BIT-NOT BA1))) (AND (NOT (EQ BA1 BA)) (EQUAL BA #*00010101)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01010101)) (BA (BIT-NOT BA1 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*10101010)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA (BIT-NOT BA1 T))) (AND (EQ BA1 BA) (EQUAL BA1 #*10001110)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*01110001)) (BA2 (MAKE-ARRAY 8 :ELEMENT-TYPE 'BIT)) (BA3 (BIT-NOT BA1 BA2))) (AND (EQ BA2 BA3) (EQUAL BA2 #*10001110) (NOT (EQ BA1 BA2)) (NOT (EQ BA1 BA3))))) EQL-OK: NIL (NOT (EQUALP (BIT-NOT (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))) EQL-OK: NIL (NOT (EQUALP (BIT-NOT (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) NIL) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))) EQL-OK: NIL (NOT (EQUALP (BIT-NOT (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) T) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))) EQL-OK: NIL (NOT (EQUALP (BIT-NOT (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA (BIT-NOT BA1))) (AND (NOT (EQ BA1 BA)) (EQUALP BA (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA (BIT-NOT BA1 T))) (AND (EQ BA1 BA) (EQUALP BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010)))))) EQL-OK: NIL (NOT (LET* ((BA1 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*010 #*101))) (BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT)) (BA4 (BIT-NOT BA1 BA3))) (AND (EQ BA3 BA4) (EQUALP BA3 (MAKE-ARRAY '(2 3) :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(#*101 #*010))) (NOT (EQ BA1 BA3)) (NOT (EQ BA1 BA4))))) EQL-OK: NIL (NOT (BIT-VECTOR-P (MAKE-ARRAY 6 :ELEMENT-TYPE 'BIT :FILL-POINTER T))) EQL-OK: NIL (NOT (BIT-VECTOR-P #*)) EQL-OK: NIL (NOT (NOT (BIT-VECTOR-P (MAKE-ARRAY 6)))) EQL-OK: NIL (NOT (NOT (SIMPLE-BIT-VECTOR-P (MAKE-ARRAY 6)))) EQL-OK: NIL (NOT (SIMPLE-BIT-VECTOR-P #*)) EQL-OK: NIL (NOT (SIMPLE-BIT-VECTOR-P #*0101)) EQL-OK: NIL (NOT (SIMPLE-BIT-VECTOR-P #*0)) EQL-OK: NIL (NOT (SIMPLE-BIT-VECTOR-P #*1)) EQL-OK: NIL (NOT (SIMPLE-BIT-VECTOR-P (MAKE-ARRAY 6 :ELEMENT-TYPE 'BIT))) EQL-OK: NIL (NOT (EQUAL (CONCATENATE 'LIST (ADJUST-ARRAY (MAKE-ARRAY 5 :INITIAL-CONTENTS '(0 1 2 3 4)) 10 :INITIAL-ELEMENT -1)) '(0 1 2 3 4 -1 -1 -1 -1 -1))) EQL-OK: NIL (NOT (LET* ((ARRAY0 (MAKE-ARRAY '(3 2) :INITIAL-CONTENTS '((E0-0 E0-1) (E1-0 E1-1) (E2-0 E2-1)))) (ARRAY (ADJUST-ARRAY ARRAY0 '(4 3) :INITIAL-ELEMENT 0))) (AND (EQ (AREF ARRAY 0 0) 'E0-0) (EQ (AREF ARRAY 0 1) 'E0-1) (EQL (AREF ARRAY 0 2) '0) (EQ (AREF ARRAY 1 0) 'E1-0) (EQ (AREF ARRAY 1 1) 'E1-1) (EQL (AREF ARRAY 1 2) 0) (EQ (AREF ARRAY 2 0) 'E2-0) (EQ (AREF ARRAY 2 1) 'E2-1) (EQL (AREF ARRAY 2 2) 0)))) EQL-OK: NIL (NOT (LET* ((ARRAY0 (MAKE-ARRAY '(3 2) :INITIAL-CONTENTS '((E0-0 E0-1) (E1-0 E1-1) (E2-0 E2-1)))) (ARRAY (ADJUST-ARRAY ARRAY0 '(1 1) :INITIAL-ELEMENT 0))) (EQ (AREF ARRAY 0 0) 'E0-0))) EQL-OK: NIL (NOT (LET* ((ARRAY0 (MAKE-ARRAY '(3 2) :INITIAL-ELEMENT 0)) (ARRAY1 (MAKE-ARRAY 6 :INITIAL-ELEMENT 1)) (ARRAY (ADJUST-ARRAY ARRAY1 3 :DISPLACED-TO ARRAY0))) (AND (EQUAL (ARRAY-DIMENSIONS ARRAY) '(3)) (EVERY #'ZEROP ARRAY)))) EQL-OK: NIL (NOT (LET* ((ARRAY0 (MAKE-ARRAY '(3 2) :INITIAL-CONTENTS '((0 1) (2 3) (4 5)))) (ARRAY1 (MAKE-ARRAY 6 :INITIAL-ELEMENT 1)) (ARRAY (ADJUST-ARRAY ARRAY1 3 :DISPLACED-TO ARRAY0 :DISPLACED-INDEX-OFFSET 3))) (AND (EQUAL (ARRAY-DIMENSIONS ARRAY) '(3)) (EQL (AREF ARRAY 0) 3) (EQL (AREF ARRAY 1) 4) (EQL (AREF ARRAY 2) 5)))) EQL-OK: NIL (NOT (LET* ((ARRAY0 (MAKE-ARRAY '(3 2) :INITIAL-CONTENTS '((0 1) (2 3) (4 5)))) (ARRAY1 (MAKE-ARRAY 6 :DISPLACED-TO ARRAY0)) (ARRAY (ADJUST-ARRAY ARRAY1 9 :INITIAL-ELEMENT '-1))) (AND (EQUAL (ARRAY-DIMENSIONS ARRAY) '(9)) (MULTIPLE-VALUE-BIND (DISPLACED-TO DISPLACED-INDEX-OFFSET) (ARRAY-DISPLACEMENT ARRAY) (AND (NULL DISPLACED-TO) (ZEROP DISPLACED-INDEX-OFFSET))) (EQL (AREF ARRAY 0) 0) (EQL (AREF ARRAY 1) 1) (EQL (AREF ARRAY 2) 2) (EQL (AREF ARRAY 3) 3) (EQL (AREF ARRAY 4) 4) (EQL (AREF ARRAY 5) 5) (EQL (AREF ARRAY 6) -1) (EQL (AREF ARRAY 7) -1) (EQL (AREF ARRAY 8) -1)))) EQL-OK: NIL (NOT (LET* ((ARRAY0 (MAKE-ARRAY '(4 4) :ADJUSTABLE T :INITIAL-CONTENTS '((ALPHA BETA GAMMA DELTA) (EPSILON ZETA ETA THETA) (IOTA KAPPA LAMBDA MU) (NU XI OMICRON PI)))) (ARRAY (ADJUST-ARRAY ARRAY0 '(3 5) :INITIAL-ELEMENT 'BAZ))) (EQUALP ARRAY #2A((ALPHA BETA GAMMA DELTA BAZ) (EPSILON ZETA ETA THETA BAZ) (IOTA KAPPA LAMBDA MU BAZ))))) EQL-OK: NIL (NOT (LET* ((ARRAY0 (MAKE-ARRAY 3 :INITIAL-ELEMENT 0)) (ARRAY1 (MAKE-ARRAY 3 :ADJUSTABLE T :DISPLACED-TO ARRAY0)) (ARRAY2 (MAKE-ARRAY 3 :DISPLACED-TO ARRAY1))) (AND (ADJUSTABLE-ARRAY-P ARRAY1) (EQ ARRAY1 (ADJUST-ARRAY ARRAY1 6 :INITIAL-CONTENTS '(A B C D E F))) (MULTIPLE-VALUE-BIND (DISPLACED-TO DISPLACED-INDEX-OFFSET) (ARRAY-DISPLACEMENT ARRAY1) (AND (NULL DISPLACED-TO) (ZEROP DISPLACED-INDEX-OFFSET))) (EQ (AREF ARRAY1 0) 'A) (EQ (AREF ARRAY1 1) 'B) (EQ (AREF ARRAY1 2) 'C) (EQ (AREF ARRAY1 3) 'D) (EQ (AREF ARRAY1 4) 'E) (EQ (AREF ARRAY1 5) 'F) (EQ (AREF ARRAY2 0) 'A) (EQ (AREF ARRAY2 1) 'B) (EQ (AREF ARRAY2 2) 'C)))) EQL-OK: NIL (NOT (LET* ((STR0 (MAKE-ARRAY 10 :ELEMENT-TYPE 'CHARACTER :INITIAL-CONTENTS "abcdefghij")) (STR1 (MAKE-ARRAY 7 :ADJUSTABLE T :ELEMENT-TYPE 'CHARACTER :DISPLACED-TO STR0 :DISPLACED-INDEX-OFFSET 3)) (STR2 (MAKE-ARRAY 3 :ELEMENT-TYPE 'CHARACTER :DISPLACED-TO STR1 :DISPLACED-INDEX-OFFSET 4))) (AND (STRING= STR0 "abcdefghij") (STRING= STR1 "defghij") (STRING= STR2 "hij") (ADJUSTABLE-ARRAY-P STR1) (EQ STR1 (ADJUST-ARRAY STR1 10 :INITIAL-CONTENTS "QRSTUVWXYZ")) (STRING= STR2 "UVW")))) EQL-OK: NIL (NOT (LET* ((BV (MAKE-ARRAY 10 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #*1010101010 :FILL-POINTER T))) (AND (DOTIMES (I 10 T) (UNLESS (EQL (VECTOR-POP BV) (IF (EVENP I) 0 1)) (RETURN NIL))) (ZEROP (LENGTH BV))))) EQL-OK: NIL (NOT (LET* ((BV (MAKE-ARRAY 10 :ADJUSTABLE T :ELEMENT-TYPE 'BIT :FILL-POINTER 0))) (DOTIMES (I 100) (VECTOR-PUSH-EXTEND (IF (ODDP I) 0 1) BV)) (DOTIMES (I 100 T) (UNLESS (EQL (VECTOR-POP BV) (IF (ODDP I) 1 0)) (RETURN NIL))))) EQL-OK: NIL (NOT (LET* ((STR (MAKE-ARRAY 10 :ELEMENT-TYPE 'CHARACTER :INITIAL-CONTENTS "abcdefghjk" :FILL-POINTER T))) (AND (DOTIMES (I 10 T) (UNLESS (CHAR= (VECTOR-POP STR) (AREF "kjhgfedcba" I)) (RETURN NIL))) (ZEROP (LENGTH STR))))) EQL-OK: NIL (NOT (LET* ((STR (MAKE-ARRAY 10 :ADJUSTABLE T :ELEMENT-TYPE 'CHARACTER :FILL-POINTER 0))) (DOTIMES (I 100) (VECTOR-PUSH-EXTEND (IF (ODDP I) #\a #\z) STR)) (DOTIMES (I 100 T) (UNLESS (CHAR= (VECTOR-POP STR) (IF (ODDP I) #\z #\a)) (RETURN NIL))))) EQL-OK: NIL RUN-TEST: finished "must-array" (0 errors out of 330 tests) RUN-TEST: started # (NOT (CHAR= #\d #\d)) EQL-OK: NIL (NOT (NOT (CHAR= #\A #\a))) EQL-OK: NIL (NOT (NOT (CHAR= #\d #\x))) EQL-OK: NIL (NOT (NOT (CHAR= #\d #\D))) EQL-OK: NIL (NOT (NOT (CHAR/= #\d #\d))) EQL-OK: NIL (NOT (CHAR/= #\d #\x)) EQL-OK: NIL (NOT (CHAR/= #\d #\D)) EQL-OK: NIL (NOT (CHAR= #\d #\d #\d #\d)) EQL-OK: NIL (NOT (NOT (CHAR/= #\d #\d #\d #\d))) EQL-OK: NIL (NOT (NOT (CHAR= #\d #\d #\x #\d))) EQL-OK: NIL (NOT (NOT (CHAR/= #\d #\d #\x #\d))) EQL-OK: NIL (NOT (NOT (CHAR= #\d #\y #\x #\c))) EQL-OK: NIL (NOT (CHAR/= #\d #\y #\x #\c)) EQL-OK: NIL (NOT (NOT (CHAR= #\d #\c #\d))) EQL-OK: NIL (NOT (NOT (CHAR/= #\d #\c #\d))) EQL-OK: NIL (NOT (CHAR< #\d #\x)) EQL-OK: NIL (NOT (CHAR<= #\d #\x)) EQL-OK: NIL (NOT (NOT (CHAR< #\d #\d))) EQL-OK: NIL (NOT (CHAR<= #\d #\d)) EQL-OK: NIL (NOT (CHAR< #\a #\e #\y #\z)) EQL-OK: NIL (NOT (CHAR<= #\a #\e #\y #\z)) EQL-OK: NIL (NOT (NOT (CHAR< #\a #\e #\e #\y))) EQL-OK: NIL (NOT (CHAR<= #\a #\e #\e #\y)) EQL-OK: NIL (NOT (CHAR> #\e #\d)) EQL-OK: NIL (NOT (CHAR>= #\e #\d)) EQL-OK: NIL (NOT (CHAR> #\d #\c #\b #\a)) EQL-OK: NIL (NOT (CHAR>= #\d #\c #\b #\a)) EQL-OK: NIL (NOT (NOT (CHAR> #\d #\d #\c #\a))) EQL-OK: NIL (NOT (CHAR>= #\d #\d #\c #\a)) EQL-OK: NIL (NOT (NOT (CHAR> #\e #\d #\b #\c #\a))) EQL-OK: NIL (NOT (NOT (CHAR>= #\e #\d #\b #\c #\a))) EQL-OK: NIL (NOT (CHAR-EQUAL #\A #\a)) EQL-OK: NIL (NOT (EQUAL (STABLE-SORT (LIST #\b #\A #\B #\a #\c #\C) #'CHAR-LESSP) '(#\A #\a #\b #\B #\c #\C))) EQL-OK: NIL (NOT (CHAR= #\a)) EQL-OK: NIL (NOT (CHAR= #\a #\a)) EQL-OK: NIL (NOT (CHAR= #\a #\a #\a)) EQL-OK: NIL (NOT (CHAR= #\a #\a #\a #\a)) EQL-OK: NIL (NOT (CHAR= #\a #\a #\a #\a #\a)) EQL-OK: NIL (NOT (CHAR= #\a #\a #\a #\a #\a #\a)) EQL-OK: NIL (NOT (LET ((C #\z)) (AND (EQ C C) (CHAR= C C)))) EQL-OK: NIL (NOT (NOT (CHAR= #\Z #\z))) EQL-OK: NIL (NOT (NOT (CHAR= #\z #\z #\z #\a))) EQL-OK: NIL (NOT (NOT (CHAR= #\a #\z #\z #\z #\a))) EQL-OK: NIL (NOT (NOT (CHAR= #\z #\i #\z #\z))) EQL-OK: NIL (NOT (NOT (CHAR= #\z #\z #\Z #\z))) EQL-OK: NIL (NOT (CHAR/= #\a)) EQL-OK: NIL (NOT (CHAR/= #\a #\b)) EQL-OK: NIL (NOT (CHAR/= #\a #\b #\c)) EQL-OK: NIL (NOT (CHAR/= #\a #\b #\c #\d)) EQL-OK: NIL (NOT (CHAR/= #\a #\b #\c #\d #\e)) EQL-OK: NIL (NOT (CHAR/= #\a #\b #\c #\d #\e #\f)) EQL-OK: NIL (NOT (LET ((C #\z)) (AND (EQ C C) (NOT (CHAR/= C C))))) EQL-OK: NIL (NOT (CHAR/= #\Z #\z)) EQL-OK: NIL (NOT (NOT (CHAR/= #\z #\z #\z #\a))) EQL-OK: NIL (NOT (NOT (CHAR= #\a #\z #\z #\z #\a))) EQL-OK: NIL (NOT (NOT (CHAR= #\z #\i #\z #\z))) EQL-OK: NIL (NOT (NOT (CHAR= #\z #\z #\Z #\z))) EQL-OK: NIL (NOT (NOT (CHAR/= #\a #\a #\b #\c))) EQL-OK: NIL (NOT (NOT (CHAR/= #\a #\b #\a #\c))) EQL-OK: NIL (NOT (NOT (CHAR/= #\a #\b #\c #\a))) EQL-OK: NIL (NOT (CHAR< #\a)) EQL-OK: NIL (NOT (CHAR< #\a #\z)) EQL-OK: NIL (NOT (CHAR< #\a #\b #\c #\d #\e #\f #\g #\h #\i #\j #\k #\l #\m #\n #\o #\p #\q #\r #\s #\t #\u #\v #\w #\x #\y #\z)) EQL-OK: NIL (NOT (NOT (CHAR< #\z #\y #\x #\w #\v #\u #\t #\s #\r #\q #\p #\o #\n #\m #\l #\k #\j #\i #\h #\g #\f #\e #\d #\c #\b #\a))) EQL-OK: NIL (NOT (CHAR< #\A #\B #\C #\D #\E #\F #\G #\H #\I #\J #\K #\L #\M #\N #\O #\P #\Q #\R #\S #\T #\U #\V #\W #\X #\Y #\Z)) EQL-OK: NIL (NOT (NOT (CHAR< #\Z #\Y #\X #\W #\V #\U #\T #\S #\R #\Q #\P #\O #\N #\M #\L #\K #\J #\I #\H #\G #\F #\E #\D #\C #\B #\A))) EQL-OK: NIL (NOT (CHAR< #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9)) EQL-OK: NIL (NOT (NOT (CHAR< #\9 #\8 #\7 #\6 #\5 #\4 #\3 #\2 #\1 #\0))) EQL-OK: NIL (NOT (OR (CHAR< #\9 #\A) (CHAR< #\Z #\0))) EQL-OK: NIL (NOT (OR (CHAR< #\9 #\a) (CHAR< #\z #\0))) EQL-OK: NIL (NOT (NOT (CHAR< #\a #\a #\b #\c))) EQL-OK: NIL (NOT (NOT (CHAR< #\a #\b #\a #\c))) EQL-OK: NIL (NOT (NOT (CHAR< #\a #\b #\c #\a))) EQL-OK: NIL (NOT (NOT (CHAR< #\9 #\0))) EQL-OK: NIL (NOT (CHAR> #\a)) EQL-OK: NIL (NOT (NOT (CHAR> #\a #\z))) EQL-OK: NIL (NOT (CHAR> #\z #\a)) EQL-OK: NIL (NOT (NOT (CHAR> #\a #\b #\c #\d #\e #\f #\g #\h #\i #\j #\k #\l #\m #\n #\o #\p #\q #\r #\s #\t #\u #\v #\w #\x #\y #\z))) EQL-OK: NIL (NOT (CHAR> #\z #\y #\x #\w #\v #\u #\t #\s #\r #\q #\p #\o #\n #\m #\l #\k #\j #\i #\h #\g #\f #\e #\d #\c #\b #\a)) EQL-OK: NIL (NOT (NOT (CHAR> #\A #\B #\C #\D #\E #\F #\G #\H #\I #\J #\K #\L #\M #\N #\O #\P #\Q #\R #\S #\T #\U #\V #\W #\X #\Y #\Z))) EQL-OK: NIL (NOT (CHAR> #\Z #\Y #\X #\W #\V #\U #\T #\S #\R #\Q #\P #\O #\N #\M #\L #\K #\J #\I #\H #\G #\F #\E #\D #\C #\B #\A)) EQL-OK: NIL (NOT (NOT (CHAR> #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9))) EQL-OK: NIL (NOT (CHAR> #\9 #\8 #\7 #\6 #\5 #\4 #\3 #\2 #\1 #\0)) EQL-OK: NIL (NOT (OR (CHAR> #\A #\9) (CHAR> #\0 #\Z))) EQL-OK: NIL (NOT (OR (CHAR> #\a #\9) (CHAR> #\0 #\z))) EQL-OK: NIL (NOT (NOT (CHAR> #\a #\a #\b #\c))) EQL-OK: NIL (NOT (NOT (CHAR> #\a #\b #\a #\c))) EQL-OK: NIL (NOT (NOT (CHAR> #\a #\b #\c #\a))) EQL-OK: NIL (NOT (CHAR> #\9 #\0)) EQL-OK: NIL (NOT (CHAR<= #\a)) EQL-OK: NIL (NOT (CHAR<= #\a #\z)) EQL-OK: NIL (NOT (CHAR<= #\a #\a)) EQL-OK: NIL (NOT (CHAR<= #\Z #\Z)) EQL-OK: NIL (NOT (CHAR<= #\a #\b #\c #\d #\e #\f #\g #\h #\i #\j #\k #\l #\m #\n #\o #\p #\q #\r #\s #\t #\u #\v #\w #\x #\y #\z)) EQL-OK: NIL (NOT (CHAR<= #\a #\a #\b #\b #\c #\c #\d #\d #\e #\e #\f #\f #\g #\g #\h #\h #\i #\i #\j #\j #\k #\k #\l #\l #\m #\m #\n #\n #\o #\o #\p #\p #\q #\q #\r #\r #\s #\s #\t #\t #\u #\u #\v #\v #\w #\w #\x #\x #\y #\y #\z #\z)) EQL-OK: NIL (NOT (NOT (CHAR<= #\z #\y #\x #\w #\v #\u #\t #\s #\r #\q #\p #\o #\n #\m #\l #\k #\j #\i #\h #\g #\f #\e #\d #\c #\b #\a))) EQL-OK: NIL (NOT (CHAR<= #\A #\B #\C #\D #\E #\F #\G #\H #\I #\J #\K #\L #\M #\N #\O #\P #\Q #\R #\S #\T #\U #\V #\W #\X #\Y #\Z)) EQL-OK: NIL (NOT (CHAR<= #\A #\B #\B #\C #\D #\E #\E #\F #\G #\H #\I #\I #\J #\K #\L #\M #\N #\N #\O #\P #\Q #\R #\S #\T #\T #\U #\V #\W #\X #\Y #\Z)) EQL-OK: NIL (NOT (NOT (CHAR<= #\Z #\Y #\X #\W #\V #\U #\T #\S #\R #\Q #\P #\O #\N #\M #\L #\K #\J #\I #\H #\G #\F #\E #\D #\C #\B #\A))) EQL-OK: NIL (NOT (CHAR<= #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9)) EQL-OK: NIL (NOT (CHAR<= #\0 #\1 #\2 #\2 #\3 #\3 #\3 #\3 #\4 #\5 #\6 #\7 #\8 #\9 #\9)) EQL-OK: NIL (NOT (NOT (CHAR<= #\9 #\8 #\7 #\6 #\5 #\4 #\3 #\2 #\1 #\0))) EQL-OK: NIL (NOT (OR (CHAR<= #\9 #\A) (CHAR<= #\Z #\0))) EQL-OK: NIL (NOT (OR (CHAR<= #\9 #\a) (CHAR<= #\z #\0))) EQL-OK: NIL (NOT (CHAR<= #\a #\a #\b #\c)) EQL-OK: NIL (NOT (NOT (CHAR<= #\a #\b #\a #\c))) EQL-OK: NIL (NOT (NOT (CHAR<= #\a #\b #\c #\a))) EQL-OK: NIL (NOT (NOT (CHAR<= #\9 #\0))) EQL-OK: NIL (NOT (CHAR>= #\a)) EQL-OK: NIL (NOT (NOT (CHAR>= #\a #\z))) EQL-OK: NIL (NOT (CHAR>= #\z #\a)) EQL-OK: NIL (NOT (CHAR>= #\a #\a)) EQL-OK: NIL (NOT (CHAR>= #\Z #\Z)) EQL-OK: NIL (NOT (NOT (CHAR>= #\a #\b #\c #\d #\e #\f #\g #\h #\i #\j #\k #\l #\m #\n #\o #\p #\q #\r #\s #\t #\u #\v #\w #\x #\y #\z))) EQL-OK: NIL (NOT (CHAR>= #\z #\y #\x #\w #\v #\u #\t #\s #\r #\q #\p #\o #\n #\m #\l #\k #\j #\i #\h #\g #\f #\e #\d #\c #\b #\a)) EQL-OK: NIL (NOT (CHAR>= #\z #\z #\y #\x #\w #\v #\u #\t #\s #\r #\q #\p #\o #\n #\n #\m #\m #\l #\k #\j #\i #\h #\g #\f #\e #\d #\c #\b #\a #\a)) EQL-OK: NIL (NOT (NOT (CHAR>= #\A #\B #\C #\D #\E #\F #\G #\H #\I #\J #\K #\L #\M #\N #\O #\P #\Q #\R #\S #\T #\U #\V #\W #\X #\Y #\Z))) EQL-OK: NIL (NOT (CHAR>= #\Z #\Y #\X #\W #\V #\U #\T #\S #\R #\Q #\P #\O #\N #\M #\L #\K #\J #\I #\H #\G #\F #\E #\D #\C #\B #\A)) EQL-OK: NIL (NOT (CHAR>= #\Z #\Y #\X #\W #\V #\U #\U #\T #\T #\S #\S #\R #\Q #\P #\O #\N #\M #\L #\K #\J #\I #\H #\H #\G #\G #\F #\F #\E #\D #\C #\B #\A)) EQL-OK: NIL (NOT (NOT (CHAR>= #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9))) EQL-OK: NIL (NOT (CHAR>= #\9 #\8 #\7 #\6 #\5 #\4 #\3 #\2 #\1 #\0)) EQL-OK: NIL (NOT (CHAR>= #\9 #\8 #\8 #\8 #\7 #\6 #\5 #\4 #\3 #\3 #\3 #\2 #\1 #\0)) EQL-OK: NIL (NOT (OR (CHAR>= #\A #\9) (CHAR>= #\0 #\Z))) EQL-OK: NIL (NOT (OR (CHAR>= #\a #\9) (CHAR>= #\0 #\z))) EQL-OK: NIL (NOT (CHAR>= #\c #\b #\a #\a)) EQL-OK: NIL (NOT (NOT (CHAR>= #\c #\b #\a #\a #\b #\c))) EQL-OK: NIL (NOT (NOT (CHAR>= #\c #\b #\a #\c))) EQL-OK: NIL (NOT (NOT (CHAR>= #\c #\b #\c #\a))) EQL-OK: NIL (NOT (CHAR>= #\9 #\0)) EQL-OK: NIL (NOT (NOT (CHAR>= #\0 #\9))) EQL-OK: NIL (NOT (CHAR-EQUAL #\a)) EQL-OK: NIL (NOT (CHAR-EQUAL #\a #\a)) EQL-OK: NIL (NOT (CHAR-EQUAL #\a #\a #\a)) EQL-OK: NIL (NOT (CHAR-EQUAL #\a #\a #\a #\a)) EQL-OK: NIL (NOT (CHAR-EQUAL #\a #\a #\a #\a #\a)) EQL-OK: NIL (NOT (CHAR-EQUAL #\a #\a #\a #\a #\a #\a)) EQL-OK: NIL (NOT (CHAR-EQUAL #\a #\A)) EQL-OK: NIL (NOT (CHAR-EQUAL #\a #\A #\a)) EQL-OK: NIL (NOT (CHAR-EQUAL #\a #\a #\A #\a)) EQL-OK: NIL (NOT (CHAR-EQUAL #\a #\a #\a #\A #\a)) EQL-OK: NIL (NOT (CHAR-EQUAL #\a #\a #\a #\a #\A #\a)) EQL-OK: NIL (NOT (LET ((C #\z)) (AND (EQ C C) (CHAR-EQUAL C C)))) EQL-OK: NIL (NOT (CHAR-EQUAL #\Z #\z)) EQL-OK: NIL (NOT (NOT (CHAR-EQUAL #\z #\z #\z #\a))) EQL-OK: NIL (NOT (NOT (CHAR-EQUAL #\a #\z #\z #\z #\a))) EQL-OK: NIL (NOT (NOT (CHAR-EQUAL #\z #\i #\z #\z))) EQL-OK: NIL (NOT (CHAR-EQUAL #\z #\z #\Z #\z)) EQL-OK: NIL (NOT (CHAR-EQUAL #\a #\A #\a #\A #\a #\A #\a #\A #\a #\A)) EQL-OK: NIL (NOT (CHAR-NOT-EQUAL #\a)) EQL-OK: NIL (NOT (CHAR-NOT-EQUAL #\a #\b)) EQL-OK: NIL (NOT (CHAR-NOT-EQUAL #\a #\b #\c)) EQL-OK: NIL (NOT (CHAR-NOT-EQUAL #\a #\b #\c #\d)) EQL-OK: NIL (NOT (CHAR-NOT-EQUAL #\a #\b #\c #\d #\e)) EQL-OK: NIL (NOT (CHAR-NOT-EQUAL #\a #\b #\c #\d #\e #\f)) EQL-OK: NIL (NOT (LET ((C #\z)) (AND (EQ C C) (NOT (CHAR-NOT-EQUAL C C))))) EQL-OK: NIL (NOT (NOT (CHAR-NOT-EQUAL #\Z #\z))) EQL-OK: NIL (NOT (NOT (CHAR-NOT-EQUAL #\z #\z #\z #\a))) EQL-OK: NIL (NOT (NOT (CHAR= #\a #\z #\z #\z #\a))) EQL-OK: NIL (NOT (NOT (CHAR= #\z #\i #\z #\z))) EQL-OK: NIL (NOT (NOT (CHAR= #\z #\z #\Z #\z))) EQL-OK: NIL (NOT (NOT (CHAR-NOT-EQUAL #\a #\a #\b #\c))) EQL-OK: NIL (NOT (NOT (CHAR-NOT-EQUAL #\a #\b #\a #\c))) EQL-OK: NIL (NOT (NOT (CHAR-NOT-EQUAL #\a #\b #\c #\a))) EQL-OK: NIL (NOT (NOT (CHAR-NOT-EQUAL #\a #\A #\a #\A))) EQL-OK: NIL (NOT (CHAR-LESSP #\a)) EQL-OK: NIL (NOT (CHAR-LESSP #\a #\z)) EQL-OK: NIL (NOT (CHAR-LESSP #\a #\b #\c #\d #\e #\f #\g #\h #\i #\j #\k #\l #\m #\n #\o #\p #\q #\r #\s #\t #\u #\v #\w #\x #\y #\z)) EQL-OK: NIL (NOT (NOT (CHAR-LESSP #\z #\y #\x #\w #\v #\u #\t #\s #\r #\q #\p #\o #\n #\m #\l #\k #\j #\i #\h #\g #\f #\e #\d #\c #\b #\a))) EQL-OK: NIL (NOT (CHAR-LESSP #\A #\B #\C #\D #\E #\F #\G #\H #\I #\J #\K #\L #\M #\N #\O #\P #\Q #\R #\S #\T #\U #\V #\W #\X #\Y #\Z)) EQL-OK: NIL (NOT (NOT (CHAR-LESSP #\Z #\Y #\X #\W #\V #\U #\T #\S #\R #\Q #\P #\O #\N #\M #\L #\K #\J #\I #\H #\G #\F #\E #\D #\C #\B #\A))) EQL-OK: NIL (NOT (CHAR-LESSP #\a #\B #\c #\D #\e #\F #\g #\H #\i #\J #\k #\L #\m #\N #\o #\P #\q #\R #\s #\T #\u #\V #\w #\X #\y #\Z)) EQL-OK: NIL (NOT (CHAR-LESSP #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9)) EQL-OK: NIL (NOT (NOT (CHAR-LESSP #\9 #\8 #\7 #\6 #\5 #\4 #\3 #\2 #\1 #\0))) EQL-OK: NIL (NOT (OR (CHAR-LESSP #\9 #\A) (CHAR-LESSP #\Z #\0))) EQL-OK: NIL (NOT (OR (CHAR-LESSP #\9 #\a) (CHAR-LESSP #\z #\0))) EQL-OK: NIL (NOT (NOT (CHAR-LESSP #\a #\a #\b #\c))) EQL-OK: NIL (NOT (NOT (CHAR-LESSP #\a #\b #\a #\c))) EQL-OK: NIL (NOT (NOT (CHAR-LESSP #\a #\b #\c #\a))) EQL-OK: NIL (NOT (NOT (CHAR-LESSP #\9 #\0))) EQL-OK: NIL (NOT (AND (CHAR-LESSP #\a #\Z) (CHAR-LESSP #\A #\z))) EQL-OK: NIL (NOT (CHAR-GREATERP #\a)) EQL-OK: NIL (NOT (NOT (CHAR-GREATERP #\a #\z))) EQL-OK: NIL (NOT (CHAR-GREATERP #\z #\a)) EQL-OK: NIL (NOT (NOT (CHAR-GREATERP #\a #\b #\c #\d #\e #\f #\g #\h #\i #\j #\k #\l #\m #\n #\o #\p #\q #\r #\s #\t #\u #\v #\w #\x #\y #\z))) EQL-OK: NIL (NOT (CHAR-GREATERP #\z #\y #\x #\w #\v #\u #\t #\s #\r #\q #\p #\o #\n #\m #\l #\k #\j #\i #\h #\g #\f #\e #\d #\c #\b #\a)) EQL-OK: NIL (NOT (NOT (CHAR-GREATERP #\A #\B #\C #\D #\E #\F #\G #\H #\I #\J #\K #\L #\M #\N #\O #\P #\Q #\R #\S #\T #\U #\V #\W #\X #\Y #\Z))) EQL-OK: NIL (NOT (CHAR-GREATERP #\Z #\Y #\X #\W #\V #\U #\T #\S #\R #\Q #\P #\O #\N #\M #\L #\K #\J #\I #\H #\G #\F #\E #\D #\C #\B #\A)) EQL-OK: NIL (NOT (CHAR-GREATERP #\z #\Y #\x #\W #\v #\U #\t #\S #\r #\Q #\p #\O #\n #\M #\l #\K #\j #\I #\h #\G #\f #\E #\d #\C #\b #\A)) EQL-OK: NIL (NOT (NOT (CHAR-GREATERP #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9))) EQL-OK: NIL (NOT (CHAR-GREATERP #\9 #\8 #\7 #\6 #\5 #\4 #\3 #\2 #\1 #\0)) EQL-OK: NIL (NOT (OR (CHAR-GREATERP #\A #\9) (CHAR-GREATERP #\0 #\Z))) EQL-OK: NIL (NOT (OR (CHAR-GREATERP #\a #\9) (CHAR-GREATERP #\0 #\z))) EQL-OK: NIL (NOT (NOT (CHAR-GREATERP #\a #\a #\b #\c))) EQL-OK: NIL (NOT (NOT (CHAR-GREATERP #\a #\b #\a #\c))) EQL-OK: NIL (NOT (NOT (CHAR-GREATERP #\a #\b #\c #\a))) EQL-OK: NIL (NOT (CHAR-GREATERP #\9 #\0)) EQL-OK: NIL (NOT (AND (CHAR-GREATERP #\z #\A) (CHAR-GREATERP #\Z #\a))) EQL-OK: NIL (NOT (CHAR-NOT-GREATERP #\a)) EQL-OK: NIL (NOT (CHAR-NOT-GREATERP #\a #\z)) EQL-OK: NIL (NOT (CHAR-NOT-GREATERP #\a #\a)) EQL-OK: NIL (NOT (CHAR-NOT-GREATERP #\Z #\Z)) EQL-OK: NIL (NOT (CHAR-NOT-GREATERP #\a #\b #\c #\d #\e #\f #\g #\h #\i #\j #\k #\l #\m #\n #\o #\p #\q #\r #\s #\t #\u #\v #\w #\x #\y #\z)) EQL-OK: NIL (NOT (CHAR-NOT-GREATERP #\a #\a #\b #\b #\c #\c #\d #\d #\e #\e #\f #\f #\g #\g #\h #\h #\i #\i #\j #\j #\k #\k #\l #\l #\m #\m #\n #\n #\o #\o #\p #\p #\q #\q #\r #\r #\s #\s #\t #\t #\u #\u #\v #\v #\w #\w #\x #\x #\y #\y #\z #\z)) EQL-OK: NIL (NOT (CHAR-NOT-GREATERP #\a #\A #\b #\B #\c #\C #\d #\D #\e #\E #\f #\F #\g #\G #\h #\H #\i #\I #\j #\J #\k #\K #\l #\L #\m #\M #\n #\N #\o #\O #\p #\P #\q #\Q #\r #\R #\s #\S #\t #\T #\u #\U #\v #\V #\w #\W #\x #\X #\y #\Y #\z #\z)) EQL-OK: NIL (NOT (NOT (CHAR-NOT-GREATERP #\z #\y #\x #\w #\v #\u #\t #\s #\r #\q #\p #\o #\n #\m #\l #\k #\j #\i #\h #\g #\f #\e #\d #\c #\b #\a))) EQL-OK: NIL (NOT (CHAR-NOT-GREATERP #\A #\B #\C #\D #\E #\F #\G #\H #\I #\J #\K #\L #\M #\N #\O #\P #\Q #\R #\S #\T #\U #\V #\W #\X #\Y #\Z)) EQL-OK: NIL (NOT (CHAR-NOT-GREATERP #\A #\B #\B #\C #\D #\E #\E #\F #\G #\H #\I #\I #\J #\K #\L #\M #\N #\N #\O #\P #\Q #\R #\S #\T #\T #\U #\V #\W #\X #\Y #\Z)) EQL-OK: NIL (NOT (NOT (CHAR-NOT-GREATERP #\Z #\Y #\X #\W #\V #\U #\T #\S #\R #\Q #\P #\O #\N #\M #\L #\K #\J #\I #\H #\G #\F #\E #\D #\C #\B #\A))) EQL-OK: NIL (NOT (CHAR-NOT-GREATERP #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9)) EQL-OK: NIL (NOT (CHAR-NOT-GREATERP #\0 #\1 #\2 #\2 #\3 #\3 #\3 #\3 #\4 #\5 #\6 #\7 #\8 #\9 #\9)) EQL-OK: NIL (NOT (NOT (CHAR-NOT-GREATERP #\9 #\8 #\7 #\6 #\5 #\4 #\3 #\2 #\1 #\0))) EQL-OK: NIL (NOT (OR (CHAR-NOT-GREATERP #\9 #\A) (CHAR-NOT-GREATERP #\Z #\0))) EQL-OK: NIL (NOT (OR (CHAR-NOT-GREATERP #\9 #\a) (CHAR-NOT-GREATERP #\z #\0))) EQL-OK: NIL (NOT (CHAR-NOT-GREATERP #\a #\a #\b #\c)) EQL-OK: NIL (NOT (NOT (CHAR-NOT-GREATERP #\a #\b #\a #\c))) EQL-OK: NIL (NOT (NOT (CHAR-NOT-GREATERP #\a #\b #\c #\a))) EQL-OK: NIL (NOT (NOT (CHAR-NOT-GREATERP #\9 #\0))) EQL-OK: NIL (NOT (AND (CHAR-NOT-GREATERP #\A #\z) (CHAR-NOT-GREATERP #\a #\Z))) EQL-OK: NIL (NOT (CHAR-NOT-LESSP #\a)) EQL-OK: NIL (NOT (NOT (CHAR-NOT-LESSP #\a #\z))) EQL-OK: NIL (NOT (CHAR-NOT-LESSP #\z #\a)) EQL-OK: NIL (NOT (CHAR-NOT-LESSP #\a #\a)) EQL-OK: NIL (NOT (CHAR-NOT-LESSP #\Z #\Z)) EQL-OK: NIL (NOT (NOT (CHAR-NOT-LESSP #\a #\b #\c #\d #\e #\f #\g #\h #\i #\j #\k #\l #\m #\n #\o #\p #\q #\r #\s #\t #\u #\v #\w #\x #\y #\z))) EQL-OK: NIL (NOT (CHAR-NOT-LESSP #\z #\y #\x #\w #\v #\u #\t #\s #\r #\q #\p #\o #\n #\m #\l #\k #\j #\i #\h #\g #\f #\e #\d #\c #\b #\a)) EQL-OK: NIL (NOT (CHAR-NOT-LESSP #\z #\z #\y #\x #\w #\v #\u #\t #\s #\r #\q #\p #\o #\n #\n #\m #\m #\l #\k #\j #\i #\h #\g #\f #\e #\d #\c #\b #\a #\a)) EQL-OK: NIL (NOT (NOT (CHAR-NOT-LESSP #\A #\B #\C #\D #\E #\F #\G #\H #\I #\J #\K #\L #\M #\N #\O #\P #\Q #\R #\S #\T #\U #\V #\W #\X #\Y #\Z))) EQL-OK: NIL (NOT (CHAR-NOT-LESSP #\Z #\Y #\X #\W #\V #\U #\T #\S #\R #\Q #\P #\O #\N #\M #\L #\K #\J #\I #\H #\G #\F #\E #\D #\C #\B #\A)) EQL-OK: NIL (NOT (CHAR-NOT-LESSP #\Z #\Y #\X #\W #\V #\U #\U #\T #\T #\S #\S #\R #\Q #\P #\O #\N #\M #\L #\K #\J #\I #\H #\H #\G #\G #\F #\F #\E #\D #\C #\B #\A)) EQL-OK: NIL (NOT (CHAR-NOT-LESSP #\z #\Z #\y #\x #\w #\V #\v #\u #\t #\s #\r #\q #\p #\o #\n #\n #\m #\M #\l #\k #\K #\j #\i #\h #\g #\f #\e #\d #\c #\b #\A #\a)) EQL-OK: NIL (NOT (NOT (CHAR-NOT-LESSP #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9))) EQL-OK: NIL (NOT (CHAR-NOT-LESSP #\9 #\8 #\7 #\6 #\5 #\4 #\3 #\2 #\1 #\0)) EQL-OK: NIL (NOT (CHAR-NOT-LESSP #\9 #\8 #\8 #\8 #\7 #\6 #\5 #\4 #\3 #\3 #\3 #\2 #\1 #\0)) EQL-OK: NIL (NOT (OR (CHAR-NOT-LESSP #\A #\9) (CHAR-NOT-LESSP #\0 #\Z))) EQL-OK: NIL (NOT (OR (CHAR-NOT-LESSP #\a #\9) (CHAR-NOT-LESSP #\0 #\z))) EQL-OK: NIL (NOT (CHAR-NOT-LESSP #\c #\b #\a #\a)) EQL-OK: NIL (NOT (NOT (CHAR-NOT-LESSP #\c #\b #\a #\a #\b #\c))) EQL-OK: NIL (NOT (NOT (CHAR-NOT-LESSP #\c #\b #\a #\c))) EQL-OK: NIL (NOT (NOT (CHAR-NOT-LESSP #\c #\b #\c #\a))) EQL-OK: NIL (NOT (CHAR-NOT-LESSP #\9 #\0)) EQL-OK: NIL (NOT (NOT (CHAR-NOT-LESSP #\0 #\9))) EQL-OK: NIL (NOT (AND (CHAR-NOT-LESSP #\z #\A) (CHAR-NOT-LESSP #\Z #\a))) EQL-OK: NIL (NOT (CHAR= (CHARACTER #\a) #\a)) EQL-OK: NIL (NOT (CHAR= (CHARACTER #\b) #\b)) EQL-OK: NIL (NOT (CHAR= (CHARACTER #\ ) #\ )) EQL-OK: NIL (NOT (CHAR= (CHARACTER "a") #\a)) EQL-OK: NIL (NOT (CHAR= (CHARACTER "X") #\X)) EQL-OK: NIL (NOT (CHAR= (CHARACTER "z") #\z)) EQL-OK: NIL (NOT (CHAR= (CHARACTER 'A) #\A)) EQL-OK: NIL (NOT (CHAR= (CHARACTER '|a|) #\a)) EQL-OK: NIL (NOT (ALPHA-CHAR-P #\a)) EQL-OK: NIL (NOT (EVERY #'ALPHA-CHAR-P '(#\a #\b #\c #\d #\e #\f #\g #\h #\i #\j #\k #\l #\m #\n #\o #\p #\q #\r #\s #\t #\u #\v #\w #\x #\y #\z))) EQL-OK: NIL (NOT (EVERY #'ALPHA-CHAR-P '(#\A #\B #\C #\D #\E #\F #\G #\H #\I #\J #\K #\L #\M #\N #\O #\P #\Q #\R #\S #\T #\U #\V #\W #\X #\Y #\Z))) EQL-OK: NIL (NOT (NOTANY #'ALPHA-CHAR-P '(#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9))) EQL-OK: NIL (NOT (NOT (ALPHA-CHAR-P #\Newline))) EQL-OK: NIL (NOT (ALPHANUMERICP #\Z)) EQL-OK: NIL (NOT (ALPHANUMERICP #\9)) EQL-OK: NIL (NOT (EVERY #'ALPHANUMERICP '(#\a #\b #\c #\d #\e #\f #\g #\h #\i #\j #\k #\l #\m #\n #\o #\p #\q #\r #\s #\t #\u #\v #\w #\x #\y #\z))) EQL-OK: NIL (NOT (EVERY #'ALPHANUMERICP '(#\A #\B #\C #\D #\E #\F #\G #\H #\I #\J #\K #\L #\M #\N #\O #\P #\Q #\R #\S #\T #\U #\V #\W #\X #\Y #\Z))) EQL-OK: NIL (NOT (EVERY #'ALPHANUMERICP '(#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9))) EQL-OK: NIL (NOT (NOT (ALPHANUMERICP #\Newline))) EQL-OK: NIL (NOT (NOT (ALPHANUMERICP #\#))) EQL-OK: NIL (NOT (CHAR= (DIGIT-CHAR 0) #\0)) EQL-OK: NIL (NOT (CHAR= (DIGIT-CHAR 10 11) #\A)) EQL-OK: NIL (NOT (NULL (DIGIT-CHAR 10 10))) EQL-OK: NIL (NOT (CHAR= (DIGIT-CHAR 7) #\7)) EQL-OK: NIL (NOT (NULL (DIGIT-CHAR 12))) EQL-OK: NIL (NOT (CHAR= (DIGIT-CHAR 12 16) #\C)) EQL-OK: NIL (NOT (NULL (DIGIT-CHAR 6 2))) EQL-OK: NIL (NOT (CHAR= (DIGIT-CHAR 1 2) #\1)) EQL-OK: NIL (NOT (CHAR= (DIGIT-CHAR 35 36) #\Z)) EQL-OK: NIL (NOT (DO ((RADIX 2 (1+ RADIX))) ((= RADIX 37) T) (UNLESS (DOTIMES (I RADIX T) (UNLESS (CHAR= (DIGIT-CHAR I RADIX) (SVREF #(#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9 #\A #\B #\C #\D #\E #\F #\G #\H #\I #\J #\K #\L #\M #\N #\O #\P #\Q #\R #\S #\T #\U #\V #\W #\X #\Y #\Z) I)) (RETURN NIL))) (RETURN NIL)))) EQL-OK: NIL (NOT (= (DIGIT-CHAR-P #\0) 0)) EQL-OK: NIL (NOT (= (DIGIT-CHAR-P #\5) 5)) EQL-OK: NIL (NOT (NOT (DIGIT-CHAR-P #\5 2))) EQL-OK: NIL (NOT (NOT (DIGIT-CHAR-P #\A))) EQL-OK: NIL (NOT (NOT (DIGIT-CHAR-P #\a))) EQL-OK: NIL (NOT (= (DIGIT-CHAR-P #\A 11) 10)) EQL-OK: NIL (NOT (= (DIGIT-CHAR-P #\a 11) 10)) EQL-OK: NIL (NOT (EQUAL (MAPCAR #'(LAMBDA (RADIX) (MAP 'LIST #'(LAMBDA (X) (DIGIT-CHAR-P X RADIX)) "059AaFGZ")) '(2 8 10 16 36)) '((0 NIL NIL NIL NIL NIL NIL NIL) (0 5 NIL NIL NIL NIL NIL NIL) (0 5 9 NIL NIL NIL NIL NIL) (0 5 9 10 10 15 NIL NIL) (0 5 9 10 10 15 16 35)))) EQL-OK: NIL (NOT (DO ((RADIX 2 (1+ RADIX))) ((= RADIX 37) T) (UNLESS (DOTIMES (I RADIX T) (UNLESS (= (DIGIT-CHAR-P (SCHAR "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" I) RADIX) I) (RETURN NIL))) (RETURN NIL)))) EQL-OK: NIL (NOT (DO ((RADIX 2 (1+ RADIX))) ((= RADIX 37) T) (UNLESS (DOTIMES (I RADIX T) (UNLESS (= (DIGIT-CHAR-P (SCHAR "0123456789abcdefghijklmnopqrstuvwxyz" I) RADIX) I) (RETURN NIL))) (RETURN NIL)))) EQL-OK: NIL (NOT (GRAPHIC-CHAR-P #\G)) EQL-OK: NIL (NOT (GRAPHIC-CHAR-P #\#)) EQL-OK: NIL (NOT (GRAPHIC-CHAR-P #\ )) EQL-OK: NIL (NOT (NOT (GRAPHIC-CHAR-P #\Newline))) EQL-OK: NIL (NOT (STANDARD-CHAR-P #\a)) EQL-OK: NIL (NOT (STANDARD-CHAR-P #\z)) EQL-OK: NIL (NOT (STANDARD-CHAR-P #\Newline)) EQL-OK: NIL (NOT (EVERY #'STANDARD-CHAR-P " !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_'abcdefghijklmnopqrstuvwxyz{|}~ ")) EQL-OK: NIL (NOT (CHAR= (CHAR-UPCASE #\a) #\A)) EQL-OK: NIL (NOT (CHAR= (CHAR-UPCASE #\A) #\A)) EQL-OK: NIL (NOT (CHAR= (CHAR-UPCASE #\-) #\-)) EQL-OK: NIL (NOT (CHAR= (CHAR-DOWNCASE #\A) #\a)) EQL-OK: NIL (NOT (CHAR= (CHAR-DOWNCASE #\a) #\a)) EQL-OK: NIL (NOT (CHAR= (CHAR-DOWNCASE #\-) #\-)) EQL-OK: NIL (NOT (NOT (UPPER-CASE-P #\a))) EQL-OK: NIL (NOT (UPPER-CASE-P #\A)) EQL-OK: NIL (NOT (NOT (UPPER-CASE-P #\-))) EQL-OK: NIL (NOT (NOT (LOWER-CASE-P #\A))) EQL-OK: NIL (NOT (LOWER-CASE-P #\a)) EQL-OK: NIL (NOT (NOT (LOWER-CASE-P #\-))) EQL-OK: NIL (NOT (BOTH-CASE-P #\a)) EQL-OK: NIL (NOT (BOTH-CASE-P #\A)) EQL-OK: NIL (NOT (NOT (BOTH-CASE-P #\-))) EQL-OK: NIL (NOT (LET ((CHARS " !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_'abcdefghijklmnopqrstuvwxyz{|}~ ") C) (DOTIMES (I (LENGTH CHARS) T) (SETQ C (SCHAR CHARS I)) (COND ((UPPER-CASE-P C) (UNLESS (AND (BOTH-CASE-P C) (NOT (LOWER-CASE-P C)) (CHAR= (CHAR-UPCASE C) C) (NOT (CHAR= (CHAR-DOWNCASE C) C))) (RETURN NIL))) ((LOWER-CASE-P C) (UNLESS (AND (BOTH-CASE-P C) (CHAR= (CHAR-DOWNCASE C) C) (NOT (CHAR= (CHAR-UPCASE C) C))) (RETURN NIL))) (T (UNLESS (AND (NOT (UPPER-CASE-P C)) (NOT (LOWER-CASE-P C)) (NOT (BOTH-CASE-P C)) (CHAR= (CHAR-UPCASE C) C) (CHAR= (CHAR-DOWNCASE C) C)) (RETURN NIL))))))) EQL-OK: NIL (NOT (EVERY (COMPLEMENT #'MINUSP) (MAP 'LIST #'CHAR-CODE " !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_'abcdefghijklmnopqrstuvwxyz{|}~ "))) EQL-OK: NIL (NOT (EVERY (COMPLEMENT #'MINUSP) (MAP 'LIST #'CHAR-INT " !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_'abcdefghijklmnopqrstuvwxyz{|}~ "))) EQL-OK: NIL (NOT (EVERY #'CHARACTERP (MAP 'LIST #'CODE-CHAR (MAP 'LIST #'CHAR-CODE " !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_'abcdefghijklmnopqrstuvwxyz{|}~ ")))) EQL-OK: NIL (NOT (DOTIMES (I CHAR-CODE-LIMIT T) (UNLESS (OR (NULL (CODE-CHAR I)) (CHARACTERP (CODE-CHAR I))) (RETURN NIL)))) EQL-OK: NIL (NOT (CHAR= #\ (NAME-CHAR (CHAR-NAME #\ )))) EQL-OK: NIL (NOT (CHAR= #\ (NAME-CHAR (CHAR-NAME #\ )))) EQL-OK: NIL (NOT (CHAR= #\Newline (NAME-CHAR (CHAR-NAME #\Newline)))) EQL-OK: NIL RUN-TEST: finished "must-character" (0 errors out of 313 tests) RUN-TEST: started # (NOT (CONSP (CONS 'A 'B))) EQL-OK: NIL (NOT (CONSP '(1 . 2))) EQL-OK: NIL (NOT (CONSP (LIST NIL))) EQL-OK: NIL (NOT (NOT (CONSP 'A))) EQL-OK: NIL (NOT (NOT (CONSP NIL))) EQL-OK: NIL (NOT (NOT (CONSP 1))) EQL-OK: NIL (NOT (NOT (CONSP #\a))) EQL-OK: NIL (NOT (LET ((A (CONS 1 2))) (AND (EQL (CAR A) 1) (EQL (CDR A) 2)))) EQL-OK: NIL (NOT (EQUAL (CONS 1 NIL) '(1))) EQL-OK: NIL (NOT (EQUAL (CONS NIL NIL) '(NIL))) EQL-OK: NIL (NOT (EQUAL (CONS 'A (CONS 'B (CONS 'C 'NIL))) '(A B C))) EQL-OK: NIL (NOT (ATOM 'A)) EQL-OK: NIL (NOT (ATOM NIL)) EQL-OK: NIL (NOT (ATOM 1)) EQL-OK: NIL (NOT (ATOM #\a)) EQL-OK: NIL (NOT (NOT (ATOM (CONS 1 2)))) EQL-OK: NIL (NOT (NOT (ATOM '(A . B)))) EQL-OK: NIL (NOT (NOT (ATOM (LIST NIL)))) EQL-OK: NIL (NOT (LISTP NIL)) EQL-OK: NIL (NOT (LISTP '(A B C))) EQL-OK: NIL (NOT (LISTP '(A . B))) EQL-OK: NIL (NOT (LISTP (CONS 'A 'B))) EQL-OK: NIL (NOT (LISTP '#1=(1 2 . #1#))) EQL-OK: NIL (NOT (NOT (LISTP 1))) EQL-OK: NIL (NOT (NOT (LISTP 'T))) EQL-OK: NIL (NOT (NULL 'NIL)) EQL-OK: NIL (NOT (NULL 'NIL)) EQL-OK: NIL (NOT (NULL NIL)) EQL-OK: NIL (NOT (NOT (NULL T))) EQL-OK: NIL (NOT (NULL (CDR '(A)))) EQL-OK: NIL (NOT (NOT (NULL (CDR '(1 . 2))))) EQL-OK: NIL (NOT (NOT (NULL 'A))) EQL-OK: NIL (NOT (ENDP 'NIL)) EQL-OK: NIL (NOT (NOT (ENDP '(1)))) EQL-OK: NIL (NOT (NOT (ENDP '(1 2)))) EQL-OK: NIL (NOT (NOT (ENDP '(1 2 3)))) EQL-OK: NIL (NOT (NOT (ENDP (CONS 1 2)))) EQL-OK: NIL (NOT (ENDP (CDDR '(1 2)))) EQL-OK: NIL (NOT (LET ((A (CONS 1 2))) (AND (EQ (RPLACA A 0) A) (EQUAL A '(0 . 2))))) EQL-OK: NIL (NOT (LET ((A (LIST 1 2 3))) (AND (EQ (RPLACA A 0) A) (EQUAL A '(0 2 3))))) EQL-OK: NIL (NOT (LET ((A (CONS 1 2))) (AND (EQ (RPLACD A 0) A) (EQUAL A '(1 . 0))))) EQL-OK: NIL (NOT (LET ((A (LIST 1 2 3))) (AND (EQ (RPLACD A 0) A) (EQUAL A '(1 . 0))))) EQL-OK: NIL (NOT (EQ (CAR '(A . B)) 'A)) EQL-OK: NIL (NOT (NULL (CAR NIL))) EQL-OK: NIL (NOT (LET ((A (CONS 1 2))) (EQ (CAR (LIST A)) A))) EQL-OK: NIL (NOT (EQ (CAR '#1=(A . #1#)) 'A)) EQL-OK: NIL (NOT (EQ (CDR '(A . B)) 'B)) EQL-OK: NIL (NOT (EQ (REST '(A . B)) 'B)) EQL-OK: NIL (NOT (NULL (CDR NIL))) EQL-OK: NIL (NOT (NULL (REST NIL))) EQL-OK: NIL (NOT (LET ((A (CONS 1 2))) (EQ (CDR (CONS 1 A)) A))) EQL-OK: NIL (NOT (LET ((A (CONS 1 2))) (EQ (REST (CONS 1 A)) A))) EQL-OK: NIL (NOT (LET ((X '#1=(A . #1#))) (EQ (CDR X) X))) EQL-OK: NIL (NOT (LET ((X '#1=(A . #1#))) (EQ (REST X) X))) EQL-OK: NIL (NOT (EQ (CAAR '((A) B C)) 'A)) EQL-OK: NIL (NOT (EQ (CADR '(A B C)) 'B)) EQL-OK: NIL (NOT (EQ (CDAR '((A . AA) B C)) 'AA)) EQL-OK: NIL (NOT (EQ (CDDR '(A B . C)) 'C)) EQL-OK: NIL (NOT (EQ (CAAAR '(((A)) B C)) 'A)) EQL-OK: NIL (NOT (EQ (CAADR '(A (B) C)) 'B)) EQL-OK: NIL (NOT (EQ (CADAR '((A AA) B C)) 'AA)) EQL-OK: NIL (NOT (EQ (CADDR '(A B C)) 'C)) EQL-OK: NIL (NOT (EQ (CDAAR '(((A . AA)) B C)) 'AA)) EQL-OK: NIL (NOT (EQ (CDADR '(A (B . BB) C)) 'BB)) EQL-OK: NIL (NOT (EQ (CDDAR '((A AA . AAA) B C)) 'AAA)) EQL-OK: NIL (NOT (EQ (CDDDR '(A B C . D)) 'D)) EQL-OK: NIL (NOT (EQ (CAAAAR '((((A))) B C)) 'A)) EQL-OK: NIL (NOT (EQ (CAAADR '(A ((B)) C)) 'B)) EQL-OK: NIL (NOT (EQ (CAADAR '((A (AA)) B C)) 'AA)) EQL-OK: NIL (NOT (EQ (CAADDR '(A B (C))) 'C)) EQL-OK: NIL (NOT (EQ (CADAAR '(((A AA)) B C)) 'AA)) EQL-OK: NIL (NOT (EQ (CADADR '(A (B BB) C)) 'BB)) EQL-OK: NIL (NOT (EQ (CADDAR '((A AA AAA) B C)) 'AAA)) EQL-OK: NIL (NOT (EQ (CADDDR '(A B C D)) 'D)) EQL-OK: NIL (NOT (EQ (CDAAAR '((((A . AA))) B C)) 'AA)) EQL-OK: NIL (NOT (EQ (CDAADR '(A ((B . BB)) C)) 'BB)) EQL-OK: NIL (NOT (EQ (CDADAR '((A (AA . AAA)) B C)) 'AAA)) EQL-OK: NIL (NOT (EQ (CDADDR '(A B (C . CC))) 'CC)) EQL-OK: NIL (NOT (EQ (CDDAAR '(((A AA . AAA)) B C)) 'AAA)) EQL-OK: NIL (NOT (EQ (CDDADR '(A (B BB . BBB) C)) 'BBB)) EQL-OK: NIL (NOT (EQ (CDDDAR '((A AA AAA . AAAA) B C)) 'AAAA)) EQL-OK: NIL (NOT (EQ (CDDDDR '(A B C D . E)) 'E)) EQL-OK: NIL (NOT (LET ((X (CONS 1 2))) (AND (EQL (SETF (CAR X) 0) 0) (EQUAL X '(0 . 2))))) EQL-OK: NIL (NOT (LET ((X (CONS 1 2))) (AND (EQL (SETF (CDR X) 0) 0) (EQUAL X '(1 . 0))))) EQL-OK: NIL (NOT (LET ((X (COPY-TREE '((A) B C)))) (AND (EQL (SETF (CAAR X) 0) 0) (EQUAL X '((0) B C))))) EQL-OK: NIL (NOT (LET ((X (LIST 'A 'B 'C))) (AND (EQL (SETF (CADR X) 0) 0) (EQUAL X '(A 0 C))))) EQL-OK: NIL (NOT (LET ((X (COPY-TREE '((A . AA) B C)))) (AND (EQL (SETF (CDAR X) 0) 0) (EQUAL X '((A . 0) B C))))) EQL-OK: NIL (NOT (LET ((X (COPY-TREE '(A B . C)))) (AND (EQL (SETF (CDDR X) 0) 0) (EQUAL X '(A B . 0))))) EQL-OK: NIL (NOT (LET ((X (COPY-TREE '(((A)) B C)))) (AND (EQL (SETF (CAAAR X) 0) 0) (EQUAL X '(((0)) B C))))) EQL-OK: NIL (NOT (LET ((X (COPY-TREE '(A (B) C)))) (AND (EQL (SETF (CAADR X) 0) 0) (EQUAL X '(A (0) C))))) EQL-OK: NIL (NOT (LET ((X (COPY-TREE '((A AA) B C)))) (AND (EQL (SETF (CADAR X) 0) 0) (EQUAL X '((A 0) B C))))) EQL-OK: NIL (NOT (LET ((X (LIST 'A 'B 'C))) (AND (EQL (SETF (CADDR X) 0) 0) (EQUAL X '(A B 0))))) EQL-OK: NIL (NOT (LET ((X (COPY-TREE '(((A . AA)) B C)))) (AND (EQL (SETF (CDAAR X) 0) 0) (EQUAL X '(((A . 0)) B C))))) EQL-OK: NIL (NOT (LET ((X (COPY-TREE '(A (B . BB) C)))) (AND (EQL (SETF (CDADR X) 0) 0) (EQUAL X '(A (B . 0) C))))) EQL-OK: NIL (NOT (LET ((X (COPY-TREE '((A AA . AAA) B C)))) (AND (EQL (SETF (CDDAR X) 0) 0) (EQUAL X '((A AA . 0) B C))))) EQL-OK: NIL (NOT (LET ((X (COPY-TREE '(A B C . D)))) (AND (EQL (SETF (CDDDR X) 0) 0) (EQUAL X '(A B C . 0))))) EQL-OK: NIL (NOT (LET ((X (COPY-TREE '((((A))) B C)))) (AND (EQL (SETF (CAAAAR X) 0) 0) (EQUAL X '((((0))) B C))))) EQL-OK: NIL (NOT (LET ((X (COPY-TREE '(A ((B)) C)))) (AND (EQL (SETF (CAAADR X) 0) 0) (EQUAL X '(A ((0)) C))))) EQL-OK: NIL (NOT (LET ((X (COPY-TREE '((A (AA)) B C)))) (AND (EQL (SETF (CAADAR X) 0) 0) (EQUAL X '((A (0)) B C))))) EQL-OK: NIL (NOT (LET ((X (COPY-TREE '(A B (C))))) (AND (EQL (SETF (CAADDR X) 0) 0) (EQUAL X '(A B (0)))))) EQL-OK: NIL (NOT (LET ((X (COPY-TREE '(((A AA)) B C)))) (AND (EQL (SETF (CADAAR X) 0) 0) (EQUAL X '(((A 0)) B C))))) EQL-OK: NIL (NOT (LET ((X (COPY-TREE '(A (B BB) C)))) (AND (EQL (SETF (CADADR X) 0) 0) (EQUAL X '(A (B 0) C))))) EQL-OK: NIL (NOT (LET ((X (COPY-TREE '((A AA AAA) B C)))) (AND (EQL (SETF (CADDAR X) 0) 0) (EQUAL X '((A AA 0) B C))))) EQL-OK: NIL (NOT (LET ((X (LIST 'A 'B 'C 'D))) (AND (EQL (SETF (CADDDR X) 0) 0) (EQUAL X '(A B C 0))))) EQL-OK: NIL (NOT (LET ((X (COPY-TREE '((((A . AA))) B C)))) (AND (EQL (SETF (CDAAAR X) 0) 0) (EQUAL X '((((A . 0))) B C))))) EQL-OK: NIL (NOT (LET ((X (COPY-TREE '(A ((B . BB)) C)))) (AND (EQL (SETF (CDAADR X) 0) 0) (EQUAL X '(A ((B . 0)) C))))) EQL-OK: NIL (NOT (LET ((X (COPY-TREE '((A (AA . AAA)) B C)))) (AND (EQL (SETF (CDADAR X) 0) 0) (EQUAL X '((A (AA . 0)) B C))))) EQL-OK: NIL (NOT (LET ((X (COPY-TREE '(A B (C . CC))))) (AND (EQL (SETF (CDADDR X) 0) 0) (EQUAL X '(A B (C . 0)))))) EQL-OK: NIL (NOT (LET ((X (COPY-TREE '(((A AA . AAA)) B C)))) (AND (EQL (SETF (CDDAAR X) 0) 0) (EQUAL X '(((A AA . 0)) B C))))) EQL-OK: NIL (NOT (LET ((X (COPY-TREE '(A (B BB . BBB) C)))) (AND (EQL (SETF (CDDADR X) 0) 0) (EQUAL X '(A (B BB . 0) C))))) EQL-OK: NIL (NOT (LET ((X (COPY-TREE '((A AA AAA . AAAA) B C)))) (AND (EQL (SETF (CDDDAR X) 0) 0) (EQUAL X '((A AA AAA . 0) B C))))) EQL-OK: NIL (NOT (LET ((X (COPY-TREE '(A B C D . E)))) (AND (EQL (SETF (CDDDDR X) 0) 0) (EQUAL X '(A B C D . 0))))) EQL-OK: NIL (NOT (EQ (COPY-TREE 'A) 'A)) EQL-OK: NIL (NOT (EQ (COPY-TREE NIL) NIL)) EQL-OK: NIL (NOT (LET* ((A (LIST 'A)) (B (LIST 'B)) (C (LIST 'C)) (X3 (CONS C NIL)) (X2 (CONS B X3)) (X (CONS A X2)) (Y (COPY-TREE X))) (AND (NOT (EQ X Y)) (NOT (EQ (CAR X) (CAR Y))) (NOT (EQ (CDR X) (CDR Y))) (NOT (EQ (CADR X) (CADR Y))) (NOT (EQ (CDDR X) (CDDR Y))) (NOT (EQ (CADDR X) (CADDR Y))) (EQ (CDDDR X) (CDDDR Y)) (EQUAL X Y) (EQ (CAR X) A) (EQ (CAR A) 'A) (EQ (CDR A) NIL) (EQ (CDR X) X2) (EQ (CAR X2) B) (EQ (CAR B) 'B) (EQ (CDR B) NIL) (EQ (CDR X2) X3) (EQ (CAR X3) C) (EQ (CAR C) 'C) (EQ (CDR C) NIL) (EQ (CDR X3) NIL)))) EQL-OK: NIL (NOT (LET* ((X (LIST (LIST 'A 1) (LIST 'B 2) (LIST 'C 3))) (Y (COPY-TREE X))) (AND (NOT (EQ (CAR X) (CAR Y))) (NOT (EQ (CADR X) (CADR Y))) (NOT (EQ (CADDR X) (CADDR Y)))))) EQL-OK: NIL (NOT (LET* ((X (LIST (LIST (LIST 1)))) (Y (COPY-TREE X))) (AND (NOT (EQ X Y)) (NOT (EQ (CAR X) (CAR Y))) (NOT (EQ (CAAR X) (CAAR Y)))))) EQL-OK: NIL (NOT (LET ((X (LIST 'A 'B 'C 'D))) (AND (EQUAL (SUBLIS '((A . 1) (B . 2) (C . 3)) X) '(1 2 3 D)) (EQUAL X '(A B C D))))) EQL-OK: NIL (NOT (LET* ((N (CONS 'N NIL)) (M (CONS 'M N)) (L (CONS 'L M)) (X (SUBLIS '((A . 1) (B . 2) (C . 3)) L))) (AND (EQ X L) (EQ (CAR L) 'L) (EQ (CDR L) M) (EQ (CAR M) 'M) (EQ (CDR M) N) (EQ (CAR N) 'N) (EQ (CDR N) NIL)))) EQL-OK: NIL (NOT (EQ (SUBLIS 'NIL 'NIL) 'NIL)) EQL-OK: NIL (NOT (EQUAL (SUBLIS 'NIL '(1 2 3)) '(1 2 3))) EQL-OK: NIL (NOT (EQ (SUBLIS '((A . 1) (B . 2)) 'NIL) NIL)) EQL-OK: NIL (NOT (EQUAL (SUBLIS '((A B C) (B C D) (C D E)) '(A B C)) '((B C) (C D) (D E)))) EQL-OK: NIL (NOT (EQUAL (SUBLIS '((A . 1) (B . 2) (C . 3)) '(((A)) (B) C)) '(((1)) (2) 3))) EQL-OK: NIL (NOT (EQUAL (SUBLIS '(((A) . 1) ((B) . 2) ((C) . 3)) '((((A))) ((B)) (C))) '((((A))) ((B)) (C)))) EQL-OK: NIL (NOT (EQUAL (SUBLIS '(((A) . 1) ((B) . 2) ((C) . 3)) '((((A))) ((B)) (C)) :TEST #'EQUAL) '(((1)) (2) 3))) EQL-OK: NIL (NOT (EQUAL (SUBLIS '(((A) . 1) ((B) . 2) ((C) . 3)) '((((A))) ((B)) (C)) :TEST-NOT (COMPLEMENT #'EQUAL)) '(((1)) (2) 3))) EQL-OK: NIL (NOT (EQUAL (SUBLIS '((A . 1) (B . 2) (C . 3)) '((((A))) ((B)) (C)) :KEY #'CAR) '(((1)) (2) 3))) EQL-OK: NIL (NOT (EQUAL (SUBLIS '(((A) . 1) ((B) . 2) ((C) . 3)) '((((A))) ((B)) (C)) :KEY #'CAR :TEST #'EQUAL) '((1) 2 . 3))) EQL-OK: NIL (NOT (EQUAL (NSUBLIS '((A . 1) (B . 2) (C . 3)) (LIST 'A 'B 'C 'D)) '(1 2 3 D))) EQL-OK: NIL (NOT (LET* ((X (LIST 'A 'B 'C 'D)) (Y (NSUBLIS '((A . 1) (B . 2) (C . 3)) X))) (AND (EQ X Y) (EQUAL X '(1 2 3 D))))) EQL-OK: NIL (NOT (LET ((X (LIST 'L 'M 'N))) (AND (EQ (NSUBLIS '((A . 1) (B . 2) (C . 3)) X) X) (EQUAL X '(L M N))))) EQL-OK: NIL (NOT (LET* ((N (CONS 'N NIL)) (M (CONS 'M N)) (L (CONS 'L M)) (X (NSUBLIS '((A . 1) (B . 2) (C . 3)) L))) (AND (EQ X L) (EQ (CAR L) 'L) (EQ (CDR L) M) (EQ (CAR M) 'M) (EQ (CDR M) N) (EQ (CAR N) 'N) (EQ (CDR N) NIL)))) EQL-OK: NIL (NOT (EQ (NSUBLIS 'NIL 'NIL) 'NIL)) EQL-OK: NIL (NOT (EQUAL (NSUBLIS 'NIL '(1 2 3)) '(1 2 3))) EQL-OK: NIL (NOT (EQ (NSUBLIS '((A . 1) (B . 2)) 'NIL) NIL)) EQL-OK: NIL (NOT (EQUAL (NSUBLIS '((A B C) (B C D) (C D E)) (LIST 'A 'B 'C)) '((B C) (C D) (D E)))) EQL-OK: NIL (NOT (EQUAL (NSUBLIS '((A . 1) (B . 2) (C . 3)) (COPY-TREE '(((A)) (B) C))) '(((1)) (2) 3))) EQL-OK: NIL (NOT (EQUAL (NSUBLIS '(((A) . 1) ((B) . 2) ((C) . 3)) (COPY-TREE '((((A))) ((B)) (C)))) '((((A))) ((B)) (C)))) EQL-OK: NIL (NOT (EQUAL (NSUBLIS '(((A) . 1) ((B) . 2) ((C) . 3)) (COPY-TREE '((((A))) ((B)) (C))) :TEST #'EQUAL) '(((1)) (2) 3))) EQL-OK: NIL (NOT (EQUAL (NSUBLIS '(((A) . 1) ((B) . 2) ((C) . 3)) (COPY-TREE '((((A))) ((B)) (C))) :TEST-NOT (COMPLEMENT #'EQUAL)) '(((1)) (2) 3))) EQL-OK: NIL (NOT (EQUAL (NSUBLIS '((A . 1) (B . 2) (C . 3)) (COPY-TREE '((((A))) ((B)) (C))) :KEY #'CAR) '(((1)) (2) 3))) EQL-OK: NIL (NOT (EQUAL (NSUBLIS '(((A) . 1) ((B) . 2) ((C) . 3)) (COPY-TREE '((((A))) ((B)) (C))) :KEY 'CAR :TEST #'EQUAL) '((1) 2 . 3))) EQL-OK: NIL (NOT (LET ((TREE '(OLD (OLD) ((OLD))))) (EQUAL (SUBST 'NEW 'OLD TREE) '(NEW (NEW) ((NEW)))))) EQL-OK: NIL (NOT (EQ (SUBST 'NEW 'OLD 'OLD) 'NEW)) EQL-OK: NIL (NOT (EQ (SUBST 'NEW 'OLD 'NOT-OLD) 'NOT-OLD)) EQL-OK: NIL (NOT (EQUAL (SUBST 'NEW '(B) '(A ((B))) :TEST #'EQUAL) '(A (NEW)))) EQL-OK: NIL (NOT (EQUAL (SUBST 'NEW '(B) '(A ((B))) :TEST-NOT (COMPLEMENT #'EQUAL)) '(A (NEW)))) EQL-OK: NIL (NOT (EQUAL (SUBST 'X 3 '(1 (1 2) (1 2 3) (1 2 3 4)) :KEY #'(LAMBDA (Y) (AND (LISTP Y) (THIRD Y)))) '(1 (1 2) X X))) EQL-OK: NIL (NOT (EQUAL (SUBST 'X "D" '("a" ("a" "b") ("a" "b" "c") ("a" "b" "c" "d")) :TEST #'EQUALP :KEY #'(LAMBDA (Y) (AND (LISTP Y) (FOURTH Y)))) '("a" ("a" "b") ("a" "b" "c") X))) EQL-OK: NIL (NOT (EQUAL (SUBST-IF 'NEW #'(LAMBDA (X) (EQ X 'OLD)) '(OLD OLD)) '(NEW NEW))) EQL-OK: NIL (NOT (EQ (SUBST-IF 'NEW #'(LAMBDA (X) (EQ X 'OLD)) 'OLD) 'NEW)) EQL-OK: NIL (NOT (EQUAL (SUBST-IF 'X #'(LAMBDA (X) (EQL X 3)) '(1 (1 2) (1 2 3) (1 2 3 4)) :KEY #'(LAMBDA (Y) (AND (LISTP Y) (THIRD Y)))) '(1 (1 2) X X))) EQL-OK: NIL (NOT (LET ((TREE '(OLD (OLD) ((OLD))))) (EQUAL (SUBST-IF 'NEW #'(LAMBDA (X) (EQ X 'OLD)) TREE) '(NEW (NEW) ((NEW)))))) EQL-OK: NIL (NOT (EQ (SUBST-IF 'NEW #'(LAMBDA (X) (EQ X 'OLD)) 'OLD) 'NEW)) EQL-OK: NIL (NOT (EQ (SUBST-IF 'NEW #'(LAMBDA (X) (EQ X 'OLD)) 'NOT-OLD) 'NOT-OLD)) EQL-OK: NIL (NOT (EQUAL (SUBST-IF 'NEW #'(LAMBDA (X) (EQUAL X '(B))) '(A ((B)))) '(A (NEW)))) EQL-OK: NIL (NOT (EQUAL (SUBST-IF 'X #'(LAMBDA (X) (EQL X 3)) '(1 (1 2) (1 2 3) (1 2 3 4)) :KEY #'(LAMBDA (Y) (AND (LISTP Y) (THIRD Y)))) '(1 (1 2) X X))) EQL-OK: NIL (NOT (EQUAL (SUBST-IF 'X #'(LAMBDA (X) (EQUALP X "D")) '("a" ("a" "b") ("a" "b" "c") ("a" "b" "c" "d")) :KEY #'(LAMBDA (Y) (AND (LISTP Y) (FOURTH Y)))) '("a" ("a" "b") ("a" "b" "c") X))) EQL-OK: NIL (NOT (EQUAL (SUBST-IF-NOT 'NEW #'(LAMBDA (X) (NOT (EQ X 'OLD))) '(OLD OLD)) '(NEW NEW))) EQL-OK: NIL (NOT (EQ (SUBST-IF-NOT 'NEW #'(LAMBDA (X) (NOT (EQ X 'OLD))) 'OLD) 'NEW)) EQL-OK: NIL (NOT (EQUAL (SUBST-IF-NOT 'X #'(LAMBDA (X) (NOT (EQL X 3))) '(1 (1 2) (1 2 3) (1 2 3 4)) :KEY #'(LAMBDA (Y) (AND (LISTP Y) (THIRD Y)))) '(1 (1 2) X X))) EQL-OK: NIL (NOT (LET ((TREE '(OLD (OLD) ((OLD))))) (EQUAL (SUBST-IF-NOT 'NEW #'(LAMBDA (X) (NOT (EQ X 'OLD))) TREE) '(NEW (NEW) ((NEW)))))) EQL-OK: NIL (NOT (EQ (SUBST-IF-NOT 'NEW #'(LAMBDA (X) (NOT (EQ X 'OLD))) 'OLD) 'NEW)) EQL-OK: NIL (NOT (EQ (SUBST-IF-NOT 'NEW #'(LAMBDA (X) (NOT (EQ X 'OLD))) 'NOT-OLD) 'NOT-OLD)) EQL-OK: NIL (NOT (EQUAL (SUBST-IF-NOT 'NEW #'(LAMBDA (X) (NOT (EQUAL X '(B)))) '(A ((B)))) '(A (NEW)))) EQL-OK: NIL (NOT (EQUAL (SUBST-IF-NOT 'X #'(LAMBDA (X) (NOT (EQL X 3))) '(1 (1 2) (1 2 3) (1 2 3 4)) :KEY #'(LAMBDA (Y) (AND (LISTP Y) (THIRD Y)))) '(1 (1 2) X X))) EQL-OK: NIL (NOT (EQUAL (SUBST-IF-NOT 'X #'(LAMBDA (X) (NOT (EQUALP X "D"))) '("a" ("a" "b") ("a" "b" "c") ("a" "b" "c" "d")) :KEY #'(LAMBDA (Y) (AND (LISTP Y) (FOURTH Y)))) '("a" ("a" "b") ("a" "b" "c") X))) EQL-OK: NIL (NOT (LET ((TREE '(OLD (OLD) ((OLD))))) (EQUAL (NSUBST 'NEW 'OLD (COPY-TREE TREE)) '(NEW (NEW) ((NEW)))))) EQL-OK: NIL (NOT (LET* ((TREE (COPY-TREE '(OLD (OLD) ((OLD))))) (NEW-TREE (NSUBST 'NEW 'OLD TREE))) (AND (EQ TREE NEW-TREE) (EQUAL TREE '(NEW (NEW) ((NEW))))))) EQL-OK: NIL (NOT (EQ (NSUBST 'NEW 'OLD 'OLD) 'NEW)) EQL-OK: NIL (NOT (EQ (NSUBST 'NEW 'OLD 'NOT-OLD) 'NOT-OLD)) EQL-OK: NIL (NOT (EQUAL (NSUBST 'NEW '(B) (COPY-TREE '(A ((B)))) :TEST #'EQUAL) '(A (NEW)))) EQL-OK: NIL (NOT (EQUAL (NSUBST 'NEW '(B) (COPY-TREE '(A ((B)))) :TEST-NOT (COMPLEMENT #'EQUAL)) '(A (NEW)))) EQL-OK: NIL (NOT (EQUAL (NSUBST 'X 3 (COPY-TREE '(1 (1 2) (1 2 3) (1 2 3 4))) :KEY #'(LAMBDA (Y) (AND (LISTP Y) (THIRD Y)))) '(1 (1 2) X X))) EQL-OK: NIL (NOT (EQUAL (NSUBST 'X "D" (COPY-TREE '("a" ("a" "b") ("a" "b" "c") ("a" "b" "c" "d"))) :TEST #'EQUALP :KEY #'(LAMBDA (Y) (AND (LISTP Y) (FOURTH Y)))) '("a" ("a" "b") ("a" "b" "c") X))) EQL-OK: NIL (NOT (EQUAL (NSUBST-IF 'NEW #'(LAMBDA (X) (EQ X 'OLD)) (LIST 'OLD 'OLD)) '(NEW NEW))) EQL-OK: NIL (NOT (EQ (NSUBST-IF 'NEW #'(LAMBDA (X) (EQ X 'OLD)) 'OLD) 'NEW)) EQL-OK: NIL (NOT (LET* ((X (COPY-TREE '(OLD (OLD) ((OLD)) (OLD) OLD))) (Y (NSUBST-IF 'NEW #'(LAMBDA (X) (EQ X 'OLD)) X))) (AND (EQ X Y) (EQUAL X '(NEW (NEW) ((NEW)) (NEW) NEW))))) EQL-OK: NIL (NOT (EQUAL (NSUBST-IF 'X #'(LAMBDA (X) (EQL X 3)) (COPY-TREE '(1 (1 2) (1 2 3) (1 2 3 4))) :KEY #'(LAMBDA (Y) (AND (LISTP Y) (THIRD Y)))) '(1 (1 2) X X))) EQL-OK: NIL (NOT (LET ((TREE '(OLD (OLD) ((OLD))))) (EQUAL (NSUBST-IF 'NEW #'(LAMBDA (X) (EQ X 'OLD)) (COPY-TREE TREE)) '(NEW (NEW) ((NEW)))))) EQL-OK: NIL (NOT (EQ (NSUBST-IF 'NEW #'(LAMBDA (X) (EQ X 'OLD)) 'OLD) 'NEW)) EQL-OK: NIL (NOT (EQ (NSUBST-IF 'NEW #'(LAMBDA (X) (EQ X 'OLD)) 'NOT-OLD) 'NOT-OLD)) EQL-OK: NIL (NOT (EQUAL (NSUBST-IF 'NEW #'(LAMBDA (X) (EQUAL X '(B))) (COPY-TREE '(A ((B))))) '(A (NEW)))) EQL-OK: NIL (NOT (EQUAL (NSUBST-IF 'X #'(LAMBDA (X) (EQL X 3)) (COPY-TREE '(1 (1 2) (1 2 3) (1 2 3 4))) :KEY #'(LAMBDA (Y) (AND (LISTP Y) (THIRD Y)))) '(1 (1 2) X X))) EQL-OK: NIL (NOT (EQUAL (NSUBST-IF 'X #'(LAMBDA (X) (EQUALP X "D")) (COPY-TREE '("a" ("a" "b") ("a" "b" "c") ("a" "b" "c" "d"))) :KEY #'(LAMBDA (Y) (AND (LISTP Y) (FOURTH Y)))) '("a" ("a" "b") ("a" "b" "c") X))) EQL-OK: NIL (NOT (EQUAL (NSUBST-IF-NOT 'NEW #'(LAMBDA (X) (NOT (EQ X 'OLD))) (LIST 'OLD 'OLD)) '(NEW NEW))) EQL-OK: NIL (NOT (EQ (NSUBST-IF-NOT 'NEW #'(LAMBDA (X) (NOT (EQ X 'OLD))) 'OLD) 'NEW)) EQL-OK: NIL (NOT (LET* ((X (COPY-TREE '(OLD (OLD) ((OLD)) (OLD) OLD))) (Y (NSUBST-IF-NOT 'NEW #'(LAMBDA (X) (NOT (EQ X 'OLD))) X))) (AND (EQ X Y) (EQUAL X '(NEW (NEW) ((NEW)) (NEW) NEW))))) EQL-OK: NIL (NOT (EQUAL (NSUBST-IF-NOT 'X #'(LAMBDA (X) (NOT (EQL X 3))) (COPY-TREE '(1 (1 2) (1 2 3) (1 2 3 4))) :KEY #'(LAMBDA (Y) (AND (LISTP Y) (THIRD Y)))) '(1 (1 2) X X))) EQL-OK: NIL (NOT (LET ((TREE '(OLD (OLD) ((OLD))))) (EQUAL (NSUBST-IF-NOT 'NEW #'(LAMBDA (X) (NOT (EQ X 'OLD))) (COPY-TREE TREE)) '(NEW (NEW) ((NEW)))))) EQL-OK: NIL (NOT (EQ (NSUBST-IF-NOT 'NEW #'(LAMBDA (X) (NOT (EQ X 'OLD))) 'OLD) 'NEW)) EQL-OK: NIL (NOT (EQ (NSUBST-IF-NOT 'NEW #'(LAMBDA (X) (NOT (EQ X 'OLD))) 'NOT-OLD) 'NOT-OLD)) EQL-OK: NIL (NOT (EQUAL (NSUBST-IF-NOT 'NEW #'(LAMBDA (X) (NOT (EQUAL X '(B)))) (COPY-TREE '(A ((B))))) '(A (NEW)))) EQL-OK: NIL (NOT (EQUAL (NSUBST-IF-NOT 'X #'(LAMBDA (X) (NOT (EQL X 3))) (COPY-TREE '(1 (1 2) (1 2 3) (1 2 3 4))) :KEY #'(LAMBDA (Y) (AND (LISTP Y) (THIRD Y)))) '(1 (1 2) X X))) EQL-OK: NIL (NOT (EQUAL (NSUBST-IF-NOT 'X #'(LAMBDA (X) (NOT (EQUALP X "D"))) (COPY-TREE '("a" ("a" "b") ("a" "b" "c") ("a" "b" "c" "d"))) :KEY #'(LAMBDA (Y) (AND (LISTP Y) (FOURTH Y)))) '("a" ("a" "b") ("a" "b" "c") X))) EQL-OK: NIL (NOT (TREE-EQUAL 'A 'A)) EQL-OK: NIL (NOT (NOT (TREE-EQUAL 'A 'B))) EQL-OK: NIL (NOT (TREE-EQUAL '(A (B (C))) '(A (B (C))))) EQL-OK: NIL (NOT (TREE-EQUAL '(A (B (C))) '(A (B (C))) :TEST #'EQ)) EQL-OK: NIL (NOT (TREE-EQUAL '(A (B (C))) '(A (B (C))) :TEST-NOT (COMPLEMENT #'EQ))) EQL-OK: NIL (NOT (NOT (TREE-EQUAL '("a" ("b" ("c"))) '("a" ("b" ("c")))))) EQL-OK: NIL (NOT (TREE-EQUAL '("a" ("b" ("c"))) '("a" ("b" ("c"))) :TEST #'EQUAL)) EQL-OK: NIL (NOT (TREE-EQUAL '("a" ("b" ("c"))) '("a" ("b" ("c"))) :TEST-NOT (COMPLEMENT #'EQUAL))) EQL-OK: NIL (NOT (NOT (TREE-EQUAL '(A B) '(A (B))))) EQL-OK: NIL (NOT (EQ (COPY-LIST 'NIL) 'NIL)) EQL-OK: NIL (NOT (EQUAL (COPY-LIST '(A B C)) '(A B C))) EQL-OK: NIL (NOT (EQUAL (COPY-LIST '(A . B)) '(A . B))) EQL-OK: NIL (NOT (LET* ((X '(A B C)) (Y (COPY-LIST X))) (AND (EQUAL X Y) (NOT (EQ X Y))))) EQL-OK: NIL (NOT (LET* ((A (LIST 'A)) (B (LIST 'B)) (C (LIST 'C)) (X (LIST A B C)) (Y (COPY-LIST X))) (AND (EQUAL X Y) (NOT (EQ X Y)) (EQ (CAR X) (CAR Y)) (EQ (CADR X) (CADR Y)) (EQ (CADDR X) (CADDR Y)) (EQ (CAAR X) 'A) (EQ (CAADR X) 'B) (EQ (CAADDR X) 'C)))) EQL-OK: NIL (NOT (NULL (LIST))) EQL-OK: NIL (NOT (EQUAL (LIST 1) '(1))) EQL-OK: NIL (NOT (EQUAL (LIST 1 2 3) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LIST* 1 2 '(3)) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LIST* 1 2 'X) '(1 2 . X))) EQL-OK: NIL (NOT (EQUAL (LIST* 1 2 '(3 4)) '(1 2 3 4))) EQL-OK: NIL (NOT (EQ (LIST* 'X) 'X)) EQL-OK: NIL (NOT (EQL (LIST-LENGTH 'NIL) 0)) EQL-OK: NIL (NOT (EQL (LIST-LENGTH '(1)) 1)) EQL-OK: NIL (NOT (EQL (LIST-LENGTH '(1 2)) 2)) EQL-OK: NIL (NOT (NULL (LIST-LENGTH '#1=(1 2 3 4 . #1#)))) EQL-OK: NIL (NOT (EQUAL (MAKE-LIST 5) '(NIL NIL NIL NIL NIL))) EQL-OK: NIL (NOT (EQUAL (MAKE-LIST 3 :INITIAL-ELEMENT 'RAH) '(RAH RAH RAH))) EQL-OK: NIL (NOT (EQUAL (MAKE-LIST 2 :INITIAL-ELEMENT '(1 2 3)) '((1 2 3) (1 2 3)))) EQL-OK: NIL (NOT (NULL (MAKE-LIST 0))) EQL-OK: NIL (NOT (NULL (MAKE-LIST 0 :INITIAL-ELEMENT 'NEW-ELEMENT))) EQL-OK: NIL (NOT (LET ((PLACE NIL)) (AND (EQUAL (PUSH 0 PLACE) '(0)) (EQUAL PLACE '(0))))) EQL-OK: NIL (NOT (LET ((PLACE (LIST 1 2 3))) (AND (EQUAL (PUSH 0 PLACE) '(0 1 2 3)) (EQUAL PLACE '(0 1 2 3))))) EQL-OK: NIL (NOT (LET ((A (LIST (LIST 1 2 3) 9))) (AND (EQUAL (PUSH 0 (CAR A)) '(0 1 2 3)) (EQUAL A '((0 1 2 3) 9))))) EQL-OK: NIL (NOT (LET ((X (COPY-TREE '(A (B C) D)))) (AND (EQUAL (PUSH 'AA (CADR X)) '(AA B C)) (EQUAL X '(A (AA B C) D))))) EQL-OK: NIL (NOT (LET ((PLACE (LIST 1 2 3))) (AND (EQL (POP PLACE) 1) (EQUAL PLACE '(2 3))))) EQL-OK: NIL (NOT (LET ((PLACE 'NIL)) (AND (EQL (POP PLACE) NIL) (EQUAL PLACE 'NIL)))) EQL-OK: NIL (NOT (LET ((A (LIST (LIST 1 2 3) 9))) (AND (EQL (POP (CAR A)) 1) (EQUAL A '((2 3) 9))))) EQL-OK: NIL (NOT (LET ((X (LIST 'A 'B 'C))) (AND (EQ (POP (CDR X)) 'B) (EQUAL X '(A C))))) EQL-OK: NIL (NOT (EQ (FIRST '(A . B)) 'A)) EQL-OK: NIL (NOT (NULL (FIRST NIL))) EQL-OK: NIL (NOT (LET ((A (CONS 1 2))) (EQ (FIRST (LIST A)) A))) EQL-OK: NIL (NOT (EQ (FIRST '#1=(A . #1#)) 'A)) EQL-OK: NIL (NOT (EQL (FIRST '(1 2 3)) '1)) EQL-OK: NIL (NOT (EQL (SECOND '(1 2 3)) '2)) EQL-OK: NIL (NOT (EQL (THIRD '(1 2 3)) '3)) EQL-OK: NIL (NOT (EQL (FOURTH '(1 2 3 4)) '4)) EQL-OK: NIL (NOT (EQL (FIFTH '(1 2 3 4 5)) '5)) EQL-OK: NIL (NOT (EQL (SIXTH '(1 2 3 4 5 6)) '6)) EQL-OK: NIL (NOT (EQL (SEVENTH '(1 2 3 4 5 6 7)) '7)) EQL-OK: NIL (NOT (EQL (EIGHTH '(1 2 3 4 5 6 7 8)) '8)) EQL-OK: NIL (NOT (EQL (NINTH '(1 2 3 4 5 6 7 8 9)) '9)) EQL-OK: NIL (NOT (EQL (TENTH '(1 2 3 4 5 6 7 8 9 10)) '10)) EQL-OK: NIL (NOT (LET ((X (LIST 'A 'B 'C))) (AND (EQL (SETF (FIRST X) 0) 0) (EQUAL X '(0 B C))))) EQL-OK: NIL (NOT (LET ((X (LIST 'A 'B 'C))) (AND (EQL (SETF (SECOND X) 0) 0) (EQUAL X '(A 0 C))))) EQL-OK: NIL (NOT (LET ((X (LIST 'A 'B 'C))) (AND (EQL (SETF (THIRD X) 0) 0) (EQUAL X '(A B 0))))) EQL-OK: NIL (NOT (LET ((X (LIST 'A 'B 'C 'D))) (AND (EQL (SETF (FOURTH X) 0) 0) (EQUAL X '(A B C 0))))) EQL-OK: NIL (NOT (LET ((X (LIST 'A 'B 'C 'D 'E))) (AND (EQL (SETF (FIFTH X) 0) 0) (EQUAL X '(A B C D 0))))) EQL-OK: NIL (NOT (LET ((X (LIST 'A 'B 'C 'D 'E 'F))) (AND (EQL (SETF (SIXTH X) 0) 0) (EQUAL X '(A B C D E 0))))) EQL-OK: NIL (NOT (LET ((X (LIST 'A 'B 'C 'D 'E 'F 'G))) (AND (EQL (SETF (SEVENTH X) 0) 0) (EQUAL X '(A B C D E F 0))))) EQL-OK: NIL (NOT (LET ((X (LIST 'A 'B 'C 'D 'E 'F 'G 'H))) (AND (EQL (SETF (EIGHTH X) 0) 0) (EQUAL X '(A B C D E F G 0))))) EQL-OK: NIL (NOT (LET ((X (LIST 'A 'B 'C 'D 'E 'F 'G 'H 'I))) (AND (EQL (SETF (NINTH X) 0) 0) (EQUAL X '(A B C D E F G H 0))))) EQL-OK: NIL (NOT (LET ((X (LIST 'A 'B 'C 'D 'E 'F 'G 'H 'I 'J))) (AND (EQL (SETF (TENTH X) 0) 0) (EQUAL X '(A B C D E F G H I 0))))) EQL-OK: NIL (NOT (LET ((X '(A B C))) (EQ (NTHCDR 0 X) X))) EQL-OK: NIL (NOT (LET ((X '(A B C))) (EQ (NTHCDR 1 X) (CDR X)))) EQL-OK: NIL (NOT (LET ((X '(A B C))) (EQ (NTHCDR 2 X) (CDDR X)))) EQL-OK: NIL (NOT (LET ((X '(A B C))) (EQ (NTHCDR 2 X) (CDDR X)))) EQL-OK: NIL (NOT (LET ((X '(A B C))) (EQ (NTHCDR 3 X) (CDDDR X)))) EQL-OK: NIL (NOT (EQUAL (NTHCDR 0 '(0 1 2)) '(0 1 2))) EQL-OK: NIL (NOT (EQUAL (NTHCDR 1 '(0 1 2)) '(1 2))) EQL-OK: NIL (NOT (EQUAL (NTHCDR 2 '(0 1 2)) '(2))) EQL-OK: NIL (NOT (EQUAL (NTHCDR 3 '(0 1 2)) 'NIL)) EQL-OK: NIL (NOT (EQL (NTHCDR 1 '(0 . 1)) 1)) EQL-OK: NIL (NOT (EQL (NTH 0 '(A B C)) 'A)) EQL-OK: NIL (NOT (EQL (NTH 1 '(A B C)) 'B)) EQL-OK: NIL (NOT (EQL (NTH 2 '(A B C)) 'C)) EQL-OK: NIL (NOT (EQL (NTH 3 '(A B C)) 'NIL)) EQL-OK: NIL (NOT (EQL (NTH 4 '(A B C)) 'NIL)) EQL-OK: NIL (NOT (EQL (NTH 5 '(A B C)) 'NIL)) EQL-OK: NIL (NOT (EQL (NTH 6 '(A B C)) 'NIL)) EQL-OK: NIL (NOT (EQ (NTH 0 '(A . B)) 'A)) EQL-OK: NIL (NOT (LET ((X (LIST 'A 'B 'C))) (AND (EQ (SETF (NTH 0 X) 'Z) 'Z) (EQUAL X '(Z B C))))) EQL-OK: NIL (NOT (LET ((X (LIST 'A 'B 'C))) (AND (EQ (SETF (NTH 1 X) 'Z) 'Z) (EQUAL X '(A Z C))))) EQL-OK: NIL (NOT (LET ((X (LIST 'A 'B 'C))) (AND (EQ (SETF (NTH 2 X) 'Z) 'Z) (EQUAL X '(A B Z))))) EQL-OK: NIL (NOT (LET ((0-TO-3 (LIST 0 1 2 3))) (AND (EQUAL (SETF (NTH 2 0-TO-3) "two") "two") (EQUAL 0-TO-3 '(0 1 "two" 3))))) EQL-OK: NIL (NOT (EQ (NCONC) 'NIL)) EQL-OK: NIL (NOT (EQUAL (NCONC NIL (LIST 'A 'B 'C) (LIST 'D 'E 'F)) '(A B C D E F))) EQL-OK: NIL (NOT (EQUAL (NCONC NIL NIL (LIST 'A 'B 'C) (LIST 'D 'E 'F)) '(A B C D E F))) EQL-OK: NIL (NOT (EQUAL (NCONC NIL NIL NIL (LIST 'A 'B 'C) (LIST 'D 'E 'F)) '(A B C D E F))) EQL-OK: NIL (NOT (LET* ((X (LIST 'A 'B 'C))) (EQ (NCONC X) X))) EQL-OK: NIL (NOT (LET* ((X (LIST 'A 'B 'C)) (Y (LIST 'D 'E 'F)) (LIST (NCONC X Y))) (AND (EQ LIST X) (EQ (NTHCDR 3 LIST) Y) (EQUAL LIST '(A B C D E F))))) EQL-OK: NIL (NOT (LET* ((X (LIST 'A)) (Y (LIST 'B)) (Z (LIST 'C)) (LIST (NCONC X Y Z))) (AND (EQ X LIST) (EQ (FIRST LIST) 'A) (EQ Y (CDR LIST)) (EQ (SECOND LIST) 'B) (EQ Z (CDDR LIST)) (EQ (THIRD LIST) 'C)))) EQL-OK: NIL (NOT (EQUAL (APPEND '(A B) 'NIL '(C D) '(E F)) '(A B C D E F))) EQL-OK: NIL (NOT (NULL (APPEND))) EQL-OK: NIL (NOT (NULL (APPEND 'NIL))) EQL-OK: NIL (NOT (NULL (APPEND 'NIL 'NIL))) EQL-OK: NIL (NOT (EQ (APPEND 'A) 'A)) EQL-OK: NIL (NOT (EQ (APPEND 'NIL 'A) 'A)) EQL-OK: NIL (NOT (EQ (APPEND 'NIL 'NIL 'A) 'A)) EQL-OK: NIL (NOT (EQUAL (APPEND '(A B) 'C) '(A B . C))) EQL-OK: NIL (NOT (LET* ((X '(A B C)) (Y '(D E F)) (Z (APPEND X Y))) (AND (EQUAL Z '(A B C D E F)) (EQ (NTHCDR 3 Z) Y) (NOT (EQ X Z))))) EQL-OK: NIL (NOT (EQUAL (REVAPPEND '(A B C) '(D E F)) '(C B A D E F))) EQL-OK: NIL (NOT (LET* ((X '(A B C)) (Y '(D E F)) (Z (REVAPPEND X Y))) (AND (EQUAL Z '(C B A D E F)) (NOT (EQ X Z)) (EQ (NTHCDR 3 Z) Y)))) EQL-OK: NIL (NOT (LET ((X '(A B C))) (EQ (REVAPPEND 'NIL X) X))) EQL-OK: NIL (NOT (NULL (REVAPPEND 'NIL 'NIL))) EQL-OK: NIL (NOT (EQ (REVAPPEND 'NIL 'A) 'A)) EQL-OK: NIL (NOT (EQUAL (REVAPPEND '(A) 'B) '(A . B))) EQL-OK: NIL (NOT (EQUAL (REVAPPEND '(A) 'NIL) '(A))) EQL-OK: NIL (NOT (EQUAL (REVAPPEND '(1 2 3) 'NIL) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (NRECONC (LIST 'A 'B 'C) '(D E F)) '(C B A D E F))) EQL-OK: NIL (NOT (LET* ((X (LIST 'A 'B 'C)) (Y '(D E F)) (Z (NRECONC X Y))) (AND (EQUAL Z '(C B A D E F)) (EQ (NTHCDR 3 Z) Y)))) EQL-OK: NIL (NOT (LET ((X (LIST 'A 'B 'C))) (EQ (NRECONC 'NIL X) X))) EQL-OK: NIL (NOT (NULL (NRECONC 'NIL 'NIL))) EQL-OK: NIL (NOT (EQ (NRECONC 'NIL 'A) 'A)) EQL-OK: NIL (NOT (EQUAL (NRECONC (LIST 'A) 'B) '(A . B))) EQL-OK: NIL (NOT (EQUAL (NRECONC (LIST 'A) 'NIL) '(A))) EQL-OK: NIL (NOT (EQUAL (NRECONC (LIST 1 2 3) 'NIL) '(3 2 1))) EQL-OK: NIL (NOT (NULL (BUTLAST NIL))) EQL-OK: NIL (NOT (NULL (BUTLAST NIL 1))) EQL-OK: NIL (NOT (NULL (BUTLAST NIL 2))) EQL-OK: NIL (NOT (NULL (BUTLAST NIL 3))) EQL-OK: NIL (NOT (EQUAL (BUTLAST '(1 2 3 4 5)) '(1 2 3 4))) EQL-OK: NIL (NOT (EQUAL (BUTLAST '(1 2 3 4 5) 1) '(1 2 3 4))) EQL-OK: NIL (NOT (EQUAL (BUTLAST '(1 2 3 4 5) 2) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (BUTLAST '(1 2 3 4 5) 3) '(1 2))) EQL-OK: NIL (NOT (EQUAL (BUTLAST '(1 2 3 4 5) 4) '(1))) EQL-OK: NIL (NOT (EQUAL (BUTLAST '(1 2 3 4 5) 5) 'NIL)) EQL-OK: NIL (NOT (EQUAL (BUTLAST '(1 2 3 4 5) 6) 'NIL)) EQL-OK: NIL (NOT (EQUAL (BUTLAST '(1 2 3 4 5) 7) 'NIL)) EQL-OK: NIL (NOT (EQUAL (BUTLAST '(1 2 3 4 5 . 6)) '(1 2 3 4))) EQL-OK: NIL (NOT (EQUAL (BUTLAST '(1 2 3 4 5 . 6) 1) '(1 2 3 4))) EQL-OK: NIL (NOT (EQUAL (BUTLAST '(1 2 3 4 5 . 6) 2) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (BUTLAST '(1 2 3 4 5 . 6) 3) '(1 2))) EQL-OK: NIL (NOT (EQUAL (BUTLAST '(1 2 3 4 5 . 6) 4) '(1))) EQL-OK: NIL (NOT (EQUAL (BUTLAST '(1 2 3 4 5 . 6) 5) 'NIL)) EQL-OK: NIL (NOT (EQUAL (BUTLAST '(1 2 3 4 5 . 6) 6) 'NIL)) EQL-OK: NIL (NOT (EQUAL (BUTLAST '(1 2 3 4 5 . 6) 7) 'NIL)) EQL-OK: NIL (NOT (LET ((A '(1 2 3 4 5))) (EQUAL (BUTLAST A 3) '(1 2)) (EQUAL A '(1 2 3 4 5)))) EQL-OK: NIL (NOT (NULL (NBUTLAST NIL))) EQL-OK: NIL (NOT (NULL (NBUTLAST NIL 1))) EQL-OK: NIL (NOT (NULL (NBUTLAST NIL 2))) EQL-OK: NIL (NOT (NULL (NBUTLAST NIL 3))) EQL-OK: NIL (NOT (EQUAL (NBUTLAST (LIST 1 2 3 4 5)) '(1 2 3 4))) EQL-OK: NIL (NOT (EQUAL (NBUTLAST (LIST 1 2 3 4 5) 1) '(1 2 3 4))) EQL-OK: NIL (NOT (EQUAL (NBUTLAST (LIST 1 2 3 4 5) 2) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (NBUTLAST (LIST 1 2 3 4 5) 3) '(1 2))) EQL-OK: NIL (NOT (EQUAL (NBUTLAST (LIST 1 2 3 4 5) 4) '(1))) EQL-OK: NIL (NOT (EQUAL (NBUTLAST (LIST 1 2 3 4 5) 5) 'NIL)) EQL-OK: NIL (NOT (EQUAL (NBUTLAST (LIST 1 2 3 4 5) 6) 'NIL)) EQL-OK: NIL (NOT (EQUAL (NBUTLAST (LIST 1 2 3 4 5) 7) 'NIL)) EQL-OK: NIL (NOT (EQUAL (NBUTLAST (LIST* 1 2 3 4 5 6)) '(1 2 3 4))) EQL-OK: NIL (NOT (EQUAL (NBUTLAST (LIST* 1 2 3 4 5 6) 1) '(1 2 3 4))) EQL-OK: NIL (NOT (EQUAL (NBUTLAST (LIST* 1 2 3 4 5 6) 2) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (NBUTLAST (LIST* 1 2 3 4 5 6) 3) '(1 2))) EQL-OK: NIL (NOT (EQUAL (NBUTLAST (LIST* 1 2 3 4 5 6) 4) '(1))) EQL-OK: NIL (NOT (EQUAL (NBUTLAST (LIST* 1 2 3 4 5 6) 5) 'NIL)) EQL-OK: NIL (NOT (EQUAL (NBUTLAST (LIST* 1 2 3 4 5 6) 6) 'NIL)) EQL-OK: NIL (NOT (EQUAL (NBUTLAST (LIST* 1 2 3 4 5 6) 7) 'NIL)) EQL-OK: NIL (NOT (LET* ((A '(1 2 3 4 5)) (B (NBUTLAST A 3))) (AND (EQ A B) (EQUAL A '(1 2))))) EQL-OK: NIL (NOT (LET ((X '(0 1 2 3 4 5 6 7 8 9))) (EQ (LAST X) (NTHCDR 9 X)))) EQL-OK: NIL (NOT (NULL (LAST NIL))) EQL-OK: NIL (NOT (LET ((X '(0 1 . 2))) (EQ (LAST X) (CDR X)))) EQL-OK: NIL (NOT (EQL (LAST '(1 . 2) 0) 2)) EQL-OK: NIL (NOT (LET ((X '(0 1 2 3 4))) (EQ (LAST X 0) NIL))) EQL-OK: NIL (NOT (LET ((X '(0 1 2 3 4))) (EQ (LAST X) (NTHCDR 4 X)))) EQL-OK: NIL (NOT (LET ((X '(0 1 2 3 4))) (EQ (LAST X 1) (NTHCDR 4 X)))) EQL-OK: NIL (NOT (LET ((X '(0 1 2 3 4))) (EQ (LAST X 2) (CDDDR X)))) EQL-OK: NIL (NOT (LET ((X '(0 1 2 3 4))) (EQ (LAST X 3) (CDDR X)))) EQL-OK: NIL (NOT (LET ((X '(0 1 2 3 4))) (EQ (LAST X 4) (CDR X)))) EQL-OK: NIL (NOT (LET ((X '(0 1 2 3 4))) (EQ (LAST X 5) X))) EQL-OK: NIL (NOT (LET ((X '(0 1 2 3 4))) (EQ (LAST X 6) X))) EQL-OK: NIL (NOT (LET ((X '(0 1 2 3 4))) (EQ (LAST X 7) X))) EQL-OK: NIL (NOT (LET ((X '(0 1 2 3 4))) (EQ (LAST X 8) X))) EQL-OK: NIL (NOT (TAILP 'NIL 'NIL)) EQL-OK: NIL (NOT (TAILP 'NIL '(1))) EQL-OK: NIL (NOT (TAILP 'NIL '(1 2 3 4 5 6 7 8 9))) EQL-OK: NIL (NOT (LET ((X '(1 2 3))) (AND (TAILP X X) (TAILP (CDR X) X) (TAILP (CDDR X) X) (TAILP (CDDDR X) X)))) EQL-OK: NIL (NOT (LET ((X '(1 . 2))) (AND (TAILP X X) (TAILP (CDR X) X)))) EQL-OK: NIL (NOT (NOT (TAILP NIL '(1 . 2)))) EQL-OK: NIL (NOT (NOT (TAILP 'X '(1 2 3 4 5 6)))) EQL-OK: NIL (NOT (NOT (TAILP (LIST 1 2 3) '(1 2 3)))) EQL-OK: NIL (NOT (LET ((X '(1 2 3 4 5 . 6))) (TAILP (LAST X) X))) EQL-OK: NIL (NOT (LET ((X '(1 2 3 4 5 . 6))) (TAILP (LAST X) X))) EQL-OK: NIL (NOT (NULL (LDIFF 'NIL 'NIL))) EQL-OK: NIL (NOT (EQUAL (LDIFF '(1 . 2) 2) '(1))) EQL-OK: NIL (NOT (EQUAL (LDIFF '(1 2 3 4 5 6 7 8 9) 'NIL) '(1 2 3 4 5 6 7 8 9))) EQL-OK: NIL (NOT (LET ((X '(1 2 3))) (AND (NULL (LDIFF X X)) (EQUAL (LDIFF X (CDR X)) '(1)) (EQUAL (LDIFF X (CDDR X)) '(1 2)) (EQUAL (LDIFF X (CDDDR X)) '(1 2 3))))) EQL-OK: NIL (NOT (LET* ((X '(1 2 3)) (Y '(A B C)) (Z (LDIFF X Y))) (AND (NOT (EQ X Z)) (EQUAL Z '(1 2 3))))) EQL-OK: NIL (NOT (EQUAL (MEMBER 'A '(A B C D)) '(A B C D))) EQL-OK: NIL (NOT (EQUAL (MEMBER 'B '(A B C D)) '(B C D))) EQL-OK: NIL (NOT (EQUAL (MEMBER 'C '(A B C D)) '(C D))) EQL-OK: NIL (NOT (EQUAL (MEMBER 'D '(A B C D)) '(D))) EQL-OK: NIL (NOT (EQUAL (MEMBER 'E '(A B C D)) 'NIL)) EQL-OK: NIL (NOT (EQUAL (MEMBER 'F '(A B C D)) 'NIL)) EQL-OK: NIL (NOT (LET ((X '(A B C D))) (EQ (MEMBER 'A X) X) (EQ (MEMBER 'B X) (CDR X)) (EQ (MEMBER 'C X) (CDDR X)) (EQ (MEMBER 'D X) (CDDDR X)) (EQ (MEMBER 'E X) NIL))) EQL-OK: NIL (NOT (EQUAL (MEMBER 'A '(A B C D) :TEST #'EQ) '(A B C D))) EQL-OK: NIL (NOT (EQUAL (MEMBER 'B '(A B C D) :TEST #'EQ) '(B C D))) EQL-OK: NIL (NOT (EQUAL (MEMBER 'C '(A B C D) :TEST #'EQ) '(C D))) EQL-OK: NIL (NOT (EQUAL (MEMBER 'D '(A B C D) :TEST #'EQ) '(D))) EQL-OK: NIL (NOT (EQUAL (MEMBER 'E '(A B C D) :TEST #'EQ) 'NIL)) EQL-OK: NIL (NOT (EQUAL (MEMBER 'F '(A B C D) :TEST #'EQ) 'NIL)) EQL-OK: NIL (NOT (NULL (MEMBER 'A 'NIL))) EQL-OK: NIL (NOT (LET* ((X '((1 . A) (2 . B) (3 . C) (4 . D) (5 . E))) (Y (MEMBER 'D X :KEY #'CDR :TEST #'EQ))) (AND (EQUAL Y '((4 . D) (5 . E))) (EQ Y (NTHCDR 3 X))))) EQL-OK: NIL (NOT (LET* ((X '((1 . A) (2 . B) (3 . C) (4 . D) (5 . E))) (Y (MEMBER 'D X :KEY #'CDR))) (AND (EQUAL Y '((4 . D) (5 . E))) (EQ Y (NTHCDR 3 X))))) EQL-OK: NIL (NOT (LET* ((X '((1 . A) (2 . B) (3 . C) (4 . D) (5 . E))) (Y (MEMBER 'D X :KEY #'CDR :TEST-NOT (COMPLEMENT #'EQ)))) (AND (EQUAL Y '((4 . D) (5 . E))) (EQ Y (NTHCDR 3 X))))) EQL-OK: NIL (NOT (LET* ((X '((1 . A) (2 . B) (3 . C) (4 . D) (5 . E))) (Y (MEMBER 'D X :TEST-NOT (COMPLEMENT #'EQ)))) (EQ Y NIL))) EQL-OK: NIL (NOT (EQUAL (MEMBER 2 '((1 . 2) (3 . 4)) :TEST-NOT #'= :KEY #'CDR) '((3 . 4)))) EQL-OK: NIL (NOT (EQUAL (MEMBER-IF #'(LAMBDA (X) (EQL X 'A)) '(A B C D)) '(A B C D))) EQL-OK: NIL (NOT (EQUAL (MEMBER-IF #'(LAMBDA (X) (EQL X 'B)) '(A B C D)) '(B C D))) EQL-OK: NIL (NOT (EQUAL (MEMBER-IF #'(LAMBDA (X) (EQL X 'C)) '(A B C D)) '(C D))) EQL-OK: NIL (NOT (EQUAL (MEMBER-IF #'(LAMBDA (X) (EQL X 'D)) '(A B C D)) '(D))) EQL-OK: NIL (NOT (EQUAL (MEMBER-IF #'(LAMBDA (X) (EQL X 'E)) '(A B C D)) 'NIL)) EQL-OK: NIL (NOT (EQUAL (MEMBER-IF #'(LAMBDA (X) (EQL X 'F)) '(A B C D)) 'NIL)) EQL-OK: NIL (NOT (NULL (MEMBER-IF #'(LAMBDA (X) (EQL X 'A)) 'NIL))) EQL-OK: NIL (NOT (LET* ((X '((1 . A) (2 . B) (3 . C) (4 . D) (5 . E))) (Y (MEMBER-IF #'(LAMBDA (P) (EQ P 'D)) X :KEY #'CDR))) (AND (EQUAL Y '((4 . D) (5 . E))) (EQ Y (NTHCDR 3 X))))) EQL-OK: NIL (NOT (EQUAL (MEMBER-IF #'CDR '((1) (2 . 2) (3 3 . 3))) '((2 . 2) (3 3 . 3)))) EQL-OK: NIL (NOT (NULL (MEMBER-IF #'ZEROP '(7 8 9)))) EQL-OK: NIL (NOT (EQUAL (MEMBER-IF-NOT #'(LAMBDA (X) (NOT (EQL X 'A))) '(A B C D)) '(A B C D))) EQL-OK: NIL (NOT (EQUAL (MEMBER-IF-NOT #'(LAMBDA (X) (NOT (EQL X 'B))) '(A B C D)) '(B C D))) EQL-OK: NIL (NOT (EQUAL (MEMBER-IF-NOT #'(LAMBDA (X) (NOT (EQL X 'C))) '(A B C D)) '(C D))) EQL-OK: NIL (NOT (EQUAL (MEMBER-IF-NOT #'(LAMBDA (X) (NOT (EQL X 'D))) '(A B C D)) '(D))) EQL-OK: NIL (NOT (EQUAL (MEMBER-IF-NOT #'(LAMBDA (X) (NOT (EQL X 'E))) '(A B C D)) 'NIL)) EQL-OK: NIL (NOT (EQUAL (MEMBER-IF-NOT #'(LAMBDA (X) (NOT (EQL X 'F))) '(A B C D)) 'NIL)) EQL-OK: NIL (NOT (NULL (MEMBER-IF-NOT #'(LAMBDA (X) (NOT (EQL X 'A))) 'NIL))) EQL-OK: NIL (NOT (LET* ((X '((1 . A) (2 . B) (3 . C) (4 . D) (5 . E))) (Y (MEMBER-IF-NOT #'(LAMBDA (P) (NOT (EQ P 'D))) X :KEY #'CDR))) (AND (EQUAL Y '((4 . D) (5 . E))) (EQ Y (NTHCDR 3 X))))) EQL-OK: NIL (NOT (LET ((X '((1 2) (2 3) (3 4) (4 5))) (Y NIL)) (AND (EQ (MAPC #'(LAMBDA (A) (PUSH (CAR A) Y)) X) X) (EQUAL Y '(4 3 2 1))))) EQL-OK: NIL (NOT (LET ((DUMMY NIL) (LIST-1 '(1 2 3 4))) (AND (EQ (MAPC #'(LAMBDA (&REST X) (SETQ DUMMY (APPEND DUMMY X))) LIST-1 '(A B C D E) '(X Y Z)) LIST-1) (EQUAL DUMMY '(1 A X 2 B Y 3 C Z))))) EQL-OK: NIL (NOT (LET* ((X '(0 1 2 3)) (Y NIL) (Z (MAPC #'(LAMBDA (A B C) (PUSH (LIST A B C) Y)) X '(1 2 3 4) '(2 3 4 5)))) (AND (EQ Z X) (EQUAL Y '((3 4 5) (2 3 4) (1 2 3) (0 1 2)))))) EQL-OK: NIL (NOT (LET* ((X '(0 1 2 3)) (Y NIL) (Z (MAPC #'(LAMBDA (A B C) (PUSH (LIST A B C) Y)) NIL X '(1 2 3 4) '(2 3 4 5)))) (AND (NULL Z) (NULL Y)))) EQL-OK: NIL (NOT (LET ((SUM 0)) (MAPC #'(LAMBDA (&REST REST) (SETQ SUM (+ SUM (APPLY #'+ REST)))) '(0 1 2) '(1 2 0) '(2 0 1)) (EQL SUM 9))) EQL-OK: NIL (NOT (LET ((RESULT 'INITIAL-VALUE) (LIST-1 NIL)) (AND (EQ (MAPC #'(LAMBDA (A B) (SETQ RESULT (CONS (CONS A B) RESULT))) LIST-1) LIST-1) (EQ RESULT 'INITIAL-VALUE)))) EQL-OK: NIL (NOT (LET ((RESULT 'INITIAL-VALUE) (LIST-1 NIL)) (AND (EQ (MAPC #'(LAMBDA (A B) (SETQ RESULT (CONS (CONS A B) RESULT))) LIST-1 '(1 2 3)) LIST-1) (EQ RESULT 'INITIAL-VALUE)))) EQL-OK: NIL (NOT (LET ((RESULT 'INITIAL-VALUE) (LIST-1 '(1 2 3))) (AND (EQ (MAPC #'(LAMBDA (A B) (SETQ RESULT (CONS (CONS A B) RESULT))) LIST-1 'NIL) LIST-1) (EQ RESULT 'INITIAL-VALUE)))) EQL-OK: NIL (NOT (EQUAL (MAPCAR #'CAR '((1 2) (2 3) (3 4) (4 5))) '(1 2 3 4))) EQL-OK: NIL (NOT (NULL (MAPCAR #'IDENTITY 'NIL))) EQL-OK: NIL (NOT (EQUAL (MAPCAR #'LIST '(0 1 2 3) '(A B C D) '(W X Y Z)) '((0 A W) (1 B X) (2 C Y) (3 D Z)))) EQL-OK: NIL (NOT (NULL (MAPCAR #'LIST 'NIL '(0 1 2 3) '(1 2 3 4) '(2 3 4 5)))) EQL-OK: NIL (NOT (NULL (MAPCAR #'LIST '(0 1 2 3) 'NIL '(1 2 3 4) '(2 3 4 5)))) EQL-OK: NIL (NOT (NULL (MAPCAR #'LIST '(0 1 2 3) '(1 2 3 4) 'NIL '(2 3 4 5)))) EQL-OK: NIL (NOT (NULL (MAPCAR #'LIST '(0 1 2 3) '(1 2 3 4) '(2 3 4 5) 'NIL))) EQL-OK: NIL (NOT (EQUAL (MAPCAR #'LIST '(0) '(A B) '(X Y Z)) '((0 A X)))) EQL-OK: NIL (NOT (EQUAL (MAPCAR #'LIST '(A B) '(0) '(X Y Z)) '((A 0 X)))) EQL-OK: NIL (NOT (EQUAL (MAPCAR #'LIST '(A B) '(X Y Z) '(0)) '((A X 0)))) EQL-OK: NIL (NOT (EQUAL (MAPCAR #'CONS '(A B C) '(1 2 3)) '((A . 1) (B . 2) (C . 3)))) EQL-OK: NIL (NOT (EQUAL (MAPCAN #'CDR (COPY-TREE '((1 2) (2 3) (3 4) (4 5)))) '(2 3 4 5))) EQL-OK: NIL (NOT (EQUAL (MAPCAN #'APPEND '((1 2 3) (4 5 6) (7 8 9)) '((A) (B C) (D E F)) (LIST (LIST 'X 'Y 'Z) (LIST 'Y 'Z) (LIST 'Z))) '(1 2 3 A X Y Z 4 5 6 B C Y Z 7 8 9 D E F Z))) EQL-OK: NIL (NOT (NULL (MAPCAN #'APPEND '((1 2 3) (4 5 6) (7 8 9)) '((A) (B C)) 'NIL))) EQL-OK: NIL (NOT (NULL (MAPCAN #'APPEND '((1 2 3) (4 5 6) (7 8 9)) 'NIL '((A) (B C))))) EQL-OK: NIL (NOT (NULL (MAPCAN #'APPEND 'NIL '((1 2 3) (4 5 6) (7 8 9)) '((A) (B C))))) EQL-OK: NIL (NOT (EQUAL (MAPCAN #'LIST (LIST 1 2 3 4 5) (LIST 2 3 4 5 6) (LIST 3 4 5 6 7) (LIST 4 5 6 7 8)) '(1 2 3 4 2 3 4 5 3 4 5 6 4 5 6 7 5 6 7 8))) EQL-OK: NIL (NOT (EQUAL (MAPCAN #'(LAMBDA (X Y) (IF (NULL X) NIL (LIST X Y))) '(NIL NIL NIL D E) '(1 2 3 4 5 6)) '(D 4 E 5))) EQL-OK: NIL (NOT (EQUAL (MAPCAN #'(LAMBDA (X) (AND (NUMBERP X) (LIST X))) '(A 1 B C 3 4 D 5)) '(1 3 4 5))) EQL-OK: NIL (NOT (EQUAL (MAPLIST #'IDENTITY '(A B C D)) '((A B C D) (B C D) (C D) (D)))) EQL-OK: NIL (NOT (EQUAL (MAPLIST #'CAR '((1 2) (2 3) (3 4) (4 5))) '((1 2) (2 3) (3 4) (4 5)))) EQL-OK: NIL (NOT (EQUAL (MAPLIST #'LIST '(A B C) '(B C D) '(C D E)) '(((A B C) (B C D) (C D E)) ((B C) (C D) (D E)) ((C) (D) (E))))) EQL-OK: NIL (NOT (EQUAL (MAPLIST #'APPEND '(A B C) '(B C D) '(C D E)) '((A B C B C D C D E) (B C C D D E) (C D E)))) EQL-OK: NIL (NOT (EQUAL (MAPLIST #'APPEND '(A B C) '(B C) '(C)) '((A B C B C C)))) EQL-OK: NIL (NOT (NULL (MAPLIST #'APPEND 'NIL '(A B C) '(B C) '(C)))) EQL-OK: NIL (NOT (NULL (MAPLIST #'APPEND '(A B C) 'NIL '(B C) '(C)))) EQL-OK: NIL (NOT (NULL (MAPLIST #'APPEND '(A B C) '(B C) '(C) 'NIL))) EQL-OK: NIL (NOT (LET ((X '((1 2) (2 3) (3 4) (4 5))) (Y NIL)) (AND (EQ (MAPL #'(LAMBDA (A) (PUSH (CAR A) Y)) X) X) (EQUAL Y '((4 5) (3 4) (2 3) (1 2)))))) EQL-OK: NIL (NOT (LET ((X NIL)) (AND (NULL (MAPL #'(LAMBDA (&REST REST) (PUSH REST X)) 'NIL '(0) '(0 1))) (NULL X)))) EQL-OK: NIL (NOT (LET ((X NIL)) (AND (EQUAL (MAPL #'(LAMBDA (&REST REST) (PUSH REST X)) '(0) 'NIL '(0 1)) '(0)) (NULL X)))) EQL-OK: NIL (NOT (LET ((X NIL)) (AND (EQUAL (MAPL #'(LAMBDA (&REST REST) (PUSH REST X)) '(0) '(0 1) 'NIL) '(0)) (NULL X)))) EQL-OK: NIL (NOT (EQUAL (MAPCON #'CAR (COPY-TREE '((1 2) (2 3) (3 4) (4 5)))) '(1 2 2 3 3 4 4 5))) EQL-OK: NIL (NOT (EQUAL (MAPCON #'LIST '(0 1 2 3) '(1 2 3 4) '(2 3 4 5) '(3 4 5 6)) '((0 1 2 3) (1 2 3 4) (2 3 4 5) (3 4 5 6) (1 2 3) (2 3 4) (3 4 5) (4 5 6) (2 3) (3 4) (4 5) (5 6) (3) (4) (5) (6)))) EQL-OK: NIL (NOT (NULL (MAPCON #'LIST 'NIL '(0 1 2 3) '(1 2 3 4) '(2 3 4 5) '(3 4 5 6)))) EQL-OK: NIL (NOT (NULL (MAPCON #'LIST '(0 1 2 3) 'NIL '(1 2 3 4) '(2 3 4 5) '(3 4 5 6)))) EQL-OK: NIL (NOT (NULL (MAPCON #'LIST '(0 1 2 3) '(1 2 3 4) 'NIL '(2 3 4 5) '(3 4 5 6)))) EQL-OK: NIL (NOT (NULL (MAPCON #'LIST '(0 1 2 3) '(1 2 3 4) '(2 3 4 5) 'NIL '(3 4 5 6)))) EQL-OK: NIL (NOT (NULL (MAPCON #'LIST '(0 1 2 3) '(1 2 3 4) '(2 3 4 5) '(3 4 5 6) 'NIL))) EQL-OK: NIL (NOT (LET* ((X '((APPLE . 1) (ORANGE . 2) (GRAPES . 3))) (Y (ACONS 'PLUM 9 X))) (AND (EQUAL Y '((PLUM . 9) (APPLE . 1) (ORANGE . 2) (GRAPES . 3))) (EQ X (CDR Y))))) EQL-OK: NIL (NOT (EQUAL (ACONS 'A '0 NIL) '((A . 0)))) EQL-OK: NIL (NOT (EQUAL (ACONS 'APPLE 1 (ACONS 'ORANGE 2 (ACONS 'GRAPES '3 NIL))) '((APPLE . 1) (ORANGE . 2) (GRAPES . 3)))) EQL-OK: NIL (NOT (EQUAL (ACONS NIL NIL NIL) '((NIL)))) EQL-OK: NIL (NOT (LET ((ALIST '((X . 100) (Y . 200) (Z . 50)))) (EQ (ASSOC 'Y ALIST) (CADR ALIST)))) EQL-OK: NIL (NOT (NULL (ASSOC 'NO-SUCH-KEY '((X . 100) (Y . 200) (Z . 50))))) EQL-OK: NIL (NOT (LET ((ALIST '((X . 100) (Y . 200) (Z . 50)))) (EQ (ASSOC 'Y ALIST :TEST #'EQ) (CADR ALIST)))) EQL-OK: NIL (NOT (NULL (ASSOC 'KEY 'NIL))) EQL-OK: NIL (NOT (NULL (ASSOC 'NIL '(NIL)))) EQL-OK: NIL (NOT (NULL (ASSOC 'NIL '(NIL NIL)))) EQL-OK: NIL (NOT (LET ((ALIST '(NIL NIL NIL (X . 100) (Y . 200) (Z . 50)))) (EQ (ASSOC 'Y ALIST) (CAR (CDDDDR ALIST))))) EQL-OK: NIL (NOT (LET ((ALIST '((1 . A) NIL (2 . B) (NIL)))) (EQ (ASSOC 'NIL ALIST) (CADDDR ALIST)))) EQL-OK: NIL (NOT (LET ((ALIST '((X . 100) (Y . 200) (X . 100) (Z . 50)))) (EQ (ASSOC 'Y ALIST) (CADR ALIST)))) EQL-OK: NIL (NOT (LET ((ALIST '((A . 1) (B . 2) (C . 3) (D . 4)))) (EQ (ASSOC 'A ALIST :TEST-NOT (COMPLEMENT #'EQ)) (CAR ALIST)))) EQL-OK: NIL (NOT (LET ((ALIST '((A . 1) (B . 2) (C . 3) (D . 4)))) (NULL (ASSOC 'Z ALIST :TEST-NOT (COMPLEMENT #'EQ))))) EQL-OK: NIL (NOT (LET ((ALIST '(((A AA AAA)) ((B BB BBB)) ((C CC CCC)) ((D DD DDD))))) (EQ (ASSOC 'AA ALIST :KEY #'CADR :TEST #'EQ) (CAR ALIST)))) EQL-OK: NIL (NOT (LET ((ALIST '(((A AA AAA)) ((B BB BBB)) ((C CC CCC)) ((D DD DDD))))) (EQ (ASSOC 'BB ALIST :KEY #'CADR :TEST #'EQ) (CADR ALIST)))) EQL-OK: NIL (NOT (LET ((ALIST '(((A AA AAA)) ((B BB BBB)) ((C CC CCC)) ((D DD DDD))))) (EQ (ASSOC 'CC ALIST :KEY #'CADR :TEST #'EQ) (CADDR ALIST)))) EQL-OK: NIL (NOT (LET ((ALIST '(((A AA AAA)) ((B BB BBB)) ((C CC CCC)) ((D DD DDD))))) (EQ (ASSOC 'DD ALIST :KEY #'CADR :TEST #'EQ) (CADDDR ALIST)))) EQL-OK: NIL (NOT (LET ((ALIST '(((A AA AAA)) ((B BB BBB)) ((C CC CCC)) ((D DD DDD))))) (NULL (ASSOC 'EE ALIST :KEY #'CADR :TEST #'EQ)))) EQL-OK: NIL (NOT (LET ((ALIST '(((A AA AAA)) NIL ((B BB BBB)) ((C CC CCC)) ((D DD DDD))))) (EQ (ASSOC 'DD ALIST :KEY #'CADR :TEST #'EQ) (CAR (CDDDDR ALIST))))) EQL-OK: NIL (NOT (LET ((ALIST '(((A AA AAA)) ((B BB BBB)) NIL ((C CC CCC)) ((D DD DDD))))) (EQ (ASSOC 'DD ALIST :KEY #'CADR :TEST #'EQ) (CAR (CDDDDR ALIST))))) EQL-OK: NIL (NOT (LET ((ALIST '(((A AA AAA)) NIL ((B BB BBB)) ((C CC CCC)) ((D DD DDD))))) (EQ (ASSOC 'DD ALIST :KEY #'CADR :TEST #'EQ) (CAR (CDDDDR ALIST))))) EQL-OK: NIL (NOT (LET ((ALIST '(((A AA AAA)) ((B BB BBB)) ((C CC CCC)) ((D DD DDD)) NIL))) (EQ (ASSOC 'DD ALIST :KEY #'CADR :TEST #'EQ) (CADDDR ALIST)))) EQL-OK: NIL (NOT (LET ((ALIST '((X . 100) (Y . 200) (Z . 50)))) (EQ (ASSOC-IF #'(LAMBDA (ARG) (EQ ARG 'Y)) ALIST) (CADR ALIST)))) EQL-OK: NIL (NOT (NULL (ASSOC-IF #'CONSP '((X . 100) (Y . 200) (Z . 50))))) EQL-OK: NIL (NOT (NULL (ASSOC-IF #'(LAMBDA (X) (EQ X 'KEY)) 'NIL))) EQL-OK: NIL (NOT (NULL (ASSOC-IF #'IDENTITY '(NIL)))) EQL-OK: NIL (NOT (NULL (ASSOC-IF #'IDENTITY '(NIL NIL)))) EQL-OK: NIL (NOT (LET ((ALIST '(NIL NIL NIL (X . 100) (Y . 200) (Z . 50)))) (EQ (ASSOC-IF #'(LAMBDA (ARG) (EQ ARG 'Y)) ALIST) (CAR (CDDDDR ALIST))))) EQL-OK: NIL (NOT (LET ((ALIST '((1 . A) NIL (2 . B) (NIL)))) (EQ (ASSOC-IF #'(LAMBDA (ARG) (NULL ARG)) ALIST) (CADDDR ALIST)))) EQL-OK: NIL (NOT (LET ((ALIST '(((A AA AAA)) ((B BB BBB)) ((C CC CCC)) ((D DD DDD))))) (EQ (ASSOC-IF #'(LAMBDA (X) (EQ X 'AA)) ALIST :KEY #'CADR) (CAR ALIST)))) EQL-OK: NIL (NOT (LET ((ALIST '(((A AA AAA)) ((B BB BBB)) ((C CC CCC)) ((D DD DDD))))) (EQ (ASSOC-IF #'(LAMBDA (X) (EQ X 'BB)) ALIST :KEY #'CADR) (CADR ALIST)))) EQL-OK: NIL (NOT (LET ((ALIST '(((A AA AAA)) ((B BB BBB)) ((C CC CCC)) ((D DD DDD))))) (NULL (ASSOC-IF #'(LAMBDA (X) (EQ X 'EE)) ALIST :KEY #'CADR)))) EQL-OK: NIL (NOT (LET ((ALIST '((X . 100) (Y . 200) (Z . 50)))) (EQ (ASSOC-IF-NOT #'(LAMBDA (ARG) (NOT (EQ ARG 'Y))) ALIST) (CADR ALIST)))) EQL-OK: NIL (NOT (NULL (ASSOC-IF-NOT (COMPLEMENT #'CONSP) '((X . 100) (Y . 200) (Z . 50))))) EQL-OK: NIL (NOT (NULL (ASSOC-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'KEY))) 'NIL))) EQL-OK: NIL (NOT (NULL (ASSOC-IF-NOT #'IDENTITY '(NIL)))) EQL-OK: NIL (NOT (NULL (ASSOC-IF-NOT #'IDENTITY '(NIL NIL)))) EQL-OK: NIL (NOT (LET ((ALIST '(NIL NIL NIL (X . 100) (Y . 200) (Z . 50)))) (EQ (ASSOC-IF-NOT #'(LAMBDA (ARG) (NOT (EQ ARG 'Y))) ALIST) (CAR (CDDDDR ALIST))))) EQL-OK: NIL (NOT (LET ((ALIST '((1 . A) NIL (2 . B) (NIL)))) (EQ (ASSOC-IF-NOT #'IDENTITY ALIST) (CADDDR ALIST)))) EQL-OK: NIL (NOT (LET ((ALIST '(((A AA AAA)) ((B BB BBB)) ((C CC CCC)) ((D DD DDD))))) (EQ (ASSOC-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'AA))) ALIST :KEY #'CADR) (CAR ALIST)))) EQL-OK: NIL (NOT (LET ((ALIST '(((A AA AAA)) ((B BB BBB)) ((C CC CCC)) ((D DD DDD))))) (EQ (ASSOC-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'BB))) ALIST :KEY #'CADR) (CADR ALIST)))) EQL-OK: NIL (NOT (LET ((ALIST '(((A AA AAA)) ((B BB BBB)) ((C CC CCC)) ((D DD DDD))))) (NULL (ASSOC-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'EE))) ALIST :KEY #'CADR)))) EQL-OK: NIL (NOT (EQUAL (COPY-ALIST '((A . 10) (B . 100) (C . 1000))) '((A . 10) (B . 100) (C . 1000)))) EQL-OK: NIL (NOT (LET* ((ALIST '((A . 10) (B . 100) (C . 1000))) (COPY (COPY-ALIST ALIST))) (AND (NOT (EQ ALIST COPY)) (NOT (EQ (CDR ALIST) (CDR COPY))) (NOT (EQ (CDDR ALIST) (CDDR COPY))) (NOT (EQ (CAR ALIST) (CAR COPY))) (NOT (EQ (CADR ALIST) (CADR COPY))) (NOT (EQ (CADDR ALIST) (CADDR COPY)))))) EQL-OK: NIL (NOT (LET* ((ALIST '((A 10 X) (B 100 Y) (C 1000 Z))) (COPY (COPY-ALIST ALIST))) (AND (NOT (EQ ALIST COPY)) (NOT (EQ (CDR ALIST) (CDR COPY))) (NOT (EQ (CDDR ALIST) (CDDR COPY))) (NOT (EQ (CAR ALIST) (CAR COPY))) (NOT (EQ (CADR ALIST) (CADR COPY))) (NOT (EQ (CADDR ALIST) (CADDR COPY))) (EQ (CDAR ALIST) (CDAR COPY)) (EQ (CDADR ALIST) (CDADR COPY)) (EQ (CDADDR ALIST) (CDADDR COPY))))) EQL-OK: NIL (NOT (LET* ((ALIST (PAIRLIS '(X Y Z) '(XX YY ZZ) '((A . AA) (B . BB))))) (AND (EQUAL (ASSOC 'X ALIST) '(X . XX)) (EQUAL (ASSOC 'Y ALIST) '(Y . YY)) (EQUAL (ASSOC 'Z ALIST) '(Z . ZZ)) (EQUAL (ASSOC 'A ALIST) '(A . AA)) (EQUAL (ASSOC 'B ALIST) '(B . BB)) (NULL (ASSOC 'KEY ALIST))))) EQL-OK: NIL (NOT (LET* ((ALIST (PAIRLIS '(X Y Z) '(XX YY ZZ)))) (AND (EQUAL (ASSOC 'X ALIST) '(X . XX)) (EQUAL (ASSOC 'Y ALIST) '(Y . YY)) (EQUAL (ASSOC 'Z ALIST) '(Z . ZZ)) (NULL (ASSOC 'KEY ALIST))))) EQL-OK: NIL (NOT (LET ((ALIST '((X . 100) (Y . 200) (Z . 50)))) (EQ (RASSOC '200 ALIST) (CADR ALIST)))) EQL-OK: NIL (NOT (NULL (RASSOC 'NO-SUCH-DATUM '((X . 100) (Y . 200) (Z . 50))))) EQL-OK: NIL (NOT (LET ((ALIST '((X . 100) (Y . 200) (Z . 50)))) (EQ (RASSOC '200 ALIST :TEST #'=) (CADR ALIST)))) EQL-OK: NIL (NOT (NULL (RASSOC 'KEY 'NIL))) EQL-OK: NIL (NOT (NULL (RASSOC 'NIL '(NIL)))) EQL-OK: NIL (NOT (NULL (RASSOC 'NIL '(NIL NIL)))) EQL-OK: NIL (NOT (LET ((ALIST '(NIL NIL NIL (X . 100) (Y . 200) (Z . 50)))) (EQ (RASSOC '200 ALIST) (CAR (CDDDDR ALIST))))) EQL-OK: NIL (NOT (LET ((ALIST '((1 . A) NIL (2 . B) (NIL)))) (EQ (RASSOC 'NIL ALIST) (CADDDR ALIST)))) EQL-OK: NIL (NOT (LET ((ALIST '((X . 100) (Y . 200) (X . 100) (Z . 50)))) (EQ (RASSOC '200 ALIST) (CADR ALIST)))) EQL-OK: NIL (NOT (LET ((ALIST '((A . 1) (B . 2) (C . 3) (D . 4)))) (EQ (RASSOC '1 ALIST :TEST-NOT (COMPLEMENT #'=)) (CAR ALIST)))) EQL-OK: NIL (NOT (LET ((ALIST '((A . 1) (B . 2) (C . 3) (D . 4)))) (NULL (RASSOC '9 ALIST :TEST-NOT (COMPLEMENT #'=))))) EQL-OK: NIL (NOT (LET ((ALIST '((A AA AAA) (B BB BBB) (C CC CCC) (D DD DDD)))) (EQ (RASSOC 'AA ALIST :KEY #'CAR :TEST #'EQ) (CAR ALIST)))) EQL-OK: NIL (NOT (LET ((ALIST '((A AA AAA) (B BB BBB) (C CC CCC) (D DD DDD)))) (EQ (RASSOC 'DDD ALIST :KEY #'CADR :TEST #'EQ) (CADDDR ALIST)))) EQL-OK: NIL (NOT (LET ((ALIST '((A AA AAA) (B BB BBB) (C CC CCC) (D DD DDD)))) (NULL (RASSOC 'EEE ALIST :KEY #'CADR :TEST #'EQ)))) EQL-OK: NIL (NOT (LET ((ALIST '((A AA AAA) NIL (B BB BBB) (C CC CCC) (D DD DDD)))) (EQ (RASSOC 'DDD ALIST :KEY #'CADR :TEST #'EQ) (CAR (CDDDDR ALIST))))) EQL-OK: NIL (NOT (LET ((ALIST '((A AA AAA) (B BB BBB) NIL (C CC CCC) (D DD DDD)))) (EQ (RASSOC 'DDD ALIST :KEY #'CADR :TEST #'EQ) (CAR (CDDDDR ALIST))))) EQL-OK: NIL (NOT (LET ((ALIST '((A AA AAA) (B BB BBB) (C CC CCC) (D DD DDD) NIL))) (EQ (RASSOC 'DDD ALIST :KEY #'CADR :TEST #'EQ) (CAR (CDDDR ALIST))))) EQL-OK: NIL (NOT (LET ((ALIST '((X . 100) (Y . 200) (Z . 50)))) (EQ (RASSOC-IF #'(LAMBDA (ARG) (= ARG 200)) ALIST) (CADR ALIST)))) EQL-OK: NIL (NOT (NULL (RASSOC-IF #'CONSP '((X . 100) (Y . 200) (Z . 50))))) EQL-OK: NIL (NOT (NULL (RASSOC-IF #'(LAMBDA (X) (EQ X 'KEY)) 'NIL))) EQL-OK: NIL (NOT (NULL (RASSOC-IF #'IDENTITY '(NIL)))) EQL-OK: NIL (NOT (NULL (RASSOC-IF #'IDENTITY '(NIL NIL)))) EQL-OK: NIL (NOT (LET ((ALIST '(NIL NIL NIL (X . 100) (Y . 200) (Z . 50)))) (EQ (RASSOC-IF #'(LAMBDA (ARG) (= ARG 200)) ALIST) (CAR (CDDDDR ALIST))))) EQL-OK: NIL (NOT (LET ((ALIST '((1 . A) NIL (2 . B) (NIL)))) (EQ (RASSOC-IF #'(LAMBDA (ARG) (NULL ARG)) ALIST) (CADDDR ALIST)))) EQL-OK: NIL (NOT (LET ((ALIST '((A AA AAA) (B BB BBB) (C CC CCC) (D DD DDD)))) (EQ (RASSOC-IF #'(LAMBDA (X) (EQ X 'AAA)) ALIST :KEY #'CADR) (CAR ALIST)))) EQL-OK: NIL (NOT (LET ((ALIST '((A AA AAA) (B BB BBB) (C CC CCC) (D DD DDD)))) (EQ (RASSOC-IF #'(LAMBDA (X) (EQ X 'BBB)) ALIST :KEY #'CADR) (CADR ALIST)))) EQL-OK: NIL (NOT (LET ((ALIST '((A AA AAA) (B BB BBB) (C CC CCC) (D DD DDD)))) (NULL (RASSOC-IF #'(LAMBDA (X) (EQ X 'EEE)) ALIST :KEY #'CADR)))) EQL-OK: NIL (NOT (LET ((ALIST '((X . 100) (Y . 200) (Z . 50)))) (EQ (RASSOC-IF-NOT #'(LAMBDA (ARG) (NOT (= ARG 200))) ALIST) (CADR ALIST)))) EQL-OK: NIL (NOT (NULL (RASSOC-IF-NOT (COMPLEMENT #'CONSP) '((X . 100) (Y . 200) (Z . 50))))) EQL-OK: NIL (NOT (NULL (RASSOC-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'KEY))) 'NIL))) EQL-OK: NIL (NOT (NULL (RASSOC-IF-NOT #'IDENTITY '(NIL)))) EQL-OK: NIL (NOT (NULL (RASSOC-IF-NOT #'IDENTITY '(NIL NIL)))) EQL-OK: NIL (NOT (LET ((ALIST '(NIL NIL NIL (X . 100) (Y . 200) (Z . 50)))) (EQ (RASSOC-IF-NOT #'(LAMBDA (ARG) (NOT (= ARG 200))) ALIST) (CAR (CDDDDR ALIST))))) EQL-OK: NIL (NOT (LET ((ALIST '((1 . A) NIL (2 . B) (NIL)))) (EQ (ASSOC-IF-NOT #'IDENTITY ALIST) (CADDDR ALIST)))) EQL-OK: NIL (NOT (LET ((ALIST '((A AA AAA) (B BB BBB) (C CC CCC) (D DD DDD)))) (EQ (RASSOC-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'AAA))) ALIST :KEY #'CADR) (CAR ALIST)))) EQL-OK: NIL (NOT (LET ((ALIST '((A AA AAA) (B BB BBB) (C CC CCC) (D DD DDD)))) (EQ (RASSOC-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'BBB))) ALIST :KEY #'CADR) (CADR ALIST)))) EQL-OK: NIL (NOT (LET ((ALIST '(((A AA AAA) . 0) ((B BB BBB) . 1) ((C CC CCC) . 2)))) (EQ (RASSOC-IF-NOT #'(LAMBDA (X) (NOT (= X '2))) ALIST :KEY #'1+) (CADR ALIST)))) EQL-OK: NIL (NOT (LET ((PLIST '(PROP1 1 PROP2 2 PROP3 3 PROP4 4))) (MULTIPLE-VALUE-BIND (INDICATOR VALUE TAIL) (GET-PROPERTIES PLIST '(PROP3 PROP4 PROPX PROPY)) (AND (EQ INDICATOR 'PROP3) (EQL VALUE 3) (EQ TAIL (NTHCDR 4 PLIST)))))) EQL-OK: NIL (NOT (MULTIPLE-VALUE-BIND (INDICATOR VALUE TAIL) (GET-PROPERTIES '(PROP1 1 PROP2 2 PROP3 3 PROP4 4) '(PROPX PROPY PROPZ)) (AND (EQ INDICATOR NIL) (EQ VALUE NIL) (EQ TAIL NIL)))) EQL-OK: NIL (NOT (LET ((PLIST '(PROP1 1 PROP2 2 PROP3 3 PROP4 4))) (MULTIPLE-VALUE-BIND (INDICATOR VALUE TAIL) (GET-PROPERTIES PLIST '(PROP1)) (AND (EQ INDICATOR 'PROP1) (EQL VALUE 1) (EQ TAIL PLIST))))) EQL-OK: NIL (NOT (LET ((PLIST '(PROP1 1 NIL NIL PROP2 2 PROP3 3 PROP4 4))) (MULTIPLE-VALUE-BIND (INDICATOR VALUE TAIL) (GET-PROPERTIES PLIST '(NIL)) (AND (EQ INDICATOR NIL) (EQL VALUE NIL) (EQ TAIL (CDDR PLIST)))))) EQL-OK: NIL (NOT (LET ((PLIST '(PROP1 1 PROP2 2 PROP3 3 PROP4 4))) (MULTIPLE-VALUE-BIND (INDICATOR VALUE TAIL) (GET-PROPERTIES PLIST '(PROP3 PROP4 PROPX PROPY PROP1)) (AND (EQ INDICATOR 'PROP1) (EQL VALUE 1) (EQ TAIL PLIST))))) EQL-OK: NIL (NOT (LET ((PLIST '(PROP1 1 PROP2 2 PROP3 3 PROP4 4))) (EQL (GETF PLIST 'PROP1) 1))) EQL-OK: NIL (NOT (LET ((PLIST '(PROP1 1 PROP2 2 PROP3 3 PROP4 4))) (EQL (GETF PLIST 'PROP2) 2))) EQL-OK: NIL (NOT (LET ((PLIST '(PROP1 1 PROP2 2 PROP3 3 PROP4 4))) (EQL (GETF PLIST 'PROP3) 3))) EQL-OK: NIL (NOT (LET ((PLIST '(PROP1 1 PROP2 2 PROP3 3 PROP4 4))) (EQL (GETF PLIST 'PROP4) 4))) EQL-OK: NIL (NOT (LET ((PLIST '(PROP1 1 PROP2 2 PROP3 3 PROP4 4 PROP1 5 PROP2 6 PROP3 7 PROP4 8))) (EQL (GETF PLIST 'PROP1) 1))) EQL-OK: NIL (NOT (LET ((PLIST '(PROP1 1 PROP2 2 PROP3 3 PROP4 4 PROP1 5 PROP2 6 PROP3 7 PROP4 8))) (EQL (GETF PLIST 'PROP2) 2))) EQL-OK: NIL (NOT (LET ((PLIST '(PROP1 1 PROP2 2 PROP3 3 PROP4 4 PROP1 5 PROP2 6 PROP3 7 PROP4 8))) (EQL (GETF PLIST 'PROP3) 3))) EQL-OK: NIL (NOT (LET ((PLIST '(PROP1 1 PROP2 2 PROP3 3 PROP4 4 PROP1 5 PROP2 6 PROP3 7 PROP4 8))) (EQL (GETF PLIST 'PROP4) 4))) EQL-OK: NIL (NOT (LET ((PLIST '(PROP1 1 PROP2 2 PROP3 3 PROP4 4 PROP1 5 PROP2 6 PROP3 7 PROP4 8))) (NULL (GETF PLIST 'PROPX)))) EQL-OK: NIL (NOT (LET ((PLIST '(PROP1 1 PROP2 2 PROP3 3 PROP4 4))) (EQ (GETF PLIST 'WEIRD-PROPERTY 'NOT-FOUND) 'NOT-FOUND))) EQL-OK: NIL (NOT (LET ((PLIST (COPY-LIST '(PROP1 1 PROP2 2 PROP3 3 PROP4 4)))) (AND (EQL (SETF (GETF PLIST 'PROP1) 9) 9) (EQL (GETF PLIST 'PROP1) 9)))) EQL-OK: NIL (NOT (LET ((PLIST NIL)) (AND (EQL (SETF (GETF PLIST 'PROP1) 9) 9) (EQL (GETF PLIST 'PROP1) 9)))) EQL-OK: NIL (NOT (LET ((PLIST 'NIL)) (INCF (GETF PLIST 'COUNT 0)) (EQL (GETF PLIST 'COUNT) 1))) EQL-OK: NIL (NOT (LET ((X (LIST NIL))) (AND (EQL (SETF (GETF (CAR X) 'PROP1) 9) 9) (EQL (GETF (CAR X) 'PROP1) 9)))) EQL-OK: NIL (NOT (LET ((PLIST (LIST 'P1 1 'P2 2 'P3 3 'P4 4))) (AND (REMF PLIST 'P2) (EQ (GETF PLIST 'P2 'NOT-FOUND) 'NOT-FOUND)))) EQL-OK: NIL (NOT (LET ((PLIST (LIST 'P1 1 'P2 2 'P3 3 'P4 4))) (AND (REMF PLIST 'P3) (EQ (GETF PLIST 'P3 'NOT-FOUND) 'NOT-FOUND)))) EQL-OK: NIL (NOT (LET ((PLIST (LIST 'P1 1 'P2 2 'P3 3 'P4 4))) (AND (REMF PLIST 'P4) (EQ (GETF PLIST 'P4 'NOT-FOUND) 'NOT-FOUND)))) EQL-OK: NIL (NOT (LET ((PLIST (LIST 'P1 1 'P2 2 'P3 3 'P4 4))) (AND (NULL (REMF PLIST 'PX)) (EQUAL PLIST '(P1 1 P2 2 P3 3 P4 4))))) EQL-OK: NIL (NOT (LET ((PLIST (LIST 'P1 1 'P2 2 'P3 3 'P4 4))) (AND (REMF PLIST 'P4) (REMF PLIST 'P2) (REMF PLIST 'P3) (REMF PLIST 'P1) (NULL (REMF PLIST 'PX)) (NULL (REMF PLIST 'P1)) (NULL (REMF PLIST 'P2)) (NULL (REMF PLIST 'P3)) (NULL (REMF PLIST 'P4)) (NULL PLIST)))) EQL-OK: NIL (NOT (LET ((PLIST (LIST 'P1 1 'P2 2 'P3 3 'P4 4 'P1 5 'P2 6 'P3 7 'P4 8))) (AND (REMF PLIST 'P4) (REMF PLIST 'P2) (REMF PLIST 'P3) (REMF PLIST 'P1) (NULL (REMF PLIST 'PX)) (EQL (GETF PLIST 'P1) 5) (EQL (GETF PLIST 'P2) 6) (EQL (GETF PLIST 'P3) 7) (EQL (GETF PLIST 'P4) 8)))) EQL-OK: NIL (NOT (LET ((PLIST (LIST 'P1 100 'P1 1 'P2 2 'P3 3 'P4 4))) (AND (EQL (GETF PLIST 'P1) 100) (REMF PLIST 'P1) (EQL (GETF PLIST 'P1) 1) (REMF PLIST 'P1) (NULL (GETF PLIST 'P1))))) EQL-OK: NIL (NOT (LET ((PLIST (LIST 'P1 1 'P2 2 'P3 3 'P4 4))) (AND (REMF PLIST 'P4) (NULL (GETF PLIST 'P4))))) EQL-OK: NIL (NOT (LET ((LIST1 (LIST 1 1 2 3 4 'A 'B 'C "A" "B" "C" "d")) (LIST2 (LIST 1 4 5 'B 'C 'D "a" "B" "c" "D"))) (NULL (SET-EXCLUSIVE-OR (INTERSECTION LIST1 LIST2) '(C B 4 1 1))) (NULL (SET-EXCLUSIVE-OR (INTERSECTION LIST1 LIST2 :TEST 'EQUAL) '("B" C B 4 1 1) :TEST 'EQUAL)) (NULL (SET-EXCLUSIVE-OR (INTERSECTION LIST1 LIST2 :TEST #'EQUALP) '("d" "C" "B" "A" C B 4 1 1) :TEST #'EQUALP)))) EQL-OK: NIL (NOT (NULL (INTERSECTION '(0 1 2) 'NIL))) EQL-OK: NIL (NOT (NULL (INTERSECTION 'NIL 'NIL))) EQL-OK: NIL (NOT (NULL (INTERSECTION 'NIL '(0 1 2)))) EQL-OK: NIL (NOT (EQUAL (INTERSECTION '(0) '(0)) '(0))) EQL-OK: NIL (NOT (EQUAL (INTERSECTION '(0 1 2 3) '(2)) '(2))) EQL-OK: NIL (NOT (MEMBER 0 (INTERSECTION '(0 0 0 0 0) '(0 1 2 3 4 5)))) EQL-OK: NIL (NOT (NULL (SET-EXCLUSIVE-OR (INTERSECTION '(0 1 2 3 4) '(4 3 2 1 0)) '(4 3 2 1 0)))) EQL-OK: NIL (NOT (NULL (SET-EXCLUSIVE-OR (INTERSECTION '(0 1 2 3 4) '(0 1 2 3 4)) '(0 1 2 3 4)))) EQL-OK: NIL (NOT (NULL (SET-EXCLUSIVE-OR (INTERSECTION '(0 1 2 3 4) '(4 3 2 1 0)) '(0 1 2 3 4)))) EQL-OK: NIL (NOT (LET ((LIST1 (LIST "A" "B" "C" "d" "e" "F" "G" "h")) (LIST2 (LIST "a" "B" "c" "D" "E" "F" "g" "h"))) (NULL (SET-EXCLUSIVE-OR (INTERSECTION LIST1 LIST2 :TEST #'CHAR= :KEY #'(LAMBDA (X) (CHAR X 0))) '("B" "F" "h") :TEST #'CHAR= :KEY #'(LAMBDA (X) (CHAR X 0)))))) EQL-OK: NIL (NOT (LET ((LIST1 (LIST "A" "B" "C" "d" "e" "F" "G" "h")) (LIST2 (LIST "a" "B" "c" "D" "E" "F" "g" "h"))) (NULL (SET-EXCLUSIVE-OR (INTERSECTION LIST1 LIST2 :TEST #'CHAR-EQUAL :KEY #'(LAMBDA (X) (CHAR X 0))) '("A" "B" "C" "d" "e" "F" "G" "h") :TEST #'CHAR-EQUAL :KEY #'(LAMBDA (X) (CHAR X 0)))))) EQL-OK: NIL (NOT (LET ((LIST1 (LIST "A" "B" "C" "d")) (LIST2 (LIST "D" "E" "F" "g" "h"))) (NULL (SET-EXCLUSIVE-OR (INTERSECTION LIST1 LIST2 :TEST #'CHAR-EQUAL :KEY #'(LAMBDA (X) (CHAR X 0))) '("d") :TEST #'CHAR-EQUAL :KEY #'(LAMBDA (X) (CHAR X 0)))))) EQL-OK: NIL (NOT (LET ((LIST1 (LIST 1 1 2 3 4 'A 'B 'C "A" "B" "C" "d")) (LIST2 (LIST 1 4 5 'B 'C 'D "a" "B" "c" "D"))) (NULL (SET-EXCLUSIVE-OR (NINTERSECTION (COPY-LIST LIST1) LIST2) '(C B 4 1 1))) (NULL (SET-EXCLUSIVE-OR (NINTERSECTION (COPY-LIST LIST1) LIST2 :TEST 'EQUAL) '("B" C B 4 1 1) :TEST 'EQUAL)) (NULL (SET-EXCLUSIVE-OR (NINTERSECTION (COPY-LIST LIST1) LIST2 :TEST #'EQUALP) '("d" "C" "B" "A" C B 4 1 1) :TEST #'EQUALP)))) EQL-OK: NIL (NOT (NULL (NINTERSECTION (LIST 0 1 2) 'NIL))) EQL-OK: NIL (NOT (NULL (NINTERSECTION 'NIL 'NIL))) EQL-OK: NIL (NOT (NULL (NINTERSECTION 'NIL '(0 1 2)))) EQL-OK: NIL (NOT (EQUAL (NINTERSECTION (LIST 0) '(0)) '(0))) EQL-OK: NIL (NOT (EQUAL (NINTERSECTION (LIST 0 1 2 3) '(2)) '(2))) EQL-OK: NIL (NOT (MEMBER 0 (NINTERSECTION (LIST 0 0 0 0 0) '(0 1 2 3 4 5)))) EQL-OK: NIL (NOT (NULL (SET-EXCLUSIVE-OR (NINTERSECTION (LIST 0 1 2 3 4) '(4 3 2 1 0)) '(4 3 2 1 0)))) EQL-OK: NIL (NOT (NULL (SET-EXCLUSIVE-OR (NINTERSECTION (LIST 0 1 2 3 4) '(0 1 2 3 4)) '(0 1 2 3 4)))) EQL-OK: NIL (NOT (NULL (SET-EXCLUSIVE-OR (NINTERSECTION (LIST 0 1 2 3 4) '(4 3 2 1 0)) '(0 1 2 3 4)))) EQL-OK: NIL (NOT (LET ((LIST1 (LIST "A" "B" "C" "d" "e" "F" "G" "h")) (LIST2 (LIST "a" "B" "c" "D" "E" "F" "g" "h"))) (NULL (SET-EXCLUSIVE-OR (NINTERSECTION LIST1 LIST2 :TEST #'CHAR= :KEY #'(LAMBDA (X) (CHAR X 0))) '("B" "F" "h") :TEST #'CHAR= :KEY #'(LAMBDA (X) (CHAR X 0)))))) EQL-OK: NIL (NOT (LET ((LIST1 (LIST "A" "B" "C" "d" "e" "F" "G" "h")) (LIST2 (LIST "a" "B" "c" "D" "E" "F" "g" "h"))) (NULL (SET-EXCLUSIVE-OR (NINTERSECTION LIST1 LIST2 :TEST #'CHAR-EQUAL :KEY #'(LAMBDA (X) (CHAR X 0))) '("A" "B" "C" "d" "e" "F" "G" "h") :TEST #'CHAR-EQUAL :KEY #'(LAMBDA (X) (CHAR X 0)))))) EQL-OK: NIL (NOT (LET ((LIST1 (LIST "A" "B" "C" "d")) (LIST2 (LIST "D" "E" "F" "g" "h"))) (NULL (SET-EXCLUSIVE-OR (NINTERSECTION LIST1 LIST2 :TEST #'CHAR-EQUAL :KEY #'(LAMBDA (X) (CHAR X 0))) '("d") :TEST #'CHAR-EQUAL :KEY #'(LAMBDA (X) (CHAR X 0)))))) EQL-OK: NIL (NOT (LET ((SET '(A B C))) (EQ (ADJOIN 'A SET) SET))) EQL-OK: NIL (NOT (LET* ((SET '(A B C)) (NEW-SET (ADJOIN 'X SET))) (AND (EQUAL NEW-SET '(X A B C)) (EQ SET (CDR NEW-SET))))) EQL-OK: NIL (NOT (EQUAL (ADJOIN 1 NIL) '(1))) EQL-OK: NIL (NOT (EQUAL (ADJOIN NIL NIL) '(NIL))) EQL-OK: NIL (NOT (EQUAL (ADJOIN NIL '(NIL)) '(NIL))) EQL-OK: NIL (NOT (LET ((SET '((TEST-ITEM 1)))) (EQUAL (ADJOIN '(TEST-ITEM 1) SET) '((TEST-ITEM 1) (TEST-ITEM 1))))) EQL-OK: NIL (NOT (LET ((SET '((TEST-ITEM 1)))) (EQUAL (ADJOIN '(TEST-ITEM 1) SET) '((TEST-ITEM 1) (TEST-ITEM 1))))) EQL-OK: NIL (NOT (LET ((SET '((TEST-ITEM 1)))) (EQ (ADJOIN '(TEST-ITEM 1) SET :TEST #'EQUAL) SET))) EQL-OK: NIL (NOT (LET ((SET '((TEST-ITEM 1)))) (EQ (ADJOIN '(TEST-ITEM) SET :KEY #'CAR) SET))) EQL-OK: NIL (NOT (LET ((SET '((TEST-ITEM 1)))) (EQ (ADJOIN '(TEST-ITEM) SET :KEY #'CAR :TEST #'EQ) SET))) EQL-OK: NIL (NOT (LET ((SET '(("test-item" 1)))) (EQ (ADJOIN '("test-item") SET :KEY #'CAR :TEST #'EQUAL) SET))) EQL-OK: NIL (NOT (LET ((SET '((TEST-ITEM 1)))) (EQ (ADJOIN '(TEST-ITEM 1) SET :TEST-NOT (COMPLEMENT #'EQUAL)) SET))) EQL-OK: NIL (NOT (LET ((SET '((TEST-ITEM 1)))) (EQ (ADJOIN '(TEST-ITEM) SET :TEST-NOT (COMPLEMENT #'EQL) :KEY #'CAR) SET))) EQL-OK: NIL (NOT (LET ((SET '((TEST-ITEM 1)))) (EQ (ADJOIN '(TEST-ITEM) SET :KEY #'CAR :TEST-NOT (COMPLEMENT #'EQ)) SET))) EQL-OK: NIL (NOT (LET ((SET '(("test-item" 1)))) (EQ (ADJOIN '("test-item") SET :KEY #'CAR :TEST-NOT (COMPLEMENT #'EQUAL)) SET))) EQL-OK: NIL (NOT (LET ((PLACE NIL)) (AND (EQUAL (PUSHNEW 'A PLACE) '(A)) (EQUAL PLACE '(A))))) EQL-OK: NIL (NOT (LET ((PLACE NIL)) (AND (EQUAL (PUSHNEW 'A PLACE) '(A)) (EQUAL PLACE '(A))))) EQL-OK: NIL (NOT (LET ((PLACE '((A . 1) (B . 2)))) (AND (EQUAL (PUSHNEW '(B . 2) PLACE :TEST #'= :KEY #'CDR) '((A . 1) (B . 2))) (EQUAL PLACE '((A . 1) (B . 2)))))) EQL-OK: NIL (NOT (LET ((PLACE '((A . 1) (B . 2)))) (AND (EQUAL (PUSHNEW '(B . 2) PLACE :TEST-NOT (COMPLEMENT #'=) :KEY #'CDR) '((A . 1) (B . 2))) (EQUAL PLACE '((A . 1) (B . 2)))))) EQL-OK: NIL (NOT (LET ((PLACE '((A . 1) (B . 2)))) (AND (EQ (PUSHNEW '(Z . 2) PLACE :TEST #'= :KEY #'CDR) PLACE) (EQUAL PLACE '((A . 1) (B . 2)))))) EQL-OK: NIL (NOT (LET ((PLACE '((A . 1) (B . 2)))) (AND (EQ (PUSHNEW '(Z . 2) PLACE :TEST-NOT (COMPLEMENT #'=) :KEY #'CDR) PLACE) (EQUAL PLACE '((A . 1) (B . 2)))))) EQL-OK: NIL (NOT (LET ((PLACE '("love" "peace"))) (EQUAL (PUSHNEW "war" PLACE :TEST #'EQUAL) '("war" "love" "peace")))) EQL-OK: NIL (NOT (LET ((PLACE '("love" "peace"))) (EQUAL (PUSHNEW "war" PLACE :TEST-NOT (COMPLEMENT #'EQUAL)) '("war" "love" "peace")))) EQL-OK: NIL (NOT (LET ((PLACE '("love" "peace"))) (AND (EQ (PUSHNEW "peace" PLACE :TEST #'EQUAL) PLACE) (EQUAL PLACE '("love" "peace"))))) EQL-OK: NIL (NOT (LET ((PLACE '("love" "peace"))) (AND (EQ (PUSHNEW "peace" PLACE :TEST-NOT (COMPLEMENT #'EQUAL)) PLACE) (EQUAL PLACE '("love" "peace"))))) EQL-OK: NIL (NOT (LET ((PLACE '(("love" . L) ("peace" . P)))) (EQUAL (PUSHNEW '("war" . W) PLACE :TEST #'EQUAL :KEY #'CAR) '(("war" . W) ("love" . L) ("peace" . P))))) EQL-OK: NIL (NOT (LET ((PLACE '(("love" . L) ("peace" . P)))) (EQUAL (PUSHNEW '("war" . W) PLACE :TEST-NOT (COMPLEMENT #'EQUAL) :KEY #'CAR) '(("war" . W) ("love" . L) ("peace" . P))))) EQL-OK: NIL (NOT (LET ((PLACE '(("love" . L) ("peace" . P)))) (AND (EQ (PUSHNEW '("love" . L) PLACE :TEST #'EQUAL :KEY #'CAR) PLACE) (EQUAL PLACE '(("love" . L) ("peace" . P)))))) EQL-OK: NIL (NOT (LET ((PLACE '(("love" . L) ("peace" . P)))) (AND (EQ (PUSHNEW '("love" . L) PLACE :TEST-NOT (COMPLEMENT #'EQUAL) :KEY #'CAR) PLACE) (EQUAL PLACE '(("love" . L) ("peace" . P)))))) EQL-OK: NIL (NOT (LET ((PLACE '(("love" . L) ("peace" . P)))) (AND (EQ (PUSHNEW '("LOVE" . L) PLACE :TEST #'EQUALP :KEY #'CAR) PLACE) (EQUAL PLACE '(("love" . L) ("peace" . P)))))) EQL-OK: NIL (NOT (LET ((PLACE '(("love" . L) ("peace" . P)))) (AND (EQ (PUSHNEW '("LOVE" . L) PLACE :TEST-NOT (COMPLEMENT #'EQUALP) :KEY #'CAR) PLACE) (EQUAL PLACE '(("love" . L) ("peace" . P)))))) EQL-OK: NIL (NOT (LET ((PLACE '(("love" . L) ("peace" . P)))) (EQUAL (PUSHNEW '("LOVE" . L) PLACE :TEST #'EQUAL :KEY #'CAR) '(("LOVE" . L) ("love" . L) ("peace" . P))))) EQL-OK: NIL (NOT (LET ((PLACE '(("love" . L) ("peace" . P)))) (EQUAL (PUSHNEW '("LOVE" . L) PLACE :TEST-NOT (COMPLEMENT #'EQUAL) :KEY #'CAR) '(("LOVE" . L) ("love" . L) ("peace" . P))))) EQL-OK: NIL (NOT (LET ((LIST '((1) (1 2) (1 2 3)))) (AND (EQUAL (PUSHNEW '(1) LIST) '((1) (1) (1 2) (1 2 3))) (EQUAL LIST '((1) (1) (1 2) (1 2 3)))))) EQL-OK: NIL (NOT (LET* ((LIST '((1) (1 2) (1 2 3))) (ORIGINAL LIST)) (AND (EQUAL (PUSHNEW '(1) LIST :TEST #'EQUAL) '((1) (1 2) (1 2 3))) (EQ LIST ORIGINAL)))) EQL-OK: NIL (NOT (LET* ((LIST '((1) (1 2) (1 2 3))) (ORIGINAL LIST)) (AND (EQUAL (PUSHNEW '(1) LIST :TEST #'EQUAL :KEY NIL) '((1) (1 2) (1 2 3))) (EQ LIST ORIGINAL)))) EQL-OK: NIL (NOT (LET ((LIST (COPY-TREE '(1 (2) 3 4)))) (AND (EQUAL (PUSHNEW 4 (CADR LIST)) '(4 2)) (EQUAL LIST '(1 (4 2) 3 4))))) EQL-OK: NIL (NOT (LET ((LIST (COPY-TREE '(1 (2) 3 4)))) (AND (EQUAL (PUSHNEW 4 (CADR LIST) :KEY NIL) '(4 2)) (EQUAL LIST '(1 (4 2) 3 4))))) EQL-OK: NIL (NOT (NULL (SET-DIFFERENCE (SET-DIFFERENCE '(1 2 3 4 5 6 7 8 9) '(2 4 6 8)) '(1 3 5 7 9)))) EQL-OK: NIL (NOT (NULL (NSET-DIFFERENCE (SET-DIFFERENCE (LIST 1 2 3 4 5 6 7 8 9) '(2 4 6 8)) '(1 3 5 7 9)))) EQL-OK: NIL (NOT (NULL (SET-DIFFERENCE (SET-DIFFERENCE '("1" "2" "3" "4" "5" "6" "7" "8" "9") '("2" "4" "6" "8") :TEST #'EQUAL) '("1" "3" "5" "7" "9") :TEST-NOT (COMPLEMENT #'EQUAL)))) EQL-OK: NIL (NOT (NULL (SET-DIFFERENCE (SET-DIFFERENCE '("1" "2" "3" "4" "5" "6" "7" "8" "9") '("2" "4" "6" "8") :TEST #'EQUAL) '("1" "3" "5" "7" "9") :TEST-NOT (COMPLEMENT #'EQUAL)))) EQL-OK: NIL (NOT (NULL (NSET-DIFFERENCE (NSET-DIFFERENCE (LIST "1" "2" "3" "4" "5" "6" "7" "8" "9") '("2" "4" "6" "8") :TEST #'EQUAL) '("1" "3" "5" "7" "9") :TEST-NOT (COMPLEMENT #'EQUAL)))) EQL-OK: NIL (NOT (NULL (SET-DIFFERENCE (SET-DIFFERENCE '(("love") ("hate") ("peace") ("war")) '(("love") ("peace")) :KEY #'CAR :TEST #'EQUAL) '(("hate") ("war")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'EQUAL)))) EQL-OK: NIL (NOT (NULL (NSET-DIFFERENCE (NSET-DIFFERENCE (LIST '("love") '("hate") '("peace") '("war")) '(("love") ("peace")) :KEY #'CAR :TEST #'EQUAL) '(("hate") ("war")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'EQUAL)))) EQL-OK: NIL (NOT (NULL (SET-DIFFERENCE 'NIL 'NIL))) EQL-OK: NIL (NOT (NULL (SET-DIFFERENCE 'NIL 'NIL :TEST #'EQUAL :KEY 'IDENTITY))) EQL-OK: NIL (NOT (NULL (NSET-DIFFERENCE 'NIL 'NIL))) EQL-OK: NIL (NOT (NULL (SET-DIFFERENCE 'NIL '(1 2 3)))) EQL-OK: NIL (NOT (NULL (SET-DIFFERENCE 'NIL '(1 2 3) :TEST #'EQUAL :KEY 'IDENTITY))) EQL-OK: NIL (NOT (NULL (NSET-DIFFERENCE 'NIL '(1 2 3)))) EQL-OK: NIL (NOT (NULL (SET-DIFFERENCE '(1 2 3 4) '(4 3 2 1)))) EQL-OK: NIL (NOT (NULL (NSET-DIFFERENCE (LIST 1 2 3 4) '(4 3 2 1)))) EQL-OK: NIL (NOT (NULL (SET-DIFFERENCE '(1 2 3 4) '(2 4 3 1)))) EQL-OK: NIL (NOT (NULL (NSET-DIFFERENCE (LIST 1 2 3 4) '(2 4 3 1)))) EQL-OK: NIL (NOT (NULL (SET-DIFFERENCE '(1 2 3 4) '(1 3 4 2)))) EQL-OK: NIL (NOT (NULL (NSET-DIFFERENCE (LIST 1 2 3 4) '(1 3 4 2)))) EQL-OK: NIL (NOT (NULL (SET-DIFFERENCE '(1 2 3 4) '(1 3 2 4)))) EQL-OK: NIL (NOT (NULL (NSET-DIFFERENCE (LIST 1 2 3 4) '(1 3 2 4)))) EQL-OK: NIL (NOT (EQ (SET-DIFFERENCE (SET-DIFFERENCE '(1 2 3) 'NIL) '(1 2 3)) 'NIL)) EQL-OK: NIL (NOT (EQ (NSET-DIFFERENCE (NSET-DIFFERENCE (LIST 1 2 3) 'NIL) '(1 2 3)) 'NIL)) EQL-OK: NIL (NOT (EQ (SET-DIFFERENCE (SET-DIFFERENCE '(1 2 3) '(1)) '(2 3)) 'NIL)) EQL-OK: NIL (NOT (EQ (NSET-DIFFERENCE (NSET-DIFFERENCE (LIST 1 2 3) '(1)) '(2 3)) 'NIL)) EQL-OK: NIL (NOT (EQ (SET-DIFFERENCE (SET-DIFFERENCE '(1 2 3) '(1 2)) '(3)) 'NIL)) EQL-OK: NIL (NOT (EQ (NSET-DIFFERENCE (NSET-DIFFERENCE (LIST 1 2 3) '(1 2)) '(3)) 'NIL)) EQL-OK: NIL (NOT (NULL (SET-EXCLUSIVE-OR (SET-EXCLUSIVE-OR '(1 2 3) '(2 3 4)) '(1 4)))) EQL-OK: NIL (NOT (NULL (NSET-EXCLUSIVE-OR (NSET-EXCLUSIVE-OR (LIST 1 2 3) '(2 3 4)) '(1 4)))) EQL-OK: NIL (NOT (NULL (SET-EXCLUSIVE-OR (SET-EXCLUSIVE-OR '(1 2 3) '(1 3)) '(2)))) EQL-OK: NIL (NOT (NULL (NSET-EXCLUSIVE-OR (NSET-EXCLUSIVE-OR (LIST 1 2 3) '(1 3)) '(2)))) EQL-OK: NIL (NOT (NULL (SET-EXCLUSIVE-OR 'NIL 'NIL))) EQL-OK: NIL (NOT (NULL (NSET-EXCLUSIVE-OR 'NIL 'NIL))) EQL-OK: NIL (NOT (NULL (SET-EXCLUSIVE-OR '(1 2 3) '(3 2 1)))) EQL-OK: NIL (NOT (NULL (NSET-EXCLUSIVE-OR (LIST 1 2 3) '(3 2 1)))) EQL-OK: NIL (NOT (NULL (SET-EXCLUSIVE-OR '(1 2 3) '(2 3 1)))) EQL-OK: NIL (NOT (NULL (NSET-EXCLUSIVE-OR (LIST 1 2 3) '(2 3 1)))) EQL-OK: NIL (NOT (NULL (SET-EXCLUSIVE-OR '(1 2 3) '(1 3 2)))) EQL-OK: NIL (NOT (NULL (NSET-EXCLUSIVE-OR (LIST 1 2 3) '(1 3 2)))) EQL-OK: NIL (NOT (NULL (SET-EXCLUSIVE-OR (SET-EXCLUSIVE-OR '(1 2 3) 'NIL) '(3 2 1)))) EQL-OK: NIL (NOT (NULL (NSET-EXCLUSIVE-OR (NSET-EXCLUSIVE-OR (LIST 1 2 3) 'NIL) '(3 2 1)))) EQL-OK: NIL (NOT (NULL (SET-EXCLUSIVE-OR (SET-EXCLUSIVE-OR 'NIL '(1 2 3)) '(2 1 3)))) EQL-OK: NIL (NOT (NULL (NSET-EXCLUSIVE-OR (NSET-EXCLUSIVE-OR 'NIL '(1 2 3)) '(2 1 3)))) EQL-OK: NIL (NOT (NULL (SET-EXCLUSIVE-OR '("car" "ship" "airplane" "submarine") '("car" "ship" "airplane" "submarine") :TEST #'EQUAL))) EQL-OK: NIL (NOT (NULL (NSET-EXCLUSIVE-OR (COPY-LIST '("car" "ship" "airplane" "submarine")) '("car" "ship" "airplane" "submarine") :TEST #'EQUAL))) EQL-OK: NIL (NOT (NULL (SET-EXCLUSIVE-OR '("car" "ship" "airplane" "submarine") '("CAR" "SHIP" "AIRPLANE" "SUBMARINE") :TEST #'EQUALP))) EQL-OK: NIL (NOT (NULL (NSET-EXCLUSIVE-OR (COPY-LIST '("car" "ship" "airplane" "submarine")) '("CAR" "SHIP" "AIRPLANE" "SUBMARINE") :TEST #'EQUALP))) EQL-OK: NIL (NOT (NULL (SET-EXCLUSIVE-OR '("car" "ship" "airplane" "submarine") '("ship" "airplane" "submarine" "car") :TEST-NOT (COMPLEMENT #'EQUAL)))) EQL-OK: NIL (NOT (NULL (NSET-EXCLUSIVE-OR (COPY-LIST '("car" "ship" "airplane" "submarine")) '("ship" "airplane" "submarine" "car") :TEST-NOT (COMPLEMENT #'EQUAL)))) EQL-OK: NIL (NOT (NULL (SET-EXCLUSIVE-OR '(("car") ("ship") ("airplane") ("submarine")) '(("car") ("ship") ("airplane") ("submarine")) :TEST #'STRING= :KEY #'CAR))) EQL-OK: NIL (NOT (NULL (NSET-EXCLUSIVE-OR (COPY-TREE '(("car") ("ship") ("airplane") ("submarine"))) '(("car") ("ship") ("airplane") ("submarine")) :TEST #'STRING= :KEY #'CAR))) EQL-OK: NIL (NOT (NULL (SET-EXCLUSIVE-OR '(("car") ("ship") ("airplane") ("submarine")) '(("car") ("ship") ("airplane") ("submarine")) :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'CAR))) EQL-OK: NIL (NOT (NULL (NSET-EXCLUSIVE-OR (COPY-TREE '(("car") ("ship") ("airplane") ("submarine"))) '(("car") ("ship") ("airplane") ("submarine")) :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'CAR))) EQL-OK: NIL (NOT (NULL (SET-EXCLUSIVE-OR (SET-EXCLUSIVE-OR '("car" "ship" "airplane" "submarine") '("car" "ship" "horse" "airplane" "submarine" "camel") :TEST #'EQUAL) '("camel" "horse") :TEST-NOT (COMPLEMENT #'EQUAL)))) EQL-OK: NIL (NOT (NULL (NSET-EXCLUSIVE-OR (NSET-EXCLUSIVE-OR (LIST "car" "ship" "airplane" "submarine") '("car" "ship" "horse" "airplane" "submarine" "camel") :TEST #'EQUAL) '("camel" "horse") :TEST-NOT (COMPLEMENT #'EQUAL)))) EQL-OK: NIL (NOT (SUBSETP '(1 2 3) '(1 2 3))) EQL-OK: NIL (NOT (SUBSETP '(1 2 3) '(3 2 1))) EQL-OK: NIL (NOT (SUBSETP '(1 2 3) '(2 1 3))) EQL-OK: NIL (NOT (NULL (SUBSETP '(1 2 3 4) '(2 1 3)))) EQL-OK: NIL (NOT (SUBSETP '(1) '(2 1 3))) EQL-OK: NIL (NOT (SUBSETP '(1 2) '(1 2 3 4 5 6 7 8))) EQL-OK: NIL (NOT (SUBSETP '(1 2 3 4 5) '(8 7 6 5 4 3 2 1))) EQL-OK: NIL (NOT (NULL (SUBSETP '("car" "ship" "airplane" "submarine") '("car" "ship" "horse" "airplane" "submarine" "camel")))) EQL-OK: NIL (NOT (SUBSETP '("car" "ship" "airplane" "submarine") '("car" "ship" "horse" "airplane" "submarine" "camel") :TEST #'EQUAL)) EQL-OK: NIL (NOT (SUBSETP '("CAR" "SHIP" "AIRPLANE" "SUBMARINE") '("car" "ship" "horse" "airplane" "submarine" "camel") :TEST #'EQUALP)) EQL-OK: NIL (NOT (SUBSETP '(("car") ("ship") ("airplane") ("submarine")) '(("car") ("ship") ("horse") ("airplane") ("submarine") ("camel")) :TEST #'STRING= :KEY #'CAR)) EQL-OK: NIL (NOT (NULL (UNION 'NIL 'NIL))) EQL-OK: NIL (NOT (NULL (NUNION 'NIL 'NIL))) EQL-OK: NIL (NOT (NULL (SET-DIFFERENCE (UNION '(1 2 3) '(2 3 4)) '(1 2 3 4)))) EQL-OK: NIL (NOT (NULL (SET-DIFFERENCE (NUNION (LIST 1 2 3) (LIST 2 3 4)) '(1 2 3 4)))) EQL-OK: NIL (NOT (NULL (SET-DIFFERENCE (UNION '(1 2 3) '(1 2 3)) '(1 2 3)))) EQL-OK: NIL (NOT (NULL (SET-DIFFERENCE (NUNION (LIST 1 2 3) (LIST 1 2 3)) '(1 2 3)))) EQL-OK: NIL (NOT (NULL (SET-DIFFERENCE (UNION '(1) '(3 2 1)) '(1 2 3)))) EQL-OK: NIL (NOT (NULL (SET-DIFFERENCE (NUNION (LIST 1) (LIST 3 2 1)) '(1 2 3)))) EQL-OK: NIL (NOT (NULL (SET-DIFFERENCE (UNION '(1 2 3) 'NIL) '(1 2 3)))) EQL-OK: NIL (NOT (NULL (SET-DIFFERENCE (NUNION (LIST 1 2 3) 'NIL) '(1 2 3)))) EQL-OK: NIL (NOT (NULL (SET-DIFFERENCE (UNION 'NIL '(1 2 3)) '(1 2 3)))) EQL-OK: NIL (NOT (NULL (SET-DIFFERENCE (NUNION 'NIL (LIST 1 2 3)) '(1 2 3)))) EQL-OK: NIL (NOT (NULL (SET-DIFFERENCE (UNION '(1 2 3) '(2)) '(1 2 3)))) EQL-OK: NIL (NOT (NULL (SET-DIFFERENCE (NUNION (LIST 1 2 3) (LIST 2)) '(1 2 3)))) EQL-OK: NIL (NOT (NULL (SET-DIFFERENCE (UNION '("Alpha" "Bravo" "Charlie") '("Bravo" "Charlie" "Delta" "Echo") :TEST #'STRING=) '("Alpha" "Bravo" "Charlie" "Delta" "Echo") :TEST-NOT (COMPLEMENT #'STRING=)))) EQL-OK: NIL (NOT (NULL (SET-DIFFERENCE (NUNION (LIST "Alpha" "Bravo" "Charlie") (LIST "Bravo" "Charlie" "Delta" "Echo") :TEST #'STRING=) '("Alpha" "Bravo" "Charlie" "Delta" "Echo") :TEST-NOT (COMPLEMENT #'STRING=)))) EQL-OK: NIL (NOT (NULL (SET-DIFFERENCE (UNION (COPY-TREE '(("Alpha") ("Bravo") ("Charlie"))) (COPY-TREE '(("Bravo") ("Charlie") ("Delta") ("Echo"))) :TEST #'STRING= :KEY #'CAR) '(("Alpha") ("Bravo") ("Charlie") ("Delta") ("Echo")) :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'CAR))) EQL-OK: NIL (NOT (NULL (SET-DIFFERENCE (NUNION (COPY-TREE '(("Alpha") ("Bravo") ("Charlie"))) (COPY-TREE '(("Bravo") ("Charlie") ("Delta") ("Echo"))) :TEST #'STRING= :KEY #'CAR) '(("Alpha") ("Bravo") ("Charlie") ("Delta") ("Echo")) :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'CAR))) EQL-OK: NIL (NOT (NULL (SET-DIFFERENCE (UNION '("Alpha" "Bravo" "Charlie") '("BRAVO" "CHARLIE" "DELTA" "ECHO") :TEST #'STRING-EQUAL) '("ALPHA" "BRAVO" "CHARLIE" "DELTA" "ECHO") :TEST-NOT (COMPLEMENT #'STRING-EQUAL)))) EQL-OK: NIL RUN-TEST: finished "must-cons" (0 errors out of 728 tests) RUN-TEST: started # (NOT (LET (A B C) (AND (NULL (PSETQ A 1 B 2 C 3)) (EQL A 1) (EQL B 2) (EQL C 3)))) EQL-OK: NIL (NOT (LET ((A 1) (B 2) (C 3)) (AND (NULL (PSETQ A (1+ B) B (1+ A) C (+ A B))) (EQL A 3) (EQL B 2) (EQL C 3)))) EQL-OK: NIL (NOT (LET ((X (LIST 10 20 30))) (SYMBOL-MACROLET ((Y (CAR X)) (Z (CADR X))) (PSETQ Y (1+ Z) Z (1+ Y)) (EQUAL (LIST X Y Z) '((21 11 30) 21 11))))) EQL-OK: NIL (NOT (LET ((A 1) (B 2)) (AND (NULL (PSETQ A B B A)) (EQL A 2) (EQL B 1)))) EQL-OK: NIL (NOT (NULL (PSETQ))) EQL-OK: NIL (NOT (LET ((A NIL)) (AND (NULL (PSETQ A T)) (EQ A T)))) EQL-OK: NIL (NOT (LET ((A 0) (B 1)) (AND (NULL (PSETQ A B B A)) (EQ A 1) (EQ B 0)))) EQL-OK: NIL (NOT (LET ((A 0) (B 1) (C 2)) (AND (NULL (PSETQ A B B C C A)) (EQ A 1) (EQ B 2) (EQ C 0)))) EQL-OK: NIL (NOT (LET ((A 0) (B 1) (C 2) (D 3)) (AND (NULL (PSETQ A B B C C D D A)) (EQ A 1) (EQ B 2) (EQ C 3) (EQ D 0)))) EQL-OK: NIL (NOT (NULL (BLOCK NIL (RETURN) 1))) EQL-OK: NIL (NOT (EQL (BLOCK NIL (RETURN 1) 2) 1)) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (BLOCK NIL (RETURN (VALUES 1 2)) 3)) '(1 2))) EQL-OK: NIL (NOT (EQL (BLOCK NIL (BLOCK ALPHA (RETURN 1) 2)) 1)) EQL-OK: NIL (NOT (EQL (BLOCK ALPHA (BLOCK NIL (RETURN 1)) 2) 2)) EQL-OK: NIL (NOT (EQL (BLOCK NIL (BLOCK NIL (RETURN 1) 2)) 1)) EQL-OK: NIL (NOT (EQ (DOTIMES (I 10 NIL) (RETURN T)) T)) EQL-OK: NIL (NOT (EQ (DOLIST (ELT (LIST 0 1 2 3) NIL) (WHEN (NUMBERP ELT) (RETURN T))) T)) EQL-OK: NIL (NOT (NOT NIL)) EQL-OK: NIL (NOT (NOT 'NIL)) EQL-OK: NIL (NOT (NOT (INTEGERP 'SSS))) EQL-OK: NIL (NOT (NULL (NOT (INTEGERP 1)))) EQL-OK: NIL (NOT (NULL (NOT 3.7))) EQL-OK: NIL (NOT (NULL (NOT 'APPLE))) EQL-OK: NIL (NOT (NOT NIL)) EQL-OK: NIL (NOT (NULL (NOT T))) EQL-OK: NIL (NOT (NOT (CDR '(A)))) EQL-OK: NIL (NOT (EQUAL 'A 'A)) EQL-OK: NIL (NOT (NOT (EQUAL 'A 'B))) EQL-OK: NIL (NOT (EQUAL 'ABC 'ABC)) EQL-OK: NIL (NOT (EQUAL 1 1)) EQL-OK: NIL (NOT (EQUAL 2 2)) EQL-OK: NIL (NOT (EQUAL 0.1 0.1)) EQL-OK: NIL (NOT (EQUAL 1/3 1/3)) EQL-OK: NIL (NOT (NOT (EQUAL 0 1))) EQL-OK: NIL (NOT (NOT (EQUAL 1 1.0))) EQL-OK: NIL (NOT (NOT (EQUAL 1/3 1/4))) EQL-OK: NIL (NOT (EQUAL #\a #\a)) EQL-OK: NIL (NOT (EQUAL #\b #\b)) EQL-OK: NIL (NOT (NOT (EQUAL #\b #\B))) EQL-OK: NIL (NOT (NOT (EQUAL #\C #\c))) EQL-OK: NIL (NOT (EQUAL '(0) '(0))) EQL-OK: NIL (NOT (EQUAL '(0 #\a) '(0 #\a))) EQL-OK: NIL (NOT (EQUAL '(0 #\a X) '(0 #\a X))) EQL-OK: NIL (NOT (EQUAL '(0 #\a X (0)) '(0 #\a X (0)))) EQL-OK: NIL (NOT (EQUAL '(0 #\a X (0 (#\a (X "abc" #*0101)))) '(0 #\a X (0 (#\a (X "abc" #*0101)))))) EQL-OK: NIL (NOT (NOT (EQUAL (MAKE-ARRAY '(2 2) :INITIAL-CONTENTS '((A B) (C D))) (MAKE-ARRAY '(2 2) :INITIAL-CONTENTS '((A B) (C D)))))) EQL-OK: NIL (NOT (LET ((ARRAY (MAKE-ARRAY '(2 2) :INITIAL-CONTENTS '((A B) (C D))))) (EQUAL ARRAY ARRAY))) EQL-OK: NIL (NOT (EQL (IDENTITY 101) 101)) EQL-OK: NIL (NOT (EQUAL (MAPCAN #'IDENTITY (LIST (LIST 1 2 3) '(4 5 6))) '(1 2 3 4 5 6))) EQL-OK: NIL (NOT (EQ (IDENTITY 'X) 'X)) EQL-OK: NIL (NOT (FUNCALL (COMPLEMENT #'ZEROP) 1)) EQL-OK: NIL (NOT (NOT (FUNCALL (COMPLEMENT #'CHARACTERP) #\A))) EQL-OK: NIL (NOT (NOT (FUNCALL (COMPLEMENT #'MEMBER) 'A '(A B C)))) EQL-OK: NIL (NOT (FUNCALL (COMPLEMENT #'MEMBER) 'D '(A B C))) EQL-OK: NIL (NOT (EQUAL (MAPCAR (CONSTANTLY 3) '(A B C D)) '(3 3 3 3))) EQL-OK: NIL (NOT (LET ((CONST-FUNC (CONSTANTLY 'XYZ))) (EVERY #'(LAMBDA (ARG) (EQ ARG 'XYZ)) (LIST (FUNCALL CONST-FUNC) (FUNCALL CONST-FUNC 'A) (FUNCALL CONST-FUNC 'A 'B) (FUNCALL CONST-FUNC 'A 'B 'C) (FUNCALL CONST-FUNC 'A 'B 'C 'D))))) EQL-OK: NIL (NOT (LET ((TEMP1 1) (TEMP2 1) (TEMP3 1)) (AND (EQL (AND (INCF TEMP1) (INCF TEMP2) (INCF TEMP3)) 2) (AND (EQL 2 TEMP1) (EQL 2 TEMP2) (EQL 2 TEMP3)) (EQL (DECF TEMP3) 1) (NULL (AND (DECF TEMP1) (DECF TEMP2) (EQ TEMP3 'NIL) (DECF TEMP3))) (AND (EQL TEMP1 TEMP2) (EQL TEMP2 TEMP3)) (AND)))) EQL-OK: NIL (NOT (EQ (AND) T)) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (AND 'T 'T 'T (VALUES 'A 'B 'C))) '(A B C))) EQL-OK: NIL (NOT (NULL (AND 'T 'T (CDR '(A)) (ERROR "error")))) EQL-OK: NIL (NOT (LET ((TEMP0 NIL) (TEMP1 10) (TEMP2 20) (TEMP3 30)) (AND (EQL (OR TEMP0 TEMP1 (SETQ TEMP2 37)) 10) (EQL TEMP2 20) (EQL (OR (INCF TEMP1) (INCF TEMP2) (INCF TEMP3)) 11) (EQL TEMP1 11) (EQL TEMP2 20) (EQL TEMP3 30) (EQUAL (MULTIPLE-VALUE-LIST (OR (VALUES) TEMP1)) '(11)) (EQUAL (MULTIPLE-VALUE-LIST (OR (VALUES TEMP1 TEMP2) TEMP3)) '(11)) (EQUAL (MULTIPLE-VALUE-LIST (OR TEMP0 (VALUES TEMP1 TEMP2))) '(11 20)) (EQUAL (MULTIPLE-VALUE-LIST (OR (VALUES TEMP0 TEMP1) (VALUES TEMP2 TEMP3))) '(20 30))))) EQL-OK: NIL (NOT (ZEROP (OR '0 '1 '2))) EQL-OK: NIL (NOT (LET ((A 0)) (AND (EQL (OR (INCF A) (INCF A) (INCF A)) 1) (EQL A 1)))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (OR (VALUES) 1)) '(1))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (OR (VALUES 1 2) 3)) '(1))) EQL-OK: NIL (NOT (NULL (OR))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (OR (VALUES 0 1 2))) '(0 1 2))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (OR NIL (VALUES 0 1 2))) '(0 1 2))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (OR NIL NIL (VALUES 0 1 2))) '(0 1 2))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (OR NIL NIL NIL (VALUES 0 1 2))) '(0 1 2))) EQL-OK: NIL (NOT (LET ((A NIL)) (FLET ((SELECT-OPTIONS NIL (COND ((= A 1) (SETQ A 2)) ((= A 2) (SETQ A 3)) ((AND (= A 3) (FLOOR A 2))) (T (FLOOR A 3))))) (AND (EQL (SETQ A 1) 1) (EQL (SELECT-OPTIONS) 2) (EQL A 2) (EQL (SELECT-OPTIONS) 3) (EQL A 3) (EQL (SELECT-OPTIONS) 1) (SETQ A 5) (EQUAL (MULTIPLE-VALUE-LIST (SELECT-OPTIONS)) '(1 2)))))) EQL-OK: NIL (NOT (NULL (COND))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (COND ((VALUES 1 2 3)))) '(1))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (COND (T (VALUES 1 2 3)))) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (COND (T (VALUES 1) (VALUES 1 2) (VALUES 1 2 3)))) '(1 2 3))) EQL-OK: NIL (NOT (LET ((A 0)) (AND (EQL (COND ((INCF A)) ((INCF A)) ((INCF A))) 1) (EQL A 1)))) EQL-OK: NIL (NOT (LET ((A 0)) (AND (EQL (COND ((INCF A) (INCF A) (INCF A)) ((INCF A) (INCF A) (INCF A)) ((INCF A) (INCF A) (INCF A))) 3) (EQL A 3)))) EQL-OK: NIL (NOT (EQ (WHEN T 'HELLO) 'HELLO)) EQL-OK: NIL (NOT (NULL (UNLESS T 'HELLO))) EQL-OK: NIL (NOT (NULL (WHEN NIL 'HELLO))) EQL-OK: NIL (NOT (EQ (UNLESS NIL 'HELLO) 'HELLO)) EQL-OK: NIL (NOT (NULL (WHEN T))) EQL-OK: NIL (NOT (NULL (UNLESS NIL))) EQL-OK: NIL (NOT (LET ((X 3)) (EQUAL (LIST (WHEN (ODDP X) (INCF X) (LIST X)) (WHEN (ODDP X) (INCF X) (LIST X)) (UNLESS (ODDP X) (INCF X) (LIST X)) (UNLESS (ODDP X) (INCF X) (LIST X)) (IF (ODDP X) (INCF X) (LIST X)) (IF (ODDP X) (INCF X) (LIST X)) (IF (NOT (ODDP X)) (INCF X) (LIST X)) (IF (NOT (ODDP X)) (INCF X) (LIST X))) '((4) NIL (5) NIL 6 (6) 7 (7))))) EQL-OK: NIL (NOT (EQUAL (LET ((LIST NIL)) (DOLIST (K '(1 2 3 :FOUR #\v NIL T 'OTHER)) (PUSH (CASE K ((1 2) 'CLAUSE1) (3 'CLAUSE2) (NIL 'NO-KEYS-SO-NEVER-SEEN) ((NIL) 'NILSLOT) ((:FOUR #\v) 'CLAUSE4) ((T) 'TSLOT) (OTHERWISE 'OTHERS)) LIST)) LIST) '(OTHERS TSLOT NILSLOT CLAUSE4 CLAUSE4 CLAUSE2 CLAUSE1 CLAUSE1))) EQL-OK: NIL (NOT (MACRO-FUNCTION 'CASE)) EQL-OK: NIL (NOT (MACRO-FUNCTION 'CCASE)) EQL-OK: NIL (NOT (MACRO-FUNCTION 'ECASE)) EQL-OK: NIL (NOT (EQL (CASE 'A ((A B C) 0) (X 1) (Y 2) (Z 3)) 0)) EQL-OK: NIL (NOT (EQL (CASE 'J ((A B C) 0) (X 1) (Y 2) (Z 3) (T 9)) 9)) EQL-OK: NIL (NOT (EQL (CASE 'J ((A B C) 0) (X 1) (Y 2) (Z 3) (OTHERWISE 9)) 9)) EQL-OK: NIL (NOT (EQL (CASE 'J ((A B C) 0) (X 1) (Y 2) (Z 3)) NIL)) EQL-OK: NIL (NOT (NULL (CASE 'X))) EQL-OK: NIL (NOT (LET ((X #\a)) (EQUAL (CASE X ((#\x #\y #\z) "xyz") (#\a "a") (T "-")) "a"))) EQL-OK: NIL (NOT (LET ((X #\A)) (EQUAL (CASE X ((#\x #\y #\z) "xyz") (#\a "a") (T "-")) "-"))) EQL-OK: NIL (NOT (LET ((X T)) (EQL (CASE X ((T) 0) (T 1)) 0))) EQL-OK: NIL (NOT (LET ((X NIL)) (EQL (CASE X ((T) 0) (T 1)) 1))) EQL-OK: NIL (NOT (LET ((X 'A)) (EQL (CASE X ((T) 0)) NIL))) EQL-OK: NIL (NOT (LET ((X 'OTHERWISE)) (EQL (CASE X ((OTHERWISE) 0) (OTHERWISE 1)) 0))) EQL-OK: NIL (NOT (LET ((X NIL)) (EQL (CASE X ((OTHERWISE) 0) (OTHERWISE 1)) 1))) EQL-OK: NIL (NOT (LET ((X 'A)) (EQL (CASE X ((OTHERWISE) 0)) NIL))) EQL-OK: NIL (NOT (LET ((X 'A)) (AND (EQL (CASE X ((A B C) (SETQ X 0) 'A) ((X Y Z) (SETQ X 1) 'X)) 'A) (EQL X 0)))) EQL-OK: NIL (NOT (LET ((X 'X)) (AND (EQL (CASE X ((A B C) (SETQ X 0) 'A) ((X Y Z) (SETQ X 1) 'X)) 'X) (EQL X 1)))) EQL-OK: NIL (NOT (EQUAL (MAPCAR #'(LAMBDA (X) (CASE X (A 0) (B 1) (C 2) (D 3) (E 4))) '(A B C D E F)) '(0 1 2 3 4 NIL))) EQL-OK: NIL (NOT (CASE 'A (OTHERWISE T))) EQL-OK: NIL (NOT (EQL (CASE 'A (OTHERWISE 10)) 10)) EQL-OK: NIL (NOT (LET ((A 0) (B 1)) (AND (EQ (CASE (PROGN (INCF A) (INCF B)) (0 'A) (1 'B) (2 'C)) 'C) (EQL A 1) (EQL B 2)))) EQL-OK: NIL (NOT (LET ((A 0) (B 1)) (AND (EQ (CASE (PROGN (INCF A) (INCF B)) (0 'A) (1 'B) (2 (INCF A) (INCF B) 'C)) 'C) (EQL A 2) (EQL B 3)))) EQL-OK: NIL (NOT (LET ((A (LIST 0 1 2 3))) (EQ (CASE (CADDR A) (0 'X) (1 'Y) (2 'Z) (3 T)) 'Z))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (CASE 2 (0 (VALUES 0 'X)) (1 (VALUES 1 'Y)) (2 (VALUES 2 'Z)) (3 (VALUES 3 'T)))) '(2 Z))) EQL-OK: NIL (NOT (LET ((A 'C)) (EQL (CCASE A ((A B C) 0) (X 1) (Y 2) (Z 3)) 0))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (LET ((A 'J)) (CCASE A ((A B C) 0) (X 1) (Y 2) (Z 3)))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (LET ((A NIL)) (CCASE A))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (LET ((A #\a)) (CCASE A ((#\A #\B #\C) 0) ((#\X #\Y #\Z) 1)))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (LET ((A (LIST 0 1 2 3))) (EQ (CCASE (CADDR A) (0 'X) (1 'Y) (2 'Z) (3 T)) 'Z))) EQL-OK: NIL (NOT (LET ((X #\a)) (EQUAL (CCASE X ((#\x #\y #\z) "xyz") (#\a "a")) "a"))) EQL-OK: NIL (NOT (LET ((X 'A)) (AND (EQL (CCASE X ((A B C) (SETQ X 0) 'A) ((X Y Z) (SETQ X 1) 'X)) 'A) (EQL X 0)))) EQL-OK: NIL (NOT (LET ((X 'X)) (AND (EQL (CCASE X ((A B C) (SETQ X 0) 'A) ((X Y Z) (SETQ X 1) 'X)) 'X) (EQL X 1)))) EQL-OK: NIL (NOT (EQUAL (MAPCAR #'(LAMBDA (X) (CCASE X (A 0) (B 1) (C 2) (D 3) (E 4))) '(A B C D E)) '(0 1 2 3 4))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (LET ((A 2)) (CCASE A (0 (VALUES 0 'X)) (1 (VALUES 1 'Y)) (2 (VALUES 2 'Z)) (3 (VALUES 3 'T))))) '(2 Z))) EQL-OK: NIL (NOT (LET ((A 'C)) (EQL (ECASE A ((A B C) 0) (X 1) (Y 2) (Z 3)) 0))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (LET ((A 'J)) (ECASE A ((A B C) 0) (X 1) (Y 2) (Z 3)))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (LET ((A NIL)) (ECASE A))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (LET ((A #\a)) (ECASE A ((#\A #\B #\C) 0) ((#\X #\Y #\Z) 1)))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (LET ((A (LIST 0 1 2 3))) (EQ (ECASE (CADDR A) (0 'X) (1 'Y) (2 'Z) (3 T)) 'Z))) EQL-OK: NIL (NOT (LET ((X #\a)) (EQUAL (ECASE X ((#\x #\y #\z) "xyz") (#\a "a")) "a"))) EQL-OK: NIL (NOT (LET ((X 'A)) (AND (EQL (ECASE X ((A B C) (SETQ X 0) 'A) ((X Y Z) (SETQ X 1) 'X)) 'A) (EQL X 0)))) EQL-OK: NIL (NOT (LET ((X 'X)) (AND (EQL (ECASE X ((A B C) (SETQ X 0) 'A) ((X Y Z) (SETQ X 1) 'X)) 'X) (EQL X 1)))) EQL-OK: NIL (NOT (EQUAL (MAPCAR #'(LAMBDA (X) (ECASE X (A 0) (B 1) (C 2) (D 3) (E 4))) '(A B C D E)) '(0 1 2 3 4))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (LET ((A 2)) (ECASE A (0 (VALUES 0 'X)) (1 (VALUES 1 'Y)) (2 (VALUES 2 'Z)) (3 (VALUES 3 'T))))) '(2 Z))) EQL-OK: NIL (NOT (LET ((X 'A)) (EQUAL (TYPECASE X (CONS "cons") (SYMBOL "symbol") (NUMBER "number") (OTHERWISE "unknown")) "symbol"))) EQL-OK: NIL (NOT (LET ((X (LIST 'A))) (EQUAL (TYPECASE X (CONS "cons") (SYMBOL "symbol") (NUMBER "number") (OTHERWISE "unknown")) "cons"))) EQL-OK: NIL (NOT (LET ((X 0)) (EQUAL (TYPECASE X (CONS "cons") (SYMBOL "symbol") (NUMBER "number") (OTHERWISE "unknown")) "number"))) EQL-OK: NIL (NOT (LET ((X (MAKE-ARRAY '(3 3)))) (EQUAL (TYPECASE X (CONS "cons") (SYMBOL "symbol") (NUMBER "number") (OTHERWISE "unknown")) "unknown"))) EQL-OK: NIL (NOT (NULL (TYPECASE 'A))) EQL-OK: NIL (NOT (TYPECASE 'A (OTHERWISE T))) EQL-OK: NIL (NOT (TYPECASE 'A (T T))) EQL-OK: NIL (NOT (LET ((X (MAKE-ARRAY '(3 3)))) (EQUAL (TYPECASE X (CONS "cons") (SYMBOL "symbol") (NUMBER "number")) NIL))) EQL-OK: NIL (NOT (LET ((X "")) (EQUAL (TYPECASE X (T "anything") (OTHERWISE NIL)) "anything"))) EQL-OK: NIL (NOT (LET ((X "")) (AND (EQL (TYPECASE X (STRING (SETQ X 'STRING) 0) (CONS (SETQ X 'CONS) 1) (ARRAY (SETQ X 'ARRAY) 2) (T (SETQ X 'T) 9)) 0) (EQ X 'STRING)))) EQL-OK: NIL (NOT (LET ((X (LIST NIL))) (AND (EQL (TYPECASE X (STRING (SETQ X 'STRING) 0) (CONS (SETQ X 'CONS) 1) (ARRAY (SETQ X 'ARRAY) 2) (T (SETQ X 'T) 9)) 1) (EQ X 'CONS)))) EQL-OK: NIL (NOT (LET ((X #*01)) (AND (EQL (TYPECASE X (STRING (SETQ X 'STRING) 0) (CONS (SETQ X 'CONS) 1) (ARRAY (SETQ X 'ARRAY) 2) (T (SETQ X 'T) 9)) 2) (EQ X 'ARRAY)))) EQL-OK: NIL (NOT (LET ((X #\a)) (AND (EQL (TYPECASE X (STRING (SETQ X 'STRING) 0) (CONS (SETQ X 'CONS) 1) (ARRAY (SETQ X 'ARRAY) 2) (T (SETQ X 'T) 9)) 9) (EQ X 'T)))) EQL-OK: NIL (NOT (LET ((X #*01)) (AND (EQUAL (MULTIPLE-VALUE-LIST (TYPECASE X (STRING (SETQ X 'STRING) (VALUES 'STRING 0)) (CONS (SETQ X 'CONS) (VALUES 'CONS 1)) (ARRAY (SETQ X 'ARRAY) (VALUES 'ARRAY 2)) (T (SETQ X 'T) (VALUES 'T 9)))) '(ARRAY 2)) (EQ X 'ARRAY)))) EQL-OK: NIL (NOT (LET ((X 'A)) (EQUAL (CTYPECASE X (CONS "cons") (SYMBOL "symbol") (NUMBER "number")) "symbol"))) EQL-OK: NIL (NOT (LET ((X (LIST 'A))) (EQUAL (CTYPECASE X (CONS "cons") (SYMBOL "symbol") (NUMBER "number")) "cons"))) EQL-OK: NIL (NOT (LET ((X 0)) (EQUAL (CTYPECASE X (CONS "cons") (SYMBOL "symbol") (NUMBER "number")) "number"))) EQL-OK: NIL (NOT (HANDLER-CASE (LET ((X (MAKE-ARRAY '(3 3)))) (CTYPECASE X (CONS "cons") (SYMBOL "symbol") (NUMBER "number"))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (LET ((A NIL)) (CTYPECASE A)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (LET ((X "")) (AND (EQL (CTYPECASE X (STRING (SETQ X 'STRING) 0) (CONS (SETQ X 'CONS) 1) (ARRAY (SETQ X 'ARRAY) 2)) 0) (EQ X 'STRING)))) EQL-OK: NIL (NOT (LET ((X (LIST NIL))) (AND (EQL (CTYPECASE X (STRING (SETQ X 'STRING) 0) (CONS (SETQ X 'CONS) 1) (ARRAY (SETQ X 'ARRAY) 2)) 1) (EQ X 'CONS)))) EQL-OK: NIL (NOT (LET ((X #*01)) (AND (EQL (CTYPECASE X (STRING (SETQ X 'STRING) 0) (CONS (SETQ X 'CONS) 1) (ARRAY (SETQ X 'ARRAY) 2)) 2) (EQ X 'ARRAY)))) EQL-OK: NIL (NOT (HANDLER-CASE (LET ((X #\a)) (CTYPECASE X (STRING (SETQ X 'STRING) 0) (CONS (SETQ X 'CONS) 1) (ARRAY (SETQ X 'ARRAY) 2))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (LET ((X #*01)) (AND (EQUAL (MULTIPLE-VALUE-LIST (CTYPECASE X (STRING (SETQ X 'STRING) (VALUES 'STRING 0)) (CONS (SETQ X 'CONS) (VALUES 'CONS 1)) (ARRAY (SETQ X 'ARRAY) (VALUES 'ARRAY 2)))) '(ARRAY 2)) (EQ X 'ARRAY)))) EQL-OK: NIL (NOT (LET ((X 'A)) (EQUAL (ETYPECASE X (CONS "cons") (SYMBOL "symbol") (NUMBER "number")) "symbol"))) EQL-OK: NIL (NOT (LET ((X (LIST 'A))) (EQUAL (ETYPECASE X (CONS "cons") (SYMBOL "symbol") (NUMBER "number")) "cons"))) EQL-OK: NIL (NOT (LET ((X 0)) (EQUAL (ETYPECASE X (CONS "cons") (SYMBOL "symbol") (NUMBER "number")) "number"))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (LET ((X (MAKE-ARRAY '(3 3)))) (ETYPECASE X (CONS "cons") (SYMBOL "symbol") (NUMBER "number")))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (LET ((A NIL)) (ETYPECASE A))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (LET ((X "")) (AND (EQL (ETYPECASE X (STRING (SETQ X 'STRING) 0) (CONS (SETQ X 'CONS) 1) (ARRAY (SETQ X 'ARRAY) 2)) 0) (EQ X 'STRING)))) EQL-OK: NIL (NOT (LET ((X (LIST NIL))) (AND (EQL (ETYPECASE X (STRING (SETQ X 'STRING) 0) (CONS (SETQ X 'CONS) 1) (ARRAY (SETQ X 'ARRAY) 2)) 1) (EQ X 'CONS)))) EQL-OK: NIL (NOT (LET ((X #*01)) (AND (EQL (ETYPECASE X (STRING (SETQ X 'STRING) 0) (CONS (SETQ X 'CONS) 1) (ARRAY (SETQ X 'ARRAY) 2)) 2) (EQ X 'ARRAY)))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (LET ((X #\a)) (ETYPECASE X (STRING (SETQ X 'STRING) 0) (CONS (SETQ X 'CONS) 1) (ARRAY (SETQ X 'ARRAY) 2)))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (LET ((X #*01)) (AND (EQUAL (MULTIPLE-VALUE-LIST (ETYPECASE X (STRING (SETQ X 'STRING) (VALUES 'STRING 0)) (CONS (SETQ X 'CONS) (VALUES 'CONS 1)) (ARRAY (SETQ X 'ARRAY) (VALUES 'ARRAY 2)))) '(ARRAY 2)) (EQ X 'ARRAY)))) EQL-OK: NIL (NOT (MACRO-FUNCTION 'MULTIPLE-VALUE-BIND)) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-BIND (F R) (FLOOR 130 11) (LIST F R)) '(11 9))) EQL-OK: NIL (NOT (MULTIPLE-VALUE-BIND (A B C D) (VALUES 0 1 2 3 4 5) (AND (EQL A 0) (EQL B 1) (EQL C 2) (EQL D 3)))) EQL-OK: NIL (NOT (MULTIPLE-VALUE-BIND (A B C D) (VALUES 0 1) (AND (EQL A 0) (EQL B 1) (EQL C NIL) (EQL D NIL)))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (MULTIPLE-VALUE-BIND (A B) (VALUES 0 1) (VALUES A B 2 3))) '(0 1 2 3))) EQL-OK: NIL (NOT (MULTIPLE-VALUE-BIND NIL (VALUES 0 1 2) T)) EQL-OK: NIL (NOT (NULL (MULTIPLE-VALUE-BIND NIL NIL))) EQL-OK: NIL (NOT (EQL (MULTIPLE-VALUE-BIND (A) (FLOOR 130 11) (+ A 10)) 21)) EQL-OK: NIL (NOT (EQL (MULTIPLE-VALUE-BIND (A) (FLOOR 130 11) (+ A 10) (INCF A 100) (+ A 10)) 121)) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-CALL #'LIST 1 '/ (VALUES 2 3) '/ (VALUES) '/ (FLOOR 2.5)) '(1 / 2 3 / / 2 0.5))) EQL-OK: NIL (NOT (EQL (+ (FLOOR 5 3) (FLOOR 19 4)) (+ 1 4))) EQL-OK: NIL (NOT (EQL (MULTIPLE-VALUE-CALL #'+ (FLOOR 5 3) (FLOOR 19 4)) (+ 1 2 4 3))) EQL-OK: NIL (NOT (LET ((LIST NIL)) (AND (EQL (MULTIPLE-VALUE-CALL (PROGN (PUSH 'FUNCTION LIST) #'+) (PROGN (PUSH 0 LIST) 0) (PROGN (PUSH 1 LIST) (VALUES 1 2)) (PROGN (PUSH 2 LIST) (VALUES 3 4 5)) (PROGN (PUSH 3 LIST) (VALUES 6 7 8 9))) 45) (EQUAL (REVERSE LIST) '(FUNCTION 0 1 2 3))))) EQL-OK: NIL (NOT (EQL (MULTIPLE-VALUE-CALL #'+ 0 1 2 3 4) 10)) EQL-OK: NIL (NOT (EQL (MULTIPLE-VALUE-CALL #'+) 0)) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (MULTIPLE-VALUE-CALL #'VALUES 0 1 (VALUES 2) (VALUES 3 4) (VALUES 5 6 7))) '(0 1 2 3 4 5 6 7))) EQL-OK: NIL (NOT (SPECIAL-OPERATOR-P 'MULTIPLE-VALUE-CALL)) EQL-OK: NIL (NOT (MACRO-FUNCTION 'MULTIPLE-VALUE-LIST)) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (FLOOR -3 4)) '(-1 1))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (PROGN (VALUES 'A 'B) 0)) '(0))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (PROG1 (VALUES 'A 'B) 0)) '(A))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (MULTIPLE-VALUE-PROG1 (VALUES 'A 'B) 0)) '(A B))) EQL-OK: NIL (NOT (SPECIAL-OPERATOR-P 'MULTIPLE-VALUE-PROG1)) EQL-OK: NIL (NOT (EQL (MULTIPLE-VALUE-PROG1 1 2 3) 1)) EQL-OK: NIL (NOT (EQL (MULTIPLE-VALUE-PROG1 1 2 3) 1)) EQL-OK: NIL (NOT (LET ((TEMP '(1 2 3))) (MULTIPLE-VALUE-BIND (A B C) (MULTIPLE-VALUE-PROG1 (VALUES-LIST TEMP) (SETQ TEMP NIL) (VALUES-LIST TEMP)) (AND (EQL A 1) (EQL B 2) (EQL C 3))))) EQL-OK: NIL (NOT (ZEROP (MULTIPLE-VALUE-PROG1 0 (VALUES 0 1) (VALUES 0 1 2)))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (MULTIPLE-VALUE-PROG1 (PROGN 0 (VALUES 0 1) (VALUES 0 1 2)))) '(0 1 2))) EQL-OK: NIL (NOT (LET (QUOTIENT REMAINDER) (AND (EQL (MULTIPLE-VALUE-SETQ (QUOTIENT REMAINDER) (TRUNCATE 3.2 2)) 1) (EQL QUOTIENT 1) (EQL REMAINDER 1.2)))) EQL-OK: NIL (NOT (LET ((A 7) (B 8) (C 9)) (AND (EQL (MULTIPLE-VALUE-SETQ (A B C) (VALUES 1 2)) 1) (EQL A 1) (EQL B 2) (EQL C NIL)))) EQL-OK: NIL (NOT (LET ((A 0) (B 1)) (AND (EQL (MULTIPLE-VALUE-SETQ (A B) (VALUES 4 5 6)) 4) (EQL A 4) (EQL B 5)))) EQL-OK: NIL (NOT (NULL (MULTIPLE-VALUE-LIST (VALUES-LIST NIL)))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (VALUES-LIST '(1))) '(1))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (VALUES-LIST '(1 2))) '(1 2))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (VALUES-LIST '(1 2 3))) '(1 2 3))) EQL-OK: NIL (NOT (EVERY #'(LAMBDA (LIST) (EQUAL (MULTIPLE-VALUE-LIST (VALUES-LIST LIST)) LIST)) 'NIL '(A) '(A B) '(A B C) '(A B C D) '(A B C D E) '(A B C D E F) '(A B C D E F G) '(A B C D E F G H))) EQL-OK: NIL (NOT (MACRO-FUNCTION 'NTH-VALUE)) EQL-OK: NIL (NOT (EQL (NTH-VALUE 0 (VALUES 'A 'B)) 'A)) EQL-OK: NIL (NOT (EQL (NTH-VALUE 1 (VALUES 'A 'B)) 'B)) EQL-OK: NIL (NOT (NULL (NTH-VALUE 2 (VALUES 'A 'B)))) EQL-OK: NIL (NOT (MULTIPLE-VALUE-BIND (A B EQ?) (LET* ((X 83927472397238947423879243432432432) (Y 32423489732) (A (NTH-VALUE 1 (FLOOR X Y))) (B (MOD X Y))) (VALUES A B (= A B))) (AND (EQL A 3332987528) (EQL B 3332987528) EQ?))) EQL-OK: NIL (NOT (NULL (NTH-VALUE 0 (VALUES)))) EQL-OK: NIL (NOT (EQL (NTH-VALUE 0 1) 1)) EQL-OK: NIL (NOT (NULL (NTH-VALUE 1 1))) EQL-OK: NIL (NOT (EQL (NTH-VALUE 0 (VALUES 0 1 2)) 0)) EQL-OK: NIL (NOT (EQL (NTH-VALUE 1 (VALUES 0 1 2)) 1)) EQL-OK: NIL (NOT (EQL (NTH-VALUE 2 (VALUES 0 1 2)) 2)) EQL-OK: NIL (NOT (EQL (NTH-VALUE 3 (VALUES 0 1 2)) NIL)) EQL-OK: NIL (NOT (EQL (NTH-VALUE 4 (VALUES 0 1 2)) NIL)) EQL-OK: NIL (NOT (EQL (NTH-VALUE 5 (VALUES 0 1 2)) NIL)) EQL-OK: NIL (NOT (LET ((Z (LIST 0 1 2 3))) (EQL (PROG* ((Y Z) (X (CAR Y))) (RETURN X)) (CAR Z)))) EQL-OK: NIL (NOT (MACRO-FUNCTION 'PROG)) EQL-OK: NIL (NOT (MACRO-FUNCTION 'PROG*)) EQL-OK: NIL (NOT (LET ((A 1)) (EQ (PROG ((A 2) (B A)) (RETURN (IF (= A B) '= '/=))) '/=))) EQL-OK: NIL (NOT (EQ (PROG* ((A 2) (B A)) (RETURN (IF (= A B) '= '/=))) '=)) EQL-OK: NIL (NOT (NULL (PROG NIL 'NO-RETURN-VALUE))) EQL-OK: NIL (NOT (FLET ((KING-OF-CONFUSION (W) "Take a cons of two lists and make a list of conses. Think of this function as being like a zipper." (PROG (X Y Z) (SETQ Y (CAR W) Z (CDR W)) LOOP (COND ((NULL Y) (RETURN X)) ((NULL Z) (GO ERR))) REJOIN (SETQ X (CONS (CONS (CAR Y) (CAR Z)) X)) (SETQ Y (CDR Y) Z (CDR Z)) (GO LOOP) ERR (CERROR "Will self-pair extraneous items" "Mismatch - gleep! ~S" Y) (SETQ Z Y) (GO REJOIN)))) (AND (EQUAL (KING-OF-CONFUSION '((0 1 2) A B C)) '((2 . C) (1 . B) (0 . A))) (EQUAL (KING-OF-CONFUSION '((0 1 2 3 4 5) A B C D E F)) '((5 . F) (4 . E) (3 . D) (2 . C) (1 . B) (0 . A)))))) EQL-OK: NIL (NOT (NULL (PROG NIL T))) EQL-OK: NIL (NOT (NULL (PROG NIL))) EQL-OK: NIL (NOT (EQL (LET ((A 0) (B 0)) (PROG ((A 10) (B 100)) (RETURN (+ A B)))) 110)) EQL-OK: NIL (NOT (PROG (A (B 1) (C 2)) (RETURN (AND (NULL A) (EQL B 1) (EQL C 2))))) EQL-OK: NIL (NOT (PROG ((A 0) B (C 2)) (RETURN (AND (EQL A 0) (NULL B) (EQL C 2))))) EQL-OK: NIL (NOT (PROG ((A 0) (B 1) C) (RETURN (AND (EQL A 0) (EQL B 1) (NULL C))))) EQL-OK: NIL (NOT (PROG (A B C) (RETURN (EVERY #'NULL (LIST A B C))))) EQL-OK: NIL (NOT (EQL (LET ((A 0)) (DECLARE (SPECIAL A)) (FLET ((REF-A NIL A)) (PROG ((A 10)) (DECLARE (SPECIAL A)) (RETURN (REF-A))))) 10)) EQL-OK: NIL (NOT (LET ((A 0)) (DECLARE (SPECIAL A)) (AND (EQL (FLET ((REF-A NIL A)) (PROG ((A 10) B (C 100)) (DECLARE (SPECIAL A)) (SETQ B 1) (RETURN (+ (REF-A) B C)))) 111) (EQL A 0)))) EQL-OK: NIL (NOT (LET ((A 0)) (DECLARE (SPECIAL A)) (AND (EQUAL (MULTIPLE-VALUE-LIST (FLET ((REF-A NIL A)) (PROG ((A 10) B (C 100)) (DECLARE (SPECIAL A)) (SETQ B 1) (RETURN (VALUES (REF-A) B C))))) '(10 1 100)) (EQL A 0)))) EQL-OK: NIL (NOT (LET ((A 0)) (AND (EQL (PROG NIL (RETURN A)) 0) (EQL A 0)))) EQL-OK: NIL (NOT (FLET ((REV (LIST) (PROG ((X LIST) (RESULT NIL)) TOP (WHEN (NULL X) (RETURN RESULT)) (PSETQ X (CDR X) RESULT (CONS (CAR X) RESULT)) (GO TOP)))) (AND (EQUAL (REV '(0 1 2 3)) '(3 2 1 0)) (EQUAL (REV NIL) NIL) (EQUAL (REV '(0)) '(0))))) EQL-OK: NIL (NOT (EQL (PROG (VAL) (SETQ VAL 1) (GO POINT-A) (INCF VAL 16) POINT-C (INCF VAL 4) (GO POINT-B) (INCF VAL 32) POINT-A (INCF VAL 2) (GO POINT-C) (INCF VAL 64) POINT-B (INCF VAL 8) (RETURN VAL)) 15)) EQL-OK: NIL (NOT (LET ((A 0)) (AND (EQUAL (MULTIPLE-VALUE-LIST (PROG ((A 100) (B A) (C 1)) (RETURN (VALUES A B C)))) '(100 0 1)) (EQL A 0)))) EQL-OK: NIL (NOT (NULL (PROG* NIL 'NO-RETURN-VALUE))) EQL-OK: NIL (NOT (FLET ((KING-OF-CONFUSION (W) "Take a cons of two lists and make a list of conses. Think of this function as being like a zipper." (PROG* (X Y Z) (SETQ Y (CAR W) Z (CDR W)) LOOP (COND ((NULL Y) (RETURN X)) ((NULL Z) (GO ERR))) REJOIN (SETQ X (CONS (CONS (CAR Y) (CAR Z)) X)) (SETQ Y (CDR Y) Z (CDR Z)) (GO LOOP) ERR (CERROR "Will self-pair extraneous items" "Mismatch - gleep! ~S" Y) (SETQ Z Y) (GO REJOIN)))) (AND (EQUAL (KING-OF-CONFUSION '((0 1 2) A B C)) '((2 . C) (1 . B) (0 . A))) (EQUAL (KING-OF-CONFUSION '((0 1 2 3 4 5) A B C D E F)) '((5 . F) (4 . E) (3 . D) (2 . C) (1 . B) (0 . A)))))) EQL-OK: NIL (NOT (NULL (PROG* NIL T))) EQL-OK: NIL (NOT (NULL (PROG* NIL))) EQL-OK: NIL (NOT (EQL (LET ((A 0) (B 0)) (PROG* ((A 10) (B 100)) (RETURN (+ A B)))) 110)) EQL-OK: NIL (NOT (PROG* (A (B 1) (C 2)) (RETURN (AND (NULL A) (EQL B 1) (EQL C 2))))) EQL-OK: NIL (NOT (PROG* ((A 0) B (C 2)) (RETURN (AND (EQL A 0) (NULL B) (EQL C 2))))) EQL-OK: NIL (NOT (PROG* ((A 0) (B 1) C) (RETURN (AND (EQL A 0) (EQL B 1) (NULL C))))) EQL-OK: NIL (NOT (PROG* (A B C) (RETURN (EVERY #'NULL (LIST A B C))))) EQL-OK: NIL (NOT (EQL (LET ((A 0)) (DECLARE (SPECIAL A)) (FLET ((REF-A NIL A)) (PROG* ((A 10)) (DECLARE (SPECIAL A)) (RETURN (REF-A))))) 10)) EQL-OK: NIL (NOT (LET ((A 0)) (DECLARE (SPECIAL A)) (AND (EQL (FLET ((REF-A NIL A)) (PROG* ((A 10) B (C 100)) (DECLARE (SPECIAL A)) (SETQ B 1) (RETURN (+ (REF-A) B C)))) 111) (EQL A 0)))) EQL-OK: NIL (NOT (LET ((A 0)) (DECLARE (SPECIAL A)) (AND (EQUAL (MULTIPLE-VALUE-LIST (FLET ((REF-A NIL A)) (PROG* ((A 10) B (C 100)) (DECLARE (SPECIAL A)) (SETQ B 1) (RETURN (VALUES (REF-A) B C))))) '(10 1 100)) (EQL A 0)))) EQL-OK: NIL (NOT (LET ((A 0)) (AND (EQL (PROG* NIL (RETURN A)) 0) (EQL A 0)))) EQL-OK: NIL (NOT (FLET ((REV (LIST) (PROG* ((X LIST) (RESULT NIL)) TOP (WHEN (NULL X) (RETURN RESULT)) (PSETQ X (CDR X) RESULT (CONS (CAR X) RESULT)) (GO TOP)))) (AND (EQUAL (REV '(0 1 2 3)) '(3 2 1 0)) (EQUAL (REV NIL) NIL) (EQUAL (REV '(0)) '(0))))) EQL-OK: NIL (NOT (EQL (PROG* (VAL) (SETQ VAL 1) (GO POINT-A) (INCF VAL 16) POINT-C (INCF VAL 4) (GO POINT-B) (INCF VAL 32) POINT-A (INCF VAL 2) (GO POINT-C) (INCF VAL 64) POINT-B (INCF VAL 8) (RETURN VAL)) 15)) EQL-OK: NIL (NOT (LET ((A 0)) (AND (EQUAL (MULTIPLE-VALUE-LIST (PROG* ((A 100) (B A) (C 1)) (RETURN (VALUES A B C)))) '(100 100 1)) (EQL A 0)))) EQL-OK: NIL (NOT (MACRO-FUNCTION 'PROG1)) EQL-OK: NIL (NOT (MACRO-FUNCTION 'PROG2)) EQL-OK: NIL (NOT (EQL (LET ((TEMP 1)) (PROG1 TEMP (INCF TEMP) TEMP)) 1)) EQL-OK: NIL (NOT (LET ((TEMP T)) (AND (EQ (PROG1 TEMP (SETQ TEMP NIL)) 'T) (NULL TEMP)))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (PROG1 (VALUES 1 2 3) 4)) '(1))) EQL-OK: NIL (NOT (LET ((TEMP (LIST 'A 'B 'C))) (AND (EQ (PROG1 (CAR TEMP) (SETF (CAR TEMP) 'ALPHA)) 'A) (EQUAL TEMP '(ALPHA B C))))) EQL-OK: NIL (NOT (EQUAL (FLET ((SWAP-SYMBOL-VALUES (X Y) (SETF (SYMBOL-VALUE X) (PROG1 (SYMBOL-VALUE Y) (SETF (SYMBOL-VALUE Y) (SYMBOL-VALUE X)))))) (LET ((*FOO* 1) (*BAR* 2)) (DECLARE (SPECIAL *FOO* *BAR*)) (SWAP-SYMBOL-VALUES '*FOO* '*BAR*) (LIST *FOO* *BAR*))) '(2 1))) EQL-OK: NIL (NOT (LET ((TEMP 1)) (AND (EQL (PROG2 (INCF TEMP) (INCF TEMP) (INCF TEMP)) 3) (EQL TEMP 4)))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (PROG2 1 (VALUES 2 3 4) 5)) '(2))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (PROG2 1 (VALUES 2 3 4) 5 (VALUES 6 7))) '(2))) EQL-OK: NIL (NOT (EQL (PROG1 1) 1)) EQL-OK: NIL (NOT (EQL (PROG1 1 2) 1)) EQL-OK: NIL (NOT (EQL (PROG1 1 2 3) 1)) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (PROG1 (VALUES 1 2 3))) '(1))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (PROG1 (VALUES 1 2 3) (VALUES 4 5 6) (VALUES 7 8 9))) '(1))) EQL-OK: NIL (NOT (EQL (PROG2 1 2) 2)) EQL-OK: NIL (NOT (EQL (PROG2 1 2 3) 2)) EQL-OK: NIL (NOT (EQL (PROG2 1 2 3 4) 2)) EQL-OK: NIL (NOT (LET ((X 0)) (AND (EQL (PROG2 (INCF X) (INCF X) (INCF X) (INCF X)) 2) (EQL X 4)))) EQL-OK: NIL (NOT (LET ((X (CONS 'A 'B)) (Y (LIST 1 2 3))) (AND (EQUAL (SETF (CAR X) 'X (CADR Y) (CAR X) (CDR X) Y) '(1 X 3)) (EQUAL X '(X 1 X 3)) (EQUAL Y '(1 X 3))))) EQL-OK: NIL (NOT (LET ((X (CONS 'A 'B)) (Y (LIST 1 2 3))) (AND (NULL (PSETF (CAR X) 'X (CADR Y) (CAR X) (CDR X) Y)) (EQUAL X '(X 1 A 3)) (EQUAL Y '(1 A 3))))) EQL-OK: NIL (NOT (NULL (SETF))) EQL-OK: NIL (NOT (NULL (PSETF))) EQL-OK: NIL (NOT (LET ((A 0)) (AND (EQL (SETF A 10) 10) (EQL A 10)))) EQL-OK: NIL (NOT (LET ((A 0) (B 1)) (AND (EQL (SETF A 10 B 20) 20) (EQL A 10) (EQL B 20)))) EQL-OK: NIL (NOT (LET ((A 0) (B 1) (C 2)) (AND (EQL (SETF A 10 B (+ A 10) C (+ B 10)) 30) (EQL A 10) (EQL B 20) (EQL C 30)))) EQL-OK: NIL (NOT (LET ((X (LIST 0 1 2))) (AND (EQ (SETF (CAR X) 'A) 'A) (EQ (SETF (CADR X) 'B) 'B) (EQ (SETF (CADDR X) 'C) 'C) (EQUAL X '(A B C))))) EQL-OK: NIL (NOT (LET ((A 0)) (AND (NULL (PSETF A 10)) (EQL A 10)))) EQL-OK: NIL (NOT (LET ((A 0) (B 1)) (AND (NULL (PSETF A 10 B 20)) (EQL A 10) (EQL B 20)))) EQL-OK: NIL (NOT (LET ((A 0) (B 1) (C 2)) (AND (NULL (PSETF A 10 B (+ A 10) C (+ B 10))) (EQL A 10) (EQL B 10) (EQL C 11)))) EQL-OK: NIL (NOT (LET ((X (LIST 0 1 2))) (AND (NULL (PSETF (CAR X) 'A)) (NULL (PSETF (CADR X) 'B)) (NULL (PSETF (CADDR X) 'C)) (EQUAL X '(A B C))))) EQL-OK: NIL (NOT (LET ((X (MAKE-ARRAY '(2 3) :INITIAL-CONTENTS '((A B C) (X Y Z))))) (AND (EQL (SETF (AREF X 0 0) #1=0.0) #1#) (EQL (SETF (AREF X 0 1) 0.1) 0.1) (EQL (SETF (AREF X 0 2) 0.2) 0.2) (EQL (SETF (AREF X 1 0) 1.0) 1.0) (EQL (SETF (AREF X 1 1) 1.1) 1.1) (EQL (SETF (AREF X 1 2) 1.2) 1.2) (EQUALP X #2A((#1# 0.1 0.2) (1.0 1.1 1.2)))))) EQL-OK: NIL (NOT (LET ((X (MAKE-ARRAY 4 :ELEMENT-TYPE 'BIT :INITIAL-ELEMENT 0))) (AND (EQUALP X #*0000) (EQL (SETF (BIT X 0) 1) 1) (EQL (SETF (BIT X 2) 1) 1) (EQUAL X #*1010)))) EQL-OK: NIL (NOT (LET ((X (COPY-SEQ "dog"))) (AND (EQL (SETF (CHAR X 0) #\c) #\c) (EQL (SETF (CHAR X 1) #\a) #\a) (EQL (SETF (CHAR X 2) #\t) #\t) (EQUAL X "cat")))) EQL-OK: NIL (NOT (LET ((X (COPY-SEQ "dog"))) (AND (EQL (SETF (SCHAR X 0) #\c) #\c) (EQL (SETF (SCHAR X 1) #\a) #\a) (EQL (SETF (SCHAR X 2) #\t) #\t) (EQUAL X "cat")))) EQL-OK: NIL (NOT (LET ((X (COPY-SEQ "dog"))) (AND (EQL (SETF (ELT X 0) #\c) #\c) (EQL (SETF (ELT X 1) #\a) #\a) (EQL (SETF (ELT X 2) #\t) #\t) (EQUAL X "cat")))) EQL-OK: NIL (NOT (LET ((X (LIST 0 1 2))) (AND (EQL (SETF (ELT X 0) #\c) #\c) (EQL (SETF (ELT X 1) #\a) #\a) (EQL (SETF (ELT X 2) #\t) #\t) (EQUAL X '(#\c #\a #\t))))) EQL-OK: NIL (NOT (LET ((X #'(LAMBDA (A) (+ A 10))) (SAVED (WHEN (FBOUNDP 'TEST-FN) (FDEFINITION 'TEST-FN)))) (UNWIND-PROTECT (AND (EQ (SETF (FDEFINITION 'TEST-FN) X) X) (EQL (TEST-FN 10) 20)) (WHEN SAVED (SETF (FDEFINITION 'TEST-FN) SAVED))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE))) (AND (EQUAL (MULTIPLE-VALUE-LIST (GETHASH 1 TABLE)) '(NIL NIL)) (EQUAL (MULTIPLE-VALUE-LIST (GETHASH 1 TABLE 2)) '(2 NIL)) (EQUAL (SETF (GETHASH 1 TABLE) "one") "one") (EQUAL (SETF (GETHASH 2 TABLE "two") "two") "two") (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH 1 TABLE) (AND (EQUAL VALUE "one") PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH 2 TABLE) (AND (EQUAL VALUE "two") PRESENT-P))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE))) (AND (EQUAL (MULTIPLE-VALUE-LIST (GETHASH NIL TABLE)) '(NIL NIL)) (NULL (SETF (GETHASH NIL TABLE) NIL)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH NIL TABLE) (AND (EQUAL VALUE NIL) PRESENT-P))))) EQL-OK: NIL (NOT (LET ((X (COPY-SEQ #*0101))) (AND (EQL (SETF (SBIT X 0) 1) 1) (EQL (SETF (SBIT X 2) 1) 1) (EQUAL X #*1111)))) EQL-OK: NIL (NOT (LET ((A 0) (B 1)) (AND (EQUAL (MULTIPLE-VALUE-LIST (SETF (VALUES A B) (VALUES 'X 'Y 'Z))) '(X Y)) (EQ A 'X) (EQ B 'Y)))) EQL-OK: NIL (NOT (LET ((X (LIST 0 1 2)) (ORDER NIL)) (AND (EQUAL (MULTIPLE-VALUE-LIST (SETF (VALUES (CAR (PROG1 X (PUSH 0 ORDER))) (CADR (PROG1 X (PUSH 1 ORDER))) (CADDR (PROG1 X (PUSH 2 ORDER)))) (VALUES 'A 'B))) '(A B NIL)) (EQUAL X '(A B NIL)) (EQUAL ORDER '(2 1 0))))) EQL-OK: NIL (NOT (LET ((A 'A) (B 'B) (C 'C)) (AND (EQUAL (MULTIPLE-VALUE-LIST (SETF (VALUES (VALUES A) (VALUES B C)) (VALUES 0 1 2 3 4))) '(0 1)) (EQL A 0) (EQL B 1) (NULL C)))) EQL-OK: NIL (NOT (LET ((A 'A) (B 'B) (C 'C) (D 'D)) (AND (EQUAL (MULTIPLE-VALUE-LIST (SETF (VALUES (VALUES A B) (VALUES C D)) (VALUES 0 1 2 3 4))) '(0 1)) (EQL A 0) (NULL B) (EQL C 1) (NULL D)))) EQL-OK: NIL (NOT (LET ((A 'A) (B 'B) (C 'C) (D 'D)) (AND (EQUAL (MULTIPLE-VALUE-LIST (SETF (VALUES (VALUES A B) (VALUES C D)) (VALUES 0))) '(0 NIL)) (EQL A 0) (NULL B) (NULL C) (NULL D)))) EQL-OK: NIL (NOT (LET ((A 'A) (B 'B) (C 'C)) (AND (EQUAL (MULTIPLE-VALUE-LIST (SETF (VALUES A) (VALUES 0 1 2))) '(0)) (EQL A 0) (EQ B 'B) (EQ C 'C)))) EQL-OK: NIL (NOT (LET ((X (LIST 1 2 3)) (Y 'TRASH)) (AND (EQ (SHIFTF Y X (CDR X) '(HI THERE)) 'TRASH) (EQUAL X '(2 3)) (EQUAL Y '(1 HI THERE))))) EQL-OK: NIL (NOT (LET ((X (LIST 'A 'B 'C))) (AND (EQ (SHIFTF (CADR X) 'Z) 'B) (EQUAL X '(A Z C)) (EQ (SHIFTF (CADR X) (CDDR X) 'Q) 'Z) (EQUAL X '(A (C) . Q))))) EQL-OK: NIL (NOT (LET ((N 0) (X (LIST 'A 'B 'C 'D))) (AND (EQ (SHIFTF (NTH (SETQ N (+ N 1)) X) 'Z) 'B) (EQUAL X '(A Z C D))))) EQL-OK: NIL (NOT (LET ((A 0) (B 1) (C 2) (D 3)) (AND (EQUAL (MULTIPLE-VALUE-LIST (SHIFTF (VALUES A B) (VALUES C D) (VALUES 4 5))) '(0 1)) (EQL A 2) (EQL B 3) (EQL C 4) (EQL D 5)))) EQL-OK: NIL (NOT (LET ((N 0) (X (LIST 'A 'B 'C 'D 'E 'F 'G))) (AND (NULL (ROTATEF (NTH (INCF N) X) (NTH (INCF N) X) (NTH (INCF N) X))) (EQUAL X '(A C D B E F G))))) EQL-OK: NIL (NOT (LET ((X (LIST 'A 'B 'C))) (AND (NULL (ROTATEF (FIRST X) (SECOND X) (THIRD X))) (EQUAL X '(B C A))))) EQL-OK: NIL (NOT (LET ((X (LIST 'A 'B 'C 'D 'E 'F))) (AND (NULL (ROTATEF (SECOND X) (THIRD X) (FOURTH X) (FIFTH X))) (EQUAL X '(A C D E B F))))) EQL-OK: NIL (NOT (NULL (ROTATEF))) EQL-OK: NIL (NOT (LET ((A 0)) (AND (NULL (ROTATEF A)) (ZEROP A)))) EQL-OK: NIL (NOT (LET ((X (LIST 'A 'B 'C)) (ORDER NIL)) (AND (NULL (ROTATEF (FIRST (PROGN (PUSH 1 ORDER) X)) (SECOND (PROGN (PUSH 2 ORDER) X)) (THIRD (PROGN (PUSH 3 ORDER) X)))) (EQUAL X '(B C A)) (EQUAL ORDER '(3 2 1))))) EQL-OK: NIL (NOT (LET ((X (LIST 'A 'B 'C)) (ORDER NIL)) (AND (NULL (PSETF (FIRST (PROGN (PUSH 1 ORDER) X)) (SECOND (PROGN (PUSH 2 ORDER) X)) (SECOND (PROGN (PUSH 2 ORDER) X)) (THIRD (PROGN (PUSH 3 ORDER) X)) (THIRD (PROGN (PUSH 3 ORDER) X)) (FIRST (PROGN (PUSH 1 ORDER) X)))) (EQUAL X '(B C A)) (EQUAL ORDER '(1 3 3 2 2 1))))) EQL-OK: NIL (NOT (LET ((A 0) (B 1) (C 2) (D 3)) (AND (NULL (ROTATEF (VALUES A B) (VALUES C D))) (EQL A 2) (EQL B 3) (EQL C 0) (EQL D 1)))) EQL-OK: NIL RUN-TEST: finished "must-data-and-control" (0 errors out of 310 tests) RUN-TEST: started # (NOT (NULL (DOTIMES (I 10)))) EQL-OK: NIL (NOT (= (DOTIMES (TEMP-ONE 10 TEMP-ONE)) 10)) EQL-OK: NIL (NOT (LET ((TEMP-TWO 0)) (AND (EQ T (DOTIMES (TEMP-ONE 10 T) (INCF TEMP-TWO))) (EQL TEMP-TWO 10)))) EQL-OK: NIL (NOT (PROGN (DEFUN PALINDROMEP (STRING &OPTIONAL (START 0) (END (LENGTH STRING))) (DOTIMES (K (FLOOR (- END START) 2) T) (UNLESS (CHAR-EQUAL (CHAR STRING (+ START K)) (CHAR STRING (- END K 1))) (RETURN NIL)))) (AND (PALINDROMEP "Able was I ere I saw Elba") (NOT (PALINDROMEP "A man, a plan, a canal--Panama!")) (EQUAL (REMOVE-IF-NOT #'ALPHA-CHAR-P "A man, a plan, a canal--Panama!") "AmanaplanacanalPanama") (PALINDROMEP (REMOVE-IF-NOT #'ALPHA-CHAR-P "A man, a plan, a canal--Panama!")) (PALINDROMEP (REMOVE-IF-NOT #'ALPHA-CHAR-P "Unremarkable was I ere I saw Elba Kramer, nu?"))))) EQL-OK: NIL (NOT (LET ((COUNT 0)) (EQL (DOTIMES (I 5 COUNT) (INCF COUNT)) 5))) EQL-OK: NIL (NOT (LET ((COUNT 0)) (EQL (DOTIMES (I 1 COUNT) (INCF COUNT)) 1))) EQL-OK: NIL (NOT (LET ((COUNT 0)) (ZEROP (DOTIMES (I 0 COUNT) (INCF COUNT))))) EQL-OK: NIL (NOT (LET ((COUNT 0)) (ZEROP (DOTIMES (I -1 COUNT) (INCF COUNT))))) EQL-OK: NIL (NOT (LET ((COUNT 0)) (ZEROP (DOTIMES (I -100 COUNT) (INCF COUNT))))) EQL-OK: NIL (NOT (EQL (DOTIMES (I 3 I)) 3)) EQL-OK: NIL (NOT (EQL (DOTIMES (I 2 I)) 2)) EQL-OK: NIL (NOT (EQL (DOTIMES (I 1 I)) 1)) EQL-OK: NIL (NOT (EQL (DOTIMES (I 0 I)) 0)) EQL-OK: NIL (NOT (EQL (DOTIMES (I -1 I)) 0)) EQL-OK: NIL (NOT (EQL (DOTIMES (I -2 I)) 0)) EQL-OK: NIL (NOT (EQL (DOTIMES (I -10 I)) 0)) EQL-OK: NIL (NOT (LET ((LIST NIL)) (AND (EQ (DOTIMES (I 10 T) (PUSH I LIST)) T) (EQUAL LIST '(9 8 7 6 5 4 3 2 1 0))))) EQL-OK: NIL (NOT (LET ((LIST NIL)) (EQUAL (DOTIMES (I 10 (PUSH I LIST)) (PUSH I LIST)) '(10 9 8 7 6 5 4 3 2 1 0)))) EQL-OK: NIL (NOT (LET ((LIST NIL)) (EQUAL (DOTIMES (I '10 (PUSH I LIST)) (PUSH I LIST)) '(10 9 8 7 6 5 4 3 2 1 0)))) EQL-OK: NIL (NOT (LET ((LIST NIL)) (EQUAL (DOTIMES (I (/ 100 10) (PUSH I LIST)) (PUSH I LIST)) '(10 9 8 7 6 5 4 3 2 1 0)))) EQL-OK: NIL (NOT (NULL (DOTIMES (I 10 T) (RETURN NIL)))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (DOTIMES (I 10 T) (RETURN (VALUES 'A 'B 'C)))) '(A B C))) EQL-OK: NIL (NOT (LET ((VAL 0)) (= (DOTIMES (I 10 VAL) (INCF VAL 1) (WHEN (< I 9) (GO LP)) (INCF VAL 2) LP (INCF VAL 3)) 42))) EQL-OK: NIL (NOT (= (LET ((VAL 0)) (DOTIMES (I 10 VAL) (WHEN (< I 9) (GO LOOP)) 9 (INCF VAL 100) (GO LAST) LOOP (WHEN (= I 0) (GO 9)) (INCF VAL) LAST)) 208)) EQL-OK: NIL (NOT (= 3 (LET ((I 3)) (DOTIMES (I I I) (DECLARE (FIXNUM I)))))) EQL-OK: NIL (NOT (= 3 (LET ((X 0)) (DOTIMES (I 3 X) (DECLARE (FIXNUM I)) (INCF X))))) EQL-OK: NIL (NOT (= 3 (DOTIMES (I 3 I) (DECLARE (FIXNUM I))))) EQL-OK: NIL (NOT (= 3 (LET ((X 0)) (DOTIMES (I 3 X) (DECLARE (FIXNUM I)) (INCF X))))) EQL-OK: NIL (NOT (EQUAL '((8 6 4 2 0) (9 7 5 3 1)) (LET (EVEN ODD) (DOTIMES (I 10 (LIST EVEN ODD)) (COND ((EVENP I) (GO EVEN)) ((ODDP I) (GO ODD)) (T (ERROR "logic error"))) EVEN (PUSH I EVEN) (GO END) ODD (PUSH I ODD) (GO END) END)))) EQL-OK: NIL (NOT (LET ((LIST (COPY-TREE '((0) (1) (2) (3))))) (AND (NULL (DOLIST (ITEM LIST) (INCF (CAR ITEM)))) (EQUAL LIST '((1) (2) (3) (4)))))) EQL-OK: NIL (NOT (EQ 'OK (DOLIST (X '(0 1 2) T) (RETURN 'OK)))) EQL-OK: NIL (NOT (EQ 'OK (DOLIST (X '(0 1 2) T) (RETURN-FROM NIL 'OK)))) EQL-OK: NIL (NOT (EQUAL '(OK FINE) (MULTIPLE-VALUE-LIST (DOLIST (X '(0 1 2) T) (RETURN (VALUES 'OK 'FINE)))))) EQL-OK: NIL (NOT (EQUAL '(OK FINE) (MULTIPLE-VALUE-LIST (DOLIST (X '(0 1 2) T) (RETURN-FROM NIL (VALUES 'OK 'FINE)))))) EQL-OK: NIL (NOT (NULL (LET ((X '(0 1 2))) (DOLIST (X X X))))) EQL-OK: NIL (NOT (= 3 (LET ((X '(0 1 2)) (I 0)) (DOLIST (X X I) (INCF I))))) EQL-OK: NIL (NOT (NULL (DOLIST (X 'NIL)))) EQL-OK: NIL (NOT (NULL (DOLIST (X '(A))))) EQL-OK: NIL (NOT (EQ T (DOLIST (X NIL T)))) EQL-OK: NIL (NOT (= 6 (LET ((SUM 0)) (DOLIST (X '(0 1 2 3) SUM) (DECLARE (FIXNUM X)) (INCF SUM X))))) EQL-OK: NIL (NOT (EQUAL '(5 4 3 2 1) (LET (STACK) (FLET ((F NIL (DECLARE (SPECIAL X)) (1+ X))) (DOLIST (X '(0 1 2 3 4) STACK) (DECLARE (SPECIAL X)) (DECLARE (TYPE FIXNUM X)) (PUSH (F) STACK)))))) EQL-OK: NIL (NOT (EQUAL '((3 1) (4 2 0)) (LET (ODD EVEN) (DOLIST (X '(0 1 2 3 4) (LIST ODD EVEN)) (COND ((ODDP X) (GO ODD)) ((EVENP X) (GO EVEN)) (T (ERROR "This code mustn't have got executed."))) ODD (PUSH X ODD) (GO LOOP-END) EVEN (PUSH X EVEN) (GO LOOP-END) LOOP-END)))) EQL-OK: NIL (NOT (LET ((TEMP-TWO 'NIL)) (EQUAL (DOLIST (TEMP-ONE '(1 2 3 4) TEMP-TWO) (PUSH TEMP-ONE TEMP-TWO)) '(4 3 2 1)))) EQL-OK: NIL (NOT (LET ((TEMP-TWO 0)) (AND (NULL (DOLIST (TEMP-ONE '(1 2 3 4)) (INCF TEMP-TWO))) (EQL TEMP-TWO 4)))) EQL-OK: NIL (NOT (NULL (DOLIST (VAR NIL VAR)))) EQL-OK: NIL (NOT (LET ((LIST NIL)) (EQUAL (DOLIST (VAR '(0 1 2 3) LIST) (PUSH VAR LIST)) '(3 2 1 0)))) EQL-OK: NIL (NOT (LET ((LIST NIL)) (EQUAL (DOLIST (VAR '(0 1 2 3) (PUSH VAR LIST)) (PUSH VAR LIST)) '(NIL 3 2 1 0)))) EQL-OK: NIL (NOT (NULL (DOLIST (VAR '(0 1 2 3))))) EQL-OK: NIL (NOT (LET ((LIST NIL)) (AND (NULL (DOLIST (VAR '(0 1 2 3)) (PUSH VAR LIST))) (EQUAL LIST '(3 2 1 0))))) EQL-OK: NIL (NOT (LET ((LIST NIL)) (AND (EQ (DOLIST (VAR 'NIL T) (PUSH VAR LIST)) T) (NULL LIST)))) EQL-OK: NIL (NOT (LET ((LIST '((A) (B) (C))) (COUNT 0)) (DOLIST (VAR LIST T) (UNLESS (EQ (NTH COUNT LIST) VAR) (RETURN NIL)) (INCF COUNT)))) EQL-OK: NIL (NOT (LET ((LIST NIL)) (AND (NULL (DOLIST (VAR '(0 1 2 3) T) (IF (= VAR 2) (RETURN) (PUSH VAR LIST)))) (EQUAL LIST '(1 0))))) EQL-OK: NIL (NOT (LET ((VAL 0)) (= (DOLIST (VAR '(A B C) VAL) (INCF VAL 1) (UNLESS (EQ VAR 'C) (GO LP)) (INCF VAL 2) LP (INCF VAL 3)) 14))) EQL-OK: NIL (NOT (= (LET ((VAL 0)) (DOLIST (I '(0 1 2 3 4 5 6 7 8 9) VAL) (WHEN (< I 9) (GO LOOP)) 9 (INCF VAL 100) (GO LAST) LOOP (WHEN (= I 0) (GO 9)) (INCF VAL) LAST)) 208)) EQL-OK: NIL (NOT (LET ((VAL 0)) (= (DOLIST (I '(0 1 2 3 4 5 6 7 8 9) VAL) (INCF VAL 1) (WHEN (< I 9) (GO LP)) (INCF VAL 2) LP (INCF VAL 3)) 42))) EQL-OK: NIL (NOT (EQ 'OK (BLOCK NIL (TAGBODY (DOLIST (X '(0 1 2 3) T) (WHEN (ODDP X) (GO THERE))) THERE (RETURN 'OK))))) EQL-OK: NIL (NOT (FLET ((REV (LIST) (DO ((X LIST (CDR X)) (REVERSE NIL (CONS (CAR X) REVERSE))) ((NULL X) REVERSE)))) (AND (NULL (REV NIL)) (EQUAL (REV '(0 1 2 3 4)) '(4 3 2 1 0))))) EQL-OK: NIL (NOT (FLET ((NREV (LIST) (DO ((1ST (CDR LIST) (CDR 1ST)) (2ND LIST 1ST) (3RD 'NIL 2ND)) ((NULL 2ND) 3RD) (RPLACD 2ND 3RD)))) (AND (NULL (NREV NIL)) (EQUAL (NREV (LIST 0 1 2 3 4)) '(4 3 2 1 0))))) EQL-OK: NIL (NOT (FLET ((SUB (LIST START END) (DO* ((X (NTHCDR START LIST) (CDR X)) (I START (1+ I)) (RESULT (LIST NIL)) (SPLICE RESULT)) ((>= I END) (CDR RESULT)) (SETQ SPLICE (CDR (RPLACD SPLICE (LIST (CAR X)))))))) (AND (EQ (SUB 'NIL 0 0) 'NIL) (EQUAL (SUB '(0 1 2 3) 1 4) '(1 2 3)) (EQUAL (SUB '(0 1 2 3) 1 1) 'NIL) (EQUAL (SUB '(0 1 2 3) 1 2) '(1)) (EQUAL (SUB '(0 1 2 3) 1 3) '(1 2))))) EQL-OK: NIL (NOT (EQL (DO ((TEMP-ONE 1 (1+ TEMP-ONE)) (TEMP-TWO 0 (1- TEMP-TWO))) ((> (- TEMP-ONE TEMP-TWO) 5) TEMP-ONE)) 4)) EQL-OK: NIL (NOT (EQL (DO ((TEMP-ONE 1 (1+ TEMP-ONE)) (TEMP-TWO 0 (1+ TEMP-ONE))) ((= 3 TEMP-TWO) TEMP-ONE)) 3)) EQL-OK: NIL (NOT (EQL (DO* ((TEMP-ONE 1 (1+ TEMP-ONE)) (TEMP-TWO 0 (1+ TEMP-ONE))) ((= 3 TEMP-TWO) TEMP-ONE)) 2)) EQL-OK: NIL (NOT (LET ((A-VECTOR (VECTOR 1 NIL 3 NIL))) (AND (NULL (DO ((I 0 (+ I 1)) (N (ARRAY-DIMENSION A-VECTOR 0))) ((= I N)) (WHEN (NULL (AREF A-VECTOR I)) (SETF (AREF A-VECTOR I) 0)))) (EQUALP A-VECTOR #(1 0 3 0))))) EQL-OK: NIL (NOT (LET ((VEC (VECTOR 0 1 2 3 4 5 6 7 8 9))) (EQUALP (DO ((I 0 (1+ I)) N (J 9 (1- J))) ((>= I J) VEC) (SETQ N (AREF VEC I)) (SETF (AREF VEC I) (AREF VEC J)) (SETF (AREF VEC J) N)) #(9 8 7 6 5 4 3 2 1 0)))) EQL-OK: NIL (NOT (LET ((VEC (VECTOR 0 1 2 3 4 5 6 7 8 9))) (AND (NULL (DO ((I 0 (1+ I)) N (J 9 (1- J))) ((>= I J)) (SETQ N (AREF VEC I)) (SETF (AREF VEC I) (AREF VEC J)) (SETF (AREF VEC J) N))) (EQUALP VEC #(9 8 7 6 5 4 3 2 1 0))))) EQL-OK: NIL (NOT (LET ((VEC (VECTOR 0 1 2 3 4 5 6 7 8 9))) (AND (NULL (DO ((I 0 (1+ I)) N (J 9 (1- J))) ((>= I J)) (DECLARE (FIXNUM I J N)) (SETQ N (AREF VEC I)) (SETF (AREF VEC I) (AREF VEC J)) (SETF (AREF VEC J) N))) (EQUALP VEC #(9 8 7 6 5 4 3 2 1 0))))) EQL-OK: NIL (NOT (LET ((VEC (VECTOR 0 1 2 3 4 5 6 7 8 9))) (AND (NULL (DO ((I 0 (1+ I)) N (J 9 (1- J))) ((>= I J)) (DECLARE (FIXNUM I)) (DECLARE (FIXNUM J)) (DECLARE (FIXNUM N)) (SETQ N (AREF VEC I)) (SETF (AREF VEC I) (AREF VEC J)) (SETF (AREF VEC J) N))) (EQUALP VEC #(9 8 7 6 5 4 3 2 1 0))))) EQL-OK: NIL (NOT (LET ((VEC (VECTOR 0 1 2 3 4 5 6 7 8 9))) (AND (NULL (DO (N (I 0 (1+ I)) (J 9 (1- J))) ((>= I J)) (DECLARE (FIXNUM I)) (DECLARE (FIXNUM J)) (DECLARE (FIXNUM N)) (SETQ N (AREF VEC I)) (SETF (AREF VEC I) (AREF VEC J)) (SETF (AREF VEC J) N))) (EQUALP VEC #(9 8 7 6 5 4 3 2 1 0))))) EQL-OK: NIL (NOT (LET ((VEC (VECTOR 0 1 2 3 4 5 6 7 8 9))) (AND (NULL (DO ((I 0 (1+ I)) (J 9 (1- J)) N) ((>= I J)) (DECLARE (FIXNUM I)) (DECLARE (FIXNUM J)) (DECLARE (FIXNUM N)) (SETQ N (AREF VEC I)) (SETF (AREF VEC I) (AREF VEC J)) (SETF (AREF VEC J) N))) (EQUALP VEC #(9 8 7 6 5 4 3 2 1 0))))) EQL-OK: NIL (NOT (= (DO* ((LIST (LIST 0 1 2 3 4 5 6 7 8 9) (CDR LIST)) (ELM (CAR LIST) (CAR LIST)) (N 0 (+ N (OR ELM 0)))) ((ENDP LIST) N)) 45)) EQL-OK: NIL (NOT (= (DO* ((LIST (LIST 0 1 2 3 4 5 6 7 8 9) (CDR LIST)) (ELM (CAR LIST) (CAR LIST)) (N 0)) ((ENDP LIST) N) (INCF N ELM)) 45)) EQL-OK: NIL (NOT (LET ((VEC (VECTOR 0 1 2 3 4 5 6 7 8 9))) (AND (NULL (DO* (N (I 0 (1+ I)) (J (- 9 I) (- 9 I))) ((>= I J)) (DECLARE (FIXNUM I)) (DECLARE (FIXNUM J)) (DECLARE (FIXNUM N)) (SETQ N (AREF VEC I)) (SETF (AREF VEC I) (AREF VEC J)) (SETF (AREF VEC J) N))) (EQUALP VEC #(9 8 7 6 5 4 3 2 1 0))))) EQL-OK: NIL (NOT (LET ((VEC (VECTOR 0 1 2 3 4 5 6 7 8 9))) (AND (NULL (DO* ((I 0 (1+ I)) N (J (- 9 I) (- 9 I))) ((>= I J)) (DECLARE (FIXNUM I J N)) (SETQ N (AREF VEC I)) (SETF (AREF VEC I) (AREF VEC J)) (SETF (AREF VEC J) N))) (EQUALP VEC #(9 8 7 6 5 4 3 2 1 0))))) EQL-OK: NIL (NOT (LET ((VEC (VECTOR 0 1 2 3 4 5 6 7 8 9))) (AND (NULL (DO* ((I 0 (1+ I)) (J (- 9 I) (- 9 I)) N) ((>= I J)) (DECLARE (FIXNUM I J N)) (SETQ N (AREF VEC I)) (SETF (AREF VEC I) (AREF VEC J)) (SETF (AREF VEC J) N))) (EQUALP VEC #(9 8 7 6 5 4 3 2 1 0))))) EQL-OK: NIL (NOT (LET ((VEC (VECTOR 0 1 2 3 4 5 6 7 8 9))) (AND (NULL (DO* ((I 0 (1+ I)) (J (- 9 I) (- 9 I)) N) ((>= I J)) (SETF N (AREF VEC I) (AREF VEC I) (AREF VEC J) (AREF VEC J) N))) (EQUALP VEC #(9 8 7 6 5 4 3 2 1 0))))) EQL-OK: NIL RUN-TEST: finished "must-do" (0 errors out of 75 tests) RUN-TEST: started # (NOT (= (FUNCALL (LAMBDA (X) (+ X 3)) 4) 7)) EQL-OK: NIL (NOT (= (FUNCALL (LAMBDA (&REST ARGS) (APPLY #'+ ARGS)) 1 2 3 4) 10)) EQL-OK: NIL (NOT (FUNCTIONP (LAMBDA (&REST ARGS) (APPLY #'+ ARGS)))) EQL-OK: NIL (NOT (FUNCTIONP (MACRO-FUNCTION 'LAMBDA))) EQL-OK: NIL (NOT (EVERY #'SPECIAL-OPERATOR-P '(BLOCK CATCH EVAL-WHEN FLET FUNCTION GO IF LABELS LET LET* LOAD-TIME-VALUE LOCALLY MACROLET MULTIPLE-VALUE-CALL MULTIPLE-VALUE-PROG1 PROGN PROGV QUOTE RETURN-FROM SETQ SYMBOL-MACROLET TAGBODY THE THROW UNWIND-PROTECT))) EQL-OK: NIL (NOT (NOT (SPECIAL-OPERATOR-P 'CAR))) EQL-OK: NIL (NOT (NOT (SPECIAL-OPERATOR-P 'CDR))) EQL-OK: NIL (NOT (NOT (SPECIAL-OPERATOR-P 'VALUES))) EQL-OK: NIL RUN-TEST: finished "must-eval" (0 errors out of 8 tests) RUN-TEST: started # (NOT (LET ((TABLE (MAKE-HASH-TABLE))) (AND (HASH-TABLE-P TABLE) (EQL (SETF (GETHASH "one" TABLE) 1) 1) (EQUAL (MULTIPLE-VALUE-LIST (GETHASH (COPY-SEQ "one") TABLE)) '(NIL NIL))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :TEST 'EQUAL))) (AND (HASH-TABLE-P TABLE) (EQL (SETF (GETHASH "one" TABLE) 1) 1) (EQUAL (MULTIPLE-VALUE-LIST (GETHASH (COPY-SEQ "one") TABLE)) '(1 T))))) EQL-OK: NIL (NOT (MAKE-HASH-TABLE :REHASH-SIZE 1.5 :REHASH-THRESHOLD 0.7)) EQL-OK: NIL (NOT (MAKE-HASH-TABLE)) EQL-OK: NIL (NOT (HASH-TABLE-P (MAKE-HASH-TABLE))) EQL-OK: NIL (NOT (HASH-TABLE-P (MAKE-HASH-TABLE :SIZE 0))) EQL-OK: NIL (NOT (HASH-TABLE-P (MAKE-HASH-TABLE :SIZE 1))) EQL-OK: NIL (NOT (HASH-TABLE-P (MAKE-HASH-TABLE :SIZE 2))) EQL-OK: NIL (NOT (HASH-TABLE-P (MAKE-HASH-TABLE :SIZE 3))) EQL-OK: NIL (NOT (HASH-TABLE-P (MAKE-HASH-TABLE :SIZE 1000))) EQL-OK: NIL (NOT (HASH-TABLE-P (MAKE-HASH-TABLE :REHASH-SIZE 1))) EQL-OK: NIL (NOT (HASH-TABLE-P (MAKE-HASH-TABLE :REHASH-SIZE 100))) EQL-OK: NIL (NOT (HASH-TABLE-P (MAKE-HASH-TABLE :REHASH-SIZE 1.5))) EQL-OK: NIL (NOT (HASH-TABLE-P (MAKE-HASH-TABLE :REHASH-THRESHOLD 0))) EQL-OK: NIL (NOT (HASH-TABLE-P (MAKE-HASH-TABLE :REHASH-THRESHOLD 0.0))) EQL-OK: NIL (NOT (HASH-TABLE-P (MAKE-HASH-TABLE :REHASH-THRESHOLD 0.1))) EQL-OK: NIL (NOT (HASH-TABLE-P (MAKE-HASH-TABLE :REHASH-THRESHOLD 0.12))) EQL-OK: NIL (NOT (HASH-TABLE-P (MAKE-HASH-TABLE :REHASH-THRESHOLD 0.5))) EQL-OK: NIL (NOT (HASH-TABLE-P (MAKE-HASH-TABLE :REHASH-THRESHOLD 2/3))) EQL-OK: NIL (NOT (HASH-TABLE-P (MAKE-HASH-TABLE :REHASH-THRESHOLD 0.888))) EQL-OK: NIL (NOT (HASH-TABLE-P (MAKE-HASH-TABLE :REHASH-THRESHOLD 0.99))) EQL-OK: NIL (NOT (HASH-TABLE-P (MAKE-HASH-TABLE :REHASH-THRESHOLD 1))) EQL-OK: NIL (NOT (HASH-TABLE-P (MAKE-HASH-TABLE :REHASH-THRESHOLD 1.0))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 0 :REHASH-SIZE 1.1 :REHASH-THRESHOLD 0))) (AND (DOTIMES (I 10 T) (SETF (GETHASH I TABLE) I)) (DOTIMES (I 10 T) (UNLESS (EQL (GETHASH I TABLE) I) (RETURN NIL))) (HASH-TABLE-P TABLE)))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 1 :REHASH-SIZE 1 :REHASH-THRESHOLD 1))) (AND (DOTIMES (I 100 T) (SETF (GETHASH I TABLE) I)) (DOTIMES (I 100 T) (UNLESS (EQL (GETHASH I TABLE) I) (RETURN NIL))) (HASH-TABLE-P TABLE)))) EQL-OK: NIL (NOT (NOT (HASH-TABLE-P 'HASH-TABLE))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE))) (HASH-TABLE-P TABLE))) EQL-OK: NIL (NOT (NOT (HASH-TABLE-P 37))) EQL-OK: NIL (NOT (NOT (HASH-TABLE-P '((A . 1) (B . 2))))) EQL-OK: NIL (NOT (NOT (HASH-TABLE-P (TYPE-OF (MAKE-HASH-TABLE))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE))) (AND (ZEROP (HASH-TABLE-COUNT TABLE)) (EQUAL (SETF (GETHASH 57 TABLE) "fifty-seven") "fifty-seven") (EQL (HASH-TABLE-COUNT TABLE) 1) (DOTIMES (I 100 T) (SETF (GETHASH I TABLE) I)) (EQL (HASH-TABLE-COUNT TABLE) 100)))) EQL-OK: NIL (NOT (ZEROP (HASH-TABLE-COUNT (MAKE-HASH-TABLE)))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE))) (AND (EQL (SETF (GETHASH 'KEY TABLE) 9) 9) (= (HASH-TABLE-COUNT TABLE) 1)))) EQL-OK: NIL (NOT (<= 0 (HASH-TABLE-SIZE (MAKE-HASH-TABLE)))) EQL-OK: NIL (NOT (LET* ((TABLE0 (MAKE-HASH-TABLE)) (TABLE (MAKE-HASH-TABLE :SIZE (HASH-TABLE-SIZE TABLE0) :TEST (HASH-TABLE-TEST TABLE0) :REHASH-THRESHOLD (HASH-TABLE-REHASH-THRESHOLD TABLE0) :REHASH-SIZE (HASH-TABLE-REHASH-SIZE TABLE0)))) (AND (HASH-TABLE-P TABLE) (ZEROP (HASH-TABLE-COUNT TABLE)) (EQ (TYPE-OF TABLE) 'HASH-TABLE)))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE))) (AND (EQUAL (MULTIPLE-VALUE-LIST (GETHASH 1 TABLE)) '(NIL NIL)) (EQUAL (MULTIPLE-VALUE-LIST (GETHASH 1 TABLE 2)) '(2 NIL)) (EQUAL (SETF (GETHASH 1 TABLE) "one") "one") (EQUAL (SETF (GETHASH 2 TABLE "two") "two") "two") (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH 1 TABLE) (AND (EQUAL VALUE "one") PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH 2 TABLE) (AND (EQUAL VALUE "two") PRESENT-P)) (EQUAL (MULTIPLE-VALUE-LIST (GETHASH NIL TABLE)) '(NIL NIL)) (NULL (SETF (GETHASH NIL TABLE) NIL)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH NIL TABLE) (AND (NOT VALUE) PRESENT-P))))) EQL-OK: NIL (NOT (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH 'KEY (MAKE-HASH-TABLE) 'DEFAULT) (AND (EQ VALUE 'DEFAULT) (NOT PRESENT-P)))) EQL-OK: NIL (NOT (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH 'KEY (MAKE-HASH-TABLE)) (AND (NULL VALUE) (NOT PRESENT-P)))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE))) (AND (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH 'KEY TABLE) (AND (NULL VALUE) (NOT PRESENT-P))) (EQL (SETF (GETHASH 'KEY TABLE) 100) 100) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH 'KEY TABLE) (AND (EQL VALUE 100) PRESENT-P))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) (LIST NIL)) (AND (EQL (SETF (GETHASH (PROGN (PUSH 0 LIST) 0) (PROGN (PUSH 1 LIST) TABLE) (PROGN (PUSH 2 LIST) 'DEFAULT)) (PROGN (PUSH 3 LIST) 9)) 9) (EQUAL LIST '(3 2 1 0))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE))) (AND (DOTIMES (I 100 T) (UNLESS (EQL (SETF (GETHASH I TABLE) (* I 10)) (* I 10)) (RETURN NIL))) (= (HASH-TABLE-COUNT TABLE) 100) (DOTIMES (I 100 T) (UNLESS (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH I TABLE) (AND (EQL VALUE (* I 10)) PRESENT-P)) (RETURN NIL)))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE))) (AND (EQUAL (SETF (GETHASH 100 TABLE) "C") "C") (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH 100 TABLE) (AND (EQUAL VALUE "C") PRESENT-P)) (REMHASH 100 TABLE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH 100 TABLE) (AND (NOT VALUE) (NOT PRESENT-P))) (NOT (REMHASH 100 TABLE))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE))) (AND (ZEROP (HASH-TABLE-COUNT TABLE)) (EQL (SETF (GETHASH 'A TABLE) 'ABC) 'ABC) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH 'A TABLE) (AND (EQ VALUE 'ABC) PRESENT-P)) (EQL (HASH-TABLE-COUNT TABLE) 1) (REMHASH 'A TABLE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH 'A TABLE) (AND (NOT VALUE) (NOT PRESENT-P))) (ZEROP (HASH-TABLE-COUNT TABLE))))) EQL-OK: NIL (NOT (NOT (REMHASH 'KEY (MAKE-HASH-TABLE)))) EQL-OK: NIL (NOT (WITH-HASH-TABLE-ITERATOR (ITERATOR (MAKE-HASH-TABLE)) (MACROLET ((TEST (&ENVIRONMENT ENV) (IF (MACRO-FUNCTION 'ITERATOR ENV) T NIL))) (TEST)))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) (ALIST NIL)) (DOTIMES (I 10) (SETF (GETHASH I TABLE) I)) (WITH-HASH-TABLE-ITERATOR (ITERATOR TABLE) (LOOP (MULTIPLE-VALUE-BIND (MORE KEY VALUE) (ITERATOR) (UNLESS MORE (RETURN)) (PUSH (LIST KEY VALUE) ALIST)))) (SETQ ALIST (SORT ALIST #'< :KEY #'CAR)) (EQUAL ALIST '((0 0) (1 1) (2 2) (3 3) (4 4) (5 5) (6 6) (7 7) (8 8) (9 9))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) (EVAL 0)) (DOTIMES (I 10) (SETF (GETHASH I TABLE) I)) (WITH-HASH-TABLE-ITERATOR (ITERATOR (PROGN (INCF EVAL) TABLE)) (LOOP (MULTIPLE-VALUE-BIND (MORE KEY VALUE) (ITERATOR) (DECLARE (IGNORE KEY VALUE)) (UNLESS MORE (RETURN))))) (EQL EVAL 1))) EQL-OK: NIL (NOT (WITH-HASH-TABLE-ITERATOR (ITERATOR (MAKE-HASH-TABLE)) (NULL (ITERATOR)))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) ALIST0 ALIST1 ALIST2) (DOTIMES (I 100) (SETF (GETHASH I TABLE) I)) (AND (WITH-HASH-TABLE-ITERATOR (ITERATOR0 TABLE) (WITH-HASH-TABLE-ITERATOR (ITERATOR1 TABLE) (WITH-HASH-TABLE-ITERATOR (ITERATOR2 TABLE) (LOOP (MULTIPLE-VALUE-BIND (MORE0 KEY0 VALUE0) (ITERATOR0) (MULTIPLE-VALUE-BIND (MORE1 KEY1 VALUE1) (ITERATOR1) (MULTIPLE-VALUE-BIND (MORE2 KEY2 VALUE2) (ITERATOR2) (UNLESS (OR (EVERY #'NULL (LIST MORE0 MORE1 MORE2)) (EVERY #'IDENTITY (LIST MORE0 MORE1 MORE2))) (RETURN NIL)) (WHEN (EVERY #'NULL (LIST MORE0 MORE1 MORE2)) (RETURN T)) (PUSH (CONS KEY0 VALUE0) ALIST0) (PUSH (CONS KEY1 VALUE1) ALIST1) (PUSH (CONS KEY2 VALUE2) ALIST2)))))))) (EQUAL (SORT ALIST0 #'< :KEY #'CAR) (SETQ ALIST1 (SORT ALIST1 #'< :KEY #'CAR))) (EQUAL ALIST1 (SORT ALIST2 #'< :KEY #'CAR))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :REHASH-SIZE 100)) (N 0) (ALIST NIL)) (AND (DOLIST (KEY '(A B C D E F G H I J K) T) (UNLESS (EQL (SETF (GETHASH KEY TABLE) N) N) (RETURN NIL)) (INCF N)) (REMHASH 'B TABLE) (REMHASH 'D TABLE) (REMHASH 'F TABLE) (REMHASH 'H TABLE) (REMHASH 'J TABLE) (NOT (REMHASH 'B TABLE)) (NOT (REMHASH 'D TABLE)) (NOT (REMHASH 'F TABLE)) (NOT (REMHASH 'H TABLE)) (NOT (REMHASH 'J TABLE)) (WITH-HASH-TABLE-ITERATOR (ITERATOR TABLE) (LOOP (MULTIPLE-VALUE-BIND (MORE KEY VALUE) (ITERATOR) (UNLESS MORE (RETURN T)) (PUSH (CONS KEY VALUE) ALIST)))) (EQUAL (SORT ALIST #'< :KEY #'CDR) '((A . 0) (C . 2) (E . 4) (G . 6) (I . 8) (K . 10)))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE))) (AND (NULL (DOTIMES (I 10) (SETF (GETHASH I TABLE) I))) (EQL (LET ((SUM-OF-SQUARES 0)) (MAPHASH #'(LAMBDA (KEY VAL) (LET ((SQUARE (* VAL VAL))) (INCF SUM-OF-SQUARES SQUARE) (SETF (GETHASH KEY TABLE) SQUARE))) TABLE) SUM-OF-SQUARES) 285) (EQL (HASH-TABLE-COUNT TABLE) 10) (NULL (MAPHASH #'(LAMBDA (KEY VAL) (WHEN (ODDP VAL) (REMHASH KEY TABLE))) TABLE)) (EQL (HASH-TABLE-COUNT TABLE) 5) (LET ((ALIST NIL)) (AND (NULL (MAPHASH #'(LAMBDA (KEY VAL) (PUSH (LIST KEY VAL) ALIST)) TABLE)) (EQUALP (SORT ALIST #'< :KEY #'CAR) '((0 0) (2 4) (4 16) (6 36) (8 64)))))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) (ALIST NIL)) (AND (NULL (DOTIMES (I 10) (SETF (GETHASH I TABLE) I))) (NULL (MAPHASH #'(LAMBDA (KEY VAL) (IF (EVENP KEY) (SETF (GETHASH KEY TABLE) (* VAL VAL)) (REMHASH KEY TABLE))) TABLE)) (NULL (MAPHASH #'(LAMBDA (KEY VAL) (PUSH (CONS KEY VAL) ALIST)) TABLE)) (EQUAL (SORT ALIST #'< :KEY #'CAR) '((0 . 0) (2 . 4) (4 . 16) (6 . 36) (8 . 64)))))) EQL-OK: NIL (NOT (FLET ((TEST-HASH-TABLE-ITERATOR (HASH-TABLE) (LET ((ALL-ENTRIES 'NIL) (GENERATED-ENTRIES 'NIL) (UNIQUE (LIST NIL))) (MAPHASH #'(LAMBDA (KEY VALUE) (PUSH (LIST KEY VALUE) ALL-ENTRIES)) HASH-TABLE) (WITH-HASH-TABLE-ITERATOR (GENERATOR-FN HASH-TABLE) (LOOP (MULTIPLE-VALUE-BIND (MORE? KEY VALUE) (GENERATOR-FN) (UNLESS MORE? (RETURN)) (UNLESS (EQL VALUE (GETHASH KEY HASH-TABLE UNIQUE)) (ERROR "Key ~S not found for value ~S" KEY VALUE)) (PUSH (LIST KEY VALUE) GENERATED-ENTRIES)))) (UNLESS (= (LENGTH ALL-ENTRIES) (LENGTH GENERATED-ENTRIES) (LENGTH (UNION ALL-ENTRIES GENERATED-ENTRIES :KEY #'CAR :TEST (HASH-TABLE-TEST HASH-TABLE)))) (ERROR "Generated entries and Maphash entries don't correspond")) T))) (LET ((TABLE (MAKE-HASH-TABLE :REHASH-SIZE 100)) (N 0)) (AND (DOLIST (KEY '(A B C D E F G H I J K) T) (UNLESS (EQL (SETF (GETHASH KEY TABLE) N) N) (RETURN NIL)) (INCF N)) (REMHASH 'B TABLE) (REMHASH 'D TABLE) (REMHASH 'F TABLE) (REMHASH 'H TABLE) (REMHASH 'J TABLE) (NOT (REMHASH 'B TABLE)) (NOT (REMHASH 'D TABLE)) (NOT (REMHASH 'F TABLE)) (NOT (REMHASH 'H TABLE)) (NOT (REMHASH 'J TABLE)) (TEST-HASH-TABLE-ITERATOR TABLE) (TEST-HASH-TABLE-ITERATOR (MAKE-HASH-TABLE)))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE))) (AND (NULL (DOTIMES (I 100) (SETF (GETHASH I TABLE) (FORMAT NIL "~R" I)))) (EQL (HASH-TABLE-COUNT TABLE) 100) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH 57 TABLE) (AND (EQUAL VALUE "fifty-seven") PRESENT-P)) (HASH-TABLE-P (CLRHASH TABLE)) (ZEROP (HASH-TABLE-COUNT TABLE)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH 57 TABLE) (AND (NULL VALUE) (NOT PRESENT-P)))))) EQL-OK: NIL (NOT (LET ((CODE (SXHASH 'A))) (AND (TYPEP CODE 'FIXNUM) (<= 0 CODE)))) EQL-OK: NIL (NOT (DOLIST (ITEM '(A "" #\a (MAKE-HASH-TABLE) (MAKE-ARRAY '(2 3 4)) #*0101 "xx") T) (LET ((CODE (SXHASH ITEM))) (UNLESS (AND (TYPEP CODE 'FIXNUM) (<= 0 CODE)) (RETURN NIL))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :REHASH-THRESHOLD 0.8))) (AND (EQL (SETF (GETHASH 'KEY TABLE) 'VALUE0) 'VALUE0) (EQL (HASH-TABLE-COUNT TABLE) 1) (EQL (SETF (GETHASH 'KEY TABLE) 'VALUE1) 'VALUE1) (EQL (HASH-TABLE-COUNT TABLE) 1) (EQ (GETHASH 'KEY TABLE) 'VALUE1)))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :REHASH-THRESHOLD 0.8))) (AND (EQL (SETF (GETHASH 'KEY0 TABLE) 'VALUE0) 'VALUE0) (EQL (HASH-TABLE-COUNT TABLE) 1) (EQL (SETF (GETHASH 'KEY1 TABLE) 'VALUE1) 'VALUE1) (EQL (HASH-TABLE-COUNT TABLE) 2) (EQL (SETF (GETHASH 'KEY2 TABLE) 'VALUE2) 'VALUE2) (EQL (HASH-TABLE-COUNT TABLE) 3) (EQL (SETF (GETHASH 'KEY0 TABLE) 'VALUE00) 'VALUE00) (EQL (HASH-TABLE-COUNT TABLE) 3) (EQL (SETF (GETHASH 'KEY2 TABLE) 'VALUE22) 'VALUE22) (EQL (HASH-TABLE-COUNT TABLE) 3) (EQ (GETHASH 'KEY0 TABLE) 'VALUE00) (EQ (GETHASH 'KEY1 TABLE) 'VALUE1) (EQ (GETHASH 'KEY2 TABLE) 'VALUE22)))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 0 :TEST 'EQ)) (KEY0 (COPY-SEQ "key")) (KEY1 (COPY-SEQ "key"))) (AND (NOT (EQ KEY0 KEY1)) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (NULL VALUE) (NOT PRESENT-P))) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 0 :TEST 'EQL)) (KEY0 (COPY-SEQ "key")) (KEY1 (COPY-SEQ "key"))) (AND (NOT (EQL KEY0 KEY1)) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (NULL VALUE) (NOT PRESENT-P))) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 0 :TEST 'EQL)) (KEY0 1.0) (KEY1 1.0)) (AND (EQL KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 0 :TEST 'EQL)) (KEY0 #\a) (KEY1 #\a)) (AND (EQL KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 0 :TEST 'EQL)) (KEY0 #\a) (KEY1 #\A)) (AND (NOT (EQL KEY0 KEY1)) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (NULL VALUE) (NOT PRESENT-P))) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 16 :TEST 'EQUAL)) (KEY0 'KEY) (KEY1 'KEY)) (AND (EQ KEY0 KEY1) (EQUAL KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 0 :TEST 'EQUAL)) (KEY0 1.0) (KEY1 1.0)) (AND (EQUAL KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 0 :TEST 'EQUAL)) (KEY0 #\a) (KEY1 #\a)) (AND (EQUAL KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 0 :TEST 'EQUAL)) (KEY0 #\a) (KEY1 #\A)) (AND (NOT (EQUAL KEY0 KEY1)) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (NULL VALUE) (NOT PRESENT-P))) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 16 :TEST 'EQUAL)) (KEY0 (COPY-SEQ "key")) (KEY1 (COPY-SEQ "key"))) (AND (NOT (EQ KEY0 KEY1)) (EQUAL KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 16 :TEST 'EQUAL)) (KEY0 (COPY-SEQ "key")) (KEY1 (COPY-SEQ "KEY"))) (AND (NOT (EQ KEY0 KEY1)) (NOT (EQUAL KEY0 KEY1)) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (NULL VALUE) (NOT PRESENT-P))) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 10 :TEST 'EQUAL)) (KEY0 (COPY-SEQ '(KEY))) (KEY1 (COPY-SEQ '(KEY)))) (AND (NOT (EQ KEY0 KEY1)) (EQUAL KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 16 :TEST 'EQUAL)) (KEY0 (COPY-SEQ #*1010)) (KEY1 (COPY-SEQ #*1010))) (AND (NOT (EQ KEY0 KEY1)) (EQUAL KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 16 :TEST 'EQUAL)) (KEY0 (COPY-SEQ #(A B C))) (KEY1 (COPY-SEQ #(A B C)))) (AND (NOT (EQ KEY0 KEY1)) (NOT (EQUAL KEY0 KEY1)) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (NULL VALUE) (NOT PRESENT-P))) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 10 :TEST 'EQUAL)) (KEY0 (MAKE-PATHNAME)) (KEY1 (MAKE-PATHNAME))) (AND (NOT (EQ KEY0 KEY1)) (EQUAL KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 0 :TEST 'EQUALP)) (KEY0 (COPY-SEQ "key")) (KEY1 (COPY-SEQ "key"))) (AND (EQUALP KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 0 :TEST 'EQUALP)) (KEY0 1.0) (KEY1 1.0)) (AND (EQUALP KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 100 :TEST 'EQUALP)) (KEY0 1) (KEY1 1.0)) (AND (NOT (EQ KEY0 KEY1)) (EQUALP KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 0 :TEST 'EQUALP)) (KEY0 #\a) (KEY1 #\a)) (AND (EQUALP KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 10 :TEST 'EQUALP)) (KEY0 #\a) (KEY1 #\A)) (AND (NOT (EQ KEY0 KEY1)) (EQUALP KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 3 :TEST 'EQUALP)) (KEY0 (COPY-SEQ '(#\a))) (KEY1 (COPY-SEQ '(#\A)))) (AND (NOT (EQ KEY0 KEY1)) (EQUALP KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :SIZE 3 :TEST 'EQUALP)) (KEY0 (COPY-SEQ '(#\a (1)))) (KEY1 (COPY-SEQ '(#\A (1.0))))) (AND (NOT (EQ KEY0 KEY1)) (EQUALP KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :TEST 'EQUALP)) (KEY0 (MAKE-HASH-TABLE)) (KEY1 (MAKE-HASH-TABLE))) (AND (NOT (EQ KEY0 KEY1)) (EQUALP KEY0 KEY1) (EQ (SETF (GETHASH KEY0 TABLE) 'VALUE) 'VALUE) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY1 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P)) (MULTIPLE-VALUE-BIND (VALUE PRESENT-P) (GETHASH KEY0 TABLE) (AND (EQ VALUE 'VALUE) PRESENT-P))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE))) (AND (ZEROP (HASH-TABLE-COUNT TABLE)) (DOLIST (PAIR '((A ABC) (A BC) (1 "one") (1.0 "ONE") (#\a A) (#\A B)) T) (UNLESS (EQ (SETF (GETHASH (CAR PAIR) TABLE) (CADR PAIR)) (CADR PAIR)) (RETURN NIL))) (EQL (HASH-TABLE-COUNT TABLE) 5) (EQ (GETHASH 'A TABLE) 'BC) (EQUAL (GETHASH 1 TABLE) "one") (EQUAL (GETHASH 1.0 TABLE) "ONE") (EQL (GETHASH #\A TABLE) 'B) (EQL (GETHASH #\a TABLE) 'A)))) EQL-OK: NIL RUN-TEST: finished "must-hash-table" (0 errors out of 82 tests) RUN-TEST: started # (NOT (NULL (LOOP (RETURN)))) EQL-OK: NIL (NOT (LOOP (RETURN-FROM NIL T))) EQL-OK: NIL (NOT (NULL (LET ((STACK '(0 1 2))) (LOOP (UNLESS (POP STACK) (RETURN))) STACK))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (LOOP (RETURN (VALUES 0 1 2)))) '(0 1 2))) EQL-OK: NIL (NOT (= 100 (LET ((I 0)) (LOOP (INCF I) (WHEN (>= I 100) (RETURN I)))))) EQL-OK: NIL (NOT (EQ (LET (X) (TAGBODY (LOOP (GO END)) END (SETQ X T)) X) T)) EQL-OK: NIL (NOT (EQ T (CATCH 'END (LOOP (THROW 'END T))))) EQL-OK: NIL (NOT (EQ T (BLOCK HERE (LOOP (RETURN-FROM HERE T))))) EQL-OK: NIL (NOT (= 3 (LET ((I 0)) (LOOP (INCF I) (IF (= I 3) (RETURN I)))))) EQL-OK: NIL (NOT (= 9 (LET ((I 0) (J 0)) (TAGBODY (LOOP (INCF J 3) (INCF I) (IF (= I 3) (GO EXIT))) EXIT) J))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP :FOR A :FROM 1 :TO 3 :BY 1 :DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (LET ((FOR (MAKE-SYMBOL "FOR")) (FROM (MAKE-SYMBOL "FROM")) (TO (MAKE-SYMBOL "TO")) (BY (MAKE-SYMBOL "BY")) (DO (MAKE-SYMBOL "DO"))) (EQUAL (EVAL `(LET (STACK) (LOOP ,FOR A ,FROM 1 ,TO 3 ,BY 1 ,DO (PUSH A STACK)) STACK)) '(3 2 1)))) EQL-OK: NIL (NOT (LET ((FOR (MAKE-SYMBOL "FOR"))) (EQUAL (EVAL `(LET (STACK) (LOOP ,FOR A :FROM 1 :TO 3 :BY 1 :DO (PUSH A STACK)) STACK)) '(3 2 1)))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "LOOP-KEY-TEST") (DELETE-PACKAGE "LOOP-KEY-TEST")) (LET* ((PKG (DEFPACKAGE "LOOP-KEY-TEST")) (FOR (INTERN "FOR" PKG)) (IN (INTERN "IN" PKG)) (BY (PROGN (IMPORT 'BY PKG) (INTERN "BY" PKG))) (COLLECT (PROGN (IMPORT 'COLLECT PKG) (INTERN "COLLECT" PKG)))) (EXPORT COLLECT PKG) (AND (EQUAL (EVAL `(LOOP ,FOR ELT ,IN '(1 2 3 4 5) ,BY #'CDDR ,COLLECT ELT)) '(1 3 5)) (DELETE-PACKAGE PKG))))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 1 TO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 1 BY 1 TO 3 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A TO 3 BY 1 FROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A TO 3 FROM 1 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 TO 3 FROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 FROM 1 TO 3 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A UPFROM 1 TO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A UPFROM 1 BY 1 TO 3 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A TO 3 BY 1 UPFROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A TO 3 UPFROM 1 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 TO 3 UPFROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 UPFROM 1 TO 3 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 1 UPTO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 1 BY 1 UPTO 3 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A UPTO 3 BY 1 FROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A UPTO 3 FROM 1 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 UPTO 3 FROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 FROM 1 UPTO 3 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A UPFROM 1 UPTO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A UPFROM 1 BY 1 UPTO 3 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A UPTO 3 BY 1 UPFROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A UPTO 3 UPFROM 1 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 UPTO 3 UPFROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 UPFROM 1 UPTO 3 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 1 BELOW 4 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 1 BY 1 BELOW 4 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BELOW 4 BY 1 FROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BELOW 4 FROM 1 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 BELOW 4 FROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 FROM 1 BELOW 4 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A UPFROM 1 BELOW 4 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A UPFROM 1 BY 1 BELOW 4 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BELOW 4 BY 1 UPFROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BELOW 4 UPFROM 1 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 BELOW 4 UPFROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 UPFROM 1 BELOW 4 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 1 TO 3 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A TO 3 FROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A UPFROM 1 TO 3 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A TO 3 UPFROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 1 UPTO 3 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A UPTO 3 FROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A UPFROM 1 UPTO 3 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A UPTO 3 UPFROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 1 BELOW 4 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BELOW 4 FROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A UPFROM 1 BELOW 4 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BELOW 4 UPFROM 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A TO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 TO 3 DO (PUSH A STACK)) STACK) '(3 2 1 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A UPTO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 UPTO 3 DO (PUSH A STACK)) STACK) '(3 2 1 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BELOW 4 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 BELOW 4 DO (PUSH A STACK)) STACK) '(3 2 1 0))) EQL-OK: NIL (NOT (= 4 (LET ((STACK '(1 2 3))) (LOOP FOR A FROM 1 BY 1 DO (UNLESS (POP STACK) (RETURN A)))))) EQL-OK: NIL (NOT (= 4 (LET ((STACK '(1 2 3))) (LOOP FOR A BY 1 FROM 1 DO (UNLESS (POP STACK) (RETURN A)))))) EQL-OK: NIL (NOT (= 4 (LET ((STACK '(1 2 3))) (LOOP FOR A UPFROM 1 BY 1 DO (UNLESS (POP STACK) (RETURN A)))))) EQL-OK: NIL (NOT (= 4 (LET ((STACK '(1 2 3))) (LOOP FOR A BY 1 UPFROM 1 DO (UNLESS (POP STACK) (RETURN A)))))) EQL-OK: NIL (NOT (= 4 (LET ((STACK '(1 2 3))) (LOOP FOR A FROM 1 DO (UNLESS (POP STACK) (RETURN A)))))) EQL-OK: NIL (NOT (= 4 (LET ((STACK '(1 2 3))) (LOOP FOR A UPFROM 1 DO (UNLESS (POP STACK) (RETURN A)))))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A TO 3 DO (PUSH A STACK)) STACK) '(3 2 1 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A UPTO 3 DO (PUSH A STACK)) STACK) '(3 2 1 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BELOW 4 DO (PUSH A STACK)) STACK) '(3 2 1 0))) EQL-OK: NIL (NOT (= 3 (LET ((STACK '(1 2 3))) (LOOP FOR A BY 1 DO (UNLESS (POP STACK) (RETURN A)))))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 3 DOWNTO 1 BY 1 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 3 BY 1 DOWNTO 1 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A DOWNTO 1 BY 1 FROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A DOWNTO 1 FROM 3 BY 1 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 FROM 3 DOWNTO 1 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 DOWNTO 1 FROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 3 ABOVE 0 BY 1 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 3 BY 1 ABOVE 0 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A ABOVE 0 BY 1 FROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A ABOVE 0 FROM 3 BY 1 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 FROM 3 ABOVE 0 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 ABOVE 0 FROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 3 DOWNTO 1 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A DOWNTO 1 FROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 3 ABOVE 0 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A ABOVE 0 FROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A DOWNFROM 3 TO 1 BY 1 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A DOWNFROM 3 BY 1 TO 1 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A TO 1 BY 1 DOWNFROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A TO 1 DOWNFROM 3 BY 1 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 TO 1 DOWNFROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 DOWNFROM 3 TO 1 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A DOWNFROM 3 DOWNTO 1 BY 1 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A DOWNFROM 3 BY 1 DOWNTO 1 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A DOWNTO 1 BY 1 DOWNFROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A DOWNTO 1 DOWNFROM 3 BY 1 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 DOWNTO 1 DOWNFROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 DOWNFROM 3 DOWNTO 1 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A DOWNFROM 3 ABOVE 0 BY 1 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A DOWNFROM 3 BY 1 ABOVE 0 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A ABOVE 0 BY 1 DOWNFROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A ABOVE 0 DOWNFROM 3 BY 1 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 ABOVE 0 DOWNFROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A BY 1 DOWNFROM 3 ABOVE 0 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A DOWNFROM 3 TO 1 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A TO 1 DOWNFROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A DOWNFROM 3 DOWNTO 1 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A DOWNTO 1 DOWNFROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A DOWNFROM 3 ABOVE 0 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A ABOVE 0 DOWNFROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (ZEROP (LET ((STACK '(0 1 2))) (LOOP FOR A DOWNFROM 3 BY 1 DO (UNLESS (POP STACK) (RETURN A)))))) EQL-OK: NIL (NOT (ZEROP (LET ((STACK '(0 1 2))) (LOOP FOR A BY 1 DOWNFROM 3 DO (UNLESS (POP STACK) (RETURN A)))))) EQL-OK: NIL (NOT (ZEROP (LET ((STACK '(0 1 2))) (LOOP FOR A DOWNFROM 3 DO (UNLESS (POP STACK) (RETURN A)))))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A FROM (+ 1 1) UPTO (+ 4 6) BY (1+ 1) DO (PUSH A STACK)) STACK) '(10 8 6 4 2))) EQL-OK: NIL (NOT (EQUAL (LET ((X 0) STACK) (LOOP FOR A FROM (INCF X) UPTO (+ (INCF X) 10) BY X DO (PUSH A STACK)) STACK) '(11 9 7 5 3 1))) EQL-OK: NIL (NOT (EQUAL (LET ((X 0) STACK) (LOOP FOR A FROM (INCF X) BY (INCF X) UPTO (+ X 10) DO (PUSH A STACK)) STACK) '(11 9 7 5 3 1))) EQL-OK: NIL (NOT (EQUAL (LET ((X 0) STACK) (LOOP FOR A BY (INCF X) FROM (INCF X) UPTO (+ X 10) DO (PUSH A STACK)) STACK) '(12 11 10 9 8 7 6 5 4 3 2))) EQL-OK: NIL (NOT (EQUAL (LET ((X 0) STACK) (LOOP FOR A BY (INCF X) UPTO (+ (INCF X) 10) FROM (INCF X) DO (PUSH A STACK)) STACK) '(12 11 10 9 8 7 6 5 4 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A T FROM 1 TO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A FIXNUM FROM 1 TO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A FLOAT FROM 1.0 TO 3.0 BY 1.0 DO (PUSH A STACK)) STACK) '(3.0 2.0 1.0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE T FROM 1 TO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE FIXNUM FROM 1 TO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE FLOAT FROM 1.0 TO 3.0 BY 1.0 DO (PUSH A STACK)) STACK) '(3.0 2.0 1.0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE NUMBER FROM 1 TO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE INTEGER FROM 1 TO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET ((STACK)) (LOOP FOR A FROM 0 UPTO 10 BY 5 DO (PUSH A STACK)) STACK) '(10 5 0))) EQL-OK: NIL (NOT (EQUAL (LET ((STACK)) (LOOP FOR A FROM 0 UPTO 10 BY 3 DO (PUSH A STACK)) STACK) '(9 6 3 0))) EQL-OK: NIL (NOT (EQUAL (LET ((STACK)) (LOOP FOR A FROM -3 UPTO 0 DO (PUSH A STACK)) STACK) '(0 -1 -2 -3))) EQL-OK: NIL (NOT (EQUAL (LET ((STACK)) (LOOP FOR A DOWNFROM 0 TO -3 DO (PUSH A STACK)) STACK) '(-3 -2 -1 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP AS A FROM 1 TO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP AS A UPFROM 1 TO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP AS A FROM 1 UPTO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP AS A UPFROM 1 UPTO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP AS A FROM 1 BELOW 4 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP AS A UPFROM 1 BELOW 4 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP AS A FROM 1 TO 3 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP AS A UPFROM 1 TO 3 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP AS A FROM 1 UPTO 3 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP AS A UPFROM 1 UPTO 3 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP AS A FROM 1 BELOW 4 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP AS A UPFROM 1 BELOW 4 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP AS A TO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP AS A UPTO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP AS A BELOW 4 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1 0))) EQL-OK: NIL (NOT (= 4 (LET ((STACK '(1 2 3))) (LOOP AS A FROM 1 BY 1 DO (UNLESS (POP STACK) (RETURN A)))))) EQL-OK: NIL (NOT (= 4 (LET ((STACK '(1 2 3))) (LOOP AS A UPFROM 1 BY 1 DO (UNLESS (POP STACK) (RETURN A)))))) EQL-OK: NIL (NOT (= 4 (LET ((STACK '(1 2 3))) (LOOP AS A FROM 1 DO (UNLESS (POP STACK) (RETURN A)))))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP AS A TO 3 DO (PUSH A STACK)) STACK) '(3 2 1 0))) EQL-OK: NIL (NOT (= 3 (LET ((STACK '(1 2 3))) (LOOP AS A BY 1 DO (UNLESS (POP STACK) (RETURN A)))))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP AS A FROM 3 DOWNTO 1 BY 1 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP AS A FROM 3 ABOVE 0 BY 1 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP AS A FROM 3 DOWNTO 1 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP AS A FROM 3 ABOVE 0 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP AS A DOWNFROM 3 TO 1 BY 1 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP AS A TO 1 BY 1 DOWNFROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP AS A BY 1 TO 1 DOWNFROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP AS A DOWNFROM 3 DOWNTO 1 BY 1 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP AS A DOWNTO 1 BY 1 DOWNFROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP AS A BY 1 DOWNTO 1 DOWNFROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP AS A DOWNFROM 3 ABOVE 0 BY 1 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP AS A ABOVE 0 BY 1 DOWNFROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP AS A BY 1 ABOVE 0 DOWNFROM 3 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP AS A DOWNFROM 3 TO 1 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP AS A DOWNFROM 3 DOWNTO 1 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP AS A DOWNFROM 3 ABOVE 0 DO (PUSH A STACK)) STACK) '(1 2 3))) EQL-OK: NIL (NOT (ZEROP (LET ((STACK '(0 1 2))) (LOOP AS A DOWNFROM 3 BY 1 DO (UNLESS (POP STACK) (RETURN A)))))) EQL-OK: NIL (NOT (ZEROP (LET ((STACK '(0 1 2))) (LOOP AS A DOWNFROM 3 DO (UNLESS (POP STACK) (RETURN A)))))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 0 UPTO 0 DO (PUSH A STACK)) STACK) '(0))) EQL-OK: NIL (NOT (NULL (LOOP FOR A UPFROM 0 BELOW 0))) EQL-OK: NIL (NOT (NULL (LOOP FOR A UPFROM 10 TO -10 COLLECT A))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 1/3 UPTO 1 BY 1/3 DO (PUSH A STACK)) STACK) '(1 2/3 1/3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE RATIONAL FROM 1/3 UPTO 5/3 BY 1/3 DO (PUSH A STACK)) STACK) '(5/3 4/3 1 2/3 1/3))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A FIXNUM BELOW 3 DO (PUSH A STACK)) STACK) '(2 1 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE FIXNUM BELOW 3 DO (PUSH A STACK)) STACK) '(2 1 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE (INTEGER 0 2) BELOW 3 DO (PUSH A STACK)) STACK) '(2 1 0))) EQL-OK: NIL (NOT (NULL (LOOP FOR A IN 'NIL))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A IN '(0 1 2) DO (PUSH A STACK)) STACK) '(2 1 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A IN (LET ((I 0)) (LIST (INCF I) (INCF I) (INCF I))) DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (HANDLER-CASE (LOOP FOR A IN '(0 1 . 2)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A IN '(0 1 2 3) BY #'CDR DO (PUSH A STACK)) STACK) '(3 2 1 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A IN '(0 1 2 3) BY #'CDDR DO (PUSH A STACK)) STACK) '(2 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A IN '(0 1 2 3) BY #'CDDDR DO (PUSH A STACK)) STACK) '(3 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A IN '(0 1 2 3) BY #'CDDDDR DO (PUSH A STACK)) STACK) '(0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A T IN '(0 1 2) DO (PUSH A STACK)) STACK) '(2 1 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE T IN '(0 1 2) DO (PUSH A STACK)) STACK) '(2 1 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A FIXNUM IN '(0 1 2) DO (PUSH A STACK)) STACK) '(2 1 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE FIXNUM IN '(0 1 2) DO (PUSH A STACK)) STACK) '(2 1 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE T IN '(0 1 2) DO (PUSH A STACK)) STACK) '(2 1 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A FLOAT IN '(#1=0.0 1.0 2.0) DO (PUSH A STACK)) STACK) '(2.0 1.0 #1#))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE FLOAT IN '(#1=0.0 1.0 2.0) DO (PUSH A STACK)) STACK) '(2.0 1.0 #1#))) EQL-OK: NIL (NOT (NULL (LOOP FOR A ON 'NIL))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A ON '(0 1 2) DO (PUSH A STACK)) STACK) '((2) (1 2) (0 1 2)))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A ON (LET ((I 0)) (LIST (INCF I) (INCF I) (INCF I))) DO (PUSH (CAR A) STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A ON '(0 1 . 2) DO (PUSH A STACK)) STACK) '((1 . 2) (0 1 . 2)))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A ON '(0 1 2 3) BY #'CDR DO (PUSH A STACK)) STACK) '((3) (2 3) (1 2 3) (0 1 2 3)))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A ON '(0 1 2 3) BY #'CDDR DO (PUSH A STACK)) STACK) '((2 3) (0 1 2 3)))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A ON '(0 1 2 3) BY #'CDDDR DO (PUSH A STACK)) STACK) '((3) (0 1 2 3)))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A ON '(0 1 2 3) BY #'CDDDDR DO (PUSH A STACK)) STACK) '((0 1 2 3)))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A T ON '(0 1 2) DO (PUSH A STACK)) STACK) '((2) (1 2) (0 1 2)))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE T ON '(0 1 2) DO (PUSH A STACK)) STACK) '((2) (1 2) (0 1 2)))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE LIST ON '(0 1 2) DO (PUSH A STACK)) STACK) '((2) (1 2) (0 1 2)))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A ON '(0 1 2 3) BY #'(LAMBDA (ARG) (CDDDDR ARG)) DO (PUSH A STACK)) STACK) '((0 1 2 3)))) EQL-OK: NIL (NOT (NULL (LOOP FOR A ACROSS ""))) EQL-OK: NIL (NOT (NULL (LET (STACK) (LOOP FOR A ACROSS "" DO (PUSH A STACK)) STACK))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A ACROSS "abc" DO (PUSH A STACK)) STACK) '(#\c #\b #\a))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A ACROSS #(X Y Z) DO (PUSH A STACK)) STACK) '(Z Y X))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A ACROSS #*0101 DO (PUSH A STACK)) STACK) '(1 0 1 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A T ACROSS "abc" DO (PUSH A STACK)) STACK) '(#\c #\b #\a))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE T ACROSS "abc" DO (PUSH A STACK)) STACK) '(#\c #\b #\a))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE CHARACTER ACROSS "abc" DO (PUSH A STACK)) STACK) '(#\c #\b #\a))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE BASE-CHAR ACROSS "abc" DO (PUSH A STACK)) STACK) '(#\c #\b #\a))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A FLOAT ACROSS #(#1=0.0 1.0 2.0) DO (PUSH A STACK)) STACK) '(2.0 1.0 #1#))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE FLOAT ACROSS #(#1=0.0 1.0 2.0) DO (PUSH A STACK)) STACK) '(2.0 1.0 #1#))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A FIXNUM ACROSS #(0 1 2) DO (PUSH A STACK)) STACK) '(2 1 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A OF-TYPE FIXNUM ACROSS #(0 1 2) DO (PUSH A STACK)) STACK) '(2 1 0))) EQL-OK: NIL (NOT (= (LET ((I 3)) (LOOP FOR A = 0 THEN (1+ A) DO (WHEN (ZEROP (DECF I)) (RETURN A)))) 2)) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A = '(0 1 2) THEN (CDR A) DO (IF A (PUSH (CAR A) STACK) (RETURN STACK)))) '(2 1 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP WITH I = 0 FOR X = I DO (WHEN (= I 3) (RETURN)) (PUSH X STACK) (INCF I)) STACK) '(2 1 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR I = 0 THEN (1+ I) DO (PUSH I STACK) WHEN (= I 3) RETURN T) STACK) '(3 2 1 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR I FIXNUM = 0 THEN (1+ I) DO (PUSH I STACK) WHEN (= I 3) RETURN T) STACK) '(3 2 1 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR I OF-TYPE FIXNUM = 0 THEN (1+ I) DO (PUSH I STACK) WHEN (= I 3) RETURN T) STACK) '(3 2 1 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR I FLOAT = #1=0.0 THEN (1+ I) DO (PUSH I STACK) WHEN (= I 3.0) RETURN T) STACK) '(3.0 2.0 1.0 #1#))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR I OF-TYPE FLOAT = #1=0.0 THEN (1+ I) DO (PUSH I STACK) WHEN (= I 3.0) RETURN T) STACK) '(3.0 2.0 1.0 #1#))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR I T = #1=0.0 THEN (1+ I) DO (PUSH I STACK) WHEN (= I 3.0) RETURN T) STACK) '(3.0 2.0 1.0 #1#))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR I OF-TYPE T = #1=0.0 THEN (1+ I) DO (PUSH I STACK) WHEN (= I 3.0) RETURN T) STACK) '(3.0 2.0 1.0 #1#))) EQL-OK: NIL (NOT (LET ((CHARS '(#\a #\b #\c #\d))) (EQ T (LOOP FOR C = (POP CHARS) UNLESS CHARS RETURN T)))) EQL-OK: NIL (NOT (LET ((CHARS '(#\a #\b #\c #\d))) (EQ T (LOOP FOR C OF-TYPE CHARACTER = (POP CHARS) UNLESS CHARS RETURN T)))) EQL-OK: NIL (NOT (LET ((CHARS '(#\a #\b #\c #\d))) (EQ T (LOOP FOR C OF-TYPE BASE-CHAR = (POP CHARS) UNLESS CHARS RETURN T)))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR I OF-TYPE (INTEGER 0 3) = 0 THEN (1+ I) DO (PUSH I STACK) WHEN (= I 3) RETURN T) STACK) '(3 2 1 0))) EQL-OK: NIL (NOT (FLET ((TRIPLE (N) (VALUES N (+ N 1) (+ N 2)))) (EQUAL (LOOP FOR I FROM 0 UPTO 2 FOR (A B C) = (MULTIPLE-VALUE-LIST (TRIPLE I)) APPEND `(,A ,B ,C)) '(0 1 2 1 2 3 2 3 4)))) EQL-OK: NIL (NOT (FLET ((TRIPLE (N) (VALUES N `(,(+ N 1)) `((,(+ N 2)))))) (EQUAL (LOOP FOR I FROM 0 UPTO 2 FOR (A (B) ((C))) = (MULTIPLE-VALUE-LIST (TRIPLE I)) APPEND `(,A ,B ,C)) '(0 1 2 1 2 3 2 3 4)))) EQL-OK: NIL (NOT (FLET ((TRIPLE (N) (VALUES N `(,(+ N 10) ,(+ N 11) ,(+ N 12) ,(+ N 13)) `(,(+ N 20) ,(+ N 21) ,(+ N 22))))) (EQUAL (LOOP FOR I FROM 0 UPTO 2 FOR (A (B0 B1 B2 B3) (C0 C1 C2)) = (MULTIPLE-VALUE-LIST (TRIPLE I)) APPEND `(,A ,B0 ,B1 ,B2 ,B3 ,C0 ,C1 ,C2)) '(0 10 11 12 13 20 21 22 1 11 12 13 14 21 22 23 2 12 13 14 15 22 23 24)))) EQL-OK: NIL (NOT (FLET ((TRIPLE (N) (VALUES N `(,(+ N 10) ,(+ N 11) ,(+ N 12) ,(+ N 13)) `(,(+ N 200) (,(+ N 210) ,(+ N 211) ,(+ N 212) ,(+ N 213)) ,(+ N 220))))) (EQUAL (LOOP FOR I FROM 0 UPTO 2 FOR (A (B0 B1 B2 B3) (C0 (C10 C11 C12) C2)) = (MULTIPLE-VALUE-LIST (TRIPLE I)) APPEND `(,A ,B0 ,B1 ,B2 ,B3 ,C0 ,C10 ,C11 ,C12 ,C2)) '(0 10 11 12 13 200 210 211 212 220 1 11 12 13 14 201 211 212 213 221 2 12 13 14 15 202 212 213 214 222)))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K BEING EACH HASH-KEY OF TABLE DO (PUSH K STACK)) (NULL (SET-DIFFERENCE STACK '(K0 K1 K2))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K BEING THE HASH-KEY OF TABLE DO (PUSH K STACK)) (NULL (SET-DIFFERENCE STACK '(K0 K1 K2))))) WARNING: LOOP: After THE a plural loop keyword is required, not HASH-KEY EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K BEING EACH HASH-KEYS OF TABLE DO (PUSH K STACK)) (NULL (SET-DIFFERENCE STACK '(K0 K1 K2))))) WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not HASH-KEYS EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K BEING THE HASH-KEYS OF TABLE DO (PUSH K STACK)) (NULL (SET-DIFFERENCE STACK '(K0 K1 K2))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K BEING EACH HASH-KEY IN TABLE DO (PUSH K STACK)) (NULL (SET-DIFFERENCE STACK '(K0 K1 K2))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K BEING THE HASH-KEY IN TABLE DO (PUSH K STACK)) (NULL (SET-DIFFERENCE STACK '(K0 K1 K2))))) WARNING: LOOP: After THE a plural loop keyword is required, not HASH-KEY EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K BEING EACH HASH-KEYS IN TABLE DO (PUSH K STACK)) (NULL (SET-DIFFERENCE STACK '(K0 K1 K2))))) WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not HASH-KEYS EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K BEING THE HASH-KEYS IN TABLE DO (PUSH K STACK)) (NULL (SET-DIFFERENCE STACK '(K0 K1 K2))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K BEING EACH HASH-KEY OF TABLE USING (HASH-VALUE V) DO (PUSH (LIST K V) STACK)) (NULL (SET-DIFFERENCE STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL)))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K BEING THE HASH-KEY OF TABLE USING (HASH-VALUE V) DO (PUSH (LIST K V) STACK)) (NULL (SET-DIFFERENCE STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL)))) WARNING: LOOP: After THE a plural loop keyword is required, not HASH-KEY EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K BEING EACH HASH-KEYS OF TABLE USING (HASH-VALUE V) DO (PUSH (LIST K V) STACK)) (NULL (SET-DIFFERENCE STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL)))) WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not HASH-KEYS EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K BEING THE HASH-KEYS OF TABLE USING (HASH-VALUE V) DO (PUSH (LIST K V) STACK)) (NULL (SET-DIFFERENCE STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL)))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K BEING EACH HASH-KEY IN TABLE USING (HASH-VALUE V) DO (PUSH (LIST K V) STACK)) (NULL (SET-DIFFERENCE STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL)))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K BEING THE HASH-KEY IN TABLE USING (HASH-VALUE V) DO (PUSH (LIST K V) STACK)) (NULL (SET-DIFFERENCE STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL)))) WARNING: LOOP: After THE a plural loop keyword is required, not HASH-KEY EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K BEING EACH HASH-KEYS IN TABLE USING (HASH-VALUE V) DO (PUSH (LIST K V) STACK)) (NULL (SET-DIFFERENCE STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL)))) WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not HASH-KEYS EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K BEING THE HASH-KEYS IN TABLE USING (HASH-VALUE V) DO (PUSH (LIST K V) STACK)) (NULL (SET-DIFFERENCE STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL)))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING EACH HASH-VALUE OF TABLE DO (PUSH V STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(V0 V1 V2))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING THE HASH-VALUE OF TABLE DO (PUSH V STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(V0 V1 V2))))) WARNING: LOOP: After THE a plural loop keyword is required, not HASH-VALUE EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING EACH HASH-VALUES OF TABLE DO (PUSH V STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(V0 V1 V2))))) WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not HASH-VALUES EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING THE HASH-VALUES OF TABLE DO (PUSH V STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(V0 V1 V2))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING EACH HASH-VALUE IN TABLE DO (PUSH V STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(V0 V1 V2))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING THE HASH-VALUE IN TABLE DO (PUSH V STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(V0 V1 V2))))) WARNING: LOOP: After THE a plural loop keyword is required, not HASH-VALUE EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING EACH HASH-VALUES IN TABLE DO (PUSH V STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(V0 V1 V2))))) WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not HASH-VALUES EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING THE HASH-VALUES IN TABLE DO (PUSH V STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(V0 V1 V2))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING EACH HASH-VALUE OF TABLE USING (HASH-KEY K) DO (PUSH (LIST K V) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL)))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING THE HASH-VALUE OF TABLE USING (HASH-KEY K) DO (PUSH (LIST K V) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL)))) WARNING: LOOP: After THE a plural loop keyword is required, not HASH-VALUE EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING EACH HASH-VALUES OF TABLE USING (HASH-KEY K) DO (PUSH (LIST K V) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL)))) WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not HASH-VALUES EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING THE HASH-VALUES OF TABLE USING (HASH-KEY K) DO (PUSH (LIST K V) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL)))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING EACH HASH-VALUE IN TABLE USING (HASH-KEY K) DO (PUSH (LIST K V) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL)))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING THE HASH-VALUE IN TABLE USING (HASH-KEY K) DO (PUSH (LIST K V) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL)))) WARNING: LOOP: After THE a plural loop keyword is required, not HASH-VALUE EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING EACH HASH-VALUES IN TABLE USING (HASH-KEY K) DO (PUSH (LIST K V) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL)))) WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not HASH-VALUES EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V BEING THE HASH-VALUES IN TABLE USING (HASH-KEY K) DO (PUSH (LIST K V) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 V0) (K1 V1) (K2 V2)) :TEST #'EQUAL)))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :TEST 'EQUAL)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '((K0 K00) (K1 K11) (K2 K22)) '((V0 V00) (V1 V11) (V2 V22))) (LOOP FOR (K KK) BEING EACH HASH-KEY OF TABLE DO (PUSH (LIST K KK) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 K00) (K1 K11) (K2 K22)) :TEST #'EQUAL)))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :TEST 'EQUAL)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '((K0 K00) (K1 K11) (K2 K22)) '((V0 V00) (V1 V11) (V2 V22))) (LOOP :FOR (K KK) :BEING :EACH :HASH-KEY :OF TABLE :USING (HASH-VALUE (V VV)) DO (PUSH (LIST K KK V VV) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 K00 V0 V00) (K1 K11 V1 V11) (K2 K22 V2 V22)) :TEST #'EQUAL)))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :TEST 'EQUAL)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '((K0 K00) (K1 K11) (K2 K22)) '((V0 V00) (V1 V11) (V2 V22))) (LOOP :FOR (V VV) :BEING :EACH :HASH-VALUE :OF TABLE :USING (HASH-KEY (K KK)) DO (PUSH (LIST K KK V VV) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 K00 V0 V00) (K1 K11 V1 V11) (K2 K22 V2 V22)) :TEST #'EQUAL)))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR K OF-TYPE SYMBOL BEING EACH HASH-KEY OF TABLE DO (PUSH K STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(K0 K1 K2))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :TEST 'EQUAL)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '((K0 K00) (K1 K11) (K2 K22)) '((V0 V00) (V1 V11) (V2 V22))) (LOOP FOR (K KK) OF-TYPE SYMBOL BEING EACH HASH-KEY OF TABLE DO (PUSH (LIST K KK) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 K00) (K1 K11) (K2 K22)) :TEST #'EQUAL)))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :TEST 'EQUAL)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '((K0 K00) (K1 K11) (K2 K22)) '((V0 V00) (V1 V11) (V2 V22))) (LOOP FOR (K KK) OF-TYPE (SYMBOL SYMBOL) BEING EACH HASH-KEY OF TABLE DO (PUSH (LIST K KK) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 K00) (K1 K11) (K2 K22)) :TEST #'EQUAL)))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(0 1 2) '(V0 V1 V2)) (LOOP FOR K FIXNUM BEING EACH HASH-KEY OF TABLE DO (PUSH K STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(0 1 2))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(0 1 2) '(V0 V1 V2)) (LOOP FOR K OF-TYPE FIXNUM BEING EACH HASH-KEY OF TABLE DO (PUSH K STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(0 1 2))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(#1=0.0 1.0 2.0) '(V0 V1 V2)) (LOOP FOR K FLOAT BEING EACH HASH-KEY OF TABLE DO (PUSH K STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(#1# 1.0 2.0))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(#1=0.0 1.0 2.0) '(V0 V1 V2)) (LOOP FOR K OF-TYPE FLOAT BEING EACH HASH-KEY OF TABLE DO (PUSH K STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(#1# 1.0 2.0))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(#1=0.0 1.0 2.0) '(V0 V1 V2)) (LOOP FOR K T BEING EACH HASH-KEY OF TABLE DO (PUSH K STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(#1# 1.0 2.0))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(#1=0.0 1.0 2.0) '(V0 V1 V2)) (LOOP FOR K OF-TYPE T BEING EACH HASH-KEY OF TABLE DO (PUSH K STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(#1# 1.0 2.0))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(#\a #\b #\c) '(V0 V1 V2)) (LOOP FOR K OF-TYPE CHARACTER BEING EACH HASH-KEY OF TABLE DO (PUSH K STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(#\a #\b #\c))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V T BEING EACH HASH-VALUE OF TABLE DO (PUSH V STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(V0 V1 V2))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V OF-TYPE T BEING EACH HASH-VALUE OF TABLE DO (PUSH V STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(V0 V1 V2))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(V0 V1 V2)) (LOOP FOR V OF-TYPE SYMBOL BEING EACH HASH-VALUE OF TABLE DO (PUSH V STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(V0 V1 V2))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(0 1 2)) (LOOP FOR V FIXNUM BEING EACH HASH-VALUE OF TABLE DO (PUSH V STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(0 1 2))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(0 1 2)) (LOOP FOR V OF-TYPE (INTEGER 0 2) BEING EACH HASH-VALUE OF TABLE DO (PUSH V STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(0 1 2))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(#1=0.0 1.0 2.0)) (LOOP FOR V FLOAT BEING EACH HASH-VALUE OF TABLE DO (PUSH V STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(#1# 1.0 2.0))))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '(K0 K1 K2) '(#\a #\b #\c)) (LOOP FOR V OF-TYPE BASE-CHAR BEING EACH HASH-VALUE OF TABLE DO (PUSH V STACK)) (NULL (SET-EXCLUSIVE-OR STACK '(#\a #\b #\c))))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 1 UPTO 3 AND X = 0 THEN A DO (PUSH X STACK)) STACK) '(2 1 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A FROM 0 UPTO 3 FOR X = 0 THEN A DO (PUSH X STACK)) STACK) '(3 2 1 0))) EQL-OK: NIL (NOT (EQUAL (LET ((I 4) STACK) (LOOP FOR A = 0 THEN (1+ A) FOR B = 0 THEN A FOR C = 0 THEN B DO (WHEN (ZEROP (DECF I)) (RETURN)) (PUSH (LIST A B C) STACK)) STACK) '((2 2 2) (1 1 1) (0 0 0)))) EQL-OK: NIL (NOT (EQUAL (LET ((I 5) STACK) (LOOP FOR A = 0 THEN (1+ A) AND B = 0 THEN A AND C = 0 THEN B DO (WHEN (ZEROP (DECF I)) (RETURN)) (PUSH (LIST A B C) STACK)) STACK) '((3 2 1) (2 1 0) (1 0 0) (0 0 0)))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A IN '(0 1 2 3) FOR X = A DO (PUSH X STACK)) STACK) '(3 2 1 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A IN '(0 1 2 3) AND X = 100 THEN A DO (PUSH X STACK)) STACK) '(2 1 0 100))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A ON '(0 1 2 3) FOR X = (CAR A) DO (PUSH X STACK)) STACK) '(3 2 1 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A ON '(0 1 2 3) AND X = 100 THEN (CAR A) DO (PUSH X STACK)) STACK) '(2 1 0 100))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A ACROSS #(0 1 2 3) FOR X = A DO (PUSH X STACK)) STACK) '(3 2 1 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR A ACROSS #(0 1 2 3) AND X = 100 THEN A DO (PUSH X STACK)) STACK) '(2 1 0 100))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR X FROM 1 TO 10 FOR Y = NIL THEN X COLLECT (LIST X Y)) '((1 NIL) (2 2) (3 3) (4 4) (5 5) (6 6) (7 7) (8 8) (9 9) (10 10)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR X FROM 1 TO 10 AND Y = NIL THEN X COLLECT (LIST X Y)) '((1 NIL) (2 1) (3 2) (4 3) (5 4) (6 5) (7 6) (8 7) (9 8) (10 9)))) EQL-OK: NIL (NOT (= 280 (LOOP FOR A UPFROM 0 UPTO 9 AND B DOWNFROM 9 DOWNTO 0 AND C FROM 0 TO 9 AND D FROM 10 ABOVE 0 AND E BELOW 10 AND F TO 9 SUMMING (+ A B C D E F)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A FROM 1 UPTO 9 AS B = 0 THEN A AS C = -1 THEN B AS D = -2 THEN C AS E = -3 THEN D AS F = -4 THEN E COLLECTING (LIST A B C D E F)) '((1 0 -1 -2 -3 -4) (2 2 2 2 2 2) (3 3 3 3 3 3) (4 4 4 4 4 4) (5 5 5 5 5 5) (6 6 6 6 6 6) (7 7 7 7 7 7) (8 8 8 8 8 8) (9 9 9 9 9 9)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A FROM 1 UPTO 9 AND B = 0 THEN A AND C = -1 THEN B AND D = -2 THEN C AND E = -3 THEN D AND F = -4 THEN E COLLECTING (LIST A B C D E F)) '((1 0 -1 -2 -3 -4) (2 1 0 -1 -2 -3) (3 2 1 0 -1 -2) (4 3 2 1 0 -1) (5 4 3 2 1 0) (6 5 4 3 2 1) (7 6 5 4 3 2) (8 7 6 5 4 3) (9 8 7 6 5 4)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A FROM 1 UPTO 9 AND B = 0 THEN A AND C = -1 THEN B AND D = -2 THEN C AND E = -3 THEN D AND F = -4 THEN E FOR I FROM 9 DOWNTO 1 AND J = 8 THEN I AND K = 7 THEN J AND L = 6 THEN K AND M = 5 THEN L AND N = 4 THEN M COLLECTING (LIST A B C D E F) COLLECTING (LIST I J K L M N)) '((1 0 -1 -2 -3 -4) (9 8 7 6 5 4) (2 1 0 -1 -2 -3) (8 9 8 7 6 5) (3 2 1 0 -1 -2) (7 8 9 8 7 6) (4 3 2 1 0 -1) (6 7 8 9 8 7) (5 4 3 2 1 0) (5 6 7 8 9 8) (6 5 4 3 2 1) (4 5 6 7 8 9) (7 6 5 4 3 2) (3 4 5 6 7 8) (8 7 6 5 4 3) (2 3 4 5 6 7) (9 8 7 6 5 4) (1 2 3 4 5 6)))) EQL-OK: NIL (NOT (LET (STACK) (LOOP FOR A ON (PROGN (PUSH 1 STACK) '(0 1 2)) AND B ACROSS (PROGN (PUSH 2 STACK) "abc")) (EQUAL '(2 1) STACK))) EQL-OK: NIL (NOT (EQUAL (LET ((A 5)) (LOOP FOR A FROM 0 UPTO 5 AND B FROM A DOWNTO 0 COLLECT (LIST A B))) '((0 5) (1 4) (2 3) (3 2) (4 1) (5 0)))) WARNING: Reference to A is implementation-dependent, per ANSI CL 6.1.1.4. EQL-OK: NIL (NOT (EQUAL (LET ((A :OUTER)) (LOOP FOR A FROM 0 UPTO 5 AND B IN (LIST A) COLLECT (LIST A B))) '((0 :OUTER)))) WARNING: Reference to A is implementation-dependent, per ANSI CL 6.1.1.4. EQL-OK: NIL (NOT (EQUAL (LET ((B 0)) (LOOP FOR A FROM B UPTO 5 AND B IN '(A B C) COLLECTING (LIST A B))) '((0 A) (1 B) (2 C)))) WARNING: Reference to B is implementation-dependent, per ANSI CL 6.1.1.4. EQL-OK: NIL (NOT (ZEROP (LOOP WITH X = 0 DO (RETURN X)))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP WITH X = 1 FOR A FROM X TO 3 BY 1 DO (PUSH A STACK)) STACK) '(3 2 1))) EQL-OK: NIL (NOT (EQUAL (LOOP WITH A = 1 WITH B = (+ A 2) WITH C = (+ B 3) RETURN (LIST A B C)) '(1 3 6))) EQL-OK: NIL (NOT (EQUAL (LOOP WITH A = 1 AND B = 2 AND C = 3 RETURN (LIST A B C)) '(1 2 3))) EQL-OK: NIL (NOT (LET ((A 5) (B 10)) (EQUAL (LOOP WITH A = 1 AND B = (+ A 2) AND C = (+ B 3) RETURN (LIST A B C)) '(1 7 13)))) EQL-OK: NIL (NOT (EQUAL (LOOP WITH (A B C) OF-TYPE (FLOAT INTEGER FLOAT) RETURN (LIST A B C)) '(#1=0.0 0 #1#))) EQL-OK: NIL (NOT (EQUAL (LOOP WITH (A B C) OF-TYPE FLOAT RETURN (LIST A B C)) '(#1=0.0 #1# #1#))) EQL-OK: NIL (NOT (FLET ((TRIPLE NIL (VALUES 0 1 2))) (EQUAL (LOOP WITH (A B C) = (MULTIPLE-VALUE-LIST (TRIPLE)) DO (RETURN (LIST A B C))) '(0 1 2)))) EQL-OK: NIL (NOT (FLET ((TRIPLE NIL (VALUES 0 '(1) 2))) (EQUAL (LOOP WITH (A (B) C) = (MULTIPLE-VALUE-LIST (TRIPLE)) DO (RETURN (LIST A B C))) '(0 1 2)))) EQL-OK: NIL (NOT (FLET ((TRIPLE NIL (VALUES 0 '(0 1 2) 2))) (EQUAL (LOOP WITH (A (NIL B) C D) = (MULTIPLE-VALUE-LIST (TRIPLE)) DO (RETURN (LIST A B C D))) '(0 1 2 NIL)))) EQL-OK: NIL (NOT (FLET ((TRIPLE NIL (VALUES 0 1 2))) (EQUAL (LOOP WITH (A B C) FIXNUM = (MULTIPLE-VALUE-LIST (TRIPLE)) DO (RETURN (LIST A B C))) '(0 1 2)))) EQL-OK: NIL (NOT (FLET ((TRIPLE NIL (VALUES 0 '(1) 2))) (EQUAL (LOOP WITH (A (B) C) OF-TYPE (FIXNUM (FIXNUM) FIXNUM) = (MULTIPLE-VALUE-LIST (TRIPLE)) DO (RETURN (LIST A B C))) '(0 1 2)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A FROM 0 UPTO 5 FOR B FROM A DOWNTO -5 COLLECT (LIST A B)) '((0 0) (1 -1) (2 -2) (3 -3) (4 -4) (5 -5)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A FROM 0 UPTO 5 WITH X = A COLLECT (LIST A X)) '((0 0) (1 0) (2 0) (3 0) (4 0) (5 0)))) EQL-OK: NIL (NOT (ZEROP (LOOP INITIALLY (RETURN 0)))) EQL-OK: NIL (NOT (ZEROP (LOOP REPEAT 2 FINALLY (RETURN 0)))) EQL-OK: NIL (NOT (= (LOOP WITH X = 0 INITIALLY (INCF X) RETURN X) 1)) EQL-OK: NIL (NOT (= (LOOP WITH X = 0 FOR A FROM 0 BELOW 3 INITIALLY (INCF X) FINALLY (RETURN (INCF X))) 2)) EQL-OK: NIL (NOT (= (LOOP WITH X = 0 FOR A FROM 0 BELOW 3 INITIALLY (INCF X) (INCF X) FINALLY (RETURN (INCF X))) 3)) EQL-OK: NIL (NOT (= (LOOP WITH X = 0 FOR A FROM 0 UPTO 3 INITIALLY (INCF X) FINALLY (INCF X) (RETURN (INCF X))) 3)) EQL-OK: NIL (NOT (= (LOOP WITH X = 0 FOR A FROM 0 UPTO 3 INITIALLY (INCF X) (INCF X) FINALLY (INCF X) (RETURN (INCF X))) 4)) EQL-OK: NIL (NOT (= (LOOP WITH X = 0 FOR A FROM 0 BELOW 3 DO (INCF X) INITIALLY (INCF X) (INCF X) FINALLY (INCF X) (RETURN (INCF X))) 7)) EQL-OK: NIL (NOT (= 33 (LOOP WITH X = 2 INITIALLY (SETQ X (* X 3)) FOR I BELOW 3 INITIALLY (SETQ X (* X 5)) DO (INCF X I) FINALLY (RETURN X)))) EQL-OK: NIL (NOT (EQUAL (LOOP WITH X = NIL REPEAT 2 INITIALLY (PUSH 'INITIALLY0 X) FINALLY (PUSH 'FINALLY0 X) INITIALLY (PUSH 'INITIALLY1 X) FINALLY (PUSH 'FINALLY1 X) DO (PUSH 'BODY0 X) FINALLY (PUSH 'FINALLY2 X) (PUSH 'FINALLY3 X) FINALLY (RETURN (REVERSE X)) INITIALLY (PUSH 'INITIALLY2 X) (PUSH 'INITIALLY3 X) DO (PUSH 'BODY1 X)) '(INITIALLY0 INITIALLY1 INITIALLY2 INITIALLY3 BODY0 BODY1 BODY0 BODY1 FINALLY0 FINALLY1 FINALLY2 FINALLY3))) EQL-OK: NIL (NOT (EQUAL (LOOP WITH I = 3 WITH STACK = NIL DO (WHEN (ZEROP I) (LOOP-FINISH)) (DECF I) (PUSH I STACK) FINALLY (RETURN STACK)) '(0 1 2))) EQL-OK: NIL (NOT (EQUAL (LOOP WITH I = 3 WITH STACK = NIL DOING (WHEN (ZEROP I) (LOOP-FINISH)) (DECF I) (PUSH I STACK) FINALLY (RETURN STACK)) '(0 1 2))) EQL-OK: NIL (NOT (= (LOOP WITH X = 10 DO (RETURN X)) 10)) EQL-OK: NIL (NOT (= (LOOP WITH X = 10 DOING (RETURN X)) 10)) EQL-OK: NIL (NOT (= (LOOP WITH X = 0 DO (INCF X) DOING (INCF X) (RETURN X)) 2)) EQL-OK: NIL (NOT (= (LOOP WITH X = 0 DO (INCF X) DOING (INCF X) DO (RETURN X)) 2)) EQL-OK: NIL (NOT (= (LOOP WITH X = 0 DO (INCF X) (INCF X) DOING (RETURN X)) 2)) EQL-OK: NIL (NOT (= (LOOP WITH X = 0 DO (INCF X) (INCF X) (INCF X) DOING (INCF X) (RETURN X)) 4)) EQL-OK: NIL (NOT (LET ((ODD 0) (EVEN 0)) (AND (NULL (LOOP FOR A FROM 1 UPTO 10 IF (ODDP A) DO (INCF ODD) ELSE DO (INCF EVEN) END)) (= 5 ODD EVEN)))) EQL-OK: NIL (NOT (LET ((ODD+ 0) (EVEN+ 0) (ODD- 0) (EVEN- 0)) (AND (NULL (LOOP FOR A FROM -10 UPTO 10 IF (ODDP A) IF (> A 0) DO (INCF ODD+) ELSE DO (INCF ODD-) END ELSE IF (> A 0) DO (INCF EVEN+) ELSE DO (INCF EVEN-))) (= 5 ODD+ EVEN+ ODD-) (= EVEN- 6)))) EQL-OK: NIL (NOT (LET ((ODD+ 0) (EVEN+ 0) (ODD- 0) (EVEN- 0)) (AND (NULL (LOOP FOR A FROM -10 UPTO 10 UNLESS (ZEROP A) IF (ODDP A) IF (> A 0) DO (INCF ODD+) ELSE DO (INCF ODD-) END ELSE IF (> A 0) DO (INCF EVEN+) ELSE DO (INCF EVEN-))) (= 5 ODD+ EVEN+ ODD- EVEN-)))) EQL-OK: NIL (NOT (LET ((ODD+ 0) (EVEN+ 0) (ODD- 0) (EVEN- 0)) (AND (NULL (LOOP FOR A FROM -10 UPTO 10 IF (NOT (ZEROP A)) WHEN (ODDP A) UNLESS (< A 0) DO (INCF ODD+) ELSE DO (INCF ODD-) END ELSE UNLESS (<= A 0) DO (INCF EVEN+) ELSE DO (INCF EVEN-))) (= 5 ODD+ EVEN+ ODD- EVEN-)))) EQL-OK: NIL (NOT (HANDLER-BIND ((SIMPLE-ERROR #'(LAMBDA (C) (DECLARE (IGNORE C)) (CONTINUE)))) (EQ 'CONTINUED (LOOP FOR ITEM IN '(1 2 3 A 4 5) WHEN (NOT (NUMBERP ITEM)) RETURN (OR (CERROR "ignore this error" "non-numeric value: ~s" ITEM) 'CONTINUED))))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR I IN '(1 324 2345 323 2 4 235 252) WHEN (ODDP I) COLLECT I INTO ODD-NUMBERS ELSE COLLECT I INTO EVEN-NUMBERS FINALLY (RETURN (LIST ODD-NUMBERS EVEN-NUMBERS))) '((1 2345 323 235) (324 2 4 252)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR I IN '(1 2 3 4 5 6) WHEN (AND (> I 3) I) COLLECT IT) '(4 5 6))) EQL-OK: NIL (NOT (= 4 (LOOP FOR I IN '(1 2 3 4 5 6) WHEN (AND (> I 3) I) RETURN IT))) EQL-OK: NIL (NOT (EQUAL (LET ((LIST '(0 3.0 APPLE 4 5 9.8 ORANGE BANANA))) (LOOP FOR I IN LIST WHEN (NUMBERP I) WHEN (FLOATP I) COLLECT I INTO FLOAT-NUMBERS ELSE COLLECT I INTO OTHER-NUMBERS ELSE WHEN (SYMBOLP I) COLLECT I INTO SYMBOL-LIST ELSE DO (ERROR "found a funny value in list ~S, value ~S~%" LIST I) FINALLY (RETURN (LIST FLOAT-NUMBERS OTHER-NUMBERS SYMBOL-LIST)))) '((3.0 9.8) (0 4 5) (APPLE ORANGE BANANA)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR I BELOW 5 IF (ODDP I) COLLECTING I) '(1 3))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR I BELOW 5 WHEN (ODDP I) COLLECTING I) '(1 3))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR I BELOW 5 IF (ODDP I) COLLECTING I ELSE COLLECTING (LIST I)) '((0) 1 (2) 3 (4)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR I BELOW 5 WHEN (ODDP I) COLLECTING I ELSE COLLECTING (LIST I)) '((0) 1 (2) 3 (4)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR I BELOW 5 UNLESS (EVENP I) COLLECTING I) '(1 3))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR I BELOW 5 UNLESS (EVENP I) COLLECTING I ELSE COLLECTING (LIST I)) '((0) 1 (2) 3 (4)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR I BELOW 5 IF (ODDP I) COLLECTING I END) '(1 3))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR I BELOW 5 WHEN (ODDP I) COLLECTING I END) '(1 3))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR I BELOW 5 IF (ODDP I) COLLECTING I ELSE COLLECTING (LIST I) END) '((0) 1 (2) 3 (4)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR I BELOW 5 WHEN (ODDP I) COLLECTING I ELSE COLLECTING (LIST I) END) '((0) 1 (2) 3 (4)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR I BELOW 5 UNLESS (EVENP I) COLLECTING I END) '(1 3))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR I BELOW 5 UNLESS (EVENP I) COLLECTING I ELSE COLLECTING (LIST I) END) '((0) 1 (2) 3 (4)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A B) IN '((0 0) (0 1)) IF (ZEROP A) IF (ZEROP B) COLLECT '|0-0| ELSE COLLECT '|0-1|) '(|0-0| |0-1|))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A B) IN '((0 0) (0 1)) WHEN (ZEROP A) IF (ZEROP B) COLLECT '|0-0| ELSE COLLECT '|0-1|) '(|0-0| |0-1|))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A B) IN '((0 0) (0 1) (1 0) (1 1)) IF (ZEROP A) IF (= B 1) COLLECT '|0-1| END ELSE COLLECT '|1-X|) '(|0-1| |1-X| |1-X|))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A B) IN '((0 0) (0 1) (1 0) (1 1)) WHEN (ZEROP A) IF (= B 1) COLLECT '|0-1| END ELSE COLLECT '|1-X|) '(|0-1| |1-X| |1-X|))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A B) IN '((0 0) (0 1)) UNLESS (NOT (ZEROP A)) IF (ZEROP B) COLLECT '|0-0| ELSE COLLECT '|0-1|) '(|0-0| |0-1|))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A B) IN '((0 0) (0 1) (1 0) (1 1)) UNLESS (NOT (ZEROP A)) IF (= B 1) COLLECT '|0-1| END ELSE COLLECT '|1-X|) '(|0-1| |1-X| |1-X|))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A B C) IN '((0 0 0) (0 0 1) (0 1 0) (0 1 1) (1 0 0) (1 0 1) (1 1 0) (1 1 1)) IF (ZEROP A) IF (ZEROP B) IF (ZEROP C) COLLECT 'X0-0-0 ELSE COLLECT 'X0-0-1 ELSE IF (ZEROP C) COLLECT 'X0-1-0 ELSE COLLECT 'X0-1-1 ELSE IF (ZEROP B) IF (ZEROP C) COLLECT 'X1-0-0 ELSE COLLECT 'X1-0-1 ELSE IF (ZEROP C) COLLECT 'X1-1-0 ELSE COLLECT 'X1-1-1) '(X0-0-0 X0-0-1 X0-1-0 X0-1-1 X1-0-0 X1-0-1 X1-1-0 X1-1-1))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A BELOW 10 IF (ODDP A) COLLECT A INTO BAG AND SUM A INTO ODD ELSE COLLECT (LIST A) INTO BAG AND SUM A INTO EVEN FINALLY (RETURN (LIST BAG ODD EVEN))) '(((0) 1 (2) 3 (4) 5 (6) 7 (8) 9) 25 20))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A BELOW 10 IF (ODDP A) COLLECT A AND COLLECT (LIST A) AND COLLECT (LIST (LIST A)) ELSE COLLECT A) '(0 1 (1) ((1)) 2 3 (3) ((3)) 4 5 (5) ((5)) 6 7 (7) ((7)) 8 9 (9) ((9))))) EQL-OK: NIL (NOT (LET ((C0 0) (C1 0)) (AND (EQUAL (LOOP FOR A BELOW 10 WHEN (ODDP A) COLLECT A AND DO (INCF C0) (DECF C1) AND COLLECT (LIST A)) '(1 (1) 3 (3) 5 (5) 7 (7) 9 (9))) (= C0 5) (= C1 -5)))) EQL-OK: NIL (NOT (ZEROP (LOOP RETURN 0))) EQL-OK: NIL (NOT (= (LOOP FOR A FROM 0 BELOW 3 WHEN (AND (ODDP A) A) RETURN IT) 1)) EQL-OK: NIL (NOT (EQ (LOOP FOR A IN '(NIL NIL OK NIL OK2) WHEN A RETURN IT) 'OK)) EQL-OK: NIL (NOT (EQ 'OK (LOOP WITH A = 'OK IF A RETURN IT ELSE RETURN IT))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (LOOP RETURN (VALUES 0 1 2))) '(0 1 2))) EQL-OK: NIL (NOT (LET ((FLAG NIL)) (AND (EQ T (LOOP FOR A BELOW 3 WHEN (ODDP A) RETURN T FINALLY (SETQ FLAG T))) (NOT FLAG)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A IN '(0 1 2 3) AND B IN '(3 2 1 0) IF (AND (ODDP A) A) IF (AND (EVENP B) B) WHEN (AND (= (* A B) 0) (LIST A B)) RETURN IT) '(3 0))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A FROM 0 BELOW 3 COLLECT A) '(0 1 2))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A FROM 0 BELOW 3 COLLECTING A) '(0 1 2))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A IN '(NIL 0 NIL NIL 1 2 NIL 3 NIL 4) WHEN A COLLECT IT) '(0 1 2 3 4))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A IN '(NIL 0 NIL NIL 1 2 NIL 3 NIL 4) WHEN A COLLECTING IT) '(0 1 2 3 4))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A IN '(NIL 0 NIL NIL 1 2 NIL 3 NIL 4) WHEN A COLLECT IT INTO BAG FINALLY (RETURN BAG)) '(0 1 2 3 4))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A IN '(NIL 0 NIL NIL 1 2 NIL 3 NIL 4) WHEN A COLLECTING IT INTO BAG FINALLY (RETURN BAG)) '(0 1 2 3 4))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A BELOW 10 IF (ODDP A) COLLECT A INTO ODD ELSE COLLECT A INTO EVEN END FINALLY (RETURN (LIST ODD EVEN))) '((1 3 5 7 9) (0 2 4 6 8)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A BELOW 3 FOR B ON '(2 1 0) COLLECTING A APPENDING B) '(0 2 1 0 1 1 0 2 0))) EQL-OK: NIL (NOT (= 15 (LOOP FOR I OF-TYPE FIXNUM IN '(1 2 3 4 5) SUM I))) EQL-OK: NIL (NOT (= 22.4 (LET ((SERIES '(1.2 4.3 5.7))) (LOOP FOR V IN SERIES SUM (* 2.0 V))))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A BELOW 10 IF (ODDP A) COLLECT A INTO ODD AND SUM A INTO SUM FINALLY (RETURN (LIST ODD SUM))) '((1 3 5 7 9) 25))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A BELOW 10 IF (ODDP A) COLLECT A INTO ODD AND SUM A INTO ODD-SUM ELSE COLLECT A INTO EVEN AND SUM A INTO EVEN-SUM END FINALLY (RETURN (LIST ODD ODD-SUM EVEN EVEN-SUM))) '((1 3 5 7 9) 25 (0 2 4 6 8) 20))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR I IN '(BIRD 3 4 TURTLE (1 . 4) HORSE CAT) WHEN (SYMBOLP I) COLLECT I) '(BIRD TURTLE HORSE CAT))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR I BELOW 3 FOR J UPTO 2 COLLECTING I COLLECTING J) '(0 0 1 1 2 2))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A FROM -10 UPTO 0 COLLECTING A) '(-10 -9 -8 -7 -6 -5 -4 -3 -2 -1 0))) EQL-OK: NIL (NOT (NULL (LOOP FOR A FROM -10 UPTO 0 COLLECTING A INTO LIST))) EQL-OK: NIL (NOT (LET* ((ZERO (LIST 0)) (ONE (LIST 1)) (TWO (LIST 2)) (LIST (LIST ZERO ONE TWO))) (AND (EQUAL (LOOP FOR A IN LIST APPEND A) '(0 1 2)) (EQUAL ZERO '(0)) (EQUAL ONE '(1)) (EQUAL TWO '(2))))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A IN '(NIL (1) NIL (2)) WHEN A APPEND A) '(1 2))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A IN '(NIL (1) NIL (2)) WHEN A APPENDING A) '(1 2))) EQL-OK: NIL (NOT (NULL (LOOP FOR A IN '(NIL (1) NIL (2)) WHEN A APPEND A INTO X))) EQL-OK: NIL (NOT (NULL (LOOP FOR A IN '(NIL (1) NIL (2)) WHEN A APPENDING A INTO X))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A IN '(NIL (1) NIL (2)) WHEN A APPEND A INTO X FINALLY (RETURN X)) '(1 2))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A IN '(NIL (1) NIL (2)) WHEN A APPENDING A INTO X FINALLY (RETURN X)) '(1 2))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A IN '(NIL (1) NIL (2)) WHEN A APPEND IT) '(1 2))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A IN '(NIL (1) NIL (2)) WHEN A APPENDING IT) '(1 2))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A ON (LIST 0 1 2 3 4) WHEN (ODDP (CAR A)) APPEND A) '(1 2 3 4 3 4))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A ON (LIST 0 1 2 3 4) WHEN (ODDP (CAR A)) APPENDING A) '(1 2 3 4 3 4))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR X IN '((A) (B) ((C))) APPEND X) '(A B (C)))) EQL-OK: NIL (NOT (LET ((LIST (LIST (LIST 0) (LIST 1) (LIST 2) (LIST 3)))) (AND (EQUAL (LOOP FOR A IN LIST NCONC A) '(0 1 2 3)) (EQUAL LIST '((0 1 2 3) (1 2 3) (2 3) (3)))))) EQL-OK: NIL (NOT (LET ((LIST (LIST (LIST 0) (LIST 1) (LIST 2) (LIST 3)))) (AND (EQUAL (LOOP FOR A IN LIST NCONCING A) '(0 1 2 3)) (EQUAL LIST '((0 1 2 3) (1 2 3) (2 3) (3)))))) EQL-OK: NIL (NOT (LET ((LIST (LIST NIL (LIST 0) NIL NIL (LIST 1) (LIST 2) NIL (LIST 3) NIL))) (AND (EQUAL (LOOP FOR A IN LIST WHEN A NCONC IT) '(0 1 2 3)) (EQUAL LIST '(NIL (0 1 2 3) NIL NIL (1 2 3) (2 3) NIL (3) NIL))))) EQL-OK: NIL (NOT (LET ((LIST (LIST NIL (LIST 0) NIL NIL (LIST 1) (LIST 2) NIL (LIST 3) NIL))) (AND (EQUAL (LOOP FOR A IN LIST WHEN A NCONCING IT) '(0 1 2 3)) (EQUAL LIST '(NIL (0 1 2 3) NIL NIL (1 2 3) (2 3) NIL (3) NIL))))) EQL-OK: NIL (NOT (NULL (LOOP FOR A IN (LIST (LIST (LIST 0) (LIST 1) (LIST 2) (LIST 3))) NCONC A INTO X))) EQL-OK: NIL (NOT (NULL (LOOP FOR A IN (LIST (LIST (LIST 0) (LIST 1) (LIST 2) (LIST 3))) NCONCING A INTO X))) EQL-OK: NIL (NOT (LET ((LIST (LIST (LIST 0) (LIST 1) (LIST 2) (LIST 3)))) (AND (EQUAL (LOOP FOR A IN LIST NCONC A INTO X FINALLY (RETURN X)) '(0 1 2 3)) (EQUAL LIST '((0 1 2 3) (1 2 3) (2 3) (3)))))) EQL-OK: NIL (NOT (LET ((LIST (LIST (LIST 0) (LIST 1) (LIST 2) (LIST 3)))) (AND (EQUAL (LOOP FOR A IN LIST NCONCING A INTO X FINALLY (RETURN X)) '(0 1 2 3)) (EQUAL LIST '((0 1 2 3) (1 2 3) (2 3) (3)))))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR I UPFROM 0 AS X IN '(A B (C)) NCONC (IF (EVENP I) (LIST X) NIL)) '(A (C)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A IN '(0 3 6) FOR B IN '((1) (4) (7)) FOR C IN (COPY-TREE '((2) (5) (8))) COLLECTING A APPENDING B NCONCING C) '(0 1 2 3 4 5 6 7 8))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A IN '(0 3 6) FOR B IN (COPY-TREE '((1) (4) (7))) FOR C IN (LIST (LIST 2) (LIST 5) (LIST 8)) COLLECTING A NCONCING B APPENDING C) '(0 1 2 3 4 5 6 7 8))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A IN '((0) (3) (6)) FOR B IN (COPY-TREE '((1) (4) (7))) FOR C IN '(2 5 8) APPENDING A NCONCING B COLLECTING C) '(0 1 2 3 4 5 6 7 8))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A IN '((0) (3) (6)) FOR B IN '(1 4 7) FOR C IN (COPY-TREE '((2) (5) (8))) APPENDING A COLLECTING B NCONCING C) '(0 1 2 3 4 5 6 7 8))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A IN (COPY-TREE '((0) (3) (6))) FOR B IN '(1 4 7) FOR C IN '((2) (5) (8)) NCONCING A COLLECTING B APPENDING C) '(0 1 2 3 4 5 6 7 8))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A IN (COPY-TREE '((0) (3) (6))) FOR B IN '((1) (4) (7)) FOR C IN '(2 5 8) NCONCING A APPENDING B COLLECTING C) '(0 1 2 3 4 5 6 7 8))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A IN '(0 6) FOR B IN '((1 2 3) (7 8 9)) FOR C IN (COPY-TREE '((4 5) (10))) COLLECT A APPEND B NCONC C) '(0 1 2 3 4 5 6 7 8 9 10))) EQL-OK: NIL (NOT (NULL (LOOP FOR A IN 'NIL FOR B IN '((1 2 3) (7 8 9)) FOR C IN (COPY-TREE '((4 5) (10))) COLLECT A APPEND B NCONC C))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A IN '(0 3 6) FOR B IN '((1) (4) (7)) FOR C IN (COPY-TREE '((2) (5) (8))) COLLECTING A INTO LIST APPENDING B INTO LIST NCONCING C INTO LIST FINALLY (RETURN LIST)) '(0 1 2 3 4 5 6 7 8))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A IN '(0 3 6) FOR B IN '(1 4 7) FOR C IN (COPY-TREE '((2) (5) (8))) COLLECT A COLLECT B NCONC C) '(0 1 2 3 4 5 6 7 8))) EQL-OK: NIL (NOT (= 60 (LOOP FOR A UPTO 10 SUMMING A WHEN (ODDP A) COUNTING IT))) EQL-OK: NIL (NOT (= 220 (LOOP FOR A UPTO 10 FOR B DOWNFROM 20 SUM A SUMMING B))) EQL-OK: NIL (NOT (= 60 (LOOP FOR A UPTO 10 SUMMING A INTO SUM WHEN (ODDP A) COUNTING IT INTO SUM FINALLY (RETURN SUM)))) EQL-OK: NIL (NOT (= 21 (LOOP FOR A IN '(A 1 B 3 C 4 5 X 2 Y Z) IF (AND (NUMBERP A) A) SUMMING IT ELSE COUNTING 1))) EQL-OK: NIL (NOT (= 5 (LOOP FOR A FROM 3 TO 5 MAXIMIZING A MINIMIZING A))) EQL-OK: NIL (NOT (= 3 (LOOP FOR A UPTO 3 FOR B FROM 6 DOWNTO 3 MAXIMIZE A MINIMIZE B))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A IN '(0 -1 1 -2 2 -3 3) MAXIMIZE A INTO PLUS MINIMIZE A INTO MINUS FINALLY (RETURN (LIST MINUS PLUS))) '(-3 3))) EQL-OK: NIL (NOT (EQUAL (LET (VAL) (LIST (LOOP FOR A BELOW 10 COLLECTING A SUMMING A INTO SUM COUNTING A INTO COUNT MAXIMIZING A INTO MAX MINIMIZING A INTO MIN FINALLY (SETQ VAL (LIST SUM COUNT MAX MIN))) VAL)) '((0 1 2 3 4 5 6 7 8 9) (45 10 9 0)))) EQL-OK: NIL (NOT (EQ 'OK (LOOP FOR A BELOW 3 COLLECTING A FINALLY (RETURN 'OK)))) EQL-OK: NIL (NOT (LET ((FLAG NIL)) (AND (EQUAL (LOOP FOR A BELOW 3 COLLECTING A FINALLY (SETQ FLAG T)) '(0 1 2)) FLAG))) EQL-OK: NIL (NOT (EQ 'OK (LOOP FOR A BELOW 3 APPENDING (LIST A) FINALLY (RETURN 'OK)))) EQL-OK: NIL (NOT (EQ 'OK (LOOP FOR A BELOW 3 NCONCING (LIST A) FINALLY (RETURN 'OK)))) EQL-OK: NIL (NOT (= 5 (LOOP FOR A FROM 1 UPTO 10 COUNTING (EVENP A)))) EQL-OK: NIL (NOT (= (LOOP FOR A DOWNFROM 10 ABOVE 0 COUNT A) 10)) EQL-OK: NIL (NOT (= (LOOP FOR A DOWNFROM 10 ABOVE 0 COUNTING A) 10)) EQL-OK: NIL (NOT (NULL (LOOP FOR A DOWNFROM 10 ABOVE 0 COUNT A INTO X))) EQL-OK: NIL (NOT (NULL (LOOP FOR A DOWNFROM 10 ABOVE 0 COUNTING A INTO X))) EQL-OK: NIL (NOT (= (LOOP FOR A DOWNFROM 10 ABOVE 0 COUNT A INTO X FINALLY (RETURN X)) 10)) EQL-OK: NIL (NOT (= (LOOP FOR A DOWNFROM 10 ABOVE 0 COUNTING A INTO X FINALLY (RETURN X)) 10)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(NIL A NIL NIL B NIL C D E NIL NIL NIL NIL F) WHEN A COUNT IT) 6)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(NIL A NIL NIL B NIL C D E NIL NIL NIL NIL F) WHEN A COUNTING IT) 6)) EQL-OK: NIL (NOT (NULL (LOOP FOR A IN '(NIL A NIL NIL B NIL C D E NIL NIL NIL NIL F) WHEN A COUNT IT INTO X))) EQL-OK: NIL (NOT (NULL (LOOP FOR A IN '(NIL A NIL NIL B NIL C D E NIL NIL NIL NIL F) WHEN A COUNTING IT INTO X))) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(NIL A NIL NIL B NIL C D E NIL NIL NIL NIL F) WHEN A COUNT IT INTO X FINALLY (RETURN X)) 6)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(NIL A NIL NIL B NIL C D E NIL NIL NIL NIL F) WHEN A COUNTING IT INTO X FINALLY (RETURN X)) 6)) EQL-OK: NIL (NOT (= 5 (LOOP FOR I IN '(A B NIL C NIL D E) COUNT I))) EQL-OK: NIL (NOT (= (LOOP FOR A TO 10 SUM A) 55)) EQL-OK: NIL (NOT (= (LOOP FOR A TO 10 SUMMING A) 55)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(0 NIL 1 NIL 2 3 NIL 4 5 6 7 NIL 8 9 10 NIL) IF A SUM IT) 55)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(0 NIL 1 NIL 2 3 NIL 4 5 6 7 NIL 8 9 10 NIL) IF A SUMMING IT) 55)) EQL-OK: NIL (NOT (LOOP FOR A TO 10 SUM A INTO SUM IF (ODDP A) SUM A INTO ODD ELSE SUM A INTO EVEN FINALLY (RETURN (= SUM (+ ODD EVEN))))) EQL-OK: NIL (NOT (LOOP FOR A TO 10 SUMMING A INTO SUM IF (ODDP A) SUM A INTO ODD ELSE SUMMING A INTO EVEN FINALLY (RETURN (= SUM (+ ODD EVEN))))) EQL-OK: NIL (NOT (= 15 (LOOP FOR A DOWNFROM 5 TO 1 SUMMING A))) EQL-OK: NIL (NOT (NULL (LOOP FOR A DOWNFROM 5 TO 1 SUMMING A INTO N))) EQL-OK: NIL (NOT (= (LOOP FOR I FROM 1 TO 4 SUM I FIXNUM COUNT T FIXNUM) 14)) EQL-OK: NIL (NOT (= 5 (LOOP FOR I IN '(2 1 5 3 4) MAXIMIZE I))) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(0 5 9) MAXIMIZE A) 9)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(0 5 9) MAXIMIZING A) 9)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(0 9 5) MAXIMIZE A) 9)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(0 9 5) MAXIMIZING A) 9)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(9 0 5) MAXIMIZE A) 9)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(9 0 5) MAXIMIZING A) 9)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(9 0 9 5) MAXIMIZE A) 9)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(9 0 9 5) MAXIMIZING A) 9)) EQL-OK: NIL (NOT (LET (LIST) (LOOP (WHEN (= (FIRST (PUSH (RANDOM 10) LIST)) 9) (RETURN))) (= (LOOP FOR A IN LIST MAXIMIZE A) 9))) EQL-OK: NIL (NOT (LET (LIST) (LOOP (WHEN (= (FIRST (PUSH (RANDOM 10) LIST)) 9) (RETURN))) (= (LOOP FOR A IN LIST MAXIMIZING A) 9))) EQL-OK: NIL (NOT (LET (LIST) (LOOP (WHEN (= (FIRST (PUSH (RANDOM 100) LIST)) 99) (RETURN))) (= (LOOP FOR A IN LIST MAXIMIZE A) 99))) EQL-OK: NIL (NOT (LET (LIST) (LOOP (WHEN (= (FIRST (PUSH (RANDOM 100) LIST)) 99) (RETURN))) (= (LOOP FOR A IN LIST MAXIMIZING A) 99))) EQL-OK: NIL (NOT (LET (LIST) (LOOP (WHEN (= (FIRST (PUSH (RANDOM 1000) LIST)) 999) (RETURN))) (= (LOOP FOR A IN LIST MAXIMIZE A) 999))) EQL-OK: NIL (NOT (LET (LIST) (LOOP (WHEN (= (FIRST (PUSH (RANDOM 1000) LIST)) 999) (RETURN))) (= (LOOP FOR A IN LIST MAXIMIZING A) 999))) EQL-OK: NIL (NOT (NULL (LOOP FOR A IN '(0 5 9) MAXIMIZE A INTO MAX))) EQL-OK: NIL (NOT (NULL (LOOP FOR A IN '(0 5 9) MAXIMIZING A INTO MAX))) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(0 5 9) MAXIMIZE A INTO MAX FINALLY (RETURN MAX)) 9)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(0 5 9) MAXIMIZING A INTO MAX FINALLY (RETURN MAX)) 9)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(0 5 9) MAXIMIZE A INTO MAX OF-TYPE INTEGER FINALLY (RETURN MAX)) 9)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(0 5 9) MAXIMIZING A INTO MAX OF-TYPE INTEGER FINALLY (RETURN MAX)) 9)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(0.0 5.0 9.0) MAXIMIZE A INTO MAX FLOAT FINALLY (RETURN MAX)) 9.0)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(0.0 5.0 9.0) MAXIMIZING A INTO MAX FLOAT FINALLY (RETURN MAX)) 9.0)) EQL-OK: NIL (NOT (LET ((SERIES '(1.2 4.3 5.7))) (= 6 (LOOP FOR V IN SERIES MAXIMIZE (ROUND V) OF-TYPE FIXNUM)))) EQL-OK: NIL (NOT (= 1 (LOOP FOR I IN '(2 1 5 3 4) MINIMIZE I))) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(0 5 9) MINIMIZE A) 0)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(0 5 9) MINIMIZING A) 0)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(9 5 0) MINIMIZE A) 0)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(9 5 0) MINIMIZING A) 0)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(9 0 5) MINIMIZE A) 0)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(9 0 5) MINIMIZING A) 0)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(9 0 9 0 5 0) MINIMIZING A) 0)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(9 0 9 0 5 0) MINIMIZING A) 0)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(1 5 9) MINIMIZE A) 1)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(1 5 9) MINIMIZING A) 1)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(9 5 1) MINIMIZE A) 1)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(9 5 1) MINIMIZING A) 1)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(9 1 5) MINIMIZE A) 1)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(9 1 5) MINIMIZING A) 1)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(9 1 9 1 5 1) MINIMIZING A) 1)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(9 1 9 1 5 1) MINIMIZING A) 1)) EQL-OK: NIL (NOT (LET (LIST) (LOOP (WHEN (ZEROP (FIRST (PUSH (RANDOM 10) LIST))) (RETURN))) (ZEROP (LOOP FOR A IN LIST MINIMIZE A)))) EQL-OK: NIL (NOT (LET (LIST) (LOOP (WHEN (ZEROP (FIRST (PUSH (RANDOM 10) LIST))) (RETURN))) (ZEROP (LOOP FOR A IN LIST MINIMIZING A)))) EQL-OK: NIL (NOT (LET (LIST) (LOOP (WHEN (ZEROP (FIRST (PUSH (RANDOM 100) LIST))) (RETURN))) (ZEROP (LOOP FOR A IN LIST MINIMIZE A)))) EQL-OK: NIL (NOT (LET (LIST) (LOOP (WHEN (ZEROP (FIRST (PUSH (RANDOM 100) LIST))) (RETURN))) (ZEROP (LOOP FOR A IN LIST MINIMIZING A)))) EQL-OK: NIL (NOT (LET (LIST) (LOOP (WHEN (ZEROP (FIRST (PUSH (RANDOM 1000) LIST))) (RETURN))) (ZEROP (LOOP FOR A IN LIST MINIMIZE A)))) EQL-OK: NIL (NOT (LET (LIST) (LOOP (WHEN (ZEROP (FIRST (PUSH (RANDOM 1000) LIST))) (RETURN))) (ZEROP (LOOP FOR A IN LIST MINIMIZING A)))) EQL-OK: NIL (NOT (NULL (LOOP FOR A IN '(0 5 9) MINIMIZE A INTO MIN))) EQL-OK: NIL (NOT (NULL (LOOP FOR A IN '(0 5 9) MINIMIZING A INTO MIN))) EQL-OK: NIL (NOT (ZEROP (LOOP FOR A IN '(0 5 9) MINIMIZE A INTO MIN FINALLY (RETURN MIN)))) EQL-OK: NIL (NOT (ZEROP (LOOP FOR A IN '(0 5 9) MINIMIZING A INTO MIN FINALLY (RETURN MIN)))) EQL-OK: NIL (NOT (ZEROP (LOOP FOR A IN '(0 5 9) MINIMIZE A INTO MIN OF-TYPE INTEGER FINALLY (RETURN MIN)))) EQL-OK: NIL (NOT (ZEROP (LOOP FOR A IN '(0 5 9) MINIMIZING A INTO MIN OF-TYPE INTEGER FINALLY (RETURN MIN)))) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(#1=0.0 5.0 9.0) MINIMIZE A INTO MIN FLOAT FINALLY (RETURN MIN)) #1#)) EQL-OK: NIL (NOT (= (LOOP FOR A IN '(#1=0.0 5.0 9.0) MINIMIZING A INTO MIN FLOAT FINALLY (RETURN MIN)) #1#)) EQL-OK: NIL (NOT (= 1 (LET ((SERIES '(1.2 4.3 5.7))) (LOOP FOR V OF-TYPE FLOAT IN SERIES MINIMIZE (ROUND V) INTO RESULT OF-TYPE FIXNUM FINALLY (RETURN RESULT))))) EQL-OK: NIL (NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUMMING IT FIXNUM))) EQL-OK: NIL (NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUMMING IT OF-TYPE FIXNUM))) EQL-OK: NIL (NOT (= 10.0 (LOOP FOR A IN '(NIL 1.0 NIL 2.0 NIL 3.0 NIL 4.0) WHEN A SUMMING IT FLOAT))) EQL-OK: NIL (NOT (= 10.0 (LOOP FOR A IN '(NIL 1.0 NIL 2.0 NIL 3.0 NIL 4.0) WHEN A SUMMING IT OF-TYPE FLOAT))) EQL-OK: NIL (NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUMMING IT OF-TYPE NUMBER))) EQL-OK: NIL (NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUMMING IT OF-TYPE (INTEGER 0)))) EQL-OK: NIL (NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUMMING A FIXNUM))) EQL-OK: NIL (NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUMMING A OF-TYPE FIXNUM))) EQL-OK: NIL (NOT (= 10.0 (LOOP FOR A IN '(NIL 1.0 NIL 2.0 NIL 3.0 NIL 4.0) WHEN A SUMMING A FLOAT))) EQL-OK: NIL (NOT (= 10.0 (LOOP FOR A IN '(NIL 1.0 NIL 2.0 NIL 3.0 NIL 4.0) WHEN A SUMMING A OF-TYPE FLOAT))) EQL-OK: NIL (NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUMMING A OF-TYPE NUMBER))) EQL-OK: NIL (NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUMMING A OF-TYPE (INTEGER 0)))) EQL-OK: NIL (NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUMMING A INTO SUM FIXNUM FINALLY (RETURN SUM)))) EQL-OK: NIL (NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUMMING A INTO SUM OF-TYPE FIXNUM FINALLY (RETURN SUM)))) EQL-OK: NIL (NOT (= 10.0 (LOOP FOR A IN '(NIL 1.0 NIL 2.0 NIL 3.0 NIL 4.0) WHEN A SUMMING A INTO SUM FLOAT FINALLY (RETURN SUM)))) EQL-OK: NIL (NOT (= 10.0 (LOOP FOR A IN '(NIL 1.0 NIL 2.0 NIL 3.0 NIL 4.0) WHEN A SUMMING A INTO SUM OF-TYPE FLOAT FINALLY (RETURN SUM)))) EQL-OK: NIL (NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUMMING A INTO SUM OF-TYPE NUMBER FINALLY (RETURN SUM)))) EQL-OK: NIL (NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUMMING A INTO SUM OF-TYPE (INTEGER 0) FINALLY (RETURN SUM)))) EQL-OK: NIL (NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUM IT FIXNUM))) EQL-OK: NIL (NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUM IT OF-TYPE FIXNUM))) EQL-OK: NIL (NOT (= 10.0 (LOOP FOR A IN '(NIL 1.0 NIL 2.0 NIL 3.0 NIL 4.0) WHEN A SUM IT FLOAT))) EQL-OK: NIL (NOT (= 10.0 (LOOP FOR A IN '(NIL 1.0 NIL 2.0 NIL 3.0 NIL 4.0) WHEN A SUM IT OF-TYPE FLOAT))) EQL-OK: NIL (NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUM IT OF-TYPE NUMBER))) EQL-OK: NIL (NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUM IT OF-TYPE (INTEGER 0)))) EQL-OK: NIL (NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUM A FIXNUM))) EQL-OK: NIL (NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUM A OF-TYPE FIXNUM))) EQL-OK: NIL (NOT (= 10.0 (LOOP FOR A IN '(NIL 1.0 NIL 2.0 NIL 3.0 NIL 4.0) WHEN A SUM A FLOAT))) EQL-OK: NIL (NOT (= 10.0 (LOOP FOR A IN '(NIL 1.0 NIL 2.0 NIL 3.0 NIL 4.0) WHEN A SUM A OF-TYPE FLOAT))) EQL-OK: NIL (NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUM A OF-TYPE NUMBER))) EQL-OK: NIL (NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUM A OF-TYPE (INTEGER 0)))) EQL-OK: NIL (NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUM A INTO SUM FIXNUM FINALLY (RETURN SUM)))) EQL-OK: NIL (NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUM A INTO SUM OF-TYPE FIXNUM FINALLY (RETURN SUM)))) EQL-OK: NIL (NOT (= 10.0 (LOOP FOR A IN '(NIL 1.0 NIL 2.0 NIL 3.0 NIL 4.0) WHEN A SUM A INTO SUM FLOAT FINALLY (RETURN SUM)))) EQL-OK: NIL (NOT (= 10.0 (LOOP FOR A IN '(NIL 1.0 NIL 2.0 NIL 3.0 NIL 4.0) WHEN A SUM A INTO SUM OF-TYPE FLOAT FINALLY (RETURN SUM)))) EQL-OK: NIL (NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUM A INTO SUM OF-TYPE NUMBER FINALLY (RETURN SUM)))) EQL-OK: NIL (NOT (= 10 (LOOP FOR A IN '(NIL 1 NIL 2 NIL 3 NIL 4) WHEN A SUM A INTO SUM OF-TYPE (INTEGER 0) FINALLY (RETURN SUM)))) EQL-OK: NIL (NOT (= 7 (LOOP FOR A IN '(NIL A NIL B NIL C NIL D E NIL F G NIL NIL NIL NIL) COUNTING A FIXNUM))) EQL-OK: NIL (NOT (= 7 (LOOP FOR A IN '(NIL A NIL B NIL C NIL D E NIL F G NIL NIL NIL NIL) COUNTING A OF-TYPE FIXNUM))) EQL-OK: NIL (NOT (= 7 (LOOP FOR A IN '(NIL A NIL B NIL C NIL D E NIL F G NIL NIL NIL NIL) COUNTING A OF-TYPE INTEGER))) EQL-OK: NIL (NOT (= 7 (LOOP FOR A IN '(NIL A NIL B NIL C NIL D E NIL F G NIL NIL NIL NIL) COUNTING A OF-TYPE (INTEGER 0)))) EQL-OK: NIL (NOT (= 7 (LOOP FOR A IN '(NIL A NIL B NIL C NIL D E NIL F G NIL NIL NIL NIL) COUNTING A OF-TYPE NUMBER))) EQL-OK: NIL (NOT (= 7 (LOOP FOR A IN '(NIL A NIL B NIL C NIL D E NIL F G NIL NIL NIL NIL) COUNTING A INTO X FIXNUM FINALLY (RETURN X)))) EQL-OK: NIL (NOT (= 7 (LOOP FOR A IN '(NIL A NIL B NIL C NIL D E NIL F G NIL NIL NIL NIL) COUNTING A INTO X OF-TYPE FIXNUM FINALLY (RETURN X)))) EQL-OK: NIL (NOT (= 7 (LOOP FOR A IN '(NIL A NIL B NIL C NIL D E NIL F G NIL NIL NIL NIL) COUNTING A INTO X OF-TYPE INTEGER FINALLY (RETURN X)))) EQL-OK: NIL (NOT (= 7 (LOOP FOR A IN '(NIL A NIL B NIL C NIL D E NIL F G NIL NIL NIL NIL) COUNTING A INTO X OF-TYPE (INTEGER 0) FINALLY (RETURN X)))) EQL-OK: NIL (NOT (= 7 (LOOP FOR A IN '(NIL A NIL B NIL C NIL D E NIL F G NIL NIL NIL NIL) COUNTING A INTO X OF-TYPE NUMBER FINALLY (RETURN X)))) EQL-OK: NIL (NOT (= 99 (LOOP FOR A IN '(3 5 8 0 7 7 99 3) MAXIMIZE A FIXNUM))) EQL-OK: NIL (NOT (= 99 (LOOP FOR A IN '(3 5 8 0 7 7 99 3) MAXIMIZE A OF-TYPE FIXNUM))) EQL-OK: NIL (NOT (= 99.0 (LOOP FOR A IN '(3.0 5.0 8.0 0.0 7.0 7.0 99.0 3.0) MAXIMIZE A FLOAT))) EQL-OK: NIL (NOT (= 99.0 (LOOP FOR A IN '(3.0 5.0 8.0 0.0 7.0 7.0 99.0 3.0) MAXIMIZE A OF-TYPE FLOAT))) EQL-OK: NIL (NOT (= 99.0 (LOOP FOR A IN '(3.0 5.0 2.2 8.0 0 3/5 7.0 7 99 3.0) MAXIMIZE A OF-TYPE REAL))) EQL-OK: NIL (NOT (= 99 (LOOP FOR A IN '(3 5 8 0 7 7 99 3) MAXIMIZE A OF-TYPE (INTEGER 0)))) EQL-OK: NIL (NOT (= 99 (LOOP FOR A IN '(3 5 8 0 7 7 99 3) MAXIMIZE A INTO MAX FIXNUM FINALLY (RETURN MAX)))) EQL-OK: NIL (NOT (= 99 (LOOP FOR A IN '(3 5 8 0 7 7 99 3) MAXIMIZE A INTO MAX OF-TYPE FIXNUM FINALLY (RETURN MAX)))) EQL-OK: NIL (NOT (= 99.0 (LOOP FOR A IN '(3.0 5.0 8.0 0.0 7.0 7.0 99.0 3.0) MAXIMIZE A INTO MAX FLOAT FINALLY (RETURN MAX)))) EQL-OK: NIL (NOT (= 99.0 (LOOP FOR A IN '(3.0 5.0 8.0 0.0 7.0 7.0 99.0 3.0) MAXIMIZE A INTO MAX OF-TYPE FLOAT FINALLY (RETURN MAX)))) EQL-OK: NIL (NOT (= 99.0 (LOOP FOR A IN '(3.0 5.0 2.2 8.0 0 3/5 7.0 7 99 3.0) MAXIMIZE A INTO MAX OF-TYPE REAL FINALLY (RETURN MAX)))) EQL-OK: NIL (NOT (= 99 (LOOP FOR A IN '(3 5 8 0 7 7 99 3) MAXIMIZE A INTO MAX OF-TYPE (INTEGER 0) FINALLY (RETURN MAX)))) EQL-OK: NIL (NOT (= 99 (LOOP FOR A IN '(3 NIL 5 8 NIL 0 NIL 7 7 99 3) WHEN A MAXIMIZE IT FIXNUM))) EQL-OK: NIL (NOT (= 99 (LOOP FOR A IN '(NIL 3 NIL 5 NIL 8 0 7 7 NIL 99 NIL 3) WHEN A MAXIMIZE IT OF-TYPE FIXNUM))) EQL-OK: NIL (NOT (= 99.0 (LOOP FOR A IN '(3.0 NIL 5.0 8.0 0.0 NIL NIL NIL NIL 7.0 NIL 7.0 99.0 NIL 3.0 NIL NIL NIL) WHEN A MAXIMIZE IT FLOAT))) EQL-OK: NIL (NOT (= 99.0 (LOOP FOR A IN '(NIL NIL NIL NIL NIL 3.0 NIL 5.0 8.0 0.0 NIL NIL NIL 7.0 7.0 NIL NIL 99.0 3.0) WHEN A MAXIMIZE IT OF-TYPE FLOAT))) EQL-OK: NIL (NOT (= 99.0 (LOOP FOR A IN '(3.0 5.0 NIL NIL 2.2 NIL NIL 8.0 0 NIL NIL 3/5 NIL NIL 7.0 7 99 3.0) WHEN A MAXIMIZE IT OF-TYPE REAL))) EQL-OK: NIL (NOT (= 99 (LOOP FOR A IN '(3 NIL NIL 5 8 0 NIL NIL 7 7 99 NIL NIL 3) WHEN A MAXIMIZE A OF-TYPE (INTEGER 0)))) EQL-OK: NIL (NOT (= 99 (LOOP FOR A IN '(3 NIL 5 8 NIL 0 NIL 7 7 99 3) WHEN A MAXIMIZE IT INTO MAX FIXNUM FINALLY (RETURN MAX)))) EQL-OK: NIL (NOT (= 99 (LOOP FOR A IN '(NIL 3 NIL 5 NIL 8 0 7 7 NIL 99 NIL 3) WHEN A MAXIMIZE IT INTO MAX OF-TYPE FIXNUM FINALLY (RETURN MAX)))) EQL-OK: NIL (NOT (= 99.0 (LOOP FOR A IN '(3.0 NIL 5.0 8.0 0.0 NIL NIL NIL NIL 7.0 NIL 7.0 99.0 NIL 3.0 NIL NIL NIL) WHEN A MAXIMIZE IT INTO MAX FLOAT FINALLY (RETURN MAX)))) EQL-OK: NIL (NOT (= 99.0 (LOOP FOR A IN '(NIL NIL NIL NIL NIL 3.0 NIL 5.0 8.0 0.0 NIL NIL NIL 7.0 7.0 NIL NIL 99.0 3.0) WHEN A MAXIMIZE IT INTO MAX OF-TYPE FLOAT FINALLY (RETURN MAX)))) EQL-OK: NIL (NOT (= 99.0 (LOOP FOR A IN '(3.0 5.0 NIL NIL 2.2 NIL NIL 8.0 0 NIL NIL 3/5 NIL NIL 7.0 7 99 3.0) WHEN A MAXIMIZE IT INTO MAX OF-TYPE REAL FINALLY (RETURN MAX)))) EQL-OK: NIL (NOT (= 99 (LOOP FOR A IN '(3 NIL NIL 5 8 0 NIL NIL 7 7 99 NIL NIL 3) WHEN A MAXIMIZE IT INTO MAX OF-TYPE (INTEGER 0) FINALLY (RETURN MAX)))) EQL-OK: NIL (NOT (= 99 (LOOP FOR A IN '(3 5 8 0 7 7 99 3) MAXIMIZING A FIXNUM))) EQL-OK: NIL (NOT (= 99 (LOOP FOR A IN '(3 5 8 0 7 7 99 3) MAXIMIZING A OF-TYPE FIXNUM))) EQL-OK: NIL (NOT (= 99.0 (LOOP FOR A IN '(3.0 5.0 8.0 0.0 7.0 7.0 99.0 3.0) MAXIMIZING A FLOAT))) EQL-OK: NIL (NOT (= 99.0 (LOOP FOR A IN '(3.0 5.0 8.0 0.0 7.0 7.0 99.0 3.0) MAXIMIZING A OF-TYPE FLOAT))) EQL-OK: NIL (NOT (= 99.0 (LOOP FOR A IN '(3.0 5.0 2.2 8.0 0 3/5 7.0 7 99 3.0) MAXIMIZING A OF-TYPE REAL))) EQL-OK: NIL (NOT (= 99 (LOOP FOR A IN '(3 5 8 0 7 7 99 3) MAXIMIZING A OF-TYPE (INTEGER 0)))) EQL-OK: NIL (NOT (= 99 (LOOP FOR A IN '(3 5 8 0 7 7 99 3) MAXIMIZING A INTO MAX FIXNUM FINALLY (RETURN MAX)))) EQL-OK: NIL (NOT (= 99 (LOOP FOR A IN '(3 5 8 0 7 7 99 3) MAXIMIZING A INTO MAX OF-TYPE FIXNUM FINALLY (RETURN MAX)))) EQL-OK: NIL (NOT (= 99.0 (LOOP FOR A IN '(3.0 5.0 8.0 0.0 7.0 7.0 99.0 3.0) MAXIMIZING A INTO MAX FLOAT FINALLY (RETURN MAX)))) EQL-OK: NIL (NOT (= 99.0 (LOOP FOR A IN '(3.0 5.0 8.0 0.0 7.0 7.0 99.0 3.0) MAXIMIZING A INTO MAX OF-TYPE FLOAT FINALLY (RETURN MAX)))) EQL-OK: NIL (NOT (= 99.0 (LOOP FOR A IN '(3.0 5.0 2.2 8.0 0 3/5 7.0 7 99 3.0) MAXIMIZING A INTO MAX OF-TYPE REAL FINALLY (RETURN MAX)))) EQL-OK: NIL (NOT (= 99 (LOOP FOR A IN '(3 5 8 0 7 7 99 3) MAXIMIZING A INTO MAX OF-TYPE (INTEGER 0) FINALLY (RETURN MAX)))) EQL-OK: NIL (NOT (= 99 (LOOP FOR A IN '(3 NIL 5 8 NIL 0 NIL 7 7 99 3) WHEN A MAXIMIZING IT FIXNUM))) EQL-OK: NIL (NOT (= 99 (LOOP FOR A IN '(NIL 3 NIL 5 NIL 8 0 7 7 NIL 99 NIL 3) WHEN A MAXIMIZING IT OF-TYPE FIXNUM))) EQL-OK: NIL (NOT (= 99.0 (LOOP FOR A IN '(3.0 NIL 5.0 8.0 0.0 NIL NIL NIL NIL 7.0 NIL 7.0 99.0 NIL 3.0 NIL NIL NIL) WHEN A MAXIMIZING IT FLOAT))) EQL-OK: NIL (NOT (= 99.0 (LOOP FOR A IN '(NIL NIL NIL NIL NIL 3.0 NIL 5.0 8.0 0.0 NIL NIL NIL 7.0 7.0 NIL NIL 99.0 3.0) WHEN A MAXIMIZING IT OF-TYPE FLOAT))) EQL-OK: NIL (NOT (= 99.0 (LOOP FOR A IN '(3.0 5.0 NIL NIL 2.2 NIL NIL 8.0 0 NIL NIL 3/5 NIL NIL 7.0 7 99 3.0) WHEN A MAXIMIZING IT OF-TYPE REAL))) EQL-OK: NIL (NOT (= 99 (LOOP FOR A IN '(3 NIL NIL 5 8 0 NIL NIL 7 7 99 NIL NIL 3) WHEN A MAXIMIZING A OF-TYPE (INTEGER 0)))) EQL-OK: NIL (NOT (= 99 (LOOP FOR A IN '(3 NIL 5 8 NIL 0 NIL 7 7 99 3) WHEN A MAXIMIZING IT INTO MAX FIXNUM FINALLY (RETURN MAX)))) EQL-OK: NIL (NOT (= 99 (LOOP FOR A IN '(NIL 3 NIL 5 NIL 8 0 7 7 NIL 99 NIL 3) WHEN A MAXIMIZING IT INTO MAX OF-TYPE FIXNUM FINALLY (RETURN MAX)))) EQL-OK: NIL (NOT (= 99.0 (LOOP FOR A IN '(3.0 NIL 5.0 8.0 0.0 NIL NIL NIL NIL 7.0 NIL 7.0 99.0 NIL 3.0 NIL NIL NIL) WHEN A MAXIMIZING IT INTO MAX FLOAT FINALLY (RETURN MAX)))) EQL-OK: NIL (NOT (= 99.0 (LOOP FOR A IN '(NIL NIL NIL NIL NIL 3.0 NIL 5.0 8.0 0.0 NIL NIL NIL 7.0 7.0 NIL NIL 99.0 3.0) WHEN A MAXIMIZING IT INTO MAX OF-TYPE FLOAT FINALLY (RETURN MAX)))) EQL-OK: NIL (NOT (= 99.0 (LOOP FOR A IN '(3.0 5.0 NIL NIL 2.2 NIL NIL 8.0 0 NIL NIL 3/5 NIL NIL 7.0 7 99 3.0) WHEN A MAXIMIZING IT INTO MAX OF-TYPE REAL FINALLY (RETURN MAX)))) EQL-OK: NIL (NOT (= 99 (LOOP FOR A IN '(3 NIL NIL 5 8 0 NIL NIL 7 7 99 NIL NIL 3) WHEN A MAXIMIZING IT INTO MAX OF-TYPE (INTEGER 0) FINALLY (RETURN MAX)))) EQL-OK: NIL (NOT (= 3 (LOOP FOR A IN '(3 5 8 4 7 7 99 3) MINIMIZE A FIXNUM))) EQL-OK: NIL (NOT (= 3 (LOOP FOR A IN '(3 5 8 4 7 7 99 3) MINIMIZE A OF-TYPE FIXNUM))) EQL-OK: NIL (NOT (= 3.0 (LOOP FOR A IN '(5.0 8.0 7.0 3.0 7.0 99.0) MINIMIZE A FLOAT))) EQL-OK: NIL (NOT (= 3.0 (LOOP FOR A IN '(5.0 8.0 7.0 3.0 7.0 99.0) MINIMIZE A OF-TYPE FLOAT))) EQL-OK: NIL (NOT (= 3.0 (LOOP FOR A IN '(5.0 8 7 3 7.0 3.0 99.0 1000) MINIMIZE A OF-TYPE REAL))) EQL-OK: NIL (NOT (= 5 (LOOP FOR A IN '(6 5 8 7 7 99) MINIMIZE A OF-TYPE (INTEGER 0)))) EQL-OK: NIL (NOT (= 3 (LOOP FOR A IN '(5 8 4 7 7 99 3) MINIMIZE A INTO MIN FIXNUM FINALLY (RETURN MIN)))) EQL-OK: NIL (NOT (= 3 (LOOP FOR A IN '(5 8 4 7 7 99 3) MINIMIZE A INTO MIN OF-TYPE FIXNUM FINALLY (RETURN MIN)))) EQL-OK: NIL (NOT (= 3.0 (LOOP FOR A IN '(5.0 8.0 4.0 7.0 7.0 99.0 3.0) MINIMIZE A INTO MIN FLOAT FINALLY (RETURN MIN)))) EQL-OK: NIL (NOT (= 3.0 (LOOP FOR A IN '(5.0 8.0 4.0 7.0 7.0 99.0 3.0) MINIMIZE A INTO MIN OF-TYPE FLOAT FINALLY (RETURN MIN)))) EQL-OK: NIL (NOT (= 3.0 (LOOP FOR A IN '(5.0 8 4.0 31/3 7.0 7 99.0 3.0) MINIMIZE A INTO MIN OF-TYPE REAL FINALLY (RETURN MIN)))) EQL-OK: NIL (NOT (= 5 (LOOP FOR A IN '(6 5 8 7 7 99) MINIMIZE A INTO MIN OF-TYPE (INTEGER 0) FINALLY (RETURN MIN)))) EQL-OK: NIL (NOT (= 3 (LOOP FOR A IN '(NIL 5 8 NIL NIL 7 7 NIL 99 3) WHEN A MINIMIZE IT FIXNUM))) EQL-OK: NIL (NOT (= 3 (LOOP FOR A IN '(NIL 5 8 NIL NIL 7 7 NIL 99 3) WHEN A MINIMIZE IT OF-TYPE FIXNUM))) EQL-OK: NIL (NOT (= 3.0 (LOOP FOR A IN '(NIL 5.0 8.0 NIL NIL 7.0 7.0 NIL 99.0 3.0) WHEN A MINIMIZE IT FLOAT))) EQL-OK: NIL (NOT (= 3.0 (LOOP FOR A IN '(NIL 5.0 8.0 NIL NIL 7.0 7.0 NIL 99.0 3.0) WHEN A MINIMIZE IT OF-TYPE FLOAT))) EQL-OK: NIL (NOT (= 3 (LOOP FOR A IN '(NIL 5.0 8.0 NIL NIL 7.0 7.0 NIL 99.0 3.0) WHEN A MINIMIZE IT OF-TYPE REAL))) EQL-OK: NIL (NOT (= 3 (LOOP FOR A IN '(NIL 5 8 NIL NIL 7 7 NIL 99 3) WHEN A MINIMIZE IT OF-TYPE (INTEGER 0)))) EQL-OK: NIL (NOT (= -99 (LOOP FOR A IN '(NIL -5 8 NIL NIL 7 7 NIL -99 3) WHEN A MINIMIZE IT OF-TYPE (INTEGER)))) EQL-OK: NIL (NOT (= 3 (LOOP FOR A IN '(3 5 8 4 7 7 99 3) MINIMIZING A FIXNUM))) EQL-OK: NIL (NOT (= 3 (LOOP FOR A IN '(3 5 8 4 7 7 99 3) MINIMIZING A OF-TYPE FIXNUM))) EQL-OK: NIL (NOT (= 3.0 (LOOP FOR A IN '(5.0 8.0 7.0 3.0 7.0 99.0) MINIMIZING A FLOAT))) EQL-OK: NIL (NOT (= 3.0 (LOOP FOR A IN '(5.0 8.0 7.0 3.0 7.0 99.0) MINIMIZING A OF-TYPE FLOAT))) EQL-OK: NIL (NOT (= 3.0 (LOOP FOR A IN '(5.0 8 7 3 7.0 3.0 99.0 1000) MINIMIZING A OF-TYPE REAL))) EQL-OK: NIL (NOT (= 5 (LOOP FOR A IN '(6 5 8 7 7 99) MINIMIZING A OF-TYPE (INTEGER 0)))) EQL-OK: NIL (NOT (= 3 (LOOP FOR A IN '(5 8 4 7 7 99 3) MINIMIZING A INTO MIN FIXNUM FINALLY (RETURN MIN)))) EQL-OK: NIL (NOT (= 3 (LOOP FOR A IN '(5 8 4 7 7 99 3) MINIMIZING A INTO MIN OF-TYPE FIXNUM FINALLY (RETURN MIN)))) EQL-OK: NIL (NOT (= 3.0 (LOOP FOR A IN '(5.0 8.0 4.0 7.0 7.0 99.0 3.0) MINIMIZING A INTO MIN FLOAT FINALLY (RETURN MIN)))) EQL-OK: NIL (NOT (= 3.0 (LOOP FOR A IN '(5.0 8.0 4.0 7.0 7.0 99.0 3.0) MINIMIZING A INTO MIN OF-TYPE FLOAT FINALLY (RETURN MIN)))) EQL-OK: NIL (NOT (= 3.0 (LOOP FOR A IN '(5.0 8 4.0 31/3 7.0 7 99.0 3.0) MINIMIZING A INTO MIN OF-TYPE REAL FINALLY (RETURN MIN)))) EQL-OK: NIL (NOT (= 5 (LOOP FOR A IN '(6 5 8 7 7 99) MINIMIZING A INTO MIN OF-TYPE (INTEGER 0) FINALLY (RETURN MIN)))) EQL-OK: NIL (NOT (= 3 (LOOP FOR A IN '(NIL 5 8 NIL NIL 7 7 NIL 99 3) WHEN A MINIMIZING IT FIXNUM))) EQL-OK: NIL (NOT (= 3 (LOOP FOR A IN '(NIL 5 8 NIL NIL 7 7 NIL 99 3) WHEN A MINIMIZING IT OF-TYPE FIXNUM))) EQL-OK: NIL (NOT (= 3.0 (LOOP FOR A IN '(NIL 5.0 8.0 NIL NIL 7.0 7.0 NIL 99.0 3.0) WHEN A MINIMIZING IT FLOAT))) EQL-OK: NIL (NOT (= 3.0 (LOOP FOR A IN '(NIL 5.0 8.0 NIL NIL 7.0 7.0 NIL 99.0 3.0) WHEN A MINIMIZING IT OF-TYPE FLOAT))) EQL-OK: NIL (NOT (= 3 (LOOP FOR A IN '(NIL 5.0 8.0 NIL NIL 7.0 7.0 NIL 99.0 3.0) WHEN A MINIMIZING IT OF-TYPE REAL))) EQL-OK: NIL (NOT (= 3 (LOOP FOR A IN '(NIL 5 8 NIL NIL 7 7 NIL 99 3) WHEN A MINIMIZING IT OF-TYPE (INTEGER 0)))) EQL-OK: NIL (NOT (= -99 (LOOP FOR A IN '(NIL -5 8 NIL NIL 7 7 NIL -99 3) WHEN A MINIMIZING IT OF-TYPE (INTEGER)))) EQL-OK: NIL (NOT (EQ 'OK (LOOP FOR I FROM 0 UPTO 10 SUMMING I FINALLY (RETURN 'OK)))) EQL-OK: NIL (NOT (EQ 'OK (LOOP FOR I IN '(NIL NIL 3 NIL 5 NIL 6) COUNTING I FINALLY (RETURN 'OK)))) EQL-OK: NIL (NOT (EQ 'OK (LOOP FOR I IN '(NIL NIL 3 NIL 5 NIL 6) WHEN I MAXIMIZING IT FINALLY (RETURN 'OK)))) EQL-OK: NIL (NOT (EQ 'OK (LOOP FOR I IN '(NIL NIL 3 NIL 5 NIL 6) WHEN I MINIMIZING IT FINALLY (RETURN 'OK)))) EQL-OK: NIL (NOT (NULL (LOOP WITH X = '(A B C D) WHILE X DO (POP X)))) EQL-OK: NIL (NOT (EQUAL (LOOP WITH STACK = NIL AND X = '(0 1 2 3) WHILE X DO (PUSH (POP X) STACK) FINALLY (RETURN STACK)) '(3 2 1 0))) EQL-OK: NIL (NOT (EQUAL (LOOP WITH STACK = NIL AND X = '(0 1 2 3) UNTIL (NULL X) DO (PUSH (POP X) STACK) FINALLY (RETURN STACK)) '(3 2 1 0))) EQL-OK: NIL (NOT (EQUAL (LET ((STACK '(A B C D E F))) (LOOP FOR ITEM = (LENGTH STACK) THEN (POP STACK) COLLECT ITEM WHILE STACK)) '(6 A B C D E F))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR I FIXNUM FROM 3 WHEN (ODDP I) COLLECT I WHILE (< I 5)) '(3 5))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A BELOW 10 WHEN (AND (EVENP A) A) COLLECT IT WHILE (< A 6) COLLECT A) '(0 0 1 2 2 3 4 4 5 6))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A BELOW 10 WHEN (AND (EVENP A) A) COLLECT IT UNTIL (>= A 6) COLLECT A) '(0 0 1 2 2 3 4 4 5 6))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A BELOW 10 WHEN (AND (EVENP A) A) COLLECT IT WHILE (< A 6) COLLECT A UNTIL (>= A 4) COLLECT A) '(0 0 0 1 1 2 2 2 3 3 4 4))) EQL-OK: NIL (NOT (= 3 (LOOP WITH X = 0 REPEAT 3 DO (INCF X) FINALLY (RETURN X)))) EQL-OK: NIL (NOT (= 1000 (LOOP REPEAT 1000 COUNTING 1))) EQL-OK: NIL (NOT (NULL (LOOP REPEAT 3))) EQL-OK: NIL (NOT (NULL (LOOP REPEAT 0))) EQL-OK: NIL (NOT (LET ((BODY-FLAG NIL)) (AND (NULL (LOOP REPEAT 0 DO (SETQ BODY-FLAG T))) (NULL BODY-FLAG)))) EQL-OK: NIL (NOT (= 1 (LET ((X 0)) (LOOP REPEAT (INCF X) SUM X)))) EQL-OK: NIL (NOT (= 4 (LET ((X 1)) (LOOP REPEAT (INCF X) SUM X)))) EQL-OK: NIL (NOT (= 9 (LET ((X 2)) (LOOP REPEAT (INCF X) SUM X)))) EQL-OK: NIL (NOT (= 16 (LET ((X 3)) (LOOP REPEAT (INCF X) SUM X)))) EQL-OK: NIL (NOT (NULL (LOOP REPEAT -15 RETURN T))) EQL-OK: NIL (NOT (LET ((BODY-FLAG NIL)) (AND (NULL (LOOP REPEAT -10 DO (SETQ BODY-FLAG T))) (NULL BODY-FLAG)))) EQL-OK: NIL (NOT (LET ((EVAL-COUNT 0) (LOOP-COUNT 0)) (LOOP REPEAT (PROGN (INCF EVAL-COUNT) 2) DO (INCF LOOP-COUNT)) (AND (= 1 EVAL-COUNT) (= 2 LOOP-COUNT)))) EQL-OK: NIL (NOT (LET ((EVAL-COUNT 0) (LOOP-COUNT 0)) (LOOP REPEAT (PROGN (INCF EVAL-COUNT) 0) DO (INCF LOOP-COUNT)) (AND (= 1 EVAL-COUNT) (ZEROP LOOP-COUNT)))) EQL-OK: NIL (NOT (LET ((EVAL-COUNT 0) (LOOP-COUNT 0)) (LOOP REPEAT (PROGN (INCF EVAL-COUNT) -100) DO (INCF LOOP-COUNT)) (AND (= 1 EVAL-COUNT) (ZEROP LOOP-COUNT)))) EQL-OK: NIL (NOT (EQ T (LOOP FOR I FROM 0 TO 10 ALWAYS (< I 11)))) EQL-OK: NIL (NOT (EQ T (LOOP FOR A IN 'NIL ALWAYS (ODDP A)))) EQL-OK: NIL (NOT (NULL (LOOP FOR A IN '(0 1 2) ALWAYS (ODDP A)))) EQL-OK: NIL (NOT (EQ T (LOOP FOR A IN '(1 3 5) ALWAYS (ODDP A)))) EQL-OK: NIL (NOT (LET ((FLAG NIL)) (AND (NULL (LOOP FOR I FROM 0 TO 10 ALWAYS (< I 5) FINALLY (SETQ FLAG T) (RETURN T))) (NOT FLAG)))) EQL-OK: NIL (NOT (EQ 'OK (LOOP FOR I BELOW 3 ALWAYS (NUMBERP I) FINALLY (RETURN 'OK)))) EQL-OK: NIL (NOT (EQ T (LOOP REPEAT 3 ALWAYS T))) EQL-OK: NIL (NOT (HANDLER-CASE (MACROEXPAND '(LOOP FOR I FROM 0 UPTO 10 ALWAYS (INTEGERP I) COLLECT I)) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (EQ T (LOOP FOR I FROM 0 TO 10 NEVER (> I 11)))) EQL-OK: NIL (NOT (EQ T (LOOP FOR A IN 'NIL NEVER (ODDP A)))) EQL-OK: NIL (NOT (NULL (LOOP FOR A IN '(0 1 2) NEVER (ODDP A)))) EQL-OK: NIL (NOT (EQ T (LOOP FOR A IN '(1 3 5) NEVER (EVENP A)))) EQL-OK: NIL (NOT (NULL (LOOP NEVER T FINALLY (RETURN T)))) EQL-OK: NIL (NOT (LET ((FLAG NIL)) (AND (NULL (LOOP FOR A BELOW 3 NEVER (ODDP A) FINALLY (SETQ FLAG T) (RETURN T))) (NULL FLAG)))) EQL-OK: NIL (NOT (EQ 'OK (LOOP FOR I BELOW 3 NEVER (CONSP I) FINALLY (RETURN 'OK)))) EQL-OK: NIL (NOT (EQ T (LOOP REPEAT 3 NEVER NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (MACROEXPAND '(LOOP FOR I FROM 0 UPTO 10 NEVER (INTEGERP I) APPEND (LIST I))) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (NULL (LOOP FOR A IN '(0 2 4) THEREIS (ODDP A)))) EQL-OK: NIL (NOT (= 11 (LOOP FOR I FROM 0 THEREIS (WHEN (> I 10) I)))) EQL-OK: NIL (NOT (EQ (LOOP THEREIS 'SOMEONE) 'SOMEONE)) EQL-OK: NIL (NOT (EQ (LOOP FOR I FROM 1 TO 10 THEREIS (> I 11) FINALLY (RETURN 'GOT-HERE)) 'GOT-HERE)) EQL-OK: NIL (NOT (LET ((COUNT 0)) (AND (NULL (LOOP FOR A BELOW 10 FOR B IN '(NIL NIL NIL NIL C) ALWAYS (< A 8) NEVER B DO (INCF COUNT))) (= COUNT 4)))) EQL-OK: NIL (NOT (= 4 (LOOP FOR I IN '(1 2 3 4 5 6) THEREIS (AND (> I 3) I)))) EQL-OK: NIL (NOT (LET ((FLAG NIL)) (LOOP FOR A BELOW 3 THEREIS (AND (ODDP A) A) FINALLY (SETQ FLAG T)) (NULL FLAG))) EQL-OK: NIL (NOT (EQ 'OK (LOOP FOR I BELOW 3 THEREIS (CONSP I) FINALLY (RETURN 'OK)))) EQL-OK: NIL (NOT (NULL (LOOP REPEAT 3 THEREIS NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (MACROEXPAND '(LOOP FOR I FROM 0 UPTO 10 THEREIS (INTEGERP I) NCONC (LIST I))) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (LOOP NAMED BAR DO (RETURN-FROM BAR T))) EQL-OK: NIL (NOT (EQ T (LOOP NAMED OUTER DO (LOOP NAMED INNER DO (RETURN-FROM OUTER T))))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A B C) OF-TYPE (INTEGER INTEGER FLOAT) IN '((1 2 4.0) (5 6 8.3) (8 9 10.4)) COLLECT (LIST C B A)) '((4.0 2 1) (8.3 6 5) (10.4 9 8)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A B C) OF-TYPE FLOAT IN '((1.0 2.0 4.0) (5.0 6.0 8.3) (8.0 9.0 10.4)) COLLECT (LIST C B A)) '((4.0 2.0 1.0) (8.3 6.0 5.0) (10.4 9.0 8.0)))) EQL-OK: NIL (NOT (EQUAL (LOOP WITH (A B) OF-TYPE FLOAT = '(1.0 2.0) AND (C D) OF-TYPE INTEGER = '(3 4) AND (E F) RETURN (LIST A B C D E F)) '(1.0 2.0 3 4 NIL NIL))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR (A (B) ((C))) IN '((0 (1) ((2))) (3 (4) ((5))) (6 (7) ((8)))) DO (PUSH (LIST A B C) STACK)) STACK) '((6 7 8) (3 4 5) (0 1 2)))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR (A NIL ((B))) IN '((0 (1) ((2))) (3 (4) ((5))) (6 (7) ((8)))) DO (PUSH (LIST A B) STACK)) STACK) '((6 8) (3 5) (0 2)))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR (A NIL ((((B))))) IN '((0 (1) ((((2))))) (3 (4) ((((5))))) (6 (7) ((((8)))))) DO (PUSH (LIST A B) STACK)) STACK) '((6 8) (3 5) (0 2)))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR (A . B) IN '((0 . 1) (2 . 3)) DO (PUSH (CONS A B) STACK)) STACK) '((2 . 3) (0 . 1)))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR (A B) IN '((0 1) (2 3)) DO (PUSH (LIST A B) STACK)) STACK) '((2 3) (0 1)))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR (A) ON '(0 1 2 3) DO (PUSH A STACK)) STACK) '(3 2 1 0))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR (A . B) ON '(0 1 2 3 4) DO (PUSH (LIST A B) STACK)) STACK) '((4 NIL) (3 (4)) (2 (3 4)) (1 (2 3 4)) (0 (1 2 3 4))))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR (A B) ACROSS #((0 1) (2 3) (4 5)) DO (PUSH (LIST A B) STACK)) STACK) '((4 5) (2 3) (0 1)))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (LOOP FOR (A ((B))) ACROSS #((0 ((1))) (2 ((3))) (4 ((5)))) DO (PUSH (LIST A B) STACK)) STACK) '((4 5) (2 3) (0 1)))) EQL-OK: NIL (NOT (EQUAL (LOOP WITH (A B) = '(0 1) RETURN (LIST A B)) '(0 1))) EQL-OK: NIL (NOT (EQUAL (LOOP WITH (A B C) = '(0) RETURN (LIST A B C)) '(0 NIL NIL))) EQL-OK: NIL (NOT (= 2 (LOOP WITH (NIL NIL X) = '(0 1 2) RETURN X))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A B C) IN '((0) (1) (2)) COLLECT (LIST A B C)) '((0 NIL NIL) (1 NIL NIL) (2 NIL NIL)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A NIL B) IN '((0 1 2) (1 2 3) (2 3 4)) COLLECT (LIST A B)) '((0 2) (1 3) (2 4)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A . B) T IN '((0 . X) (1 . Y) (2 . Z)) COLLECTING (CONS A B)) '((0 . X) (1 . Y) (2 . Z)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A . B) OF-TYPE T IN '((0 . X) (1 . Y) (2 . Z)) COLLECTING (CONS A B)) '((0 . X) (1 . Y) (2 . Z)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A . B) OF-TYPE (FIXNUM . SYMBOL) IN '((0 . X) (1 . Y) (2 . Z)) COLLECTING (CONS A B)) '((0 . X) (1 . Y) (2 . Z)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A ((B))) OF-TYPE (FIXNUM ((SYMBOL))) IN '((0 ((X))) (1 ((Y))) (2 ((Z)))) COLLECTING (CONS A B)) '((0 . X) (1 . Y) (2 . Z)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A ((B))) OF-TYPE (FIXNUM SYMBOL) IN '((0 ((X))) (1 ((Y))) (2 ((Z)))) COLLECTING (CONS A B)) '((0 . X) (1 . Y) (2 . Z)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A ((B))) FIXNUM IN '((0 ((10))) (1 ((11))) (2 ((12)))) COLLECTING (CONS A B)) '((0 . 10) (1 . 11) (2 . 12)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A ((B)) C (((D)))) FIXNUM IN '((0 ((10)) 20 (((30)))) (1 ((11)) 21 (((31)))) (2 ((12)) 22 (((32))))) COLLECTING (LIST A B C D)) '((0 10 20 30) (1 11 21 31) (2 12 22 32)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A ((B)) C (((D)))) OF-TYPE (FIXNUM ((FIXNUM)) FIXNUM (((FIXNUM)))) IN '((0 ((10)) 20 (((30)))) (1 ((11)) 21 (((31)))) (2 ((12)) 22 (((32))))) COLLECTING (LIST A B C D)) '((0 10 20 30) (1 11 21 31) (2 12 22 32)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A NIL NIL (((B)))) OF-TYPE (FIXNUM NIL NIL (((FIXNUM)))) IN '((0 ((10)) 20 (((30)))) (1 ((11)) 21 (((31)))) (2 ((12)) 22 (((32))))) COLLECTING (LIST A B)) '((0 30) (1 31) (2 32)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A) FIXNUM ON '(0 1 2) COLLECTING A) '(0 1 2))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A) OF-TYPE FIXNUM ON '(0 1 2) COLLECTING A) '(0 1 2))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A) FLOAT ON '(0.3 1.3 2.3) COLLECTING A) '(0.3 1.3 2.3))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A) OF-TYPE FLOAT ON '(0.3 1.3 2.3) COLLECTING A) '(0.3 1.3 2.3))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A) T ON '(0 1 2) COLLECTING A) '(0 1 2))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A) OF-TYPE T ON '(0 1 2) COLLECTING A) '(0 1 2))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A) OF-TYPE REAL ON '(0 1.0 2/3) COLLECTING A) '(0 1.0 2/3))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A NIL B) FIXNUM ON '(0 1 2) COLLECTING (LIST A B)) '((0 2) (1 NIL) (2 NIL)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A NIL B) OF-TYPE (FIXNUM NIL FIXNUM) ON '(0 1 2) COLLECTING (LIST A B)) '((0 2) (1 NIL) (2 NIL)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (NIL . TAIL) T ON '(0 1 2 3) APPEND TAIL) '(1 2 3 2 3 3))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (NIL . TAIL) OF-TYPE T ON '(0 1 2 3) APPEND TAIL) '(1 2 3 2 3 3))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (NIL . TAIL) OF-TYPE LIST ON '(0 1 2 3) APPEND TAIL) '(1 2 3 2 3 3))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A B) T ACROSS #((X 0) (Y 1) (Z 2)) COLLECTING (LIST B A)) '((0 X) (1 Y) (2 Z)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A B) OF-TYPE T ACROSS #((X 0) (Y 1) (Z 2)) COLLECTING (LIST B A)) '((0 X) (1 Y) (2 Z)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A B) OF-TYPE ((MEMBER X Y Z) (MEMBER 0 1 2)) ACROSS #((X 0) (Y 1) (Z 2)) COLLECTING (LIST B A)) '((0 X) (1 Y) (2 Z)))) EQL-OK: NIL (NOT (EQ T (LOOP FOR (A) T := '(0) THEN (LIST (1+ A)) WHEN (= A 3) RETURN T))) EQL-OK: NIL (NOT (EQ T (LOOP FOR (A) OF-TYPE T := '(0) THEN (LIST (1+ A)) WHEN (= A 3) RETURN T))) EQL-OK: NIL (NOT (EQ T (LOOP FOR (A) OF-TYPE (T) := '(0) THEN (LIST (1+ A)) WHEN (= A 3) RETURN T))) EQL-OK: NIL (NOT (EQ T (LOOP FOR (A) FIXNUM := '(0) THEN (LIST (1+ A)) WHEN (= A 3) RETURN T))) EQL-OK: NIL (NOT (EQ T (LOOP FOR (A) OF-TYPE FIXNUM := '(0) THEN (LIST (1+ A)) WHEN (= A 3) RETURN T))) EQL-OK: NIL (NOT (EQ T (LOOP FOR (A) OF-TYPE (FIXNUM) := '(0) THEN (LIST (1+ A)) WHEN (= A 3) RETURN T))) EQL-OK: NIL (NOT (EQ T (LOOP FOR (A) FLOAT := '(0.0) THEN (LIST (1+ A)) WHEN (= A 3.0) RETURN T))) EQL-OK: NIL (NOT (EQ T (LOOP FOR (A) OF-TYPE FLOAT := '(0.0) THEN (LIST (1+ A)) WHEN (= A 3.0) RETURN T))) EQL-OK: NIL (NOT (EQ T (LOOP FOR (A) OF-TYPE (FLOAT) := '(0.0) THEN (LIST (1+ A)) WHEN (= A 3.0) RETURN T))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A B) T := '(0 1) THEN (LIST (1+ B) (+ B 2)) WHEN (> A 5) DO (LOOP-FINISH) COLLECT (LIST A B)) '((0 1) (2 3) (4 5)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A B) OF-TYPE T := '(0 1) THEN (LIST (1+ B) (+ B 2)) WHEN (> A 5) DO (LOOP-FINISH) COLLECT (LIST A B)) '((0 1) (2 3) (4 5)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A B) OF-TYPE (T T) := '(0 1) THEN (LIST (1+ B) (+ B 2)) WHEN (> A 5) DO (LOOP-FINISH) COLLECT (LIST A B)) '((0 1) (2 3) (4 5)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A B) FIXNUM := '(0 1) THEN (LIST (1+ B) (+ B 2)) WHEN (> A 5) DO (LOOP-FINISH) COLLECT (LIST A B)) '((0 1) (2 3) (4 5)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A B) OF-TYPE FIXNUM := '(0 1) THEN (LIST (1+ B) (+ B 2)) WHEN (> A 5) DO (LOOP-FINISH) COLLECT (LIST A B)) '((0 1) (2 3) (4 5)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A B) OF-TYPE (FIXNUM FIXNUM) := '(0 1) THEN (LIST (1+ B) (+ B 2)) WHEN (> A 5) DO (LOOP-FINISH) COLLECT (LIST A B)) '((0 1) (2 3) (4 5)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A B) FLOAT := '(#1=0.0 1.0) THEN (LIST (1+ B) (+ B 2.0)) WHEN (> A 5) DO (LOOP-FINISH) COLLECT (LIST A B)) '((#1# 1.0) (2.0 3.0) (4.0 5.0)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A B) OF-TYPE FLOAT := '(#1=0.0 1.0) THEN (LIST (1+ B) (+ B 2.0)) WHEN (> A 5) DO (LOOP-FINISH) COLLECT (LIST A B)) '((#1# 1.0) (2.0 3.0) (4.0 5.0)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A B) OF-TYPE (FLOAT FLOAT) := '(#1=0.0 1.0) THEN (LIST (1+ B) (+ B 2.0)) WHEN (> A 5) DO (LOOP-FINISH) COLLECT (LIST A B)) '((#1# 1.0) (2.0 3.0) (4.0 5.0)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (A B) OF-TYPE (FIXNUM FLOAT) := '(0 1.0) THEN (LIST (+ A 2) (+ B 2.0)) WHEN (> A 5) DO (LOOP-FINISH) COLLECT (LIST A B)) '((0 1.0) (2 3.0) (4 5.0)))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :TEST 'EQUAL)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '((K0 0) (K1 1) (K2 2)) '(V0 V1 V2)) (LOOP FOR (K KN) T BEING EACH HASH-KEY OF TABLE DO (PUSH (LIST K KN) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 0) (K1 1) (K2 2)) :TEST #'EQUAL)))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :TEST 'EQUAL)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '((K0 0) (K1 1) (K2 2)) '(V0 V1 V2)) (LOOP FOR (K KN) OF-TYPE T BEING EACH HASH-KEY OF TABLE DO (PUSH (LIST K KN) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 0) (K1 1) (K2 2)) :TEST #'EQUAL)))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :TEST 'EQUAL)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '((K0 0) (K1 1) (K2 2)) '(V0 V1 V2)) (LOOP FOR (K KN) OF-TYPE (SYMBOL FIXNUM) BEING EACH HASH-KEY OF TABLE DO (PUSH (LIST K KN) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 0) (K1 1) (K2 2)) :TEST #'EQUAL)))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :TEST 'EQUAL)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '((K0 0) (K1 1) (K2 2)) '(V0 V1 V2)) (LOOP FOR (K KN) OF-TYPE T BEING EACH HASH-KEY OF TABLE DO (PUSH (LIST K KN) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 0) (K1 1) (K2 2)) :TEST #'EQUAL)))) EQL-OK: NIL (NOT (LET ((TABLE (MAKE-HASH-TABLE :TEST 'EQUAL)) STACK) (MAPC #'(LAMBDA (K V) (SETF (GETHASH K TABLE) V)) '((K0 0) (K1 1) (K2 2)) '(V0 V1 V2)) (LOOP FOR (K KN) OF-TYPE (T T) BEING EACH HASH-KEY OF TABLE DO (PUSH (LIST K KN) STACK)) (NULL (SET-EXCLUSIVE-OR STACK '((K0 0) (K1 1) (K2 2)) :TEST #'EQUAL)))) EQL-OK: NIL (NOT (HANDLER-CASE (MACROEXPAND '(LOOP WITH A = 0 FOR A DOWNFROM 10 TO 0 DO (PRINT A))) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (MACROEXPAND '(LOOP FOR A FROM 0 UPTO 10 COLLECT T INTO A)) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (= 4 (LOOP FOR (ITEM . X) OF-TYPE (T . FIXNUM) IN '((A . 1) (B . 2) (C . 3)) UNLESS (EQ ITEM 'B) SUM X))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR SUBLIST ON '(A B C D) COLLECT SUBLIST) '((A B C D) (B C D) (C D) (D)))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR (ITEM) ON '(1 2 3) COLLECT ITEM) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR ITEM = 1 THEN (+ ITEM 10) FOR ITERATION FROM 1 TO 5 COLLECT ITEM) '(1 11 21 31 41))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR I BELOW 3 COLLECTING (LOOP FOR J BELOW 2 COLLECTING (LIST I J))) '(((0 0) (0 1)) ((1 0) (1 1)) ((2 0) (2 1))))) EQL-OK: NIL (NOT (ZEROP (LOOP FOR I FROM -10 UPTO 0 MAXIMIZING I))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR I FROM -10 UPTO 0 MAXIMIZING I INTO MAX MINIMIZING I INTO MIN FINALLY (RETURN (LIST MAX MIN))) '(0 -10))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR C ACROSS "aBcDeFg" WHEN (AND (UPPER-CASE-P C) C) COLLECTING IT) '(#\B #\D #\F))) EQL-OK: NIL (NOT (EQUAL (LOOP NAMED MY-LOOP FOR I BELOW 3 COLLECT I INTO X FINALLY (RETURN-FROM MY-LOOP X)) '(0 1 2))) EQL-OK: NIL (NOT (EQUAL (LOOP NAMED NIL FOR I BELOW 3 COLLECT I INTO X FINALLY (RETURN-FROM NIL X)) '(0 1 2))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR I BELOW 3 COLLECT I INTO X FINALLY (RETURN-FROM NIL X)) '(0 1 2))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR I BELOW 3 COLLECT I INTO X FINALLY (RETURN X)) '(0 1 2))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A FROM 10 ABOVE 0 FOR B IN '(1 2 3 4 5 6 7 8 9 10) FOR C ON '(J K L M N O P Q R S) FOR D = 100 THEN (1- D) COLLECT (LIST A B (FIRST C) D)) '((10 1 J 100) (9 2 K 99) (8 3 L 98) (7 4 M 97) (6 5 N 96) (5 6 O 95) (4 7 P 94) (3 8 Q 93) (2 9 R 92) (1 10 S 91)))) EQL-OK: NIL (NOT (EQUAL (LOOP WITH E = 0 FOR A FROM 10 ABOVE 0 FOR B IN '(1 2 3 4 5 6 7 8 9 10) FOR C ON '(J K L M N O P Q R S) FOR D = 100 THEN (1- D) APPEND (LIST A B (FIRST C) D) INTO VALUES INITIALLY (SETQ E 1000) REPEAT 1 FINALLY (RETURN (CONS E VALUES))) '(1000 10 1 J 100))) EQL-OK: NIL (NOT (EQUAL (LOOP WITH E = 0 FOR A FROM 10 ABOVE 0 FOR B IN '(1 2 3 4 5 6 7 8 9 10) FOR C ON '(J K L M N O P Q R S) FOR D = 100 THEN (1- D) APPEND (LIST A B (FIRST C) D) INTO VALUES INITIALLY (SETQ E 1000) REPEAT 2 FINALLY (RETURN (CONS E VALUES))) '(1000 10 1 J 100 9 2 K 99))) EQL-OK: NIL (NOT (EQUAL (LOOP FOR A FROM 0 UPTO 100 BY 2 REPEAT 1000 WHEN (ZEROP (MOD A 10)) COLLECT A) '(0 10 20 30 40 50 60 70 80 90 100))) EQL-OK: NIL (NOT (LET ((IT '0)) (EQUAL (LOOP FOR A IN '(NIL X Y NIL Z) WHEN A COLLECT IT AND COLLECT IT) '(X 0 Y 0 Z 0)))) EQL-OK: NIL (NOT (LET ((IT '0)) (EQUAL (LOOP FOR A IN '(X NIL Y NIL Z NIL) IF A COLLECT IT END COLLECT IT) '(X 0 0 Y 0 0 Z 0 0)))) EQL-OK: NIL (NOT (SUBSETP '(CAR CDR LIST) (LET (BAG) (LOOP FOR SYM BEING THE EXTERNAL-SYMBOLS OF 'COMMON-LISP DO (PUSH SYM BAG)) BAG))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE NIL)) BAG) (AND (NULL (LOOP FOR SYM BEING THE SYMBOLS OF PKG DO (PUSH SYM BAG))) (NULL BAG))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE NIL)) BAG) (AND (NULL (LOOP FOR SYM BEING THE EXTERNAL-SYMBOLS OF PKG DO (PUSH SYM BAG))) (NULL BAG))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE NIL)) BAG) (AND (NULL (LOOP FOR SYM BEING THE PRESENT-SYMBOLS OF PKG DO (PUSH SYM BAG))) (NULL BAG))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING THE SYMBOLS OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING EACH SYMBOLS OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not SYMBOLS EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING THE SYMBOL OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) WARNING: LOOP: After THE a plural loop keyword is required, not SYMBOL EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING EACH SYMBOL OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING THE SYMBOLS IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING EACH SYMBOLS IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not SYMBOLS EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING THE SYMBOL IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) WARNING: LOOP: After THE a plural loop keyword is required, not SYMBOL EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING EACH SYMBOL IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING THE PRESENT-SYMBOLS OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING EACH PRESENT-SYMBOLS OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not PRESENT-SYMBOLS EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING THE PRESENT-SYMBOL OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) WARNING: LOOP: After THE a plural loop keyword is required, not PRESENT-SYMBOL EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING EACH PRESENT-SYMBOL OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING THE PRESENT-SYMBOLS IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING EACH PRESENT-SYMBOLS IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not PRESENT-SYMBOLS EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING THE PRESENT-SYMBOL IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) WARNING: LOOP: After THE a plural loop keyword is required, not PRESENT-SYMBOL EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING EACH PRESENT-SYMBOL IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING THE EXTERNAL-SYMBOLS OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING EACH EXTERNAL-SYMBOLS OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not EXTERNAL-SYMBOLS EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING THE EXTERNAL-SYMBOL OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) WARNING: LOOP: After THE a plural loop keyword is required, not EXTERNAL-SYMBOL EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING EACH EXTERNAL-SYMBOL OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING THE EXTERNAL-SYMBOLS IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING EACH EXTERNAL-SYMBOLS IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not EXTERNAL-SYMBOLS EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING THE EXTERNAL-SYMBOL IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) WARNING: LOOP: After THE a plural loop keyword is required, not EXTERNAL-SYMBOL EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP FOR SYM BEING EACH EXTERNAL-SYMBOL IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING THE SYMBOLS OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING EACH SYMBOLS OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not SYMBOLS EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING THE SYMBOL OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) WARNING: LOOP: After THE a plural loop keyword is required, not SYMBOL EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING EACH SYMBOL OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING THE SYMBOLS IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING EACH SYMBOLS IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not SYMBOLS EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING THE SYMBOL IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) WARNING: LOOP: After THE a plural loop keyword is required, not SYMBOL EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME "TB-BAR-TO-USE") BAG0) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING EACH SYMBOL IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING THE PRESENT-SYMBOLS OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING EACH PRESENT-SYMBOLS OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not PRESENT-SYMBOLS EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING THE PRESENT-SYMBOL OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) WARNING: LOOP: After THE a plural loop keyword is required, not PRESENT-SYMBOL EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING EACH PRESENT-SYMBOL OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING THE PRESENT-SYMBOLS IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING EACH PRESENT-SYMBOLS IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not PRESENT-SYMBOLS EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING THE PRESENT-SYMBOL IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) WARNING: LOOP: After THE a plural loop keyword is required, not PRESENT-SYMBOL EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING EACH PRESENT-SYMBOL IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING THE EXTERNAL-SYMBOLS OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING EACH EXTERNAL-SYMBOLS OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not EXTERNAL-SYMBOLS EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING THE EXTERNAL-SYMBOL OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) WARNING: LOOP: After THE a plural loop keyword is required, not EXTERNAL-SYMBOL EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING EACH EXTERNAL-SYMBOL OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING THE EXTERNAL-SYMBOLS IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING EACH EXTERNAL-SYMBOLS IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) WARNING: LOOP: After SYSTEM::EACH a singular loop keyword is required, not EXTERNAL-SYMBOLS EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING THE EXTERNAL-SYMBOL IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) WARNING: LOOP: After THE a plural loop keyword is required, not EXTERNAL-SYMBOL EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM BEING EACH EXTERNAL-SYMBOL IN PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) EQL-OK: NIL (NOT (EQ T (LOOP FOR SYMBOL BEING THE SYMBOLS OF 'CL FINALLY (RETURN T)))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM OF-TYPE SYMBOL BEING THE EXTERNAL-SYMBOLS OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM T BEING THE EXTERNAL-SYMBOLS OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE") (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PKG (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE"))) BAG0 BAG) (MAPC #'(LAMBDA (NAME) (EXPORT (INTERN NAME "TB-BAR-TO-USE") "TB-BAR-TO-USE")) '("J" "K" "L")) (MAPC #'(LAMBDA (NAME) (INTERN NAME PKG)) '("A" "B" "C")) (MAPC #'(LAMBDA (NAME) (PUSH (INTERN NAME PKG) BAG0) (EXPORT (INTERN NAME PKG) PKG)) '("X" "Y" "Z")) (LOOP AS SYM OF-TYPE T BEING THE EXTERNAL-SYMBOLS OF PKG DO (PUSH SYM BAG)) (NULL (SET-EXCLUSIVE-OR BAG0 BAG))))) EQL-OK: NIL (NOT (EQ T (LOOP FOR C IN '(#\A #\S #\Z #\a) ALWAYS (EQ T (LOOP FOR S IN (LOOP FOR S BEING THE EXTERNAL-SYMBOLS OF 'CL WHEN (CHAR= C (CHAR (SYMBOL-NAME S) 0)) COLLECT S) ALWAYS (CHAR= C (CHAR (SYMBOL-NAME S) 0))))))) EQL-OK: NIL RUN-TEST: finished "must-loop" (0 errors out of 851 tests) RUN-TEST: started # (NOT (LISTP (LIST-ALL-PACKAGES))) EQL-OK: NIL (NOT (FIND "COMMON-LISP" (MAPCAR #'PACKAGE-NAME (LIST-ALL-PACKAGES)) :TEST #'STRING=)) EQL-OK: NIL (NOT (FIND "COMMON-LISP-USER" (MAPCAR #'PACKAGE-NAME (LIST-ALL-PACKAGES)) :TEST #'STRING=)) EQL-OK: NIL (NOT (FIND "KEYWORD" (MAPCAR #'PACKAGE-NAME (LIST-ALL-PACKAGES)) :TEST #'STRING=)) EQL-OK: NIL (NOT (EVERY #'PACKAGEP (LIST-ALL-PACKAGES))) EQL-OK: NIL (NOT (PACKAGEP (FIND-PACKAGE "COMMON-LISP"))) EQL-OK: NIL (NOT (PACKAGEP (FIND-PACKAGE "CL"))) EQL-OK: NIL (NOT (PACKAGEP (FIND-PACKAGE "COMMON-LISP-USER"))) EQL-OK: NIL (NOT (PACKAGEP (FIND-PACKAGE "CL-USER"))) EQL-OK: NIL (NOT (PACKAGEP (FIND-PACKAGE "KEYWORD"))) EQL-OK: NIL (NOT (LET ((CL (FIND-PACKAGE "COMMON-LISP"))) (EQ CL (FIND-PACKAGE CL)))) EQL-OK: NIL (NOT (EQ (FIND-PACKAGE "CL") (FIND-PACKAGE "COMMON-LISP"))) EQL-OK: NIL (NOT (EQ (FIND-PACKAGE 'CL) (FIND-PACKAGE "COMMON-LISP"))) EQL-OK: NIL (NOT (EQ (FIND-PACKAGE 'CL) (FIND-PACKAGE 'COMMON-LISP))) EQL-OK: NIL (NOT (LET ((NAME "NO-SUCH-PACKAGE")) (WHEN (FIND-PACKAGE NAME) (DELETE-PACKAGE NAME)) (NOT (FIND-PACKAGE NAME)))) EQL-OK: NIL (NOT (= (LENGTH (MULTIPLE-VALUE-LIST (FIND-PACKAGE "CL"))) 1)) EQL-OK: NIL (NOT (= (LENGTH (MULTIPLE-VALUE-LIST (FIND-PACKAGE "NO-SUCH-PACKAGE"))) 1)) EQL-OK: NIL (NOT (PACKAGEP (FIND-PACKAGE (FIND-PACKAGE (FIND-PACKAGE "KEYWORD"))))) EQL-OK: NIL (NOT (EVERY (COMPLEMENT #'PACKAGEP) '(NIL A B "CL" "KEYWORD" (A) CL COMMON-LISP-USER))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "a") (DELETE-PACKAGE "a")) (AND (PACKAGEP (MAKE-PACKAGE #\a)) (DELETE-PACKAGE "a")))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "a") (DELETE-PACKAGE "a")) (AND (PACKAGEP (MAKE-PACKAGE '|a|)) (DELETE-PACKAGE "a")))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "a") (DELETE-PACKAGE "a")) (AND (PACKAGEP (MAKE-PACKAGE "a")) (DELETE-PACKAGE "a")))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "a") (DELETE-PACKAGE "a")) (AND (PACKAGEP (MAKE-PACKAGE "a" :USE NIL)) (DELETE-PACKAGE "a")))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "a") (DELETE-PACKAGE "a")) (AND (PACKAGEP (MAKE-PACKAGE "a" :USE '(CL))) (DELETE-PACKAGE "a")))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "a") (DELETE-PACKAGE "a")) (AND (PACKAGEP (MAKE-PACKAGE "a" :USE '(CL) :NICKNAMES '("b"))) (DELETE-PACKAGE "b")))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "a") (DELETE-PACKAGE "a")) (AND (PACKAGEP (MAKE-PACKAGE "a" :USE '(CL) :NICKNAMES '("b" "c"))) (DELETE-PACKAGE "c")))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "a") (DELETE-PACKAGE "a")) (AND (PACKAGEP (MAKE-PACKAGE "a" :USE '(CL) :NICKNAMES '(#\b "c"))) (DELETE-PACKAGE "b")))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "a") (DELETE-PACKAGE "a")) (AND (PACKAGEP (MAKE-PACKAGE "a" :USE '(CL) :NICKNAMES '(|b| "c"))) (DELETE-PACKAGE "b")))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "a") (DELETE-PACKAGE "a")) (WHEN (FIND-PACKAGE "b") (DELETE-PACKAGE "b")) (AND (PACKAGEP (MAKE-PACKAGE "b" :USE '(CL))) (PACKAGEP (MAKE-PACKAGE "a" :USE '(CL) :NICKNAMES '(|b| "c"))))) (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "a") (DELETE-PACKAGE "a")) (WHEN (FIND-PACKAGE "b") (DELETE-PACKAGE "b")) (AND (PACKAGEP (MAKE-PACKAGE "a" :USE '(CL))) (PACKAGEP (MAKE-PACKAGE "a" :USE '(CL) :NICKNAMES '(|b| "c"))))) (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "a") (DELETE-PACKAGE "a")) (WHEN (FIND-PACKAGE "d") (DELETE-PACKAGE "b")) (AND (PACKAGEP (MAKE-PACKAGE "a" :USE '(CL) :NICKNAMES '("b" "c"))) (PACKAGEP (MAKE-PACKAGE "d" :USE '(CL) :NICKNAMES '("c"))))) (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (AND (PACKAGEP (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL)) (EXPORT (INTERN "CAR" 'TB-BAR-TO-USE) 'TB-BAR-TO-USE) (MAKE-PACKAGE "TB-FOO" :USE '(CL "TB-BAR-TO-USE")))) (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (STRING= (PACKAGE-NAME "COMMON-LISP") "COMMON-LISP")) EQL-OK: NIL (NOT (STRING= (PACKAGE-NAME 'COMMON-LISP) "COMMON-LISP")) EQL-OK: NIL (NOT (STRING= (PACKAGE-NAME (FIND-PACKAGE 'COMMON-LISP)) "COMMON-LISP")) EQL-OK: NIL (NOT (STRING= (PACKAGE-NAME "CL") "COMMON-LISP")) EQL-OK: NIL (NOT (STRING= (PACKAGE-NAME 'CL) "COMMON-LISP")) EQL-OK: NIL (NOT (STRING= (PACKAGE-NAME (FIND-PACKAGE 'CL)) "COMMON-LISP")) EQL-OK: NIL (NOT (LET ((DESIGNATOR-LIST (LIST 'CL 'COMMON-LISP "CL" "COMMON-LISP" (FIND-PACKAGE 'CL) 'CL-USER 'COMMON-LISP-USER "CL-USER" "COMMON-LISP-USER" (FIND-PACKAGE 'CL-USER) 'KEYWORD "KEYWORD" (FIND-PACKAGE 'KEYWORD)))) (EVERY #'STRINGP (MAPCAR #'PACKAGE-NAME DESIGNATOR-LIST)))) EQL-OK: NIL (NOT (EVERY #'STRINGP (MAPCAR #'PACKAGE-NAME (LIST-ALL-PACKAGES)))) EQL-OK: NIL (NOT (LET* ((NAME "TB-FOO") (PACKAGE (OR (FIND-PACKAGE NAME) (MAKE-PACKAGE NAME :USE NIL)))) (AND (DELETE-PACKAGE NAME) (NOT (FIND-PACKAGE NAME)) (NULL (PACKAGE-NAME PACKAGE))))) EQL-OK: NIL (NOT (MEMBER "CL" (PACKAGE-NICKNAMES "COMMON-LISP") :TEST #'STRING=)) EQL-OK: NIL (NOT (MEMBER "CL" (PACKAGE-NICKNAMES 'COMMON-LISP) :TEST #'STRING=)) EQL-OK: NIL (NOT (MEMBER "CL" (PACKAGE-NICKNAMES (FIND-PACKAGE 'COMMON-LISP)) :TEST #'STRING=)) EQL-OK: NIL (NOT (MEMBER "CL" (PACKAGE-NICKNAMES "CL") :TEST #'STRING=)) EQL-OK: NIL (NOT (MEMBER "CL" (PACKAGE-NICKNAMES 'CL) :TEST #'STRING=)) EQL-OK: NIL (NOT (MEMBER "CL" (PACKAGE-NICKNAMES (FIND-PACKAGE 'CL)) :TEST #'STRING=)) EQL-OK: NIL (NOT (LET ((NAME 'TEST-FOO) (NICKNAMES '(TEST-FOO-NICKNAME1 TEST-FOO-NICKNAME2 TEST-FOO-NICKNAME3))) (DOLIST (NAME (CONS NAME NICKNAMES)) (WHEN (FIND-PACKAGE NAME) (DELETE-PACKAGE NAME))) (EVERY #'STRINGP (PACKAGE-NICKNAMES (MAKE-PACKAGE NAME :NICKNAMES NICKNAMES))))) EQL-OK: NIL (NOT (EVERY #'STRINGP (MAPCAN #'(LAMBDA (PACKAGE) (COPY-LIST (PACKAGE-NICKNAMES PACKAGE))) (LIST-ALL-PACKAGES)))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE 'TEST-FOO) (DELETE-PACKAGE 'TEST-FOO)) (NULL (SET-DIFFERENCE (PACKAGE-NICKNAMES (MAKE-PACKAGE 'TEST-FOO :NICKNAMES '("TB-FOO" "test-foo"))) '("TB-FOO" "test-foo") :TEST #'STRING=)))) EQL-OK: NIL (NOT (LET ((DESIGNATOR-LIST (LIST 'CL 'COMMON-LISP "CL" "COMMON-LISP" (FIND-PACKAGE 'CL) 'CL-USER 'COMMON-LISP-USER "CL-USER" "COMMON-LISP-USER" (FIND-PACKAGE 'CL-USER) 'KEYWORD "KEYWORD" (FIND-PACKAGE 'KEYWORD)))) (EVERY #'STRINGP (MAPCAN #'(LAMBDA (DESIGNATOR) (COPY-LIST (PACKAGE-NICKNAMES DESIGNATOR))) DESIGNATOR-LIST)))) EQL-OK: NIL (NOT (EVERY #'LISTP (MAPCAR #'PACKAGE-SHADOWING-SYMBOLS (LIST-ALL-PACKAGES)))) EQL-OK: NIL (NOT (EVERY #'SYMBOLP (MAPCAN #'(LAMBDA (PACKAGE) (COPY-LIST (PACKAGE-SHADOWING-SYMBOLS PACKAGE))) (LIST-ALL-PACKAGES)))) EQL-OK: NIL (NOT (LISTP (PACKAGE-SHADOWING-SYMBOLS 'CL))) EQL-OK: NIL (NOT (LISTP (PACKAGE-SHADOWING-SYMBOLS "CL-USER"))) EQL-OK: NIL (NOT (LISTP (PACKAGE-SHADOWING-SYMBOLS "COMMON-LISP"))) EQL-OK: NIL (NOT (LISTP (PACKAGE-SHADOWING-SYMBOLS (FIND-PACKAGE 'KEYWORD)))) EQL-OK: NIL (NOT (LET ((DESIGNATOR-LIST (LIST 'CL 'COMMON-LISP "CL" "COMMON-LISP" (FIND-PACKAGE 'CL) 'CL-USER 'COMMON-LISP-USER "CL-USER" "COMMON-LISP-USER" (FIND-PACKAGE 'CL-USER) 'KEYWORD "KEYWORD" (FIND-PACKAGE 'KEYWORD)))) (EVERY #'SYMBOLP (MAPCAN #'(LAMBDA (DESIGNATOR) (COPY-LIST (PACKAGE-SHADOWING-SYMBOLS DESIGNATOR))) DESIGNATOR-LIST)))) EQL-OK: NIL (NOT (EVERY #'LISTP (MAPCAR #'PACKAGE-USE-LIST (LIST-ALL-PACKAGES)))) EQL-OK: NIL (NOT (EVERY #'PACKAGEP (MAPCAN #'(LAMBDA (PACKAGE) (COPY-LIST (PACKAGE-USE-LIST PACKAGE))) (LIST-ALL-PACKAGES)))) EQL-OK: NIL (NOT (LISTP (PACKAGE-USE-LIST 'CL))) EQL-OK: NIL (NOT (LISTP (PACKAGE-USE-LIST "CL-USER"))) EQL-OK: NIL (NOT (LISTP (PACKAGE-USE-LIST "COMMON-LISP"))) EQL-OK: NIL (NOT (LISTP (PACKAGE-USE-LIST (FIND-PACKAGE 'KEYWORD)))) EQL-OK: NIL (NOT (LET ((DESIGNATOR-LIST (LIST 'CL 'COMMON-LISP "CL" "COMMON-LISP" (FIND-PACKAGE 'CL) 'CL-USER 'COMMON-LISP-USER "CL-USER" "COMMON-LISP-USER" (FIND-PACKAGE 'CL-USER) 'KEYWORD "KEYWORD" (FIND-PACKAGE 'KEYWORD)))) (EVERY #'PACKAGEP (MAPCAN #'(LAMBDA (DESIGNATOR) (COPY-LIST (PACKAGE-USE-LIST DESIGNATOR))) DESIGNATOR-LIST)))) EQL-OK: NIL (NOT (EVERY #'LISTP (MAPCAR #'PACKAGE-USED-BY-LIST (LIST-ALL-PACKAGES)))) EQL-OK: NIL (NOT (EVERY #'PACKAGEP (MAPCAN #'(LAMBDA (PACKAGE) (COPY-LIST (PACKAGE-USED-BY-LIST PACKAGE))) (LIST-ALL-PACKAGES)))) EQL-OK: NIL (NOT (LISTP (PACKAGE-USED-BY-LIST 'CL))) EQL-OK: NIL (NOT (LISTP (PACKAGE-USED-BY-LIST "CL-USER"))) EQL-OK: NIL (NOT (LISTP (PACKAGE-USED-BY-LIST "COMMON-LISP"))) EQL-OK: NIL (NOT (LISTP (PACKAGE-USED-BY-LIST (FIND-PACKAGE 'KEYWORD)))) EQL-OK: NIL (NOT (LET ((DESIGNATOR-LIST (LIST 'CL 'COMMON-LISP "CL" "COMMON-LISP" (FIND-PACKAGE 'CL) 'CL-USER 'COMMON-LISP-USER "CL-USER" "COMMON-LISP-USER" (FIND-PACKAGE 'CL-USER) 'KEYWORD "KEYWORD" (FIND-PACKAGE 'KEYWORD)))) (EVERY #'PACKAGEP (MAPCAN #'(LAMBDA (DESIGNATOR) (COPY-LIST (PACKAGE-USED-BY-LIST DESIGNATOR))) DESIGNATOR-LIST)))) EQL-OK: NIL (NOT (PROGN (MAPCAR #'(LAMBDA (PACKAGE) (WHEN (FIND-PACKAGE PACKAGE) (DELETE-PACKAGE PACKAGE))) '("TB-FOO" "TB-FOO-RENAMED")) (LET* ((PACKAGE (MAKE-PACKAGE "TB-FOO" :USE NIL))) (AND (EQ (RENAME-PACKAGE "TB-FOO" "TB-FOO-RENAMED") PACKAGE) (EQ (FIND-PACKAGE "TB-FOO-RENAMED") PACKAGE))))) EQL-OK: NIL (NOT (PROGN (MAPCAR #'(LAMBDA (PACKAGE) (WHEN (FIND-PACKAGE PACKAGE) (DELETE-PACKAGE PACKAGE))) '("TB-FOO-0" "TB-FOO-1" "TB-FOO-2" "TB-FOO-3" "TB-FOO-4")) (LET* ((PACKAGE (MAKE-PACKAGE "TB-FOO-0" :USE NIL))) (AND (EQ (RENAME-PACKAGE "TB-FOO-0" "TB-FOO-1") PACKAGE) (EQ (RENAME-PACKAGE "TB-FOO-1" "TB-FOO-2") PACKAGE) (EQ (RENAME-PACKAGE "TB-FOO-2" "TB-FOO-3") PACKAGE) (EQ (RENAME-PACKAGE "TB-FOO-3" "TB-FOO-4") PACKAGE) (EQ (FIND-PACKAGE "TB-FOO-4") PACKAGE))))) EQL-OK: NIL (NOT (PROGN (MAPCAR #'(LAMBDA (PACKAGE) (WHEN (FIND-PACKAGE PACKAGE) (DELETE-PACKAGE PACKAGE))) '("TB-FOO-0" "TB-FOO-1" "TB-FOO-2" "TB-FOO-3" "TB-FOO-4")) (LET* ((PACKAGE (MAKE-PACKAGE "TB-FOO-0" :USE NIL))) (AND (EQ (RENAME-PACKAGE (FIND-PACKAGE "TB-FOO-0") "TB-FOO-1") PACKAGE) (EQ (RENAME-PACKAGE (FIND-PACKAGE "TB-FOO-1") "TB-FOO-2") PACKAGE) (EQ (RENAME-PACKAGE (FIND-PACKAGE "TB-FOO-2") "TB-FOO-3") PACKAGE) (EQ (RENAME-PACKAGE (FIND-PACKAGE "TB-FOO-3") "TB-FOO-4") PACKAGE) (EQ (FIND-PACKAGE "TB-FOO-4") PACKAGE))))) EQL-OK: NIL (NOT (PROGN (MAPCAR #'(LAMBDA (PACKAGE) (WHEN (FIND-PACKAGE PACKAGE) (DELETE-PACKAGE PACKAGE))) '(#\a #\b)) (LET ((PACKAGE (MAKE-PACKAGE #\a :USE NIL))) (AND (EQ (RENAME-PACKAGE #\a #\b) PACKAGE) (EQ (FIND-PACKAGE #\b) PACKAGE) (STRING= (PACKAGE-NAME PACKAGE) #\b))))) EQL-OK: NIL (NOT (LET ((NAME-LIST (LIST #\a 'B "TB-FOO-0" "TB-FOO-1" 'TEST-FOO-2))) (MAPCAR #'(LAMBDA (PACKAGE) (WHEN (FIND-PACKAGE PACKAGE) (DELETE-PACKAGE PACKAGE))) NAME-LIST) (LET* ((OLD (POP NAME-LIST)) (PACKAGE (MAKE-PACKAGE OLD :USE NIL))) (DOLIST (NEW NAME-LIST T) (UNLESS (EQ (RENAME-PACKAGE OLD NEW) PACKAGE) (RETURN NIL)) (SETQ OLD NEW))))) EQL-OK: NIL (NOT (PROGN (MAPCAR #'(LAMBDA (PACKAGE) (WHEN (FIND-PACKAGE PACKAGE) (DELETE-PACKAGE PACKAGE))) '("TB-FOO" "TB-FOO-RENAMED" "TB-FOO-NICKNAME-0" "TB-FOO-NICKNAME-1")) (LET* ((PACKAGE (MAKE-PACKAGE "TB-FOO" :USE NIL :NICKNAMES '("TB-FOO-NICKNAME-0" "TB-FOO-NICKNAME-1")))) (AND (EQ (RENAME-PACKAGE "TB-FOO" "TB-FOO-RENAMED") PACKAGE) (EQ (FIND-PACKAGE "TB-FOO-RENAMED") PACKAGE) (NULL (SET-DIFFERENCE (PACKAGE-NICKNAMES "TB-FOO-RENAMED") '("TB-FOO-NICKNAME-0" "TB-FOO-NICKNAME-1") :TEST #'STRING=)))))) EQL-OK: NIL (NOT (PROGN (MAPCAR #'(LAMBDA (PACKAGE) (WHEN (FIND-PACKAGE PACKAGE) (DELETE-PACKAGE PACKAGE))) '("TB-FOO-0" "TB-FOO-1" "TB-FOO-2" "TB-FOO-3" "TB-FOO-4" "TB-FOO-5")) (LET* ((PACKAGE (MAKE-PACKAGE "TB-FOO-0" :USE NIL :NICKNAMES '("TB-FOO-1" "TB-FOO-2")))) (AND (EQ (RENAME-PACKAGE PACKAGE "TB-FOO-3" '("TB-FOO-4" "TB-FOO-5")) PACKAGE) (EQ (FIND-PACKAGE "TB-FOO-3") PACKAGE) (EQ (FIND-PACKAGE "TB-FOO-4") PACKAGE) (EQ (FIND-PACKAGE "TB-FOO-5") PACKAGE) (NOT (EVERY #'FIND-PACKAGE '("TB-FOO-0" "TB-FOO-1" "TB-FOO-2"))))))) EQL-OK: NIL (NOT (PROGN (MAPCAR #'(LAMBDA (PACKAGE) (WHEN (FIND-PACKAGE PACKAGE) (DELETE-PACKAGE PACKAGE))) '("TB-FOO-0" "TB-FOO-1" "TB-FOO-2")) (LET* ((PACKAGE (MAKE-PACKAGE "TB-FOO-0" :USE NIL :NICKNAMES '("TB-FOO-1")))) (EQ (RENAME-PACKAGE PACKAGE "TB-FOO-1" '("TB-FOO-2")) PACKAGE)))) EQL-OK: NIL (NOT (PROGN (MAPCAR #'(LAMBDA (PACKAGE) (WHEN (FIND-PACKAGE PACKAGE) (DELETE-PACKAGE PACKAGE))) '("TB-FOO-0" "TB-FOO-1" "TB-FOO-2" "TB-FOO-3" "TB-FOO-4" "TB-FOO-5")) (LET* ((PACKAGE (MAKE-PACKAGE "TB-FOO-0" :USE NIL :NICKNAMES '("TB-FOO-1")))) (AND (EQ (RENAME-PACKAGE PACKAGE "TB-FOO-1" '("TB-FOO-2")) PACKAGE) (EQ (RENAME-PACKAGE PACKAGE "TB-FOO-2" '("TB-FOO-3")) PACKAGE) (EQ (RENAME-PACKAGE PACKAGE "TB-FOO-3" '("TB-FOO-4")) PACKAGE) (EQ (RENAME-PACKAGE PACKAGE "TB-FOO-4" '("TB-FOO-5")) PACKAGE) (EQ (RENAME-PACKAGE PACKAGE "TB-FOO-5" '("TB-FOO-0")) PACKAGE) (EQ (FIND-PACKAGE 'TEST-FOO-5) (FIND-PACKAGE 'TEST-FOO-0)))))) EQL-OK: NIL (NOT (PROGN (MAPCAR #'(LAMBDA (PACKAGE) (WHEN (FIND-PACKAGE PACKAGE) (DELETE-PACKAGE PACKAGE))) '("TB-FOO-0" "TB-FOO-1" "TB-FOO-2")) (LET* ((PACKAGE (MAKE-PACKAGE "TB-FOO-0" :USE NIL :NICKNAMES '("TB-FOO-1" "TB-FOO-2")))) (AND (EQ (RENAME-PACKAGE PACKAGE "TB-FOO-2" '("TB-FOO-3" "TB-FOO-1")) PACKAGE) (STRING= (PACKAGE-NAME PACKAGE) "TB-FOO-2") (NULL (SET-DIFFERENCE (PACKAGE-NICKNAMES PACKAGE) '("TB-FOO-3" "TB-FOO-1") :TEST #'STRING=)))))) EQL-OK: NIL (NOT (PROGN (MAPCAR #'(LAMBDA (PACKAGE) (WHEN (FIND-PACKAGE PACKAGE) (DELETE-PACKAGE PACKAGE))) '("TB-FOO-0" "TB-FOO-1" "TB-FOO-2")) (LET* ((PACKAGE (MAKE-PACKAGE "TB-FOO-0" :USE NIL :NICKNAMES '("TB-FOO-1" "TB-FOO-2")))) (AND (EQ (RENAME-PACKAGE PACKAGE "TB-FOO-3") PACKAGE) (STRING= (PACKAGE-NAME PACKAGE) "TB-FOO-3") (NULL (PACKAGE-NICKNAMES PACKAGE)))))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" "CL")) '(CAR :EXTERNAL))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CDR" "CL")) '(CDR :EXTERNAL))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CDR" 'CL)) '(CDR :EXTERNAL))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CDR" (FIND-PACKAGE 'CL))) '(CDR :EXTERNAL))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "NIL" "CL")) '(NIL :EXTERNAL))) EQL-OK: NIL (NOT (LET ((*PACKAGE* (FIND-PACKAGE 'CL))) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CDR")) '(CDR :EXTERNAL)))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "A" #\A)) '(NIL NIL)))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "A" "TB-FOO")) '(NIL NIL)))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (MULTIPLE-VALUE-BIND (SYMBOL0 STATUS0) (INTERN "A" "TB-FOO") (MULTIPLE-VALUE-BIND (SYMBOL1 STATUS1) (FIND-SYMBOL "A" "TB-FOO") (AND (EQ SYMBOL0 SYMBOL1) (NULL STATUS0) (EQ STATUS1 :INTERNAL)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE '("CL")) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" "TB-FOO")) '(CAR :INHERITED)))) EQL-OK: NIL (NOT (DO-EXTERNAL-SYMBOLS (SYMBOL "CL" T) (MULTIPLE-VALUE-BIND (SYMBOL-FOUND STATUS) (FIND-SYMBOL (SYMBOL-NAME SYMBOL) "COMMON-LISP-USER") (UNLESS (AND (EQ SYMBOL SYMBOL-FOUND) (EQ STATUS :INHERITED)) (ERROR "Symbol ~S is ~S" SYMBOL-FOUND STATUS))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE '("COMMON-LISP")))) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "APPEND")) '(APPEND :INHERITED)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "FIND")) '(FIND :INHERITED)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :INHERITED)))))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "NIL" 'CL)) '(NIL :EXTERNAL))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET* ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE (LIST 'CL))) (SYMBOL (INTERN "car" *PACKAGE*))) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "car")) (LIST SYMBOL :INTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) (LIST 'CAR :INHERITED)))))) EQL-OK: NIL (NOT (MEMBER 'CAR (FIND-ALL-SYMBOLS 'CAR))) EQL-OK: NIL (NOT (MEMBER 'CDR (FIND-ALL-SYMBOLS "CDR"))) EQL-OK: NIL (NOT (EVERY #'SYMBOLP (FIND-ALL-SYMBOLS "LOOP"))) EQL-OK: NIL (NOT (EVERY #'(LAMBDA (NAME) (STRING= NAME "FIND")) (MAPCAR #'SYMBOL-NAME (FIND-ALL-SYMBOLS "FIND")))) EQL-OK: NIL (NOT (DOLIST (NAME (LIST "CAR" "CDR" #\a #\A 'COMMON-LISP 'JOIN "" "XXX" "aA" "LONGLONGLONGLONGLONGLONGLONGLONGLONGLONG" 'LONG-LONG-LONG-LONG-LONG-LONG-NAME) T) (UNLESS (EVERY #'(LAMBDA (SYMBOL-NAME) (STRING= SYMBOL-NAME NAME)) (MAPCAR #'SYMBOL-NAME (FIND-ALL-SYMBOLS NAME))) (RETURN NIL)))) EQL-OK: NIL (NOT (SYMBOLP (INTERN "SYMBOL"))) EQL-OK: NIL (NOT (SYMBOLP (INTERN "long-long-name-in-lower-case"))) EQL-OK: NIL (NOT (EQUAL (MULTIPLE-VALUE-LIST (INTERN "NIL" 'CL)) '(NIL :EXTERNAL))) EQL-OK: NIL (NOT (MULTIPLE-VALUE-BIND (BOO STATUS) (INTERN "BOO") (AND (SYMBOLP BOO) (MEMBER STATUS '(NIL :INTERNAL :EXTERNAL :INHERITED)) (STRING= (SYMBOL-NAME BOO) "BOO")))) EQL-OK: NIL (NOT (LET ((*PACKAGE* (FIND-PACKAGE "CL"))) (EQUAL (MULTIPLE-VALUE-LIST (INTERN "CAR")) '(CAR :EXTERNAL)))) EQL-OK: NIL (NOT (LET ((*PACKAGE* (FIND-PACKAGE "KEYWORD"))) (EQUAL (MULTIPLE-VALUE-LIST (INTERN "TEST")) '(:TEST :EXTERNAL)))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (AND (MULTIPLE-VALUE-LIST (INTERN "BOO" 'TB-FOO)) (LIST (FIND-SYMBOL "BOO" 'TB-FOO) NIL) (EQ (SYMBOL-PACKAGE (FIND-SYMBOL "BOO" 'TB-FOO)) (FIND-PACKAGE 'TB-FOO))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE '(CL)))) (AND (EQ (INTERN "CAR") 'CAR) (EQUAL (MULTIPLE-VALUE-LIST (INTERN "ZZZ")) (LIST (FIND-SYMBOL "ZZZ") NIL)) (EQUAL (MULTIPLE-VALUE-LIST (INTERN "ZZZ")) (LIST (FIND-SYMBOL "ZZZ") :INTERNAL)) (EXPORT (FIND-SYMBOL "ZZZ")) (EQUAL (MULTIPLE-VALUE-LIST (INTERN "ZZZ")) (LIST (FIND-SYMBOL "ZZZ") :EXTERNAL)))))) EQL-OK: NIL (NOT (EQ (EXPORT NIL) T)) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) BUZ) (AND (SETQ BUZ (INTERN "BUZ")) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ")) (LIST BUZ :INTERNAL)) (EQ (EXPORT BUZ) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ")) (LIST BUZ :EXTERNAL)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE '(CL)))) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :INHERITED)) (EQ (EXPORT 'CAR) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :EXTERNAL)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE '(CL)))) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :INHERITED)) (EQ (EXPORT '(CAR)) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :EXTERNAL)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE '(CL)))) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :INHERITED)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CDR")) '(CDR :INHERITED)) (EQ (EXPORT '(CAR CDR)) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :EXTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CDR")) '(CDR :EXTERNAL)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE '(CL))) (BUZ (MAKE-SYMBOL "BUZ"))) (IMPORT BUZ) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :INHERITED)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CDR")) '(CDR :INHERITED)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ")) (LIST BUZ :INTERNAL)) (EQ (EXPORT (LIST 'CAR BUZ 'CDR)) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :EXTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CDR")) '(CDR :EXTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ")) (LIST BUZ :EXTERNAL)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (IMPORT 'CAR "A") (AND (EQ (EXPORT 'CAR "A") T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" "A")) '(CAR :EXTERNAL))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (IMPORT 'CAR "A") (AND (EQ (EXPORT 'CAR #\A) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" "A")) '(CAR :EXTERNAL))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (IMPORT 'CAR "A") (AND (EQ (EXPORT 'CAR 'A) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" "A")) '(CAR :EXTERNAL))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (IMPORT 'CAR "A") (AND (EQ (EXPORT 'CAR (FIND-PACKAGE 'A)) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" "A")) '(CAR :EXTERNAL))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE '(CL)))) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :INHERITED)) (EQ (EXPORT 'CAR) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :EXTERNAL)) (UNUSE-PACKAGE 'CL) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :EXTERNAL)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE")) (LET ((BUZ (INTERN "BUZ" 'TB-BAR-TO-USE))) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO)) '(NIL NIL)) (EXPORT BUZ 'TB-BAR-TO-USE) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO)) (LIST BUZ :INHERITED)))))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (EXPORT 'CAR "TB-FOO")) (PACKAGE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE")) (INTERN "BUZ" 'TB-FOO) (LET ((BUZ (INTERN "BUZ" 'TB-BAR-TO-USE))) (EXPORT BUZ 'TB-BAR-TO-USE))) (PACKAGE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) BUZ) (AND (EXPORT (SETQ BUZ (INTERN "BUZ"))) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ")) (LIST BUZ :EXTERNAL)) (EQ (UNEXPORT BUZ) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ")) (LIST BUZ :INTERNAL)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (LET (BUZ) (AND (EXPORT (SETQ BUZ (INTERN "BUZ" 'A)) 'A) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'A)) (LIST BUZ :EXTERNAL)) (EQ (UNEXPORT BUZ 'A) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'A)) (LIST BUZ :INTERNAL)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (LET (BUZ) (AND (EXPORT (SETQ BUZ (INTERN "BUZ" 'A)) 'A) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'A)) (LIST BUZ :EXTERNAL)) (EQ (UNEXPORT BUZ #\A) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'A)) (LIST BUZ :INTERNAL)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (LET (BUZ) (AND (EXPORT (SETQ BUZ (INTERN "BUZ" 'A)) 'A) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'A)) (LIST BUZ :EXTERNAL)) (EQ (UNEXPORT BUZ "A") T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'A)) (LIST BUZ :INTERNAL)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (LET (BUZ) (AND (EXPORT (SETQ BUZ (INTERN "BUZ" 'A)) 'A) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'A)) (LIST BUZ :EXTERNAL)) (EQ (UNEXPORT BUZ (FIND-PACKAGE "A")) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'A)) (LIST BUZ :INTERNAL)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (LET (BUZ) (AND (EXPORT (SETQ BUZ (INTERN "BUZ" 'TB-FOO)) 'TB-FOO) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO)) (LIST BUZ :EXTERNAL)) (EQ (UNEXPORT BUZ 'TB-FOO) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO)) (LIST BUZ :INTERNAL)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET* ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) (NAMES '("A" "BC" "DEF" "GHIJ")) (SYMBOLS (MAPCAR #'INTERN NAMES))) (AND (EXPORT SYMBOLS) (EQ (UNEXPORT SYMBOLS) T) (EVERY #'(LAMBDA (STATUS) (EQ STATUS :INTERNAL)) (MAPCAR #'(LAMBDA (NAME) (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL NAME)))) NAMES)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET* ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (IMPORT '(NIL)) (EXPORT '(NIL)) (AND (EQ (UNEXPORT 'NIL) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "NIL")) '(NIL :EXTERNAL)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET* ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (IMPORT '(NIL)) (EXPORT '(NIL)) (AND (EQ (UNEXPORT '(NIL)) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "NIL")) '(NIL :INTERNAL)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET* ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) (BAZ (INTERN "BAZ" *PACKAGE*))) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BAZ")) (LIST BAZ :INTERNAL)) (EQ (UNEXPORT (LIST BAZ) *PACKAGE*) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BAZ")) (LIST BAZ :INTERNAL)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET* ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) (BAZ (INTERN "BAZ" *PACKAGE*)) (WOO (INTERN "WOO" *PACKAGE*))) (EXPORT WOO) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BAZ")) (LIST BAZ :INTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "WOO")) (LIST WOO :EXTERNAL)) (EQ (UNEXPORT (LIST BAZ WOO) *PACKAGE*) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BAZ")) (LIST BAZ :INTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "WOO")) (LIST WOO :INTERNAL)))))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET* ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (UNEXPORT 'CAR))) (PACKAGE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET* ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) (BAZ (INTERN "BAZ" *PACKAGE*)) (WOO (INTERN "WOO" *PACKAGE*))) (EXPORT WOO) (UNEXPORT (LIST BAZ 'NIL WOO) *PACKAGE*))) (PACKAGE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (EQ (SHADOW 'NIL) T)) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (AND (EQ (SHADOW "A" 'TB-FOO) T) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "A" 'TB-FOO))) :INTERNAL) (EQUAL (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO) (LIST (FIND-SYMBOL "A" 'TB-FOO)))))) EQL-OK: NIL (NOT (EQ (SHADOW 'NIL) T)) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (AND (EQ (SHADOW #\A 'TB-FOO) T) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "A" 'TB-FOO))) :INTERNAL) (EQUAL (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO) (LIST (FIND-SYMBOL "A" 'TB-FOO)))))) EQL-OK: NIL (NOT (EQ (SHADOW 'NIL) T)) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (AND (EQ (SHADOW 'A 'TB-FOO) T) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "A" 'TB-FOO))) :INTERNAL) (EQUAL (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO) (LIST (FIND-SYMBOL "A" 'TB-FOO)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (AND (EQ (SHADOW '(A) 'TB-FOO) T) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "A" 'TB-FOO))) :INTERNAL) (EQUAL (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO) (LIST (FIND-SYMBOL "A" 'TB-FOO)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (AND (EQ (SHADOW '("A") 'TB-FOO) T) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "A" 'TB-FOO))) :INTERNAL) (EQUAL (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO) (LIST (FIND-SYMBOL "A" 'TB-FOO)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (AND (EQ (SHADOW '(#\A) 'TB-FOO) T) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "A" 'TB-FOO))) :INTERNAL) (EQUAL (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO) (LIST (FIND-SYMBOL "A" 'TB-FOO)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (AND (EQ (SHADOW "BUZ" #\A) T) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'A))) :INTERNAL) (EQUAL (PACKAGE-SHADOWING-SYMBOLS 'A) (LIST (FIND-SYMBOL "BUZ" 'A)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (AND (EQ (SHADOW "BUZ" "A") T) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'A))) :INTERNAL) (EQUAL (PACKAGE-SHADOWING-SYMBOLS 'A) (LIST (FIND-SYMBOL "BUZ" 'A)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (AND (EQ (SHADOW "BUZ" 'A) T) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'A))) :INTERNAL) (EQUAL (PACKAGE-SHADOWING-SYMBOLS 'A) (LIST (FIND-SYMBOL "BUZ" 'A)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (AND (EQ (SHADOW "BUZ" (FIND-PACKAGE 'A)) T) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'A))) :INTERNAL) (EQUAL (PACKAGE-SHADOWING-SYMBOLS 'A) (LIST (FIND-SYMBOL "BUZ" 'A)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) (NAMES '(A #\B "C" "BUZ"))) (AND (EQ (SHADOW NAMES) T) (EVERY #'(LAMBDA (NAME) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL (STRING NAME)))) :INTERNAL)) NAMES) (NULL (SET-DIFFERENCE (MAPCAR #'FIND-SYMBOL (MAPCAR #'STRING NAMES)) (PACKAGE-SHADOWING-SYMBOLS *PACKAGE*))))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE '(CL))) (NAMES '(A #\B "C" "BUZ" "CAR")) A B C) (SETQ A (INTERN "A")) (EXPORT (SETQ B (INTERN "B"))) (SHADOWING-IMPORT (SETQ C (INTERN "C"))) (AND (EQ (SHADOW NAMES) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "A")) (LIST A :INTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "B")) (LIST B :EXTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "C")) (LIST C :INTERNAL)) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ"))) :INTERNAL) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR"))) :INTERNAL) (NOT (EQ (CAR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR"))) 'CAR)) (NULL (SET-DIFFERENCE (MAPCAR #'FIND-SYMBOL (MAPCAR #'STRING NAMES)) (PACKAGE-SHADOWING-SYMBOLS *PACKAGE*))))))) EQL-OK: NIL (NOT (EQ (SHADOWING-IMPORT 'NIL) T)) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (SHADOWING-IMPORT 'NIL (MAKE-PACKAGE "TB-FOO" :USE NIL)) (LET ((LIST NIL)) (NULL (DO-SYMBOLS (SYMBOL "TB-FOO" LIST) (PUSH SYMBOL LIST)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (AND (NOT (FIND-SYMBOL "CAR")) (NOT (FIND-SYMBOL "CDR")) (NOT (FIND-SYMBOL "LIST")) (EQ (SHADOWING-IMPORT '(CAR CDR LIST)) T) (EQ (FIND-SYMBOL "CAR") 'CAR) (EQ (FIND-SYMBOL "CDR") 'CDR) (EQ (FIND-SYMBOL "LIST") 'LIST))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET* ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE (LIST 'CL))) (NAMES '("CAR" "CDR" "LIST" "APPEND")) (SYMBOLS (MAPCAR #'MAKE-SYMBOL NAMES))) (AND (EQ (SHADOWING-IMPORT SYMBOLS) T) (EVERY #'EQ SYMBOLS (MAPCAR #'FIND-SYMBOL NAMES)) (EVERY #'(LAMBDA (SYMBOL) (MEMBER SYMBOL (PACKAGE-SHADOWING-SYMBOLS *PACKAGE*))) SYMBOLS))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (LET ((SYMBOL (MAKE-SYMBOL "CAR"))) (AND (EQ (SHADOWING-IMPORT SYMBOL "A") T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" "A")) (LIST SYMBOL :INTERNAL)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (LET ((SYMBOL (MAKE-SYMBOL "CAR"))) (AND (EQ (SHADOWING-IMPORT SYMBOL #\A) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" "A")) (LIST SYMBOL :INTERNAL)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (LET ((SYMBOL (MAKE-SYMBOL "CAR"))) (AND (EQ (SHADOWING-IMPORT SYMBOL 'A) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" "A")) (LIST SYMBOL :INTERNAL)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (LET ((SYMBOL (MAKE-SYMBOL "CAR"))) (AND (EQ (SHADOWING-IMPORT SYMBOL (FIND-PACKAGE 'A)) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" "A")) (LIST SYMBOL :INTERNAL)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (LET ((BUZ0 (INTERN "BUZ" 'TB-FOO)) (BUZ1 (MAKE-SYMBOL "BUZ"))) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO)) (LIST BUZ0 :INTERNAL)) (EQ (SHADOWING-IMPORT BUZ1 'TB-FOO) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO)) (LIST BUZ1 :INTERNAL)) (EQUAL (LIST BUZ1) (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO)) (UNINTERN BUZ1 'TB-FOO) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO)) '(NIL NIL)) (NULL (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (LET ((BUZ0 (INTERN "BUZ" 'TB-FOO)) (BUZ1 (MAKE-SYMBOL "BUZ"))) (SHADOW BUZ0 'TB-FOO) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO)) (LIST BUZ0 :INTERNAL)) (EQ (SHADOWING-IMPORT BUZ1 'TB-FOO) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO)) (LIST BUZ1 :INTERNAL)) (EQUAL (LIST BUZ1) (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO)) (UNINTERN BUZ1 'TB-FOO) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO)) '(NIL NIL)) (NULL (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (LET ((BUZ0 (INTERN "BUZ" 'TB-FOO)) (BUZ1 (MAKE-SYMBOL "BUZ"))) (EXPORT BUZ0 'TB-FOO) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO)) (LIST BUZ0 :EXTERNAL)) (EQ (SHADOWING-IMPORT BUZ1 'TB-FOO) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO)) (LIST BUZ1 :INTERNAL)) (EQUAL (LIST BUZ1) (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO)) (UNINTERN BUZ1 'TB-FOO) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO)) '(NIL NIL)) (NULL (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (LET ((BUZ0 (INTERN "BUZ" 'TB-FOO)) (BUZ1 (MAKE-SYMBOL "BUZ"))) (EXPORT BUZ0 'TB-FOO) (SHADOW BUZ0 'TB-FOO) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO)) (LIST BUZ0 :EXTERNAL)) (EQ (SHADOWING-IMPORT BUZ1 'TB-FOO) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO)) (LIST BUZ1 :INTERNAL)) (EQUAL (LIST BUZ1) (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO)) (UNINTERN BUZ1 'TB-FOO) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO)) '(NIL NIL)) (NULL (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO)))))) EQL-OK: NIL (NOT (EQ (IMPORT 'NIL) T)) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (LET ((LIST NIL)) (AND (EQ (IMPORT 'NIL "TB-FOO") T) (NULL (DO-SYMBOLS (SYMBOL "TB-FOO" LIST) (PUSH SYMBOL LIST))))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (AND (NOT (FIND-SYMBOL "CAR" 'A)) (EQ (IMPORT 'CAR 'A) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" 'A)) '(CAR :INTERNAL))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (AND (NOT (FIND-SYMBOL "CAR" 'A)) (EQ (IMPORT 'CAR #\A) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" 'A)) '(CAR :INTERNAL))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (AND (NOT (FIND-SYMBOL "CAR" 'A)) (EQ (IMPORT 'CAR "A") T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" 'A)) '(CAR :INTERNAL))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (AND (NOT (FIND-SYMBOL "CAR" 'A)) (EQ (IMPORT 'CAR (FIND-PACKAGE "A")) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" 'A)) '(CAR :INTERNAL))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (AND (NOT (FIND-SYMBOL "CAR" 'TB-FOO)) (EQ (IMPORT 'CAR 'TB-FOO) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" 'TB-FOO)) '(CAR :INTERNAL))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (AND (NOT (FIND-SYMBOL "CAR" 'TB-FOO)) (EQ (IMPORT (LIST 'CAR 'CDR 'LIST :TEST) 'TB-FOO) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" 'TB-FOO)) '(CAR :INTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CDR" 'TB-FOO)) '(CDR :INTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "TEST" 'TB-FOO)) '(:TEST :INTERNAL))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (AND (NOT (FIND-SYMBOL "CAR" 'TB-FOO)) (EQ (IMPORT (LIST 'CAR 'CDR 'LIST :TEST)) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" 'TB-FOO)) '(CAR :INTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CDR" 'TB-FOO)) '(CDR :INTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "TEST" 'TB-FOO)) '(:TEST :INTERNAL)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET (BUZ) (MAKE-PACKAGE "TB-FOO" :USE NIL) (AND (EXPORT (SETQ BUZ (INTERN "BUZ" "TB-FOO")) "TB-FOO") (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" "TB-FOO")) (LIST BUZ :EXTERNAL)) (EQ (IMPORT BUZ "TB-FOO") T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" "TB-FOO")) (LIST BUZ :EXTERNAL)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET (BUZ) (MAKE-PACKAGE "TB-FOO" :USE NIL) (AND (SETQ BUZ (INTERN "BUZ" "TB-FOO")) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" "TB-FOO")) (LIST BUZ :INTERNAL)) (EQ (IMPORT BUZ "TB-FOO") T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" "TB-FOO")) (LIST BUZ :INTERNAL)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE '(CL)))) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :INHERITED)) (EQ (IMPORT 'CAR) T) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :INTERNAL)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (LET ((BUZ (MAKE-SYMBOL "BUZ"))) (AND (NULL (SYMBOL-PACKAGE BUZ)) (EQ (IMPORT BUZ 'TB-FOO) T) (EQ (SYMBOL-PACKAGE BUZ) (FIND-PACKAGE 'TB-FOO)))))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE '(CL)))) (IMPORT (MAKE-SYMBOL "CAR")))) (PACKAGE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (INTERN "BUZ") (IMPORT (MAKE-SYMBOL "BUZ")))) (PACKAGE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (EXPORT (INTERN "BUZ")) (IMPORT (MAKE-SYMBOL "BUZ")))) (PACKAGE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (SHADOWING-IMPORT (MAKE-SYMBOL "BUZ")) (IMPORT (MAKE-SYMBOL "BUZ")))) (PACKAGE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (NOT (UNINTERN 'CAR "TB-FOO")))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (AND (UNINTERN (INTERN "BUZ" "TB-FOO") "TB-FOO") (NOT (FIND-SYMBOL "BUZ" "TB-FOO"))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (NOT (UNINTERN 'CAR))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (AND (UNINTERN (INTERN "BUZ")) (NOT (FIND-SYMBOL "BUZ")))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (AND (UNINTERN (INTERN "BUZ" "A") #\A) (NOT (FIND-SYMBOL "BUZ" "A"))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (AND (UNINTERN (INTERN "BUZ" "A") "A") (NOT (FIND-SYMBOL "BUZ" "A"))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (AND (UNINTERN (INTERN "BUZ" "A") 'A) (NOT (FIND-SYMBOL "BUZ" "A"))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (AND (UNINTERN (INTERN "BUZ" "A") (FIND-PACKAGE 'A)) (NOT (FIND-SYMBOL "BUZ" "A"))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE '(CL)))) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :INHERITED)) (NOT (UNINTERN 'CAR)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (AND (IMPORT 'CAR) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :INTERNAL)) (UNINTERN 'CAR) (NOT (FIND-SYMBOL "CAR")))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE '(CL)))) (AND (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :INHERITED)) (IMPORT 'CAR) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :INTERNAL)) (UNINTERN 'CAR) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) '(CAR :INHERITED)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) (BUZ (MAKE-SYMBOL "BUZ"))) (AND (NULL (SYMBOL-PACKAGE BUZ)) (IMPORT BUZ) (SHADOW BUZ) (EQ (SYMBOL-PACKAGE BUZ) *PACKAGE*) (MEMBER BUZ (PACKAGE-SHADOWING-SYMBOLS *PACKAGE*)) (UNINTERN BUZ) (NOT (FIND-SYMBOL "BUZ")) (NOT (MEMBER BUZ (PACKAGE-SHADOWING-SYMBOLS *PACKAGE*))) (NULL (SYMBOL-PACKAGE BUZ)))))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) SYMBOL) (AND (SETQ SYMBOL (INTERN "CAR")) (SHADOW "CAR") (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (EXPORT (INTERN "CAR" "TB-BAR-TO-USE") "TB-BAR-TO-USE") (USE-PACKAGE (LIST "TB-BAR-TO-USE" "CL")) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) (LIST SYMBOL :INTERNAL)) (UNINTERN SYMBOL)))) (PACKAGE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) SYMBOL) (AND (SETQ SYMBOL (INTERN "CAR")) (SHADOW "CAR") (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (IMPORT 'CAR "TB-BAR-TO-USE") (EXPORT 'CAR "TB-BAR-TO-USE") (USE-PACKAGE (LIST "TB-BAR-TO-USE" "CL")) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) (LIST SYMBOL :INTERNAL)) (UNINTERN SYMBOL))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (AND (NOT (FIND-SYMBOL "CAR")) (EQ (USE-PACKAGE 'CL) T) (FIND-SYMBOL "CAR"))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (AND (NOT (FIND-SYMBOL "CAR")) (EQ (USE-PACKAGE "COMMON-LISP") T) (FIND-SYMBOL "CAR"))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (AND (NOT (FIND-SYMBOL "CAR")) (EQ (USE-PACKAGE (FIND-PACKAGE "COMMON-LISP")) T) (FIND-SYMBOL "CAR"))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (AND (NOT (FIND-SYMBOL "CAR")) (EQ (USE-PACKAGE '(CL)) T) (FIND-SYMBOL "CAR"))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (AND (NOT (FIND-SYMBOL "CAR")) (EQ (USE-PACKAGE '("COMMON-LISP")) T) (FIND-SYMBOL "CAR"))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (AND (NOT (FIND-SYMBOL "CAR")) (EQ (USE-PACKAGE (LIST (FIND-PACKAGE "COMMON-LISP"))) T) (FIND-SYMBOL "CAR"))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PACKAGE (MAKE-PACKAGE "TB-FOO" :USE NIL)) (*PACKAGE* (FIND-PACKAGE 'CL-USER))) (AND (NOT (FIND-SYMBOL "CAR" PACKAGE)) (EQ (USE-PACKAGE (LIST (FIND-PACKAGE "COMMON-LISP")) PACKAGE) T) (FIND-SYMBOL "CAR" PACKAGE))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PACKAGE (MAKE-PACKAGE "TB-FOO" :USE NIL)) (*PACKAGE* (FIND-PACKAGE 'CL-USER))) (AND (NOT (FIND-SYMBOL "CAR" PACKAGE)) (EQ (USE-PACKAGE (LIST (FIND-PACKAGE "COMMON-LISP")) "TB-FOO") T) (FIND-SYMBOL "CAR" PACKAGE))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PACKAGE (MAKE-PACKAGE "TB-FOO" :USE NIL)) (*PACKAGE* (FIND-PACKAGE 'CL-USER))) (AND (NOT (FIND-SYMBOL "CAR" PACKAGE)) (EQ (USE-PACKAGE (LIST (FIND-PACKAGE "COMMON-LISP")) 'TB-FOO) T) (FIND-SYMBOL "CAR" PACKAGE))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PACKAGE (MAKE-PACKAGE "TB-FOO" :USE NIL)) (*PACKAGE* (FIND-PACKAGE 'CL-USER))) (AND (NOT (FIND-SYMBOL "CAR" PACKAGE)) (EQ (USE-PACKAGE (LIST (FIND-PACKAGE "COMMON-LISP")) (FIND-PACKAGE 'TB-FOO)) T) (FIND-SYMBOL "CAR" PACKAGE))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (AND (USE-PACKAGE 'CL) (MEMBER (FIND-PACKAGE 'CL) (PACKAGE-USE-LIST *PACKAGE*)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (LET* ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) BOO WOO BUZ) (AND (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (EXPORT (LIST (SETQ BOO (INTERN "BOO" 'TB-BAR-TO-USE))) 'TB-BAR-TO-USE) (SETQ WOO (INTERN "WOO")) (EXPORT (LIST (SETQ BUZ (INTERN "BUZ")))) (USE-PACKAGE (LIST 'TB-BAR-TO-USE 'CL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BOO")) (LIST BOO :INHERITED)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "WOO")) (LIST WOO :INTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ")) (LIST BUZ :EXTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR")) (LIST 'CAR :INHERITED)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "LIST")) (LIST 'LIST :INHERITED)))))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (INTERN "CAR" 'TB-FOO) (USE-PACKAGE 'CL 'TB-FOO)) (PACKAGE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (MAKE-PACKAGE "TB-FOO" :USE NIL) (EXPORT (INTERN "CAR" 'TB-FOO) 'TB-FOO) (USE-PACKAGE 'CL 'TB-FOO)) (PACKAGE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-FOO" :USE '(CL)) (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (EXPORT (INTERN "CAR" 'TB-BAR-TO-USE) 'TB-BAR-TO-USE) (USE-PACKAGE 'TB-BAR-TO-USE 'TB-FOO)) (PACKAGE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO-TO-USE") (UNUSE-PACKAGE (PACKAGE-USE-LIST "TB-FOO-TO-USE") "TB-FOO-TO-USE")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (UNUSE-PACKAGE (PACKAGE-USE-LIST "TB-BAR-TO-USE") "TB-BAR-TO-USE")) (WHEN (FIND-PACKAGE "TB-FOO-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-FOO-TO-USE")) (DELETE-PACKAGE "TB-FOO-TO-USE")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (AND (MAKE-PACKAGE "TB-FOO-TO-USE" :USE NIL) (MAKE-PACKAGE "TB-BAR-TO-USE" :USE '("TB-FOO-TO-USE")) (USE-PACKAGE "TB-BAR-TO-USE" "TB-FOO-TO-USE") (EXPORT (INTERN "FOO" "TB-FOO-TO-USE") "TB-FOO-TO-USE") (EXPORT (INTERN "BAR" "TB-BAR-TO-USE") "TB-BAR-TO-USE") (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "FOO" "TB-FOO-TO-USE"))) :EXTERNAL) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BAR" "TB-FOO-TO-USE"))) :INHERITED) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "FOO" "TB-BAR-TO-USE"))) :INHERITED) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BAR" "TB-BAR-TO-USE"))) :EXTERNAL) (UNUSE-PACKAGE (PACKAGE-USE-LIST "TB-FOO-TO-USE") "TB-FOO-TO-USE") (UNUSE-PACKAGE (PACKAGE-USE-LIST "TB-BAR-TO-USE") "TB-BAR-TO-USE")))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "a") (DELETE-PACKAGE "a")) (AND (MAKE-PACKAGE "a" :USE NIL) (DELETE-PACKAGE "a") (NOT (FIND-PACKAGE "a"))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "a") (DELETE-PACKAGE "a")) (AND (MAKE-PACKAGE "a" :USE NIL) (DELETE-PACKAGE #\a) (NOT (FIND-PACKAGE "a"))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "a") (DELETE-PACKAGE "a")) (AND (MAKE-PACKAGE "a" :USE NIL) (DELETE-PACKAGE '|a|) (NOT (FIND-PACKAGE "a"))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "a") (DELETE-PACKAGE "a")) (AND (MAKE-PACKAGE "a" :USE NIL) (DELETE-PACKAGE (FIND-PACKAGE '|a|)) (NOT (FIND-PACKAGE "a"))))) EQL-OK: NIL (NOT (PROGN (MAPC #'(LAMBDA (NAME) (WHEN (FIND-PACKAGE NAME) (DELETE-PACKAGE NAME))) '("a" "b" "c" "d" "e")) (AND (MAKE-PACKAGE "a" :NICKNAMES '("b" "c" "d" "e") :USE NIL) (DELETE-PACKAGE "a") (NOT (FIND-PACKAGE "a")) (NOT (FIND-PACKAGE "b")) (NOT (FIND-PACKAGE "c")) (NOT (FIND-PACKAGE "d")) (NOT (FIND-PACKAGE "e"))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PACKAGE (MAKE-PACKAGE "TB-FOO" :USE NIL))) (AND (DELETE-PACKAGE "TB-FOO") (NOT (FIND-PACKAGE "TB-FOO")) (PACKAGEP PACKAGE) (NULL (PACKAGE-NAME PACKAGE)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PACKAGE (MAKE-PACKAGE "TB-FOO" :USE NIL))) (AND (DELETE-PACKAGE "TB-FOO") (NOT (MEMBER PACKAGE (LIST-ALL-PACKAGES))))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PACKAGE (MAKE-PACKAGE "TB-FOO" :USE NIL))) (AND (DELETE-PACKAGE "TB-FOO") (NULL (DELETE-PACKAGE PACKAGE)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((CAR-HOME-PACKAGE (SYMBOL-PACKAGE 'CAR))) (AND (MAKE-PACKAGE "TB-FOO" :USE NIL) (IMPORT 'CAR "TB-FOO") (DELETE-PACKAGE 'TB-FOO) (EQ 'CAR (FIND-SYMBOL "CAR" 'CL)) (EQ (SYMBOL-PACKAGE 'CAR) CAR-HOME-PACKAGE) (EQ (INTERN "CAR" 'CL) 'CAR))))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (AND (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (MAKE-PACKAGE "TB-FOO" :USE '("TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE"))) (PACKAGE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (IN-PACKAGE CL-USER) (EQ *PACKAGE* (FIND-PACKAGE 'CL-USER))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL))) (IN-PACKAGE "CL-USER") (EQ *PACKAGE* (FIND-PACKAGE 'CL-USER))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (LET ((*PACKAGE* *PACKAGE*)) (IN-PACKAGE "A") (EQ *PACKAGE* (FIND-PACKAGE 'A))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (LET ((*PACKAGE* *PACKAGE*)) (IN-PACKAGE #\A) (EQ *PACKAGE* (FIND-PACKAGE 'A))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (MAKE-PACKAGE "A" :USE NIL) (LET ((*PACKAGE* *PACKAGE*)) (IN-PACKAGE A) (EQ *PACKAGE* (FIND-PACKAGE 'A))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (HANDLER-CASE (PROGN (IN-PACKAGE "A")) (PACKAGE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (PACKAGEP (DEFPACKAGE #\A)))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (PACKAGEP (DEFPACKAGE A)))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "A") (DELETE-PACKAGE "A")) (PACKAGEP (DEFPACKAGE "A")))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO")) (NULL (PACKAGE-NICKNAMES 'TB-FOO)) (NULL (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:NICKNAMES))) (NULL (PACKAGE-NICKNAMES 'TB-FOO))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:NICKNAMES) (:SHADOW))) (NULL (PACKAGE-NICKNAMES 'TB-FOO)) (NULL (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:NICKNAMES) (:SHADOW) (:SHADOWING-IMPORT-FROM COMMON-LISP))) (NULL (PACKAGE-NICKNAMES 'TB-FOO)) (NULL (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO))))) EQL-OK: NIL (NOT (PROGN (MAPC #'(LAMBDA (NAME) (WHEN (FIND-PACKAGE NAME) (DELETE-PACKAGE NAME))) '("TB-FOO" "TB-FOO-NICKNAME-1" "TB-FOO-NICKNAME-2" "TB-FOO-NICKNAME-3")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:NICKNAMES TB-FOO-NICKNAME-1))) (EQUAL (PACKAGE-NICKNAMES 'TB-FOO) '("TB-FOO-NICKNAME-1"))))) EQL-OK: NIL (NOT (PROGN (MAPC #'(LAMBDA (NAME) (WHEN (FIND-PACKAGE NAME) (DELETE-PACKAGE NAME))) '("A" "B" "C" "D")) (AND (PACKAGEP (DEFPACKAGE "A" (:NICKNAMES #\B C "D"))) (NULL (SET-DIFFERENCE (PACKAGE-NICKNAMES 'A) '("B" "C" "D") :TEST #'STRING=))))) EQL-OK: NIL (NOT (PROGN (MAPC #'(LAMBDA (NAME) (WHEN (FIND-PACKAGE NAME) (DELETE-PACKAGE NAME))) '("A" "B" "C" "D")) (AND (PACKAGEP (DEFPACKAGE "A" (:NICKNAMES) (:NICKNAMES #\B) (:NICKNAMES C "D"))) (NULL (SET-DIFFERENCE (PACKAGE-NICKNAMES 'A) '("B" "C" "D") :TEST #'STRING=))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:USE))) (NULL (PACKAGE-USE-LIST 'TB-FOO))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:USE CL))) (EQUAL (PACKAGE-USE-LIST 'TB-FOO) (LIST (FIND-PACKAGE 'CL)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:USE CL TB-BAR-TO-USE))) (NULL (SET-DIFFERENCE (PACKAGE-USE-LIST 'TB-FOO) (MAPCAR #'FIND-PACKAGE '(CL TB-BAR-TO-USE))))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:USE CL) (:USE) (:USE TB-BAR-TO-USE))) (NULL (SET-DIFFERENCE (PACKAGE-USE-LIST 'TB-FOO) (MAPCAR #'FIND-PACKAGE '(CL TB-BAR-TO-USE))))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:USE CL) (:USE) (:USE "TB-BAR-TO-USE"))) (NULL (SET-DIFFERENCE (PACKAGE-USE-LIST 'TB-FOO) (MAPCAR #'FIND-PACKAGE '(CL TB-BAR-TO-USE))))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "B") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "B")) (DELETE-PACKAGE "B")) (MAKE-PACKAGE "B" :USE NIL) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:USE CL) (:USE) (:USE "B"))) (NULL (SET-DIFFERENCE (PACKAGE-USE-LIST 'TB-FOO) (MAPCAR #'FIND-PACKAGE '(CL B))))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "B") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "B")) (DELETE-PACKAGE "B")) (MAKE-PACKAGE "B" :USE NIL) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:USE CL) (:USE) (:USE #\B))) (NULL (SET-DIFFERENCE (PACKAGE-USE-LIST 'TB-FOO) (MAPCAR #'FIND-PACKAGE '(CL B))))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "B") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "B")) (DELETE-PACKAGE "B")) (MAKE-PACKAGE "B" :USE NIL) (AND (PACKAGEP (EVAL `(DEFPACKAGE "TB-FOO" (:USE CL) (:USE) (:USE ,(FIND-PACKAGE #\B))))) (NULL (SET-DIFFERENCE (PACKAGE-USE-LIST 'TB-FOO) (MAPCAR #'FIND-PACKAGE '(CL B))))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:SHADOW))) (NULL (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:SHADOW "A"))) (EQUAL (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO) (LIST (FIND-SYMBOL "A" 'TB-FOO)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:SHADOW A #\b "c" "D"))) (NULL (SET-DIFFERENCE (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO) (MAPCAR #'(LAMBDA (NAME) (FIND-SYMBOL NAME 'TB-FOO)) '("A" "b" "c" "D"))))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:SHADOW A) (:SHADOW) (:SHADOW #\b "c" "D")))) (NULL (SET-DIFFERENCE (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO) (MAPCAR #'(LAMBDA (NAME) (FIND-SYMBOL NAME 'TB-FOO)) '("A" "b" "c" "D")))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:SHADOWING-IMPORT-FROM CL)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:SHADOWING-IMPORT-FROM "COMMON-LISP"))) (NULL (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:SHADOWING-IMPORT-FROM "COMMON-LISP" CAR CDR LIST))) (EVERY #'(LAMBDA (NAME) (FIND-SYMBOL NAME 'TB-FOO)) '("CAR" "CDR" "LIST")) (NULL (SET-DIFFERENCE (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO) '(CAR CDR LIST)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:SHADOWING-IMPORT-FROM "COMMON-LISP" CAR CDR) (:SHADOWING-IMPORT-FROM "COMMON-LISP") (:SHADOWING-IMPORT-FROM "COMMON-LISP" LIST))) (EVERY #'(LAMBDA (NAME) (FIND-SYMBOL NAME 'TB-FOO)) '("CAR" "CDR" "LIST")) (NULL (SET-DIFFERENCE (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO) '(CAR CDR LIST)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (LET ((BUZ (INTERN "BUZ" 'TB-BAR-TO-USE))) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:SHADOWING-IMPORT-FROM "COMMON-LISP" CAR CDR) (:SHADOWING-IMPORT-FROM TB-BAR-TO-USE "BUZ"))) (EVERY #'(LAMBDA (NAME) (FIND-SYMBOL NAME 'TB-FOO)) '("CAR" "CDR")) (NULL (SET-DIFFERENCE (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO) (LIST 'CAR 'CDR BUZ))))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (LET ((BUZ (INTERN "BUZ" 'TB-BAR-TO-USE)) (BAZ (INTERN "BAZ" 'TB-BAR-TO-USE))) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:SHADOWING-IMPORT-FROM "COMMON-LISP" CAR CDR) (:SHADOWING-IMPORT-FROM TB-BAR-TO-USE "BUZ" "BAZ"))) (EVERY #'(LAMBDA (NAME) (FIND-SYMBOL NAME 'TB-FOO)) '("CAR" "CDR" "BUZ" "BAZ")) (NULL (SET-DIFFERENCE (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO) (LIST 'CAR 'CDR BUZ BAZ))))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (LET ((BUZ (INTERN "BUZ" 'TB-BAR-TO-USE)) (BAZ (INTERN "BAZ" 'TB-BAR-TO-USE))) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:SHADOW "BOO") (:SHADOWING-IMPORT-FROM "COMMON-LISP" CAR CDR) (:SHADOWING-IMPORT-FROM TB-BAR-TO-USE "BUZ" "BAZ"))) (EVERY #'(LAMBDA (NAME) (FIND-SYMBOL NAME 'TB-FOO)) '("CAR" "CDR" "BUZ" "BAZ" "BOO")) (NULL (SET-DIFFERENCE (PACKAGE-SHADOWING-SYMBOLS 'TB-FOO) (LIST 'CAR 'CDR BUZ BAZ (FIND-SYMBOL "BOO" 'TB-FOO)))))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (EVAL `(DEFPACKAGE "TB-FOO" (:SHADOWING-IMPORT-FROM ,(FIND-PACKAGE 'CL) "CAR" "CDR")))) (EVERY #'(LAMBDA (NAME) (FIND-SYMBOL NAME 'TB-FOO)) '("CAR" "CDR"))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (EVAL `(DEFPACKAGE "TB-FOO" (:IMPORT-FROM ,(FIND-PACKAGE 'CL) "CAR" "CDR")))) (EVERY #'(LAMBDA (NAME) (FIND-SYMBOL NAME 'TB-FOO)) '("CAR" "CDR"))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (PACKAGEP (DEFPACKAGE "TB-FOO" (:IMPORT-FROM CL))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:IMPORT-FROM CL "CAR" "CDR"))) (EVERY #'(LAMBDA (NAME) (FIND-SYMBOL NAME 'TB-FOO)) '("CAR" "CDR"))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:IMPORT-FROM "COMMON-LISP" CAR CDR LIST))) (EVERY #'(LAMBDA (NAME) (FIND-SYMBOL NAME 'TB-FOO)) '("CAR" "CDR" "LIST"))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:IMPORT-FROM "COMMON-LISP" CAR CDR) (:IMPORT-FROM "COMMON-LISP") (:IMPORT-FROM "COMMON-LISP" LIST))) (EVERY #'(LAMBDA (NAME) (FIND-SYMBOL NAME 'TB-FOO)) '("CAR" "CDR" "LIST"))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (LET ((BUZ (INTERN "BUZ" 'TB-BAR-TO-USE))) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:IMPORT-FROM "COMMON-LISP" CAR CDR) (:IMPORT-FROM TB-BAR-TO-USE "BUZ"))) (EVERY #'(LAMBDA (NAME) (FIND-SYMBOL NAME 'TB-FOO)) '("CAR" "CDR")) (EQ (FIND-SYMBOL "BUZ" 'TB-FOO) BUZ))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (LET ((BUZ (INTERN "BUZ" 'TB-BAR-TO-USE)) (BAZ (INTERN "BAZ" 'TB-BAR-TO-USE))) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:IMPORT-FROM "COMMON-LISP" CAR CDR) (:IMPORT-FROM TB-BAR-TO-USE "BUZ" "BAZ"))) (EVERY #'(LAMBDA (NAME) (FIND-SYMBOL NAME 'TB-FOO)) '("CAR" "CDR" "BUZ" "BAZ")) (EQ (FIND-SYMBOL "BUZ" 'TB-FOO) BUZ) (EQ (FIND-SYMBOL "BAZ" 'TB-FOO) BAZ))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (PACKAGEP (DEFPACKAGE "TB-FOO" (:EXPORT))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (PACKAGEP (DEFPACKAGE "TB-FOO" (:EXPORT) (:EXPORT))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:EXPORT "A"))) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "A" 'TB-FOO))) :EXTERNAL)))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:EXPORT "A" "B" "C"))) (EVERY #'(LAMBDA (NAME) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL NAME 'TB-FOO))) :EXTERNAL)) '("A" "B" "C"))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:EXPORT "A" "B" "C"))) (EVERY #'(LAMBDA (NAME) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL NAME 'TB-FOO))) :EXTERNAL)) '("A" "B" "C"))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:EXPORT "A") (:EXPORT "B") (:EXPORT "C"))) (EVERY #'(LAMBDA (NAME) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL NAME 'TB-FOO))) :EXTERNAL)) '("A" "B" "C"))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:EXPORT "A" "B" "C" "CAR") (:USE CL))) (EVERY #'(LAMBDA (NAME) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL NAME 'TB-FOO))) :EXTERNAL)) '("A" "B" "C" "CAR")) (EQ (FIND-SYMBOL "CAR" 'TB-FOO) 'CAR)))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:EXPORT "A" "B" "C" "CAR") (:IMPORT-FROM CL "CAR"))) (EVERY #'(LAMBDA (NAME) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL NAME 'TB-FOO))) :EXTERNAL)) '("A" "B" "C" "CAR")) (EQ (FIND-SYMBOL "CAR" 'TB-FOO) 'CAR)))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:EXPORT "A" "B" "C" "CAR") (:SHADOWING-IMPORT-FROM CL "CAR"))) (EVERY #'(LAMBDA (NAME) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL NAME 'TB-FOO))) :EXTERNAL)) '("A" "B" "C" "CAR")) (EQ (FIND-SYMBOL "CAR" 'TB-FOO) 'CAR)))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (LET ((BUZ (INTERN "BUZ" 'TB-BAR-TO-USE))) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:EXPORT "A" "B" "C" "CAR" "CDR" "BUZ") (:USE TB-BAR-TO-USE) (:IMPORT-FROM CL "CDR") (:SHADOWING-IMPORT-FROM CL "CAR"))) (EVERY #'(LAMBDA (NAME) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL NAME 'TB-FOO))) :EXTERNAL)) '("A" "B" "C" "CAR" "CDR" "BUZ")) (EQ (FIND-SYMBOL "CAR" 'TB-FOO) 'CAR) (EQ (FIND-SYMBOL "CDR" 'TB-FOO) 'CDR) (EQ (FIND-SYMBOL "BUZ" 'TB-BAR-TO-USE) BUZ))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (PACKAGEP (DEFPACKAGE "TB-FOO" (:INTERN))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (PACKAGEP (DEFPACKAGE "TB-FOO" (:INTERN) (:INTERN))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:INTERN "A"))) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "A" 'TB-FOO))) :INTERNAL)))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:INTERN "A" "B" "C"))) (EVERY #'(LAMBDA (NAME) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL NAME 'TB-FOO))) :INTERNAL)) '("A" "B" "C"))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:INTERN "A" "B" "C"))) (EVERY #'(LAMBDA (NAME) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL NAME 'TB-FOO))) :INTERNAL)) '("A" "B" "C"))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:INTERN "A") (:INTERN "B") (:INTERN "C"))) (EVERY #'(LAMBDA (NAME) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL NAME 'TB-FOO))) :INTERNAL)) '("A" "B" "C"))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:INTERN "A" "B" "C" "CAR") (:USE CL))) (EVERY #'(LAMBDA (NAME) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL NAME 'TB-FOO))) :INTERNAL)) '("A" "B" "C")) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" 'TB-FOO)) '(CAR :INHERITED))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:SIZE 10)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:SIZE 0)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:SIZE 1000)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (LET ((BUZ (INTERN "BUZ" 'TB-BAR-TO-USE))) (EXPORT BUZ 'TB-BAR-TO-USE) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:SIZE 10) (:SHADOW "SHADOW1" "SHADOW2") (:SHADOWING-IMPORT-FROM CL "CAR" "CDR") (:USE TB-BAR-TO-USE) (:IMPORT-FROM KEYWORD "TEST") (:INTERN "S0" "S1") (:NICKNAMES "TB-FOO-NICKNAME-0" "TB-FOO-NICKNAME-1" "TB-FOO-NICKNAME-2") (:EXPORT "SHADOW1" "CAR"))) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO-NICKNAME-0)) (LIST BUZ :INHERITED)) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "SHADOW1" 'TB-FOO-NICKNAME-2))) :EXTERNAL) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "SHADOW2" 'TB-FOO-NICKNAME-2))) :INTERNAL) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" 'TB-FOO-NICKNAME-2)) (LIST 'CAR :EXTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CDR" 'TB-FOO-NICKNAME-2)) (LIST 'CDR :INTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "TEST" 'TB-FOO-NICKNAME-2)) (LIST :TEST :INTERNAL)) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "S0" 'TB-FOO-NICKNAME-2))) :INTERNAL) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "S1" 'TB-FOO-NICKNAME-2))) :INTERNAL))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL) (LET ((BUZ (INTERN "BUZ" 'TB-BAR-TO-USE))) (EXPORT BUZ 'TB-BAR-TO-USE) (AND (PACKAGEP (DEFPACKAGE "TB-FOO" (:EXPORT "SHADOW1") (:SIZE 10) (:NICKNAMES "TB-FOO-NICKNAME-1" "TB-FOO-NICKNAME-2") (:SHADOW "SHADOW1") (:SHADOWING-IMPORT-FROM CL "CAR") (:INTERN "S1") (:SHADOWING-IMPORT-FROM CL) (:USE TB-BAR-TO-USE) (:NICKNAMES "TB-FOO-NICKNAME-0") (:SHADOWING-IMPORT-FROM CL "CDR") (:SHADOW "SHADOW2") (:IMPORT-FROM KEYWORD "TEST") (:INTERN "S0") (:NICKNAMES) (:EXPORT "CAR"))) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "BUZ" 'TB-FOO-NICKNAME-0)) (LIST BUZ :INHERITED)) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "SHADOW1" 'TB-FOO-NICKNAME-2))) :EXTERNAL) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "SHADOW2" 'TB-FOO-NICKNAME-2))) :INTERNAL) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CAR" 'TB-FOO-NICKNAME-2)) (LIST 'CAR :EXTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "CDR" 'TB-FOO-NICKNAME-2)) (LIST 'CDR :INTERNAL)) (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL "TEST" 'TB-FOO-NICKNAME-2)) (LIST :TEST :INTERNAL)) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "S0" 'TB-FOO-NICKNAME-2))) :INTERNAL) (EQ (CADR (MULTIPLE-VALUE-LIST (FIND-SYMBOL "S1" 'TB-FOO-NICKNAME-2))) :INTERNAL))))) EQL-OK: NIL (NOT (WITH-PACKAGE-ITERATOR (GET "CL" :EXTERNAL) (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (DECLARE (IGNORE MORE)) (AND (SYMBOLP SYMBOL) (EQ STATUS :EXTERNAL) (EQ PKG (FIND-PACKAGE 'CL)))))) EQL-OK: NIL (NOT (WITH-PACKAGE-ITERATOR (GET 'CL :EXTERNAL) (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (DECLARE (IGNORE MORE)) (AND (SYMBOLP SYMBOL) (EQ STATUS :EXTERNAL) (EQ PKG (FIND-PACKAGE 'CL)))))) EQL-OK: NIL (NOT (WITH-PACKAGE-ITERATOR (GET (FIND-PACKAGE 'CL) :EXTERNAL) (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (DECLARE (IGNORE MORE)) (AND (SYMBOLP SYMBOL) (EQ STATUS :EXTERNAL) (EQ PKG (FIND-PACKAGE 'CL)))))) EQL-OK: NIL (NOT (WITH-PACKAGE-ITERATOR (GET '(CL) :EXTERNAL) (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (DECLARE (IGNORE MORE)) (AND (SYMBOLP SYMBOL) (EQ STATUS :EXTERNAL) (EQ PKG (FIND-PACKAGE 'CL)))))) EQL-OK: NIL (NOT (WITH-PACKAGE-ITERATOR (GET (LIST "CL") :EXTERNAL) (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (DECLARE (IGNORE MORE)) (AND (SYMBOLP SYMBOL) (EQ STATUS :EXTERNAL) (EQ PKG (FIND-PACKAGE 'CL)))))) EQL-OK: NIL (NOT (WITH-PACKAGE-ITERATOR (GET (LIST (FIND-PACKAGE "COMMON-LISP")) :EXTERNAL) (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (DECLARE (IGNORE MORE)) (AND (SYMBOLP SYMBOL) (EQ STATUS :EXTERNAL) (EQ PKG (FIND-PACKAGE 'CL)))))) EQL-OK: NIL (NOT (WITH-PACKAGE-ITERATOR (GET 'CL :EXTERNAL :INTERNAL :INHERITED) (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (DECLARE (IGNORE MORE)) (AND (SYMBOLP SYMBOL) (MEMBER STATUS '(:EXTERNAL :INTERNAL :INHERITED)) (EQ PKG (FIND-PACKAGE 'CL)))))) EQL-OK: NIL (NOT (WITH-PACKAGE-ITERATOR (GET (LIST 'CL) :INTERNAL) (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (OR (NOT MORE) (AND (SYMBOLP SYMBOL) (EQ STATUS :INTERNAL) (EQ PKG (FIND-PACKAGE 'CL))))))) EQL-OK: NIL (NOT (WITH-PACKAGE-ITERATOR (GET (LIST 'CL) :INHERITED) (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (OR (NOT MORE) (AND (SYMBOLP SYMBOL) (EQ STATUS :INHERITED) (EQ PKG (FIND-PACKAGE 'CL))))))) EQL-OK: NIL (NOT (PROGN (WITH-PACKAGE-ITERATOR (GET "CL" :EXTERNAL) (DECLARE (OPTIMIZE (SAFETY 3))) (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (DECLARE (IGNORE MORE)) (AND (SYMBOLP SYMBOL) (EQ STATUS :EXTERNAL) (EQ PKG (FIND-PACKAGE 'CL))))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PACKAGE (MAKE-PACKAGE "TB-FOO" :USE NIL)) LIST) (WITH-PACKAGE-ITERATOR (GET PACKAGE :INTERNAL) (AND (LOOP (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (DECLARE (IGNORE STATUS PKG)) (UNLESS MORE (RETURN T)) (PUSH SYMBOL LIST))) (NULL LIST)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((PACKAGE (MAKE-PACKAGE "TB-FOO" :USE NIL))) (DOLIST (NAME '(A B C D E F G "S1" "S2" "ss")) (INTERN (STRING NAME) PACKAGE)) (WITH-PACKAGE-ITERATOR (GET PACKAGE :INTERNAL) (LOOP (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (UNLESS MORE (RETURN T)) (UNLESS (AND (EQ STATUS :INTERNAL) (EQ PKG PACKAGE) (EQ SYMBOL (FIND-SYMBOL (STRING SYMBOL) PKG))) (RETURN NIL)))))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE #\a) (DELETE-PACKAGE #\a)) (LET ((PACKAGE (MAKE-PACKAGE #\a :USE NIL))) (DOLIST (NAME '(A B C D E F G "S1" "S2" "ss")) (INTERN (STRING NAME) PACKAGE)) (WITH-PACKAGE-ITERATOR (GET #\a :INTERNAL) (LOOP (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (UNLESS MORE (RETURN T)) (UNLESS (AND (EQ STATUS :INTERNAL) (EQ PKG PACKAGE) (EQ SYMBOL (FIND-SYMBOL (STRING SYMBOL) PKG))) (RETURN NIL)))))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE #\a) (DELETE-PACKAGE #\a)) (LET ((PACKAGE (MAKE-PACKAGE #\a :USE NIL))) (DOLIST (NAME '(A B C D E F G "S1" "S2" "ss")) (INTERN (STRING NAME) PACKAGE)) (WITH-PACKAGE-ITERATOR (GET (LIST #\a) :INTERNAL) (LOOP (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (UNLESS MORE (RETURN T)) (UNLESS (AND (EQ STATUS :INTERNAL) (EQ PKG PACKAGE) (EQ SYMBOL (FIND-SYMBOL (STRING SYMBOL) PKG))) (RETURN NIL)))))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (WHEN (FIND-PACKAGE "TB-BAR-TO-USE") (MAPCAN #'DELETE-PACKAGE (PACKAGE-USED-BY-LIST "TB-BAR-TO-USE")) (DELETE-PACKAGE "TB-BAR-TO-USE")) (LET* ((PACKAGE (MAKE-PACKAGE "TB-BAR-TO-USE" :USE NIL)) (PACKAGE-1 (MAKE-PACKAGE "TB-FOO" :USE (LIST PACKAGE))) (SYMBOL-LIST NIL)) (EXPORT (INTERN "S" PACKAGE) PACKAGE) (SHADOW '("S") PACKAGE-1) (WITH-PACKAGE-ITERATOR (GET PACKAGE-1 :INTERNAL :EXTERNAL :INHERITED) (LOOP (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (DECLARE (IGNORE STATUS PKG)) (UNLESS MORE (RETURN T)) (PUSH SYMBOL SYMBOL-LIST)))) (NOT (MEMBER (INTERN "S" PACKAGE) SYMBOL-LIST))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET* ((PACKAGE (MAKE-PACKAGE "TB-FOO" :USE NIL)) (SYMBOL-LIST NIL)) (WITH-PACKAGE-ITERATOR (GET PACKAGE :INTERNAL :EXTERNAL) (LOOP (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (DECLARE (IGNORE STATUS PKG)) (UNLESS MORE (RETURN T)) (PUSH SYMBOL SYMBOL-LIST)))) (NULL SYMBOL-LIST)))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET* ((PACKAGE (MAKE-PACKAGE "TB-FOO" :USE NIL)) (SYMBOL-LIST '(A B C D CAR CDR I LISP)) (LIST NIL)) (DOLIST (SYMBOL SYMBOL-LIST) (SHADOWING-IMPORT SYMBOL PACKAGE)) (WITH-PACKAGE-ITERATOR (GET PACKAGE :INTERNAL) (LOOP (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (DECLARE (IGNORE STATUS PKG)) (UNLESS MORE (RETURN T)) (PUSH SYMBOL LIST)))) (NULL (SET-DIFFERENCE SYMBOL-LIST LIST))))) EQL-OK: NIL (NOT (WITH-PACKAGE-ITERATOR (GET 'CL :EXTERNAL) (LOOP (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PACKAGE) (GET) (UNLESS MORE (RETURN T)) (UNLESS (AND (EQ STATUS :EXTERNAL) (EQ PACKAGE (FIND-PACKAGE 'CL)) (EQ SYMBOL (FIND-SYMBOL (SYMBOL-NAME SYMBOL) 'CL-USER))) (RETURN NIL)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET* ((PACKAGE (MAKE-PACKAGE "TB-FOO" :USE 'CL))) (SHADOW '("CAR") PACKAGE) (WITH-PACKAGE-ITERATOR (GET PACKAGE :EXTERNAL :INHERITED :INTERNAL) (LOOP (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (DECLARE (IGNORE PKG STATUS)) (UNLESS MORE (RETURN T)) (WHEN (EQ SYMBOL 'CAR) (RETURN NIL)))))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET* ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) (NAMES '("BLACK" "RED" "WHITE" "YELLOW" "VIOLET" "BROWN" "BLUE")) LIST) (MAPC #'INTERN NAMES) (EXPORT (MAPCAR #'FIND-SYMBOL (MAPCAN #'(LAMBDA (NAME) (WHEN (= (LENGTH NAME) 5) (LIST NAME))) NAMES))) (WITH-PACKAGE-ITERATOR (GET *PACKAGE* :EXTERNAL :INHERITED :INTERNAL) (LOOP (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PKG) (GET) (DECLARE (IGNORE PKG)) (UNLESS MORE (RETURN)) (PUSH (SYMBOL-NAME SYMBOL) (GETF LIST STATUS))))) (AND (NULL (SET-DIFFERENCE (GETF LIST :EXTERNAL) '("BLACK" "WHITE" "BROWN") :TEST #'STRING=)) (NULL (SET-DIFFERENCE (GETF LIST :INTERNAL) '("RED" "YELLOW" "VIOLET" "BLUE") :TEST #'STRING=)) (NULL (GETF LIST :INHERITED)))))) EQL-OK: NIL (NOT (FLET ((TEST-PACKAGE-ITERATOR (PACKAGE) (UNLESS (PACKAGEP PACKAGE) (SETQ PACKAGE (FIND-PACKAGE PACKAGE))) (LET ((ALL-ENTRIES 'NIL) (GENERATED-ENTRIES 'NIL)) (DO-SYMBOLS (X PACKAGE) (MULTIPLE-VALUE-BIND (SYMBOL ACCESSIBILITY) (FIND-SYMBOL (SYMBOL-NAME X) PACKAGE) (PUSH (LIST SYMBOL ACCESSIBILITY) ALL-ENTRIES))) (WITH-PACKAGE-ITERATOR (GENERATOR-FN PACKAGE :INTERNAL :EXTERNAL :INHERITED) (LOOP (MULTIPLE-VALUE-BIND (MORE? SYMBOL ACCESSIBILITY PKG) (GENERATOR-FN) (DECLARE (IGNORE PKG)) (UNLESS MORE? (RETURN)) (LET ((L (MULTIPLE-VALUE-LIST (FIND-SYMBOL (SYMBOL-NAME SYMBOL) PACKAGE)))) (UNLESS (EQUAL L (LIST SYMBOL ACCESSIBILITY)) (ERROR "Symbol ~S not found as ~S in package ~A [~S]" SYMBOL ACCESSIBILITY (PACKAGE-NAME PACKAGE) L)) (PUSH L GENERATED-ENTRIES))))) (UNLESS (AND (SUBSETP ALL-ENTRIES GENERATED-ENTRIES :TEST #'EQUAL) (SUBSETP GENERATED-ENTRIES ALL-ENTRIES :TEST #'EQUAL)) (ERROR "Generated entries and Do-Symbols entries don't correspond")) T))) (EVERY #'TEST-PACKAGE-ITERATOR '("CL" "CL-USER" "KEYWORD")))) EQL-OK: NIL (NOT (NULL (DO-SYMBOLS (SYMBOL) (DECLARE (IGNORE SYMBOL))))) EQL-OK: NIL (NOT (NULL (DO-SYMBOLS (SYMBOL *PACKAGE*) (DECLARE (IGNORE SYMBOL))))) EQL-OK: NIL (NOT (NULL (DO-EXTERNAL-SYMBOLS (SYMBOL) (DECLARE (IGNORE SYMBOL))))) EQL-OK: NIL (NOT (NULL (DO-EXTERNAL-SYMBOLS (SYMBOL *PACKAGE*) (DECLARE (IGNORE SYMBOL))))) EQL-OK: NIL (NOT (NULL (DO-ALL-SYMBOLS (SYMBOL) (DECLARE (IGNORE SYMBOL))))) EQL-OK: NIL (NOT (DO-SYMBOLS (SYMBOL *PACKAGE* (NULL SYMBOL)))) EQL-OK: NIL (NOT (DO-EXTERNAL-SYMBOLS (SYMBOL *PACKAGE* (NULL SYMBOL)))) EQL-OK: NIL (NOT (DO-ALL-SYMBOLS (SYMBOL (NULL SYMBOL)))) EQL-OK: NIL (NOT (DO-SYMBOLS (SYMBOL 'CL NIL) (DECLARE (IGNORE SYMBOL)) (RETURN T))) EQL-OK: NIL (NOT (DO-EXTERNAL-SYMBOLS (SYMBOL 'CL NIL) (DECLARE (IGNORE SYMBOL)) (RETURN T))) EQL-OK: NIL (NOT (DO-ALL-SYMBOLS (SYMBOL NIL) (DECLARE (IGNORE SYMBOL)) (RETURN T))) EQL-OK: NIL (NOT (DO-SYMBOLS (SYMBOL 'CL NIL) (GO START) FOUND (RETURN T) START (WHEN (EQ SYMBOL 'CAR) (GO FOUND)))) EQL-OK: NIL (NOT (DO-EXTERNAL-SYMBOLS (SYMBOL 'CL NIL) (GO START) FOUND (RETURN T) START (WHEN (EQ SYMBOL 'CAR) (GO FOUND)))) EQL-OK: NIL (NOT (DO-ALL-SYMBOLS (SYMBOL NIL) (GO START) FOUND (RETURN T) START (WHEN (EQ SYMBOL 'CAR) (GO FOUND)))) EQL-OK: NIL (NOT (LET ((I 0) (LIST NIL) (*PACKAGE* (FIND-PACKAGE "COMMON-LISP-USER"))) (DO-SYMBOLS (SYMBOL) (PUSH SYMBOL LIST) (INCF I) (WHEN (= I 10) (RETURN))) (EVERY #'SYMBOLP LIST))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) (NAME-LIST '("A" "B" "DOG" "CAT" "giraffe" "hippo" "wolf")) (LIST)) (EXPORT (MAPCAR #'INTERN NAME-LIST)) (NULL (SET-DIFFERENCE (DO-SYMBOLS (SYMBOL *PACKAGE* LIST) (PUSHNEW SYMBOL LIST)) (MAPCAR #'FIND-SYMBOL NAME-LIST)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) LIST) (DO-SYMBOLS (SYMBOL *PACKAGE*) (PUSH SYMBOL LIST)) (NULL LIST)))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) LIST) (DO-SYMBOLS (SYMBOL) (PUSH SYMBOL LIST)) (NULL LIST)))) EQL-OK: NIL (NOT (DO-SYMBOLS (SYMBOL 'CL T) (UNLESS (EQ SYMBOL (FIND-SYMBOL (SYMBOL-NAME SYMBOL) 'CL)) (RETURN NIL)))) EQL-OK: NIL (NOT (DO-SYMBOLS (SYMBOL 'KEYWORD T) (UNLESS (EQUAL (MULTIPLE-VALUE-LIST (FIND-SYMBOL (SYMBOL-NAME SYMBOL) 'KEYWORD)) (LIST SYMBOL :EXTERNAL)) (RETURN NIL)))) EQL-OK: NIL (NOT (LET (LIST1 LIST2) (AND (DO-EXTERNAL-SYMBOLS (SYMBOL 'KEYWORD T) (PUSH SYMBOL LIST1)) (DO-SYMBOLS (SYMBOL 'KEYWORD T) (PUSH SYMBOL LIST2)) (NULL (SET-DIFFERENCE LIST1 LIST2))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) LIST) (DO-EXTERNAL-SYMBOLS (SYMBOL *PACKAGE*) (PUSH SYMBOL LIST)) (NULL LIST)))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) LIST) (DO-EXTERNAL-SYMBOLS (SYMBOL) (PUSH SYMBOL LIST)) (NULL LIST)))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) (NAME-LIST '("A" "B" "DOG" "CAT" "giraffe" "hippo" "wolf")) (LIST)) (EXPORT (MAPCAR #'INTERN NAME-LIST)) (NULL (SET-DIFFERENCE (DO-EXTERNAL-SYMBOLS (SYMBOL *PACKAGE* LIST) (PUSHNEW SYMBOL LIST)) (MAPCAR #'FIND-SYMBOL NAME-LIST)))))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TB-FOO") (DELETE-PACKAGE "TB-FOO")) (LET ((*PACKAGE* (MAKE-PACKAGE "TB-FOO" :USE NIL)) (NAME-LIST '("A" "B" "DOG" "CAT" "giraffe" "hippo" "wolf")) (LIST)) (MAPCAR #'INTERN NAME-LIST) (NULL (DO-EXTERNAL-SYMBOLS (SYMBOL *PACKAGE* LIST) (PUSHNEW SYMBOL LIST)))))) EQL-OK: NIL (NOT (LET ((I 0) (LIST NIL)) (DO-ALL-SYMBOLS (SYMBOL) (PUSH SYMBOL LIST) (INCF I) (WHEN (= I 10) (RETURN))) (EVERY #'SYMBOLP LIST))) EQL-OK: NIL (NOT (LET ((LIST NIL)) (DO-ALL-SYMBOLS (SYMBOL) (PUSH SYMBOL LIST)) (WITH-PACKAGE-ITERATOR (GET (LIST-ALL-PACKAGES) :EXTERNAL :INTERNAL) (LOOP (MULTIPLE-VALUE-BIND (MORE SYMBOL STATUS PACKAGE) (GET) (DECLARE (IGNORE STATUS PACKAGE)) (UNLESS MORE (RETURN T)) (UNLESS (MEMBER SYMBOL LIST) (RETURN NIL))))))) EQL-OK: NIL RUN-TEST: finished "must-package" (0 errors out of 334 tests) RUN-TEST: started # (NOT (EQL *PRINT-BASE* 10)) EQL-OK: NIL (NOT (NULL *PRINT-RADIX*)) EQL-OK: NIL (NOT (EQ *PRINT-CASE* :UPCASE)) EQL-OK: NIL (NOT *PRINT-GENSYM*) EQL-OK: NIL (NOT (NULL *PRINT-LEVEL*)) EQL-OK: NIL (NOT (NULL *PRINT-LENGTH*)) EQL-OK: NIL (NOT *PRINT-ESCAPE*) EQL-OK: NIL (NOT (NULL *PRINT-READABLY*)) EQL-OK: NIL (NOT *PRINT-PPRINT-DISPATCH*) EQL-OK: NIL (NOT (NULL *PRINT-LINES*)) EQL-OK: NIL (NOT (NULL *PRINT-RIGHT-MARGIN*)) EQL-OK: NIL (NOT (STRING= "abc" (WRITE-TO-STRING "abc" :ESCAPE NIL))) EQL-OK: NIL (NOT (STRING= "\"abc\"" (WRITE-TO-STRING "abc" :READABLY T))) EQL-OK: NIL (NOT (STRING= "\"abc\"" (WRITE-TO-STRING "abc" :ESCAPE NIL :READABLY T))) EQL-OK: NIL (NOT (STRING= "ABC" (WRITE-TO-STRING "ABC" :ESCAPE NIL))) EQL-OK: NIL (NOT (STRING= "\"ABC\"" (WRITE-TO-STRING "ABC" :READABLY T))) EQL-OK: NIL (NOT (STRING= "\"ABC\"" (WRITE-TO-STRING "ABC" :ESCAPE NIL :READABLY T))) EQL-OK: NIL (NOT (STRING= "\"A\\\\B\\\"C\"" (WRITE-TO-STRING "A\\B\"C" :ESCAPE NIL :READABLY T))) EQL-OK: NIL (NOT (STRING= "\"A\\\\B\\\"C\"" (WRITE-TO-STRING "A\\B\"C"))) EQL-OK: NIL (NOT (STRING= "A\\B\"C" (WRITE-TO-STRING "A\\B\"C" :ESCAPE NIL))) EQL-OK: NIL (NOT (LET ((STR "a\\b\"")) (AND (= 4 (LENGTH STR)) (STRING= STR (READ-FROM-STRING (WRITE-TO-STRING STR)))))) EQL-OK: NIL (NOT (LET ((STR "a\\b\"")) (AND (= 4 (LENGTH STR)) (STRING= STR (READ-FROM-STRING (WRITE-TO-STRING STR :ESCAPE NIL :READABLY T)))))) EQL-OK: NIL (NOT (STRING= "\"\\\"\"" (WRITE-TO-STRING "\""))) EQL-OK: NIL (NOT (STRING= "\"\\\"\"" (WRITE-TO-STRING "\"" :ESCAPE NIL :READABLY T))) EQL-OK: NIL (NOT (STRING= "\"" (READ-FROM-STRING (WRITE-TO-STRING "\"")))) EQL-OK: NIL (NOT (STRING= "\"" (READ-FROM-STRING (WRITE-TO-STRING "\"" :ESCAPE NIL :READABLY T)))) EQL-OK: NIL (NOT (STRING= "\"\"" (WRITE-TO-STRING ""))) EQL-OK: NIL (NOT (STRING= "\"\"" (WRITE-TO-STRING "" :ESCAPE NIL :READABLY T))) EQL-OK: NIL (NOT (STRING= "" (WRITE-TO-STRING "" :ESCAPE NIL))) EQL-OK: NIL (NOT (STRING= "\" \"" (WRITE-TO-STRING " "))) EQL-OK: NIL (NOT (STRING= "\" \"" (WRITE-TO-STRING " " :ESCAPE NIL :READABLY T))) EQL-OK: NIL (NOT (STRING= " " (WRITE-TO-STRING " " :ESCAPE NIL))) EQL-OK: NIL (NOT (STRING= "\" \"" (WRITE-TO-STRING " "))) EQL-OK: NIL (NOT (STRING= "\" \"" (WRITE-TO-STRING " " :ESCAPE NIL :READABLY T))) EQL-OK: NIL (NOT (STRING= " " (WRITE-TO-STRING " " :ESCAPE NIL))) EQL-OK: NIL (NOT (STRING= "\" \"" (WRITE-TO-STRING " " :ESCAPE NIL :READABLY T))) EQL-OK: NIL (NOT (STRING= " " (WRITE-TO-STRING " " :ESCAPE NIL))) EQL-OK: NIL (NOT (STRING= "\"\\\"\\\"\\\"\\\"\\\"\\\"\"" (WRITE-TO-STRING "\"\"\"\"\"\"" :READABLY T))) EQL-OK: NIL (NOT (STRING= "\"\"\"\"\"\"" (READ-FROM-STRING (WRITE-TO-STRING "\"\"\"\"\"\"" :READABLY T)))) EQL-OK: NIL (NOT (STRING= "\"\"\"\"\"\"" (WRITE-TO-STRING "\"\"\"\"\"\"" :READABLY NIL :ESCAPE NIL))) EQL-OK: NIL (NOT (STRING= "\" \"" (WRITE-TO-STRING " " :READABLY T))) EQL-OK: NIL (NOT (STRING= "\"\\\"Hi\\\" \\\"Oh, hi!\\\"\"" (WRITE-TO-STRING "\"Hi\" \"Oh, hi!\"" :READABLY T))) EQL-OK: NIL (NOT (STRING= "\"Hi\" \"Oh, hi!\"" (WRITE-TO-STRING "\"Hi\" \"Oh, hi!\"" :PRETTY NIL :READABLY NIL :ESCAPE NIL))) EQL-OK: NIL (NOT (STRING= "abc" (WRITE-TO-STRING "abc" :ARRAY NIL :ESCAPE NIL))) EQL-OK: NIL (NOT (STRING= "abc" (WRITE-TO-STRING (MAKE-ARRAY 10 :ELEMENT-TYPE 'CHARACTER :INITIAL-CONTENTS "abcdefghij" :FILL-POINTER 3) :ESCAPE NIL))) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING 0) "0")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING 0) "0")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING 9) "9")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING -10) "-10")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING 1234567890987654321234567890987654321) "1234567890987654321234567890987654321")) EQL-OK: NIL (NOT (LET ((*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING 0) "0."))) EQL-OK: NIL (NOT (LET ((*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING -52) "-52."))) EQL-OK: NIL (NOT (LET ((*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING -1234567890987654321234567890987654321) "-1234567890987654321234567890987654321."))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 2)) (STRING= (WRITE-TO-STRING 0) "0"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 2)) (STRING= (WRITE-TO-STRING 10) "1010"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 2)) (STRING= (WRITE-TO-STRING -1234567890987654321234567890987654321) "-111011011100010011100101100000010011000101110111101001110100010101110010000101001111011010110110001011000001110010110001"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 2) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING 11) "#b1011"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 2) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING -15) "#b-1111"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 2) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING 1234567890987654321234567890987654321) "#b111011011100010011100101100000010011000101110111101001110100010101110010000101001111011010110110001011000001110010110001"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 8)) (STRING= (WRITE-TO-STRING 10) "12"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 8)) (STRING= (WRITE-TO-STRING -21) "-25"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 8) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING 11) "#o13"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 8) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING -13) "#o-15"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 8)) (STRING= (WRITE-TO-STRING 1234567890987654321234567890987654321) "7334234540230567516425620517326613016261"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 8) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING -1234567890987654321234567890987654321) "#o-7334234540230567516425620517326613016261"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 16)) (STRING= (WRITE-TO-STRING 20) "14"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 16)) (STRING= (WRITE-TO-STRING -22) "-16"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 16)) (STRING= (STRING-UPCASE (WRITE-TO-STRING -30)) "-1E"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 16) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING 21) "#x15"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 16) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING -23) "#x-17"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 16)) (STRING= (STRING-UPCASE (WRITE-TO-STRING 1234567890987654321234567890987654321)) "EDC4E5813177A7457214F6B62C1CB1"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 16) (*PRINT-RADIX* T)) (STRING= (STRING-UPCASE (WRITE-TO-STRING -1234567890987654321234567890987654321)) "#X-EDC4E5813177A7457214F6B62C1CB1"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 24)) (STRING= (WRITE-TO-STRING 9) "9"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 24)) (STRING= (STRING-UPCASE (WRITE-TO-STRING 17)) "H"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 24)) (STRING= (STRING-UPCASE (WRITE-TO-STRING -17)) "-H"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 24) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING 9) "#24r9"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 24) (*PRINT-RADIX* T)) (STRING-EQUAL (WRITE-TO-STRING 23) "#24rN"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 24) (*PRINT-RADIX* T)) (STRING-EQUAL (WRITE-TO-STRING -23) "#24r-N"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 24)) (STRING= (STRING-UPCASE (WRITE-TO-STRING 1234567890987654321234567890987654321)) "1EDFC9EAF544D8D12FI44J4FMCH"))) EQL-OK: NIL (NOT (LOOP FOR *PRINT-BASE* FROM 2 UPTO 36 ALWAYS (STRING= (WRITE-TO-STRING 0) "0"))) EQL-OK: NIL (NOT (LOOP FOR *PRINT-BASE* FROM 2 UPTO 36 ALWAYS (STRING= (WRITE-TO-STRING -1) "-1"))) EQL-OK: NIL (NOT (LOOP FOR *PRINT-BASE* FROM 2 UPTO 36 ALWAYS (STRING= (STRING-UPCASE (WRITE-TO-STRING (1- *PRINT-BASE*))) (STRING (CHAR "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" (1- *PRINT-BASE*)))))) EQL-OK: NIL (NOT (LOOP FOR *PRINT-BASE* FROM 2 UPTO 36 ALWAYS (STRING= (WRITE-TO-STRING *PRINT-BASE*) "10"))) EQL-OK: NIL (NOT (LET ((LIST NIL)) (EQUAL (DOTIMES (I 35 (REVERSE LIST)) (LET ((*PRINT-BASE* (+ I 2))) (PUSH (STRING-UPCASE (WRITE-TO-STRING 40)) LIST))) '("101000" "1111" "220" "130" "104" "55" "50" "44" "40" "37" "34" "31" "2C" "2A" "28" "26" "24" "22" "20" "1J" "1I" "1H" "1G" "1F" "1E" "1D" "1C" "1B" "1A" "19" "18" "17" "16" "15" "14")))) EQL-OK: NIL (NOT (LET ((LIST NIL)) (EQUAL (DOTIMES (I 35 (REVERSE LIST)) (LET ((*PRINT-BASE* (+ I 2)) (*PRINT-RADIX* T)) (PUSH (STRING-UPCASE (WRITE-TO-STRING 40)) LIST))) '("#B101000" "#3R1111" "#4R220" "#5R130" "#6R104" "#7R55" "#O50" "#9R44" "40." "#11R37" "#12R34" "#13R31" "#14R2C" "#15R2A" "#X28" "#17R26" "#18R24" "#19R22" "#20R20" "#21R1J" "#22R1I" "#23R1H" "#24R1G" "#25R1F" "#26R1E" "#27R1D" "#28R1C" "#29R1B" "#30R1A" "#31R19" "#32R18" "#33R17" "#34R16" "#35R15" "#36R14")))) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING 1/3) "1/3")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING -1/2) "-1/2")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING -3/5) "-3/5")) EQL-OK: NIL (NOT (LET ((*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING 1/15) "#10r1/15"))) EQL-OK: NIL (NOT (LET ((*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING -4/15) "#10r-4/15"))) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING 2/1234567890987654321234567890987654321) "2/1234567890987654321234567890987654321")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING 1234567890987654321234567890987654321/4) "1234567890987654321234567890987654321/4")) EQL-OK: NIL (NOT (LET ((*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING 2/1234567890987654321234567890987654321) "#10r2/1234567890987654321234567890987654321"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 2)) (STRING= (WRITE-TO-STRING 1/3) "1/11"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 2)) (STRING= (WRITE-TO-STRING -1/2) "-1/10"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 2)) (STRING= (WRITE-TO-STRING -3/5) "-11/101"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 2) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING 1/15) "#b1/1111"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 2) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING -3/16) "#b-11/10000"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 2)) (STRING= (WRITE-TO-STRING 2/1234567890987654321234567890987654321) "10/111011011100010011100101100000010011000101110111101001110100010101110010000101001111011010110110001011000001110010110001"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 2)) (STRING= (WRITE-TO-STRING -1234567890987654321234567890987654321/2) "-111011011100010011100101100000010011000101110111101001110100010101110010000101001111011010110110001011000001110010110001/10"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 2) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING 2/1234567890987654321234567890987654321) "#b10/111011011100010011100101100000010011000101110111101001110100010101110010000101001111011010110110001011000001110010110001"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 8)) (STRING= (WRITE-TO-STRING 1/3) "1/3"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 8)) (STRING= (WRITE-TO-STRING -1/4) "-1/4"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 8)) (STRING= (WRITE-TO-STRING -3/7) "-3/7"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 8) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING 1/3) "#o1/3"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 8) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING -3/7) "#o-3/7"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 8) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING -15/11) "#o-17/13"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 8)) (STRING= (WRITE-TO-STRING 2/1234567890987654321234567890987654321) "2/7334234540230567516425620517326613016261"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 8) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING -1234567890987654321234567890987654321/4) "#o-7334234540230567516425620517326613016261/4"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 16)) (STRING= (WRITE-TO-STRING 1/8) "1/8"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 16)) (STRING= (WRITE-TO-STRING -1/9) "-1/9"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 16)) (STRING-EQUAL (WRITE-TO-STRING -9/10) "-9/A"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 16) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING 1/3) "#x1/3"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 16) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING 3/8) "#x3/8"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 16) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING -4/9) "#x-4/9"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 16)) (STRING= (WRITE-TO-STRING 2/1234567890987654321234567890987654321) "2/EDC4E5813177A7457214F6B62C1CB1"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 16) (*PRINT-RADIX* T)) (STRING-EQUAL (WRITE-TO-STRING 1234567890987654321234567890987654321/4) "#xEDC4E5813177A7457214F6B62C1CB1/4"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 16) (*PRINT-RADIX* T)) (STRING-EQUAL (WRITE-TO-STRING 1234567890987654321234567890987654321/1234) "#xEDC4E5813177A7457214F6B62C1CB1/4D2"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 21)) (STRING= (WRITE-TO-STRING 1/8) "1/8"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 21)) (STRING= (WRITE-TO-STRING -1/9) "-1/9"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 21)) (STRING-EQUAL (WRITE-TO-STRING -9/10) "-9/A"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 21) (*PRINT-RADIX* T)) (STRING= (WRITE-TO-STRING 1/4) "#21r1/4"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 21) (*PRINT-RADIX* T)) (STRING-EQUAL (WRITE-TO-STRING -1/20) "#21r-1/K"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 21)) (STRING= (WRITE-TO-STRING 2/1234567890987654321234567890987654321) "2/29FADE40CGDJK4D0654KEAD5K6EK"))) EQL-OK: NIL (NOT (LET ((*PRINT-BASE* 21) (*PRINT-RADIX* T)) (STRING-EQUAL (WRITE-TO-STRING 1234567890987654321234567890987654321/1234) "#21r29FADE40CGDJK4D0654KEAD5K6EK/2GG"))) EQL-OK: NIL (NOT (LOOP FOR *PRINT-BASE* FROM 3 UPTO 36 ALWAYS (STRING= (WRITE-TO-STRING 1/2) "1/2"))) EQL-OK: NIL (NOT (LOOP FOR *PRINT-BASE* FROM 4 UPTO 36 ALWAYS (STRING= (WRITE-TO-STRING -1/3) "-1/3"))) EQL-OK: NIL (NOT (LOOP FOR *PRINT-BASE* FROM 3 UPTO 36 ALWAYS (STRING= (STRING-UPCASE (WRITE-TO-STRING (/ 1 (1- *PRINT-BASE*)))) (CONCATENATE 'STRING "1/" (STRING (CHAR "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" (1- *PRINT-BASE*))))))) EQL-OK: NIL (NOT (LOOP FOR *PRINT-BASE* FROM 2 UPTO 36 ALWAYS (STRING= (WRITE-TO-STRING (/ 1 *PRINT-BASE*)) "1/10"))) EQL-OK: NIL (NOT (LET ((LIST NIL)) (EQUAL (DOTIMES (I 35 (REVERSE LIST)) (LET ((*PRINT-BASE* (+ I 2))) (PUSH (STRING-UPCASE (WRITE-TO-STRING 41/40)) LIST))) '("101001/101000" "1112/1111" "221/220" "131/130" "105/104" "56/55" "51/50" "45/44" "41/40" "38/37" "35/34" "32/31" "2D/2C" "2B/2A" "29/28" "27/26" "25/24" "23/22" "21/20" "1K/1J" "1J/1I" "1I/1H" "1H/1G" "1G/1F" "1F/1E" "1E/1D" "1D/1C" "1C/1B" "1B/1A" "1A/19" "19/18" "18/17" "17/16" "16/15" "15/14")))) EQL-OK: NIL (NOT (LET ((LIST NIL)) (EQUAL (DOTIMES (I 35 (REVERSE LIST)) (LET ((*PRINT-BASE* (+ I 2)) (*PRINT-RADIX* T)) (PUSH (STRING-UPCASE (WRITE-TO-STRING 41/40)) LIST))) '("#B101001/101000" "#3R1112/1111" "#4R221/220" "#5R131/130" "#6R105/104" "#7R56/55" "#O51/50" "#9R45/44" "#10R41/40" "#11R38/37" "#12R35/34" "#13R32/31" "#14R2D/2C" "#15R2B/2A" "#X29/28" "#17R27/26" "#18R25/24" "#19R23/22" "#20R21/20" "#21R1K/1J" "#22R1J/1I" "#23R1I/1H" "#24R1H/1G" "#25R1G/1F" "#26R1F/1E" "#27R1E/1D" "#28R1D/1C" "#29R1C/1B" "#30R1B/1A" "#31R1A/19" "#32R19/18" "#33R18/17" "#34R17/16" "#35R16/15" "#36R15/14")))) EQL-OK: NIL (NOT (LET ((*PRINT-ESCAPE* NIL)) (STRING= (WRITE-TO-STRING #\a) "a"))) EQL-OK: NIL (NOT (LET ((*PRINT-ESCAPE* NIL) (*PRINT-READABLY* NIL)) (STRING= (WRITE-TO-STRING #\d) "d"))) EQL-OK: NIL (NOT (LET ((*PRINT-ESCAPE* NIL)) (STRING= (WRITE-TO-STRING #\m) "m"))) EQL-OK: NIL (NOT (LET ((*PRINT-ESCAPE* NIL)) (STRING= (WRITE-TO-STRING #\z) "z"))) EQL-OK: NIL (NOT (LET ((*PRINT-ESCAPE* NIL) (*PRINT-READABLY* NIL)) (LOOP FOR C ACROSS " !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_'abcdefghijklmnopqrstuvwxyz{|}~" ALWAYS (STRING= (WRITE-TO-STRING C) (STRING C))))) EQL-OK: NIL (NOT (LET ((*PRINT-ESCAPE* NIL)) (LOOP FOR C ACROSS " !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_'abcdefghijklmnopqrstuvwxyz{|}~" ALWAYS (STRING= (WRITE-TO-STRING C) (STRING C))))) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING #\b) "#\\b")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING #\n) "#\\n")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING #\x) "#\\x")) EQL-OK: NIL (NOT (LET ((*PRINT-ESCAPE* NIL) (*PRINT-READABLY* T)) (STRING= (WRITE-TO-STRING #\c) "#\\c"))) EQL-OK: NIL (NOT (LOOP FOR C ACROSS "!#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_'abcdefghijklmnopqrstuvwxyz{|}~" ALWAYS (STRING= (WRITE-TO-STRING C) (CONCATENATE 'STRING "#\\" (STRING C))))) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING #\\) "#\\\\")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING #\") "#\\\"")) EQL-OK: NIL (NOT (LET ((*PRINT-READABLY* T) (*PRINT-ESCAPE* NIL)) (LOOP FOR C ACROSS "!#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_'abcdefghijklmnopqrstuvwxyz{|}~" ALWAYS (STRING= (WRITE-TO-STRING C) (CONCATENATE 'STRING "#\\" (STRING C)))))) EQL-OK: NIL (NOT (LET ((*PRINT-READABLY* T) (*PRINT-ESCAPE* T)) (LOOP FOR C ACROSS "!#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_'abcdefghijklmnopqrstuvwxyz{|}~" ALWAYS (STRING= (WRITE-TO-STRING C) (CONCATENATE 'STRING "#\\" (STRING C)))))) EQL-OK: NIL (NOT (LET ((*PRINT-READABLY* NIL) (*PRINT-ESCAPE* T)) (LOOP FOR C ACROSS "!#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_'abcdefghijklmnopqrstuvwxyz{|}~" ALWAYS (STRING= (WRITE-TO-STRING C) (CONCATENATE 'STRING "#\\" (STRING C)))))) EQL-OK: NIL (NOT (PROGN (LET ((*PRINT-READABLY* T)) (STRING= (WRITE-TO-STRING #\ ) "#\\ ")) 'SKIPPED)) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "abc" (WRITE-TO-STRING '|abc| :ESCAPE NIL :CASE :CAPITALIZE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "Abc" (WRITE-TO-STRING '|abc| :ESCAPE NIL :CASE :CAPITALIZE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "abc" (WRITE-TO-STRING '|abc| :ESCAPE NIL :CASE :CAPITALIZE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "ABC" (WRITE-TO-STRING '|abc| :ESCAPE NIL :CASE :CAPITALIZE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "Abc" (WRITE-TO-STRING 'ABC :ESCAPE NIL :CASE :CAPITALIZE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "ABC" (WRITE-TO-STRING 'ABC :ESCAPE NIL :CASE :CAPITALIZE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "ABC" (WRITE-TO-STRING 'ABC :ESCAPE NIL :CASE :CAPITALIZE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "abc" (WRITE-TO-STRING 'ABC :ESCAPE NIL :CASE :CAPITALIZE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "Abc-abc" (WRITE-TO-STRING '|ABC-abc| :ESCAPE NIL :CASE :CAPITALIZE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "ABC-Abc" (WRITE-TO-STRING '|ABC-abc| :ESCAPE NIL :CASE :CAPITALIZE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "ABC-abc" (WRITE-TO-STRING '|ABC-abc| :ESCAPE NIL :CASE :CAPITALIZE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "ABC-abc" (WRITE-TO-STRING '|ABC-abc| :ESCAPE NIL :CASE :CAPITALIZE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "abc-Abc" (WRITE-TO-STRING '|abc-ABC| :ESCAPE NIL :CASE :CAPITALIZE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "Abc-ABC" (WRITE-TO-STRING '|abc-ABC| :ESCAPE NIL :CASE :CAPITALIZE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "abc-ABC" (WRITE-TO-STRING '|abc-ABC| :ESCAPE NIL :CASE :CAPITALIZE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "abc-ABC" (WRITE-TO-STRING '|abc-ABC| :ESCAPE NIL :CASE :CAPITALIZE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "abc" (WRITE-TO-STRING '|abc| :ESCAPE NIL :CASE :UPCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "ABC" (WRITE-TO-STRING '|abc| :ESCAPE NIL :CASE :UPCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "abc" (WRITE-TO-STRING '|abc| :ESCAPE NIL :CASE :UPCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "ABC" (WRITE-TO-STRING '|abc| :ESCAPE NIL :CASE :UPCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "ABC" (WRITE-TO-STRING 'ABC :ESCAPE NIL :CASE :UPCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "ABC" (WRITE-TO-STRING 'ABC :ESCAPE NIL :CASE :UPCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "ABC" (WRITE-TO-STRING 'ABC :ESCAPE NIL :CASE :UPCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "abc" (WRITE-TO-STRING 'ABC :ESCAPE NIL :CASE :UPCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "ABC-abc" (WRITE-TO-STRING '|ABC-abc| :ESCAPE NIL :CASE :UPCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "ABC-ABC" (WRITE-TO-STRING '|ABC-abc| :ESCAPE NIL :CASE :UPCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "ABC-abc" (WRITE-TO-STRING '|ABC-abc| :ESCAPE NIL :CASE :UPCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "ABC-abc" (WRITE-TO-STRING '|ABC-abc| :ESCAPE NIL :CASE :UPCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "abc-ABC" (WRITE-TO-STRING '|abc-ABC| :ESCAPE NIL :CASE :UPCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "ABC-ABC" (WRITE-TO-STRING '|abc-ABC| :ESCAPE NIL :CASE :UPCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "abc-ABC" (WRITE-TO-STRING '|abc-ABC| :ESCAPE NIL :CASE :UPCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "abc-ABC" (WRITE-TO-STRING '|abc-ABC| :ESCAPE NIL :CASE :UPCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "abc" (WRITE-TO-STRING '|abc| :ESCAPE NIL :CASE :DOWNCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "abc" (WRITE-TO-STRING '|abc| :ESCAPE NIL :CASE :DOWNCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "abc" (WRITE-TO-STRING '|abc| :ESCAPE NIL :CASE :DOWNCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "ABC" (WRITE-TO-STRING '|abc| :ESCAPE NIL :CASE :DOWNCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "abc" (WRITE-TO-STRING 'ABC :ESCAPE NIL :CASE :DOWNCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "ABC" (WRITE-TO-STRING 'ABC :ESCAPE NIL :CASE :DOWNCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "ABC" (WRITE-TO-STRING 'ABC :ESCAPE NIL :CASE :DOWNCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "abc" (WRITE-TO-STRING 'ABC :ESCAPE NIL :CASE :DOWNCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "abc-abc" (WRITE-TO-STRING '|ABC-abc| :ESCAPE NIL :CASE :DOWNCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "ABC-abc" (WRITE-TO-STRING '|ABC-abc| :ESCAPE NIL :CASE :DOWNCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "ABC-abc" (WRITE-TO-STRING '|ABC-abc| :ESCAPE NIL :CASE :DOWNCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "ABC-abc" (WRITE-TO-STRING '|ABC-abc| :ESCAPE NIL :CASE :DOWNCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "abc-abc" (WRITE-TO-STRING '|abc-ABC| :ESCAPE NIL :CASE :DOWNCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "abc-ABC" (WRITE-TO-STRING '|abc-ABC| :ESCAPE NIL :CASE :DOWNCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "abc-ABC" (WRITE-TO-STRING '|abc-ABC| :ESCAPE NIL :CASE :DOWNCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "abc-ABC" (WRITE-TO-STRING '|abc-ABC| :ESCAPE NIL :CASE :DOWNCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "abc-Abc" (WRITE-TO-STRING ':|abc-ABC| :ESCAPE NIL :CASE :CAPITALIZE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "abc-ABC" (WRITE-TO-STRING ':|abc-ABC| :ESCAPE NIL :CASE :UPCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "abc-abc" (WRITE-TO-STRING ':|abc-ABC| :ESCAPE NIL :CASE :DOWNCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (WHEN (FIND-PACKAGE "TEST-PKG0") (DELETE-PACKAGE "TEST-PKG0")) (MAKE-PACKAGE "TEST-PKG0" :USE NIL) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "abc" (WRITE-TO-STRING (INTERN "abc" "TEST-PKG0") :ESCAPE NIL :CASE :CAPITALIZE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (WHEN (FIND-PACKAGE "TEST-PKG0") (DELETE-PACKAGE "TEST-PKG0")) (MAKE-PACKAGE "TEST-PKG0" :USE NIL) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "abc" (WRITE-TO-STRING (INTERN "abc" "TEST-PKG0") :ESCAPE NIL :CASE :UPCASE)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (WHEN (FIND-PACKAGE "TEST-PKG0") (DELETE-PACKAGE "TEST-PKG0")) (MAKE-PACKAGE "TEST-PKG0" :USE NIL) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "abc" (WRITE-TO-STRING (INTERN "abc" "TEST-PKG0") :ESCAPE NIL :CASE :DOWNCASE)))) EQL-OK: NIL (NOT (LOOP NAMED LOOP0 WITH PRINTED-NAME WITH *READTABLE* = (COPY-READTABLE NIL) FOR READTABLE-CASE IN '(:UPCASE :DOWNCASE :PRESERVE :INVERT) DO (LOOP FOR *PRINT-CASE* IN '(:UPCASE :DOWNCASE :CAPITALIZE) DO (LOOP FOR SYMBOL IN '(ZEBRA |Zebra| |zebra|) DO (SETF (READTABLE-CASE *READTABLE*) READTABLE-CASE) (SETQ PRINTED-NAME (WRITE-TO-STRING SYMBOL :READABLY T)) UNLESS (EQ SYMBOL (READ-FROM-STRING PRINTED-NAME)) DO (FORMAT T "~&Symbol = ~S~%Erroneous printed representation = ~S~%readtable-case = ~S~%*print-case* = ~S~%" SYMBOL PRINTED-NAME READTABLE-CASE *PRINT-CASE*) (RETURN-FROM LOOP0 NIL))) FINALLY (RETURN-FROM LOOP0 T))) EQL-OK: NIL (NOT (LOOP NAMED LOOP0 WITH PRINTED-NAME WITH *READTABLE* = (COPY-READTABLE NIL) FOR READTABLE-CASE IN '(:UPCASE :DOWNCASE :PRESERVE :INVERT) DO (LOOP FOR *PRINT-CASE* IN '(:UPCASE :DOWNCASE :CAPITALIZE) DO (LOOP FOR SYMBOL IN '(:ZEBRA :|Zebra| :|zebra|) DO (SETF (READTABLE-CASE *READTABLE*) READTABLE-CASE) (SETQ PRINTED-NAME (WRITE-TO-STRING SYMBOL :READABLY T)) UNLESS (EQ SYMBOL (READ-FROM-STRING PRINTED-NAME)) DO (FORMAT T "~&Symbol = ~S~%Erroneous printed representation = ~S~%readtable-case = ~S~%*print-case* = ~S~%" SYMBOL PRINTED-NAME READTABLE-CASE *PRINT-CASE*) (RETURN-FROM LOOP0 NIL))) FINALLY (RETURN-FROM LOOP0 T))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "TEST-PKG0") (DELETE-PACKAGE "TEST-PKG0")) (MAKE-PACKAGE "TEST-PKG0" :USE NIL) (LOOP NAMED LOOP0 WITH PRINTED-NAME WITH *READTABLE* = (COPY-READTABLE NIL) FOR READTABLE-CASE IN '(:UPCASE :DOWNCASE :PRESERVE :INVERT) DO (LOOP FOR *PRINT-CASE* IN '(:UPCASE :DOWNCASE :CAPITALIZE) DO (LOOP FOR SYMBOL IN (MAPCAR #'(LAMBDA (NAME) (INTERN NAME "TEST-PKG0")) '("ZEBRA" "Zebra" "zebra")) DO (SETF (READTABLE-CASE *READTABLE*) READTABLE-CASE) (SETQ PRINTED-NAME (WRITE-TO-STRING SYMBOL :READABLY T)) UNLESS (EQ SYMBOL (READ-FROM-STRING PRINTED-NAME)) DO (FORMAT T "~&Symbol = ~S~%Erroneous printed representation = ~S~%readtable-case = ~S~%*print-case* = ~S~%" SYMBOL PRINTED-NAME READTABLE-CASE *PRINT-CASE*) (RETURN-FROM LOOP0 NIL))) FINALLY (RETURN-FROM LOOP0 T)))) EQL-OK: NIL (NOT (EQ '| | (READ-FROM-STRING (WRITE-TO-STRING '| | :READABLY T)))) EQL-OK: NIL (NOT (EQ '| | (READ-FROM-STRING (WRITE-TO-STRING '| | :READABLY T)))) EQL-OK: NIL (NOT (EQ '| | (READ-FROM-STRING (WRITE-TO-STRING '| | :READABLY T)))) EQL-OK: NIL (NOT (EQ '|"| (READ-FROM-STRING (WRITE-TO-STRING '|"| :READABLY T)))) EQL-OK: NIL (NOT (EQ '|#| (READ-FROM-STRING (WRITE-TO-STRING '|#| :READABLY T)))) EQL-OK: NIL (NOT (EQ '|'| (READ-FROM-STRING (WRITE-TO-STRING '|'| :READABLY T)))) EQL-OK: NIL (NOT (EQ '|(| (READ-FROM-STRING (WRITE-TO-STRING '|(| :READABLY T)))) EQL-OK: NIL (NOT (EQ '|)| (READ-FROM-STRING (WRITE-TO-STRING '|)| :READABLY T)))) EQL-OK: NIL (NOT (EQ '|,| (READ-FROM-STRING (WRITE-TO-STRING '|,| :READABLY T)))) EQL-OK: NIL (NOT (EQ '|;| (READ-FROM-STRING (WRITE-TO-STRING '|;| :READABLY T)))) EQL-OK: NIL (NOT (EQ '|\\| (READ-FROM-STRING (WRITE-TO-STRING '|\\| :READABLY T)))) EQL-OK: NIL (NOT (= 1 (LENGTH (SYMBOL-NAME (READ-FROM-STRING (WRITE-TO-STRING '|\\| :READABLY T)))))) EQL-OK: NIL (NOT (EQ '|`| (READ-FROM-STRING (WRITE-TO-STRING '|`| :READABLY T)))) EQL-OK: NIL (NOT (EQ '|\|| (READ-FROM-STRING (WRITE-TO-STRING '|\|| :READABLY T)))) EQL-OK: NIL (NOT (= 1 (LENGTH (SYMBOL-NAME (READ-FROM-STRING (WRITE-TO-STRING '|\|| :READABLY T)))))) EQL-OK: NIL (NOT (LOOP FOR SYMBOL IN '(-!- /*/ $$$ ^^^^^^^^^^^^^) ALWAYS (LOOP WITH *READTABLE* = (COPY-READTABLE NIL) FOR TABLE-CASE IN '(:UPCASE :DOWNCASE :PRESERVE :INVERT) DO (SETF (READTABLE-CASE *READTABLE*) TABLE-CASE) ALWAYS (LOOP FOR *PRINT-CASE IN '(:UPCASE :DOWNCASE :CAPITALIZE) ALWAYS (STRING= (SYMBOL-NAME SYMBOL) (WRITE-TO-STRING SYMBOL :ESCAPE NIL)))))) EQL-OK: NIL (NOT (STRING= "ABC" (SYMBOL-NAME (READ-FROM-STRING (WRITE-TO-STRING (MAKE-SYMBOL "ABC") :READABLY T :CASE :UPCASE))))) EQL-OK: NIL (NOT (STRING= "ABC" (SYMBOL-NAME (READ-FROM-STRING (WRITE-TO-STRING (MAKE-SYMBOL "ABC") :READABLY T :CASE :DOWNCASE))))) EQL-OK: NIL (NOT (STRING= "ABC" (SYMBOL-NAME (READ-FROM-STRING (WRITE-TO-STRING (MAKE-SYMBOL "ABC") :READABLY T :CASE :CAPITALIZE))))) EQL-OK: NIL (NOT (STRING= "G01" (WRITE-TO-STRING (MAKE-SYMBOL "G01") :ESCAPE T :GENSYM NIL))) EQL-OK: NIL (NOT (STRING= "G01" (WRITE-TO-STRING (MAKE-SYMBOL "G01") :ESCAPE NIL :GENSYM NIL))) EQL-OK: NIL (NOT (STRING= "#:G01" (WRITE-TO-STRING (MAKE-SYMBOL "G01") :ESCAPE T :GENSYM T))) EQL-OK: NIL (NOT (LET ((FACE (LET ((*PRINT-BASE* 16)) (WRITE-TO-STRING 'FACE :READABLY T))) (*READ-BASE* 16)) (EQ 'FACE (READ-FROM-STRING FACE)))) EQL-OK: NIL (NOT (EQ '|01| (READ-FROM-STRING (WRITE-TO-STRING '|01| :READABLY T)))) EQL-OK: NIL (NOT (EQ '|1| (READ-FROM-STRING (WRITE-TO-STRING '|1| :READABLY T)))) EQL-OK: NIL (NOT (EQ '|0123456789| (READ-FROM-STRING (WRITE-TO-STRING '|0123456789| :READABLY T)))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "Test-Pkg0") (DELETE-PACKAGE "Test-Pkg0")) (MAKE-PACKAGE "Test-Pkg0" :USE NIL) (LOOP NAMED LOOP0 WITH PRINTED-NAME WITH *READTABLE* = (COPY-READTABLE NIL) FOR READTABLE-CASE IN '(:UPCASE :DOWNCASE :PRESERVE :INVERT) DO (LOOP FOR *PRINT-CASE* IN '(:UPCASE :DOWNCASE :CAPITALIZE) DO (LOOP FOR SYMBOL IN (MAPCAR #'(LAMBDA (NAME) (INTERN NAME "Test-Pkg0")) '("ZEBRA" "Zebra" "zebra")) DO (SETF (READTABLE-CASE *READTABLE*) READTABLE-CASE) (SETQ PRINTED-NAME (WRITE-TO-STRING SYMBOL :READABLY T)) UNLESS (EQ SYMBOL (READ-FROM-STRING PRINTED-NAME)) DO (FORMAT T "~&Symbol = ~S~%Erroneous printed representation = ~S~%readtable-case = ~S~%*print-case* = ~S~%" SYMBOL PRINTED-NAME READTABLE-CASE *PRINT-CASE*) (RETURN-FROM LOOP0 NIL))) FINALLY (RETURN-FROM LOOP0 T)))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "Test|Pkg 0;") (DELETE-PACKAGE "Test|Pkg 0;")) (MAKE-PACKAGE "Test|Pkg 0;" :USE NIL) (LOOP NAMED LOOP0 WITH *READTABLE* = (COPY-READTABLE NIL) FOR READTABLE-CASE IN '(:UPCASE :DOWNCASE :PRESERVE :INVERT) DO (LOOP FOR *PRINT-CASE* IN '(:UPCASE :DOWNCASE :CAPITALIZE) DO (LOOP FOR SYMBOL IN (MAPCAR #'(LAMBDA (NAME) (INTERN NAME "Test|Pkg 0;")) '("ZEBRA" "Zebra" "zebra")) DO (SETF (READTABLE-CASE *READTABLE*) READTABLE-CASE) UNLESS (EQ SYMBOL (READ-FROM-STRING (WRITE-TO-STRING SYMBOL :READABLY T))) DO (FORMAT T "~&Symbol = ~S~%Erroneous printed representation = ~S~%readtable-case = ~S~%*print-case* = ~S~%" SYMBOL PRINTED-NAME READTABLE-CASE *PRINT-CASE*) (RETURN-FROM LOOP0 NIL))) FINALLY (RETURN-FROM LOOP0 T)))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE "Test|Pkg 0;") (DELETE-PACKAGE "Test|Pkg 0;")) (MAKE-PACKAGE "Test|Pkg 0;" :USE NIL) (LOOP NAMED LOOP0 WITH *READTABLE* = (COPY-READTABLE NIL) FOR READTABLE-CASE IN '(:UPCASE :DOWNCASE :PRESERVE :INVERT) DO (LOOP FOR *PRINT-CASE* IN '(:UPCASE :DOWNCASE :CAPITALIZE) DO (LOOP FOR SYMBOL IN (MAPCAR #'(LAMBDA (NAME) (INTERN NAME "Test|Pkg 0;")) '("Z\\E\"BRA" "Z;e|bra" "z:e bra")) DO (SETF (READTABLE-CASE *READTABLE*) READTABLE-CASE) UNLESS (EQ SYMBOL (READ-FROM-STRING (WRITE-TO-STRING SYMBOL :READABLY T))) DO (FORMAT T "~&Symbol = ~S~%Erroneous printed representation = ~S~%readtable-case = ~S~%*print-case* = ~S~%" SYMBOL PRINTED-NAME READTABLE-CASE *PRINT-CASE*) (RETURN-FROM LOOP0 NIL))) FINALLY (RETURN-FROM LOOP0 T)))) EQL-OK: NIL (NOT (STRING= "#*0101" (WRITE-TO-STRING #*0101 :READABLY T :ARRAY T))) EQL-OK: NIL (NOT (STRING= "#*01" (WRITE-TO-STRING #*01 :READABLY T :ARRAY T))) EQL-OK: NIL (NOT (STRING= "#*0" (WRITE-TO-STRING #*0 :READABLY T :ARRAY T))) EQL-OK: NIL (NOT (STRING= "#*1" (WRITE-TO-STRING #*1 :READABLY T :ARRAY T))) EQL-OK: NIL (NOT (STRING= "#*" (WRITE-TO-STRING #* :READABLY T :ARRAY T))) EQL-OK: NIL (NOT (STRING= "#*10101111000" (WRITE-TO-STRING #*10101111000 :READABLY T :ARRAY T))) EQL-OK: NIL (NOT (STRING= "#*0101" (WRITE-TO-STRING #*0101 :READABLY T :ARRAY NIL))) EQL-OK: NIL (NOT (STRING= "#*01" (WRITE-TO-STRING #*01 :READABLY T :ARRAY NIL))) EQL-OK: NIL (NOT (STRING= "#*0" (WRITE-TO-STRING #*0 :READABLY T :ARRAY NIL))) EQL-OK: NIL (NOT (STRING= "#*1" (WRITE-TO-STRING #*1 :READABLY T :ARRAY NIL))) EQL-OK: NIL (NOT (STRING= "#*" (WRITE-TO-STRING #* :READABLY T :ARRAY NIL))) EQL-OK: NIL (NOT (STRING= "#*10101111000" (WRITE-TO-STRING #*10101111000 :READABLY T :ARRAY NIL))) EQL-OK: NIL (NOT (STRING= "#*0101" (WRITE-TO-STRING #*0101 :ARRAY T))) EQL-OK: NIL (NOT (STRING= "#*01" (WRITE-TO-STRING #*01 :ARRAY T))) EQL-OK: NIL (NOT (STRING= "#*0" (WRITE-TO-STRING #*0 :ARRAY T))) EQL-OK: NIL (NOT (STRING= "#*1" (WRITE-TO-STRING #*1 :ARRAY T))) EQL-OK: NIL (NOT (STRING= "#*" (WRITE-TO-STRING #* :ARRAY T))) EQL-OK: NIL (NOT (STRING= "#*10101111000" (WRITE-TO-STRING #*10101111000 :ARRAY T))) EQL-OK: NIL (NOT (ZEROP (SEARCH "#<" (WRITE-TO-STRING #*0101 :ARRAY NIL)))) EQL-OK: NIL (NOT (ZEROP (SEARCH "#<" (WRITE-TO-STRING #*01 :ARRAY NIL)))) EQL-OK: NIL (NOT (ZEROP (SEARCH "#<" (WRITE-TO-STRING #*0 :ARRAY NIL)))) EQL-OK: NIL (NOT (ZEROP (SEARCH "#<" (WRITE-TO-STRING #*1 :ARRAY NIL)))) EQL-OK: NIL (NOT (ZEROP (SEARCH "#<" (WRITE-TO-STRING #* :ARRAY NIL)))) EQL-OK: NIL (NOT (ZEROP (SEARCH "#<" (WRITE-TO-STRING #*10101111000 :ARRAY NIL)))) EQL-OK: NIL (NOT (STRING= "#*01" (WRITE-TO-STRING (MAKE-ARRAY 10 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS '(0 1 0 1 0 1 0 1 0 1) :FILL-POINTER 2) :READABLY T :ARRAY T))) EQL-OK: NIL (NOT (NULL (READ-FROM-STRING (WRITE-TO-STRING 'NIL)))) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1) :PRETTY NIL) "(1)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 2) :PRETTY NIL) "(1 2)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 2 3) :PRETTY NIL) "(1 2 3)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 2 3 4) :PRETTY NIL) "(1 2 3 4)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 . 2) :PRETTY NIL) "(1 . 2)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 2 . 3) :PRETTY NIL) "(1 2 . 3)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 2 3 . 4) :PRETTY NIL) "(1 2 3 . 4)")) EQL-OK: NIL (NOT (LET ((LIST (LOOP FOR I FROM 0 UPTO 100 COLLECT I))) (EQUAL (READ-FROM-STRING (WRITE-TO-STRING LIST)) LIST))) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :LEVEL 0) "#")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :LEVEL 1) "(1 #)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :LEVEL 2) "(1 (2 #))")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :LEVEL 3) "(1 (2 (3 #)))")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :LEVEL 4) "(1 (2 (3 (4 #))))")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :LEVEL 4) "(1 (2 (3 (4 #))))")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :LEVEL 5) "(1 (2 (3 (4 (5 #)))))")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :LEVEL 6) "(1 (2 (3 (4 (5 (6))))))")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :LEVEL 7) "(1 (2 (3 (4 (5 (6))))))")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :LEVEL 100) "(1 (2 (3 (4 (5 (6))))))")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 2 3 4 5 6) :PRETTY NIL :LENGTH 0) "(...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 2 3 4 5 6) :PRETTY NIL :LENGTH 1) "(1 ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 2 3 4 5 6) :PRETTY NIL :LENGTH 2) "(1 2 ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 2 3 4 5 6) :PRETTY NIL :LENGTH 3) "(1 2 3 ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 2 3 4 5 6) :PRETTY NIL :LENGTH 4) "(1 2 3 4 ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 2 3 4 5 6) :PRETTY NIL :LENGTH 5) "(1 2 3 4 5 ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 2 3 4 5 6) :PRETTY NIL :LENGTH 6) "(1 2 3 4 5 6)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 2 3 4 5 6) :PRETTY NIL :LENGTH 7) "(1 2 3 4 5 6)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 2 3 4 5 6) :PRETTY NIL :LENGTH 100) "(1 2 3 4 5 6)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 2 . 3) :PRETTY NIL :LENGTH 0) "(...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 2 . 3) :PRETTY NIL :LENGTH 1) "(1 ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 2 . 3) :PRETTY NIL :LENGTH 2) "(1 2 . 3)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 2 . 3) :PRETTY NIL :LENGTH 3) "(1 2 . 3)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :LEVEL 0 :LENGTH 0) "#")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :LEVEL 1 :LENGTH 0) "(...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :LEVEL 0 :LENGTH 1) "#")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :LEVEL 1 :LENGTH 1) "(1 ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :LEVEL 2 :LENGTH 1) "(1 ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :LEVEL 2 :LENGTH 2) "(1 (2 #))")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '((((1))) ((2)) (3) 4) :PRETTY NIL :LEVEL 0 :LENGTH 0) "#")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '((((1))) ((2)) (3) 4) :PRETTY NIL :LEVEL 1 :LENGTH 0) "(...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '((((1))) ((2)) (3) 4) :PRETTY NIL :LEVEL 1 :LENGTH 4) "(# # # 4)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '((((1))) ((2)) (3) 4) :PRETTY NIL :LEVEL 2 :LENGTH 3) "((#) (#) (3) ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '((((1))) ((2)) (3) 4) :PRETTY NIL :LEVEL 3 :LENGTH 3) "(((#)) ((2)) (3) ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '((((1))) ((2)) (3) 4) :PRETTY NIL :LEVEL 4 :LENGTH 3) "((((1))) ((2)) (3) ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '((((1))) ((2)) (3) 4) :PRETTY NIL :LEVEL 2 :LENGTH 4) "((#) (#) (3) 4)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '((((1))) ((2)) (3) 4) :PRETTY NIL :LEVEL 4 :LENGTH 4) "((((1))) ((2)) (3) 4)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '((((1))) ((2)) (3) 4 (5) ((6)) (((7)))) :PRETTY NIL :LEVEL 3 :LENGTH 6) "(((#)) ((2)) (3) 4 (5) ((6)) ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '((((1 ((2)) (3)))) ((2 (3) 4 5 6)) (3 (4 (5 6)))) :PRETTY NIL :LEVEL 6 :LENGTH 3) "((((1 ((2)) (3)))) ((2 (3) 4 ...)) (3 (4 (5 6))))")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '((((1 ((2)) (3)))) ((2 (3) 4 5 6)) (3 (4 (5 6)))) :PRETTY NIL :LEVEL 2 :LENGTH 2) "((#) (#) ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '((((1 ((2)) (3)))) ((2 (3) 4 5 6)) (3 (4 (5 6)))) :PRETTY NIL :LEVEL 3 :LENGTH 2) "(((#)) ((2 # ...)) ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '(((1)) ((1) 2 ((3)) (((4)))) 3 (4)) :PRETTY NIL :LEVEL 2 :LENGTH 3) "((#) (# 2 # ...) 3 ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#() :PRETTY NIL :ARRAY T) "#()")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(1) :PRETTY NIL :ARRAY T) "#(1)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(1 2 3) :PRETTY NIL :ARRAY T) "#(1 2 3)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING (MAKE-ARRAY 10 :INITIAL-CONTENTS '(0 1 2 3 4 5 6 7 8 9) :FILL-POINTER 3) :PRETTY NIL :ARRAY T) "#(0 1 2)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :ARRAY T :LEVEL 0) "#")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :ARRAY T :LEVEL 1) "#(1 #)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :ARRAY T :LEVEL 2) "#(1 (2 #))")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :ARRAY T :LEVEL 3) "#(1 (2 (3 #)))")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :ARRAY T :LEVEL 4) "#(1 (2 (3 (4 #))))")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :ARRAY T :LEVEL 4) "#(1 (2 (3 (4 #))))")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :ARRAY T :LEVEL 5) "#(1 (2 (3 (4 (5 #)))))")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :ARRAY T :LEVEL 6) "#(1 (2 (3 (4 (5 (6))))))")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :ARRAY T :LEVEL 7) "#(1 (2 (3 (4 (5 (6))))))")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(1 (2 (3 (4 (5 (6)))))) :PRETTY NIL :ARRAY T :LEVEL 100) "#(1 (2 (3 (4 (5 (6))))))")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(1 2 3 4 5 6) :PRETTY NIL :ARRAY T :LENGTH 0) "#(...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(1 2 3 4 5 6) :PRETTY NIL :ARRAY T :LENGTH 1) "#(1 ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(1 2 3 4 5 6) :PRETTY NIL :ARRAY T :LENGTH 2) "#(1 2 ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(1 2 3 4 5 6) :PRETTY NIL :ARRAY T :LENGTH 3) "#(1 2 3 ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(1 2 3 4 5 6) :PRETTY NIL :ARRAY T :LENGTH 4) "#(1 2 3 4 ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(1 2 3 4 5 6) :PRETTY NIL :ARRAY T :LENGTH 5) "#(1 2 3 4 5 ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(1 2 3 4 5 6) :PRETTY NIL :ARRAY T :LENGTH 6) "#(1 2 3 4 5 6)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(1 2 3 4 5 6) :PRETTY NIL :ARRAY T :LENGTH 7) "#(1 2 3 4 5 6)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(1 2 3 4 5 6) :PRETTY NIL :ARRAY T :LENGTH 100) "#(1 2 3 4 5 6)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(1 #(2 #(3 #(4 #(5 #(6)))))) :PRETTY NIL :ARRAY T :LEVEL 0 :LENGTH 0) "#")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(1 #(2 #(3 #(4 #(5 #(6)))))) :PRETTY NIL :ARRAY T :LEVEL 1 :LENGTH 0) "#(...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(1 #(2 #(3 #(4 #(5 #(6)))))) :PRETTY NIL :ARRAY T :LEVEL 0 :LENGTH 1) "#")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(1 #(2 #(3 #(4 #(5 #(6)))))) :PRETTY NIL :ARRAY T :LEVEL 1 :LENGTH 1) "#(1 ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(1 #(2 #(3 #(4 #(5 #(6)))))) :PRETTY NIL :ARRAY T :LEVEL 2 :LENGTH 1) "#(1 ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(1 #(2 #(3 #(4 #(5 #(6)))))) :PRETTY NIL :ARRAY T :LEVEL 2 :LENGTH 2) "#(1 #(2 #))")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(#(#(#(1))) #(#(2)) #(3) 4) :PRETTY NIL :ARRAY T :LEVEL 0 :LENGTH 0) "#")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(#(#(#(1))) #(#(2)) #(3) 4) :PRETTY NIL :ARRAY T :LEVEL 1 :LENGTH 0) "#(...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(#(#(#(1))) #(#(2)) #(3) 4) :PRETTY NIL :ARRAY T :LEVEL 1 :LENGTH 4) "#(# # # 4)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(#(#(#(1))) #(#(2)) #(3) 4) :PRETTY NIL :ARRAY T :LEVEL 2 :LENGTH 3) "#(#(#) #(#) #(3) ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(#(#(#(1))) #(#(2)) #(3) 4) :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 3) "#(#(#(#)) #(#(2)) #(3) ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(#(#(#(1))) #(#(2)) #(3) 4) :PRETTY NIL :ARRAY T :LEVEL 4 :LENGTH 3) "#(#(#(#(1))) #(#(2)) #(3) ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(#(#(#(1))) #(#(2)) #(3) 4) :PRETTY NIL :ARRAY T :LEVEL 2 :LENGTH 4) "#(#(#) #(#) #(3) 4)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(#(#(#(1))) #(#(2)) #(3) 4) :PRETTY NIL :ARRAY T :LEVEL 4 :LENGTH 4) "#(#(#(#(1))) #(#(2)) #(3) 4)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(#(#(#(1))) #(#(2)) #(3) 4 #(5) #(#(6)) #(#(#(7)))) :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 6) "#(#(#(#)) #(#(2)) #(3) 4 #(5) #(#(6)) ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(#(#(#(1 #(#(2)) #(3)))) #(#(2 #(3) 4 5 6)) #(3 #(4 #(5 6)))) :PRETTY NIL :ARRAY T :LEVEL 6 :LENGTH 3) "#(#(#(#(1 #(#(2)) #(3)))) #(#(2 #(3) 4 ...)) #(3 #(4 #(5 6))))")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(#(#(#(1 #(#(2)) #(3)))) #(#(2 #(3) 4 5 6)) #(3 #(4 #(5 6)))) :PRETTY NIL :ARRAY T :LEVEL 2 :LENGTH 2) "#(#(#) #(#) ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(#(#(#(1 #(#(2)) #(3)))) #(#(2 #(3) 4 5 6)) #(3 #(4 #(5 6)))) :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 2) "#(#(#(#)) #(#(2 # ...)) ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(#(#(1)) #(#(1) 2 #(#(3)) #(#(#(4)))) 3 #(4)) :PRETTY NIL :ARRAY T :LEVEL 2 :LENGTH 3) "#(#(#) #(# 2 # ...) 3 ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#0A1 :PRETTY NIL :ARRAY T) "#0A1")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#() :PRETTY NIL :ARRAY T) "#()")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#(1 2 3) :PRETTY NIL :ARRAY T) "#(1 2 3)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#2A((1 2 3) (4 5 6)) :PRETTY NIL :ARRAY T) "#2A((1 2 3) (4 5 6))")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#3A(((1 A) (2 B) (3 C)) ((4 D) (5 E) (6 F))) :PRETTY NIL :ARRAY T) "#3A(((1 A) (2 B) (3 C)) ((4 D) (5 E) (6 F)))")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING (MAKE-ARRAY (MAKE-LIST 20 :INITIAL-ELEMENT 1) :INITIAL-ELEMENT 0) :PRETTY NIL :ARRAY T) "#20A((((((((((((((((((((0))))))))))))))))))))")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#0A10 :PRETTY NIL :ARRAY T :LEVEL 1 :LENGTH 1) "#0A10")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#2A((0) (1) (2) (3)) :PRETTY NIL :ARRAY T :LEVEL 1 :LENGTH 1) "#2A(# ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#2A((0) (1) (2) (3)) :PRETTY NIL :ARRAY T :LEVEL 2 :LENGTH 2) "#2A((0) (1) ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#2A((0) (1) (2) (3)) :PRETTY NIL :ARRAY T :LEVEL 2 :LENGTH 0) "#2A(...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#3A(((0) (1) (2)) ((3) (4) (5))) :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 2) "#3A(((0) (1) ...) ((3) (4) ...))")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING (MAKE-ARRAY (MAKE-LIST 20 :INITIAL-ELEMENT 1) :INITIAL-ELEMENT 0) :PRETTY NIL :ARRAY T :LEVEL 0 :LENGTH 100) "#")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING (MAKE-ARRAY (MAKE-LIST 20 :INITIAL-ELEMENT 1) :INITIAL-ELEMENT 0) :PRETTY NIL :ARRAY T :LEVEL 100 :LENGTH 0) "#20A(...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING (MAKE-ARRAY (MAKE-LIST 20 :INITIAL-ELEMENT 1) :INITIAL-ELEMENT 0) :PRETTY NIL :ARRAY T :LEVEL 10 :LENGTH 100) "#20A((((((((((#))))))))))")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#2A((0 1 2) (3 4 5) (6 7 8) (9 10 11)) :PRETTY NIL :ARRAY T :LEVEL 2 :LENGTH 2) "#2A((0 1 ...) (3 4 ...) ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#2A((0 1 2) (3 4 5) (6 7 8) (9 10 11)) :PRETTY NIL :ARRAY T :LEVEL 1 :LENGTH 2) "#2A(# # ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#3A(((0) (1) (2)) ((3) (4) (5)) ((6) (7) (8)) ((9) (10) (11))) :PRETTY NIL :ARRAY T :LEVEL 2 :LENGTH 3) "#3A((# # #) (# # #) (# # #) ...)")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING '#3A(((0) (1) (2)) ((3) (4) (5)) ((6) (7) (8)) ((9) (10) (11))) :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 4) "#3A(((0) (1) (2)) ((3) (4) (5)) ((6) (7) (8)) ((9) (10) (11)))")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING "abc" :ARRAY T :ESCAPE NIL) "abc")) EQL-OK: NIL (NOT (STRING= (WRITE-TO-STRING "abc" :ARRAY NIL :ESCAPE NIL) "abc")) EQL-OK: NIL (NOT (= 2 (MISMATCH "#<" (WRITE-TO-STRING #() :ARRAY NIL)))) EQL-OK: NIL (NOT (= 2 (MISMATCH "#<" (WRITE-TO-STRING #(1 2 3) :ARRAY NIL)))) EQL-OK: NIL (NOT (= 2 (MISMATCH "#<" (WRITE-TO-STRING #*1010 :ARRAY NIL)))) EQL-OK: NIL (NOT (= 2 (MISMATCH "#<" (WRITE-TO-STRING #2A((0 1 2) (3 4 5)) :ARRAY NIL)))) EQL-OK: NIL (NOT (= 2 (MISMATCH "#<" (WRITE-TO-STRING #3A(((0 1) (2 3)) ((4 5) (6 7))) :ARRAY NIL)))) EQL-OK: NIL (NOT (= 2 (MISMATCH "#<" (WRITE-TO-STRING #4A((((0) (1)) ((2) (3))) (((4) (5)) ((6) (7))) (((8) (9)) ((10) (11))) (((12) (13)) ((14) (15)))) :ARRAY NIL)))) EQL-OK: NIL (NOT (LET* ((LIST '#1=(#1# . #1#)) (X (READ-FROM-STRING (WRITE-TO-STRING LIST :CIRCLE T)))) (AND (EQ X (CAR X)) (EQ X (CDR X))))) EQL-OK: NIL (NOT (LET* ((LIST '#1=(A . #1#)) (X (READ-FROM-STRING (WRITE-TO-STRING LIST :CIRCLE T)))) (AND (EQ (CAR X) 'A) (EQ X (CDR X))))) EQL-OK: NIL (NOT (LET* ((LIST '(A . #1=(B C . #1#))) (X (READ-FROM-STRING (WRITE-TO-STRING LIST :CIRCLE T)))) (AND (EQ (FIRST X) 'A) (EQ (SECOND X) 'B) (EQ (THIRD X) 'C) (EQ (FOURTH X) 'B) (EQ (CDR X) (NTHCDR 3 X))))) EQL-OK: NIL (NOT (LET* ((LIST '(#1=#:G1041 #1#)) (X (READ-FROM-STRING (WRITE-TO-STRING LIST :CIRCLE T)))) (AND (= 2 (LENGTH X)) (SYMBOLP (FIRST X)) (EQ (FIRST X) (SECOND X))))) EQL-OK: NIL (NOT (LET* ((LIST '#1=(A (B #2=(X Y Z) . #1#) . #2#)) (X (READ-FROM-STRING (WRITE-TO-STRING LIST :CIRCLE T)))) (AND (EQ (FIRST X) 'A) (EQ X (CDDR (SECOND X))) (EQ (SECOND (SECOND X)) (CDDR X))))) EQL-OK: NIL (NOT (LET* ((LIST '#1=#(#1# A)) (X (READ-FROM-STRING (WRITE-TO-STRING LIST :CIRCLE T)))) (AND (EQ X (AREF X 0)) (EQ 'A (AREF X 1))))) EQL-OK: NIL (NOT (LET* ((LIST '#1=#(A #1#)) (X (READ-FROM-STRING (WRITE-TO-STRING LIST :CIRCLE T)))) (AND (EQ (AREF X 0) 'A) (EQ X (AREF X 1))))) EQL-OK: NIL (NOT (LET* ((LIST '#(#1=#:G00 #1#)) (X (READ-FROM-STRING (WRITE-TO-STRING LIST :CIRCLE T)))) (AND (EQ (AREF X 0) (AREF X 1)) (STRING= (SYMBOL-NAME (AREF X 0)) "G00") (NULL (SYMBOL-PACKAGE (AREF X 0)))))) EQL-OK: NIL (NOT (LET* ((LIST '#(#(#1=#:G00) #2=#(#1# A) #(#2# #1#))) (X (READ-FROM-STRING (WRITE-TO-STRING LIST :CIRCLE T)))) (AND (= 3 (LENGTH X)) (= 1 (LENGTH (AREF X 0))) (= 2 (LENGTH (AREF X 1))) (= 2 (LENGTH (AREF X 2))) (EQ (AREF (AREF X 0) 0) (AREF (AREF X 1) 0)) (EQ 'A (AREF (AREF X 1) 1)) (EQ (AREF (AREF X 0) 0) (AREF (AREF X 2) 1)) (EQ (AREF X 1) (AREF (AREF X 2) 0))))) EQL-OK: NIL (NOT (LET* ((ARRAY '#1=#0A#1#) (X (READ-FROM-STRING (WRITE-TO-STRING ARRAY :ARRAY T :CIRCLE T)))) (AND (NULL (ARRAY-DIMENSIONS ARRAY)) (EQ X (AREF X))))) EQL-OK: NIL (NOT (LET* ((ARRAY '#1=#2A((1 2 3) (4 5 #1#))) (X (READ-FROM-STRING (WRITE-TO-STRING ARRAY :ARRAY T :CIRCLE T)))) (AND (EQUAL (ARRAY-DIMENSIONS ARRAY) '(2 3)) (= 1 (AREF X 0 0)) (= 2 (AREF X 0 1)) (= 3 (AREF X 0 2)) (= 4 (AREF X 1 0)) (= 5 (AREF X 1 1)) (EQ X (AREF X 1 2))))) EQL-OK: NIL (NOT (LET* ((ARRAY #1=#3A(((1 A) (2 B) (3 #1#)) ((4 D) (5 E) (6 F)))) (X (READ-FROM-STRING (WRITE-TO-STRING ARRAY :ARRAY T :CIRCLE T)))) (AND (EQUAL (ARRAY-DIMENSIONS ARRAY) '(2 3 2)) (= 1 (AREF X 0 0 0)) (EQ 'A (AREF X 0 0 1)) (= 2 (AREF X 0 1 0)) (EQ 'B (AREF X 0 1 1)) (= 3 (AREF X 0 2 0)) (EQ X (AREF X 0 2 1)) (= 4 (AREF X 1 0 0)) (EQ 'D (AREF X 1 0 1)) (= 5 (AREF X 1 1 0)) (EQ 'E (AREF X 1 1 1)) (= 6 (AREF X 1 2 0)) (EQ 'F (AREF X 1 2 1))))) EQL-OK: NIL (NOT (LET* ((ARRAY #3A(((1 #1=#:G0) (#2=#:G1 B) (3 #1#)) ((4 D) (5 E) (#2# F)))) (X (READ-FROM-STRING (WRITE-TO-STRING ARRAY :ARRAY T :CIRCLE T)))) (AND (EQUAL (ARRAY-DIMENSIONS ARRAY) '(2 3 2)) (= 1 (AREF X 0 0 0)) (EQ (AREF X 0 0 1) (AREF X 0 2 1)) (NULL (SYMBOL-PACKAGE (AREF X 0 0 1))) (STRING= "G0" (SYMBOL-NAME (AREF X 0 0 1))) (EQ (AREF X 0 1 0) (AREF X 1 2 0)) (NULL (SYMBOL-PACKAGE (AREF X 0 1 0))) (STRING= "G1" (SYMBOL-NAME (AREF X 0 1 0))) (EQ 'B (AREF X 0 1 1)) (= 3 (AREF X 0 2 0)) (= 4 (AREF X 1 0 0)) (EQ 'D (AREF X 1 0 1)) (= 5 (AREF X 1 1 0)) (EQ 'E (AREF X 1 1 1)) (EQ 'F (AREF X 1 2 1))))) EQL-OK: NIL (NOT (LET* ((ARRAY #1=#3A(((#1# #2=#:G0) (#3=#:G1 #2#) (#3# #1#)) ((#1# #2#) (#2# #3#) (#2# #1#)))) (X (READ-FROM-STRING (WRITE-TO-STRING ARRAY :ARRAY T :CIRCLE T)))) (AND (EQUAL (ARRAY-DIMENSIONS ARRAY) '(2 3 2)) (EQ X (AREF X 0 0 0)) (NULL (SYMBOL-PACKAGE (AREF X 0 0 1))) (STRING= (SYMBOL-NAME (AREF X 0 0 1)) "G0") (NULL (SYMBOL-PACKAGE (AREF X 0 1 0))) (STRING= (SYMBOL-NAME (AREF X 0 1 0)) "G1") (EQ (AREF X 0 1 0) (AREF X 0 2 0)) (EQ X (AREF X 0 2 1)) (EQ X (AREF X 1 0 0)) (EQ (AREF X 1 0 1) (AREF X 0 0 1)) (EQ (AREF X 1 1 0) (AREF X 0 0 1)) (EQ (AREF X 1 1 1) (AREF X 0 1 0)) (EQ (AREF X 1 2 0) (AREF X 0 0 1)) (EQ (AREF X 1 2 1) X)))) EQL-OK: NIL (NOT (LET* ((ARRAY #4A((((0 #1=#:G00 2) (#1# 4 #2=#:G01)) ((#3=#:G02 #2# 8) (9 #4=#:G03 #3#)) ((#4# 12 #5=#:G04) (#6=#:G05 #6# #5#))))) (X (READ-FROM-STRING (WRITE-TO-STRING ARRAY :ARRAY T :CIRCLE T)))) (AND (EQUAL (ARRAY-DIMENSIONS ARRAY) '(1 3 2 3)) (= 0 (AREF X 0 0 0 0)) (NULL (SYMBOL-PACKAGE (AREF X 0 0 0 1))) (STRING= (SYMBOL-NAME (AREF X 0 0 0 1)) "G00") (= 2 (AREF X 0 0 0 2)) (EQ (AREF X 0 0 1 0) (AREF X 0 0 0 1)) (= 4 (AREF X 0 0 1 1)) (NULL (SYMBOL-PACKAGE (AREF X 0 0 1 2))) (STRING= (SYMBOL-NAME (AREF X 0 0 1 2)) "G01") (NULL (SYMBOL-PACKAGE (AREF X 0 1 0 0))) (STRING= (SYMBOL-NAME (AREF X 0 1 0 0)) "G02") (EQ (AREF X 0 1 0 1) (AREF X 0 0 1 2)) (= 8 (AREF X 0 1 0 2)) (= 9 (AREF X 0 1 1 0)) (NULL (SYMBOL-PACKAGE (AREF X 0 1 1 1))) (STRING= (SYMBOL-NAME (AREF X 0 1 1 1)) "G03") (EQ (AREF X 0 1 1 2) (AREF X 0 1 0 0)) (EQ (AREF X 0 2 0 0) (AREF X 0 1 1 1)) (= 12 (AREF X 0 2 0 1)) (NULL (SYMBOL-PACKAGE (AREF X 0 2 0 2))) (STRING= (SYMBOL-NAME (AREF X 0 2 0 2)) "G04") (NULL (SYMBOL-PACKAGE (AREF X 0 2 1 0))) (STRING= (SYMBOL-NAME (AREF X 0 2 1 0)) "G05") (EQ (AREF X 0 2 1 1) (AREF X 0 2 1 0)) (EQ (AREF X 0 2 1 2) (AREF X 0 2 0 2))))) EQL-OK: NIL (NOT (LET* ((SEQUENCE '#1=(#(0 #2=(#1#) #1# 3) #3=#2A((#1# #2#) (#3# 4)))) (X (READ-FROM-STRING (WRITE-TO-STRING SEQUENCE :ARRAY T :CIRCLE T)))) (AND (= 2 (LENGTH X)) (= 4 (LENGTH (FIRST X))) (= 0 (AREF (FIRST X) 0)) (EQ X (FIRST (AREF (FIRST X) 1))) (EQ X (AREF (FIRST X) 2)) (= 3 (AREF (FIRST X) 3)) (EQUAL (ARRAY-DIMENSIONS (SECOND X)) '(2 2)) (EQ X (AREF (SECOND X) 0 0)) (EQ (AREF (SECOND X) 0 1) (AREF (FIRST X) 1)) (EQ (AREF (SECOND X) 1 0) (SECOND X)) (= 4 (AREF (SECOND X) 1 1))))) EQL-OK: NIL (NOT (LET* ((SEQUENCE '#1=#(#2=(0 1 . #3=(2)) #(#3# #2# #1#) #3A(((#1# #2# #3#))))) (X (READ-FROM-STRING (WRITE-TO-STRING SEQUENCE :ARRAY T :CIRCLE T)))) (AND (= 3 (LENGTH X)) (= 3 (LENGTH (AREF X 0))) (= 0 (FIRST (AREF X 0))) (= 1 (SECOND (AREF X 0))) (= 2 (THIRD (AREF X 0))) (= 3 (LENGTH (AREF X 1))) (EQ (AREF (AREF X 1) 0) (CDDR (AREF X 0))) (EQ (AREF (AREF X 1) 1) (AREF X 0)) (EQ (AREF (AREF X 1) 2) X) (EQUAL (ARRAY-DIMENSIONS (AREF X 2)) '(1 1 3)) (EQ (AREF (AREF X 2) 0 0 0) X) (EQ (AREF (AREF X 2) 0 0 1) (AREF X 0)) (EQ (AREF (AREF X 2) 0 0 2) (CDDR (AREF X 0)))))) EQL-OK: NIL (NOT (LET* ((SEQUENCE '((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12))))) (STRING= (WRITE-TO-STRING SEQUENCE :PRETTY NIL :ARRAY T :LEVEL 0 :LENGTH 10) "#"))) EQL-OK: NIL (NOT (LET* ((SEQUENCE '((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12))))) (STRING= (WRITE-TO-STRING SEQUENCE :PRETTY NIL :ARRAY T :LEVEL 1 :LENGTH 10) "(# # #)"))) EQL-OK: NIL (NOT (LET* ((SEQUENCE '((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12))))) (STRING= (WRITE-TO-STRING SEQUENCE :PRETTY NIL :ARRAY T :LEVEL 2 :LENGTH 10) "((1 2 3) #(4 5 6) #2A(# #))"))) EQL-OK: NIL (NOT (LET* ((SEQUENCE '((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12))))) (STRING= (WRITE-TO-STRING SEQUENCE :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 10) "((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12)))"))) EQL-OK: NIL (NOT (LET* ((SEQUENCE '((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12))))) (STRING= (WRITE-TO-STRING SEQUENCE :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 1) "((1 ...) ...)"))) EQL-OK: NIL (NOT (LET* ((SEQUENCE '((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12))))) (STRING= (WRITE-TO-STRING SEQUENCE :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 2) "((1 2 ...) #(4 5 ...) ...)"))) EQL-OK: NIL (NOT (LET* ((SEQUENCE '((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12))))) (STRING= (WRITE-TO-STRING SEQUENCE :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 3) "((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12)))"))) EQL-OK: NIL (NOT (LET* ((SEQUENCE '((1 2 3) #(4 5 6) #2A((7 8 9 10) (11 12 13 14))))) (STRING= (WRITE-TO-STRING SEQUENCE :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 3) "((1 2 3) #(4 5 6) #2A((7 8 9 ...) (11 12 13 ...)))"))) EQL-OK: NIL (NOT (LET* ((SEQUENCE '#((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12))))) (STRING= (WRITE-TO-STRING SEQUENCE :PRETTY NIL :ARRAY T :LEVEL 0 :LENGTH 10) "#"))) EQL-OK: NIL (NOT (LET* ((SEQUENCE '#((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12))))) (STRING= (WRITE-TO-STRING SEQUENCE :PRETTY NIL :ARRAY T :LEVEL 1 :LENGTH 10) "#(# # #)"))) EQL-OK: NIL (NOT (LET* ((SEQUENCE '#((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12))))) (STRING= (WRITE-TO-STRING SEQUENCE :PRETTY NIL :ARRAY T :LEVEL 2 :LENGTH 10) "#((1 2 3) #(4 5 6) #2A(# #))"))) EQL-OK: NIL (NOT (LET* ((SEQUENCE '#((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12))))) (STRING= (WRITE-TO-STRING SEQUENCE :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 10) "#((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12)))"))) EQL-OK: NIL (NOT (LET* ((SEQUENCE '#((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12))))) (STRING= (WRITE-TO-STRING SEQUENCE :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 1) "#((1 ...) ...)"))) EQL-OK: NIL (NOT (LET* ((SEQUENCE '#((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12))))) (STRING= (WRITE-TO-STRING SEQUENCE :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 2) "#((1 2 ...) #(4 5 ...) ...)"))) EQL-OK: NIL (NOT (LET* ((SEQUENCE '#((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12))))) (STRING= (WRITE-TO-STRING SEQUENCE :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 3) "#((1 2 3) #(4 5 6) #2A((7 8 9) (10 11 12)))"))) EQL-OK: NIL (NOT (LET* ((SEQUENCE '#((1 2 3) #(4 5 6) #2A((7 8 9 10) (11 12 13 14))))) (STRING= (WRITE-TO-STRING SEQUENCE :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 3) "#((1 2 3) #(4 5 6) #2A((7 8 9 ...) (11 12 13 ...)))"))) EQL-OK: NIL (NOT (LET* ((ARRAY '#2A(((10) #(100)) ((0 1 2) #2A((3) (4) (5) (6) (7)))))) (STRING= (WRITE-TO-STRING ARRAY :PRETTY NIL :ARRAY T :LEVEL 0 :LENGTH 0) "#"))) EQL-OK: NIL (NOT (LET* ((ARRAY '#2A(((10) #(100)) ((0 1 2) #2A((3) (4) (5) (6) (7)))))) (STRING= (WRITE-TO-STRING ARRAY :PRETTY NIL :ARRAY T :LEVEL 1 :LENGTH 0) "#2A(...)"))) EQL-OK: NIL (NOT (LET* ((ARRAY '#2A(((10) #(100)) ((0 1 2) #2A((3) (4) (5) (6) (7)))))) (STRING= (WRITE-TO-STRING ARRAY :PRETTY NIL :ARRAY T :LEVEL 1 :LENGTH 1) "#2A(# ...)"))) EQL-OK: NIL (NOT (LET* ((ARRAY '#2A(((10) #(100)) ((0 1 2) #2A((3) (4) (5) (6) (7)))))) (STRING= (WRITE-TO-STRING ARRAY :PRETTY NIL :ARRAY T :LEVEL 2 :LENGTH 1) "#2A((# ...) ...)"))) EQL-OK: NIL (NOT (LET* ((ARRAY '#2A(((10) #(100)) ((0 1 2) #2A((3) (4) (5) (6) (7)))))) (STRING= (WRITE-TO-STRING ARRAY :PRETTY NIL :ARRAY T :LEVEL 2 :LENGTH 2) "#2A((# #) (# #))"))) EQL-OK: NIL (NOT (LET* ((ARRAY '#2A(((10) #(100)) ((0 1 2) #2A((3) (4) (5) (6) (7)))))) (STRING= (WRITE-TO-STRING ARRAY :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 1) "#2A(((10) ...) ...)"))) EQL-OK: NIL (NOT (LET* ((ARRAY '#2A(((10) #(100)) ((0 1 2) #2A((3) (4) (5) (6) (7)))))) (STRING= (WRITE-TO-STRING ARRAY :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 2) "#2A(((10) #(100)) ((0 1 ...) #2A(# # ...)))"))) EQL-OK: NIL (NOT (LET* ((ARRAY '#2A(((10) #(100)) ((0 1 2) #2A((3) (4) (5) (6) (7)))))) (STRING= (WRITE-TO-STRING ARRAY :PRETTY NIL :ARRAY T :LEVEL 4 :LENGTH 2) "#2A(((10) #(100)) ((0 1 ...) #2A((3) (4) ...)))"))) EQL-OK: NIL (NOT (LET* ((ARRAY '#2A(((10) #(100)) ((0 1 2) #2A((3) (4) (5) (6) (7)))))) (STRING= (WRITE-TO-STRING ARRAY :PRETTY NIL :ARRAY T :LEVEL 4 :LENGTH 3) "#2A(((10) #(100)) ((0 1 2) #2A((3) (4) (5) ...)))"))) EQL-OK: NIL (NOT (LET* ((ARRAY '#2A(((10) #(100)) ((0 1 2) #2A((3) (4) (5) (6) (7)))))) (STRING= (WRITE-TO-STRING ARRAY :PRETTY NIL :ARRAY T :LEVEL 4 :LENGTH 5) "#2A(((10) #(100)) ((0 1 2) #2A((3) (4) (5) (6) (7))))"))) EQL-OK: NIL (NOT (LET* ((ARRAY '#2A(((10) #((100))) ((0 (1) ((2))) #2A((3) ((4)) (((5))) ((6)) (7)))))) (STRING= (WRITE-TO-STRING ARRAY :PRETTY NIL :ARRAY T :LEVEL 3 :LENGTH 5) "#2A(((10) #(#)) ((0 # #) #2A(# # # # #)))"))) EQL-OK: NIL (NOT (LET* ((ARRAY '#2A(((10) #((100))) ((0 (1) ((2))) #2A((3) ((4)) (((5))) ((6)) (7)))))) (STRING= (WRITE-TO-STRING ARRAY :PRETTY NIL :ARRAY T :LEVEL 4 :LENGTH 5) "#2A(((10) #((100))) ((0 (1) (#)) #2A((3) (#) (#) (#) (7))))"))) EQL-OK: NIL (NOT (LET* ((ARRAY '#2A(((10) #((100))) ((0 (1) ((2))) #2A((3) ((4)) (((5))) ((6)) (7)))))) (STRING= (WRITE-TO-STRING ARRAY :PRETTY NIL :ARRAY T :LEVEL 5 :LENGTH 5) "#2A(((10) #((100))) ((0 (1) ((2))) #2A((3) ((4)) ((#)) ((6)) (7))))"))) EQL-OK: NIL (NOT (LET* ((ARRAY '#2A(((10) #((100))) ((0 (1) ((2))) #2A((3) ((4)) (((5))) ((6)) (7)))))) (STRING= (WRITE-TO-STRING ARRAY :PRETTY NIL :ARRAY T :LEVEL 6 :LENGTH 4) "#2A(((10) #((100))) ((0 (1) ((2))) #2A((3) ((4)) (((5))) ((6)) ...)))"))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING (WRITE-TO-STRING '(0 1 2) :PRETTY NIL :READABLY T :LEVEL 0 :LENGTH 0)) '(0 1 2))) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING (WRITE-TO-STRING #(0 1 2) :PRETTY NIL :READABLY T :LEVEL 0 :LENGTH 0)) #(0 1 2))) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING (WRITE-TO-STRING #2A((0) (1) (2)) :PRETTY NIL :READABLY T :LEVEL 0 :LENGTH 0)) #2A((0) (1) (2)))) EQL-OK: NIL (NOT (STRING= "LENGTH" (WRITE-TO-STRING 'LENGTH :ESCAPE NIL :LEVEL 0))) EQL-OK: NIL (NOT (STRING= "LENGTH" (WRITE-TO-STRING 'LENGTH :ESCAPE NIL :LENGTH 2))) EQL-OK: NIL (NOT (STRING= "LENGTH" (WRITE-TO-STRING 'LENGTH :ESCAPE NIL :LEVEL 0 :LENGTH 0))) EQL-OK: NIL (NOT (STRING= "abcdefg" (WRITE-TO-STRING "abcdefg" :ESCAPE NIL :LEVEL 0))) EQL-OK: NIL (NOT (STRING= "abcdefg" (WRITE-TO-STRING "abcdefg" :ESCAPE NIL :LENGTH 2))) EQL-OK: NIL (NOT (STRING= "abcdefg" (WRITE-TO-STRING "abcdefg" :ESCAPE NIL :LEVEL 0 :LENGTH 0))) EQL-OK: NIL (NOT (STRING= "#*0101" (WRITE-TO-STRING #*0101 :ARRAY T :LEVEL 0))) EQL-OK: NIL (NOT (STRING= "#*0101" (WRITE-TO-STRING #*0101 :ARRAY T :LENGTH 2))) EQL-OK: NIL (NOT (STRING= "#*0101" (WRITE-TO-STRING #*0101 :ARRAY T :LEVEL 0 :LENGTH 0))) EQL-OK: NIL RUN-TEST: finished "must-printer" (0 errors out of 437 tests) RUN-TEST: started # (NOT (SYMBOLP (READ-FROM-STRING "|ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789!$\"'(),_-./:;?+<=>#%&*@[\\]{|}`^~|"))) EQL-OK: NIL (NOT (EQ (READ-FROM-STRING "this") 'THIS)) EQL-OK: NIL (NOT (EQ (READ-FROM-STRING "cl:car") 'CAR)) EQL-OK: NIL (NOT (EQ (READ-FROM-STRING ":ok") :OK)) EQL-OK: NIL (NOT (EQ (READ-FROM-STRING "ok#") 'OK#)) EQL-OK: NIL (NOT (EQ (READ-FROM-STRING "x#x") 'X#X)) EQL-OK: NIL (NOT (EQ (READ-FROM-STRING "abc(x y z)") 'ABC)) EQL-OK: NIL (NOT (MULTIPLE-VALUE-BIND (OBJ POS) (READ-FROM-STRING "abc(x y z)") (AND (EQ OBJ 'ABC) (EQUAL (READ-FROM-STRING "abc(x y z)" T NIL :START POS) '(X Y Z))))) EQL-OK: NIL (NOT (EQ (READ-FROM-STRING "abc") (READ-FROM-STRING "ABC"))) EQL-OK: NIL (NOT (EQ (READ-FROM-STRING "abc") (READ-FROM-STRING "|ABC|"))) EQL-OK: NIL (NOT (EQ (READ-FROM-STRING "abc") (READ-FROM-STRING "a|B|c"))) EQL-OK: NIL (NOT (NOT (EQ (READ-FROM-STRING "abc") (READ-FROM-STRING "|abc|")))) EQL-OK: NIL (NOT (EQ (READ-FROM-STRING "abc") (READ-FROM-STRING "\\A\\B\\C"))) EQL-OK: NIL (NOT (EQ (READ-FROM-STRING "abc") (READ-FROM-STRING "a\\Bc"))) EQL-OK: NIL (NOT (EQ (READ-FROM-STRING "abc") (READ-FROM-STRING "\\ABC"))) EQL-OK: NIL (NOT (NOT (EQ (READ-FROM-STRING "abc") (READ-FROM-STRING "\\abc")))) EQL-OK: NIL (NOT (= 1 (EVAL (READ-FROM-STRING "(length '(this-that))")))) EQL-OK: NIL (NOT (= 3 (EVAL (READ-FROM-STRING "(length '(this - that))")))) EQL-OK: NIL (NOT (= 2 (EVAL (READ-FROM-STRING "(length '(a b))")))) EQL-OK: NIL (NOT (= 34 (EVAL (READ-FROM-STRING "(+ 34)")))) EQL-OK: NIL (NOT (= 7 (EVAL (READ-FROM-STRING "(+ 3 4)")))) EQL-OK: NIL (NOT (EQ :KEY (LET ((*PACKAGE* (FIND-PACKAGE "KEYWORD"))) (READ-FROM-STRING "key")))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE 'TEST-FOO) (DELETE-PACKAGE 'TEST-FOO)) (LET ((*PACKAGE* (MAKE-PACKAGE 'TEST-FOO :USE NIL))) (AND (NOT (FIND-SYMBOL "BAR")) (EQ (READ-FROM-STRING "bar") (FIND-SYMBOL "BAR")))))) EQL-OK: NIL (NOT (= (READ-FROM-STRING "1.0") 1.0)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "2/3") 2/3)) EQL-OK: NIL (NOT (ZEROP (READ-FROM-STRING "0"))) EQL-OK: NIL (NOT (ZEROP (READ-FROM-STRING "0.0"))) EQL-OK: NIL (NOT (ZEROP (READ-FROM-STRING "0/3"))) EQL-OK: NIL (NOT (NULL (READ-FROM-STRING "()"))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "(a)") '(A))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "(a b)") '(A B))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "(a b c)") '(A B C))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "(a b c d)") '(A B C D))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "(a b c d e)") '(A B C D E))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "(a b c d e f)") '(A B C D E F))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "(a b c d e f g)") '(A B C D E F G))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "(a b c d e f g h)") '(A B C D E F G H))) EQL-OK: NIL (NOT (HANDLER-CASE (READ-FROM-STRING ".") (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (READ-FROM-STRING "...") (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "0") 0))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "1") 1))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "2") 2))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "3") 3))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "4") 4))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "5") 5))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "6") 6))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "7") 7))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "8.") 8))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "10") 8))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "11") 9))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "12") 10))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "13") 11))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "14") 12))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "15") 13))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "16") 14))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "17") 15))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "20") 16))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 8)) (= (READ-FROM-STRING "21") 17))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "0") 0))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "1") 1))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "2") 2))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "3") 3))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "4") 4))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "5") 5))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "6") 6))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "7") 7))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "8") 8))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "9") 9))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "A") 10))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "a") 10))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "B") 11))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "b") 11))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "C") 12))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "c") 12))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "D") 13))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "d") 13))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "E") 14))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "e") 14))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "F") 15))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "f") 15))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "10") 16))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "11") 17))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "12") 18))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "13") 19))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "14") 20))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "15") 21))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "16") 22))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "17") 23))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "18") 24))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "19") 25))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "1A") 26))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "1a") 26))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "1B") 27))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "1b") 27))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "1C") 28))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "1c") 28))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "1D") 29))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "1d") 29))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "1E") 30))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "1e") 30))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "1F") 31))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "1f") 31))) EQL-OK: NIL (NOT (LET ((*READ-BASE* 16)) (= (READ-FROM-STRING "20") 32))) EQL-OK: NIL (NOT (= (READ-FROM-STRING "0") 0)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "+0") 0)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "-0") 0)) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "0"))) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "+0"))) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "-0"))) EQL-OK: NIL (NOT (= (READ-FROM-STRING "1") 1)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "+1") 1)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "-1") -1)) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "1"))) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "+1"))) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "-1"))) EQL-OK: NIL (NOT (= (READ-FROM-STRING "12") 12)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "+12") 12)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "-12") -12)) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "12"))) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "+12"))) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "-12"))) EQL-OK: NIL (NOT (= (READ-FROM-STRING "123") 123)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "+123") 123)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "-123") -123)) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "123"))) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "+123"))) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "-123"))) EQL-OK: NIL (NOT (= (READ-FROM-STRING "1234") 1234)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "+1234") 1234)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "-1234") -1234)) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "1234"))) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "+1234"))) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "-1234"))) EQL-OK: NIL (NOT (= (READ-FROM-STRING "12345") 12345)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "+12345") 12345)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "-12345") -12345)) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "12345"))) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "+12345"))) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "-12345"))) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "48148148031244413808971345"))) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "+48148148031244413808971345"))) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "-48148148031244413808971345"))) EQL-OK: NIL (NOT (= (READ-FROM-STRING "0.") 0)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "+0.") 0)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "-0.") 0)) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "0."))) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "+0."))) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "-0."))) EQL-OK: NIL (NOT (= (READ-FROM-STRING "1.") 1)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "+1.") 1)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "-1.") -1)) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "1."))) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "+1."))) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "-1."))) EQL-OK: NIL (NOT (= (READ-FROM-STRING "12.") 12)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "+12.") 12)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "-12.") -12)) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "12."))) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "+12."))) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "-12."))) EQL-OK: NIL (NOT (= (READ-FROM-STRING "123.") 123)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "+123.") 123)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "-123.") -123)) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "123."))) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "+123."))) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "-123."))) EQL-OK: NIL (NOT (= (READ-FROM-STRING "1234.") 1234)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "+1234.") 1234)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "-1234.") -1234)) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "1234."))) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "+1234."))) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "-1234."))) EQL-OK: NIL (NOT (= (READ-FROM-STRING "12345.") 12345)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "+12345.") 12345)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "-12345.") -12345)) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "12345."))) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "+12345."))) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "-12345."))) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "48148148031244413808971345."))) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "+48148148031244413808971345."))) EQL-OK: NIL (NOT (INTEGERP (READ-FROM-STRING "-48148148031244413808971345."))) EQL-OK: NIL (NOT (ZEROP (LET ((*READ-BASE* 2)) (READ-FROM-STRING "0")))) EQL-OK: NIL (NOT (ZEROP (LET ((*READ-BASE* 2)) (READ-FROM-STRING "+0")))) EQL-OK: NIL (NOT (ZEROP (LET ((*READ-BASE* 2)) (READ-FROM-STRING "-0")))) EQL-OK: NIL (NOT (= 1 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1")))) EQL-OK: NIL (NOT (= 1 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "+1")))) EQL-OK: NIL (NOT (= -1 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "-1")))) EQL-OK: NIL (NOT (= 2 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10")))) EQL-OK: NIL (NOT (= 2 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "+10")))) EQL-OK: NIL (NOT (= -2 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "-10")))) EQL-OK: NIL (NOT (= 3 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11")))) EQL-OK: NIL (NOT (= 3 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "+11")))) EQL-OK: NIL (NOT (= -3 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "-11")))) EQL-OK: NIL (NOT (= -11 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "-11.")))) EQL-OK: NIL (NOT (INTEGERP (LET ((*READ-BASE* 2)) (READ-FROM-STRING "-11.")))) EQL-OK: NIL (NOT (= 21 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10101")))) EQL-OK: NIL (NOT (= 21 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "+10101")))) EQL-OK: NIL (NOT (= -21 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "-10101")))) EQL-OK: NIL (NOT (= -1.0101 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "-1.0101")))) EQL-OK: NIL (NOT (= 1.0101 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1.0101")))) EQL-OK: NIL (NOT (= 123 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "123.")))) EQL-OK: NIL (NOT (ZEROP (LET ((*READ-BASE* 3)) (READ-FROM-STRING "0")))) EQL-OK: NIL (NOT (ZEROP (LET ((*READ-BASE* 3)) (READ-FROM-STRING "+0")))) EQL-OK: NIL (NOT (ZEROP (LET ((*READ-BASE* 3)) (READ-FROM-STRING "-0")))) EQL-OK: NIL (NOT (= 1 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "1")))) EQL-OK: NIL (NOT (= 1 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "+1")))) EQL-OK: NIL (NOT (= -1 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "-1")))) EQL-OK: NIL (NOT (= 2 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "2")))) EQL-OK: NIL (NOT (= 2 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "+2")))) EQL-OK: NIL (NOT (= -2 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "-2")))) EQL-OK: NIL (NOT (= 3 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "10")))) EQL-OK: NIL (NOT (= 3 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "+10")))) EQL-OK: NIL (NOT (= -3 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "-10")))) EQL-OK: NIL (NOT (= 4 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "11")))) EQL-OK: NIL (NOT (= 4 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "+11")))) EQL-OK: NIL (NOT (= -4 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "-11")))) EQL-OK: NIL (NOT (= 5 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "12")))) EQL-OK: NIL (NOT (= 5 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "+12")))) EQL-OK: NIL (NOT (= -5 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "-12")))) EQL-OK: NIL (NOT (= 6 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "20")))) EQL-OK: NIL (NOT (= 6 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "+20")))) EQL-OK: NIL (NOT (= -6 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "-20")))) EQL-OK: NIL (NOT (= 7 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "21")))) EQL-OK: NIL (NOT (= 7 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "+21")))) EQL-OK: NIL (NOT (= -7 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "-21")))) EQL-OK: NIL (NOT (= 8 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "22")))) EQL-OK: NIL (NOT (= 8 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "+22")))) EQL-OK: NIL (NOT (= -8 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "-22")))) EQL-OK: NIL (NOT (= 391514 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "201220001112")))) EQL-OK: NIL (NOT (= 391514 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "+201220001112")))) EQL-OK: NIL (NOT (= -391514 (LET ((*READ-BASE* 3)) (READ-FROM-STRING "-201220001112")))) EQL-OK: NIL (NOT (ZEROP (LET ((*READ-BASE* 8)) (READ-FROM-STRING "0")))) EQL-OK: NIL (NOT (ZEROP (LET ((*READ-BASE* 8)) (READ-FROM-STRING "+0")))) EQL-OK: NIL (NOT (ZEROP (LET ((*READ-BASE* 8)) (READ-FROM-STRING "-0")))) EQL-OK: NIL (NOT (= 1 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1")))) EQL-OK: NIL (NOT (= 1 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "+1")))) EQL-OK: NIL (NOT (= -1 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "-1")))) EQL-OK: NIL (NOT (= 7 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "7")))) EQL-OK: NIL (NOT (= 7 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "+7")))) EQL-OK: NIL (NOT (= -7 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "-7")))) EQL-OK: NIL (NOT (ZEROP (LET ((*READ-BASE* 16)) (READ-FROM-STRING "0")))) EQL-OK: NIL (NOT (ZEROP (LET ((*READ-BASE* 16)) (READ-FROM-STRING "+0")))) EQL-OK: NIL (NOT (ZEROP (LET ((*READ-BASE* 16)) (READ-FROM-STRING "-0")))) EQL-OK: NIL (NOT (= 1 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1")))) EQL-OK: NIL (NOT (= 1 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "+1")))) EQL-OK: NIL (NOT (= -1 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "-1")))) EQL-OK: NIL (NOT (= 9 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "9")))) EQL-OK: NIL (NOT (= 9 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "+9")))) EQL-OK: NIL (NOT (= -9 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "-9")))) EQL-OK: NIL (NOT (= 15 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "F")))) EQL-OK: NIL (NOT (= -15 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "-F")))) EQL-OK: NIL (NOT (= 15 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "F")))) EQL-OK: NIL (NOT (= 15 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "f")))) EQL-OK: NIL (NOT (= -15 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "-f")))) EQL-OK: NIL (NOT (= 15 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "f")))) EQL-OK: NIL (NOT (= 31 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1F")))) EQL-OK: NIL (NOT (= 31 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "+1F")))) EQL-OK: NIL (NOT (= -31 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "-1F")))) EQL-OK: NIL (NOT (= 63 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "3F")))) EQL-OK: NIL (NOT (= 63 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "+3F")))) EQL-OK: NIL (NOT (= -63 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "-3F")))) EQL-OK: NIL (NOT (= 9 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "9.")))) EQL-OK: NIL (NOT (INTEGERP (LET ((*READ-BASE* 16)) (READ-FROM-STRING "9.")))) EQL-OK: NIL (NOT (= 10 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "10.")))) EQL-OK: NIL (NOT (INTEGERP (LET ((*READ-BASE* 16)) (READ-FROM-STRING "10.")))) EQL-OK: NIL (NOT (EQUAL (LET (STACK) (DOTIMES (I 6 STACK) (LET ((*READ-BASE* (+ 10 I))) (LET ((OBJECT (READ-FROM-STRING "(\\DAD DAD |BEE| BEE 123. 123)"))) (PUSH (LIST *READ-BASE* OBJECT) STACK))))) '((15 (DAD 3088 BEE 2699 123 258)) (14 (DAD 2701 BEE BEE 123 227)) (13 (DAD DAD BEE BEE 123 198)) (12 (DAD DAD BEE BEE 123 171)) (11 (DAD DAD BEE BEE 123 146)) (10 (DAD DAD BEE BEE 123 123))))) EQL-OK: NIL (NOT (LOOP FOR I FROM 2 UPTO 32 ALWAYS (ZEROP (LET ((*READ-BASE* I)) (READ-FROM-STRING "0"))))) EQL-OK: NIL (NOT (LOOP FOR I FROM 2 UPTO 32 ALWAYS (ZEROP (LET ((*READ-BASE* I)) (READ-FROM-STRING "+0"))))) EQL-OK: NIL (NOT (LOOP FOR I FROM 2 UPTO 32 ALWAYS (ZEROP (LET ((*READ-BASE* I)) (READ-FROM-STRING "-0"))))) EQL-OK: NIL (NOT (LOOP FOR I FROM 2 UPTO 32 ALWAYS (= 1 (LET ((*READ-BASE* I)) (READ-FROM-STRING "1"))))) EQL-OK: NIL (NOT (LOOP FOR I FROM 2 UPTO 32 ALWAYS (= 1 (LET ((*READ-BASE* I)) (READ-FROM-STRING "+1"))))) EQL-OK: NIL (NOT (LOOP FOR I FROM 2 UPTO 32 ALWAYS (= -1 (LET ((*READ-BASE* I)) (READ-FROM-STRING "-1"))))) EQL-OK: NIL (NOT (LOOP FOR I FROM 2 UPTO 32 FOR N = (LET ((*READ-BASE* I)) (READ-FROM-STRING "10.")) ALWAYS (AND (INTEGERP N) (= 10 N)))) EQL-OK: NIL (NOT (LOOP FOR I FROM 2 UPTO 32 FOR N = (LET ((*READ-BASE* I)) (READ-FROM-STRING "+10.")) ALWAYS (AND (INTEGERP N) (= 10 N)))) EQL-OK: NIL (NOT (LOOP FOR I FROM 2 UPTO 32 FOR N = (LET ((*READ-BASE* I)) (READ-FROM-STRING "-10.")) ALWAYS (AND (INTEGERP N) (= -10 N)))) EQL-OK: NIL (NOT (LOOP FOR I FROM 2 UPTO 32 FOR N = (LET ((*READ-BASE* I)) (READ-FROM-STRING "1.1")) ALWAYS (= 1.1 N))) EQL-OK: NIL (NOT (LOOP FOR I FROM 2 UPTO 32 FOR N = (LET ((*READ-BASE* I)) (READ-FROM-STRING "+1.1")) ALWAYS (= 1.1 N))) EQL-OK: NIL (NOT (LOOP FOR I FROM 2 UPTO 32 FOR N = (LET ((*READ-BASE* I)) (READ-FROM-STRING "-1.1")) ALWAYS (= -1.1 N))) EQL-OK: NIL (NOT (ZEROP (READ-FROM-STRING "0/2"))) EQL-OK: NIL (NOT (ZEROP (READ-FROM-STRING "0/3"))) EQL-OK: NIL (NOT (ZEROP (READ-FROM-STRING "0/4"))) EQL-OK: NIL (NOT (ZEROP (READ-FROM-STRING "0/5"))) EQL-OK: NIL (NOT (ZEROP (READ-FROM-STRING "0/6"))) EQL-OK: NIL (NOT (ZEROP (READ-FROM-STRING "0/7"))) EQL-OK: NIL (NOT (ZEROP (READ-FROM-STRING "0/8"))) EQL-OK: NIL (NOT (ZEROP (READ-FROM-STRING "0/9"))) EQL-OK: NIL (NOT (ZEROP (READ-FROM-STRING "0/10"))) EQL-OK: NIL (NOT (ZEROP (READ-FROM-STRING "0/11"))) EQL-OK: NIL (NOT (ZEROP (READ-FROM-STRING "0/12"))) EQL-OK: NIL (NOT (ZEROP (READ-FROM-STRING "0/13"))) EQL-OK: NIL (NOT (ZEROP (READ-FROM-STRING "0/14"))) EQL-OK: NIL (NOT (ZEROP (READ-FROM-STRING "0/15"))) EQL-OK: NIL (NOT (ZEROP (READ-FROM-STRING "0/16"))) EQL-OK: NIL (NOT (ZEROP (READ-FROM-STRING "0/17"))) EQL-OK: NIL (NOT (ZEROP (READ-FROM-STRING "0/18"))) EQL-OK: NIL (NOT (ZEROP (READ-FROM-STRING "0/19"))) EQL-OK: NIL (NOT (ZEROP (READ-FROM-STRING "0/20"))) EQL-OK: NIL (NOT (= 1/2 (READ-FROM-STRING "1/2"))) EQL-OK: NIL (NOT (= 1/3 (READ-FROM-STRING "1/3"))) EQL-OK: NIL (NOT (= 1/4 (READ-FROM-STRING "1/4"))) EQL-OK: NIL (NOT (= 1/5 (READ-FROM-STRING "1/5"))) EQL-OK: NIL (NOT (= 1/6 (READ-FROM-STRING "1/6"))) EQL-OK: NIL (NOT (= 1/7 (READ-FROM-STRING "1/7"))) EQL-OK: NIL (NOT (= 1/8 (READ-FROM-STRING "1/8"))) EQL-OK: NIL (NOT (= 1/9 (READ-FROM-STRING "1/9"))) EQL-OK: NIL (NOT (= 1/10 (READ-FROM-STRING "1/10"))) EQL-OK: NIL (NOT (= 1/11 (READ-FROM-STRING "1/11"))) EQL-OK: NIL (NOT (= 1/12 (READ-FROM-STRING "1/12"))) EQL-OK: NIL (NOT (= 1/13 (READ-FROM-STRING "1/13"))) EQL-OK: NIL (NOT (= 1/14 (READ-FROM-STRING "1/14"))) EQL-OK: NIL (NOT (= 1/15 (READ-FROM-STRING "1/15"))) EQL-OK: NIL (NOT (= 1/16 (READ-FROM-STRING "1/16"))) EQL-OK: NIL (NOT (= 1/17 (READ-FROM-STRING "1/17"))) EQL-OK: NIL (NOT (= 1/18 (READ-FROM-STRING "1/18"))) EQL-OK: NIL (NOT (= 1/19 (READ-FROM-STRING "1/19"))) EQL-OK: NIL (NOT (= 1/20 (READ-FROM-STRING "1/20"))) EQL-OK: NIL (NOT (= 1 (READ-FROM-STRING "2/2"))) EQL-OK: NIL (NOT (= 2/3 (READ-FROM-STRING "2/3"))) EQL-OK: NIL (NOT (= 1/2 (READ-FROM-STRING "2/4"))) EQL-OK: NIL (NOT (= 2/5 (READ-FROM-STRING "2/5"))) EQL-OK: NIL (NOT (= 1/3 (READ-FROM-STRING "2/6"))) EQL-OK: NIL (NOT (= 2/7 (READ-FROM-STRING "2/7"))) EQL-OK: NIL (NOT (= 1/4 (READ-FROM-STRING "2/8"))) EQL-OK: NIL (NOT (= 2/9 (READ-FROM-STRING "2/9"))) EQL-OK: NIL (NOT (= 1/5 (READ-FROM-STRING "2/10"))) EQL-OK: NIL (NOT (= 2/11 (READ-FROM-STRING "2/11"))) EQL-OK: NIL (NOT (= 1/6 (READ-FROM-STRING "2/12"))) EQL-OK: NIL (NOT (= 2/13 (READ-FROM-STRING "2/13"))) EQL-OK: NIL (NOT (= 1/7 (READ-FROM-STRING "2/14"))) EQL-OK: NIL (NOT (= 2/15 (READ-FROM-STRING "2/15"))) EQL-OK: NIL (NOT (= 1/8 (READ-FROM-STRING "2/16"))) EQL-OK: NIL (NOT (= 2/17 (READ-FROM-STRING "2/17"))) EQL-OK: NIL (NOT (= 1/9 (READ-FROM-STRING "2/18"))) EQL-OK: NIL (NOT (= 2/19 (READ-FROM-STRING "2/19"))) EQL-OK: NIL (NOT (= 1/10 (READ-FROM-STRING "2/20"))) EQL-OK: NIL (NOT (= 17/2 (READ-FROM-STRING "17/2"))) EQL-OK: NIL (NOT (= 17/3 (READ-FROM-STRING "17/3"))) EQL-OK: NIL (NOT (= 17/4 (READ-FROM-STRING "17/4"))) EQL-OK: NIL (NOT (= 17/5 (READ-FROM-STRING "17/5"))) EQL-OK: NIL (NOT (= 17/6 (READ-FROM-STRING "17/6"))) EQL-OK: NIL (NOT (= 17/7 (READ-FROM-STRING "17/7"))) EQL-OK: NIL (NOT (= 17/8 (READ-FROM-STRING "17/8"))) EQL-OK: NIL (NOT (= 17/9 (READ-FROM-STRING "17/9"))) EQL-OK: NIL (NOT (= 17/10 (READ-FROM-STRING "17/10"))) EQL-OK: NIL (NOT (= 17/11 (READ-FROM-STRING "17/11"))) EQL-OK: NIL (NOT (= 17/12 (READ-FROM-STRING "17/12"))) EQL-OK: NIL (NOT (= 17/13 (READ-FROM-STRING "17/13"))) EQL-OK: NIL (NOT (= 17/14 (READ-FROM-STRING "17/14"))) EQL-OK: NIL (NOT (= 17/15 (READ-FROM-STRING "17/15"))) EQL-OK: NIL (NOT (= 17/16 (READ-FROM-STRING "17/16"))) EQL-OK: NIL (NOT (= 1 (READ-FROM-STRING "17/17"))) EQL-OK: NIL (NOT (= 17/18 (READ-FROM-STRING "17/18"))) EQL-OK: NIL (NOT (= 17/19 (READ-FROM-STRING "17/19"))) EQL-OK: NIL (NOT (= 17/20 (READ-FROM-STRING "17/20"))) EQL-OK: NIL (NOT (= 0 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "0/1")))) EQL-OK: NIL (NOT (= 1 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/1")))) EQL-OK: NIL (NOT (= 1/2 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/10")))) EQL-OK: NIL (NOT (= 1/3 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/11")))) EQL-OK: NIL (NOT (= 1/4 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/100")))) EQL-OK: NIL (NOT (= 1/5 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/101")))) EQL-OK: NIL (NOT (= 1/6 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/110")))) EQL-OK: NIL (NOT (= 1/7 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/111")))) EQL-OK: NIL (NOT (= 1/8 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/1000")))) EQL-OK: NIL (NOT (= 1/9 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/1001")))) EQL-OK: NIL (NOT (= 1/10 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/1010")))) EQL-OK: NIL (NOT (= 1/11 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/1011")))) EQL-OK: NIL (NOT (= 1/12 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/1100")))) EQL-OK: NIL (NOT (= 1/13 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/1101")))) EQL-OK: NIL (NOT (= 1/14 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/1110")))) EQL-OK: NIL (NOT (= 1/15 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/1111")))) EQL-OK: NIL (NOT (= 1/16 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/10000")))) EQL-OK: NIL (NOT (= 1/17 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/10001")))) EQL-OK: NIL (NOT (= 1/18 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/10010")))) EQL-OK: NIL (NOT (= 1/19 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/10011")))) EQL-OK: NIL (NOT (= 1/20 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/10100")))) EQL-OK: NIL (NOT (= 1/21 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/10101")))) EQL-OK: NIL (NOT (= 1/22 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/10110")))) EQL-OK: NIL (NOT (= 1/23 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "1/10111")))) EQL-OK: NIL (NOT (= 2 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/1")))) EQL-OK: NIL (NOT (= 1 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/10")))) EQL-OK: NIL (NOT (= 2/3 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/11")))) EQL-OK: NIL (NOT (= 1/2 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/100")))) EQL-OK: NIL (NOT (= 2/5 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/101")))) EQL-OK: NIL (NOT (= 1/3 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/110")))) EQL-OK: NIL (NOT (= 2/7 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/111")))) EQL-OK: NIL (NOT (= 1/4 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/1000")))) EQL-OK: NIL (NOT (= 2/9 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/1001")))) EQL-OK: NIL (NOT (= 1/5 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/1010")))) EQL-OK: NIL (NOT (= 2/11 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/1011")))) EQL-OK: NIL (NOT (= 1/6 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/1100")))) EQL-OK: NIL (NOT (= 2/13 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/1101")))) EQL-OK: NIL (NOT (= 1/7 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/1110")))) EQL-OK: NIL (NOT (= 2/15 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/1111")))) EQL-OK: NIL (NOT (= 1/8 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/10000")))) EQL-OK: NIL (NOT (= 2/17 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/10001")))) EQL-OK: NIL (NOT (= 1/9 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/10010")))) EQL-OK: NIL (NOT (= 2/19 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/10011")))) EQL-OK: NIL (NOT (= 1/10 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/10100")))) EQL-OK: NIL (NOT (= 2/21 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/10101")))) EQL-OK: NIL (NOT (= 1/11 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/10110")))) EQL-OK: NIL (NOT (= 2/23 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "10/10111")))) EQL-OK: NIL (NOT (= 3 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/1")))) EQL-OK: NIL (NOT (= 3/2 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/10")))) EQL-OK: NIL (NOT (= 1 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/11")))) EQL-OK: NIL (NOT (= 3/4 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/100")))) EQL-OK: NIL (NOT (= 3/5 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/101")))) EQL-OK: NIL (NOT (= 1/2 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/110")))) EQL-OK: NIL (NOT (= 3/7 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/111")))) EQL-OK: NIL (NOT (= 3/8 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/1000")))) EQL-OK: NIL (NOT (= 1/3 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/1001")))) EQL-OK: NIL (NOT (= 3/10 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/1010")))) EQL-OK: NIL (NOT (= 3/11 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/1011")))) EQL-OK: NIL (NOT (= 1/4 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/1100")))) EQL-OK: NIL (NOT (= 3/13 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/1101")))) EQL-OK: NIL (NOT (= 3/14 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/1110")))) EQL-OK: NIL (NOT (= 1/5 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/1111")))) EQL-OK: NIL (NOT (= 3/16 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/10000")))) EQL-OK: NIL (NOT (= 3/17 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/10001")))) EQL-OK: NIL (NOT (= 1/6 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/10010")))) EQL-OK: NIL (NOT (= 3/19 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/10011")))) EQL-OK: NIL (NOT (= 3/20 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/10100")))) EQL-OK: NIL (NOT (= 1/7 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/10101")))) EQL-OK: NIL (NOT (= 3/22 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/10110")))) EQL-OK: NIL (NOT (= 3/23 (LET ((*READ-BASE* 2)) (READ-FROM-STRING "11/10111")))) EQL-OK: NIL (NOT (= 0 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "0/1")))) EQL-OK: NIL (NOT (= 1/2 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/2")))) EQL-OK: NIL (NOT (= 1/3 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/3")))) EQL-OK: NIL (NOT (= 1/4 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/4")))) EQL-OK: NIL (NOT (= 1/5 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/5")))) EQL-OK: NIL (NOT (= 1/6 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/6")))) EQL-OK: NIL (NOT (= 1/7 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/7")))) EQL-OK: NIL (NOT (= 1/8 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/10")))) EQL-OK: NIL (NOT (= 1/9 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/11")))) EQL-OK: NIL (NOT (= 1/10 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/12")))) EQL-OK: NIL (NOT (= 1/11 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/13")))) EQL-OK: NIL (NOT (= 1/12 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/14")))) EQL-OK: NIL (NOT (= 1/13 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/15")))) EQL-OK: NIL (NOT (= 1/14 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/16")))) EQL-OK: NIL (NOT (= 1/15 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/17")))) EQL-OK: NIL (NOT (= 1/16 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/20")))) EQL-OK: NIL (NOT (= 1/17 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/21")))) EQL-OK: NIL (NOT (= 1/18 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/22")))) EQL-OK: NIL (NOT (= 1/19 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/23")))) EQL-OK: NIL (NOT (= 1/20 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "1/24")))) EQL-OK: NIL (NOT (= 3/2 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/2")))) EQL-OK: NIL (NOT (= 1 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/3")))) EQL-OK: NIL (NOT (= 3/4 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/4")))) EQL-OK: NIL (NOT (= 3/5 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/5")))) EQL-OK: NIL (NOT (= 1/2 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/6")))) EQL-OK: NIL (NOT (= 3/7 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/7")))) EQL-OK: NIL (NOT (= 3/8 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/10")))) EQL-OK: NIL (NOT (= 1/3 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/11")))) EQL-OK: NIL (NOT (= 3/10 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/12")))) EQL-OK: NIL (NOT (= 3/11 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/13")))) EQL-OK: NIL (NOT (= 1/4 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/14")))) EQL-OK: NIL (NOT (= 3/13 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/15")))) EQL-OK: NIL (NOT (= 3/14 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/16")))) EQL-OK: NIL (NOT (= 1/5 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/17")))) EQL-OK: NIL (NOT (= 3/16 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/20")))) EQL-OK: NIL (NOT (= 3/17 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/21")))) EQL-OK: NIL (NOT (= 1/6 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/22")))) EQL-OK: NIL (NOT (= 3/19 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/23")))) EQL-OK: NIL (NOT (= 3/20 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "3/24")))) EQL-OK: NIL (NOT (= 13/2 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/2")))) EQL-OK: NIL (NOT (= 13/3 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/3")))) EQL-OK: NIL (NOT (= 13/4 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/4")))) EQL-OK: NIL (NOT (= 13/5 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/5")))) EQL-OK: NIL (NOT (= 13/6 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/6")))) EQL-OK: NIL (NOT (= 13/7 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/7")))) EQL-OK: NIL (NOT (= 13/8 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/10")))) EQL-OK: NIL (NOT (= 13/9 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/11")))) EQL-OK: NIL (NOT (= 13/10 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/12")))) EQL-OK: NIL (NOT (= 13/11 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/13")))) EQL-OK: NIL (NOT (= 13/12 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/14")))) EQL-OK: NIL (NOT (= 1 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/15")))) EQL-OK: NIL (NOT (= 13/14 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/16")))) EQL-OK: NIL (NOT (= 13/15 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/17")))) EQL-OK: NIL (NOT (= 13/16 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/20")))) EQL-OK: NIL (NOT (= 13/17 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/21")))) EQL-OK: NIL (NOT (= 13/18 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/22")))) EQL-OK: NIL (NOT (= 13/19 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/23")))) EQL-OK: NIL (NOT (= 13/20 (LET ((*READ-BASE* 8)) (READ-FROM-STRING "15/24")))) EQL-OK: NIL (NOT (= 0 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "0/1")))) EQL-OK: NIL (NOT (= 1/2 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/2")))) EQL-OK: NIL (NOT (= 1/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/3")))) EQL-OK: NIL (NOT (= 1/4 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/4")))) EQL-OK: NIL (NOT (= 1/5 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/5")))) EQL-OK: NIL (NOT (= 1/6 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/6")))) EQL-OK: NIL (NOT (= 1/7 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/7")))) EQL-OK: NIL (NOT (= 1/8 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/8")))) EQL-OK: NIL (NOT (= 1/9 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/9")))) EQL-OK: NIL (NOT (= 1/10 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/A")))) EQL-OK: NIL (NOT (= 1/11 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/B")))) EQL-OK: NIL (NOT (= 1/12 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/C")))) EQL-OK: NIL (NOT (= 1/13 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/D")))) EQL-OK: NIL (NOT (= 1/14 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/E")))) EQL-OK: NIL (NOT (= 1/15 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/F")))) EQL-OK: NIL (NOT (= 1/10 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/a")))) EQL-OK: NIL (NOT (= 1/11 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/b")))) EQL-OK: NIL (NOT (= 1/12 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/c")))) EQL-OK: NIL (NOT (= 1/13 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/d")))) EQL-OK: NIL (NOT (= 1/14 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/e")))) EQL-OK: NIL (NOT (= 1/15 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/f")))) EQL-OK: NIL (NOT (= 1/16 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/10")))) EQL-OK: NIL (NOT (= 1/17 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/11")))) EQL-OK: NIL (NOT (= 1/18 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/12")))) EQL-OK: NIL (NOT (= 1/19 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/13")))) EQL-OK: NIL (NOT (= 1/20 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/14")))) EQL-OK: NIL (NOT (= 1/21 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/15")))) EQL-OK: NIL (NOT (= 1/22 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/16")))) EQL-OK: NIL (NOT (= 1/23 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/17")))) EQL-OK: NIL (NOT (= 1/24 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/18")))) EQL-OK: NIL (NOT (= 1/25 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/19")))) EQL-OK: NIL (NOT (= 1/26 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/1A")))) EQL-OK: NIL (NOT (= 1/27 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/1B")))) EQL-OK: NIL (NOT (= 1/28 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/1C")))) EQL-OK: NIL (NOT (= 1/29 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/1D")))) EQL-OK: NIL (NOT (= 1/30 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/1E")))) EQL-OK: NIL (NOT (= 1/31 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/1F")))) EQL-OK: NIL (NOT (= 1/32 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/20")))) EQL-OK: NIL (NOT (= 1/33 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/21")))) EQL-OK: NIL (NOT (= 1/34 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/22")))) EQL-OK: NIL (NOT (= 1/35 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/23")))) EQL-OK: NIL (NOT (= 1/36 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "1/24")))) EQL-OK: NIL (NOT (= 1 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/2")))) EQL-OK: NIL (NOT (= 2/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/3")))) EQL-OK: NIL (NOT (= 1/2 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/4")))) EQL-OK: NIL (NOT (= 2/5 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/5")))) EQL-OK: NIL (NOT (= 1/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/6")))) EQL-OK: NIL (NOT (= 2/7 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/7")))) EQL-OK: NIL (NOT (= 1/4 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/8")))) EQL-OK: NIL (NOT (= 2/9 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/9")))) EQL-OK: NIL (NOT (= 1/5 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/A")))) EQL-OK: NIL (NOT (= 2/11 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/B")))) EQL-OK: NIL (NOT (= 1/6 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/C")))) EQL-OK: NIL (NOT (= 2/13 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/D")))) EQL-OK: NIL (NOT (= 1/7 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/E")))) EQL-OK: NIL (NOT (= 2/15 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/F")))) EQL-OK: NIL (NOT (= 1/5 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/a")))) EQL-OK: NIL (NOT (= 2/11 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/b")))) EQL-OK: NIL (NOT (= 1/6 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/c")))) EQL-OK: NIL (NOT (= 2/13 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/d")))) EQL-OK: NIL (NOT (= 1/7 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/e")))) EQL-OK: NIL (NOT (= 2/15 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/f")))) EQL-OK: NIL (NOT (= 1/8 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/10")))) EQL-OK: NIL (NOT (= 2/17 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/11")))) EQL-OK: NIL (NOT (= 1/9 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/12")))) EQL-OK: NIL (NOT (= 2/19 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/13")))) EQL-OK: NIL (NOT (= 1/10 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/14")))) EQL-OK: NIL (NOT (= 2/21 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/15")))) EQL-OK: NIL (NOT (= 1/11 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/16")))) EQL-OK: NIL (NOT (= 2/23 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/17")))) EQL-OK: NIL (NOT (= 1/12 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/18")))) EQL-OK: NIL (NOT (= 2/25 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/19")))) EQL-OK: NIL (NOT (= 1/13 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/1A")))) EQL-OK: NIL (NOT (= 2/27 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/1B")))) EQL-OK: NIL (NOT (= 1/14 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/1C")))) EQL-OK: NIL (NOT (= 2/29 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/1D")))) EQL-OK: NIL (NOT (= 1/15 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/1E")))) EQL-OK: NIL (NOT (= 2/31 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/1F")))) EQL-OK: NIL (NOT (= 1/16 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/20")))) EQL-OK: NIL (NOT (= 2/33 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/21")))) EQL-OK: NIL (NOT (= 1/17 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/22")))) EQL-OK: NIL (NOT (= 2/35 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/23")))) EQL-OK: NIL (NOT (= 1/18 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "2/24")))) EQL-OK: NIL (NOT (= 5 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/2")))) EQL-OK: NIL (NOT (= 10/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/3")))) EQL-OK: NIL (NOT (= 5/2 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/4")))) EQL-OK: NIL (NOT (= 2 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/5")))) EQL-OK: NIL (NOT (= 5/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/6")))) EQL-OK: NIL (NOT (= 10/7 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/7")))) EQL-OK: NIL (NOT (= 5/4 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/8")))) EQL-OK: NIL (NOT (= 10/9 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/9")))) EQL-OK: NIL (NOT (= 1 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/A")))) EQL-OK: NIL (NOT (= 10/11 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/B")))) EQL-OK: NIL (NOT (= 5/6 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/C")))) EQL-OK: NIL (NOT (= 10/13 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/D")))) EQL-OK: NIL (NOT (= 5/7 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/E")))) EQL-OK: NIL (NOT (= 2/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/F")))) EQL-OK: NIL (NOT (= 1 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/a")))) EQL-OK: NIL (NOT (= 10/11 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/b")))) EQL-OK: NIL (NOT (= 5/6 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/c")))) EQL-OK: NIL (NOT (= 10/13 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/d")))) EQL-OK: NIL (NOT (= 5/7 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/e")))) EQL-OK: NIL (NOT (= 2/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/f")))) EQL-OK: NIL (NOT (= 5/8 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/10")))) EQL-OK: NIL (NOT (= 10/17 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/11")))) EQL-OK: NIL (NOT (= 5/9 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/12")))) EQL-OK: NIL (NOT (= 10/19 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/13")))) EQL-OK: NIL (NOT (= 1/2 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/14")))) EQL-OK: NIL (NOT (= 10/21 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/15")))) EQL-OK: NIL (NOT (= 5/11 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/16")))) EQL-OK: NIL (NOT (= 10/23 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/17")))) EQL-OK: NIL (NOT (= 5/12 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/18")))) EQL-OK: NIL (NOT (= 2/5 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/19")))) EQL-OK: NIL (NOT (= 5/13 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/1A")))) EQL-OK: NIL (NOT (= 10/27 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/1B")))) EQL-OK: NIL (NOT (= 5/14 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/1C")))) EQL-OK: NIL (NOT (= 10/29 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/1D")))) EQL-OK: NIL (NOT (= 1/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/1E")))) EQL-OK: NIL (NOT (= 10/31 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/1F")))) EQL-OK: NIL (NOT (= 5/16 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/20")))) EQL-OK: NIL (NOT (= 10/33 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/21")))) EQL-OK: NIL (NOT (= 5/17 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/22")))) EQL-OK: NIL (NOT (= 2/7 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/23")))) EQL-OK: NIL (NOT (= 5/18 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "a/24")))) EQL-OK: NIL (NOT (= 35/2 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/2")))) EQL-OK: NIL (NOT (= 35/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/3")))) EQL-OK: NIL (NOT (= 35/4 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/4")))) EQL-OK: NIL (NOT (= 7 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/5")))) EQL-OK: NIL (NOT (= 35/6 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/6")))) EQL-OK: NIL (NOT (= 5 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/7")))) EQL-OK: NIL (NOT (= 35/8 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/8")))) EQL-OK: NIL (NOT (= 35/9 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/9")))) EQL-OK: NIL (NOT (= 7/2 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/A")))) EQL-OK: NIL (NOT (= 35/11 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/B")))) EQL-OK: NIL (NOT (= 35/12 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/C")))) EQL-OK: NIL (NOT (= 35/13 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/D")))) EQL-OK: NIL (NOT (= 5/2 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/E")))) EQL-OK: NIL (NOT (= 7/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/F")))) EQL-OK: NIL (NOT (= 7/2 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/a")))) EQL-OK: NIL (NOT (= 35/11 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/b")))) EQL-OK: NIL (NOT (= 35/12 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/c")))) EQL-OK: NIL (NOT (= 35/13 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/d")))) EQL-OK: NIL (NOT (= 5/2 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/e")))) EQL-OK: NIL (NOT (= 7/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/f")))) EQL-OK: NIL (NOT (= 35/16 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/10")))) EQL-OK: NIL (NOT (= 35/17 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/11")))) EQL-OK: NIL (NOT (= 35/18 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/12")))) EQL-OK: NIL (NOT (= 35/19 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/13")))) EQL-OK: NIL (NOT (= 7/4 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/14")))) EQL-OK: NIL (NOT (= 5/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/15")))) EQL-OK: NIL (NOT (= 35/22 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/16")))) EQL-OK: NIL (NOT (= 35/23 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/17")))) EQL-OK: NIL (NOT (= 35/24 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/18")))) EQL-OK: NIL (NOT (= 7/5 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/19")))) EQL-OK: NIL (NOT (= 35/26 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/1A")))) EQL-OK: NIL (NOT (= 35/27 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/1B")))) EQL-OK: NIL (NOT (= 5/4 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/1C")))) EQL-OK: NIL (NOT (= 35/29 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/1D")))) EQL-OK: NIL (NOT (= 7/6 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/1E")))) EQL-OK: NIL (NOT (= 35/31 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/1F")))) EQL-OK: NIL (NOT (= 35/32 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/20")))) EQL-OK: NIL (NOT (= 35/33 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/21")))) EQL-OK: NIL (NOT (= 35/34 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/22")))) EQL-OK: NIL (NOT (= 1 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/23")))) EQL-OK: NIL (NOT (= 35/36 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "23/24")))) EQL-OK: NIL (NOT (= 55 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/2")))) EQL-OK: NIL (NOT (= 110/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/3")))) EQL-OK: NIL (NOT (= 55/2 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/4")))) EQL-OK: NIL (NOT (= 22 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/5")))) EQL-OK: NIL (NOT (= 55/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/6")))) EQL-OK: NIL (NOT (= 110/7 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/7")))) EQL-OK: NIL (NOT (= 55/4 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/8")))) EQL-OK: NIL (NOT (= 110/9 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/9")))) EQL-OK: NIL (NOT (= 11 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/A")))) EQL-OK: NIL (NOT (= 10 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/B")))) EQL-OK: NIL (NOT (= 55/6 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/C")))) EQL-OK: NIL (NOT (= 110/13 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/D")))) EQL-OK: NIL (NOT (= 55/7 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/E")))) EQL-OK: NIL (NOT (= 22/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/F")))) EQL-OK: NIL (NOT (= 11 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/a")))) EQL-OK: NIL (NOT (= 10 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/b")))) EQL-OK: NIL (NOT (= 55/6 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/c")))) EQL-OK: NIL (NOT (= 110/13 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/d")))) EQL-OK: NIL (NOT (= 55/7 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/e")))) EQL-OK: NIL (NOT (= 22/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/f")))) EQL-OK: NIL (NOT (= 55/8 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/10")))) EQL-OK: NIL (NOT (= 110/17 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/11")))) EQL-OK: NIL (NOT (= 55/9 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/12")))) EQL-OK: NIL (NOT (= 110/19 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/13")))) EQL-OK: NIL (NOT (= 11/2 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/14")))) EQL-OK: NIL (NOT (= 110/21 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/15")))) EQL-OK: NIL (NOT (= 5 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/16")))) EQL-OK: NIL (NOT (= 110/23 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/17")))) EQL-OK: NIL (NOT (= 55/12 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/18")))) EQL-OK: NIL (NOT (= 22/5 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/19")))) EQL-OK: NIL (NOT (= 55/13 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/1A")))) EQL-OK: NIL (NOT (= 110/27 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/1B")))) EQL-OK: NIL (NOT (= 55/14 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/1C")))) EQL-OK: NIL (NOT (= 110/29 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/1D")))) EQL-OK: NIL (NOT (= 11/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/1E")))) EQL-OK: NIL (NOT (= 110/31 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/1F")))) EQL-OK: NIL (NOT (= 55/16 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/20")))) EQL-OK: NIL (NOT (= 10/3 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/21")))) EQL-OK: NIL (NOT (= 55/17 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/22")))) EQL-OK: NIL (NOT (= 22/7 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/23")))) EQL-OK: NIL (NOT (= 55/18 (LET ((*READ-BASE* 16)) (READ-FROM-STRING "6E/24")))) EQL-OK: NIL (NOT (= 1/101010101010101010101010101010101 (READ-FROM-STRING "11/1111111111111111111111111111111111"))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "0.0"))) (AND (FLOATP F) (ZEROP F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+0.0"))) (AND (FLOATP F) (ZEROP F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-0.0"))) (AND (FLOATP F) (ZEROP F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING ".0"))) (AND (FLOATP F) (ZEROP F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+.0"))) (AND (FLOATP F) (ZEROP F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-.0"))) (AND (FLOATP F) (ZEROP F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1.0"))) (AND (FLOATP F) (= 1.0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1.0"))) (AND (FLOATP F) (= 1.0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1.0"))) (AND (FLOATP F) (= -1.0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1d1"))) (AND (FLOATP F) (= 10.0d0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1e1"))) (AND (FLOATP F) (= 10.0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1f1"))) (AND (FLOATP F) (= 10.0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1l1"))) (AND (FLOATP F) (= 10.0L0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1s1"))) (AND (FLOATP F) (= 10.0s0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1D1"))) (AND (FLOATP F) (= 10.0d0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1E1"))) (AND (FLOATP F) (= 10.0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1F1"))) (AND (FLOATP F) (= 10.0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1L1"))) (AND (FLOATP F) (= 10.0L0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1S1"))) (AND (FLOATP F) (= 10.0s0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1d+1"))) (AND (FLOATP F) (= 10.0d0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1e+1"))) (AND (FLOATP F) (= 10.0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1f+1"))) (AND (FLOATP F) (= 10.0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1l+1"))) (AND (FLOATP F) (= 10.0L0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1s+1"))) (AND (FLOATP F) (= 10.0s0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1D+1"))) (AND (FLOATP F) (= 10.0d0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1E+1"))) (AND (FLOATP F) (= 10.0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1F+1"))) (AND (FLOATP F) (= 10.0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1L+1"))) (AND (FLOATP F) (= 10.0L0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1S+1"))) (AND (FLOATP F) (= 10.0s0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1d-1"))) (AND (FLOATP F) (= 0.1d0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1e-1"))) (AND (FLOATP F) (= 0.1 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1f-1"))) (AND (FLOATP F) (= 0.1 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1l-1"))) (AND (FLOATP F) (= 0.1L0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1s-1"))) (AND (FLOATP F) (= 0.1s0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1D-1"))) (AND (FLOATP F) (= 0.1d0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1E-1"))) (AND (FLOATP F) (= 0.1 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1F-1"))) (AND (FLOATP F) (= 0.1 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1L-1"))) (AND (FLOATP F) (= 0.1L0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1S-1"))) (AND (FLOATP F) (= 0.1s0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1d1"))) (AND (FLOATP F) (= 10.0d0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1e1"))) (AND (FLOATP F) (= 10.0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1f1"))) (AND (FLOATP F) (= 10.0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1l1"))) (AND (FLOATP F) (= 10.0L0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1s1"))) (AND (FLOATP F) (= 10.0s0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1D1"))) (AND (FLOATP F) (= 10.0d0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1E1"))) (AND (FLOATP F) (= 10.0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1F1"))) (AND (FLOATP F) (= 10.0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1L1"))) (AND (FLOATP F) (= 10.0L0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1S1"))) (AND (FLOATP F) (= 10.0s0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1d+1"))) (AND (FLOATP F) (= 10.0d0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1e+1"))) (AND (FLOATP F) (= 10.0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1f+1"))) (AND (FLOATP F) (= 10.0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1l+1"))) (AND (FLOATP F) (= 10.0L0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1s+1"))) (AND (FLOATP F) (= 10.0s0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1D+1"))) (AND (FLOATP F) (= 10.0d0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1E+1"))) (AND (FLOATP F) (= 10.0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1F+1"))) (AND (FLOATP F) (= 10.0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1L+1"))) (AND (FLOATP F) (= 10.0L0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1S+1"))) (AND (FLOATP F) (= 10.0s0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1d-1"))) (AND (FLOATP F) (= 0.1d0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1e-1"))) (AND (FLOATP F) (= 0.1 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1f-1"))) (AND (FLOATP F) (= 0.1 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1l-1"))) (AND (FLOATP F) (= 0.1L0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1s-1"))) (AND (FLOATP F) (= 0.1s0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1D-1"))) (AND (FLOATP F) (= 0.1d0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1E-1"))) (AND (FLOATP F) (= 0.1 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1F-1"))) (AND (FLOATP F) (= 0.1 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1L-1"))) (AND (FLOATP F) (= 0.1L0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1S-1"))) (AND (FLOATP F) (= 0.1s0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1d1"))) (AND (FLOATP F) (= -10.0d0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1e1"))) (AND (FLOATP F) (= -10.0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1f1"))) (AND (FLOATP F) (= -10.0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1l1"))) (AND (FLOATP F) (= -10.0L0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1s1"))) (AND (FLOATP F) (= -10.0s0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1D1"))) (AND (FLOATP F) (= -10.0d0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1E1"))) (AND (FLOATP F) (= -10.0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1F1"))) (AND (FLOATP F) (= -10.0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1L1"))) (AND (FLOATP F) (= -10.0L0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1S1"))) (AND (FLOATP F) (= -10.0s0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1d+1"))) (AND (FLOATP F) (= -10.0d0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1e+1"))) (AND (FLOATP F) (= -10.0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1f+1"))) (AND (FLOATP F) (= -10.0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1l+1"))) (AND (FLOATP F) (= -10.0L0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1s+1"))) (AND (FLOATP F) (= -10.0s0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1D+1"))) (AND (FLOATP F) (= -10.0d0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1E+1"))) (AND (FLOATP F) (= -10.0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1F+1"))) (AND (FLOATP F) (= -10.0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1L+1"))) (AND (FLOATP F) (= -10.0L0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1S+1"))) (AND (FLOATP F) (= -10.0s0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1d-1"))) (AND (FLOATP F) (= -0.1d0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1e-1"))) (AND (FLOATP F) (= -0.1 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1f-1"))) (AND (FLOATP F) (= -0.1 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1l-1"))) (AND (FLOATP F) (= -0.1L0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1s-1"))) (AND (FLOATP F) (= -0.1s0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1D-1"))) (AND (FLOATP F) (= -0.1d0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1E-1"))) (AND (FLOATP F) (= -0.1 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1F-1"))) (AND (FLOATP F) (= -0.1 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1L-1"))) (AND (FLOATP F) (= -0.1L0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1S-1"))) (AND (FLOATP F) (= -0.1s0 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1d10"))) (AND (FLOATP F) (= 1.0d10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1e10"))) (AND (FLOATP F) (= 1.0E10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1f10"))) (AND (FLOATP F) (= 1.0E10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1l10"))) (AND (FLOATP F) (= 1.0L10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1s10"))) (AND (FLOATP F) (= 1.0s10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1D10"))) (AND (FLOATP F) (= 1.0d10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1E10"))) (AND (FLOATP F) (= 1.0E10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1F10"))) (AND (FLOATP F) (= 1.0E10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1L10"))) (AND (FLOATP F) (= 1.0L10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1S10"))) (AND (FLOATP F) (= 1.0s10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1d+10"))) (AND (FLOATP F) (= 1.0d10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1e+10"))) (AND (FLOATP F) (= 1.0E10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1f+10"))) (AND (FLOATP F) (= 1.0E10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1l+10"))) (AND (FLOATP F) (= 1.0L10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1s+10"))) (AND (FLOATP F) (= 1.0s10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1D+10"))) (AND (FLOATP F) (= 1.0d10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1E+10"))) (AND (FLOATP F) (= 1.0E10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1F+10"))) (AND (FLOATP F) (= 1.0E10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1L+10"))) (AND (FLOATP F) (= 1.0L10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1S+10"))) (AND (FLOATP F) (= 1.0s10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1d-10"))) (AND (FLOATP F) (= 1.0d-10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1e-10"))) (AND (FLOATP F) (= 1.0E-10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1f-10"))) (AND (FLOATP F) (= 1.0E-10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1l-10"))) (AND (FLOATP F) (= 1.0L-10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1s-10"))) (AND (FLOATP F) (= 1.0s-10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1D-10"))) (AND (FLOATP F) (= 1.0d-10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1E-10"))) (AND (FLOATP F) (= 1.0E-10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1F-10"))) (AND (FLOATP F) (= 1.0E-10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1L-10"))) (AND (FLOATP F) (= 1.0L-10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "1S-10"))) (AND (FLOATP F) (= 1.0s-10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1d10"))) (AND (FLOATP F) (= 1.0d10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1e10"))) (AND (FLOATP F) (= 1.0E10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1f10"))) (AND (FLOATP F) (= 1.0E10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1l10"))) (AND (FLOATP F) (= 1.0L10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1s10"))) (AND (FLOATP F) (= 1.0s10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1D10"))) (AND (FLOATP F) (= 1.0d10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1E10"))) (AND (FLOATP F) (= 1.0E10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1F10"))) (AND (FLOATP F) (= 1.0E10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1L10"))) (AND (FLOATP F) (= 1.0L10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1S10"))) (AND (FLOATP F) (= 1.0s10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1d+10"))) (AND (FLOATP F) (= 1.0d10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1e+10"))) (AND (FLOATP F) (= 1.0E10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1f+10"))) (AND (FLOATP F) (= 1.0E10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1l+10"))) (AND (FLOATP F) (= 1.0L10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1s+10"))) (AND (FLOATP F) (= 1.0s10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1D+10"))) (AND (FLOATP F) (= 1.0d10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1E+10"))) (AND (FLOATP F) (= 1.0E10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1F+10"))) (AND (FLOATP F) (= 1.0E10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1L+10"))) (AND (FLOATP F) (= 1.0L10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1S+10"))) (AND (FLOATP F) (= 1.0s10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1d-10"))) (AND (FLOATP F) (= 1.0d-10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1e-10"))) (AND (FLOATP F) (= 1.0E-10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1f-10"))) (AND (FLOATP F) (= 1.0E-10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1l-10"))) (AND (FLOATP F) (= 1.0L-10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1s-10"))) (AND (FLOATP F) (= 1.0s-10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1D-10"))) (AND (FLOATP F) (= 1.0d-10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1E-10"))) (AND (FLOATP F) (= 1.0E-10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1F-10"))) (AND (FLOATP F) (= 1.0E-10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1L-10"))) (AND (FLOATP F) (= 1.0L-10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "+1S-10"))) (AND (FLOATP F) (= 1.0s-10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1d10"))) (AND (FLOATP F) (= -1.0d10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1e10"))) (AND (FLOATP F) (= -1.0E10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1f10"))) (AND (FLOATP F) (= -1.0E10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1l10"))) (AND (FLOATP F) (= -1.0L10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1s10"))) (AND (FLOATP F) (= -1.0s10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1D10"))) (AND (FLOATP F) (= -1.0d10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1E10"))) (AND (FLOATP F) (= -1.0E10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1F10"))) (AND (FLOATP F) (= -1.0E10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1L10"))) (AND (FLOATP F) (= -1.0L10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1S10"))) (AND (FLOATP F) (= -1.0s10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1d+10"))) (AND (FLOATP F) (= -1.0d10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1e+10"))) (AND (FLOATP F) (= -1.0E10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1f+10"))) (AND (FLOATP F) (= -1.0E10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1l+10"))) (AND (FLOATP F) (= -1.0L10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1s+10"))) (AND (FLOATP F) (= -1.0s10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1D+10"))) (AND (FLOATP F) (= -1.0d10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1E+10"))) (AND (FLOATP F) (= -1.0E10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1F+10"))) (AND (FLOATP F) (= -1.0E10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1L+10"))) (AND (FLOATP F) (= -1.0L10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1S+10"))) (AND (FLOATP F) (= -1.0s10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1d-10"))) (AND (FLOATP F) (= -1.0d-10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1e-10"))) (AND (FLOATP F) (= -1.0E-10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1f-10"))) (AND (FLOATP F) (= -1.0E-10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1l-10"))) (AND (FLOATP F) (= -1.0L-10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1s-10"))) (AND (FLOATP F) (= -1.0s-10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1D-10"))) (AND (FLOATP F) (= -1.0d-10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1E-10"))) (AND (FLOATP F) (= -1.0E-10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1F-10"))) (AND (FLOATP F) (= -1.0E-10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1L-10"))) (AND (FLOATP F) (= -1.0L-10 F)))) EQL-OK: NIL (NOT (LET ((F (READ-FROM-STRING "-1S-10"))) (AND (FLOATP F) (= -1.0s-10 F)))) EQL-OK: NIL (NOT (FLOATP (READ-FROM-STRING "-1.23"))) EQL-OK: NIL (NOT (FLOATP (READ-FROM-STRING "-823.0023D10"))) EQL-OK: NIL (NOT (FLOATP (READ-FROM-STRING "-324.0293E10"))) EQL-OK: NIL (NOT (FLOATP (READ-FROM-STRING "-12.0023F10"))) EQL-OK: NIL (NOT (FLOATP (READ-FROM-STRING "-911.823L10"))) EQL-OK: NIL (NOT (FLOATP (READ-FROM-STRING "-788.823S10"))) EQL-OK: NIL (NOT (EQ '|256| (READ-FROM-STRING "\\256"))) EQL-OK: NIL (NOT (EQ '|2564| (READ-FROM-STRING "25\\64"))) EQL-OK: NIL (NOT (EQ '|1.0E6| (READ-FROM-STRING "1.0\\E6"))) EQL-OK: NIL (NOT (EQ '|100| (READ-FROM-STRING "|100|"))) EQL-OK: NIL (NOT (EQ '|3.14159| (READ-FROM-STRING "3\\.14159"))) EQL-OK: NIL (NOT (EQ '|3/4| (READ-FROM-STRING "|3/4|"))) EQL-OK: NIL (NOT (EQ '|3/4| (READ-FROM-STRING "3\\/4"))) EQL-OK: NIL (NOT (EQ '|5| (READ-FROM-STRING "5||"))) EQL-OK: NIL (NOT (EQ '|5| (READ-FROM-STRING "||5"))) EQL-OK: NIL (NOT (EQ '|567| (READ-FROM-STRING "||567"))) EQL-OK: NIL (NOT (EQ '|567| (READ-FROM-STRING "5||67"))) EQL-OK: NIL (NOT (EQ '|567| (READ-FROM-STRING "56||7"))) EQL-OK: NIL (NOT (EQ '|567| (READ-FROM-STRING "567||"))) EQL-OK: NIL (NOT (EQ '|567| (READ-FROM-STRING "||5||6||7||"))) EQL-OK: NIL (NOT (EQ '|567| (READ-FROM-STRING "||||5||||6||||7||||"))) EQL-OK: NIL (NOT (EQ '|567| (READ-FROM-STRING "567||||||"))) EQL-OK: NIL (NOT (EQ '/ (READ-FROM-STRING "/"))) EQL-OK: NIL (NOT (EQ '/5 (READ-FROM-STRING "/5"))) EQL-OK: NIL (NOT (EQ '+ (READ-FROM-STRING "+"))) EQL-OK: NIL (NOT (EQ '1+ (READ-FROM-STRING "1+"))) EQL-OK: NIL (NOT (EQ '1- (READ-FROM-STRING "1-"))) EQL-OK: NIL (NOT (EQ 'FOO+ (READ-FROM-STRING "foo+"))) EQL-OK: NIL (NOT (EQ 'AB.CD (READ-FROM-STRING "ab.cd"))) EQL-OK: NIL (NOT (EQ '_ (READ-FROM-STRING "_"))) EQL-OK: NIL (NOT (EQ '^ (READ-FROM-STRING "^"))) EQL-OK: NIL (NOT (EQ '^/- (READ-FROM-STRING "^/-"))) EQL-OK: NIL (NOT (EQ :A (READ-FROM-STRING ":a"))) EQL-OK: NIL (NOT (EQ :B (READ-FROM-STRING ":b"))) EQL-OK: NIL (NOT (EQ :C (READ-FROM-STRING ":c"))) EQL-OK: NIL (NOT (EQ :D (READ-FROM-STRING ":d"))) EQL-OK: NIL (NOT (EQ :KEYWORD-SYMBOL (READ-FROM-STRING ":keyword-symbol"))) EQL-OK: NIL (NOT (EQ 'CDR (READ-FROM-STRING "cl::cdr"))) EQL-OK: NIL (NOT (EQ 'APPEND (READ-FROM-STRING "cl:append"))) EQL-OK: NIL (NOT (EQ 'APPEND (READ-FROM-STRING "cl-user::append"))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE 'TEST-FOO) (DELETE-PACKAGE 'TEST-FOO)) (MAKE-PACKAGE 'TEST-FOO :USE NIL) (HANDLER-CASE (READ-FROM-STRING "test-foo:no-such-symbol") (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE 'TEST-FOO) (DELETE-PACKAGE 'TEST-FOO)) (MAKE-PACKAGE 'TEST-FOO :USE NIL) (AND (NOT (FIND-SYMBOL "NEW-ONE" "TEST-FOO")) (READ-FROM-STRING "test-foo::new-one") (FIND-SYMBOL "NEW-ONE" "TEST-FOO")))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE 'TEST-FOO) (DELETE-PACKAGE 'TEST-FOO)) (LET ((*PACKAGE* (MAKE-PACKAGE 'TEST-FOO :USE NIL))) (READ-FROM-STRING "my-symbol")))) EQL-OK: NIL (NOT (STRING= " " (SYMBOL-NAME (READ-FROM-STRING "cl-user::\\ ")))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE 'NO-SUCH-PACKAGE) (DELETE-PACKAGE 'NO-SUCH-PACKAGE)) (HANDLER-CASE (READ-FROM-STRING "no-such-package::bar") (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) EQL-OK: NIL (NOT (PROGN (WHEN (FIND-PACKAGE 'NO-SUCH-PACKAGE) (DELETE-PACKAGE 'NO-SUCH-PACKAGE)) (HANDLER-CASE (READ-FROM-STRING "no-such-package::no-such-symbol") (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) EQL-OK: NIL (NOT (STRING= "FROBBOZ" (SYMBOL-NAME (READ-FROM-STRING "FROBBOZ")))) EQL-OK: NIL (NOT (STRING= "FROBBOZ" (SYMBOL-NAME (READ-FROM-STRING "frobboz")))) EQL-OK: NIL (NOT (STRING= "FROBBOZ" (SYMBOL-NAME (READ-FROM-STRING "fRObBoz")))) EQL-OK: NIL (NOT (STRING= "UNWIND-PROTECT" (SYMBOL-NAME (READ-FROM-STRING "unwind-protect")))) EQL-OK: NIL (NOT (STRING= "+$" (SYMBOL-NAME (READ-FROM-STRING "+$")))) EQL-OK: NIL (NOT (STRING= "1+" (SYMBOL-NAME (READ-FROM-STRING "1+")))) EQL-OK: NIL (NOT (= 1 (READ-FROM-STRING "+1"))) EQL-OK: NIL (NOT (STRING= "PASCAL_STYLE" (SYMBOL-NAME (READ-FROM-STRING "pascal_style")))) EQL-OK: NIL (NOT (STRING= "FILE.REL.43" (SYMBOL-NAME (READ-FROM-STRING "file.rel.43")))) EQL-OK: NIL (NOT (STRING= "(" (SYMBOL-NAME (READ-FROM-STRING "\\(")))) EQL-OK: NIL (NOT (STRING= "+1" (SYMBOL-NAME (READ-FROM-STRING "\\+1")))) EQL-OK: NIL (NOT (STRING= "+1" (SYMBOL-NAME (READ-FROM-STRING "+\\1")))) EQL-OK: NIL (NOT (STRING= "fROBBOZ" (SYMBOL-NAME (READ-FROM-STRING "\\frobboz")))) EQL-OK: NIL (NOT (STRING= "3.14159265s0" (SYMBOL-NAME (READ-FROM-STRING "3.14159265\\s0")))) EQL-OK: NIL (NOT (STRING= "3.14159265S0" (SYMBOL-NAME (READ-FROM-STRING "3.14159265\\S0")))) EQL-OK: NIL (NOT (STRING= "FOo" (SYMBOL-NAME (READ-FROM-STRING "fo\\o")))) EQL-OK: NIL (NOT (STRING= "APL\\360" (SYMBOL-NAME (READ-FROM-STRING "APL\\\\360")))) EQL-OK: NIL (NOT (STRING= "APL\\360" (SYMBOL-NAME (READ-FROM-STRING "apl\\\\360")))) EQL-OK: NIL (NOT (STRING= "(B^2)-4*A*C" (SYMBOL-NAME (READ-FROM-STRING "\\(b^2\\)\\-\\4*a*c")))) EQL-OK: NIL (NOT (STRING= "(b^2)-4*a*c" (SYMBOL-NAME (READ-FROM-STRING "\\(\\b^2\\)\\-\\4*\\a*\\c")))) EQL-OK: NIL (NOT (STRING= "\"" (SYMBOL-NAME (READ-FROM-STRING "|\"|")))) EQL-OK: NIL (NOT (STRING= "(b^2) - 4*a*c" (SYMBOL-NAME (READ-FROM-STRING "|(b^2) - 4*a*c|")))) EQL-OK: NIL (NOT (STRING= "frobboz" (SYMBOL-NAME (READ-FROM-STRING "|frobboz|")))) EQL-OK: NIL (NOT (STRING= "APL360" (SYMBOL-NAME (READ-FROM-STRING "|APL\\360|")))) EQL-OK: NIL (NOT (STRING= "APL\\360" (SYMBOL-NAME (READ-FROM-STRING "|APL\\\\360|")))) EQL-OK: NIL (NOT (STRING= "apl\\360" (SYMBOL-NAME (READ-FROM-STRING "|apl\\\\360|")))) EQL-OK: NIL (NOT (STRING= "||" (SYMBOL-NAME (READ-FROM-STRING "|\\|\\||")))) EQL-OK: NIL (NOT (STRING= "(B^2) - 4*A*C" (SYMBOL-NAME (READ-FROM-STRING "|(B^2) - 4*A*C|")))) EQL-OK: NIL (NOT (STRING= "(b^2) - 4*a*c" (SYMBOL-NAME (READ-FROM-STRING "|(b^2) - 4*a*c|")))) EQL-OK: NIL (NOT (STRING= "." (SYMBOL-NAME (READ-FROM-STRING "\\.")))) EQL-OK: NIL (NOT (STRING= ".." (SYMBOL-NAME (READ-FROM-STRING "|..|")))) EQL-OK: NIL (NOT (NULL (READ-FROM-STRING "()"))) EQL-OK: NIL (NOT (NULL (READ-FROM-STRING "( )"))) EQL-OK: NIL (NOT (NULL (READ-FROM-STRING "( )"))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "(a)") '(A))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "( a)") '(A))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "(a )") '(A))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "( a )") '(A))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "(a b)") '(A B))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "( a b)") '(A B))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "( a b )") '(A B))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "( a b )") '(A B))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "( a b )") '(A B))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "(a #| |# b)") '(A B))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "(a #| |# b #| |# )") '(A B))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "(a #| |# b )") '(A B))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "( a b )") '(A B))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "(a . b)") '(A . B))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "(a . nil)") '(A))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "(a . (b))") '(A B))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "(a . (b . (c . (d))))") '(A B C D))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "(a .$b)"))) (AND (= 2 (LENGTH X)) (EQ (FIRST X) 'A) (EQ (SECOND X) '.$B)))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "(a b c . d)") (CONS 'A (CONS 'B (CONS 'C 'D))))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "(this-one . that-one)") (CONS 'THIS-ONE 'THAT-ONE))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "(a b c d . (e f . (g)))") '(A B C D E F G))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30)") '(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30))) EQL-OK: NIL (NOT (HANDLER-CASE (READ-FROM-STRING ")") (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "(a (b (c d)))") '(A (B (C D))))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "'a") ''A)) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "'(a b c)") ''(A B C))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "'''(a b c)") ''''(A B C))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "'(a 'b '('c))") ''(A 'B '('C)))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "'('('a '('b 'c)))") ''('('A '('B 'C))))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "''''''a") '''''''A)) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "' a") ''A)) EQL-OK: NIL (NOT (EQ 'QUOTE (EVAL (READ-FROM-STRING "(car ''foo)")))) EQL-OK: NIL (NOT (EQ (READ-FROM-STRING "; comment a") 'A)) EQL-OK: NIL (NOT (= 7 (EVAL (READ-FROM-STRING "(+ 3 ; three 4)")))) EQL-OK: NIL (NOT (EQ 'A (READ-FROM-STRING ";;;;;;; a"))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "(a ;;;;;;; b ;; ;; c;;;;;;;;;;;;;;;;;;;;;;;;;;; d)") '(A B C D))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "(a ; comment ; ; ; b)") '(A B))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "(a\\;b c)") '(|A;B| C))) EQL-OK: NIL (NOT (STRING= (READ-FROM-STRING "\"hello\"") "hello")) EQL-OK: NIL (NOT (STRING= (READ-FROM-STRING "\"\\\"hello\\\"\"") "\"hello\"")) EQL-OK: NIL (NOT (STRING= (READ-FROM-STRING "\"|hello|\"") "|hello|")) EQL-OK: NIL (NOT (STRING= "string" (READ-FROM-STRING " \"string\""))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "\"\\\\\""))) (AND (= 1 (LENGTH X)) (CHAR= #\\ (CHAR X 0))))) EQL-OK: NIL (NOT (STRING= " This is a sentence. " (READ-FROM-STRING "\" This is a sentence. \""))) EQL-OK: NIL (NOT (SIMPLE-STRING-P (READ-FROM-STRING "\"a simple string\""))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "\"\\\"\""))) (AND (= 1 (LENGTH X)) (CHAR= #\" (CHAR X 0))))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "\"|\""))) (AND (= 1 (LENGTH X)) (CHAR= #\| (CHAR X 0))))) EQL-OK: NIL (NOT (EQ (EVAL (READ-FROM-STRING "`a")) 'A)) EQL-OK: NIL (NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((x 1)) `(a ,x))")) '(A 1))) EQL-OK: NIL (NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((x 1)) `(a ,`(,x)))")) '(A (1)))) EQL-OK: NIL (NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((a 0) (c 2) (d '(3))) `((,a b) ,c ,@d))")) '((0 B) 2 3))) EQL-OK: NIL (NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((a 0) (c 2) (d '(3 4 5))) `((,a b) ,c ,@d))")) '((0 B) 2 3 4 5))) EQL-OK: NIL (NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((a '(0 1)) (c 2) (d '(3 4 5))) `((,a b) ,c ,@d))")) '(((0 1) B) 2 3 4 5))) EQL-OK: NIL (NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((a '(0 1)) (c 2) (d '(3 4 5))) `((,@a b) ,c ,@d))")) '((0 1 B) 2 3 4 5))) EQL-OK: NIL (NOT (EQUAL (EVAL (READ-FROM-STRING "`(a b ,`c)")) '(A B C))) EQL-OK: NIL (NOT (EQUAL (EVAL (READ-FROM-STRING "`(a ,@(map 'list #'char-upcase \"bcd\") e f)")) '(A #\B #\C #\D E F))) EQL-OK: NIL (NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((x 1)) `(a . ,x))")) '(A . 1))) EQL-OK: NIL (NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((x '(b c))) `(a . ,x))")) '(A B C))) EQL-OK: NIL (NOT (EQUALP (EVAL (READ-FROM-STRING "(let ((x #(b c))) `(a . ,x))")) '(A . #(B C)))) EQL-OK: NIL (NOT (EQUALP (EVAL (READ-FROM-STRING "(let ((x '(b c))) `#(a ,x))")) #(A (B C)))) EQL-OK: NIL (NOT (EQUALP (EVAL (READ-FROM-STRING "(let ((x 'b ) (y 'c)) `#(a ,x ,y))")) #(A B C))) EQL-OK: NIL (NOT (EQUALP (EVAL (READ-FROM-STRING "(let ((x '(b c))) `#(a ,@x))")) #(A B C))) EQL-OK: NIL (NOT (EQUALP (EVAL (READ-FROM-STRING "`\"abc\"")) "abc")) EQL-OK: NIL (NOT (EQUALP (EVAL (READ-FROM-STRING "(let ((x '(b c)) (y '(d e)) (z '(f g))) `(a ,@x ,@y ,@z))")) '(A B C D E F G))) EQL-OK: NIL (NOT (EQUALP (EVAL (READ-FROM-STRING "(let ((x '(b c)) (y 'd) (z '(e f g h))) `(a ,@x ,y ,@z))")) '(A B C D E F G H))) EQL-OK: NIL (NOT (EQUAL (EVAL (READ-FROM-STRING "`(a ,@(mapcar #'char-downcase `(,(char-upcase #\\b) ,(char-upcase #\\c) ,(char-upcase #\\d))) e f)")) '(A #\b #\c #\d E F))) EQL-OK: NIL (NOT (EQUAL (EVAL (READ-FROM-STRING "`(a ,@(map 'list #'char-downcase `#(,(char-upcase #\\b) ,(char-upcase #\\c) ,(char-upcase #\\d))) e f)")) '(A #\b #\c #\d E F))) EQL-OK: NIL (NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((x 1)) `(a (,x)))")) '(A (1)))) EQL-OK: NIL (NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((x 1)) `(a ((,x))))")) '(A ((1))))) EQL-OK: NIL (NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((x 1)) `(a (((,x)))))")) '(A (((1)))))) EQL-OK: NIL (NOT (EQUALP (EVAL (READ-FROM-STRING "(let ((x 1)) `(a ((#(,x)))))")) '(A ((#(1)))))) EQL-OK: NIL (NOT (EQUALP (EVAL (READ-FROM-STRING "(let ((x 1)) `(a #((#(,x)))))")) '(A #((#(1)))))) EQL-OK: NIL (NOT (EQUALP (EVAL (READ-FROM-STRING "(let ((x 1)) `#(a #((#(,x)))))")) '#(A #((#(1)))))) EQL-OK: NIL (NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((x 1) (y 2) (z 3)) `(,x (,y) ((,z))))")) '(1 (2) ((3))))) EQL-OK: NIL (NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((x 1) (y 2) (z 3)) `((,x) ((,y)) (((,z)))))")) '((1) ((2)) (((3)))))) EQL-OK: NIL (NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((x 1) (y 2) (z 3)) `(((,x)) (((,y))) ((((,z))))))")) '(((1)) (((2))) ((((3))))))) EQL-OK: NIL (NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((x 1) (y 2) (z 3)) `((((,x))) ((((,y)))) (((((,z)))))))")) '((((1))) ((((2)))) (((((3)))))))) EQL-OK: NIL (NOT (EQUALP (EVAL (READ-FROM-STRING "(let ((x 1) (y 2) (z 3)) `#(,x (,y) ((,z))))")) '#(1 (2) ((3))))) EQL-OK: NIL (NOT (EQUALP (EVAL (READ-FROM-STRING "(let ((x 1) (y 2) (z 3)) `#((,x) ((,y)) (((,z)))))")) '#((1) ((2)) (((3)))))) EQL-OK: NIL (NOT (EQUALP (EVAL (READ-FROM-STRING "(let ((x 1) (y 2) (z 3)) `#(((,x)) (((,y))) ((((,z))))))")) '#(((1)) (((2))) ((((3))))))) EQL-OK: NIL (NOT (EQUALP (EVAL (READ-FROM-STRING "(let ((x 1) (y 2) (z 3)) `#((((,x))) ((((,y)))) (((((,z)))))))")) '#((((1))) ((((2)))) (((((3)))))))) EQL-OK: NIL (NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((x 1)) `'(,x))")) ''(1))) EQL-OK: NIL (NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((x 1)) `'(',x))")) ''('1))) EQL-OK: NIL (NOT (EQUAL (EVAL (READ-FROM-STRING "`'(','x))")) ''('X))) EQL-OK: NIL (NOT (EQUAL (EVAL (READ-FROM-STRING "`(a . b)")) '(A . B))) EQL-OK: NIL (NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((x 1)) `(a . ,x))")) '(A . 1))) EQL-OK: NIL (NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((x 1)) `(a . (b . (,x))))")) '(A B 1))) EQL-OK: NIL (NOT (EQUAL (EVAL (READ-FROM-STRING "(let ((x 1)) `(a ,x . z))")) '(A 1 . Z))) EQL-OK: NIL (NOT (EQUALP (EVAL (READ-FROM-STRING "(let ((x 1)) `(a #(#(#(,x))) . z))")) '(A #(#(#(1))) . Z))) EQL-OK: NIL (NOT (HANDLER-CASE (READ-FROM-STRING ",") (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (READ-FROM-STRING "'(,x)") (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (READ-FROM-STRING "`(,(append ,x y))") (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\a") #\a)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\b") #\b)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\c") #\c)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\d") #\d)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\e") #\e)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\f") #\f)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\g") #\g)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\h") #\h)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\i") #\i)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\j") #\j)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\k") #\k)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\l") #\l)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\m") #\m)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\n") #\n)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\o") #\o)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\p") #\p)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\q") #\q)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\r") #\r)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\s") #\s)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\t") #\t)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\u") #\u)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\v") #\v)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\w") #\w)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\x") #\x)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\y") #\y)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\z") #\z)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\A") #\A)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\B") #\B)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\C") #\C)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\D") #\D)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\E") #\E)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\F") #\F)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\G") #\G)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\H") #\H)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\I") #\I)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\J") #\J)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\K") #\K)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\L") #\L)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\M") #\M)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\N") #\N)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\O") #\O)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\P") #\P)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\Q") #\Q)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\R") #\R)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\S") #\S)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\T") #\T)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\U") #\U)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\V") #\V)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\W") #\W)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\X") #\X)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\Y") #\Y)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\Z") #\Z)) EQL-OK: NIL (NOT (NOT (CHAR= (READ-FROM-STRING "#\\Z") (READ-FROM-STRING "#\\z")))) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\0") #\0)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\1") #\1)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\2") #\2)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\3") #\3)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\4") #\4)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\5") #\5)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\6") #\6)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\7") #\7)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\8") #\8)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\9") #\9)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\!") #\!)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\$") #\$)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\\"") #\")) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\'") #\')) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\(") #\()) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\)") #\))) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\,") #\,)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\_") #\_)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\-") #\-)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\.") #\.)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\/") #\/)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\:") #\:)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\;") #\;)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\?") #\?)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\+") #\+)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\<") #\<)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\=") #\=)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\>") #\>)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\#") #\#)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\%") #\%)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\&") #\&)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\*") #\*)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\@") #\@)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\[") #\[)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\\\") #\\)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\]") #\])) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\{") #\{)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\|") #\|)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\}") #\})) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\`") #\`)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\^") #\^)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\~") #\~)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\newline") #\Newline)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\space") #\ )) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\Newline") #\Newline)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\Space") #\ )) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\NeWlInE") #\Newline)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\SpAcE") #\ )) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\NEWLINE") #\Newline)) EQL-OK: NIL (NOT (CHAR= (READ-FROM-STRING "#\\SPACE") #\ )) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "#'car") '#'CAR)) EQL-OK: NIL (NOT (EQ (EVAL (READ-FROM-STRING "#'car")) #'CAR)) EQL-OK: NIL (NOT (SIMPLE-VECTOR-P (READ-FROM-STRING "#(a)"))) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#(a)") #(A))) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#()") #())) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#(a b)") #(A B))) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#(a b c)") #(A B C))) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#(a b c d)") #(A B C D))) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#(a b c d e)") #(A B C D E))) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#(a b c d e f)") #(A B C D E F))) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#(a b c d e f g)") #(A B C D E F G))) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#(a b c c c c)") #(A B C C C C))) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#6(a b c c c c)") #(A B C C C C))) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#6(a b c)") #(A B C C C C))) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#6(a b c c)") #(A B C C C C))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#(a b c)"))) (= 3 (LENGTH X)))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#()"))) (AND (SIMPLE-VECTOR-P X) (ZEROP (LENGTH X)) (EQUALP X #())))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#0()"))) (AND (SIMPLE-VECTOR-P X) (ZEROP (LENGTH X)) (EQUALP X #())))) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#1(a)") #(A))) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#2(a b)") #(A B))) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#3(a b c)") #(A B C))) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#4(a b c d)") #(A B C D))) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#5(a b c d e)") #(A B C D E))) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#6(a b c d e f)") #(A B C D E F))) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#2(a)") #(A A))) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#3(a)") #(A A A))) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#4(a)") #(A A A A))) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#5(a)") #(A A A A A))) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#6(a)") #(A A A A A A))) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#7(a)") #(A A A A A A A))) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#8(a)") #(A A A A A A A A))) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#9(a)") #(A A A A A A A A A))) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#10(a)") #(A A A A A A A A A A))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#100(a)"))) (AND (SIMPLE-VECTOR-P X) (= 100 (LENGTH X)) (EVERY #'SYMBOLP X) (EVERY #'(LAMBDA (S) (EQ S 'A)) X)))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#100(#\\z)"))) (AND (SIMPLE-VECTOR-P X) (= 100 (LENGTH X)) (EVERY #'CHARACTERP X) (EVERY #'(LAMBDA (C) (CHAR= C #\z)) X)))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#100(#())"))) (AND (SIMPLE-VECTOR-P X) (= 100 (LENGTH X)) (EVERY #'SIMPLE-VECTOR-P X) (EVERY #'(LAMBDA (V) (ZEROP (LENGTH V))) X)))) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#*0") #*0)) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#*1") #*1)) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#*01") #*01)) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#*10") #*10)) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#*11") #*11)) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#0*") #*)) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#*") #*)) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#3*1") #*111)) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#3*10") #*100)) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#*101111") #*101111)) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#6*101111") #*101111)) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#6*101") #*101111)) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#6*1011") #*101111)) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#*10"))) (AND (SIMPLE-BIT-VECTOR-P X) (= 2 (LENGTH X)) (= 1 (BIT X 0)) (= 0 (BIT X 1))))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#*"))) (AND (SIMPLE-BIT-VECTOR-P X) (ZEROP (LENGTH X))))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#100*0"))) (AND (SIMPLE-BIT-VECTOR-P X) (= 100 (LENGTH X)) (EVERY #'ZEROP X)))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#100*1"))) (AND (SIMPLE-BIT-VECTOR-P X) (= 100 (LENGTH X)) (EVERY #'(LAMBDA (N) (= 1 N)) X)))) EQL-OK: NIL (NOT (HANDLER-CASE (READ-FROM-STRING "#3*1110") (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (READ-FROM-STRING "#3*") (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (READ-FROM-STRING "#3*abc") (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (LET ((SYMBOL (READ-FROM-STRING "#:ok"))) (AND (NULL (SYMBOL-PACKAGE SYMBOL)) (STRING= (SYMBOL-NAME SYMBOL) "OK")))) EQL-OK: NIL (NOT (LET ((SYMBOL (READ-FROM-STRING "#:g10"))) (AND (NULL (SYMBOL-PACKAGE SYMBOL)) (STRING= (SYMBOL-NAME SYMBOL) "G10")))) EQL-OK: NIL (NOT (LET ((SYMBOL (READ-FROM-STRING "#:10"))) (AND (NULL (SYMBOL-PACKAGE SYMBOL)) (STRING= (SYMBOL-NAME SYMBOL) "10")))) EQL-OK: NIL (NOT (LET ((SYMBOL (READ-FROM-STRING "#:0"))) (AND (NULL (SYMBOL-PACKAGE SYMBOL)) (STRING= (SYMBOL-NAME SYMBOL) "0")))) EQL-OK: NIL (NOT (LET ((SYMBOL (READ-FROM-STRING "#:-"))) (AND (NULL (SYMBOL-PACKAGE SYMBOL)) (STRING= (SYMBOL-NAME SYMBOL) "-")))) EQL-OK: NIL (NOT (LET ((SYMBOL (READ-FROM-STRING "#:\\-"))) (AND (NULL (SYMBOL-PACKAGE SYMBOL)) (STRING= (SYMBOL-NAME SYMBOL) "-")))) EQL-OK: NIL (NOT (LET ((SYMBOL (READ-FROM-STRING "#:$$-$$"))) (AND (NULL (SYMBOL-PACKAGE SYMBOL)) (STRING= (SYMBOL-NAME SYMBOL) "$$-$$")))) EQL-OK: NIL (NOT (EQ 'A (READ-FROM-STRING "#.'a"))) EQL-OK: NIL (NOT (PACKAGEP (READ-FROM-STRING "#.*package*"))) EQL-OK: NIL (NOT (= 11 (READ-FROM-STRING "#.(let ((x 10)) (1+ x))"))) EQL-OK: NIL (NOT (= 4 (READ-FROM-STRING "#.(1+ 3)"))) EQL-OK: NIL (NOT (HANDLER-CASE (LET ((*READ-EVAL* NIL)) (READ-FROM-STRING "#.(1+ 3)")) (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (EQUAL '(A B . 3) (READ-FROM-STRING "#.(let ((x 3)) `(a b . ,x))"))) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#b0") 0)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#B0") 0)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#b01") 1)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#B01") 1)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#B1101") 13)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#b101/11") 5/3)) EQL-OK: NIL (NOT (= 172236929 (READ-FROM-STRING "#b1010010001000010000010000001"))) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#o0") 0)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#O0") 0)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#o37/15") 31/13)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#o777") 511)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#o105") 69)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#O37/15") 31/13)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#O777") 511)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#O105") 69)) EQL-OK: NIL (NOT (= 342391 (READ-FROM-STRING "#o1234567"))) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#x0") 0)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#xF00") 3840)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#x105") 261)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#X0") 0)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#XF00") 3840)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#Xf00") 3840)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#X105") 261)) EQL-OK: NIL (NOT (= 81985529216486895 (READ-FROM-STRING "#X0123456789ABCDEF"))) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#3r0") 0)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#2r11010101") 213)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#b11010101") 213)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#b+11010101") 213)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#o325") 213)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#xD5") 213)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#16r+D5") 213)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#o-300") -192)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#3r-21010") -192)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#25R-7H") -192)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#xACCEDED") 181202413)) EQL-OK: NIL (NOT (ZEROP (READ-FROM-STRING "#c(0 0)"))) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#c(1 0)") 1)) EQL-OK: NIL (NOT (COMPLEXP (READ-FROM-STRING "#c(1 10)"))) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#c(1 0)") 1)) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#c(0 1)") #C(0 1))) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#c(1 1)") #C(1 1))) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#C(3.0s1 2.0s-1)") #C(30.0s0 0.2s0))) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#C(5 -3)") #C(5 -3))) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#C(5/3 7.0)") #C(5/3 7.0))) EQL-OK: NIL (NOT (= (READ-FROM-STRING "#C(0 1)") #C(0 1))) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#1A(0 1)") #(0 1))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#1A(0 1)"))) (AND (VECTORP X) (= 2 (LENGTH X)) (= 0 (AREF X 0)) (= 1 (AREF X 1))))) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#2A((0 1 5) (foo 2 (hot dog)))") #2A((0 1 5) (FOO 2 (HOT DOG))))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#2A((0 1 5) (foo 2 (hot dog)))"))) (AND (ARRAYP X) (EQUAL (ARRAY-DIMENSIONS X) '(2 3)) (ZEROP (AREF X 0 0)) (= (AREF X 0 1) 1) (= (AREF X 0 2) 5) (EQ (AREF X 1 0) 'FOO) (= (AREF X 1 1) 2) (EQUAL (AREF X 1 2) '(HOT DOG))))) EQL-OK: NIL (NOT (EQUAL (AREF (READ-FROM-STRING "#0A((0 1 5) (foo 2 (hot dog)))")) '((0 1 5) (FOO 2 (HOT DOG))))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#0A((0 1 5) (foo 2 (hot dog)))"))) (AND (ARRAYP X) (NULL (ARRAY-DIMENSIONS X)) (EQUAL (AREF X) '((0 1 5) (FOO 2 (HOT DOG))))))) EQL-OK: NIL (NOT (EQUALP (READ-FROM-STRING "#0A foo") #0AFOO)) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#0A foo"))) (AND (ARRAYP X) (NULL (ARRAY-DIMENSIONS X)) (EQ (AREF X) 'FOO)))) EQL-OK: NIL (NOT (EQUAL (ARRAY-DIMENSIONS (READ-FROM-STRING "#3A((() ()) (() ()) (() ()))")) '(3 2 0))) EQL-OK: NIL (NOT (EQUAL (ARRAY-DIMENSIONS (READ-FROM-STRING "#10A(() ())")) '(2 0 0 0 0 0 0 0 0 0))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING " #4A((((0 1 2 3) (4 5 6 7) (8 9 10 11)) ((12 13 14 15) (16 17 18 19) (20 21 22 23))))"))) (AND (ARRAYP X) (EQUAL (ARRAY-DIMENSIONS X) '(1 2 3 4)) (LOOP FOR I BELOW 24 ALWAYS (= I (ROW-MAJOR-AREF X I)))))) EQL-OK: NIL (NOT (EQ (READ-FROM-STRING "#1=a") 'A)) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "(#1=a #1#)") '(A A))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#1=(a . #1#)"))) (EQ X (CDR X)))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "((a b) . #1=(#2=(p q) foo #2# . #1#))"))) (AND (EQ (NTHCDR 1 X) (NTHCDR 4 X)) (EQ (NTHCDR 4 X) (NTHCDR 7 X)) (EQ (NTHCDR 7 X) (NTHCDR 10 X)) (EQ (NTH 1 X) (NTH 3 X)) (EQ (NTH 3 X) (NTH 6 X)) (EQ (NTH 6 X) (NTH 9 X)) (EQ (NTH 9 X) (NTH 12 X))))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "(#1=(a . #1#) #2=(#1# . #2#))"))) (AND (EQ (CAR X) (CAADR X)) (EQ (CAR X) (CDAR X)) (EQ (CADR X) (CDADR X))))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#1=#2=#3=(0 . #1#)"))) (AND (EQ X (CDR X)) (ZEROP (CAR X))))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#1=#2=#3=(0 . #2#)"))) (AND (EQ X (CDR X)) (ZEROP (CAR X))))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#1=#2=#3=(0 . #3#)"))) (AND (EQ X (CDR X)) (ZEROP (CAR X))))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#1=#2=#3=(0 #1# #2# #3#)"))) (AND (= 4 (LENGTH X)) (ZEROP (FIRST X)) (EQ X (SECOND X)) (EQ X (THIRD X)) (EQ X (FOURTH X))))) EQL-OK: NIL (NOT (EQUAL (READ-FROM-STRING "(#1000=a #1000#)") '(A A))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "(#1=#:g10 #1#)"))) (AND (= 2 (LENGTH X)) (STRING= (SYMBOL-NAME (FIRST X)) "G10") (EQ (FIRST X) (SECOND X))))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#1=(a (b #2=(x y z) . #1#) . #2#)"))) (AND (EQ (FIRST X) 'A) (EQ X (CDDR (SECOND X))) (EQ (SECOND (SECOND X)) (CDDR X))))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "(#1=(a (b #2=(x y z) . #1#) . #2#))"))) (AND (EQ (CAAR X) 'A) (EQ (CAR X) (CDDR (SECOND (FIRST X)))) (EQ (SECOND (SECOND (FIRST X))) (CDDR (FIRST X)))))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#1=(a #2=(b #3=(c . #3#) . #2#) . #1#)"))) (AND (EQ (FIRST X) 'A) (EQ (FIRST (SECOND X)) 'B) (EQ (FIRST (SECOND (SECOND X))) 'C) (EQ X (CDDR X)) (EQ (SECOND X) (CDDR (SECOND X))) (EQ (SECOND (SECOND X)) (CDR (SECOND (SECOND X))))))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#1=(a #2=(b #3=(c . #1#) . #2#) . #3#)"))) (AND (EQ (FIRST X) 'A) (EQ (FIRST (SECOND X)) 'B) (EQ (FIRST (SECOND (SECOND X))) 'C) (EQ X (CDR (SECOND (SECOND X)))) (EQ (SECOND X) (CDDR (SECOND X))) (EQ (SECOND (SECOND X)) (CDDR X))))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "(#1=#(0 1 2) #1#)"))) (AND (= 2 (LENGTH X)) (EQ (FIRST X) (SECOND X)) (EQUALP (FIRST X) #(0 1 2))))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#1=#(#1# 1 2)"))) (AND (= 3 (LENGTH X)) (EQ (AREF X 0) X) (= (AREF X 1) 1) (= (AREF X 2) 2)))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#(#1=#:g00 a b #1#)"))) (AND (= 4 (LENGTH X)) (STRING= (SYMBOL-NAME (AREF X 0)) "G00") (EQ (AREF X 0) (AREF X 3)) (EQ (AREF X 1) 'A) (EQ (AREF X 2) 'B)))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#1=#(#2=#:g00 a #2# #1#)"))) (AND (= 4 (LENGTH X)) (STRING= (SYMBOL-NAME (AREF X 0)) "G00") (EQ X (AREF X 3)) (EQ (AREF X 0) (AREF X 2)) (EQ (AREF X 1) 'A)))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#1=#(#1# #1# #1#)"))) (AND (= 3 (LENGTH X)) (EQ X (AREF X 0)) (EQ (AREF X 0) (AREF X 1)) (EQ (AREF X 1) (AREF X 2))))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#1=#(#(#1#))"))) (AND (= 1 (LENGTH X)) (= 1 (LENGTH (AREF X 0))) (EQ X (AREF (AREF X 0) 0))))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#1=#(#2=#(#3=#(#3# #2# #1#))))"))) (AND (= 1 (LENGTH X)) (= 1 (LENGTH (AREF X 0))) (= 3 (LENGTH (AREF (AREF X 0) 0))) (EQ X (AREF (AREF (AREF X 0) 0) 2)) (EQ (AREF X 0) (AREF (AREF (AREF X 0) 0) 1)) (EQ (AREF (AREF X 0) 0) (AREF (AREF (AREF X 0) 0) 0))))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#1=#(#2=#(#3=#(#1# #2# #3#))))"))) (AND (= 1 (LENGTH X)) (= 1 (LENGTH (AREF X 0))) (= 3 (LENGTH (AREF (AREF X 0) 0))) (EQ X (AREF (AREF (AREF X 0) 0) 0)) (EQ (AREF X 0) (AREF (AREF (AREF X 0) 0) 1)) (EQ (AREF (AREF X 0) 0) (AREF (AREF (AREF X 0) 0) 2))))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "(#1=#(0 #2=#:g100 2) #2# #1#)"))) (AND (= 3 (LENGTH X)) (EQ (FIRST X) (THIRD X)) (STRING= (SYMBOL-NAME (AREF (FIRST X) 1)) "G100") (NULL (SYMBOL-PACKAGE (AREF (FIRST X) 1))) (EQ (AREF (FIRST X) 1) (SECOND X))))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "(a #1=#(0 (#1#) 2) c)"))) (AND (= 3 (LENGTH X)) (EQ (FIRST X) 'A) (EQ (SECOND X) (FIRST (AREF (SECOND X) 1))) (EQ (THIRD X) 'C) (= 0 (AREF (SECOND X) 0)) (= 2 (AREF (SECOND X) 2))))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#1=#2A((a b) (c #1#))"))) (AND (= 4 (ARRAY-TOTAL-SIZE X)) (EQ (AREF X 0 0) 'A) (EQ (AREF X 0 1) 'B) (EQ (AREF X 1 0) 'C) (EQ (AREF X 1 1) X)))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#2A((#1=#:G10 b) (#1# d))"))) (AND (= 4 (ARRAY-TOTAL-SIZE X)) (EQ (AREF X 0 0) (AREF X 1 0)) (NULL (SYMBOL-PACKAGE (AREF X 0 0))) (STRING= (SYMBOL-NAME (AREF X 0 0)) "G10") (EQ (AREF X 0 1) 'B) (EQ (AREF X 1 1) 'D)))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#1=#2A((#2=#:GG #1#) (#2# #1#))"))) (AND (= 4 (ARRAY-TOTAL-SIZE X)) (EQ (AREF X 0 0) (AREF X 1 0)) (NULL (SYMBOL-PACKAGE (AREF X 0 0))) (STRING= "GG" (SYMBOL-NAME (AREF X 0 0))) (EQ X (AREF X 0 1)) (EQ X (AREF X 1 1))))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#1=#0A#1#"))) (AND (ARRAYP X) (EQ X (AREF X))))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#1=#0A(#1#)"))) (AND (ARRAYP X) (CONSP (AREF X)) (= 1 (LENGTH (AREF X))) (EQ X (FIRST (AREF X)))))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#1=#1A(#1#)"))) (AND (VECTORP X) (= 1 (LENGTH X)) (EQ X (AREF X 0))))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#1=#1A(#2=(a b c) #1# #2#)"))) (AND (VECTORP X) (= 3 (LENGTH X)) (EQUAL (AREF X 0) '(A B C)) (EQ (AREF X 0) (AREF X 2)) (EQ X (AREF X 1))))) EQL-OK: NIL (NOT (LET ((X (READ-FROM-STRING "#1=#3A(((0 a) (1 b) (2 c)) ((3 d) (4 #2A((41 #2=#(x y z)) (43 #1#))) (5 f)) ((6 g) (((#2#)) h) (9 i)))"))) (AND (= 18 (ARRAY-TOTAL-SIZE X)) (= 0 (AREF X 0 0 0)) (EQ 'A (AREF X 0 0 1)) (= 1 (AREF X 0 1 0)) (EQ 'B (AREF X 0 1 1)) (= 2 (AREF X 0 2 0)) (EQ 'C (AREF X 0 2 1)) (= 3 (AREF X 1 0 0)) (EQ 'D (AREF X 1 0 1)) (= 4 (AREF X 1 1 0)) (= (ARRAY-TOTAL-SIZE (AREF X 1 1 1)) 4) (= 41 (AREF (AREF X 1 1 1) 0 0)) (EQUALP (AREF (AREF X 1 1 1) 0 1) #(X Y Z)) (= 43 (AREF (AREF X 1 1 1) 1 0)) (EQ X (AREF (AREF X 1 1 1) 1 1)) (= 5 (AREF X 1 2 0)) (EQ 'F (AREF X 1 2 1)) (= 6 (AREF X 2 0 0)) (EQ 'G (AREF X 2 0 1)) (EQ (CAAR (AREF X 2 1 0)) (AREF (AREF X 1 1 1) 0 1)) (EQ 'H (AREF X 2 1 1)) (= 9 (AREF X 2 2 0)) (EQ 'I (AREF X 2 2 1))))) EQL-OK: NIL (NOT (LET ((*FEATURES* 'NIL)) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+test1 a #-test1 b") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(B)))) EQL-OK: NIL (NOT (LET ((*FEATURES* '(:TEST1))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+test1 a #-test1 b") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(A)))) EQL-OK: NIL (NOT (LET ((*FEATURES* 'NIL)) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(not test1) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) EQL-OK: NIL (NOT (LET ((*FEATURES* '(:TEST1))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(not test1) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) EQL-OK: NIL (NOT (LET ((*FEATURES* '(:TEST1))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#-(not test1) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) EQL-OK: NIL (NOT (LET ((*FEATURES* 'NIL)) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#-(not test1) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) EQL-OK: NIL (NOT (LET ((*FEATURES* '(:TEST1 :TEST2))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(and test1 test2) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) EQL-OK: NIL (NOT (LET ((*FEATURES* '(:TEST1))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(and test1 test2) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) EQL-OK: NIL (NOT (LET ((*FEATURES* 'NIL)) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(and test1 test2) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) EQL-OK: NIL (NOT (LET ((*FEATURES* 'NIL)) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(or test1 test2) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) EQL-OK: NIL (NOT (LET ((*FEATURES* '(:TEST1))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(or test1 test2) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) EQL-OK: NIL (NOT (LET ((*FEATURES* '(:TEST2))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(or test1 test2) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) EQL-OK: NIL (NOT (LET ((*FEATURES* '(:TEST1 :TEST2))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(or test1 test2) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) EQL-OK: NIL (NOT (LET ((*FEATURES* '(:TEST1 :TEST2 :TEST3))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(or test1 test2) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) EQL-OK: NIL (NOT (LET ((*FEATURES* '(:TEST1 :TEST2))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(and test1 (not test2)) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) EQL-OK: NIL (NOT (LET ((*FEATURES* 'NIL)) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(and test1 (not test2)) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) EQL-OK: NIL (NOT (LET ((*FEATURES* '(:TEST1))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(and test1 (not test2)) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) EQL-OK: NIL (NOT (LET ((*FEATURES* 'NIL)) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(or (and test1 (not test2)) test3) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) EQL-OK: NIL (NOT (LET ((*FEATURES* '(:TEST1))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(or (and test1 (not test2)) test3) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) EQL-OK: NIL (NOT (LET ((*FEATURES* '(:TEST1 :TEST2))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(or (and test1 (not test2)) test3) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) EQL-OK: NIL (NOT (LET ((*FEATURES* '(:TEST1 :TEST2 :TEST3))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(or (and test1 (not test2)) test3) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) EQL-OK: NIL (NOT (LET ((*FEATURES* '(:TEST1 :TEST3))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(or (and test1 (not test2)) test3) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) EQL-OK: NIL (NOT (LET ((*FEATURES* '(:TEST2 :TEST3))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(or (and test1 (not test2)) test3) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) EQL-OK: NIL (NOT (LET ((*FEATURES* 'NIL)) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(and test1 (not test2) (or test3 test4)) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) EQL-OK: NIL (NOT (LET ((*FEATURES* '(:TEST1))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(and test1 (not test2) (or test3 test4)) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) EQL-OK: NIL (NOT (LET ((*FEATURES* '(:TEST1 :TEST3))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(and test1 (not test2) (or test3 test4)) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) EQL-OK: NIL (NOT (LET ((*FEATURES* '(:TEST1 :TEST4))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(and test1 (not test2) (or test3 test4)) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) EQL-OK: NIL (NOT (LET ((*FEATURES* '(:TEST1 :TEST2))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(and test1 (not test2) (or test3 test4)) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) EQL-OK: NIL (NOT (LET ((*FEATURES* '(:TEST1 :TEST2 :TEST3))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(and test1 (not test2) (or test3 test4)) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) EQL-OK: NIL (NOT (LET ((*FEATURES* '(:TEST1 :TEST2 :TEST3 :TEST4))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(and test1 (not test2) (or test3 test4)) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) EQL-OK: NIL (NOT (LET ((*FEATURES* '(:TEST1 :TEST3 :TEST4))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#+(and test1 (not test2) (or test3 test4)) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) EQL-OK: NIL (NOT (LET ((*FEATURES* 'NIL)) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#-(not (and test1 (not test2) (or test3 test4))) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) EQL-OK: NIL (NOT (LET ((*FEATURES* '(:TEST1))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#-(not (and test1 (not test2) (or test3 test4))) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) EQL-OK: NIL (NOT (LET ((*FEATURES* '(:TEST1 :TEST3))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#-(not (and test1 (not test2) (or test3 test4))) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) EQL-OK: NIL (NOT (LET ((*FEATURES* '(:TEST1 :TEST4))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#-(not (and test1 (not test2) (or test3 test4))) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) EQL-OK: NIL (NOT (LET ((*FEATURES* '(:TEST1 :TEST2))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#-(not (and test1 (not test2) (or test3 test4))) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) EQL-OK: NIL (NOT (LET ((*FEATURES* '(:TEST1 :TEST2 :TEST3))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#-(not (and test1 (not test2) (or test3 test4))) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) EQL-OK: NIL (NOT (LET ((*FEATURES* '(:TEST1 :TEST2 :TEST3 :TEST4))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#-(not (and test1 (not test2) (or test3 test4))) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) 'NIL))) EQL-OK: NIL (NOT (LET ((*FEATURES* '(:TEST1 :TEST3 :TEST4))) (EQUAL (WITH-INPUT-FROM-STRING (STREAM "#-(not (and test1 (not test2) (or test3 test4))) eat-this") (LOOP FOR X = (READ STREAM NIL 'END) UNTIL (EQ X 'END) COLLECTING X)) '(EAT-THIS)))) EQL-OK: NIL (NOT (EQ (READ-FROM-STRING "#| comment |# a") 'A)) EQL-OK: NIL (NOT (EQ (READ-FROM-STRING "#| #| nested comment |# |# a") 'A)) EQL-OK: NIL (NOT (EQ (READ-FROM-STRING "#| comment comment still comment |# a") 'A)) EQL-OK: NIL (NOT (HANDLER-CASE (READ-FROM-STRING "#") (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (READ-FROM-STRING "# ") (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (READ-FROM-STRING "# ") (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (READ-FROM-STRING "#)") (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "ZEBRA" (SYMBOL-NAME (READ-FROM-STRING "ZEBRA"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "ZEBRA" (SYMBOL-NAME (READ-FROM-STRING "Zebra"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "ZEBRA" (SYMBOL-NAME (READ-FROM-STRING "zebra"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "zebra" (SYMBOL-NAME (READ-FROM-STRING "ZEBRA"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "zebra" (SYMBOL-NAME (READ-FROM-STRING "Zebra"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "zebra" (SYMBOL-NAME (READ-FROM-STRING "zebra"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "ZEBRA" (SYMBOL-NAME (READ-FROM-STRING "ZEBRA"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "Zebra" (SYMBOL-NAME (READ-FROM-STRING "Zebra"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "zebra" (SYMBOL-NAME (READ-FROM-STRING "zebra"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "zebra" (SYMBOL-NAME (READ-FROM-STRING "ZEBRA"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "Zebra" (SYMBOL-NAME (READ-FROM-STRING "Zebra"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "ZEBRA" (SYMBOL-NAME (READ-FROM-STRING "zebra"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "CAT-AND-MOUSE" (SYMBOL-NAME (READ-FROM-STRING "cat-and-mouse"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "CAT-AND-MOUSE" (SYMBOL-NAME (READ-FROM-STRING "Cat-And-Mouse"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "CAT-AND-MOUSE" (SYMBOL-NAME (READ-FROM-STRING "CAT-AND-MOUSE"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "cat-and-mouse" (SYMBOL-NAME (READ-FROM-STRING "cat-and-mouse"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "cat-and-mouse" (SYMBOL-NAME (READ-FROM-STRING "Cat-And-Mouse"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "cat-and-mouse" (SYMBOL-NAME (READ-FROM-STRING "CAT-AND-MOUSE"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "cat-and-mouse" (SYMBOL-NAME (READ-FROM-STRING "cat-and-mouse"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "Cat-And-Mouse" (SYMBOL-NAME (READ-FROM-STRING "Cat-And-Mouse"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "CAT-AND-MOUSE" (SYMBOL-NAME (READ-FROM-STRING "CAT-AND-MOUSE"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "CAT-AND-MOUSE" (SYMBOL-NAME (READ-FROM-STRING "cat-and-mouse"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "Cat-And-Mouse" (SYMBOL-NAME (READ-FROM-STRING "Cat-And-Mouse"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "cat-and-mouse" (SYMBOL-NAME (READ-FROM-STRING "CAT-AND-MOUSE"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "CAT*AND*MOUSE" (SYMBOL-NAME (READ-FROM-STRING "cat*and*mouse"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "CAT*AND*MOUSE" (SYMBOL-NAME (READ-FROM-STRING "Cat*And*Mouse"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (STRING= "CAT*AND*MOUSE" (SYMBOL-NAME (READ-FROM-STRING "CAT*AND*MOUSE"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "cat*and*mouse" (SYMBOL-NAME (READ-FROM-STRING "cat*and*mouse"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "cat*and*mouse" (SYMBOL-NAME (READ-FROM-STRING "Cat*And*Mouse"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (STRING= "cat*and*mouse" (SYMBOL-NAME (READ-FROM-STRING "CAT*AND*MOUSE"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "cat*and*mouse" (SYMBOL-NAME (READ-FROM-STRING "cat*and*mouse"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "Cat*And*Mouse" (SYMBOL-NAME (READ-FROM-STRING "Cat*And*Mouse"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (STRING= "CAT*AND*MOUSE" (SYMBOL-NAME (READ-FROM-STRING "CAT*AND*MOUSE"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "CAT*AND*MOUSE" (SYMBOL-NAME (READ-FROM-STRING "cat*and*mouse"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "Cat*And*Mouse" (SYMBOL-NAME (READ-FROM-STRING "Cat*And*Mouse"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (STRING= "cat*and*mouse" (SYMBOL-NAME (READ-FROM-STRING "CAT*AND*MOUSE"))))) EQL-OK: NIL (NOT (WITH-INPUT-FROM-STRING (STREAM "a b") (AND (EQ 'A (READ-PRESERVING-WHITESPACE STREAM)) (EQ #\ (READ-CHAR STREAM)) (EQ #\b (READ-CHAR STREAM))))) EQL-OK: NIL (NOT (HANDLER-CASE (WITH-INPUT-FROM-STRING (STREAM " ") (READ STREAM)) (END-OF-FILE NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (LET ((X NIL)) (AND (EQ T (HANDLER-CASE (WITH-INPUT-FROM-STRING (STREAM "a") (SETQ X (READ STREAM)) (READ STREAM)) (END-OF-FILE NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) (EQ X 'A)))) EQL-OK: NIL (NOT (PROGN (LET ((*READTABLE* (COPY-READTABLE NIL))) (SET-MACRO-CHARACTER #\/ #'(LAMBDA (STREAM CHAR) (DECLARE (IGNORE CHAR)) `(PATH . ,(LOOP FOR DIR = (READ-PRESERVING-WHITESPACE STREAM T) THEN (PROGN (READ-CHAR STREAM T NIL T) (READ-PRESERVING-WHITESPACE STREAM T)) COLLECT DIR WHILE (EQL (PEEK-CHAR NIL STREAM NIL NIL T) #\/))))) (EQUAL (READ-FROM-STRING "(zyedh /usr/games/zork /usr/games/boggle)") '(ZYEDH (PATH USR GAMES ZORK) (PATH USR GAMES BOGGLE)))))) EQL-OK: NIL (NOT (PROGN (LET ((*READTABLE* (COPY-READTABLE NIL))) (SET-MACRO-CHARACTER #\/ #'(LAMBDA (STREAM CHAR) (DECLARE (IGNORE CHAR)) `(PATH . ,(LOOP FOR DIR = (READ STREAM T) THEN (PROGN (READ-CHAR STREAM T NIL T) (READ STREAM T)) COLLECT DIR WHILE (EQL (PEEK-CHAR NIL STREAM NIL NIL T) #\/))))) (EQUAL (READ-FROM-STRING "(zyedh /usr/games/zork /usr/games/boggle)") '(ZYEDH (PATH USR GAMES ZORK USR GAMES BOGGLE)))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (AND (EQ T (SET-SYNTAX-FROM-CHAR #\7 #\;)) (= 1235 (READ-FROM-STRING "123579"))))) EQL-OK: NIL (NOT (READTABLEP *READTABLE*)) EQL-OK: NIL (NOT (READTABLEP (COPY-READTABLE))) EQL-OK: NIL (NOT (READTABLEP (COPY-READTABLE NIL))) EQL-OK: NIL (NOT (READTABLEP (COPY-READTABLE NIL (COPY-READTABLE)))) EQL-OK: NIL (NOT (LET ((TO (COPY-READTABLE))) (EQ TO (COPY-READTABLE NIL TO)))) EQL-OK: NIL (NOT (LET ((ZVAR 123) (TABLE2 (COPY-READTABLE))) (DECLARE (SPECIAL ZVAR)) (AND (= ZVAR 123) (SET-SYNTAX-FROM-CHAR #\z #\' TABLE2) (= ZVAR 123) (LET ((*READTABLE* TABLE2)) (AND (EQUAL ''VAR (READ-FROM-STRING "zvar")) (SETQ *READTABLE* (COPY-READTABLE)) (EQUAL ''VAR (READ-FROM-STRING "zvar")) (SETQ *READTABLE* (COPY-READTABLE NIL)) (= 123 (EVAL (READ-FROM-STRING "zvar")))))))) EQL-OK: NIL (NOT (NOT (EQ (COPY-READTABLE) *READTABLE*))) EQL-OK: NIL (NOT (NOT (EQ (COPY-READTABLE) (COPY-READTABLE)))) EQL-OK: NIL (NOT (NOT (EQ (COPY-READTABLE NIL) *READTABLE*))) EQL-OK: NIL (NOT (NOT (EQ (COPY-READTABLE NIL) (COPY-READTABLE NIL)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (AND (HANDLER-CASE (READ-FROM-STRING "# STREAM T)) T) (SET-MACRO-CHARACTER #\> (GET-MACRO-CHARACTER #\))) (EQUAL '(A B) (READ-FROM-STRING ""))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE))) (AND (SETF (READTABLE-CASE *READTABLE*) :INVERT) (SET-MACRO-CHARACTER #\< #'(LAMBDA (STREAM C) (DECLARE (IGNORE C)) (READ-DELIMITED-LIST #\> STREAM T))) (SET-MACRO-CHARACTER #\> (GET-MACRO-CHARACTER #\))) (WITH-INPUT-FROM-STRING (STREAM "xyzjKl") (AND (EQ 'XYZ (READ STREAM)) (EQUAL '(|a| B) (READ STREAM)) (EQ '|jKl| (READ STREAM)) (EQ 'END (READ STREAM NIL 'END))))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (AND (EQUAL (MULTIPLE-VALUE-LIST (GET-MACRO-CHARACTER #\{)) '(NIL NIL)) (EQ T (MAKE-DISPATCH-MACRO-CHARACTER #\{)) (GET-MACRO-CHARACTER #\{)))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (AND (EQ T (MAKE-DISPATCH-MACRO-CHARACTER #\{)) (HANDLER-CASE (READ-FROM-STRING "{$a") (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (AND (EQ T (MAKE-DISPATCH-MACRO-CHARACTER #\{)) (HANDLER-CASE (READ-FROM-STRING "{$a") (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)) (SET-DISPATCH-MACRO-CHARACTER #\{ #\$ #'(LAMBDA (S C N) (DECLARE (IGNORE C N)) (READ S T NIL T))) (EQ 'A (READ-FROM-STRING "{$a"))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (AND (EQ T (MAKE-DISPATCH-MACRO-CHARACTER #\{)) (HANDLER-CASE (READ-FROM-STRING "{$a") (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)) (SET-DISPATCH-MACRO-CHARACTER #\{ #\$ #'(LAMBDA (S C N) (DECLARE (IGNORE C N)) (READ S T NIL T))) (WITH-INPUT-FROM-STRING (STREAM "xyz{$a") (AND (EQ 'XYZ (READ STREAM)) (EQ 'A (READ STREAM)) (EQ 'END (READ STREAM NIL 'END))))))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL))) (AND (EQ T (MAKE-DISPATCH-MACRO-CHARACTER #\{ T)) (HANDLER-CASE (READ-FROM-STRING "{$a") (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)) (SET-DISPATCH-MACRO-CHARACTER #\{ #\$ #'(LAMBDA (S C N) (DECLARE (IGNORE C N)) (READ S T NIL T))) (WITH-INPUT-FROM-STRING (STREAM "xyz{$a") (AND (EQ 'XYZ{$A (READ STREAM)) (EQ 'END (READ STREAM NIL 'END))))))) EQL-OK: NIL (NOT (LET ((TABLE (COPY-READTABLE NIL))) (AND (EQ T (MAKE-DISPATCH-MACRO-CHARACTER #\{ NIL TABLE)) (LET ((*READTABLE* TABLE)) (HANDLER-CASE (READ-FROM-STRING "{$a") (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) (SET-DISPATCH-MACRO-CHARACTER #\{ #\$ #'(LAMBDA (S C N) (DECLARE (IGNORE C N)) (READ S T NIL T)) TABLE) (LET ((*READTABLE* TABLE)) (WITH-INPUT-FROM-STRING (STREAM "xyz{$a") (AND (EQ 'XYZ (READ STREAM)) (EQ 'A (READ STREAM)) (EQ 'END (READ STREAM NIL 'END)))))))) EQL-OK: NIL (NOT (LET ((TABLE (COPY-READTABLE NIL))) (AND (EQ T (MAKE-DISPATCH-MACRO-CHARACTER #\{ T TABLE)) (LET ((*READTABLE* TABLE)) (HANDLER-CASE (READ-FROM-STRING "{$a") (READER-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) (SET-DISPATCH-MACRO-CHARACTER #\{ #\$ #'(LAMBDA (S C N) (DECLARE (IGNORE C N)) (READ S T NIL T)) TABLE) (LET ((*READTABLE* TABLE)) (WITH-INPUT-FROM-STRING (STREAM "xyz{$a") (AND (EQ 'XYZ{$A (READ STREAM)) (EQ 'END (READ STREAM NIL 'END)))))))) EQL-OK: NIL (NOT (WITH-INPUT-FROM-STRING (STREAM "") (HANDLER-CASE (READ STREAM T) (END-OF-FILE NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) EQL-OK: NIL (NOT (WITH-INPUT-FROM-STRING (STREAM "") (HANDLER-CASE (READ-PRESERVING-WHITESPACE STREAM T) (END-OF-FILE NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) EQL-OK: NIL (NOT (WITH-INPUT-FROM-STRING (STREAM "") (HANDLER-CASE (READ STREAM T 'IGNORED) (END-OF-FILE NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) EQL-OK: NIL (NOT (WITH-INPUT-FROM-STRING (STREAM "") (HANDLER-CASE (READ-PRESERVING-WHITESPACE STREAM T 'IGNORED) (END-OF-FILE NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) EQL-OK: NIL (NOT (WITH-INPUT-FROM-STRING (STREAM "") (EQ 'END (READ STREAM NIL 'END)))) EQL-OK: NIL (NOT (WITH-INPUT-FROM-STRING (STREAM "") (EQ 'END (READ-PRESERVING-WHITESPACE STREAM NIL 'END)))) EQL-OK: NIL (NOT (WITH-INPUT-FROM-STRING (STREAM "a b") (AND (EQ 'A (READ-PRESERVING-WHITESPACE STREAM T NIL NIL)) (EQUAL (LOOP FOR C = (READ-CHAR STREAM NIL NIL) WHILE C COLLECTING C) '(#\ #\ #\b))))) EQL-OK: NIL (NOT (WITH-INPUT-FROM-STRING (STREAM "a b") (AND (EQ 'A (READ-PRESERVING-WHITESPACE STREAM T NIL)) (EQUAL (LOOP FOR C = (READ-CHAR STREAM NIL NIL) WHILE C COLLECTING C) '(#\ #\ #\b))))) EQL-OK: NIL (NOT (WITH-INPUT-FROM-STRING (STREAM "ok") (LET ((*STANDARD-INPUT* STREAM)) (EQ 'OK (READ))))) EQL-OK: NIL (NOT (WITH-INPUT-FROM-STRING (STREAM "ok") (LET ((*STANDARD-INPUT* STREAM)) (EQ 'OK (READ-PRESERVING-WHITESPACE))))) EQL-OK: NIL (NOT (WITH-INPUT-FROM-STRING (STREAM "") (LET ((*STANDARD-INPUT* STREAM)) (HANDLER-CASE (READ) (END-OF-FILE NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))))) EQL-OK: NIL (NOT (WITH-INPUT-FROM-STRING (STREAM "") (LET ((*STANDARD-INPUT* STREAM)) (HANDLER-CASE (READ-PRESERVING-WHITESPACE) (END-OF-FILE NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))))) EQL-OK: NIL (NOT (WITH-INPUT-FROM-STRING (STREAM "") (LET ((*STANDARD-INPUT* STREAM)) (NULL (READ NIL NIL))))) EQL-OK: NIL (NOT (WITH-INPUT-FROM-STRING (STREAM "") (LET ((*STANDARD-INPUT* STREAM)) (NULL (READ-PRESERVING-WHITESPACE NIL NIL))))) EQL-OK: NIL (NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* "(a b") (HANDLER-CASE (READ) (END-OF-FILE NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) EQL-OK: NIL (NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* "(a b") (HANDLER-CASE (READ-PRESERVING-WHITESPACE) (END-OF-FILE NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) EQL-OK: NIL (NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* "(a (b") (HANDLER-CASE (READ) (END-OF-FILE NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) EQL-OK: NIL (NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* "(a (b") (HANDLER-CASE (READ-PRESERVING-WHITESPACE) (END-OF-FILE NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) EQL-OK: NIL (NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* "a b)") (EQUAL '(A B) (READ-DELIMITED-LIST #\))))) EQL-OK: NIL (NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* ")") (NULL (READ-DELIMITED-LIST #\))))) EQL-OK: NIL (NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* "a b )") (EQUAL '(A B) (READ-DELIMITED-LIST #\))))) EQL-OK: NIL (NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* " a b )") (EQUAL '(A B) (READ-DELIMITED-LIST #\))))) EQL-OK: NIL (NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* " a b ) ") (EQUAL '(A B) (READ-DELIMITED-LIST #\))))) EQL-OK: NIL (NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* "a b c d e f g h i j k l m n o p q r)") (EQUAL '(A B C D E F G H I J K L M N O P Q R) (READ-DELIMITED-LIST #\))))) EQL-OK: NIL (NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* "a (b) c (d) e f g h i j (k l m ) n o p q r)") (EQUAL '(A (B) C (D) E F G H I J (K L M) N O P Q R) (READ-DELIMITED-LIST #\))))) EQL-OK: NIL (NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* "a x\\)x b)") (EQUAL '(A |X)X| B) (READ-DELIMITED-LIST #\))))) EQL-OK: NIL (NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* "a b) xyz") (AND (EQUAL '(A B) (READ-DELIMITED-LIST #\))) (EQ 'XYZ (READ))))) EQL-OK: NIL (NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* "a #'car)") (EQUAL '(A #'CAR) (READ-DELIMITED-LIST #\))))) EQL-OK: NIL (NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* "a #'car ;; d #| e f |# g z)") (EQUAL '(A #'CAR D G Z) (READ-DELIMITED-LIST #\))))) EQL-OK: NIL (NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* "a #'car ;; d #| e f |# g z) xyz") (AND (EQUAL '(A #'CAR D G Z) (READ-DELIMITED-LIST #\))) (EQ 'XYZ (READ))))) EQL-OK: NIL (NOT (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* "1 2 3 4 5 6 ]") (EQUAL (READ-DELIMITED-LIST #\]) '(1 2 3 4 5 6)))) EQL-OK: NIL (NOT (GET-MACRO-CHARACTER #\) NIL)) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE NIL)) (F #'(LAMBDA (STREAM CHAR ARG) (DECLARE (IGNORE CHAR ARG)) (MAPCON #'(LAMBDA (X) (MAPCAR #'(LAMBDA (Y) (LIST (CAR X) Y)) (CDR X))) (READ-DELIMITED-LIST #\} STREAM T))))) (SET-DISPATCH-MACRO-CHARACTER #\# #\{ F) (GET-MACRO-CHARACTER #\) NIL) (SET-MACRO-CHARACTER #\} (GET-MACRO-CHARACTER #\) NIL)) (WITH-INPUT-FROM-STRING (*STANDARD-INPUT* "#{ p q z a}") (EQUAL (READ) '((P Q) (P Z) (P A) (Q Z) (Q A) (Z A)))))) EQL-OK: NIL (NOT (HANDLER-CASE (WITH-INPUT-FROM-STRING (STREAM "1 2 3 . 4)") (READ-DELIMITED-LIST #\) STREAM T)) (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (GET-DISPATCH-MACRO-CHARACTER #\# #\( NIL)) EQL-OK: NIL (NOT (SET-SYNTAX-FROM-CHAR #\z #\' (COPY-READTABLE NIL) NIL)) EQL-OK: NIL (NOT (EQUAL '(ABC 3) (MULTIPLE-VALUE-LIST (READ-FROM-STRING "abc")))) EQL-OK: NIL (NOT (HANDLER-CASE (READ-FROM-STRING "") (END-OF-FILE NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (READ-FROM-STRING "" T 'IGNORED) (END-OF-FILE NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (EQ 'END (READ-FROM-STRING "" NIL 'END))) EQL-OK: NIL (NOT (EQUAL '(B 5) (MULTIPLE-VALUE-LIST (READ-FROM-STRING "(a b c)" T NIL :START 2 :END 6)))) EQL-OK: NIL (NOT (EQUAL '(B 4) (MULTIPLE-VALUE-LIST (READ-FROM-STRING "(a b c)" T NIL :START 2 :PRESERVE-WHITESPACE T)))) EQL-OK: NIL (NOT (NULL (READ-FROM-STRING "" NIL))) EQL-OK: NIL (NOT (MULTIPLE-VALUE-BIND (THING POS) (READ-FROM-STRING " a b" T NIL :START 3) (AND (EQ THING 'B) (OR (= POS 4) (= POS 5))))) EQL-OK: NIL (NOT (MULTIPLE-VALUE-BIND (THING POS) (READ-FROM-STRING "abcdefg" T NIL :END 2) (AND (EQ THING 'AB) (OR (= POS 2) (= POS 3))))) EQL-OK: NIL (NOT (EQUAL '(IJK 3) (MULTIPLE-VALUE-LIST (READ-FROM-STRING "ijk xyz" T NIL :PRESERVE-WHITESPACE T)))) EQL-OK: NIL (NOT (EQUAL '(DEF 7) (MULTIPLE-VALUE-LIST (READ-FROM-STRING "abc def ghi" T NIL :START 4 :END 9 :PRESERVE-WHITESPACE T)))) EQL-OK: NIL (NOT (= 3 (READ-FROM-STRING " 1 3 5" T NIL :START 2))) EQL-OK: NIL (NOT (MULTIPLE-VALUE-BIND (THING POS) (READ-FROM-STRING "(a b c)") (AND (EQUAL THING '(A B C)) (OR (= POS 7) (= POS 8))))) EQL-OK: NIL (NOT (HANDLER-CASE (READ-FROM-STRING "(a b") (ERROR NIL T) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (LET ((*READTABLE* (COPY-READTABLE))) (AND (PROGN (HANDLER-CASE (READ-FROM-STRING "# (NOT (EQL (LENGTH "abc") 3)) EQL-OK: NIL (NOT (LET ((STR (MAKE-ARRAY '(3) :ELEMENT-TYPE 'CHARACTER :INITIAL-CONTENTS "abc" :FILL-POINTER T))) (AND (EQL (LENGTH STR) 3) (EQL (SETF (FILL-POINTER STR) 2) 2) (EQL (LENGTH STR) 2)))) EQL-OK: NIL (NOT (ZEROP (LENGTH #*))) EQL-OK: NIL (NOT (ZEROP (LENGTH ""))) EQL-OK: NIL (NOT (ZEROP (LENGTH #()))) EQL-OK: NIL (NOT (ZEROP (LENGTH NIL))) EQL-OK: NIL (NOT (EQL (LENGTH '(0)) 1)) EQL-OK: NIL (NOT (EQL (LENGTH '(0 1)) 2)) EQL-OK: NIL (NOT (EQL (LENGTH '(0 1 2)) 3)) EQL-OK: NIL (NOT (EQL (LENGTH '(0 1 2 3)) 4)) EQL-OK: NIL (NOT (EQL (LENGTH '(0 1 2 3 4)) 5)) EQL-OK: NIL (NOT (EQL (LENGTH '(0 1 2 3 4 5)) 6)) EQL-OK: NIL (NOT (EQL (LENGTH '(0 1 2 3 4 5 6)) 7)) EQL-OK: NIL (NOT (EQL (LENGTH #(0)) 1)) EQL-OK: NIL (NOT (EQL (LENGTH #(0 1)) 2)) EQL-OK: NIL (NOT (EQL (LENGTH #(0 1 2)) 3)) EQL-OK: NIL (NOT (EQL (LENGTH #(0 1 2 3)) 4)) EQL-OK: NIL (NOT (EQL (LENGTH #(0 1 2 3 4)) 5)) EQL-OK: NIL (NOT (EQL (LENGTH #(0 1 2 3 4 5)) 6)) EQL-OK: NIL (NOT (EQL (LENGTH #(0 1 2 3 4 5 6)) 7)) EQL-OK: NIL (NOT (EQL (LENGTH (MAKE-ARRAY 100)) 100)) EQL-OK: NIL (NOT (EQL (LENGTH (MAKE-SEQUENCE 'LIST 20)) 20)) EQL-OK: NIL (NOT (EQL (LENGTH (MAKE-SEQUENCE 'STRING 10)) 10)) EQL-OK: NIL (NOT (EQL (LENGTH (MAKE-SEQUENCE 'BIT-VECTOR 3)) 3)) EQL-OK: NIL (NOT (EQL (LENGTH (MAKE-SEQUENCE 'BIT-VECTOR 64)) 64)) EQL-OK: NIL (NOT (EQL (LENGTH (MAKE-SEQUENCE 'SIMPLE-VECTOR 64)) 64)) EQL-OK: NIL (NOT (STRING= (COPY-SEQ "love") "love")) EQL-OK: NIL (NOT (EQUALP (COPY-SEQ '#(A B C D)) '#(A B C D))) EQL-OK: NIL (NOT (EQUALP (COPY-SEQ '#*01010101) '#*01010101)) EQL-OK: NIL (NOT (EQUAL (COPY-SEQ '(LOVE)) '(LOVE))) EQL-OK: NIL (NOT (EQUAL (COPY-SEQ '(LOVE HATE WAR PEACE)) '(LOVE HATE WAR PEACE))) EQL-OK: NIL (NOT (NULL (COPY-SEQ NIL))) EQL-OK: NIL (NOT (STRING= (COPY-SEQ "") "")) EQL-OK: NIL (NOT (LET* ((SEQ0 "love&peace") (SEQ (COPY-SEQ SEQ0))) (AND (NOT (EQ SEQ0 SEQ)) (STRING= SEQ0 SEQ)))) EQL-OK: NIL (NOT (LET* ((SEQ0 (LIST 'LOVE 'AND 'PEACE)) (SEQ (COPY-SEQ SEQ0))) (AND (NOT (EQ SEQ0 SEQ)) (EQUAL SEQ0 SEQ)))) EQL-OK: NIL (NOT (LET* ((C0 (LIST 'LOVE)) (C1 (LIST 'PEACE)) (SEQ (COPY-SEQ (LIST C0 C1)))) (AND (EQUAL SEQ '((LOVE) (PEACE))) (EQ (CAR SEQ) C0) (EQ (CADR SEQ) C1)))) EQL-OK: NIL (NOT (LET* ((SEQ0 '#(T NIL T NIL)) (SEQ (COPY-SEQ SEQ0))) (AND (NOT (EQ SEQ0 SEQ)) (EQUALP SEQ SEQ0)))) EQL-OK: NIL (NOT (VECTORP (COPY-SEQ (VECTOR)))) EQL-OK: NIL (NOT (SIMPLE-BIT-VECTOR-P (COPY-SEQ #*))) EQL-OK: NIL (NOT (SIMPLE-VECTOR-P (COPY-SEQ (VECTOR)))) EQL-OK: NIL (NOT (SIMPLE-VECTOR-P (COPY-SEQ (MAKE-ARRAY 10 :FILL-POINTER 3 :INITIAL-ELEMENT NIL)))) EQL-OK: NIL (NOT (SIMPLE-VECTOR-P (COPY-SEQ (VECTOR 0 1)))) EQL-OK: NIL (NOT (SIMPLE-STRING-P (COPY-SEQ "xyz"))) EQL-OK: NIL (NOT (SIMPLE-STRING-P (COPY-SEQ (MAKE-ARRAY 3 :DISPLACED-TO "0123456789" :DISPLACED-INDEX-OFFSET 3 :ELEMENT-TYPE 'BASE-CHAR)))) EQL-OK: NIL (NOT (SIMPLE-STRING-P (COPY-SEQ (MAKE-ARRAY 20 :FILL-POINTER T :ELEMENT-TYPE 'BASE-CHAR :INITIAL-ELEMENT #\ )))) EQL-OK: NIL (NOT (SIMPLE-BIT-VECTOR-P (COPY-SEQ #*0101))) EQL-OK: NIL (NOT (SIMPLE-BIT-VECTOR-P (COPY-SEQ (MAKE-ARRAY 30 :FILL-POINTER 3 :ELEMENT-TYPE 'BIT :INITIAL-ELEMENT 0)))) EQL-OK: NIL (NOT (LET* ((VEC0 (MAKE-ARRAY 10 :FILL-POINTER 3 :INITIAL-CONTENTS "0123456789")) (VEC (COPY-SEQ VEC0))) (AND (SIMPLE-VECTOR-P VEC) (= (LENGTH VEC) 3) (EQUALP VEC #(#\0 #\1 #\2))))) EQL-OK: NIL (NOT (CHAR= (ELT "0123456789" 6) #\6)) EQL-OK: NIL (NOT (EQ (ELT #(A B C D E F G) 0) 'A)) EQL-OK: NIL (NOT (EQ (ELT '(A B C D E F G) 4) 'E)) EQL-OK: NIL (NOT (ZEROP (ELT #*0101010 0))) EQL-OK: NIL (NOT (DOTIMES (I 10 T) (UNLESS (CHAR= (ELT "0123456789" I) (DIGIT-CHAR I)) (RETURN NIL)))) EQL-OK: NIL (NOT (LET ((STR (COPY-SEQ "0123456789"))) (AND (CHAR= (ELT STR 6) #\6) (SETF (ELT STR 0) #\#) (STRING= STR "#123456789")))) EQL-OK: NIL (NOT (LET ((LIST (LIST 0 1 2 3))) (AND (= (ELT LIST 2) 2) (SETF (ELT LIST 1) 9) (= (ELT LIST 1) 9) (EQUAL LIST '(0 9 2 3))))) EQL-OK: NIL (NOT (LET ((BV #*0101010101)) (DOTIMES (I 10 T) (UNLESS (= (ELT BV I) (IF (EVENP I) 0 1)) (RETURN NIL))))) EQL-OK: NIL (NOT (LET ((VEC (VECTOR 'A 'B 'C))) (AND (EQ (ELT VEC 0) 'A) (EQ (ELT VEC 1) 'B) (EQ (ELT VEC 2) 'C)))) EQL-OK: NIL (NOT (LET ((LIST (LIST 0 1 2 3))) (AND (EQ (FILL LIST 'NIL) LIST) (EVERY 'NULL LIST)))) EQL-OK: NIL (NOT (LET ((VECTOR (VECTOR 'X 'Y 'Z))) (AND (EQ (FILL VECTOR 'A) VECTOR) (EVERY #'(LAMBDA (ARG) (EQ ARG 'A)) VECTOR)))) EQL-OK: NIL (NOT (LET ((LIST (LIST 0 1 2 3))) (AND (EQ (FILL LIST '9 :START 2) LIST) (EQUAL LIST '(0 1 9 9))))) EQL-OK: NIL (NOT (LET ((LIST (LIST 0 1 2 3))) (AND (EQ (FILL LIST '9 :START 1 :END 3) LIST) (EQUAL LIST '(0 9 9 3))))) EQL-OK: NIL (NOT (LET ((LIST (LIST 0 1 2 3))) (AND (EQ (FILL LIST '9 :START 1 :END NIL) LIST) (EQUAL LIST '(0 9 9 9))))) EQL-OK: NIL (NOT (LET ((LIST (LIST 0 1 2 3))) (AND (EQ (FILL LIST '9 :END 1) LIST) (EQUAL LIST '(9 1 2 3))))) EQL-OK: NIL (NOT (LET ((VECTOR (VECTOR 0 1 2 3))) (AND (EQ (FILL VECTOR 'T :START 3) VECTOR) (EQUALP VECTOR '#(0 1 2 T))))) EQL-OK: NIL (NOT (LET ((VECTOR (VECTOR 0 1 2 3))) (AND (EQ (FILL VECTOR 'T :START 2 :END 4) VECTOR) (EQUALP VECTOR '#(0 1 T T))))) EQL-OK: NIL (NOT (LET ((VECTOR (VECTOR 0 1 2 3))) (AND (EQ (FILL VECTOR 'T :START 2 :END NIL) VECTOR) (EQUALP VECTOR '#(0 1 T T))))) EQL-OK: NIL (NOT (LET ((VECTOR (VECTOR 0 1 2 3))) (AND (EQ (FILL VECTOR 'T :END 3) VECTOR) (EQUALP VECTOR '#(T T T 3))))) EQL-OK: NIL (NOT (NULL (MAKE-SEQUENCE 'LIST 0))) EQL-OK: NIL (NOT (STRING= (MAKE-SEQUENCE 'STRING 26 :INITIAL-ELEMENT #\.) "..........................")) EQL-OK: NIL (NOT (EQUALP (MAKE-SEQUENCE '(VECTOR DOUBLE-FLOAT) 2 :INITIAL-ELEMENT 1.0d0) #(1.0d0 1.0d0))) EQL-OK: NIL (NOT (EQUAL (MAKE-SEQUENCE 'LIST 3 :INITIAL-ELEMENT 'A) '(A A A))) EQL-OK: NIL (NOT (EQUAL (MAKE-SEQUENCE 'CONS 3 :INITIAL-ELEMENT 'A) '(A A A))) EQL-OK: NIL (NOT (NULL (MAKE-SEQUENCE 'NULL 0 :INITIAL-ELEMENT 'A))) EQL-OK: NIL (NOT (EQUALP (MAKE-SEQUENCE 'VECTOR 3 :INITIAL-ELEMENT 'Z) '#(Z Z Z))) EQL-OK: NIL (NOT (EQUALP (MAKE-SEQUENCE '(VECTOR * *) 3 :INITIAL-ELEMENT 'Z) '#(Z Z Z))) EQL-OK: NIL (NOT (EQUALP (MAKE-SEQUENCE '(VECTOR T *) 3 :INITIAL-ELEMENT 'Z) '#(Z Z Z))) EQL-OK: NIL (NOT (STRING= (MAKE-SEQUENCE '(STRING 3) 3 :INITIAL-ELEMENT '#\a) "aaa")) EQL-OK: NIL (NOT (STRING= (MAKE-SEQUENCE 'STRING 4 :INITIAL-ELEMENT '#\z) "zzzz")) EQL-OK: NIL (NOT (STRING= (MAKE-SEQUENCE '(VECTOR CHARACTER 3) 3 :INITIAL-ELEMENT '#\a) "aaa")) EQL-OK: NIL (NOT (EQUALP (MAKE-SEQUENCE '(ARRAY T 1) 3 :INITIAL-ELEMENT 'Z) '#(Z Z Z))) EQL-OK: NIL (NOT (EQUALP (MAKE-SEQUENCE '(ARRAY T (3)) 3 :INITIAL-ELEMENT 'Z) '#(Z Z Z))) EQL-OK: NIL (NOT (VECTORP (MAKE-SEQUENCE 'VECTOR 10))) EQL-OK: NIL (NOT (STRING= (SUBSEQ "012345" 2) "2345")) EQL-OK: NIL (NOT (STRING= (SUBSEQ "012345" 3 5) "34")) EQL-OK: NIL (NOT (LET ((STR (COPY-SEQ "012345"))) (AND (SETF (SUBSEQ STR 4) "abc") (STRING= STR "0123ab")))) EQL-OK: NIL (NOT (LET ((STR (COPY-SEQ "012345"))) (SETF (SUBSEQ STR 0 2) "A") (STRING= STR "A12345"))) EQL-OK: NIL (NOT (EQUAL (SUBSEQ '(0 1 2 3) 0) '(0 1 2 3))) EQL-OK: NIL (NOT (EQUAL (SUBSEQ '(0 1 2 3) 1) '(1 2 3))) EQL-OK: NIL (NOT (EQUAL (SUBSEQ '(0 1 2 3) 2) '(2 3))) EQL-OK: NIL (NOT (EQUAL (SUBSEQ '(0 1 2 3) 3) '(3))) EQL-OK: NIL (NOT (EQUAL (SUBSEQ '(0 1 2 3) 4) 'NIL)) EQL-OK: NIL (NOT (EQUALP (SUBSEQ #(A B C D) 0) #(A B C D))) EQL-OK: NIL (NOT (EQUALP (SUBSEQ #(A B C D) 1) #(B C D))) EQL-OK: NIL (NOT (EQUALP (SUBSEQ #(A B C D) 2) #(C D))) EQL-OK: NIL (NOT (EQUALP (SUBSEQ #(A B C D) 3) #(D))) EQL-OK: NIL (NOT (EQUALP (SUBSEQ #(A B C D) 4) #())) EQL-OK: NIL (NOT (STRING= (SUBSEQ "0123" 0) "0123")) EQL-OK: NIL (NOT (STRING= (SUBSEQ "0123" 1) "123")) EQL-OK: NIL (NOT (STRING= (SUBSEQ "0123" 2) "23")) EQL-OK: NIL (NOT (STRING= (SUBSEQ "0123" 3) "3")) EQL-OK: NIL (NOT (STRING= (SUBSEQ "0123" 4) "")) EQL-OK: NIL (NOT (EQUALP (SUBSEQ #*1010 0) #*1010)) EQL-OK: NIL (NOT (EQUALP (SUBSEQ #*1010 1) #*010)) EQL-OK: NIL (NOT (EQUALP (SUBSEQ #*1010 2) #*10)) EQL-OK: NIL (NOT (EQUALP (SUBSEQ #*1010 3) #*0)) EQL-OK: NIL (NOT (EQUALP (SUBSEQ #*1010 4) #*)) EQL-OK: NIL (NOT (EQUAL (SUBSEQ '(0 1 2 3) 0 4) '(0 1 2 3))) EQL-OK: NIL (NOT (EQUAL (SUBSEQ '(0 1 2 3) 0 NIL) '(0 1 2 3))) EQL-OK: NIL (NOT (LET* ((LIST0 '(0 1 2 3)) (LIST (SUBSEQ LIST0 0 4))) (AND (NOT (EQ LIST0 LIST)) (EQUAL LIST0 LIST)))) EQL-OK: NIL (NOT (LET* ((LIST0 '(0 1 2 3)) (LIST (SUBSEQ LIST0 0 NIL))) (AND (NOT (EQ LIST0 LIST)) (EQUAL LIST0 LIST)))) EQL-OK: NIL (NOT (EQUAL (SUBSEQ '(0 1 2 3) 1 3) '(1 2))) EQL-OK: NIL (NOT (EQUAL (SUBSEQ '(0 1 2 3) 2 2) 'NIL)) EQL-OK: NIL (NOT (EQUAL (SUBSEQ '(0 1 2 3) 0 0) 'NIL)) EQL-OK: NIL (NOT (EQUAL (SUBSEQ '(0 1 2 3) 1 1) 'NIL)) EQL-OK: NIL (NOT (EQUAL (SUBSEQ '(0 1 2 3) 2 2) 'NIL)) EQL-OK: NIL (NOT (EQUAL (SUBSEQ '(0 1 2 3) 3 3) 'NIL)) EQL-OK: NIL (NOT (EQUAL (SUBSEQ '(0 1 2 3) 4 4) 'NIL)) EQL-OK: NIL (NOT (LET ((LIST (LIST 0 1 2 3 4 5 6 7))) (SETF (SUBSEQ LIST 0) '(A B C D)) (EQUAL LIST '(A B C D 4 5 6 7)))) EQL-OK: NIL (NOT (LET ((LIST (LIST 0 1 2 3))) (SETF (SUBSEQ LIST 0) '(A B C D)) (EQUAL LIST '(A B C D)))) EQL-OK: NIL (NOT (LET ((LIST (LIST 0 1 2 3))) (SETF (SUBSEQ LIST 2) '(A B C D)) (EQUAL LIST '(0 1 A B)))) EQL-OK: NIL (NOT (LET ((LIST (LIST 0 1 2 3))) (SETF (SUBSEQ LIST 2 NIL) '(A B C D)) (EQUAL LIST '(0 1 A B)))) EQL-OK: NIL (NOT (LET ((LIST (LIST 0 1 2 3))) (SETF (SUBSEQ LIST 1 3) '(A B C D)) (EQUAL LIST '(0 A B 3)))) EQL-OK: NIL (NOT (LET ((LIST (LIST 0 1 2 3))) (SETF (SUBSEQ LIST 0) 'NIL) (EQUAL LIST '(0 1 2 3)))) EQL-OK: NIL (NOT (LET ((LIST 'NIL)) (SETF (SUBSEQ LIST 0) '(A B C D E)) (NULL LIST))) EQL-OK: NIL (NOT (LET ((LIST '(0 1 2 3))) (SETF (SUBSEQ LIST 0 0) '(A B C D E)) (EQUAL LIST '(0 1 2 3)))) EQL-OK: NIL (NOT (LET ((LIST '(0 1 2 3))) (SETF (SUBSEQ LIST 1 1) '(A B C D E)) (EQUAL LIST '(0 1 2 3)))) EQL-OK: NIL (NOT (LET ((LIST '(0 1 2 3))) (SETF (SUBSEQ LIST 2 2) '(A B C D E)) (EQUAL LIST '(0 1 2 3)))) EQL-OK: NIL (NOT (LET ((LIST '(0 1 2 3))) (SETF (SUBSEQ LIST 3 3) '(A B C D E)) (EQUAL LIST '(0 1 2 3)))) EQL-OK: NIL (NOT (LET ((LIST '(0 1 2 3))) (SETF (SUBSEQ LIST 4 4) '(A B C D E)) (EQUAL LIST '(0 1 2 3)))) EQL-OK: NIL (NOT (LET ((LIST (LIST 0 1 2 3 4 5 6 7))) (SETF (SUBSEQ LIST 0) #(A B C D)) (EQUAL LIST '(A B C D 4 5 6 7)))) EQL-OK: NIL (NOT (LET ((LIST (LIST 0 1 2 3))) (SETF (SUBSEQ LIST 0) #(A B C D)) (EQUAL LIST '(A B C D)))) EQL-OK: NIL (NOT (LET ((LIST (LIST 0 1 2 3))) (SETF (SUBSEQ LIST 2) #(A B C D)) (EQUAL LIST '(0 1 A B)))) EQL-OK: NIL (NOT (LET ((LIST (LIST 0 1 2 3))) (SETF (SUBSEQ LIST 2 NIL) #(A B C D)) (EQUAL LIST '(0 1 A B)))) EQL-OK: NIL (NOT (LET ((LIST (LIST 0 1 2 3))) (SETF (SUBSEQ LIST 1 3) #(A B C D)) (EQUAL LIST '(0 A B 3)))) EQL-OK: NIL (NOT (LET ((LIST (LIST 0 1 2 3))) (SETF (SUBSEQ LIST 0) #()) (EQUAL LIST '(0 1 2 3)))) EQL-OK: NIL (NOT (LET ((LIST (LIST 0 1 2 3 4 5 6 7))) (SETF (SUBSEQ LIST 0) "abcd") (EQUAL LIST '(#\a #\b #\c #\d 4 5 6 7)))) EQL-OK: NIL (NOT (LET ((LIST (LIST 0 1 2 3))) (SETF (SUBSEQ LIST 0) "abcd") (EQUAL LIST '(#\a #\b #\c #\d)))) EQL-OK: NIL (NOT (LET ((LIST (LIST 0 1 2 3))) (SETF (SUBSEQ LIST 2) "abcd") (EQUAL LIST '(0 1 #\a #\b)))) EQL-OK: NIL (NOT (LET ((LIST (LIST 0 1 2 3))) (SETF (SUBSEQ LIST 2 NIL) "abcd") (EQUAL LIST '(0 1 #\a #\b)))) EQL-OK: NIL (NOT (LET ((LIST (LIST 0 1 2 3))) (SETF (SUBSEQ LIST 1 3) "abcd") (EQUAL LIST '(0 #\a #\b 3)))) EQL-OK: NIL (NOT (LET ((LIST (LIST 0 1 2 3))) (SETF (SUBSEQ LIST 0) "") (EQUAL LIST '(0 1 2 3)))) EQL-OK: NIL (NOT (EQUALP (SUBSEQ #(0 1 2 3) 0 4) #(0 1 2 3))) EQL-OK: NIL (NOT (EQUALP (SUBSEQ #(0 1 2 3) 0 NIL) #(0 1 2 3))) EQL-OK: NIL (NOT (LET* ((VEC0 #(0 1 2 3)) (VEC (SUBSEQ VEC0 0 4))) (AND (NOT (EQ VEC0 VEC)) (EQUALP VEC0 VEC)))) EQL-OK: NIL (NOT (LET* ((VEC0 #(0 1 2 3)) (VEC (SUBSEQ VEC0 0 NIL))) (AND (NOT (EQ VEC0 VEC)) (EQUALP VEC0 VEC)))) EQL-OK: NIL (NOT (EQUALP (SUBSEQ #(0 1 2 3) 1 3) #(1 2))) EQL-OK: NIL (NOT (EQUALP (SUBSEQ #(0 1 2 3) 2 2) #())) EQL-OK: NIL (NOT (EQUALP (SUBSEQ #(0 1 2 3) 0 0) #())) EQL-OK: NIL (NOT (EQUALP (SUBSEQ #(0 1 2 3) 1 1) #())) EQL-OK: NIL (NOT (EQUALP (SUBSEQ #(0 1 2 3) 2 2) #())) EQL-OK: NIL (NOT (EQUALP (SUBSEQ #(0 1 2 3) 3 3) #())) EQL-OK: NIL (NOT (EQUALP (SUBSEQ #(0 1 2 3) 4 4) #())) EQL-OK: NIL (NOT (LET ((VEC (VECTOR 0 1 2 3 4 5 6 7))) (SETF (SUBSEQ VEC 0) #(A B C D)) (EQUALP VEC #(A B C D 4 5 6 7)))) EQL-OK: NIL (NOT (LET ((VEC (VECTOR 0 1 2 3))) (SETF (SUBSEQ VEC 0) #(A B C D)) (EQUALP VEC #(A B C D)))) EQL-OK: NIL (NOT (LET ((VEC (VECTOR 0 1 2 3))) (SETF (SUBSEQ VEC 2) #(A B C D)) (EQUALP VEC #(0 1 A B)))) EQL-OK: NIL (NOT (LET ((VEC (VECTOR 0 1 2 3))) (SETF (SUBSEQ VEC 1 3) #(A B C D)) (EQUALP VEC #(0 A B 3)))) EQL-OK: NIL (NOT (LET ((VEC (VECTOR 0 1 2 3))) (SETF (SUBSEQ VEC 0) #()) (EQUALP VEC #(0 1 2 3)))) EQL-OK: NIL (NOT (LET ((VEC (VECTOR))) (SETF (SUBSEQ VEC 0) #(A B C D E)) (EQUALP VEC #()))) EQL-OK: NIL (NOT (LET ((VEC (VECTOR 0 1 2 3))) (SETF (SUBSEQ VEC 0 0) #(A B C D E)) (EQUALP VEC #(0 1 2 3)))) EQL-OK: NIL (NOT (LET ((VEC (VECTOR 0 1 2 3))) (SETF (SUBSEQ VEC 1 1) #(A B C D E)) (EQUALP VEC #(0 1 2 3)))) EQL-OK: NIL (NOT (LET ((VEC (VECTOR 0 1 2 3))) (SETF (SUBSEQ VEC 2 2) #(A B C D E)) (EQUALP VEC #(0 1 2 3)))) EQL-OK: NIL (NOT (LET ((VEC (VECTOR 0 1 2 3))) (SETF (SUBSEQ VEC 3 3) #(A B C D E)) (EQUALP VEC #(0 1 2 3)))) EQL-OK: NIL (NOT (LET ((VEC (VECTOR 0 1 2 3))) (SETF (SUBSEQ VEC 4 4) #(A B C D E)) (EQUALP VEC #(0 1 2 3)))) EQL-OK: NIL (NOT (LET ((VEC (VECTOR 0 1 2 3 4 5 6 7))) (SETF (SUBSEQ VEC 0) #(A B C D)) (EQUALP VEC #(A B C D 4 5 6 7)))) EQL-OK: NIL (NOT (LET ((VEC (VECTOR 0 1 2 3))) (SETF (SUBSEQ VEC 0) #(A B C D)) (EQUALP VEC #(A B C D)))) EQL-OK: NIL (NOT (LET ((VEC (VECTOR 0 1 2 3))) (SETF (SUBSEQ VEC 2) #(A B C D)) (EQUALP VEC #(0 1 A B)))) EQL-OK: NIL (NOT (LET ((VEC (VECTOR 0 1 2 3))) (SETF (SUBSEQ VEC 2 NIL) #(A B C D)) (EQUALP VEC #(0 1 A B)))) EQL-OK: NIL (NOT (LET ((VEC (VECTOR 0 1 2 3))) (SETF (SUBSEQ VEC 1 3) #(A B C D)) (EQUALP VEC #(0 A B 3)))) EQL-OK: NIL (NOT (LET ((VEC (VECTOR 0 1 2 3))) (SETF (SUBSEQ VEC 0) #()) (EQUALP VEC #(0 1 2 3)))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAP 'SYMBOL #'+ '(0 1) '(1 0))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAP 'HASH-TABLE #'+ '(0 1) '(1 0))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (STRING= (MAP 'STRING #'(LAMBDA (X Y) (CHAR "01234567890ABCDEF" (MOD (+ X Y) 16))) '(1 2 3 4) '(10 9 8 7)) "AAAA")) EQL-OK: NIL (NOT (LET ((SEQ (LIST "lower" "UPPER" "" "123"))) (AND (NULL (MAP NIL #'NSTRING-UPCASE SEQ)) (EQUAL SEQ '("LOWER" "UPPER" "" "123"))))) EQL-OK: NIL (NOT (EQUAL (MAP 'LIST #'- '(1 2 3 4)) '(-1 -2 -3 -4))) EQL-OK: NIL (NOT (STRING= (MAP 'STRING #'(LAMBDA (X) (IF (ODDP X) #\1 #\0)) '(1 2 3 4)) "1010")) EQL-OK: NIL (NOT (EQUAL (MAP 'LIST '+ '(0 1) '(1 0)) '(1 1))) EQL-OK: NIL (NOT (EQUAL (MAP 'LIST '- '(0 1) '(1 0)) '(-1 1))) EQL-OK: NIL (NOT (EVERY 'NULL (LIST (MAP 'LIST #'+ 'NIL) (MAP 'LIST #'+ 'NIL 'NIL) (MAP 'LIST #'+ 'NIL 'NIL 'NIL) (MAP 'LIST #'+ 'NIL 'NIL 'NIL 'NIL) (MAP 'LIST #'+ 'NIL 'NIL 'NIL 'NIL 'NIL)))) EQL-OK: NIL (NOT (EVERY 'NULL (LIST (MAP 'LIST #'+ 'NIL) (MAP 'LIST #'+ #() 'NIL) (MAP 'LIST #'+ 'NIL #() 'NIL) (MAP 'LIST #'+ #() 'NIL #() 'NIL) (MAP 'LIST #'+ 'NIL #() 'NIL #() 'NIL)))) EQL-OK: NIL (NOT (EQUAL (MAP 'LIST #'+ '(0 1 2)) '(0 1 2))) EQL-OK: NIL (NOT (EQUAL (MAP 'LIST #'+ '(0 1 2) '(1 2 3)) '(1 3 5))) EQL-OK: NIL (NOT (EQUAL (MAP 'LIST #'+ '(0 1 2) '(1 2 3) '(2 3 4)) '(3 6 9))) EQL-OK: NIL (NOT (EQUAL (MAP 'LIST #'+ '(0 1 2) '(1 2 3) '(2 3 4) '(3 4 5)) '(6 10 14))) EQL-OK: NIL (NOT (EQUAL (MAP 'LIST #'+ '(1 2) '(1 2 3)) '(2 4))) EQL-OK: NIL (NOT (EQUAL (MAP 'LIST #'+ '(0 1 2) '(2 3) '(2 3 4)) '(4 7))) EQL-OK: NIL (NOT (EQUAL (MAP 'LIST #'+ '(0 1 2) '(1 2 3) '(2) '(3 4 5)) '(6))) EQL-OK: NIL (NOT (EQUAL (MAP 'LIST #'+ '(0 1 2) '(1 2 3) '(2 3 4) '(3 4 5) 'NIL) 'NIL)) EQL-OK: NIL (NOT (EQUAL (MAP 'CONS #'+ '(0 1 2) '(2 1 0)) '(2 2 2))) EQL-OK: NIL (NOT (EQUAL (MAP '(CONS NUMBER CONS) #'+ '(0 1 2) '(2 1 0)) '(2 2 2))) EQL-OK: NIL (NOT (EQUAL (MAP '(CONS NUMBER (CONS NUMBER *)) #'+ '(0 1 2) '(2 1 0)) '(2 2 2))) EQL-OK: NIL (NOT (NULL (MAP 'NULL #'+ 'NIL))) EQL-OK: NIL (NOT (EQUALP (MAP 'VECTOR #'+ #()) #())) EQL-OK: NIL (NOT (EQUALP (MAP 'VECTOR #'+ #() #()) #())) EQL-OK: NIL (NOT (EQUALP (MAP 'VECTOR #'+ #() #() #()) #())) EQL-OK: NIL (NOT (EQUALP (MAP 'VECTOR #'+ #() #() #() #()) #())) EQL-OK: NIL (NOT (EQUALP (MAP 'VECTOR #'+ #() #() #() #() #()) #())) EQL-OK: NIL (NOT (EQUALP (MAP 'VECTOR #'+ 'NIL #()) #())) EQL-OK: NIL (NOT (EQUALP (MAP 'VECTOR #'+ 'NIL #() "") #())) EQL-OK: NIL (NOT (EQUALP (MAP 'VECTOR #'+ '(0 1 2)) #(0 1 2))) EQL-OK: NIL (NOT (EQUALP (MAP 'VECTOR #'+ '(0 1 2) #(1 2 3)) #(1 3 5))) EQL-OK: NIL (NOT (EQUALP (MAP 'VECTOR #'+ #(0 1 2) '(1 2 3) #(2 3 4)) #(3 6 9))) EQL-OK: NIL (NOT (EQUALP (MAP 'VECTOR #'+ '(0 1 2) #(1 2 3) '(2 3 4) #(3 4 5)) #(6 10 14))) EQL-OK: NIL (NOT (EQUALP (MAP 'VECTOR #'+ '(1 2) '(1 2 3)) #(2 4))) EQL-OK: NIL (NOT (EQUALP (MAP 'VECTOR #'+ '(0 1 2) '(2 3) '(2 3 4)) #(4 7))) EQL-OK: NIL (NOT (EQUALP (MAP 'VECTOR #'+ '(0 1 2) '(1 2 3) '(2) '(3 4 5)) #(6))) EQL-OK: NIL (NOT (EQUALP (MAP 'VECTOR #'+ '(0 1 2) '(1 2 3) '(2 3 4) '(3 4 5) 'NIL) #())) EQL-OK: NIL (NOT (EQUALP (MAP 'VECTOR #'+ #(1 2) #(1 2 3)) #(2 4))) EQL-OK: NIL (NOT (EQUALP (MAP 'VECTOR #'+ #(0 1 2) #(2 3) #(2 3 4)) #(4 7))) EQL-OK: NIL (NOT (EQUALP (MAP 'VECTOR #'+ #(0 1 2) '(1 2 3) #(2) '(3 4 5)) #(6))) EQL-OK: NIL (NOT (EQUALP (MAP 'VECTOR #'+ '(0 1 2) #(1 2 3) '(2 3 4) '(3 4 5) 'NIL) #())) EQL-OK: NIL (NOT (STRING= (MAP 'STRING #'(LAMBDA (&REST REST) (CHAR-UPCASE (CAR REST))) "") "")) EQL-OK: NIL (NOT (STRING= (MAP 'STRING #'(LAMBDA (&REST REST) (CHAR-UPCASE (CAR REST))) "" "") "")) EQL-OK: NIL (NOT (STRING= (MAP 'STRING #'(LAMBDA (&REST REST) (CHAR-UPCASE (CAR REST))) "" "" "") "")) EQL-OK: NIL (NOT (STRING= (MAP 'STRING #'(LAMBDA (&REST REST) (CHAR-UPCASE (CAR REST))) "" "" "" "") "")) EQL-OK: NIL (NOT (STRING= (MAP 'STRING #'(LAMBDA (&REST REST) (CHAR-UPCASE (CAR REST))) "" "" "" "" "") "")) EQL-OK: NIL (NOT (STRING= (MAP 'STRING #'(LAMBDA (&REST REST) (CHAR-UPCASE (CAR REST))) "") "")) EQL-OK: NIL (NOT (STRING= (MAP 'STRING #'(LAMBDA (&REST REST) (CHAR-UPCASE (CAR REST))) "" 'NIL) "")) EQL-OK: NIL (NOT (STRING= (MAP 'STRING #'(LAMBDA (&REST REST) (CHAR-UPCASE (CAR REST))) "" #() 'NIL) "")) EQL-OK: NIL (NOT (STRING= (MAP 'STRING #'(LAMBDA (&REST REST) (CHAR-UPCASE (CAR REST))) 'NIL 'NIL "" "") "")) EQL-OK: NIL (NOT (STRING= (MAP 'STRING #'(LAMBDA (&REST REST) (CHAR-UPCASE (CAR REST))) #() #() #() #() #()) "")) EQL-OK: NIL (NOT (STRING= (MAP 'STRING #'(LAMBDA (A B) (IF (CHAR< A B) B A)) "axbycz" "xaybzc") "xxyyzz")) EQL-OK: NIL (NOT (STRING= (MAP 'STRING #'(LAMBDA (A B) (IF (CHAR< A B) B A)) "axbycz" "xayb") "xxyy")) EQL-OK: NIL (NOT (STRING= (MAP 'STRING #'(LAMBDA (&REST REST) (IF (ZEROP (APPLY #'LOGAND REST)) #\0 #\1)) '(0 1 0 1) #*1010101) "0000")) EQL-OK: NIL (NOT (STRING= (MAP 'STRING #'(LAMBDA (&REST REST) (IF (ZEROP (APPLY #'LOGAND REST)) #\0 #\1)) #*1111 #*1010101 #*001) "001")) EQL-OK: NIL (NOT (STRING= (MAP 'STRING #'(LAMBDA (&REST REST) (IF (ZEROP (APPLY #'LOGAND REST)) #\0 #\1)) #*1111 #*1010101 #*0) "0")) EQL-OK: NIL (NOT (STRING= (MAP 'STRING #'(LAMBDA (&REST REST) (IF (ZEROP (APPLY #'LOGAND REST)) #\0 #\1)) #*1111 #*1000 #*1011) "1000")) EQL-OK: NIL (NOT (LET ((LIST NIL)) (AND (NULL (MAP NIL #'(LAMBDA (&REST REST) (SETQ LIST (CONS (APPLY #'+ REST) LIST))) '(0 1 2 3) '(1 2 3 4))) (EQUAL LIST '(7 5 3 1))))) EQL-OK: NIL (NOT (LET ((LIST NIL)) (AND (NULL (MAP NIL #'(LAMBDA (&REST REST) (SETQ LIST (CONS (APPLY #'+ REST) LIST))) '(0 1 2 3) '(1 2 3 4) '(2 3 4 5))) (EQUAL LIST (REVERSE '(3 6 9 12)))))) EQL-OK: NIL (NOT (LET ((LIST NIL)) (AND (NULL (MAP NIL #'(LAMBDA (&REST REST) (SETQ LIST (CONS (APPLY #'+ REST) LIST))) '(0 1 2 3) '(1) '(2 3 4 5))) (EQUAL LIST '(3))))) EQL-OK: NIL (NOT (EQUALP (MAP '(VECTOR * 2) #'+ #*01 #*10) #(1 1))) EQL-OK: NIL (NOT (EQUALP (MAP '(SIMPLE-VECTOR 2) #'+ #*01 #*10) #(1 1))) EQL-OK: NIL (NOT (EQUALP (MAP '(ARRAY * 1) #'+ #*01 #*10) #(1 1))) EQL-OK: NIL (NOT (EQUALP (MAP '(SIMPLE-ARRAY * 1) #'+ #*01 #*10) #(1 1))) EQL-OK: NIL (NOT (EQUALP (MAP '(ARRAY * (2)) #'+ #*01 #*10) #(1 1))) EQL-OK: NIL (NOT (EQUALP (MAP '(SIMPLE-ARRAY * (2)) #'+ #*01 #*10) #(1 1))) EQL-OK: NIL (NOT (STRING= (MAP 'STRING #'CHAR-UPCASE "abc") "ABC")) EQL-OK: NIL (NOT (STRING= (MAP 'BASE-STRING #'CHAR-UPCASE "abc") "ABC")) EQL-OK: NIL (NOT (STRING= (MAP 'SIMPLE-STRING #'CHAR-UPCASE "abc") "ABC")) EQL-OK: NIL (NOT (STRING= (MAP '(STRING 3) #'CHAR-UPCASE "abc") "ABC")) EQL-OK: NIL (NOT (STRING= (MAP '(BASE-STRING 3) #'CHAR-UPCASE "abc") "ABC")) EQL-OK: NIL (NOT (STRING= (MAP '(SIMPLE-STRING 3) #'CHAR-UPCASE "abc") "ABC")) EQL-OK: NIL (NOT (STRING= (MAP '(VECTOR CHARACTER) #'CHAR-UPCASE "abc") "ABC")) EQL-OK: NIL (NOT (STRING= (MAP '(VECTOR CHARACTER 3) #'CHAR-UPCASE "abc") "ABC")) EQL-OK: NIL (NOT (STRING= (MAP '(VECTOR BASE-CHAR) #'CHAR-UPCASE "abc") "ABC")) EQL-OK: NIL (NOT (STRING= (MAP '(VECTOR BASE-CHAR 3) #'CHAR-UPCASE "abc") "ABC")) EQL-OK: NIL (NOT (STRING= (MAP '(VECTOR STANDARD-CHAR) #'CHAR-UPCASE "abc") "ABC")) EQL-OK: NIL (NOT (STRING= (MAP '(VECTOR STANDARD-CHAR 3) #'CHAR-UPCASE "abc") "ABC")) EQL-OK: NIL (NOT (STRING= (MAP '(ARRAY CHARACTER 1) #'CHAR-UPCASE "abc") "ABC")) EQL-OK: NIL (NOT (STRING= (MAP '(ARRAY CHARACTER (3)) #'CHAR-UPCASE "abc") "ABC")) EQL-OK: NIL (NOT (STRING= (MAP '(ARRAY BASE-CHAR 1) #'CHAR-UPCASE "abc") "ABC")) EQL-OK: NIL (NOT (STRING= (MAP '(ARRAY BASE-CHAR (3)) #'CHAR-UPCASE "abc") "ABC")) EQL-OK: NIL (NOT (STRING= (MAP '(ARRAY STANDARD-CHAR 1) #'CHAR-UPCASE "abc") "ABC")) EQL-OK: NIL (NOT (STRING= (MAP '(ARRAY STANDARD-CHAR (3)) #'CHAR-UPCASE "abc") "ABC")) EQL-OK: NIL (NOT (EQUALP (MAP 'BIT-VECTOR #'LOGAND '(0 1 0 1) #*1010) #*0000)) EQL-OK: NIL (NOT (EQUALP (MAP 'SIMPLE-BIT-VECTOR #'LOGAND '(0 1 0 1) #*1010) #*0000)) EQL-OK: NIL (NOT (EQUALP (MAP '(BIT-VECTOR 4) #'LOGAND '(0 1 0 1) #*1010) #*0000)) EQL-OK: NIL (NOT (EQUALP (MAP '(SIMPLE-BIT-VECTOR 4) #'LOGAND '(0 1 0 1) #*1010) #*0000)) EQL-OK: NIL (NOT (EQUALP (MAP '(ARRAY BIT 1) #'LOGAND '(0 1 0 1) #*1010) #*0000)) EQL-OK: NIL (NOT (EQUALP (MAP '(ARRAY BIT (4)) #'LOGAND '(0 1 0 1) #*1010) #*0000)) EQL-OK: NIL (NOT (EQUALP (MAP '(SIMPLE-ARRAY BIT 1) #'LOGAND '(0 1 0 1) #*1010) #*0000)) EQL-OK: NIL (NOT (EQUALP (MAP '(SIMPLE-ARRAY BIT (4)) #'LOGAND '(0 1 0 1) #*1010) #*0000)) EQL-OK: NIL (NOT (EQUALP (MAP '(VECTOR BIT) #'LOGAND '(0 1 0 1) #*1010) #*0000)) EQL-OK: NIL (NOT (EQUALP (MAP '(VECTOR BIT 4) #'LOGAND '(0 1 0 1) #*1010) #*0000)) EQL-OK: NIL (NOT (EQUAL (MAP 'LIST #'+ '(0 1 2 3) #(3 2 1 0) #*0101) '(3 4 3 4))) EQL-OK: NIL (NOT (EQUALP (MAP 'VECTOR #'+ '(0 1 2 3) #(3 2 1 0) #*0101) #(3 4 3 4))) EQL-OK: NIL (NOT (LET ((A (LIST 1 2 3 4)) (B (LIST 10 10 10 10))) (AND (EQUAL (MAP-INTO A #'+ A B) '(11 12 13 14)) (EQUAL A '(11 12 13 14)) (EQUAL B '(10 10 10 10))))) EQL-OK: NIL (NOT (LET ((A '(11 12 13 14)) (K '(ONE TWO THREE))) (EQUAL (MAP-INTO A #'CONS K A) '((ONE . 11) (TWO . 12) (THREE . 13) 14)))) EQL-OK: NIL (NOT (NULL (MAP-INTO NIL 'IDENTITY))) EQL-OK: NIL (NOT (NULL (MAP-INTO NIL #'IDENTITY))) EQL-OK: NIL (NOT (NULL (MAP-INTO NIL #'IDENTITY 'NIL))) EQL-OK: NIL (NOT (NULL (MAP-INTO NIL #'IDENTITY '(0 1 2) '(9 8 7)))) EQL-OK: NIL (NOT (LET ((LIST (LIST 0 1 2))) (AND (EQ (MAP-INTO LIST 'IDENTITY LIST) LIST) (EQUAL LIST '(0 1 2))))) EQL-OK: NIL (NOT (LET ((LIST (LIST 0 1 2))) (AND (EQ (MAP-INTO LIST 'IDENTITY 'NIL) LIST) (EQUAL LIST '(0 1 2))))) EQL-OK: NIL (NOT (LET ((VEC (VECTOR 0 1 2))) (AND (EQ (MAP-INTO VEC 'IDENTITY VEC) VEC) (EQUALP VEC #(0 1 2))))) EQL-OK: NIL (NOT (LET ((VEC (VECTOR 0 1 2))) (AND (EQ (MAP-INTO VEC 'IDENTITY #()) VEC) (EQUALP VEC #(0 1 2))))) EQL-OK: NIL (NOT (LET ((VEC (VECTOR 0 1 2))) (AND (EQ (MAP-INTO VEC #'+ #() 'NIL #()) VEC) (EQUALP VEC #(0 1 2))))) EQL-OK: NIL (NOT (EQUAL (MAP-INTO (LIST NIL NIL) '+ '(0 1) '(1 0)) '(1 1))) EQL-OK: NIL (NOT (EQUAL (MAP-INTO (LIST NIL NIL) '- '(0 1) '(1 0)) '(-1 1))) EQL-OK: NIL (NOT (LET ((LIST (MAKE-LIST 3 :INITIAL-ELEMENT NIL))) (AND (EQ (MAP-INTO LIST #'+ '(0 1 2)) LIST) (EQUAL LIST '(0 1 2))))) EQL-OK: NIL (NOT (LET ((LIST (MAKE-LIST 3 :INITIAL-ELEMENT NIL))) (AND (EQ (MAP-INTO LIST #'+ '(0 1 2) '(1 2 3)) LIST) (EQUAL LIST '(1 3 5))))) EQL-OK: NIL (NOT (LET ((LIST (MAKE-LIST 3 :INITIAL-ELEMENT NIL))) (AND (EQ (MAP-INTO LIST #'+ '(0 1 2) '(1 2 3) '(2 3 4)) LIST) (EQUAL LIST '(3 6 9))))) EQL-OK: NIL (NOT (LET ((LIST (MAKE-LIST 3 :INITIAL-ELEMENT NIL))) (AND (EQ (MAP-INTO LIST #'+ '(1 2) '(1 2 3)) LIST) (EQUAL LIST '(2 4 NIL))))) EQL-OK: NIL (NOT (LET ((LIST (MAKE-LIST 1 :INITIAL-ELEMENT NIL))) (AND (EQ (MAP-INTO LIST #'+ '(1 2 3) '(1 2 3)) LIST) (EQUAL LIST '(2))))) EQL-OK: NIL (NOT (LET ((LIST (MAKE-LIST 3 :INITIAL-ELEMENT NIL))) (AND (EQ (MAP-INTO LIST #'+ '(1 2 3 4) '(1 2 3) '(0)) LIST) (EQUAL LIST '(2 NIL NIL))))) EQL-OK: NIL (NOT (LET ((VEC (MAKE-SEQUENCE 'VECTOR 3 :INITIAL-ELEMENT NIL))) (AND (EQ (MAP-INTO VEC #'+ '(0 1 2)) VEC) (EQUALP VEC #(0 1 2))))) EQL-OK: NIL (NOT (LET ((VEC (MAKE-SEQUENCE 'VECTOR 3 :INITIAL-ELEMENT NIL))) (AND (EQ (MAP-INTO VEC #'+ '(0 1 2) #(1 2 3)) VEC) (EQUALP VEC #(1 3 5))))) EQL-OK: NIL (NOT (LET ((VEC (MAKE-SEQUENCE 'VECTOR 3 :INITIAL-ELEMENT NIL))) (AND (EQ (MAP-INTO VEC #'+ '(0 1 2) '(1 2 3) #(2 3 4)) VEC) (EQUALP VEC #(3 6 9))))) EQL-OK: NIL (NOT (LET ((VEC (MAKE-SEQUENCE 'VECTOR 3 :INITIAL-ELEMENT NIL))) (AND (EQ (MAP-INTO VEC #'+ '(1 2) #(1 2 3)) VEC) (EQUALP VEC #(2 4 NIL))))) EQL-OK: NIL (NOT (LET ((VEC (MAKE-SEQUENCE 'VECTOR 1 :INITIAL-ELEMENT NIL))) (AND (EQ (MAP-INTO VEC #'+ '(1 2) #(1 2 3)) VEC) (EQUALP VEC #(2))))) EQL-OK: NIL (NOT (LET ((VEC (MAKE-SEQUENCE 'VECTOR 3 :INITIAL-ELEMENT NIL))) (AND (EQ (MAP-INTO VEC #'+ '(1 2 3 4) #(1 2 3) '(0)) VEC) (EQUALP VEC #(2 NIL NIL))))) EQL-OK: NIL (NOT (LET ((STR (MAKE-ARRAY 10 :ELEMENT-TYPE 'CHARACTER :INITIAL-CONTENTS "0123456789" :FILL-POINTER 3))) (AND (EQ (MAP-INTO STR #'CHAR-UPCASE "abcde") STR) (STRING= STR "ABCDE") (= (FILL-POINTER STR) 5)))) EQL-OK: NIL (NOT (LET ((VEC (MAKE-ARRAY 5 :INITIAL-CONTENTS #(0 1 2 3 4) :FILL-POINTER 3))) (AND (EQ (MAP-INTO VEC #'+ '(0 1 2 3 4 5 6 7 8 9) '(9 8 7 6 5 4 3 2 1 0)) VEC) (EQUALP VEC #(9 9 9 9 9))))) EQL-OK: NIL (NOT (LET ((VEC (MAKE-ARRAY 5 :INITIAL-CONTENTS #(0 1 2 3 4) :FILL-POINTER 3))) (AND (EQ (MAP-INTO VEC #'+ '(0 1) '(9 8 7 6 5 4 3 2 1 0)) VEC) (EQUALP VEC #(9 9))))) EQL-OK: NIL (NOT (LET ((VEC (MAKE-ARRAY 5 :ELEMENT-TYPE 'BIT :INITIAL-CONTENTS #(1 1 1 1 1) :FILL-POINTER 3))) (AND (EQ (MAP-INTO VEC #'LOGAND '(0 1) '(1 0 1 0 1 0)) VEC) (EQUALP VEC #*00)))) EQL-OK: NIL (NOT (EQL (REDUCE #'* '(1 2 3 4 5)) 120)) EQL-OK: NIL (NOT (EQUAL (REDUCE #'APPEND '((1) (2)) :INITIAL-VALUE '(I N I T)) '(I N I T 1 2))) EQL-OK: NIL (NOT (EQUAL (REDUCE #'APPEND '((1) (2)) :FROM-END T :INITIAL-VALUE '(I N I T)) '(1 2 I N I T))) EQL-OK: NIL (NOT (EQL (REDUCE #'- '(1 2 3 4)) -8)) EQL-OK: NIL (NOT (EQL (REDUCE #'- '(1 2 3 4) :FROM-END T) -2)) EQL-OK: NIL (NOT (EQL (REDUCE #'+ 'NIL) 0)) EQL-OK: NIL (NOT (EQL (REDUCE #'+ '(3)) 3)) EQL-OK: NIL (NOT (EQ (REDUCE #'+ '(FOO)) 'FOO)) EQL-OK: NIL (NOT (EQUAL (REDUCE #'LIST '(1 2 3 4)) '(((1 2) 3) 4))) EQL-OK: NIL (NOT (EQUAL (REDUCE #'LIST '(1 2 3 4) :FROM-END T) '(1 (2 (3 4))))) EQL-OK: NIL (NOT (EQUAL (REDUCE #'LIST '(1 2 3 4) :INITIAL-VALUE 'FOO) '((((FOO 1) 2) 3) 4))) EQL-OK: NIL (NOT (EQUAL (REDUCE #'LIST '(1 2 3 4) :FROM-END T :INITIAL-VALUE 'FOO) '(1 (2 (3 (4 FOO)))))) EQL-OK: NIL (NOT (EQUAL (REDUCE #'LIST '(0 1 2 3)) '(((0 1) 2) 3))) EQL-OK: NIL (NOT (EQUAL (REDUCE #'LIST '(0 1 2 3) :START 1) '((1 2) 3))) EQL-OK: NIL (NOT (EQUAL (REDUCE #'LIST '(0 1 2 3) :START 1 :END NIL) '((1 2) 3))) EQL-OK: NIL (NOT (EQUAL (REDUCE #'LIST '(0 1 2 3) :START 2) '(2 3))) EQL-OK: NIL (NOT (EQ (REDUCE #'LIST '(0 1 2 3) :START 0 :END 0) 'NIL)) EQL-OK: NIL (NOT (EQ (REDUCE #'LIST '(0 1 2 3) :START 0 :END 0 :INITIAL-VALUE 'INITIAL-VALUE) 'INITIAL-VALUE)) EQL-OK: NIL (NOT (EQ (REDUCE #'LIST '(0 1 2 3) :START 2 :END 2) 'NIL)) EQL-OK: NIL (NOT (EQ (REDUCE #'LIST '(0 1 2 3) :START 2 :END 2 :INITIAL-VALUE 'INITIAL-VALUE) 'INITIAL-VALUE)) EQL-OK: NIL (NOT (EQ (REDUCE #'LIST '(0 1 2 3) :START 4 :END 4) 'NIL)) EQL-OK: NIL (NOT (EQ (REDUCE #'LIST '(0 1 2 3) :START 4 :END 4 :INITIAL-VALUE 'INITIAL-VALUE) 'INITIAL-VALUE)) EQL-OK: NIL (NOT (EQL (REDUCE #'LIST '(0 1 2 3) :START 2 :END 3) 2)) EQL-OK: NIL (NOT (EQUAL (REDUCE #'LIST '(0 1 2 3) :START 2 :END 3 :INITIAL-VALUE 'INITIAL-VALUE) '(INITIAL-VALUE 2))) EQL-OK: NIL (NOT (EQL (REDUCE #'+ '(0 1 2 3 4 5 6 7 8 9)) 45)) EQL-OK: NIL (NOT (EQL (REDUCE #'- '(0 1 2 3 4 5 6 7 8 9)) -45)) EQL-OK: NIL (NOT (EQL (REDUCE #'- '(0 1 2 3 4 5 6 7 8 9) :FROM-END T) -5)) EQL-OK: NIL (NOT (EQUAL (REDUCE #'LIST '(0 1 2 3) :INITIAL-VALUE 'INITIAL-VALUE) '((((INITIAL-VALUE 0) 1) 2) 3))) EQL-OK: NIL (NOT (EQUAL (REDUCE #'LIST '(0 1 2 3) :FROM-END T) '(0 (1 (2 3))))) EQL-OK: NIL (NOT (EQUAL (REDUCE #'LIST '((1) (2) (3) (4)) :KEY #'CAR) '(((1 2) 3) 4))) EQL-OK: NIL (NOT (EQUAL (REDUCE #'LIST '((1) (2) (3) (4)) :KEY #'CAR :FROM-END NIL) '(((1 2) 3) 4))) EQL-OK: NIL (NOT (EQUAL (REDUCE #'LIST '((1) (2) (3) (4)) :KEY #'CAR :INITIAL-VALUE 0) '((((0 1) 2) 3) 4))) EQL-OK: NIL (NOT (EQUAL (REDUCE #'LIST '((1) (2) (3) (4)) :KEY #'CAR :FROM-END T) '(1 (2 (3 4))))) EQL-OK: NIL (NOT (EQUAL (REDUCE #'LIST '((1) (2) (3) (4)) :KEY #'CAR :FROM-END T :INITIAL-VALUE 5) '(1 (2 (3 (4 5)))))) EQL-OK: NIL (NOT (EQUAL (REDUCE #'LIST #(0 1 2 3)) '(((0 1) 2) 3))) EQL-OK: NIL (NOT (EQUAL (REDUCE #'LIST #(0 1 2 3) :START 1) '((1 2) 3))) EQL-OK: NIL (NOT (EQUAL (REDUCE #'LIST #(0 1 2 3) :START 1 :END NIL) '((1 2) 3))) EQL-OK: NIL (NOT (EQUAL (REDUCE #'LIST #(0 1 2 3) :START 2) '(2 3))) EQL-OK: NIL (NOT (EQ (REDUCE #'LIST #(0 1 2 3) :START 0 :END 0) 'NIL)) EQL-OK: NIL (NOT (EQ (REDUCE #'LIST #(0 1 2 3) :START 0 :END 0 :INITIAL-VALUE 'INITIAL-VALUE) 'INITIAL-VALUE)) EQL-OK: NIL (NOT (EQ (REDUCE #'LIST #(0 1 2 3) :START 2 :END 2) 'NIL)) EQL-OK: NIL (NOT (EQ (REDUCE #'LIST #(0 1 2 3) :START 2 :END 2 :INITIAL-VALUE 'INITIAL-VALUE) 'INITIAL-VALUE)) EQL-OK: NIL (NOT (EQ (REDUCE #'LIST #(0 1 2 3) :START 4 :END 4) 'NIL)) EQL-OK: NIL (NOT (EQ (REDUCE #'LIST #(0 1 2 3) :START 4 :END 4 :INITIAL-VALUE 'INITIAL-VALUE) 'INITIAL-VALUE)) EQL-OK: NIL (NOT (EQL (REDUCE #'LIST #(0 1 2 3) :START 2 :END 3) 2)) EQL-OK: NIL (NOT (EQUAL (REDUCE #'LIST #(0 1 2 3) :START 2 :END 3 :INITIAL-VALUE 'INITIAL-VALUE) '(INITIAL-VALUE 2))) EQL-OK: NIL (NOT (EQL (REDUCE #'+ #(0 1 2 3 4 5 6 7 8 9)) 45)) EQL-OK: NIL (NOT (EQL (REDUCE #'- #(0 1 2 3 4 5 6 7 8 9)) -45)) EQL-OK: NIL (NOT (EQL (REDUCE #'- #(0 1 2 3 4 5 6 7 8 9) :FROM-END T) -5)) EQL-OK: NIL (NOT (EQUAL (REDUCE #'LIST #(0 1 2 3) :INITIAL-VALUE 'INITIAL-VALUE) '((((INITIAL-VALUE 0) 1) 2) 3))) EQL-OK: NIL (NOT (EQUAL (REDUCE #'LIST #(0 1 2 3) :FROM-END T) '(0 (1 (2 3))))) EQL-OK: NIL (NOT (EQUAL (REDUCE #'LIST #((1) (2) (3) (4)) :KEY #'CAR) '(((1 2) 3) 4))) EQL-OK: NIL (NOT (EQUAL (REDUCE #'LIST #((1) (2) (3) (4)) :KEY #'CAR :FROM-END NIL) '(((1 2) 3) 4))) EQL-OK: NIL (NOT (EQUAL (REDUCE #'LIST #((1) (2) (3) (4)) :KEY #'CAR :INITIAL-VALUE 0) '((((0 1) 2) 3) 4))) EQL-OK: NIL (NOT (EQUAL (REDUCE #'LIST #((1) (2) (3) (4)) :KEY #'CAR :FROM-END T) '(1 (2 (3 4))))) EQL-OK: NIL (NOT (EQUAL (REDUCE #'LIST #((1) (2) (3) (4)) :KEY #'CAR :FROM-END T :INITIAL-VALUE 5) '(1 (2 (3 (4 5)))))) EQL-OK: NIL (NOT (STRING= (REDUCE #'(LAMBDA (&REST REST) (CONCATENATE 'STRING (STRING (CAR REST)) (STRING (CHAR-UPCASE (CADR REST))))) "abcdefg" :INITIAL-VALUE #\Z) "ZABCDEFG")) EQL-OK: NIL (NOT (EQL (COUNT #\a "how many A's are there in here?") 2)) EQL-OK: NIL (NOT (EQL (COUNT-IF-NOT #'ODDP '((1) (2) (3) (4)) :KEY #'CAR) 2)) EQL-OK: NIL (NOT (EQL (COUNT-IF #'UPPER-CASE-P "The Crying of Lot 49" :START 4) 2)) EQL-OK: NIL (NOT (EQL (COUNT #\a (CONCATENATE 'LIST "how many A's are there in here?")) 2)) EQL-OK: NIL (NOT (EQL (COUNT-IF #'ALPHA-CHAR-P "-a-b-c-0-1-2-3-4-") 3)) EQL-OK: NIL (NOT (EQL (COUNT-IF #'ALPHANUMERICP "-a-b-c-0-1-2-3-4-") 8)) EQL-OK: NIL (NOT (EQL (COUNT 'NIL '(T NIL T NIL T NIL)) 3)) EQL-OK: NIL (NOT (EQL (COUNT 'NIL #(T NIL T NIL T NIL)) 3)) EQL-OK: NIL (NOT (ZEROP (COUNT 9 '(0 1 2 3 4)))) EQL-OK: NIL (NOT (ZEROP (COUNT 'A '(0 1 2 3 4)))) EQL-OK: NIL (NOT (EQL (COUNT 0 '(0 0 0 0 0) :START 1) 4)) EQL-OK: NIL (NOT (EQL (COUNT 0 '(0 0 0 0 0) :START 1 :END NIL) 4)) EQL-OK: NIL (NOT (EQL (COUNT 0 '(0 0 0 0 0) :START 2) 3)) EQL-OK: NIL (NOT (ZEROP (COUNT 0 '(0 0 0 0) :START 0 :END 0))) EQL-OK: NIL (NOT (ZEROP (COUNT 0 '(0 0 0 0) :START 2 :END 2))) EQL-OK: NIL (NOT (ZEROP (COUNT 0 '(0 0 0 0) :START 4 :END 4))) EQL-OK: NIL (NOT (EQL (COUNT 0 '(0 0 0 0) :START 2 :END 3) 1)) EQL-OK: NIL (NOT (EQL (COUNT #\a "abcABC" :TEST #'EQUALP) 2)) EQL-OK: NIL (NOT (EQL (COUNT #\a "abcABC" :TEST #'CHAR-EQUAL) 2)) EQL-OK: NIL (NOT (EQL (COUNT '(A) '((X) (Y) (Z) (A) (B) (C)) :TEST #'EQUALP) 1)) EQL-OK: NIL (NOT (EQL (COUNT #\a "abcABC" :TEST-NOT (COMPLEMENT #'EQUALP)) 2)) EQL-OK: NIL (NOT (EQL (COUNT #\a "abcABC" :TEST-NOT (COMPLEMENT #'CHAR-EQUAL)) 2)) EQL-OK: NIL (NOT (EQL (COUNT '(A) '((X) (Y) (Z) (A) (B) (C)) :TEST-NOT (COMPLEMENT #'EQUALP)) 1)) EQL-OK: NIL (NOT (EQL (COUNT 'A '((X) (Y) (Z) (A) (B) (C)) :KEY #'CAR :TEST #'EQ) 1)) EQL-OK: NIL (NOT (EQL (COUNT 'NIL '((X . X) (Y) (Z . Z) (A) (B . B) (C)) :KEY #'CDR :TEST #'EQ) 3)) EQL-OK: NIL (NOT (LET ((LIST NIL)) (AND (EQL (COUNT 'A '(A B C D) :TEST #'(LAMBDA (A B) (SETQ LIST (CONS B LIST)) (EQ A B))) 1) (EQUAL LIST '(D C B A))))) EQL-OK: NIL (NOT (LET ((LIST NIL)) (AND (EQL (COUNT 'A '(A B C D) :TEST #'(LAMBDA (A B) (SETQ LIST (CONS B LIST)) (EQ A B)) :FROM-END T) 1) (EQUAL LIST '(A B C D))))) EQL-OK: NIL (NOT (ZEROP (COUNT 9 #(0 1 2 3 4)))) EQL-OK: NIL (NOT (ZEROP (COUNT 'A #(0 1 2 3 4)))) EQL-OK: NIL (NOT (EQL (COUNT 0 #(0 0 0 0 0) :START 1) 4)) EQL-OK: NIL (NOT (EQL (COUNT 0 #(0 0 0 0 0) :START 1 :END NIL) 4)) EQL-OK: NIL (NOT (EQL (COUNT 0 #(0 0 0 0 0) :START 2) 3)) EQL-OK: NIL (NOT (ZEROP (COUNT 0 #(0 0 0 0) :START 0 :END 0))) EQL-OK: NIL (NOT (ZEROP (COUNT 0 #(0 0 0 0) :START 2 :END 2))) EQL-OK: NIL (NOT (ZEROP (COUNT 0 #(0 0 0 0) :START 4 :END 4))) EQL-OK: NIL (NOT (EQL (COUNT 0 #(0 0 0 0) :START 2 :END 3) 1)) EQL-OK: NIL (NOT (EQL (COUNT '(A) #((X) (Y) (Z) (A) (B) (C)) :TEST #'EQUALP) 1)) EQL-OK: NIL (NOT (EQL (COUNT '(A) #((X) (Y) (Z) (A) (B) (C)) :TEST-NOT (COMPLEMENT #'EQUALP)) 1)) EQL-OK: NIL (NOT (EQL (COUNT 'A #((X) (Y) (Z) (A) (B) (C)) :KEY #'CAR :TEST #'EQ) 1)) EQL-OK: NIL (NOT (EQL (COUNT 'NIL #((X . X) (Y) (Z . Z) (A) (B . B) (C)) :KEY #'CDR :TEST #'EQ) 3)) EQL-OK: NIL (NOT (LET ((LIST NIL)) (AND (EQL (COUNT 'A #(A B C D) :TEST #'(LAMBDA (A B) (SETQ LIST (CONS B LIST)) (EQ A B))) 1) (EQUAL LIST '(D C B A))))) EQL-OK: NIL (NOT (LET ((LIST NIL)) (AND (EQL (COUNT 'A #(A B C D) :TEST #'(LAMBDA (A B) (SETQ LIST (CONS B LIST)) (EQ A B)) :FROM-END T) 1) (EQUAL LIST '(A B C D))))) EQL-OK: NIL (NOT (EQL (COUNT-IF #'NULL '(T NIL T NIL T NIL)) 3)) EQL-OK: NIL (NOT (ZEROP (COUNT-IF #'(LAMBDA (X) (EQL X 9)) #(0 1 2 3 4)))) EQL-OK: NIL (NOT (ZEROP (COUNT-IF #'(LAMBDA (A) (EQ 'X A)) #(0 1 2 3 4)))) EQL-OK: NIL (NOT (EQL (COUNT-IF #'ZEROP '(0 0 0 0 0) :START 1) 4)) EQL-OK: NIL (NOT (EQL (COUNT-IF #'ZEROP '(0 0 0 0 0) :START 1 :END NIL) 4)) EQL-OK: NIL (NOT (EQL (COUNT-IF #'ZEROP '(0 0 0 0 0) :START 2) 3)) EQL-OK: NIL (NOT (ZEROP (COUNT-IF #'ZEROP '(0 0 0 0) :START 0 :END 0))) EQL-OK: NIL (NOT (ZEROP (COUNT-IF #'ZEROP '(0 0 0 0) :START 2 :END 2))) EQL-OK: NIL (NOT (ZEROP (COUNT-IF #'ZEROP '(0 0 0 0) :START 4 :END 4))) EQL-OK: NIL (NOT (EQL (COUNT-IF #'ZEROP '(0 0 0 0) :START 2 :END 3) 1)) EQL-OK: NIL (NOT (EQL (COUNT-IF #'(LAMBDA (X) (EQUALP #\a X)) "abcABC") 2)) EQL-OK: NIL (NOT (EQL (COUNT-IF #'(LAMBDA (X) (CHAR-EQUAL #\a X)) "abcABC") 2)) EQL-OK: NIL (NOT (EQL (COUNT-IF #'(LAMBDA (X) (EQUAL X '(A))) '((X) (Y) (Z) (A) (B) (C))) 1)) EQL-OK: NIL (NOT (EQL (COUNT-IF #'(LAMBDA (X) (EQ X 'A)) '((X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 1)) EQL-OK: NIL (NOT (EQL (COUNT-IF 'NULL '((X . X) (Y) (Z . Z) (A) (B . B) (C)) :KEY #'CDR) 3)) EQL-OK: NIL (NOT (EQL (COUNT-IF #'(LAMBDA (X) (EQUAL X '(A))) '((X) (Y) (Z) (A) (B) (C))) 1)) EQL-OK: NIL (NOT (EQL (COUNT-IF #'(LAMBDA (X) (EQ X 'A)) '((X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 1)) EQL-OK: NIL (NOT (EQL (COUNT-IF #'NULL '((X . X) (Y) (Z . Z) (A) (B . B) (C)) :KEY #'CDR) 3)) EQL-OK: NIL (NOT (LET ((LIST NIL)) (AND (EQL (COUNT-IF #'(LAMBDA (X) (SETQ LIST (CONS X LIST)) (EQ X 'A)) '(A B C D)) 1) (EQUAL LIST '(D C B A))))) EQL-OK: NIL (NOT (LET ((LIST NIL)) (AND (EQL (COUNT-IF #'(LAMBDA (X) (SETQ LIST (CONS X LIST)) (EQ X 'A)) '(A B C D) :FROM-END T) 1) (EQUAL LIST '(A B C D))))) EQL-OK: NIL (NOT (EQL (COUNT-IF #'NULL #(T NIL T NIL T NIL)) 3)) EQL-OK: NIL (NOT (EQL (COUNT-IF #'ZEROP #(0 0 0 0 0) :START 1) 4)) EQL-OK: NIL (NOT (EQL (COUNT-IF #'ZEROP #(0 0 0 0 0) :START 1 :END NIL) 4)) EQL-OK: NIL (NOT (EQL (COUNT-IF #'ZEROP #(0 0 0 0 0) :START 2) 3)) EQL-OK: NIL (NOT (ZEROP (COUNT-IF #'ZEROP #(0 0 0 0) :START 0 :END 0))) EQL-OK: NIL (NOT (ZEROP (COUNT-IF #'ZEROP #(0 0 0 0) :START 2 :END 2))) EQL-OK: NIL (NOT (ZEROP (COUNT-IF #'ZEROP #(0 0 0 0) :START 4 :END 4))) EQL-OK: NIL (NOT (EQL (COUNT-IF #'ZEROP #(0 0 0 0) :START 2 :END 3) 1)) EQL-OK: NIL (NOT (EQL (COUNT-IF #'(LAMBDA (X) (EQUAL X '(A))) #((X) (Y) (Z) (A) (B) (C))) 1)) EQL-OK: NIL (NOT (EQL (COUNT-IF #'(LAMBDA (X) (EQ X 'A)) #((X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 1)) EQL-OK: NIL (NOT (EQL (COUNT-IF #'NULL #((X . X) (Y) (Z . Z) (A) (B . B) (C)) :KEY #'CDR) 3)) EQL-OK: NIL (NOT (EQL (COUNT-IF #'(LAMBDA (X) (EQUAL X '(A))) #((X) (Y) (Z) (A) (B) (C))) 1)) EQL-OK: NIL (NOT (EQL (COUNT-IF #'(LAMBDA (X) (EQ X 'A)) #((X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 1)) EQL-OK: NIL (NOT (EQL (COUNT-IF #'NULL #((X . X) (Y) (Z . Z) (A) (B . B) (C)) :KEY #'CDR) 3)) EQL-OK: NIL (NOT (LET ((LIST NIL)) (AND (EQL (COUNT-IF #'(LAMBDA (X) (SETQ LIST (CONS X LIST)) (EQ X 'A)) #(A B C D)) 1) (EQUAL LIST '(D C B A))))) EQL-OK: NIL (NOT (LET ((LIST NIL)) (AND (EQL (COUNT-IF #'(LAMBDA (X) (SETQ LIST (CONS X LIST)) (EQ X 'A)) #(A B C D) :FROM-END T) 1) (EQUAL LIST '(A B C D))))) EQL-OK: NIL (NOT (EQL (COUNT-IF-NOT (COMPLEMENT #'NULL) '(T NIL T NIL T NIL)) 3)) EQL-OK: NIL (NOT (ZEROP (COUNT-IF-NOT #'(LAMBDA (X) (NOT (EQL X 9))) #(0 1 2 3 4)))) EQL-OK: NIL (NOT (ZEROP (COUNT-IF-NOT #'(LAMBDA (A) (NOT (EQ 'X A))) #(0 1 2 3 4)))) EQL-OK: NIL (NOT (EQL (COUNT-IF-NOT (COMPLEMENT #'ZEROP) '(0 0 0 0 0) :START 1) 4)) EQL-OK: NIL (NOT (EQL (COUNT-IF-NOT (COMPLEMENT #'ZEROP) '(0 0 0 0 0) :START 1 :END NIL) 4)) EQL-OK: NIL (NOT (EQL (COUNT-IF-NOT (COMPLEMENT #'ZEROP) '(0 0 0 0 0) :START 2) 3)) EQL-OK: NIL (NOT (ZEROP (COUNT-IF-NOT (COMPLEMENT #'ZEROP) '(0 0 0 0) :START 0 :END 0))) EQL-OK: NIL (NOT (ZEROP (COUNT-IF-NOT (COMPLEMENT #'ZEROP) '(0 0 0 0) :START 2 :END 2))) EQL-OK: NIL (NOT (ZEROP (COUNT-IF-NOT (COMPLEMENT #'ZEROP) '(0 0 0 0) :START 4 :END 4))) EQL-OK: NIL (NOT (EQL (COUNT-IF-NOT (COMPLEMENT #'ZEROP) '(0 0 0 0) :START 2 :END 3) 1)) EQL-OK: NIL (NOT (EQL (COUNT-IF-NOT #'(LAMBDA (X) (NOT (EQUALP #\a X))) "abcABC") 2)) EQL-OK: NIL (NOT (EQL (COUNT-IF-NOT #'(LAMBDA (X) (NOT (CHAR-EQUAL #\a X))) "abcABC") 2)) EQL-OK: NIL (NOT (EQL (COUNT-IF-NOT #'(LAMBDA (X) (NOT (EQUAL X '(A)))) '((X) (Y) (Z) (A) (B) (C))) 1)) EQL-OK: NIL (NOT (EQL (COUNT-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 1)) EQL-OK: NIL (NOT (EQL (COUNT-IF-NOT (COMPLEMENT #'NULL) '((X . X) (Y) (Z . Z) (A) (B . B) (C)) :KEY #'CDR) 3)) EQL-OK: NIL (NOT (EQL (COUNT-IF-NOT #'(LAMBDA (X) (NOT (EQUAL X '(A)))) '((X) (Y) (Z) (A) (B) (C))) 1)) EQL-OK: NIL (NOT (EQL (COUNT-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 1)) EQL-OK: NIL (NOT (EQL (COUNT-IF-NOT (COMPLEMENT #'NULL) '((X . X) (Y) (Z . Z) (A) (B . B) (C)) :KEY #'CDR) 3)) EQL-OK: NIL (NOT (LET ((LIST NIL)) (AND (EQL (COUNT-IF-NOT #'(LAMBDA (X) (SETQ LIST (CONS X LIST)) (NOT (EQ X 'A))) '(A B C D)) 1) (EQUAL LIST '(D C B A))))) EQL-OK: NIL (NOT (LET ((LIST NIL)) (AND (EQL (COUNT-IF-NOT #'(LAMBDA (X) (SETQ LIST (CONS X LIST)) (NOT (EQ X 'A))) '(A B C D) :FROM-END T) 1) (EQUAL LIST '(A B C D))))) EQL-OK: NIL (NOT (EQL (COUNT-IF-NOT (COMPLEMENT #'NULL) #(T NIL T NIL T NIL)) 3)) EQL-OK: NIL (NOT (EQL (COUNT-IF-NOT (COMPLEMENT #'ZEROP) #(0 0 0 0 0) :START 1) 4)) EQL-OK: NIL (NOT (EQL (COUNT-IF-NOT (COMPLEMENT #'ZEROP) #(0 0 0 0 0) :START 1 :END NIL) 4)) EQL-OK: NIL (NOT (EQL (COUNT-IF-NOT (COMPLEMENT #'ZEROP) #(0 0 0 0 0) :START 2) 3)) EQL-OK: NIL (NOT (ZEROP (COUNT-IF-NOT (COMPLEMENT #'ZEROP) #(0 0 0 0) :START 0 :END 0))) EQL-OK: NIL (NOT (ZEROP (COUNT-IF-NOT (COMPLEMENT #'ZEROP) #(0 0 0 0) :START 2 :END 2))) EQL-OK: NIL (NOT (ZEROP (COUNT-IF-NOT (COMPLEMENT #'ZEROP) #(0 0 0 0) :START 4 :END 4))) EQL-OK: NIL (NOT (EQL (COUNT-IF-NOT (COMPLEMENT #'ZEROP) #(0 0 0 0) :START 2 :END 3) 1)) EQL-OK: NIL (NOT (EQL (COUNT-IF-NOT #'(LAMBDA (X) (NOT (EQUAL X '(A)))) #((X) (Y) (Z) (A) (B) (C))) 1)) EQL-OK: NIL (NOT (EQL (COUNT-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 1)) EQL-OK: NIL (NOT (EQL (COUNT-IF-NOT (COMPLEMENT #'NULL) #((X . X) (Y) (Z . Z) (A) (B . B) (C)) :KEY #'CDR) 3)) EQL-OK: NIL (NOT (EQL (COUNT-IF-NOT #'(LAMBDA (X) (NOT (EQUAL X '(A)))) #((X) (Y) (Z) (A) (B) (C))) 1)) EQL-OK: NIL (NOT (EQL (COUNT-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 1)) EQL-OK: NIL (NOT (EQL (COUNT-IF-NOT (COMPLEMENT #'NULL) #((X . X) (Y) (Z . Z) (A) (B . B) (C)) :KEY #'CDR) 3)) EQL-OK: NIL (NOT (LET ((LIST NIL)) (AND (EQL (COUNT-IF-NOT #'(LAMBDA (X) (SETQ LIST (CONS X LIST)) (NOT (EQ X 'A))) #(A B C D)) 1) (EQUAL LIST '(D C B A))))) EQL-OK: NIL (NOT (LET ((LIST NIL)) (AND (EQL (COUNT-IF-NOT #'(LAMBDA (X) (SETQ LIST (CONS X LIST)) (NOT (EQ X 'A))) #(A B C D) :FROM-END T) 1) (EQUAL LIST '(A B C D))))) EQL-OK: NIL (NOT (NULL (REVERSE NIL))) EQL-OK: NIL (NOT (STRING= (REVERSE "") "")) EQL-OK: NIL (NOT (EQUALP (REVERSE #*) #*)) EQL-OK: NIL (NOT (EQUALP (REVERSE #()) #())) EQL-OK: NIL (NOT (EQUAL (REVERSE '(0 1 2 3)) '(3 2 1 0))) EQL-OK: NIL (NOT (STRING= (REVERSE "0123") "3210")) EQL-OK: NIL (NOT (EQUALP (REVERSE #*1100) #*0011)) EQL-OK: NIL (NOT (EQUALP (REVERSE #(A B C D)) #(D C B A))) EQL-OK: NIL (NOT (NULL (NREVERSE NIL))) EQL-OK: NIL (NOT (STRING= (NREVERSE (COPY-SEQ "")) "")) EQL-OK: NIL (NOT (EQUALP (NREVERSE (COPY-SEQ #*)) #*)) EQL-OK: NIL (NOT (EQUALP (NREVERSE (COPY-SEQ #())) #())) EQL-OK: NIL (NOT (EQUAL (NREVERSE (LIST 0 1 2 3)) '(3 2 1 0))) EQL-OK: NIL (NOT (STRING= (NREVERSE (COPY-SEQ "0123")) "3210")) EQL-OK: NIL (NOT (EQUALP (REVERSE (COPY-SEQ #*1100)) #*0011)) EQL-OK: NIL (NOT (EQUALP (REVERSE (COPY-SEQ #(A B C D))) #(D C B A))) EQL-OK: NIL (NOT (CHAR= (FIND #\d "edcba" :TEST #'CHAR>) #\c)) EQL-OK: NIL (NOT (EQL (FIND-IF #'ODDP '(1 2 3 4 5) :END 3 :FROM-END T) 3)) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'COMPLEXP '#(3.5 2 #C(1.0 0.0) #C(0.0 1.0)) :START 2))) EQL-OK: NIL (NOT (EQ (FIND 'A '(A B C)) 'A)) EQL-OK: NIL (NOT (EQ (FIND 'B '(A B C)) 'B)) EQL-OK: NIL (NOT (EQ (FIND 'C '(A B C)) 'C)) EQL-OK: NIL (NOT (NULL (FIND 'X '(A B C)))) EQL-OK: NIL (NOT (NULL (FIND 'A '(A B C) :START 1))) EQL-OK: NIL (NOT (NULL (FIND 'B '(A B C) :START 2))) EQL-OK: NIL (NOT (NULL (FIND 'C '(A B C) :START 3))) EQL-OK: NIL (NOT (NULL (FIND 'A '(A B C) :START 0 :END 0))) EQL-OK: NIL (NOT (NULL (FIND 'A '(A B C) :START 0 :END 0 :FROM-END T))) EQL-OK: NIL (NOT (NULL (FIND 'A '(A B C) :START 1 :END 1))) EQL-OK: NIL (NOT (NULL (FIND 'A '(A B C) :START 1 :END 1 :FROM-END T))) EQL-OK: NIL (NOT (NULL (FIND 'A '(A B C) :START 2 :END 2))) EQL-OK: NIL (NOT (NULL (FIND 'A '(A B C) :START 2 :END 2 :FROM-END T))) EQL-OK: NIL (NOT (NULL (FIND 'A '(A B C) :START 3 :END 3))) EQL-OK: NIL (NOT (NULL (FIND 'A '(A B C) :START 3 :END 3 :FROM-END T))) EQL-OK: NIL (NOT (EQ (FIND 'A '(A B C) :END NIL) 'A)) EQL-OK: NIL (NOT (EQ (FIND 'B '(A B C) :END NIL) 'B)) EQL-OK: NIL (NOT (EQ (FIND 'C '(A B C) :END NIL) 'C)) EQL-OK: NIL (NOT (EQ (FIND 'A '(A B C) :END 1) 'A)) EQL-OK: NIL (NOT (EQ (FIND 'B '(A B C) :END 2) 'B)) EQL-OK: NIL (NOT (EQ (FIND 'C '(A B C) :END 3) 'C)) EQL-OK: NIL (NOT (NULL (FIND 'A '(A B C) :END 0))) EQL-OK: NIL (NOT (NULL (FIND 'B '(A B C) :END 1))) EQL-OK: NIL (NOT (NULL (FIND 'C '(A B C) :END 2))) EQL-OK: NIL (NOT (NULL (FIND 'A '((A) (B) (C))))) EQL-OK: NIL (NOT (EQUAL (FIND 'A '((A) (B) (C)) :KEY #'CAR) '(A))) EQL-OK: NIL (NOT (EQUAL (FIND 'B '((A) (B) (C)) :KEY #'CAR) '(B))) EQL-OK: NIL (NOT (EQUAL (FIND 'C '((A) (B) (C)) :KEY #'CAR) '(C))) EQL-OK: NIL (NOT (NULL (FIND 'Z '((A) (B) (C)) :KEY #'CAR))) EQL-OK: NIL (NOT (LET ((LIST '((A) (B) (C)))) (AND (EQ (FIND 'A LIST :KEY #'CAR) (CAR LIST)) (EQ (FIND 'B LIST :KEY #'CAR) (CADR LIST)) (EQ (FIND 'C LIST :KEY #'CAR) (CADDR LIST)) (NULL (FIND 'Z LIST :KEY #'CAR))))) EQL-OK: NIL (NOT (NULL (FIND '(A) '((A) (B) (C))))) EQL-OK: NIL (NOT (EQUAL (FIND '(A) '((A) (B) (C)) :TEST #'EQUAL) '(A))) EQL-OK: NIL (NOT (NULL (FIND '("a") '(("a") ("b") ("c"))))) EQL-OK: NIL (NOT (NULL (FIND '("a") '(("A") ("B") ("c")) :TEST #'EQUAL))) EQL-OK: NIL (NOT (EQUAL (FIND '("a") '(("A") ("B") ("c")) :TEST #'EQUALP) '("A"))) EQL-OK: NIL (NOT (EQ (FIND 'NIL '(FIRST SECOND THIRD) :TEST (CONSTANTLY T)) 'FIRST)) EQL-OK: NIL (NOT (EQL (FIND 3 '(0 1 2 3 4 5)) 3)) EQL-OK: NIL (NOT (EQL (FIND 3 '(0 1 2 3 4 5) :TEST #'<) 4)) EQL-OK: NIL (NOT (EQL (FIND 3 '(0 1 2 3 4 5) :TEST #'>) 0)) EQL-OK: NIL (NOT (EQUAL (FIND '(A) '((A) (B) (C)) :TEST-NOT (COMPLEMENT #'EQUAL)) '(A))) EQL-OK: NIL (NOT (NULL (FIND '("a") '(("A") ("B") ("c")) :TEST-NOT (COMPLEMENT #'EQUAL)))) EQL-OK: NIL (NOT (EQUAL (FIND '("a") '(("A") ("B") ("c")) :TEST-NOT (COMPLEMENT #'EQUALP)) '("A"))) EQL-OK: NIL (NOT (EQ (FIND 'NIL '(FIRST SECOND THIRD) :TEST-NOT (CONSTANTLY NIL)) 'FIRST)) EQL-OK: NIL (NOT (EQL (FIND 3 '(0 1 2 3 4 5) :TEST-NOT #'>=) 4)) EQL-OK: NIL (NOT (EQL (FIND 3 '(0 1 2 3 4 5) :TEST-NOT #'<=) 0)) EQL-OK: NIL (NOT (EQUAL (FIND 'A '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(A))) EQL-OK: NIL (NOT (EQUAL (FIND 'A '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(A A))) EQL-OK: NIL (NOT (EQUAL (FIND 'B '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(B))) EQL-OK: NIL (NOT (EQUAL (FIND 'B '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(B B))) EQL-OK: NIL (NOT (EQUAL (FIND 'C '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(C))) EQL-OK: NIL (NOT (EQUAL (FIND 'C '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(C C))) EQL-OK: NIL (NOT (NULL (FIND 'Z '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR))) EQL-OK: NIL (NOT (NULL (FIND 'Z '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T))) EQL-OK: NIL (NOT (EQUAL (FIND 'A '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T) '(A A A))) EQL-OK: NIL (NOT (EQUAL (FIND 'A '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END NIL) '(A A A))) EQL-OK: NIL (NOT (EQUAL (FIND 'A '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END 6) '(A A))) EQL-OK: NIL (NOT (NULL (FIND 'A '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :START 1 :END 3))) EQL-OK: NIL (NOT (NULL (FIND #\c '("abc" "bcd" "cde")))) EQL-OK: NIL (NOT (STRING= (FIND #\c '("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0)) :TEST #'CHAR=) "cde")) EQL-OK: NIL (NOT (STRING= (FIND #\c '("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0)) :TEST #'CHAR>) "abc")) EQL-OK: NIL (NOT (STRING= (FIND #\c '("abc" "bcd" "cde") :START 1 :KEY #'(LAMBDA (ARG) (CHAR ARG 0)) :TEST #'CHAR>) "bcd")) EQL-OK: NIL (NOT (EQ (FIND 'A #(A B C)) 'A)) EQL-OK: NIL (NOT (EQ (FIND 'B #(A B C)) 'B)) EQL-OK: NIL (NOT (EQ (FIND 'C #(A B C)) 'C)) EQL-OK: NIL (NOT (NULL (FIND 'X #(A B C)))) EQL-OK: NIL (NOT (NULL (FIND 'A #(A B C) :START 1))) EQL-OK: NIL (NOT (NULL (FIND 'B #(A B C) :START 2))) EQL-OK: NIL (NOT (NULL (FIND 'C #(A B C) :START 3))) EQL-OK: NIL (NOT (NULL (FIND 'A #(A B C) :START 0 :END 0))) EQL-OK: NIL (NOT (NULL (FIND 'A #(A B C) :START 0 :END 0 :FROM-END T))) EQL-OK: NIL (NOT (NULL (FIND 'A #(A B C) :START 1 :END 1))) EQL-OK: NIL (NOT (NULL (FIND 'A #(A B C) :START 1 :END 1 :FROM-END T))) EQL-OK: NIL (NOT (NULL (FIND 'A #(A B C) :START 2 :END 2))) EQL-OK: NIL (NOT (NULL (FIND 'A #(A B C) :START 2 :END 2 :FROM-END T))) EQL-OK: NIL (NOT (NULL (FIND 'A #(A B C) :START 3 :END 3))) EQL-OK: NIL (NOT (NULL (FIND 'A #(A B C) :START 3 :END 3 :FROM-END T))) EQL-OK: NIL (NOT (EQ (FIND 'A #(A B C) :END NIL) 'A)) EQL-OK: NIL (NOT (EQ (FIND 'B #(A B C) :END NIL) 'B)) EQL-OK: NIL (NOT (EQ (FIND 'C #(A B C) :END NIL) 'C)) EQL-OK: NIL (NOT (EQ (FIND 'A #(A B C) :END 1) 'A)) EQL-OK: NIL (NOT (EQ (FIND 'B #(A B C) :END 2) 'B)) EQL-OK: NIL (NOT (EQ (FIND 'C #(A B C) :END 3) 'C)) EQL-OK: NIL (NOT (NULL (FIND 'A #(A B C) :END 0))) EQL-OK: NIL (NOT (NULL (FIND 'B #(A B C) :END 1))) EQL-OK: NIL (NOT (NULL (FIND 'C #(A B C) :END 2))) EQL-OK: NIL (NOT (NULL (FIND 'A #((A) (B) (C))))) EQL-OK: NIL (NOT (EQUAL (FIND 'A #((A) (B) (C)) :KEY #'CAR) '(A))) EQL-OK: NIL (NOT (EQUAL (FIND 'B #((A) (B) (C)) :KEY #'CAR) '(B))) EQL-OK: NIL (NOT (EQUAL (FIND 'C #((A) (B) (C)) :KEY #'CAR) '(C))) EQL-OK: NIL (NOT (NULL (FIND 'Z #((A) (B) (C)) :KEY #'CAR))) EQL-OK: NIL (NOT (LET ((VECTOR #((A) (B) (C)))) (AND (EQ (FIND 'A VECTOR :KEY #'CAR) (AREF VECTOR 0)) (EQ (FIND 'B VECTOR :KEY #'CAR) (AREF VECTOR 1)) (EQ (FIND 'C VECTOR :KEY #'CAR) (AREF VECTOR 2)) (NULL (FIND 'Z VECTOR :KEY #'CAR))))) EQL-OK: NIL (NOT (NULL (FIND '(A) #((A) (B) (C))))) EQL-OK: NIL (NOT (EQUAL (FIND '(A) #((A) (B) (C)) :TEST #'EQUAL) '(A))) EQL-OK: NIL (NOT (NULL (FIND '("a") #(("a") ("b") ("c"))))) EQL-OK: NIL (NOT (NULL (FIND '("a") #(("A") ("B") ("c")) :TEST #'EQUAL))) EQL-OK: NIL (NOT (EQUAL (FIND '("a") #(("A") ("B") ("c")) :TEST #'EQUALP) '("A"))) EQL-OK: NIL (NOT (EQ (FIND 'NIL #(FIRST SECOND THIRD) :TEST (CONSTANTLY T)) 'FIRST)) EQL-OK: NIL (NOT (EQL (FIND 3 #(0 1 2 3 4 5)) 3)) EQL-OK: NIL (NOT (EQL (FIND 3 #(0 1 2 3 4 5) :TEST #'<) 4)) EQL-OK: NIL (NOT (EQL (FIND 3 #(0 1 2 3 4 5) :TEST #'>) 0)) EQL-OK: NIL (NOT (EQUAL (FIND '(A) #((A) (B) (C)) :TEST-NOT (COMPLEMENT #'EQUAL)) '(A))) EQL-OK: NIL (NOT (NULL (FIND '("a") #(("A") ("B") ("c")) :TEST-NOT (COMPLEMENT #'EQUAL)))) EQL-OK: NIL (NOT (EQUAL (FIND '("a") #(("A") ("B") ("c")) :TEST-NOT (COMPLEMENT #'EQUALP)) '("A"))) EQL-OK: NIL (NOT (EQ (FIND 'NIL #(FIRST SECOND THIRD) :TEST-NOT (CONSTANTLY NIL)) 'FIRST)) EQL-OK: NIL (NOT (EQL (FIND 3 #(0 1 2 3 4 5) :TEST-NOT #'>=) 4)) EQL-OK: NIL (NOT (EQL (FIND 3 #(0 1 2 3 4 5) :TEST-NOT #'<=) 0)) EQL-OK: NIL (NOT (EQUAL (FIND 'A #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(A))) EQL-OK: NIL (NOT (EQUAL (FIND 'A #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(A A))) EQL-OK: NIL (NOT (EQUAL (FIND 'B #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(B))) EQL-OK: NIL (NOT (EQUAL (FIND 'B #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(B B))) EQL-OK: NIL (NOT (EQUAL (FIND 'C #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(C))) EQL-OK: NIL (NOT (EQUAL (FIND 'C #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(C C))) EQL-OK: NIL (NOT (NULL (FIND 'Z #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR))) EQL-OK: NIL (NOT (NULL (FIND 'Z #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T))) EQL-OK: NIL (NOT (EQUAL (FIND 'A #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T) '(A A A))) EQL-OK: NIL (NOT (EQUAL (FIND 'A #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END NIL) '(A A A))) EQL-OK: NIL (NOT (EQUAL (FIND 'A #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END 6) '(A A))) EQL-OK: NIL (NOT (NULL (FIND 'A #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :START 1 :END 3))) EQL-OK: NIL (NOT (NULL (FIND #\c #("abc" "bcd" "cde")))) EQL-OK: NIL (NOT (STRING= (FIND #\c #("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0)) :TEST #'CHAR=) "cde")) EQL-OK: NIL (NOT (STRING= (FIND #\c #("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0)) :TEST #'CHAR>) "abc")) EQL-OK: NIL (NOT (STRING= (FIND #\c #("abc" "bcd" "cde") :START 1 :KEY #'(LAMBDA (ARG) (CHAR ARG 0)) :TEST #'CHAR>) "bcd")) EQL-OK: NIL (NOT (NULL (FIND #\z "abcABC"))) EQL-OK: NIL (NOT (EQL (FIND #\a "abcABC") #\a)) EQL-OK: NIL (NOT (EQL (FIND #\A "abcABC") #\A)) EQL-OK: NIL (NOT (EQL (FIND #\A "abcABC" :TEST #'CHAR-EQUAL) #\a)) EQL-OK: NIL (NOT (EQL (FIND #\A "abcABC" :TEST #'CHAR-EQUAL :FROM-END T) #\A)) EQL-OK: NIL (NOT (EQL (FIND #\a "abcABC" :TEST #'CHAR-EQUAL :FROM-END T) #\A)) EQL-OK: NIL (NOT (EQL (FIND #\a "abcABC" :TEST #'CHAR-EQUAL :FROM-END T :END 4) #\A)) EQL-OK: NIL (NOT (EQL (FIND #\a "abcABC" :TEST #'CHAR-EQUAL :FROM-END T :END 3) #\a)) EQL-OK: NIL (NOT (ZEROP (FIND 0 #*01))) EQL-OK: NIL (NOT (EQL (FIND 1 #*01) 1)) EQL-OK: NIL (NOT (NULL (FIND 0 #*01 :START 1))) EQL-OK: NIL (NOT (NULL (FIND 1 #*01 :END 0))) EQL-OK: NIL (NOT (NULL (FIND 0 #*000001 :START 5))) EQL-OK: NIL (NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C)) 'A)) EQL-OK: NIL (NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'B)) '(A B C)) 'B)) EQL-OK: NIL (NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'C)) '(A B C)) 'C)) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (ARG) (EQ ARG 'X)) '(A B C)))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 1))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'B)) '(A B C) :START 2))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'C)) '(A B C) :START 3))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 0 :END 0))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 0 :END 0 :FROM-END T))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 1 :END 1))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 1 :END 1 :FROM-END T))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 2 :END 2))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 2 :END 2 :FROM-END T))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 3 :END 3))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 3 :END 3 :FROM-END T))) EQL-OK: NIL (NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :END NIL) 'A)) EQL-OK: NIL (NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'B)) '(A B C) :END NIL) 'B)) EQL-OK: NIL (NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'C)) '(A B C) :END NIL) 'C)) EQL-OK: NIL (NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :END 1) 'A)) EQL-OK: NIL (NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'B)) '(A B C) :END 2) 'B)) EQL-OK: NIL (NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'C)) '(A B C) :END 3) 'C)) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :END 0))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'B)) '(A B C) :END 1))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'C)) '(A B C) :END 2))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '((A) (B) (C))))) EQL-OK: NIL (NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '((A) (B) (C)) :KEY #'CAR) '(A))) EQL-OK: NIL (NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'B)) '((A) (B) (C)) :KEY #'CAR) '(B))) EQL-OK: NIL (NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'C)) '((A) (B) (C)) :KEY #'CAR) '(C))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'Z)) '((A) (B) (C)) :KEY #'CAR))) EQL-OK: NIL (NOT (LET ((LIST '((A) (B) (C)))) (AND (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'A)) LIST :KEY #'CAR) (CAR LIST)) (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'B)) LIST :KEY #'CAR) (CADR LIST)) (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'C)) LIST :KEY #'CAR) (CADDR LIST)) (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'Z)) LIST :KEY #'CAR))))) EQL-OK: NIL (NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(A))) EQL-OK: NIL (NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(A A))) EQL-OK: NIL (NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'B)) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(B))) EQL-OK: NIL (NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'B)) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(B B))) EQL-OK: NIL (NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'C)) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(C))) EQL-OK: NIL (NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'C)) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(C C))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'Z)) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'Z)) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T))) EQL-OK: NIL (NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T) '(A A A))) EQL-OK: NIL (NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END NIL) '(A A A))) EQL-OK: NIL (NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END 6) '(A A))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :START 1 :END 3))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQL X #\c)) '("abc" "bcd" "cde")))) EQL-OK: NIL (NOT (STRING= (FIND-IF #'(LAMBDA (X) (EQL X #\c)) '("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) "cde")) EQL-OK: NIL (NOT (STRING= (FIND-IF #'(LAMBDA (X) (CHAR> #\c X)) '("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) "abc")) EQL-OK: NIL (NOT (STRING= (FIND-IF #'(LAMBDA (X) (CHAR> #\c X)) '("abc" "bcd" "cde") :START 1 :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) "bcd")) EQL-OK: NIL (NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C)) 'A)) EQL-OK: NIL (NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'B)) #(A B C)) 'B)) EQL-OK: NIL (NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'C)) #(A B C)) 'C)) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (ARG) (EQ ARG 'X)) #(A B C)))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 1))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'B)) #(A B C) :START 2))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'C)) #(A B C) :START 3))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 0 :END 0))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 0 :END 0 :FROM-END T))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 1 :END 1))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 1 :END 1 :FROM-END T))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 2 :END 2))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 2 :END 2 :FROM-END T))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 3 :END 3))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 3 :END 3 :FROM-END T))) EQL-OK: NIL (NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :END NIL) 'A)) EQL-OK: NIL (NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'B)) #(A B C) :END NIL) 'B)) EQL-OK: NIL (NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'C)) #(A B C) :END NIL) 'C)) EQL-OK: NIL (NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :END 1) 'A)) EQL-OK: NIL (NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'B)) #(A B C) :END 2) 'B)) EQL-OK: NIL (NOT (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'C)) #(A B C) :END 3) 'C)) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :END 0))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'B)) #(A B C) :END 1))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'C)) #(A B C) :END 2))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #((A) (B) (C))))) EQL-OK: NIL (NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #((A) (B) (C)) :KEY #'CAR) '(A))) EQL-OK: NIL (NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'B)) #((A) (B) (C)) :KEY #'CAR) '(B))) EQL-OK: NIL (NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'C)) #((A) (B) (C)) :KEY #'CAR) '(C))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'Z)) #((A) (B) (C)) :KEY #'CAR))) EQL-OK: NIL (NOT (LET ((VECTOR #((A) (B) (C)))) (AND (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'A)) VECTOR :KEY #'CAR) (AREF VECTOR 0)) (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'B)) VECTOR :KEY #'CAR) (AREF VECTOR 1)) (EQ (FIND-IF #'(LAMBDA (X) (EQ X 'C)) VECTOR :KEY #'CAR) (AREF VECTOR 2)) (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'Z)) VECTOR :KEY #'CAR))))) EQL-OK: NIL (NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(A))) EQL-OK: NIL (NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(A A))) EQL-OK: NIL (NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'B)) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(B))) EQL-OK: NIL (NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'B)) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(B B))) EQL-OK: NIL (NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'C)) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(C))) EQL-OK: NIL (NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'C)) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(C C))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'Z)) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'Z)) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T))) EQL-OK: NIL (NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T) '(A A A))) EQL-OK: NIL (NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END NIL) '(A A A))) EQL-OK: NIL (NOT (EQUAL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END 6) '(A A))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQ X 'A)) #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :START 1 :END 3))) EQL-OK: NIL (NOT (NULL (FIND-IF #'(LAMBDA (X) (EQL X #\c)) #("abc" "bcd" "cde")))) EQL-OK: NIL (NOT (STRING= (FIND-IF #'(LAMBDA (X) (EQL X #\c)) #("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) "cde")) EQL-OK: NIL (NOT (STRING= (FIND-IF #'(LAMBDA (X) (CHAR> #\c X)) #("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) "abc")) EQL-OK: NIL (NOT (STRING= (FIND-IF #'(LAMBDA (X) (CHAR> #\c X)) #("abc" "bcd" "cde") :START 1 :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) "bcd")) EQL-OK: NIL (NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C)) 'A)) EQL-OK: NIL (NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) '(A B C)) 'B)) EQL-OK: NIL (NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) '(A B C)) 'C)) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A B C)))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 1))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) '(A B C) :START 2))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) '(A B C) :START 3))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 0 :END 0))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 0 :END 0 :FROM-END T))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 1 :END 1))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 1 :END 1 :FROM-END T))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 2 :END 2))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 2 :END 2 :FROM-END T))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 3 :END 3))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 3 :END 3 :FROM-END T))) EQL-OK: NIL (NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :END NIL) 'A)) EQL-OK: NIL (NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) '(A B C) :END NIL) 'B)) EQL-OK: NIL (NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) '(A B C) :END NIL) 'C)) EQL-OK: NIL (NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :END 1) 'A)) EQL-OK: NIL (NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) '(A B C) :END 2) 'B)) EQL-OK: NIL (NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) '(A B C) :END 3) 'C)) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :END 0))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) '(A B C) :END 1))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) '(A B C) :END 2))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((A) (B) (C))))) EQL-OK: NIL (NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((A) (B) (C)) :KEY #'CAR) '(A))) EQL-OK: NIL (NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) '((A) (B) (C)) :KEY #'CAR) '(B))) EQL-OK: NIL (NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) '((A) (B) (C)) :KEY #'CAR) '(C))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'Z))) '((A) (B) (C)) :KEY #'CAR))) EQL-OK: NIL (NOT (LET ((LIST '((A) (B) (C)))) (AND (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) LIST :KEY #'CAR) (CAR LIST)) (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) LIST :KEY #'CAR) (CADR LIST)) (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) LIST :KEY #'CAR) (CADDR LIST)) (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'Z))) LIST :KEY #'CAR))))) EQL-OK: NIL (NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(A))) EQL-OK: NIL (NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(A A))) EQL-OK: NIL (NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(B))) EQL-OK: NIL (NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(B B))) EQL-OK: NIL (NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(C))) EQL-OK: NIL (NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(C C))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'Z))) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'Z))) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T))) EQL-OK: NIL (NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T) '(A A A))) EQL-OK: NIL (NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END NIL) '(A A A))) EQL-OK: NIL (NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END 6) '(A A))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :START 1 :END 3))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQL X #\c))) '("abc" "bcd" "cde")))) EQL-OK: NIL (NOT (STRING= (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQL X #\c))) '("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) "cde")) EQL-OK: NIL (NOT (STRING= (FIND-IF-NOT #'(LAMBDA (X) (NOT (CHAR> #\c X))) '("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) "abc")) EQL-OK: NIL (NOT (STRING= (FIND-IF-NOT #'(LAMBDA (X) (NOT (CHAR> #\c X))) '("abc" "bcd" "cde") :START 1 :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) "bcd")) EQL-OK: NIL (NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C)) 'A)) EQL-OK: NIL (NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) #(A B C)) 'B)) EQL-OK: NIL (NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) #(A B C)) 'C)) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A B C)))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 1))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) #(A B C) :START 2))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) #(A B C) :START 3))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 0 :END 0))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 0 :END 0 :FROM-END T))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 1 :END 1))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 1 :END 1 :FROM-END T))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 2 :END 2))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 2 :END 2 :FROM-END T))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 3 :END 3))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 3 :END 3 :FROM-END T))) EQL-OK: NIL (NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :END NIL) 'A)) EQL-OK: NIL (NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) #(A B C) :END NIL) 'B)) EQL-OK: NIL (NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) #(A B C) :END NIL) 'C)) EQL-OK: NIL (NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :END 1) 'A)) EQL-OK: NIL (NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) #(A B C) :END 2) 'B)) EQL-OK: NIL (NOT (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) #(A B C) :END 3) 'C)) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :END 0))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) #(A B C) :END 1))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) #(A B C) :END 2))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((A) (B) (C))))) EQL-OK: NIL (NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((A) (B) (C)) :KEY #'CAR) '(A))) EQL-OK: NIL (NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) #((A) (B) (C)) :KEY #'CAR) '(B))) EQL-OK: NIL (NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) #((A) (B) (C)) :KEY #'CAR) '(C))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'Z))) #((A) (B) (C)) :KEY #'CAR))) EQL-OK: NIL (NOT (LET ((VECTOR #((A) (B) (C)))) (AND (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) VECTOR :KEY #'CAR) (AREF VECTOR 0)) (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) VECTOR :KEY #'CAR) (AREF VECTOR 1)) (EQ (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) VECTOR :KEY #'CAR) (AREF VECTOR 2)) (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'Z))) VECTOR :KEY #'CAR))))) EQL-OK: NIL (NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(A))) EQL-OK: NIL (NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(A A))) EQL-OK: NIL (NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(B))) EQL-OK: NIL (NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(B B))) EQL-OK: NIL (NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) '(C))) EQL-OK: NIL (NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) '(C C))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'Z))) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'Z))) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T))) EQL-OK: NIL (NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T) '(A A A))) EQL-OK: NIL (NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END NIL) '(A A A))) EQL-OK: NIL (NOT (EQUAL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END 6) '(A A))) EQL-OK: NIL (NOT (NULL (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :START 1 :END 3))) EQL-OK: NIL (NOT (STRING= (FIND-IF-NOT #'(LAMBDA (X) (NOT (EQL X #\c))) #("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) "cde")) EQL-OK: NIL (NOT (STRING= (FIND-IF-NOT #'(LAMBDA (X) (NOT (CHAR> #\c X))) #("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) "abc")) EQL-OK: NIL (NOT (STRING= (FIND-IF-NOT #'(LAMBDA (X) (NOT (CHAR> #\c X))) #("abc" "bcd" "cde") :START 1 :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) "bcd")) EQL-OK: NIL (NOT (EQL (POSITION #\a "baobab" :FROM-END T) 4)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'ODDP '((1) (2) (3) (4)) :START 1 :KEY #'CAR) 2)) EQL-OK: NIL (NOT (NULL (POSITION 595 'NIL))) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'INTEGERP '(1 2 3 4 5.0)) 4)) EQL-OK: NIL (NOT (EQL (POSITION 'A '(A B C)) 0)) EQL-OK: NIL (NOT (EQL (POSITION 'B '(A B C)) 1)) EQL-OK: NIL (NOT (EQL (POSITION 'C '(A B C)) 2)) EQL-OK: NIL (NOT (NULL (POSITION 'X '(A B C)))) EQL-OK: NIL (NOT (NULL (POSITION 'A '(A B C) :START 1))) EQL-OK: NIL (NOT (NULL (POSITION 'B '(A B C) :START 2))) EQL-OK: NIL (NOT (NULL (POSITION 'C '(A B C) :START 3))) EQL-OK: NIL (NOT (NULL (POSITION 'A '(A B C) :START 0 :END 0))) EQL-OK: NIL (NOT (NULL (POSITION 'A '(A B C) :START 0 :END 0 :FROM-END T))) EQL-OK: NIL (NOT (NULL (POSITION 'A '(A B C) :START 1 :END 1))) EQL-OK: NIL (NOT (NULL (POSITION 'A '(A B C) :START 1 :END 1 :FROM-END T))) EQL-OK: NIL (NOT (NULL (POSITION 'A '(A B C) :START 2 :END 2))) EQL-OK: NIL (NOT (NULL (POSITION 'A '(A B C) :START 2 :END 2 :FROM-END T))) EQL-OK: NIL (NOT (NULL (POSITION 'A '(A B C) :START 3 :END 3))) EQL-OK: NIL (NOT (NULL (POSITION 'A '(A B C) :START 3 :END 3 :FROM-END T))) EQL-OK: NIL (NOT (EQL (POSITION 'A '(A B C) :END NIL) '0)) EQL-OK: NIL (NOT (EQL (POSITION 'B '(A B C) :END NIL) '1)) EQL-OK: NIL (NOT (EQL (POSITION 'C '(A B C) :END NIL) '2)) EQL-OK: NIL (NOT (EQL (POSITION 'A '(A B C) :END 1) '0)) EQL-OK: NIL (NOT (EQL (POSITION 'B '(A B C) :END 2) '1)) EQL-OK: NIL (NOT (EQL (POSITION 'C '(A B C) :END 3) '2)) EQL-OK: NIL (NOT (NULL (POSITION 'A '(A B C) :END 0))) EQL-OK: NIL (NOT (NULL (POSITION 'B '(A B C) :END 1))) EQL-OK: NIL (NOT (NULL (POSITION 'C '(A B C) :END 2))) EQL-OK: NIL (NOT (NULL (POSITION 'A '((A) (B) (C))))) EQL-OK: NIL (NOT (EQL (POSITION 'A '((A) (B) (C)) :KEY #'CAR) 0)) EQL-OK: NIL (NOT (EQL (POSITION 'B '((A) (B) (C)) :KEY #'CAR) 1)) EQL-OK: NIL (NOT (EQL (POSITION 'C '((A) (B) (C)) :KEY #'CAR) 2)) EQL-OK: NIL (NOT (NULL (POSITION 'Z '((A) (B) (C)) :KEY #'CAR))) EQL-OK: NIL (NOT (NULL (POSITION '(A) '((A) (B) (C))))) EQL-OK: NIL (NOT (EQL (POSITION '(A) '((A) (B) (C)) :TEST #'EQUAL) 0)) EQL-OK: NIL (NOT (NULL (POSITION '("a") '(("a") ("b") ("c"))))) EQL-OK: NIL (NOT (NULL (POSITION '("a") '(("A") ("B") ("c")) :TEST #'EQUAL))) EQL-OK: NIL (NOT (EQL (POSITION '("a") '(("A") ("B") ("c")) :TEST #'EQUALP) 0)) EQL-OK: NIL (NOT (EQL (POSITION 'NIL '(FIRST SECOND THIRD) :TEST (CONSTANTLY T)) 0)) EQL-OK: NIL (NOT (EQL (POSITION 3 '(0 1 2 3 4 5)) 3)) EQL-OK: NIL (NOT (EQL (POSITION 3 '(0 1 2 3 4 5) :TEST #'<) 4)) EQL-OK: NIL (NOT (EQL (POSITION 3 '(0 1 2 3 4 5) :TEST #'>) 0)) EQL-OK: NIL (NOT (EQL (POSITION '(A) '((A) (B) (C)) :TEST-NOT (COMPLEMENT #'EQUAL)) 0)) EQL-OK: NIL (NOT (NULL (POSITION '("a") '(("A") ("B") ("c")) :TEST-NOT (COMPLEMENT #'EQUAL)))) EQL-OK: NIL (NOT (EQL (POSITION '("a") '(("A") ("B") ("c")) :TEST-NOT (COMPLEMENT #'EQUALP)) 0)) EQL-OK: NIL (NOT (EQL (POSITION 'NIL '(FIRST SECOND THIRD) :TEST-NOT (CONSTANTLY NIL)) 0)) EQL-OK: NIL (NOT (EQL (POSITION 3 '(0 1 2 3 4 5) :TEST-NOT #'>=) 4)) EQL-OK: NIL (NOT (EQL (POSITION 3 '(0 1 2 3 4 5) :TEST-NOT #'<=) 0)) EQL-OK: NIL (NOT (EQL (POSITION 'A '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 0)) EQL-OK: NIL (NOT (EQL (POSITION 'A '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (POSITION 'B '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 1)) EQL-OK: NIL (NOT (EQL (POSITION 'B '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 4)) EQL-OK: NIL (NOT (EQL (POSITION 'C '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 2)) EQL-OK: NIL (NOT (EQL (POSITION 'C '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 5)) EQL-OK: NIL (NOT (NULL (POSITION 'Z '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR))) EQL-OK: NIL (NOT (NULL (POSITION 'Z '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T))) EQL-OK: NIL (NOT (EQL (POSITION 'A '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T) 6)) EQL-OK: NIL (NOT (EQL (POSITION 'A '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END NIL) 6)) EQL-OK: NIL (NOT (EQL (POSITION 'A '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END 6) 3)) EQL-OK: NIL (NOT (NULL (POSITION 'A '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :START 1 :END 3))) EQL-OK: NIL (NOT (NULL (POSITION #\c '("abc" "bcd" "cde")))) EQL-OK: NIL (NOT (EQL (POSITION #\c '("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0)) :TEST #'CHAR=) 2)) EQL-OK: NIL (NOT (EQL (POSITION #\c '("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0)) :TEST #'CHAR>) 0)) EQL-OK: NIL (NOT (EQL (POSITION #\c '("abc" "bcd" "cde") :START 1 :KEY #'(LAMBDA (ARG) (CHAR ARG 0)) :TEST #'CHAR>) 1)) EQL-OK: NIL (NOT (EQL (POSITION 'A #(A B C)) 0)) EQL-OK: NIL (NOT (EQL (POSITION 'B #(A B C)) 1)) EQL-OK: NIL (NOT (EQL (POSITION 'C #(A B C)) 2)) EQL-OK: NIL (NOT (NULL (POSITION 'X #(A B C)))) EQL-OK: NIL (NOT (NULL (POSITION 'A #(A B C) :START 1))) EQL-OK: NIL (NOT (NULL (POSITION 'B #(A B C) :START 2))) EQL-OK: NIL (NOT (NULL (POSITION 'C #(A B C) :START 3))) EQL-OK: NIL (NOT (NULL (POSITION 'A #(A B C) :START 0 :END 0))) EQL-OK: NIL (NOT (NULL (POSITION 'A #(A B C) :START 0 :END 0 :FROM-END T))) EQL-OK: NIL (NOT (NULL (POSITION 'A #(A B C) :START 1 :END 1))) EQL-OK: NIL (NOT (NULL (POSITION 'A #(A B C) :START 1 :END 1 :FROM-END T))) EQL-OK: NIL (NOT (NULL (POSITION 'A #(A B C) :START 2 :END 2))) EQL-OK: NIL (NOT (NULL (POSITION 'A #(A B C) :START 2 :END 2 :FROM-END T))) EQL-OK: NIL (NOT (NULL (POSITION 'A #(A B C) :START 3 :END 3))) EQL-OK: NIL (NOT (NULL (POSITION 'A #(A B C) :START 3 :END 3 :FROM-END T))) EQL-OK: NIL (NOT (EQL (POSITION 'A #(A B C) :END NIL) 0)) EQL-OK: NIL (NOT (EQL (POSITION 'B #(A B C) :END NIL) 1)) EQL-OK: NIL (NOT (EQL (POSITION 'C #(A B C) :END NIL) 2)) EQL-OK: NIL (NOT (EQL (POSITION 'A #(A B C) :END 1) 0)) EQL-OK: NIL (NOT (EQL (POSITION 'B #(A B C) :END 2) 1)) EQL-OK: NIL (NOT (EQL (POSITION 'C #(A B C) :END 3) 2)) EQL-OK: NIL (NOT (NULL (POSITION 'A #(A B C) :END 0))) EQL-OK: NIL (NOT (NULL (POSITION 'B #(A B C) :END 1))) EQL-OK: NIL (NOT (NULL (POSITION 'C #(A B C) :END 2))) EQL-OK: NIL (NOT (NULL (POSITION 'A #((A) (B) (C))))) EQL-OK: NIL (NOT (EQL (POSITION 'A #((A) (B) (C)) :KEY #'CAR) 0)) EQL-OK: NIL (NOT (EQL (POSITION 'B #((A) (B) (C)) :KEY #'CAR) 1)) EQL-OK: NIL (NOT (EQL (POSITION 'C #((A) (B) (C)) :KEY #'CAR) 2)) EQL-OK: NIL (NOT (NULL (POSITION 'Z #((A) (B) (C)) :KEY #'CAR))) EQL-OK: NIL (NOT (NULL (POSITION '(A) #((A) (B) (C))))) EQL-OK: NIL (NOT (EQL (POSITION '(A) #((A) (B) (C)) :TEST #'EQUAL) 0)) EQL-OK: NIL (NOT (NULL (POSITION '("a") #(("a") ("b") ("c"))))) EQL-OK: NIL (NOT (NULL (POSITION '("a") #(("A") ("B") ("c")) :TEST #'EQUAL))) EQL-OK: NIL (NOT (EQL (POSITION '("a") #(("A") ("B") ("c")) :TEST #'EQUALP) 0)) EQL-OK: NIL (NOT (EQL (POSITION 'NIL #(FIRST SECOND THIRD) :TEST (CONSTANTLY T)) 0)) EQL-OK: NIL (NOT (EQL (POSITION 'NIL #(FIRST SECOND THIRD) :TEST (CONSTANTLY T) :FROM-END T) 2)) EQL-OK: NIL (NOT (EQL (POSITION 3 #(0 1 2 3 4 5)) 3)) EQL-OK: NIL (NOT (EQL (POSITION 3 #(0 1 2 3 4 5) :TEST #'<) 4)) EQL-OK: NIL (NOT (EQL (POSITION 3 #(0 1 2 3 4 5) :TEST #'>) 0)) EQL-OK: NIL (NOT (EQL (POSITION '(A) #((A) (B) (C)) :TEST-NOT (COMPLEMENT #'EQUAL)) 0)) EQL-OK: NIL (NOT (NULL (POSITION '("a") #(("A") ("B") ("c")) :TEST-NOT (COMPLEMENT #'EQUAL)))) EQL-OK: NIL (NOT (EQL (POSITION '("a") #(("A") ("B") ("c")) :TEST-NOT (COMPLEMENT #'EQUALP)) 0)) EQL-OK: NIL (NOT (EQL (POSITION 'NIL #(FIRST SECOND THIRD) :TEST-NOT (CONSTANTLY NIL)) 0)) EQL-OK: NIL (NOT (EQL (POSITION 3 #(0 1 2 3 4 5) :TEST-NOT #'>=) 4)) EQL-OK: NIL (NOT (EQL (POSITION 3 #(0 1 2 3 4 5) :TEST-NOT #'<=) 0)) EQL-OK: NIL (NOT (EQL (POSITION 'A #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 0)) EQL-OK: NIL (NOT (EQL (POSITION 'A #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (POSITION 'B #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 1)) EQL-OK: NIL (NOT (EQL (POSITION 'B #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 4)) EQL-OK: NIL (NOT (EQL (POSITION 'C #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 2)) EQL-OK: NIL (NOT (EQL (POSITION 'C #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 5)) EQL-OK: NIL (NOT (NULL (POSITION 'Z #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR))) EQL-OK: NIL (NOT (NULL (POSITION 'Z #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T))) EQL-OK: NIL (NOT (EQL (POSITION 'A #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T) 6)) EQL-OK: NIL (NOT (EQL (POSITION 'A #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END NIL) 6)) EQL-OK: NIL (NOT (EQL (POSITION 'A #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END 6) 3)) EQL-OK: NIL (NOT (NULL (POSITION 'A #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :START 1 :END 3))) EQL-OK: NIL (NOT (NULL (POSITION #\c #("abc" "bcd" "cde")))) EQL-OK: NIL (NOT (EQL (POSITION #\c #("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0)) :TEST #'CHAR=) 2)) EQL-OK: NIL (NOT (EQL (POSITION #\c #("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0)) :TEST #'CHAR>) 0)) EQL-OK: NIL (NOT (EQL (POSITION #\c #("abc" "bcd" "cde") :START 1 :KEY #'(LAMBDA (ARG) (CHAR ARG 0)) :TEST #'CHAR>) 1)) EQL-OK: NIL (NOT (NULL (POSITION #\z "abcABC"))) EQL-OK: NIL (NOT (EQL (POSITION #\a "abcABC") 0)) EQL-OK: NIL (NOT (EQL (POSITION #\A "abcABC") 3)) EQL-OK: NIL (NOT (EQL (POSITION #\A "abcABC" :TEST #'CHAR-EQUAL) 0)) EQL-OK: NIL (NOT (EQL (POSITION #\A "abcABC" :TEST #'CHAR-EQUAL :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (POSITION #\a "abcABC" :TEST #'CHAR-EQUAL :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (POSITION #\a "abcABC" :TEST #'CHAR-EQUAL :FROM-END T :END 4) 3)) EQL-OK: NIL (NOT (EQL (POSITION #\a "abcABC" :TEST #'CHAR-EQUAL :FROM-END T :END 3) 0)) EQL-OK: NIL (NOT (ZEROP (POSITION 0 #*01))) EQL-OK: NIL (NOT (EQL (POSITION 1 #*01) 1)) EQL-OK: NIL (NOT (NULL (POSITION 0 #*01 :START 1))) EQL-OK: NIL (NOT (NULL (POSITION 1 #*01 :END 0))) EQL-OK: NIL (NOT (NULL (POSITION 0 #*000001 :START 5))) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C)) 0)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'B)) '(A B C)) 1)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'C)) '(A B C)) 2)) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (ARG) (EQ ARG 'X)) '(A B C)))) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 1))) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'B)) '(A B C) :START 2))) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'C)) '(A B C) :START 3))) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 0 :END 0))) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 0 :END 0 :FROM-END T))) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 1 :END 1))) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 1 :END 1 :FROM-END T))) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 2 :END 2))) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 2 :END 2 :FROM-END T))) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 3 :END 3))) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :START 3 :END 3 :FROM-END T))) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :END NIL) 0)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'B)) '(A B C) :END NIL) 1)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'C)) '(A B C) :END NIL) 2)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :END 1) 0)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'B)) '(A B C) :END 2) 1)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'C)) '(A B C) :END 3) 2)) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '(A B C) :END 0))) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'B)) '(A B C) :END 1))) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'C)) '(A B C) :END 2))) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '((A) (B) (C))))) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '((A) (B) (C)) :KEY #'CAR) 0)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'B)) '((A) (B) (C)) :KEY #'CAR) 1)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'C)) '((A) (B) (C)) :KEY #'CAR) 2)) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'Z)) '((A) (B) (C)) :KEY #'CAR))) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 0)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'B)) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 1)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'B)) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 4)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'C)) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 2)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'C)) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 5)) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'Z)) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR))) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'Z)) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T))) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T) 6)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END NIL) 6)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END 6) 3)) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :START 1 :END 3))) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQL X #\c)) '("abc" "bcd" "cde")))) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQL X #\c)) '("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) 2)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (CHAR> #\c X)) '("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) 0)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (CHAR> #\c X)) '("abc" "bcd" "cde") :START 1 :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) 1)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C)) 0)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'B)) #(A B C)) 1)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'C)) #(A B C)) 2)) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (ARG) (EQ ARG 'X)) #(A B C)))) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 1))) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'B)) #(A B C) :START 2))) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'C)) #(A B C) :START 3))) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 0 :END 0))) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 0 :END 0 :FROM-END T))) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 1 :END 1))) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 1 :END 1 :FROM-END T))) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 2 :END 2))) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 2 :END 2 :FROM-END T))) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 3 :END 3))) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :START 3 :END 3 :FROM-END T))) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :END NIL) 0)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'B)) #(A B C) :END NIL) 1)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'C)) #(A B C) :END NIL) 2)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :END 1) 0)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'B)) #(A B C) :END 2) 1)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'C)) #(A B C) :END 3) 2)) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #(A B C) :END 0))) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'B)) #(A B C) :END 1))) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'C)) #(A B C) :END 2))) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #((A) (B) (C))))) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #((A) (B) (C)) :KEY #'CAR) 0)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'B)) #((A) (B) (C)) :KEY #'CAR) 1)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'C)) #((A) (B) (C)) :KEY #'CAR) 2)) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'Z)) #((A) (B) (C)) :KEY #'CAR))) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 0)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'B)) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 1)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'B)) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 4)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'C)) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 2)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'C)) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 5)) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'Z)) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR))) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'Z)) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T))) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T) 6)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END NIL) 6)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END 6) 3)) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQ X 'A)) #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :START 1 :END 3))) EQL-OK: NIL (NOT (NULL (POSITION-IF #'(LAMBDA (X) (EQL X #\c)) #("abc" "bcd" "cde")))) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (EQL X #\c)) #("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) 2)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (CHAR> #\c X)) #("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) 0)) EQL-OK: NIL (NOT (EQL (POSITION-IF #'(LAMBDA (X) (CHAR> #\c X)) #("abc" "bcd" "cde") :START 1 :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) 1)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C)) 0)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) '(A B C)) 1)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) '(A B C)) 2)) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A B C)))) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 1))) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) '(A B C) :START 2))) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) '(A B C) :START 3))) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 0 :END 0))) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 0 :END 0 :FROM-END T))) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 1 :END 1))) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 1 :END 1 :FROM-END T))) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 2 :END 2))) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 2 :END 2 :FROM-END T))) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 3 :END 3))) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :START 3 :END 3 :FROM-END T))) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :END NIL) 0)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) '(A B C) :END NIL) 1)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) '(A B C) :END NIL) 2)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :END 1) 0)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) '(A B C) :END 2) 1)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) '(A B C) :END 3) 2)) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '(A B C) :END 0))) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) '(A B C) :END 1))) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) '(A B C) :END 2))) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((A) (B) (C))))) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((A) (B) (C)) :KEY #'CAR) 0)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) '((A) (B) (C)) :KEY #'CAR) 1)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) '((A) (B) (C)) :KEY #'CAR) 2)) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'Z))) '((A) (B) (C)) :KEY #'CAR))) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 0)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 1)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 4)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 2)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 5)) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'Z))) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR))) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'Z))) '((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T))) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T) 6)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END NIL) 6)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END 6) 3)) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) '((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :START 1 :END 3))) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQL X #\c))) '("abc" "bcd" "cde")))) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQL X #\c))) '("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) 2)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (CHAR> #\c X))) '("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) 0)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (CHAR> #\c X))) '("abc" "bcd" "cde") :START 1 :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) 1)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C)) 0)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) #(A B C)) 1)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) #(A B C)) 2)) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A B C)))) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 1))) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) #(A B C) :START 2))) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) #(A B C) :START 3))) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 0 :END 0))) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 0 :END 0 :FROM-END T))) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 1 :END 1))) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 1 :END 1 :FROM-END T))) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 2 :END 2))) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 2 :END 2 :FROM-END T))) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 3 :END 3))) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :START 3 :END 3 :FROM-END T))) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :END NIL) 0)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) #(A B C) :END NIL) 1)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) #(A B C) :END NIL) 2)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :END 1) 0)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) #(A B C) :END 2) 1)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) #(A B C) :END 3) 2)) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #(A B C) :END 0))) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) #(A B C) :END 1))) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) #(A B C) :END 2))) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((A) (B) (C))))) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((A) (B) (C)) :KEY #'CAR) 0)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) #((A) (B) (C)) :KEY #'CAR) 1)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) #((A) (B) (C)) :KEY #'CAR) 2)) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'Z))) #((A) (B) (C)) :KEY #'CAR))) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 0)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 1)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'B))) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 4)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR) 2)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'C))) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T) 5)) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'Z))) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR))) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'Z))) #((A) (B) (C) (A A) (B B) (C C)) :KEY #'CAR :FROM-END T))) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T) 6)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END NIL) 6)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :END 6) 3)) EQL-OK: NIL (NOT (NULL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQ X 'A))) #((A) (B) (C) (A A) (B B) (C C) (A A A)) :KEY #'CAR :FROM-END T :START 1 :END 3))) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (EQL X #\c))) #("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) 2)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (CHAR> #\c X))) #("abc" "bcd" "cde") :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) 0)) EQL-OK: NIL (NOT (EQL (POSITION-IF-NOT #'(LAMBDA (X) (NOT (CHAR> #\c X))) #("abc" "bcd" "cde") :START 1 :KEY #'(LAMBDA (ARG) (CHAR ARG 0))) 1)) EQL-OK: NIL (NOT (EQL (SEARCH "dog" "it's a dog's life") 7)) EQL-OK: NIL (NOT (EQL (SEARCH '(0 1) '(2 4 6 1 3 5) :KEY #'ODDP) 2)) EQL-OK: NIL (NOT (EQL (SEARCH 'NIL 'NIL) 0)) EQL-OK: NIL (NOT (NULL (SEARCH '(A B C) '(X Y Z)))) EQL-OK: NIL (NOT (EQL (SEARCH 'NIL '(X Y Z)) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '(A) '(A)) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C X Y Z)) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(X A B C Y Z)) 1)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(X Y A B C Z)) 2)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(X Y Z A B C)) 3)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START2 1) 3)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START2 1 :END2 NIL) 3)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 1 :START2 1 :END2 NIL) 1)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 1 :END1 NIL :START2 1 :END2 NIL) 1)) EQL-OK: NIL (NOT (NULL (SEARCH '(A B C) '(A B C A B C) :START2 0 :END2 0))) EQL-OK: NIL (NOT (NULL (SEARCH '(A B C) '(A B C A B C) :START2 1 :END2 1))) EQL-OK: NIL (NOT (NULL (SEARCH '(A B C) '(A B C A B C) :START2 2 :END2 2))) EQL-OK: NIL (NOT (NULL (SEARCH '(A B C) '(A B C A B C) :START2 3 :END2 3))) EQL-OK: NIL (NOT (NULL (SEARCH '(A B C) '(A B C A B C) :START2 4 :END2 4))) EQL-OK: NIL (NOT (NULL (SEARCH '(A B C) '(A B C A B C) :START2 5 :END2 5))) EQL-OK: NIL (NOT (NULL (SEARCH '(A B C) '(A B C A B C) :START2 6 :END2 6))) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C)) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START2 3 :END2 6) 3)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START2 3 :END2 6 :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 0 :END1 2 :START2 0 :END2 6) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 0 :END1 2 :START2 0 :END2 6 :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 0 :END1 0 :START2 0 :END2 0) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 1 :END1 1 :START2 0 :END2 0) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 2 :END1 2 :START2 0 :END2 0) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 3 :END1 3 :START2 0 :END2 0) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 0 :END1 0 :START2 1 :END2 1) 1)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 1 :END1 1 :START2 1 :END2 1) 1)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 2 :END1 2 :START2 1 :END2 1) 1)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 3 :END1 3 :START2 1 :END2 1) 1)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 0 :END1 0 :START2 6 :END2 6) 6)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 1 :END1 1 :START2 6 :END2 6) 6)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 2 :END1 2 :START2 6 :END2 6) 6)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 3 :END1 3 :START2 6 :END2 6) 6)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 0 :END1 0 :START2 0 :END2 0 :FROM-END T) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 1 :END1 1 :START2 0 :END2 0 :FROM-END T) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 2 :END1 2 :START2 0 :END2 0 :FROM-END T) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 3 :END1 3 :START2 0 :END2 0 :FROM-END T) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 0 :END1 0 :START2 1 :END2 1 :FROM-END T) 1)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 1 :END1 1 :START2 1 :END2 1 :FROM-END T) 1)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 2 :END1 2 :START2 1 :END2 1 :FROM-END T) 1)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 3 :END1 3 :START2 1 :END2 1 :FROM-END T) 1)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 0 :END1 0 :START2 6 :END2 6 :FROM-END T) 6)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 1 :END1 1 :START2 6 :END2 6 :FROM-END T) 6)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 2 :END1 2 :START2 6 :END2 6 :FROM-END T) 6)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) '(A B C A B C) :START1 3 :END1 3 :START2 6 :END2 6 :FROM-END T) 6)) EQL-OK: NIL (NOT (NULL (SEARCH '(#\a #\b #\c) '(#\A #\B #\C)))) EQL-OK: NIL (NOT (EQL (SEARCH '(#\a #\b #\c) '(#\A #\B #\C) :TEST #'CHAR-EQUAL) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '(#\a #\b #\c) '(#\A #\B #\C) :TEST-NOT (COMPLEMENT #'CHAR-EQUAL)) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '(#\a #\b) '(#\a #\b #\x #\y #\z)) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '(#\a #\b) '(#\a #\b #\x #\y #\z) :TEST #'CHAR<) 1)) EQL-OK: NIL (NOT (EQL (SEARCH '(#\a #\b) '(#\a #\b #\x #\y #\z) :TEST-NOT (COMPLEMENT #'CHAR<)) 1)) EQL-OK: NIL (NOT (EQL (SEARCH '(#\a #\b) '(#\a #\b #\x #\y #\z) :TEST-NOT (COMPLEMENT #'CHAR<) :FROM-END T) 3)) EQL-OK: NIL (NOT (NULL (SEARCH '((A) (B)) '((X) (Y) (Z) (A) (B) (C))))) EQL-OK: NIL (NOT (EQL (SEARCH '((A) (B)) '((X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 3)) EQL-OK: NIL (NOT (EQL (SEARCH '((A) (B)) '((A) (B) (C) (X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '((A) (B)) '((A) (B) (C) (X) (Y) (Z) (A) (B) (C)) :KEY #'CAR :FROM-END T) 6)) EQL-OK: NIL (NOT (EQL (SEARCH '((A A) (B B)) '((A) (B) (C) (X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '((A A) (B B)) '((A NIL) (B T) (C NIL) (X) (Y) (Z) (A 0) (B 1) (C 2)) :KEY #'CAR :FROM-END T) 6)) EQL-OK: NIL (NOT (EQL (SEARCH '(("a" A) ("b" B)) '(("a" NIL) ("b" T) ("c" NIL) ("x") ("y") ("z") ("A" 0) ("B" 1) ("C" 2)) :START1 1 :END1 2 :START2 3 :END2 NIL :KEY #'CAR :TEST #'STRING-EQUAL :FROM-END T) 7)) EQL-OK: NIL (NOT (EQL (SEARCH #() 'NIL) 0)) EQL-OK: NIL (NOT (NULL (SEARCH #(A B C) '(X Y Z)))) EQL-OK: NIL (NOT (EQL (SEARCH #() '(X Y Z)) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #(A) '(A)) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C X Y Z)) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(X A B C Y Z)) 1)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(X Y A B C Z)) 2)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(X Y Z A B C)) 3)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START2 1) 3)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START2 1 :END2 NIL) 3)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 1 :START2 1 :END2 NIL) 1)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 1 :END1 NIL :START2 1 :END2 NIL) 1)) EQL-OK: NIL (NOT (NULL (SEARCH #(A B C) '(A B C A B C) :START2 0 :END2 0))) EQL-OK: NIL (NOT (NULL (SEARCH #(A B C) '(A B C A B C) :START2 1 :END2 1))) EQL-OK: NIL (NOT (NULL (SEARCH #(A B C) '(A B C A B C) :START2 2 :END2 2))) EQL-OK: NIL (NOT (NULL (SEARCH #(A B C) '(A B C A B C) :START2 3 :END2 3))) EQL-OK: NIL (NOT (NULL (SEARCH #(A B C) '(A B C A B C) :START2 4 :END2 4))) EQL-OK: NIL (NOT (NULL (SEARCH #(A B C) '(A B C A B C) :START2 5 :END2 5))) EQL-OK: NIL (NOT (NULL (SEARCH #(A B C) '(A B C A B C) :START2 6 :END2 6))) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C)) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START2 3 :END2 6) 3)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START2 3 :END2 6 :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 0 :END1 2 :START2 0 :END2 6) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 0 :END1 2 :START2 0 :END2 6 :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 0 :END1 0 :START2 0 :END2 0) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 1 :END1 1 :START2 0 :END2 0) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 2 :END1 2 :START2 0 :END2 0) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 3 :END1 3 :START2 0 :END2 0) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 0 :END1 0 :START2 1 :END2 1) 1)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 1 :END1 1 :START2 1 :END2 1) 1)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 2 :END1 2 :START2 1 :END2 1) 1)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 3 :END1 3 :START2 1 :END2 1) 1)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 0 :END1 0 :START2 6 :END2 6) 6)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 1 :END1 1 :START2 6 :END2 6) 6)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 2 :END1 2 :START2 6 :END2 6) 6)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 3 :END1 3 :START2 6 :END2 6) 6)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 0 :END1 0 :START2 0 :END2 0 :FROM-END T) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 1 :END1 1 :START2 0 :END2 0 :FROM-END T) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 2 :END1 2 :START2 0 :END2 0 :FROM-END T) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 3 :END1 3 :START2 0 :END2 0 :FROM-END T) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 0 :END1 0 :START2 1 :END2 1 :FROM-END T) 1)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 1 :END1 1 :START2 1 :END2 1 :FROM-END T) 1)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 2 :END1 2 :START2 1 :END2 1 :FROM-END T) 1)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 3 :END1 3 :START2 1 :END2 1 :FROM-END T) 1)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 0 :END1 0 :START2 6 :END2 6 :FROM-END T) 6)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 1 :END1 1 :START2 6 :END2 6 :FROM-END T) 6)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 2 :END1 2 :START2 6 :END2 6 :FROM-END T) 6)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) '(A B C A B C) :START1 3 :END1 3 :START2 6 :END2 6 :FROM-END T) 6)) EQL-OK: NIL (NOT (NULL (SEARCH #(#\a #\b #\c) '(#\A #\B #\C)))) EQL-OK: NIL (NOT (EQL (SEARCH #(#\a #\b #\c) '(#\A #\B #\C) :TEST #'CHAR-EQUAL) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #(#\a #\b #\c) '(#\A #\B #\C) :TEST-NOT (COMPLEMENT #'CHAR-EQUAL)) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #(#\a #\b) '(#\a #\b #\x #\y #\z)) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #(#\a #\b) '(#\a #\b #\x #\y #\z) :TEST #'CHAR<) 1)) EQL-OK: NIL (NOT (EQL (SEARCH #(#\a #\b) '(#\a #\b #\x #\y #\z) :TEST-NOT (COMPLEMENT #'CHAR<)) 1)) EQL-OK: NIL (NOT (EQL (SEARCH #(#\a #\b) '(#\a #\b #\x #\y #\z) :TEST-NOT (COMPLEMENT #'CHAR<) :FROM-END T) 3)) EQL-OK: NIL (NOT (NULL (SEARCH #((A) (B)) '((X) (Y) (Z) (A) (B) (C))))) EQL-OK: NIL (NOT (EQL (SEARCH #((A) (B)) '((X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 3)) EQL-OK: NIL (NOT (EQL (SEARCH #((A) (B)) '((A) (B) (C) (X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #((A) (B)) '((A) (B) (C) (X) (Y) (Z) (A) (B) (C)) :KEY #'CAR :FROM-END T) 6)) EQL-OK: NIL (NOT (EQL (SEARCH #((A A) (B B)) '((A) (B) (C) (X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #((A A) (B B)) '((A NIL) (B T) (C NIL) (X) (Y) (Z) (A 0) (B 1) (C 2)) :KEY #'CAR :FROM-END T) 6)) EQL-OK: NIL (NOT (EQL (SEARCH #(("a" A) ("b" B)) '(("a" NIL) ("b" T) ("c" NIL) ("x") ("y") ("z") ("A" 0) ("B" 1) ("C" 2)) :START1 1 :END1 2 :START2 3 :END2 NIL :KEY #'CAR :TEST #'STRING-EQUAL :FROM-END T) 7)) EQL-OK: NIL (NOT (EQL (SEARCH 'NIL #()) 0)) EQL-OK: NIL (NOT (NULL (SEARCH '(A B C) #(X Y Z)))) EQL-OK: NIL (NOT (EQL (SEARCH 'NIL #(X Y Z)) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '(A) #(A)) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C X Y Z)) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(X A B C Y Z)) 1)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(X Y A B C Z)) 2)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(X Y Z A B C)) 3)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START2 1) 3)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START2 1 :END2 NIL) 3)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 1 :START2 1 :END2 NIL) 1)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 1 :END1 NIL :START2 1 :END2 NIL) 1)) EQL-OK: NIL (NOT (NULL (SEARCH '(A B C) #(A B C A B C) :START2 0 :END2 0))) EQL-OK: NIL (NOT (NULL (SEARCH '(A B C) #(A B C A B C) :START2 1 :END2 1))) EQL-OK: NIL (NOT (NULL (SEARCH '(A B C) #(A B C A B C) :START2 2 :END2 2))) EQL-OK: NIL (NOT (NULL (SEARCH '(A B C) #(A B C A B C) :START2 3 :END2 3))) EQL-OK: NIL (NOT (NULL (SEARCH '(A B C) #(A B C A B C) :START2 4 :END2 4))) EQL-OK: NIL (NOT (NULL (SEARCH '(A B C) #(A B C A B C) :START2 5 :END2 5))) EQL-OK: NIL (NOT (NULL (SEARCH '(A B C) #(A B C A B C) :START2 6 :END2 6))) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C)) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START2 3 :END2 6) 3)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START2 3 :END2 6 :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 0 :END1 2 :START2 0 :END2 6) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 0 :END1 2 :START2 0 :END2 6 :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 0 :END1 0 :START2 0 :END2 0) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 1 :END1 1 :START2 0 :END2 0) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 2 :END1 2 :START2 0 :END2 0) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 3 :END1 3 :START2 0 :END2 0) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 0 :END1 0 :START2 1 :END2 1) 1)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 1 :END1 1 :START2 1 :END2 1) 1)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 2 :END1 2 :START2 1 :END2 1) 1)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 3 :END1 3 :START2 1 :END2 1) 1)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 0 :END1 0 :START2 6 :END2 6) 6)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 1 :END1 1 :START2 6 :END2 6) 6)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 2 :END1 2 :START2 6 :END2 6) 6)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 3 :END1 3 :START2 6 :END2 6) 6)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 0 :END1 0 :START2 0 :END2 0 :FROM-END T) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 1 :END1 1 :START2 0 :END2 0 :FROM-END T) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 2 :END1 2 :START2 0 :END2 0 :FROM-END T) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 3 :END1 3 :START2 0 :END2 0 :FROM-END T) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 0 :END1 0 :START2 1 :END2 1 :FROM-END T) 1)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 1 :END1 1 :START2 1 :END2 1 :FROM-END T) 1)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 2 :END1 2 :START2 1 :END2 1 :FROM-END T) 1)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 3 :END1 3 :START2 1 :END2 1 :FROM-END T) 1)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 0 :END1 0 :START2 6 :END2 6 :FROM-END T) 6)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 1 :END1 1 :START2 6 :END2 6 :FROM-END T) 6)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 2 :END1 2 :START2 6 :END2 6 :FROM-END T) 6)) EQL-OK: NIL (NOT (EQL (SEARCH '(A B C) #(A B C A B C) :START1 3 :END1 3 :START2 6 :END2 6 :FROM-END T) 6)) EQL-OK: NIL (NOT (NULL (SEARCH '(#\a #\b #\c) #(#\A #\B #\C)))) EQL-OK: NIL (NOT (EQL (SEARCH '(#\a #\b #\c) #(#\A #\B #\C) :TEST #'CHAR-EQUAL) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '(#\a #\b #\c) #(#\A #\B #\C) :TEST-NOT (COMPLEMENT #'CHAR-EQUAL)) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '(#\a #\b) #(#\a #\b #\x #\y #\z)) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '(#\a #\b) #(#\a #\b #\x #\y #\z) :TEST #'CHAR<) 1)) EQL-OK: NIL (NOT (EQL (SEARCH '(#\a #\b) #(#\a #\b #\x #\y #\z) :TEST-NOT (COMPLEMENT #'CHAR<)) 1)) EQL-OK: NIL (NOT (EQL (SEARCH '(#\a #\b) #(#\a #\b #\x #\y #\z) :TEST-NOT (COMPLEMENT #'CHAR<) :FROM-END T) 3)) EQL-OK: NIL (NOT (NULL (SEARCH '((A) (B)) #((X) (Y) (Z) (A) (B) (C))))) EQL-OK: NIL (NOT (EQL (SEARCH '((A) (B)) #((X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 3)) EQL-OK: NIL (NOT (EQL (SEARCH '((A) (B)) #((A) (B) (C) (X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '((A) (B)) #((A) (B) (C) (X) (Y) (Z) (A) (B) (C)) :KEY #'CAR :FROM-END T) 6)) EQL-OK: NIL (NOT (EQL (SEARCH '((A A) (B B)) #((A) (B) (C) (X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 0)) EQL-OK: NIL (NOT (EQL (SEARCH '((A A) (B B)) #((A NIL) (B T) (C NIL) (X) (Y) (Z) (A 0) (B 1) (C 2)) :KEY #'CAR :FROM-END T) 6)) EQL-OK: NIL (NOT (EQL (SEARCH '(("a" A) ("b" B)) #(("a" NIL) ("b" T) ("c" NIL) ("x") ("y") ("z") ("A" 0) ("B" 1) ("C" 2)) :START1 1 :END1 2 :START2 3 :END2 NIL :KEY #'CAR :TEST #'STRING-EQUAL :FROM-END T) 7)) EQL-OK: NIL (NOT (EQL (SEARCH #() #()) 0)) EQL-OK: NIL (NOT (NULL (SEARCH #(A B C) #(X Y Z)))) EQL-OK: NIL (NOT (EQL (SEARCH #() #(X Y Z)) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #(A) #(A)) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C X Y Z)) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(X A B C Y Z)) 1)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(X Y A B C Z)) 2)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(X Y Z A B C)) 3)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START2 1) 3)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START2 1 :END2 NIL) 3)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 1 :START2 1 :END2 NIL) 1)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 1 :END1 NIL :START2 1 :END2 NIL) 1)) EQL-OK: NIL (NOT (NULL (SEARCH #(A B C) #(A B C A B C) :START2 0 :END2 0))) EQL-OK: NIL (NOT (NULL (SEARCH #(A B C) #(A B C A B C) :START2 1 :END2 1))) EQL-OK: NIL (NOT (NULL (SEARCH #(A B C) #(A B C A B C) :START2 2 :END2 2))) EQL-OK: NIL (NOT (NULL (SEARCH #(A B C) #(A B C A B C) :START2 3 :END2 3))) EQL-OK: NIL (NOT (NULL (SEARCH #(A B C) #(A B C A B C) :START2 4 :END2 4))) EQL-OK: NIL (NOT (NULL (SEARCH #(A B C) #(A B C A B C) :START2 5 :END2 5))) EQL-OK: NIL (NOT (NULL (SEARCH #(A B C) #(A B C A B C) :START2 6 :END2 6))) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C)) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START2 3 :END2 6) 3)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START2 3 :END2 6 :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 0 :END1 2 :START2 0 :END2 6) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 0 :END1 2 :START2 0 :END2 6 :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 0 :END1 0 :START2 0 :END2 0) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 1 :END1 1 :START2 0 :END2 0) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 2 :END1 2 :START2 0 :END2 0) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 3 :END1 3 :START2 0 :END2 0) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 0 :END1 0 :START2 1 :END2 1) 1)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 1 :END1 1 :START2 1 :END2 1) 1)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 2 :END1 2 :START2 1 :END2 1) 1)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 3 :END1 3 :START2 1 :END2 1) 1)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 0 :END1 0 :START2 6 :END2 6) 6)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 1 :END1 1 :START2 6 :END2 6) 6)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 2 :END1 2 :START2 6 :END2 6) 6)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 3 :END1 3 :START2 6 :END2 6) 6)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 0 :END1 0 :START2 0 :END2 0 :FROM-END T) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 1 :END1 1 :START2 0 :END2 0 :FROM-END T) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 2 :END1 2 :START2 0 :END2 0 :FROM-END T) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 3 :END1 3 :START2 0 :END2 0 :FROM-END T) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 0 :END1 0 :START2 1 :END2 1 :FROM-END T) 1)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 1 :END1 1 :START2 1 :END2 1 :FROM-END T) 1)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 2 :END1 2 :START2 1 :END2 1 :FROM-END T) 1)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 3 :END1 3 :START2 1 :END2 1 :FROM-END T) 1)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 0 :END1 0 :START2 6 :END2 6 :FROM-END T) 6)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 1 :END1 1 :START2 6 :END2 6 :FROM-END T) 6)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 2 :END1 2 :START2 6 :END2 6 :FROM-END T) 6)) EQL-OK: NIL (NOT (EQL (SEARCH #(A B C) #(A B C A B C) :START1 3 :END1 3 :START2 6 :END2 6 :FROM-END T) 6)) EQL-OK: NIL (NOT (NULL (SEARCH #(#\a #\b #\c) #(#\A #\B #\C)))) EQL-OK: NIL (NOT (EQL (SEARCH #(#\a #\b #\c) #(#\A #\B #\C) :TEST #'CHAR-EQUAL) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #(#\a #\b #\c) #(#\A #\B #\C) :TEST-NOT (COMPLEMENT #'CHAR-EQUAL)) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #(#\a #\b) #(#\a #\b #\x #\y #\z)) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #(#\a #\b) #(#\a #\b #\x #\y #\z) :TEST #'CHAR<) 1)) EQL-OK: NIL (NOT (EQL (SEARCH #(#\a #\b) #(#\a #\b #\x #\y #\z) :TEST-NOT (COMPLEMENT #'CHAR<)) 1)) EQL-OK: NIL (NOT (EQL (SEARCH #(#\a #\b) #(#\a #\b #\x #\y #\z) :TEST-NOT (COMPLEMENT #'CHAR<) :FROM-END T) 3)) EQL-OK: NIL (NOT (NULL (SEARCH #((A) (B)) #((X) (Y) (Z) (A) (B) (C))))) EQL-OK: NIL (NOT (EQL (SEARCH #((A) (B)) #((X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 3)) EQL-OK: NIL (NOT (EQL (SEARCH #((A) (B)) #((A) (B) (C) (X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #((A) (B)) #((A) (B) (C) (X) (Y) (Z) (A) (B) (C)) :KEY #'CAR :FROM-END T) 6)) EQL-OK: NIL (NOT (EQL (SEARCH #((A A) (B B)) #((A) (B) (C) (X) (Y) (Z) (A) (B) (C)) :KEY #'CAR) 0)) EQL-OK: NIL (NOT (EQL (SEARCH #((A A) (B B)) #((A NIL) (B T) (C NIL) (X) (Y) (Z) (A 0) (B 1) (C 2)) :KEY #'CAR :FROM-END T) 6)) EQL-OK: NIL (NOT (EQL (SEARCH #(("a" A) ("b" B)) #(("a" NIL) ("b" T) ("c" NIL) ("x") ("y") ("z") ("A" 0) ("B" 1) ("C" 2)) :START1 1 :END1 2 :START2 3 :END2 NIL :KEY #'CAR :TEST #'STRING-EQUAL :FROM-END T) 7)) EQL-OK: NIL (NOT (NULL (SEARCH "peace" "LOVE&PEACE"))) EQL-OK: NIL (NOT (EQL (SEARCH "peace" "LOVE&PEACE" :TEST #'CHAR-EQUAL) 5)) EQL-OK: NIL (NOT (EQL (SEARCH (CONCATENATE 'SIMPLE-VECTOR "peace") (CONCATENATE 'LIST "LOVE&PEACE") :TEST #'CHAR-EQUAL) 5)) EQL-OK: NIL (NOT (EQL (SEARCH (CONCATENATE 'LIST "peace") (CONCATENATE 'VECTOR "LOVE&PEACE") :TEST #'CHAR-EQUAL) 5)) EQL-OK: NIL (NOT (EQL (SEARCH (CONCATENATE 'VECTOR "peace") (CONCATENATE 'VECTOR "LOVE&PEACE") :TEST #'CHAR-EQUAL) 5)) EQL-OK: NIL (NOT (EQL (SEARCH #*10 #*010101) 1)) EQL-OK: NIL (NOT (EQL (SEARCH #*10 #*010101 :FROM-END T) 3)) EQL-OK: NIL (NOT (NULL (SEARCH "PeAcE" "LoVe&pEaCe"))) EQL-OK: NIL (NOT (EQL (SEARCH "PeAcE" "LoVe&pEaCe" :KEY #'CHAR-UPCASE) 5)) EQL-OK: NIL (NOT (EQL (SEARCH "abc" "abc xyz abc" :FROM-END T) 8)) EQL-OK: NIL (NOT (EQL (SEARCH "abc" "abc xyz abc xyz abc xyz abc" :START2 8 :END2 19) 8)) EQL-OK: NIL (NOT (EQL (SEARCH "abc" "abc xyz abc xyz abc xyz abc" :FROM-END T :START2 8 :END2 19) 16)) EQL-OK: NIL (NOT (EQL (MISMATCH "abcd" "ABCDE" :TEST #'CHAR-EQUAL) 4)) EQL-OK: NIL (NOT (EQL (MISMATCH '(3 2 1 1 2 3) '(1 2 3) :FROM-END T) 3)) EQL-OK: NIL (NOT (NULL (MISMATCH '(1 2 3) '(2 3 4) :TEST-NOT #'EQ :KEY #'ODDP))) EQL-OK: NIL (NOT (NULL (MISMATCH '(1 2 3 4 5 6) '(3 4 5 6 7) :START1 2 :END2 4))) EQL-OK: NIL (NOT (NULL (MISMATCH 'NIL 'NIL))) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C) '(X Y Z)) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH 'NIL '(X Y Z)) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z) 'NIL) 0)) EQL-OK: NIL (NOT (NULL (MISMATCH '(A) '(A)))) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C X Y Z) '(A B C)) 3)) EQL-OK: NIL (NOT (NULL (MISMATCH '(A B C) '(A B C)))) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C D E F) '(A B C)) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C) '(A B C D E F)) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C) '(A B X)) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C) '(A X C)) 1)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C) '(X B C)) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z A B C X Y Z) '(A B C) :START1 3) 6)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z A B C X Y Z) '(A B C) :START1 3 :END1 NIL) 6)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z A B C X Y Z) '(A B C) :START1 3 :END1 4) 4)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z A B C X Y Z) '(A B C) :START1 3 :END1 3) 3)) EQL-OK: NIL (NOT (NULL (MISMATCH '(X Y Z) 'NIL :START1 0 :END1 0))) EQL-OK: NIL (NOT (NULL (MISMATCH '(X Y Z) 'NIL :START1 1 :END1 1))) EQL-OK: NIL (NOT (NULL (MISMATCH '(X Y Z) 'NIL :START1 2 :END1 2))) EQL-OK: NIL (NOT (NULL (MISMATCH '(X Y Z) 'NIL :START1 3 :END1 3))) EQL-OK: NIL (NOT (NULL (MISMATCH '(X Y Z) 'NIL :START1 0 :END1 0 :START2 0 :END2 0))) EQL-OK: NIL (NOT (NULL (MISMATCH '(X Y Z) 'NIL :START1 3 :END1 3 :START2 0 :END2 0))) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z) '(A B C) :START1 0 :END1 0) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z) '(A B C) :START1 1 :END1 1) 1)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z) '(A B C) :START1 2 :END1 2) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z) '(A B C) :START1 3 :END1 3) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z) '(X Y Z) :START1 0 :END1 1) 1)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z) '(X Y Z) :START1 0 :END1 2) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z) '(X Y Z Z) :START1 0 :END1 3) 3)) EQL-OK: NIL (NOT (NULL (MISMATCH '(X Y Z) '(X Y Z) :START1 0 :END1 3))) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C X Y Z) '(X Y Z A B C)) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C X Y Z) '(X Y Z A B C) :START1 3) 6)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C X Y Z A B C) '(X Y Z A B C X Y Z) :START1 3) 9)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C X Y Z A B C) '(X Y Z A B C X Y Z) :START1 6) 6)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C X Y Z A B C) '(X Y Z A B C X Y Z) :START1 6 :START2 3) 9)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C X Y Z A B C) '(X Y Z A B C X Y Z) :START1 0 :START2 3) 6)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C) '(A B C X Y Z)) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C) '(X A B C Y Z)) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C) '(X A B C Y Z) :START2 1) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C) '(X A B C Y Z) :START2 1 :END2 NIL) 3)) EQL-OK: NIL (NOT (NULL (MISMATCH '(A B C) '(X A B C Y Z) :START2 1 :END2 4))) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C D E) '(C D)) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C D E) '(C D) :START1 2) 4)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C D E) '(C D) :START1 2 :END1 3) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C D E) '(C D) :START1 2 :START2 1) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C D E) '(C D) :START1 3 :START2 1) 4)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C D E) '(C D) :START1 2 :END2 1) 3)) EQL-OK: NIL (NOT (NULL (MISMATCH '(A B C D) '(A B C D) :START1 1 :END1 2 :START2 1 :END2 2))) EQL-OK: NIL (NOT (NULL (MISMATCH '(A B C D) '(A B C D) :START1 1 :END1 3 :START2 1 :END2 3))) EQL-OK: NIL (NOT (NULL (MISMATCH '(A B C D) '(A B C D) :START1 1 :END1 4 :START2 1 :END2 4))) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C D) '(A B C D) :START1 1 :END1 NIL :START2 1 :END2 1) 1)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C D) '(A B C D) :START1 1 :END1 NIL :START2 1 :END2 2) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C D) '(A B C D) :START1 1 :END1 NIL :START2 1 :END2 3) 3)) EQL-OK: NIL (NOT (NULL (MISMATCH '(A B C D) '(A B C D) :START1 1 :END1 NIL :START2 1 :END2 4))) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C D) '(A B C D) :START1 1 :END1 1 :START2 1) 1)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C D) '(A B C D) :START1 1 :END1 2 :START2 1) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C D) '(A B C D) :START1 1 :END1 3 :START2 1) 3)) EQL-OK: NIL (NOT (NULL (MISMATCH '(A B C D) '(A B C D) :START1 1 :END1 4 :START2 1))) EQL-OK: NIL (NOT (NULL (MISMATCH '(A B C) '(A B C) :FROM-END T))) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C D) '(A B C) :FROM-END T) 4)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C) '(C) :FROM-END T) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C) '(Z A B C) :FROM-END T) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C) '(X Y Z A B C) :FROM-END T) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z A B C) '(A B C) :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z A B C) '(A B C) :END1 3 :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z A B C) '(A B C) :END1 5 :FROM-END T) 5)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z A B C X Y Z) '(A B C) :END1 6 :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z A B C X Y Z) '(A B C) :START1 2 :END1 6 :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z A B C X Y Z) '(A B C) :FROM-END T :START1 2 :END1 5 :START2 1 :END2 2) 4)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z A B C X Y Z) '(A B C) :START1 2 :END1 5 :START2 1 :END2 2) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH '((A) (B) (C)) '((A) (B) (C))) 0)) EQL-OK: NIL (NOT (NULL (MISMATCH '((A) (B) (C)) '((A) (B) (C)) :KEY #'CAR))) EQL-OK: NIL (NOT (NULL (MISMATCH '((A) (B) (C)) '((A) (B) (C)) :TEST #'EQUAL))) EQL-OK: NIL (NOT (EQL (MISMATCH '(#(A) #(B) #(C)) '(#(A) #(B) #(C))) 0)) EQL-OK: NIL (NOT (NULL (MISMATCH '(#(A) #(B) #(C)) '(#(A) #(B) #(C)) :TEST #'EQUALP))) EQL-OK: NIL (NOT (EQL (MISMATCH '((A) (B) (C) (D)) '((A) (B) (C)) :KEY #'CAR) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH '((A) (B) (C)) '((A) (B) (C) (D)) :KEY #'CAR) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH '(#\a #\b #\c) '(#\A #\B #\C)) 0)) EQL-OK: NIL (NOT (NULL (MISMATCH '(#\a #\b #\c) '(#\A #\B #\C) :KEY #'CHAR-UPCASE))) EQL-OK: NIL (NOT (NULL (MISMATCH '(#\a #\b #\c) '(#\A #\B #\C) :KEY #'CHAR-DOWNCASE))) EQL-OK: NIL (NOT (NULL (MISMATCH '(#\a #\b #\c) '(#\A #\B #\C) :KEY #'CHAR-UPCASE :START1 1 :END1 2 :START2 1 :END2 2))) EQL-OK: NIL (NOT (NULL (MISMATCH '(#\a #\b #\c) '(#\A #\B #\C) :KEY #'CHAR-UPCASE :START1 2 :START2 2))) EQL-OK: NIL (NOT (EQL (MISMATCH '((A B C) (B C D) (D E F)) '((B B C) (C C D) (E E F))) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH '((A B C) (B C D) (D E F)) '((B B C) (C C D) (E E F)) :KEY #'CDR) 0)) EQL-OK: NIL (NOT (NULL (MISMATCH '((A B C) (B C D) (D E F)) '((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL))) EQL-OK: NIL (NOT (EQL (MISMATCH '((A B C) (B C D) (D E F) (E F G)) '((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH '((A B C) (B C D) (D E F) (E F G)) '((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T) 4)) EQL-OK: NIL (NOT (EQL (MISMATCH '((A A A) (A B C) (B C D) (D E F)) '((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T) 1)) EQL-OK: NIL (NOT (NULL (MISMATCH '((A A A) (A B C) (B C D) (D E F) (E F G)) '((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T :START1 1 :END1 4))) EQL-OK: NIL (NOT (EQL (MISMATCH '((A A A) (A B C) (B C D) (D E F) (E F G)) '((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T :START1 1) 5)) EQL-OK: NIL (NOT (EQL (MISMATCH '((A A A) (A B C) (B C D) (D E F) (E F G)) '((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T :END1 3 :START2 1 :END2 2) 2)) EQL-OK: NIL (NOT (NULL (MISMATCH #() 'NIL))) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C) '(X Y Z)) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH #() '(X Y Z)) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z) 'NIL) 0)) EQL-OK: NIL (NOT (NULL (MISMATCH #(A) '(A)))) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C X Y Z) '(A B C)) 3)) EQL-OK: NIL (NOT (NULL (MISMATCH #(A B C) '(A B C)))) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C D E F) '(A B C)) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C) '(A B C D E F)) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C) '(A B X)) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C) '(A X C)) 1)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C) '(X B C)) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z A B C X Y Z) '(A B C) :START1 3) 6)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z A B C X Y Z) '(A B C) :START1 3 :END1 NIL) 6)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z A B C X Y Z) '(A B C) :START1 3 :END1 4) 4)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z A B C X Y Z) '(A B C) :START1 3 :END1 3) 3)) EQL-OK: NIL (NOT (NULL (MISMATCH #(X Y Z) 'NIL :START1 0 :END1 0))) EQL-OK: NIL (NOT (NULL (MISMATCH #(X Y Z) 'NIL :START1 1 :END1 1))) EQL-OK: NIL (NOT (NULL (MISMATCH #(X Y Z) 'NIL :START1 2 :END1 2))) EQL-OK: NIL (NOT (NULL (MISMATCH #(X Y Z) 'NIL :START1 3 :END1 3))) EQL-OK: NIL (NOT (NULL (MISMATCH #(X Y Z) 'NIL :START1 0 :END1 0 :START2 0 :END2 0))) EQL-OK: NIL (NOT (NULL (MISMATCH #(X Y Z) 'NIL :START1 3 :END1 3 :START2 0 :END2 0))) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z) '(A B C) :START1 0 :END1 0) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z) '(A B C) :START1 1 :END1 1) 1)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z) '(A B C) :START1 2 :END1 2) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z) '(A B C) :START1 3 :END1 3) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z) '(X Y Z) :START1 0 :END1 1) 1)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z) '(X Y Z) :START1 0 :END1 2) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z) '(X Y Z Z) :START1 0 :END1 3) 3)) EQL-OK: NIL (NOT (NULL (MISMATCH #(X Y Z) '(X Y Z) :START1 0 :END1 3))) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C X Y Z) '(X Y Z A B C)) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C X Y Z) '(X Y Z A B C) :START1 3) 6)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C X Y Z A B C) '(X Y Z A B C X Y Z) :START1 3) 9)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C X Y Z A B C) '(X Y Z A B C X Y Z) :START1 6) 6)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C X Y Z A B C) '(X Y Z A B C X Y Z) :START1 6 :START2 3) 9)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C X Y Z A B C) '(X Y Z A B C X Y Z) :START1 0 :START2 3) 6)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C) '(A B C X Y Z)) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C) '(X A B C Y Z)) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C) '(X A B C Y Z) :START2 1) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C) '(X A B C Y Z) :START2 1 :END2 NIL) 3)) EQL-OK: NIL (NOT (NULL (MISMATCH #(A B C) '(X A B C Y Z) :START2 1 :END2 4))) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C D E) '(C D)) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C D E) '(C D) :START1 2) 4)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C D E) '(C D) :START1 2 :END1 3) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C D E) '(C D) :START1 2 :START2 1) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C D E) '(C D) :START1 3 :START2 1) 4)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C D E) '(C D) :START1 2 :END2 1) 3)) EQL-OK: NIL (NOT (NULL (MISMATCH #(A B C D) '(A B C D) :START1 1 :END1 2 :START2 1 :END2 2))) EQL-OK: NIL (NOT (NULL (MISMATCH #(A B C D) '(A B C D) :START1 1 :END1 3 :START2 1 :END2 3))) EQL-OK: NIL (NOT (NULL (MISMATCH #(A B C D) '(A B C D) :START1 1 :END1 4 :START2 1 :END2 4))) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C D) '(A B C D) :START1 1 :END1 NIL :START2 1 :END2 1) 1)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C D) '(A B C D) :START1 1 :END1 NIL :START2 1 :END2 2) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C D) '(A B C D) :START1 1 :END1 NIL :START2 1 :END2 3) 3)) EQL-OK: NIL (NOT (NULL (MISMATCH #(A B C D) '(A B C D) :START1 1 :END1 NIL :START2 1 :END2 4))) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C D) '(A B C D) :START1 1 :END1 1 :START2 1) 1)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C D) '(A B C D) :START1 1 :END1 2 :START2 1) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C D) '(A B C D) :START1 1 :END1 3 :START2 1) 3)) EQL-OK: NIL (NOT (NULL (MISMATCH #(A B C D) '(A B C D) :START1 1 :END1 4 :START2 1))) EQL-OK: NIL (NOT (NULL (MISMATCH #(A B C) '(A B C) :FROM-END T))) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C D) '(A B C) :FROM-END T) 4)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C) '(C) :FROM-END T) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C) '(Z A B C) :FROM-END T) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C) '(X Y Z A B C) :FROM-END T) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z A B C) '(A B C) :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z A B C) '(A B C) :END1 3 :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z A B C) '(A B C) :END1 5 :FROM-END T) 5)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z A B C X Y Z) '(A B C) :END1 6 :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z A B C X Y Z) '(A B C) :START1 2 :END1 6 :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z A B C X Y Z) '(A B C) :FROM-END T :START1 2 :END1 5 :START2 1 :END2 2) 4)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z A B C X Y Z) '(A B C) :START1 2 :END1 5 :START2 1 :END2 2) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH #((A) (B) (C)) '((A) (B) (C))) 0)) EQL-OK: NIL (NOT (NULL (MISMATCH #((A) (B) (C)) '((A) (B) (C)) :KEY #'CAR))) EQL-OK: NIL (NOT (NULL (MISMATCH #((A) (B) (C)) '((A) (B) (C)) :TEST #'EQUAL))) EQL-OK: NIL (NOT (EQL (MISMATCH #(#(A) #(B) #(C)) '(#(A) #(B) #(C))) 0)) EQL-OK: NIL (NOT (NULL (MISMATCH #(#(A) #(B) #(C)) '(#(A) #(B) #(C)) :TEST #'EQUALP))) EQL-OK: NIL (NOT (EQL (MISMATCH #((A) (B) (C) (D)) '((A) (B) (C)) :KEY #'CAR) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH #((A) (B) (C)) '((A) (B) (C) (D)) :KEY #'CAR) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH #(#\a #\b #\c) '(#\A #\B #\C)) 0)) EQL-OK: NIL (NOT (NULL (MISMATCH #(#\a #\b #\c) '(#\A #\B #\C) :KEY #'CHAR-UPCASE))) EQL-OK: NIL (NOT (NULL (MISMATCH #(#\a #\b #\c) '(#\A #\B #\C) :KEY #'CHAR-DOWNCASE))) EQL-OK: NIL (NOT (NULL (MISMATCH #(#\a #\b #\c) '(#\A #\B #\C) :KEY #'CHAR-UPCASE :START1 1 :END1 2 :START2 1 :END2 2))) EQL-OK: NIL (NOT (NULL (MISMATCH #(#\a #\b #\c) '(#\A #\B #\C) :KEY #'CHAR-UPCASE :START1 2 :START2 2))) EQL-OK: NIL (NOT (EQL (MISMATCH #((A B C) (B C D) (D E F)) '((B B C) (C C D) (E E F))) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH #((A B C) (B C D) (D E F)) '((B B C) (C C D) (E E F)) :KEY #'CDR) 0)) EQL-OK: NIL (NOT (NULL (MISMATCH #((A B C) (B C D) (D E F)) '((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL))) EQL-OK: NIL (NOT (EQL (MISMATCH #((A B C) (B C D) (D E F) (E F G)) '((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH #((A B C) (B C D) (D E F) (E F G)) '((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T) 4)) EQL-OK: NIL (NOT (EQL (MISMATCH #((A A A) (A B C) (B C D) (D E F)) '((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T) 1)) EQL-OK: NIL (NOT (NULL (MISMATCH #((A A A) (A B C) (B C D) (D E F) (E F G)) '((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T :START1 1 :END1 4))) EQL-OK: NIL (NOT (EQL (MISMATCH #((A A A) (A B C) (B C D) (D E F) (E F G)) '((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T :START1 1) 5)) EQL-OK: NIL (NOT (EQL (MISMATCH #((A A A) (A B C) (B C D) (D E F) (E F G)) '((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T :END1 3 :START2 1 :END2 2) 2)) EQL-OK: NIL (NOT (NULL (MISMATCH 'NIL #()))) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C) #(X Y Z)) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH 'NIL #(X Y Z)) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z) #()) 0)) EQL-OK: NIL (NOT (NULL (MISMATCH '(A) #(A)))) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C X Y Z) #(A B C)) 3)) EQL-OK: NIL (NOT (NULL (MISMATCH '(A B C) #(A B C)))) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C D E F) #(A B C)) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C) #(A B C D E F)) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C) #(A B X)) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C) #(A X C)) 1)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C) #(X B C)) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z A B C X Y Z) #(A B C) :START1 3) 6)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z A B C X Y Z) #(A B C) :START1 3 :END1 NIL) 6)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z A B C X Y Z) #(A B C) :START1 3 :END1 4) 4)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z A B C X Y Z) #(A B C) :START1 3 :END1 3) 3)) EQL-OK: NIL (NOT (NULL (MISMATCH '(X Y Z) #() :START1 0 :END1 0))) EQL-OK: NIL (NOT (NULL (MISMATCH '(X Y Z) #() :START1 1 :END1 1))) EQL-OK: NIL (NOT (NULL (MISMATCH '(X Y Z) #() :START1 2 :END1 2))) EQL-OK: NIL (NOT (NULL (MISMATCH '(X Y Z) #() :START1 3 :END1 3))) EQL-OK: NIL (NOT (NULL (MISMATCH '(X Y Z) #() :START1 0 :END1 0 :START2 0 :END2 0))) EQL-OK: NIL (NOT (NULL (MISMATCH '(X Y Z) #() :START1 3 :END1 3 :START2 0 :END2 0))) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z) #(A B C) :START1 0 :END1 0) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z) #(A B C) :START1 1 :END1 1) 1)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z) #(A B C) :START1 2 :END1 2) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z) #(A B C) :START1 3 :END1 3) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z) #(X Y Z) :START1 0 :END1 1) 1)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z) #(X Y Z) :START1 0 :END1 2) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z) #(X Y Z Z) :START1 0 :END1 3) 3)) EQL-OK: NIL (NOT (NULL (MISMATCH '(X Y Z) #(X Y Z) :START1 0 :END1 3))) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C X Y Z) #(X Y Z A B C)) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C X Y Z) #(X Y Z A B C) :START1 3) 6)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C X Y Z A B C) #(X Y Z A B C X Y Z) :START1 3) 9)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C X Y Z A B C) #(X Y Z A B C X Y Z) :START1 6) 6)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C X Y Z A B C) #(X Y Z A B C X Y Z) :START1 6 :START2 3) 9)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C X Y Z A B C) #(X Y Z A B C X Y Z) :START1 0 :START2 3) 6)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C) #(A B C X Y Z)) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C) #(X A B C Y Z)) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C) #(X A B C Y Z) :START2 1) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C) #(X A B C Y Z) :START2 1 :END2 NIL) 3)) EQL-OK: NIL (NOT (NULL (MISMATCH '(A B C) #(X A B C Y Z) :START2 1 :END2 4))) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C D E) #(C D)) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C D E) #(C D) :START1 2) 4)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C D E) #(C D) :START1 2 :END1 3) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C D E) #(C D) :START1 2 :START2 1) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C D E) #(C D) :START1 3 :START2 1) 4)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C D E) #(C D) :START1 2 :END2 1) 3)) EQL-OK: NIL (NOT (NULL (MISMATCH '(A B C D) #(A B C D) :START1 1 :END1 2 :START2 1 :END2 2))) EQL-OK: NIL (NOT (NULL (MISMATCH '(A B C D) #(A B C D) :START1 1 :END1 3 :START2 1 :END2 3))) EQL-OK: NIL (NOT (NULL (MISMATCH '(A B C D) #(A B C D) :START1 1 :END1 4 :START2 1 :END2 4))) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C D) #(A B C D) :START1 1 :END1 NIL :START2 1 :END2 1) 1)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C D) #(A B C D) :START1 1 :END1 NIL :START2 1 :END2 2) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C D) #(A B C D) :START1 1 :END1 NIL :START2 1 :END2 3) 3)) EQL-OK: NIL (NOT (NULL (MISMATCH '(A B C D) #(A B C D) :START1 1 :END1 NIL :START2 1 :END2 4))) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C D) #(A B C D) :START1 1 :END1 1 :START2 1) 1)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C D) #(A B C D) :START1 1 :END1 2 :START2 1) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C D) #(A B C D) :START1 1 :END1 3 :START2 1) 3)) EQL-OK: NIL (NOT (NULL (MISMATCH '(A B C D) #(A B C D) :START1 1 :END1 4 :START2 1))) EQL-OK: NIL (NOT (NULL (MISMATCH '(A B C) #(A B C) :FROM-END T))) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C D) #(A B C) :FROM-END T) 4)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C) #(C) :FROM-END T) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C) #(Z A B C) :FROM-END T) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH '(A B C) #(X Y Z A B C) :FROM-END T) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z A B C) #(A B C) :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z A B C) #(A B C) :END1 3 :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z A B C) #(A B C) :END1 5 :FROM-END T) 5)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z A B C X Y Z) #(A B C) :END1 6 :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z A B C X Y Z) #(A B C) :START1 2 :END1 6 :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z A B C X Y Z) #(A B C) :FROM-END T :START1 2 :END1 5 :START2 1 :END2 2) 4)) EQL-OK: NIL (NOT (EQL (MISMATCH '(X Y Z A B C X Y Z) #(A B C) :START1 2 :END1 5 :START2 1 :END2 2) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH '((A) (B) (C)) #((A) (B) (C))) 0)) EQL-OK: NIL (NOT (NULL (MISMATCH '((A) (B) (C)) #((A) (B) (C)) :KEY #'CAR))) EQL-OK: NIL (NOT (NULL (MISMATCH '((A) (B) (C)) #((A) (B) (C)) :TEST #'EQUAL))) EQL-OK: NIL (NOT (EQL (MISMATCH '(#(A) #(B) #(C)) #(#(A) #(B) #(C))) 0)) EQL-OK: NIL (NOT (NULL (MISMATCH '(#(A) #(B) #(C)) #(#(A) #(B) #(C)) :TEST #'EQUALP))) EQL-OK: NIL (NOT (EQL (MISMATCH '((A) (B) (C) (D)) #((A) (B) (C)) :KEY #'CAR) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH '((A) (B) (C)) #((A) (B) (C) (D)) :KEY #'CAR) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH '(#\a #\b #\c) #(#\A #\B #\C)) 0)) EQL-OK: NIL (NOT (NULL (MISMATCH '(#\a #\b #\c) #(#\A #\B #\C) :KEY #'CHAR-UPCASE))) EQL-OK: NIL (NOT (NULL (MISMATCH '(#\a #\b #\c) #(#\A #\B #\C) :KEY #'CHAR-DOWNCASE))) EQL-OK: NIL (NOT (NULL (MISMATCH '(#\a #\b #\c) #(#\A #\B #\C) :KEY #'CHAR-UPCASE :START1 1 :END1 2 :START2 1 :END2 2))) EQL-OK: NIL (NOT (NULL (MISMATCH '(#\a #\b #\c) #(#\A #\B #\C) :KEY #'CHAR-UPCASE :START1 2 :START2 2))) EQL-OK: NIL (NOT (EQL (MISMATCH '((A B C) (B C D) (D E F)) #((B B C) (C C D) (E E F))) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH '((A B C) (B C D) (D E F)) #((B B C) (C C D) (E E F)) :KEY #'CDR) 0)) EQL-OK: NIL (NOT (NULL (MISMATCH '((A B C) (B C D) (D E F)) #((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL))) EQL-OK: NIL (NOT (EQL (MISMATCH '((A B C) (B C D) (D E F) (E F G)) #((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH '((A B C) (B C D) (D E F) (E F G)) #((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T) 4)) EQL-OK: NIL (NOT (EQL (MISMATCH '((A A A) (A B C) (B C D) (D E F)) #((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T) 1)) EQL-OK: NIL (NOT (NULL (MISMATCH '((A A A) (A B C) (B C D) (D E F) (E F G)) #((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T :START1 1 :END1 4))) EQL-OK: NIL (NOT (EQL (MISMATCH '((A A A) (A B C) (B C D) (D E F) (E F G)) #((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T :START1 1) 5)) EQL-OK: NIL (NOT (EQL (MISMATCH '((A A A) (A B C) (B C D) (D E F) (E F G)) #((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T :END1 3 :START2 1 :END2 2) 2)) EQL-OK: NIL (NOT (NULL (MISMATCH #() #()))) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C) #(X Y Z)) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH #() #(X Y Z)) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z) #()) 0)) EQL-OK: NIL (NOT (NULL (MISMATCH #(A) #(A)))) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C X Y Z) #(A B C)) 3)) EQL-OK: NIL (NOT (NULL (MISMATCH #(A B C) #(A B C)))) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C D E F) #(A B C)) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C) #(A B C D E F)) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C) #(A B X)) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C) #(A X C)) 1)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C) #(X B C)) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z A B C X Y Z) #(A B C) :START1 3) 6)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z A B C X Y Z) #(A B C) :START1 3 :END1 NIL) 6)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z A B C X Y Z) #(A B C) :START1 3 :END1 4) 4)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z A B C X Y Z) #(A B C) :START1 3 :END1 3) 3)) EQL-OK: NIL (NOT (NULL (MISMATCH #(X Y Z) #() :START1 0 :END1 0))) EQL-OK: NIL (NOT (NULL (MISMATCH #(X Y Z) #() :START1 1 :END1 1))) EQL-OK: NIL (NOT (NULL (MISMATCH #(X Y Z) #() :START1 2 :END1 2))) EQL-OK: NIL (NOT (NULL (MISMATCH #(X Y Z) #() :START1 3 :END1 3))) EQL-OK: NIL (NOT (NULL (MISMATCH #(X Y Z) #() :START1 0 :END1 0 :START2 0 :END2 0))) EQL-OK: NIL (NOT (NULL (MISMATCH #(X Y Z) #() :START1 3 :END1 3 :START2 0 :END2 0))) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z) #(A B C) :START1 0 :END1 0) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z) #(A B C) :START1 1 :END1 1) 1)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z) #(A B C) :START1 2 :END1 2) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z) #(A B C) :START1 3 :END1 3) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z) #(X Y Z) :START1 0 :END1 1) 1)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z) #(X Y Z) :START1 0 :END1 2) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z) #(X Y Z Z) :START1 0 :END1 3) 3)) EQL-OK: NIL (NOT (NULL (MISMATCH #(X Y Z) #(X Y Z) :START1 0 :END1 3))) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C X Y Z) #(X Y Z A B C)) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C X Y Z) #(X Y Z A B C) :START1 3) 6)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C X Y Z A B C) #(X Y Z A B C X Y Z) :START1 3) 9)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C X Y Z A B C) #(X Y Z A B C X Y Z) :START1 6) 6)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C X Y Z A B C) #(X Y Z A B C X Y Z) :START1 6 :START2 3) 9)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C X Y Z A B C) #(X Y Z A B C X Y Z) :START1 0 :START2 3) 6)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C) #(A B C X Y Z)) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C) #(X A B C Y Z)) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C) #(X A B C Y Z) :START2 1) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C) #(X A B C Y Z) :START2 1 :END2 NIL) 3)) EQL-OK: NIL (NOT (NULL (MISMATCH #(A B C) #(X A B C Y Z) :START2 1 :END2 4))) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C D E) #(C D)) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C D E) #(C D) :START1 2) 4)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C D E) #(C D) :START1 2 :END1 3) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C D E) #(C D) :START1 2 :START2 1) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C D E) #(C D) :START1 3 :START2 1) 4)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C D E) #(C D) :START1 2 :END2 1) 3)) EQL-OK: NIL (NOT (NULL (MISMATCH #(A B C D) #(A B C D) :START1 1 :END1 2 :START2 1 :END2 2))) EQL-OK: NIL (NOT (NULL (MISMATCH #(A B C D) #(A B C D) :START1 1 :END1 3 :START2 1 :END2 3))) EQL-OK: NIL (NOT (NULL (MISMATCH #(A B C D) #(A B C D) :START1 1 :END1 4 :START2 1 :END2 4))) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C D) #(A B C D) :START1 1 :END1 NIL :START2 1 :END2 1) 1)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C D) #(A B C D) :START1 1 :END1 NIL :START2 1 :END2 2) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C D) #(A B C D) :START1 1 :END1 NIL :START2 1 :END2 3) 3)) EQL-OK: NIL (NOT (NULL (MISMATCH #(A B C D) #(A B C D) :START1 1 :END1 NIL :START2 1 :END2 4))) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C D) #(A B C D) :START1 1 :END1 1 :START2 1) 1)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C D) #(A B C D) :START1 1 :END1 2 :START2 1) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C D) #(A B C D) :START1 1 :END1 3 :START2 1) 3)) EQL-OK: NIL (NOT (NULL (MISMATCH #(A B C D) #(A B C D) :START1 1 :END1 4 :START2 1))) EQL-OK: NIL (NOT (NULL (MISMATCH #(A B C) #(A B C) :FROM-END T))) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C D) #(A B C) :FROM-END T) 4)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C) #(C) :FROM-END T) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C) #(Z A B C) :FROM-END T) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH #(A B C) #(X Y Z A B C) :FROM-END T) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z A B C) #(A B C) :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z A B C) #(A B C) :END1 3 :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z A B C) #(A B C) :END1 5 :FROM-END T) 5)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z A B C X Y Z) #(A B C) :END1 6 :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z A B C X Y Z) #(A B C) :START1 2 :END1 6 :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z A B C X Y Z) #(A B C) :FROM-END T :START1 2 :END1 5 :START2 1 :END2 2) 4)) EQL-OK: NIL (NOT (EQL (MISMATCH #(X Y Z A B C X Y Z) #(A B C) :START1 2 :END1 5 :START2 1 :END2 2) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH #((A) (B) (C)) #((A) (B) (C))) 0)) EQL-OK: NIL (NOT (NULL (MISMATCH #((A) (B) (C)) #((A) (B) (C)) :KEY #'CAR))) EQL-OK: NIL (NOT (NULL (MISMATCH #((A) (B) (C)) #((A) (B) (C)) :TEST #'EQUAL))) EQL-OK: NIL (NOT (EQL (MISMATCH #(#(A) #(B) #(C)) #(#(A) #(B) #(C))) 0)) EQL-OK: NIL (NOT (NULL (MISMATCH #(#(A) #(B) #(C)) #(#(A) #(B) #(C)) :TEST #'EQUALP))) EQL-OK: NIL (NOT (EQL (MISMATCH #((A) (B) (C) (D)) #((A) (B) (C)) :KEY #'CAR) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH #((A) (B) (C)) #((A) (B) (C) (D)) :KEY #'CAR) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH #(#\a #\b #\c) #(#\A #\B #\C)) 0)) EQL-OK: NIL (NOT (NULL (MISMATCH #(#\a #\b #\c) #(#\A #\B #\C) :KEY #'CHAR-UPCASE))) EQL-OK: NIL (NOT (NULL (MISMATCH #(#\a #\b #\c) #(#\A #\B #\C) :KEY #'CHAR-DOWNCASE))) EQL-OK: NIL (NOT (NULL (MISMATCH #(#\a #\b #\c) #(#\A #\B #\C) :KEY #'CHAR-UPCASE :START1 1 :END1 2 :START2 1 :END2 2))) EQL-OK: NIL (NOT (NULL (MISMATCH #(#\a #\b #\c) #(#\A #\B #\C) :KEY #'CHAR-UPCASE :START1 2 :START2 2))) EQL-OK: NIL (NOT (EQL (MISMATCH #((A B C) (B C D) (D E F)) #((B B C) (C C D) (E E F))) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH #((A B C) (B C D) (D E F)) #((B B C) (C C D) (E E F)) :KEY #'CDR) 0)) EQL-OK: NIL (NOT (NULL (MISMATCH #((A B C) (B C D) (D E F)) #((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL))) EQL-OK: NIL (NOT (EQL (MISMATCH #((A B C) (B C D) (D E F) (E F G)) #((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH #((A B C) (B C D) (D E F) (E F G)) #((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T) 4)) EQL-OK: NIL (NOT (EQL (MISMATCH #((A A A) (A B C) (B C D) (D E F)) #((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T) 1)) EQL-OK: NIL (NOT (NULL (MISMATCH #((A A A) (A B C) (B C D) (D E F) (E F G)) #((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T :START1 1 :END1 4))) EQL-OK: NIL (NOT (EQL (MISMATCH #((A A A) (A B C) (B C D) (D E F) (E F G)) #((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T :START1 1) 5)) EQL-OK: NIL (NOT (EQL (MISMATCH #((A A A) (A B C) (B C D) (D E F) (E F G)) #((B B C) (C C D) (E E F)) :KEY #'CDR :TEST #'EQUAL :FROM-END T :END1 3 :START2 1 :END2 2) 2)) EQL-OK: NIL (NOT (EQL (MISMATCH "abc" "xyz") 0)) EQL-OK: NIL (NOT (NULL (MISMATCH "" ""))) EQL-OK: NIL (NOT (NULL (MISMATCH "a" "a"))) EQL-OK: NIL (NOT (NULL (MISMATCH "abc" "abc"))) EQL-OK: NIL (NOT (NULL (MISMATCH "abc" "ABC" :KEY #'CHAR-DOWNCASE))) EQL-OK: NIL (NOT (NULL (MISMATCH "abc" "ABC" :TEST #'CHAR-EQUAL))) EQL-OK: NIL (NOT (EQL (MISMATCH "abcde" "abc") 3)) EQL-OK: NIL (NOT (EQL (MISMATCH "abc" "abcde") 3)) EQL-OK: NIL (NOT (EQL (MISMATCH "abc" "abxyz") 2)) EQL-OK: NIL (NOT (EQL (MISMATCH "abcde" "abx") 2)) EQL-OK: NIL (NOT (NULL (MISMATCH "abc" "abc" :FROM-END T))) EQL-OK: NIL (NOT (EQL (MISMATCH "abcxyz" "xyzxyz" :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH "abcxyz" "xyz" :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH "xyz" "abcxyz" :FROM-END T) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH "ayz" "abcxyz" :FROM-END T) 1)) EQL-OK: NIL (NOT (NULL (MISMATCH "abc" "xyz" :TEST #'CHAR<))) EQL-OK: NIL (NOT (EQL (MISMATCH "abc" "xyz" :TEST #'CHAR>) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH "abcxyz" "abcdefg") 3)) EQL-OK: NIL (NOT (EQL (MISMATCH "1xyz" "22xyz" :FROM-END T) 1)) EQL-OK: NIL (NOT (NULL (MISMATCH #*010101 #*010101))) EQL-OK: NIL (NOT (EQL (MISMATCH #*010 #*101) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH #*010 #*101 :FROM-END T) 3)) EQL-OK: NIL (NOT (EQL (MISMATCH #*0101 #*010101) 4)) EQL-OK: NIL (NOT (EQL (MISMATCH #*010101 #*0101) 4)) EQL-OK: NIL (NOT (EQL (MISMATCH #*010100 #*010111) 4)) EQL-OK: NIL (NOT (NULL (MISMATCH #*0101 #*0101 :FROM-END T))) EQL-OK: NIL (NOT (EQL (MISMATCH #*00101 #*0101 :FROM-END T) 1)) EQL-OK: NIL (NOT (EQL (MISMATCH #*0101 #*00101 :FROM-END T) 0)) EQL-OK: NIL (NOT (EQL (MISMATCH #*00101 #*10101 :FROM-END T) 1)) EQL-OK: NIL (NOT (EQUAL (REPLACE "abcdefghij" "0123456789" :START1 4 :END1 7 :START2 4) "abcd456hij")) EQL-OK: NIL (NOT (LET ((LST (COPY-SEQ "012345678"))) (AND (EQUAL (REPLACE LST LST :START1 2 :START2 0) "010123456") (EQUAL LST "010123456")))) EQL-OK: NIL (NOT (LET* ((LIST0 (LIST 'A 'B 'C 'D 'E)) (LIST (REPLACE LIST0 '(X Y Z)))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(X Y Z D E))))) EQL-OK: NIL (NOT (LET* ((LIST0 (LIST 'A 'B 'C 'D 'E)) (LIST (REPLACE LIST0 '(X Y Z) :START1 1))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(A X Y Z E))))) EQL-OK: NIL (NOT (LET* ((LIST0 (LIST 'A 'B 'C 'D 'E)) (LIST (REPLACE LIST0 '(X Y Z) :START1 1 :END1 NIL))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(A X Y Z E))))) EQL-OK: NIL (NOT (LET* ((LIST0 (LIST 'A 'B 'C 'D 'E)) (LIST (REPLACE LIST0 '(X Y Z) :START1 1 :START2 1))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(A Y Z D E))))) EQL-OK: NIL (NOT (LET* ((LIST0 (LIST 'A 'B 'C 'D 'E)) (LIST (REPLACE LIST0 '(X Y Z) :START1 1 :START2 1 :END2 NIL))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(A Y Z D E))))) EQL-OK: NIL (NOT (LET* ((LIST0 (LIST 'A 'B 'C 'D 'E)) (LIST (REPLACE LIST0 '(X Y Z) :START1 1 :END1 NIL :START2 1 :END2 NIL))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(A Y Z D E))))) EQL-OK: NIL (NOT (LET* ((LIST0 (LIST 'A 'B 'C 'D 'E)) (LIST (REPLACE LIST0 '(X Y Z) :START1 1 :END1 2 :START2 1))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(A Y C D E))))) EQL-OK: NIL (NOT (LET* ((LIST0 (LIST 'A 'B 'C 'D 'E)) (LIST (REPLACE LIST0 '(X Y Z) :START1 1 :END1 1))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(A B C D E))))) EQL-OK: NIL (NOT (LET* ((LIST0 (LIST 'A 'B 'C 'D 'E)) (LIST (REPLACE LIST0 '(X Y Z) :START1 2 :END1 2))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(A B C D E))))) EQL-OK: NIL (NOT (LET* ((LIST0 (LIST 'A 'B 'C 'D 'E)) (LIST (REPLACE LIST0 '(X Y Z) :START1 3 :END1 3))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(A B C D E))))) EQL-OK: NIL (NOT (LET* ((LIST0 (LIST 'A 'B 'C 'D 'E)) (LIST (REPLACE LIST0 '(X Y Z) :START1 4 :END1 4))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(A B C D E))))) EQL-OK: NIL (NOT (LET* ((LIST0 (LIST 'A 'B 'C 'D 'E)) (LIST (REPLACE LIST0 '(X Y Z) :START1 5 :END1 5))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(A B C D E))))) EQL-OK: NIL (NOT (NULL (REPLACE NIL NIL))) EQL-OK: NIL (NOT (NULL (REPLACE NIL '(A B C)))) EQL-OK: NIL (NOT (LET* ((LIST0 (LIST 'A 'B 'C)) (LIST (REPLACE LIST0 'NIL))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(A B C))))) EQL-OK: NIL (NOT (LET* ((LIST0 (LIST 'A 'B 'C 'D 'E)) (LIST (REPLACE LIST0 LIST0))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(A B C D E))))) EQL-OK: NIL (NOT (LET* ((LIST0 (LIST 'A 'B 'C 'D 'E)) (LIST (REPLACE LIST0 LIST0 :START1 3))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(A B C A B))))) EQL-OK: NIL (NOT (LET* ((LIST0 (LIST 'A 'B 'C 'D 'E)) (LIST (REPLACE LIST0 LIST0 :START1 1))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(A A B C D))))) EQL-OK: NIL (NOT (LET* ((LIST0 (LIST 'A 'B 'C 'D 'E)) (LIST (REPLACE LIST0 LIST0 :START1 1 :END1 3))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(A A B D E))))) EQL-OK: NIL (NOT (LET* ((LIST0 (LIST 'A 'B 'C)) (LIST (REPLACE LIST0 '(X Y Z)))) (AND (EQ LIST0 LIST) (EQUAL LIST0 '(X Y Z))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 '(X Y Z)))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(X Y Z D E))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 '(X Y Z) :START1 1))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A X Y Z E))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 '(X Y Z) :START1 1 :END1 NIL))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A X Y Z E))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 '(X Y Z) :START1 1 :START2 1))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A Y Z D E))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 '(X Y Z) :START1 1 :START2 1 :END2 NIL))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A Y Z D E))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 '(X Y Z) :START1 1 :END1 NIL :START2 1 :END2 NIL))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A Y Z D E))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 '(X Y Z) :START1 1 :END1 2 :START2 1))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A Y C D E))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 '(X Y Z) :START1 1 :END1 1))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A B C D E))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 '(X Y Z) :START1 2 :END1 2))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A B C D E))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 '(X Y Z) :START1 3 :END1 3))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A B C D E))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 '(X Y Z) :START1 4 :END1 4))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A B C D E))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 '(X Y Z) :START1 5 :END1 5))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A B C D E))))) EQL-OK: NIL (NOT (NULL (REPLACE NIL #()))) EQL-OK: NIL (NOT (NULL (REPLACE NIL #(A B C)))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C)) (VECTOR (REPLACE VECTOR0 'NIL))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A B C))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 VECTOR0))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A B C D E))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 VECTOR0 :START1 3))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A B C A B))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 VECTOR0 :START1 1))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A A B C D))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 VECTOR0 :START1 1 :END1 3))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A A B D E))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C)) (VECTOR (REPLACE VECTOR0 '(X Y Z)))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(X Y Z))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 #(X Y Z)))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(X Y Z D E))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 #(X Y Z) :START1 1))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A X Y Z E))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 #(X Y Z) :START1 1 :END1 NIL))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A X Y Z E))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 #(X Y Z) :START1 1 :START2 1))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A Y Z D E))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 #(X Y Z) :START1 1 :START2 1 :END2 NIL))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A Y Z D E))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 #(X Y Z) :START1 1 :END1 NIL :START2 1 :END2 NIL))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A Y Z D E))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 #(X Y Z) :START1 1 :END1 2 :START2 1))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A Y C D E))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 #(X Y Z) :START1 1 :END1 1))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A B C D E))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 #(X Y Z) :START1 2 :END1 2))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A B C D E))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 #(X Y Z) :START1 3 :END1 3))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A B C D E))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 #(X Y Z) :START1 4 :END1 4))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A B C D E))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 #(X Y Z) :START1 5 :END1 5))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A B C D E))))) EQL-OK: NIL (NOT (NULL (REPLACE NIL #()))) EQL-OK: NIL (NOT (NULL (REPLACE NIL #(A B C)))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C)) (VECTOR (REPLACE VECTOR0 #()))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A B C))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 VECTOR0))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A B C D E))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 VECTOR0 :START1 3))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A B C A B))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 VECTOR0 :START1 1))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A A B C D))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C 'D 'E)) (VECTOR (REPLACE VECTOR0 VECTOR0 :START1 1 :END1 3))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(A A B D E))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 'A 'B 'C)) (VECTOR (REPLACE VECTOR0 #(X Y Z)))) (AND (EQ VECTOR0 VECTOR) (EQUALP VECTOR0 #(X Y Z))))) EQL-OK: NIL (NOT (LET* ((STR0 (COPY-SEQ "abc")) (STR (REPLACE STR0 "xyz"))) (AND (EQ STR0 STR) (EQUALP STR0 "xyz")))) EQL-OK: NIL (NOT (LET* ((STR0 (COPY-SEQ "")) (STR (REPLACE STR0 ""))) (AND (EQ STR0 STR) (EQUALP STR0 "")))) EQL-OK: NIL (NOT (LET* ((STR0 (COPY-SEQ "")) (STR (REPLACE STR0 "xyz"))) (AND (EQ STR0 STR) (EQUALP STR0 "")))) EQL-OK: NIL (NOT (LET* ((STR0 (COPY-SEQ "abc")) (STR (REPLACE STR0 ""))) (AND (EQ STR0 STR) (EQUALP STR0 "abc")))) EQL-OK: NIL (NOT (LET* ((STR0 (COPY-SEQ "abcdef")) (STR (REPLACE STR0 "xyz" :START1 3))) (AND (EQ STR0 STR) (EQUALP STR0 "abcxyz")))) EQL-OK: NIL (NOT (LET* ((STR0 (COPY-SEQ "abcdef")) (STR (REPLACE STR0 "xyz" :START1 4 :START2 1))) (AND (EQ STR0 STR) (EQUALP STR0 "abcdyz")))) EQL-OK: NIL (NOT (LET* ((STR0 (COPY-SEQ "abcdef")) (STR (REPLACE STR0 "xyz" :START1 1 :END1 2 :START2 1))) (AND (EQ STR0 STR) (EQUALP STR0 "aycdef")))) EQL-OK: NIL (NOT (LET* ((STR0 (COPY-SEQ "abcdef")) (STR (REPLACE STR0 "xyz" :START1 1 :START2 1 :END2 2))) (AND (EQ STR0 STR) (EQUALP STR0 "aycdef")))) EQL-OK: NIL (NOT (LET* ((STR0 (COPY-SEQ "abcdef")) (STR (REPLACE STR0 STR0 :START1 1))) (AND (EQ STR0 STR) (EQUALP STR0 "aabcde")))) EQL-OK: NIL (NOT (LET* ((BV0 (COPY-SEQ #*0000)) (BV (REPLACE BV0 #*1010))) (AND (EQ BV0 BV) (EQUALP BV0 #*1010)))) EQL-OK: NIL (NOT (LET* ((BV0 (COPY-SEQ #*)) (BV (REPLACE BV0 #*1010))) (AND (EQ BV0 BV) (EQUALP BV0 #*)))) EQL-OK: NIL (NOT (LET* ((BV0 (COPY-SEQ #*0000)) (BV (REPLACE BV0 #*))) (AND (EQ BV0 BV) (EQUALP BV0 #*0000)))) EQL-OK: NIL (NOT (LET* ((BV0 (COPY-SEQ #*0000)) (BV (REPLACE BV0 #*1111 :START1 2))) (AND (EQ BV0 BV) (EQUALP BV0 #*0011)))) EQL-OK: NIL (NOT (LET* ((BV0 (COPY-SEQ #*1001)) (BV (REPLACE BV0 #*0110 :START1 1 :END1 3 :START2 1 :END2 3))) (AND (EQ BV0 BV) (EQUALP BV0 #*1111)))) EQL-OK: NIL (NOT (LET* ((BV0 (COPY-SEQ #*1010)) (BV (REPLACE BV0 BV0 :START1 1))) (AND (EQ BV0 BV) (EQUALP BV0 #*1101)))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE #\. #\ "0 2 4 6") "0.2.4.6")) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 9 4 '(1 2 4 1 3 4 5)) '(1 2 9 1 3 9 5))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 9 4 '(1 2 4 1 3 4 5) :COUNT 1) '(1 2 9 1 3 4 5))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 9 4 '(1 2 4 1 3 4 5) :COUNT 1 :FROM-END T) '(1 2 4 1 3 9 5))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 9 3 '(1 2 4 1 3 4 5) :TEST #'>) '(9 9 4 9 3 4 5))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 0 #'EVENP '((1) (2) (3) (4)) :START 2 :KEY #'CAR) '((1) (2) (3) 0))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 9 #'ODDP '(1 2 4 1 3 4 5)) '(9 2 4 9 9 4 9))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 9 #'EVENP '(1 2 4 1 3 4 5) :COUNT 1 :FROM-END T) '(1 2 4 1 3 9 5))) EQL-OK: NIL (NOT (LET ((SOME-THINGS (LIST 'A 'CAR 'B 'CDR 'C))) (AND (EQUAL (NSUBSTITUTE-IF "function was here" #'FBOUNDP SOME-THINGS :COUNT 1 :FROM-END T) '(A CAR B "function was here" C)) (EQUAL SOME-THINGS '(A CAR B "function was here" C))))) EQL-OK: NIL (NOT (LET ((ALPHA-TESTER (COPY-SEQ "ab "))) (AND (EQUAL (NSUBSTITUTE-IF-NOT #\z #'ALPHA-CHAR-P ALPHA-TESTER) "abz") (EQUAL ALPHA-TESTER "abz")))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'A 'X '(X Y Z)) '(A Y Z))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'B 'Y '(X Y Z)) '(X B Z))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'C 'Z '(X Y Z)) '(X Y C))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'A 'P '(X Y Z)) '(X Y Z))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'A 'X 'NIL) 'NIL)) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE #\x #\b '(#\a #\b #\c #\d #\e) :TEST #'CHAR<) '(#\a #\b #\x #\x #\x))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE #\x #\b '(#\a #\b #\c #\d #\e) :TEST-NOT (COMPLEMENT #'CHAR<)) '(#\a #\b #\x #\x #\x))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE '(A) 'X '((X) (Y) (Z)) :KEY #'CAR) '((A) (Y) (Z)))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'C 'B '(A B A B A B A B)) '(A C A C A C A C))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'A 'B '(B B B)) '(A A A))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F)) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT NIL) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT 0) '(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT -100) '(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT 1) '(A Z B X C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT 2) '(A Z B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT 3) '(A Z B Z C Z D X E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT 4) '(A Z B Z C Z D Z E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT 5) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT 6) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT 7) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT NIL :FROM-END T) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT 0 :FROM-END T) '(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT -100 :FROM-END T) '(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT 1 :FROM-END T) '(A X B X C X D X E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT 2 :FROM-END T) '(A X B X C X D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT 3 :FROM-END T) '(A X B X C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT 4 :FROM-END T) '(A X B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT 5 :FROM-END T) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT 6 :FROM-END T) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :COUNT 7 :FROM-END T) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :START 2 :COUNT 1) '(A X B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :START 2 :END NIL :COUNT 1) '(A X B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :START 2 :END 6 :COUNT 100) '(A X B Z C Z D X E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :START 2 :END 11 :COUNT 100) '(A X B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :START 2 :END 8 :COUNT 10) '(A X B Z C Z D Z E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE 'Z 'X '(A X B X C X D X E X F) :START 2 :END 8 :COUNT 2 :FROM-END T) '(A X B X C Z D Z E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE #\z #\c '(#\a #\b #\c #\d #\e #\f) :TEST #'CHAR<) '(#\a #\b #\c #\z #\z #\z))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE #\z #\c '(#\a #\b #\c #\d #\e #\f) :TEST-NOT (COMPLEMENT #'CHAR<)) '(#\a #\b #\c #\z #\z #\z))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE "peace" "war" '("love" "hate" "war" "peace") :TEST #'EQUAL) '("love" "hate" "peace" "peace"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE "peace" "war" '("love" "hate" "war" "peace") :TEST-NOT (COMPLEMENT #'EQUAL)) '("love" "hate" "peace" "peace"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE "peace" "war" '("war" "War" "WAr" "WAR") :TEST #'STRING-EQUAL) '("peace" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE "peace" "war" '("war" "War" "WAr" "WAR") :TEST-NOT (COMPLEMENT #'STRING-EQUAL)) '("peace" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR") :TEST #'STRING=) '("war" "War" "WAr" "peace"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR") :TEST-NOT (COMPLEMENT #'STRING=)) '("war" "War" "WAr" "peace"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR") :TEST #'STRING= :KEY #'STRING-UPCASE) '("peace" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR") :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("peace" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR") :START 1 :END 2 :TEST #'STRING= :KEY #'STRING-UPCASE) '("war" "peace" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR") :START 1 :END 2 :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "peace" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR") :START 1 :END NIL :TEST #'STRING= :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR") :START 1 :END NIL :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE "peace" "war" '("war" "War" "WAr" "WAR") :TEST #'STRING= :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE "peace" "war" '("war" "War" "WAr" "WAR") :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 1 :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "peace" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 2 :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "peace" "peace" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 2 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 0 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT -2 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT NIL :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 6 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 7 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE "peace" "WAR" '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 100 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'A 'X #(X Y Z)) #(A Y Z))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'B 'Y #(X Y Z)) #(X B Z))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'C 'Z #(X Y Z)) #(X Y C))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'A 'P #(X Y Z)) #(X Y Z))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'A 'X #()) #())) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE #\x #\b #(#\a #\b #\c #\d #\e) :TEST #'CHAR<) #(#\a #\b #\x #\x #\x))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE #\x #\b #(#\a #\b #\c #\d #\e) :TEST-NOT (COMPLEMENT #'CHAR<)) #(#\a #\b #\x #\x #\x))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE '(A) 'X #((X) (Y) (Z)) :KEY #'CAR) #((A) (Y) (Z)))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'C 'B #(A B A B A B A B)) #(A C A C A C A C))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'A 'B #(B B B)) #(A A A))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F)) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT NIL) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT 0) #(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT -100) #(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT 1) #(A Z B X C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT 2) #(A Z B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT 3) #(A Z B Z C Z D X E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT 4) #(A Z B Z C Z D Z E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT 5) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT 6) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT 7) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT NIL :FROM-END T) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT 0 :FROM-END T) #(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT -100 :FROM-END T) #(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT 1 :FROM-END T) #(A X B X C X D X E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT 2 :FROM-END T) #(A X B X C X D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT 3 :FROM-END T) #(A X B X C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT 4 :FROM-END T) #(A X B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT 5 :FROM-END T) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT 6 :FROM-END T) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :COUNT 7 :FROM-END T) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :START 2 :COUNT 1) #(A X B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :START 2 :END NIL :COUNT 1) #(A X B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :START 2 :END 6 :COUNT 100) #(A X B Z C Z D X E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :START 2 :END 11 :COUNT 100) #(A X B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :START 2 :END 8 :COUNT 10) #(A X B Z C Z D Z E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 'Z 'X #(A X B X C X D X E X F) :START 2 :END 8 :COUNT 2 :FROM-END T) #(A X B X C Z D Z E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE #\z #\c #(#\a #\b #\c #\d #\e #\f) :TEST #'CHAR<) #(#\a #\b #\c #\z #\z #\z))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE #\z #\c #(#\a #\b #\c #\d #\e #\f) :TEST-NOT (COMPLEMENT #'CHAR<)) #(#\a #\b #\c #\z #\z #\z))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE "peace" "war" #("love" "hate" "war" "peace") :TEST #'EQUAL) #("love" "hate" "peace" "peace"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE "peace" "war" #("love" "hate" "war" "peace") :TEST-NOT (COMPLEMENT #'EQUAL)) #("love" "hate" "peace" "peace"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE "peace" "war" #("war" "War" "WAr" "WAR") :TEST #'STRING-EQUAL) #("peace" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE "peace" "war" #("war" "War" "WAr" "WAR") :TEST-NOT (COMPLEMENT #'STRING-EQUAL)) #("peace" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR") :TEST #'STRING=) #("war" "War" "WAr" "peace"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR") :TEST-NOT (COMPLEMENT #'STRING=)) #("war" "War" "WAr" "peace"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR") :TEST #'STRING= :KEY #'STRING-UPCASE) #("peace" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR") :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("peace" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR") :START 1 :END 2 :TEST #'STRING= :KEY #'STRING-UPCASE) #("war" "peace" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR") :START 1 :END 2 :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "peace" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR") :START 1 :END NIL :TEST #'STRING= :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR") :START 1 :END NIL :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE "peace" "war" #("war" "War" "WAr" "WAR") :TEST #'STRING= :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE "peace" "war" #("war" "War" "WAr" "WAR") :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 1 :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "peace" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 2 :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "peace" "peace" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 2 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 0 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT -2 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT NIL :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 6 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 7 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE "peace" "WAR" #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 100 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE #\A #\a "abcabc") "AbcAbc")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE #\A #\a "") "")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE #\A #\a "xyz") "xyz")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE #\A #\a "aaaaaaaaaa" :START 5 :END NIL) "aaaaaAAAAA")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE #\x #\5 "0123456789" :TEST #'CHAR<) "012345xxxx")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE #\x #\5 "0123456789" :TEST #'CHAR>) "xxxxx56789")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE #\x #\D "abcdefg" :KEY #'CHAR-UPCASE :TEST #'CHAR>) "xxxdefg")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE #\x #\D "abcdefg" :START 1 :END 2 :KEY #'CHAR-UPCASE :TEST #'CHAR>) "axcdefg")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE #\A #\a "aaaaaaaaaa" :COUNT 2) "AAaaaaaaaa")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE #\A #\a "aaaaaaaaaa" :COUNT -1) "aaaaaaaaaa")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE #\A #\a "aaaaaaaaaa" :COUNT 0) "aaaaaaaaaa")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE #\A #\a "aaaaaaaaaa" :COUNT NIL) "AAAAAAAAAA")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE #\A #\a "aaaaaaaaaa" :COUNT 100) "AAAAAAAAAA")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE #\A #\a "aaaaaaaaaa" :COUNT 9) "AAAAAAAAAa")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE #\A #\a "aaaaaaaaaa" :COUNT 9 :FROM-END T) "aAAAAAAAAA")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE #\A #\a "aaaaaaaaaa" :START 2 :END 8 :COUNT 3) "aaAAAaaaaa")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE #\A #\a "aaaaaaaaaa" :START 2 :END 8 :FROM-END T :COUNT 3) "aaaaaAAAaa")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE #\x #\A "aaaaaaaaaa" :START 2 :END 8 :FROM-END T :COUNT 3) "aaaaaaaaaa")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE #\X #\A "aaaaaaaaaa" :START 2 :END 8 :FROM-END T :KEY #'CHAR-UPCASE :COUNT 3) "aaaaaXXXaa")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE #\X #\D "abcdefghij" :START 2 :END 8 :FROM-END T :KEY #'CHAR-UPCASE :TEST #'CHAR< :COUNT 3) "abcdeXXXij")) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 0 1 #*1111) #*0000)) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 0 1 #*1111 :START 1 :END NIL) #*1000)) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 0 1 #*1111 :START 1 :END 3) #*1001)) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 0 1 #*11111111 :START 1 :END 7) #*10000001)) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 0 1 #*11111111 :START 1 :END 7 :COUNT 3) #*10001111)) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 0 1 #*11111111 :START 1 :END 7 :COUNT 3 :FROM-END T) #*11110001)) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 1 1 #*10101010 :START 1 :END 7 :COUNT 3 :FROM-END T :KEY #'(LAMBDA (X) (IF (ZEROP X) 1 0))) #*11111110)) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE 1 1 #*10101010 :START 1 :END 7 :COUNT 3 :FROM-END T :KEY #'(LAMBDA (X) (IF (ZEROP X) 1 0)) :TEST #'>=) #*10101110)) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'A #'(LAMBDA (ARG) (EQ ARG 'X)) '(X Y Z)) '(A Y Z))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'B #'(LAMBDA (ARG) (EQ ARG 'Y)) '(X Y Z)) '(X B Z))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'C #'(LAMBDA (ARG) (EQ ARG 'Z)) '(X Y Z)) '(X Y C))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'A #'(LAMBDA (ARG) (EQ ARG 'P)) '(X Y Z)) '(X Y Z))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'A #'(LAMBDA (ARG) (EQ ARG 'X)) 'NIL) 'NIL)) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF #\x #'(LAMBDA (ARG) (CHAR< #\b ARG)) '(#\a #\b #\c #\d #\e)) '(#\a #\b #\x #\x #\x))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF '(A) #'(LAMBDA (ARG) (EQ ARG 'X)) '((X) (Y) (Z)) :KEY #'CAR) '((A) (Y) (Z)))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'C #'(LAMBDA (ARG) (EQ ARG 'B)) '(A B A B A B A B)) '(A C A C A C A C))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'A #'(LAMBDA (ARG) (EQ ARG 'B)) '(B B B)) '(A A A))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F)) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT NIL) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT 0) '(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT -100) '(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT 1) '(A Z B X C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT 2) '(A Z B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT 3) '(A Z B Z C Z D X E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT 4) '(A Z B Z C Z D Z E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT 5) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT 6) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT 7) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT NIL :FROM-END T) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT 0 :FROM-END T) '(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT -100 :FROM-END T) '(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT 1 :FROM-END T) '(A X B X C X D X E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT 2 :FROM-END T) '(A X B X C X D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT 3 :FROM-END T) '(A X B X C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT 4 :FROM-END T) '(A X B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT 5 :FROM-END T) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT 6 :FROM-END T) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :COUNT 7 :FROM-END T) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :START 2 :COUNT 1) '(A X B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :START 2 :END NIL :COUNT 1) '(A X B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :START 2 :END 6 :COUNT 100) '(A X B Z C Z D X E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :START 2 :END 11 :COUNT 100) '(A X B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :START 2 :END 8 :COUNT 10) '(A X B Z C Z D Z E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) '(A X B X C X D X E X F) :START 2 :END 8 :COUNT 2 :FROM-END T) '(A X B X C Z D Z E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF #\z #'(LAMBDA (ARG) (CHAR< #\c ARG)) '(#\a #\b #\c #\d #\e #\f)) '(#\a #\b #\c #\z #\z #\z))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (EQUAL "war" ARG)) '("love" "hate" "war" "peace")) '("love" "hate" "peace" "peace"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING-EQUAL "war" ARG)) '("war" "War" "WAr" "WAR")) '("peace" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) '("war" "War" "WAr" "WAR") :KEY #'STRING-UPCASE) '("peace" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) '("war" "War" "WAr" "WAR") :START 1 :END 2 :KEY #'STRING-UPCASE) '("war" "peace" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) '("war" "War" "WAr" "WAR") :START 1 :END NIL :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "war" ARG)) '("war" "War" "WAr" "WAR") :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 1 :KEY #'STRING-UPCASE) '("war" "peace" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 2 :KEY #'STRING-UPCASE) '("war" "peace" "peace" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 2 :FROM-END T :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 0 :FROM-END T :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT -2 :FROM-END T :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT NIL :FROM-END T :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 6 :FROM-END T :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 7 :FROM-END T :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 100 :FROM-END T :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'A #'(LAMBDA (ARG) (EQ ARG 'X)) #(X Y Z)) #(A Y Z))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'B #'(LAMBDA (ARG) (EQ ARG 'Y)) #(X Y Z)) #(X B Z))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'C #'(LAMBDA (ARG) (EQ ARG 'Z)) #(X Y Z)) #(X Y C))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'A #'(LAMBDA (ARG) (EQ ARG 'P)) #(X Y Z)) #(X Y Z))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'A #'(LAMBDA (ARG) (EQ ARG 'X)) #()) #())) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF #\x #'(LAMBDA (ARG) (CHAR< #\b ARG)) #(#\a #\b #\c #\d #\e)) #(#\a #\b #\x #\x #\x))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF '(A) #'(LAMBDA (ARG) (EQ ARG 'X)) #((X) (Y) (Z)) :KEY #'CAR) #((A) (Y) (Z)))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'C #'(LAMBDA (ARG) (EQ ARG 'B)) #(A B A B A B A B)) #(A C A C A C A C))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'A #'(LAMBDA (ARG) (EQ ARG 'B)) #(B B B)) #(A A A))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F)) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT NIL) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT 0) #(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT -100) #(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT 1) #(A Z B X C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT 2) #(A Z B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT 3) #(A Z B Z C Z D X E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT 4) #(A Z B Z C Z D Z E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT 5) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT 6) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT 7) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT NIL :FROM-END T) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT 0 :FROM-END T) #(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT -100 :FROM-END T) #(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT 1 :FROM-END T) #(A X B X C X D X E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT 2 :FROM-END T) #(A X B X C X D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT 3 :FROM-END T) #(A X B X C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT 4 :FROM-END T) #(A X B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT 5 :FROM-END T) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT 6 :FROM-END T) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :COUNT 7 :FROM-END T) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :START 2 :COUNT 1) #(A X B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :START 2 :END NIL :COUNT 1) #(A X B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :START 2 :END 6 :COUNT 100) #(A X B Z C Z D X E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :START 2 :END 11 :COUNT 100) #(A X B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :START 2 :END 8 :COUNT 10) #(A X B Z C Z D Z E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) #(A X B X C X D X E X F) :START 2 :END 8 :COUNT 2 :FROM-END T) #(A X B X C Z D Z E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF #\z #'(LAMBDA (ARG) (CHAR< #\c ARG)) #(#\a #\b #\c #\d #\e #\f)) #(#\a #\b #\c #\z #\z #\z))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (EQUAL "war" ARG)) #("love" "hate" "war" "peace")) #("love" "hate" "peace" "peace"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING-EQUAL "war" ARG)) #("war" "War" "WAr" "WAR")) #("peace" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) #("war" "War" "WAr" "WAR") :KEY #'STRING-UPCASE) #("peace" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) #("war" "War" "WAr" "WAR") :START 1 :END 2 :KEY #'STRING-UPCASE) #("war" "peace" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) #("war" "War" "WAr" "WAR") :START 1 :END NIL :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "war" ARG)) #("war" "War" "WAr" "WAR") :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 1 :KEY #'STRING-UPCASE) #("war" "peace" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 2 :KEY #'STRING-UPCASE) #("war" "peace" "peace" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 2 :FROM-END T :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 0 :FROM-END T :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT -2 :FROM-END T :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT NIL :FROM-END T :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 6 :FROM-END T :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 7 :FROM-END T :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 100 :FROM-END T :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) "abcabc") "AbcAbc")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) "") "")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) "xyz") "xyz")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) "aaaaaaaaaa" :START 5 :END NIL) "aaaaaAAAAA")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF #\x #'(LAMBDA (ARG) (CHAR< #\5 ARG)) "0123456789") "012345xxxx")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF #\x #'(LAMBDA (ARG) (CHAR> #\5 ARG)) "0123456789") "xxxxx56789")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF #\x #'(LAMBDA (ARG) (CHAR> #\D ARG)) "abcdefg" :KEY #'CHAR-UPCASE) "xxxdefg")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF #\x #'(LAMBDA (ARG) (CHAR> #\D ARG)) "abcdefg" :START 1 :END 2 :KEY #'CHAR-UPCASE) "axcdefg")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) "aaaaaaaaaa" :COUNT 2) "AAaaaaaaaa")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) "aaaaaaaaaa" :COUNT -1) "aaaaaaaaaa")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) "aaaaaaaaaa" :COUNT 0) "aaaaaaaaaa")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) "aaaaaaaaaa" :COUNT NIL) "AAAAAAAAAA")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) "aaaaaaaaaa" :COUNT 100) "AAAAAAAAAA")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) "aaaaaaaaaa" :COUNT 9) "AAAAAAAAAa")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) "aaaaaaaaaa" :COUNT 9 :FROM-END T) "aAAAAAAAAA")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) "aaaaaaaaaa" :START 2 :END 8 :COUNT 3) "aaAAAaaaaa")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) "aaaaaaaaaa" :START 2 :END 8 :FROM-END T :COUNT 3) "aaaaaAAAaa")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF #\x #'(LAMBDA (ARG) (EQL #\A ARG)) "aaaaaaaaaa" :START 2 :END 8 :FROM-END T :COUNT 3) "aaaaaaaaaa")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF #\X #'(LAMBDA (ARG) (EQL #\A ARG)) "aaaaaaaaaa" :START 2 :END 8 :FROM-END T :KEY #'CHAR-UPCASE :COUNT 3) "aaaaaXXXaa")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF #\X #'(LAMBDA (ARG) (CHAR< #\D ARG)) "abcdefghij" :START 2 :END 8 :FROM-END T :KEY #'CHAR-UPCASE :COUNT 3) "abcdeXXXij")) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 0 #'(LAMBDA (ARG) (= 1 ARG)) #*1111) #*0000)) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 0 #'(LAMBDA (ARG) (= 1 ARG)) #*1111 :START 1 :END NIL) #*1000)) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 0 #'(LAMBDA (ARG) (= 1 ARG)) #*1111 :START 1 :END 3) #*1001)) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 0 #'(LAMBDA (ARG) (= 1 ARG)) #*11111111 :START 1 :END 7) #*10000001)) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 0 #'(LAMBDA (ARG) (= 1 ARG)) #*11111111 :START 1 :END 7 :COUNT 3) #*10001111)) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 0 #'(LAMBDA (ARG) (= 1 ARG)) #*11111111 :START 1 :END 7 :COUNT 3 :FROM-END T) #*11110001)) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 1 #'(LAMBDA (ARG) (= 1 ARG)) #*10101010 :START 1 :END 7 :COUNT 3 :FROM-END T :KEY #'(LAMBDA (X) (IF (ZEROP X) 1 0))) #*11111110)) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF 1 #'(LAMBDA (ARG) (>= 1 ARG)) #*10101010 :START 1 :END 7 :COUNT 3 :FROM-END T :KEY #'(LAMBDA (X) (IF (ZEROP X) 1 0))) #*10101110)) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'A #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(X Y Z)) '(A Y Z))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'B #'(LAMBDA (ARG) (NOT (EQ ARG 'Y))) '(X Y Z)) '(X B Z))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'C #'(LAMBDA (ARG) (NOT (EQ ARG 'Z))) '(X Y Z)) '(X Y C))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'A #'(LAMBDA (ARG) (NOT (EQ ARG 'P))) '(X Y Z)) '(X Y Z))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'A #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) 'NIL) 'NIL)) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT #\x #'(LAMBDA (ARG) (NOT (CHAR< #\b ARG))) '(#\a #\b #\c #\d #\e)) '(#\a #\b #\x #\x #\x))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT '(A) #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '((X) (Y) (Z)) :KEY #'CAR) '((A) (Y) (Z)))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'C #'(LAMBDA (ARG) (NOT (EQ ARG 'B))) '(A B A B A B A B)) '(A C A C A C A C))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'A #'(LAMBDA (ARG) (NOT (EQ ARG 'B))) '(B B B)) '(A A A))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F)) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT NIL) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT 0) '(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT -100) '(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT 1) '(A Z B X C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT 2) '(A Z B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT 3) '(A Z B Z C Z D X E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT 4) '(A Z B Z C Z D Z E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT 5) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT 6) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT 7) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT NIL :FROM-END T) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT 0 :FROM-END T) '(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT -100 :FROM-END T) '(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT 1 :FROM-END T) '(A X B X C X D X E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT 2 :FROM-END T) '(A X B X C X D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT 3 :FROM-END T) '(A X B X C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT 4 :FROM-END T) '(A X B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT 5 :FROM-END T) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT 6 :FROM-END T) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :COUNT 7 :FROM-END T) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :START 2 :COUNT 1) '(A X B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :START 2 :END NIL :COUNT 1) '(A X B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :START 2 :END 6 :COUNT 100) '(A X B Z C Z D X E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :START 2 :END 11 :COUNT 100) '(A X B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :START 2 :END 8 :COUNT 10) '(A X B Z C Z D Z E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) '(A X B X C X D X E X F) :START 2 :END 8 :COUNT 2 :FROM-END T) '(A X B X C Z D Z E X F))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT #\z #'(LAMBDA (ARG) (NOT (CHAR< #\c ARG))) '(#\a #\b #\c #\d #\e #\f)) '(#\a #\b #\c #\z #\z #\z))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (EQUAL "war" ARG))) '("love" "hate" "war" "peace")) '("love" "hate" "peace" "peace"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING-EQUAL "war" ARG))) '("war" "War" "WAr" "WAR")) '("peace" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) '("war" "War" "WAr" "WAR") :KEY #'STRING-UPCASE) '("peace" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) '("war" "War" "WAr" "WAR") :START 1 :END 2 :KEY #'STRING-UPCASE) '("war" "peace" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) '("war" "War" "WAr" "WAR") :START 1 :END NIL :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "war" ARG))) '("war" "War" "WAr" "WAR") :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 1 :KEY #'STRING-UPCASE) '("war" "peace" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 2 :KEY #'STRING-UPCASE) '("war" "peace" "peace" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 2 :FROM-END T :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 0 :FROM-END T :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT -2 :FROM-END T :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT NIL :FROM-END T :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 6 :FROM-END T :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 7 :FROM-END T :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUAL (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 100 :FROM-END T :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'A #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(X Y Z)) #(A Y Z))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'B #'(LAMBDA (ARG) (NOT (EQ ARG 'Y))) #(X Y Z)) #(X B Z))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'C #'(LAMBDA (ARG) (NOT (EQ ARG 'Z))) #(X Y Z)) #(X Y C))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'A #'(LAMBDA (ARG) (NOT (EQ ARG 'P))) #(X Y Z)) #(X Y Z))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'A #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #()) #())) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT #\x #'(LAMBDA (ARG) (NOT (CHAR< #\b ARG))) #(#\a #\b #\c #\d #\e)) #(#\a #\b #\x #\x #\x))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT '(A) #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #((X) (Y) (Z)) :KEY #'CAR) #((A) (Y) (Z)))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'C #'(LAMBDA (ARG) (NOT (EQ ARG 'B))) #(A B A B A B A B)) #(A C A C A C A C))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'A #'(LAMBDA (ARG) (NOT (EQ ARG 'B))) #(B B B)) #(A A A))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F)) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT NIL) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT 0) #(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT -100) #(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT 1) #(A Z B X C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT 2) #(A Z B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT 3) #(A Z B Z C Z D X E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT 4) #(A Z B Z C Z D Z E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT 5) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT 6) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT 7) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT NIL :FROM-END T) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT 0 :FROM-END T) #(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT -100 :FROM-END T) #(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT 1 :FROM-END T) #(A X B X C X D X E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT 2 :FROM-END T) #(A X B X C X D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT 3 :FROM-END T) #(A X B X C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT 4 :FROM-END T) #(A X B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT 5 :FROM-END T) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT 6 :FROM-END T) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :COUNT 7 :FROM-END T) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :START 2 :COUNT 1) #(A X B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :START 2 :END NIL :COUNT 1) #(A X B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :START 2 :END 6 :COUNT 100) #(A X B Z C Z D X E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :START 2 :END 11 :COUNT 100) #(A X B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :START 2 :END 8 :COUNT 10) #(A X B Z C Z D Z E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) #(A X B X C X D X E X F) :START 2 :END 8 :COUNT 2 :FROM-END T) #(A X B X C Z D Z E X F))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT #\z #'(LAMBDA (ARG) (NOT (CHAR< #\c ARG))) #(#\a #\b #\c #\d #\e #\f)) #(#\a #\b #\c #\z #\z #\z))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (EQUAL "war" ARG))) #("love" "hate" "war" "peace")) #("love" "hate" "peace" "peace"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING-EQUAL "war" ARG))) #("war" "War" "WAr" "WAR")) #("peace" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) #("war" "War" "WAr" "WAR") :KEY #'STRING-UPCASE) #("peace" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) #("war" "War" "WAr" "WAR") :START 1 :END 2 :KEY #'STRING-UPCASE) #("war" "peace" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) #("war" "War" "WAr" "WAR") :START 1 :END NIL :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "war" ARG))) #("war" "War" "WAr" "WAR") :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 1 :KEY #'STRING-UPCASE) #("war" "peace" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 2 :KEY #'STRING-UPCASE) #("war" "peace" "peace" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 2 :FROM-END T :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 0 :FROM-END T :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT -2 :FROM-END T :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT NIL :FROM-END T :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 6 :FROM-END T :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 7 :FROM-END T :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR") :START 1 :END 7 :COUNT 100 :FROM-END T :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) "abcabc") "AbcAbc")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) "") "")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) "xyz") "xyz")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) "aaaaaaaaaa" :START 5 :END NIL) "aaaaaAAAAA")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF-NOT #\x #'(LAMBDA (ARG) (NOT (CHAR< #\5 ARG))) "0123456789") "012345xxxx")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF-NOT #\x #'(LAMBDA (ARG) (NOT (CHAR> #\5 ARG))) "0123456789") "xxxxx56789")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF-NOT #\x #'(LAMBDA (ARG) (NOT (CHAR> #\D ARG))) "abcdefg" :KEY #'CHAR-UPCASE) "xxxdefg")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF-NOT #\x #'(LAMBDA (ARG) (NOT (CHAR> #\D ARG))) "abcdefg" :START 1 :END 2 :KEY #'CHAR-UPCASE) "axcdefg")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) "aaaaaaaaaa" :COUNT 2) "AAaaaaaaaa")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) "aaaaaaaaaa" :COUNT -1) "aaaaaaaaaa")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) "aaaaaaaaaa" :COUNT 0) "aaaaaaaaaa")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) "aaaaaaaaaa" :COUNT NIL) "AAAAAAAAAA")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) "aaaaaaaaaa" :COUNT 100) "AAAAAAAAAA")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) "aaaaaaaaaa" :COUNT 9) "AAAAAAAAAa")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) "aaaaaaaaaa" :COUNT 9 :FROM-END T) "aAAAAAAAAA")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) "aaaaaaaaaa" :START 2 :END 8 :COUNT 3) "aaAAAaaaaa")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) "aaaaaaaaaa" :START 2 :END 8 :FROM-END T :COUNT 3) "aaaaaAAAaa")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF-NOT #\x #'(LAMBDA (ARG) (NOT (EQL #\A ARG))) "aaaaaaaaaa" :START 2 :END 8 :FROM-END T :COUNT 3) "aaaaaaaaaa")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF-NOT #\X #'(LAMBDA (ARG) (NOT (EQL #\A ARG))) "aaaaaaaaaa" :START 2 :END 8 :FROM-END T :KEY #'CHAR-UPCASE :COUNT 3) "aaaaaXXXaa")) EQL-OK: NIL (NOT (STRING= (SUBSTITUTE-IF-NOT #\X #'(LAMBDA (ARG) (NOT (CHAR< #\D ARG))) "abcdefghij" :START 2 :END 8 :FROM-END T :KEY #'CHAR-UPCASE :COUNT 3) "abcdeXXXij")) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 0 #'(LAMBDA (ARG) (NOT (= 1 ARG))) #*1111) #*0000)) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 0 #'(LAMBDA (ARG) (NOT (= 1 ARG))) #*1111 :START 1 :END NIL) #*1000)) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 0 #'(LAMBDA (ARG) (NOT (= 1 ARG))) #*1111 :START 1 :END 3) #*1001)) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 0 #'(LAMBDA (ARG) (NOT (= 1 ARG))) #*11111111 :START 1 :END 7) #*10000001)) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 0 #'(LAMBDA (ARG) (NOT (= 1 ARG))) #*11111111 :START 1 :END 7 :COUNT 3) #*10001111)) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 0 #'(LAMBDA (ARG) (NOT (= 1 ARG))) #*11111111 :START 1 :END 7 :COUNT 3 :FROM-END T) #*11110001)) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 1 #'(LAMBDA (ARG) (NOT (= 1 ARG))) #*10101010 :START 1 :END 7 :COUNT 3 :FROM-END T :KEY #'(LAMBDA (X) (IF (ZEROP X) 1 0))) #*11111110)) EQL-OK: NIL (NOT (EQUALP (SUBSTITUTE-IF-NOT 1 #'(LAMBDA (ARG) (NOT (>= 1 ARG))) #*10101010 :START 1 :END 7 :COUNT 3 :FROM-END T :KEY #'(LAMBDA (X) (IF (ZEROP X) 1 0))) #*10101110)) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'A 'X (COPY-SEQ '(X Y Z))) '(A Y Z))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'B 'Y (COPY-SEQ '(X Y Z))) '(X B Z))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'C 'Z (COPY-SEQ '(X Y Z))) '(X Y C))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'A 'P (COPY-SEQ '(X Y Z))) '(X Y Z))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'A 'X (COPY-SEQ 'NIL)) 'NIL)) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE #\x #\b (COPY-SEQ '(#\a #\b #\c #\d #\e)) :TEST #'CHAR<) '(#\a #\b #\x #\x #\x))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE #\x #\b (COPY-SEQ '(#\a #\b #\c #\d #\e)) :TEST-NOT (COMPLEMENT #'CHAR<)) '(#\a #\b #\x #\x #\x))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE '(A) 'X (COPY-SEQ '((X) (Y) (Z))) :KEY #'CAR) '((A) (Y) (Z)))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'C 'B (COPY-SEQ '(A B A B A B A B))) '(A C A C A C A C))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'A 'B (COPY-SEQ '(B B B))) '(A A A))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F))) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT NIL) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 0) '(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT -100) '(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 1) '(A Z B X C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 2) '(A Z B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 3) '(A Z B Z C Z D X E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 4) '(A Z B Z C Z D Z E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 5) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 6) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 7) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT NIL :FROM-END T) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 0 :FROM-END T) '(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT -100 :FROM-END T) '(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 1 :FROM-END T) '(A X B X C X D X E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 2 :FROM-END T) '(A X B X C X D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 3 :FROM-END T) '(A X B X C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 4 :FROM-END T) '(A X B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 5 :FROM-END T) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 6 :FROM-END T) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 7 :FROM-END T) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :COUNT 1) '(A X B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :END NIL :COUNT 1) '(A X B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :END 6 :COUNT 100) '(A X B Z C Z D X E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :END 11 :COUNT 100) '(A X B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :END 8 :COUNT 10) '(A X B Z C Z D Z E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE 'Z 'X (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :END 8 :COUNT 2 :FROM-END T) '(A X B X C Z D Z E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE #\z #\c (COPY-SEQ '(#\a #\b #\c #\d #\e #\f)) :TEST #'CHAR<) '(#\a #\b #\c #\z #\z #\z))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE #\z #\c (COPY-SEQ '(#\a #\b #\c #\d #\e #\f)) :TEST-NOT (COMPLEMENT #'CHAR<)) '(#\a #\b #\c #\z #\z #\z))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE "peace" "war" (COPY-SEQ '("love" "hate" "war" "peace")) :TEST #'EQUAL) '("love" "hate" "peace" "peace"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE "peace" "war" (COPY-SEQ '("love" "hate" "war" "peace")) :TEST-NOT (COMPLEMENT #'EQUAL)) '("love" "hate" "peace" "peace"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE "peace" "war" (COPY-SEQ '("war" "War" "WAr" "WAR")) :TEST #'STRING-EQUAL) '("peace" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE "peace" "war" (COPY-SEQ '("war" "War" "WAr" "WAR")) :TEST-NOT (COMPLEMENT #'STRING-EQUAL)) '("peace" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR")) :TEST #'STRING=) '("war" "War" "WAr" "peace"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR")) :TEST-NOT (COMPLEMENT #'STRING=)) '("war" "War" "WAr" "peace"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR")) :TEST #'STRING= :KEY #'STRING-UPCASE) '("peace" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR")) :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("peace" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR")) :START 1 :END 2 :TEST #'STRING= :KEY #'STRING-UPCASE) '("war" "peace" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR")) :START 1 :END 2 :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "peace" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR")) :START 1 :END NIL :TEST #'STRING= :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR")) :START 1 :END NIL :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE "peace" "war" (COPY-SEQ '("war" "War" "WAr" "WAR")) :TEST #'STRING= :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE "peace" "war" (COPY-SEQ '("war" "War" "WAr" "WAR")) :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 1 :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "peace" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 2 :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "peace" "peace" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 2 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 0 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT -2 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT NIL :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 6 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 7 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE "peace" "WAR" (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 100 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'A 'X (COPY-SEQ #(X Y Z))) #(A Y Z))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'B 'Y (COPY-SEQ #(X Y Z))) #(X B Z))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'C 'Z (COPY-SEQ #(X Y Z))) #(X Y C))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'A 'P (COPY-SEQ #(X Y Z))) #(X Y Z))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'A 'X (COPY-SEQ #())) #())) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE #\x #\b (COPY-SEQ #(#\a #\b #\c #\d #\e)) :TEST #'CHAR<) #(#\a #\b #\x #\x #\x))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE #\x #\b (COPY-SEQ #(#\a #\b #\c #\d #\e)) :TEST-NOT (COMPLEMENT #'CHAR<)) #(#\a #\b #\x #\x #\x))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE '(A) 'X (COPY-SEQ #((X) (Y) (Z))) :KEY #'CAR) #((A) (Y) (Z)))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'C 'B (COPY-SEQ #(A B A B A B A B))) #(A C A C A C A C))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'A 'B (COPY-SEQ #(B B B))) #(A A A))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F))) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT NIL) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 0) #(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT -100) #(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 1) #(A Z B X C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 2) #(A Z B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 3) #(A Z B Z C Z D X E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 4) #(A Z B Z C Z D Z E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 5) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 6) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 7) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT NIL :FROM-END T) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 0 :FROM-END T) #(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT -100 :FROM-END T) #(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 1 :FROM-END T) #(A X B X C X D X E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 2 :FROM-END T) #(A X B X C X D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 3 :FROM-END T) #(A X B X C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 4 :FROM-END T) #(A X B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 5 :FROM-END T) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 6 :FROM-END T) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 7 :FROM-END T) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :COUNT 1) #(A X B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :END NIL :COUNT 1) #(A X B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :END 6 :COUNT 100) #(A X B Z C Z D X E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :END 11 :COUNT 100) #(A X B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :END 8 :COUNT 10) #(A X B Z C Z D Z E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 'Z 'X (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :END 8 :COUNT 2 :FROM-END T) #(A X B X C Z D Z E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE #\z #\c (COPY-SEQ #(#\a #\b #\c #\d #\e #\f)) :TEST #'CHAR<) #(#\a #\b #\c #\z #\z #\z))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE #\z #\c (COPY-SEQ #(#\a #\b #\c #\d #\e #\f)) :TEST-NOT (COMPLEMENT #'CHAR<)) #(#\a #\b #\c #\z #\z #\z))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE "peace" "war" (COPY-SEQ #("love" "hate" "war" "peace")) :TEST #'EQUAL) #("love" "hate" "peace" "peace"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE "peace" "war" (COPY-SEQ #("love" "hate" "war" "peace")) :TEST-NOT (COMPLEMENT #'EQUAL)) #("love" "hate" "peace" "peace"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE "peace" "war" (COPY-SEQ #("war" "War" "WAr" "WAR")) :TEST #'STRING-EQUAL) #("peace" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE "peace" "war" (COPY-SEQ #("war" "War" "WAr" "WAR")) :TEST-NOT (COMPLEMENT #'STRING-EQUAL)) #("peace" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR")) :TEST #'STRING=) #("war" "War" "WAr" "peace"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR")) :TEST-NOT (COMPLEMENT #'STRING=)) #("war" "War" "WAr" "peace"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR")) :TEST #'STRING= :KEY #'STRING-UPCASE) #("peace" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR")) :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("peace" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR")) :START 1 :END 2 :TEST #'STRING= :KEY #'STRING-UPCASE) #("war" "peace" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR")) :START 1 :END 2 :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "peace" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR")) :START 1 :END NIL :TEST #'STRING= :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR")) :START 1 :END NIL :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE "peace" "war" (COPY-SEQ #("war" "War" "WAr" "WAR")) :TEST #'STRING= :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE "peace" "war" (COPY-SEQ #("war" "War" "WAr" "WAR")) :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 1 :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "peace" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 2 :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "peace" "peace" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 2 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 0 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT -2 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT NIL :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 6 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 7 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE "peace" "WAR" (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 100 :FROM-END T :TEST-NOT (COMPLEMENT #'STRING=) :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE #\A #\a (COPY-SEQ "abcabc")) "AbcAbc")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE #\A #\a (COPY-SEQ "")) "")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE #\A #\a (COPY-SEQ "xyz")) "xyz")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE #\A #\a (COPY-SEQ "aaaaaaaaaa") :START 5 :END NIL) "aaaaaAAAAA")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE #\x #\5 (COPY-SEQ "0123456789") :TEST #'CHAR<) "012345xxxx")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE #\x #\5 (COPY-SEQ "0123456789") :TEST #'CHAR>) "xxxxx56789")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE #\x #\D (COPY-SEQ "abcdefg") :KEY #'CHAR-UPCASE :TEST #'CHAR>) "xxxdefg")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE #\x #\D (COPY-SEQ "abcdefg") :START 1 :END 2 :KEY #'CHAR-UPCASE :TEST #'CHAR>) "axcdefg")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE #\A #\a (COPY-SEQ "aaaaaaaaaa") :COUNT 2) "AAaaaaaaaa")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE #\A #\a (COPY-SEQ "aaaaaaaaaa") :COUNT -1) "aaaaaaaaaa")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE #\A #\a (COPY-SEQ "aaaaaaaaaa") :COUNT 0) "aaaaaaaaaa")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE #\A #\a (COPY-SEQ "aaaaaaaaaa") :COUNT NIL) "AAAAAAAAAA")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE #\A #\a (COPY-SEQ "aaaaaaaaaa") :COUNT 100) "AAAAAAAAAA")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE #\A #\a (COPY-SEQ "aaaaaaaaaa") :COUNT 9) "AAAAAAAAAa")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE #\A #\a (COPY-SEQ "aaaaaaaaaa") :COUNT 9 :FROM-END T) "aAAAAAAAAA")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE #\A #\a (COPY-SEQ "aaaaaaaaaa") :START 2 :END 8 :COUNT 3) "aaAAAaaaaa")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE #\A #\a (COPY-SEQ "aaaaaaaaaa") :START 2 :END 8 :FROM-END T :COUNT 3) "aaaaaAAAaa")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE #\x #\A (COPY-SEQ "aaaaaaaaaa") :START 2 :END 8 :FROM-END T :COUNT 3) "aaaaaaaaaa")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE #\X #\A (COPY-SEQ "aaaaaaaaaa") :START 2 :END 8 :FROM-END T :KEY #'CHAR-UPCASE :COUNT 3) "aaaaaXXXaa")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE #\X #\D (COPY-SEQ "abcdefghij") :START 2 :END 8 :FROM-END T :KEY #'CHAR-UPCASE :TEST #'CHAR< :COUNT 3) "abcdeXXXij")) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 0 1 (COPY-SEQ #*1111)) #*0000)) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 0 1 (COPY-SEQ #*1111) :START 1 :END NIL) #*1000)) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 0 1 (COPY-SEQ #*1111) :START 1 :END 3) #*1001)) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 0 1 (COPY-SEQ #*11111111) :START 1 :END 7) #*10000001)) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 0 1 (COPY-SEQ #*11111111) :START 1 :END 7 :COUNT 3) #*10001111)) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 0 1 (COPY-SEQ #*11111111) :START 1 :END 7 :COUNT 3 :FROM-END T) #*11110001)) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 1 1 (COPY-SEQ #*10101010) :START 1 :END 7 :COUNT 3 :FROM-END T :KEY #'(LAMBDA (X) (IF (ZEROP X) 1 0))) #*11111110)) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE 1 1 (COPY-SEQ #*10101010) :START 1 :END 7 :COUNT 3 :FROM-END T :KEY #'(LAMBDA (X) (IF (ZEROP X) 1 0)) :TEST #'>=) #*10101110)) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'A #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(X Y Z))) '(A Y Z))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'B #'(LAMBDA (ARG) (EQ ARG 'Y)) (COPY-SEQ '(X Y Z))) '(X B Z))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'C #'(LAMBDA (ARG) (EQ ARG 'Z)) (COPY-SEQ '(X Y Z))) '(X Y C))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'A #'(LAMBDA (ARG) (EQ ARG 'P)) (COPY-SEQ '(X Y Z))) '(X Y Z))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'A #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ 'NIL)) 'NIL)) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF #\x #'(LAMBDA (ARG) (CHAR< #\b ARG)) (COPY-SEQ '(#\a #\b #\c #\d #\e))) '(#\a #\b #\x #\x #\x))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF '(A) #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '((X) (Y) (Z))) :KEY #'CAR) '((A) (Y) (Z)))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'C #'(LAMBDA (ARG) (EQ ARG 'B)) (COPY-SEQ '(A B A B A B A B))) '(A C A C A C A C))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'A #'(LAMBDA (ARG) (EQ ARG 'B)) (COPY-SEQ '(B B B))) '(A A A))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F))) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT NIL) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 0) '(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT -100) '(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 1) '(A Z B X C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 2) '(A Z B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 3) '(A Z B Z C Z D X E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 4) '(A Z B Z C Z D Z E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 5) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 6) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 7) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT NIL :FROM-END T) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 0 :FROM-END T) '(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT -100 :FROM-END T) '(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 1 :FROM-END T) '(A X B X C X D X E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 2 :FROM-END T) '(A X B X C X D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 3 :FROM-END T) '(A X B X C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 4 :FROM-END T) '(A X B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 5 :FROM-END T) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 6 :FROM-END T) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 7 :FROM-END T) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :COUNT 1) '(A X B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :END NIL :COUNT 1) '(A X B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :END 6 :COUNT 100) '(A X B Z C Z D X E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :END 11 :COUNT 100) '(A X B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :END 8 :COUNT 10) '(A X B Z C Z D Z E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :END 8 :COUNT 2 :FROM-END T) '(A X B X C Z D Z E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF #\z #'(LAMBDA (ARG) (CHAR< #\c ARG)) (COPY-SEQ '(#\a #\b #\c #\d #\e #\f))) '(#\a #\b #\c #\z #\z #\z))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (EQUAL "war" ARG)) (COPY-SEQ '("love" "hate" "war" "peace"))) '("love" "hate" "peace" "peace"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING-EQUAL "war" ARG)) (COPY-SEQ '("war" "War" "WAr" "WAR"))) '("peace" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ '("war" "War" "WAr" "WAR")) :KEY #'STRING-UPCASE) '("peace" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ '("war" "War" "WAr" "WAR")) :START 1 :END 2 :KEY #'STRING-UPCASE) '("war" "peace" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ '("war" "War" "WAr" "WAR")) :START 1 :END NIL :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "war" ARG)) (COPY-SEQ '("war" "War" "WAr" "WAR")) :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 1 :KEY #'STRING-UPCASE) '("war" "peace" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 2 :KEY #'STRING-UPCASE) '("war" "peace" "peace" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 2 :FROM-END T :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 0 :FROM-END T :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT -2 :FROM-END T :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT NIL :FROM-END T :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 6 :FROM-END T :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 7 :FROM-END T :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 100 :FROM-END T :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'A #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(X Y Z))) #(A Y Z))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'B #'(LAMBDA (ARG) (EQ ARG 'Y)) (COPY-SEQ #(X Y Z))) #(X B Z))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'C #'(LAMBDA (ARG) (EQ ARG 'Z)) (COPY-SEQ #(X Y Z))) #(X Y C))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'A #'(LAMBDA (ARG) (EQ ARG 'P)) (COPY-SEQ #(X Y Z))) #(X Y Z))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'A #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #())) #())) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF #\x #'(LAMBDA (ARG) (CHAR< #\b ARG)) (COPY-SEQ #(#\a #\b #\c #\d #\e))) #(#\a #\b #\x #\x #\x))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF '(A) #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #((X) (Y) (Z))) :KEY #'CAR) #((A) (Y) (Z)))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'C #'(LAMBDA (ARG) (EQ ARG 'B)) (COPY-SEQ #(A B A B A B A B))) #(A C A C A C A C))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'A #'(LAMBDA (ARG) (EQ ARG 'B)) (COPY-SEQ #(B B B))) #(A A A))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F))) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT NIL) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 0) #(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT -100) #(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 1) #(A Z B X C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 2) #(A Z B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 3) #(A Z B Z C Z D X E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 4) #(A Z B Z C Z D Z E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 5) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 6) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 7) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT NIL :FROM-END T) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 0 :FROM-END T) #(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT -100 :FROM-END T) #(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 1 :FROM-END T) #(A X B X C X D X E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 2 :FROM-END T) #(A X B X C X D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 3 :FROM-END T) #(A X B X C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 4 :FROM-END T) #(A X B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 5 :FROM-END T) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 6 :FROM-END T) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 7 :FROM-END T) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :COUNT 1) #(A X B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :END NIL :COUNT 1) #(A X B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :END 6 :COUNT 100) #(A X B Z C Z D X E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :END 11 :COUNT 100) #(A X B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :END 8 :COUNT 10) #(A X B Z C Z D Z E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 'Z #'(LAMBDA (ARG) (EQ ARG 'X)) (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :END 8 :COUNT 2 :FROM-END T) #(A X B X C Z D Z E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF #\z #'(LAMBDA (ARG) (CHAR< #\c ARG)) (COPY-SEQ #(#\a #\b #\c #\d #\e #\f))) #(#\a #\b #\c #\z #\z #\z))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (EQUAL "war" ARG)) (COPY-SEQ #("love" "hate" "war" "peace"))) #("love" "hate" "peace" "peace"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING-EQUAL "war" ARG)) (COPY-SEQ #("war" "War" "WAr" "WAR"))) #("peace" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ #("war" "War" "WAr" "WAR")) :KEY #'STRING-UPCASE) #("peace" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ #("war" "War" "WAr" "WAR")) :START 1 :END 2 :KEY #'STRING-UPCASE) #("war" "peace" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ #("war" "War" "WAr" "WAR")) :START 1 :END NIL :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "war" ARG)) (COPY-SEQ #("war" "War" "WAr" "WAR")) :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 1 :KEY #'STRING-UPCASE) #("war" "peace" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 2 :KEY #'STRING-UPCASE) #("war" "peace" "peace" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 2 :FROM-END T :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 0 :FROM-END T :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT -2 :FROM-END T :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT NIL :FROM-END T :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 6 :FROM-END T :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 7 :FROM-END T :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF "peace" #'(LAMBDA (ARG) (STRING= "WAR" ARG)) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 100 :FROM-END T :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) (COPY-SEQ "abcabc")) "AbcAbc")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) (COPY-SEQ "")) "")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) (COPY-SEQ "xyz")) "xyz")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) (COPY-SEQ "aaaaaaaaaa") :START 5 :END NIL) "aaaaaAAAAA")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF #\x #'(LAMBDA (ARG) (CHAR< #\5 ARG)) (COPY-SEQ "0123456789")) "012345xxxx")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF #\x #'(LAMBDA (ARG) (CHAR> #\5 ARG)) (COPY-SEQ "0123456789")) "xxxxx56789")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF #\x #'(LAMBDA (ARG) (CHAR> #\D ARG)) (COPY-SEQ "abcdefg") :KEY #'CHAR-UPCASE) "xxxdefg")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF #\x #'(LAMBDA (ARG) (CHAR> #\D ARG)) (COPY-SEQ "abcdefg") :START 1 :END 2 :KEY #'CHAR-UPCASE) "axcdefg")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) (COPY-SEQ "aaaaaaaaaa") :COUNT 2) "AAaaaaaaaa")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) (COPY-SEQ "aaaaaaaaaa") :COUNT -1) "aaaaaaaaaa")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) (COPY-SEQ "aaaaaaaaaa") :COUNT 0) "aaaaaaaaaa")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) (COPY-SEQ "aaaaaaaaaa") :COUNT NIL) "AAAAAAAAAA")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) (COPY-SEQ "aaaaaaaaaa") :COUNT 100) "AAAAAAAAAA")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) (COPY-SEQ "aaaaaaaaaa") :COUNT 9) "AAAAAAAAAa")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) (COPY-SEQ "aaaaaaaaaa") :COUNT 9 :FROM-END T) "aAAAAAAAAA")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) (COPY-SEQ "aaaaaaaaaa") :START 2 :END 8 :COUNT 3) "aaAAAaaaaa")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF #\A #'(LAMBDA (ARG) (EQL #\a ARG)) (COPY-SEQ "aaaaaaaaaa") :START 2 :END 8 :FROM-END T :COUNT 3) "aaaaaAAAaa")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF #\x #'(LAMBDA (ARG) (EQL #\A ARG)) (COPY-SEQ "aaaaaaaaaa") :START 2 :END 8 :FROM-END T :COUNT 3) "aaaaaaaaaa")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF #\X #'(LAMBDA (ARG) (EQL #\A ARG)) (COPY-SEQ "aaaaaaaaaa") :START 2 :END 8 :FROM-END T :KEY #'CHAR-UPCASE :COUNT 3) "aaaaaXXXaa")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF #\X #'(LAMBDA (ARG) (CHAR< #\D ARG)) (COPY-SEQ "abcdefghij") :START 2 :END 8 :FROM-END T :KEY #'CHAR-UPCASE :COUNT 3) "abcdeXXXij")) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 0 #'(LAMBDA (ARG) (= 1 ARG)) (COPY-SEQ #*1111)) #*0000)) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 0 #'(LAMBDA (ARG) (= 1 ARG)) (COPY-SEQ #*1111) :START 1 :END NIL) #*1000)) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 0 #'(LAMBDA (ARG) (= 1 ARG)) (COPY-SEQ #*1111) :START 1 :END 3) #*1001)) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 0 #'(LAMBDA (ARG) (= 1 ARG)) (COPY-SEQ #*11111111) :START 1 :END 7) #*10000001)) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 0 #'(LAMBDA (ARG) (= 1 ARG)) (COPY-SEQ #*11111111) :START 1 :END 7 :COUNT 3) #*10001111)) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 0 #'(LAMBDA (ARG) (= 1 ARG)) (COPY-SEQ #*11111111) :START 1 :END 7 :COUNT 3 :FROM-END T) #*11110001)) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 1 #'(LAMBDA (ARG) (= 1 ARG)) (COPY-SEQ #*10101010) :START 1 :END 7 :COUNT 3 :FROM-END T :KEY #'(LAMBDA (X) (IF (ZEROP X) 1 0))) #*11111110)) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF 1 #'(LAMBDA (ARG) (>= 1 ARG)) (COPY-SEQ #*10101010) :START 1 :END 7 :COUNT 3 :FROM-END T :KEY #'(LAMBDA (X) (IF (ZEROP X) 1 0))) #*10101110)) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'A #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(X Y Z))) '(A Y Z))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'B #'(LAMBDA (ARG) (NOT (EQ ARG 'Y))) (COPY-SEQ '(X Y Z))) '(X B Z))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'C #'(LAMBDA (ARG) (NOT (EQ ARG 'Z))) (COPY-SEQ '(X Y Z))) '(X Y C))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'A #'(LAMBDA (ARG) (NOT (EQ ARG 'P))) (COPY-SEQ '(X Y Z))) '(X Y Z))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'A #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ 'NIL)) 'NIL)) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT #\x #'(LAMBDA (ARG) (NOT (CHAR< #\b ARG))) (COPY-SEQ '(#\a #\b #\c #\d #\e))) '(#\a #\b #\x #\x #\x))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT '(A) #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '((X) (Y) (Z))) :KEY #'CAR) '((A) (Y) (Z)))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'C #'(LAMBDA (ARG) (NOT (EQ ARG 'B))) (COPY-SEQ '(A B A B A B A B))) '(A C A C A C A C))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'A #'(LAMBDA (ARG) (NOT (EQ ARG 'B))) (COPY-SEQ '(B B B))) '(A A A))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F))) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT NIL) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 0) '(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT -100) '(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 1) '(A Z B X C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 2) '(A Z B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 3) '(A Z B Z C Z D X E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 4) '(A Z B Z C Z D Z E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 5) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 6) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 7) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT NIL :FROM-END T) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 0 :FROM-END T) '(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT -100 :FROM-END T) '(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 1 :FROM-END T) '(A X B X C X D X E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 2 :FROM-END T) '(A X B X C X D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 3 :FROM-END T) '(A X B X C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 4 :FROM-END T) '(A X B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 5 :FROM-END T) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 6 :FROM-END T) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :COUNT 7 :FROM-END T) '(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :COUNT 1) '(A X B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :END NIL :COUNT 1) '(A X B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :END 6 :COUNT 100) '(A X B Z C Z D X E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :END 11 :COUNT 100) '(A X B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :END 8 :COUNT 10) '(A X B Z C Z D Z E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ '(A X B X C X D X E X F)) :START 2 :END 8 :COUNT 2 :FROM-END T) '(A X B X C Z D Z E X F))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT #\z #'(LAMBDA (ARG) (NOT (CHAR< #\c ARG))) (COPY-SEQ '(#\a #\b #\c #\d #\e #\f))) '(#\a #\b #\c #\z #\z #\z))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (EQUAL "war" ARG))) (COPY-SEQ '("love" "hate" "war" "peace"))) '("love" "hate" "peace" "peace"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING-EQUAL "war" ARG))) (COPY-SEQ '("war" "War" "WAr" "WAR"))) '("peace" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ '("war" "War" "WAr" "WAR")) :KEY #'STRING-UPCASE) '("peace" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ '("war" "War" "WAr" "WAR")) :START 1 :END 2 :KEY #'STRING-UPCASE) '("war" "peace" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ '("war" "War" "WAr" "WAR")) :START 1 :END NIL :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "war" ARG))) (COPY-SEQ '("war" "War" "WAr" "WAR")) :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 1 :KEY #'STRING-UPCASE) '("war" "peace" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 2 :KEY #'STRING-UPCASE) '("war" "peace" "peace" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 2 :FROM-END T :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 0 :FROM-END T :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT -2 :FROM-END T :KEY #'STRING-UPCASE) '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT NIL :FROM-END T :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 6 :FROM-END T :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 7 :FROM-END T :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUAL (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ '("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 100 :FROM-END T :KEY #'STRING-UPCASE) '("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'A #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(X Y Z))) #(A Y Z))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'B #'(LAMBDA (ARG) (NOT (EQ ARG 'Y))) (COPY-SEQ #(X Y Z))) #(X B Z))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'C #'(LAMBDA (ARG) (NOT (EQ ARG 'Z))) (COPY-SEQ #(X Y Z))) #(X Y C))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'A #'(LAMBDA (ARG) (NOT (EQ ARG 'P))) (COPY-SEQ #(X Y Z))) #(X Y Z))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'A #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #())) #())) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT #\x #'(LAMBDA (ARG) (NOT (CHAR< #\b ARG))) (COPY-SEQ #(#\a #\b #\c #\d #\e))) #(#\a #\b #\x #\x #\x))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT '(A) #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #((X) (Y) (Z))) :KEY #'CAR) #((A) (Y) (Z)))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'C #'(LAMBDA (ARG) (NOT (EQ ARG 'B))) (COPY-SEQ #(A B A B A B A B))) #(A C A C A C A C))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'A #'(LAMBDA (ARG) (NOT (EQ ARG 'B))) (COPY-SEQ #(B B B))) #(A A A))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F))) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT NIL) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 0) #(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT -100) #(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 1) #(A Z B X C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 2) #(A Z B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 3) #(A Z B Z C Z D X E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 4) #(A Z B Z C Z D Z E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 5) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 6) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 7) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT NIL :FROM-END T) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 0 :FROM-END T) #(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT -100 :FROM-END T) #(A X B X C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 1 :FROM-END T) #(A X B X C X D X E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 2 :FROM-END T) #(A X B X C X D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 3 :FROM-END T) #(A X B X C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 4 :FROM-END T) #(A X B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 5 :FROM-END T) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 6 :FROM-END T) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :COUNT 7 :FROM-END T) #(A Z B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :COUNT 1) #(A X B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :END NIL :COUNT 1) #(A X B Z C X D X E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :END 6 :COUNT 100) #(A X B Z C Z D X E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :END 11 :COUNT 100) #(A X B Z C Z D Z E Z F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :END 8 :COUNT 10) #(A X B Z C Z D Z E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 'Z #'(LAMBDA (ARG) (NOT (EQ ARG 'X))) (COPY-SEQ #(A X B X C X D X E X F)) :START 2 :END 8 :COUNT 2 :FROM-END T) #(A X B X C Z D Z E X F))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT #\z #'(LAMBDA (ARG) (NOT (CHAR< #\c ARG))) (COPY-SEQ #(#\a #\b #\c #\d #\e #\f))) #(#\a #\b #\c #\z #\z #\z))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (EQUAL "war" ARG))) (COPY-SEQ #("love" "hate" "war" "peace"))) #("love" "hate" "peace" "peace"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING-EQUAL "war" ARG))) (COPY-SEQ #("war" "War" "WAr" "WAR"))) #("peace" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ #("war" "War" "WAr" "WAR")) :KEY #'STRING-UPCASE) #("peace" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ #("war" "War" "WAr" "WAR")) :START 1 :END 2 :KEY #'STRING-UPCASE) #("war" "peace" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ #("war" "War" "WAr" "WAR")) :START 1 :END NIL :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "war" ARG))) (COPY-SEQ #("war" "War" "WAr" "WAR")) :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 1 :KEY #'STRING-UPCASE) #("war" "peace" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 2 :KEY #'STRING-UPCASE) #("war" "peace" "peace" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 2 :FROM-END T :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 0 :FROM-END T :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT -2 :FROM-END T :KEY #'STRING-UPCASE) #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT NIL :FROM-END T :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 6 :FROM-END T :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 7 :FROM-END T :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT "peace" #'(LAMBDA (ARG) (NOT (STRING= "WAR" ARG))) (COPY-SEQ #("war" "War" "WAr" "WAR" "war" "War" "WAr" "WAR")) :START 1 :END 7 :COUNT 100 :FROM-END T :KEY #'STRING-UPCASE) #("war" "peace" "peace" "peace" "peace" "peace" "peace" "WAR"))) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) (COPY-SEQ "abcabc")) "AbcAbc")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) (COPY-SEQ "")) "")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) (COPY-SEQ "xyz")) "xyz")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) (COPY-SEQ "aaaaaaaaaa") :START 5 :END NIL) "aaaaaAAAAA")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF-NOT #\x #'(LAMBDA (ARG) (NOT (CHAR< #\5 ARG))) (COPY-SEQ "0123456789")) "012345xxxx")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF-NOT #\x #'(LAMBDA (ARG) (NOT (CHAR> #\5 ARG))) (COPY-SEQ "0123456789")) "xxxxx56789")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF-NOT #\x #'(LAMBDA (ARG) (NOT (CHAR> #\D ARG))) (COPY-SEQ "abcdefg") :KEY #'CHAR-UPCASE) "xxxdefg")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF-NOT #\x #'(LAMBDA (ARG) (NOT (CHAR> #\D ARG))) (COPY-SEQ "abcdefg") :START 1 :END 2 :KEY #'CHAR-UPCASE) "axcdefg")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) (COPY-SEQ "aaaaaaaaaa") :COUNT 2) "AAaaaaaaaa")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) (COPY-SEQ "aaaaaaaaaa") :COUNT -1) "aaaaaaaaaa")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) (COPY-SEQ "aaaaaaaaaa") :COUNT 0) "aaaaaaaaaa")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) (COPY-SEQ "aaaaaaaaaa") :COUNT NIL) "AAAAAAAAAA")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) (COPY-SEQ "aaaaaaaaaa") :COUNT 100) "AAAAAAAAAA")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) (COPY-SEQ "aaaaaaaaaa") :COUNT 9) "AAAAAAAAAa")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) (COPY-SEQ "aaaaaaaaaa") :COUNT 9 :FROM-END T) "aAAAAAAAAA")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) (COPY-SEQ "aaaaaaaaaa") :START 2 :END 8 :COUNT 3) "aaAAAaaaaa")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF-NOT #\A #'(LAMBDA (ARG) (NOT (EQL #\a ARG))) (COPY-SEQ "aaaaaaaaaa") :START 2 :END 8 :FROM-END T :COUNT 3) "aaaaaAAAaa")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF-NOT #\x #'(LAMBDA (ARG) (NOT (EQL #\A ARG))) (COPY-SEQ "aaaaaaaaaa") :START 2 :END 8 :FROM-END T :COUNT 3) "aaaaaaaaaa")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF-NOT #\X #'(LAMBDA (ARG) (NOT (EQL #\A ARG))) (COPY-SEQ "aaaaaaaaaa") :START 2 :END 8 :FROM-END T :KEY #'CHAR-UPCASE :COUNT 3) "aaaaaXXXaa")) EQL-OK: NIL (NOT (STRING= (NSUBSTITUTE-IF-NOT #\X #'(LAMBDA (ARG) (NOT (CHAR< #\D ARG))) (COPY-SEQ "abcdefghij") :START 2 :END 8 :FROM-END T :KEY #'CHAR-UPCASE :COUNT 3) "abcdeXXXij")) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 0 #'(LAMBDA (ARG) (NOT (= 1 ARG))) (COPY-SEQ #*1111)) #*0000)) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 0 #'(LAMBDA (ARG) (NOT (= 1 ARG))) (COPY-SEQ #*1111) :START 1 :END NIL) #*1000)) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 0 #'(LAMBDA (ARG) (NOT (= 1 ARG))) (COPY-SEQ #*1111) :START 1 :END 3) #*1001)) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 0 #'(LAMBDA (ARG) (NOT (= 1 ARG))) (COPY-SEQ #*11111111) :START 1 :END 7) #*10000001)) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 0 #'(LAMBDA (ARG) (NOT (= 1 ARG))) (COPY-SEQ #*11111111) :START 1 :END 7 :COUNT 3) #*10001111)) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 0 #'(LAMBDA (ARG) (NOT (= 1 ARG))) (COPY-SEQ #*11111111) :START 1 :END 7 :COUNT 3 :FROM-END T) #*11110001)) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 1 #'(LAMBDA (ARG) (NOT (= 1 ARG))) (COPY-SEQ #*10101010) :START 1 :END 7 :COUNT 3 :FROM-END T :KEY #'(LAMBDA (X) (IF (ZEROP X) 1 0))) #*11111110)) EQL-OK: NIL (NOT (EQUALP (NSUBSTITUTE-IF-NOT 1 #'(LAMBDA (ARG) (NOT (>= 1 ARG))) (COPY-SEQ #*10101010) :START 1 :END 7 :COUNT 3 :FROM-END T :KEY #'(LAMBDA (X) (IF (ZEROP X) 1 0))) #*10101110)) EQL-OK: NIL (NOT (STRING= (CONCATENATE 'STRING "all" " " "together" " " "now") "all together now")) EQL-OK: NIL (NOT (EQUAL (CONCATENATE 'LIST "ABC" '(D E F) #(1 2 3) #*1011) '(#\A #\B #\C D E F 1 2 3 1 0 1 1))) EQL-OK: NIL (NOT (NULL (CONCATENATE 'LIST))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CONCATENATE 'SYMBOL)) (ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CONCATENATE 'CLASS)) (ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (EQUAL (CONCATENATE 'LIST 'NIL '(A B C) '(X Y Z)) '(A B C X Y Z))) EQL-OK: NIL (NOT (EQUAL (CONCATENATE 'LIST '(A) #(B) '(C) #(X Y) '(Z)) '(A B C X Y Z))) EQL-OK: NIL (NOT (EQUAL (CONCATENATE 'LIST '(A B C) #(D E F) "ghi" #*0101) '(A B C D E F #\g #\h #\i 0 1 0 1))) EQL-OK: NIL (NOT (NULL (CONCATENATE 'LIST))) EQL-OK: NIL (NOT (LET* ((LIST0 '(A B C)) (LIST (CONCATENATE 'LIST LIST0))) (AND (NOT (EQ LIST0 LIST)) (EQUAL LIST LIST0) (EQUAL LIST '(A B C))))) EQL-OK: NIL (NOT (NULL (CONCATENATE 'LIST 'NIL #() "" #*))) EQL-OK: NIL (NOT (EQUAL (CONCATENATE 'LIST #(A B C) 'NIL 'NIL '(X Y Z) #() #() #* #(J K L)) '(A B C X Y Z J K L))) EQL-OK: NIL (NOT (EQUALP (CONCATENATE 'VECTOR 'NIL '(A B C) '(X Y Z)) #(A B C X Y Z))) EQL-OK: NIL (NOT (EQUALP (CONCATENATE 'VECTOR '(A) #(B) '(C) #(X Y) '(Z)) #(A B C X Y Z))) EQL-OK: NIL (NOT (EQUALP (CONCATENATE 'VECTOR '(A B C) #(D E F) "ghi" #*0101) #(A B C D E F #\g #\h #\i 0 1 0 1))) EQL-OK: NIL (NOT (EQUALP (CONCATENATE 'VECTOR) #())) EQL-OK: NIL (NOT (LET* ((VECTOR0 #(A B C)) (VECTOR (CONCATENATE 'VECTOR VECTOR0))) (AND (NOT (EQ VECTOR0 VECTOR)) (EQUALP VECTOR VECTOR0) (EQUALP VECTOR #(A B C))))) EQL-OK: NIL (NOT (EQUALP (CONCATENATE 'VECTOR 'NIL #() "" #*) #())) EQL-OK: NIL (NOT (EQUALP (CONCATENATE 'VECTOR #(A B C) 'NIL 'NIL '(X Y Z) #() #() #* #(J K L)) #(A B C X Y Z J K L))) EQL-OK: NIL (NOT (STRING= (CONCATENATE 'STRING "abc" "def" "ghi" "jkl" "mno" "pqr") "abcdefghijklmnopqr")) EQL-OK: NIL (NOT (STRING= (CONCATENATE 'STRING "" "abc" "" "def" "" "ghi" "" "" "jkl" "" "mno" "" "pqr" "" "") "abcdefghijklmnopqr")) EQL-OK: NIL (NOT (STRING= (CONCATENATE 'STRING) "")) EQL-OK: NIL (NOT (STRING= (CONCATENATE 'STRING "" 'NIL #* #()) "")) EQL-OK: NIL (NOT (STRING= (CONCATENATE 'STRING "abc" '(#\d #\e #\f #\g) #(#\h #\i #\j #\k #\l)) "abcdefghijkl")) EQL-OK: NIL (NOT (EQUAL (CONCATENATE 'BIT-VECTOR #*0101 #*1010) #*01011010)) EQL-OK: NIL (NOT (EQUAL (CONCATENATE 'BIT-VECTOR #*0101 #*1010 #* #*11 #*1 #*1) #*010110101111)) EQL-OK: NIL (NOT (EQUAL (CONCATENATE 'BIT-VECTOR '(0 1 0 1) '(0 1 0 1) #(0 1 0 1) #*0101) #*0101010101010101)) EQL-OK: NIL (NOT (EQUAL (CONCATENATE 'BIT-VECTOR) #*)) EQL-OK: NIL (NOT (EQUAL (CONCATENATE 'BIT-VECTOR #*) #*)) EQL-OK: NIL (NOT (EQUAL (CONCATENATE 'BIT-VECTOR #* 'NIL #()) #*)) EQL-OK: NIL (NOT (LET ((TEST1 (LIST 1 3 4 6 7)) (TEST2 (LIST 2 5 8))) (EQUAL (MERGE 'LIST TEST1 TEST2 #'<) '(1 2 3 4 5 6 7 8)))) EQL-OK: NIL (NOT (LET ((TEST1 (COPY-SEQ "BOY")) (TEST2 (COPY-SEQ "nosy"))) (EQUAL (MERGE 'STRING TEST1 TEST2 #'CHAR-LESSP) "BnOosYy"))) EQL-OK: NIL (NOT (LET ((TEST1 (VECTOR '(RED . 1) '(BLUE . 4))) (TEST2 (VECTOR '(YELLOW . 2) '(GREEN . 7)))) (EQUALP (MERGE 'VECTOR TEST1 TEST2 #'< :KEY #'CDR) #((RED . 1) (YELLOW . 2) (BLUE . 4) (GREEN . 7))))) EQL-OK: NIL (NOT (EQUAL (MERGE 'LIST (LIST 1 3 5 7 9) (LIST 0 2 4 6 8) #'<) '(0 1 2 3 4 5 6 7 8 9))) EQL-OK: NIL (NOT (EQUAL (MERGE 'CONS (LIST 1 3 5 7 9) (LIST 0 2 4 6 8) #'<) '(0 1 2 3 4 5 6 7 8 9))) EQL-OK: NIL (NOT (EQUAL (MERGE 'LIST (LIST 0 1 2) NIL #'<) '(0 1 2))) EQL-OK: NIL (NOT (EQUAL (MERGE 'LIST NIL (LIST 0 1 2) #'<) '(0 1 2))) EQL-OK: NIL (NOT (EQUAL (MERGE 'LIST NIL NIL #'<) NIL)) EQL-OK: NIL (NOT (EQUAL (MERGE 'LIST (LIST '(1 1) '(2 1) '(3 1)) (LIST '(1 2) '(2 2) '(3 2)) #'< :KEY #'CAR) '((1 1) (1 2) (2 1) (2 2) (3 1) (3 2)))) EQL-OK: NIL (NOT (EQUAL (MERGE 'LIST (LIST '(1 1) '(2 1) '(2 1 1) '(3 1)) (LIST '(1 2) '(2 2) '(3 2)) #'< :KEY #'CAR) '((1 1) (1 2) (2 1) (2 1 1) (2 2) (3 1) (3 2)))) EQL-OK: NIL (NOT (EQUAL (MERGE 'LIST (LIST '(1 1) '(2 1) '(2 1 1) '(3 1)) (LIST '(1 2) '(2 2) '(3 2) '(3 2 2)) #'< :KEY #'CAR) '((1 1) (1 2) (2 1) (2 1 1) (2 2) (3 1) (3 2) (3 2 2)))) EQL-OK: NIL (NOT (EQUAL (MERGE 'LIST (LIST 3 1 9 5 7) (LIST 8 6 0 2 4) #'<) '(3 1 8 6 0 2 4 9 5 7))) EQL-OK: NIL (NOT (EQUAL (MERGE 'LIST (VECTOR 1 3 5 7 9) (LIST 0 2 4 6 8) #'<) '(0 1 2 3 4 5 6 7 8 9))) EQL-OK: NIL (NOT (EQUAL (MERGE 'CONS (VECTOR 1 3 5 7 9) (LIST 0 2 4 6 8) #'<) '(0 1 2 3 4 5 6 7 8 9))) EQL-OK: NIL (NOT (EQUAL (MERGE 'LIST (VECTOR 0 1 2) NIL #'<) '(0 1 2))) EQL-OK: NIL (NOT (EQUAL (MERGE 'LIST #() (LIST 0 1 2) #'<) '(0 1 2))) EQL-OK: NIL (NOT (EQUAL (MERGE 'LIST #() #() #'<) NIL)) EQL-OK: NIL (NOT (EQUAL (MERGE 'LIST (VECTOR '(1 1) '(2 1) '(3 1)) (LIST '(1 2) '(2 2) '(3 2)) #'< :KEY #'CAR) '((1 1) (1 2) (2 1) (2 2) (3 1) (3 2)))) EQL-OK: NIL (NOT (EQUAL (MERGE 'LIST (VECTOR '(1 1) '(2 1) '(2 1 1) '(3 1)) (LIST '(1 2) '(2 2) '(3 2)) #'< :KEY #'CAR) '((1 1) (1 2) (2 1) (2 1 1) (2 2) (3 1) (3 2)))) EQL-OK: NIL (NOT (EQUAL (MERGE 'LIST (VECTOR '(1 1) '(2 1) '(2 1 1) '(3 1)) (LIST '(1 2) '(2 2) '(3 2) '(3 2 2)) #'< :KEY #'CAR) '((1 1) (1 2) (2 1) (2 1 1) (2 2) (3 1) (3 2) (3 2 2)))) EQL-OK: NIL (NOT (EQUAL (MERGE 'LIST (VECTOR 3 1 9 5 7) (LIST 8 6 0 2 4) #'<) '(3 1 8 6 0 2 4 9 5 7))) EQL-OK: NIL (NOT (EQUAL (MERGE 'LIST (LIST 1 3 5 7 9) (VECTOR 0 2 4 6 8) #'<) '(0 1 2 3 4 5 6 7 8 9))) EQL-OK: NIL (NOT (EQUAL (MERGE 'CONS (LIST 1 3 5 7 9) (VECTOR 0 2 4 6 8) #'<) '(0 1 2 3 4 5 6 7 8 9))) EQL-OK: NIL (NOT (EQUAL (MERGE 'LIST (LIST 0 1 2) #() #'<) '(0 1 2))) EQL-OK: NIL (NOT (EQUAL (MERGE 'LIST NIL (VECTOR 0 1 2) #'<) '(0 1 2))) EQL-OK: NIL (NOT (EQUAL (MERGE 'LIST NIL #() #'<) NIL)) EQL-OK: NIL (NOT (EQUAL (MERGE 'LIST (LIST '(1 1) '(2 1) '(3 1)) (VECTOR '(1 2) '(2 2) '(3 2)) #'< :KEY #'CAR) '((1 1) (1 2) (2 1) (2 2) (3 1) (3 2)))) EQL-OK: NIL (NOT (EQUAL (MERGE 'LIST (LIST '(1 1) '(2 1) '(2 1 1) '(3 1)) (VECTOR '(1 2) '(2 2) '(3 2)) #'< :KEY #'CAR) '((1 1) (1 2) (2 1) (2 1 1) (2 2) (3 1) (3 2)))) EQL-OK: NIL (NOT (EQUAL (MERGE 'LIST (LIST '(1 1) '(2 1) '(2 1 1) '(3 1)) (VECTOR '(1 2) '(2 2) '(3 2) '(3 2 2)) #'< :KEY #'CAR) '((1 1) (1 2) (2 1) (2 1 1) (2 2) (3 1) (3 2) (3 2 2)))) EQL-OK: NIL (NOT (EQUAL (MERGE 'LIST (LIST 3 1 9 5 7) (VECTOR 8 6 0 2 4) #'<) '(3 1 8 6 0 2 4 9 5 7))) EQL-OK: NIL (NOT (EQUAL (MERGE 'LIST (VECTOR 1 3 5 7 9) (VECTOR 0 2 4 6 8) #'<) '(0 1 2 3 4 5 6 7 8 9))) EQL-OK: NIL (NOT (EQUAL (MERGE 'CONS (VECTOR 1 3 5 7 9) (VECTOR 0 2 4 6 8) #'<) '(0 1 2 3 4 5 6 7 8 9))) EQL-OK: NIL (NOT (EQUAL (MERGE 'LIST (VECTOR 0 1 2) #() #'<) '(0 1 2))) EQL-OK: NIL (NOT (EQUAL (MERGE 'LIST #() (VECTOR 0 1 2) #'<) '(0 1 2))) EQL-OK: NIL (NOT (EQUAL (MERGE 'LIST #() #() #'<) NIL)) EQL-OK: NIL (NOT (EQUAL (MERGE 'LIST (VECTOR '(1 1) '(2 1) '(3 1)) (VECTOR '(1 2) '(2 2) '(3 2)) #'< :KEY #'CAR) '((1 1) (1 2) (2 1) (2 2) (3 1) (3 2)))) EQL-OK: NIL (NOT (EQUAL (MERGE 'LIST (VECTOR '(1 1) '(2 1) '(2 1 1) '(3 1)) (VECTOR '(1 2) '(2 2) '(3 2)) #'< :KEY #'CAR) '((1 1) (1 2) (2 1) (2 1 1) (2 2) (3 1) (3 2)))) EQL-OK: NIL (NOT (EQUAL (MERGE 'LIST (VECTOR '(1 1) '(2 1) '(2 1 1) '(3 1)) (VECTOR '(1 2) '(2 2) '(3 2) '(3 2 2)) #'< :KEY #'CAR) '((1 1) (1 2) (2 1) (2 1 1) (2 2) (3 1) (3 2) (3 2 2)))) EQL-OK: NIL (NOT (EQUAL (MERGE 'LIST (VECTOR 3 1 9 5 7) (VECTOR 8 6 0 2 4) #'<) '(3 1 8 6 0 2 4 9 5 7))) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR (LIST 1 3 5 7 9) (LIST 0 2 4 6 8) #'<) #(0 1 2 3 4 5 6 7 8 9))) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR (LIST 1 3 5 7 9) (LIST 0 2 4 6 8) #'<) #(0 1 2 3 4 5 6 7 8 9))) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR (LIST 0 1 2) NIL #'<) #(0 1 2))) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR NIL (LIST 0 1 2) #'<) #(0 1 2))) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR NIL NIL #'<) #())) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR (LIST '(1 1) '(2 1) '(3 1)) (LIST '(1 2) '(2 2) '(3 2)) #'< :KEY #'CAR) #((1 1) (1 2) (2 1) (2 2) (3 1) (3 2)))) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR (LIST '(1 1) '(2 1) '(2 1 1) '(3 1)) (LIST '(1 2) '(2 2) '(3 2)) #'< :KEY #'CAR) #((1 1) (1 2) (2 1) (2 1 1) (2 2) (3 1) (3 2)))) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR (LIST '(1 1) '(2 1) '(2 1 1) '(3 1)) (LIST '(1 2) '(2 2) '(3 2) '(3 2 2)) #'< :KEY #'CAR) #((1 1) (1 2) (2 1) (2 1 1) (2 2) (3 1) (3 2) (3 2 2)))) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR (LIST 3 1 9 5 7) (LIST 8 6 0 2 4) #'<) #(3 1 8 6 0 2 4 9 5 7))) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR (VECTOR 1 3 5 7 9) (LIST 0 2 4 6 8) #'<) #(0 1 2 3 4 5 6 7 8 9))) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR (VECTOR 1 3 5 7 9) (LIST 0 2 4 6 8) #'<) #(0 1 2 3 4 5 6 7 8 9))) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR (VECTOR 0 1 2) NIL #'<) #(0 1 2))) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR #() (LIST 0 1 2) #'<) #(0 1 2))) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR #() #() #'<) #())) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR (VECTOR '(1 1) '(2 1) '(3 1)) (LIST '(1 2) '(2 2) '(3 2)) #'< :KEY #'CAR) #((1 1) (1 2) (2 1) (2 2) (3 1) (3 2)))) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR (VECTOR '(1 1) '(2 1) '(2 1 1) '(3 1)) (LIST '(1 2) '(2 2) '(3 2)) #'< :KEY #'CAR) #((1 1) (1 2) (2 1) (2 1 1) (2 2) (3 1) (3 2)))) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR (VECTOR '(1 1) '(2 1) '(2 1 1) '(3 1)) (LIST '(1 2) '(2 2) '(3 2) '(3 2 2)) #'< :KEY #'CAR) #((1 1) (1 2) (2 1) (2 1 1) (2 2) (3 1) (3 2) (3 2 2)))) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR (VECTOR 3 1 9 5 7) (LIST 8 6 0 2 4) #'<) #(3 1 8 6 0 2 4 9 5 7))) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR (LIST 1 3 5 7 9) (VECTOR 0 2 4 6 8) #'<) #(0 1 2 3 4 5 6 7 8 9))) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR (LIST 1 3 5 7 9) (VECTOR 0 2 4 6 8) #'<) #(0 1 2 3 4 5 6 7 8 9))) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR (LIST 0 1 2) #() #'<) #(0 1 2))) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR NIL (VECTOR 0 1 2) #'<) #(0 1 2))) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR NIL #() #'<) #())) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR (LIST '(1 1) '(2 1) '(3 1)) (VECTOR '(1 2) '(2 2) '(3 2)) #'< :KEY #'CAR) #((1 1) (1 2) (2 1) (2 2) (3 1) (3 2)))) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR (LIST '(1 1) '(2 1) '(2 1 1) '(3 1)) (VECTOR '(1 2) '(2 2) '(3 2)) #'< :KEY #'CAR) #((1 1) (1 2) (2 1) (2 1 1) (2 2) (3 1) (3 2)))) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR (LIST '(1 1) '(2 1) '(2 1 1) '(3 1)) (VECTOR '(1 2) '(2 2) '(3 2) '(3 2 2)) #'< :KEY #'CAR) #((1 1) (1 2) (2 1) (2 1 1) (2 2) (3 1) (3 2) (3 2 2)))) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR (LIST 3 1 9 5 7) (VECTOR 8 6 0 2 4) #'<) #(3 1 8 6 0 2 4 9 5 7))) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR (VECTOR 1 3 5 7 9) (VECTOR 0 2 4 6 8) #'<) #(0 1 2 3 4 5 6 7 8 9))) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR (VECTOR 0 1 2) #() #'<) #(0 1 2))) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR #() (VECTOR 0 1 2) #'<) #(0 1 2))) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR #() #() #'<) #())) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR (VECTOR '(1 1) '(2 1) '(3 1)) (VECTOR '(1 2) '(2 2) '(3 2)) #'< :KEY #'CAR) #((1 1) (1 2) (2 1) (2 2) (3 1) (3 2)))) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR (VECTOR '(1 1) '(2 1) '(2 1 1) '(3 1)) (VECTOR '(1 2) '(2 2) '(3 2)) #'< :KEY #'CAR) #((1 1) (1 2) (2 1) (2 1 1) (2 2) (3 1) (3 2)))) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR (VECTOR '(1 1) '(2 1) '(2 1 1) '(3 1)) (VECTOR '(1 2) '(2 2) '(3 2) '(3 2 2)) #'< :KEY #'CAR) #((1 1) (1 2) (2 1) (2 1 1) (2 2) (3 1) (3 2) (3 2 2)))) EQL-OK: NIL (NOT (EQUALP (MERGE 'VECTOR (VECTOR 3 1 9 5 7) (VECTOR 8 6 0 2 4) #'<) #(3 1 8 6 0 2 4 9 5 7))) EQL-OK: NIL (NOT (STRING= (MERGE 'STRING (LIST #\a #\c #\e) (LIST #\b #\d #\f) #'CHAR<) "abcdef")) EQL-OK: NIL (NOT (STRING= (MERGE 'STRING (LIST #\a #\b #\c) (LIST #\d #\e #\f) #'CHAR<) "abcdef")) EQL-OK: NIL (NOT (STRING= (MERGE 'STRING (LIST #\a #\b #\c) 'NIL #'CHAR<) "abc")) EQL-OK: NIL (NOT (STRING= (MERGE 'STRING 'NIL (LIST #\a #\b #\c) #'CHAR<) "abc")) EQL-OK: NIL (NOT (STRING= (MERGE 'STRING (LIST #\a #\b #\c) (COPY-SEQ "") #'CHAR<) "abc")) EQL-OK: NIL (NOT (STRING= (MERGE 'STRING (LIST #\a #\b #\c) (COPY-SEQ "BCD") #'CHAR-LESSP) "abBcCD")) EQL-OK: NIL (NOT (STRING= (MERGE 'STRING (LIST #\a #\b #\z) #(#\c #\x #\y) #'CHAR<) "abcxyz")) EQL-OK: NIL (NOT (EQUAL (MERGE 'BIT-VECTOR (COPY-SEQ #*0101) (COPY-SEQ #*1010) #'<) #*01011010)) EQL-OK: NIL (NOT (EQUAL (MERGE 'BIT-VECTOR (COPY-SEQ #*0101) (COPY-SEQ #*) #'<) #*0101)) EQL-OK: NIL (NOT (EQUAL (MERGE 'BIT-VECTOR (COPY-SEQ #*0101) 'NIL #'<) #*0101)) EQL-OK: NIL (NOT (EQUAL (MERGE 'BIT-VECTOR NIL (COPY-SEQ #*0101) #'<) #*0101)) EQL-OK: NIL (NOT (EQUAL (MERGE 'BIT-VECTOR (COPY-SEQ #*0101) (COPY-SEQ #*0101) #'<) #*00101101)) EQL-OK: NIL (NOT (EQUAL (REMOVE 4 '(1 3 4 5 9)) '(1 3 5 9))) EQL-OK: NIL (NOT (EQUAL (REMOVE 4 '(1 2 4 1 3 4 5)) '(1 2 1 3 5))) EQL-OK: NIL (NOT (EQUAL (REMOVE 4 '(1 2 4 1 3 4 5) :COUNT 1) '(1 2 1 3 4 5))) EQL-OK: NIL (NOT (EQUAL (REMOVE 4 '(1 2 4 1 3 4 5) :COUNT 1 :FROM-END T) '(1 2 4 1 3 5))) EQL-OK: NIL (NOT (EQUAL (REMOVE 3 '(1 2 4 1 3 4 5) :TEST #'>) '(4 3 4 5))) EQL-OK: NIL (NOT (LET* ((LST '(LIST OF FOUR ELEMENTS)) (LST2 (COPY-SEQ LST)) (LST3 (DELETE 'FOUR LST))) (AND (EQUAL LST3 '(LIST OF ELEMENTS)) (NOT (EQUAL LST LST2))))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'ODDP '(1 2 4 1 3 4 5)) '(2 4 4))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'EVENP '(1 2 4 1 3 4 5) :COUNT 1 :FROM-END T) '(1 2 4 1 3 5))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'EVENP '(1 2 3 4 5 6 7 8 9) :COUNT 2 :FROM-END T) '(1 2 3 4 5 6 8))) EQL-OK: NIL (NOT (EQUAL (DELETE 4 (LIST 1 2 4 1 3 4 5)) '(1 2 1 3 5))) EQL-OK: NIL (NOT (EQUAL (DELETE 4 (LIST 1 2 4 1 3 4 5) :COUNT 1) '(1 2 1 3 4 5))) EQL-OK: NIL (NOT (EQUAL (DELETE 4 (LIST 1 2 4 1 3 4 5) :COUNT 1 :FROM-END T) '(1 2 4 1 3 5))) EQL-OK: NIL (NOT (EQUAL (DELETE 3 (LIST 1 2 4 1 3 4 5) :TEST #'>) '(4 3 4 5))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'ODDP (LIST 1 2 4 1 3 4 5)) '(2 4 4))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'EVENP (LIST 1 2 4 1 3 4 5) :COUNT 1 :FROM-END T) '(1 2 4 1 3 5))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'EVENP (LIST 1 2 3 4 5 6)) '(1 3 5))) EQL-OK: NIL (NOT (LET* ((LIST0 (LIST 0 1 2 3 4)) (LIST (REMOVE 3 LIST0))) (AND (NOT (EQ LIST0 LIST)) (EQUAL LIST0 '(0 1 2 3 4)) (EQUAL LIST '(0 1 2 4))))) EQL-OK: NIL (NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C)) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE 'B (LIST 'A 'B 'C 'A 'B 'C)) '(A C A C))) EQL-OK: NIL (NOT (EQUAL (REMOVE 'C (LIST 'A 'B 'C 'A 'B 'C)) '(A B A B))) EQL-OK: NIL (NOT (EQUAL (REMOVE 'A (LIST 'A 'A 'A)) 'NIL)) EQL-OK: NIL (NOT (EQUAL (REMOVE 'Z (LIST 'A 'B 'C)) '(A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE 'A 'NIL) 'NIL)) EQL-OK: NIL (NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 0) '(A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 1) '(B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 1 :FROM-END T) '(A B C B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 2) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 2 :FROM-END T) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 3) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 3 :FROM-END T) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 4) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 4 :FROM-END T) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT -1) '(A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT -10) '(A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT -100) '(A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1) '(A B C B C B C B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 1) '(A B C B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 2) '(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END NIL :COUNT 2) '(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8) '(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1) '(A B C B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1 :FROM-END T) '(A B C A B C B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 0 :FROM-END T) '(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT -100 :FROM-END T) '(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 1) '(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 2 :END 2) '(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 12 :END 12) '(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE 'A (LIST '(A) '(B) '(C) '(A) '(B) '(C)) :KEY #'CAR) '((B) (C) (B) (C)))) EQL-OK: NIL (NOT (EQUAL (REMOVE 'A (LIST '(A . B) '(B . C) '(C . A) '(A . B) '(B . C) '(C . A)) :KEY #'CDR) '((A . B) (B . C) (A . B) (B . C)))) EQL-OK: NIL (NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) '(("Love") ("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT -10) '(("Love") ("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL) 'NIL)) EQL-OK: NIL (NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL)) 'NIL)) EQL-OK: NIL (NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 1) '(("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 1) '(("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 1 :FROM-END T) '(("Love") ("LOve") ("LOVe")))) EQL-OK: NIL (NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 1 :FROM-END T) '(("Love") ("LOve") ("LOVe")))) EQL-OK: NIL (NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 2 :FROM-END T) '(("Love") ("LOve")))) EQL-OK: NIL (NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 2 :FROM-END T) '(("Love") ("LOve")))) EQL-OK: NIL (NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :START 1 :END 3) '(("Love") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :START 1 :END 3) '(("Love") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 1 :START 1 :END 3) '(("Love") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 1 :START 1 :END 3) '(("Love") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 1 :FROM-END T :START 1 :END 3) '(("Love") ("LOve") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 1 :FROM-END T :START 1 :END 3) '(("Love") ("LOve") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 10 :FROM-END T :START 1 :END 3) '(("Love") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (REMOVE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 10 :FROM-END T :START 1 :END 3) '(("Love") ("LOVE")))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 0 1 2 3 4)) (VECTOR (REMOVE 3 VECTOR0))) (AND (NOT (EQ VECTOR0 VECTOR)) (EQUALP VECTOR0 #(0 1 2 3 4)) (EQUALP VECTOR #(0 1 2 4))))) EQL-OK: NIL (NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C)) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE 'B (VECTOR 'A 'B 'C 'A 'B 'C)) #(A C A C))) EQL-OK: NIL (NOT (EQUALP (REMOVE 'C (VECTOR 'A 'B 'C 'A 'B 'C)) #(A B A B))) EQL-OK: NIL (NOT (EQUALP (REMOVE 'A (VECTOR 'A 'A 'A)) #())) EQL-OK: NIL (NOT (EQUALP (REMOVE 'Z (VECTOR 'A 'B 'C)) #(A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE 'A #()) #())) EQL-OK: NIL (NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 0) #(A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 1) #(B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 1 :FROM-END T) #(A B C B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 2) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 2 :FROM-END T) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 3) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 3 :FROM-END T) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 4) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 4 :FROM-END T) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -1) #(A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -10) #(A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -100) #(A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1) #(A B C B C B C B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 1) #(A B C B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 2) #(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END NIL :COUNT 2) #(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8) #(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1) #(A B C B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1 :FROM-END T) #(A B C A B C B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 0 :FROM-END T) #(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT -100 :FROM-END T) #(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 1) #(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 2 :END 2) #(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 12 :END 12) #(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE 'A (VECTOR '(A) '(B) '(C) '(A) '(B) '(C)) :KEY #'CAR) #((B) (C) (B) (C)))) EQL-OK: NIL (NOT (EQUALP (REMOVE 'A (VECTOR '(A . B) '(B . C) '(C . A) '(A . B) '(B . C) '(C . A)) :KEY #'CDR) #((A . B) (B . C) (A . B) (B . C)))) EQL-OK: NIL (NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) #(("Love") ("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT -10) #(("Love") ("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL) #())) EQL-OK: NIL (NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL)) #())) EQL-OK: NIL (NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 1) #(("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 1) #(("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 1 :FROM-END T) #(("Love") ("LOve") ("LOVe")))) EQL-OK: NIL (NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 1 :FROM-END T) #(("Love") ("LOve") ("LOVe")))) EQL-OK: NIL (NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 2 :FROM-END T) #(("Love") ("LOve")))) EQL-OK: NIL (NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 2 :FROM-END T) #(("Love") ("LOve")))) EQL-OK: NIL (NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :START 1 :END 3) #(("Love") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :START 1 :END 3) #(("Love") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 1 :START 1 :END 3) #(("Love") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 1 :START 1 :END 3) #(("Love") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 1 :FROM-END T :START 1 :END 3) #(("Love") ("LOve") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 1 :FROM-END T :START 1 :END 3) #(("Love") ("LOve") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 10 :FROM-END T :START 1 :END 3) #(("Love") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (REMOVE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 10 :FROM-END T :START 1 :END 3) #(("Love") ("LOVE")))) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc")) "bcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "")) "")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "xyz")) "xyz")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "ABCABC")) "ABCABC")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "ABCABC") :KEY #'CHAR-DOWNCASE) "BCBC")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT 1) "bcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT 1 :FROM-END T) "abcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT -10) "abcabc")) EQL-OK: NIL (NOT (LET* ((STR0 (COPY-SEQ "abc")) (STR (REMOVE #\a STR0))) (AND (NOT (EQ STR0 STR)) (STRING= STR0 "abc") (STRING= STR "bc")))) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc")) "bcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE #\b (COPY-SEQ "abcabc")) "acac")) EQL-OK: NIL (NOT (STRING= (REMOVE #\c (COPY-SEQ "abcabc")) "abab")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT 1) "bcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT 1 :FROM-END T) "abcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT 2) "bcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT 2 :FROM-END T) "bcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT 3) "bcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT 3 :FROM-END T) "bcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT 4) "bcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT 4 :FROM-END T) "bcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT -1) "abcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT -10) "abcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabc") :COUNT -100) "abcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabcabcabc") :START 1) "abcbcbcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabcabcabc") :START 1 :COUNT 1) "abcbcabcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabcabcabc") :START 1 :COUNT 2) "abcbcbcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabcabcabc") :START 1 :END NIL :COUNT 2) "abcbcbcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabcabcabc") :START 1 :END 8) "abcbcbcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 1) "abcbcabcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 1 :FROM-END T) "abcabcbcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 0 :FROM-END T) "abcabcabcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT -100 :FROM-END T) "abcabcabcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabcabcabc") :START 1 :END 1) "abcabcabcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabcabcabc") :START 2 :END 2) "abcabcabcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE #\a (COPY-SEQ "abcabcabcabc") :START 12 :END 12) "abcabcabcabc")) EQL-OK: NIL (NOT (EQUAL (REMOVE 0 #*0101) #*11)) EQL-OK: NIL (NOT (EQUAL (REMOVE 0 #*01010101 :COUNT 1) #*1010101)) EQL-OK: NIL (NOT (EQUAL (REMOVE 0 #*01010101 :COUNT 1 :FROM-END T) #*0101011)) EQL-OK: NIL (NOT (EQUAL (REMOVE 0 #*01010101 :START 1) #*01111)) EQL-OK: NIL (NOT (EQUAL (REMOVE 0 #*01010101 :START 1 :END NIL) #*01111)) EQL-OK: NIL (NOT (EQUAL (REMOVE 0 #*01010101 :START 1 :END 6) #*011101)) EQL-OK: NIL (NOT (EQUAL (REMOVE 0 #*01010101 :START 1 :END 6 :COUNT 1) #*0110101)) EQL-OK: NIL (NOT (EQUAL (REMOVE 0 #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T) #*0101101)) EQL-OK: NIL (NOT (EQUAL (REMOVE 0 #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T :TEST #'(LAMBDA (A B) (DECLARE (IGNORE A)) (ODDP B))) #*0101001)) EQL-OK: NIL (NOT (EQUAL (REMOVE 0 #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T :TEST-NOT #'(LAMBDA (A B) (DECLARE (IGNORE A)) (EVENP B))) #*0101001)) EQL-OK: NIL (NOT (EQUAL (REMOVE 0 #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T :TEST #'(LAMBDA (A B) (DECLARE (IGNORE A)) (EVENP B))) #*0101101)) EQL-OK: NIL (NOT (EQUAL (REMOVE 0 #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T :TEST-NOT #'(LAMBDA (A B) (DECLARE (IGNORE A)) (ODDP B))) #*0101101)) EQL-OK: NIL (NOT (EQUAL (REMOVE 0 #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T :KEY #'(LAMBDA (ARG) (* ARG 10)) :TEST #'(LAMBDA (A B) (DECLARE (IGNORE A)) (> B 1))) #*0101001)) EQL-OK: NIL (NOT (LET* ((LIST0 (LIST 0 1 2 3 4)) (LIST (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 3)) LIST0))) (AND (NOT (EQ LIST0 LIST)) (EQUAL LIST0 '(0 1 2 3 4)) (EQUAL LIST '(0 1 2 4))))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C)) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'B)) (LIST 'A 'B 'C 'A 'B 'C)) '(A C A C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'C)) (LIST 'A 'B 'C 'A 'B 'C)) '(A B A B))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'A 'A)) 'NIL)) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'Z)) (LIST 'A 'B 'C)) '(A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) 'NIL) 'NIL)) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 0) '(A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 1) '(B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 1 :FROM-END T) '(A B C B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 2) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 2 :FROM-END T) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 3) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 3 :FROM-END T) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 4) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 4 :FROM-END T) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT -1) '(A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT -10) '(A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT -100) '(A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1) '(A B C B C B C B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 1) '(A B C B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 2) '(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END NIL :COUNT 2) '(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8) '(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1) '(A B C B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1 :FROM-END T) '(A B C A B C B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 0 :FROM-END T) '(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT -100 :FROM-END T) '(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 1) '(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 2 :END 2) '(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 12 :END 12) '(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST '(A) '(B) '(C) '(A) '(B) '(C)) :KEY #'CAR) '((B) (C) (B) (C)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST '(A . B) '(B . C) '(C . A) '(A . B) '(B . C) '(C . A)) :KEY #'CDR) '((A . B) (B . C) (A . B) (B . C)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) '(("Love") ("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT -10) '(("Love") ("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) 'NIL)) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1) '(("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T) '(("Love") ("LOve") ("LOVe")))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 2 :FROM-END T) '(("Love") ("LOve")))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :START 1 :END 3) '(("Love") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :START 1 :END 3) '(("Love") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T :START 1 :END 3) '(("Love") ("LOve") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 10 :FROM-END T :START 1 :END 3) '(("Love") ("LOVE")))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 0 1 2 3 4)) (VECTOR (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 3)) VECTOR0))) (AND (NOT (EQ VECTOR0 VECTOR)) (EQUALP VECTOR0 #(0 1 2 3 4)) (EQUALP VECTOR #(0 1 2 4))))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C)) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'B)) (VECTOR 'A 'B 'C 'A 'B 'C)) #(A C A C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'C)) (VECTOR 'A 'B 'C 'A 'B 'C)) #(A B A B))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'A 'A)) #())) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'Z)) (VECTOR 'A 'B 'C)) #(A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) #()) #())) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 0) #(A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 1) #(B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 1 :FROM-END T) #(A B C B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 2) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 2 :FROM-END T) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 3) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 3 :FROM-END T) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 4) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 4 :FROM-END T) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -1) #(A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -10) #(A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -100) #(A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1) #(A B C B C B C B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 1) #(A B C B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 2) #(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END NIL :COUNT 2) #(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8) #(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1) #(A B C B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1 :FROM-END T) #(A B C A B C B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 0 :FROM-END T) #(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT -100 :FROM-END T) #(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 1) #(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 2 :END 2) #(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 12 :END 12) #(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR '(A) '(B) '(C) '(A) '(B) '(C)) :KEY #'CAR) #((B) (C) (B) (C)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR '(A . B) '(B . C) '(C . A) '(A . B) '(B . C) '(C . A)) :KEY #'CDR) #((A . B) (B . C) (A . B) (B . C)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) #(("Love") ("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT -10) #(("Love") ("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) #())) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) #())) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1) #(("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1) #(("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T) #(("Love") ("LOve") ("LOVe")))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T) #(("Love") ("LOve") ("LOVe")))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 2 :FROM-END T) #(("Love") ("LOve")))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 2 :FROM-END T) #(("Love") ("LOve")))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :START 1 :END 3) #(("Love") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :START 1 :END 3) #(("Love") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T :START 1 :END 3) #(("Love") ("LOve") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 10 :FROM-END T :START 1 :END 3) #(("Love") ("LOVE")))) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc")) "bcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "")) "")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "xyz")) "xyz")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "ABCABC") :KEY #'CHAR-DOWNCASE) "BCBC")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 1) "bcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 1 :FROM-END T) "abcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT -10) "abcabc")) EQL-OK: NIL (NOT (LET* ((STR0 (COPY-SEQ "abc")) (STR (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) STR0))) (AND (NOT (EQ STR0 STR)) (STRING= STR0 "abc") (STRING= STR "bc")))) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc")) "bcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\b)) (COPY-SEQ "abcabc")) "acac")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\c)) (COPY-SEQ "abcabc")) "abab")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 1) "bcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 1 :FROM-END T) "abcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 2) "bcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 2 :FROM-END T) "bcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 3) "bcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 3 :FROM-END T) "bcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 4) "bcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 4 :FROM-END T) "bcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT -1) "abcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT -10) "abcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT -100) "abcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1) "abcbcbcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :COUNT 1) "abcbcabcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :COUNT 2) "abcbcbcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :END NIL :COUNT 2) "abcbcbcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :END 8) "abcbcbcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 1) "abcbcabcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 1 :FROM-END T) "abcabcbcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 0 :FROM-END T) "abcabcabcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT -100 :FROM-END T) "abcabcabcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :END 1) "abcabcabcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 2 :END 2) "abcabcabcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 12 :END 12) "abcabcabcabc")) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'ZEROP #*0101) #*11)) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'ZEROP #*01010101 :COUNT 1) #*1010101)) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'ZEROP #*01010101 :COUNT 1 :FROM-END T) #*0101011)) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'ZEROP #*01010101 :START 1) #*01111)) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'ZEROP #*01010101 :START 1 :END NIL) #*01111)) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'ZEROP #*01010101 :START 1 :END 6) #*011101)) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'ZEROP #*01010101 :START 1 :END 6 :COUNT 1) #*0110101)) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'ZEROP #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T) #*0101101)) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'ODDP #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T) #*0101001)) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'EVENP #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T) #*0101101)) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF #'PLUSP #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T :KEY #'(LAMBDA (ARG) (* ARG 10))) #*0101001)) EQL-OK: NIL (NOT (LET* ((LIST0 (LIST 0 1 2 3 4)) (LIST (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 3))) LIST0))) (AND (NOT (EQ LIST0 LIST)) (EQUAL LIST0 '(0 1 2 3 4)) (EQUAL LIST '(0 1 2 4))))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C)) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'B))) (LIST 'A 'B 'C 'A 'B 'C)) '(A C A C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'C))) (LIST 'A 'B 'C 'A 'B 'C)) '(A B A B))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'A 'A)) 'NIL)) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'Z))) (LIST 'A 'B 'C)) '(A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) 'NIL) 'NIL)) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 0) '(A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 1) '(B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 1 :FROM-END T) '(A B C B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 2) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 2 :FROM-END T) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 3) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 3 :FROM-END T) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 4) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 4 :FROM-END T) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT -1) '(A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT -10) '(A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT -100) '(A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1) '(A B C B C B C B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 1) '(A B C B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 2) '(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END NIL :COUNT 2) '(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8) '(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1) '(A B C B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1 :FROM-END T) '(A B C A B C B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 0 :FROM-END T) '(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT -100 :FROM-END T) '(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 1) '(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 2 :END 2) '(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 12 :END 12) '(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST '(A) '(B) '(C) '(A) '(B) '(C)) :KEY #'CAR) '((B) (C) (B) (C)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST '(A . B) '(B . C) '(C . A) '(A . B) '(B . C) '(C . A)) :KEY #'CDR) '((A . B) (B . C) (A . B) (B . C)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) '(("Love") ("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT -10) '(("Love") ("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) 'NIL)) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1) '(("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T) '(("Love") ("LOve") ("LOVe")))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 2 :FROM-END T) '(("Love") ("LOve")))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :START 1 :END 3) '(("Love") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :START 1 :END 3) '(("Love") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T :START 1 :END 3) '(("Love") ("LOve") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 10 :FROM-END T :START 1 :END 3) '(("Love") ("LOVE")))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 0 1 2 3 4)) (VECTOR (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 3))) VECTOR0))) (AND (NOT (EQ VECTOR0 VECTOR)) (EQUALP VECTOR0 #(0 1 2 3 4)) (EQUALP VECTOR #(0 1 2 4))))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C)) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'B))) (VECTOR 'A 'B 'C 'A 'B 'C)) #(A C A C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'C))) (VECTOR 'A 'B 'C 'A 'B 'C)) #(A B A B))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'A 'A)) #())) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'Z))) (VECTOR 'A 'B 'C)) #(A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) #()) #())) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 0) #(A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 1) #(B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 1 :FROM-END T) #(A B C B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 2) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 2 :FROM-END T) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 3) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 3 :FROM-END T) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 4) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 4 :FROM-END T) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -1) #(A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -10) #(A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -100) #(A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1) #(A B C B C B C B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 1) #(A B C B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 2) #(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END NIL :COUNT 2) #(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8) #(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1) #(A B C B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1 :FROM-END T) #(A B C A B C B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 0 :FROM-END T) #(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT -100 :FROM-END T) #(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 1) #(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 2 :END 2) #(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 12 :END 12) #(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR '(A) '(B) '(C) '(A) '(B) '(C)) :KEY #'CAR) #((B) (C) (B) (C)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR '(A . B) '(B . C) '(C . A) '(A . B) '(B . C) '(C . A)) :KEY #'CDR) #((A . B) (B . C) (A . B) (B . C)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) #(("Love") ("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT -10) #(("Love") ("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) #())) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) #())) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1) #(("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1) #(("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T) #(("Love") ("LOve") ("LOVe")))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T) #(("Love") ("LOve") ("LOVe")))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 2 :FROM-END T) #(("Love") ("LOve")))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 2 :FROM-END T) #(("Love") ("LOve")))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :START 1 :END 3) #(("Love") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :START 1 :END 3) #(("Love") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T :START 1 :END 3) #(("Love") ("LOve") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 10 :FROM-END T :START 1 :END 3) #(("Love") ("LOVE")))) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc")) "bcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "")) "")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "xyz")) "xyz")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "ABCABC") :KEY #'CHAR-DOWNCASE) "BCBC")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 1) "bcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 1 :FROM-END T) "abcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT -10) "abcabc")) EQL-OK: NIL (NOT (LET* ((STR0 (COPY-SEQ "abc")) (STR (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) STR0))) (AND (NOT (EQ STR0 STR)) (STRING= STR0 "abc") (STRING= STR "bc")))) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc")) "bcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\b))) (COPY-SEQ "abcabc")) "acac")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\c))) (COPY-SEQ "abcabc")) "abab")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 1) "bcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 1 :FROM-END T) "abcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 2) "bcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 2 :FROM-END T) "bcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 3) "bcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 3 :FROM-END T) "bcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 4) "bcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 4 :FROM-END T) "bcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT -1) "abcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT -10) "abcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT -100) "abcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1) "abcbcbcbc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :COUNT 1) "abcbcabcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :COUNT 2) "abcbcbcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :END NIL :COUNT 2) "abcbcbcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :END 8) "abcbcbcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 1) "abcbcabcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 1 :FROM-END T) "abcabcbcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 0 :FROM-END T) "abcabcabcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT -100 :FROM-END T) "abcabcabcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :END 1) "abcabcabcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 2 :END 2) "abcabcabcabc")) EQL-OK: NIL (NOT (STRING= (REMOVE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 12 :END 12) "abcabcabcabc")) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT (COMPLEMENT #'ZEROP) #*0101) #*11)) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT (COMPLEMENT #'ZEROP) #*01010101 :COUNT 1) #*1010101)) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT (COMPLEMENT #'ZEROP) #*01010101 :COUNT 1 :FROM-END T) #*0101011)) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT (COMPLEMENT #'ZEROP) #*01010101 :START 1) #*01111)) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT (COMPLEMENT #'ZEROP) #*01010101 :START 1 :END NIL) #*01111)) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT (COMPLEMENT #'ZEROP) #*01010101 :START 1 :END 6) #*011101)) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT (COMPLEMENT #'ZEROP) #*01010101 :START 1 :END 6 :COUNT 1) #*0110101)) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT (COMPLEMENT #'ZEROP) #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T) #*0101101)) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT (COMPLEMENT #'ODDP) #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T) #*0101001)) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT (COMPLEMENT #'EVENP) #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T) #*0101101)) EQL-OK: NIL (NOT (EQUAL (REMOVE-IF-NOT (COMPLEMENT #'PLUSP) #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T :KEY #'(LAMBDA (ARG) (* ARG 10))) #*0101001)) EQL-OK: NIL (NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C)) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (DELETE 'B (LIST 'A 'B 'C 'A 'B 'C)) '(A C A C))) EQL-OK: NIL (NOT (EQUAL (DELETE 'C (LIST 'A 'B 'C 'A 'B 'C)) '(A B A B))) EQL-OK: NIL (NOT (EQUAL (DELETE 'A (LIST 'A 'A 'A)) 'NIL)) EQL-OK: NIL (NOT (EQUAL (DELETE 'Z (LIST 'A 'B 'C)) '(A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE 'A 'NIL) 'NIL)) EQL-OK: NIL (NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 0) '(A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 1) '(B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 1 :FROM-END T) '(A B C B C))) EQL-OK: NIL (NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 2) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 2 :FROM-END T) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 3) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 3 :FROM-END T) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 4) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT 4 :FROM-END T) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT -1) '(A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT -10) '(A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C) :COUNT -100) '(A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1) '(A B C B C B C B C))) EQL-OK: NIL (NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 1) '(A B C B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 2) '(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END NIL :COUNT 2) '(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8) '(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1) '(A B C B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1 :FROM-END T) '(A B C A B C B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 0 :FROM-END T) '(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT -100 :FROM-END T) '(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 1) '(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 2 :END 2) '(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE 'A (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 12 :END 12) '(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE 'A (LIST '(A) '(B) '(C) '(A) '(B) '(C)) :KEY #'CAR) '((B) (C) (B) (C)))) EQL-OK: NIL (NOT (EQUAL (DELETE 'A (LIST '(A . B) '(B . C) '(C . A) '(A . B) '(B . C) '(C . A)) :KEY #'CDR) '((A . B) (B . C) (A . B) (B . C)))) EQL-OK: NIL (NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) '(("Love") ("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT -10) '(("Love") ("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL) 'NIL)) EQL-OK: NIL (NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL)) 'NIL)) EQL-OK: NIL (NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 1) '(("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 1) '(("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 1 :FROM-END T) '(("Love") ("LOve") ("LOVe")))) EQL-OK: NIL (NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 1 :FROM-END T) '(("Love") ("LOve") ("LOVe")))) EQL-OK: NIL (NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 2 :FROM-END T) '(("Love") ("LOve")))) EQL-OK: NIL (NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 2 :FROM-END T) '(("Love") ("LOve")))) EQL-OK: NIL (NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :START 1 :END 3) '(("Love") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :START 1 :END 3) '(("Love") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 1 :START 1 :END 3) '(("Love") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 1 :START 1 :END 3) '(("Love") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 1 :FROM-END T :START 1 :END 3) '(("Love") ("LOve") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 1 :FROM-END T :START 1 :END 3) '(("Love") ("LOve") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 10 :FROM-END T :START 1 :END 3) '(("Love") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (DELETE "love" (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 10 :FROM-END T :START 1 :END 3) '(("Love") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C)) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (DELETE 'B (VECTOR 'A 'B 'C 'A 'B 'C)) #(A C A C))) EQL-OK: NIL (NOT (EQUALP (DELETE 'C (VECTOR 'A 'B 'C 'A 'B 'C)) #(A B A B))) EQL-OK: NIL (NOT (EQUALP (DELETE 'A (VECTOR 'A 'A 'A)) #())) EQL-OK: NIL (NOT (EQUALP (DELETE 'Z (VECTOR 'A 'B 'C)) #(A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE 'A #()) #())) EQL-OK: NIL (NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 0) #(A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 1) #(B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 1 :FROM-END T) #(A B C B C))) EQL-OK: NIL (NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 2) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 2 :FROM-END T) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 3) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 3 :FROM-END T) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 4) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 4 :FROM-END T) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -1) #(A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -10) #(A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -100) #(A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1) #(A B C B C B C B C))) EQL-OK: NIL (NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 1) #(A B C B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 2) #(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END NIL :COUNT 2) #(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8) #(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1) #(A B C B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1 :FROM-END T) #(A B C A B C B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 0 :FROM-END T) #(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT -100 :FROM-END T) #(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 1) #(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 2 :END 2) #(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE 'A (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 12 :END 12) #(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE 'A (VECTOR '(A) '(B) '(C) '(A) '(B) '(C)) :KEY #'CAR) #((B) (C) (B) (C)))) EQL-OK: NIL (NOT (EQUALP (DELETE 'A (VECTOR '(A . B) '(B . C) '(C . A) '(A . B) '(B . C) '(C . A)) :KEY #'CDR) #((A . B) (B . C) (A . B) (B . C)))) EQL-OK: NIL (NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) #(("Love") ("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT -10) #(("Love") ("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL) #())) EQL-OK: NIL (NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL)) #())) EQL-OK: NIL (NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 1) #(("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 1) #(("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 1 :FROM-END T) #(("Love") ("LOve") ("LOVe")))) EQL-OK: NIL (NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 1 :FROM-END T) #(("Love") ("LOve") ("LOVe")))) EQL-OK: NIL (NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 2 :FROM-END T) #(("Love") ("LOve")))) EQL-OK: NIL (NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 2 :FROM-END T) #(("Love") ("LOve")))) EQL-OK: NIL (NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :START 1 :END 3) #(("Love") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :START 1 :END 3) #(("Love") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 1 :START 1 :END 3) #(("Love") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 1 :START 1 :END 3) #(("Love") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 1 :FROM-END T :START 1 :END 3) #(("Love") ("LOve") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 1 :FROM-END T :START 1 :END 3) #(("Love") ("LOve") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST #'STRING-EQUAL :COUNT 10 :FROM-END T :START 1 :END 3) #(("Love") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (DELETE "love" (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :TEST-NOT (COMPLEMENT #'STRING-EQUAL) :COUNT 10 :FROM-END T :START 1 :END 3) #(("Love") ("LOVE")))) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc")) "bcbc")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "")) "")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "xyz")) "xyz")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "ABCABC")) "ABCABC")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "ABCABC") :KEY #'CHAR-DOWNCASE) "BCBC")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT 1) "bcabc")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT 1 :FROM-END T) "abcbc")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT -10) "abcabc")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc")) "bcbc")) EQL-OK: NIL (NOT (STRING= (DELETE #\b (COPY-SEQ "abcabc")) "acac")) EQL-OK: NIL (NOT (STRING= (DELETE #\c (COPY-SEQ "abcabc")) "abab")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT 1) "bcabc")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT 1 :FROM-END T) "abcbc")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT 2) "bcbc")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT 2 :FROM-END T) "bcbc")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT 3) "bcbc")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT 3 :FROM-END T) "bcbc")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT 4) "bcbc")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT 4 :FROM-END T) "bcbc")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT -1) "abcabc")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT -10) "abcabc")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "abcabc") :COUNT -100) "abcabc")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "abcabcabcabc") :START 1) "abcbcbcbc")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "abcabcabcabc") :START 1 :COUNT 1) "abcbcabcabc")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "abcabcabcabc") :START 1 :COUNT 2) "abcbcbcabc")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "abcabcabcabc") :START 1 :END NIL :COUNT 2) "abcbcbcabc")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "abcabcabcabc") :START 1 :END 8) "abcbcbcabc")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 1) "abcbcabcabc")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 1 :FROM-END T) "abcabcbcabc")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 0 :FROM-END T) "abcabcabcabc")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT -100 :FROM-END T) "abcabcabcabc")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "abcabcabcabc") :START 1 :END 1) "abcabcabcabc")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "abcabcabcabc") :START 2 :END 2) "abcabcabcabc")) EQL-OK: NIL (NOT (STRING= (DELETE #\a (COPY-SEQ "abcabcabcabc") :START 12 :END 12) "abcabcabcabc")) EQL-OK: NIL (NOT (EQUAL (DELETE 0 #*0101) #*11)) EQL-OK: NIL (NOT (EQUAL (DELETE 0 #*01010101 :COUNT 1) #*1010101)) EQL-OK: NIL (NOT (EQUAL (DELETE 0 #*01010101 :COUNT 1 :FROM-END T) #*0101011)) EQL-OK: NIL (NOT (EQUAL (DELETE 0 #*01010101 :START 1) #*01111)) EQL-OK: NIL (NOT (EQUAL (DELETE 0 #*01010101 :START 1 :END NIL) #*01111)) EQL-OK: NIL (NOT (EQUAL (DELETE 0 #*01010101 :START 1 :END 6) #*011101)) EQL-OK: NIL (NOT (EQUAL (DELETE 0 #*01010101 :START 1 :END 6 :COUNT 1) #*0110101)) EQL-OK: NIL (NOT (EQUAL (DELETE 0 #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T) #*0101101)) EQL-OK: NIL (NOT (EQUAL (DELETE 0 #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T :TEST #'(LAMBDA (A B) (DECLARE (IGNORE A)) (ODDP B))) #*0101001)) EQL-OK: NIL (NOT (EQUAL (DELETE 0 #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T :TEST-NOT #'(LAMBDA (A B) (DECLARE (IGNORE A)) (EVENP B))) #*0101001)) EQL-OK: NIL (NOT (EQUAL (DELETE 0 #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T :TEST #'(LAMBDA (A B) (DECLARE (IGNORE A)) (EVENP B))) #*0101101)) EQL-OK: NIL (NOT (EQUAL (DELETE 0 #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T :TEST-NOT #'(LAMBDA (A B) (DECLARE (IGNORE A)) (ODDP B))) #*0101101)) EQL-OK: NIL (NOT (EQUAL (DELETE 0 #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T :KEY #'(LAMBDA (ARG) (* ARG 10)) :TEST #'(LAMBDA (A B) (DECLARE (IGNORE A)) (> B 1))) #*0101001)) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C)) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'B)) (LIST 'A 'B 'C 'A 'B 'C)) '(A C A C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'C)) (LIST 'A 'B 'C 'A 'B 'C)) '(A B A B))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'A 'A)) 'NIL)) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'Z)) (LIST 'A 'B 'C)) '(A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) 'NIL) 'NIL)) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 0) '(A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 1) '(B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 1 :FROM-END T) '(A B C B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 2) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 2 :FROM-END T) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 3) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 3 :FROM-END T) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 4) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 4 :FROM-END T) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT -1) '(A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT -10) '(A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C) :COUNT -100) '(A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1) '(A B C B C B C B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 1) '(A B C B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 2) '(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END NIL :COUNT 2) '(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8) '(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1) '(A B C B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1 :FROM-END T) '(A B C A B C B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 0 :FROM-END T) '(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT -100 :FROM-END T) '(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 1) '(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 2 :END 2) '(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 12 :END 12) '(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST '(A) '(B) '(C) '(A) '(B) '(C)) :KEY #'CAR) '((B) (C) (B) (C)))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (LIST '(A . B) '(B . C) '(C . A) '(A . B) '(B . C) '(C . A)) :KEY #'CDR) '((A . B) (B . C) (A . B) (B . C)))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) '(("Love") ("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (EQL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT -10) '(("Love") ("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) 'NIL)) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1) '(("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T) '(("Love") ("LOve") ("LOVe")))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 2 :FROM-END T) '(("Love") ("LOve")))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :START 1 :END 3) '(("Love") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :START 1 :END 3) '(("Love") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T :START 1 :END 3) '(("Love") ("LOve") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 10 :FROM-END T :START 1 :END 3) '(("Love") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C)) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'B)) (VECTOR 'A 'B 'C 'A 'B 'C)) #(A C A C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'C)) (VECTOR 'A 'B 'C 'A 'B 'C)) #(A B A B))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'A 'A)) #())) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'Z)) (VECTOR 'A 'B 'C)) #(A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) #()) #())) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 0) #(A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 1) #(B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 1 :FROM-END T) #(A B C B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 2) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 2 :FROM-END T) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 3) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 3 :FROM-END T) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 4) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 4 :FROM-END T) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -1) #(A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -10) #(A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -100) #(A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1) #(A B C B C B C B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 1) #(A B C B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 2) #(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END NIL :COUNT 2) #(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8) #(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1) #(A B C B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1 :FROM-END T) #(A B C A B C B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 0 :FROM-END T) #(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT -100 :FROM-END T) #(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 1) #(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 2 :END 2) #(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 12 :END 12) #(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR '(A) '(B) '(C) '(A) '(B) '(C)) :KEY #'CAR) #((B) (C) (B) (C)))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG 'A)) (VECTOR '(A . B) '(B . C) '(C . A) '(A . B) '(B . C) '(C . A)) :KEY #'CDR) #((A . B) (B . C) (A . B) (B . C)))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) #(("Love") ("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (EQL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT -10) #(("Love") ("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) #())) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) #())) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1) #(("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1) #(("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T) #(("Love") ("LOve") ("LOVe")))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T) #(("Love") ("LOve") ("LOVe")))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 2 :FROM-END T) #(("Love") ("LOve")))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 2 :FROM-END T) #(("Love") ("LOve")))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :START 1 :END 3) #(("Love") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :START 1 :END 3) #(("Love") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T :START 1 :END 3) #(("Love") ("LOve") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG "love")) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 10 :FROM-END T :START 1 :END 3) #(("Love") ("LOVE")))) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc")) "bcbc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "")) "")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "xyz")) "xyz")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "ABCABC") :KEY #'CHAR-DOWNCASE) "BCBC")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 1) "bcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 1 :FROM-END T) "abcbc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT -10) "abcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc")) "bcbc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\b)) (COPY-SEQ "abcabc")) "acac")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\c)) (COPY-SEQ "abcabc")) "abab")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 1) "bcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 1 :FROM-END T) "abcbc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 2) "bcbc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 2 :FROM-END T) "bcbc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 3) "bcbc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 3 :FROM-END T) "bcbc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 4) "bcbc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT 4 :FROM-END T) "bcbc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT -1) "abcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT -10) "abcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabc") :COUNT -100) "abcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1) "abcbcbcbc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (STRING-EQUAL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :COUNT 1) "abcbcabcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :COUNT 2) "abcbcbcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :END NIL :COUNT 2) "abcbcbcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :END 8) "abcbcbcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 1) "abcbcabcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 1 :FROM-END T) "abcabcbcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 0 :FROM-END T) "abcabcabcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT -100 :FROM-END T) "abcabcabcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 1 :END 1) "abcabcabcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 2 :END 2) "abcabcabcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF #'(LAMBDA (ARG) (EQL ARG #\a)) (COPY-SEQ "abcabcabcabc") :START 12 :END 12) "abcabcabcabc")) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'ZEROP #*0101) #*11)) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'ZEROP #*01010101 :COUNT 1) #*1010101)) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'ZEROP #*01010101 :COUNT 1 :FROM-END T) #*0101011)) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'ZEROP #*01010101 :START 1) #*01111)) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'ZEROP #*01010101 :START 1 :END NIL) #*01111)) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'ZEROP #*01010101 :START 1 :END 6) #*011101)) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'ZEROP #*01010101 :START 1 :END 6 :COUNT 1) #*0110101)) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'ZEROP #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T) #*0101101)) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'ODDP #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T) #*0101001)) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'EVENP #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T) #*0101101)) EQL-OK: NIL (NOT (EQUAL (DELETE-IF #'PLUSP #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T :KEY #'(LAMBDA (ARG) (* ARG 10))) #*0101001)) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C)) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'B))) (LIST 'A 'B 'C 'A 'B 'C)) '(A C A C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'C))) (LIST 'A 'B 'C 'A 'B 'C)) '(A B A B))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'A 'A)) 'NIL)) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'Z))) (LIST 'A 'B 'C)) '(A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) 'NIL) 'NIL)) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 0) '(A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 1) '(B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 1 :FROM-END T) '(A B C B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 2) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 2 :FROM-END T) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 3) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 3 :FROM-END T) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 4) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT 4 :FROM-END T) '(B C B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT -1) '(A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT -10) '(A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C) :COUNT -100) '(A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1) '(A B C B C B C B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 1) '(A B C B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 2) '(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END NIL :COUNT 2) '(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8) '(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1) '(A B C B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1 :FROM-END T) '(A B C A B C B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 0 :FROM-END T) '(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT -100 :FROM-END T) '(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 1) '(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 2 :END 2) '(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 12 :END 12) '(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST '(A) '(B) '(C) '(A) '(B) '(C)) :KEY #'CAR) '((B) (C) (B) (C)))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (LIST '(A . B) '(B . C) '(C . A) '(A . B) '(B . C) '(C . A)) :KEY #'CDR) '((A . B) (B . C) (A . B) (B . C)))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) '(("Love") ("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT -10) '(("Love") ("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) 'NIL)) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1) '(("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T) '(("Love") ("LOve") ("LOVe")))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 2 :FROM-END T) '(("Love") ("LOve")))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :START 1 :END 3) '(("Love") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :START 1 :END 3) '(("Love") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T :START 1 :END 3) '(("Love") ("LOve") ("LOVE")))) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (LIST '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 10 :FROM-END T :START 1 :END 3) '(("Love") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C)) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'B))) (VECTOR 'A 'B 'C 'A 'B 'C)) #(A C A C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'C))) (VECTOR 'A 'B 'C 'A 'B 'C)) #(A B A B))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'A 'A)) #())) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'Z))) (VECTOR 'A 'B 'C)) #(A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) #()) #())) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 0) #(A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 1) #(B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 1 :FROM-END T) #(A B C B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 2) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 2 :FROM-END T) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 3) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 3 :FROM-END T) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 4) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT 4 :FROM-END T) #(B C B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -1) #(A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -10) #(A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C) :COUNT -100) #(A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1) #(A B C B C B C B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 1) #(A B C B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :COUNT 2) #(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END NIL :COUNT 2) #(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8) #(A B C B C B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1) #(A B C B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 1 :FROM-END T) #(A B C A B C B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT 0 :FROM-END T) #(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 8 :COUNT -100 :FROM-END T) #(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 1 :END 1) #(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 2 :END 2) #(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR 'A 'B 'C 'A 'B 'C 'A 'B 'C 'A 'B 'C) :START 12 :END 12) #(A B C A B C A B C A B C))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR '(A) '(B) '(C) '(A) '(B) '(C)) :KEY #'CAR) #((B) (C) (B) (C)))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG 'A))) (VECTOR '(A . B) '(B . C) '(C . A) '(A . B) '(B . C) '(C . A)) :KEY #'CDR) #((A . B) (B . C) (A . B) (B . C)))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) #(("Love") ("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT -10) #(("Love") ("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) #())) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR) #())) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1) #(("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1) #(("LOve") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T) #(("Love") ("LOve") ("LOVe")))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T) #(("Love") ("LOve") ("LOVe")))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 2 :FROM-END T) #(("Love") ("LOve")))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 2 :FROM-END T) #(("Love") ("LOve")))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :START 1 :END 3) #(("Love") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :START 1 :END 3) #(("Love") ("LOVe") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 1 :FROM-END T :START 1 :END 3) #(("Love") ("LOve") ("LOVE")))) EQL-OK: NIL (NOT (EQUALP (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG "love"))) (VECTOR '("Love") '("LOve") '("LOVe") '("LOVE")) :KEY #'CAR :COUNT 10 :FROM-END T :START 1 :END 3) #(("Love") ("LOVE")))) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc")) "bcbc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "")) "")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "xyz")) "xyz")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "ABCABC") :KEY #'CHAR-DOWNCASE) "BCBC")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 1) "bcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 1 :FROM-END T) "abcbc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT -10) "abcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc")) "bcbc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\b))) (COPY-SEQ "abcabc")) "acac")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\c))) (COPY-SEQ "abcabc")) "abab")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 0) "abcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 1) "bcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 1 :FROM-END T) "abcbc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 2) "bcbc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 2 :FROM-END T) "bcbc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 3) "bcbc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 3 :FROM-END T) "bcbc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 4) "bcbc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT 4 :FROM-END T) "bcbc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT -1) "abcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT -10) "abcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabc") :COUNT -100) "abcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1) "abcbcbcbc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (STRING-EQUAL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :COUNT 1) "abcbcabcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :COUNT 2) "abcbcbcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :END NIL :COUNT 2) "abcbcbcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :END 8) "abcbcbcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 1) "abcbcabcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 1 :FROM-END T) "abcabcbcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT 0 :FROM-END T) "abcabcabcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :END 8 :COUNT -100 :FROM-END T) "abcabcabcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 1 :END 1) "abcabcabcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 2 :END 2) "abcabcabcabc")) EQL-OK: NIL (NOT (STRING= (DELETE-IF-NOT #'(LAMBDA (ARG) (NOT (EQL ARG #\a))) (COPY-SEQ "abcabcabcabc") :START 12 :END 12) "abcabcabcabc")) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT (COMPLEMENT #'ZEROP) #*0101) #*11)) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT (COMPLEMENT #'ZEROP) #*01010101 :COUNT 1) #*1010101)) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT (COMPLEMENT #'ZEROP) #*01010101 :COUNT 1 :FROM-END T) #*0101011)) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT (COMPLEMENT #'ZEROP) #*01010101 :START 1) #*01111)) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT (COMPLEMENT #'ZEROP) #*01010101 :START 1 :END NIL) #*01111)) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT (COMPLEMENT #'ZEROP) #*01010101 :START 1 :END 6) #*011101)) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT (COMPLEMENT #'ZEROP) #*01010101 :START 1 :END 6 :COUNT 1) #*0110101)) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT (COMPLEMENT #'ZEROP) #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T) #*0101101)) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT (COMPLEMENT #'ODDP) #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T) #*0101001)) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT (COMPLEMENT #'EVENP) #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T) #*0101101)) EQL-OK: NIL (NOT (EQUAL (DELETE-IF-NOT (COMPLEMENT #'PLUSP) #*01010101 :START 1 :END 6 :COUNT 1 :FROM-END T :KEY #'(LAMBDA (ARG) (* ARG 10))) #*0101001)) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES "aBcDAbCd" :TEST #'CHAR-EQUAL :FROM-END T) "aBcD")) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES '(A B C B D D E)) '(A C B D E))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES '(A B C B D D E) :FROM-END T) '(A B C D E))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES '((FOO #\a) (BAR #\%) (BAZ #\A)) :TEST #'CHAR-EQUAL :KEY #'CADR) '((BAR #\%) (BAZ #\A)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES '((FOO #\a) (BAR #\%) (BAZ #\A)) :TEST #'CHAR-EQUAL :KEY #'CADR :FROM-END T) '((FOO #\a) (BAR #\%)))) EQL-OK: NIL (NOT (LET* ((LIST0 (LIST 0 1 2 3 4 5 6)) (LIST (DELETE-DUPLICATES LIST0 :KEY #'ODDP :START 1 :END 6))) (EQUAL LIST '(0 4 5 6)))) EQL-OK: NIL (NOT (LET* ((LIST0 (LIST 2 1 0 1 0 1 2)) (LIST (REMOVE-DUPLICATES LIST0))) (AND (NOT (EQ LIST0 LIST)) (EQUAL LIST0 '(2 1 0 1 0 1 2)) (EQUAL LIST '(0 1 2))))) EQL-OK: NIL (NOT (LET* ((VECTOR0 (VECTOR 2 1 0 1 0 1 2)) (VECTOR (REMOVE-DUPLICATES VECTOR0))) (AND (NOT (EQ VECTOR0 VECTOR)) (EQUALP VECTOR0 #(2 1 0 1 0 1 2)) (EQUALP VECTOR #(0 1 2))))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST 0 1 2 2 3 3 3)) '(0 1 2 3))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST 0 0 0 2 0 1 1 2 2 2 1 1 1 1 2)) '(0 1 2))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST 'A 'A 'B 'C 'C)) '(A B C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST 0 1 2)) '(0 1 2))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST 2 0 2 1 1 1 0 0 0 1 2)) '(0 1 2))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST)) 'NIL)) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST '(X . 0) '(Y . 1) '(Z . 2) '(A . 0) '(B . 1) '(C . 2)) :KEY #'CDR) '((A . 0) (B . 1) (C . 2)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST '(X . 0) '(Y . 1) '(Z . 2) '(A . 0) '(B . 1) '(C . 2)) :KEY #'CDR :TEST #'(LAMBDA (A B) (AND (ODDP A) (ODDP B)))) '((X . 0) (Z . 2) (A . 0) (B . 1) (C . 2)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST '(X . 0) '(Y . 1) '(Z . 2) '(A . 0) '(B . 1) '(C . 2)) :KEY #'CDR :TEST-NOT #'(LAMBDA (A B) (NOT (AND (ODDP A) (ODDP B))))) '((X . 0) (Z . 2) (A . 0) (B . 1) (C . 2)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST '(X . 0) '(Y . 1) '(Z . 2) '(A . 0) '(B . 1) '(C . 2)) :KEY #'CDR :TEST #'(LAMBDA (A B) (AND (EVENP A) (EVENP B)))) '((Y . 1) (B . 1) (C . 2)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST '(X . 0) '(Y . 1) '(Z . 2) '(A . 0) '(B . 1) '(C . 2)) :KEY #'CDR :TEST-NOT #'(LAMBDA (A B) (NOT (AND (EVENP A) (EVENP B))))) '((Y . 1) (B . 1) (C . 2)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST 0 1 2 0 1 2 0 1 2 0 1 2) :START 3 :END 9) '(0 1 2 0 1 2 0 1 2))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11))) (LIST '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11)) :KEY #'CAR) '((0 . 9) (1 . 10) (2 . 11)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11)) :KEY #'CAR :FROM-END T) (LIST '(0 . 0) '(1 . 1) '(2 . 2)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11)) :START 3 :KEY #'CAR) (LIST '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 9) '(1 . 10) '(2 . 11)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11)) :START 3 :KEY #'CAR :FROM-END T) (LIST '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11)) :START 3 :END NIL :KEY #'CAR) (LIST '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 9) '(1 . 10) '(2 . 11)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11)) :START 3 :END 9 :KEY #'CAR) '((0 . 0) (1 . 1) (2 . 2) (0 . 6) (1 . 7) (2 . 8) (0 . 9) (1 . 10) (2 . 11)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11)) :START 3 :END 9 :KEY #'CAR :FROM-END T) (LIST '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 9) '(1 . 10) '(2 . 11)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST "Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday" "Sunday") :KEY #'LENGTH) (LIST "Tuesday" "Wednesday" "Saturday" "Sunday"))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST "Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday" "Sunday") :KEY #'(LAMBDA (ARG) (CHAR ARG 0)) :TEST #'CHAR=) (LIST "Monday" "Wednesday" "Thursday" "Friday" "Sunday"))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST "Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday" "Sunday") :KEY #'(LAMBDA (ARG) (CHAR ARG 0)) :TEST-NOT (COMPLEMENT #'CHAR=)) (LIST "Monday" "Wednesday" "Thursday" "Friday" "Sunday"))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST #\a #\b #\c #\A #\B #\C) :KEY #'CHAR-UPCASE) '(#\A #\B #\C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST #\a #\b #\c #\A #\B #\C) :KEY #'CHAR-UPCASE :FROM-END T) '(#\a #\b #\c))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST #\a #\b #\c #\A #\B #\C) :TEST #'CHAR=) (LIST #\a #\b #\c #\A #\B #\C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST #\a #\b #\c #\A #\B #\C) :TEST-NOT (COMPLEMENT #'CHAR=)) (LIST #\a #\b #\c #\A #\B #\C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST #\a #\b #\c #\A #\B #\C) :TEST #'CHAR-EQUAL) (LIST #\A #\B #\C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST #\a #\b #\c #\A #\B #\C) :TEST-NOT (COMPLEMENT #'CHAR-EQUAL)) (LIST #\A #\B #\C))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST #\a #\b #\c #\A #\B #\C) :TEST #'CHAR-EQUAL :FROM-END T) (LIST #\a #\b #\c))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST #\a #\b #\c #\A #\B #\C) :TEST-NOT (COMPLEMENT #'CHAR-EQUAL) :FROM-END T) (LIST #\a #\b #\c))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST #\a #\1 #\b #\1 #\2 #\c #\0 #\A #\0 #\B #\C #\9) :KEY #'ALPHA-CHAR-P) (LIST #\C #\9))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST #\a #\1 #\b #\1 #\2 #\c #\0 #\A #\0 #\B #\C #\9) :KEY #'ALPHANUMERICP) (LIST #\9))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11))) (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR) (LIST '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 3 :END 9) (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 3 :END 9 :TEST #'CHAR-EQUAL) (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 3 :END 9 :TEST-NOT (COMPLEMENT #'CHAR-EQUAL)) (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 3 :END 9 :TEST #'CHAR-EQUAL :FROM-END T) (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 3 :END 9 :TEST-NOT (COMPLEMENT #'CHAR-EQUAL) :FROM-END T) (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 3) (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 3 :END NIL) (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 3 :FROM-END T) (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :END 9) (LIST '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :END 9 :FROM-END T) (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 0 :END 12 :TEST #'CHAR-EQUAL) (LIST '(#\a . 9) '(#\B . 10) '(#\c . 11)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 0 :END 12 :TEST-NOT (COMPLEMENT #'CHAR-EQUAL)) (LIST '(#\a . 9) '(#\B . 10) '(#\c . 11)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 0 :END 12 :TEST #'CHAR-EQUAL :FROM-END T) '((#\A . 0) (#\b . 1) (#\C . 2)))) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (LIST '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 0 :END 12 :TEST-NOT (COMPLEMENT #'CHAR-EQUAL) :FROM-END T) '((#\A . 0) (#\b . 1) (#\C . 2)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR 0 1 2 2 3 3 3)) #(0 1 2 3))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR 0 0 0 2 0 1 1 2 2 2 1 1 1 1 2)) #(0 1 2))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR 'A 'A 'B 'C 'C)) #(A B C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR 0 1 2)) #(0 1 2))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR 2 0 2 1 1 1 0 0 0 1 2)) #(0 1 2))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR)) #())) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(X . 0) '(Y . 1) '(Z . 2) '(A . 0) '(B . 1) '(C . 2)) :KEY #'CDR) #((A . 0) (B . 1) (C . 2)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(X . 0) '(Y . 1) '(Z . 2) '(A . 0) '(B . 1) '(C . 2)) :KEY #'CDR :TEST #'(LAMBDA (A B) (AND (ODDP A) (ODDP B)))) #((X . 0) (Z . 2) (A . 0) (B . 1) (C . 2)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(X . 0) '(Y . 1) '(Z . 2) '(A . 0) '(B . 1) '(C . 2)) :KEY #'CDR :TEST-NOT #'(LAMBDA (A B) (NOT (AND (ODDP A) (ODDP B))))) #((X . 0) (Z . 2) (A . 0) (B . 1) (C . 2)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(X . 0) '(Y . 1) '(Z . 2) '(A . 0) '(B . 1) '(C . 2)) :KEY #'CDR :TEST #'(LAMBDA (A B) (AND (EVENP A) (EVENP B)))) #((Y . 1) (B . 1) (C . 2)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(X . 0) '(Y . 1) '(Z . 2) '(A . 0) '(B . 1) '(C . 2)) :KEY #'CDR :TEST-NOT #'(LAMBDA (A B) (NOT (AND (EVENP A) (EVENP B))))) #((Y . 1) (B . 1) (C . 2)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR 0 1 2 0 1 2 0 1 2 0 1 2) :START 3 :END 9) #(0 1 2 0 1 2 0 1 2))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11))) (VECTOR '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11)) :KEY #'CAR) #((0 . 9) (1 . 10) (2 . 11)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11)) :KEY #'CAR :FROM-END T) (VECTOR '(0 . 0) '(1 . 1) '(2 . 2)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11)) :START 3 :KEY #'CAR) (VECTOR '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 9) '(1 . 10) '(2 . 11)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11)) :START 3 :KEY #'CAR :FROM-END T) (VECTOR '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11)) :START 3 :END NIL :KEY #'CAR) (VECTOR '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 9) '(1 . 10) '(2 . 11)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11)) :START 3 :END 9 :KEY #'CAR) #((0 . 0) (1 . 1) (2 . 2) (0 . 6) (1 . 7) (2 . 8) (0 . 9) (1 . 10) (2 . 11)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 6) '(1 . 7) '(2 . 8) '(0 . 9) '(1 . 10) '(2 . 11)) :START 3 :END 9 :KEY #'CAR :FROM-END T) (VECTOR '(0 . 0) '(1 . 1) '(2 . 2) '(0 . 3) '(1 . 4) '(2 . 5) '(0 . 9) '(1 . 10) '(2 . 11)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR "Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday" "Sunday") :KEY #'LENGTH) (VECTOR "Tuesday" "Wednesday" "Saturday" "Sunday"))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR "Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday" "Sunday") :KEY #'(LAMBDA (ARG) (CHAR ARG 0)) :TEST #'CHAR=) (VECTOR "Monday" "Wednesday" "Thursday" "Friday" "Sunday"))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR "Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday" "Sunday") :KEY #'(LAMBDA (ARG) (CHAR ARG 0)) :TEST-NOT (COMPLEMENT #'CHAR=)) (VECTOR "Monday" "Wednesday" "Thursday" "Friday" "Sunday"))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR #\a #\b #\c #\A #\B #\C) :KEY #'CHAR-UPCASE) #(#\A #\B #\C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR #\a #\b #\c #\A #\B #\C) :KEY #'CHAR-UPCASE :FROM-END T) #(#\a #\b #\c))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR #\a #\b #\c #\A #\B #\C) :TEST #'CHAR=) (VECTOR #\a #\b #\c #\A #\B #\C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR #\a #\b #\c #\A #\B #\C) :TEST-NOT (COMPLEMENT #'CHAR=)) (VECTOR #\a #\b #\c #\A #\B #\C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR #\a #\b #\c #\A #\B #\C) :TEST #'CHAR-EQUAL) (VECTOR #\A #\B #\C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR #\a #\b #\c #\A #\B #\C) :TEST-NOT (COMPLEMENT #'CHAR-EQUAL)) (VECTOR #\A #\B #\C))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR #\a #\b #\c #\A #\B #\C) :TEST #'CHAR-EQUAL :FROM-END T) (VECTOR #\a #\b #\c))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR #\a #\b #\c #\A #\B #\C) :TEST-NOT (COMPLEMENT #'CHAR-EQUAL) :FROM-END T) (VECTOR #\a #\b #\c))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR #\a #\1 #\b #\1 #\2 #\c #\0 #\A #\0 #\B #\C #\9) :KEY #'ALPHA-CHAR-P) (VECTOR #\C #\9))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR #\a #\1 #\b #\1 #\2 #\c #\0 #\A #\0 #\B #\C #\9) :KEY #'ALPHANUMERICP) (VECTOR #\9))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11))) (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR) (VECTOR '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 3 :END 9) (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 3 :END 9 :TEST #'CHAR-EQUAL) (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 3 :END 9 :TEST-NOT (COMPLEMENT #'CHAR-EQUAL)) (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 3 :END 9 :TEST #'CHAR-EQUAL :FROM-END T) (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 3 :END 9 :TEST-NOT (COMPLEMENT #'CHAR-EQUAL) :FROM-END T) (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 3) (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 3 :END NIL) (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 3 :FROM-END T) (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :END 9) (VECTOR '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :END 9 :FROM-END T) (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\a . 9) '(#\B . 10) '(#\c . 11)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 0 :END 12 :TEST #'CHAR-EQUAL) (VECTOR '(#\a . 9) '(#\B . 10) '(#\c . 11)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 0 :END 12 :TEST-NOT (COMPLEMENT #'CHAR-EQUAL)) (VECTOR '(#\a . 9) '(#\B . 10) '(#\c . 11)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 0 :END 12 :TEST #'CHAR-EQUAL :FROM-END T) #((#\A . 0) (#\b . 1) (#\C . 2)))) EQL-OK: NIL (NOT (EQUALP (REMOVE-DUPLICATES (VECTOR '(#\A . 0) '(#\b . 1) '(#\C . 2) '(#\a . 3) '(#\B . 4) '(#\c . 5) '(#\A . 6) '(#\b . 7) '(#\C . 8) '(#\a . 9) '(#\B . 10) '(#\c . 11)) :KEY #'CAR :START 0 :END 12 :TEST-NOT (COMPLEMENT #'CHAR-EQUAL) :FROM-END T) #((#\A . 0) (#\b . 1) (#\C . 2)))) EQL-OK: NIL (NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "")) "")) EQL-OK: NIL (NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "abc")) "abc")) EQL-OK: NIL (NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "abcabc")) "abc")) EQL-OK: NIL (NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "cbaabc")) "abc")) EQL-OK: NIL (NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "cbaabc") :FROM-END T) "cba")) EQL-OK: NIL (NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "cbaabcABCCBA")) "abcCBA")) EQL-OK: NIL (NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "cbaabcABCCBA") :FROM-END T) "cbaABC")) EQL-OK: NIL (NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "cbaabcABCCBA") :KEY #'CHAR-DOWNCASE) "CBA")) EQL-OK: NIL (NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "cbaabcABCCBA") :KEY #'CHAR-DOWNCASE :FROM-END T) "cba")) EQL-OK: NIL (NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "cbaabcABCCBA") :START 3) "cbaabcCBA")) EQL-OK: NIL (NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "cbaabcABCCBA") :START 3 :FROM-END T) "cbaabcABC")) EQL-OK: NIL (NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "cbaabcABCCBA") :START 3 :END 9) "cbaabcABCCBA")) EQL-OK: NIL (NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "cbaabcABCCBA") :START 3 :END 9 :KEY #'CHAR-UPCASE) "cbaABCCBA")) EQL-OK: NIL (NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "cbaabcABCCBA") :START 3 :END 9 :KEY #'CHAR-UPCASE :FROM-END T) "cbaabcCBA")) EQL-OK: NIL (NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "cbaabcABCCBA") :START 3 :END 9 :TEST #'CHAR-EQUAL :FROM-END T) "cbaabcCBA")) EQL-OK: NIL (NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "cbaabcABCCBA") :START 3 :END 9 :TEST-NOT (COMPLEMENT #'CHAR-EQUAL) :FROM-END T) "cbaabcCBA")) EQL-OK: NIL (NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "cbaabcABCCBA") :START 3 :END 9 :KEY #'UPPER-CASE-P :TEST #'EQ) "cbacCCBA")) EQL-OK: NIL (NOT (STRING= (REMOVE-DUPLICATES (COPY-SEQ "cbaabcABCCBA") :START 3 :END 9 :KEY #'UPPER-CASE-P :TEST #'EQ :FROM-END T) "cbaaACBA")) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*0011)) #*01)) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*0110)) #*10)) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*0110) :FROM-END T) #*01)) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*0110) :START 1) #*010)) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*0001111011000100010)) #*10)) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*0001111011000100010) :FROM-END T) #*01)) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*)) #*)) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*01)) #*01)) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*10)) #*10)) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*0)) #*0)) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*1)) #*1)) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*1001) :START 1 :END 3) #*101)) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*01011010) :START 2 :END 6) #*011010)) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*01011010) :START 2 :END 6 :FROM-END T) #*010110)) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*01011010) :START 2 :END 6 :FROM-END T :KEY #'(LAMBDA (ARG) (CHAR "aA" ARG))) #*010110)) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*01011010) :START 2 :END 6 :FROM-END T :KEY #'(LAMBDA (ARG) (CHAR "aA" ARG)) :TEST #'CHAR-EQUAL) #*01010)) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*01011010) :START 2 :END 6 :FROM-END T :KEY #'(LAMBDA (ARG) (CHAR "aA" ARG)) :TEST-NOT (COMPLEMENT #'CHAR-EQUAL)) #*01010)) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*01011010) :START 2 :END 6 :KEY #'(LAMBDA (ARG) (CHAR "aA" ARG)) :TEST #'CHAR-EQUAL) #*01010)) EQL-OK: NIL (NOT (EQUAL (REMOVE-DUPLICATES (COPY-SEQ #*01011010) :START 2 :END 6 :KEY #'(LAMBDA (ARG) (CHAR "aA" ARG)) :TEST-NOT (COMPLEMENT #'CHAR-EQUAL)) #*01010)) EQL-OK: NIL RUN-TEST: finished "must-sequence" (0 errors out of 3,825 tests) RUN-TEST: started # (NOT (SIMPLE-STRING-P "")) EQL-OK: NIL (NOT (SIMPLE-STRING-P "abc")) EQL-OK: NIL (NOT (NOT (SIMPLE-STRING-P 'NOT-A-STRING))) EQL-OK: NIL (NOT (LET ((STR (MAKE-ARRAY 3 :ELEMENT-TYPE 'CHARACTER :FILL-POINTER T))) (IF (NOT (SIMPLE-VECTOR-P STR)) (NOT (SIMPLE-STRING-P STR)) (SIMPLE-STRING-P STR)))) EQL-OK: NIL (NOT (CHAR= (CHAR "abc" 0) #\a)) EQL-OK: NIL (NOT (CHAR= (CHAR "abc" 1) #\b)) EQL-OK: NIL (NOT (CHAR= (CHAR "abc" 2) #\c)) EQL-OK: NIL (NOT (CHAR= (SCHAR "abc" 0) #\a)) EQL-OK: NIL (NOT (CHAR= (SCHAR "abc" 1) #\b)) EQL-OK: NIL (NOT (CHAR= (SCHAR "abc" 2) #\c)) EQL-OK: NIL (NOT (LET ((STR (MAKE-ARRAY 10 :ELEMENT-TYPE 'CHARACTER :FILL-POINTER 3 :INITIAL-CONTENTS "0123456789"))) (AND (STRING= STR "012") (CHAR= (CHAR STR 3) #\3) (CHAR= (CHAR STR 4) #\4) (CHAR= (CHAR STR 5) #\5) (CHAR= (CHAR STR 6) #\6) (CHAR= (CHAR STR 7) #\7) (CHAR= (CHAR STR 8) #\8) (CHAR= (CHAR STR 9) #\9) (CHAR= (VECTOR-POP STR) #\2)))) EQL-OK: NIL (NOT (STRING= (STRING "") "")) EQL-OK: NIL (NOT (STRING= (STRING "abc") "abc")) EQL-OK: NIL (NOT (STRING= (STRING "a") "a")) EQL-OK: NIL (NOT (STRING= (STRING 'ABC) "ABC")) EQL-OK: NIL (NOT (STRING= (STRING 'A) "A")) EQL-OK: NIL (NOT (STRING= (STRING #\a) "a")) EQL-OK: NIL (NOT (STRING= (STRING-UPCASE "abcde") "ABCDE")) EQL-OK: NIL (NOT (STRING= (STRING-UPCASE "Dr. Livingston, I presume?") "DR. LIVINGSTON, I PRESUME?")) EQL-OK: NIL (NOT (STRING= (STRING-UPCASE "Dr. Livingston, I presume?" :START 6 :END 10) "Dr. LiVINGston, I presume?")) EQL-OK: NIL (NOT (STRING= (STRING-UPCASE 'KLUDGY-HASH-SEARCH) "KLUDGY-HASH-SEARCH")) EQL-OK: NIL (NOT (STRING= (STRING-UPCASE "abcde" :START 2 :END NIL) "abCDE")) EQL-OK: NIL (NOT (STRING= (STRING-DOWNCASE "Dr. Livingston, I presume?") "dr. livingston, i presume?")) EQL-OK: NIL (NOT (STRING= (STRING-DOWNCASE 'KLUDGY-HASH-SEARCH) "kludgy-hash-search")) EQL-OK: NIL (NOT (STRING= (STRING-DOWNCASE "A FOOL" :START 2 :END NIL) "A fool")) EQL-OK: NIL (NOT (STRING= (STRING-CAPITALIZE "elm 13c arthur;fig don't") "Elm 13c Arthur;Fig Don'T")) EQL-OK: NIL (NOT (STRING= (STRING-CAPITALIZE " hello ") " Hello ")) EQL-OK: NIL (NOT (STRING= (STRING-CAPITALIZE "occlUDeD cASEmenTs FOreSTAll iNADVertent DEFenestraTION") "Occluded Casements Forestall Inadvertent Defenestration")) EQL-OK: NIL (NOT (STRING= (STRING-CAPITALIZE 'KLUDGY-HASH-SEARCH) "Kludgy-Hash-Search")) EQL-OK: NIL (NOT (STRING= (STRING-CAPITALIZE "DON'T!") "Don'T!")) EQL-OK: NIL (NOT (STRING= (STRING-CAPITALIZE "pipe 13a, foo16c") "Pipe 13a, Foo16c")) EQL-OK: NIL (NOT (STRING= (STRING-CAPITALIZE "a fool" :START 2 :END NIL) "a Fool")) EQL-OK: NIL (NOT (LET ((STR (COPY-SEQ "0123ABCD890a"))) (AND (STRING= (NSTRING-DOWNCASE STR :START 5 :END 7) "0123AbcD890a") (STRING= STR "0123AbcD890a")))) EQL-OK: NIL (NOT (LET* ((STR0 (COPY-SEQ "abcde")) (STR (NSTRING-UPCASE STR0))) (AND (EQ STR0 STR) (STRING= STR "ABCDE")))) EQL-OK: NIL (NOT (LET* ((STR0 (COPY-SEQ "Dr. Livingston, I presume?")) (STR (NSTRING-UPCASE STR0))) (AND (EQ STR0 STR) (STRING= STR "DR. LIVINGSTON, I PRESUME?")))) EQL-OK: NIL (NOT (LET* ((STR0 (COPY-SEQ "Dr. Livingston, I presume?")) (STR (NSTRING-UPCASE STR0 :START 6 :END 10))) (AND (EQ STR0 STR) (STRING= STR "Dr. LiVINGston, I presume?")))) EQL-OK: NIL (NOT (LET* ((STR0 (COPY-SEQ "abcde")) (STR (NSTRING-UPCASE STR0 :START 2 :END NIL))) (STRING= STR "abCDE"))) EQL-OK: NIL (NOT (LET* ((STR0 (COPY-SEQ "Dr. Livingston, I presume?")) (STR (NSTRING-DOWNCASE STR0))) (AND (EQ STR0 STR) (STRING= STR "dr. livingston, i presume?")))) EQL-OK: NIL (NOT (LET* ((STR0 (COPY-SEQ "ABCDE")) (STR (NSTRING-DOWNCASE STR0 :START 2 :END NIL))) (STRING= STR "ABcde"))) EQL-OK: NIL (NOT (LET* ((STR0 (COPY-SEQ "elm 13c arthur;fig don't")) (STR (NSTRING-CAPITALIZE STR0))) (AND (EQ STR0 STR) (STRING= STR "Elm 13c Arthur;Fig Don'T")))) EQL-OK: NIL (NOT (LET* ((STR0 (COPY-SEQ " hello ")) (STR (NSTRING-CAPITALIZE STR0))) (AND (EQ STR0 STR) (STRING= STR " Hello ")))) EQL-OK: NIL (NOT (LET* ((STR0 (COPY-SEQ "occlUDeD cASEmenTs FOreSTAll iNADVertent DEFenestraTION")) (STR (NSTRING-CAPITALIZE STR0))) (AND (EQ STR0 STR) (STRING= STR "Occluded Casements Forestall Inadvertent Defenestration")))) EQL-OK: NIL (NOT (LET* ((STR0 (COPY-SEQ "DON'T!")) (STR (NSTRING-CAPITALIZE STR0))) (AND (EQ STR0 STR) (STRING= STR "Don'T!")))) EQL-OK: NIL (NOT (LET* ((STR0 (COPY-SEQ "pipe 13a, foo16c")) (STR (NSTRING-CAPITALIZE STR0))) (AND (EQ STR0 STR) (STRING= STR "Pipe 13a, Foo16c")))) EQL-OK: NIL (NOT (LET* ((STR0 (COPY-SEQ "a fool")) (STR (NSTRING-CAPITALIZE STR0 :START 2 :END NIL))) (STRING= STR "a Fool"))) EQL-OK: NIL (NOT (STRING= (STRING-TRIM "abc" "abcaakaaakabcaaa") "kaaak")) EQL-OK: NIL (NOT (STRING= (STRING-TRIM '(#\ #\Tab #\Newline) " garbanzo beans ") "garbanzo beans")) EQL-OK: NIL (NOT (STRING= (STRING-TRIM " (*)" " ( *three (silly) words* ) ") "three (silly) words")) EQL-OK: NIL (NOT (STRING= (STRING-LEFT-TRIM "abc" "labcabcabc") "labcabcabc")) EQL-OK: NIL (NOT (STRING= (STRING-LEFT-TRIM " (*)" " ( *three (silly) words* ) ") "three (silly) words* ) ")) EQL-OK: NIL (NOT (STRING= (STRING-RIGHT-TRIM " (*)" " ( *three (silly) words* ) ") " ( *three (silly) words")) EQL-OK: NIL (NOT (STRING= (STRING-TRIM "ABC" "abc") "abc")) EQL-OK: NIL (NOT (STRING= (STRING-TRIM "AABBCC" "abc") "abc")) EQL-OK: NIL (NOT (STRING= (STRING-TRIM "" "abc") "abc")) EQL-OK: NIL (NOT (STRING= (STRING-TRIM "ABC" "") "")) EQL-OK: NIL (NOT (STRING= (STRING-TRIM "cba" "abc") "")) EQL-OK: NIL (NOT (STRING= (STRING-TRIM "cba" "abccba") "")) EQL-OK: NIL (NOT (STRING= (STRING-TRIM "ccbbba" "abccba") "")) EQL-OK: NIL (NOT (STRING= (STRING-TRIM "cba" "abcxabc") "x")) EQL-OK: NIL (NOT (STRING= (STRING-TRIM "xyz" "xxyabcxyyz") "abc")) EQL-OK: NIL (NOT (STRING= (STRING-TRIM "CBA" 'ABCXABC) "X")) EQL-OK: NIL (NOT (STRING= (STRING-TRIM "a" #\a) "")) EQL-OK: NIL (NOT (STRING= (STRING-LEFT-TRIM "ABC" "abc") "abc")) EQL-OK: NIL (NOT (STRING= (STRING-LEFT-TRIM "" "abc") "abc")) EQL-OK: NIL (NOT (STRING= (STRING-LEFT-TRIM "ABC" "") "")) EQL-OK: NIL (NOT (STRING= (STRING-LEFT-TRIM "cba" "abc") "")) EQL-OK: NIL (NOT (STRING= (STRING-LEFT-TRIM "cba" "abccba") "")) EQL-OK: NIL (NOT (STRING= (STRING-LEFT-TRIM "cba" "abcxabc") "xabc")) EQL-OK: NIL (NOT (STRING= (STRING-LEFT-TRIM "xyz" "xxyabcxyz") "abcxyz")) EQL-OK: NIL (NOT (STRING= (STRING-LEFT-TRIM "CBA" 'ABCXABC) "XABC")) EQL-OK: NIL (NOT (STRING= (STRING-LEFT-TRIM "a" #\a) "")) EQL-OK: NIL (NOT (STRING= (STRING-RIGHT-TRIM "ABC" "abc") "abc")) EQL-OK: NIL (NOT (STRING= (STRING-RIGHT-TRIM "" "abc") "abc")) EQL-OK: NIL (NOT (STRING= (STRING-RIGHT-TRIM "ABC" "") "")) EQL-OK: NIL (NOT (STRING= (STRING-RIGHT-TRIM "cba" "abc") "")) EQL-OK: NIL (NOT (STRING= (STRING-RIGHT-TRIM "cba" "abccba") "")) EQL-OK: NIL (NOT (STRING= (STRING-RIGHT-TRIM "cba" "abcxabc") "abcx")) EQL-OK: NIL (NOT (STRING= (STRING-RIGHT-TRIM "xyz" "xxyabcxyz") "xxyabc")) EQL-OK: NIL (NOT (STRING= (STRING-RIGHT-TRIM "CBA" 'ABCXABC) "ABCX")) EQL-OK: NIL (NOT (STRING= (STRING-RIGHT-TRIM "a" #\a) "")) EQL-OK: NIL (NOT (STRING= (STRING "already a string") "already a string")) EQL-OK: NIL (NOT (STRING= (STRING 'ELM) "ELM")) EQL-OK: NIL (NOT (STRING= (STRING #\c) "c")) EQL-OK: NIL (NOT (STRING= "foo" "foo")) EQL-OK: NIL (NOT (NOT (STRING= "foo" "Foo"))) EQL-OK: NIL (NOT (NOT (STRING= "foo" "bar"))) EQL-OK: NIL (NOT (STRING= "together" "frog" :START1 1 :END1 3 :START2 2)) EQL-OK: NIL (NOT (STRING-EQUAL "foo" "Foo")) EQL-OK: NIL (NOT (STRING= "abcd" "01234abcd9012" :START2 5 :END2 9)) EQL-OK: NIL (NOT (EQL (STRING< "aaaa" "aaab") 3)) EQL-OK: NIL (NOT (EQL (STRING>= "aaaaa" "aaaa") 4)) EQL-OK: NIL (NOT (EQL (STRING-NOT-GREATERP "Abcde" "abcdE") 5)) EQL-OK: NIL (NOT (EQL (STRING-LESSP "012AAAA789" "01aaab6" :START1 3 :END1 7 :START2 2 :END2 6) 6)) EQL-OK: NIL (NOT (NOT (STRING-NOT-EQUAL "AAAA" "aaaA"))) EQL-OK: NIL (NOT (STRING= "" "")) EQL-OK: NIL (NOT (STRING= (MAKE-ARRAY 0 :ELEMENT-TYPE 'CHARACTER) (MAKE-ARRAY 0 :ELEMENT-TYPE 'BASE-CHAR))) EQL-OK: NIL (NOT (NOT (STRING= "abc" ""))) EQL-OK: NIL (NOT (NOT (STRING= "" "abc"))) EQL-OK: NIL (NOT (NOT (STRING= "A" "a"))) EQL-OK: NIL (NOT (STRING= "abc" "xyz" :START1 3 :START2 3)) EQL-OK: NIL (NOT (STRING= "abc" "xyz" :START1 1 :END1 1 :START2 0 :END2 0)) EQL-OK: NIL (NOT (STRING= "axyza" "xyz" :START1 1 :END1 4)) EQL-OK: NIL (NOT (STRING= "axyza" "xyz" :START1 1 :END1 4 :START2 0 :END2 NIL)) EQL-OK: NIL (NOT (STRING= "abxyz" "xyabz" :END1 2 :START2 2 :END2 4)) EQL-OK: NIL (NOT (NOT (STRING= "love" "hate"))) EQL-OK: NIL (NOT (STRING= 'LOVE 'LOVE)) EQL-OK: NIL (NOT (NOT (STRING= 'LOVE "hate"))) EQL-OK: NIL (NOT (STRING= #\a #\a)) EQL-OK: NIL (NOT (NOT (STRING/= "" ""))) EQL-OK: NIL (NOT (NOT (STRING/= (MAKE-ARRAY 0 :ELEMENT-TYPE 'CHARACTER) (MAKE-ARRAY 0 :ELEMENT-TYPE 'BASE-CHAR)))) EQL-OK: NIL (NOT (EQL (STRING/= "abc" "") 0)) EQL-OK: NIL (NOT (EQL (STRING/= "" "abc") 0)) EQL-OK: NIL (NOT (EQL (STRING/= "A" "a") 0)) EQL-OK: NIL (NOT (NOT (STRING/= "abc" "xyz" :START1 3 :START2 3))) EQL-OK: NIL (NOT (NOT (STRING/= "abc" "xyz" :START1 1 :END1 1 :START2 0 :END2 0))) EQL-OK: NIL (NOT (NOT (STRING/= "axyza" "xyz" :START1 1 :END1 4))) EQL-OK: NIL (NOT (NOT (STRING/= "axyza" "xyz" :START1 1 :END1 4 :START2 0 :END2 NIL))) EQL-OK: NIL (NOT (NOT (STRING/= "abxyz" "xyabz" :END1 2 :START2 2 :END2 4))) EQL-OK: NIL (NOT (EQL (STRING/= "love" "hate") 0)) EQL-OK: NIL (NOT (EQL (STRING/= "love" "loVe") 2)) EQL-OK: NIL (NOT (NOT (STRING/= "life" "death" :START1 3 :START2 1 :END2 2))) EQL-OK: NIL (NOT (EQL (STRING/= "abcxyz" "ABCxyZ" :START1 3 :START2 3) 5)) EQL-OK: NIL (NOT (EQL (STRING/= "abcxyz" "ABCxyZ" :START1 3 :END1 NIL :START2 3 :END2 NIL) 5)) EQL-OK: NIL (NOT (EQL (STRING/= "abcxyz" "ABCxyZ" :END1 NIL :START2 3 :END2 3) 0)) EQL-OK: NIL (NOT (EQL (STRING/= "abc" "abcxyz") 3)) EQL-OK: NIL (NOT (EQL (STRING/= "abcxyz" "abc") 3)) EQL-OK: NIL (NOT (EQL (STRING/= "abcxyz" "") 0)) EQL-OK: NIL (NOT (EQL (STRING/= "AbcDef" "cdef" :START1 2) 3)) EQL-OK: NIL (NOT (EQL (STRING/= "cdef" "AbcDef" :START2 2) 1)) EQL-OK: NIL (NOT (= (STRING/= 'LOVE "hate") 0)) EQL-OK: NIL (NOT (NOT (STRING/= 'LOVE 'LOVE))) EQL-OK: NIL (NOT (NOT (STRING/= #\a #\a))) EQL-OK: NIL (NOT (= (STRING/= #\a #\b) 0)) EQL-OK: NIL (NOT (NOT (STRING< "" ""))) EQL-OK: NIL (NOT (NOT (STRING< "dog" "dog"))) EQL-OK: NIL (NOT (NOT (STRING< " " " "))) EQL-OK: NIL (NOT (NOT (STRING< "abc" ""))) EQL-OK: NIL (NOT (EQL (STRING< "" "abc") 0)) EQL-OK: NIL (NOT (EQL (STRING< "ab" "abc") 2)) EQL-OK: NIL (NOT (NOT (STRING< "abc" "ab"))) EQL-OK: NIL (NOT (EQL (STRING< "aaa" "aba") 1)) EQL-OK: NIL (NOT (NOT (STRING< "aba" "aaa"))) EQL-OK: NIL (NOT (NOT (STRING< "my cat food" "your dog food" :START1 6 :START2 8))) EQL-OK: NIL (NOT (NOT (STRING< "cat food 2 dollars" "dog food 3 dollars" :START1 3 :END1 9 :START2 3 :END2 9))) EQL-OK: NIL (NOT (EQL (STRING< "xyzabc" "abcd" :START1 3) 6)) EQL-OK: NIL (NOT (EQL (STRING< "abc" "abc" :END1 1) 1)) EQL-OK: NIL (NOT (EQL (STRING< "xyzabc" "abc" :START1 3 :END1 5) 5)) EQL-OK: NIL (NOT (EQL (STRING< "xyz" "abcxyzXYZ" :START2 3) 3)) EQL-OK: NIL (NOT (NOT (STRING< "abc" "abcxyz" :END2 3))) EQL-OK: NIL (NOT (EQL (STRING< "xyz" "abcxyz" :END1 2 :START2 3) 2)) EQL-OK: NIL (NOT (NOT (STRING< "xyzabc" "abcdef" :START1 3 :END2 3))) EQL-OK: NIL (NOT (EQL (STRING< "aaaa" "z") 0)) EQL-OK: NIL (NOT (EQL (STRING< "pppTTTaTTTqqq" "pTTTxTTT" :START1 3 :START2 1) 6)) EQL-OK: NIL (NOT (EQL (STRING< "pppTTTaTTTqqq" "pTTTxTTT" :START1 6 :END1 7 :START2 4 :END2 5) 6)) EQL-OK: NIL (NOT (NOT (STRING< (MAKE-ARRAY 0 :ELEMENT-TYPE 'CHARACTER) (MAKE-ARRAY 0 :ELEMENT-TYPE 'BASE-CHAR)))) EQL-OK: NIL (NOT (NOT (STRING< 'LOVE 'HATE))) EQL-OK: NIL (NOT (= (STRING< 'PEACE 'WAR) 0)) EQL-OK: NIL (NOT (NOT (STRING< 'LOVE 'LOVE))) EQL-OK: NIL (NOT (NOT (STRING< #\a #\a))) EQL-OK: NIL (NOT (= (STRING< #\a #\b) 0)) EQL-OK: NIL (NOT (NOT (STRING> "" ""))) EQL-OK: NIL (NOT (NOT (STRING> "dog" "dog"))) EQL-OK: NIL (NOT (NOT (STRING> " " " "))) EQL-OK: NIL (NOT (EQL (STRING> "abc" "") 0)) EQL-OK: NIL (NOT (NOT (STRING> "" "abc"))) EQL-OK: NIL (NOT (NOT (STRING> "ab" "abc"))) EQL-OK: NIL (NOT (EQL (STRING> "abc" "ab") 2)) EQL-OK: NIL (NOT (EQL (STRING> "aba" "aaa") 1)) EQL-OK: NIL (NOT (NOT (STRING> "aaa" "aba"))) EQL-OK: NIL (NOT (NOT (STRING> "my cat food" "your dog food" :START1 6 :START2 8))) EQL-OK: NIL (NOT (NOT (STRING> "cat food 2 dollars" "dog food 3 dollars" :START1 3 :END1 9 :START2 3 :END2 9))) EQL-OK: NIL (NOT (EQL (STRING> "xyzabcde" "abcd" :START1 3) 7)) EQL-OK: NIL (NOT (NOT (STRING> "abc" "abc" :END1 1))) EQL-OK: NIL (NOT (EQL (STRING> "xyzabc" "a" :START1 3 :END1 5) 4)) EQL-OK: NIL (NOT (EQL (STRING> "xyzXYZ" "abcxyz" :START2 3) 3)) EQL-OK: NIL (NOT (EQL (STRING> "abcxyz" "abcxyz" :END2 3) 3)) EQL-OK: NIL (NOT (NOT (STRING> "xyzXYZ" "abcxyz" :END1 2 :START2 3))) EQL-OK: NIL (NOT (NOT (STRING> "xyzabc" "abcdef" :START1 3 :END2 3))) EQL-OK: NIL (NOT (EQL (STRING> "z" "aaaa") 0)) EQL-OK: NIL (NOT (EQL (STRING> "pTTTxTTTqqq" "pppTTTaTTT" :START1 1 :START2 3) 4)) EQL-OK: NIL (NOT (EQL (STRING> "pppTTTxTTTqqq" "pTTTaTTT" :START1 6 :END1 7 :START2 4 :END2 5) 6)) EQL-OK: NIL (NOT (NOT (STRING> (MAKE-ARRAY 0 :ELEMENT-TYPE 'CHARACTER) (MAKE-ARRAY 0 :ELEMENT-TYPE 'BASE-CHAR)))) EQL-OK: NIL (NOT (= (STRING> 'LOVE 'HATE) 0)) EQL-OK: NIL (NOT (NOT (STRING> 'PEACE 'WAR))) EQL-OK: NIL (NOT (NOT (STRING> 'LOVE 'LOVE))) EQL-OK: NIL (NOT (NOT (STRING> #\a #\a))) EQL-OK: NIL (NOT (NOT (STRING> #\a #\b))) EQL-OK: NIL (NOT (= (STRING> #\z #\a) 0)) EQL-OK: NIL (NOT (EQL (STRING<= "" "") 0)) EQL-OK: NIL (NOT (EQL (STRING<= "dog" "dog") 3)) EQL-OK: NIL (NOT (EQL (STRING<= " " " ") 1)) EQL-OK: NIL (NOT (NOT (STRING<= "abc" ""))) EQL-OK: NIL (NOT (EQL (STRING<= "ab" "abc") 2)) EQL-OK: NIL (NOT (EQL (STRING<= "aaa" "aba") 1)) EQL-OK: NIL (NOT (NOT (STRING<= "aba" "aaa"))) EQL-OK: NIL (NOT (EQL (STRING<= "my cat food" "your dog food" :START1 6 :START2 8) 11)) EQL-OK: NIL (NOT (EQL (STRING<= "cat food 2 dollars" "dog food 3 dollars" :START1 3 :END1 9 :START2 3 :END2 9) 9)) EQL-OK: NIL (NOT (EQL (STRING<= "xyzabc" "abcd" :START1 3) 6)) EQL-OK: NIL (NOT (EQL (STRING<= "abc" "abc" :END1 1) 1)) EQL-OK: NIL (NOT (EQL (STRING<= "xyzabc" "abc" :START1 3 :END1 5) 5)) EQL-OK: NIL (NOT (EQL (STRING<= "xyz" "abcxyzXYZ" :START2 3) 3)) EQL-OK: NIL (NOT (EQL (STRING<= "abc" "abcxyz" :END2 3) 3)) EQL-OK: NIL (NOT (EQL (STRING<= "xyz" "abcxyz" :END1 2 :START2 3) 2)) EQL-OK: NIL (NOT (EQL (STRING<= "xyzabc" "abcdef" :START1 3 :END2 3) 6)) EQL-OK: NIL (NOT (EQL (STRING<= "aaaa" "z") 0)) EQL-OK: NIL (NOT (EQL (STRING<= "pppTTTaTTTqqq" "pTTTxTTT" :START1 3 :START2 1) 6)) EQL-OK: NIL (NOT (EQL (STRING<= "pppTTTaTTTqqq" "pTTTxTTT" :START1 6 :END1 7 :START2 4 :END2 5) 6)) EQL-OK: NIL (NOT (EQL (STRING<= (MAKE-ARRAY 0 :ELEMENT-TYPE 'CHARACTER) (MAKE-ARRAY 0 :ELEMENT-TYPE 'BASE-CHAR)) 0)) EQL-OK: NIL (NOT (NOT (STRING<= 'LOVE 'HATE))) EQL-OK: NIL (NOT (= (STRING<= 'PEACE 'WAR) 0)) EQL-OK: NIL (NOT (= (STRING<= 'LOVE 'LOVE) 4)) EQL-OK: NIL (NOT (= (STRING<= #\a #\a) 1)) EQL-OK: NIL (NOT (= (STRING<= #\a #\b) 0)) EQL-OK: NIL (NOT (NOT (STRING<= #\z #\a))) EQL-OK: NIL (NOT (EQL (STRING>= "" "") 0)) EQL-OK: NIL (NOT (EQL (STRING>= "dog" "dog") 3)) EQL-OK: NIL (NOT (EQL (STRING>= " " " ") 1)) EQL-OK: NIL (NOT (EQL (STRING>= "abc" "") 0)) EQL-OK: NIL (NOT (NOT (STRING>= "" "abc"))) EQL-OK: NIL (NOT (NOT (STRING>= "ab" "abc"))) EQL-OK: NIL (NOT (EQL (STRING>= "abc" "ab") 2)) EQL-OK: NIL (NOT (EQL (STRING>= "aba" "aaa") 1)) EQL-OK: NIL (NOT (NOT (STRING>= "aaa" "aba"))) EQL-OK: NIL (NOT (EQL (STRING>= "my cat food" "your dog food" :START1 6 :START2 8) 11)) EQL-OK: NIL (NOT (EQL (STRING>= "cat food 2 dollars" "dog food 3 dollars" :START1 3 :END1 9 :START2 3 :END2 9) 9)) EQL-OK: NIL (NOT (EQL (STRING>= "xyzabcde" "abcd" :START1 3) 7)) EQL-OK: NIL (NOT (NOT (STRING>= "abc" "abc" :END1 1))) EQL-OK: NIL (NOT (EQL (STRING>= "xyzabc" "a" :START1 3 :END1 5) 4)) EQL-OK: NIL (NOT (EQL (STRING>= "xyzXYZ" "abcxyz" :START2 3) 3)) EQL-OK: NIL (NOT (EQL (STRING>= "abcxyz" "abcxyz" :END2 3) 3)) EQL-OK: NIL (NOT (NOT (STRING>= "xyzXYZ" "abcxyz" :END1 2 :START2 3))) EQL-OK: NIL (NOT (EQL (STRING>= "xyzabc" "abcdef" :START1 3 :END2 3) 6)) EQL-OK: NIL (NOT (EQL (STRING>= "z" "aaaa") 0)) EQL-OK: NIL (NOT (EQL (STRING>= "pTTTxTTTqqq" "pppTTTaTTT" :START1 1 :START2 3) 4)) EQL-OK: NIL (NOT (EQL (STRING>= "pppTTTxTTTqqq" "pTTTaTTT" :START1 6 :END1 7 :START2 4 :END2 5) 6)) EQL-OK: NIL (NOT (EQL (STRING>= (MAKE-ARRAY 0 :ELEMENT-TYPE 'CHARACTER) (MAKE-ARRAY 0 :ELEMENT-TYPE 'BASE-CHAR)) 0)) EQL-OK: NIL (NOT (= (STRING>= 'LOVE 'HATE) 0)) EQL-OK: NIL (NOT (NOT (STRING>= 'PEACE 'WAR))) EQL-OK: NIL (NOT (= (STRING>= 'LOVE 'LOVE) 4)) EQL-OK: NIL (NOT (= (STRING>= #\a #\a) 1)) EQL-OK: NIL (NOT (NOT (STRING>= #\a #\b))) EQL-OK: NIL (NOT (= (STRING>= #\z #\a) 0)) EQL-OK: NIL (NOT (STRING-EQUAL "" "")) EQL-OK: NIL (NOT (STRING-EQUAL (MAKE-ARRAY 0 :ELEMENT-TYPE 'CHARACTER) (MAKE-ARRAY 0 :ELEMENT-TYPE 'BASE-CHAR))) EQL-OK: NIL (NOT (NOT (STRING-EQUAL "abc" ""))) EQL-OK: NIL (NOT (NOT (STRING-EQUAL "" "abc"))) EQL-OK: NIL (NOT (STRING-EQUAL "A" "a")) EQL-OK: NIL (NOT (STRING-EQUAL "abc" "xyz" :START1 3 :START2 3)) EQL-OK: NIL (NOT (STRING-EQUAL "abc" "xyz" :START1 1 :END1 1 :START2 0 :END2 0)) EQL-OK: NIL (NOT (STRING-EQUAL "axyza" "xyz" :START1 1 :END1 4)) EQL-OK: NIL (NOT (STRING-EQUAL "axyza" "xyz" :START1 1 :END1 4 :START2 0 :END2 NIL)) EQL-OK: NIL (NOT (STRING-EQUAL "abxyz" "xyabz" :END1 2 :START2 2 :END2 4)) EQL-OK: NIL (NOT (NOT (STRING-EQUAL "love" "hate"))) EQL-OK: NIL (NOT (STRING-EQUAL "xyz" "XYZ")) EQL-OK: NIL (NOT (NOT (STRING-EQUAL 'LOVE 'HATE))) EQL-OK: NIL (NOT (NOT (STRING-EQUAL 'PEACE 'WAR))) EQL-OK: NIL (NOT (STRING-EQUAL 'LOVE 'LOVE)) EQL-OK: NIL (NOT (STRING-EQUAL #\a #\a)) EQL-OK: NIL (NOT (NOT (STRING-EQUAL #\a #\b))) EQL-OK: NIL (NOT (NOT (STRING-EQUAL #\z #\a))) EQL-OK: NIL (NOT (NOT (STRING-NOT-EQUAL "" ""))) EQL-OK: NIL (NOT (NOT (STRING-NOT-EQUAL (MAKE-ARRAY 0 :ELEMENT-TYPE 'CHARACTER) (MAKE-ARRAY 0 :ELEMENT-TYPE 'BASE-CHAR)))) EQL-OK: NIL (NOT (EQL (STRING-NOT-EQUAL "abc" "") 0)) EQL-OK: NIL (NOT (EQL (STRING-NOT-EQUAL "" "abc") 0)) EQL-OK: NIL (NOT (NOT (STRING-NOT-EQUAL "A" "a"))) EQL-OK: NIL (NOT (NOT (STRING-NOT-EQUAL "abc" "xyz" :START1 3 :START2 3))) EQL-OK: NIL (NOT (NOT (STRING-NOT-EQUAL "abc" "xyz" :START1 1 :END1 1 :START2 0 :END2 0))) EQL-OK: NIL (NOT (NOT (STRING-NOT-EQUAL "axyza" "xyz" :START1 1 :END1 4))) EQL-OK: NIL (NOT (NOT (STRING-NOT-EQUAL "axyza" "xyz" :START1 1 :END1 4 :START2 0 :END2 NIL))) EQL-OK: NIL (NOT (NOT (STRING-NOT-EQUAL "abxyz" "xyabz" :END1 2 :START2 2 :END2 4))) EQL-OK: NIL (NOT (EQL (STRING-NOT-EQUAL "love" "hate") 0)) EQL-OK: NIL (NOT (NOT (STRING-NOT-EQUAL "love" "loVe"))) EQL-OK: NIL (NOT (NOT (STRING-NOT-EQUAL "life" "death" :START1 3 :START2 1 :END2 2))) EQL-OK: NIL (NOT (NOT (STRING-NOT-EQUAL "abcxyz" "ABCxyZ" :START1 3 :START2 3))) EQL-OK: NIL (NOT (NOT (STRING-NOT-EQUAL "abcxyz" "ABCxyZ" :START1 3 :END1 NIL :START2 3 :END2 NIL))) EQL-OK: NIL (NOT (EQL (STRING-NOT-EQUAL "abcxyz" "ABCxyZ" :END1 NIL :START2 3 :END2 3) 0)) EQL-OK: NIL (NOT (EQL (STRING-NOT-EQUAL "abc" "abcxyz") 3)) EQL-OK: NIL (NOT (EQL (STRING-NOT-EQUAL "abcxyz" "abc") 3)) EQL-OK: NIL (NOT (EQL (STRING-NOT-EQUAL "abcxyz" "") 0)) EQL-OK: NIL (NOT (NOT (STRING-NOT-EQUAL "AbcDef" "cdef" :START1 2))) EQL-OK: NIL (NOT (NOT (STRING-NOT-EQUAL "cdef" "AbcDef" :START2 2))) EQL-OK: NIL (NOT (NOT (STRING-NOT-EQUAL "ABC" "abc"))) EQL-OK: NIL (NOT (= (STRING-NOT-EQUAL 'LOVE 'HATE) 0)) EQL-OK: NIL (NOT (= (STRING-NOT-EQUAL 'PEACE 'WAR) 0)) EQL-OK: NIL (NOT (NOT (STRING-NOT-EQUAL 'LOVE 'LOVE))) EQL-OK: NIL (NOT (NOT (STRING-NOT-EQUAL #\a #\a))) EQL-OK: NIL (NOT (= (STRING-NOT-EQUAL #\a #\b) 0)) EQL-OK: NIL (NOT (= (STRING-NOT-EQUAL #\z #\a) 0)) EQL-OK: NIL (NOT (NOT (STRING-LESSP "" ""))) EQL-OK: NIL (NOT (NOT (STRING-LESSP "dog" "dog"))) EQL-OK: NIL (NOT (NOT (STRING-LESSP " " " "))) EQL-OK: NIL (NOT (NOT (STRING-LESSP "abc" ""))) EQL-OK: NIL (NOT (EQL (STRING-LESSP "" "abc") 0)) EQL-OK: NIL (NOT (EQL (STRING-LESSP "ab" "abc") 2)) EQL-OK: NIL (NOT (NOT (STRING-LESSP "abc" "ab"))) EQL-OK: NIL (NOT (EQL (STRING-LESSP "aaa" "aba") 1)) EQL-OK: NIL (NOT (NOT (STRING-LESSP "aba" "aaa"))) EQL-OK: NIL (NOT (NOT (STRING-LESSP "my cat food" "your dog food" :START1 6 :START2 8))) EQL-OK: NIL (NOT (NOT (STRING-LESSP "cat food 2 dollars" "dog food 3 dollars" :START1 3 :END1 9 :START2 3 :END2 9))) EQL-OK: NIL (NOT (EQL (STRING-LESSP "xyzabc" "abcd" :START1 3) 6)) EQL-OK: NIL (NOT (EQL (STRING-LESSP "abc" "abc" :END1 1) 1)) EQL-OK: NIL (NOT (EQL (STRING-LESSP "xyzabc" "abc" :START1 3 :END1 5) 5)) EQL-OK: NIL (NOT (EQL (STRING-LESSP "xyz" "abcxyzXYZ" :START2 3) 3)) EQL-OK: NIL (NOT (NOT (STRING-LESSP "abc" "abcxyz" :END2 3))) EQL-OK: NIL (NOT (EQL (STRING-LESSP "xyz" "abcxyz" :END1 2 :START2 3) 2)) EQL-OK: NIL (NOT (NOT (STRING-LESSP "xyzabc" "abcdef" :START1 3 :END2 3))) EQL-OK: NIL (NOT (EQL (STRING-LESSP "aaaa" "z") 0)) EQL-OK: NIL (NOT (EQL (STRING-LESSP "pppTTTaTTTqqq" "pTTTxTTT" :START1 3 :START2 1) 6)) EQL-OK: NIL (NOT (EQL (STRING-LESSP "pppTTTaTTTqqq" "pTTTxTTT" :START1 6 :END1 7 :START2 4 :END2 5) 6)) EQL-OK: NIL (NOT (NOT (STRING-LESSP (MAKE-ARRAY 0 :ELEMENT-TYPE 'CHARACTER) (MAKE-ARRAY 0 :ELEMENT-TYPE 'BASE-CHAR)))) EQL-OK: NIL (NOT (AND (NOT (STRING-LESSP "abc" "ABC")) (NOT (STRING-LESSP "ABC" "abc")))) EQL-OK: NIL (NOT (NOT (STRING-LESSP 'LOVE 'HATE))) EQL-OK: NIL (NOT (= (STRING-LESSP 'PEACE 'WAR) 0)) EQL-OK: NIL (NOT (NOT (STRING-LESSP 'LOVE 'LOVE))) EQL-OK: NIL (NOT (NOT (STRING-LESSP #\a #\a))) EQL-OK: NIL (NOT (= (STRING-LESSP #\a #\b) 0)) EQL-OK: NIL (NOT (NOT (STRING-LESSP #\z #\a))) EQL-OK: NIL (NOT (NOT (STRING-GREATERP "" ""))) EQL-OK: NIL (NOT (NOT (STRING-GREATERP "dog" "dog"))) EQL-OK: NIL (NOT (NOT (STRING-GREATERP " " " "))) EQL-OK: NIL (NOT (EQL (STRING-GREATERP "abc" "") 0)) EQL-OK: NIL (NOT (NOT (STRING-GREATERP "" "abc"))) EQL-OK: NIL (NOT (NOT (STRING-GREATERP "ab" "abc"))) EQL-OK: NIL (NOT (EQL (STRING-GREATERP "abc" "ab") 2)) EQL-OK: NIL (NOT (EQL (STRING-GREATERP "aba" "aaa") 1)) EQL-OK: NIL (NOT (NOT (STRING-GREATERP "aaa" "aba"))) EQL-OK: NIL (NOT (NOT (STRING-GREATERP "my cat food" "your dog food" :START1 6 :START2 8))) EQL-OK: NIL (NOT (NOT (STRING-GREATERP "cat food 2 dollars" "dog food 3 dollars" :START1 3 :END1 9 :START2 3 :END2 9))) EQL-OK: NIL (NOT (EQL (STRING-GREATERP "xyzabcde" "abcd" :START1 3) 7)) EQL-OK: NIL (NOT (NOT (STRING-GREATERP "abc" "abc" :END1 1))) EQL-OK: NIL (NOT (EQL (STRING-GREATERP "xyzabc" "a" :START1 3 :END1 5) 4)) EQL-OK: NIL (NOT (EQL (STRING-GREATERP "xyzXYZ" "abcxyz" :START2 3) 3)) EQL-OK: NIL (NOT (EQL (STRING-GREATERP "abcxyz" "abcxyz" :END2 3) 3)) EQL-OK: NIL (NOT (NOT (STRING-GREATERP "xyzXYZ" "abcxyz" :END1 2 :START2 3))) EQL-OK: NIL (NOT (NOT (STRING-GREATERP "xyzabc" "abcdef" :START1 3 :END2 3))) EQL-OK: NIL (NOT (EQL (STRING-GREATERP "z" "aaaa") 0)) EQL-OK: NIL (NOT (EQL (STRING-GREATERP "pTTTxTTTqqq" "pppTTTaTTT" :START1 1 :START2 3) 4)) EQL-OK: NIL (NOT (EQL (STRING-GREATERP "pppTTTxTTTqqq" "pTTTaTTT" :START1 6 :END1 7 :START2 4 :END2 5) 6)) EQL-OK: NIL (NOT (NOT (STRING-GREATERP (MAKE-ARRAY 0 :ELEMENT-TYPE 'CHARACTER) (MAKE-ARRAY 0 :ELEMENT-TYPE 'BASE-CHAR)))) EQL-OK: NIL (NOT (AND (NOT (STRING-GREATERP "abc" "ABC")) (NOT (STRING-GREATERP "ABC" "abc")))) EQL-OK: NIL (NOT (= (STRING-GREATERP 'LOVE 'HATE) 0)) EQL-OK: NIL (NOT (NOT (STRING-GREATERP 'PEACE 'WAR))) EQL-OK: NIL (NOT (NOT (STRING-GREATERP 'LOVE 'LOVE))) EQL-OK: NIL (NOT (NOT (STRING-GREATERP #\a #\a))) EQL-OK: NIL (NOT (NOT (STRING-GREATERP #\a #\b))) EQL-OK: NIL (NOT (= (STRING-GREATERP #\z #\a) 0)) EQL-OK: NIL (NOT (EQL (STRING-NOT-GREATERP "" "") 0)) EQL-OK: NIL (NOT (EQL (STRING-NOT-GREATERP "dog" "dog") 3)) EQL-OK: NIL (NOT (EQL (STRING-NOT-GREATERP " " " ") 1)) EQL-OK: NIL (NOT (NOT (STRING-NOT-GREATERP "abc" ""))) EQL-OK: NIL (NOT (EQL (STRING-NOT-GREATERP "ab" "abc") 2)) EQL-OK: NIL (NOT (EQL (STRING-NOT-GREATERP "aaa" "aba") 1)) EQL-OK: NIL (NOT (NOT (STRING-NOT-GREATERP "aba" "aaa"))) EQL-OK: NIL (NOT (EQL (STRING-NOT-GREATERP "my cat food" "your dog food" :START1 6 :START2 8) 11)) EQL-OK: NIL (NOT (EQL (STRING-NOT-GREATERP "cat food 2 dollars" "dog food 3 dollars" :START1 3 :END1 9 :START2 3 :END2 9) 9)) EQL-OK: NIL (NOT (EQL (STRING-NOT-GREATERP "xyzabc" "abcd" :START1 3) 6)) EQL-OK: NIL (NOT (EQL (STRING-NOT-GREATERP "abc" "abc" :END1 1) 1)) EQL-OK: NIL (NOT (EQL (STRING-NOT-GREATERP "xyzabc" "abc" :START1 3 :END1 5) 5)) EQL-OK: NIL (NOT (EQL (STRING-NOT-GREATERP "xyz" "abcxyzXYZ" :START2 3) 3)) EQL-OK: NIL (NOT (EQL (STRING-NOT-GREATERP "abc" "abcxyz" :END2 3) 3)) EQL-OK: NIL (NOT (EQL (STRING-NOT-GREATERP "xyz" "abcxyz" :END1 2 :START2 3) 2)) EQL-OK: NIL (NOT (EQL (STRING-NOT-GREATERP "xyzabc" "abcdef" :START1 3 :END2 3) 6)) EQL-OK: NIL (NOT (EQL (STRING-NOT-GREATERP "aaaa" "z") 0)) EQL-OK: NIL (NOT (EQL (STRING-NOT-GREATERP "pppTTTaTTTqqq" "pTTTxTTT" :START1 3 :START2 1) 6)) EQL-OK: NIL (NOT (EQL (STRING-NOT-GREATERP "pppTTTaTTTqqq" "pTTTxTTT" :START1 6 :END1 7 :START2 4 :END2 5) 6)) EQL-OK: NIL (NOT (EQL (STRING-NOT-GREATERP (MAKE-ARRAY 0 :ELEMENT-TYPE 'CHARACTER) (MAKE-ARRAY 0 :ELEMENT-TYPE 'BASE-CHAR)) 0)) EQL-OK: NIL (NOT (AND (EQL (STRING-NOT-GREATERP "abc" "ABC") 3) (EQL (STRING-NOT-GREATERP "ABC" "abc") 3))) EQL-OK: NIL (NOT (NOT (STRING-NOT-GREATERP 'LOVE 'HATE))) EQL-OK: NIL (NOT (= (STRING-NOT-GREATERP 'PEACE 'WAR) 0)) EQL-OK: NIL (NOT (= (STRING-NOT-GREATERP 'LOVE 'LOVE) 4)) EQL-OK: NIL (NOT (= (STRING-NOT-GREATERP #\a #\a) 1)) EQL-OK: NIL (NOT (= (STRING-NOT-GREATERP #\a #\b) 0)) EQL-OK: NIL (NOT (NOT (STRING-NOT-GREATERP #\z #\a))) EQL-OK: NIL (NOT (EQL (STRING-NOT-LESSP "" "") 0)) EQL-OK: NIL (NOT (EQL (STRING-NOT-LESSP "dog" "dog") 3)) EQL-OK: NIL (NOT (EQL (STRING-NOT-LESSP " " " ") 1)) EQL-OK: NIL (NOT (EQL (STRING-NOT-LESSP "abc" "") 0)) EQL-OK: NIL (NOT (NOT (STRING-NOT-LESSP "" "abc"))) EQL-OK: NIL (NOT (NOT (STRING-NOT-LESSP "ab" "abc"))) EQL-OK: NIL (NOT (EQL (STRING-NOT-LESSP "abc" "ab") 2)) EQL-OK: NIL (NOT (EQL (STRING-NOT-LESSP "aba" "aaa") 1)) EQL-OK: NIL (NOT (NOT (STRING-NOT-LESSP "aaa" "aba"))) EQL-OK: NIL (NOT (EQL (STRING-NOT-LESSP "my cat food" "your dog food" :START1 6 :START2 8) 11)) EQL-OK: NIL (NOT (EQL (STRING-NOT-LESSP "cat food 2 dollars" "dog food 3 dollars" :START1 3 :END1 9 :START2 3 :END2 9) 9)) EQL-OK: NIL (NOT (EQL (STRING-NOT-LESSP "xyzabcde" "abcd" :START1 3) 7)) EQL-OK: NIL (NOT (NOT (STRING-NOT-LESSP "abc" "abc" :END1 1))) EQL-OK: NIL (NOT (EQL (STRING-NOT-LESSP "xyzabc" "a" :START1 3 :END1 5) 4)) EQL-OK: NIL (NOT (EQL (STRING-NOT-LESSP "xyzXYZ" "abcxyz" :START2 3) 3)) EQL-OK: NIL (NOT (EQL (STRING-NOT-LESSP "abcxyz" "abcxyz" :END2 3) 3)) EQL-OK: NIL (NOT (NOT (STRING-NOT-LESSP "xyzXYZ" "abcxyz" :END1 2 :START2 3))) EQL-OK: NIL (NOT (EQL (STRING-NOT-LESSP "xyzabc" "abcdef" :START1 3 :END2 3) 6)) EQL-OK: NIL (NOT (EQL (STRING-NOT-LESSP "z" "aaaa") 0)) EQL-OK: NIL (NOT (EQL (STRING-NOT-LESSP "pTTTxTTTqqq" "pppTTTaTTT" :START1 1 :START2 3) 4)) EQL-OK: NIL (NOT (EQL (STRING-NOT-LESSP "pppTTTxTTTqqq" "pTTTaTTT" :START1 6 :END1 7 :START2 4 :END2 5) 6)) EQL-OK: NIL (NOT (EQL (STRING-NOT-LESSP (MAKE-ARRAY 0 :ELEMENT-TYPE 'CHARACTER) (MAKE-ARRAY 0 :ELEMENT-TYPE 'BASE-CHAR)) 0)) EQL-OK: NIL (NOT (AND (EQL (STRING-NOT-LESSP "abc" "ABC") 3) (EQL (STRING-NOT-LESSP "ABC" "abc") 3))) EQL-OK: NIL (NOT (= (STRING-NOT-LESSP 'LOVE 'HATE) 0)) EQL-OK: NIL (NOT (NOT (STRING-NOT-LESSP 'PEACE 'WAR))) EQL-OK: NIL (NOT (= (STRING-NOT-LESSP 'LOVE 'LOVE) 4)) EQL-OK: NIL (NOT (= (STRING-NOT-LESSP #\a #\a) 1)) EQL-OK: NIL (NOT (NOT (STRING-NOT-LESSP #\a #\b))) EQL-OK: NIL (NOT (= (STRING-NOT-LESSP #\z #\a) 0)) EQL-OK: NIL (NOT (STRINGP "aaaaaa")) EQL-OK: NIL (NOT (STRINGP (MAKE-ARRAY 0 :ELEMENT-TYPE 'CHARACTER))) EQL-OK: NIL (NOT (STRINGP (MAKE-ARRAY 0 :ELEMENT-TYPE 'BASE-CHAR))) EQL-OK: NIL (NOT (STRINGP (MAKE-ARRAY 0 :ELEMENT-TYPE 'STANDARD-CHAR))) EQL-OK: NIL (NOT (NOT (STRINGP #\a))) EQL-OK: NIL (NOT (NOT (STRINGP 'A))) EQL-OK: NIL (NOT (NOT (STRINGP '(STRING)))) EQL-OK: NIL (NOT (STRING= (MAKE-STRING 3 :INITIAL-ELEMENT #\a) "aaa")) EQL-OK: NIL (NOT (LET ((STR (MAKE-STRING 3))) (AND (SIMPLE-STRING-P STR) (SETF (SCHAR STR 0) #\x) (SETF (SCHAR STR 1) #\y) (SETF (SCHAR STR 2) #\z) (STRING= STR "xyz")))) EQL-OK: NIL (NOT (STRING= (MAKE-STRING 1 :INITIAL-ELEMENT #\ ) " ")) EQL-OK: NIL (NOT (STRING= (MAKE-STRING 0) "")) EQL-OK: NIL (NOT (SUBTYPEP (UPGRADED-ARRAY-ELEMENT-TYPE (ARRAY-ELEMENT-TYPE (MAKE-STRING 3 :ELEMENT-TYPE 'STANDARD-CHAR))) 'CHARACTER)) EQL-OK: NIL RUN-TEST: finished "must-string" (0 errors out of 414 tests) RUN-TEST: started # (NOT (SYMBOLP 'ELEPHANT)) EQL-OK: NIL (NOT (NOT (SYMBOLP 12))) EQL-OK: NIL (NOT (SYMBOLP NIL)) EQL-OK: NIL (NOT (SYMBOLP 'NIL)) EQL-OK: NIL (NOT (SYMBOLP :TEST)) EQL-OK: NIL (NOT (NOT (SYMBOLP "hello"))) EQL-OK: NIL (NOT (NOT (KEYWORDP 'ELEPHANT))) EQL-OK: NIL (NOT (NOT (KEYWORDP 12))) EQL-OK: NIL (NOT (KEYWORDP :TEST)) EQL-OK: NIL (NOT (KEYWORDP ':TEST)) EQL-OK: NIL (NOT (NOT (KEYWORDP NIL))) EQL-OK: NIL (NOT (KEYWORDP :NIL)) EQL-OK: NIL (NOT (NOT (KEYWORDP '(:TEST)))) EQL-OK: NIL (NOT (NOT (KEYWORDP "hello"))) EQL-OK: NIL (NOT (NOT (KEYWORDP ":hello"))) EQL-OK: NIL (NOT (NOT (KEYWORDP '&OPTIONAL))) EQL-OK: NIL (NOT (LET ((NEW (MAKE-SYMBOL "symbol"))) (STRING= (SYMBOL-NAME NEW) "symbol"))) EQL-OK: NIL (NOT (LET ((NEW (MAKE-SYMBOL "symbol"))) (NOT (BOUNDP NEW)))) EQL-OK: NIL (NOT (LET ((NEW (MAKE-SYMBOL "symbol"))) (NOT (FBOUNDP NEW)))) EQL-OK: NIL (NOT (LET ((NEW (MAKE-SYMBOL "symbol"))) (NULL (SYMBOL-PLIST NEW)))) EQL-OK: NIL (NOT (LET ((NEW (MAKE-SYMBOL "symbol"))) (NULL (SYMBOL-PACKAGE NEW)))) EQL-OK: NIL (NOT (LET ((NEW (MAKE-SYMBOL "symbol"))) (NOT (MEMBER NEW (FIND-ALL-SYMBOLS "symbol"))))) EQL-OK: NIL (NOT (EVERY #'IDENTITY (MAPCAR #'(LAMBDA (NAME) (LET ((NEW (MAKE-SYMBOL NAME))) (AND (STRING= (SYMBOL-NAME NEW) NAME) (NOT (BOUNDP NEW)) (NOT (FBOUNDP NEW)) (NULL (SYMBOL-PLIST NEW)) (NOT (MEMBER NEW (FIND-ALL-SYMBOLS NAME)))))) '("" "Symbol" "eat-this" "SYMBOL" ":S:Y:M:B:O:L:")))) EQL-OK: NIL (NOT (LET ((COPY (COPY-SYMBOL 'CAR))) (STRING= (SYMBOL-NAME COPY) (SYMBOL-NAME 'CAR)))) EQL-OK: NIL (NOT (LET ((COPY (COPY-SYMBOL 'CAR))) (NOT (BOUNDP COPY)))) EQL-OK: NIL (NOT (LET ((COPY (COPY-SYMBOL 'CAR))) (NOT (FBOUNDP COPY)))) EQL-OK: NIL (NOT (LET ((COPY (COPY-SYMBOL 'CAR))) (NULL (SYMBOL-PLIST COPY)))) EQL-OK: NIL (NOT (LET ((COPY (COPY-SYMBOL 'CAR))) (NULL (SYMBOL-PACKAGE COPY)))) EQL-OK: NIL (NOT (LET ((COPY (COPY-SYMBOL 'CAR "copy properties too"))) (STRING= (SYMBOL-NAME COPY) (SYMBOL-NAME 'CAR)))) EQL-OK: NIL (NOT (LET ((COPY (COPY-SYMBOL 'CAR "copy properties too"))) (IF (BOUNDP 'CAR) (BOUNDP COPY) (NOT (BOUNDP COPY))))) EQL-OK: NIL (NOT (LET ((COPY (COPY-SYMBOL 'CAR "copy properties too"))) (EQ (SYMBOL-FUNCTION COPY) (SYMBOL-FUNCTION 'CAR)))) EQL-OK: NIL (NOT (LET ((COPY (COPY-SYMBOL 'CAR "copy properties too"))) (EQUAL (SYMBOL-PLIST COPY) (SYMBOL-PLIST 'CAR)))) EQL-OK: NIL (NOT (LET ((COPY (COPY-SYMBOL 'CAR "copy properties too"))) (NULL (SYMBOL-PACKAGE COPY)))) EQL-OK: NIL (NOT (EVERY #'IDENTITY (MAPCAR #'(LAMBDA (SYMBOL) (LET ((COPY1 (COPY-SYMBOL SYMBOL)) (COPY2 (COPY-SYMBOL SYMBOL "copy-properties"))) (AND (STRING= (SYMBOL-NAME COPY1) (SYMBOL-NAME SYMBOL)) (STRING= (SYMBOL-NAME COPY2) (SYMBOL-NAME SYMBOL)) (NOT (BOUNDP COPY1)) (IF (BOUNDP SYMBOL) (BOUNDP COPY2) (NOT (BOUNDP COPY2))) (NOT (FBOUNDP COPY1)) (IF (FBOUNDP SYMBOL) (FBOUNDP COPY2) (NOT (FBOUNDP COPY2))) (NULL (SYMBOL-PLIST COPY1)) (EQUAL (SYMBOL-PLIST COPY2) (SYMBOL-PLIST SYMBOL)) (NULL (SYMBOL-PACKAGE COPY1)) (NULL (SYMBOL-PACKAGE COPY2)) (NOT (MEMBER COPY1 (FIND-ALL-SYMBOLS SYMBOL))) (NOT (MEMBER COPY2 (FIND-ALL-SYMBOLS SYMBOL)))))) '(NIL CDR *PACKAGE* LIST SYMBOL WEIRD-SYMBOL)))) EQL-OK: NIL (NOT (LET ((NEW (GENSYM))) (NOT (BOUNDP NEW)))) EQL-OK: NIL (NOT (LET ((NEW (GENSYM))) (NOT (FBOUNDP NEW)))) EQL-OK: NIL (NOT (LET ((NEW (GENSYM))) (NULL (SYMBOL-PLIST NEW)))) EQL-OK: NIL (NOT (LET ((NEW (GENSYM))) (NULL (SYMBOL-PACKAGE NEW)))) EQL-OK: NIL (NOT (LET ((NEW (GENSYM "How about this"))) (NOT (BOUNDP NEW)))) EQL-OK: NIL (NOT (LET ((NEW (GENSYM "How about this"))) (NOT (FBOUNDP NEW)))) EQL-OK: NIL (NOT (LET ((NEW (GENSYM "How about this"))) (NULL (SYMBOL-PLIST NEW)))) EQL-OK: NIL (NOT (LET ((NEW (GENSYM "How about this"))) (NULL (SYMBOL-PACKAGE NEW)))) EQL-OK: NIL (NOT (LET ((NEW (GENSYM 100))) (NOT (BOUNDP NEW)))) EQL-OK: NIL (NOT (LET ((NEW (GENSYM 10))) (NOT (FBOUNDP NEW)))) EQL-OK: NIL (NOT (LET ((NEW (GENSYM 9))) (NULL (SYMBOL-PLIST NEW)))) EQL-OK: NIL (NOT (LET ((NEW (GENSYM 8))) (NULL (SYMBOL-PACKAGE NEW)))) EQL-OK: NIL (NOT (LET* ((COUNTER *GENSYM-COUNTER*) (NEW (GENSYM))) (STRING= (SYMBOL-NAME NEW) (WITH-OUTPUT-TO-STRING (STREAM) (FORMAT STREAM "G~D" COUNTER))))) EQL-OK: NIL (NOT (LET* ((COUNTER *GENSYM-COUNTER*) (NEW (GENSYM "JJ"))) (STRING= (SYMBOL-NAME NEW) (WITH-OUTPUT-TO-STRING (STREAM) (FORMAT STREAM "JJ~D" COUNTER))))) EQL-OK: NIL (NOT (LET* ((COUNTER *GENSYM-COUNTER*) (NEW (GENSYM ""))) (STRING= (SYMBOL-NAME NEW) (WITH-OUTPUT-TO-STRING (STREAM) (FORMAT STREAM "~D" COUNTER))))) EQL-OK: NIL (NOT (LET ((NEW (GENSYM 0))) (STRING= (SYMBOL-NAME NEW) "G0"))) EQL-OK: NIL (NOT (LET ((NEW (GENSYM 1000))) (STRING= (SYMBOL-NAME NEW) "G1000"))) EQL-OK: NIL (NOT (LET ((SYMBOL (GENTEMP))) (CHAR= (AREF (SYMBOL-NAME SYMBOL) 0) #\T))) EQL-OK: NIL (NOT (LET ((SYMBOL (GENTEMP))) (NOT (BOUNDP SYMBOL)))) EQL-OK: NIL (NOT (LET ((SYMBOL (GENTEMP))) (NOT (FBOUNDP SYMBOL)))) EQL-OK: NIL (NOT (LET ((SYMBOL (GENTEMP))) (NULL (SYMBOL-PLIST SYMBOL)))) EQL-OK: NIL (NOT (LET ((SYMBOL (GENTEMP))) (MULTIPLE-VALUE-BIND (SYMBOL-FOUND STATUS) (FIND-SYMBOL (SYMBOL-NAME SYMBOL)) (AND (EQ SYMBOL-FOUND SYMBOL) (IF (EQ *PACKAGE* (FIND-PACKAGE "KEYWORD")) (EQ STATUS :EXTERNAL) (EQ STATUS :INTERNAL)))))) EQL-OK: NIL (NOT (LET ((SYMBOL-1 (GENTEMP)) (SYMBOL-2 (GENTEMP))) (NOT (STRING= (SYMBOL-NAME SYMBOL-1) (SYMBOL-NAME SYMBOL-2))))) EQL-OK: NIL (NOT (LET ((SYMBOL (GENTEMP "prefix"))) (STRING= (SUBSEQ (SYMBOL-NAME SYMBOL) 0 6) "prefix"))) EQL-OK: NIL (NOT (LET ((SYMBOL (GENTEMP "prefix"))) (NOT (BOUNDP SYMBOL)))) EQL-OK: NIL (NOT (LET ((SYMBOL (GENTEMP "prefix"))) (NOT (FBOUNDP SYMBOL)))) EQL-OK: NIL (NOT (LET ((SYMBOL (GENTEMP "prefix"))) (NULL (SYMBOL-PLIST SYMBOL)))) EQL-OK: NIL (NOT (LET ((SYMBOL (GENTEMP "prefix"))) (MULTIPLE-VALUE-BIND (SYMBOL-FOUND STATUS) (FIND-SYMBOL (SYMBOL-NAME SYMBOL)) (AND (EQ SYMBOL-FOUND SYMBOL) (IF (EQ *PACKAGE* (FIND-PACKAGE "KEYWORD")) (EQ STATUS :EXTERNAL) (EQ STATUS :INTERNAL)))))) EQL-OK: NIL (NOT (LET* ((PACKAGE (DEFPACKAGE "TEST-PACKAGE-FOR-GENTEMP")) (SYMBOL (GENTEMP "prefix" PACKAGE))) (STRING= (SUBSEQ (SYMBOL-NAME SYMBOL) 0 6) "prefix"))) EQL-OK: NIL (NOT (LET* ((PACKAGE (DEFPACKAGE "TEST-PACKAGE-FOR-GENTEMP")) (SYMBOL (GENTEMP "prefix" PACKAGE))) (NOT (BOUNDP SYMBOL)))) EQL-OK: NIL (NOT (LET* ((PACKAGE (DEFPACKAGE "TEST-PACKAGE-FOR-GENTEMP")) (SYMBOL (GENTEMP "prefix" PACKAGE))) (NOT (FBOUNDP SYMBOL)))) EQL-OK: NIL (NOT (LET* ((PACKAGE (DEFPACKAGE "TEST-PACKAGE-FOR-GENTEMP")) (SYMBOL (GENTEMP "prefix" PACKAGE))) (NULL (SYMBOL-PLIST SYMBOL)))) EQL-OK: NIL (NOT (LET* ((PACKAGE (DEFPACKAGE "TEST-PACKAGE-FOR-GENTEMP")) (SYMBOL (GENTEMP "prefix" PACKAGE))) (MULTIPLE-VALUE-BIND (SYMBOL-FOUND STATUS) (FIND-SYMBOL (SYMBOL-NAME SYMBOL) PACKAGE) (AND (EQ SYMBOL-FOUND SYMBOL) (EQ STATUS :INTERNAL))))) EQL-OK: NIL (NOT (FUNCTIONP (SYMBOL-FUNCTION 'CAR))) EQL-OK: NIL (NOT (EQ (SYMBOL-FUNCTION 'CAR) (FDEFINITION 'CAR))) EQL-OK: NIL (NOT (PROGN (SETF (SYMBOL-FUNCTION 'SYMBOL-FOR-TEST) #'CAR) (EQ (SYMBOL-FOR-TEST '(A)) 'A))) EQL-OK: NIL (NOT (LET ((F #'(LAMBDA (A) A))) (SETF (SYMBOL-FUNCTION 'SYMBOL-FOR-TEST) F) (EQ (SYMBOL-FUNCTION 'SYMBOL-FOR-TEST) F))) EQL-OK: NIL (NOT (STRINGP (SYMBOL-NAME 'SYMBOL))) EQL-OK: NIL (NOT (STRING= (SYMBOL-NAME (INTERN "TEST-SYMBOL")) "TEST-SYMBOL")) EQL-OK: NIL (NOT (EQ (SYMBOL-PACKAGE 'CAR) (FIND-PACKAGE "COMMON-LISP"))) EQL-OK: NIL (NOT (EQ (SYMBOL-PACKAGE ':KEY) (FIND-PACKAGE "KEYWORD"))) EQL-OK: NIL (NOT (NULL (SYMBOL-PACKAGE (MAKE-SYMBOL "temp")))) EQL-OK: NIL (NOT (NULL (SYMBOL-PACKAGE (GENSYM)))) EQL-OK: NIL (NOT (PACKAGEP (SYMBOL-PACKAGE 'A))) EQL-OK: NIL (NOT (PACKAGEP (SYMBOL-PACKAGE 'MY-SYMBOL))) EQL-OK: NIL (NOT (LISTP (SYMBOL-PLIST 'CAR))) EQL-OK: NIL (NOT (LISTP (SYMBOL-PLIST 'CDR))) EQL-OK: NIL (NOT (NULL (SYMBOL-PLIST (GENSYM)))) EQL-OK: NIL (NOT (NULL (SYMBOL-PLIST (GENTEMP)))) EQL-OK: NIL (NOT (LET ((SYMBOL (GENSYM))) (SETF (SYMBOL-PLIST SYMBOL) (LIST 'A 1 'B 2 'C 3)) (EQUAL (SYMBOL-PLIST SYMBOL) '(A 1 B 2 C 3)))) EQL-OK: NIL (NOT (LET ((SYMBOL (GENSYM))) (SETF (SYMBOL-PLIST SYMBOL) (LIST 'A 1 'B 2 'C 3)) (SETF (SYMBOL-PLIST SYMBOL) 'NIL) (NULL (SYMBOL-PLIST SYMBOL)))) EQL-OK: NIL (NOT (PROGN (SETF (SYMBOL-VALUE 'A) 1) (EQL (SYMBOL-VALUE 'A) 1))) EQL-OK: NIL (NOT (PROGN (SETF (SYMBOL-VALUE 'A) 1) (LET ((A 2)) (EQL (SYMBOL-VALUE 'A) 1)))) EQL-OK: NIL (NOT (PROGN (SETF (SYMBOL-VALUE 'A) 1) (LET ((A 2)) (SETQ A 3) (EQL (SYMBOL-VALUE 'A) 1)))) EQL-OK: NIL (NOT (PROGN (SETF (SYMBOL-VALUE 'A) 1) (LET ((A 2)) (DECLARE (SPECIAL A)) (EQL (SYMBOL-VALUE 'A) 2)))) EQL-OK: NIL (NOT (PROGN (SETF (SYMBOL-VALUE 'A) 1) (LET ((A 2)) (DECLARE (SPECIAL A)) (SETQ A 3) (EQL (SYMBOL-VALUE 'A) 3)))) EQL-OK: NIL (NOT (PROGN (SETF (SYMBOL-VALUE 'A) 1) (AND (EQL (LET ((A 2)) (SETF (SYMBOL-VALUE 'A) 3) A) 2) (EQL A 3)))) EQL-OK: NIL (NOT (PROGN (SETF (SYMBOL-VALUE 'A) 1) (LET ((A 4)) (DECLARE (SPECIAL A)) (LET ((B (SYMBOL-VALUE 'A))) (SETF (SYMBOL-VALUE 'A) 5) (AND (EQL A 5) (EQL B 4)))))) EQL-OK: NIL (NOT (EQ (SYMBOL-VALUE :ANY-KEYWORD) :ANY-KEYWORD)) EQL-OK: NIL (NOT (EQ (SYMBOL-VALUE 'NIL) NIL)) EQL-OK: NIL (NOT (EQ (SYMBOL-VALUE 'NIL) NIL)) EQL-OK: NIL (NOT (EQ (SYMBOL-VALUE T) T)) EQL-OK: NIL (NOT (LET ((SYMBOL (GENSYM))) (SETF (SYMBOL-PLIST SYMBOL) (LIST 'A 1 'B 2 'C 3)) (AND (EQL (GET SYMBOL 'A) 1) (EQL (GET SYMBOL 'B) 2) (EQL (GET SYMBOL 'C) 3) (EQL (GET SYMBOL 'D) NIL) (EQL (GET SYMBOL 'E 9) 9)))) EQL-OK: NIL (NOT (LET ((SYMBOL (GENSYM))) (SETF (SYMBOL-PLIST SYMBOL) (LIST 'A 1 'B 2 'C 3)) (AND (EQL (SETF (GET SYMBOL 'A) 9) 9) (EQL (GET SYMBOL 'A) 9) (EQL (SETF (GET SYMBOL 'B) 8) 8) (EQL (GET SYMBOL 'B) 8) (EQL (SETF (GET SYMBOL 'C) 7) 7) (EQL (GET SYMBOL 'C) 7) (EQL (SETF (GET SYMBOL 'D) 6) 6) (EQL (GET SYMBOL 'D) 6) (EQL (SETF (GET SYMBOL 'E) 5) 5) (EQL (GET SYMBOL 'E) 5)))) EQL-OK: NIL (NOT (LET ((SYMBOL (GENSYM)) TMP) (AND (NULL (GET SYMBOL 'A)) (SETF (GET SYMBOL 'A (SETQ TMP 1)) TMP) (EQL (GET SYMBOL 'A) 1)))) EQL-OK: NIL (NOT (LET ((SYMBOL (GENSYM))) (SETF (SYMBOL-PLIST SYMBOL) (LIST 'A 1 'B 2 'C 3 'A 9)) (AND (EQL (SETF (GET SYMBOL 'A) 5) 5) (EQL (GET SYMBOL 'A) 5)))) EQL-OK: NIL (NOT (LET ((SYMBOL (GENSYM))) (SETF (SYMBOL-PLIST SYMBOL) (LIST 'A 1 'B 2 'C 3)) (AND (REMPROP SYMBOL 'A) (EQ (GET SYMBOL 'A 'NOT-FOUND) 'NOT-FOUND)))) EQL-OK: NIL (NOT (LET ((SYMBOL (GENSYM))) (NOT (REMPROP SYMBOL 'A)))) EQL-OK: NIL (NOT (LET ((SYMBOL (GENSYM))) (SETF (SYMBOL-PLIST SYMBOL) (LIST 'A 1 'B 2 'C 3 'A 9)) (AND (REMPROP SYMBOL 'A) (EQL (GET SYMBOL 'A) 9)))) EQL-OK: NIL (NOT (LET ((SYMBOL (GENSYM))) (SETF (SYMBOL-PLIST SYMBOL) (LIST 'A 1 'B 2 'C 3 'A 9)) (AND (REMPROP SYMBOL 'A) (EQL (GET SYMBOL 'A) 9) (REMPROP SYMBOL 'A) (EQ (GET SYMBOL 'A 'NOT-FOUND) 'NOT-FOUND)))) EQL-OK: NIL (NOT (NOT (BOUNDP (GENSYM)))) EQL-OK: NIL (NOT (LET ((SYMBOL (GENSYM))) (SET SYMBOL 1) (BOUNDP SYMBOL))) EQL-OK: NIL (NOT (LET ((TEST-SYMBOL 1)) (NOT (BOUNDP 'TEST-SYMBOL)))) EQL-OK: NIL (NOT (LET ((TEST-SYMBOL 1)) (DECLARE (SPECIAL TEST-SYMBOL)) (BOUNDP 'TEST-SYMBOL))) EQL-OK: NIL (NOT (NOT (BOUNDP (MAKUNBOUND (GENSYM))))) EQL-OK: NIL (NOT (LET ((TEST-SYMBOL 0)) (DECLARE (SPECIAL TEST-SYMBOL)) (AND (LET ((TEST-SYMBOL 1)) (DECLARE (SPECIAL TEST-SYMBOL)) (NOT (BOUNDP (MAKUNBOUND 'TEST-SYMBOL)))) (BOUNDP 'TEST-SYMBOL)))) EQL-OK: NIL (NOT (LET ((TEST-SYMBOL 0)) (DECLARE (SPECIAL TEST-SYMBOL)) (AND (LET ((TEST-SYMBOL 1)) (MAKUNBOUND 'TEST-SYMBOL) (EQL TEST-SYMBOL 1)) (NOT (BOUNDP 'TEST-SYMBOL))))) EQL-OK: NIL (NOT (LET ((TEST-SYMBOL 0)) (DECLARE (SPECIAL TEST-SYMBOL)) (AND (EQL TEST-SYMBOL 0) (SETF (SYMBOL-VALUE 'TEST-SYMBOL) 1) (EQL TEST-SYMBOL 1) (EQL (SET 'TEST-SYMBOL 10) 10) (EQL TEST-SYMBOL 10)))) EQL-OK: NIL (NOT (LET ((TEST-SYMBOL 0)) (DECLARE (SPECIAL TEST-SYMBOL)) (AND (LET ((TEST-SYMBOL 1)) (SET 'TEST-SYMBOL 100) (EQL TEST-SYMBOL 1)) (EQL TEST-SYMBOL 100)))) EQL-OK: NIL RUN-TEST: finished "must-symbol" (0 errors out of 113 tests) RUN-TEST: started # (NOT (HANDLER-CASE (PROGN (ADJUST-ARRAY (MAKE-ARRAY '(3 3)) '(1 9) :FILL-POINTER 1)) (ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (PROGN (HANDLER-CASE (PROGN (ADJUSTABLE-ARRAY-P #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) EQL-OK: NIL (NOT (PROGN (HANDLER-CASE (PROGN (ADJUSTABLE-ARRAY-P '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ARRAY-DIMENSIONS 'NOT-AN-ARRAY)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ARRAY-DIMENSIONS #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ARRAY-DIMENSIONS '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ARRAY-ELEMENT-TYPE 'NOT-AN-ARRAY)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ARRAY-ELEMENT-TYPE #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ARRAY-ELEMENT-TYPE '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (PROGN (HANDLER-CASE (PROGN (ARRAY-HAS-FILL-POINTER-P 'NOT-AN-ARRAY)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) EQL-OK: NIL (NOT (PROGN (HANDLER-CASE (PROGN (ARRAY-HAS-FILL-POINTER-P #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) EQL-OK: NIL (NOT (PROGN (HANDLER-CASE (PROGN (ARRAY-HAS-FILL-POINTER-P '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) EQL-OK: NIL (NOT (PROGN (HANDLER-CASE (PROGN (ARRAY-DISPLACEMENT 'NOT-AN-ARRAY)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) EQL-OK: NIL (NOT (PROGN (HANDLER-CASE (PROGN (ARRAY-DISPLACEMENT #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) EQL-OK: NIL (NOT (PROGN (HANDLER-CASE (PROGN (ARRAY-DISPLACEMENT '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ARRAY-RANK 'NOT-AN-ARRAY)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ARRAY-RANK #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ARRAY-RANK '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ARRAY-TOTAL-SIZE 'NOT-AN-ARRAY)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ARRAY-TOTAL-SIZE #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ARRAY-TOTAL-SIZE '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (FILL-POINTER 'NOT-AN-ARRAY)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (FILL-POINTER #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (FILL-POINTER '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (LET ((VECTOR (MAKE-ARRAY 10 :FILL-POINTER NIL))) (OR (NOT (ARRAY-HAS-FILL-POINTER-P VECTOR)) (HANDLER-CASE (PROGN (FILL-POINTER VECTOR)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))))) EQL-OK: NIL (NOT (LET ((VECTOR (MAKE-ARRAY 10 :FILL-POINTER NIL))) (OR (NOT (ARRAY-HAS-FILL-POINTER-P VECTOR)) (HANDLER-CASE (PROGN (SETF (FILL-POINTER VECTOR) 0)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))))) EQL-OK: NIL (NOT (PROGN (HANDLER-CASE (PROGN (VECTOR-POP (MAKE-ARRAY 10 :FILL-POINTER NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (VECTOR-POP (MAKE-ARRAY 10 :FILL-POINTER 0))) (ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (LET ((VEC (MAKE-ARRAY 3 :FILL-POINTER T :INITIAL-CONTENTS '(A B C)))) (AND (EQ (VECTOR-POP VEC) 'C) (EQ (VECTOR-POP VEC) 'B) (EQ (VECTOR-POP VEC) 'A) (HANDLER-CASE (PROGN (VECTOR-POP VEC)) (ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))))) EQL-OK: NIL (NOT (LET ((VECTOR (MAKE-ARRAY 10 :FILL-POINTER NIL))) (OR (NOT (ARRAY-HAS-FILL-POINTER-P VECTOR)) (HANDLER-CASE (PROGN (VECTOR-PUSH 'A VECTOR)) (ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))))) EQL-OK: NIL (NOT (LET ((VECTOR (MAKE-ARRAY 10 :FILL-POINTER NIL))) (OR (NOT (ARRAY-HAS-FILL-POINTER-P VECTOR)) (HANDLER-CASE (PROGN (VECTOR-PUSH-EXTEND 'A VECTOR)) (ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))))) EQL-OK: NIL (NOT (LET ((VECTOR (MAKE-ARRAY 1 :FILL-POINTER T :ADJUSTABLE NIL))) (OR (ADJUSTABLE-ARRAY-P VECTOR) (HANDLER-CASE (PROGN (VECTOR-PUSH-EXTEND 'A VECTOR)) (ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))))) EQL-OK: NIL RUN-TEST: finished "should-array" (0 errors out of 32 tests) RUN-TEST: started # (NOT (HANDLER-CASE (PROGN (CHAR=)) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CHAR/=)) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CHAR<)) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CHAR>)) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CHAR<=)) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CHAR>=)) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CHAR-EQUAL)) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CHAR-NOT-EQUAL)) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CHAR-LESSP)) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CHAR-GREATERP)) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CHAR-NOT-GREATERP)) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CHAR-NOT-LESSP)) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CHARACTER "abc")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CHARACTER 'MORE-THAN-ONE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CHARACTER '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ALPHA-CHAR-P "abc")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ALPHA-CHAR-P 'NOT-A-CHAR)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ALPHA-CHAR-P '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ALPHANUMERICP "abc")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ALPHANUMERICP 'NOT-A-CHAR)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ALPHANUMERICP '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (PROGN (HANDLER-CASE (PROGN (GRAPHIC-CHAR-P "abc")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) EQL-OK: NIL (NOT (PROGN (HANDLER-CASE (PROGN (GRAPHIC-CHAR-P 'NOT-A-CHAR)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) EQL-OK: NIL (NOT (PROGN (HANDLER-CASE (PROGN (GRAPHIC-CHAR-P '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (STANDARD-CHAR-P "abc")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (STANDARD-CHAR-P 'NOT-A-CHAR)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (STANDARD-CHAR-P '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CHAR-UPCASE "abc")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CHAR-UPCASE 'NOT-A-CHAR)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CHAR-UPCASE '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CHAR-DOWNCASE "abc")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CHAR-DOWNCASE 'NOT-A-CHAR)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CHAR-DOWNCASE '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (UPPER-CASE-P "abc")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (UPPER-CASE-P 'NOT-A-CHAR)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (UPPER-CASE-P '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (LOWER-CASE-P "abc")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (LOWER-CASE-P 'NOT-A-CHAR)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (LOWER-CASE-P '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (BOTH-CASE-P "abc")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (BOTH-CASE-P 'NOT-A-CHAR)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (BOTH-CASE-P '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CHAR-CODE "abc")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CHAR-CODE 'NOT-A-CHAR)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CHAR-CODE '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CHAR-NAME "abc")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CHAR-NAME 'NOT-A-CHAR)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CHAR-NAME '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (NAME-CHAR '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL RUN-TEST: finished "should-character" (0 errors out of 49 tests) RUN-TEST: started # (NOT (HANDLER-CASE (PROGN (RPLACA NIL 1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (RPLACA "NOT A CONS" 1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (RPLACD NIL 1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (RPLACD "NOT A CONS" 1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CAR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CDR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CAAR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CADR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CDAR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CDDR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CAAAR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CAADR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CADAR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CADDR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CDAAR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CDADR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CDDAR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CDDDR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CAAAAR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CAAADR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CAADAR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CAADDR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CADAAR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CADADR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CADDAR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CADDDR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CDAAAR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CDAADR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CDADAR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CDADDR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CDDAAR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CDDADR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CDDDAR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CDDDDR "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (LIST-LENGTH '(1 . 2))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (LIST-LENGTH "NEITHER A PROPER LIST NOR A CIRCULAR LIST")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (LIST-LENGTH 'NEITHER-A-PROPER-LIST-NOR-A-CIRCULAR-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAKE-LIST NIL)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAKE-LIST -1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAKE-LIST 1.2)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAKE-LIST 'A)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAKE-LIST "NOT A NON-NEGATIVE INTEGER")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (FIRST "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SECOND "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (THIRD "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (FOURTH "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (FIFTH "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SIXTH "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SEVENTH "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (NINTH "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (TENTH "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (NTHCDR -1 '(1 2 3))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (NTHCDR 1.1 '(1 2 3))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (NTHCDR #\a '(1 2 3))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (NTHCDR 3 '(1 . 2))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (NTH -1 '(1 2))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (NTH "" '(1 2))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (NTH 3 '(1 . 2))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ENDP 1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ENDP #\z)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ENDP 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ENDP "not-a-list")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (BUTLAST 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (BUTLAST 'NOT-A-LIST 'NOT-A-INTEGER)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (BUTLAST '(1 2 3 4 5) -1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (BUTLAST '(1 2 3 4 5) 'A)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (NBUTLAST 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (NBUTLAST 'NOT-A-LIST 'NOT-A-INTEGER)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (NBUTLAST '(1 2 3 4 5) -1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (NBUTLAST '(1 2 3 4 5) 'A)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (LDIFF 'NOT-A-LIST 'OBJ)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (REST "NOT A CONS")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MEMBER 'A 'NOT-A-SET)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MEMBER 'A '(1 . 2))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MEMBER 'A '(1 2 3 4 . 5))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MEMBER-IF #'ATOM 'NOT-A-SET)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MEMBER-IF #'CONSP '(1 . 2))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MEMBER-IF #'CONSP '(1 2 3 4 . 5))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MEMBER-IF-NOT (COMPLEMENT #'ATOM) 'NOT-A-SET)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MEMBER-IF-NOT (COMPLEMENT #'CONSP) '(1 . 2))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MEMBER-IF-NOT (COMPLEMENT #'CONSP) '(1 2 3 4 . 5))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAPCAR #'CAR 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAPCAR #'LIST '(0 1) 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAPCAR #'LIST '(0 . 1))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAPC #'CAR 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAPC #'LIST '(0 1) 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAPC #'LIST '(0 . 1))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAPCAN #'CAR 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAPCAN #'LIST '(0 1) 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAPCAN #'LIST '(0 . 1))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAPLIST #'CAR 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAPLIST #'LIST '(0 1) 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAPLIST #'LIST '(0 . 1))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAPL #'CAR 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAPL #'LIST '(0 1) 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAPL #'LIST '(0 . 1))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAPCON #'CAR 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAPCON #'LIST '(0 1) 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAPCON #'LIST '(0 . 1))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ASSOC 'KEY '(A B C))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ASSOC-IF #'NUMBERP '(A B C))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ASSOC-IF-NOT #'NUMBERP '(A B C))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ASSOC 'KEY '0)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ASSOC-IF #'NUMBERP '0)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ASSOC-IF-NOT #'NUMBERP '0)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ASSOC 'KEY 'NOT-AN-ALIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ASSOC-IF 'IDENTITY 'NOT-AN-ALIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ASSOC-IF-NOT 'IDENTITY 'NOT-AN-ALIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (PAIRLIS 'NOT-A-LIST 'NOT-A-LIST '((A . B)))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (PAIRLIS '0 '(0 1 2) '((KEY . DATUM)))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (PAIRLIS '(0) '1 '((KEY . DATUM)))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (INTERSECTION '(0) '1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (INTERSECTION '(0) '1 :TEST #'EQUALP)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (INTERSECTION #\a '(1 2 3) :TEST #'=)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (INTERSECTION 0 1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (INTERSECTION #\a #\b)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (INTERSECTION 0 1 :TEST #'=)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (INTERSECTION #\a #\b :TEST-NOT (COMPLEMENT #'CHAR=))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (INTERSECTION '(1 2 3 . 4) '(2 3))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (INTERSECTION '(1 2 3 . 4) '(2 3) :TEST #'=)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (INTERSECTION '(1 2 3) '(2 . 3) :TEST #'=)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (INTERSECTION '((1) (2) (3)) '((2) 3) :TEST #'= :KEY #'CAR)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (NINTERSECTION (LIST 0) '1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (NINTERSECTION (LIST 0) '1 :TEST #'EQUALP)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (NINTERSECTION #\a '(1 2 3) :TEST #'=)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (NINTERSECTION 0 1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (NINTERSECTION #\a #\b)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (NINTERSECTION 0 1 :TEST #'=)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (INTERSECTION #\a #\b :TEST-NOT (COMPLEMENT #'CHAR=))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (NINTERSECTION (LIST* 1 2 3 4) '(2 3))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (NINTERSECTION (LIST* 1 2 3 4) '(2 3) :TEST #'=)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (NINTERSECTION (LIST 1 2 3) '(2 . 3) :TEST #'=)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (NINTERSECTION (LIST '(1) '(2) '(3)) '((2) 3) :TEST #'= :KEY #'CAR)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ADJOIN 'A 'A)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ADJOIN 'X '(A . B))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SET-DIFFERENCE 'NOT-A-LIST 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (NSET-DIFFERENCE 'NOT-A-LIST 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SET-EXCLUSIVE-OR 'NOT-A-LIST 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (NSET-EXCLUSIVE-OR 'NOT-A-LIST 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (UNION 'NOT-A-LIST 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL RUN-TEST: finished "should-cons" (0 errors out of 140 tests) RUN-TEST: started # (NOT (HANDLER-CASE (PROGN (FUNCALL (GENSYM) 0 1 2)) (UNDEFINED-FUNCTION NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (VALUES-LIST 'NOT-A-LIST)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (VALUES-LIST #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (VALUES-LIST '(A . B))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL RUN-TEST: finished "should-data-and-control" (0 errors out of 4 tests) RUN-TEST: started # (NOT (HANDLER-CASE (PROGN (SPECIAL-OPERATOR-P '(IF T NIL T))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SPECIAL-OPERATOR-P '(NOT A SYMBOL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL RUN-TEST: finished "should-eval" (0 errors out of 2 tests) RUN-TEST: started # (NOT (HANDLER-CASE (PROGN (HASH-TABLE-REHASH-SIZE 'NOT-A-HASH-TABLE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (HASH-TABLE-REHASH-THRESHOLD 'NOT-A-HASH-TABLE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (HASH-TABLE-TEST 'NOT-A-HASH-TABLE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL RUN-TEST: finished "should-hash-table" (0 errors out of 3 tests) RUN-TEST: started # (NOT (HANDLER-CASE (PROGN (PACKAGE-NAME '(NOT A PACKAGE DESIGNATOR))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (PACKAGE-NICKNAMES '(NOT A PACKAGE DESIGNATOR))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (PACKAGE-SHADOWING-SYMBOLS '(NOT A PACKAGE DESIGNATOR))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (PACKAGE-USE-LIST '(NOT A PACKAGE DESIGNATOR))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (PACKAGE-USED-BY-LIST '(NOT A PACKAGE DESIGNATOR))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (EVAL (MACROEXPAND '(WITH-PACKAGE-ITERATOR (GET 'CL))))) (PROGRAM-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL RUN-TEST: finished "should-package" (0 errors out of 6 tests) RUN-TEST: started # (NOT (HANDLER-CASE (PROGN (LENGTH 'NOT-A-SEQ)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (COPY-SEQ 'NOT-A-SEQ)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (COPY-SEQ #2A((#\a #\b #\c) (#\x #\y #\z)))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (COPY-SEQ #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (COPY-SEQ '(A . B))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ELT 'NOT-A-SEQ 0)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ELT #\a 0)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ELT '(0 1 . 2) 2)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SETF (ELT 'NOT-A-SEQ 0) 0)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SETF (ELT #\a 0) 0)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SETF (ELT '(0 1 . 2) 2) 0)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ELT "012" -1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ELT "012" 'INDEX)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ELT "012" "xyz")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ELT "012" 100)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ELT #(A B C D) 100)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ELT '(0 1 2) 100)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (ELT (MAKE-ARRAY 10 :FILL-POINTER 3 :INITIAL-CONTENTS '(0 1 2 3 4 5 6 7 8 9)) 3)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SETF (ELT (COPY-SEQ "012") -1) #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SETF (ELT (COPY-SEQ "012") 'INDEX) #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SETF (ELT (COPY-SEQ "012") "xyz") #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SETF (ELT (COPY-SEQ "012") 100) #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SETF (ELT (LIST 0 1 2) 100) 0)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SETF (ELT (LIST 0 1 2) -1) 0)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (FILL 'NOT-A-SEQ 'A)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (FILL #\a 'A)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (FILL (LIST 0 1 2) 'A :START 'NOT-A-INT)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (FILL (LIST 0 1 2) 'A :START -1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (FILL (LIST 0 1 2) 'A :END 'NOT-A-INT)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (FILL (LIST 0 1 2) 'A :END -1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAKE-SEQUENCE '(VECTOR * 2) 3)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAKE-SEQUENCE '(VECTOR * 4) 3)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAKE-SEQUENCE '(ARRAY * 3) 2)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAKE-SEQUENCE '(ARRAY * (1 2 3)) 2)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAKE-SEQUENCE 'SYMBOL 2)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SUBSEQ 'NOT-A-SEQ 0)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SUBSEQ #\a 0)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SETF (SUBSEQ (LIST 0 1 2 3) 1) 'NOT-A-SEQ)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SETF (SUBSEQ (VECTOR 0 1 2 3) 1) 'NOT-A-SEQ)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAP '(VECTOR T 10) #'+ '(0 1) '(1 0))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAP 'LIST #'+ '(0 1) '(1 0) 'NOT-A-SEQ)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (PROGN (HANDLER-CASE (PROGN (MAP '(VECTOR * 4) #'CONS "abc" "de")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) EQL-OK: NIL (NOT (PROGN (HANDLER-CASE (PROGN (MAP 'NULL #'CONS "abc" "de")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) EQL-OK: NIL (NOT (PROGN (HANDLER-CASE (PROGN (MAP '(CONS * NULL) #'CONS "abc" "de")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAP-INTO 'NOT-A-SEQ #'+ '(0 1 2))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (PROGN (HANDLER-CASE (PROGN (MAP-INTO (LIST 0 1 2 3) #'+ 'NOT-A-SEQ)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) EQL-OK: NIL (NOT (PROGN (HANDLER-CASE (PROGN (MAP-INTO (LIST 0 1 2 3) #'+ '(0 1) 'NOT-A-SEQ)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL)))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (REDUCE #'LIST 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (COUNT 0 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (COUNT 0 #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (COUNT-IF #'NUMBERP 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (COUNT-IF #'NUMBERP #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (COUNT-IF-NOT #'NUMBERP 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (COUNT-IF-NOT #'NUMBERP #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (REVERSE 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (NREVERSE 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (FIND 'ITEM 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (FIND-IF (CONSTANTLY NIL) 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (FIND-IF-NOT (CONSTANTLY T) 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (POSITION 'ITEM 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (POSITION-IF (CONSTANTLY NIL) 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (POSITION-IF-NOT (CONSTANTLY T) 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (CONCATENATE '(VECTOR * 2) "a" "bc")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MERGE '(VECTOR * 4) '(1 5) '(2 4 6) #'<)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (REMOVE 'A 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (REMOVE-IF (CONSTANTLY T) 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (REMOVE-IF-NOT (COMPLEMENT (CONSTANTLY T)) 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (DELETE 'A 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (DELETE-IF (CONSTANTLY T) 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (DELETE-IF-NOT (COMPLEMENT (CONSTANTLY T)) 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (REMOVE-DUPLICATES 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (DELETE-DUPLICATES 'NOT-A-SEQUENCE)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL RUN-TEST: finished "should-sequence" (0 errors out of 72 tests) RUN-TEST: started # RUN-TEST: finished "should-string" (0 errors out of 0 tests) RUN-TEST: started # (NOT (HANDLER-CASE (PROGN (MAKE-SYMBOL 'NOT-A-STRING)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAKE-SYMBOL #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAKE-SYMBOL '(NAME))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (COPY-SYMBOL "NOT A SYMBOL")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (COPY-SYMBOL #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (COPY-SYMBOL '(NAME))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (GENSYM 'EAT-THIS)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (GENSYM -1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (GENSYM #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (GENTEMP 'NOT-A-STRING)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (GENTEMP #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (GENTEMP "TEMP" '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SYMBOL-FUNCTION "not-a-function")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SYMBOL-FUNCTION #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SYMBOL-FUNCTION '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (FMAKUNBOUND 'SYMBOL-FOR-TEST) (SYMBOL-FUNCTION 'SYMBOL-FOR-TEST)) (UNDEFINED-FUNCTION NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SYMBOL-NAME "not-a-symbol")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SYMBOL-NAME #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SYMBOL-NAME '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SYMBOL-PACKAGE "not-a-symbol")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SYMBOL-PACKAGE #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SYMBOL-PACKAGE '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SYMBOL-PLIST "not-a-symbol")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SYMBOL-PLIST #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SYMBOL-PLIST '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SYMBOL-VALUE "not-a-symbol")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SYMBOL-VALUE #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SYMBOL-VALUE '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (PROGN (MAKUNBOUND 'A) (SYMBOL-VALUE 'A))) (UNBOUND-VARIABLE NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (GET "not-a-symbol" 'A)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (GET #\a 'A)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (GET '(NIL) 'A)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (REMPROP "not-a-symbol" 'A)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (REMPROP #\a 'A)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (REMPROP '(NIL) 'A)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (BOUNDP "not-a-symbol")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (BOUNDP #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (BOUNDP '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAKUNBOUND "not-a-symbol")) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAKUNBOUND #\a)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (MAKUNBOUND '(NIL))) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SET "not-a-symbol" 1)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SET #\a 0)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL (NOT (HANDLER-CASE (PROGN (SET '(NIL) 2)) (TYPE-ERROR NIL T) (ERROR NIL NIL) (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))) EQL-OK: NIL RUN-TEST: finished "should-symbol" (0 errors out of 44 tests) finished 25 files: 0 errors out of 9,877 tests 1 must-condition: 0 errors out of 147 tests 2 must-array: 0 errors out of 330 tests 3 must-character: 0 errors out of 313 tests 4 must-cons: 0 errors out of 728 tests 5 must-data-and-control: 0 errors out of 310 tests 6 must-do: 0 errors out of 75 tests 7 must-eval: 0 errors out of 8 tests 8 must-hash-table: 0 errors out of 82 tests 9 must-loop: 0 errors out of 851 tests 10 must-package: 0 errors out of 334 tests 11 must-printer: 0 errors out of 437 tests 12 must-reader: 0 errors out of 1,558 tests 13 must-sequence: 0 errors out of 3,825 tests 14 must-string: 0 errors out of 414 tests 15 must-symbol: 0 errors out of 113 tests 16 should-array: 0 errors out of 32 tests 17 should-character: 0 errors out of 49 tests 18 should-cons: 0 errors out of 140 tests 19 should-data-and-control: 0 errors out of 4 tests 20 should-eval: 0 errors out of 2 tests 21 should-hash-table: 0 errors out of 3 tests 22 should-package: 0 errors out of 6 tests 23 should-sequence: 0 errors out of 72 tests 24 should-string: 0 errors out of 0 tests 25 should-symbol: 0 errors out of 44 tests Bye. mkdir benchmarks cd benchmarks && ln -s ../../benchmarks/Makefile . cd benchmarks && ln -s ../../benchmarks/*.lisp . CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -norc"; export CLISP; cd benchmarks; make CLISP="$CLISP" clisp make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks' /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -norc -c run-all.lisp Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0x388a000 - 0x38aafff 0x80000000 - 0x800bffff 0x158f767000 - 0x158f781fff 0x158f782000 - 0x158f782fff 0x158f783000 - 0x158f783fff 0x158f784000 - 0x158f785fff 0x158f786000 - 0x158f787fff 0x158f788000 - 0x158f78efff 0x158f78f000 - 0x158f78ffff 0x158f790000 - 0x158f790fff 0x158f793000 - 0x158f794fff 0x158f795000 - 0x158f7d3fff 0x158f7d4000 - 0x158f7d5fff 0x158f7d6000 - 0x158f7dcfff 0x158f7dd000 - 0x158f7ddfff 0x158f7de000 - 0x158f867fff 0x158f868000 - 0x158f868fff 0x158f869000 - 0x158f869fff 0x158f86a000 - 0x158f89afff 0x158f89b000 - 0x158f89bfff 0x158f89c000 - 0x158f89cfff 0x158f89d000 - 0x158f89dfff 0x158f89e000 - 0x158f8a5fff 0x158f8a6000 - 0x158f8cbfff 0x158f8cc000 - 0x158f8cffff 0x158f8d0000 - 0x158f8d0fff 0x158f8d1000 - 0x158f8d2fff 0x158f8d3000 - 0x158f8d3fff 0x158f8d4000 - 0x158f8d4fff 0x158f8d5000 - 0x158f8d5fff 0x158f8d6000 - 0x158f8d9fff 0x158f8da000 - 0x158f8dafff 0x158f8db000 - 0x158f8dbfff 0x158f8dc000 - 0x158f8ddfff 0x158f8de000 - 0x158f8dffff 0x158f8e0000 - 0x158f8e0fff 0x158f8e1000 - 0x158f8e1fff 0x158f8e2000 - 0x158fa4dfff 0x158fa4e000 - 0x158fa50fff 0x158fa51000 - 0x158fa51fff 0x158fa52000 - 0x158fa52fff 0x158fa53000 - 0x158fa65fff 0x158fa66000 - 0x158fa66fff 0x158fa67000 - 0x158fa67fff 0x158fa68000 - 0x158fb86fff 0x158fb87000 - 0x158fb89fff 0x158fb8a000 - 0x158fb8cfff 0x158fb8d000 - 0x158fb91fff 0x158fb92000 - 0x158fbe6fff 0x158fbe7000 - 0x1590291fff 0x3fff976000 - 0x3fff996fff i i i i i i i ooooo o ooooooo ooooo ooooo I I I I I I I 8 8 8 8 8 o 8 8 I \ `+' / I 8 8 8 8 8 8 \ `-+-' / 8 8 8 ooooo 8oooo `-__|__-' 8 8 8 8 8 | 8 o 8 8 o 8 8 ------+------ ooooo 8oooooo ooo8ooo ooooo 8 Welcome to GNU CLISP 2.49.93+ (2018-02-18) 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -norc -i run-all.fas -x '(benchmarks :compiled "benchmarks.log")' Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0x36826000 - 0x36846fff 0x80000000 - 0x800bffff 0x155a578000 - 0x155a592fff 0x155a593000 - 0x155a593fff 0x155a594000 - 0x155a594fff 0x155a595000 - 0x155a596fff 0x155a597000 - 0x155a598fff 0x155a599000 - 0x155a59ffff 0x155a5a0000 - 0x155a5a0fff 0x155a5a1000 - 0x155a5a1fff 0x155a5a4000 - 0x155a5a5fff 0x155a5a6000 - 0x155a5e4fff 0x155a5e5000 - 0x155a5e6fff 0x155a5e7000 - 0x155a5edfff 0x155a5ee000 - 0x155a5eefff 0x155a5ef000 - 0x155a678fff 0x155a679000 - 0x155a679fff 0x155a67a000 - 0x155a67afff 0x155a67b000 - 0x155a6abfff 0x155a6ac000 - 0x155a6acfff 0x155a6ad000 - 0x155a6adfff 0x155a6ae000 - 0x155a6aefff 0x155a6af000 - 0x155a6b6fff 0x155a6b7000 - 0x155a6dcfff 0x155a6dd000 - 0x155a6e0fff 0x155a6e1000 - 0x155a6e1fff 0x155a6e2000 - 0x155a6e3fff 0x155a6e4000 - 0x155a6e4fff 0x155a6e5000 - 0x155a6e5fff 0x155a6e6000 - 0x155a6e6fff 0x155a6e7000 - 0x155a6eafff 0x155a6eb000 - 0x155a6ebfff 0x155a6ec000 - 0x155a6ecfff 0x155a6ed000 - 0x155a6eefff 0x155a6ef000 - 0x155a6f0fff 0x155a6f1000 - 0x155a6f1fff 0x155a6f2000 - 0x155a6f2fff 0x155a6f3000 - 0x155a85efff 0x155a85f000 - 0x155a861fff 0x155a862000 - 0x155a862fff 0x155a863000 - 0x155a863fff 0x155a864000 - 0x155a876fff 0x155a877000 - 0x155a877fff 0x155a878000 - 0x155a878fff 0x155a879000 - 0x155a997fff 0x155a998000 - 0x155a99afff 0x155a99b000 - 0x155a99dfff 0x155a99e000 - 0x155a9a2fff 0x155a9a3000 - 0x155a9f7fff 0x155a9f8000 - 0x155b0a2fff 0x3fffbc2000 - 0x3fffbe2fff i i i i i i i ooooo o ooooooo ooooo ooooo I I I I I I I 8 8 8 8 8 o 8 8 I \ `+' / I 8 8 8 8 8 8 \ `-+-' / 8 8 8 ooooo 8oooo `-__|__-' 8 8 8 8 8 | 8 o 8 8 o 8 8 ------+------ ooooo 8oooooo ooo8ooo ooooo 8 Welcome to GNU CLISP 2.49.93+ (2018-02-18) Copyright (c) Bruno Haible, Michael Stoll 1992-1993 Copyright (c) Bruno Haible, Marcus Daniels 1994-1997 Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998 Copyright (c) Bruno Haible, Sam Steingold 1999-2000 Copyright (c) Sam Steingold, Bruno Haible 2001-2018 Type :h and hit Enter for context help. ;; Loading file run-all.fas ... Running the benchmarks: For running the compiled benchmarks, use (benchmarks :compiled) For running the interpreted benchmarks, use (benchmarks :interpreted) ;; Loaded file run-all.fas > form: (compile all files # ("acker" "bfib" "boyer" "browse" "ctak" "dderiv" "deriv" "destru" "div2" "fac" "fft" "fprint" "fread" "frpoly" "puzzle" "stak" "stream" "tak" "takl" "takr" "tprint" "traverse" "triang")) ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/acker.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/acker.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/bfib.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/bfib.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/boyer.fas 0 errors, 1 warning ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/browse.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/ctak.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/ctak.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/dderiv.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/dderiv.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/deriv.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/deriv.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/destru.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/destru.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/div2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/div2.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/fac.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/fac.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/fft.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/fft.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/fprint.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/fprint.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/fread.lisp ... Define FPRINT.TST by running the FPRINT benchmark! ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/fread.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/frpoly.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/frpoly.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/puzzle.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/puzzle.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/stak.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/stak.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/stream.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/stream.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/tak.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/tak.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/takl.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/takl.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/takr.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/takr.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/tprint.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/tprint.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/traverse.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/traverse.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/triang.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks/triang.fas 0 errors, 0 warnings unchecked: ("acker" "bfib" "boyer" "browse" "ctak" "dderiv" "deriv" "destru" "div2" "fac" "fft" "fprint" "fread" "frpoly" "puzzle" "stak" "stream" "tak" "takl" "takr" "tprint" "traverse" "triang") elapsed: 10.183388 sec [scaled: 49.16003380201757] * file: "fac" > form: (fac 1000) unchecked: 402387260077093773543702433923003985719374864210714632543799910429938512398629020592044208486969404800479988610197196058631666872994808558901323829669944590997424504087073759918823627727188732519779505950995276120874975462497043601418278094646496291056393887437886487337119181045825783647849977012476632889835955735432513185323958463075557409114262417474349347553428646576611667797396668820291207379143853719588249808126867838374559731746136085379534524221586593201928090878297308431392844403281231558611036976801357304216168747609675871348312025478589320767169132448426236131412508780208000261683151027341827977704784635868170164365024153691398281264810213092761244896359928705114964975419909342221566832572080821333186116811553615836546984046708975602900950537616475847728421889679646244945160765353408198901385442487984959953319101723355556602139450399736280750137837615307127761926849034352625200015888535147331611702103968175921510907788019393178114194545257223865541461062892187960223838971476088506276862967146674697562911234082439208160153780889893964518263243671616762179168909779911903754031274622289988005195444414282012187361745992642956581746628302955570299024324153181617210465832036786906117260158783520751516284225540265170483304226143974286933061690897968482590125458327168226458066526769958652682272807075781391858178889652208164348344825993266043367660176999612831860788386150279465955131156552036093988180612138558600301435694527224206344631797460594682573103790084024432438465657245014402821885252470935190620929023136493273497565513958720559654228749774011413346962715422845862377387538230483865688976461927383814900140767310446640259899490222221765904339901886018566526485061799702356193897017860040811889729918311021171229845901641921068884387121855646124960798722908519296819372388642614839657382291123125024186649353143970137428531926649875337218940694281434118520158014123344828015051399694290153483077644569099073152433278288269864602789864321139083506217095002597389863554277196742822248757586765752344220207573630569498825087968928162753848863396909959826280956121450994871701244516461260379029309120889086942028510640182154399457156805941872748998094254742173582401063677404595741785160829230135358081840096996372524230560855903700624271243416909004153690105933983835777939410970027753472000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 elapsed: 5.319151 sec [scaled: 25.67805949827656] * file: "acker" > form: (acker 3 5) correct: 253 elapsed: 0.926538 sec [scaled: 4.472837468124926] > form: (acker 3 6) correct: 509 elapsed: 1.471034 sec [scaled: 7.101377376951278] > form: (acker 3 7) correct: 1021 elapsed: 2.495234 sec [scaled: 12.04567554373294] * file: "bfib" > form: (bfib-test) correct: 6765 elapsed: 9.173373 sec [scaled: 44.28421334417537] * file: "ctak" > form: (ctak 18 12 6) correct: 7 elapsed: 12.470864 sec [scaled: 60.202763145267966] * file: "stak" > form: (stak 18 12 6) correct: 7 elapsed: 11.40089 sec [scaled: 55.0374922150746] * file: "tak" > form: (tak 18 12 6) correct: 7 elapsed: 6.631472 sec [scaled: 32.013254103362556] * file: "takl" > form: (mas-bench) correct: (7 6 5 4 3 2 1) elapsed: 6.27923 sec [scaled: 30.312815248779955] * file: "takr" > form: (tak0 18 12 6) correct: 7 elapsed: 10.227341 sec [scaled: 49.37221573652699] * file: "boyer" > form: (boyer-test) correct: NIL elapsed: 7.34614 sec [scaled: 35.46329480074346] * file: "browse" > form: (browse) correct: NIL elapsed: 10.362041 sec [scaled: 50.02247639173642] * file: "dderiv" > form: (dderiv-run) correct: NIL elapsed: 16.186499 sec [scaled: 78.13989194719122] * file: "deriv" > form: (deriv-run) correct: NIL elapsed: 3.468253 sec [scaled: 16.74289879890159] * file: "destru" > form: (destructive 600 50) correct: NIL elapsed: 7.075548 sec [scaled: 34.15701914213598] * file: "div2" > form: (test-div2-iterative) correct: NIL elapsed: 4.154498 sec [scaled: 20.055728222317995] > form: (test-div2-recursive) correct: NIL elapsed: 6.096904 sec [scaled: 29.432641349583868] * file: "fft" > form: (fft-bench) correct: NIL elapsed: 8.083715 sec [scaled: 39.023918429296465] * file: "fprint" > form: (fprint) correct: T elapsed: 10.38583 sec [scaled: 50.13731715437025] * file: "fread" > form: (fread) correct: T elapsed: 7.56804 sec [scaled: 36.53451112881303] * file: "frpoly" > form: (pexptsq (Z 1 1 0 (Y 1 1 0 (X 1 1 0 1))) 2) correct: NIL elapsed: 0.004388 sec [scaled: 0.02118295289576054] > form: (pexptsq (Z 1 100000 0 (Y 1 100000 0 (X 1 100000 0 100000))) 2) correct: NIL elapsed: 0.004374 sec [scaled: 0.02111536826938391] > form: (pexptsq (Z 1 1.0 0 (Y 1 1.0 0 (X 1 1.0 0 1.0))) 2) correct: NIL elapsed: 0.004503 sec [scaled: 0.02173811232671142] > form: (pexptsq (Z 1 1 0 (Y 1 1 0 (X 1 1 0 1))) 5) correct: NIL elapsed: 0.042142 sec [scaled: 0.20343938034027814] > form: (pexptsq (Z 1 100000 0 (Y 1 100000 0 (X 1 100000 0 100000))) 5) correct: NIL elapsed: 0.050572 sec [scaled: 0.24413498036563397] > form: (pexptsq (Z 1 1.0 0 (Y 1 1.0 0 (X 1 1.0 0 1.0))) 5) correct: NIL elapsed: 0.050142 sec [scaled: 0.24205916684120893] > form: (pexptsq (Z 1 1 0 (Y 1 1 0 (X 1 1 0 1))) 10) correct: NIL elapsed: 0.709935 sec [scaled: 3.427192266192287] > form: (pexptsq (Z 1 100000 0 (Y 1 100000 0 (X 1 100000 0 100000))) 10) correct: NIL elapsed: 0.542715 sec [scaled: 2.619942178856581] > form: (pexptsq (Z 1 1.0 0 (Y 1 1.0 0 (X 1 1.0 0 1.0))) 10) correct: NIL elapsed: 0.538567 sec [scaled: 2.599917819555849] > form: (pexptsq (Z 1 1 0 (Y 1 1 0 (X 1 1 0 1))) 15) correct: NIL elapsed: 3.518491 sec [scaled: 16.98542140318081] > form: (pexptsq (Z 1 100000 0 (Y 1 100000 0 (X 1 100000 0 100000))) 15) correct: NIL elapsed: 1.557117 sec [scaled: 7.516940762121231] > form: (pexptsq (Z 1 1.0 0 (Y 1 1.0 0 (X 1 1.0 0 1.0))) 15) correct: NIL elapsed: 1.188508 sec [scaled: 5.73749065183103] * file: "puzzle" > form: (puzzle-start) Success in 2005 trials. Success in 2005 trials. Success in 2005 trials. Success in 2005 trials.correct: NIL elapsed: 5.499648 sec [scaled: 26.549403948783873] * file: "stream" > form: (nth-prime 50) correct: 229 elapsed: 0.637776 sec [scaled: 3.078846619427204] > form: (nth-prime 100) correct: 541 elapsed: 3.494781 sec [scaled: 16.870962010938676] > form: (nth-prime 150) correct: 863 elapsed: 4.467124 sec [scaled: 21.564921894147993] * file: "tprint" > form: (tprint-test 100) correct: T elapsed: 8.672661 sec [scaled: 41.86703952686861] * file: "traverse" > form: (init-traverse) correct: NIL elapsed: 0.949095 sec [scaled: 4.581730783637613] > form: (run-traverse) correct: NIL elapsed: 5.289603 sec [scaled: 25.53541731683537] * file: "triang" > form: (gogogo 22) correct: NIL elapsed: 35.389762 sec [scaled: 170.84313159484415] Real time: 234.18303 sec. Run time: 233.5933 sec. Space: 641015008 Bytes GC: 318, GC time: 24.496115 sec. * :COMPILED: 2020:08:16 02:35:42 * CLISP [2.49.93+ (2018-02-18) (built 3805243200) (memory 3806543670)] compilation 10.18339 sec 49.16003 scaled fac 5.31915 sec 25.67806 scaled acker 4.89281 sec 23.61989 scaled bfib 9.17337 sec 44.28421 scaled ctak 12.47086 sec 60.20276 scaled stak 11.40089 sec 55.03749 scaled tak 6.63147 sec 32.01325 scaled takl 6.27923 sec 30.31282 scaled takr 10.22734 sec 49.37222 scaled boyer 7.34614 sec 35.46329 scaled browse 10.36204 sec 50.02248 scaled dderiv 16.18650 sec 78.13989 scaled deriv 3.46825 sec 16.74290 scaled destru 7.07555 sec 34.15702 scaled div2 10.25140 sec 49.48837 scaled fft 8.08371 sec 39.02392 scaled fprint 10.38583 sec 50.13732 scaled fread 7.56804 sec 36.53451 scaled frpoly 8.21145 sec 39.64058 scaled puzzle 5.49965 sec 26.54940 scaled stream 8.59968 sec 41.51473 scaled tprint 8.67266 sec 41.86704 scaled traverse 6.23870 sec 30.11715 scaled triang 35.38976 sec 170.84313 scaled total 229.91789 sec 1109.92246 scaled NIL Bye. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/benchmarks' ===> make check SUCCEEDED ./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)" Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3873f000 - 0x3875ffff 0x80000000 - 0x800bffff 0x1560a2a000 - 0x1560a44fff 0x1560a45000 - 0x1560a45fff 0x1560a46000 - 0x1560a46fff 0x1560a47000 - 0x1560a48fff 0x1560a49000 - 0x1560a4afff 0x1560a4b000 - 0x1560a51fff 0x1560a52000 - 0x1560a52fff 0x1560a53000 - 0x1560a53fff 0x1560a56000 - 0x1560a57fff 0x1560a58000 - 0x1560a96fff 0x1560a97000 - 0x1560a98fff 0x1560a99000 - 0x1560a9ffff 0x1560aa0000 - 0x1560aa0fff 0x1560aa1000 - 0x1560ac6fff 0x1560ac7000 - 0x1560acafff 0x1560acb000 - 0x1560acbfff 0x1560acc000 - 0x1560acdfff 0x1560ace000 - 0x1560acefff 0x1560acf000 - 0x1560acffff 0x1560ad0000 - 0x1560ad0fff 0x1560ad1000 - 0x1560ad4fff 0x1560ad5000 - 0x1560ad5fff 0x1560ad6000 - 0x1560ad6fff 0x1560ad7000 - 0x1560ad8fff 0x1560ad9000 - 0x1560ad9fff 0x1560ada000 - 0x1560adafff 0x1560adb000 - 0x1560c46fff 0x1560c47000 - 0x1560c49fff 0x1560c4a000 - 0x1560c4afff 0x1560c4b000 - 0x1560c4dfff 0x1560c4e000 - 0x1560c60fff 0x1560c61000 - 0x1560c61fff 0x1560c62000 - 0x1560c62fff 0x1560c63000 - 0x1560d81fff 0x1560d82000 - 0x1560d84fff 0x1560d85000 - 0x1560d87fff 0x1560d88000 - 0x1560d8cfff 0x1560d8d000 - 0x1560de1fff 0x1560de2000 - 0x156148cfff 0x3fff810000 - 0x3fff830fff i i i i i i i ooooo o ooooooo ooooo ooooo I I I I I I I 8 8 8 8 8 o 8 8 I \ `+' / I 8 8 8 8 8 8 \ `-+-' / 8 8 8 ooooo 8oooo `-__|__-' 8 8 8 8 8 | 8 o 8 8 o 8 8 ------+------ ooooo 8oooooo ooo8ooo ooooo 8 Welcome to GNU CLISP 2.49.93+ (2018-02-18) 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 (14,356,536 bytes) Bytes permanently allocated: 173,424 Bytes currently in use: 3,132,080 Bytes available until next GC: 1,561,228 3132080 ; 1561228 ; 173424 ; 1 ; 107552 ; 48919 Bye. ./image -x "(setq zz 10) (saveinitmem \"image\")" Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3f123000 - 0x3f143fff 0x80000000 - 0x800bffff 0x1584930000 - 0x158494afff 0x158494b000 - 0x158494bfff 0x158494c000 - 0x158494cfff 0x158494d000 - 0x158494efff 0x158494f000 - 0x1584950fff 0x1584951000 - 0x1584957fff 0x1584958000 - 0x1584958fff 0x1584959000 - 0x1584959fff 0x158495c000 - 0x158495dfff 0x158495e000 - 0x158499cfff 0x158499d000 - 0x158499efff 0x158499f000 - 0x15849a5fff 0x15849a6000 - 0x15849a6fff 0x15849a7000 - 0x15849ccfff 0x15849cd000 - 0x15849d0fff 0x15849d1000 - 0x15849d1fff 0x15849d2000 - 0x15849d3fff 0x15849d4000 - 0x15849d4fff 0x15849d5000 - 0x15849d5fff 0x15849d6000 - 0x15849d6fff 0x15849d7000 - 0x15849dafff 0x15849db000 - 0x15849dbfff 0x15849dc000 - 0x15849dcfff 0x15849dd000 - 0x15849defff 0x15849df000 - 0x15849dffff 0x15849e0000 - 0x15849e0fff 0x15849e1000 - 0x1584b4cfff 0x1584b4d000 - 0x1584b4ffff 0x1584b50000 - 0x1584b50fff 0x1584b51000 - 0x1584b53fff 0x1584b54000 - 0x1584b66fff 0x1584b67000 - 0x1584b67fff 0x1584b68000 - 0x1584b68fff 0x1584b69000 - 0x1584c87fff 0x1584c88000 - 0x1584c8afff 0x1584c8b000 - 0x1584c8dfff 0x1584c8e000 - 0x1584c92fff 0x1584c93000 - 0x1584ce7fff 0x1584ce8000 - 0x1585392fff 0x3fffbd5000 - 0x3fffbf5fff i i i i i i i ooooo o ooooooo ooooo ooooo I I I I I I I 8 8 8 8 8 o 8 8 I \ `+' / I 8 8 8 8 8 8 \ `-+-' / 8 8 8 ooooo 8oooo `-__|__-' 8 8 8 8 8 | 8 o 8 8 o 8 8 ------+------ ooooo 8oooooo ooo8ooo ooooo 8 Welcome to GNU CLISP 2.49.93+ (2018-02-18) 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,308,264 bytes) Bytes permanently allocated: 173,424 Bytes currently in use: 3,131,976 Bytes available until next GC: 1,561,104 3131976 ; 1561104 ; 173424 ; 1 ; 27696 ; 53594 Bye. ./image -norc -M image.mem -x zz Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x28069000 - 0x28089fff 0x80000000 - 0x800bffff 0x1567187000 - 0x15671a1fff 0x15671a2000 - 0x15671a2fff 0x15671a3000 - 0x15671a3fff 0x15671a4000 - 0x15671a5fff 0x15671a6000 - 0x15671a7fff 0x15671a8000 - 0x15671aefff 0x15671af000 - 0x15671affff 0x15671b0000 - 0x15671b0fff 0x15671b3000 - 0x15671b4fff 0x15671b5000 - 0x15671f3fff 0x15671f4000 - 0x15671f5fff 0x15671f6000 - 0x15671fcfff 0x15671fd000 - 0x15671fdfff 0x15671fe000 - 0x1567223fff 0x1567224000 - 0x1567227fff 0x1567228000 - 0x1567228fff 0x1567229000 - 0x156722afff 0x156722b000 - 0x156722bfff 0x156722c000 - 0x156722cfff 0x156722d000 - 0x156722dfff 0x156722e000 - 0x1567231fff 0x1567232000 - 0x1567232fff 0x1567233000 - 0x1567233fff 0x1567234000 - 0x1567235fff 0x1567236000 - 0x1567236fff 0x1567237000 - 0x1567237fff 0x1567238000 - 0x15673a3fff 0x15673a4000 - 0x15673a6fff 0x15673a7000 - 0x15673a7fff 0x15673a8000 - 0x15673aafff 0x15673ab000 - 0x15673bdfff 0x15673be000 - 0x15673befff 0x15673bf000 - 0x15673bffff 0x15673c0000 - 0x15674defff 0x15674df000 - 0x15674e1fff 0x15674e2000 - 0x15674e4fff 0x15674e5000 - 0x15674e9fff 0x15674ea000 - 0x156753efff 0x156753f000 - 0x1567be9fff 0x3fff9a4000 - 0x3fff9c4fff i i i i i i i ooooo o ooooooo ooooo ooooo I I I I I I I 8 8 8 8 8 o 8 8 I \ `+' / I 8 8 8 8 8 8 \ `-+-' / 8 8 8 ooooo 8oooo `-__|__-' 8 8 8 8 8 | 8 o 8 8 o 8 8 ------+------ ooooo 8oooooo ooo8ooo ooooo 8 Welcome to GNU CLISP 2.49.93+ (2018-02-18) 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 Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0xd37000 - 0xd57fff 0x80000000 - 0x800bffff 0x1567561000 - 0x156757bfff 0x156757c000 - 0x156757cfff 0x156757d000 - 0x156757dfff 0x156757e000 - 0x156757ffff 0x1567580000 - 0x1567581fff 0x1567582000 - 0x1567588fff 0x1567589000 - 0x1567589fff 0x156758a000 - 0x156758afff 0x156758d000 - 0x156758efff 0x156758f000 - 0x15675cdfff 0x15675ce000 - 0x15675cffff 0x15675d0000 - 0x15675d6fff 0x15675d7000 - 0x15675d7fff 0x15675d8000 - 0x15675fdfff 0x15675fe000 - 0x1567601fff 0x1567602000 - 0x1567602fff 0x1567603000 - 0x1567604fff 0x1567605000 - 0x1567605fff 0x1567606000 - 0x1567606fff 0x1567607000 - 0x1567607fff 0x1567608000 - 0x156760bfff 0x156760c000 - 0x156760cfff 0x156760d000 - 0x156760dfff 0x156760e000 - 0x156760ffff 0x1567610000 - 0x1567610fff 0x1567611000 - 0x1567611fff 0x1567612000 - 0x156777dfff 0x156777e000 - 0x1567780fff 0x1567781000 - 0x1567781fff 0x1567782000 - 0x1567784fff 0x1567785000 - 0x1567797fff 0x1567798000 - 0x1567798fff 0x1567799000 - 0x1567799fff 0x156779a000 - 0x15678b8fff 0x15678b9000 - 0x15678bbfff 0x15678bc000 - 0x15678befff 0x15678bf000 - 0x15678c3fff 0x15678c4000 - 0x1567918fff 0x1567919000 - 0x1567fc3fff 0x3fffbc5000 - 0x3fffbe5fff i i i i i i i ooooo o ooooooo ooooo ooooo I I I I I I I 8 8 8 8 8 o 8 8 I \ `+' / I 8 8 8 8 8 8 \ `-+-' / 8 8 8 ooooo 8oooo `-__|__-' 8 8 8 8 8 | 8 o 8 8 o 8 8 ------+------ ooooo 8oooooo ooo8ooo ooooo 8 Welcome to GNU CLISP 2.49.93+ (2018-02-18) 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 (14,357,592 bytes) Bytes permanently allocated: 173,424 Bytes currently in use: 3,133,136 Bytes available until next GC: 1,561,756 3133136 ; 1561756 ; 173424 ; 1 ; 113304 ; 44336 Bye. test "`./image b | tr -d '\r'`" = '("b")' || exit 1 Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3eb5000 - 0x3ed5fff 0x80000000 - 0x800bffff 0x1574f98000 - 0x1574fb2fff 0x1574fb3000 - 0x1574fb3fff 0x1574fb4000 - 0x1574fb4fff 0x1574fb5000 - 0x1574fb6fff 0x1574fb7000 - 0x1574fb8fff 0x1574fb9000 - 0x1574fbffff 0x1574fc0000 - 0x1574fc0fff 0x1574fc1000 - 0x1574fc1fff 0x1574fc4000 - 0x1574fc5fff 0x1574fc6000 - 0x1575004fff 0x1575005000 - 0x1575006fff 0x1575007000 - 0x157500dfff 0x157500e000 - 0x157500efff 0x157500f000 - 0x1575034fff 0x1575035000 - 0x1575038fff 0x1575039000 - 0x1575039fff 0x157503a000 - 0x157503bfff 0x157503c000 - 0x157503cfff 0x157503d000 - 0x157503dfff 0x157503e000 - 0x157503efff 0x157503f000 - 0x1575042fff 0x1575043000 - 0x1575043fff 0x1575044000 - 0x1575044fff 0x1575045000 - 0x1575046fff 0x1575047000 - 0x1575047fff 0x1575048000 - 0x1575048fff 0x1575049000 - 0x15751b4fff 0x15751b5000 - 0x15751b7fff 0x15751b8000 - 0x15751b8fff 0x15751b9000 - 0x15751bbfff 0x15751bc000 - 0x15751cefff 0x15751cf000 - 0x15751cffff 0x15751d0000 - 0x15751d0fff 0x15751d1000 - 0x15752effff 0x15752f0000 - 0x15752f2fff 0x15752f3000 - 0x15752f5fff 0x15752f6000 - 0x15752fafff 0x15752fb000 - 0x157534ffff 0x1575350000 - 0x15759fafff 0x3fff813000 - 0x3fff833fff test "`./image b 2 | tr -d '\r'`" = '("b" "2")' || exit 1 Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x8496000 - 0x84b6fff 0x80000000 - 0x800bffff 0x155e282000 - 0x155e29cfff 0x155e29d000 - 0x155e29dfff 0x155e29e000 - 0x155e29efff 0x155e29f000 - 0x155e2a0fff 0x155e2a1000 - 0x155e2a2fff 0x155e2a3000 - 0x155e2a9fff 0x155e2aa000 - 0x155e2aafff 0x155e2ab000 - 0x155e2abfff 0x155e2ae000 - 0x155e2affff 0x155e2b0000 - 0x155e2eefff 0x155e2ef000 - 0x155e2f0fff 0x155e2f1000 - 0x155e2f7fff 0x155e2f8000 - 0x155e2f8fff 0x155e2f9000 - 0x155e31efff 0x155e31f000 - 0x155e322fff 0x155e323000 - 0x155e323fff 0x155e324000 - 0x155e325fff 0x155e326000 - 0x155e326fff 0x155e327000 - 0x155e327fff 0x155e328000 - 0x155e328fff 0x155e329000 - 0x155e32cfff 0x155e32d000 - 0x155e32dfff 0x155e32e000 - 0x155e32efff 0x155e32f000 - 0x155e330fff 0x155e331000 - 0x155e331fff 0x155e332000 - 0x155e332fff 0x155e333000 - 0x155e49efff 0x155e49f000 - 0x155e4a1fff 0x155e4a2000 - 0x155e4a2fff 0x155e4a3000 - 0x155e4a5fff 0x155e4a6000 - 0x155e4b8fff 0x155e4b9000 - 0x155e4b9fff 0x155e4ba000 - 0x155e4bafff 0x155e4bb000 - 0x155e5d9fff 0x155e5da000 - 0x155e5dcfff 0x155e5dd000 - 0x155e5dffff 0x155e5e0000 - 0x155e5e4fff 0x155e5e5000 - 0x155e639fff 0x155e63a000 - 0x155ece4fff 0x3fffb2a000 - 0x3fffb4afff ./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))" Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2f360000 - 0x2f380fff 0x80000000 - 0x800bffff 0x1578082000 - 0x157809cfff 0x157809d000 - 0x157809dfff 0x157809e000 - 0x157809efff 0x157809f000 - 0x15780a0fff 0x15780a1000 - 0x15780a2fff 0x15780a3000 - 0x15780a9fff 0x15780aa000 - 0x15780aafff 0x15780ab000 - 0x15780abfff 0x15780ae000 - 0x15780affff 0x15780b0000 - 0x15780eefff 0x15780ef000 - 0x15780f0fff 0x15780f1000 - 0x15780f7fff 0x15780f8000 - 0x15780f8fff 0x15780f9000 - 0x157811efff 0x157811f000 - 0x1578122fff 0x1578123000 - 0x1578123fff 0x1578124000 - 0x1578125fff 0x1578126000 - 0x1578126fff 0x1578127000 - 0x1578127fff 0x1578128000 - 0x1578128fff 0x1578129000 - 0x157812cfff 0x157812d000 - 0x157812dfff 0x157812e000 - 0x157812efff 0x157812f000 - 0x1578130fff 0x1578131000 - 0x1578131fff 0x1578132000 - 0x1578132fff 0x1578133000 - 0x157829efff 0x157829f000 - 0x15782a1fff 0x15782a2000 - 0x15782a2fff 0x15782a3000 - 0x15782a5fff 0x15782a6000 - 0x15782b8fff 0x15782b9000 - 0x15782b9fff 0x15782ba000 - 0x15782bafff 0x15782bb000 - 0x15783d9fff 0x15783da000 - 0x15783dcfff 0x15783dd000 - 0x15783dffff 0x15783e0000 - 0x15783e4fff 0x15783e5000 - 0x1578439fff 0x157843a000 - 0x1578ae4fff 0x3fff8b6000 - 0x3fff8d6fff i i i i i i i ooooo o ooooooo ooooo ooooo I I I I I I I 8 8 8 8 8 o 8 8 I \ `+' / I 8 8 8 8 8 8 \ `-+-' / 8 8 8 ooooo 8oooo `-__|__-' 8 8 8 8 8 | 8 o 8 8 o 8 8 ------+------ ooooo 8oooooo ooo8ooo ooooo 8 Welcome to GNU CLISP 2.49.93+ (2018-02-18) 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 (14,357,000 bytes) Bytes permanently allocated: 173,424 Bytes currently in use: 3,132,544 Bytes available until next GC: 1,561,460 3132544 ; 1561460 ; 173424 ; 1 ; 112976 ; 82257 Bye. ./image Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x2b169000 - 0x2b189fff 0x80000000 - 0x800bffff 0x1581014000 - 0x158102efff 0x158102f000 - 0x158102ffff 0x1581030000 - 0x1581030fff 0x1581031000 - 0x1581032fff 0x1581033000 - 0x1581034fff 0x1581035000 - 0x158103bfff 0x158103c000 - 0x158103cfff 0x158103d000 - 0x158103dfff 0x1581040000 - 0x1581041fff 0x1581042000 - 0x1581080fff 0x1581081000 - 0x1581082fff 0x1581083000 - 0x1581089fff 0x158108a000 - 0x158108afff 0x158108b000 - 0x15810b0fff 0x15810b1000 - 0x15810b4fff 0x15810b5000 - 0x15810b5fff 0x15810b6000 - 0x15810b7fff 0x15810b8000 - 0x15810b8fff 0x15810b9000 - 0x15810b9fff 0x15810ba000 - 0x15810bafff 0x15810bb000 - 0x15810befff 0x15810bf000 - 0x15810bffff 0x15810c0000 - 0x15810c0fff 0x15810c1000 - 0x15810c2fff 0x15810c3000 - 0x15810c3fff 0x15810c4000 - 0x15810c4fff 0x15810c5000 - 0x1581230fff 0x1581231000 - 0x1581233fff 0x1581234000 - 0x1581234fff 0x1581235000 - 0x1581237fff 0x1581238000 - 0x158124afff 0x158124b000 - 0x158124bfff 0x158124c000 - 0x158124cfff 0x158124d000 - 0x158136bfff 0x158136c000 - 0x158136efff 0x158136f000 - 0x1581371fff 0x1581372000 - 0x1581376fff 0x1581377000 - 0x15813cbfff 0x15813cc000 - 0x1581a76fff 0x3fffca7000 - 0x3fffcc7fff test -z "`./image`" || exit 1 Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x21c5000 - 0x21e5fff 0x80000000 - 0x800bffff 0x1570b50000 - 0x1570b6afff 0x1570b6b000 - 0x1570b6bfff 0x1570b6c000 - 0x1570b6cfff 0x1570b6d000 - 0x1570b6efff 0x1570b6f000 - 0x1570b70fff 0x1570b71000 - 0x1570b77fff 0x1570b78000 - 0x1570b78fff 0x1570b79000 - 0x1570b79fff 0x1570b7c000 - 0x1570b7dfff 0x1570b7e000 - 0x1570bbcfff 0x1570bbd000 - 0x1570bbefff 0x1570bbf000 - 0x1570bc5fff 0x1570bc6000 - 0x1570bc6fff 0x1570bc7000 - 0x1570becfff 0x1570bed000 - 0x1570bf0fff 0x1570bf1000 - 0x1570bf1fff 0x1570bf2000 - 0x1570bf3fff 0x1570bf4000 - 0x1570bf4fff 0x1570bf5000 - 0x1570bf5fff 0x1570bf6000 - 0x1570bf6fff 0x1570bf7000 - 0x1570bfafff 0x1570bfb000 - 0x1570bfbfff 0x1570bfc000 - 0x1570bfcfff 0x1570bfd000 - 0x1570bfefff 0x1570bff000 - 0x1570bfffff 0x1570c00000 - 0x1570c00fff 0x1570c01000 - 0x1570d6cfff 0x1570d6d000 - 0x1570d6ffff 0x1570d70000 - 0x1570d70fff 0x1570d71000 - 0x1570d73fff 0x1570d74000 - 0x1570d86fff 0x1570d87000 - 0x1570d87fff 0x1570d88000 - 0x1570d88fff 0x1570d89000 - 0x1570ea7fff 0x1570ea8000 - 0x1570eaafff 0x1570eab000 - 0x1570eadfff 0x1570eae000 - 0x1570eb2fff 0x1570eb3000 - 0x1570f07fff 0x1570f08000 - 0x15715b2fff 0x3fffe3e000 - 0x3fffe5efff ./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")))' Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1b4e5000 - 0x1b505fff 0x80000000 - 0x800bffff 0x15915ab000 - 0x15915c5fff 0x15915c6000 - 0x15915c6fff 0x15915c7000 - 0x15915c7fff 0x15915c8000 - 0x15915c9fff 0x15915ca000 - 0x15915cbfff 0x15915cc000 - 0x15915d2fff 0x15915d3000 - 0x15915d3fff 0x15915d4000 - 0x15915d4fff 0x15915d7000 - 0x15915d8fff 0x15915d9000 - 0x1591617fff 0x1591618000 - 0x1591619fff 0x159161a000 - 0x1591620fff 0x1591621000 - 0x1591621fff 0x1591622000 - 0x1591647fff 0x1591648000 - 0x159164bfff 0x159164c000 - 0x159164cfff 0x159164d000 - 0x159164efff 0x159164f000 - 0x159164ffff 0x1591650000 - 0x1591650fff 0x1591651000 - 0x1591651fff 0x1591652000 - 0x1591655fff 0x1591656000 - 0x1591656fff 0x1591657000 - 0x1591657fff 0x1591658000 - 0x1591659fff 0x159165a000 - 0x159165afff 0x159165b000 - 0x159165bfff 0x159165c000 - 0x15917c7fff 0x15917c8000 - 0x15917cafff 0x15917cb000 - 0x15917cbfff 0x15917cc000 - 0x15917cefff 0x15917cf000 - 0x15917e1fff 0x15917e2000 - 0x15917e2fff 0x15917e3000 - 0x15917e3fff 0x15917e4000 - 0x1591902fff 0x1591903000 - 0x1591905fff 0x1591906000 - 0x1591908fff 0x1591909000 - 0x159190dfff 0x159190e000 - 0x1591962fff 0x1591963000 - 0x159200dfff 0x3fffc4f000 - 0x3fffc6ffff i i i i i i i ooooo o ooooooo ooooo ooooo I I I I I I I 8 8 8 8 8 o 8 8 I \ `+' / I 8 8 8 8 8 8 \ `-+-' / 8 8 8 ooooo 8oooo `-__|__-' 8 8 8 8 8 | 8 o 8 8 o 8 8 ------+------ ooooo 8oooooo ooo8ooo ooooo 8 Welcome to GNU CLISP 2.49.93+ (2018-02-18) 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 (14,357,792 bytes) Bytes permanently allocated: 173,424 Bytes currently in use: 3,133,336 Bytes available until next GC: 1,561,856 3133336 ; 1561856 ; 173424 ; 1 ; 113272 ; 62528 Bye. output="`./image -on-error exit | tr -d '\r'`"; test "$output" = '*** - myerror' || exit 1 Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x39bfb000 - 0x39c1bfff 0x80000000 - 0x800bffff 0x15749aa000 - 0x15749c4fff 0x15749c5000 - 0x15749c5fff 0x15749c6000 - 0x15749c6fff 0x15749c7000 - 0x15749c8fff 0x15749c9000 - 0x15749cafff 0x15749cb000 - 0x15749d1fff 0x15749d2000 - 0x15749d2fff 0x15749d3000 - 0x15749d3fff 0x15749d6000 - 0x15749d7fff 0x15749d8000 - 0x1574a16fff 0x1574a17000 - 0x1574a18fff 0x1574a19000 - 0x1574a1ffff 0x1574a20000 - 0x1574a20fff 0x1574a21000 - 0x1574a46fff 0x1574a47000 - 0x1574a4afff 0x1574a4b000 - 0x1574a4bfff 0x1574a4c000 - 0x1574a4dfff 0x1574a4e000 - 0x1574a4efff 0x1574a4f000 - 0x1574a4ffff 0x1574a50000 - 0x1574a50fff 0x1574a51000 - 0x1574a54fff 0x1574a55000 - 0x1574a55fff 0x1574a56000 - 0x1574a56fff 0x1574a57000 - 0x1574a58fff 0x1574a59000 - 0x1574a59fff 0x1574a5a000 - 0x1574a5afff 0x1574a5b000 - 0x1574bc6fff 0x1574bc7000 - 0x1574bc9fff 0x1574bca000 - 0x1574bcafff 0x1574bcb000 - 0x1574bcdfff 0x1574bce000 - 0x1574be0fff 0x1574be1000 - 0x1574be1fff 0x1574be2000 - 0x1574be2fff 0x1574be3000 - 0x1574d01fff 0x1574d02000 - 0x1574d04fff 0x1574d05000 - 0x1574d07fff 0x1574d08000 - 0x1574d0cfff 0x1574d0d000 - 0x1574d61fff 0x1574d62000 - 0x157540cfff 0x3fffb47000 - 0x3fffb67fff if ./image -on-error exit; then exit 1; fi Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x3cb70000 - 0x3cb90fff 0x80000000 - 0x800bffff 0x1573d12000 - 0x1573d2cfff 0x1573d2d000 - 0x1573d2dfff 0x1573d2e000 - 0x1573d2efff 0x1573d2f000 - 0x1573d30fff 0x1573d31000 - 0x1573d32fff 0x1573d33000 - 0x1573d39fff 0x1573d3a000 - 0x1573d3afff 0x1573d3b000 - 0x1573d3bfff 0x1573d3e000 - 0x1573d3ffff 0x1573d40000 - 0x1573d7efff 0x1573d7f000 - 0x1573d80fff 0x1573d81000 - 0x1573d87fff 0x1573d88000 - 0x1573d88fff 0x1573d89000 - 0x1573daefff 0x1573daf000 - 0x1573db2fff 0x1573db3000 - 0x1573db3fff 0x1573db4000 - 0x1573db5fff 0x1573db6000 - 0x1573db6fff 0x1573db7000 - 0x1573db7fff 0x1573db8000 - 0x1573db8fff 0x1573db9000 - 0x1573dbcfff 0x1573dbd000 - 0x1573dbdfff 0x1573dbe000 - 0x1573dbefff 0x1573dbf000 - 0x1573dc0fff 0x1573dc1000 - 0x1573dc1fff 0x1573dc2000 - 0x1573dc2fff 0x1573dc3000 - 0x1573f2efff 0x1573f2f000 - 0x1573f31fff 0x1573f32000 - 0x1573f32fff 0x1573f33000 - 0x1573f35fff 0x1573f36000 - 0x1573f48fff 0x1573f49000 - 0x1573f49fff 0x1573f4a000 - 0x1573f4afff 0x1573f4b000 - 0x1574069fff 0x157406a000 - 0x157406cfff 0x157406d000 - 0x157406ffff 0x1574070000 - 0x1574074fff 0x1574075000 - 0x15740c9fff 0x15740ca000 - 0x1574774fff 0x3ffffce000 - 0x3ffffeefff *** - 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"))))' Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x1e4c4000 - 0x1e4e4fff 0x80000000 - 0x800bffff 0x158f981000 - 0x158f99bfff 0x158f99c000 - 0x158f99cfff 0x158f99d000 - 0x158f99dfff 0x158f99e000 - 0x158f99ffff 0x158f9a0000 - 0x158f9a1fff 0x158f9a2000 - 0x158f9a8fff 0x158f9a9000 - 0x158f9a9fff 0x158f9aa000 - 0x158f9aafff 0x158f9ad000 - 0x158f9aefff 0x158f9af000 - 0x158f9edfff 0x158f9ee000 - 0x158f9effff 0x158f9f0000 - 0x158f9f6fff 0x158f9f7000 - 0x158f9f7fff 0x158f9f8000 - 0x158fa1dfff 0x158fa1e000 - 0x158fa21fff 0x158fa22000 - 0x158fa22fff 0x158fa23000 - 0x158fa24fff 0x158fa25000 - 0x158fa25fff 0x158fa26000 - 0x158fa26fff 0x158fa27000 - 0x158fa27fff 0x158fa28000 - 0x158fa2bfff 0x158fa2c000 - 0x158fa2cfff 0x158fa2d000 - 0x158fa2dfff 0x158fa2e000 - 0x158fa2ffff 0x158fa30000 - 0x158fa30fff 0x158fa31000 - 0x158fa31fff 0x158fa32000 - 0x158fb9dfff 0x158fb9e000 - 0x158fba0fff 0x158fba1000 - 0x158fba1fff 0x158fba2000 - 0x158fba4fff 0x158fba5000 - 0x158fbb7fff 0x158fbb8000 - 0x158fbb8fff 0x158fbb9000 - 0x158fbb9fff 0x158fbba000 - 0x158fcd8fff 0x158fcd9000 - 0x158fcdbfff 0x158fcdc000 - 0x158fcdefff 0x158fcdf000 - 0x158fce3fff 0x158fce4000 - 0x158fd38fff 0x158fd39000 - 0x15903e3fff 0x3fffeeb000 - 0x3ffff0bfff i i i i i i i ooooo o ooooooo ooooo ooooo I I I I I I I 8 8 8 8 8 o 8 8 I \ `+' / I 8 8 8 8 8 8 \ `-+-' / 8 8 8 ooooo 8oooo `-__|__-' 8 8 8 8 8 | 8 o 8 8 o 8 8 ------+------ ooooo 8oooooo ooo8ooo ooooo 8 Welcome to GNU CLISP 2.49.93+ (2018-02-18) 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 (14,359,720 bytes) Bytes permanently allocated: 173,424 Bytes currently in use: 3,135,264 Bytes available until next GC: 1,562,820 3135264 ; 1562820 ; 173424 ; 1 ; 114816 ; 67104 Bye. output="`./image | tr -d '\r'`"; test "$output" = '*** - myerror' || exit 1 Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x36bd9000 - 0x36bf9fff 0x80000000 - 0x800bffff 0x158b0ec000 - 0x158b106fff 0x158b107000 - 0x158b107fff 0x158b108000 - 0x158b108fff 0x158b109000 - 0x158b10afff 0x158b10b000 - 0x158b10cfff 0x158b10d000 - 0x158b113fff 0x158b114000 - 0x158b114fff 0x158b115000 - 0x158b115fff 0x158b118000 - 0x158b119fff 0x158b11a000 - 0x158b158fff 0x158b159000 - 0x158b15afff 0x158b15b000 - 0x158b161fff 0x158b162000 - 0x158b162fff 0x158b163000 - 0x158b188fff 0x158b189000 - 0x158b18cfff 0x158b18d000 - 0x158b18dfff 0x158b18e000 - 0x158b18ffff 0x158b190000 - 0x158b190fff 0x158b191000 - 0x158b191fff 0x158b192000 - 0x158b192fff 0x158b193000 - 0x158b196fff 0x158b197000 - 0x158b197fff 0x158b198000 - 0x158b198fff 0x158b199000 - 0x158b19afff 0x158b19b000 - 0x158b19bfff 0x158b19c000 - 0x158b19cfff 0x158b19d000 - 0x158b308fff 0x158b309000 - 0x158b30bfff 0x158b30c000 - 0x158b30cfff 0x158b30d000 - 0x158b30ffff 0x158b310000 - 0x158b322fff 0x158b323000 - 0x158b323fff 0x158b324000 - 0x158b324fff 0x158b325000 - 0x158b443fff 0x158b444000 - 0x158b446fff 0x158b447000 - 0x158b449fff 0x158b44a000 - 0x158b44efff 0x158b44f000 - 0x158b4a3fff 0x158b4a4000 - 0x158bb4efff 0x3ffff55000 - 0x3ffff75fff if ./image; then exit 1; fi Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x22cdf000 - 0x22cfffff 0x80000000 - 0x800bffff 0x1567b12000 - 0x1567b2cfff 0x1567b2d000 - 0x1567b2dfff 0x1567b2e000 - 0x1567b2efff 0x1567b2f000 - 0x1567b30fff 0x1567b31000 - 0x1567b32fff 0x1567b33000 - 0x1567b39fff 0x1567b3a000 - 0x1567b3afff 0x1567b3b000 - 0x1567b3bfff 0x1567b3e000 - 0x1567b3ffff 0x1567b40000 - 0x1567b7efff 0x1567b7f000 - 0x1567b80fff 0x1567b81000 - 0x1567b87fff 0x1567b88000 - 0x1567b88fff 0x1567b89000 - 0x1567baefff 0x1567baf000 - 0x1567bb2fff 0x1567bb3000 - 0x1567bb3fff 0x1567bb4000 - 0x1567bb5fff 0x1567bb6000 - 0x1567bb6fff 0x1567bb7000 - 0x1567bb7fff 0x1567bb8000 - 0x1567bb8fff 0x1567bb9000 - 0x1567bbcfff 0x1567bbd000 - 0x1567bbdfff 0x1567bbe000 - 0x1567bbefff 0x1567bbf000 - 0x1567bc0fff 0x1567bc1000 - 0x1567bc1fff 0x1567bc2000 - 0x1567bc2fff 0x1567bc3000 - 0x1567d2efff 0x1567d2f000 - 0x1567d31fff 0x1567d32000 - 0x1567d32fff 0x1567d33000 - 0x1567d35fff 0x1567d36000 - 0x1567d48fff 0x1567d49000 - 0x1567d49fff 0x1567d4a000 - 0x1567d4afff 0x1567d4b000 - 0x1567e69fff 0x1567e6a000 - 0x1567e6cfff 0x1567e6d000 - 0x1567e6ffff 0x1567e70000 - 0x1567e74fff 0x1567e75000 - 0x1567ec9fff 0x1567eca000 - 0x1568574fff 0x3fffc64000 - 0x3fffc84fff *** - myerror ls -l lisp.run lispinit.mem image image.mem -rwxr-xr-x. 1 mockbuild mock 14359720 Aug 16 02:39 image -rw-r--r--. 1 mockbuild mock 3308264 Aug 16 02:39 image.mem -rwxr-xr-x. 1 mockbuild mock 11048120 Aug 16 00:35 lisp.run -rw-r--r--. 1 mockbuild mock 3317984 Aug 16 00:51 lispinit.mem rm -f image image.mem ===> make extracheck SUCCEEDED 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)))" Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0x22ec3000 - 0x22ee3fff 0x80000000 - 0x800bffff 0x1572c57000 - 0x1572c71fff 0x1572c72000 - 0x1572c72fff 0x1572c73000 - 0x1572c73fff 0x1572c74000 - 0x1572c75fff 0x1572c76000 - 0x1572c77fff 0x1572c78000 - 0x1572c7efff 0x1572c7f000 - 0x1572c7ffff 0x1572c80000 - 0x1572c80fff 0x1572c83000 - 0x1572c84fff 0x1572c85000 - 0x1572cc3fff 0x1572cc4000 - 0x1572cc5fff 0x1572cc6000 - 0x1572cccfff 0x1572ccd000 - 0x1572ccdfff 0x1572cce000 - 0x1572d57fff 0x1572d58000 - 0x1572d58fff 0x1572d59000 - 0x1572d59fff 0x1572d5a000 - 0x1572d8afff 0x1572d8b000 - 0x1572d8bfff 0x1572d8c000 - 0x1572d8cfff 0x1572d8d000 - 0x1572d8dfff 0x1572d8e000 - 0x1572d95fff 0x1572d96000 - 0x1572dbbfff 0x1572dbc000 - 0x1572dbffff 0x1572dc0000 - 0x1572dc0fff 0x1572dc1000 - 0x1572dc2fff 0x1572dc3000 - 0x1572dc3fff 0x1572dc4000 - 0x1572dc4fff 0x1572dc5000 - 0x1572dc5fff 0x1572dc6000 - 0x1572dc9fff 0x1572dca000 - 0x1572dcafff 0x1572dcb000 - 0x1572dcbfff 0x1572dcc000 - 0x1572dcdfff 0x1572dce000 - 0x1572dcffff 0x1572dd0000 - 0x1572dd0fff 0x1572dd1000 - 0x1572dd1fff 0x1572dd2000 - 0x1572f3dfff 0x1572f3e000 - 0x1572f40fff 0x1572f41000 - 0x1572f41fff 0x1572f42000 - 0x1572f42fff 0x1572f43000 - 0x1572f55fff 0x1572f56000 - 0x1572f56fff 0x1572f57000 - 0x1572f57fff 0x1572f58000 - 0x1573076fff 0x1573077000 - 0x1573079fff 0x157307a000 - 0x157307cfff 0x157307d000 - 0x1573081fff 0x1573082000 - 0x15730d6fff 0x15730d7000 - 0x1573781fff 0x3ffff78000 - 0x3ffff98fff i i i i i i i ooooo o ooooooo ooooo ooooo I I I I I I I 8 8 8 8 8 o 8 8 I \ `+' / I 8 8 8 8 8 8 \ `-+-' / 8 8 8 ooooo 8oooo `-__|__-' 8 8 8 8 8 | 8 o 8 8 o 8 8 ------+------ ooooo 8oooooo ooo8ooo ooooo 8 Welcome to GNU CLISP 2.49.93+ (2018-02-18) 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/tests.fas ... 0 errors, 0 warnings ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/tests.fas RUN-TEST: started # (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) # 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 "Yes" :NOSTR "No" :CRNCYSTR "-$") EQL-OK: T RUN-TEST: finished #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/i18n/test.tst" (0 errors out of 11 tests) RUN-TEST: started # (NULL (REQUIRE "syscalls")) EQL-OK: T (LISTP (SHOW (MULTIPLE-VALUE-LIST (MODULE-INFO "syscalls" T)) :PRETTY T)) ("syscalls" 105 (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 CRYPT 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 (# # # (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"))) # EQL-OK: T (LISTP (SHOW (RESOLVE-HOST-IPADDR) :PRETTY T)) (# #) EQL-OK: T (SERVICE-P (SHOW (SERVICE "smtp"))) # EQL-OK: T (SERVICE-P (SHOW (SERVICE 25))) # EQL-OK: T (> (LENGTH (SHOW (SERVICE) :PRETTY T)) (LENGTH (SERVICE NIL "tcp"))) (# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #) EQL-OK: T (EQUALP (SERVICE "www" "tcp") (SERVICE "http" "tcp")) EQL-OK: T (CRYPT "foo" "bar") EQUAL-OK: "ba4TuD1iozTxw" (LET* ((FMT "%Y-%m-%d %H:%M:%S") (STRING (SHOW (STRING-TIME FMT)))) (STRING= STRING (STRING-TIME FMT (SHOW (STRING-TIME FMT STRING))))) "2020-08-16 02:40:26" 3806548826 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 02:40:26" EQL-OK: NIL (CHECK-TIME-DATE "%d.%m.%y" "27.11.86") "1986-11-27 Thu 02:40:26" EQL-OK: NIL (CHECK-TIME-DATE "%y-%m-%d" "86-11-27") "1986-11-27 Thu 02:40:26" EQL-OK: NIL (CHECK-TIME-DATE "%A %H:%M:%S" "Friday 12:00:00") "2020-08-21 Fri 12:00:00" EQL-OK: NIL (CHECK-TIME-DATE "%A" "Friday") "2020-08-21 Fri 02:40:26" EQL-OK: NIL (CHECK-TIME-DATE "%a" "Mon") "2020-08-17 Mon 02:40:26" EQL-OK: NIL (CHECK-TIME-DATE "%a" "Sun") "2020-08-16 Sun 02:40:26" EQL-OK: NIL (CHECK-TIME-DATE "%a" "Fri") "2020-08-21 Fri 02:40:26" EQL-OK: NIL (CHECK-TIME-DATE "%B" "September") "2020-09-04 Fri 02:40:26" EQL-OK: NIL (CHECK-TIME-DATE "%B" "January") "2021-01-03 Sun 02:40:26" EQL-OK: NIL (CHECK-TIME-DATE "%B" "December") "2020-12-04 Fri 02:40:26" EQL-OK: NIL (CHECK-TIME-DATE "%b %a" "Sep Mon") "2020-09-07 Mon 02:40:26" EQL-OK: NIL (CHECK-TIME-DATE "%b %a" "Jan Fri") "2021-01-01 Fri 02:40:26" EQL-OK: NIL (CHECK-TIME-DATE "%b %a" "Dec Mon") "2020-12-07 Mon 02:40:26" EQL-OK: NIL (CHECK-TIME-DATE "%b %a %Y" "Jan Wed 1989") "1989-01-04 Wed 02:40:26" EQL-OK: NIL (CHECK-TIME-DATE "%a %H" "Fri 9") "2020-08-21 Fri 09:00:00" EQL-OK: NIL (CHECK-TIME-DATE "%b %H:%S" "Feb 10:30") "2021-02-03 Wed 10:00:30" EQL-OK: NIL (CHECK-TIME-DATE "%H:%M" "10:30") "2020-08-16 Sun 10:30:00" EQL-OK: NIL (CHECK-TIME-DATE "%H:%M" "13:30") "2020-08-16 Sun 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) # # 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: # already points to file "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-07aYwz" , 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))) (7 719.9999999999999d0) 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))) 62664 62663 EQL-OK: NIL (LET ((ID (SHOW (UID)))) (= ID (SETF (UID) ID))) 987 EQL-OK: T (LET ((ID (SHOW (GID)))) (= ID (SETF (GID) ID))) 135 EQL-OK: T (LET ((ID (SHOW (EUID)))) (= ID (SETF (EUID) ID))) 987 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))) 26630 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)) (135 135) 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 -1 :ATEXIT-MAX 2147483647 :BC-BASE-MAX 99 :BC-DIM-MAX 2048 :BC-SCALE-MAX 99 :BC-STRING-MAX 1000 :CHILD-MAX 63046 :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 2035227 :AVPHYS-PAGES 1249135 :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 63046 :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 64 :LINK-MAX 65000 :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 64 :LINK-MAX 65000 :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 # :CHILDREN # :THREAD # :LWP #) EQL-OK: T (LISTP (SHOW (IF (FBOUNDP 'RLIMIT) (RLIMIT) '(NO RLIMIT)) :PRETTY T)) (:CPU # :FSIZE # :DATA # :STACK # :CORE # :RSS # :NOFILE # :AS # :NPROC # :MEMLOCK # :LOCKS #) EQL-OK: T (UNAME-P (SHOW (UNAME) :PRETTY T)) # EQL-OK: T (LISTP (SHOW (USER-INFO) :PRETTY T)) (# # # # # # # # # # # # # # # # # # # #) 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 "" "" ""))))) # 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)) # EQL-OK: T (LISTP (SHOW (GROUP-INFO) :PRETTY T)) (# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #) 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)) # :DEV 64772 :INO 956434 :MODE (:FREG :RUSR :WUSR) :NLINK 1 :UID 987 :GID 135 :RDEV NIL :SIZE 550 :BLKSIZE NIL :BLOCKS NIL :ATIME 3806548826 :MTIME 3806548826 :CTIME 3806548826> EQL-OK: T (FILE-STAT-P (SHOW (FILE-STAT (PATHNAME *TMP1*)) :PRETTY T)) # 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"))))) # 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)))) # :BSIZE 4096 :FRSIZE 4096 :BLOCKS 10126168 :BFREE 8247877 :BAVAIL 8140750 :FILES 2570400 :FFREE 2299900 :FAVAIL 2299900 :FSID 10214634895767963578 :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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-07aYwz" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-iTMOTy" 550)) EQL-OK: T (LISTP (SHOW (COPY-FILE *TMP2* *TMP1* :IF-EXISTS :APPEND))) ((#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-iTMOTy" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-07aYwz" 1100)) EQL-OK: T (LISTP (SHOW (COPY-FILE *TMP1* *TMP2* :IF-EXISTS :APPEND))) ((#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-07aYwz" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-iTMOTy" 1650)) EQL-OK: T (LISTP (SHOW (COPY-FILE *TMP2* *TMP1* :IF-EXISTS :APPEND))) ((#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-iTMOTy" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-07aYwz" 2750)) EQL-OK: T (LISTP (SHOW (COPY-FILE *TMP1* *TMP2* :IF-EXISTS :APPEND))) ((#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-07aYwz" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-iTMOTy" 4400)) EQL-OK: T (LISTP (SHOW (COPY-FILE *TMP2* *TMP1* :IF-EXISTS :APPEND))) ((#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-iTMOTy" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-07aYwz" 7150)) EQL-OK: T (LISTP (SHOW (COPY-FILE *TMP1* *TMP2* :IF-EXISTS :APPEND))) ((#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-07aYwz" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-iTMOTy" 11550)) EQL-OK: T (LISTP (SHOW (COPY-FILE *TMP2* *TMP1* :IF-EXISTS :APPEND))) ((#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-iTMOTy" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-07aYwz" 18700)) EQL-OK: T (LISTP (SHOW (COPY-FILE *TMP1* *TMP2* :IF-EXISTS :APPEND))) ((#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-07aYwz" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-iTMOTy" 30250)) EQL-OK: T (LISTP (SHOW (COPY-FILE *TMP2* *TMP1* :IF-EXISTS :APPEND))) ((#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-iTMOTy" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-07aYwz" 48950)) EQL-OK: T (INTEGERP (SHOW (WITH-OPEN-FILE (S *TMP1* :DIRECTION :INPUT) (FILE-LENGTH S)))) 79200 EQL-OK: T (INTEGERP (SHOW (WITH-OPEN-FILE (S *TMP2* :DIRECTION :INPUT) (FILE-LENGTH S)))) 48950 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 T 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)) (8336289792 5118296064) 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/base/lisp.run" "-on-error" "abort" "-q" "-norc" "-B" "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/" "-M" "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/base/lispinit.mem") Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0xd281000 - 0xd2a1fff 0x80000000 - 0x800bffff 0x1575044000 - 0x157505efff 0x157505f000 - 0x157505ffff 0x1575060000 - 0x1575060fff 0x1575061000 - 0x1575062fff 0x1575063000 - 0x1575064fff 0x1575065000 - 0x157506bfff 0x157506c000 - 0x157506cfff 0x157506d000 - 0x157506dfff 0x1575070000 - 0x1575071fff 0x1575072000 - 0x15750b0fff 0x15750b1000 - 0x15750b2fff 0x15750b3000 - 0x15750b9fff 0x15750ba000 - 0x15750bafff 0x15750bb000 - 0x1575144fff 0x1575145000 - 0x1575145fff 0x1575146000 - 0x1575146fff 0x1575147000 - 0x1575177fff 0x1575178000 - 0x1575178fff 0x1575179000 - 0x1575179fff 0x157517a000 - 0x157517afff 0x157517b000 - 0x1575182fff 0x1575183000 - 0x15751a8fff 0x15751a9000 - 0x15751acfff 0x15751ad000 - 0x15751adfff 0x15751ae000 - 0x15751affff 0x15751b0000 - 0x15751b0fff 0x15751b1000 - 0x15751b1fff 0x15751b2000 - 0x15751b2fff 0x15751b3000 - 0x15751b6fff 0x15751b7000 - 0x15751b7fff 0x15751b8000 - 0x15751b8fff 0x15751b9000 - 0x15751bafff 0x15751bb000 - 0x15751bcfff 0x15751bd000 - 0x15751bdfff 0x15751be000 - 0x15751befff 0x15751bf000 - 0x157532afff 0x157532b000 - 0x157532dfff 0x157532e000 - 0x157532efff 0x157532f000 - 0x157532ffff 0x1575330000 - 0x1575342fff 0x1575343000 - 0x1575343fff 0x1575344000 - 0x1575344fff 0x1575345000 - 0x1575463fff 0x1575464000 - 0x1575466fff 0x1575467000 - 0x1575469fff 0x157546a000 - 0x157546efff 0x157546f000 - 0x15754c3fff 0x15754c4000 - 0x1575b6efff 0x3ffffa8000 - 0x3ffffc8fff Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0x97e7000 - 0x9807fff 0x80000000 - 0x800bffff 0x159190b000 - 0x1591925fff 0x1591926000 - 0x1591926fff 0x1591927000 - 0x1591927fff 0x1591928000 - 0x1591929fff 0x159192a000 - 0x159192bfff 0x159192c000 - 0x1591932fff 0x1591933000 - 0x1591933fff 0x1591934000 - 0x1591934fff 0x1591937000 - 0x1591938fff 0x1591939000 - 0x1591977fff 0x1591978000 - 0x1591979fff 0x159197a000 - 0x1591980fff 0x1591981000 - 0x1591981fff 0x1591982000 - 0x1591a0bfff 0x1591a0c000 - 0x1591a0cfff 0x1591a0d000 - 0x1591a0dfff 0x1591a0e000 - 0x1591a3efff 0x1591a3f000 - 0x1591a3ffff 0x1591a40000 - 0x1591a40fff 0x1591a41000 - 0x1591a41fff 0x1591a42000 - 0x1591a49fff 0x1591a4a000 - 0x1591a6ffff 0x1591a70000 - 0x1591a73fff 0x1591a74000 - 0x1591a74fff 0x1591a75000 - 0x1591a76fff 0x1591a77000 - 0x1591a77fff 0x1591a78000 - 0x1591a78fff 0x1591a79000 - 0x1591a79fff 0x1591a7a000 - 0x1591a7dfff 0x1591a7e000 - 0x1591a7efff 0x1591a7f000 - 0x1591a7ffff 0x1591a80000 - 0x1591a81fff 0x1591a82000 - 0x1591a83fff 0x1591a84000 - 0x1591a84fff 0x1591a85000 - 0x1591a85fff 0x1591a86000 - 0x1591bf1fff 0x1591bf2000 - 0x1591bf4fff 0x1591bf5000 - 0x1591bf5fff 0x1591bf6000 - 0x1591bf6fff 0x1591bf7000 - 0x1591c09fff 0x1591c0a000 - 0x1591c0afff 0x1591c0b000 - 0x1591c0bfff 0x1591c0c000 - 0x1591d2afff 0x1591d2b000 - 0x1591d2dfff 0x1591d2e000 - 0x1591d30fff 0x1591d31000 - 0x1591d35fff 0x1591d36000 - 0x1591d8afff 0x1591d8b000 - 0x1592435fff 0x3fffcf1000 - 0x3fffd11fff "[1]>" "[1]>" EQL-OK: T (STRINGP (PROC-SEND *PROC1* "(setq s (open ~S :direction :output :if-exists :append))" (TRUENAME *TMP1*))) " # [2]>" EQL-OK: T (STRINGP (PROC-SEND *PROC2* "(setq s (open ~S :direction :output :if-exists :append))" (TRUENAME *TMP1*))) " # [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)"))))) 956434 ("/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/base/lisp.run" "-on-error" "abort" "-q" "-norc" "-B" "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/" "-M" "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/base/lispinit.mem") Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0x2faee000 - 0x2fb0efff 0x80000000 - 0x800bffff 0x1593d5a000 - 0x1593d74fff 0x1593d75000 - 0x1593d75fff 0x1593d76000 - 0x1593d76fff 0x1593d77000 - 0x1593d78fff 0x1593d79000 - 0x1593d7afff 0x1593d7b000 - 0x1593d81fff 0x1593d82000 - 0x1593d82fff 0x1593d83000 - 0x1593d83fff 0x1593d86000 - 0x1593d87fff 0x1593d88000 - 0x1593dc6fff 0x1593dc7000 - 0x1593dc8fff 0x1593dc9000 - 0x1593dcffff 0x1593dd0000 - 0x1593dd0fff 0x1593dd1000 - 0x1593e5afff 0x1593e5b000 - 0x1593e5bfff 0x1593e5c000 - 0x1593e5cfff 0x1593e5d000 - 0x1593e8dfff 0x1593e8e000 - 0x1593e8efff 0x1593e8f000 - 0x1593e8ffff 0x1593e90000 - 0x1593e90fff 0x1593e91000 - 0x1593e98fff 0x1593e99000 - 0x1593ebefff 0x1593ebf000 - 0x1593ec2fff 0x1593ec3000 - 0x1593ec3fff 0x1593ec4000 - 0x1593ec5fff 0x1593ec6000 - 0x1593ec6fff 0x1593ec7000 - 0x1593ec7fff 0x1593ec8000 - 0x1593ec8fff 0x1593ec9000 - 0x1593eccfff 0x1593ecd000 - 0x1593ecdfff 0x1593ece000 - 0x1593ecefff 0x1593ecf000 - 0x1593ed0fff 0x1593ed1000 - 0x1593ed2fff 0x1593ed3000 - 0x1593ed3fff 0x1593ed4000 - 0x1593ed4fff 0x1593ed5000 - 0x1594040fff 0x1594041000 - 0x1594043fff 0x1594044000 - 0x1594044fff 0x1594045000 - 0x1594045fff 0x1594046000 - 0x1594058fff 0x1594059000 - 0x1594059fff 0x159405a000 - 0x159405afff 0x159405b000 - 0x1594179fff 0x159417a000 - 0x159417cfff 0x159417d000 - 0x159417ffff 0x1594180000 - 0x1594184fff 0x1594185000 - 0x15941d9fff 0x15941da000 - 0x1594884fff 0x3fffd4f000 - 0x3fffd6ffff "[1]>" " # [2]>" 956436 " 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-07aYwz" "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-iTMOTy")) EQL-OK: T (LISTP (SHOW (COPY-FILE *TMP2* *TMP1* :METHOD :HARDLINK-OR-COPY))) (("/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-iTMOTy" "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-07aYwz")) 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))))) 18446744072245766522 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" . #) (#2="localhost6.localdomain6" . #) (#3="localhost6" . #) (#4="localhost.localdomain" . #) ("localhost" . #)) EQL-OK: T (HASH-TABLE-P (SHOW (IPADDR-CLOSURE :DEFAULT) :PRETTY T)) #S(HASH-TABLE :TEST EQUALP (#1="192.168.122.105" . #) (#2="fedora-riscv-9.gcc141.osuosl.org" . #) (:DEFAULT . #)) 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)) 62670 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 62671 PID-W 62671) 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 62672 PID-L-2 62673 PID-W-1 62672 PID-W-2 62673) 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))))) # 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.5d0 1.57d0 1.47d0) EQL-OK: T (EVERY #'SYSTEM::FIXNUMP (SHOW (HANDLER-CASE (MULTIPLE-VALUE-LIST (LOADAVG T)) (ERROR (C) (PRINC-ERROR C))))) (150 157 147) 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dir1/ Creating directory: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dir1/dir2/ Creating directory: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dir1/dir2/dir3/ (:D "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dir1") (:F "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dir1/file1") (:D "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dir1/dir2") (:D "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dir1/dir2/dir3") (:F "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dir1/dir2/dir3/file3") (:F "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dir1/file1") (:F "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dir1/dir2/dir3/file3") (:DP "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dir1/dir2/dir3") (:F "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dir1/dir2/file2") (:DP "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dir1/dir2") (:DP "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dir1") ((#1="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dir1" # :D 116 0) (#2="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dir1/dir2" # :D 121 1) (#3="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dir1/dir2/dir3" # :D 126 2)) ((#1="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dir1/file1" # :F 121 1) (#2="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dir1/dir2/dir3/file3" # :F 131 3) (#3="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dir1/dir2/dir3" # :DP 126 2) (#4="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dir1/dir2/file2" # :F 126 2) (#5="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dir1/dir2" # :DP 121 1) (#6="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dir1" # :DP 116 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) (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))) Creating directory: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-dir-1/ Creating directory: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/syscalls/test.tst" (1 error out of 263 tests) RUN-TEST: see /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls/test.erg RUN-TEST: started # (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 # 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))) # 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))) # 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/regexp/test.tst" (0 errors out of 320 tests) RUN-TEST: started # (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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/readline/test.erg[4]> (1 2 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/readline/test.tst" (0 errors out of 37 tests) finished 4 files: 1 error out of 631 tests 1 i18n/test.tst: 0 errors out of 11 tests 2 syscalls/test.tst: 1 error out of 263 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 ===> make base-mod-check FAILED Step 1 ===> /bin/sh ../src/configure --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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline --with-ffcall --with-libsigsegv-prefix=/usr --with-libffcall-prefix=/usr --cache-file=config.cache SUCCEEDED Step 2 ===> make SUCCEEDED Step 3 ===> make check SUCCEEDED Step 4 ===> make extracheck SUCCEEDED Step 5 ===> make base-mod-check FAILED + RPM_EC=0 ++ jobs -p + exit 0 Executing(%install): /bin/sh -e /var/tmp/rpm-tmp.AWTLBO + umask 022 + cd /builddir/build/BUILD + '[' /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64 '!=' / ']' + rm -rf /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64 ++ dirname /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64 + mkdir -p /builddir/build/BUILDROOT + mkdir /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64 + cd clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa + ulimit -s unlimited + make -C build DESTDIR=/builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64 install make: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f i18n/Makefile || test -n "`find $m/Makefile -prune -newer i18n/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > i18n/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/i18n' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f syscalls/Makefile || test -n "`find $m/Makefile -prune -newer syscalls/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > syscalls/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f regexp/Makefile || test -n "`find $m/Makefile -prune -newer regexp/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > regexp/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/regexp' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f readline/Makefile || test -n "`find $m/Makefile -prune -newer readline/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > readline/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/readline' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/readline' rm -rf base MAKE=make CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/i18n' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/i18n' make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls' make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/regexp' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/regexp' make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/readline' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/readline' gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit -c modules.c gcc -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -lcrypt gettext.o lisp.a -Wl,--whole-archive libgnu.a -Wl,--no-whole-archive -lreadline -lncurses -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -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") Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x170fff 0x172000 - 0x19cfff 0x19d000 - 0x1cafff 0x1cb000 - 0x1cdfff 0x16201000 - 0x16221fff 0x80000000 - 0x800bffff 0x155eb16000 - 0x155eb30fff 0x155eb32000 - 0x155eb32fff 0x155eb33000 - 0x155eb34fff 0x155eb35000 - 0x155eb36fff 0x155eb42000 - 0x155eb43fff 0x155eb44000 - 0x155eb82fff 0x155eb83000 - 0x155eb84fff 0x155eb85000 - 0x155eb8bfff 0x155eb8c000 - 0x155eb8cfff 0x155eb8d000 - 0x155ebb2fff 0x155ebb3000 - 0x155ebb6fff 0x155ebb7000 - 0x155ebb7fff 0x155ebb8000 - 0x155ebb9fff 0x155ebba000 - 0x155ebbafff 0x155ebbb000 - 0x155ebbbfff 0x155ebbc000 - 0x155ebbcfff 0x155ebbd000 - 0x155ebc0fff 0x155ebc1000 - 0x155ebc1fff 0x155ebc2000 - 0x155ebc2fff 0x155ebc3000 - 0x155ebc4fff 0x155ebc5000 - 0x155ebc5fff 0x155ebc6000 - 0x155ebc6fff 0x155ebc7000 - 0x155ed32fff 0x155ed33000 - 0x155ed35fff 0x155ed36000 - 0x155ed36fff 0x155ed37000 - 0x155ed39fff 0x155ed3a000 - 0x155ed4cfff 0x155ed4d000 - 0x155ed4dfff 0x155ed4e000 - 0x155ed4efff 0x155ed4f000 - 0x155ee6dfff 0x155ee6e000 - 0x155ee70fff 0x155ee71000 - 0x155ee73fff 0x155ee74000 - 0x155ee78fff 0x3fff9de000 - 0x3fff9fefff ;; 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,310,736 bytes) Bytes permanently allocated: 173,424 Bytes currently in use: 3,134,480 Bytes available until next GC: 1,562,308 3134480 ; 1562308 ; 173424 ; 1 ; 256672 ; 55326 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") Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0x1d7ba000 - 0x1d7dafff 0x80000000 - 0x800bffff 0x15871b6000 - 0x15871d0fff 0x15871d2000 - 0x15871d2fff 0x15871d3000 - 0x15871d4fff 0x15871d5000 - 0x15871d6fff 0x15871e2000 - 0x15871e3fff 0x15871e4000 - 0x1587222fff 0x1587223000 - 0x1587224fff 0x1587225000 - 0x158722bfff 0x158722c000 - 0x158722cfff 0x158722d000 - 0x15872b6fff 0x15872b7000 - 0x15872b7fff 0x15872b8000 - 0x15872b8fff 0x15872b9000 - 0x15872e9fff 0x15872ea000 - 0x15872eafff 0x15872eb000 - 0x15872ebfff 0x15872ec000 - 0x15872ecfff 0x15872ed000 - 0x15872f4fff 0x15872f5000 - 0x158731afff 0x158731b000 - 0x158731efff 0x158731f000 - 0x158731ffff 0x1587320000 - 0x1587321fff 0x1587322000 - 0x1587322fff 0x1587323000 - 0x1587323fff 0x1587324000 - 0x1587324fff 0x1587325000 - 0x1587328fff 0x1587329000 - 0x1587329fff 0x158732a000 - 0x158732afff 0x158732b000 - 0x158732cfff 0x158732d000 - 0x158732efff 0x158732f000 - 0x158732ffff 0x1587330000 - 0x1587330fff 0x1587331000 - 0x158749cfff 0x158749d000 - 0x158749ffff 0x15874a0000 - 0x15874a0fff 0x15874a1000 - 0x15874a1fff 0x15874a2000 - 0x15874b4fff 0x15874b5000 - 0x15874b5fff 0x15874b6000 - 0x15874b6fff 0x15874b7000 - 0x15875d5fff 0x15875d6000 - 0x15875d8fff 0x15875d9000 - 0x15875dbfff 0x15875dc000 - 0x15875e0fff 0x3ffffa4000 - 0x3ffffc4fff ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/i18n/i18n.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/i18n/i18n.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls/posix.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls/posix.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/regexp/regexp.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/regexp/regexp.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/readline/readline.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/readline/readline.fas ;; Wrote the memory image into base/lispinit.mem (3,793,176 bytes) Bytes permanently allocated: 179,976 Bytes currently in use: 3,605,112 Bytes available until next GC: 1,797,624 3605112 ; 1797624 ; 179976 ; 2 ; 1575400 ; 142654 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f asdf/Makefile || test -n "`find $m/Makefile -prune -newer asdf/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > asdf/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/asdf' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f berkeley-db/Makefile || test -n "`find $m/Makefile -prune -newer berkeley-db/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > berkeley-db/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/berkeley-db' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f bindings/glibc/Makefile || test -n "`find $m/Makefile -prune -newer bindings/glibc/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > bindings/glibc/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f clx/new-clx/Makefile || test -n "`find $m/Makefile -prune -newer clx/new-clx/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > clx/new-clx/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clx/new-clx' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f dbus/Makefile || test -n "`find $m/Makefile -prune -newer dbus/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > dbus/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dbus' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f fastcgi/Makefile || test -n "`find $m/Makefile -prune -newer fastcgi/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > fastcgi/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/fastcgi' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f gdbm/Makefile || test -n "`find $m/Makefile -prune -newer gdbm/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > gdbm/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gdbm' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gtk2' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f libsvm/Makefile || test -n "`find $m/Makefile -prune -newer libsvm/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > libsvm/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/libsvm' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f pari/Makefile || test -n "`find $m/Makefile -prune -newer pari/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > pari/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pari' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pari' mkdir -p pcre m=`cd ../modules/pcre; pwd`; \ if test -f $m/configure && { test ! -f pcre/config.status || test -n "`find $m/configure -prune -newer pcre/config.status`"; } ; then ( cd pcre ;\ cache=`echo pcre/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \ if test -f ${cache} ; then \ . ${cache}; \ if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \ if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \ if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \ if test "${ac_cv_env_CLFLAGS_set}" = set; then CLFLAGS="${ac_cv_env_CLFLAGS_value}"; export CLFLAGS; fi; \ if test "${ac_cv_env_LIBS_set}" = set; then LIBS="${ac_cv_env_LIBS_value}"; export LIBS; fi; \ if test "${ac_cv_env_CPPFLAGS_set}" = set; then CPPFLAGS="${ac_cv_env_CPPFLAGS_value}"; export CPPFLAGS; fi; \ if test "${ac_cv_env_CPP_set}" = set; then CPP="${ac_cv_env_CPP_value}"; export CPP; fi; \ if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ /bin/sh $m/configure --with-clisp="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f pcre/Makefile || test -n "`find $m/Makefile -prune -newer pcre/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > pcre/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" ; \ cd pcre ; make clisp-module CC="gcc" CPPFLAGS="-I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pcre' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pcre' 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f postgresql/Makefile || test -n "`find $m/Makefile -prune -newer postgresql/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > postgresql/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/postgresql' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f rawsock/Makefile || test -n "`find $m/Makefile -prune -newer rawsock/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > rawsock/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/rawsock' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ fi ) ;\ fi; \ if test -f $m/Makefile && { test ! -f zlib/Makefile || test -n "`find $m/Makefile -prune -newer zlib/Makefile`"; } ; then \ sed "s,srcdir = .,srcdir = $m," "$m/Makefile" > zlib/Makefile ; \ fi ; \ CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/zlib' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/zlib' rm -rf full rm -rf dynmod; mkdir dynmod MAKE=make CLISP="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/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 pcre postgresql rawsock zlib || (rm -rf full ; exit 1) make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/asdf' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/asdf' make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/berkeley-db' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/berkeley-db' gcc -shared -fPIC -DPIC bdb.o /usr/lib64/libdb.so -L/usr/lib64 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-bdb.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc' gcc -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,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-linux.so /usr/bin/ld: linux.o: in function `module__linux__init_function_2': /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/linux.c:963: warning: the use of `tmpnam' is dangerous, better use `mkstemp' /usr/bin/ld: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/linux.c:964: warning: the use of `tmpnam_r' is dangerous, better use `mkstemp' /usr/bin/ld: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/linux.c:965: warning: the use of `tempnam' is dangerous, better use `mkstemp' /usr/bin/ld: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/linux.c:689: warning: the use of `mktemp' is dangerous, better use `mkstemp' or `mkdtemp' make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clx/new-clx' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clx/new-clx' gcc -shared -fPIC -DPIC clx.o -lXpm -lXext -lXau -lSM -lICE -lX11 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-clx.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dbus' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dbus' gcc -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,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-dbus.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/fastcgi' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/fastcgi' gcc -shared -fPIC -DPIC fastcgi.o fastcgi_wrappers.o /usr/lib64/libfcgi.so -L/usr/lib64 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-fastcgi.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gdbm' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gdbm' gcc -shared -fPIC -DPIC gdbm.o /usr/lib64/libgdbm.so -L/usr/lib64 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-gdbm.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gtk2' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gtk2' gcc -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,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-gtk.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/libsvm' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/libsvm' gcc -shared -fPIC -DPIC libsvm.o -lm /usr/lib64/libsvm.so -L/usr/lib64 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-libsvm.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pari' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pari' gcc -shared -fPIC -DPIC cpari.o pari.o -lm /usr/lib64/libpari.so -L/usr/lib64 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-pari.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pcre' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pcre' gcc -shared -fPIC -DPIC cpcre.o /usr/lib64/libpcre.so -L/usr/lib64 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-pcre.so -o /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-pcre.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/postgresql' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/postgresql' gcc -shared -fPIC -DPIC postgresql.o /usr/lib64/libpq.so -L/usr/lib64 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-postgresql.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/rawsock' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/rawsock' gcc -shared -fPIC -DPIC rawsock.o -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-rawsock.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/zlib' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/zlib' gcc -shared -fPIC -DPIC zlib.o /usr/lib64/libz.so -L/usr/lib64 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-zlib.so gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit -c modules.c gcc -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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 -L/usr/lib64 rawsock.o postgresql.o /usr/lib64/libpq.so -L/usr/lib64 cpcre.o /usr/lib64/libpcre.so -L/usr/lib64 cpari.o pari.o -lm /usr/lib64/libpari.so -L/usr/lib64 libsvm.o -lm /usr/lib64/libsvm.so -L/usr/lib64 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 -L/usr/lib64 fastcgi.o fastcgi_wrappers.o /usr/lib64/libfcgi.so -L/usr/lib64 dbus.o -ldbus-1 clx.o -lXpm -lXext -lXau -lSM -lICE -lX11 linux.o -lm bdb.o /usr/lib64/libdb.so -L/usr/lib64 readline.o -lreadline -lncurses regexi.o calls.o -lm -lcrypt gettext.o lisp.a -Wl,--whole-archive libgnu.a -Wl,--no-whole-archive -lreadline -lncurses -ldl -lffcall -lsigsegv /usr/lib64/libunistring.so -L/usr/lib64 -ldl -o lisp.run /usr/bin/ld: linux.o: in function `module__linux__init_function_2': /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/linux.c:963: warning: the use of `tmpnam' is dangerous, better use `mkstemp' /usr/bin/ld: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/linux.c:964: warning: the use of `tmpnam_r' is dangerous, better use `mkstemp' /usr/bin/ld: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/linux.c:965: warning: the use of `tempnam' is dangerous, better use `mkstemp' /usr/bin/ld: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/linux.c:689: 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 pcre/preload.lisp -i rawsock/preload.lisp -x (saveinitmem "full/lispinit.mem") Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x18efff 0x18f000 - 0x1bcfff 0x1bd000 - 0x1eefff 0x1ef000 - 0x1f2fff 0x2a668000 - 0x2a688fff 0x80000000 - 0x800bffff 0x156263a000 - 0x1562654fff 0x1562656000 - 0x1562656fff 0x1562657000 - 0x1562658fff 0x1562659000 - 0x156265afff 0x1562666000 - 0x1562667fff 0x1562668000 - 0x15626a6fff 0x15626a7000 - 0x15626a8fff 0x15626a9000 - 0x15626affff 0x15626b0000 - 0x15626b0fff 0x15626b1000 - 0x156273afff 0x156273b000 - 0x156273bfff 0x156273c000 - 0x156273cfff 0x156273d000 - 0x156276dfff 0x156276e000 - 0x156276efff 0x156276f000 - 0x156276ffff 0x1562770000 - 0x1562770fff 0x1562771000 - 0x1562778fff 0x1562779000 - 0x156279efff 0x156279f000 - 0x15627a2fff 0x15627a3000 - 0x15627a3fff 0x15627a4000 - 0x15627a5fff 0x15627a6000 - 0x15627a6fff 0x15627a7000 - 0x15627a7fff 0x15627a8000 - 0x15627a8fff 0x15627a9000 - 0x15627acfff 0x15627ad000 - 0x15627adfff 0x15627ae000 - 0x15627aefff 0x15627af000 - 0x15627b0fff 0x15627b1000 - 0x15627b2fff 0x15627b3000 - 0x15627b3fff 0x15627b4000 - 0x15627b4fff 0x15627b5000 - 0x1562920fff 0x1562921000 - 0x1562923fff 0x1562924000 - 0x1562924fff 0x1562925000 - 0x1562925fff 0x1562926000 - 0x1562938fff 0x1562939000 - 0x1562939fff 0x156293a000 - 0x156293afff 0x156293b000 - 0x1562a59fff 0x1562a5a000 - 0x1562a5cfff 0x1562a5d000 - 0x1562a5ffff 0x1562a60000 - 0x1562a64fff 0x3fff984000 - 0x3fff9a4fff ;; 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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gtk2/preload.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gtk2/preload.lisp ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/libsvm/preload.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/libsvm/preload.lisp ;; Loading file pari/preload.lisp ... ;; Loaded file pari/preload.lisp ;; Loading file pcre/preload.lisp ... ;; Loaded file pcre/preload.lisp ;; Loading file rawsock/preload.lisp ... ;; Loaded file rawsock/preload.lisp ;; Wrote the memory image into full/lispinit.mem (3,798,776 bytes) Bytes permanently allocated: 179,976 Bytes currently in use: 3,610,712 Bytes available until next GC: 1,800,424 3610712 ; 1800424 ; 179976 ; 1 ; 582528 ; 63086 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 pcre/pcre -i postgresql/postgresql -i postgresql/sql -i rawsock/sock -i zlib/zlib -x (saveinitmem "full/lispinit.mem") Warning: reserving address range 0x800c0000...0x1fffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x10000 - 0x225fff 0x227000 - 0x258fff 0x259000 - 0x29bfff 0x29c000 - 0x2c1fff 0x2f9b0000 - 0x2f9f1fff 0x80000000 - 0x800bffff 0x1564609000 - 0x1564623fff 0x1564625000 - 0x1564625fff 0x1564626000 - 0x1564627fff 0x1564628000 - 0x1564629fff 0x1564635000 - 0x1564636fff 0x1564637000 - 0x1564649fff 0x156464a000 - 0x156464afff 0x156464b000 - 0x156464bfff 0x156464c000 - 0x156468dfff 0x156468e000 - 0x1564690fff 0x1564691000 - 0x1564691fff 0x1564692000 - 0x15646ccfff 0x15646cd000 - 0x15646cdfff 0x15646ce000 - 0x15646cefff 0x15646cf000 - 0x15646cffff 0x15646d0000 - 0x1564c54fff 0x1564c55000 - 0x1564c55fff 0x1564c56000 - 0x1564c56fff 0x1564c57000 - 0x1564c82fff 0x1564c83000 - 0x1564ca1fff 0x1564ca2000 - 0x1564cacfff 0x1564cad000 - 0x1564cadfff 0x1564cae000 - 0x1564caefff 0x1564caf000 - 0x1564caffff 0x1564cb0000 - 0x15650abfff 0x15650ac000 - 0x15650acfff 0x15650ad000 - 0x15650b2fff 0x15650b3000 - 0x15650b7fff 0x15650b8000 - 0x15650bbfff 0x15650bc000 - 0x1565162fff 0x1565163000 - 0x1565166fff 0x1565167000 - 0x1565168fff 0x1565169000 - 0x1565188fff 0x1565189000 - 0x1565189fff 0x156518a000 - 0x156518afff 0x156518b000 - 0x15651d3fff 0x15651d4000 - 0x15651d4fff 0x15651d5000 - 0x15651d6fff 0x15651d7000 - 0x15651d7fff 0x15651d8000 - 0x15651d8fff 0x15651d9000 - 0x15652dffff 0x15652e0000 - 0x15652e0fff 0x15652e1000 - 0x15652e1fff 0x15652e2000 - 0x15652e2fff 0x15652e3000 - 0x15652f8fff 0x15652f9000 - 0x15652f9fff 0x15652fa000 - 0x15652fafff 0x15652fb000 - 0x1565305fff 0x1565306000 - 0x1565306fff 0x1565307000 - 0x1565307fff 0x1565308000 - 0x1565309fff 0x156530a000 - 0x1565312fff 0x1565313000 - 0x1565313fff 0x1565314000 - 0x1565314fff 0x1565315000 - 0x1565355fff 0x1565356000 - 0x1565356fff 0x1565357000 - 0x1565357fff 0x1565358000 - 0x1565358fff 0x1565359000 - 0x1565359fff 0x156535a000 - 0x1565366fff 0x1565367000 - 0x1565367fff 0x1565368000 - 0x1565368fff 0x1565369000 - 0x1565376fff 0x1565377000 - 0x1565377fff 0x1565378000 - 0x1565378fff 0x1565379000 - 0x1565379fff 0x156537a000 - 0x156537bfff 0x156537c000 - 0x156537cfff 0x156537d000 - 0x156537dfff 0x156537e000 - 0x156548ffff 0x1565490000 - 0x1565490fff 0x1565491000 - 0x1565495fff 0x1565496000 - 0x1565497fff 0x1565498000 - 0x1565521fff 0x1565522000 - 0x1565522fff 0x1565523000 - 0x1565523fff 0x1565524000 - 0x156566dfff 0x156566e000 - 0x156566efff 0x156566f000 - 0x1565674fff 0x1565675000 - 0x1565678fff 0x1565679000 - 0x15656b7fff 0x15656b8000 - 0x15656b9fff 0x15656ba000 - 0x15656c0fff 0x15656c1000 - 0x15656c1fff 0x15656c2000 - 0x15656f2fff 0x15656f3000 - 0x15656f3fff 0x15656f4000 - 0x15656f4fff 0x15656f5000 - 0x15656f5fff 0x15656f6000 - 0x15656fdfff 0x15656fe000 - 0x1565723fff 0x1565724000 - 0x1565727fff 0x1565728000 - 0x1565728fff 0x1565729000 - 0x156572afff 0x156572b000 - 0x156572bfff 0x156572c000 - 0x156572cfff 0x156572d000 - 0x156572dfff 0x156572e000 - 0x156572ffff 0x1565730000 - 0x1565733fff 0x1565734000 - 0x1565734fff 0x1565735000 - 0x1565735fff 0x1565736000 - 0x1565737fff 0x1565738000 - 0x1565738fff 0x1565739000 - 0x1565739fff 0x156573a000 - 0x15658a5fff 0x15658a6000 - 0x15658a8fff 0x15658a9000 - 0x15658a9fff 0x15658aa000 - 0x15658aafff 0x15658ab000 - 0x15658bdfff 0x15658be000 - 0x15658befff 0x15658bf000 - 0x15658bffff 0x15658c0000 - 0x15659defff 0x15659df000 - 0x15659e1fff 0x15659e2000 - 0x15659e4fff 0x15659e5000 - 0x15659e7fff 0x15659e8000 - 0x1565a54fff 0x1565a55000 - 0x1565a55fff 0x1565a56000 - 0x1565a5dfff 0x1565a5e000 - 0x1565a62fff 0x1565a63000 - 0x1565a64fff 0x1565a65000 - 0x1565c57fff 0x1565c58000 - 0x1565c58fff 0x1565c59000 - 0x1565c80fff 0x1565c81000 - 0x1565c85fff 0x1565c86000 - 0x1565c89fff 0x1565c8a000 - 0x1565cc6fff 0x1565cc7000 - 0x1565cc7fff 0x1565cc8000 - 0x1565cc8fff 0x1565cc9000 - 0x1565ccafff 0x1565ccb000 - 0x1565d0cfff 0x1565d0d000 - 0x1565d0dfff 0x1565d0e000 - 0x1565d0efff 0x1565d0f000 - 0x1565d10fff 0x1565d11000 - 0x1565d12fff 0x1565d13000 - 0x1565d28fff 0x1565d29000 - 0x1565d29fff 0x1565d2a000 - 0x1565d2afff 0x1565d2b000 - 0x1565d2efff 0x1565d2f000 - 0x1565d92fff 0x1565d93000 - 0x1565d93fff 0x1565d94000 - 0x1565d94fff 0x1565d95000 - 0x1565d95fff 0x1565d96000 - 0x1565f34fff 0x1565f35000 - 0x1565f3efff 0x1565f3f000 - 0x1565f42fff 0x1565f43000 - 0x1565f48fff 0x1565f49000 - 0x1565f4afff 0x1565f4b000 - 0x1565f4bfff 0x1565f4c000 - 0x1565f4cfff 0x1565f4d000 - 0x1565f4dfff 0x1565f4e000 - 0x1565f58fff 0x1565f59000 - 0x1565f59fff 0x1565f5a000 - 0x1565f5afff 0x1565f5b000 - 0x1565f5bfff 0x1565f5c000 - 0x1565f5ffff 0x1565f60000 - 0x1565f60fff 0x1565f61000 - 0x1565f61fff 0x1565f62000 - 0x1565f83fff 0x1565f84000 - 0x1565f86fff 0x1565f87000 - 0x1565f87fff 0x1565f88000 - 0x156605cfff 0x156605d000 - 0x156605ffff 0x1566060000 - 0x1566061fff 0x1566062000 - 0x15661edfff 0x15661ee000 - 0x15661f3fff 0x15661f4000 - 0x15661f6fff 0x15661f7000 - 0x15661fafff 0x15661fb000 - 0x156620cfff 0x156620d000 - 0x156620dfff 0x156620e000 - 0x156620efff 0x156620f000 - 0x1566250fff 0x1566251000 - 0x1566253fff 0x1566254000 - 0x1566254fff 0x1566255000 - 0x1566290fff 0x1566291000 - 0x1566291fff 0x1566292000 - 0x1566293fff 0x1566294000 - 0x1566294fff 0x1566295000 - 0x156629cfff 0x156629d000 - 0x156629dfff 0x156629e000 - 0x156629efff 0x156629f000 - 0x15662a0fff 0x15662a1000 - 0x15662a1fff 0x15662a2000 - 0x15662a2fff 0x15662a3000 - 0x15662aefff 0x15662af000 - 0x15662affff 0x15662b0000 - 0x15662b0fff 0x15662b1000 - 0x15662b2fff 0x15662b3000 - 0x15662bafff 0x15662bb000 - 0x15662bbfff 0x15662bc000 - 0x15662bcfff 0x15662bd000 - 0x15662c4fff 0x15662c5000 - 0x15662c5fff 0x15662c6000 - 0x15662c6fff 0x15662c7000 - 0x15662c8fff 0x15662c9000 - 0x15662c9fff 0x15662ca000 - 0x15662cafff 0x15662cb000 - 0x15662ccfff 0x15662cd000 - 0x15662cdfff 0x15662ce000 - 0x15662cefff 0x15662cf000 - 0x15662fafff 0x15662fb000 - 0x15662fbfff 0x15662fc000 - 0x15662fcfff 0x15662fd000 - 0x1566302fff 0x1566303000 - 0x1566303fff 0x1566304000 - 0x1566304fff 0x1566305000 - 0x1566306fff 0x1566307000 - 0x1566431fff 0x1566432000 - 0x1566439fff 0x156643a000 - 0x156643bfff 0x156643c000 - 0x156643cfff 0x156643d000 - 0x15664e3fff 0x15664e4000 - 0x15664e4fff 0x15664e5000 - 0x15664e5fff 0x15664e6000 - 0x15664e6fff 0x15664e7000 - 0x156657afff 0x156657b000 - 0x156657bfff 0x156657c000 - 0x1566581fff 0x1566582000 - 0x1566582fff 0x1566583000 - 0x1566610fff 0x1566611000 - 0x1566613fff 0x1566614000 - 0x1566615fff 0x1566616000 - 0x1566616fff 0x1566617000 - 0x1566637fff 0x1566638000 - 0x1566638fff 0x1566639000 - 0x1566639fff 0x156663a000 - 0x156663bfff 0x156663c000 - 0x15666e2fff 0x15666e3000 - 0x15666edfff 0x15666ee000 - 0x15666f0fff 0x15666f1000 - 0x1566700fff 0x1566701000 - 0x1566701fff 0x1566702000 - 0x1566702fff 0x1566703000 - 0x1566703fff 0x1566704000 - 0x1566706fff 0x1566707000 - 0x1566707fff 0x1566708000 - 0x1566708fff 0x1566709000 - 0x1566713fff 0x1566714000 - 0x1566714fff 0x1566715000 - 0x1566715fff 0x1566716000 - 0x1566718fff 0x1566719000 - 0x1566719fff 0x156671a000 - 0x156671afff 0x156671b000 - 0x156672afff 0x156672b000 - 0x156672bfff 0x156672c000 - 0x156672cfff 0x156672d000 - 0x156672efff 0x156672f000 - 0x1566739fff 0x156673a000 - 0x156673afff 0x156673b000 - 0x156673bfff 0x156673c000 - 0x156673cfff 0x156673d000 - 0x1566753fff 0x1566754000 - 0x1566754fff 0x1566755000 - 0x1566755fff 0x1566756000 - 0x15667abfff 0x15667ac000 - 0x15667acfff 0x15667ad000 - 0x15667b0fff 0x15667b1000 - 0x15667b1fff 0x15667b2000 - 0x15667b3fff 0x15667b4000 - 0x15667b4fff 0x15667b5000 - 0x15667b5fff 0x15667b6000 - 0x15667c0fff 0x15667c1000 - 0x15667c1fff 0x15667c2000 - 0x15667c2fff 0x15667c3000 - 0x15667c4fff 0x15667c5000 - 0x15667cafff 0x15667cb000 - 0x15667cbfff 0x15667cc000 - 0x15667ccfff 0x15667cd000 - 0x1566801fff 0x1566802000 - 0x1566802fff 0x1566803000 - 0x1566803fff 0x1566804000 - 0x1566824fff 0x1566825000 - 0x1566825fff 0x1566826000 - 0x1566826fff 0x1566827000 - 0x1566827fff 0x1566828000 - 0x1566829fff 0x156682a000 - 0x1566843fff 0x1566844000 - 0x1566844fff 0x1566845000 - 0x1566845fff 0x1566846000 - 0x156684cfff 0x156684d000 - 0x156684dfff 0x156684e000 - 0x156684efff 0x156684f000 - 0x1566850fff 0x1566851000 - 0x1566871fff 0x1566872000 - 0x1566872fff 0x1566873000 - 0x1566873fff 0x1566874000 - 0x1566874fff 0x1566875000 - 0x1566889fff 0x156688a000 - 0x156688afff 0x156688b000 - 0x156688cfff 0x156688d000 - 0x156688dfff 0x156688e000 - 0x156689bfff 0x156689c000 - 0x156689cfff 0x156689d000 - 0x156689dfff 0x156689e000 - 0x15668a6fff 0x15668a7000 - 0x15668a7fff 0x15668a8000 - 0x15668a8fff 0x15668a9000 - 0x15668c5fff 0x15668c6000 - 0x15668c6fff 0x15668c7000 - 0x15668c7fff 0x15668c8000 - 0x1566981fff 0x1566982000 - 0x1566982fff 0x1566983000 - 0x1566983fff 0x1566984000 - 0x1566988fff 0x1566989000 - 0x156698afff 0x156698b000 - 0x15669b4fff 0x15669b5000 - 0x15669b5fff 0x15669b6000 - 0x15669b8fff 0x15669b9000 - 0x15669b9fff 0x15669ba000 - 0x1566a08fff 0x1566a09000 - 0x1566a09fff 0x1566a0a000 - 0x1566a0afff 0x1566a0b000 - 0x1566a0ffff 0x1566a10000 - 0x1566a10fff 0x1566a11000 - 0x1566a11fff 0x1566a12000 - 0x1566a30fff 0x1566a31000 - 0x1566a31fff 0x1566a32000 - 0x1566a32fff 0x1566a33000 - 0x1566a34fff 0x1566a35000 - 0x1566a4dfff 0x1566a4e000 - 0x1566a4efff 0x1566a4f000 - 0x1566a4ffff 0x1566a50000 - 0x1566a56fff 0x3fffb4b000 - 0x3fffb6bfff ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/asdf/asdf.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/asdf/asdf.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/berkeley-db/dbi.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/berkeley-db/dbi.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/linux.fas ... WARNING: FFI:DEF-C-CONST(SIGUNUSED): CPP constant SIGUNUSED is not defined;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/linux.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/wrap.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/wrap.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clx/new-clx/clx.fas ... WARNING: PROCLAIM(VALUES): # is locked Ignore the lock and proceed ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clx/new-clx/clx.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clx/new-clx/image.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clx/new-clx/image.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clx/new-clx/resource.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clx/new-clx/resource.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dbus/dbus.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dbus/dbus.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/fastcgi/fastcgi.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/fastcgi/fastcgi.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gdbm/gdbm.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gdbm/gdbm.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gtk2/gtk.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gtk2/gtk.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/libsvm/libsvm.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/libsvm/libsvm.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pari/pari.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pari/pari.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pcre/pcre.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pcre/pcre.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/postgresql/postgresql.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/postgresql/postgresql.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/postgresql/sql.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/postgresql/sql.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/rawsock/sock.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/rawsock/sock.fas ;; Loading file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/zlib/zlib.fas ... ;; Loaded file /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/zlib/zlib.fas ;; Wrote the memory image into full/lispinit.mem (9,845,048 bytes) Bytes permanently allocated: 209,712 Bytes currently in use: 9,616,992 Bytes available until next GC: 4,803,564 9616992 ; 4803564 ; 209712 ; 22 ; 61129480 ; 1930673 mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dynmod DESTDIR=`cd "/builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/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 pcre postgresql rawsock zlib make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/asdf' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/asdf' make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/asdf' cp Makefile asdf.fas link.sh /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/asdf/asdf.lisp /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/asdf make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/asdf' make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/berkeley-db' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/berkeley-db' gcc -shared -fPIC -DPIC bdb.o /usr/lib64/libdb.so -L/usr/lib64 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-bdb.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/berkeley-db' cp link.sh Makefile bdb.o dbi.fas preload.lisp /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/berkeley-db/dbi.lisp /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/berkeley-db make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/berkeley-db' make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc' gcc -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,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-linux.so /usr/bin/ld: linux.o: in function `module__linux__init_function_2': /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/linux.c:963: warning: the use of `tmpnam' is dangerous, better use `mkstemp' /usr/bin/ld: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/linux.c:964: warning: the use of `tmpnam_r' is dangerous, better use `mkstemp' /usr/bin/ld: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/linux.c:965: warning: the use of `tempnam' is dangerous, better use `mkstemp' /usr/bin/ld: /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc/linux.c:689: warning: the use of `mktemp' is dangerous, better use `mkstemp' or `mkdtemp' make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc' cp Makefile linux.o linux.fas wrap.fas link.sh /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/bindings/glibc/linux.lisp /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/bindings/glibc/wrap.lisp /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/bindings/glibc make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/bindings/glibc' make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clx/new-clx' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clx/new-clx' gcc -shared -fPIC -DPIC clx.o -lXpm -lXext -lXau -lSM -lICE -lX11 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-clx.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clx/new-clx' cp link.sh Makefile clx.fas image.fas resource.fas clx.o clx-preload.lisp /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/README /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/clx.lisp /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/image.lisp /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/resource.lisp /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/clx/new-clx mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/clx/new-clx/demos cp /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/demos/*.lisp /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/demos/README /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/clx/new-clx/demos/ mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/clx/new-clx/demos/screens /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/clx/new-clx/demos/xpms cp /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/demos/screens/screen.* /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/clx/new-clx/demos/screens/ cp /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/clx/new-clx/demos/xpms/*.xpm /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/clx/new-clx/demos/xpms/ make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clx/new-clx' make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dbus' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dbus' gcc -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,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-dbus.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dbus' cp link.sh Makefile dbus.o dbus.fas /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/dbus/dbus.lisp /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dbus make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dbus' make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/fastcgi' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/fastcgi' gcc -shared -fPIC -DPIC fastcgi.o fastcgi_wrappers.o /usr/lib64/libfcgi.so -L/usr/lib64 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-fastcgi.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/fastcgi' cp link.sh Makefile fastcgi.o fastcgi.fas fastcgi_wrappers.o /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/fastcgi/fastcgi.lisp /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/fastcgi/README /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/fastcgi make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/fastcgi' make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gdbm' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gdbm' gcc -shared -fPIC -DPIC gdbm.o /usr/lib64/libgdbm.so -L/usr/lib64 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-gdbm.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gdbm' cp link.sh Makefile gdbm.fas gdbm.o preload.lisp /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/gdbm/gdbm.lisp /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/gdbm make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gdbm' make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gtk2' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gtk2' gcc -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,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-gtk.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gtk2' cp link.sh Makefile gtk.fas gtk.o preload.lisp /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/gtk2/gtk-server.cfg /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/gtk2/gtk.lisp /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/gtk2/ui.glade /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/gtk2 make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gtk2' make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/libsvm' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/libsvm' gcc -shared -fPIC -DPIC libsvm.o -lm /usr/lib64/libsvm.so -L/usr/lib64 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-libsvm.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/libsvm' cp link.sh Makefile libsvm.fas libsvm.o preload.lisp /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/libsvm/libsvm.lisp /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/libsvm/README /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/libsvm make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/libsvm' make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pari' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pari' gcc -shared -fPIC -DPIC cpari.o pari.o -lm /usr/lib64/libpari.so -L/usr/lib64 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-pari.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pari' cp link.sh Makefile pari.o cpari.o pari.fas preload.lisp /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/pari/pari.lisp /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/pari/desc2lisp.lisp /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/pari/README /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/pari make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pari' make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pcre' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pcre' gcc -shared -fPIC -DPIC cpcre.o /usr/lib64/libpcre.so -L/usr/lib64 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O2 -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,-soname -Wl,lib-pcre.so -o /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-pcre.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pcre' cp link.sh Makefile pcre.fas cpcre.o preload.lisp /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/pcre/pcre.lisp /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/pcre make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pcre' make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/postgresql' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/postgresql' gcc -shared -fPIC -DPIC postgresql.o /usr/lib64/libpq.so -L/usr/lib64 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-postgresql.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/postgresql' cp link.sh Makefile postgresql.o postgresql.fas sql.fas /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/postgresql/postgresql.lisp /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/postgresql/sql.lisp /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/postgresql/README /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/postgresql make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/postgresql' make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/rawsock' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/rawsock' gcc -shared -fPIC -DPIC rawsock.o -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-rawsock.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/rawsock' cp link.sh Makefile sock.fas rawsock.o preload.lisp /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/rawsock/sock.lisp /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/rawsock mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/rawsock/demos cp /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/rawsock/demos/*.lisp /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/rawsock/demos/README /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/rawsock/demos/ make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/rawsock' make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/zlib' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/zlib' gcc -shared -fPIC -DPIC zlib.o /usr/lib64/libz.so -L/usr/lib64 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dynmod/lib-zlib.so make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/zlib' cp link.sh Makefile zlib.o zlib.fas /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules/zlib/zlib.lisp /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/zlib make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/zlib' mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64 mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+ mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/data /usr/bin/install -c -m 644 data/UnicodeDataFull.txt /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/data/UnicodeDataFull.txt /usr/bin/install -c -m 644 data/Symbol-Table.text /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/data/Symbol-Table.text (cd /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+ && rm -rf base full) mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/build-aux for f in config.guess config.rpath config.sub depcomp install-sh; do /usr/bin/install -c -m 644 build-aux/$f /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/build-aux/$f; done for d in linkkit base; do for f in $d/*; do \ mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/$d; \ case $f in \ */lisp.run) /usr/bin/install -c $f /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/$f;; \ *) /usr/bin/install -c -m 644 $f /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/$f;; \ esac; \ done; done mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/bin /usr/bin/install -c clisp-link /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/bin/clisp-link cd po && make install DESTDIR='/builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64' prefix='/usr' exec_prefix='/usr' make[1]: Entering directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/po' installing ../../src/po/en.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/locale/en/LC_MESSAGES/clisp.mo installing ../../src/po/clisplow_en.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/locale/en/LC_MESSAGES/clisplow.mo installing ../../src/po/da.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/locale/da/LC_MESSAGES/clisp.mo installing ../../src/po/clisplow_da.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/locale/da/LC_MESSAGES/clisplow.mo installing ../../src/po/de.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/locale/de/LC_MESSAGES/clisp.mo installing ../../src/po/clisplow_de.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/locale/de/LC_MESSAGES/clisplow.mo installing ../../src/po/fr.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/locale/fr/LC_MESSAGES/clisp.mo installing ../../src/po/clisplow_fr.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/locale/fr/LC_MESSAGES/clisplow.mo installing ../../src/po/es.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/locale/es/LC_MESSAGES/clisp.mo installing ../../src/po/clisplow_es.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/locale/es/LC_MESSAGES/clisplow.mo installing ../../src/po/nl.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/locale/nl/LC_MESSAGES/clisp.mo installing ../../src/po/clisplow_nl.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/locale/nl/LC_MESSAGES/clisplow.mo installing ../../src/po/ru.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/locale/ru/LC_MESSAGES/clisp.mo installing ../../src/po/clisplow_ru.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/locale/ru/LC_MESSAGES/clisplow.mo installing ../../src/po/sv.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/locale/sv/LC_MESSAGES/clisp.mo installing ../../src/po/clisplow_sv.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/locale/sv/LC_MESSAGES/clisplow.mo make[1]: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/po' gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fasynchronous-unwind-tables -fstack-clash-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -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/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/bin/clisp mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/emacs/site-lisp /usr/bin/install -c -m 644 ../emacs/clhs.el /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/emacs/site-lisp/clhs.el /usr/bin/install -c -m 644 ../emacs/clisp-coding.el /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/emacs/site-lisp/clisp-coding.el /usr/bin/install -c -m 644 ../emacs/clisp-indent.el /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/emacs/site-lisp/clisp-indent.el /usr/bin/install -c -m 644 ../emacs/clisp-indent.lisp /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/emacs/site-lisp/clisp-indent.lisp /usr/bin/install -c -m 644 ../emacs/clisp-ffi.el /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/emacs/site-lisp/clisp-ffi.el mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/vim/vimfiles/after/syntax /usr/bin/install -c -m 644 ../emacs/lisp.vim /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/vim/vimfiles/after/syntax/lisp.vim mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/aclocal /usr/bin/install -c -m 644 ../src/m4/clisp.m4 /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/aclocal/clisp.m4 mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/man mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/man/man1 /usr/bin/install -c -m 644 clisp.1 /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/man/man1/clisp.1 /usr/bin/install -c -m 644 clisp-link.1 /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/man/man1/clisp-link.1 mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/doc/clisp /usr/bin/install -c -m 644 ANNOUNCE COPYRIGHT GNU-GPL SUMMARY NEWS README README.de README.es MAGIC.add /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/doc/clisp/ mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/doc/clisp/doc /usr/bin/install -c -m 644 clisp.1 clisp.html clisp-link.1 clisp-link.html LISP-tutorial.txt CLOS-guide.txt impnotes.html impnotes.css clisp.png clisp.ps clisp.pdf clisp-link.ps clisp-link.pdf /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/doc/clisp/doc/ make: Leaving directory '/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build' + cp -a build/full /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+ + rm -f /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/doc/clisp/doc/clisp.dvi /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/doc/clisp/doc/clisp.1 /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/doc/clisp/doc/clisp.ps + rm -f /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/doc/clisp/COPYRIGHT /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/doc/clisp/GNU-GPL + cp -p doc/mop-spec.pdf /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/doc/clisp/doc + cp -p doc/clisp.png doc/mop-classes-all.png doc/mop-classes-class.png doc/mop-classes-genfun.png doc/mop-classes-methcomb.png doc/mop-classes-method.png doc/mop-classes-slotdef.png doc/mop-classes-specializer.png doc/mop-classes.png /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/doc/clisp/doc + cp -p doc/Why-CLISP-is-under-GPL /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/doc/clisp/doc + cp -p doc/regexp.html /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/doc/clisp/doc + find /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64 -name '*.dvi' -exec rm -f '{}' + + /usr/lib/rpm/find-lang.sh /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64 clisp + /usr/lib/rpm/find-lang.sh /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64 clisplow + cat clisplow.lang + pushd /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/emacs/site-lisp ~/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/emacs/site-lisp ~/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa + /usr/bin/emacs -batch --no-init-file --no-site-file --eval '(progn (setq load-path (cons "." load-path)))' -f batch-byte-compile clhs.el clisp-coding.el clisp-ffi.el clisp-indent.el In toplevel form: clhs.el:45:16:Warning: assignment to free variable `clhs-symbols' + popd ~/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa + cp -p config.rpath.orig /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/build-aux/config.rpath + chmod a+x /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/build-aux/config.guess /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/build-aux/config.sub /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/build-aux/depcomp /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/build-aux/install-sh ++ find /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64 -name Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64 -name Makefile) + sed -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/pari/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64 -name Makefile) + sed -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/pcre/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64 -name Makefile) + sed -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/zlib/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64 -name Makefile) + sed -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/rawsock/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64 -name Makefile) + sed -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/clx/new-clx/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64 -name Makefile) + sed -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/postgresql/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64 -name Makefile) + sed -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/libsvm/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64 -name Makefile) + sed -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/asdf/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64 -name Makefile) + sed -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/fastcgi/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64 -name Makefile) + sed -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/berkeley-db/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64 -name Makefile) + sed -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/bindings/glibc/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64 -name Makefile) + sed -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/gdbm/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64 -name Makefile) + sed -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dbus/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64 -name Makefile) + sed -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/gtk2/Makefile + for mk in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/{base,full}/makevars + sed -e 's, -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa[^'\'']*,,' -e 's,/usr/lib64/lib\([[:alnum:]]*\)\.so,-l\1,g' -i /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/base/makevars + for mk in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/{base,full}/makevars + sed -e 's, -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa[^'\'']*,,' -e 's,/usr/lib64/lib\([[:alnum:]]*\)\.so,-l\1,g' -i /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/full/makevars + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/asdf + cp -p build/asdf/config.h /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/asdf cp: cannot stat 'build/asdf/config.h': No such file or directory + : + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/base + cp -p build/base/config.h /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/base cp: cannot stat 'build/base/config.h': No such file or directory + : + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/berkeley-db + cp -p build/berkeley-db/config.h /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/berkeley-db + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/bindings + cp -p build/bindings/config.h /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/bindings cp: cannot stat 'build/bindings/config.h': No such file or directory + : + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/build-aux + cp -p build/build-aux/config.h /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/build-aux cp: cannot stat 'build/build-aux/config.h': No such file or directory + : + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/clx + cp -p build/clx/config.h /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/clx cp: cannot stat 'build/clx/config.h': No such file or directory + : + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/data + cp -p build/data/config.h /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/data cp: cannot stat 'build/data/config.h': No such file or directory + : + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dbus + cp -p build/dbus/config.h /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dbus + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dynmod + cp -p build/dynmod/config.h /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dynmod cp: cannot stat 'build/dynmod/config.h': No such file or directory + : + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/fastcgi + cp -p build/fastcgi/config.h /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/fastcgi + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/full + cp -p build/full/config.h /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/full cp: cannot stat 'build/full/config.h': No such file or directory + : + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/gdbm + cp -p build/gdbm/config.h /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/gdbm + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/gtk2 + cp -p build/gtk2/config.h /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/gtk2 + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/libsvm + cp -p build/libsvm/config.h /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/libsvm + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/linkkit + cp -p build/linkkit/config.h /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/linkkit cp: cannot stat 'build/linkkit/config.h': No such file or directory + : + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/pari + cp -p build/pari/config.h /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/pari + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/pcre + cp -p build/pcre/config.h /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/pcre + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/postgresql + cp -p build/postgresql/config.h /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/postgresql + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/rawsock + cp -p build/rawsock/config.h /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/rawsock + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/zlib + cp -p build/zlib/config.h /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/zlib + cp -p build/config.h /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+ + cp -p build/clx/new-clx/config.h /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/clx/new-clx + chmod 0755 /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/bin/clisp + chmod 0755 /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/full/lisp.run + pushd /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/full ~/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/full ~/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa + for obj in bogomips calls gettext readline regexi + rm -f bogomips.o + ln -s ../base/bogomips.o bogomips.o + for obj in bogomips calls gettext readline regexi + rm -f calls.o + ln -s ../base/calls.o calls.o + for obj in bogomips calls gettext readline regexi + rm -f gettext.o + ln -s ../base/gettext.o gettext.o + for obj in bogomips calls gettext readline regexi + rm -f readline.o + ln -s ../base/readline.o readline.o + for obj in bogomips calls gettext readline regexi + rm -f regexi.o + ln -s ../base/regexi.o regexi.o + for obj in libgnu libnoreadline lisp + rm -f libgnu.a + ln -s ../base/libgnu.a libgnu.a + for obj in libgnu libnoreadline lisp + rm -f libnoreadline.a + ln -s ../base/libnoreadline.a libnoreadline.a + for obj in libgnu libnoreadline lisp + rm -f lisp.a + ln -s ../base/lisp.a lisp.a + for obj in fastcgi fastcgi_wrappers + rm -f fastcgi.o + ln -s ../fastcgi/fastcgi.o fastcgi.o + for obj in fastcgi fastcgi_wrappers + rm -f fastcgi_wrappers.o + ln -s ../fastcgi/fastcgi_wrappers.o fastcgi_wrappers.o + rm -f 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 cpcre.o + ln -s ../pcre/cpcre.o cpcre.o + rm -f dbus.o + ln -s ../dbus/dbus.o dbus.o + rm -f gdbm.o + ln -s ../gdbm/gdbm.o gdbm.o + rm -f 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 ~/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa + popd + ln -s ../../src/modules.c build/base/modules.c + ln -s ../../src/modules.c build/full/modules.c + /usr/lib/rpm/find-debuginfo.sh -j4 --strict-build-id -m -i --build-id-seed 2.49.93-14.c26de78git.fc33 --unique-debug-suffix -2.49.93-14.c26de78git.fc33.riscv64 --unique-debug-src-base clisp-2.49.93-14.c26de78git.fc33.riscv64 --run-dwz --dwz-low-mem-die-limit 10000000 --dwz-max-die-limit 50000000 -S debugsourcefiles.list /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa explicitly decompress any DWARF compressed ELF sections in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/bin/clisp explicitly decompress any DWARF compressed ELF sections in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/base/lisp.run explicitly decompress any DWARF compressed ELF sections in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dynmod/lib-bdb.so explicitly decompress any DWARF compressed ELF sections in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dynmod/lib-clx.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/bin/clisp extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/base/lisp.run extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dynmod/lib-bdb.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dynmod/lib-clx.so explicitly decompress any DWARF compressed ELF sections in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dynmod/lib-dbus.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dynmod/lib-dbus.so explicitly decompress any DWARF compressed ELF sections in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dynmod/lib-fastcgi.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dynmod/lib-fastcgi.so explicitly decompress any DWARF compressed ELF sections in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dynmod/lib-gdbm.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dynmod/lib-gdbm.so explicitly decompress any DWARF compressed ELF sections in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dynmod/lib-gtk.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dynmod/lib-gtk.so explicitly decompress any DWARF compressed ELF sections in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dynmod/lib-libsvm.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dynmod/lib-libsvm.so explicitly decompress any DWARF compressed ELF sections in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dynmod/lib-linux.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dynmod/lib-linux.so explicitly decompress any DWARF compressed ELF sections in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dynmod/lib-pari.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dynmod/lib-pari.so explicitly decompress any DWARF compressed ELF sections in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dynmod/lib-pcre.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dynmod/lib-pcre.so explicitly decompress any DWARF compressed ELF sections in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dynmod/lib-postgresql.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dynmod/lib-postgresql.so explicitly decompress any DWARF compressed ELF sections in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dynmod/lib-rawsock.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dynmod/lib-rawsock.so explicitly decompress any DWARF compressed ELF sections in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dynmod/lib-zlib.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/dynmod/lib-zlib.so explicitly decompress any DWARF compressed ELF sections in /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/full/lisp.run extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/lib64/clisp-2.49.93+/full/lisp.run original debug info size: 24972kB, size after compression: 19388kB /usr/lib/rpm/sepdebugcrcfix: Updated 16 CRC32s, 0 CRC32s did match. cpio: build/src/kernel/none/level1.h: Cannot stat: No such file or directory 19487 blocks + /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/redhat/brp-python-bytecompile '' 1 0 + /usr/lib/rpm/brp-python-hardlink + /usr/lib/rpm/redhat/brp-mangle-shebangs mangling shebang in /usr/bin/clisp-link 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/lib64/clisp-2.49.93+/build-aux/config.sub from /bin/sh to #!/usr/bin/sh 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/install-sh from /bin/sh to #!/usr/bin/sh mangling shebang in /usr/lib64/clisp-2.49.93+/build-aux/config.guess from /bin/sh to #!/usr/bin/sh Processing files: clisp-2.49.93-14.c26de78git.fc33.riscv64 Executing(%license): /bin/sh -e /var/tmp/rpm-tmp.iyJrVN + umask 022 + cd /builddir/build/BUILD + cd clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa + LICENSEDIR=/builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/licenses/clisp + export LC_ALL=C + LC_ALL=C + export LICENSEDIR + /usr/bin/mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/licenses/clisp + cp -pr COPYRIGHT /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/licenses/clisp + cp -pr GNU-GPL /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/licenses/clisp + RPM_EC=0 ++ jobs -p + exit 0 Provides: bundled(gnulib) clisp = 2.49.93-14.c26de78git.fc33 clisp(riscv-64) = 2.49.93-14.c26de78git.fc33 lib-bdb.so()(64bit) lib-clx.so()(64bit) lib-dbus.so()(64bit) lib-fastcgi.so()(64bit) lib-gdbm.so()(64bit) lib-gtk.so()(64bit) lib-libsvm.so()(64bit) lib-linux.so()(64bit) lib-pari.so()(64bit) lib-pcre.so()(64bit) lib-postgresql.so()(64bit) lib-rawsock.so()(64bit) lib-zlib.so()(64bit) Requires(rpmlib): rpmlib(CompressedFileNames) <= 3.0.4-1 rpmlib(FileDigests) <= 4.6.0-1 rpmlib(PayloadFilesHavePrefix) <= 4.0-1 Requires: ld-linux-riscv64-lp64d.so.1()(64bit) ld-linux-riscv64-lp64d.so.1(GLIBC_2.27)(64bit) libICE.so.6()(64bit) libSM.so.6()(64bit) libX11.so.6()(64bit) libXau.so.6()(64bit) libXext.so.6()(64bit) libXpm.so.4()(64bit) libatk-1.0.so.0()(64bit) libc.so.6()(64bit) libc.so.6(GLIBC_2.27)(64bit) libcairo.so.2()(64bit) libcrypt.so.2()(64bit) libcrypt.so.2(XCRYPT_2.0)(64bit) libdb-5.3.so()(64bit) libdbus-1.so.3()(64bit) libdbus-1.so.3(LIBDBUS_1_3)(64bit) libdl.so.2()(64bit) libdl.so.2(GLIBC_2.27)(64bit) libfcgi.so.0()(64bit) libffcall.so.0()(64bit) libfontconfig.so.1()(64bit) libfreetype.so.6()(64bit) libgcc_s.so.1()(64bit) libgcc_s.so.1(GCC_3.0)(64bit) libgcc_s.so.1(GCC_3.3.1)(64bit) libgdbm.so.6()(64bit) libgdk-x11-2.0.so.0()(64bit) libgdk_pixbuf-2.0.so.0()(64bit) libgio-2.0.so.0()(64bit) libglade-2.0.so.0()(64bit) libglib-2.0.so.0()(64bit) libgobject-2.0.so.0()(64bit) libgtk-x11-2.0.so.0()(64bit) libharfbuzz.so.0()(64bit) libm.so.6()(64bit) libm.so.6(GLIBC_2.27)(64bit) libpango-1.0.so.0()(64bit) libpangocairo-1.0.so.0()(64bit) libpangoft2-1.0.so.0()(64bit) libpari-gmp.so.6()(64bit) libpcre.so.1()(64bit) libpq.so.5()(64bit) libpq.so.5(RHPG_9.6)(64bit) libreadline.so.8()(64bit) libsigsegv.so.2()(64bit) libsvm.so.2()(64bit) libtinfo.so.6()(64bit) libunistring.so.2()(64bit) libxml2.so.2()(64bit) libz.so.1()(64bit) libz.so.1(ZLIB_1.2.0)(64bit) rtld(GNU_HASH) Processing files: clisp-devel-2.49.93-14.c26de78git.fc33.riscv64 Executing(%doc): /bin/sh -e /var/tmp/rpm-tmp.0DPPDO + umask 022 + cd /builddir/build/BUILD + cd clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa + DOCDIR=/builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/doc/clisp-devel + export LC_ALL=C + LC_ALL=C + export DOCDIR + /usr/bin/mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/doc/clisp-devel + cp -pr modules/clx/clx-manual /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64/usr/share/doc/clisp-devel + RPM_EC=0 ++ jobs -p + exit 0 warning: absolute symlink: /usr/lib64/clisp-2.49.93+/full/cpari.o -> /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pari/cpari.o warning: absolute symlink: /usr/lib64/clisp-2.49.93+/full/pari.o -> /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/pari/pari.o Provides: clisp-devel = 2.49.93-14.c26de78git.fc33 clisp-devel(riscv-64) = 2.49.93-14.c26de78git.fc33 clisp-static = 2.49.93-14.c26de78git.fc33 Requires(rpmlib): rpmlib(CompressedFileNames) <= 3.0.4-1 rpmlib(FileDigests) <= 4.6.0-1 rpmlib(PayloadFilesHavePrefix) <= 4.0-1 Requires: /usr/bin/sh Processing files: clisp-debugsource-2.49.93-14.c26de78git.fc33.riscv64 Provides: clisp-debugsource = 2.49.93-14.c26de78git.fc33 clisp-debugsource(riscv-64) = 2.49.93-14.c26de78git.fc33 Requires(rpmlib): rpmlib(CompressedFileNames) <= 3.0.4-1 rpmlib(FileDigests) <= 4.6.0-1 rpmlib(PayloadFilesHavePrefix) <= 4.0-1 Processing files: clisp-debuginfo-2.49.93-14.c26de78git.fc33.riscv64 Provides: clisp-debuginfo = 2.49.93-14.c26de78git.fc33 clisp-debuginfo(riscv-64) = 2.49.93-14.c26de78git.fc33 debuginfo(build-id) = 08c1609d76b704403ef2797ca9e18456335e0aed debuginfo(build-id) = 1122f44fcc8fa7be666e492dc4198b959276e980 debuginfo(build-id) = 14077273336bbc785a6bc8bef97829c5e7b98097 debuginfo(build-id) = 3aa2eb85ccd2b2f595c15cb6e02d52b8fe6ef4db debuginfo(build-id) = 4096ef7a7fd79b00036c8caac56f66669bea5a22 debuginfo(build-id) = 55ade9bb6cfa9e94c52749557b8cfe1059ba83a7 debuginfo(build-id) = 6231c9ba4d56bd3038dfccfb2215f8032691255f debuginfo(build-id) = 6ae63a9c42ed07ef8806513a35ea15098125c7a5 debuginfo(build-id) = 7774d13236952f67abbc3a30a543bdd648a9d49f debuginfo(build-id) = 86eb052d7afcbd53166f58c938747d27c82b83ee debuginfo(build-id) = a8f44b67310fbe589bf858ffc8eaed016be86bc5 debuginfo(build-id) = b1a715bb7b0408db08888b7f227e33b6772a1632 debuginfo(build-id) = c48b32c4f243c014ad6f1a0c52adaf4b598ece65 debuginfo(build-id) = dc4a34b19c1a46c0d41a51a8668a6b95d6e18141 debuginfo(build-id) = e0e81d51e0be52700daf11b211dc5b8bec909415 debuginfo(build-id) = f19fd09c2507ff1488250fa61b30806ce5684025 Requires(rpmlib): rpmlib(CompressedFileNames) <= 3.0.4-1 rpmlib(FileDigests) <= 4.6.0-1 rpmlib(PayloadFilesHavePrefix) <= 4.0-1 Recommends: clisp-debugsource(riscv-64) = 2.49.93-14.c26de78git.fc33 Checking for unpackaged file(s): /usr/lib/rpm/check-files /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64 Wrote: /builddir/build/RPMS/clisp-debugsource-2.49.93-14.c26de78git.fc33.riscv64.rpm Wrote: /builddir/build/RPMS/clisp-debuginfo-2.49.93-14.c26de78git.fc33.riscv64.rpm Wrote: /builddir/build/RPMS/clisp-2.49.93-14.c26de78git.fc33.riscv64.rpm Wrote: /builddir/build/RPMS/clisp-devel-2.49.93-14.c26de78git.fc33.riscv64.rpm Executing(%clean): /bin/sh -e /var/tmp/rpm-tmp.x1UR4Q + umask 022 + cd /builddir/build/BUILD + cd clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa + /usr/bin/rm -rf /builddir/build/BUILDROOT/clisp-2.49.93-14.c26de78git.fc33.riscv64 + RPM_EC=0 ++ jobs -p + exit 0 Child return code was: 0