Mock Version: 2.6 Mock Version: 2.6 Mock Version: 2.6 ENTER ['do_with_status'](['bash', '--login', '-c', '/usr/bin/rpmbuild -bs --target x86_64 --nodeps /builddir/build/SPECS/clisp.spec'], chrootPath='/var/lib/mock/f32-build-side-33983-24005358-2414844/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': 'C.UTF-8'}shell=Falselogger=timeout=201600uid=1000gid=425user='mockbuild'nspawn_args=[]unshare_net=TrueprintOutput=False) Executing command: ['bash', '--login', '-c', '/usr/bin/rpmbuild -bs --target x86_64 --nodeps /builddir/build/SPECS/clisp.spec'] with env {'TERM': 'vt100', 'SHELL': '/bin/bash', 'HOME': '/builddir', 'HOSTNAME': 'mock', 'PATH': '/usr/bin:/bin:/usr/sbin:/sbin', 'PROMPT_COMMAND': 'printf "\\033]0;\\007"', 'PS1': ' \\s-\\v\\$ ', 'LANG': 'C.UTF-8'} and shell False Building target platforms: x86_64 Building for target x86_64 setting SOURCE_DATE_EPOCH=1605139200 Wrote: /builddir/build/SRPMS/clisp-2.49.93-12.c26de78git.fc32.src.rpm Child return code was: 0 ENTER ['do_with_status'](['bash', '--login', '-c', '/usr/bin/rpmbuild -bb --target x86_64 --nodeps /builddir/build/SPECS/clisp.spec'], chrootPath='/var/lib/mock/f32-build-side-33983-24005358-2414844/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': 'C.UTF-8'}shell=Falselogger=timeout=201600uid=1000gid=425user='mockbuild'nspawn_args=[]unshare_net=TrueprintOutput=False) Executing command: ['bash', '--login', '-c', '/usr/bin/rpmbuild -bb --target x86_64 --nodeps /builddir/build/SPECS/clisp.spec'] with env {'TERM': 'vt100', 'SHELL': '/bin/bash', 'HOME': '/builddir', 'HOSTNAME': 'mock', 'PATH': '/usr/bin:/bin:/usr/sbin:/sbin', 'PROMPT_COMMAND': 'printf "\\033]0;\\007"', 'PS1': ' \\s-\\v\\$ ', 'LANG': 'C.UTF-8'} and shell False Building target platforms: x86_64 Building for target x86_64 setting SOURCE_DATE_EPOCH=1605139200 Executing(%prep): /bin/sh -e /var/tmp/rpm-tmp.4rfJyW + 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.0Aq5gX + 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' executing ../src/configure --prefix=/usr --libdir=/usr/lib64 --mandir=/usr/share/man --infodir=/usr/share/info --docdir=/usr/share/doc/clisp --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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack configure: creating cache config.cache checking 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... x86_64-pc-linux-gnu checking host system type... x86_64-pc-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 x86_64-pc-linux-gnu file names to x86_64-pc-linux-gnu format... func_convert_file_noop checking how to convert x86_64-pc-linux-gnu file names to toolchain format... func_convert_file_noop checking for /usr/bin/ld option to reload object files... -r checking for objdump... objdump checking how to recognize dependent libraries... pass_all checking for dlltool... 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 -m elf_x86_64) supports shared libraries... yes checking whether -lc should be explicitly linked in... no checking dynamic linker characteristics... GNU/Linux ld.so checking how to hardcode library paths into programs... immediate checking whether stripping libraries is possible... yes checking if libtool supports shared libraries... yes checking whether to build shared libraries... yes checking whether to build static libraries... yes checking for groff... groff checking for ps2pdf... ps2pdf checking for gzip... gzip configure: ** checks for system features checking for special C compiler options needed for large files... (cached) no checking for _FILE_OFFSET_BITS value needed for large files... (cached) no checking whether using GNU C... yes checking whether using SUNPRO C... no checking whether using C++... no checking whether CPP likes empty macro arguments... yes checking whether C symbols are prefixed with underscore at the linker level... no checking whether CC works at all... yes configure: ** check for add-ons checking 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... x86_64 checking for shared library run path origin... done checking for the common suffixes of directories in the library search path... lib64,lib64 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 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... /usr/lib64/libsigsegv.so checking whether to use the included libunistring... no checking for __xpg4... no checking whether link(2) dereferences a symlink... no checking whether 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... /usr/lib64/libffcall.so 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... 0x0000000001000000 checking for the shared library address range... 0x000014D458000000 checking for the stack address range... 0x00007FFEE6000000 checking for usable vadvise... no checking for vm_allocate... no checking for sys/mman.h... (cached) yes checking for mmap... (cached) yes checking for mmap at fixed addresses... yes (MAP_ANON,MAP_ANONYMOUS,/dev/zero) checking for highest bit number which can be included in mmaped addresses... 46 checking for mincore... yes checking for munmap... yes checking for mprotect... (cached) yes checking for working mprotect... 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... no checking whether single-float divbyzero raises an exception... no checking whether single-float overflow raises an exception... no checking whether single-float underflow raises an exception... no checking whether single-float inexact raises an exception... no checking whether double-float divbyzero raises an exception... no checking whether double-float overflow raises an exception... no checking whether double-float underflow raises an exception... no checking whether double-float inexact raises an exception... no checking for integer types and behaviour... created intparam.h checking for floating-point types and behaviour... created floatparam.h configure: ** output file generation configure: updating cache config.cache checking that generated files are newer than configure... done configure: creating ./config.status config.status: creating po/Makefile.in config.status: creating gllib/Makefile config.status: creating makemake config.status: creating config.h config.status: executing depfiles commands config.status: executing libtool commands config.status: executing po-directories commands config.status: creating po/POTFILES config.status: creating po/Makefile ===> /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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 'x86_64-pc-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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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:1037: ../src/spvw_fault.d: In function ‘handle_fault’: ../src/spvw_fault.d:128:12: warning: unused variable ‘obj’ [-Wunused-variable] 128 | var object obj = as_object((oint)address << oint_addr_shift); | ^~~ In file included from ../src/spvw.d:1037: ../src/spvw_fault.d:208:8: warning: label ‘error8’ defined but not used [-Wunused-label] 208 | error8: /* fault on a read-write page */ | ^~~~~~ 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_garcol.d:35, from ../src/spvw.d:1068: ../src/spvw_genera1.d: In function ‘build_old_generation_cache’: ../src/spvw_genera1.d:473:7: warning: label ‘prot_finished’ defined but not used [-Wunused-label] 473 | prot_finished: | ^~~~~~~~~~~~~ In file included from ../src/spvw_garcol.d:35, from ../src/spvw.d:1068: ../src/spvw_genera1.d:454:7: warning: label ‘all_ro’ defined but not used [-Wunused-label] 454 | all_ro: | ^~~~~~ In file included from ../src/spvw_garcol.d:35, from ../src/spvw.d:1068: ../src/spvw_genera1.d:356:74: warning: unused parameter ‘rwarea’ [-Wunused-parameter] 356 | local void build_old_generation_cache (uintL heapnr, varobj_mem_region *rwarea) | ~~~~~~~~~~~~~~~~~~~^~~~~~ In file included from ../src/spvw_garcol.d:1368, from ../src/spvw.d:1068: ../src/spvw_genera3.d: In function ‘update_old_generation’: ../src/spvw_genera3.d:79:13: warning: label ‘update_all’ defined but not used [-Wunused-label] 79 | update_all: | ^~~~~~~~~~ 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 */ | ^~~~ In file included from ../src/spvw.d:1047: ../src/spvw_sigsegv.d: In function ‘sigsegv_handler’: ../src/spvw_sigsegv.d:79:10: warning: this statement may fall through [-Wimplicit-fallthrough=] 79 | if (serious) | ^ ../src/spvw_sigsegv.d:82:5: note: here 82 | default: | ^~~~~~~ ../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) { | ^~~~~~~~~~~ ../src/spvw.d: In function ‘main_actions’: ../src/spvw.d:3891:13: warning: variable ‘count’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered] 3891 | var uintL count = p->argv_init_filecount; | ^~~~~ ../src/spvw.d:3909:36: warning: variable ‘fileptr’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered] 3909 | var const argv_compile_file_t* fileptr = &p->argv_compile_files[0]; | ^~~~~~~ ../src/spvw.d:3910:15: warning: variable ‘count’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered] 3910 | var uintL count = p->argv_compile_filecount; | ^~~~~ gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 ‘eval_no_hooks’: ../src/eval.d:3028:31: warning: argument ‘form’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered] 3028 | global maygc Values eval_no_hooks (object form) { | ~~~~~~~^~~~ ../src/eval.d: In function ‘invoke_handlers’: ../src/eval.d:711:20: warning: variable ‘other_ranges’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered] 711 | var stack_range_t* other_ranges = inactive_handlers; | ^~~~~~~~~~~~ ../src/eval.d:714:19: warning: variable ‘FRAME’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered] 714 | var gcv_object_t* FRAME = STACK; | ^~~~~ ../src/eval.d:728:17: warning: variable ‘i’ might be clobbered by ‘longjmp’ or ‘vfork’ [-Wclobbered] 728 | var uintL i = 0; | ^ gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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: { | ^~~~~~~~~~~~~~~~~~~ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 */ | ^~ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -falign-functions=8 -c hashtabl.c In file included from ../src/hashtabl.d:8: ../src/lispbibl.d: In function ‘schar’: ../src/lispbibl.d: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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 | ^~~ 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 | ^~~ 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); | ^ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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, { | ^ echo '/* generated from Makefile */' > cflags.h.new echo '#define CC "gcc"' >> cflags.h.new echo '#define CFLAGS "-O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl "' >> cflags.h.new echo '#define CPPFLAGS "-I/usr/include/libsvm -I/builddir/build/BUILD/clisp-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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl -o lisp.run ./lisp.run -marc > marc.out ./lisp.run -B . -N locale -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -m 2MW -lp ../src/ -x '(and (load "../src/init.lisp") (sys::%saveinitmem) (ext::exit)) (ext::exit t)' Warning: reserving address range 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xeac000 - 0xeccfff 0x100000000000 - 0x1000000bffff 0x14b541dea000 - 0x14b54248efff 0x14b54248f000 - 0x14b5424e2fff 0x14b5424e3000 - 0x14b5424e5fff 0x14b5424e6000 - 0x14b54250afff 0x14b54250b000 - 0x14b54265afff 0x14b54265b000 - 0x14b5426a5fff 0x14b5426a6000 - 0x14b5426a8fff 0x14b5426a9000 - 0x14b5426abfff 0x14b5426ac000 - 0x14b5426affff 0x14b5426b0000 - 0x14b5426b2fff 0x14b5426b3000 - 0x14b5426c4fff 0x14b5426c5000 - 0x14b5426c8fff 0x14b5426c9000 - 0x14b5426c9fff 0x14b5426ca000 - 0x14b5426cafff 0x14b5426cb000 - 0x14b5426ccfff 0x14b5426cd000 - 0x14b5426ddfff 0x14b5426de000 - 0x14b542715fff 0x14b542716000 - 0x14b54284cfff 0x14b54284d000 - 0x14b542850fff 0x14b542851000 - 0x14b542851fff 0x14b542852000 - 0x14b542852fff 0x14b542853000 - 0x14b542854fff 0x14b542855000 - 0x14b542855fff 0x14b542856000 - 0x14b542856fff 0x14b542857000 - 0x14b542857fff 0x14b542858000 - 0x14b542859fff 0x14b54285a000 - 0x14b54285cfff 0x14b54285d000 - 0x14b54285dfff 0x14b54285e000 - 0x14b54285efff 0x14b54285f000 - 0x14b54285ffff 0x14b542860000 - 0x14b542861fff 0x14b542862000 - 0x14b542863fff 0x14b542864000 - 0x14b542864fff 0x14b542865000 - 0x14b542865fff 0x14b542866000 - 0x14b542866fff 0x14b542867000 - 0x14b542874fff 0x14b542875000 - 0x14b542882fff 0x14b542883000 - 0x14b542890fff 0x14b542891000 - 0x14b542894fff 0x14b542895000 - 0x14b542895fff 0x14b542896000 - 0x14b5428abfff 0x14b5428ac000 - 0x14b5428d7fff 0x14b5428d8000 - 0x14b5428e0fff 0x14b5428e1000 - 0x14b5428e1fff 0x14b5428e2000 - 0x14b5428e4fff 0x14b5428e5000 - 0x14b5428eafff 0x14b5428eb000 - 0x14b5428edfff 0x14b5428f0000 - 0x14b5428f0fff 0x14b5428f1000 - 0x14b5428f1fff 0x14b5428f2000 - 0x14b5428f8fff 0x14b5428f9000 - 0x14b5428fafff 0x14b5428fb000 - 0x14b54291bfff 0x14b54291c000 - 0x14b542923fff 0x14b542924000 - 0x14b542924fff 0x14b542925000 - 0x14b542925fff 0x14b542926000 - 0x14b542926fff 0x14b542927000 - 0x14b542927fff 0x7ffdcfcd9000 - 0x7ffdcfcf9fff 0x7ffdcfd1c000 - 0x7ffdcfd1ffff 0x7ffdcfd20000 - 0x7ffdcfd21fff 0xffffffffff600000 - 0xffffffffff600fff 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,363,248 Bytes available until next GC: 2,590,812 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x190d000 - 0x192dfff 0x100000000000 - 0x1000000bffff 0x147269a6d000 - 0x14726a111fff 0x14726a112000 - 0x14726a165fff 0x14726a166000 - 0x14726a168fff 0x14726a169000 - 0x14726a18dfff 0x14726a18e000 - 0x14726a2ddfff 0x14726a2de000 - 0x14726a328fff 0x14726a329000 - 0x14726a32bfff 0x14726a32c000 - 0x14726a32efff 0x14726a32f000 - 0x14726a332fff 0x14726a333000 - 0x14726a335fff 0x14726a336000 - 0x14726a347fff 0x14726a348000 - 0x14726a34bfff 0x14726a34c000 - 0x14726a34cfff 0x14726a34d000 - 0x14726a34dfff 0x14726a34e000 - 0x14726a34ffff 0x14726a350000 - 0x14726a360fff 0x14726a361000 - 0x14726a398fff 0x14726a399000 - 0x14726a4cffff 0x14726a4d0000 - 0x14726a4d3fff 0x14726a4d4000 - 0x14726a4d4fff 0x14726a4d5000 - 0x14726a4d5fff 0x14726a4d6000 - 0x14726a4d7fff 0x14726a4d8000 - 0x14726a4d8fff 0x14726a4d9000 - 0x14726a4d9fff 0x14726a4da000 - 0x14726a4dafff 0x14726a4db000 - 0x14726a4dcfff 0x14726a4dd000 - 0x14726a4dffff 0x14726a4e0000 - 0x14726a4e0fff 0x14726a4e1000 - 0x14726a4e1fff 0x14726a4e2000 - 0x14726a4e2fff 0x14726a4e3000 - 0x14726a4e4fff 0x14726a4e5000 - 0x14726a4e6fff 0x14726a4e7000 - 0x14726a4e7fff 0x14726a4e8000 - 0x14726a4e8fff 0x14726a4e9000 - 0x14726a4e9fff 0x14726a4ea000 - 0x14726a4f7fff 0x14726a4f8000 - 0x14726a505fff 0x14726a506000 - 0x14726a513fff 0x14726a514000 - 0x14726a517fff 0x14726a518000 - 0x14726a518fff 0x14726a519000 - 0x14726a52efff 0x14726a52f000 - 0x14726a55afff 0x14726a55b000 - 0x14726a563fff 0x14726a564000 - 0x14726a564fff 0x14726a565000 - 0x14726a567fff 0x14726a568000 - 0x14726a56dfff 0x14726a56e000 - 0x14726a570fff 0x14726a573000 - 0x14726a573fff 0x14726a574000 - 0x14726a574fff 0x14726a575000 - 0x14726a57bfff 0x14726a57c000 - 0x14726a57dfff 0x14726a57e000 - 0x14726a59efff 0x14726a59f000 - 0x14726a5a6fff 0x14726a5a7000 - 0x14726a5a7fff 0x14726a5a8000 - 0x14726a5a8fff 0x14726a5a9000 - 0x14726a5a9fff 0x14726a5aa000 - 0x14726a5aafff 0x7ffe64b99000 - 0x7ffe64bb9fff 0x7ffe64bf4000 - 0x7ffe64bf7fff 0x7ffe64bf8000 - 0x7ffe64bf9fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1542000 - 0x1562fff 0x100000000000 - 0x1000000bffff 0x15265b8f2000 - 0x15265bf96fff 0x15265bf97000 - 0x15265bfeafff 0x15265bfeb000 - 0x15265bfedfff 0x15265bfee000 - 0x15265c012fff 0x15265c013000 - 0x15265c162fff 0x15265c163000 - 0x15265c1adfff 0x15265c1ae000 - 0x15265c1b0fff 0x15265c1b1000 - 0x15265c1b3fff 0x15265c1b4000 - 0x15265c1b7fff 0x15265c1b8000 - 0x15265c1bafff 0x15265c1bb000 - 0x15265c1ccfff 0x15265c1cd000 - 0x15265c1d0fff 0x15265c1d1000 - 0x15265c1d1fff 0x15265c1d2000 - 0x15265c1d2fff 0x15265c1d3000 - 0x15265c1d4fff 0x15265c1d5000 - 0x15265c1e5fff 0x15265c1e6000 - 0x15265c21dfff 0x15265c21e000 - 0x15265c354fff 0x15265c355000 - 0x15265c358fff 0x15265c359000 - 0x15265c359fff 0x15265c35a000 - 0x15265c35afff 0x15265c35b000 - 0x15265c35cfff 0x15265c35d000 - 0x15265c35dfff 0x15265c35e000 - 0x15265c35efff 0x15265c35f000 - 0x15265c35ffff 0x15265c360000 - 0x15265c361fff 0x15265c362000 - 0x15265c364fff 0x15265c365000 - 0x15265c365fff 0x15265c366000 - 0x15265c366fff 0x15265c367000 - 0x15265c367fff 0x15265c368000 - 0x15265c369fff 0x15265c36a000 - 0x15265c36bfff 0x15265c36c000 - 0x15265c36cfff 0x15265c36d000 - 0x15265c36dfff 0x15265c36e000 - 0x15265c36efff 0x15265c36f000 - 0x15265c37cfff 0x15265c37d000 - 0x15265c38afff 0x15265c38b000 - 0x15265c398fff 0x15265c399000 - 0x15265c39cfff 0x15265c39d000 - 0x15265c39dfff 0x15265c39e000 - 0x15265c3b3fff 0x15265c3b4000 - 0x15265c3dffff 0x15265c3e0000 - 0x15265c3e8fff 0x15265c3e9000 - 0x15265c3e9fff 0x15265c3ea000 - 0x15265c3ecfff 0x15265c3ed000 - 0x15265c3f2fff 0x15265c3f3000 - 0x15265c3f5fff 0x15265c3f8000 - 0x15265c3f8fff 0x15265c3f9000 - 0x15265c3f9fff 0x15265c3fa000 - 0x15265c400fff 0x15265c401000 - 0x15265c402fff 0x15265c403000 - 0x15265c423fff 0x15265c424000 - 0x15265c42bfff 0x15265c42c000 - 0x15265c42cfff 0x15265c42d000 - 0x15265c42dfff 0x15265c42e000 - 0x15265c42efff 0x15265c42f000 - 0x15265c42ffff 0x7ffdd1670000 - 0x7ffdd1690fff 0x7ffdd16d7000 - 0x7ffdd16dafff 0x7ffdd16db000 - 0x7ffdd16dcfff 0xffffffffff600000 - 0xffffffffff600fff 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,911,920 Bytes available until next GC: 2,227,980 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xafd000 - 0xb1dfff 0x100000000000 - 0x1000000bffff 0x148d496e6000 - 0x148d49d8afff 0x148d49d8b000 - 0x148d49ddefff 0x148d49ddf000 - 0x148d49de1fff 0x148d49de2000 - 0x148d49e06fff 0x148d49e07000 - 0x148d49f56fff 0x148d49f57000 - 0x148d49fa1fff 0x148d49fa2000 - 0x148d49fa4fff 0x148d49fa5000 - 0x148d49fa7fff 0x148d49fa8000 - 0x148d49fabfff 0x148d49fac000 - 0x148d49faefff 0x148d49faf000 - 0x148d49fc0fff 0x148d49fc1000 - 0x148d49fc4fff 0x148d49fc5000 - 0x148d49fc5fff 0x148d49fc6000 - 0x148d49fc6fff 0x148d49fc7000 - 0x148d49fc8fff 0x148d49fc9000 - 0x148d49fd9fff 0x148d49fda000 - 0x148d4a011fff 0x148d4a012000 - 0x148d4a148fff 0x148d4a149000 - 0x148d4a14cfff 0x148d4a14d000 - 0x148d4a14dfff 0x148d4a14e000 - 0x148d4a14efff 0x148d4a14f000 - 0x148d4a150fff 0x148d4a151000 - 0x148d4a151fff 0x148d4a152000 - 0x148d4a152fff 0x148d4a153000 - 0x148d4a153fff 0x148d4a154000 - 0x148d4a155fff 0x148d4a156000 - 0x148d4a158fff 0x148d4a159000 - 0x148d4a159fff 0x148d4a15a000 - 0x148d4a15afff 0x148d4a15b000 - 0x148d4a15bfff 0x148d4a15c000 - 0x148d4a15dfff 0x148d4a15e000 - 0x148d4a15ffff 0x148d4a160000 - 0x148d4a160fff 0x148d4a161000 - 0x148d4a161fff 0x148d4a162000 - 0x148d4a162fff 0x148d4a163000 - 0x148d4a170fff 0x148d4a171000 - 0x148d4a17efff 0x148d4a17f000 - 0x148d4a18cfff 0x148d4a18d000 - 0x148d4a190fff 0x148d4a191000 - 0x148d4a191fff 0x148d4a192000 - 0x148d4a1a7fff 0x148d4a1a8000 - 0x148d4a1d3fff 0x148d4a1d4000 - 0x148d4a1dcfff 0x148d4a1dd000 - 0x148d4a1ddfff 0x148d4a1de000 - 0x148d4a1e0fff 0x148d4a1e1000 - 0x148d4a1e6fff 0x148d4a1e7000 - 0x148d4a1e9fff 0x148d4a1ec000 - 0x148d4a1ecfff 0x148d4a1ed000 - 0x148d4a1edfff 0x148d4a1ee000 - 0x148d4a1f4fff 0x148d4a1f5000 - 0x148d4a1f6fff 0x148d4a1f7000 - 0x148d4a217fff 0x148d4a218000 - 0x148d4a21ffff 0x148d4a220000 - 0x148d4a220fff 0x148d4a221000 - 0x148d4a221fff 0x148d4a222000 - 0x148d4a222fff 0x148d4a223000 - 0x148d4a223fff 0x7ffe5c422000 - 0x7ffe5c442fff 0x7ffe5c4cb000 - 0x7ffe5c4cefff 0x7ffe5c4cf000 - 0x7ffe5c4d0fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1c64000 - 0x1c84fff 0x100000000000 - 0x1000000bffff 0x153dcd0bc000 - 0x153dcd760fff 0x153dcd761000 - 0x153dcd7b4fff 0x153dcd7b5000 - 0x153dcd7b7fff 0x153dcd7b8000 - 0x153dcd7dcfff 0x153dcd7dd000 - 0x153dcd92cfff 0x153dcd92d000 - 0x153dcd977fff 0x153dcd978000 - 0x153dcd97afff 0x153dcd97b000 - 0x153dcd97dfff 0x153dcd97e000 - 0x153dcd981fff 0x153dcd982000 - 0x153dcd984fff 0x153dcd985000 - 0x153dcd996fff 0x153dcd997000 - 0x153dcd99afff 0x153dcd99b000 - 0x153dcd99bfff 0x153dcd99c000 - 0x153dcd99cfff 0x153dcd99d000 - 0x153dcd99efff 0x153dcd99f000 - 0x153dcd9affff 0x153dcd9b0000 - 0x153dcd9e7fff 0x153dcd9e8000 - 0x153dcdb1efff 0x153dcdb1f000 - 0x153dcdb22fff 0x153dcdb23000 - 0x153dcdb23fff 0x153dcdb24000 - 0x153dcdb24fff 0x153dcdb25000 - 0x153dcdb26fff 0x153dcdb27000 - 0x153dcdb27fff 0x153dcdb28000 - 0x153dcdb28fff 0x153dcdb29000 - 0x153dcdb29fff 0x153dcdb2a000 - 0x153dcdb2bfff 0x153dcdb2c000 - 0x153dcdb2efff 0x153dcdb2f000 - 0x153dcdb2ffff 0x153dcdb30000 - 0x153dcdb30fff 0x153dcdb31000 - 0x153dcdb31fff 0x153dcdb32000 - 0x153dcdb33fff 0x153dcdb34000 - 0x153dcdb35fff 0x153dcdb36000 - 0x153dcdb36fff 0x153dcdb37000 - 0x153dcdb37fff 0x153dcdb38000 - 0x153dcdb38fff 0x153dcdb39000 - 0x153dcdb46fff 0x153dcdb47000 - 0x153dcdb54fff 0x153dcdb55000 - 0x153dcdb62fff 0x153dcdb63000 - 0x153dcdb66fff 0x153dcdb67000 - 0x153dcdb67fff 0x153dcdb68000 - 0x153dcdb7dfff 0x153dcdb7e000 - 0x153dcdba9fff 0x153dcdbaa000 - 0x153dcdbb2fff 0x153dcdbb3000 - 0x153dcdbb3fff 0x153dcdbb4000 - 0x153dcdbb6fff 0x153dcdbb7000 - 0x153dcdbbcfff 0x153dcdbbd000 - 0x153dcdbbffff 0x153dcdbc2000 - 0x153dcdbc2fff 0x153dcdbc3000 - 0x153dcdbc3fff 0x153dcdbc4000 - 0x153dcdbcafff 0x153dcdbcb000 - 0x153dcdbccfff 0x153dcdbcd000 - 0x153dcdbedfff 0x153dcdbee000 - 0x153dcdbf5fff 0x153dcdbf6000 - 0x153dcdbf6fff 0x153dcdbf7000 - 0x153dcdbf7fff 0x153dcdbf8000 - 0x153dcdbf8fff 0x153dcdbf9000 - 0x153dcdbf9fff 0x7ffdc6b9b000 - 0x7ffdc6bbbfff 0x7ffdc6bda000 - 0x7ffdc6bddfff 0x7ffdc6bde000 - 0x7ffdc6bdffff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x228c000 - 0x22acfff 0x100000000000 - 0x1000000bffff 0x1534bb7d3000 - 0x1534bbe77fff 0x1534bbe78000 - 0x1534bbecbfff 0x1534bbecc000 - 0x1534bbecefff 0x1534bbecf000 - 0x1534bbef3fff 0x1534bbef4000 - 0x1534bc043fff 0x1534bc044000 - 0x1534bc08efff 0x1534bc08f000 - 0x1534bc091fff 0x1534bc092000 - 0x1534bc094fff 0x1534bc095000 - 0x1534bc098fff 0x1534bc099000 - 0x1534bc09bfff 0x1534bc09c000 - 0x1534bc0adfff 0x1534bc0ae000 - 0x1534bc0b1fff 0x1534bc0b2000 - 0x1534bc0b2fff 0x1534bc0b3000 - 0x1534bc0b3fff 0x1534bc0b4000 - 0x1534bc0b5fff 0x1534bc0b6000 - 0x1534bc0c6fff 0x1534bc0c7000 - 0x1534bc0fefff 0x1534bc0ff000 - 0x1534bc235fff 0x1534bc236000 - 0x1534bc239fff 0x1534bc23a000 - 0x1534bc23afff 0x1534bc23b000 - 0x1534bc23bfff 0x1534bc23c000 - 0x1534bc23dfff 0x1534bc23e000 - 0x1534bc23efff 0x1534bc23f000 - 0x1534bc23ffff 0x1534bc240000 - 0x1534bc240fff 0x1534bc241000 - 0x1534bc242fff 0x1534bc243000 - 0x1534bc245fff 0x1534bc246000 - 0x1534bc246fff 0x1534bc247000 - 0x1534bc247fff 0x1534bc248000 - 0x1534bc248fff 0x1534bc249000 - 0x1534bc24afff 0x1534bc24b000 - 0x1534bc24cfff 0x1534bc24d000 - 0x1534bc24dfff 0x1534bc24e000 - 0x1534bc24efff 0x1534bc24f000 - 0x1534bc24ffff 0x1534bc250000 - 0x1534bc25dfff 0x1534bc25e000 - 0x1534bc26bfff 0x1534bc26c000 - 0x1534bc279fff 0x1534bc27a000 - 0x1534bc27dfff 0x1534bc27e000 - 0x1534bc27efff 0x1534bc27f000 - 0x1534bc294fff 0x1534bc295000 - 0x1534bc2c0fff 0x1534bc2c1000 - 0x1534bc2c9fff 0x1534bc2ca000 - 0x1534bc2cafff 0x1534bc2cb000 - 0x1534bc2cdfff 0x1534bc2ce000 - 0x1534bc2d3fff 0x1534bc2d4000 - 0x1534bc2d6fff 0x1534bc2d9000 - 0x1534bc2d9fff 0x1534bc2da000 - 0x1534bc2dafff 0x1534bc2db000 - 0x1534bc2e1fff 0x1534bc2e2000 - 0x1534bc2e3fff 0x1534bc2e4000 - 0x1534bc304fff 0x1534bc305000 - 0x1534bc30cfff 0x1534bc30d000 - 0x1534bc30dfff 0x1534bc30e000 - 0x1534bc30efff 0x1534bc30f000 - 0x1534bc30ffff 0x1534bc310000 - 0x1534bc310fff 0x7ffe69c94000 - 0x7ffe69cb4fff 0x7ffe69db5000 - 0x7ffe69db8fff 0x7ffe69db9000 - 0x7ffe69dbafff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x897000 - 0x8b7fff 0x100000000000 - 0x1000000bffff 0x1494f25e4000 - 0x1494f2c88fff 0x1494f2c89000 - 0x1494f2cdcfff 0x1494f2cdd000 - 0x1494f2cdffff 0x1494f2ce0000 - 0x1494f2d04fff 0x1494f2d05000 - 0x1494f2e54fff 0x1494f2e55000 - 0x1494f2e9ffff 0x1494f2ea0000 - 0x1494f2ea2fff 0x1494f2ea3000 - 0x1494f2ea5fff 0x1494f2ea6000 - 0x1494f2ea9fff 0x1494f2eaa000 - 0x1494f2eacfff 0x1494f2ead000 - 0x1494f2ebefff 0x1494f2ebf000 - 0x1494f2ec2fff 0x1494f2ec3000 - 0x1494f2ec3fff 0x1494f2ec4000 - 0x1494f2ec4fff 0x1494f2ec5000 - 0x1494f2ec6fff 0x1494f2ec7000 - 0x1494f2ed7fff 0x1494f2ed8000 - 0x1494f2f0ffff 0x1494f2f10000 - 0x1494f3046fff 0x1494f3047000 - 0x1494f304afff 0x1494f304b000 - 0x1494f304bfff 0x1494f304c000 - 0x1494f304cfff 0x1494f304d000 - 0x1494f304efff 0x1494f304f000 - 0x1494f304ffff 0x1494f3050000 - 0x1494f3050fff 0x1494f3051000 - 0x1494f3051fff 0x1494f3052000 - 0x1494f3053fff 0x1494f3054000 - 0x1494f3056fff 0x1494f3057000 - 0x1494f3057fff 0x1494f3058000 - 0x1494f3058fff 0x1494f3059000 - 0x1494f3059fff 0x1494f305a000 - 0x1494f305bfff 0x1494f305c000 - 0x1494f305dfff 0x1494f305e000 - 0x1494f305efff 0x1494f305f000 - 0x1494f305ffff 0x1494f3060000 - 0x1494f3060fff 0x1494f3061000 - 0x1494f306efff 0x1494f306f000 - 0x1494f307cfff 0x1494f307d000 - 0x1494f308afff 0x1494f308b000 - 0x1494f308efff 0x1494f308f000 - 0x1494f308ffff 0x1494f3090000 - 0x1494f30a5fff 0x1494f30a6000 - 0x1494f30d1fff 0x1494f30d2000 - 0x1494f30dafff 0x1494f30db000 - 0x1494f30dbfff 0x1494f30dc000 - 0x1494f30defff 0x1494f30df000 - 0x1494f30e4fff 0x1494f30e5000 - 0x1494f30e7fff 0x1494f30ea000 - 0x1494f30eafff 0x1494f30eb000 - 0x1494f30ebfff 0x1494f30ec000 - 0x1494f30f2fff 0x1494f30f3000 - 0x1494f30f4fff 0x1494f30f5000 - 0x1494f3115fff 0x1494f3116000 - 0x1494f311dfff 0x1494f311e000 - 0x1494f311efff 0x1494f311f000 - 0x1494f311ffff 0x1494f3120000 - 0x1494f3120fff 0x1494f3121000 - 0x1494f3121fff 0x7fff0dc55000 - 0x7fff0dc75fff 0x7fff0dd81000 - 0x7fff0dd84fff 0x7fff0dd85000 - 0x7fff0dd86fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x221d000 - 0x223dfff 0x100000000000 - 0x1000000bffff 0x14c2d3ca3000 - 0x14c2d4347fff 0x14c2d4348000 - 0x14c2d439bfff 0x14c2d439c000 - 0x14c2d439efff 0x14c2d439f000 - 0x14c2d43c3fff 0x14c2d43c4000 - 0x14c2d4513fff 0x14c2d4514000 - 0x14c2d455efff 0x14c2d455f000 - 0x14c2d4561fff 0x14c2d4562000 - 0x14c2d4564fff 0x14c2d4565000 - 0x14c2d4568fff 0x14c2d4569000 - 0x14c2d456bfff 0x14c2d456c000 - 0x14c2d457dfff 0x14c2d457e000 - 0x14c2d4581fff 0x14c2d4582000 - 0x14c2d4582fff 0x14c2d4583000 - 0x14c2d4583fff 0x14c2d4584000 - 0x14c2d4585fff 0x14c2d4586000 - 0x14c2d4596fff 0x14c2d4597000 - 0x14c2d45cefff 0x14c2d45cf000 - 0x14c2d4705fff 0x14c2d4706000 - 0x14c2d4709fff 0x14c2d470a000 - 0x14c2d470afff 0x14c2d470b000 - 0x14c2d470bfff 0x14c2d470c000 - 0x14c2d470dfff 0x14c2d470e000 - 0x14c2d470efff 0x14c2d470f000 - 0x14c2d470ffff 0x14c2d4710000 - 0x14c2d4710fff 0x14c2d4711000 - 0x14c2d4712fff 0x14c2d4713000 - 0x14c2d4715fff 0x14c2d4716000 - 0x14c2d4716fff 0x14c2d4717000 - 0x14c2d4717fff 0x14c2d4718000 - 0x14c2d4718fff 0x14c2d4719000 - 0x14c2d471afff 0x14c2d471b000 - 0x14c2d471cfff 0x14c2d471d000 - 0x14c2d471dfff 0x14c2d471e000 - 0x14c2d471efff 0x14c2d471f000 - 0x14c2d471ffff 0x14c2d4720000 - 0x14c2d472dfff 0x14c2d472e000 - 0x14c2d473bfff 0x14c2d473c000 - 0x14c2d4749fff 0x14c2d474a000 - 0x14c2d474dfff 0x14c2d474e000 - 0x14c2d474efff 0x14c2d474f000 - 0x14c2d4764fff 0x14c2d4765000 - 0x14c2d4790fff 0x14c2d4791000 - 0x14c2d4799fff 0x14c2d479a000 - 0x14c2d479afff 0x14c2d479b000 - 0x14c2d479dfff 0x14c2d479e000 - 0x14c2d47a3fff 0x14c2d47a4000 - 0x14c2d47a6fff 0x14c2d47a9000 - 0x14c2d47a9fff 0x14c2d47aa000 - 0x14c2d47aafff 0x14c2d47ab000 - 0x14c2d47b1fff 0x14c2d47b2000 - 0x14c2d47b3fff 0x14c2d47b4000 - 0x14c2d47d4fff 0x14c2d47d5000 - 0x14c2d47dcfff 0x14c2d47dd000 - 0x14c2d47ddfff 0x14c2d47de000 - 0x14c2d47defff 0x14c2d47df000 - 0x14c2d47dffff 0x14c2d47e0000 - 0x14c2d47e0fff 0x7ffe4dbe3000 - 0x7ffe4dc03fff 0x7ffe4dd64000 - 0x7ffe4dd67fff 0x7ffe4dd68000 - 0x7ffe4dd69fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x716000 - 0x736fff 0x100000000000 - 0x1000000bffff 0x14ec27c4b000 - 0x14ec282effff 0x14ec282f0000 - 0x14ec28343fff 0x14ec28344000 - 0x14ec28346fff 0x14ec28347000 - 0x14ec2836bfff 0x14ec2836c000 - 0x14ec284bbfff 0x14ec284bc000 - 0x14ec28506fff 0x14ec28507000 - 0x14ec28509fff 0x14ec2850a000 - 0x14ec2850cfff 0x14ec2850d000 - 0x14ec28510fff 0x14ec28511000 - 0x14ec28513fff 0x14ec28514000 - 0x14ec28525fff 0x14ec28526000 - 0x14ec28529fff 0x14ec2852a000 - 0x14ec2852afff 0x14ec2852b000 - 0x14ec2852bfff 0x14ec2852c000 - 0x14ec2852dfff 0x14ec2852e000 - 0x14ec2853efff 0x14ec2853f000 - 0x14ec28576fff 0x14ec28577000 - 0x14ec286adfff 0x14ec286ae000 - 0x14ec286b1fff 0x14ec286b2000 - 0x14ec286b2fff 0x14ec286b3000 - 0x14ec286b3fff 0x14ec286b4000 - 0x14ec286b5fff 0x14ec286b6000 - 0x14ec286b6fff 0x14ec286b7000 - 0x14ec286b7fff 0x14ec286b8000 - 0x14ec286b8fff 0x14ec286b9000 - 0x14ec286bafff 0x14ec286bb000 - 0x14ec286bdfff 0x14ec286be000 - 0x14ec286befff 0x14ec286bf000 - 0x14ec286bffff 0x14ec286c0000 - 0x14ec286c0fff 0x14ec286c1000 - 0x14ec286c2fff 0x14ec286c3000 - 0x14ec286c4fff 0x14ec286c5000 - 0x14ec286c5fff 0x14ec286c6000 - 0x14ec286c6fff 0x14ec286c7000 - 0x14ec286c7fff 0x14ec286c8000 - 0x14ec286d5fff 0x14ec286d6000 - 0x14ec286e3fff 0x14ec286e4000 - 0x14ec286f1fff 0x14ec286f2000 - 0x14ec286f5fff 0x14ec286f6000 - 0x14ec286f6fff 0x14ec286f7000 - 0x14ec2870cfff 0x14ec2870d000 - 0x14ec28738fff 0x14ec28739000 - 0x14ec28741fff 0x14ec28742000 - 0x14ec28742fff 0x14ec28743000 - 0x14ec28745fff 0x14ec28746000 - 0x14ec2874bfff 0x14ec2874c000 - 0x14ec2874efff 0x14ec28751000 - 0x14ec28751fff 0x14ec28752000 - 0x14ec28752fff 0x14ec28753000 - 0x14ec28759fff 0x14ec2875a000 - 0x14ec2875bfff 0x14ec2875c000 - 0x14ec2877cfff 0x14ec2877d000 - 0x14ec28784fff 0x14ec28785000 - 0x14ec28785fff 0x14ec28786000 - 0x14ec28786fff 0x14ec28787000 - 0x14ec28787fff 0x14ec28788000 - 0x14ec28788fff 0x7ffd8bb4b000 - 0x7ffd8bb6bfff 0x7ffd8bb8d000 - 0x7ffd8bb90fff 0x7ffd8bb91000 - 0x7ffd8bb92fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x23e6000 - 0x2406fff 0x100000000000 - 0x1000000bffff 0x14b59452d000 - 0x14b594bd1fff 0x14b594bd2000 - 0x14b594c25fff 0x14b594c26000 - 0x14b594c28fff 0x14b594c29000 - 0x14b594c4dfff 0x14b594c4e000 - 0x14b594d9dfff 0x14b594d9e000 - 0x14b594de8fff 0x14b594de9000 - 0x14b594debfff 0x14b594dec000 - 0x14b594deefff 0x14b594def000 - 0x14b594df2fff 0x14b594df3000 - 0x14b594df5fff 0x14b594df6000 - 0x14b594e07fff 0x14b594e08000 - 0x14b594e0bfff 0x14b594e0c000 - 0x14b594e0cfff 0x14b594e0d000 - 0x14b594e0dfff 0x14b594e0e000 - 0x14b594e0ffff 0x14b594e10000 - 0x14b594e20fff 0x14b594e21000 - 0x14b594e58fff 0x14b594e59000 - 0x14b594f8ffff 0x14b594f90000 - 0x14b594f93fff 0x14b594f94000 - 0x14b594f94fff 0x14b594f95000 - 0x14b594f95fff 0x14b594f96000 - 0x14b594f97fff 0x14b594f98000 - 0x14b594f98fff 0x14b594f99000 - 0x14b594f99fff 0x14b594f9a000 - 0x14b594f9afff 0x14b594f9b000 - 0x14b594f9cfff 0x14b594f9d000 - 0x14b594f9ffff 0x14b594fa0000 - 0x14b594fa0fff 0x14b594fa1000 - 0x14b594fa1fff 0x14b594fa2000 - 0x14b594fa2fff 0x14b594fa3000 - 0x14b594fa4fff 0x14b594fa5000 - 0x14b594fa6fff 0x14b594fa7000 - 0x14b594fa7fff 0x14b594fa8000 - 0x14b594fa8fff 0x14b594fa9000 - 0x14b594fa9fff 0x14b594faa000 - 0x14b594fb7fff 0x14b594fb8000 - 0x14b594fc5fff 0x14b594fc6000 - 0x14b594fd3fff 0x14b594fd4000 - 0x14b594fd7fff 0x14b594fd8000 - 0x14b594fd8fff 0x14b594fd9000 - 0x14b594feefff 0x14b594fef000 - 0x14b59501afff 0x14b59501b000 - 0x14b595023fff 0x14b595024000 - 0x14b595024fff 0x14b595025000 - 0x14b595027fff 0x14b595028000 - 0x14b59502dfff 0x14b59502e000 - 0x14b595030fff 0x14b595033000 - 0x14b595033fff 0x14b595034000 - 0x14b595034fff 0x14b595035000 - 0x14b59503bfff 0x14b59503c000 - 0x14b59503dfff 0x14b59503e000 - 0x14b59505efff 0x14b59505f000 - 0x14b595066fff 0x14b595067000 - 0x14b595067fff 0x14b595068000 - 0x14b595068fff 0x14b595069000 - 0x14b595069fff 0x14b59506a000 - 0x14b59506afff 0x7fff9c9f2000 - 0x7fff9ca12fff 0x7fff9cbeb000 - 0x7fff9cbeefff 0x7fff9cbef000 - 0x7fff9cbf0fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x2250000 - 0x2270fff 0x100000000000 - 0x1000000bffff 0x14a70572b000 - 0x14a705dcffff 0x14a705dd0000 - 0x14a705e23fff 0x14a705e24000 - 0x14a705e26fff 0x14a705e27000 - 0x14a705e4bfff 0x14a705e4c000 - 0x14a705f9bfff 0x14a705f9c000 - 0x14a705fe6fff 0x14a705fe7000 - 0x14a705fe9fff 0x14a705fea000 - 0x14a705fecfff 0x14a705fed000 - 0x14a705ff0fff 0x14a705ff1000 - 0x14a705ff3fff 0x14a705ff4000 - 0x14a706005fff 0x14a706006000 - 0x14a706009fff 0x14a70600a000 - 0x14a70600afff 0x14a70600b000 - 0x14a70600bfff 0x14a70600c000 - 0x14a70600dfff 0x14a70600e000 - 0x14a70601efff 0x14a70601f000 - 0x14a706056fff 0x14a706057000 - 0x14a70618dfff 0x14a70618e000 - 0x14a706191fff 0x14a706192000 - 0x14a706192fff 0x14a706193000 - 0x14a706193fff 0x14a706194000 - 0x14a706195fff 0x14a706196000 - 0x14a706196fff 0x14a706197000 - 0x14a706197fff 0x14a706198000 - 0x14a706198fff 0x14a706199000 - 0x14a70619afff 0x14a70619b000 - 0x14a70619dfff 0x14a70619e000 - 0x14a70619efff 0x14a70619f000 - 0x14a70619ffff 0x14a7061a0000 - 0x14a7061a0fff 0x14a7061a1000 - 0x14a7061a2fff 0x14a7061a3000 - 0x14a7061a4fff 0x14a7061a5000 - 0x14a7061a5fff 0x14a7061a6000 - 0x14a7061a6fff 0x14a7061a7000 - 0x14a7061a7fff 0x14a7061a8000 - 0x14a7061b5fff 0x14a7061b6000 - 0x14a7061c3fff 0x14a7061c4000 - 0x14a7061d1fff 0x14a7061d2000 - 0x14a7061d5fff 0x14a7061d6000 - 0x14a7061d6fff 0x14a7061d7000 - 0x14a7061ecfff 0x14a7061ed000 - 0x14a706218fff 0x14a706219000 - 0x14a706221fff 0x14a706222000 - 0x14a706222fff 0x14a706223000 - 0x14a706225fff 0x14a706226000 - 0x14a70622bfff 0x14a70622c000 - 0x14a70622efff 0x14a706231000 - 0x14a706231fff 0x14a706232000 - 0x14a706232fff 0x14a706233000 - 0x14a706239fff 0x14a70623a000 - 0x14a70623bfff 0x14a70623c000 - 0x14a70625cfff 0x14a70625d000 - 0x14a706264fff 0x14a706265000 - 0x14a706265fff 0x14a706266000 - 0x14a706266fff 0x14a706267000 - 0x14a706267fff 0x14a706268000 - 0x14a706268fff 0x7ffdf89b0000 - 0x7ffdf89d0fff 0x7ffdf89d7000 - 0x7ffdf89dafff 0x7ffdf89db000 - 0x7ffdf89dcfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xc14000 - 0xc34fff 0x100000000000 - 0x1000000bffff 0x14e2f395b000 - 0x14e2f3ffffff 0x14e2f4000000 - 0x14e2f4053fff 0x14e2f4054000 - 0x14e2f4056fff 0x14e2f4057000 - 0x14e2f407bfff 0x14e2f407c000 - 0x14e2f41cbfff 0x14e2f41cc000 - 0x14e2f4216fff 0x14e2f4217000 - 0x14e2f4219fff 0x14e2f421a000 - 0x14e2f421cfff 0x14e2f421d000 - 0x14e2f4220fff 0x14e2f4221000 - 0x14e2f4223fff 0x14e2f4224000 - 0x14e2f4235fff 0x14e2f4236000 - 0x14e2f4239fff 0x14e2f423a000 - 0x14e2f423afff 0x14e2f423b000 - 0x14e2f423bfff 0x14e2f423c000 - 0x14e2f423dfff 0x14e2f423e000 - 0x14e2f424efff 0x14e2f424f000 - 0x14e2f4286fff 0x14e2f4287000 - 0x14e2f43bdfff 0x14e2f43be000 - 0x14e2f43c1fff 0x14e2f43c2000 - 0x14e2f43c2fff 0x14e2f43c3000 - 0x14e2f43c3fff 0x14e2f43c4000 - 0x14e2f43c5fff 0x14e2f43c6000 - 0x14e2f43c6fff 0x14e2f43c7000 - 0x14e2f43c7fff 0x14e2f43c8000 - 0x14e2f43c8fff 0x14e2f43c9000 - 0x14e2f43cafff 0x14e2f43cb000 - 0x14e2f43cdfff 0x14e2f43ce000 - 0x14e2f43cefff 0x14e2f43cf000 - 0x14e2f43cffff 0x14e2f43d0000 - 0x14e2f43d0fff 0x14e2f43d1000 - 0x14e2f43d2fff 0x14e2f43d3000 - 0x14e2f43d4fff 0x14e2f43d5000 - 0x14e2f43d5fff 0x14e2f43d6000 - 0x14e2f43d6fff 0x14e2f43d7000 - 0x14e2f43d7fff 0x14e2f43d8000 - 0x14e2f43e5fff 0x14e2f43e6000 - 0x14e2f43f3fff 0x14e2f43f4000 - 0x14e2f4401fff 0x14e2f4402000 - 0x14e2f4405fff 0x14e2f4406000 - 0x14e2f4406fff 0x14e2f4407000 - 0x14e2f441cfff 0x14e2f441d000 - 0x14e2f4448fff 0x14e2f4449000 - 0x14e2f4451fff 0x14e2f4452000 - 0x14e2f4452fff 0x14e2f4453000 - 0x14e2f4455fff 0x14e2f4456000 - 0x14e2f445bfff 0x14e2f445c000 - 0x14e2f445efff 0x14e2f4461000 - 0x14e2f4461fff 0x14e2f4462000 - 0x14e2f4462fff 0x14e2f4463000 - 0x14e2f4469fff 0x14e2f446a000 - 0x14e2f446bfff 0x14e2f446c000 - 0x14e2f448cfff 0x14e2f448d000 - 0x14e2f4494fff 0x14e2f4495000 - 0x14e2f4495fff 0x14e2f4496000 - 0x14e2f4496fff 0x14e2f4497000 - 0x14e2f4497fff 0x14e2f4498000 - 0x14e2f4498fff 0x7ffecdcb1000 - 0x7ffecdcd1fff 0x7ffecdd09000 - 0x7ffecdd0cfff 0x7ffecdd0d000 - 0x7ffecdd0efff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1a99000 - 0x1ab9fff 0x100000000000 - 0x1000000bffff 0x151b86122000 - 0x151b867c6fff 0x151b867c7000 - 0x151b8681afff 0x151b8681b000 - 0x151b8681dfff 0x151b8681e000 - 0x151b86842fff 0x151b86843000 - 0x151b86992fff 0x151b86993000 - 0x151b869ddfff 0x151b869de000 - 0x151b869e0fff 0x151b869e1000 - 0x151b869e3fff 0x151b869e4000 - 0x151b869e7fff 0x151b869e8000 - 0x151b869eafff 0x151b869eb000 - 0x151b869fcfff 0x151b869fd000 - 0x151b86a00fff 0x151b86a01000 - 0x151b86a01fff 0x151b86a02000 - 0x151b86a02fff 0x151b86a03000 - 0x151b86a04fff 0x151b86a05000 - 0x151b86a15fff 0x151b86a16000 - 0x151b86a4dfff 0x151b86a4e000 - 0x151b86b84fff 0x151b86b85000 - 0x151b86b88fff 0x151b86b89000 - 0x151b86b89fff 0x151b86b8a000 - 0x151b86b8afff 0x151b86b8b000 - 0x151b86b8cfff 0x151b86b8d000 - 0x151b86b8dfff 0x151b86b8e000 - 0x151b86b8efff 0x151b86b8f000 - 0x151b86b8ffff 0x151b86b90000 - 0x151b86b91fff 0x151b86b92000 - 0x151b86b94fff 0x151b86b95000 - 0x151b86b95fff 0x151b86b96000 - 0x151b86b96fff 0x151b86b97000 - 0x151b86b97fff 0x151b86b98000 - 0x151b86b99fff 0x151b86b9a000 - 0x151b86b9bfff 0x151b86b9c000 - 0x151b86b9cfff 0x151b86b9d000 - 0x151b86b9dfff 0x151b86b9e000 - 0x151b86b9efff 0x151b86b9f000 - 0x151b86bacfff 0x151b86bad000 - 0x151b86bbafff 0x151b86bbb000 - 0x151b86bc8fff 0x151b86bc9000 - 0x151b86bccfff 0x151b86bcd000 - 0x151b86bcdfff 0x151b86bce000 - 0x151b86be3fff 0x151b86be4000 - 0x151b86c0ffff 0x151b86c10000 - 0x151b86c18fff 0x151b86c19000 - 0x151b86c19fff 0x151b86c1a000 - 0x151b86c1cfff 0x151b86c1d000 - 0x151b86c22fff 0x151b86c23000 - 0x151b86c25fff 0x151b86c28000 - 0x151b86c28fff 0x151b86c29000 - 0x151b86c29fff 0x151b86c2a000 - 0x151b86c30fff 0x151b86c31000 - 0x151b86c32fff 0x151b86c33000 - 0x151b86c53fff 0x151b86c54000 - 0x151b86c5bfff 0x151b86c5c000 - 0x151b86c5cfff 0x151b86c5d000 - 0x151b86c5dfff 0x151b86c5e000 - 0x151b86c5efff 0x151b86c5f000 - 0x151b86c5ffff 0x7ffcd9338000 - 0x7ffcd9358fff 0x7ffcd9385000 - 0x7ffcd9388fff 0x7ffcd9389000 - 0x7ffcd938afff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1f83000 - 0x1fa3fff 0x100000000000 - 0x1000000bffff 0x14820d28c000 - 0x14820d930fff 0x14820d931000 - 0x14820d984fff 0x14820d985000 - 0x14820d987fff 0x14820d988000 - 0x14820d9acfff 0x14820d9ad000 - 0x14820dafcfff 0x14820dafd000 - 0x14820db47fff 0x14820db48000 - 0x14820db4afff 0x14820db4b000 - 0x14820db4dfff 0x14820db4e000 - 0x14820db51fff 0x14820db52000 - 0x14820db54fff 0x14820db55000 - 0x14820db66fff 0x14820db67000 - 0x14820db6afff 0x14820db6b000 - 0x14820db6bfff 0x14820db6c000 - 0x14820db6cfff 0x14820db6d000 - 0x14820db6efff 0x14820db6f000 - 0x14820db7ffff 0x14820db80000 - 0x14820dbb7fff 0x14820dbb8000 - 0x14820dceefff 0x14820dcef000 - 0x14820dcf2fff 0x14820dcf3000 - 0x14820dcf3fff 0x14820dcf4000 - 0x14820dcf4fff 0x14820dcf5000 - 0x14820dcf6fff 0x14820dcf7000 - 0x14820dcf7fff 0x14820dcf8000 - 0x14820dcf8fff 0x14820dcf9000 - 0x14820dcf9fff 0x14820dcfa000 - 0x14820dcfbfff 0x14820dcfc000 - 0x14820dcfefff 0x14820dcff000 - 0x14820dcfffff 0x14820dd00000 - 0x14820dd00fff 0x14820dd01000 - 0x14820dd01fff 0x14820dd02000 - 0x14820dd03fff 0x14820dd04000 - 0x14820dd05fff 0x14820dd06000 - 0x14820dd06fff 0x14820dd07000 - 0x14820dd07fff 0x14820dd08000 - 0x14820dd08fff 0x14820dd09000 - 0x14820dd16fff 0x14820dd17000 - 0x14820dd24fff 0x14820dd25000 - 0x14820dd32fff 0x14820dd33000 - 0x14820dd36fff 0x14820dd37000 - 0x14820dd37fff 0x14820dd38000 - 0x14820dd4dfff 0x14820dd4e000 - 0x14820dd79fff 0x14820dd7a000 - 0x14820dd82fff 0x14820dd83000 - 0x14820dd83fff 0x14820dd84000 - 0x14820dd86fff 0x14820dd87000 - 0x14820dd8cfff 0x14820dd8d000 - 0x14820dd8ffff 0x14820dd92000 - 0x14820dd92fff 0x14820dd93000 - 0x14820dd93fff 0x14820dd94000 - 0x14820dd9afff 0x14820dd9b000 - 0x14820dd9cfff 0x14820dd9d000 - 0x14820ddbdfff 0x14820ddbe000 - 0x14820ddc5fff 0x14820ddc6000 - 0x14820ddc6fff 0x14820ddc7000 - 0x14820ddc7fff 0x14820ddc8000 - 0x14820ddc8fff 0x14820ddc9000 - 0x14820ddc9fff 0x7fff3b241000 - 0x7fff3b261fff 0x7fff3b3e7000 - 0x7fff3b3eafff 0x7fff3b3eb000 - 0x7fff3b3ecfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xbf7000 - 0xc17fff 0x100000000000 - 0x1000000bffff 0x148128bb6000 - 0x14812925afff 0x14812925b000 - 0x1481292aefff 0x1481292af000 - 0x1481292b1fff 0x1481292b2000 - 0x1481292d6fff 0x1481292d7000 - 0x148129426fff 0x148129427000 - 0x148129471fff 0x148129472000 - 0x148129474fff 0x148129475000 - 0x148129477fff 0x148129478000 - 0x14812947bfff 0x14812947c000 - 0x14812947efff 0x14812947f000 - 0x148129490fff 0x148129491000 - 0x148129494fff 0x148129495000 - 0x148129495fff 0x148129496000 - 0x148129496fff 0x148129497000 - 0x148129498fff 0x148129499000 - 0x1481294a9fff 0x1481294aa000 - 0x1481294e1fff 0x1481294e2000 - 0x148129618fff 0x148129619000 - 0x14812961cfff 0x14812961d000 - 0x14812961dfff 0x14812961e000 - 0x14812961efff 0x14812961f000 - 0x148129620fff 0x148129621000 - 0x148129621fff 0x148129622000 - 0x148129622fff 0x148129623000 - 0x148129623fff 0x148129624000 - 0x148129625fff 0x148129626000 - 0x148129628fff 0x148129629000 - 0x148129629fff 0x14812962a000 - 0x14812962afff 0x14812962b000 - 0x14812962bfff 0x14812962c000 - 0x14812962dfff 0x14812962e000 - 0x14812962ffff 0x148129630000 - 0x148129630fff 0x148129631000 - 0x148129631fff 0x148129632000 - 0x148129632fff 0x148129633000 - 0x148129640fff 0x148129641000 - 0x14812964efff 0x14812964f000 - 0x14812965cfff 0x14812965d000 - 0x148129660fff 0x148129661000 - 0x148129661fff 0x148129662000 - 0x148129677fff 0x148129678000 - 0x1481296a3fff 0x1481296a4000 - 0x1481296acfff 0x1481296ad000 - 0x1481296adfff 0x1481296ae000 - 0x1481296b0fff 0x1481296b1000 - 0x1481296b6fff 0x1481296b7000 - 0x1481296b9fff 0x1481296bc000 - 0x1481296bcfff 0x1481296bd000 - 0x1481296bdfff 0x1481296be000 - 0x1481296c4fff 0x1481296c5000 - 0x1481296c6fff 0x1481296c7000 - 0x1481296e7fff 0x1481296e8000 - 0x1481296effff 0x1481296f0000 - 0x1481296f0fff 0x1481296f1000 - 0x1481296f1fff 0x1481296f2000 - 0x1481296f2fff 0x1481296f3000 - 0x1481296f3fff 0x7fff0eda7000 - 0x7fff0edc7fff 0x7fff0ede6000 - 0x7fff0ede9fff 0x7fff0edea000 - 0x7fff0edebfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x7a7000 - 0x7c7fff 0x100000000000 - 0x1000000bffff 0x14e80739d000 - 0x14e807a41fff 0x14e807a42000 - 0x14e807a95fff 0x14e807a96000 - 0x14e807a98fff 0x14e807a99000 - 0x14e807abdfff 0x14e807abe000 - 0x14e807c0dfff 0x14e807c0e000 - 0x14e807c58fff 0x14e807c59000 - 0x14e807c5bfff 0x14e807c5c000 - 0x14e807c5efff 0x14e807c5f000 - 0x14e807c62fff 0x14e807c63000 - 0x14e807c65fff 0x14e807c66000 - 0x14e807c77fff 0x14e807c78000 - 0x14e807c7bfff 0x14e807c7c000 - 0x14e807c7cfff 0x14e807c7d000 - 0x14e807c7dfff 0x14e807c7e000 - 0x14e807c7ffff 0x14e807c80000 - 0x14e807c90fff 0x14e807c91000 - 0x14e807cc8fff 0x14e807cc9000 - 0x14e807dfffff 0x14e807e00000 - 0x14e807e03fff 0x14e807e04000 - 0x14e807e04fff 0x14e807e05000 - 0x14e807e05fff 0x14e807e06000 - 0x14e807e07fff 0x14e807e08000 - 0x14e807e08fff 0x14e807e09000 - 0x14e807e09fff 0x14e807e0a000 - 0x14e807e0afff 0x14e807e0b000 - 0x14e807e0cfff 0x14e807e0d000 - 0x14e807e0ffff 0x14e807e10000 - 0x14e807e10fff 0x14e807e11000 - 0x14e807e11fff 0x14e807e12000 - 0x14e807e12fff 0x14e807e13000 - 0x14e807e14fff 0x14e807e15000 - 0x14e807e16fff 0x14e807e17000 - 0x14e807e17fff 0x14e807e18000 - 0x14e807e18fff 0x14e807e19000 - 0x14e807e19fff 0x14e807e1a000 - 0x14e807e27fff 0x14e807e28000 - 0x14e807e35fff 0x14e807e36000 - 0x14e807e43fff 0x14e807e44000 - 0x14e807e47fff 0x14e807e48000 - 0x14e807e48fff 0x14e807e49000 - 0x14e807e5efff 0x14e807e5f000 - 0x14e807e8afff 0x14e807e8b000 - 0x14e807e93fff 0x14e807e94000 - 0x14e807e94fff 0x14e807e95000 - 0x14e807e97fff 0x14e807e98000 - 0x14e807e9dfff 0x14e807e9e000 - 0x14e807ea0fff 0x14e807ea3000 - 0x14e807ea3fff 0x14e807ea4000 - 0x14e807ea4fff 0x14e807ea5000 - 0x14e807eabfff 0x14e807eac000 - 0x14e807eadfff 0x14e807eae000 - 0x14e807ecefff 0x14e807ecf000 - 0x14e807ed6fff 0x14e807ed7000 - 0x14e807ed7fff 0x14e807ed8000 - 0x14e807ed8fff 0x14e807ed9000 - 0x14e807ed9fff 0x14e807eda000 - 0x14e807edafff 0x7ffe121d0000 - 0x7ffe121f0fff 0x7ffe121f2000 - 0x7ffe121f5fff 0x7ffe121f6000 - 0x7ffe121f7fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x252d000 - 0x254dfff 0x100000000000 - 0x1000000bffff 0x1551c8a87000 - 0x1551c912bfff 0x1551c912c000 - 0x1551c917ffff 0x1551c9180000 - 0x1551c9182fff 0x1551c9183000 - 0x1551c91a7fff 0x1551c91a8000 - 0x1551c92f7fff 0x1551c92f8000 - 0x1551c9342fff 0x1551c9343000 - 0x1551c9345fff 0x1551c9346000 - 0x1551c9348fff 0x1551c9349000 - 0x1551c934cfff 0x1551c934d000 - 0x1551c934ffff 0x1551c9350000 - 0x1551c9361fff 0x1551c9362000 - 0x1551c9365fff 0x1551c9366000 - 0x1551c9366fff 0x1551c9367000 - 0x1551c9367fff 0x1551c9368000 - 0x1551c9369fff 0x1551c936a000 - 0x1551c937afff 0x1551c937b000 - 0x1551c93b2fff 0x1551c93b3000 - 0x1551c94e9fff 0x1551c94ea000 - 0x1551c94edfff 0x1551c94ee000 - 0x1551c94eefff 0x1551c94ef000 - 0x1551c94effff 0x1551c94f0000 - 0x1551c94f1fff 0x1551c94f2000 - 0x1551c94f2fff 0x1551c94f3000 - 0x1551c94f3fff 0x1551c94f4000 - 0x1551c94f4fff 0x1551c94f5000 - 0x1551c94f6fff 0x1551c94f7000 - 0x1551c94f9fff 0x1551c94fa000 - 0x1551c94fafff 0x1551c94fb000 - 0x1551c94fbfff 0x1551c94fc000 - 0x1551c94fcfff 0x1551c94fd000 - 0x1551c94fefff 0x1551c94ff000 - 0x1551c9500fff 0x1551c9501000 - 0x1551c9501fff 0x1551c9502000 - 0x1551c9502fff 0x1551c9503000 - 0x1551c9503fff 0x1551c9504000 - 0x1551c9511fff 0x1551c9512000 - 0x1551c951ffff 0x1551c9520000 - 0x1551c952dfff 0x1551c952e000 - 0x1551c9531fff 0x1551c9532000 - 0x1551c9532fff 0x1551c9533000 - 0x1551c9548fff 0x1551c9549000 - 0x1551c9574fff 0x1551c9575000 - 0x1551c957dfff 0x1551c957e000 - 0x1551c957efff 0x1551c957f000 - 0x1551c9581fff 0x1551c9582000 - 0x1551c9587fff 0x1551c9588000 - 0x1551c958afff 0x1551c958d000 - 0x1551c958dfff 0x1551c958e000 - 0x1551c958efff 0x1551c958f000 - 0x1551c9595fff 0x1551c9596000 - 0x1551c9597fff 0x1551c9598000 - 0x1551c95b8fff 0x1551c95b9000 - 0x1551c95c0fff 0x1551c95c1000 - 0x1551c95c1fff 0x1551c95c2000 - 0x1551c95c2fff 0x1551c95c3000 - 0x1551c95c3fff 0x1551c95c4000 - 0x1551c95c4fff 0x7ffd31be8000 - 0x7ffd31c08fff 0x7ffd31d67000 - 0x7ffd31d6afff 0x7ffd31d6b000 - 0x7ffd31d6cfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xdac000 - 0xdccfff 0x100000000000 - 0x1000000bffff 0x153e15a44000 - 0x153e160e8fff 0x153e160e9000 - 0x153e1613cfff 0x153e1613d000 - 0x153e1613ffff 0x153e16140000 - 0x153e16164fff 0x153e16165000 - 0x153e162b4fff 0x153e162b5000 - 0x153e162fffff 0x153e16300000 - 0x153e16302fff 0x153e16303000 - 0x153e16305fff 0x153e16306000 - 0x153e16309fff 0x153e1630a000 - 0x153e1630cfff 0x153e1630d000 - 0x153e1631efff 0x153e1631f000 - 0x153e16322fff 0x153e16323000 - 0x153e16323fff 0x153e16324000 - 0x153e16324fff 0x153e16325000 - 0x153e16326fff 0x153e16327000 - 0x153e16337fff 0x153e16338000 - 0x153e1636ffff 0x153e16370000 - 0x153e164a6fff 0x153e164a7000 - 0x153e164aafff 0x153e164ab000 - 0x153e164abfff 0x153e164ac000 - 0x153e164acfff 0x153e164ad000 - 0x153e164aefff 0x153e164af000 - 0x153e164affff 0x153e164b0000 - 0x153e164b0fff 0x153e164b1000 - 0x153e164b1fff 0x153e164b2000 - 0x153e164b3fff 0x153e164b4000 - 0x153e164b6fff 0x153e164b7000 - 0x153e164b7fff 0x153e164b8000 - 0x153e164b8fff 0x153e164b9000 - 0x153e164b9fff 0x153e164ba000 - 0x153e164bbfff 0x153e164bc000 - 0x153e164bdfff 0x153e164be000 - 0x153e164befff 0x153e164bf000 - 0x153e164bffff 0x153e164c0000 - 0x153e164c0fff 0x153e164c1000 - 0x153e164cefff 0x153e164cf000 - 0x153e164dcfff 0x153e164dd000 - 0x153e164eafff 0x153e164eb000 - 0x153e164eefff 0x153e164ef000 - 0x153e164effff 0x153e164f0000 - 0x153e16505fff 0x153e16506000 - 0x153e16531fff 0x153e16532000 - 0x153e1653afff 0x153e1653b000 - 0x153e1653bfff 0x153e1653c000 - 0x153e1653efff 0x153e1653f000 - 0x153e16544fff 0x153e16545000 - 0x153e16547fff 0x153e1654a000 - 0x153e1654afff 0x153e1654b000 - 0x153e1654bfff 0x153e1654c000 - 0x153e16552fff 0x153e16553000 - 0x153e16554fff 0x153e16555000 - 0x153e16575fff 0x153e16576000 - 0x153e1657dfff 0x153e1657e000 - 0x153e1657efff 0x153e1657f000 - 0x153e1657ffff 0x153e16580000 - 0x153e16580fff 0x153e16581000 - 0x153e16581fff 0x7ffe0bbff000 - 0x7ffe0bc1ffff 0x7ffe0bd82000 - 0x7ffe0bd85fff 0x7ffe0bd86000 - 0x7ffe0bd87fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xff5000 - 0x1015fff 0x100000000000 - 0x1000000bffff 0x14cf1b4f8000 - 0x14cf1bb9cfff 0x14cf1bb9d000 - 0x14cf1bbf0fff 0x14cf1bbf1000 - 0x14cf1bbf3fff 0x14cf1bbf4000 - 0x14cf1bc18fff 0x14cf1bc19000 - 0x14cf1bd68fff 0x14cf1bd69000 - 0x14cf1bdb3fff 0x14cf1bdb4000 - 0x14cf1bdb6fff 0x14cf1bdb7000 - 0x14cf1bdb9fff 0x14cf1bdba000 - 0x14cf1bdbdfff 0x14cf1bdbe000 - 0x14cf1bdc0fff 0x14cf1bdc1000 - 0x14cf1bdd2fff 0x14cf1bdd3000 - 0x14cf1bdd6fff 0x14cf1bdd7000 - 0x14cf1bdd7fff 0x14cf1bdd8000 - 0x14cf1bdd8fff 0x14cf1bdd9000 - 0x14cf1bddafff 0x14cf1bddb000 - 0x14cf1bdebfff 0x14cf1bdec000 - 0x14cf1be23fff 0x14cf1be24000 - 0x14cf1bf5afff 0x14cf1bf5b000 - 0x14cf1bf5efff 0x14cf1bf5f000 - 0x14cf1bf5ffff 0x14cf1bf60000 - 0x14cf1bf60fff 0x14cf1bf61000 - 0x14cf1bf62fff 0x14cf1bf63000 - 0x14cf1bf63fff 0x14cf1bf64000 - 0x14cf1bf64fff 0x14cf1bf65000 - 0x14cf1bf65fff 0x14cf1bf66000 - 0x14cf1bf67fff 0x14cf1bf68000 - 0x14cf1bf6afff 0x14cf1bf6b000 - 0x14cf1bf6bfff 0x14cf1bf6c000 - 0x14cf1bf6cfff 0x14cf1bf6d000 - 0x14cf1bf6dfff 0x14cf1bf6e000 - 0x14cf1bf6ffff 0x14cf1bf70000 - 0x14cf1bf71fff 0x14cf1bf72000 - 0x14cf1bf72fff 0x14cf1bf73000 - 0x14cf1bf73fff 0x14cf1bf74000 - 0x14cf1bf74fff 0x14cf1bf75000 - 0x14cf1bf82fff 0x14cf1bf83000 - 0x14cf1bf90fff 0x14cf1bf91000 - 0x14cf1bf9efff 0x14cf1bf9f000 - 0x14cf1bfa2fff 0x14cf1bfa3000 - 0x14cf1bfa3fff 0x14cf1bfa4000 - 0x14cf1bfb9fff 0x14cf1bfba000 - 0x14cf1bfe5fff 0x14cf1bfe6000 - 0x14cf1bfeefff 0x14cf1bfef000 - 0x14cf1bfeffff 0x14cf1bff0000 - 0x14cf1bff2fff 0x14cf1bff3000 - 0x14cf1bff8fff 0x14cf1bff9000 - 0x14cf1bffbfff 0x14cf1bffe000 - 0x14cf1bffefff 0x14cf1bfff000 - 0x14cf1bffffff 0x14cf1c000000 - 0x14cf1c006fff 0x14cf1c007000 - 0x14cf1c008fff 0x14cf1c009000 - 0x14cf1c029fff 0x14cf1c02a000 - 0x14cf1c031fff 0x14cf1c032000 - 0x14cf1c032fff 0x14cf1c033000 - 0x14cf1c033fff 0x14cf1c034000 - 0x14cf1c034fff 0x14cf1c035000 - 0x14cf1c035fff 0x7ffc3e293000 - 0x7ffc3e2b3fff 0x7ffc3e31d000 - 0x7ffc3e320fff 0x7ffc3e321000 - 0x7ffc3e322fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x8b9000 - 0x8d9fff 0x100000000000 - 0x1000000bffff 0x14f374377000 - 0x14f374a1bfff 0x14f374a1c000 - 0x14f374a6ffff 0x14f374a70000 - 0x14f374a72fff 0x14f374a73000 - 0x14f374a97fff 0x14f374a98000 - 0x14f374be7fff 0x14f374be8000 - 0x14f374c32fff 0x14f374c33000 - 0x14f374c35fff 0x14f374c36000 - 0x14f374c38fff 0x14f374c39000 - 0x14f374c3cfff 0x14f374c3d000 - 0x14f374c3ffff 0x14f374c40000 - 0x14f374c51fff 0x14f374c52000 - 0x14f374c55fff 0x14f374c56000 - 0x14f374c56fff 0x14f374c57000 - 0x14f374c57fff 0x14f374c58000 - 0x14f374c59fff 0x14f374c5a000 - 0x14f374c6afff 0x14f374c6b000 - 0x14f374ca2fff 0x14f374ca3000 - 0x14f374dd9fff 0x14f374dda000 - 0x14f374dddfff 0x14f374dde000 - 0x14f374ddefff 0x14f374ddf000 - 0x14f374ddffff 0x14f374de0000 - 0x14f374de1fff 0x14f374de2000 - 0x14f374de2fff 0x14f374de3000 - 0x14f374de3fff 0x14f374de4000 - 0x14f374de4fff 0x14f374de5000 - 0x14f374de6fff 0x14f374de7000 - 0x14f374de9fff 0x14f374dea000 - 0x14f374deafff 0x14f374deb000 - 0x14f374debfff 0x14f374dec000 - 0x14f374decfff 0x14f374ded000 - 0x14f374deefff 0x14f374def000 - 0x14f374df0fff 0x14f374df1000 - 0x14f374df1fff 0x14f374df2000 - 0x14f374df2fff 0x14f374df3000 - 0x14f374df3fff 0x14f374df4000 - 0x14f374e01fff 0x14f374e02000 - 0x14f374e0ffff 0x14f374e10000 - 0x14f374e1dfff 0x14f374e1e000 - 0x14f374e21fff 0x14f374e22000 - 0x14f374e22fff 0x14f374e23000 - 0x14f374e38fff 0x14f374e39000 - 0x14f374e64fff 0x14f374e65000 - 0x14f374e6dfff 0x14f374e6e000 - 0x14f374e6efff 0x14f374e6f000 - 0x14f374e71fff 0x14f374e72000 - 0x14f374e77fff 0x14f374e78000 - 0x14f374e7afff 0x14f374e7d000 - 0x14f374e7dfff 0x14f374e7e000 - 0x14f374e7efff 0x14f374e7f000 - 0x14f374e85fff 0x14f374e86000 - 0x14f374e87fff 0x14f374e88000 - 0x14f374ea8fff 0x14f374ea9000 - 0x14f374eb0fff 0x14f374eb1000 - 0x14f374eb1fff 0x14f374eb2000 - 0x14f374eb2fff 0x14f374eb3000 - 0x14f374eb3fff 0x14f374eb4000 - 0x14f374eb4fff 0x7fffbbb0b000 - 0x7fffbbb2bfff 0x7fffbbb9d000 - 0x7fffbbba0fff 0x7fffbbba1000 - 0x7fffbbba2fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1697000 - 0x16b7fff 0x100000000000 - 0x1000000bffff 0x148131f43000 - 0x1481325e7fff 0x1481325e8000 - 0x14813263bfff 0x14813263c000 - 0x14813263efff 0x14813263f000 - 0x148132663fff 0x148132664000 - 0x1481327b3fff 0x1481327b4000 - 0x1481327fefff 0x1481327ff000 - 0x148132801fff 0x148132802000 - 0x148132804fff 0x148132805000 - 0x148132808fff 0x148132809000 - 0x14813280bfff 0x14813280c000 - 0x14813281dfff 0x14813281e000 - 0x148132821fff 0x148132822000 - 0x148132822fff 0x148132823000 - 0x148132823fff 0x148132824000 - 0x148132825fff 0x148132826000 - 0x148132836fff 0x148132837000 - 0x14813286efff 0x14813286f000 - 0x1481329a5fff 0x1481329a6000 - 0x1481329a9fff 0x1481329aa000 - 0x1481329aafff 0x1481329ab000 - 0x1481329abfff 0x1481329ac000 - 0x1481329adfff 0x1481329ae000 - 0x1481329aefff 0x1481329af000 - 0x1481329affff 0x1481329b0000 - 0x1481329b0fff 0x1481329b1000 - 0x1481329b2fff 0x1481329b3000 - 0x1481329b5fff 0x1481329b6000 - 0x1481329b6fff 0x1481329b7000 - 0x1481329b7fff 0x1481329b8000 - 0x1481329b8fff 0x1481329b9000 - 0x1481329bafff 0x1481329bb000 - 0x1481329bcfff 0x1481329bd000 - 0x1481329bdfff 0x1481329be000 - 0x1481329befff 0x1481329bf000 - 0x1481329bffff 0x1481329c0000 - 0x1481329cdfff 0x1481329ce000 - 0x1481329dbfff 0x1481329dc000 - 0x1481329e9fff 0x1481329ea000 - 0x1481329edfff 0x1481329ee000 - 0x1481329eefff 0x1481329ef000 - 0x148132a04fff 0x148132a05000 - 0x148132a30fff 0x148132a31000 - 0x148132a39fff 0x148132a3a000 - 0x148132a3afff 0x148132a3b000 - 0x148132a3dfff 0x148132a3e000 - 0x148132a43fff 0x148132a44000 - 0x148132a46fff 0x148132a49000 - 0x148132a49fff 0x148132a4a000 - 0x148132a4afff 0x148132a4b000 - 0x148132a51fff 0x148132a52000 - 0x148132a53fff 0x148132a54000 - 0x148132a74fff 0x148132a75000 - 0x148132a7cfff 0x148132a7d000 - 0x148132a7dfff 0x148132a7e000 - 0x148132a7efff 0x148132a7f000 - 0x148132a7ffff 0x148132a80000 - 0x148132a80fff 0x7fff07ae8000 - 0x7fff07b08fff 0x7fff07bc4000 - 0x7fff07bc7fff 0x7fff07bc8000 - 0x7fff07bc9fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xd2e000 - 0xd4efff 0x100000000000 - 0x1000000bffff 0x145ccfe46000 - 0x145cd04eafff 0x145cd04eb000 - 0x145cd053efff 0x145cd053f000 - 0x145cd0541fff 0x145cd0542000 - 0x145cd0566fff 0x145cd0567000 - 0x145cd06b6fff 0x145cd06b7000 - 0x145cd0701fff 0x145cd0702000 - 0x145cd0704fff 0x145cd0705000 - 0x145cd0707fff 0x145cd0708000 - 0x145cd070bfff 0x145cd070c000 - 0x145cd070efff 0x145cd070f000 - 0x145cd0720fff 0x145cd0721000 - 0x145cd0724fff 0x145cd0725000 - 0x145cd0725fff 0x145cd0726000 - 0x145cd0726fff 0x145cd0727000 - 0x145cd0728fff 0x145cd0729000 - 0x145cd0739fff 0x145cd073a000 - 0x145cd0771fff 0x145cd0772000 - 0x145cd08a8fff 0x145cd08a9000 - 0x145cd08acfff 0x145cd08ad000 - 0x145cd08adfff 0x145cd08ae000 - 0x145cd08aefff 0x145cd08af000 - 0x145cd08b0fff 0x145cd08b1000 - 0x145cd08b1fff 0x145cd08b2000 - 0x145cd08b2fff 0x145cd08b3000 - 0x145cd08b3fff 0x145cd08b4000 - 0x145cd08b5fff 0x145cd08b6000 - 0x145cd08b8fff 0x145cd08b9000 - 0x145cd08b9fff 0x145cd08ba000 - 0x145cd08bafff 0x145cd08bb000 - 0x145cd08bbfff 0x145cd08bc000 - 0x145cd08bdfff 0x145cd08be000 - 0x145cd08bffff 0x145cd08c0000 - 0x145cd08c0fff 0x145cd08c1000 - 0x145cd08c1fff 0x145cd08c2000 - 0x145cd08c2fff 0x145cd08c3000 - 0x145cd08d0fff 0x145cd08d1000 - 0x145cd08defff 0x145cd08df000 - 0x145cd08ecfff 0x145cd08ed000 - 0x145cd08f0fff 0x145cd08f1000 - 0x145cd08f1fff 0x145cd08f2000 - 0x145cd0907fff 0x145cd0908000 - 0x145cd0933fff 0x145cd0934000 - 0x145cd093cfff 0x145cd093d000 - 0x145cd093dfff 0x145cd093e000 - 0x145cd0940fff 0x145cd0941000 - 0x145cd0946fff 0x145cd0947000 - 0x145cd0949fff 0x145cd094c000 - 0x145cd094cfff 0x145cd094d000 - 0x145cd094dfff 0x145cd094e000 - 0x145cd0954fff 0x145cd0955000 - 0x145cd0956fff 0x145cd0957000 - 0x145cd0977fff 0x145cd0978000 - 0x145cd097ffff 0x145cd0980000 - 0x145cd0980fff 0x145cd0981000 - 0x145cd0981fff 0x145cd0982000 - 0x145cd0982fff 0x145cd0983000 - 0x145cd0983fff 0x7fffab25b000 - 0x7fffab27bfff 0x7fffab289000 - 0x7fffab28cfff 0x7fffab28d000 - 0x7fffab28efff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x900000 - 0x920fff 0x100000000000 - 0x1000000bffff 0x1467f8ada000 - 0x1467f917efff 0x1467f917f000 - 0x1467f91d2fff 0x1467f91d3000 - 0x1467f91d5fff 0x1467f91d6000 - 0x1467f91fafff 0x1467f91fb000 - 0x1467f934afff 0x1467f934b000 - 0x1467f9395fff 0x1467f9396000 - 0x1467f9398fff 0x1467f9399000 - 0x1467f939bfff 0x1467f939c000 - 0x1467f939ffff 0x1467f93a0000 - 0x1467f93a2fff 0x1467f93a3000 - 0x1467f93b4fff 0x1467f93b5000 - 0x1467f93b8fff 0x1467f93b9000 - 0x1467f93b9fff 0x1467f93ba000 - 0x1467f93bafff 0x1467f93bb000 - 0x1467f93bcfff 0x1467f93bd000 - 0x1467f93cdfff 0x1467f93ce000 - 0x1467f9405fff 0x1467f9406000 - 0x1467f953cfff 0x1467f953d000 - 0x1467f9540fff 0x1467f9541000 - 0x1467f9541fff 0x1467f9542000 - 0x1467f9542fff 0x1467f9543000 - 0x1467f9544fff 0x1467f9545000 - 0x1467f9545fff 0x1467f9546000 - 0x1467f9546fff 0x1467f9547000 - 0x1467f9547fff 0x1467f9548000 - 0x1467f9549fff 0x1467f954a000 - 0x1467f954cfff 0x1467f954d000 - 0x1467f954dfff 0x1467f954e000 - 0x1467f954efff 0x1467f954f000 - 0x1467f954ffff 0x1467f9550000 - 0x1467f9551fff 0x1467f9552000 - 0x1467f9553fff 0x1467f9554000 - 0x1467f9554fff 0x1467f9555000 - 0x1467f9555fff 0x1467f9556000 - 0x1467f9556fff 0x1467f9557000 - 0x1467f9564fff 0x1467f9565000 - 0x1467f9572fff 0x1467f9573000 - 0x1467f9580fff 0x1467f9581000 - 0x1467f9584fff 0x1467f9585000 - 0x1467f9585fff 0x1467f9586000 - 0x1467f959bfff 0x1467f959c000 - 0x1467f95c7fff 0x1467f95c8000 - 0x1467f95d0fff 0x1467f95d1000 - 0x1467f95d1fff 0x1467f95d2000 - 0x1467f95d4fff 0x1467f95d5000 - 0x1467f95dafff 0x1467f95db000 - 0x1467f95ddfff 0x1467f95e0000 - 0x1467f95e0fff 0x1467f95e1000 - 0x1467f95e1fff 0x1467f95e2000 - 0x1467f95e8fff 0x1467f95e9000 - 0x1467f95eafff 0x1467f95eb000 - 0x1467f960bfff 0x1467f960c000 - 0x1467f9613fff 0x1467f9614000 - 0x1467f9614fff 0x1467f9615000 - 0x1467f9615fff 0x1467f9616000 - 0x1467f9616fff 0x1467f9617000 - 0x1467f9617fff 0x7ffcdcb6b000 - 0x7ffcdcb8bfff 0x7ffcdcbc1000 - 0x7ffcdcbc4fff 0x7ffcdcbc5000 - 0x7ffcdcbc6fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xb82000 - 0xba2fff 0x100000000000 - 0x1000000bffff 0x14f300516000 - 0x14f300bbafff 0x14f300bbb000 - 0x14f300c0efff 0x14f300c0f000 - 0x14f300c11fff 0x14f300c12000 - 0x14f300c36fff 0x14f300c37000 - 0x14f300d86fff 0x14f300d87000 - 0x14f300dd1fff 0x14f300dd2000 - 0x14f300dd4fff 0x14f300dd5000 - 0x14f300dd7fff 0x14f300dd8000 - 0x14f300ddbfff 0x14f300ddc000 - 0x14f300ddefff 0x14f300ddf000 - 0x14f300df0fff 0x14f300df1000 - 0x14f300df4fff 0x14f300df5000 - 0x14f300df5fff 0x14f300df6000 - 0x14f300df6fff 0x14f300df7000 - 0x14f300df8fff 0x14f300df9000 - 0x14f300e09fff 0x14f300e0a000 - 0x14f300e41fff 0x14f300e42000 - 0x14f300f78fff 0x14f300f79000 - 0x14f300f7cfff 0x14f300f7d000 - 0x14f300f7dfff 0x14f300f7e000 - 0x14f300f7efff 0x14f300f7f000 - 0x14f300f80fff 0x14f300f81000 - 0x14f300f81fff 0x14f300f82000 - 0x14f300f82fff 0x14f300f83000 - 0x14f300f83fff 0x14f300f84000 - 0x14f300f85fff 0x14f300f86000 - 0x14f300f88fff 0x14f300f89000 - 0x14f300f89fff 0x14f300f8a000 - 0x14f300f8afff 0x14f300f8b000 - 0x14f300f8bfff 0x14f300f8c000 - 0x14f300f8dfff 0x14f300f8e000 - 0x14f300f8ffff 0x14f300f90000 - 0x14f300f90fff 0x14f300f91000 - 0x14f300f91fff 0x14f300f92000 - 0x14f300f92fff 0x14f300f93000 - 0x14f300fa0fff 0x14f300fa1000 - 0x14f300faefff 0x14f300faf000 - 0x14f300fbcfff 0x14f300fbd000 - 0x14f300fc0fff 0x14f300fc1000 - 0x14f300fc1fff 0x14f300fc2000 - 0x14f300fd7fff 0x14f300fd8000 - 0x14f301003fff 0x14f301004000 - 0x14f30100cfff 0x14f30100d000 - 0x14f30100dfff 0x14f30100e000 - 0x14f301010fff 0x14f301011000 - 0x14f301016fff 0x14f301017000 - 0x14f301019fff 0x14f30101c000 - 0x14f30101cfff 0x14f30101d000 - 0x14f30101dfff 0x14f30101e000 - 0x14f301024fff 0x14f301025000 - 0x14f301026fff 0x14f301027000 - 0x14f301047fff 0x14f301048000 - 0x14f30104ffff 0x14f301050000 - 0x14f301050fff 0x14f301051000 - 0x14f301051fff 0x14f301052000 - 0x14f301052fff 0x14f301053000 - 0x14f301053fff 0x7ffc1c7f0000 - 0x7ffc1c810fff 0x7ffc1c8a9000 - 0x7ffc1c8acfff 0x7ffc1c8ad000 - 0x7ffc1c8aefff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x692000 - 0x6b2fff 0x100000000000 - 0x1000000bffff 0x14dd79cf4000 - 0x14dd7a398fff 0x14dd7a399000 - 0x14dd7a3ecfff 0x14dd7a3ed000 - 0x14dd7a3effff 0x14dd7a3f0000 - 0x14dd7a414fff 0x14dd7a415000 - 0x14dd7a564fff 0x14dd7a565000 - 0x14dd7a5affff 0x14dd7a5b0000 - 0x14dd7a5b2fff 0x14dd7a5b3000 - 0x14dd7a5b5fff 0x14dd7a5b6000 - 0x14dd7a5b9fff 0x14dd7a5ba000 - 0x14dd7a5bcfff 0x14dd7a5bd000 - 0x14dd7a5cefff 0x14dd7a5cf000 - 0x14dd7a5d2fff 0x14dd7a5d3000 - 0x14dd7a5d3fff 0x14dd7a5d4000 - 0x14dd7a5d4fff 0x14dd7a5d5000 - 0x14dd7a5d6fff 0x14dd7a5d7000 - 0x14dd7a5e7fff 0x14dd7a5e8000 - 0x14dd7a61ffff 0x14dd7a620000 - 0x14dd7a756fff 0x14dd7a757000 - 0x14dd7a75afff 0x14dd7a75b000 - 0x14dd7a75bfff 0x14dd7a75c000 - 0x14dd7a75cfff 0x14dd7a75d000 - 0x14dd7a75efff 0x14dd7a75f000 - 0x14dd7a75ffff 0x14dd7a760000 - 0x14dd7a760fff 0x14dd7a761000 - 0x14dd7a761fff 0x14dd7a762000 - 0x14dd7a763fff 0x14dd7a764000 - 0x14dd7a766fff 0x14dd7a767000 - 0x14dd7a767fff 0x14dd7a768000 - 0x14dd7a768fff 0x14dd7a769000 - 0x14dd7a769fff 0x14dd7a76a000 - 0x14dd7a76bfff 0x14dd7a76c000 - 0x14dd7a76dfff 0x14dd7a76e000 - 0x14dd7a76efff 0x14dd7a76f000 - 0x14dd7a76ffff 0x14dd7a770000 - 0x14dd7a770fff 0x14dd7a771000 - 0x14dd7a77efff 0x14dd7a77f000 - 0x14dd7a78cfff 0x14dd7a78d000 - 0x14dd7a79afff 0x14dd7a79b000 - 0x14dd7a79efff 0x14dd7a79f000 - 0x14dd7a79ffff 0x14dd7a7a0000 - 0x14dd7a7b5fff 0x14dd7a7b6000 - 0x14dd7a7e1fff 0x14dd7a7e2000 - 0x14dd7a7eafff 0x14dd7a7eb000 - 0x14dd7a7ebfff 0x14dd7a7ec000 - 0x14dd7a7eefff 0x14dd7a7ef000 - 0x14dd7a7f4fff 0x14dd7a7f5000 - 0x14dd7a7f7fff 0x14dd7a7fa000 - 0x14dd7a7fafff 0x14dd7a7fb000 - 0x14dd7a7fbfff 0x14dd7a7fc000 - 0x14dd7a802fff 0x14dd7a803000 - 0x14dd7a804fff 0x14dd7a805000 - 0x14dd7a825fff 0x14dd7a826000 - 0x14dd7a82dfff 0x14dd7a82e000 - 0x14dd7a82efff 0x14dd7a82f000 - 0x14dd7a82ffff 0x14dd7a830000 - 0x14dd7a830fff 0x14dd7a831000 - 0x14dd7a831fff 0x7fff88fb0000 - 0x7fff88fd0fff 0x7fff88fe6000 - 0x7fff88fe9fff 0x7fff88fea000 - 0x7fff88febfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xa67000 - 0xa87fff 0x100000000000 - 0x1000000bffff 0x14acf18e8000 - 0x14acf1f8cfff 0x14acf1f8d000 - 0x14acf1fe0fff 0x14acf1fe1000 - 0x14acf1fe3fff 0x14acf1fe4000 - 0x14acf2008fff 0x14acf2009000 - 0x14acf2158fff 0x14acf2159000 - 0x14acf21a3fff 0x14acf21a4000 - 0x14acf21a6fff 0x14acf21a7000 - 0x14acf21a9fff 0x14acf21aa000 - 0x14acf21adfff 0x14acf21ae000 - 0x14acf21b0fff 0x14acf21b1000 - 0x14acf21c2fff 0x14acf21c3000 - 0x14acf21c6fff 0x14acf21c7000 - 0x14acf21c7fff 0x14acf21c8000 - 0x14acf21c8fff 0x14acf21c9000 - 0x14acf21cafff 0x14acf21cb000 - 0x14acf21dbfff 0x14acf21dc000 - 0x14acf2213fff 0x14acf2214000 - 0x14acf234afff 0x14acf234b000 - 0x14acf234efff 0x14acf234f000 - 0x14acf234ffff 0x14acf2350000 - 0x14acf2350fff 0x14acf2351000 - 0x14acf2352fff 0x14acf2353000 - 0x14acf2353fff 0x14acf2354000 - 0x14acf2354fff 0x14acf2355000 - 0x14acf2355fff 0x14acf2356000 - 0x14acf2357fff 0x14acf2358000 - 0x14acf235afff 0x14acf235b000 - 0x14acf235bfff 0x14acf235c000 - 0x14acf235cfff 0x14acf235d000 - 0x14acf235dfff 0x14acf235e000 - 0x14acf235ffff 0x14acf2360000 - 0x14acf2361fff 0x14acf2362000 - 0x14acf2362fff 0x14acf2363000 - 0x14acf2363fff 0x14acf2364000 - 0x14acf2364fff 0x14acf2365000 - 0x14acf2372fff 0x14acf2373000 - 0x14acf2380fff 0x14acf2381000 - 0x14acf238efff 0x14acf238f000 - 0x14acf2392fff 0x14acf2393000 - 0x14acf2393fff 0x14acf2394000 - 0x14acf23a9fff 0x14acf23aa000 - 0x14acf23d5fff 0x14acf23d6000 - 0x14acf23defff 0x14acf23df000 - 0x14acf23dffff 0x14acf23e0000 - 0x14acf23e2fff 0x14acf23e3000 - 0x14acf23e8fff 0x14acf23e9000 - 0x14acf23ebfff 0x14acf23ee000 - 0x14acf23eefff 0x14acf23ef000 - 0x14acf23effff 0x14acf23f0000 - 0x14acf23f6fff 0x14acf23f7000 - 0x14acf23f8fff 0x14acf23f9000 - 0x14acf2419fff 0x14acf241a000 - 0x14acf2421fff 0x14acf2422000 - 0x14acf2422fff 0x14acf2423000 - 0x14acf2423fff 0x14acf2424000 - 0x14acf2424fff 0x14acf2425000 - 0x14acf2425fff 0x7ffc82627000 - 0x7ffc82647fff 0x7ffc82685000 - 0x7ffc82688fff 0x7ffc82689000 - 0x7ffc8268afff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x696000 - 0x6b6fff 0x100000000000 - 0x1000000bffff 0x153eb9b13000 - 0x153eba1b7fff 0x153eba1b8000 - 0x153eba20bfff 0x153eba20c000 - 0x153eba20efff 0x153eba20f000 - 0x153eba233fff 0x153eba234000 - 0x153eba383fff 0x153eba384000 - 0x153eba3cefff 0x153eba3cf000 - 0x153eba3d1fff 0x153eba3d2000 - 0x153eba3d4fff 0x153eba3d5000 - 0x153eba3d8fff 0x153eba3d9000 - 0x153eba3dbfff 0x153eba3dc000 - 0x153eba3edfff 0x153eba3ee000 - 0x153eba3f1fff 0x153eba3f2000 - 0x153eba3f2fff 0x153eba3f3000 - 0x153eba3f3fff 0x153eba3f4000 - 0x153eba3f5fff 0x153eba3f6000 - 0x153eba406fff 0x153eba407000 - 0x153eba43efff 0x153eba43f000 - 0x153eba575fff 0x153eba576000 - 0x153eba579fff 0x153eba57a000 - 0x153eba57afff 0x153eba57b000 - 0x153eba57bfff 0x153eba57c000 - 0x153eba57dfff 0x153eba57e000 - 0x153eba57efff 0x153eba57f000 - 0x153eba57ffff 0x153eba580000 - 0x153eba580fff 0x153eba581000 - 0x153eba582fff 0x153eba583000 - 0x153eba585fff 0x153eba586000 - 0x153eba586fff 0x153eba587000 - 0x153eba587fff 0x153eba588000 - 0x153eba588fff 0x153eba589000 - 0x153eba58afff 0x153eba58b000 - 0x153eba58cfff 0x153eba58d000 - 0x153eba58dfff 0x153eba58e000 - 0x153eba58efff 0x153eba58f000 - 0x153eba58ffff 0x153eba590000 - 0x153eba59dfff 0x153eba59e000 - 0x153eba5abfff 0x153eba5ac000 - 0x153eba5b9fff 0x153eba5ba000 - 0x153eba5bdfff 0x153eba5be000 - 0x153eba5befff 0x153eba5bf000 - 0x153eba5d4fff 0x153eba5d5000 - 0x153eba600fff 0x153eba601000 - 0x153eba609fff 0x153eba60a000 - 0x153eba60afff 0x153eba60b000 - 0x153eba60dfff 0x153eba60e000 - 0x153eba613fff 0x153eba614000 - 0x153eba616fff 0x153eba619000 - 0x153eba619fff 0x153eba61a000 - 0x153eba61afff 0x153eba61b000 - 0x153eba621fff 0x153eba622000 - 0x153eba623fff 0x153eba624000 - 0x153eba644fff 0x153eba645000 - 0x153eba64cfff 0x153eba64d000 - 0x153eba64dfff 0x153eba64e000 - 0x153eba64efff 0x153eba64f000 - 0x153eba64ffff 0x153eba650000 - 0x153eba650fff 0x7ffdac919000 - 0x7ffdac939fff 0x7ffdac9b0000 - 0x7ffdac9b3fff 0x7ffdac9b4000 - 0x7ffdac9b5fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x7f5000 - 0x815fff 0x100000000000 - 0x1000000bffff 0x14796a3cd000 - 0x14796aa71fff 0x14796aa72000 - 0x14796aac5fff 0x14796aac6000 - 0x14796aac8fff 0x14796aac9000 - 0x14796aaedfff 0x14796aaee000 - 0x14796ac3dfff 0x14796ac3e000 - 0x14796ac88fff 0x14796ac89000 - 0x14796ac8bfff 0x14796ac8c000 - 0x14796ac8efff 0x14796ac8f000 - 0x14796ac92fff 0x14796ac93000 - 0x14796ac95fff 0x14796ac96000 - 0x14796aca7fff 0x14796aca8000 - 0x14796acabfff 0x14796acac000 - 0x14796acacfff 0x14796acad000 - 0x14796acadfff 0x14796acae000 - 0x14796acaffff 0x14796acb0000 - 0x14796acc0fff 0x14796acc1000 - 0x14796acf8fff 0x14796acf9000 - 0x14796ae2ffff 0x14796ae30000 - 0x14796ae33fff 0x14796ae34000 - 0x14796ae34fff 0x14796ae35000 - 0x14796ae35fff 0x14796ae36000 - 0x14796ae37fff 0x14796ae38000 - 0x14796ae38fff 0x14796ae39000 - 0x14796ae39fff 0x14796ae3a000 - 0x14796ae3afff 0x14796ae3b000 - 0x14796ae3cfff 0x14796ae3d000 - 0x14796ae3ffff 0x14796ae40000 - 0x14796ae40fff 0x14796ae41000 - 0x14796ae41fff 0x14796ae42000 - 0x14796ae42fff 0x14796ae43000 - 0x14796ae44fff 0x14796ae45000 - 0x14796ae46fff 0x14796ae47000 - 0x14796ae47fff 0x14796ae48000 - 0x14796ae48fff 0x14796ae49000 - 0x14796ae49fff 0x14796ae4a000 - 0x14796ae57fff 0x14796ae58000 - 0x14796ae65fff 0x14796ae66000 - 0x14796ae73fff 0x14796ae74000 - 0x14796ae77fff 0x14796ae78000 - 0x14796ae78fff 0x14796ae79000 - 0x14796ae8efff 0x14796ae8f000 - 0x14796aebafff 0x14796aebb000 - 0x14796aec3fff 0x14796aec4000 - 0x14796aec4fff 0x14796aec5000 - 0x14796aec7fff 0x14796aec8000 - 0x14796aecdfff 0x14796aece000 - 0x14796aed0fff 0x14796aed3000 - 0x14796aed3fff 0x14796aed4000 - 0x14796aed4fff 0x14796aed5000 - 0x14796aedbfff 0x14796aedc000 - 0x14796aeddfff 0x14796aede000 - 0x14796aefefff 0x14796aeff000 - 0x14796af06fff 0x14796af07000 - 0x14796af07fff 0x14796af08000 - 0x14796af08fff 0x14796af09000 - 0x14796af09fff 0x14796af0a000 - 0x14796af0afff 0x7ffc0311e000 - 0x7ffc0313efff 0x7ffc03194000 - 0x7ffc03197fff 0x7ffc03198000 - 0x7ffc03199fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1654000 - 0x1674fff 0x100000000000 - 0x1000000bffff 0x1487d269d000 - 0x1487d2d41fff 0x1487d2d42000 - 0x1487d2d95fff 0x1487d2d96000 - 0x1487d2d98fff 0x1487d2d99000 - 0x1487d2dbdfff 0x1487d2dbe000 - 0x1487d2f0dfff 0x1487d2f0e000 - 0x1487d2f58fff 0x1487d2f59000 - 0x1487d2f5bfff 0x1487d2f5c000 - 0x1487d2f5efff 0x1487d2f5f000 - 0x1487d2f62fff 0x1487d2f63000 - 0x1487d2f65fff 0x1487d2f66000 - 0x1487d2f77fff 0x1487d2f78000 - 0x1487d2f7bfff 0x1487d2f7c000 - 0x1487d2f7cfff 0x1487d2f7d000 - 0x1487d2f7dfff 0x1487d2f7e000 - 0x1487d2f7ffff 0x1487d2f80000 - 0x1487d2f90fff 0x1487d2f91000 - 0x1487d2fc8fff 0x1487d2fc9000 - 0x1487d30fffff 0x1487d3100000 - 0x1487d3103fff 0x1487d3104000 - 0x1487d3104fff 0x1487d3105000 - 0x1487d3105fff 0x1487d3106000 - 0x1487d3107fff 0x1487d3108000 - 0x1487d3108fff 0x1487d3109000 - 0x1487d3109fff 0x1487d310a000 - 0x1487d310afff 0x1487d310b000 - 0x1487d310cfff 0x1487d310d000 - 0x1487d310ffff 0x1487d3110000 - 0x1487d3110fff 0x1487d3111000 - 0x1487d3111fff 0x1487d3112000 - 0x1487d3112fff 0x1487d3113000 - 0x1487d3114fff 0x1487d3115000 - 0x1487d3116fff 0x1487d3117000 - 0x1487d3117fff 0x1487d3118000 - 0x1487d3118fff 0x1487d3119000 - 0x1487d3119fff 0x1487d311a000 - 0x1487d3127fff 0x1487d3128000 - 0x1487d3135fff 0x1487d3136000 - 0x1487d3143fff 0x1487d3144000 - 0x1487d3147fff 0x1487d3148000 - 0x1487d3148fff 0x1487d3149000 - 0x1487d315efff 0x1487d315f000 - 0x1487d318afff 0x1487d318b000 - 0x1487d3193fff 0x1487d3194000 - 0x1487d3194fff 0x1487d3195000 - 0x1487d3197fff 0x1487d3198000 - 0x1487d319dfff 0x1487d319e000 - 0x1487d31a0fff 0x1487d31a3000 - 0x1487d31a3fff 0x1487d31a4000 - 0x1487d31a4fff 0x1487d31a5000 - 0x1487d31abfff 0x1487d31ac000 - 0x1487d31adfff 0x1487d31ae000 - 0x1487d31cefff 0x1487d31cf000 - 0x1487d31d6fff 0x1487d31d7000 - 0x1487d31d7fff 0x1487d31d8000 - 0x1487d31d8fff 0x1487d31d9000 - 0x1487d31d9fff 0x1487d31da000 - 0x1487d31dafff 0x7fff6be2c000 - 0x7fff6be4cfff 0x7fff6bed6000 - 0x7fff6bed9fff 0x7fff6beda000 - 0x7fff6bedbfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x15cd000 - 0x15edfff 0x100000000000 - 0x1000000bffff 0x152b588a6000 - 0x152b58f4afff 0x152b58f4b000 - 0x152b58f9efff 0x152b58f9f000 - 0x152b58fa1fff 0x152b58fa2000 - 0x152b58fc6fff 0x152b58fc7000 - 0x152b59116fff 0x152b59117000 - 0x152b59161fff 0x152b59162000 - 0x152b59164fff 0x152b59165000 - 0x152b59167fff 0x152b59168000 - 0x152b5916bfff 0x152b5916c000 - 0x152b5916efff 0x152b5916f000 - 0x152b59180fff 0x152b59181000 - 0x152b59184fff 0x152b59185000 - 0x152b59185fff 0x152b59186000 - 0x152b59186fff 0x152b59187000 - 0x152b59188fff 0x152b59189000 - 0x152b59199fff 0x152b5919a000 - 0x152b591d1fff 0x152b591d2000 - 0x152b59308fff 0x152b59309000 - 0x152b5930cfff 0x152b5930d000 - 0x152b5930dfff 0x152b5930e000 - 0x152b5930efff 0x152b5930f000 - 0x152b59310fff 0x152b59311000 - 0x152b59311fff 0x152b59312000 - 0x152b59312fff 0x152b59313000 - 0x152b59313fff 0x152b59314000 - 0x152b59315fff 0x152b59316000 - 0x152b59318fff 0x152b59319000 - 0x152b59319fff 0x152b5931a000 - 0x152b5931afff 0x152b5931b000 - 0x152b5931bfff 0x152b5931c000 - 0x152b5931dfff 0x152b5931e000 - 0x152b5931ffff 0x152b59320000 - 0x152b59320fff 0x152b59321000 - 0x152b59321fff 0x152b59322000 - 0x152b59322fff 0x152b59323000 - 0x152b59330fff 0x152b59331000 - 0x152b5933efff 0x152b5933f000 - 0x152b5934cfff 0x152b5934d000 - 0x152b59350fff 0x152b59351000 - 0x152b59351fff 0x152b59352000 - 0x152b59367fff 0x152b59368000 - 0x152b59393fff 0x152b59394000 - 0x152b5939cfff 0x152b5939d000 - 0x152b5939dfff 0x152b5939e000 - 0x152b593a0fff 0x152b593a1000 - 0x152b593a6fff 0x152b593a7000 - 0x152b593a9fff 0x152b593ac000 - 0x152b593acfff 0x152b593ad000 - 0x152b593adfff 0x152b593ae000 - 0x152b593b4fff 0x152b593b5000 - 0x152b593b6fff 0x152b593b7000 - 0x152b593d7fff 0x152b593d8000 - 0x152b593dffff 0x152b593e0000 - 0x152b593e0fff 0x152b593e1000 - 0x152b593e1fff 0x152b593e2000 - 0x152b593e2fff 0x152b593e3000 - 0x152b593e3fff 0x7ffeac7c9000 - 0x7ffeac7e9fff 0x7ffeac7ec000 - 0x7ffeac7effff 0x7ffeac7f0000 - 0x7ffeac7f1fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x19dd000 - 0x19fdfff 0x100000000000 - 0x1000000bffff 0x151a5f350000 - 0x151a5f9f4fff 0x151a5f9f5000 - 0x151a5fa48fff 0x151a5fa49000 - 0x151a5fa4bfff 0x151a5fa4c000 - 0x151a5fa70fff 0x151a5fa71000 - 0x151a5fbc0fff 0x151a5fbc1000 - 0x151a5fc0bfff 0x151a5fc0c000 - 0x151a5fc0efff 0x151a5fc0f000 - 0x151a5fc11fff 0x151a5fc12000 - 0x151a5fc15fff 0x151a5fc16000 - 0x151a5fc18fff 0x151a5fc19000 - 0x151a5fc2afff 0x151a5fc2b000 - 0x151a5fc2efff 0x151a5fc2f000 - 0x151a5fc2ffff 0x151a5fc30000 - 0x151a5fc30fff 0x151a5fc31000 - 0x151a5fc32fff 0x151a5fc33000 - 0x151a5fc43fff 0x151a5fc44000 - 0x151a5fc7bfff 0x151a5fc7c000 - 0x151a5fdb2fff 0x151a5fdb3000 - 0x151a5fdb6fff 0x151a5fdb7000 - 0x151a5fdb7fff 0x151a5fdb8000 - 0x151a5fdb8fff 0x151a5fdb9000 - 0x151a5fdbafff 0x151a5fdbb000 - 0x151a5fdbbfff 0x151a5fdbc000 - 0x151a5fdbcfff 0x151a5fdbd000 - 0x151a5fdbdfff 0x151a5fdbe000 - 0x151a5fdbffff 0x151a5fdc0000 - 0x151a5fdc2fff 0x151a5fdc3000 - 0x151a5fdc3fff 0x151a5fdc4000 - 0x151a5fdc4fff 0x151a5fdc5000 - 0x151a5fdc5fff 0x151a5fdc6000 - 0x151a5fdc7fff 0x151a5fdc8000 - 0x151a5fdc9fff 0x151a5fdca000 - 0x151a5fdcafff 0x151a5fdcb000 - 0x151a5fdcbfff 0x151a5fdcc000 - 0x151a5fdccfff 0x151a5fdcd000 - 0x151a5fddafff 0x151a5fddb000 - 0x151a5fde8fff 0x151a5fde9000 - 0x151a5fdf6fff 0x151a5fdf7000 - 0x151a5fdfafff 0x151a5fdfb000 - 0x151a5fdfbfff 0x151a5fdfc000 - 0x151a5fe11fff 0x151a5fe12000 - 0x151a5fe3dfff 0x151a5fe3e000 - 0x151a5fe46fff 0x151a5fe47000 - 0x151a5fe47fff 0x151a5fe48000 - 0x151a5fe4afff 0x151a5fe4b000 - 0x151a5fe50fff 0x151a5fe51000 - 0x151a5fe53fff 0x151a5fe56000 - 0x151a5fe56fff 0x151a5fe57000 - 0x151a5fe57fff 0x151a5fe58000 - 0x151a5fe5efff 0x151a5fe5f000 - 0x151a5fe60fff 0x151a5fe61000 - 0x151a5fe81fff 0x151a5fe82000 - 0x151a5fe89fff 0x151a5fe8a000 - 0x151a5fe8afff 0x151a5fe8b000 - 0x151a5fe8bfff 0x151a5fe8c000 - 0x151a5fe8cfff 0x151a5fe8d000 - 0x151a5fe8dfff 0x7ffd348f4000 - 0x7ffd34914fff 0x7ffd34958000 - 0x7ffd3495bfff 0x7ffd3495c000 - 0x7ffd3495dfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1c66000 - 0x1c86fff 0x100000000000 - 0x1000000bffff 0x153ce3d6b000 - 0x153ce440ffff 0x153ce4410000 - 0x153ce4463fff 0x153ce4464000 - 0x153ce4466fff 0x153ce4467000 - 0x153ce448bfff 0x153ce448c000 - 0x153ce45dbfff 0x153ce45dc000 - 0x153ce4626fff 0x153ce4627000 - 0x153ce4629fff 0x153ce462a000 - 0x153ce462cfff 0x153ce462d000 - 0x153ce4630fff 0x153ce4631000 - 0x153ce4633fff 0x153ce4634000 - 0x153ce4645fff 0x153ce4646000 - 0x153ce4649fff 0x153ce464a000 - 0x153ce464afff 0x153ce464b000 - 0x153ce464bfff 0x153ce464c000 - 0x153ce464dfff 0x153ce464e000 - 0x153ce465efff 0x153ce465f000 - 0x153ce4696fff 0x153ce4697000 - 0x153ce47cdfff 0x153ce47ce000 - 0x153ce47d1fff 0x153ce47d2000 - 0x153ce47d2fff 0x153ce47d3000 - 0x153ce47d3fff 0x153ce47d4000 - 0x153ce47d5fff 0x153ce47d6000 - 0x153ce47d6fff 0x153ce47d7000 - 0x153ce47d7fff 0x153ce47d8000 - 0x153ce47d8fff 0x153ce47d9000 - 0x153ce47dafff 0x153ce47db000 - 0x153ce47ddfff 0x153ce47de000 - 0x153ce47defff 0x153ce47df000 - 0x153ce47dffff 0x153ce47e0000 - 0x153ce47e0fff 0x153ce47e1000 - 0x153ce47e2fff 0x153ce47e3000 - 0x153ce47e4fff 0x153ce47e5000 - 0x153ce47e5fff 0x153ce47e6000 - 0x153ce47e6fff 0x153ce47e7000 - 0x153ce47e7fff 0x153ce47e8000 - 0x153ce47f5fff 0x153ce47f6000 - 0x153ce4803fff 0x153ce4804000 - 0x153ce4811fff 0x153ce4812000 - 0x153ce4815fff 0x153ce4816000 - 0x153ce4816fff 0x153ce4817000 - 0x153ce482cfff 0x153ce482d000 - 0x153ce4858fff 0x153ce4859000 - 0x153ce4861fff 0x153ce4862000 - 0x153ce4862fff 0x153ce4863000 - 0x153ce4865fff 0x153ce4866000 - 0x153ce486bfff 0x153ce486c000 - 0x153ce486efff 0x153ce4871000 - 0x153ce4871fff 0x153ce4872000 - 0x153ce4872fff 0x153ce4873000 - 0x153ce4879fff 0x153ce487a000 - 0x153ce487bfff 0x153ce487c000 - 0x153ce489cfff 0x153ce489d000 - 0x153ce48a4fff 0x153ce48a5000 - 0x153ce48a5fff 0x153ce48a6000 - 0x153ce48a6fff 0x153ce48a7000 - 0x153ce48a7fff 0x153ce48a8000 - 0x153ce48a8fff 0x7ffd95801000 - 0x7ffd95821fff 0x7ffd95907000 - 0x7ffd9590afff 0x7ffd9590b000 - 0x7ffd9590cfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xe5e000 - 0xe7efff 0x100000000000 - 0x1000000bffff 0x1544d05aa000 - 0x1544d0c4efff 0x1544d0c4f000 - 0x1544d0ca2fff 0x1544d0ca3000 - 0x1544d0ca5fff 0x1544d0ca6000 - 0x1544d0ccafff 0x1544d0ccb000 - 0x1544d0e1afff 0x1544d0e1b000 - 0x1544d0e65fff 0x1544d0e66000 - 0x1544d0e68fff 0x1544d0e69000 - 0x1544d0e6bfff 0x1544d0e6c000 - 0x1544d0e6ffff 0x1544d0e70000 - 0x1544d0e72fff 0x1544d0e73000 - 0x1544d0e84fff 0x1544d0e85000 - 0x1544d0e88fff 0x1544d0e89000 - 0x1544d0e89fff 0x1544d0e8a000 - 0x1544d0e8afff 0x1544d0e8b000 - 0x1544d0e8cfff 0x1544d0e8d000 - 0x1544d0e9dfff 0x1544d0e9e000 - 0x1544d0ed5fff 0x1544d0ed6000 - 0x1544d100cfff 0x1544d100d000 - 0x1544d1010fff 0x1544d1011000 - 0x1544d1011fff 0x1544d1012000 - 0x1544d1012fff 0x1544d1013000 - 0x1544d1014fff 0x1544d1015000 - 0x1544d1015fff 0x1544d1016000 - 0x1544d1016fff 0x1544d1017000 - 0x1544d1017fff 0x1544d1018000 - 0x1544d1019fff 0x1544d101a000 - 0x1544d101cfff 0x1544d101d000 - 0x1544d101dfff 0x1544d101e000 - 0x1544d101efff 0x1544d101f000 - 0x1544d101ffff 0x1544d1020000 - 0x1544d1021fff 0x1544d1022000 - 0x1544d1023fff 0x1544d1024000 - 0x1544d1024fff 0x1544d1025000 - 0x1544d1025fff 0x1544d1026000 - 0x1544d1026fff 0x1544d1027000 - 0x1544d1034fff 0x1544d1035000 - 0x1544d1042fff 0x1544d1043000 - 0x1544d1050fff 0x1544d1051000 - 0x1544d1054fff 0x1544d1055000 - 0x1544d1055fff 0x1544d1056000 - 0x1544d106bfff 0x1544d106c000 - 0x1544d1097fff 0x1544d1098000 - 0x1544d10a0fff 0x1544d10a1000 - 0x1544d10a1fff 0x1544d10a2000 - 0x1544d10a4fff 0x1544d10a5000 - 0x1544d10aafff 0x1544d10ab000 - 0x1544d10adfff 0x1544d10b0000 - 0x1544d10b0fff 0x1544d10b1000 - 0x1544d10b1fff 0x1544d10b2000 - 0x1544d10b8fff 0x1544d10b9000 - 0x1544d10bafff 0x1544d10bb000 - 0x1544d10dbfff 0x1544d10dc000 - 0x1544d10e3fff 0x1544d10e4000 - 0x1544d10e4fff 0x1544d10e5000 - 0x1544d10e5fff 0x1544d10e6000 - 0x1544d10e6fff 0x1544d10e7000 - 0x1544d10e7fff 0x7ffc3410e000 - 0x7ffc3412efff 0x7ffc3419b000 - 0x7ffc3419efff 0x7ffc3419f000 - 0x7ffc341a0fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x23eb000 - 0x240bfff 0x100000000000 - 0x1000000bffff 0x146ea7584000 - 0x146ea7c28fff 0x146ea7c29000 - 0x146ea7c7cfff 0x146ea7c7d000 - 0x146ea7c7ffff 0x146ea7c80000 - 0x146ea7ca4fff 0x146ea7ca5000 - 0x146ea7df4fff 0x146ea7df5000 - 0x146ea7e3ffff 0x146ea7e40000 - 0x146ea7e42fff 0x146ea7e43000 - 0x146ea7e45fff 0x146ea7e46000 - 0x146ea7e49fff 0x146ea7e4a000 - 0x146ea7e4cfff 0x146ea7e4d000 - 0x146ea7e5efff 0x146ea7e5f000 - 0x146ea7e62fff 0x146ea7e63000 - 0x146ea7e63fff 0x146ea7e64000 - 0x146ea7e64fff 0x146ea7e65000 - 0x146ea7e66fff 0x146ea7e67000 - 0x146ea7e77fff 0x146ea7e78000 - 0x146ea7eaffff 0x146ea7eb0000 - 0x146ea7fe6fff 0x146ea7fe7000 - 0x146ea7feafff 0x146ea7feb000 - 0x146ea7febfff 0x146ea7fec000 - 0x146ea7fecfff 0x146ea7fed000 - 0x146ea7feefff 0x146ea7fef000 - 0x146ea7feffff 0x146ea7ff0000 - 0x146ea7ff0fff 0x146ea7ff1000 - 0x146ea7ff1fff 0x146ea7ff2000 - 0x146ea7ff3fff 0x146ea7ff4000 - 0x146ea7ff6fff 0x146ea7ff7000 - 0x146ea7ff7fff 0x146ea7ff8000 - 0x146ea7ff8fff 0x146ea7ff9000 - 0x146ea7ff9fff 0x146ea7ffa000 - 0x146ea7ffbfff 0x146ea7ffc000 - 0x146ea7ffdfff 0x146ea7ffe000 - 0x146ea7ffefff 0x146ea7fff000 - 0x146ea7ffffff 0x146ea8000000 - 0x146ea8000fff 0x146ea8001000 - 0x146ea800efff 0x146ea800f000 - 0x146ea801cfff 0x146ea801d000 - 0x146ea802afff 0x146ea802b000 - 0x146ea802efff 0x146ea802f000 - 0x146ea802ffff 0x146ea8030000 - 0x146ea8045fff 0x146ea8046000 - 0x146ea8071fff 0x146ea8072000 - 0x146ea807afff 0x146ea807b000 - 0x146ea807bfff 0x146ea807c000 - 0x146ea807efff 0x146ea807f000 - 0x146ea8084fff 0x146ea8085000 - 0x146ea8087fff 0x146ea808a000 - 0x146ea808afff 0x146ea808b000 - 0x146ea808bfff 0x146ea808c000 - 0x146ea8092fff 0x146ea8093000 - 0x146ea8094fff 0x146ea8095000 - 0x146ea80b5fff 0x146ea80b6000 - 0x146ea80bdfff 0x146ea80be000 - 0x146ea80befff 0x146ea80bf000 - 0x146ea80bffff 0x146ea80c0000 - 0x146ea80c0fff 0x146ea80c1000 - 0x146ea80c1fff 0x7fffc8307000 - 0x7fffc8327fff 0x7fffc8349000 - 0x7fffc834cfff 0x7fffc834d000 - 0x7fffc834efff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x14e9000 - 0x1509fff 0x100000000000 - 0x1000000bffff 0x14e7df6f2000 - 0x14e7dfd96fff 0x14e7dfd97000 - 0x14e7dfdeafff 0x14e7dfdeb000 - 0x14e7dfdedfff 0x14e7dfdee000 - 0x14e7dfe12fff 0x14e7dfe13000 - 0x14e7dff62fff 0x14e7dff63000 - 0x14e7dffadfff 0x14e7dffae000 - 0x14e7dffb0fff 0x14e7dffb1000 - 0x14e7dffb3fff 0x14e7dffb4000 - 0x14e7dffb7fff 0x14e7dffb8000 - 0x14e7dffbafff 0x14e7dffbb000 - 0x14e7dffccfff 0x14e7dffcd000 - 0x14e7dffd0fff 0x14e7dffd1000 - 0x14e7dffd1fff 0x14e7dffd2000 - 0x14e7dffd2fff 0x14e7dffd3000 - 0x14e7dffd4fff 0x14e7dffd5000 - 0x14e7dffe5fff 0x14e7dffe6000 - 0x14e7e001dfff 0x14e7e001e000 - 0x14e7e0154fff 0x14e7e0155000 - 0x14e7e0158fff 0x14e7e0159000 - 0x14e7e0159fff 0x14e7e015a000 - 0x14e7e015afff 0x14e7e015b000 - 0x14e7e015cfff 0x14e7e015d000 - 0x14e7e015dfff 0x14e7e015e000 - 0x14e7e015efff 0x14e7e015f000 - 0x14e7e015ffff 0x14e7e0160000 - 0x14e7e0161fff 0x14e7e0162000 - 0x14e7e0164fff 0x14e7e0165000 - 0x14e7e0165fff 0x14e7e0166000 - 0x14e7e0166fff 0x14e7e0167000 - 0x14e7e0167fff 0x14e7e0168000 - 0x14e7e0169fff 0x14e7e016a000 - 0x14e7e016bfff 0x14e7e016c000 - 0x14e7e016cfff 0x14e7e016d000 - 0x14e7e016dfff 0x14e7e016e000 - 0x14e7e016efff 0x14e7e016f000 - 0x14e7e017cfff 0x14e7e017d000 - 0x14e7e018afff 0x14e7e018b000 - 0x14e7e0198fff 0x14e7e0199000 - 0x14e7e019cfff 0x14e7e019d000 - 0x14e7e019dfff 0x14e7e019e000 - 0x14e7e01b3fff 0x14e7e01b4000 - 0x14e7e01dffff 0x14e7e01e0000 - 0x14e7e01e8fff 0x14e7e01e9000 - 0x14e7e01e9fff 0x14e7e01ea000 - 0x14e7e01ecfff 0x14e7e01ed000 - 0x14e7e01f2fff 0x14e7e01f3000 - 0x14e7e01f5fff 0x14e7e01f8000 - 0x14e7e01f8fff 0x14e7e01f9000 - 0x14e7e01f9fff 0x14e7e01fa000 - 0x14e7e0200fff 0x14e7e0201000 - 0x14e7e0202fff 0x14e7e0203000 - 0x14e7e0223fff 0x14e7e0224000 - 0x14e7e022bfff 0x14e7e022c000 - 0x14e7e022cfff 0x14e7e022d000 - 0x14e7e022dfff 0x14e7e022e000 - 0x14e7e022efff 0x14e7e022f000 - 0x14e7e022ffff 0x7ffd101de000 - 0x7ffd101fefff 0x7ffd103f0000 - 0x7ffd103f3fff 0x7ffd103f4000 - 0x7ffd103f5fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xb7b000 - 0xb9bfff 0x100000000000 - 0x1000000bffff 0x15071841b000 - 0x150718abffff 0x150718ac0000 - 0x150718b13fff 0x150718b14000 - 0x150718b16fff 0x150718b17000 - 0x150718b3bfff 0x150718b3c000 - 0x150718c8bfff 0x150718c8c000 - 0x150718cd6fff 0x150718cd7000 - 0x150718cd9fff 0x150718cda000 - 0x150718cdcfff 0x150718cdd000 - 0x150718ce0fff 0x150718ce1000 - 0x150718ce3fff 0x150718ce4000 - 0x150718cf5fff 0x150718cf6000 - 0x150718cf9fff 0x150718cfa000 - 0x150718cfafff 0x150718cfb000 - 0x150718cfbfff 0x150718cfc000 - 0x150718cfdfff 0x150718cfe000 - 0x150718d0efff 0x150718d0f000 - 0x150718d46fff 0x150718d47000 - 0x150718e7dfff 0x150718e7e000 - 0x150718e81fff 0x150718e82000 - 0x150718e82fff 0x150718e83000 - 0x150718e83fff 0x150718e84000 - 0x150718e85fff 0x150718e86000 - 0x150718e86fff 0x150718e87000 - 0x150718e87fff 0x150718e88000 - 0x150718e88fff 0x150718e89000 - 0x150718e8afff 0x150718e8b000 - 0x150718e8dfff 0x150718e8e000 - 0x150718e8efff 0x150718e8f000 - 0x150718e8ffff 0x150718e90000 - 0x150718e90fff 0x150718e91000 - 0x150718e92fff 0x150718e93000 - 0x150718e94fff 0x150718e95000 - 0x150718e95fff 0x150718e96000 - 0x150718e96fff 0x150718e97000 - 0x150718e97fff 0x150718e98000 - 0x150718ea5fff 0x150718ea6000 - 0x150718eb3fff 0x150718eb4000 - 0x150718ec1fff 0x150718ec2000 - 0x150718ec5fff 0x150718ec6000 - 0x150718ec6fff 0x150718ec7000 - 0x150718edcfff 0x150718edd000 - 0x150718f08fff 0x150718f09000 - 0x150718f11fff 0x150718f12000 - 0x150718f12fff 0x150718f13000 - 0x150718f15fff 0x150718f16000 - 0x150718f1bfff 0x150718f1c000 - 0x150718f1efff 0x150718f21000 - 0x150718f21fff 0x150718f22000 - 0x150718f22fff 0x150718f23000 - 0x150718f29fff 0x150718f2a000 - 0x150718f2bfff 0x150718f2c000 - 0x150718f4cfff 0x150718f4d000 - 0x150718f54fff 0x150718f55000 - 0x150718f55fff 0x150718f56000 - 0x150718f56fff 0x150718f57000 - 0x150718f57fff 0x150718f58000 - 0x150718f58fff 0x7ffcfbc23000 - 0x7ffcfbc43fff 0x7ffcfbcef000 - 0x7ffcfbcf2fff 0x7ffcfbcf3000 - 0x7ffcfbcf4fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x23d3000 - 0x23f3fff 0x100000000000 - 0x1000000bffff 0x148fbe742000 - 0x148fbede6fff 0x148fbede7000 - 0x148fbee3afff 0x148fbee3b000 - 0x148fbee3dfff 0x148fbee3e000 - 0x148fbee62fff 0x148fbee63000 - 0x148fbefb2fff 0x148fbefb3000 - 0x148fbeffdfff 0x148fbeffe000 - 0x148fbf000fff 0x148fbf001000 - 0x148fbf003fff 0x148fbf004000 - 0x148fbf007fff 0x148fbf008000 - 0x148fbf00afff 0x148fbf00b000 - 0x148fbf01cfff 0x148fbf01d000 - 0x148fbf020fff 0x148fbf021000 - 0x148fbf021fff 0x148fbf022000 - 0x148fbf022fff 0x148fbf023000 - 0x148fbf024fff 0x148fbf025000 - 0x148fbf035fff 0x148fbf036000 - 0x148fbf06dfff 0x148fbf06e000 - 0x148fbf1a4fff 0x148fbf1a5000 - 0x148fbf1a8fff 0x148fbf1a9000 - 0x148fbf1a9fff 0x148fbf1aa000 - 0x148fbf1aafff 0x148fbf1ab000 - 0x148fbf1acfff 0x148fbf1ad000 - 0x148fbf1adfff 0x148fbf1ae000 - 0x148fbf1aefff 0x148fbf1af000 - 0x148fbf1affff 0x148fbf1b0000 - 0x148fbf1b1fff 0x148fbf1b2000 - 0x148fbf1b4fff 0x148fbf1b5000 - 0x148fbf1b5fff 0x148fbf1b6000 - 0x148fbf1b6fff 0x148fbf1b7000 - 0x148fbf1b7fff 0x148fbf1b8000 - 0x148fbf1b9fff 0x148fbf1ba000 - 0x148fbf1bbfff 0x148fbf1bc000 - 0x148fbf1bcfff 0x148fbf1bd000 - 0x148fbf1bdfff 0x148fbf1be000 - 0x148fbf1befff 0x148fbf1bf000 - 0x148fbf1ccfff 0x148fbf1cd000 - 0x148fbf1dafff 0x148fbf1db000 - 0x148fbf1e8fff 0x148fbf1e9000 - 0x148fbf1ecfff 0x148fbf1ed000 - 0x148fbf1edfff 0x148fbf1ee000 - 0x148fbf203fff 0x148fbf204000 - 0x148fbf22ffff 0x148fbf230000 - 0x148fbf238fff 0x148fbf239000 - 0x148fbf239fff 0x148fbf23a000 - 0x148fbf23cfff 0x148fbf23d000 - 0x148fbf242fff 0x148fbf243000 - 0x148fbf245fff 0x148fbf248000 - 0x148fbf248fff 0x148fbf249000 - 0x148fbf249fff 0x148fbf24a000 - 0x148fbf250fff 0x148fbf251000 - 0x148fbf252fff 0x148fbf253000 - 0x148fbf273fff 0x148fbf274000 - 0x148fbf27bfff 0x148fbf27c000 - 0x148fbf27cfff 0x148fbf27d000 - 0x148fbf27dfff 0x148fbf27e000 - 0x148fbf27efff 0x148fbf27f000 - 0x148fbf27ffff 0x7ffda9ac6000 - 0x7ffda9ae6fff 0x7ffda9bb9000 - 0x7ffda9bbcfff 0x7ffda9bbd000 - 0x7ffda9bbefff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x9d8000 - 0x9f8fff 0x100000000000 - 0x1000000bffff 0x151077526000 - 0x151077bcafff 0x151077bcb000 - 0x151077c1efff 0x151077c1f000 - 0x151077c21fff 0x151077c22000 - 0x151077c46fff 0x151077c47000 - 0x151077d96fff 0x151077d97000 - 0x151077de1fff 0x151077de2000 - 0x151077de4fff 0x151077de5000 - 0x151077de7fff 0x151077de8000 - 0x151077debfff 0x151077dec000 - 0x151077deefff 0x151077def000 - 0x151077e00fff 0x151077e01000 - 0x151077e04fff 0x151077e05000 - 0x151077e05fff 0x151077e06000 - 0x151077e06fff 0x151077e07000 - 0x151077e08fff 0x151077e09000 - 0x151077e19fff 0x151077e1a000 - 0x151077e51fff 0x151077e52000 - 0x151077f88fff 0x151077f89000 - 0x151077f8cfff 0x151077f8d000 - 0x151077f8dfff 0x151077f8e000 - 0x151077f8efff 0x151077f8f000 - 0x151077f90fff 0x151077f91000 - 0x151077f91fff 0x151077f92000 - 0x151077f92fff 0x151077f93000 - 0x151077f93fff 0x151077f94000 - 0x151077f95fff 0x151077f96000 - 0x151077f98fff 0x151077f99000 - 0x151077f99fff 0x151077f9a000 - 0x151077f9afff 0x151077f9b000 - 0x151077f9bfff 0x151077f9c000 - 0x151077f9dfff 0x151077f9e000 - 0x151077f9ffff 0x151077fa0000 - 0x151077fa0fff 0x151077fa1000 - 0x151077fa1fff 0x151077fa2000 - 0x151077fa2fff 0x151077fa3000 - 0x151077fb0fff 0x151077fb1000 - 0x151077fbefff 0x151077fbf000 - 0x151077fccfff 0x151077fcd000 - 0x151077fd0fff 0x151077fd1000 - 0x151077fd1fff 0x151077fd2000 - 0x151077fe7fff 0x151077fe8000 - 0x151078013fff 0x151078014000 - 0x15107801cfff 0x15107801d000 - 0x15107801dfff 0x15107801e000 - 0x151078020fff 0x151078021000 - 0x151078026fff 0x151078027000 - 0x151078029fff 0x15107802c000 - 0x15107802cfff 0x15107802d000 - 0x15107802dfff 0x15107802e000 - 0x151078034fff 0x151078035000 - 0x151078036fff 0x151078037000 - 0x151078057fff 0x151078058000 - 0x15107805ffff 0x151078060000 - 0x151078060fff 0x151078061000 - 0x151078061fff 0x151078062000 - 0x151078062fff 0x151078063000 - 0x151078063fff 0x7fff0af15000 - 0x7fff0af35fff 0x7fff0af81000 - 0x7fff0af84fff 0x7fff0af85000 - 0x7fff0af86fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1e8d000 - 0x1eadfff 0x100000000000 - 0x1000000bffff 0x146691c51000 - 0x1466922f5fff 0x1466922f6000 - 0x146692349fff 0x14669234a000 - 0x14669234cfff 0x14669234d000 - 0x146692371fff 0x146692372000 - 0x1466924c1fff 0x1466924c2000 - 0x14669250cfff 0x14669250d000 - 0x14669250ffff 0x146692510000 - 0x146692512fff 0x146692513000 - 0x146692516fff 0x146692517000 - 0x146692519fff 0x14669251a000 - 0x14669252bfff 0x14669252c000 - 0x14669252ffff 0x146692530000 - 0x146692530fff 0x146692531000 - 0x146692531fff 0x146692532000 - 0x146692533fff 0x146692534000 - 0x146692544fff 0x146692545000 - 0x14669257cfff 0x14669257d000 - 0x1466926b3fff 0x1466926b4000 - 0x1466926b7fff 0x1466926b8000 - 0x1466926b8fff 0x1466926b9000 - 0x1466926b9fff 0x1466926ba000 - 0x1466926bbfff 0x1466926bc000 - 0x1466926bcfff 0x1466926bd000 - 0x1466926bdfff 0x1466926be000 - 0x1466926befff 0x1466926bf000 - 0x1466926c0fff 0x1466926c1000 - 0x1466926c3fff 0x1466926c4000 - 0x1466926c4fff 0x1466926c5000 - 0x1466926c5fff 0x1466926c6000 - 0x1466926c6fff 0x1466926c7000 - 0x1466926c8fff 0x1466926c9000 - 0x1466926cafff 0x1466926cb000 - 0x1466926cbfff 0x1466926cc000 - 0x1466926ccfff 0x1466926cd000 - 0x1466926cdfff 0x1466926ce000 - 0x1466926dbfff 0x1466926dc000 - 0x1466926e9fff 0x1466926ea000 - 0x1466926f7fff 0x1466926f8000 - 0x1466926fbfff 0x1466926fc000 - 0x1466926fcfff 0x1466926fd000 - 0x146692712fff 0x146692713000 - 0x14669273efff 0x14669273f000 - 0x146692747fff 0x146692748000 - 0x146692748fff 0x146692749000 - 0x14669274bfff 0x14669274c000 - 0x146692751fff 0x146692752000 - 0x146692754fff 0x146692757000 - 0x146692757fff 0x146692758000 - 0x146692758fff 0x146692759000 - 0x14669275ffff 0x146692760000 - 0x146692761fff 0x146692762000 - 0x146692782fff 0x146692783000 - 0x14669278afff 0x14669278b000 - 0x14669278bfff 0x14669278c000 - 0x14669278cfff 0x14669278d000 - 0x14669278dfff 0x14669278e000 - 0x14669278efff 0x7ffddca54000 - 0x7ffddca74fff 0x7ffddcb09000 - 0x7ffddcb0cfff 0x7ffddcb0d000 - 0x7ffddcb0efff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1f52000 - 0x1f72fff 0x100000000000 - 0x1000000bffff 0x152b06dcd000 - 0x152b07471fff 0x152b07472000 - 0x152b074c5fff 0x152b074c6000 - 0x152b074c8fff 0x152b074c9000 - 0x152b074edfff 0x152b074ee000 - 0x152b0763dfff 0x152b0763e000 - 0x152b07688fff 0x152b07689000 - 0x152b0768bfff 0x152b0768c000 - 0x152b0768efff 0x152b0768f000 - 0x152b07692fff 0x152b07693000 - 0x152b07695fff 0x152b07696000 - 0x152b076a7fff 0x152b076a8000 - 0x152b076abfff 0x152b076ac000 - 0x152b076acfff 0x152b076ad000 - 0x152b076adfff 0x152b076ae000 - 0x152b076affff 0x152b076b0000 - 0x152b076c0fff 0x152b076c1000 - 0x152b076f8fff 0x152b076f9000 - 0x152b0782ffff 0x152b07830000 - 0x152b07833fff 0x152b07834000 - 0x152b07834fff 0x152b07835000 - 0x152b07835fff 0x152b07836000 - 0x152b07837fff 0x152b07838000 - 0x152b07838fff 0x152b07839000 - 0x152b07839fff 0x152b0783a000 - 0x152b0783afff 0x152b0783b000 - 0x152b0783cfff 0x152b0783d000 - 0x152b0783ffff 0x152b07840000 - 0x152b07840fff 0x152b07841000 - 0x152b07841fff 0x152b07842000 - 0x152b07842fff 0x152b07843000 - 0x152b07844fff 0x152b07845000 - 0x152b07846fff 0x152b07847000 - 0x152b07847fff 0x152b07848000 - 0x152b07848fff 0x152b07849000 - 0x152b07849fff 0x152b0784a000 - 0x152b07857fff 0x152b07858000 - 0x152b07865fff 0x152b07866000 - 0x152b07873fff 0x152b07874000 - 0x152b07877fff 0x152b07878000 - 0x152b07878fff 0x152b07879000 - 0x152b0788efff 0x152b0788f000 - 0x152b078bafff 0x152b078bb000 - 0x152b078c3fff 0x152b078c4000 - 0x152b078c4fff 0x152b078c5000 - 0x152b078c7fff 0x152b078c8000 - 0x152b078cdfff 0x152b078ce000 - 0x152b078d0fff 0x152b078d3000 - 0x152b078d3fff 0x152b078d4000 - 0x152b078d4fff 0x152b078d5000 - 0x152b078dbfff 0x152b078dc000 - 0x152b078ddfff 0x152b078de000 - 0x152b078fefff 0x152b078ff000 - 0x152b07906fff 0x152b07907000 - 0x152b07907fff 0x152b07908000 - 0x152b07908fff 0x152b07909000 - 0x152b07909fff 0x152b0790a000 - 0x152b0790afff 0x7ffd0f9a3000 - 0x7ffd0f9c3fff 0x7ffd0f9db000 - 0x7ffd0f9defff 0x7ffd0f9df000 - 0x7ffd0f9e0fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x77a000 - 0x79afff 0x100000000000 - 0x1000000bffff 0x147d8693c000 - 0x147d86fe0fff 0x147d86fe1000 - 0x147d87034fff 0x147d87035000 - 0x147d87037fff 0x147d87038000 - 0x147d8705cfff 0x147d8705d000 - 0x147d871acfff 0x147d871ad000 - 0x147d871f7fff 0x147d871f8000 - 0x147d871fafff 0x147d871fb000 - 0x147d871fdfff 0x147d871fe000 - 0x147d87201fff 0x147d87202000 - 0x147d87204fff 0x147d87205000 - 0x147d87216fff 0x147d87217000 - 0x147d8721afff 0x147d8721b000 - 0x147d8721bfff 0x147d8721c000 - 0x147d8721cfff 0x147d8721d000 - 0x147d8721efff 0x147d8721f000 - 0x147d8722ffff 0x147d87230000 - 0x147d87267fff 0x147d87268000 - 0x147d8739efff 0x147d8739f000 - 0x147d873a2fff 0x147d873a3000 - 0x147d873a3fff 0x147d873a4000 - 0x147d873a4fff 0x147d873a5000 - 0x147d873a6fff 0x147d873a7000 - 0x147d873a7fff 0x147d873a8000 - 0x147d873a8fff 0x147d873a9000 - 0x147d873a9fff 0x147d873aa000 - 0x147d873abfff 0x147d873ac000 - 0x147d873aefff 0x147d873af000 - 0x147d873affff 0x147d873b0000 - 0x147d873b0fff 0x147d873b1000 - 0x147d873b1fff 0x147d873b2000 - 0x147d873b3fff 0x147d873b4000 - 0x147d873b5fff 0x147d873b6000 - 0x147d873b6fff 0x147d873b7000 - 0x147d873b7fff 0x147d873b8000 - 0x147d873b8fff 0x147d873b9000 - 0x147d873c6fff 0x147d873c7000 - 0x147d873d4fff 0x147d873d5000 - 0x147d873e2fff 0x147d873e3000 - 0x147d873e6fff 0x147d873e7000 - 0x147d873e7fff 0x147d873e8000 - 0x147d873fdfff 0x147d873fe000 - 0x147d87429fff 0x147d8742a000 - 0x147d87432fff 0x147d87433000 - 0x147d87433fff 0x147d87434000 - 0x147d87436fff 0x147d87437000 - 0x147d8743cfff 0x147d8743d000 - 0x147d8743ffff 0x147d87442000 - 0x147d87442fff 0x147d87443000 - 0x147d87443fff 0x147d87444000 - 0x147d8744afff 0x147d8744b000 - 0x147d8744cfff 0x147d8744d000 - 0x147d8746dfff 0x147d8746e000 - 0x147d87475fff 0x147d87476000 - 0x147d87476fff 0x147d87477000 - 0x147d87477fff 0x147d87478000 - 0x147d87478fff 0x147d87479000 - 0x147d87479fff 0x7ffd87b2e000 - 0x7ffd87b4efff 0x7ffd87ba3000 - 0x7ffd87ba6fff 0x7ffd87ba7000 - 0x7ffd87ba8fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x2536000 - 0x2556fff 0x100000000000 - 0x1000000bffff 0x14a19ca42000 - 0x14a19d0e6fff 0x14a19d0e7000 - 0x14a19d13afff 0x14a19d13b000 - 0x14a19d13dfff 0x14a19d13e000 - 0x14a19d162fff 0x14a19d163000 - 0x14a19d2b2fff 0x14a19d2b3000 - 0x14a19d2fdfff 0x14a19d2fe000 - 0x14a19d300fff 0x14a19d301000 - 0x14a19d303fff 0x14a19d304000 - 0x14a19d307fff 0x14a19d308000 - 0x14a19d30afff 0x14a19d30b000 - 0x14a19d31cfff 0x14a19d31d000 - 0x14a19d320fff 0x14a19d321000 - 0x14a19d321fff 0x14a19d322000 - 0x14a19d322fff 0x14a19d323000 - 0x14a19d324fff 0x14a19d325000 - 0x14a19d335fff 0x14a19d336000 - 0x14a19d36dfff 0x14a19d36e000 - 0x14a19d4a4fff 0x14a19d4a5000 - 0x14a19d4a8fff 0x14a19d4a9000 - 0x14a19d4a9fff 0x14a19d4aa000 - 0x14a19d4aafff 0x14a19d4ab000 - 0x14a19d4acfff 0x14a19d4ad000 - 0x14a19d4adfff 0x14a19d4ae000 - 0x14a19d4aefff 0x14a19d4af000 - 0x14a19d4affff 0x14a19d4b0000 - 0x14a19d4b1fff 0x14a19d4b2000 - 0x14a19d4b4fff 0x14a19d4b5000 - 0x14a19d4b5fff 0x14a19d4b6000 - 0x14a19d4b6fff 0x14a19d4b7000 - 0x14a19d4b7fff 0x14a19d4b8000 - 0x14a19d4b9fff 0x14a19d4ba000 - 0x14a19d4bbfff 0x14a19d4bc000 - 0x14a19d4bcfff 0x14a19d4bd000 - 0x14a19d4bdfff 0x14a19d4be000 - 0x14a19d4befff 0x14a19d4bf000 - 0x14a19d4ccfff 0x14a19d4cd000 - 0x14a19d4dafff 0x14a19d4db000 - 0x14a19d4e8fff 0x14a19d4e9000 - 0x14a19d4ecfff 0x14a19d4ed000 - 0x14a19d4edfff 0x14a19d4ee000 - 0x14a19d503fff 0x14a19d504000 - 0x14a19d52ffff 0x14a19d530000 - 0x14a19d538fff 0x14a19d539000 - 0x14a19d539fff 0x14a19d53a000 - 0x14a19d53cfff 0x14a19d53d000 - 0x14a19d542fff 0x14a19d543000 - 0x14a19d545fff 0x14a19d548000 - 0x14a19d548fff 0x14a19d549000 - 0x14a19d549fff 0x14a19d54a000 - 0x14a19d550fff 0x14a19d551000 - 0x14a19d552fff 0x14a19d553000 - 0x14a19d573fff 0x14a19d574000 - 0x14a19d57bfff 0x14a19d57c000 - 0x14a19d57cfff 0x14a19d57d000 - 0x14a19d57dfff 0x14a19d57e000 - 0x14a19d57efff 0x14a19d57f000 - 0x14a19d57ffff 0x7ffd01552000 - 0x7ffd01572fff 0x7ffd015de000 - 0x7ffd015e1fff 0x7ffd015e2000 - 0x7ffd015e3fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1390000 - 0x13b0fff 0x100000000000 - 0x1000000bffff 0x14f123a8a000 - 0x14f12412efff 0x14f12412f000 - 0x14f124182fff 0x14f124183000 - 0x14f124185fff 0x14f124186000 - 0x14f1241aafff 0x14f1241ab000 - 0x14f1242fafff 0x14f1242fb000 - 0x14f124345fff 0x14f124346000 - 0x14f124348fff 0x14f124349000 - 0x14f12434bfff 0x14f12434c000 - 0x14f12434ffff 0x14f124350000 - 0x14f124352fff 0x14f124353000 - 0x14f124364fff 0x14f124365000 - 0x14f124368fff 0x14f124369000 - 0x14f124369fff 0x14f12436a000 - 0x14f12436afff 0x14f12436b000 - 0x14f12436cfff 0x14f12436d000 - 0x14f12437dfff 0x14f12437e000 - 0x14f1243b5fff 0x14f1243b6000 - 0x14f1244ecfff 0x14f1244ed000 - 0x14f1244f0fff 0x14f1244f1000 - 0x14f1244f1fff 0x14f1244f2000 - 0x14f1244f2fff 0x14f1244f3000 - 0x14f1244f4fff 0x14f1244f5000 - 0x14f1244f5fff 0x14f1244f6000 - 0x14f1244f6fff 0x14f1244f7000 - 0x14f1244f7fff 0x14f1244f8000 - 0x14f1244f9fff 0x14f1244fa000 - 0x14f1244fcfff 0x14f1244fd000 - 0x14f1244fdfff 0x14f1244fe000 - 0x14f1244fefff 0x14f1244ff000 - 0x14f1244fffff 0x14f124500000 - 0x14f124501fff 0x14f124502000 - 0x14f124503fff 0x14f124504000 - 0x14f124504fff 0x14f124505000 - 0x14f124505fff 0x14f124506000 - 0x14f124506fff 0x14f124507000 - 0x14f124514fff 0x14f124515000 - 0x14f124522fff 0x14f124523000 - 0x14f124530fff 0x14f124531000 - 0x14f124534fff 0x14f124535000 - 0x14f124535fff 0x14f124536000 - 0x14f12454bfff 0x14f12454c000 - 0x14f124577fff 0x14f124578000 - 0x14f124580fff 0x14f124581000 - 0x14f124581fff 0x14f124582000 - 0x14f124584fff 0x14f124585000 - 0x14f12458afff 0x14f12458b000 - 0x14f12458dfff 0x14f124590000 - 0x14f124590fff 0x14f124591000 - 0x14f124591fff 0x14f124592000 - 0x14f124598fff 0x14f124599000 - 0x14f12459afff 0x14f12459b000 - 0x14f1245bbfff 0x14f1245bc000 - 0x14f1245c3fff 0x14f1245c4000 - 0x14f1245c4fff 0x14f1245c5000 - 0x14f1245c5fff 0x14f1245c6000 - 0x14f1245c6fff 0x14f1245c7000 - 0x14f1245c7fff 0x7fff62fa5000 - 0x7fff62fc5fff 0x7fff62fed000 - 0x7fff62ff0fff 0x7fff62ff1000 - 0x7fff62ff2fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x219d000 - 0x21bdfff 0x100000000000 - 0x1000000bffff 0x148b3173b000 - 0x148b31ddffff 0x148b31de0000 - 0x148b31e33fff 0x148b31e34000 - 0x148b31e36fff 0x148b31e37000 - 0x148b31e5bfff 0x148b31e5c000 - 0x148b31fabfff 0x148b31fac000 - 0x148b31ff6fff 0x148b31ff7000 - 0x148b31ff9fff 0x148b31ffa000 - 0x148b31ffcfff 0x148b31ffd000 - 0x148b32000fff 0x148b32001000 - 0x148b32003fff 0x148b32004000 - 0x148b32015fff 0x148b32016000 - 0x148b32019fff 0x148b3201a000 - 0x148b3201afff 0x148b3201b000 - 0x148b3201bfff 0x148b3201c000 - 0x148b3201dfff 0x148b3201e000 - 0x148b3202efff 0x148b3202f000 - 0x148b32066fff 0x148b32067000 - 0x148b3219dfff 0x148b3219e000 - 0x148b321a1fff 0x148b321a2000 - 0x148b321a2fff 0x148b321a3000 - 0x148b321a3fff 0x148b321a4000 - 0x148b321a5fff 0x148b321a6000 - 0x148b321a6fff 0x148b321a7000 - 0x148b321a7fff 0x148b321a8000 - 0x148b321a8fff 0x148b321a9000 - 0x148b321aafff 0x148b321ab000 - 0x148b321adfff 0x148b321ae000 - 0x148b321aefff 0x148b321af000 - 0x148b321affff 0x148b321b0000 - 0x148b321b0fff 0x148b321b1000 - 0x148b321b2fff 0x148b321b3000 - 0x148b321b4fff 0x148b321b5000 - 0x148b321b5fff 0x148b321b6000 - 0x148b321b6fff 0x148b321b7000 - 0x148b321b7fff 0x148b321b8000 - 0x148b321c5fff 0x148b321c6000 - 0x148b321d3fff 0x148b321d4000 - 0x148b321e1fff 0x148b321e2000 - 0x148b321e5fff 0x148b321e6000 - 0x148b321e6fff 0x148b321e7000 - 0x148b321fcfff 0x148b321fd000 - 0x148b32228fff 0x148b32229000 - 0x148b32231fff 0x148b32232000 - 0x148b32232fff 0x148b32233000 - 0x148b32235fff 0x148b32236000 - 0x148b3223bfff 0x148b3223c000 - 0x148b3223efff 0x148b32241000 - 0x148b32241fff 0x148b32242000 - 0x148b32242fff 0x148b32243000 - 0x148b32249fff 0x148b3224a000 - 0x148b3224bfff 0x148b3224c000 - 0x148b3226cfff 0x148b3226d000 - 0x148b32274fff 0x148b32275000 - 0x148b32275fff 0x148b32276000 - 0x148b32276fff 0x148b32277000 - 0x148b32277fff 0x148b32278000 - 0x148b32278fff 0x7ffde3a56000 - 0x7ffde3a76fff 0x7ffde3af9000 - 0x7ffde3afcfff 0x7ffde3afd000 - 0x7ffde3afefff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1a23000 - 0x1a43fff 0x100000000000 - 0x1000000bffff 0x146707d2f000 - 0x1467083d3fff 0x1467083d4000 - 0x146708427fff 0x146708428000 - 0x14670842afff 0x14670842b000 - 0x14670844ffff 0x146708450000 - 0x14670859ffff 0x1467085a0000 - 0x1467085eafff 0x1467085eb000 - 0x1467085edfff 0x1467085ee000 - 0x1467085f0fff 0x1467085f1000 - 0x1467085f4fff 0x1467085f5000 - 0x1467085f7fff 0x1467085f8000 - 0x146708609fff 0x14670860a000 - 0x14670860dfff 0x14670860e000 - 0x14670860efff 0x14670860f000 - 0x14670860ffff 0x146708610000 - 0x146708611fff 0x146708612000 - 0x146708622fff 0x146708623000 - 0x14670865afff 0x14670865b000 - 0x146708791fff 0x146708792000 - 0x146708795fff 0x146708796000 - 0x146708796fff 0x146708797000 - 0x146708797fff 0x146708798000 - 0x146708799fff 0x14670879a000 - 0x14670879afff 0x14670879b000 - 0x14670879bfff 0x14670879c000 - 0x14670879cfff 0x14670879d000 - 0x14670879efff 0x14670879f000 - 0x1467087a1fff 0x1467087a2000 - 0x1467087a2fff 0x1467087a3000 - 0x1467087a3fff 0x1467087a4000 - 0x1467087a4fff 0x1467087a5000 - 0x1467087a6fff 0x1467087a7000 - 0x1467087a8fff 0x1467087a9000 - 0x1467087a9fff 0x1467087aa000 - 0x1467087aafff 0x1467087ab000 - 0x1467087abfff 0x1467087ac000 - 0x1467087b9fff 0x1467087ba000 - 0x1467087c7fff 0x1467087c8000 - 0x1467087d5fff 0x1467087d6000 - 0x1467087d9fff 0x1467087da000 - 0x1467087dafff 0x1467087db000 - 0x1467087f0fff 0x1467087f1000 - 0x14670881cfff 0x14670881d000 - 0x146708825fff 0x146708826000 - 0x146708826fff 0x146708827000 - 0x146708829fff 0x14670882a000 - 0x14670882ffff 0x146708830000 - 0x146708832fff 0x146708835000 - 0x146708835fff 0x146708836000 - 0x146708836fff 0x146708837000 - 0x14670883dfff 0x14670883e000 - 0x14670883ffff 0x146708840000 - 0x146708860fff 0x146708861000 - 0x146708868fff 0x146708869000 - 0x146708869fff 0x14670886a000 - 0x14670886afff 0x14670886b000 - 0x14670886bfff 0x14670886c000 - 0x14670886cfff 0x7fffe90ab000 - 0x7fffe90cbfff 0x7fffe91d1000 - 0x7fffe91d4fff 0x7fffe91d5000 - 0x7fffe91d6fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x84e000 - 0x86efff 0x100000000000 - 0x1000000bffff 0x15303618a000 - 0x15303682efff 0x15303682f000 - 0x153036882fff 0x153036883000 - 0x153036885fff 0x153036886000 - 0x1530368aafff 0x1530368ab000 - 0x1530369fafff 0x1530369fb000 - 0x153036a45fff 0x153036a46000 - 0x153036a48fff 0x153036a49000 - 0x153036a4bfff 0x153036a4c000 - 0x153036a4ffff 0x153036a50000 - 0x153036a52fff 0x153036a53000 - 0x153036a64fff 0x153036a65000 - 0x153036a68fff 0x153036a69000 - 0x153036a69fff 0x153036a6a000 - 0x153036a6afff 0x153036a6b000 - 0x153036a6cfff 0x153036a6d000 - 0x153036a7dfff 0x153036a7e000 - 0x153036ab5fff 0x153036ab6000 - 0x153036becfff 0x153036bed000 - 0x153036bf0fff 0x153036bf1000 - 0x153036bf1fff 0x153036bf2000 - 0x153036bf2fff 0x153036bf3000 - 0x153036bf4fff 0x153036bf5000 - 0x153036bf5fff 0x153036bf6000 - 0x153036bf6fff 0x153036bf7000 - 0x153036bf7fff 0x153036bf8000 - 0x153036bf9fff 0x153036bfa000 - 0x153036bfcfff 0x153036bfd000 - 0x153036bfdfff 0x153036bfe000 - 0x153036bfefff 0x153036bff000 - 0x153036bfffff 0x153036c00000 - 0x153036c01fff 0x153036c02000 - 0x153036c03fff 0x153036c04000 - 0x153036c04fff 0x153036c05000 - 0x153036c05fff 0x153036c06000 - 0x153036c06fff 0x153036c07000 - 0x153036c14fff 0x153036c15000 - 0x153036c22fff 0x153036c23000 - 0x153036c30fff 0x153036c31000 - 0x153036c34fff 0x153036c35000 - 0x153036c35fff 0x153036c36000 - 0x153036c4bfff 0x153036c4c000 - 0x153036c77fff 0x153036c78000 - 0x153036c80fff 0x153036c81000 - 0x153036c81fff 0x153036c82000 - 0x153036c84fff 0x153036c85000 - 0x153036c8afff 0x153036c8b000 - 0x153036c8dfff 0x153036c90000 - 0x153036c90fff 0x153036c91000 - 0x153036c91fff 0x153036c92000 - 0x153036c98fff 0x153036c99000 - 0x153036c9afff 0x153036c9b000 - 0x153036cbbfff 0x153036cbc000 - 0x153036cc3fff 0x153036cc4000 - 0x153036cc4fff 0x153036cc5000 - 0x153036cc5fff 0x153036cc6000 - 0x153036cc6fff 0x153036cc7000 - 0x153036cc7fff 0x7fff54c92000 - 0x7fff54cb2fff 0x7fff54d76000 - 0x7fff54d79fff 0x7fff54d7a000 - 0x7fff54d7bfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x115c000 - 0x117cfff 0x100000000000 - 0x1000000bffff 0x14d3e868c000 - 0x14d3e8d30fff 0x14d3e8d31000 - 0x14d3e8d84fff 0x14d3e8d85000 - 0x14d3e8d87fff 0x14d3e8d88000 - 0x14d3e8dacfff 0x14d3e8dad000 - 0x14d3e8efcfff 0x14d3e8efd000 - 0x14d3e8f47fff 0x14d3e8f48000 - 0x14d3e8f4afff 0x14d3e8f4b000 - 0x14d3e8f4dfff 0x14d3e8f4e000 - 0x14d3e8f51fff 0x14d3e8f52000 - 0x14d3e8f54fff 0x14d3e8f55000 - 0x14d3e8f66fff 0x14d3e8f67000 - 0x14d3e8f6afff 0x14d3e8f6b000 - 0x14d3e8f6bfff 0x14d3e8f6c000 - 0x14d3e8f6cfff 0x14d3e8f6d000 - 0x14d3e8f6efff 0x14d3e8f6f000 - 0x14d3e8f7ffff 0x14d3e8f80000 - 0x14d3e8fb7fff 0x14d3e8fb8000 - 0x14d3e90eefff 0x14d3e90ef000 - 0x14d3e90f2fff 0x14d3e90f3000 - 0x14d3e90f3fff 0x14d3e90f4000 - 0x14d3e90f4fff 0x14d3e90f5000 - 0x14d3e90f6fff 0x14d3e90f7000 - 0x14d3e90f7fff 0x14d3e90f8000 - 0x14d3e90f8fff 0x14d3e90f9000 - 0x14d3e90f9fff 0x14d3e90fa000 - 0x14d3e90fbfff 0x14d3e90fc000 - 0x14d3e90fefff 0x14d3e90ff000 - 0x14d3e90fffff 0x14d3e9100000 - 0x14d3e9100fff 0x14d3e9101000 - 0x14d3e9101fff 0x14d3e9102000 - 0x14d3e9103fff 0x14d3e9104000 - 0x14d3e9105fff 0x14d3e9106000 - 0x14d3e9106fff 0x14d3e9107000 - 0x14d3e9107fff 0x14d3e9108000 - 0x14d3e9108fff 0x14d3e9109000 - 0x14d3e9116fff 0x14d3e9117000 - 0x14d3e9124fff 0x14d3e9125000 - 0x14d3e9132fff 0x14d3e9133000 - 0x14d3e9136fff 0x14d3e9137000 - 0x14d3e9137fff 0x14d3e9138000 - 0x14d3e914dfff 0x14d3e914e000 - 0x14d3e9179fff 0x14d3e917a000 - 0x14d3e9182fff 0x14d3e9183000 - 0x14d3e9183fff 0x14d3e9184000 - 0x14d3e9186fff 0x14d3e9187000 - 0x14d3e918cfff 0x14d3e918d000 - 0x14d3e918ffff 0x14d3e9192000 - 0x14d3e9192fff 0x14d3e9193000 - 0x14d3e9193fff 0x14d3e9194000 - 0x14d3e919afff 0x14d3e919b000 - 0x14d3e919cfff 0x14d3e919d000 - 0x14d3e91bdfff 0x14d3e91be000 - 0x14d3e91c5fff 0x14d3e91c6000 - 0x14d3e91c6fff 0x14d3e91c7000 - 0x14d3e91c7fff 0x14d3e91c8000 - 0x14d3e91c8fff 0x14d3e91c9000 - 0x14d3e91c9fff 0x7fff68777000 - 0x7fff68797fff 0x7fff687b0000 - 0x7fff687b3fff 0x7fff687b4000 - 0x7fff687b5fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x11b7000 - 0x11d7fff 0x100000000000 - 0x1000000bffff 0x15129df18000 - 0x15129e5bcfff 0x15129e5bd000 - 0x15129e610fff 0x15129e611000 - 0x15129e613fff 0x15129e614000 - 0x15129e638fff 0x15129e639000 - 0x15129e788fff 0x15129e789000 - 0x15129e7d3fff 0x15129e7d4000 - 0x15129e7d6fff 0x15129e7d7000 - 0x15129e7d9fff 0x15129e7da000 - 0x15129e7ddfff 0x15129e7de000 - 0x15129e7e0fff 0x15129e7e1000 - 0x15129e7f2fff 0x15129e7f3000 - 0x15129e7f6fff 0x15129e7f7000 - 0x15129e7f7fff 0x15129e7f8000 - 0x15129e7f8fff 0x15129e7f9000 - 0x15129e7fafff 0x15129e7fb000 - 0x15129e80bfff 0x15129e80c000 - 0x15129e843fff 0x15129e844000 - 0x15129e97afff 0x15129e97b000 - 0x15129e97efff 0x15129e97f000 - 0x15129e97ffff 0x15129e980000 - 0x15129e980fff 0x15129e981000 - 0x15129e982fff 0x15129e983000 - 0x15129e983fff 0x15129e984000 - 0x15129e984fff 0x15129e985000 - 0x15129e985fff 0x15129e986000 - 0x15129e987fff 0x15129e988000 - 0x15129e98afff 0x15129e98b000 - 0x15129e98bfff 0x15129e98c000 - 0x15129e98cfff 0x15129e98d000 - 0x15129e98dfff 0x15129e98e000 - 0x15129e98ffff 0x15129e990000 - 0x15129e991fff 0x15129e992000 - 0x15129e992fff 0x15129e993000 - 0x15129e993fff 0x15129e994000 - 0x15129e994fff 0x15129e995000 - 0x15129e9a2fff 0x15129e9a3000 - 0x15129e9b0fff 0x15129e9b1000 - 0x15129e9befff 0x15129e9bf000 - 0x15129e9c2fff 0x15129e9c3000 - 0x15129e9c3fff 0x15129e9c4000 - 0x15129e9d9fff 0x15129e9da000 - 0x15129ea05fff 0x15129ea06000 - 0x15129ea0efff 0x15129ea0f000 - 0x15129ea0ffff 0x15129ea10000 - 0x15129ea12fff 0x15129ea13000 - 0x15129ea18fff 0x15129ea19000 - 0x15129ea1bfff 0x15129ea1e000 - 0x15129ea1efff 0x15129ea1f000 - 0x15129ea1ffff 0x15129ea20000 - 0x15129ea26fff 0x15129ea27000 - 0x15129ea28fff 0x15129ea29000 - 0x15129ea49fff 0x15129ea4a000 - 0x15129ea51fff 0x15129ea52000 - 0x15129ea52fff 0x15129ea53000 - 0x15129ea53fff 0x15129ea54000 - 0x15129ea54fff 0x15129ea55000 - 0x15129ea55fff 0x7ffe36c7c000 - 0x7ffe36c9cfff 0x7ffe36caa000 - 0x7ffe36cadfff 0x7ffe36cae000 - 0x7ffe36caffff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1832000 - 0x1852fff 0x100000000000 - 0x1000000bffff 0x14a54b00e000 - 0x14a54b6b2fff 0x14a54b6b3000 - 0x14a54b706fff 0x14a54b707000 - 0x14a54b709fff 0x14a54b70a000 - 0x14a54b72efff 0x14a54b72f000 - 0x14a54b87efff 0x14a54b87f000 - 0x14a54b8c9fff 0x14a54b8ca000 - 0x14a54b8ccfff 0x14a54b8cd000 - 0x14a54b8cffff 0x14a54b8d0000 - 0x14a54b8d3fff 0x14a54b8d4000 - 0x14a54b8d6fff 0x14a54b8d7000 - 0x14a54b8e8fff 0x14a54b8e9000 - 0x14a54b8ecfff 0x14a54b8ed000 - 0x14a54b8edfff 0x14a54b8ee000 - 0x14a54b8eefff 0x14a54b8ef000 - 0x14a54b8f0fff 0x14a54b8f1000 - 0x14a54b901fff 0x14a54b902000 - 0x14a54b939fff 0x14a54b93a000 - 0x14a54ba70fff 0x14a54ba71000 - 0x14a54ba74fff 0x14a54ba75000 - 0x14a54ba75fff 0x14a54ba76000 - 0x14a54ba76fff 0x14a54ba77000 - 0x14a54ba78fff 0x14a54ba79000 - 0x14a54ba79fff 0x14a54ba7a000 - 0x14a54ba7afff 0x14a54ba7b000 - 0x14a54ba7bfff 0x14a54ba7c000 - 0x14a54ba7dfff 0x14a54ba7e000 - 0x14a54ba80fff 0x14a54ba81000 - 0x14a54ba81fff 0x14a54ba82000 - 0x14a54ba82fff 0x14a54ba83000 - 0x14a54ba83fff 0x14a54ba84000 - 0x14a54ba85fff 0x14a54ba86000 - 0x14a54ba87fff 0x14a54ba88000 - 0x14a54ba88fff 0x14a54ba89000 - 0x14a54ba89fff 0x14a54ba8a000 - 0x14a54ba8afff 0x14a54ba8b000 - 0x14a54ba98fff 0x14a54ba99000 - 0x14a54baa6fff 0x14a54baa7000 - 0x14a54bab4fff 0x14a54bab5000 - 0x14a54bab8fff 0x14a54bab9000 - 0x14a54bab9fff 0x14a54baba000 - 0x14a54bacffff 0x14a54bad0000 - 0x14a54bafbfff 0x14a54bafc000 - 0x14a54bb04fff 0x14a54bb05000 - 0x14a54bb05fff 0x14a54bb06000 - 0x14a54bb08fff 0x14a54bb09000 - 0x14a54bb0efff 0x14a54bb0f000 - 0x14a54bb11fff 0x14a54bb14000 - 0x14a54bb14fff 0x14a54bb15000 - 0x14a54bb15fff 0x14a54bb16000 - 0x14a54bb1cfff 0x14a54bb1d000 - 0x14a54bb1efff 0x14a54bb1f000 - 0x14a54bb3ffff 0x14a54bb40000 - 0x14a54bb47fff 0x14a54bb48000 - 0x14a54bb48fff 0x14a54bb49000 - 0x14a54bb49fff 0x14a54bb4a000 - 0x14a54bb4afff 0x14a54bb4b000 - 0x14a54bb4bfff 0x7ffc66f6f000 - 0x7ffc66f8ffff 0x7ffc66fd9000 - 0x7ffc66fdcfff 0x7ffc66fdd000 - 0x7ffc66fdefff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1d1e000 - 0x1d3efff 0x100000000000 - 0x1000000bffff 0x14b7c81a3000 - 0x14b7c8847fff 0x14b7c8848000 - 0x14b7c889bfff 0x14b7c889c000 - 0x14b7c889efff 0x14b7c889f000 - 0x14b7c88c3fff 0x14b7c88c4000 - 0x14b7c8a13fff 0x14b7c8a14000 - 0x14b7c8a5efff 0x14b7c8a5f000 - 0x14b7c8a61fff 0x14b7c8a62000 - 0x14b7c8a64fff 0x14b7c8a65000 - 0x14b7c8a68fff 0x14b7c8a69000 - 0x14b7c8a6bfff 0x14b7c8a6c000 - 0x14b7c8a7dfff 0x14b7c8a7e000 - 0x14b7c8a81fff 0x14b7c8a82000 - 0x14b7c8a82fff 0x14b7c8a83000 - 0x14b7c8a83fff 0x14b7c8a84000 - 0x14b7c8a85fff 0x14b7c8a86000 - 0x14b7c8a96fff 0x14b7c8a97000 - 0x14b7c8acefff 0x14b7c8acf000 - 0x14b7c8c05fff 0x14b7c8c06000 - 0x14b7c8c09fff 0x14b7c8c0a000 - 0x14b7c8c0afff 0x14b7c8c0b000 - 0x14b7c8c0bfff 0x14b7c8c0c000 - 0x14b7c8c0dfff 0x14b7c8c0e000 - 0x14b7c8c0efff 0x14b7c8c0f000 - 0x14b7c8c0ffff 0x14b7c8c10000 - 0x14b7c8c10fff 0x14b7c8c11000 - 0x14b7c8c12fff 0x14b7c8c13000 - 0x14b7c8c15fff 0x14b7c8c16000 - 0x14b7c8c16fff 0x14b7c8c17000 - 0x14b7c8c17fff 0x14b7c8c18000 - 0x14b7c8c18fff 0x14b7c8c19000 - 0x14b7c8c1afff 0x14b7c8c1b000 - 0x14b7c8c1cfff 0x14b7c8c1d000 - 0x14b7c8c1dfff 0x14b7c8c1e000 - 0x14b7c8c1efff 0x14b7c8c1f000 - 0x14b7c8c1ffff 0x14b7c8c20000 - 0x14b7c8c2dfff 0x14b7c8c2e000 - 0x14b7c8c3bfff 0x14b7c8c3c000 - 0x14b7c8c49fff 0x14b7c8c4a000 - 0x14b7c8c4dfff 0x14b7c8c4e000 - 0x14b7c8c4efff 0x14b7c8c4f000 - 0x14b7c8c64fff 0x14b7c8c65000 - 0x14b7c8c90fff 0x14b7c8c91000 - 0x14b7c8c99fff 0x14b7c8c9a000 - 0x14b7c8c9afff 0x14b7c8c9b000 - 0x14b7c8c9dfff 0x14b7c8c9e000 - 0x14b7c8ca3fff 0x14b7c8ca4000 - 0x14b7c8ca6fff 0x14b7c8ca9000 - 0x14b7c8ca9fff 0x14b7c8caa000 - 0x14b7c8caafff 0x14b7c8cab000 - 0x14b7c8cb1fff 0x14b7c8cb2000 - 0x14b7c8cb3fff 0x14b7c8cb4000 - 0x14b7c8cd4fff 0x14b7c8cd5000 - 0x14b7c8cdcfff 0x14b7c8cdd000 - 0x14b7c8cddfff 0x14b7c8cde000 - 0x14b7c8cdefff 0x14b7c8cdf000 - 0x14b7c8cdffff 0x14b7c8ce0000 - 0x14b7c8ce0fff 0x7fff2fc63000 - 0x7fff2fc83fff 0x7fff2fdb4000 - 0x7fff2fdb7fff 0x7fff2fdb8000 - 0x7fff2fdb9fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x218a000 - 0x21aafff 0x100000000000 - 0x1000000bffff 0x146119fd7000 - 0x14611a67bfff 0x14611a67c000 - 0x14611a6cffff 0x14611a6d0000 - 0x14611a6d2fff 0x14611a6d3000 - 0x14611a6f7fff 0x14611a6f8000 - 0x14611a847fff 0x14611a848000 - 0x14611a892fff 0x14611a893000 - 0x14611a895fff 0x14611a896000 - 0x14611a898fff 0x14611a899000 - 0x14611a89cfff 0x14611a89d000 - 0x14611a89ffff 0x14611a8a0000 - 0x14611a8b1fff 0x14611a8b2000 - 0x14611a8b5fff 0x14611a8b6000 - 0x14611a8b6fff 0x14611a8b7000 - 0x14611a8b7fff 0x14611a8b8000 - 0x14611a8b9fff 0x14611a8ba000 - 0x14611a8cafff 0x14611a8cb000 - 0x14611a902fff 0x14611a903000 - 0x14611aa39fff 0x14611aa3a000 - 0x14611aa3dfff 0x14611aa3e000 - 0x14611aa3efff 0x14611aa3f000 - 0x14611aa3ffff 0x14611aa40000 - 0x14611aa41fff 0x14611aa42000 - 0x14611aa42fff 0x14611aa43000 - 0x14611aa43fff 0x14611aa44000 - 0x14611aa44fff 0x14611aa45000 - 0x14611aa46fff 0x14611aa47000 - 0x14611aa49fff 0x14611aa4a000 - 0x14611aa4afff 0x14611aa4b000 - 0x14611aa4bfff 0x14611aa4c000 - 0x14611aa4cfff 0x14611aa4d000 - 0x14611aa4efff 0x14611aa4f000 - 0x14611aa50fff 0x14611aa51000 - 0x14611aa51fff 0x14611aa52000 - 0x14611aa52fff 0x14611aa53000 - 0x14611aa53fff 0x14611aa54000 - 0x14611aa61fff 0x14611aa62000 - 0x14611aa6ffff 0x14611aa70000 - 0x14611aa7dfff 0x14611aa7e000 - 0x14611aa81fff 0x14611aa82000 - 0x14611aa82fff 0x14611aa83000 - 0x14611aa98fff 0x14611aa99000 - 0x14611aac4fff 0x14611aac5000 - 0x14611aacdfff 0x14611aace000 - 0x14611aacefff 0x14611aacf000 - 0x14611aad1fff 0x14611aad2000 - 0x14611aad7fff 0x14611aad8000 - 0x14611aadafff 0x14611aadd000 - 0x14611aaddfff 0x14611aade000 - 0x14611aadefff 0x14611aadf000 - 0x14611aae5fff 0x14611aae6000 - 0x14611aae7fff 0x14611aae8000 - 0x14611ab08fff 0x14611ab09000 - 0x14611ab10fff 0x14611ab11000 - 0x14611ab11fff 0x14611ab12000 - 0x14611ab12fff 0x14611ab13000 - 0x14611ab13fff 0x14611ab14000 - 0x14611ab14fff 0x7ffdfe565000 - 0x7ffdfe585fff 0x7ffdfe5c2000 - 0x7ffdfe5c5fff 0x7ffdfe5c6000 - 0x7ffdfe5c7fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x99a000 - 0x9bafff 0x100000000000 - 0x1000000bffff 0x1461b66fd000 - 0x1461b6da1fff 0x1461b6da2000 - 0x1461b6df5fff 0x1461b6df6000 - 0x1461b6df8fff 0x1461b6df9000 - 0x1461b6e1dfff 0x1461b6e1e000 - 0x1461b6f6dfff 0x1461b6f6e000 - 0x1461b6fb8fff 0x1461b6fb9000 - 0x1461b6fbbfff 0x1461b6fbc000 - 0x1461b6fbefff 0x1461b6fbf000 - 0x1461b6fc2fff 0x1461b6fc3000 - 0x1461b6fc5fff 0x1461b6fc6000 - 0x1461b6fd7fff 0x1461b6fd8000 - 0x1461b6fdbfff 0x1461b6fdc000 - 0x1461b6fdcfff 0x1461b6fdd000 - 0x1461b6fddfff 0x1461b6fde000 - 0x1461b6fdffff 0x1461b6fe0000 - 0x1461b6ff0fff 0x1461b6ff1000 - 0x1461b7028fff 0x1461b7029000 - 0x1461b715ffff 0x1461b7160000 - 0x1461b7163fff 0x1461b7164000 - 0x1461b7164fff 0x1461b7165000 - 0x1461b7165fff 0x1461b7166000 - 0x1461b7167fff 0x1461b7168000 - 0x1461b7168fff 0x1461b7169000 - 0x1461b7169fff 0x1461b716a000 - 0x1461b716afff 0x1461b716b000 - 0x1461b716cfff 0x1461b716d000 - 0x1461b716ffff 0x1461b7170000 - 0x1461b7170fff 0x1461b7171000 - 0x1461b7171fff 0x1461b7172000 - 0x1461b7172fff 0x1461b7173000 - 0x1461b7174fff 0x1461b7175000 - 0x1461b7176fff 0x1461b7177000 - 0x1461b7177fff 0x1461b7178000 - 0x1461b7178fff 0x1461b7179000 - 0x1461b7179fff 0x1461b717a000 - 0x1461b7187fff 0x1461b7188000 - 0x1461b7195fff 0x1461b7196000 - 0x1461b71a3fff 0x1461b71a4000 - 0x1461b71a7fff 0x1461b71a8000 - 0x1461b71a8fff 0x1461b71a9000 - 0x1461b71befff 0x1461b71bf000 - 0x1461b71eafff 0x1461b71eb000 - 0x1461b71f3fff 0x1461b71f4000 - 0x1461b71f4fff 0x1461b71f5000 - 0x1461b71f7fff 0x1461b71f8000 - 0x1461b71fdfff 0x1461b71fe000 - 0x1461b7200fff 0x1461b7203000 - 0x1461b7203fff 0x1461b7204000 - 0x1461b7204fff 0x1461b7205000 - 0x1461b720bfff 0x1461b720c000 - 0x1461b720dfff 0x1461b720e000 - 0x1461b722efff 0x1461b722f000 - 0x1461b7236fff 0x1461b7237000 - 0x1461b7237fff 0x1461b7238000 - 0x1461b7238fff 0x1461b7239000 - 0x1461b7239fff 0x1461b723a000 - 0x1461b723afff 0x7ffd2f7fe000 - 0x7ffd2f81efff 0x7ffd2f852000 - 0x7ffd2f855fff 0x7ffd2f856000 - 0x7ffd2f857fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1a6f000 - 0x1a8ffff 0x100000000000 - 0x1000000bffff 0x14a8a9b70000 - 0x14a8aa214fff 0x14a8aa215000 - 0x14a8aa268fff 0x14a8aa269000 - 0x14a8aa26bfff 0x14a8aa26c000 - 0x14a8aa290fff 0x14a8aa291000 - 0x14a8aa3e0fff 0x14a8aa3e1000 - 0x14a8aa42bfff 0x14a8aa42c000 - 0x14a8aa42efff 0x14a8aa42f000 - 0x14a8aa431fff 0x14a8aa432000 - 0x14a8aa435fff 0x14a8aa436000 - 0x14a8aa438fff 0x14a8aa439000 - 0x14a8aa44afff 0x14a8aa44b000 - 0x14a8aa44efff 0x14a8aa44f000 - 0x14a8aa44ffff 0x14a8aa450000 - 0x14a8aa450fff 0x14a8aa451000 - 0x14a8aa452fff 0x14a8aa453000 - 0x14a8aa463fff 0x14a8aa464000 - 0x14a8aa49bfff 0x14a8aa49c000 - 0x14a8aa5d2fff 0x14a8aa5d3000 - 0x14a8aa5d6fff 0x14a8aa5d7000 - 0x14a8aa5d7fff 0x14a8aa5d8000 - 0x14a8aa5d8fff 0x14a8aa5d9000 - 0x14a8aa5dafff 0x14a8aa5db000 - 0x14a8aa5dbfff 0x14a8aa5dc000 - 0x14a8aa5dcfff 0x14a8aa5dd000 - 0x14a8aa5ddfff 0x14a8aa5de000 - 0x14a8aa5dffff 0x14a8aa5e0000 - 0x14a8aa5e2fff 0x14a8aa5e3000 - 0x14a8aa5e3fff 0x14a8aa5e4000 - 0x14a8aa5e4fff 0x14a8aa5e5000 - 0x14a8aa5e5fff 0x14a8aa5e6000 - 0x14a8aa5e7fff 0x14a8aa5e8000 - 0x14a8aa5e9fff 0x14a8aa5ea000 - 0x14a8aa5eafff 0x14a8aa5eb000 - 0x14a8aa5ebfff 0x14a8aa5ec000 - 0x14a8aa5ecfff 0x14a8aa5ed000 - 0x14a8aa5fafff 0x14a8aa5fb000 - 0x14a8aa608fff 0x14a8aa609000 - 0x14a8aa616fff 0x14a8aa617000 - 0x14a8aa61afff 0x14a8aa61b000 - 0x14a8aa61bfff 0x14a8aa61c000 - 0x14a8aa631fff 0x14a8aa632000 - 0x14a8aa65dfff 0x14a8aa65e000 - 0x14a8aa666fff 0x14a8aa667000 - 0x14a8aa667fff 0x14a8aa668000 - 0x14a8aa66afff 0x14a8aa66b000 - 0x14a8aa670fff 0x14a8aa671000 - 0x14a8aa673fff 0x14a8aa676000 - 0x14a8aa676fff 0x14a8aa677000 - 0x14a8aa677fff 0x14a8aa678000 - 0x14a8aa67efff 0x14a8aa67f000 - 0x14a8aa680fff 0x14a8aa681000 - 0x14a8aa6a1fff 0x14a8aa6a2000 - 0x14a8aa6a9fff 0x14a8aa6aa000 - 0x14a8aa6aafff 0x14a8aa6ab000 - 0x14a8aa6abfff 0x14a8aa6ac000 - 0x14a8aa6acfff 0x14a8aa6ad000 - 0x14a8aa6adfff 0x7ffef0750000 - 0x7ffef0770fff 0x7ffef07f7000 - 0x7ffef07fafff 0x7ffef07fb000 - 0x7ffef07fcfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xb2e000 - 0xb4efff 0x100000000000 - 0x1000000bffff 0x146424f59000 - 0x1464255fdfff 0x1464255fe000 - 0x146425651fff 0x146425652000 - 0x146425654fff 0x146425655000 - 0x146425679fff 0x14642567a000 - 0x1464257c9fff 0x1464257ca000 - 0x146425814fff 0x146425815000 - 0x146425817fff 0x146425818000 - 0x14642581afff 0x14642581b000 - 0x14642581efff 0x14642581f000 - 0x146425821fff 0x146425822000 - 0x146425833fff 0x146425834000 - 0x146425837fff 0x146425838000 - 0x146425838fff 0x146425839000 - 0x146425839fff 0x14642583a000 - 0x14642583bfff 0x14642583c000 - 0x14642584cfff 0x14642584d000 - 0x146425884fff 0x146425885000 - 0x1464259bbfff 0x1464259bc000 - 0x1464259bffff 0x1464259c0000 - 0x1464259c0fff 0x1464259c1000 - 0x1464259c1fff 0x1464259c2000 - 0x1464259c3fff 0x1464259c4000 - 0x1464259c4fff 0x1464259c5000 - 0x1464259c5fff 0x1464259c6000 - 0x1464259c6fff 0x1464259c7000 - 0x1464259c8fff 0x1464259c9000 - 0x1464259cbfff 0x1464259cc000 - 0x1464259ccfff 0x1464259cd000 - 0x1464259cdfff 0x1464259ce000 - 0x1464259cefff 0x1464259cf000 - 0x1464259d0fff 0x1464259d1000 - 0x1464259d2fff 0x1464259d3000 - 0x1464259d3fff 0x1464259d4000 - 0x1464259d4fff 0x1464259d5000 - 0x1464259d5fff 0x1464259d6000 - 0x1464259e3fff 0x1464259e4000 - 0x1464259f1fff 0x1464259f2000 - 0x1464259fffff 0x146425a00000 - 0x146425a03fff 0x146425a04000 - 0x146425a04fff 0x146425a05000 - 0x146425a1afff 0x146425a1b000 - 0x146425a46fff 0x146425a47000 - 0x146425a4ffff 0x146425a50000 - 0x146425a50fff 0x146425a51000 - 0x146425a53fff 0x146425a54000 - 0x146425a59fff 0x146425a5a000 - 0x146425a5cfff 0x146425a5f000 - 0x146425a5ffff 0x146425a60000 - 0x146425a60fff 0x146425a61000 - 0x146425a67fff 0x146425a68000 - 0x146425a69fff 0x146425a6a000 - 0x146425a8afff 0x146425a8b000 - 0x146425a92fff 0x146425a93000 - 0x146425a93fff 0x146425a94000 - 0x146425a94fff 0x146425a95000 - 0x146425a95fff 0x146425a96000 - 0x146425a96fff 0x7ffc8eb0b000 - 0x7ffc8eb2bfff 0x7ffc8ebd2000 - 0x7ffc8ebd5fff 0x7ffc8ebd6000 - 0x7ffc8ebd7fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xc5f000 - 0xc7ffff 0x100000000000 - 0x1000000bffff 0x154533d53000 - 0x1545343f7fff 0x1545343f8000 - 0x15453444bfff 0x15453444c000 - 0x15453444efff 0x15453444f000 - 0x154534473fff 0x154534474000 - 0x1545345c3fff 0x1545345c4000 - 0x15453460efff 0x15453460f000 - 0x154534611fff 0x154534612000 - 0x154534614fff 0x154534615000 - 0x154534618fff 0x154534619000 - 0x15453461bfff 0x15453461c000 - 0x15453462dfff 0x15453462e000 - 0x154534631fff 0x154534632000 - 0x154534632fff 0x154534633000 - 0x154534633fff 0x154534634000 - 0x154534635fff 0x154534636000 - 0x154534646fff 0x154534647000 - 0x15453467efff 0x15453467f000 - 0x1545347b5fff 0x1545347b6000 - 0x1545347b9fff 0x1545347ba000 - 0x1545347bafff 0x1545347bb000 - 0x1545347bbfff 0x1545347bc000 - 0x1545347bdfff 0x1545347be000 - 0x1545347befff 0x1545347bf000 - 0x1545347bffff 0x1545347c0000 - 0x1545347c0fff 0x1545347c1000 - 0x1545347c2fff 0x1545347c3000 - 0x1545347c5fff 0x1545347c6000 - 0x1545347c6fff 0x1545347c7000 - 0x1545347c7fff 0x1545347c8000 - 0x1545347c8fff 0x1545347c9000 - 0x1545347cafff 0x1545347cb000 - 0x1545347ccfff 0x1545347cd000 - 0x1545347cdfff 0x1545347ce000 - 0x1545347cefff 0x1545347cf000 - 0x1545347cffff 0x1545347d0000 - 0x1545347ddfff 0x1545347de000 - 0x1545347ebfff 0x1545347ec000 - 0x1545347f9fff 0x1545347fa000 - 0x1545347fdfff 0x1545347fe000 - 0x1545347fefff 0x1545347ff000 - 0x154534814fff 0x154534815000 - 0x154534840fff 0x154534841000 - 0x154534849fff 0x15453484a000 - 0x15453484afff 0x15453484b000 - 0x15453484dfff 0x15453484e000 - 0x154534853fff 0x154534854000 - 0x154534856fff 0x154534859000 - 0x154534859fff 0x15453485a000 - 0x15453485afff 0x15453485b000 - 0x154534861fff 0x154534862000 - 0x154534863fff 0x154534864000 - 0x154534884fff 0x154534885000 - 0x15453488cfff 0x15453488d000 - 0x15453488dfff 0x15453488e000 - 0x15453488efff 0x15453488f000 - 0x15453488ffff 0x154534890000 - 0x154534890fff 0x7ffed89b1000 - 0x7ffed89d1fff 0x7ffed89db000 - 0x7ffed89defff 0x7ffed89df000 - 0x7ffed89e0fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1499000 - 0x14b9fff 0x100000000000 - 0x1000000bffff 0x1541aab92000 - 0x1541ab236fff 0x1541ab237000 - 0x1541ab28afff 0x1541ab28b000 - 0x1541ab28dfff 0x1541ab28e000 - 0x1541ab2b2fff 0x1541ab2b3000 - 0x1541ab402fff 0x1541ab403000 - 0x1541ab44dfff 0x1541ab44e000 - 0x1541ab450fff 0x1541ab451000 - 0x1541ab453fff 0x1541ab454000 - 0x1541ab457fff 0x1541ab458000 - 0x1541ab45afff 0x1541ab45b000 - 0x1541ab46cfff 0x1541ab46d000 - 0x1541ab470fff 0x1541ab471000 - 0x1541ab471fff 0x1541ab472000 - 0x1541ab472fff 0x1541ab473000 - 0x1541ab474fff 0x1541ab475000 - 0x1541ab485fff 0x1541ab486000 - 0x1541ab4bdfff 0x1541ab4be000 - 0x1541ab5f4fff 0x1541ab5f5000 - 0x1541ab5f8fff 0x1541ab5f9000 - 0x1541ab5f9fff 0x1541ab5fa000 - 0x1541ab5fafff 0x1541ab5fb000 - 0x1541ab5fcfff 0x1541ab5fd000 - 0x1541ab5fdfff 0x1541ab5fe000 - 0x1541ab5fefff 0x1541ab5ff000 - 0x1541ab5fffff 0x1541ab600000 - 0x1541ab601fff 0x1541ab602000 - 0x1541ab604fff 0x1541ab605000 - 0x1541ab605fff 0x1541ab606000 - 0x1541ab606fff 0x1541ab607000 - 0x1541ab607fff 0x1541ab608000 - 0x1541ab609fff 0x1541ab60a000 - 0x1541ab60bfff 0x1541ab60c000 - 0x1541ab60cfff 0x1541ab60d000 - 0x1541ab60dfff 0x1541ab60e000 - 0x1541ab60efff 0x1541ab60f000 - 0x1541ab61cfff 0x1541ab61d000 - 0x1541ab62afff 0x1541ab62b000 - 0x1541ab638fff 0x1541ab639000 - 0x1541ab63cfff 0x1541ab63d000 - 0x1541ab63dfff 0x1541ab63e000 - 0x1541ab653fff 0x1541ab654000 - 0x1541ab67ffff 0x1541ab680000 - 0x1541ab688fff 0x1541ab689000 - 0x1541ab689fff 0x1541ab68a000 - 0x1541ab68cfff 0x1541ab68d000 - 0x1541ab692fff 0x1541ab693000 - 0x1541ab695fff 0x1541ab698000 - 0x1541ab698fff 0x1541ab699000 - 0x1541ab699fff 0x1541ab69a000 - 0x1541ab6a0fff 0x1541ab6a1000 - 0x1541ab6a2fff 0x1541ab6a3000 - 0x1541ab6c3fff 0x1541ab6c4000 - 0x1541ab6cbfff 0x1541ab6cc000 - 0x1541ab6ccfff 0x1541ab6cd000 - 0x1541ab6cdfff 0x1541ab6ce000 - 0x1541ab6cefff 0x1541ab6cf000 - 0x1541ab6cffff 0x7ffde9acf000 - 0x7ffde9aeffff 0x7ffde9b22000 - 0x7ffde9b25fff 0x7ffde9b26000 - 0x7ffde9b27fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1118000 - 0x1138fff 0x100000000000 - 0x1000000bffff 0x14f3c4199000 - 0x14f3c483dfff 0x14f3c483e000 - 0x14f3c4891fff 0x14f3c4892000 - 0x14f3c4894fff 0x14f3c4895000 - 0x14f3c48b9fff 0x14f3c48ba000 - 0x14f3c4a09fff 0x14f3c4a0a000 - 0x14f3c4a54fff 0x14f3c4a55000 - 0x14f3c4a57fff 0x14f3c4a58000 - 0x14f3c4a5afff 0x14f3c4a5b000 - 0x14f3c4a5efff 0x14f3c4a5f000 - 0x14f3c4a61fff 0x14f3c4a62000 - 0x14f3c4a73fff 0x14f3c4a74000 - 0x14f3c4a77fff 0x14f3c4a78000 - 0x14f3c4a78fff 0x14f3c4a79000 - 0x14f3c4a79fff 0x14f3c4a7a000 - 0x14f3c4a7bfff 0x14f3c4a7c000 - 0x14f3c4a8cfff 0x14f3c4a8d000 - 0x14f3c4ac4fff 0x14f3c4ac5000 - 0x14f3c4bfbfff 0x14f3c4bfc000 - 0x14f3c4bfffff 0x14f3c4c00000 - 0x14f3c4c00fff 0x14f3c4c01000 - 0x14f3c4c01fff 0x14f3c4c02000 - 0x14f3c4c03fff 0x14f3c4c04000 - 0x14f3c4c04fff 0x14f3c4c05000 - 0x14f3c4c05fff 0x14f3c4c06000 - 0x14f3c4c06fff 0x14f3c4c07000 - 0x14f3c4c08fff 0x14f3c4c09000 - 0x14f3c4c0bfff 0x14f3c4c0c000 - 0x14f3c4c0cfff 0x14f3c4c0d000 - 0x14f3c4c0dfff 0x14f3c4c0e000 - 0x14f3c4c0efff 0x14f3c4c0f000 - 0x14f3c4c10fff 0x14f3c4c11000 - 0x14f3c4c12fff 0x14f3c4c13000 - 0x14f3c4c13fff 0x14f3c4c14000 - 0x14f3c4c14fff 0x14f3c4c15000 - 0x14f3c4c15fff 0x14f3c4c16000 - 0x14f3c4c23fff 0x14f3c4c24000 - 0x14f3c4c31fff 0x14f3c4c32000 - 0x14f3c4c3ffff 0x14f3c4c40000 - 0x14f3c4c43fff 0x14f3c4c44000 - 0x14f3c4c44fff 0x14f3c4c45000 - 0x14f3c4c5afff 0x14f3c4c5b000 - 0x14f3c4c86fff 0x14f3c4c87000 - 0x14f3c4c8ffff 0x14f3c4c90000 - 0x14f3c4c90fff 0x14f3c4c91000 - 0x14f3c4c93fff 0x14f3c4c94000 - 0x14f3c4c99fff 0x14f3c4c9a000 - 0x14f3c4c9cfff 0x14f3c4c9f000 - 0x14f3c4c9ffff 0x14f3c4ca0000 - 0x14f3c4ca0fff 0x14f3c4ca1000 - 0x14f3c4ca7fff 0x14f3c4ca8000 - 0x14f3c4ca9fff 0x14f3c4caa000 - 0x14f3c4ccafff 0x14f3c4ccb000 - 0x14f3c4cd2fff 0x14f3c4cd3000 - 0x14f3c4cd3fff 0x14f3c4cd4000 - 0x14f3c4cd4fff 0x14f3c4cd5000 - 0x14f3c4cd5fff 0x14f3c4cd6000 - 0x14f3c4cd6fff 0x7ffdb7b8f000 - 0x7ffdb7baffff 0x7ffdb7be6000 - 0x7ffdb7be9fff 0x7ffdb7bea000 - 0x7ffdb7bebfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x63d000 - 0x65dfff 0x100000000000 - 0x1000000bffff 0x14af3e7ac000 - 0x14af3ee50fff 0x14af3ee51000 - 0x14af3eea4fff 0x14af3eea5000 - 0x14af3eea7fff 0x14af3eea8000 - 0x14af3eeccfff 0x14af3eecd000 - 0x14af3f01cfff 0x14af3f01d000 - 0x14af3f067fff 0x14af3f068000 - 0x14af3f06afff 0x14af3f06b000 - 0x14af3f06dfff 0x14af3f06e000 - 0x14af3f071fff 0x14af3f072000 - 0x14af3f074fff 0x14af3f075000 - 0x14af3f086fff 0x14af3f087000 - 0x14af3f08afff 0x14af3f08b000 - 0x14af3f08bfff 0x14af3f08c000 - 0x14af3f08cfff 0x14af3f08d000 - 0x14af3f08efff 0x14af3f08f000 - 0x14af3f09ffff 0x14af3f0a0000 - 0x14af3f0d7fff 0x14af3f0d8000 - 0x14af3f20efff 0x14af3f20f000 - 0x14af3f212fff 0x14af3f213000 - 0x14af3f213fff 0x14af3f214000 - 0x14af3f214fff 0x14af3f215000 - 0x14af3f216fff 0x14af3f217000 - 0x14af3f217fff 0x14af3f218000 - 0x14af3f218fff 0x14af3f219000 - 0x14af3f219fff 0x14af3f21a000 - 0x14af3f21bfff 0x14af3f21c000 - 0x14af3f21efff 0x14af3f21f000 - 0x14af3f21ffff 0x14af3f220000 - 0x14af3f220fff 0x14af3f221000 - 0x14af3f221fff 0x14af3f222000 - 0x14af3f223fff 0x14af3f224000 - 0x14af3f225fff 0x14af3f226000 - 0x14af3f226fff 0x14af3f227000 - 0x14af3f227fff 0x14af3f228000 - 0x14af3f228fff 0x14af3f229000 - 0x14af3f236fff 0x14af3f237000 - 0x14af3f244fff 0x14af3f245000 - 0x14af3f252fff 0x14af3f253000 - 0x14af3f256fff 0x14af3f257000 - 0x14af3f257fff 0x14af3f258000 - 0x14af3f26dfff 0x14af3f26e000 - 0x14af3f299fff 0x14af3f29a000 - 0x14af3f2a2fff 0x14af3f2a3000 - 0x14af3f2a3fff 0x14af3f2a4000 - 0x14af3f2a6fff 0x14af3f2a7000 - 0x14af3f2acfff 0x14af3f2ad000 - 0x14af3f2affff 0x14af3f2b2000 - 0x14af3f2b2fff 0x14af3f2b3000 - 0x14af3f2b3fff 0x14af3f2b4000 - 0x14af3f2bafff 0x14af3f2bb000 - 0x14af3f2bcfff 0x14af3f2bd000 - 0x14af3f2ddfff 0x14af3f2de000 - 0x14af3f2e5fff 0x14af3f2e6000 - 0x14af3f2e6fff 0x14af3f2e7000 - 0x14af3f2e7fff 0x14af3f2e8000 - 0x14af3f2e8fff 0x14af3f2e9000 - 0x14af3f2e9fff 0x7ffeaf07b000 - 0x7ffeaf09bfff 0x7ffeaf112000 - 0x7ffeaf115fff 0x7ffeaf116000 - 0x7ffeaf117fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x6b6000 - 0x6d6fff 0x100000000000 - 0x1000000bffff 0x14b063348000 - 0x14b0639ecfff 0x14b0639ed000 - 0x14b063a40fff 0x14b063a41000 - 0x14b063a43fff 0x14b063a44000 - 0x14b063a68fff 0x14b063a69000 - 0x14b063bb8fff 0x14b063bb9000 - 0x14b063c03fff 0x14b063c04000 - 0x14b063c06fff 0x14b063c07000 - 0x14b063c09fff 0x14b063c0a000 - 0x14b063c0dfff 0x14b063c0e000 - 0x14b063c10fff 0x14b063c11000 - 0x14b063c22fff 0x14b063c23000 - 0x14b063c26fff 0x14b063c27000 - 0x14b063c27fff 0x14b063c28000 - 0x14b063c28fff 0x14b063c29000 - 0x14b063c2afff 0x14b063c2b000 - 0x14b063c3bfff 0x14b063c3c000 - 0x14b063c73fff 0x14b063c74000 - 0x14b063daafff 0x14b063dab000 - 0x14b063daefff 0x14b063daf000 - 0x14b063daffff 0x14b063db0000 - 0x14b063db0fff 0x14b063db1000 - 0x14b063db2fff 0x14b063db3000 - 0x14b063db3fff 0x14b063db4000 - 0x14b063db4fff 0x14b063db5000 - 0x14b063db5fff 0x14b063db6000 - 0x14b063db7fff 0x14b063db8000 - 0x14b063dbafff 0x14b063dbb000 - 0x14b063dbbfff 0x14b063dbc000 - 0x14b063dbcfff 0x14b063dbd000 - 0x14b063dbdfff 0x14b063dbe000 - 0x14b063dbffff 0x14b063dc0000 - 0x14b063dc1fff 0x14b063dc2000 - 0x14b063dc2fff 0x14b063dc3000 - 0x14b063dc3fff 0x14b063dc4000 - 0x14b063dc4fff 0x14b063dc5000 - 0x14b063dd2fff 0x14b063dd3000 - 0x14b063de0fff 0x14b063de1000 - 0x14b063deefff 0x14b063def000 - 0x14b063df2fff 0x14b063df3000 - 0x14b063df3fff 0x14b063df4000 - 0x14b063e09fff 0x14b063e0a000 - 0x14b063e35fff 0x14b063e36000 - 0x14b063e3efff 0x14b063e3f000 - 0x14b063e3ffff 0x14b063e40000 - 0x14b063e42fff 0x14b063e43000 - 0x14b063e48fff 0x14b063e49000 - 0x14b063e4bfff 0x14b063e4e000 - 0x14b063e4efff 0x14b063e4f000 - 0x14b063e4ffff 0x14b063e50000 - 0x14b063e56fff 0x14b063e57000 - 0x14b063e58fff 0x14b063e59000 - 0x14b063e79fff 0x14b063e7a000 - 0x14b063e81fff 0x14b063e82000 - 0x14b063e82fff 0x14b063e83000 - 0x14b063e83fff 0x14b063e84000 - 0x14b063e84fff 0x14b063e85000 - 0x14b063e85fff 0x7fff3fd29000 - 0x7fff3fd49fff 0x7fff3fdee000 - 0x7fff3fdf1fff 0x7fff3fdf2000 - 0x7fff3fdf3fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xd2b000 - 0xd4bfff 0x100000000000 - 0x1000000bffff 0x14a93382f000 - 0x14a933ed3fff 0x14a933ed4000 - 0x14a933f27fff 0x14a933f28000 - 0x14a933f2afff 0x14a933f2b000 - 0x14a933f4ffff 0x14a933f50000 - 0x14a93409ffff 0x14a9340a0000 - 0x14a9340eafff 0x14a9340eb000 - 0x14a9340edfff 0x14a9340ee000 - 0x14a9340f0fff 0x14a9340f1000 - 0x14a9340f4fff 0x14a9340f5000 - 0x14a9340f7fff 0x14a9340f8000 - 0x14a934109fff 0x14a93410a000 - 0x14a93410dfff 0x14a93410e000 - 0x14a93410efff 0x14a93410f000 - 0x14a93410ffff 0x14a934110000 - 0x14a934111fff 0x14a934112000 - 0x14a934122fff 0x14a934123000 - 0x14a93415afff 0x14a93415b000 - 0x14a934291fff 0x14a934292000 - 0x14a934295fff 0x14a934296000 - 0x14a934296fff 0x14a934297000 - 0x14a934297fff 0x14a934298000 - 0x14a934299fff 0x14a93429a000 - 0x14a93429afff 0x14a93429b000 - 0x14a93429bfff 0x14a93429c000 - 0x14a93429cfff 0x14a93429d000 - 0x14a93429efff 0x14a93429f000 - 0x14a9342a1fff 0x14a9342a2000 - 0x14a9342a2fff 0x14a9342a3000 - 0x14a9342a3fff 0x14a9342a4000 - 0x14a9342a4fff 0x14a9342a5000 - 0x14a9342a6fff 0x14a9342a7000 - 0x14a9342a8fff 0x14a9342a9000 - 0x14a9342a9fff 0x14a9342aa000 - 0x14a9342aafff 0x14a9342ab000 - 0x14a9342abfff 0x14a9342ac000 - 0x14a9342b9fff 0x14a9342ba000 - 0x14a9342c7fff 0x14a9342c8000 - 0x14a9342d5fff 0x14a9342d6000 - 0x14a9342d9fff 0x14a9342da000 - 0x14a9342dafff 0x14a9342db000 - 0x14a9342f0fff 0x14a9342f1000 - 0x14a93431cfff 0x14a93431d000 - 0x14a934325fff 0x14a934326000 - 0x14a934326fff 0x14a934327000 - 0x14a934329fff 0x14a93432a000 - 0x14a93432ffff 0x14a934330000 - 0x14a934332fff 0x14a934335000 - 0x14a934335fff 0x14a934336000 - 0x14a934336fff 0x14a934337000 - 0x14a93433dfff 0x14a93433e000 - 0x14a93433ffff 0x14a934340000 - 0x14a934360fff 0x14a934361000 - 0x14a934368fff 0x14a934369000 - 0x14a934369fff 0x14a93436a000 - 0x14a93436afff 0x14a93436b000 - 0x14a93436bfff 0x14a93436c000 - 0x14a93436cfff 0x7fff854eb000 - 0x7fff8550bfff 0x7fff85516000 - 0x7fff85519fff 0x7fff8551a000 - 0x7fff8551bfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x21ea000 - 0x220afff 0x100000000000 - 0x1000000bffff 0x14a0bb3a4000 - 0x14a0bba48fff 0x14a0bba49000 - 0x14a0bba9cfff 0x14a0bba9d000 - 0x14a0bba9ffff 0x14a0bbaa0000 - 0x14a0bbac4fff 0x14a0bbac5000 - 0x14a0bbc14fff 0x14a0bbc15000 - 0x14a0bbc5ffff 0x14a0bbc60000 - 0x14a0bbc62fff 0x14a0bbc63000 - 0x14a0bbc65fff 0x14a0bbc66000 - 0x14a0bbc69fff 0x14a0bbc6a000 - 0x14a0bbc6cfff 0x14a0bbc6d000 - 0x14a0bbc7efff 0x14a0bbc7f000 - 0x14a0bbc82fff 0x14a0bbc83000 - 0x14a0bbc83fff 0x14a0bbc84000 - 0x14a0bbc84fff 0x14a0bbc85000 - 0x14a0bbc86fff 0x14a0bbc87000 - 0x14a0bbc97fff 0x14a0bbc98000 - 0x14a0bbccffff 0x14a0bbcd0000 - 0x14a0bbe06fff 0x14a0bbe07000 - 0x14a0bbe0afff 0x14a0bbe0b000 - 0x14a0bbe0bfff 0x14a0bbe0c000 - 0x14a0bbe0cfff 0x14a0bbe0d000 - 0x14a0bbe0efff 0x14a0bbe0f000 - 0x14a0bbe0ffff 0x14a0bbe10000 - 0x14a0bbe10fff 0x14a0bbe11000 - 0x14a0bbe11fff 0x14a0bbe12000 - 0x14a0bbe13fff 0x14a0bbe14000 - 0x14a0bbe16fff 0x14a0bbe17000 - 0x14a0bbe17fff 0x14a0bbe18000 - 0x14a0bbe18fff 0x14a0bbe19000 - 0x14a0bbe19fff 0x14a0bbe1a000 - 0x14a0bbe1bfff 0x14a0bbe1c000 - 0x14a0bbe1dfff 0x14a0bbe1e000 - 0x14a0bbe1efff 0x14a0bbe1f000 - 0x14a0bbe1ffff 0x14a0bbe20000 - 0x14a0bbe20fff 0x14a0bbe21000 - 0x14a0bbe2efff 0x14a0bbe2f000 - 0x14a0bbe3cfff 0x14a0bbe3d000 - 0x14a0bbe4afff 0x14a0bbe4b000 - 0x14a0bbe4efff 0x14a0bbe4f000 - 0x14a0bbe4ffff 0x14a0bbe50000 - 0x14a0bbe65fff 0x14a0bbe66000 - 0x14a0bbe91fff 0x14a0bbe92000 - 0x14a0bbe9afff 0x14a0bbe9b000 - 0x14a0bbe9bfff 0x14a0bbe9c000 - 0x14a0bbe9efff 0x14a0bbe9f000 - 0x14a0bbea4fff 0x14a0bbea5000 - 0x14a0bbea7fff 0x14a0bbeaa000 - 0x14a0bbeaafff 0x14a0bbeab000 - 0x14a0bbeabfff 0x14a0bbeac000 - 0x14a0bbeb2fff 0x14a0bbeb3000 - 0x14a0bbeb4fff 0x14a0bbeb5000 - 0x14a0bbed5fff 0x14a0bbed6000 - 0x14a0bbeddfff 0x14a0bbede000 - 0x14a0bbedefff 0x14a0bbedf000 - 0x14a0bbedffff 0x14a0bbee0000 - 0x14a0bbee0fff 0x14a0bbee1000 - 0x14a0bbee1fff 0x7fffef33c000 - 0x7fffef35cfff 0x7fffef36a000 - 0x7fffef36dfff 0x7fffef36e000 - 0x7fffef36ffff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x145e000 - 0x147efff 0x100000000000 - 0x1000000bffff 0x1494e2ce4000 - 0x1494e3388fff 0x1494e3389000 - 0x1494e33dcfff 0x1494e33dd000 - 0x1494e33dffff 0x1494e33e0000 - 0x1494e3404fff 0x1494e3405000 - 0x1494e3554fff 0x1494e3555000 - 0x1494e359ffff 0x1494e35a0000 - 0x1494e35a2fff 0x1494e35a3000 - 0x1494e35a5fff 0x1494e35a6000 - 0x1494e35a9fff 0x1494e35aa000 - 0x1494e35acfff 0x1494e35ad000 - 0x1494e35befff 0x1494e35bf000 - 0x1494e35c2fff 0x1494e35c3000 - 0x1494e35c3fff 0x1494e35c4000 - 0x1494e35c4fff 0x1494e35c5000 - 0x1494e35c6fff 0x1494e35c7000 - 0x1494e35d7fff 0x1494e35d8000 - 0x1494e360ffff 0x1494e3610000 - 0x1494e3746fff 0x1494e3747000 - 0x1494e374afff 0x1494e374b000 - 0x1494e374bfff 0x1494e374c000 - 0x1494e374cfff 0x1494e374d000 - 0x1494e374efff 0x1494e374f000 - 0x1494e374ffff 0x1494e3750000 - 0x1494e3750fff 0x1494e3751000 - 0x1494e3751fff 0x1494e3752000 - 0x1494e3753fff 0x1494e3754000 - 0x1494e3756fff 0x1494e3757000 - 0x1494e3757fff 0x1494e3758000 - 0x1494e3758fff 0x1494e3759000 - 0x1494e3759fff 0x1494e375a000 - 0x1494e375bfff 0x1494e375c000 - 0x1494e375dfff 0x1494e375e000 - 0x1494e375efff 0x1494e375f000 - 0x1494e375ffff 0x1494e3760000 - 0x1494e3760fff 0x1494e3761000 - 0x1494e376efff 0x1494e376f000 - 0x1494e377cfff 0x1494e377d000 - 0x1494e378afff 0x1494e378b000 - 0x1494e378efff 0x1494e378f000 - 0x1494e378ffff 0x1494e3790000 - 0x1494e37a5fff 0x1494e37a6000 - 0x1494e37d1fff 0x1494e37d2000 - 0x1494e37dafff 0x1494e37db000 - 0x1494e37dbfff 0x1494e37dc000 - 0x1494e37defff 0x1494e37df000 - 0x1494e37e4fff 0x1494e37e5000 - 0x1494e37e7fff 0x1494e37ea000 - 0x1494e37eafff 0x1494e37eb000 - 0x1494e37ebfff 0x1494e37ec000 - 0x1494e37f2fff 0x1494e37f3000 - 0x1494e37f4fff 0x1494e37f5000 - 0x1494e3815fff 0x1494e3816000 - 0x1494e381dfff 0x1494e381e000 - 0x1494e381efff 0x1494e381f000 - 0x1494e381ffff 0x1494e3820000 - 0x1494e3820fff 0x1494e3821000 - 0x1494e3821fff 0x7fff3eac0000 - 0x7fff3eae0fff 0x7fff3eb64000 - 0x7fff3eb67fff 0x7fff3eb68000 - 0x7fff3eb69fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x2114000 - 0x2134fff 0x100000000000 - 0x1000000bffff 0x1534edf9a000 - 0x1534ee63efff 0x1534ee63f000 - 0x1534ee692fff 0x1534ee693000 - 0x1534ee695fff 0x1534ee696000 - 0x1534ee6bafff 0x1534ee6bb000 - 0x1534ee80afff 0x1534ee80b000 - 0x1534ee855fff 0x1534ee856000 - 0x1534ee858fff 0x1534ee859000 - 0x1534ee85bfff 0x1534ee85c000 - 0x1534ee85ffff 0x1534ee860000 - 0x1534ee862fff 0x1534ee863000 - 0x1534ee874fff 0x1534ee875000 - 0x1534ee878fff 0x1534ee879000 - 0x1534ee879fff 0x1534ee87a000 - 0x1534ee87afff 0x1534ee87b000 - 0x1534ee87cfff 0x1534ee87d000 - 0x1534ee88dfff 0x1534ee88e000 - 0x1534ee8c5fff 0x1534ee8c6000 - 0x1534ee9fcfff 0x1534ee9fd000 - 0x1534eea00fff 0x1534eea01000 - 0x1534eea01fff 0x1534eea02000 - 0x1534eea02fff 0x1534eea03000 - 0x1534eea04fff 0x1534eea05000 - 0x1534eea05fff 0x1534eea06000 - 0x1534eea06fff 0x1534eea07000 - 0x1534eea07fff 0x1534eea08000 - 0x1534eea09fff 0x1534eea0a000 - 0x1534eea0cfff 0x1534eea0d000 - 0x1534eea0dfff 0x1534eea0e000 - 0x1534eea0efff 0x1534eea0f000 - 0x1534eea0ffff 0x1534eea10000 - 0x1534eea11fff 0x1534eea12000 - 0x1534eea13fff 0x1534eea14000 - 0x1534eea14fff 0x1534eea15000 - 0x1534eea15fff 0x1534eea16000 - 0x1534eea16fff 0x1534eea17000 - 0x1534eea24fff 0x1534eea25000 - 0x1534eea32fff 0x1534eea33000 - 0x1534eea40fff 0x1534eea41000 - 0x1534eea44fff 0x1534eea45000 - 0x1534eea45fff 0x1534eea46000 - 0x1534eea5bfff 0x1534eea5c000 - 0x1534eea87fff 0x1534eea88000 - 0x1534eea90fff 0x1534eea91000 - 0x1534eea91fff 0x1534eea92000 - 0x1534eea94fff 0x1534eea95000 - 0x1534eea9afff 0x1534eea9b000 - 0x1534eea9dfff 0x1534eeaa0000 - 0x1534eeaa0fff 0x1534eeaa1000 - 0x1534eeaa1fff 0x1534eeaa2000 - 0x1534eeaa8fff 0x1534eeaa9000 - 0x1534eeaaafff 0x1534eeaab000 - 0x1534eeacbfff 0x1534eeacc000 - 0x1534eead3fff 0x1534eead4000 - 0x1534eead4fff 0x1534eead5000 - 0x1534eead5fff 0x1534eead6000 - 0x1534eead6fff 0x1534eead7000 - 0x1534eead7fff 0x7ffc61cac000 - 0x7ffc61cccfff 0x7ffc61cce000 - 0x7ffc61cd1fff 0x7ffc61cd2000 - 0x7ffc61cd3fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1541000 - 0x1561fff 0x100000000000 - 0x1000000bffff 0x1467027e8000 - 0x146702e8cfff 0x146702e8d000 - 0x146702ee0fff 0x146702ee1000 - 0x146702ee3fff 0x146702ee4000 - 0x146702f08fff 0x146702f09000 - 0x146703058fff 0x146703059000 - 0x1467030a3fff 0x1467030a4000 - 0x1467030a6fff 0x1467030a7000 - 0x1467030a9fff 0x1467030aa000 - 0x1467030adfff 0x1467030ae000 - 0x1467030b0fff 0x1467030b1000 - 0x1467030c2fff 0x1467030c3000 - 0x1467030c6fff 0x1467030c7000 - 0x1467030c7fff 0x1467030c8000 - 0x1467030c8fff 0x1467030c9000 - 0x1467030cafff 0x1467030cb000 - 0x1467030dbfff 0x1467030dc000 - 0x146703113fff 0x146703114000 - 0x14670324afff 0x14670324b000 - 0x14670324efff 0x14670324f000 - 0x14670324ffff 0x146703250000 - 0x146703250fff 0x146703251000 - 0x146703252fff 0x146703253000 - 0x146703253fff 0x146703254000 - 0x146703254fff 0x146703255000 - 0x146703255fff 0x146703256000 - 0x146703257fff 0x146703258000 - 0x14670325afff 0x14670325b000 - 0x14670325bfff 0x14670325c000 - 0x14670325cfff 0x14670325d000 - 0x14670325dfff 0x14670325e000 - 0x14670325ffff 0x146703260000 - 0x146703261fff 0x146703262000 - 0x146703262fff 0x146703263000 - 0x146703263fff 0x146703264000 - 0x146703264fff 0x146703265000 - 0x146703272fff 0x146703273000 - 0x146703280fff 0x146703281000 - 0x14670328efff 0x14670328f000 - 0x146703292fff 0x146703293000 - 0x146703293fff 0x146703294000 - 0x1467032a9fff 0x1467032aa000 - 0x1467032d5fff 0x1467032d6000 - 0x1467032defff 0x1467032df000 - 0x1467032dffff 0x1467032e0000 - 0x1467032e2fff 0x1467032e3000 - 0x1467032e8fff 0x1467032e9000 - 0x1467032ebfff 0x1467032ee000 - 0x1467032eefff 0x1467032ef000 - 0x1467032effff 0x1467032f0000 - 0x1467032f6fff 0x1467032f7000 - 0x1467032f8fff 0x1467032f9000 - 0x146703319fff 0x14670331a000 - 0x146703321fff 0x146703322000 - 0x146703322fff 0x146703323000 - 0x146703323fff 0x146703324000 - 0x146703324fff 0x146703325000 - 0x146703325fff 0x7fff58e65000 - 0x7fff58e85fff 0x7fff58e95000 - 0x7fff58e98fff 0x7fff58e99000 - 0x7fff58e9afff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x226e000 - 0x228efff 0x100000000000 - 0x1000000bffff 0x14fcc026c000 - 0x14fcc0910fff 0x14fcc0911000 - 0x14fcc0964fff 0x14fcc0965000 - 0x14fcc0967fff 0x14fcc0968000 - 0x14fcc098cfff 0x14fcc098d000 - 0x14fcc0adcfff 0x14fcc0add000 - 0x14fcc0b27fff 0x14fcc0b28000 - 0x14fcc0b2afff 0x14fcc0b2b000 - 0x14fcc0b2dfff 0x14fcc0b2e000 - 0x14fcc0b31fff 0x14fcc0b32000 - 0x14fcc0b34fff 0x14fcc0b35000 - 0x14fcc0b46fff 0x14fcc0b47000 - 0x14fcc0b4afff 0x14fcc0b4b000 - 0x14fcc0b4bfff 0x14fcc0b4c000 - 0x14fcc0b4cfff 0x14fcc0b4d000 - 0x14fcc0b4efff 0x14fcc0b4f000 - 0x14fcc0b5ffff 0x14fcc0b60000 - 0x14fcc0b97fff 0x14fcc0b98000 - 0x14fcc0ccefff 0x14fcc0ccf000 - 0x14fcc0cd2fff 0x14fcc0cd3000 - 0x14fcc0cd3fff 0x14fcc0cd4000 - 0x14fcc0cd4fff 0x14fcc0cd5000 - 0x14fcc0cd6fff 0x14fcc0cd7000 - 0x14fcc0cd7fff 0x14fcc0cd8000 - 0x14fcc0cd8fff 0x14fcc0cd9000 - 0x14fcc0cd9fff 0x14fcc0cda000 - 0x14fcc0cdbfff 0x14fcc0cdc000 - 0x14fcc0cdefff 0x14fcc0cdf000 - 0x14fcc0cdffff 0x14fcc0ce0000 - 0x14fcc0ce0fff 0x14fcc0ce1000 - 0x14fcc0ce1fff 0x14fcc0ce2000 - 0x14fcc0ce3fff 0x14fcc0ce4000 - 0x14fcc0ce5fff 0x14fcc0ce6000 - 0x14fcc0ce6fff 0x14fcc0ce7000 - 0x14fcc0ce7fff 0x14fcc0ce8000 - 0x14fcc0ce8fff 0x14fcc0ce9000 - 0x14fcc0cf6fff 0x14fcc0cf7000 - 0x14fcc0d04fff 0x14fcc0d05000 - 0x14fcc0d12fff 0x14fcc0d13000 - 0x14fcc0d16fff 0x14fcc0d17000 - 0x14fcc0d17fff 0x14fcc0d18000 - 0x14fcc0d2dfff 0x14fcc0d2e000 - 0x14fcc0d59fff 0x14fcc0d5a000 - 0x14fcc0d62fff 0x14fcc0d63000 - 0x14fcc0d63fff 0x14fcc0d64000 - 0x14fcc0d66fff 0x14fcc0d67000 - 0x14fcc0d6cfff 0x14fcc0d6d000 - 0x14fcc0d6ffff 0x14fcc0d72000 - 0x14fcc0d72fff 0x14fcc0d73000 - 0x14fcc0d73fff 0x14fcc0d74000 - 0x14fcc0d7afff 0x14fcc0d7b000 - 0x14fcc0d7cfff 0x14fcc0d7d000 - 0x14fcc0d9dfff 0x14fcc0d9e000 - 0x14fcc0da5fff 0x14fcc0da6000 - 0x14fcc0da6fff 0x14fcc0da7000 - 0x14fcc0da7fff 0x14fcc0da8000 - 0x14fcc0da8fff 0x14fcc0da9000 - 0x14fcc0da9fff 0x7ffda1d4d000 - 0x7ffda1d6dfff 0x7ffda1d82000 - 0x7ffda1d85fff 0x7ffda1d86000 - 0x7ffda1d87fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1eeb000 - 0x1f0bfff 0x100000000000 - 0x1000000bffff 0x147adec34000 - 0x147adf2d8fff 0x147adf2d9000 - 0x147adf32cfff 0x147adf32d000 - 0x147adf32ffff 0x147adf330000 - 0x147adf354fff 0x147adf355000 - 0x147adf4a4fff 0x147adf4a5000 - 0x147adf4effff 0x147adf4f0000 - 0x147adf4f2fff 0x147adf4f3000 - 0x147adf4f5fff 0x147adf4f6000 - 0x147adf4f9fff 0x147adf4fa000 - 0x147adf4fcfff 0x147adf4fd000 - 0x147adf50efff 0x147adf50f000 - 0x147adf512fff 0x147adf513000 - 0x147adf513fff 0x147adf514000 - 0x147adf514fff 0x147adf515000 - 0x147adf516fff 0x147adf517000 - 0x147adf527fff 0x147adf528000 - 0x147adf55ffff 0x147adf560000 - 0x147adf696fff 0x147adf697000 - 0x147adf69afff 0x147adf69b000 - 0x147adf69bfff 0x147adf69c000 - 0x147adf69cfff 0x147adf69d000 - 0x147adf69efff 0x147adf69f000 - 0x147adf69ffff 0x147adf6a0000 - 0x147adf6a0fff 0x147adf6a1000 - 0x147adf6a1fff 0x147adf6a2000 - 0x147adf6a3fff 0x147adf6a4000 - 0x147adf6a6fff 0x147adf6a7000 - 0x147adf6a7fff 0x147adf6a8000 - 0x147adf6a8fff 0x147adf6a9000 - 0x147adf6a9fff 0x147adf6aa000 - 0x147adf6abfff 0x147adf6ac000 - 0x147adf6adfff 0x147adf6ae000 - 0x147adf6aefff 0x147adf6af000 - 0x147adf6affff 0x147adf6b0000 - 0x147adf6b0fff 0x147adf6b1000 - 0x147adf6befff 0x147adf6bf000 - 0x147adf6ccfff 0x147adf6cd000 - 0x147adf6dafff 0x147adf6db000 - 0x147adf6defff 0x147adf6df000 - 0x147adf6dffff 0x147adf6e0000 - 0x147adf6f5fff 0x147adf6f6000 - 0x147adf721fff 0x147adf722000 - 0x147adf72afff 0x147adf72b000 - 0x147adf72bfff 0x147adf72c000 - 0x147adf72efff 0x147adf72f000 - 0x147adf734fff 0x147adf735000 - 0x147adf737fff 0x147adf73a000 - 0x147adf73afff 0x147adf73b000 - 0x147adf73bfff 0x147adf73c000 - 0x147adf742fff 0x147adf743000 - 0x147adf744fff 0x147adf745000 - 0x147adf765fff 0x147adf766000 - 0x147adf76dfff 0x147adf76e000 - 0x147adf76efff 0x147adf76f000 - 0x147adf76ffff 0x147adf770000 - 0x147adf770fff 0x147adf771000 - 0x147adf771fff 0x7ffd7f1f6000 - 0x7ffd7f216fff 0x7ffd7f3ae000 - 0x7ffd7f3b1fff 0x7ffd7f3b2000 - 0x7ffd7f3b3fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1066000 - 0x1086fff 0x100000000000 - 0x1000000bffff 0x14fcf7301000 - 0x14fcf79a5fff 0x14fcf79a6000 - 0x14fcf79f9fff 0x14fcf79fa000 - 0x14fcf79fcfff 0x14fcf79fd000 - 0x14fcf7a21fff 0x14fcf7a22000 - 0x14fcf7b71fff 0x14fcf7b72000 - 0x14fcf7bbcfff 0x14fcf7bbd000 - 0x14fcf7bbffff 0x14fcf7bc0000 - 0x14fcf7bc2fff 0x14fcf7bc3000 - 0x14fcf7bc6fff 0x14fcf7bc7000 - 0x14fcf7bc9fff 0x14fcf7bca000 - 0x14fcf7bdbfff 0x14fcf7bdc000 - 0x14fcf7bdffff 0x14fcf7be0000 - 0x14fcf7be0fff 0x14fcf7be1000 - 0x14fcf7be1fff 0x14fcf7be2000 - 0x14fcf7be3fff 0x14fcf7be4000 - 0x14fcf7bf4fff 0x14fcf7bf5000 - 0x14fcf7c2cfff 0x14fcf7c2d000 - 0x14fcf7d63fff 0x14fcf7d64000 - 0x14fcf7d67fff 0x14fcf7d68000 - 0x14fcf7d68fff 0x14fcf7d69000 - 0x14fcf7d69fff 0x14fcf7d6a000 - 0x14fcf7d6bfff 0x14fcf7d6c000 - 0x14fcf7d6cfff 0x14fcf7d6d000 - 0x14fcf7d6dfff 0x14fcf7d6e000 - 0x14fcf7d6efff 0x14fcf7d6f000 - 0x14fcf7d70fff 0x14fcf7d71000 - 0x14fcf7d73fff 0x14fcf7d74000 - 0x14fcf7d74fff 0x14fcf7d75000 - 0x14fcf7d75fff 0x14fcf7d76000 - 0x14fcf7d76fff 0x14fcf7d77000 - 0x14fcf7d78fff 0x14fcf7d79000 - 0x14fcf7d7afff 0x14fcf7d7b000 - 0x14fcf7d7bfff 0x14fcf7d7c000 - 0x14fcf7d7cfff 0x14fcf7d7d000 - 0x14fcf7d7dfff 0x14fcf7d7e000 - 0x14fcf7d8bfff 0x14fcf7d8c000 - 0x14fcf7d99fff 0x14fcf7d9a000 - 0x14fcf7da7fff 0x14fcf7da8000 - 0x14fcf7dabfff 0x14fcf7dac000 - 0x14fcf7dacfff 0x14fcf7dad000 - 0x14fcf7dc2fff 0x14fcf7dc3000 - 0x14fcf7deefff 0x14fcf7def000 - 0x14fcf7df7fff 0x14fcf7df8000 - 0x14fcf7df8fff 0x14fcf7df9000 - 0x14fcf7dfbfff 0x14fcf7dfc000 - 0x14fcf7e01fff 0x14fcf7e02000 - 0x14fcf7e04fff 0x14fcf7e07000 - 0x14fcf7e07fff 0x14fcf7e08000 - 0x14fcf7e08fff 0x14fcf7e09000 - 0x14fcf7e0ffff 0x14fcf7e10000 - 0x14fcf7e11fff 0x14fcf7e12000 - 0x14fcf7e32fff 0x14fcf7e33000 - 0x14fcf7e3afff 0x14fcf7e3b000 - 0x14fcf7e3bfff 0x14fcf7e3c000 - 0x14fcf7e3cfff 0x14fcf7e3d000 - 0x14fcf7e3dfff 0x14fcf7e3e000 - 0x14fcf7e3efff 0x7ffeeca86000 - 0x7ffeecaa6fff 0x7ffeecbdf000 - 0x7ffeecbe2fff 0x7ffeecbe3000 - 0x7ffeecbe4fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x7ea000 - 0x80afff 0x100000000000 - 0x1000000bffff 0x15006fddf000 - 0x150070483fff 0x150070484000 - 0x1500704d7fff 0x1500704d8000 - 0x1500704dafff 0x1500704db000 - 0x1500704fffff 0x150070500000 - 0x15007064ffff 0x150070650000 - 0x15007069afff 0x15007069b000 - 0x15007069dfff 0x15007069e000 - 0x1500706a0fff 0x1500706a1000 - 0x1500706a4fff 0x1500706a5000 - 0x1500706a7fff 0x1500706a8000 - 0x1500706b9fff 0x1500706ba000 - 0x1500706bdfff 0x1500706be000 - 0x1500706befff 0x1500706bf000 - 0x1500706bffff 0x1500706c0000 - 0x1500706c1fff 0x1500706c2000 - 0x1500706d2fff 0x1500706d3000 - 0x15007070afff 0x15007070b000 - 0x150070841fff 0x150070842000 - 0x150070845fff 0x150070846000 - 0x150070846fff 0x150070847000 - 0x150070847fff 0x150070848000 - 0x150070849fff 0x15007084a000 - 0x15007084afff 0x15007084b000 - 0x15007084bfff 0x15007084c000 - 0x15007084cfff 0x15007084d000 - 0x15007084efff 0x15007084f000 - 0x150070851fff 0x150070852000 - 0x150070852fff 0x150070853000 - 0x150070853fff 0x150070854000 - 0x150070854fff 0x150070855000 - 0x150070856fff 0x150070857000 - 0x150070858fff 0x150070859000 - 0x150070859fff 0x15007085a000 - 0x15007085afff 0x15007085b000 - 0x15007085bfff 0x15007085c000 - 0x150070869fff 0x15007086a000 - 0x150070877fff 0x150070878000 - 0x150070885fff 0x150070886000 - 0x150070889fff 0x15007088a000 - 0x15007088afff 0x15007088b000 - 0x1500708a0fff 0x1500708a1000 - 0x1500708ccfff 0x1500708cd000 - 0x1500708d5fff 0x1500708d6000 - 0x1500708d6fff 0x1500708d7000 - 0x1500708d9fff 0x1500708da000 - 0x1500708dffff 0x1500708e0000 - 0x1500708e2fff 0x1500708e5000 - 0x1500708e5fff 0x1500708e6000 - 0x1500708e6fff 0x1500708e7000 - 0x1500708edfff 0x1500708ee000 - 0x1500708effff 0x1500708f0000 - 0x150070910fff 0x150070911000 - 0x150070918fff 0x150070919000 - 0x150070919fff 0x15007091a000 - 0x15007091afff 0x15007091b000 - 0x15007091bfff 0x15007091c000 - 0x15007091cfff 0x7fff870fd000 - 0x7fff8711dfff 0x7fff87163000 - 0x7fff87166fff 0x7fff87167000 - 0x7fff87168fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1951000 - 0x1971fff 0x100000000000 - 0x1000000bffff 0x145b9e41d000 - 0x145b9eac1fff 0x145b9eac2000 - 0x145b9eb15fff 0x145b9eb16000 - 0x145b9eb18fff 0x145b9eb19000 - 0x145b9eb3dfff 0x145b9eb3e000 - 0x145b9ec8dfff 0x145b9ec8e000 - 0x145b9ecd8fff 0x145b9ecd9000 - 0x145b9ecdbfff 0x145b9ecdc000 - 0x145b9ecdefff 0x145b9ecdf000 - 0x145b9ece2fff 0x145b9ece3000 - 0x145b9ece5fff 0x145b9ece6000 - 0x145b9ecf7fff 0x145b9ecf8000 - 0x145b9ecfbfff 0x145b9ecfc000 - 0x145b9ecfcfff 0x145b9ecfd000 - 0x145b9ecfdfff 0x145b9ecfe000 - 0x145b9ecfffff 0x145b9ed00000 - 0x145b9ed10fff 0x145b9ed11000 - 0x145b9ed48fff 0x145b9ed49000 - 0x145b9ee7ffff 0x145b9ee80000 - 0x145b9ee83fff 0x145b9ee84000 - 0x145b9ee84fff 0x145b9ee85000 - 0x145b9ee85fff 0x145b9ee86000 - 0x145b9ee87fff 0x145b9ee88000 - 0x145b9ee88fff 0x145b9ee89000 - 0x145b9ee89fff 0x145b9ee8a000 - 0x145b9ee8afff 0x145b9ee8b000 - 0x145b9ee8cfff 0x145b9ee8d000 - 0x145b9ee8ffff 0x145b9ee90000 - 0x145b9ee90fff 0x145b9ee91000 - 0x145b9ee91fff 0x145b9ee92000 - 0x145b9ee92fff 0x145b9ee93000 - 0x145b9ee94fff 0x145b9ee95000 - 0x145b9ee96fff 0x145b9ee97000 - 0x145b9ee97fff 0x145b9ee98000 - 0x145b9ee98fff 0x145b9ee99000 - 0x145b9ee99fff 0x145b9ee9a000 - 0x145b9eea7fff 0x145b9eea8000 - 0x145b9eeb5fff 0x145b9eeb6000 - 0x145b9eec3fff 0x145b9eec4000 - 0x145b9eec7fff 0x145b9eec8000 - 0x145b9eec8fff 0x145b9eec9000 - 0x145b9eedefff 0x145b9eedf000 - 0x145b9ef0afff 0x145b9ef0b000 - 0x145b9ef13fff 0x145b9ef14000 - 0x145b9ef14fff 0x145b9ef15000 - 0x145b9ef17fff 0x145b9ef18000 - 0x145b9ef1dfff 0x145b9ef1e000 - 0x145b9ef20fff 0x145b9ef23000 - 0x145b9ef23fff 0x145b9ef24000 - 0x145b9ef24fff 0x145b9ef25000 - 0x145b9ef2bfff 0x145b9ef2c000 - 0x145b9ef2dfff 0x145b9ef2e000 - 0x145b9ef4efff 0x145b9ef4f000 - 0x145b9ef56fff 0x145b9ef57000 - 0x145b9ef57fff 0x145b9ef58000 - 0x145b9ef58fff 0x145b9ef59000 - 0x145b9ef59fff 0x145b9ef5a000 - 0x145b9ef5afff 0x7ffd05197000 - 0x7ffd051b7fff 0x7ffd051d4000 - 0x7ffd051d7fff 0x7ffd051d8000 - 0x7ffd051d9fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x193b000 - 0x195bfff 0x100000000000 - 0x1000000bffff 0x14720504a000 - 0x1472056eefff 0x1472056ef000 - 0x147205742fff 0x147205743000 - 0x147205745fff 0x147205746000 - 0x14720576afff 0x14720576b000 - 0x1472058bafff 0x1472058bb000 - 0x147205905fff 0x147205906000 - 0x147205908fff 0x147205909000 - 0x14720590bfff 0x14720590c000 - 0x14720590ffff 0x147205910000 - 0x147205912fff 0x147205913000 - 0x147205924fff 0x147205925000 - 0x147205928fff 0x147205929000 - 0x147205929fff 0x14720592a000 - 0x14720592afff 0x14720592b000 - 0x14720592cfff 0x14720592d000 - 0x14720593dfff 0x14720593e000 - 0x147205975fff 0x147205976000 - 0x147205aacfff 0x147205aad000 - 0x147205ab0fff 0x147205ab1000 - 0x147205ab1fff 0x147205ab2000 - 0x147205ab2fff 0x147205ab3000 - 0x147205ab4fff 0x147205ab5000 - 0x147205ab5fff 0x147205ab6000 - 0x147205ab6fff 0x147205ab7000 - 0x147205ab7fff 0x147205ab8000 - 0x147205ab9fff 0x147205aba000 - 0x147205abcfff 0x147205abd000 - 0x147205abdfff 0x147205abe000 - 0x147205abefff 0x147205abf000 - 0x147205abffff 0x147205ac0000 - 0x147205ac1fff 0x147205ac2000 - 0x147205ac3fff 0x147205ac4000 - 0x147205ac4fff 0x147205ac5000 - 0x147205ac5fff 0x147205ac6000 - 0x147205ac6fff 0x147205ac7000 - 0x147205ad4fff 0x147205ad5000 - 0x147205ae2fff 0x147205ae3000 - 0x147205af0fff 0x147205af1000 - 0x147205af4fff 0x147205af5000 - 0x147205af5fff 0x147205af6000 - 0x147205b0bfff 0x147205b0c000 - 0x147205b37fff 0x147205b38000 - 0x147205b40fff 0x147205b41000 - 0x147205b41fff 0x147205b42000 - 0x147205b44fff 0x147205b45000 - 0x147205b4afff 0x147205b4b000 - 0x147205b4dfff 0x147205b50000 - 0x147205b50fff 0x147205b51000 - 0x147205b51fff 0x147205b52000 - 0x147205b58fff 0x147205b59000 - 0x147205b5afff 0x147205b5b000 - 0x147205b7bfff 0x147205b7c000 - 0x147205b83fff 0x147205b84000 - 0x147205b84fff 0x147205b85000 - 0x147205b85fff 0x147205b86000 - 0x147205b86fff 0x147205b87000 - 0x147205b87fff 0x7fff1001c000 - 0x7fff1003cfff 0x7fff101c4000 - 0x7fff101c7fff 0x7fff101c8000 - 0x7fff101c9fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1ef8000 - 0x1f18fff 0x100000000000 - 0x1000000bffff 0x14c9fe977000 - 0x14c9ff01bfff 0x14c9ff01c000 - 0x14c9ff06ffff 0x14c9ff070000 - 0x14c9ff072fff 0x14c9ff073000 - 0x14c9ff097fff 0x14c9ff098000 - 0x14c9ff1e7fff 0x14c9ff1e8000 - 0x14c9ff232fff 0x14c9ff233000 - 0x14c9ff235fff 0x14c9ff236000 - 0x14c9ff238fff 0x14c9ff239000 - 0x14c9ff23cfff 0x14c9ff23d000 - 0x14c9ff23ffff 0x14c9ff240000 - 0x14c9ff251fff 0x14c9ff252000 - 0x14c9ff255fff 0x14c9ff256000 - 0x14c9ff256fff 0x14c9ff257000 - 0x14c9ff257fff 0x14c9ff258000 - 0x14c9ff259fff 0x14c9ff25a000 - 0x14c9ff26afff 0x14c9ff26b000 - 0x14c9ff2a2fff 0x14c9ff2a3000 - 0x14c9ff3d9fff 0x14c9ff3da000 - 0x14c9ff3ddfff 0x14c9ff3de000 - 0x14c9ff3defff 0x14c9ff3df000 - 0x14c9ff3dffff 0x14c9ff3e0000 - 0x14c9ff3e1fff 0x14c9ff3e2000 - 0x14c9ff3e2fff 0x14c9ff3e3000 - 0x14c9ff3e3fff 0x14c9ff3e4000 - 0x14c9ff3e4fff 0x14c9ff3e5000 - 0x14c9ff3e6fff 0x14c9ff3e7000 - 0x14c9ff3e9fff 0x14c9ff3ea000 - 0x14c9ff3eafff 0x14c9ff3eb000 - 0x14c9ff3ebfff 0x14c9ff3ec000 - 0x14c9ff3ecfff 0x14c9ff3ed000 - 0x14c9ff3eefff 0x14c9ff3ef000 - 0x14c9ff3f0fff 0x14c9ff3f1000 - 0x14c9ff3f1fff 0x14c9ff3f2000 - 0x14c9ff3f2fff 0x14c9ff3f3000 - 0x14c9ff3f3fff 0x14c9ff3f4000 - 0x14c9ff401fff 0x14c9ff402000 - 0x14c9ff40ffff 0x14c9ff410000 - 0x14c9ff41dfff 0x14c9ff41e000 - 0x14c9ff421fff 0x14c9ff422000 - 0x14c9ff422fff 0x14c9ff423000 - 0x14c9ff438fff 0x14c9ff439000 - 0x14c9ff464fff 0x14c9ff465000 - 0x14c9ff46dfff 0x14c9ff46e000 - 0x14c9ff46efff 0x14c9ff46f000 - 0x14c9ff471fff 0x14c9ff472000 - 0x14c9ff477fff 0x14c9ff478000 - 0x14c9ff47afff 0x14c9ff47d000 - 0x14c9ff47dfff 0x14c9ff47e000 - 0x14c9ff47efff 0x14c9ff47f000 - 0x14c9ff485fff 0x14c9ff486000 - 0x14c9ff487fff 0x14c9ff488000 - 0x14c9ff4a8fff 0x14c9ff4a9000 - 0x14c9ff4b0fff 0x14c9ff4b1000 - 0x14c9ff4b1fff 0x14c9ff4b2000 - 0x14c9ff4b2fff 0x14c9ff4b3000 - 0x14c9ff4b3fff 0x14c9ff4b4000 - 0x14c9ff4b4fff 0x7ffc3baa4000 - 0x7ffc3bac4fff 0x7ffc3bb2b000 - 0x7ffc3bb2efff 0x7ffc3bb2f000 - 0x7ffc3bb30fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xf12000 - 0xf32fff 0x100000000000 - 0x1000000bffff 0x15090d5d7000 - 0x15090dc7bfff 0x15090dc7c000 - 0x15090dccffff 0x15090dcd0000 - 0x15090dcd2fff 0x15090dcd3000 - 0x15090dcf7fff 0x15090dcf8000 - 0x15090de47fff 0x15090de48000 - 0x15090de92fff 0x15090de93000 - 0x15090de95fff 0x15090de96000 - 0x15090de98fff 0x15090de99000 - 0x15090de9cfff 0x15090de9d000 - 0x15090de9ffff 0x15090dea0000 - 0x15090deb1fff 0x15090deb2000 - 0x15090deb5fff 0x15090deb6000 - 0x15090deb6fff 0x15090deb7000 - 0x15090deb7fff 0x15090deb8000 - 0x15090deb9fff 0x15090deba000 - 0x15090decafff 0x15090decb000 - 0x15090df02fff 0x15090df03000 - 0x15090e039fff 0x15090e03a000 - 0x15090e03dfff 0x15090e03e000 - 0x15090e03efff 0x15090e03f000 - 0x15090e03ffff 0x15090e040000 - 0x15090e041fff 0x15090e042000 - 0x15090e042fff 0x15090e043000 - 0x15090e043fff 0x15090e044000 - 0x15090e044fff 0x15090e045000 - 0x15090e046fff 0x15090e047000 - 0x15090e049fff 0x15090e04a000 - 0x15090e04afff 0x15090e04b000 - 0x15090e04bfff 0x15090e04c000 - 0x15090e04cfff 0x15090e04d000 - 0x15090e04efff 0x15090e04f000 - 0x15090e050fff 0x15090e051000 - 0x15090e051fff 0x15090e052000 - 0x15090e052fff 0x15090e053000 - 0x15090e053fff 0x15090e054000 - 0x15090e061fff 0x15090e062000 - 0x15090e06ffff 0x15090e070000 - 0x15090e07dfff 0x15090e07e000 - 0x15090e081fff 0x15090e082000 - 0x15090e082fff 0x15090e083000 - 0x15090e098fff 0x15090e099000 - 0x15090e0c4fff 0x15090e0c5000 - 0x15090e0cdfff 0x15090e0ce000 - 0x15090e0cefff 0x15090e0cf000 - 0x15090e0d1fff 0x15090e0d2000 - 0x15090e0d7fff 0x15090e0d8000 - 0x15090e0dafff 0x15090e0dd000 - 0x15090e0ddfff 0x15090e0de000 - 0x15090e0defff 0x15090e0df000 - 0x15090e0e5fff 0x15090e0e6000 - 0x15090e0e7fff 0x15090e0e8000 - 0x15090e108fff 0x15090e109000 - 0x15090e110fff 0x15090e111000 - 0x15090e111fff 0x15090e112000 - 0x15090e112fff 0x15090e113000 - 0x15090e113fff 0x15090e114000 - 0x15090e114fff 0x7ffdc5949000 - 0x7ffdc5969fff 0x7ffdc59bc000 - 0x7ffdc59bffff 0x7ffdc59c0000 - 0x7ffdc59c1fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1f69000 - 0x1f89fff 0x100000000000 - 0x1000000bffff 0x152664a33000 - 0x1526650d7fff 0x1526650d8000 - 0x15266512bfff 0x15266512c000 - 0x15266512efff 0x15266512f000 - 0x152665153fff 0x152665154000 - 0x1526652a3fff 0x1526652a4000 - 0x1526652eefff 0x1526652ef000 - 0x1526652f1fff 0x1526652f2000 - 0x1526652f4fff 0x1526652f5000 - 0x1526652f8fff 0x1526652f9000 - 0x1526652fbfff 0x1526652fc000 - 0x15266530dfff 0x15266530e000 - 0x152665311fff 0x152665312000 - 0x152665312fff 0x152665313000 - 0x152665313fff 0x152665314000 - 0x152665315fff 0x152665316000 - 0x152665326fff 0x152665327000 - 0x15266535efff 0x15266535f000 - 0x152665495fff 0x152665496000 - 0x152665499fff 0x15266549a000 - 0x15266549afff 0x15266549b000 - 0x15266549bfff 0x15266549c000 - 0x15266549dfff 0x15266549e000 - 0x15266549efff 0x15266549f000 - 0x15266549ffff 0x1526654a0000 - 0x1526654a0fff 0x1526654a1000 - 0x1526654a2fff 0x1526654a3000 - 0x1526654a5fff 0x1526654a6000 - 0x1526654a6fff 0x1526654a7000 - 0x1526654a7fff 0x1526654a8000 - 0x1526654a8fff 0x1526654a9000 - 0x1526654aafff 0x1526654ab000 - 0x1526654acfff 0x1526654ad000 - 0x1526654adfff 0x1526654ae000 - 0x1526654aefff 0x1526654af000 - 0x1526654affff 0x1526654b0000 - 0x1526654bdfff 0x1526654be000 - 0x1526654cbfff 0x1526654cc000 - 0x1526654d9fff 0x1526654da000 - 0x1526654ddfff 0x1526654de000 - 0x1526654defff 0x1526654df000 - 0x1526654f4fff 0x1526654f5000 - 0x152665520fff 0x152665521000 - 0x152665529fff 0x15266552a000 - 0x15266552afff 0x15266552b000 - 0x15266552dfff 0x15266552e000 - 0x152665533fff 0x152665534000 - 0x152665536fff 0x152665539000 - 0x152665539fff 0x15266553a000 - 0x15266553afff 0x15266553b000 - 0x152665541fff 0x152665542000 - 0x152665543fff 0x152665544000 - 0x152665564fff 0x152665565000 - 0x15266556cfff 0x15266556d000 - 0x15266556dfff 0x15266556e000 - 0x15266556efff 0x15266556f000 - 0x15266556ffff 0x152665570000 - 0x152665570fff 0x7ffe88d8c000 - 0x7ffe88dacfff 0x7ffe88de4000 - 0x7ffe88de7fff 0x7ffe88de8000 - 0x7ffe88de9fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x19f9000 - 0x1a19fff 0x100000000000 - 0x1000000bffff 0x14ba9f2a4000 - 0x14ba9f948fff 0x14ba9f949000 - 0x14ba9f99cfff 0x14ba9f99d000 - 0x14ba9f99ffff 0x14ba9f9a0000 - 0x14ba9f9c4fff 0x14ba9f9c5000 - 0x14ba9fb14fff 0x14ba9fb15000 - 0x14ba9fb5ffff 0x14ba9fb60000 - 0x14ba9fb62fff 0x14ba9fb63000 - 0x14ba9fb65fff 0x14ba9fb66000 - 0x14ba9fb69fff 0x14ba9fb6a000 - 0x14ba9fb6cfff 0x14ba9fb6d000 - 0x14ba9fb7efff 0x14ba9fb7f000 - 0x14ba9fb82fff 0x14ba9fb83000 - 0x14ba9fb83fff 0x14ba9fb84000 - 0x14ba9fb84fff 0x14ba9fb85000 - 0x14ba9fb86fff 0x14ba9fb87000 - 0x14ba9fb97fff 0x14ba9fb98000 - 0x14ba9fbcffff 0x14ba9fbd0000 - 0x14ba9fd06fff 0x14ba9fd07000 - 0x14ba9fd0afff 0x14ba9fd0b000 - 0x14ba9fd0bfff 0x14ba9fd0c000 - 0x14ba9fd0cfff 0x14ba9fd0d000 - 0x14ba9fd0efff 0x14ba9fd0f000 - 0x14ba9fd0ffff 0x14ba9fd10000 - 0x14ba9fd10fff 0x14ba9fd11000 - 0x14ba9fd11fff 0x14ba9fd12000 - 0x14ba9fd13fff 0x14ba9fd14000 - 0x14ba9fd16fff 0x14ba9fd17000 - 0x14ba9fd17fff 0x14ba9fd18000 - 0x14ba9fd18fff 0x14ba9fd19000 - 0x14ba9fd19fff 0x14ba9fd1a000 - 0x14ba9fd1bfff 0x14ba9fd1c000 - 0x14ba9fd1dfff 0x14ba9fd1e000 - 0x14ba9fd1efff 0x14ba9fd1f000 - 0x14ba9fd1ffff 0x14ba9fd20000 - 0x14ba9fd20fff 0x14ba9fd21000 - 0x14ba9fd2efff 0x14ba9fd2f000 - 0x14ba9fd3cfff 0x14ba9fd3d000 - 0x14ba9fd4afff 0x14ba9fd4b000 - 0x14ba9fd4efff 0x14ba9fd4f000 - 0x14ba9fd4ffff 0x14ba9fd50000 - 0x14ba9fd65fff 0x14ba9fd66000 - 0x14ba9fd91fff 0x14ba9fd92000 - 0x14ba9fd9afff 0x14ba9fd9b000 - 0x14ba9fd9bfff 0x14ba9fd9c000 - 0x14ba9fd9efff 0x14ba9fd9f000 - 0x14ba9fda4fff 0x14ba9fda5000 - 0x14ba9fda7fff 0x14ba9fdaa000 - 0x14ba9fdaafff 0x14ba9fdab000 - 0x14ba9fdabfff 0x14ba9fdac000 - 0x14ba9fdb2fff 0x14ba9fdb3000 - 0x14ba9fdb4fff 0x14ba9fdb5000 - 0x14ba9fdd5fff 0x14ba9fdd6000 - 0x14ba9fdddfff 0x14ba9fdde000 - 0x14ba9fddefff 0x14ba9fddf000 - 0x14ba9fddffff 0x14ba9fde0000 - 0x14ba9fde0fff 0x14ba9fde1000 - 0x14ba9fde1fff 0x7ffe782e4000 - 0x7ffe78304fff 0x7ffe7834a000 - 0x7ffe7834dfff 0x7ffe7834e000 - 0x7ffe7834ffff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xc93000 - 0xcb3fff 0x100000000000 - 0x1000000bffff 0x154919205000 - 0x1549198a9fff 0x1549198aa000 - 0x1549198fdfff 0x1549198fe000 - 0x154919900fff 0x154919901000 - 0x154919925fff 0x154919926000 - 0x154919a75fff 0x154919a76000 - 0x154919ac0fff 0x154919ac1000 - 0x154919ac3fff 0x154919ac4000 - 0x154919ac6fff 0x154919ac7000 - 0x154919acafff 0x154919acb000 - 0x154919acdfff 0x154919ace000 - 0x154919adffff 0x154919ae0000 - 0x154919ae3fff 0x154919ae4000 - 0x154919ae4fff 0x154919ae5000 - 0x154919ae5fff 0x154919ae6000 - 0x154919ae7fff 0x154919ae8000 - 0x154919af8fff 0x154919af9000 - 0x154919b30fff 0x154919b31000 - 0x154919c67fff 0x154919c68000 - 0x154919c6bfff 0x154919c6c000 - 0x154919c6cfff 0x154919c6d000 - 0x154919c6dfff 0x154919c6e000 - 0x154919c6ffff 0x154919c70000 - 0x154919c70fff 0x154919c71000 - 0x154919c71fff 0x154919c72000 - 0x154919c72fff 0x154919c73000 - 0x154919c74fff 0x154919c75000 - 0x154919c77fff 0x154919c78000 - 0x154919c78fff 0x154919c79000 - 0x154919c79fff 0x154919c7a000 - 0x154919c7afff 0x154919c7b000 - 0x154919c7cfff 0x154919c7d000 - 0x154919c7efff 0x154919c7f000 - 0x154919c7ffff 0x154919c80000 - 0x154919c80fff 0x154919c81000 - 0x154919c81fff 0x154919c82000 - 0x154919c8ffff 0x154919c90000 - 0x154919c9dfff 0x154919c9e000 - 0x154919cabfff 0x154919cac000 - 0x154919caffff 0x154919cb0000 - 0x154919cb0fff 0x154919cb1000 - 0x154919cc6fff 0x154919cc7000 - 0x154919cf2fff 0x154919cf3000 - 0x154919cfbfff 0x154919cfc000 - 0x154919cfcfff 0x154919cfd000 - 0x154919cfffff 0x154919d00000 - 0x154919d05fff 0x154919d06000 - 0x154919d08fff 0x154919d0b000 - 0x154919d0bfff 0x154919d0c000 - 0x154919d0cfff 0x154919d0d000 - 0x154919d13fff 0x154919d14000 - 0x154919d15fff 0x154919d16000 - 0x154919d36fff 0x154919d37000 - 0x154919d3efff 0x154919d3f000 - 0x154919d3ffff 0x154919d40000 - 0x154919d40fff 0x154919d41000 - 0x154919d41fff 0x154919d42000 - 0x154919d42fff 0x7ffd913e8000 - 0x7ffd91408fff 0x7ffd91554000 - 0x7ffd91557fff 0x7ffd91558000 - 0x7ffd91559fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x86b000 - 0x88bfff 0x100000000000 - 0x1000000bffff 0x146a1a6f8000 - 0x146a1ad9cfff 0x146a1ad9d000 - 0x146a1adf0fff 0x146a1adf1000 - 0x146a1adf3fff 0x146a1adf4000 - 0x146a1ae18fff 0x146a1ae19000 - 0x146a1af68fff 0x146a1af69000 - 0x146a1afb3fff 0x146a1afb4000 - 0x146a1afb6fff 0x146a1afb7000 - 0x146a1afb9fff 0x146a1afba000 - 0x146a1afbdfff 0x146a1afbe000 - 0x146a1afc0fff 0x146a1afc1000 - 0x146a1afd2fff 0x146a1afd3000 - 0x146a1afd6fff 0x146a1afd7000 - 0x146a1afd7fff 0x146a1afd8000 - 0x146a1afd8fff 0x146a1afd9000 - 0x146a1afdafff 0x146a1afdb000 - 0x146a1afebfff 0x146a1afec000 - 0x146a1b023fff 0x146a1b024000 - 0x146a1b15afff 0x146a1b15b000 - 0x146a1b15efff 0x146a1b15f000 - 0x146a1b15ffff 0x146a1b160000 - 0x146a1b160fff 0x146a1b161000 - 0x146a1b162fff 0x146a1b163000 - 0x146a1b163fff 0x146a1b164000 - 0x146a1b164fff 0x146a1b165000 - 0x146a1b165fff 0x146a1b166000 - 0x146a1b167fff 0x146a1b168000 - 0x146a1b16afff 0x146a1b16b000 - 0x146a1b16bfff 0x146a1b16c000 - 0x146a1b16cfff 0x146a1b16d000 - 0x146a1b16dfff 0x146a1b16e000 - 0x146a1b16ffff 0x146a1b170000 - 0x146a1b171fff 0x146a1b172000 - 0x146a1b172fff 0x146a1b173000 - 0x146a1b173fff 0x146a1b174000 - 0x146a1b174fff 0x146a1b175000 - 0x146a1b182fff 0x146a1b183000 - 0x146a1b190fff 0x146a1b191000 - 0x146a1b19efff 0x146a1b19f000 - 0x146a1b1a2fff 0x146a1b1a3000 - 0x146a1b1a3fff 0x146a1b1a4000 - 0x146a1b1b9fff 0x146a1b1ba000 - 0x146a1b1e5fff 0x146a1b1e6000 - 0x146a1b1eefff 0x146a1b1ef000 - 0x146a1b1effff 0x146a1b1f0000 - 0x146a1b1f2fff 0x146a1b1f3000 - 0x146a1b1f8fff 0x146a1b1f9000 - 0x146a1b1fbfff 0x146a1b1fe000 - 0x146a1b1fefff 0x146a1b1ff000 - 0x146a1b1fffff 0x146a1b200000 - 0x146a1b206fff 0x146a1b207000 - 0x146a1b208fff 0x146a1b209000 - 0x146a1b229fff 0x146a1b22a000 - 0x146a1b231fff 0x146a1b232000 - 0x146a1b232fff 0x146a1b233000 - 0x146a1b233fff 0x146a1b234000 - 0x146a1b234fff 0x146a1b235000 - 0x146a1b235fff 0x7fff1bff8000 - 0x7fff1c018fff 0x7fff1c0ed000 - 0x7fff1c0f0fff 0x7fff1c0f1000 - 0x7fff1c0f2fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x19bf000 - 0x19dffff 0x100000000000 - 0x1000000bffff 0x147d126fa000 - 0x147d12d9efff 0x147d12d9f000 - 0x147d12df2fff 0x147d12df3000 - 0x147d12df5fff 0x147d12df6000 - 0x147d12e1afff 0x147d12e1b000 - 0x147d12f6afff 0x147d12f6b000 - 0x147d12fb5fff 0x147d12fb6000 - 0x147d12fb8fff 0x147d12fb9000 - 0x147d12fbbfff 0x147d12fbc000 - 0x147d12fbffff 0x147d12fc0000 - 0x147d12fc2fff 0x147d12fc3000 - 0x147d12fd4fff 0x147d12fd5000 - 0x147d12fd8fff 0x147d12fd9000 - 0x147d12fd9fff 0x147d12fda000 - 0x147d12fdafff 0x147d12fdb000 - 0x147d12fdcfff 0x147d12fdd000 - 0x147d12fedfff 0x147d12fee000 - 0x147d13025fff 0x147d13026000 - 0x147d1315cfff 0x147d1315d000 - 0x147d13160fff 0x147d13161000 - 0x147d13161fff 0x147d13162000 - 0x147d13162fff 0x147d13163000 - 0x147d13164fff 0x147d13165000 - 0x147d13165fff 0x147d13166000 - 0x147d13166fff 0x147d13167000 - 0x147d13167fff 0x147d13168000 - 0x147d13169fff 0x147d1316a000 - 0x147d1316cfff 0x147d1316d000 - 0x147d1316dfff 0x147d1316e000 - 0x147d1316efff 0x147d1316f000 - 0x147d1316ffff 0x147d13170000 - 0x147d13171fff 0x147d13172000 - 0x147d13173fff 0x147d13174000 - 0x147d13174fff 0x147d13175000 - 0x147d13175fff 0x147d13176000 - 0x147d13176fff 0x147d13177000 - 0x147d13184fff 0x147d13185000 - 0x147d13192fff 0x147d13193000 - 0x147d131a0fff 0x147d131a1000 - 0x147d131a4fff 0x147d131a5000 - 0x147d131a5fff 0x147d131a6000 - 0x147d131bbfff 0x147d131bc000 - 0x147d131e7fff 0x147d131e8000 - 0x147d131f0fff 0x147d131f1000 - 0x147d131f1fff 0x147d131f2000 - 0x147d131f4fff 0x147d131f5000 - 0x147d131fafff 0x147d131fb000 - 0x147d131fdfff 0x147d13200000 - 0x147d13200fff 0x147d13201000 - 0x147d13201fff 0x147d13202000 - 0x147d13208fff 0x147d13209000 - 0x147d1320afff 0x147d1320b000 - 0x147d1322bfff 0x147d1322c000 - 0x147d13233fff 0x147d13234000 - 0x147d13234fff 0x147d13235000 - 0x147d13235fff 0x147d13236000 - 0x147d13236fff 0x147d13237000 - 0x147d13237fff 0x7ffe628d5000 - 0x7ffe628f5fff 0x7ffe629af000 - 0x7ffe629b2fff 0x7ffe629b3000 - 0x7ffe629b4fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1fec000 - 0x200cfff 0x100000000000 - 0x1000000bffff 0x14f13a29d000 - 0x14f13a941fff 0x14f13a942000 - 0x14f13a995fff 0x14f13a996000 - 0x14f13a998fff 0x14f13a999000 - 0x14f13a9bdfff 0x14f13a9be000 - 0x14f13ab0dfff 0x14f13ab0e000 - 0x14f13ab58fff 0x14f13ab59000 - 0x14f13ab5bfff 0x14f13ab5c000 - 0x14f13ab5efff 0x14f13ab5f000 - 0x14f13ab62fff 0x14f13ab63000 - 0x14f13ab65fff 0x14f13ab66000 - 0x14f13ab77fff 0x14f13ab78000 - 0x14f13ab7bfff 0x14f13ab7c000 - 0x14f13ab7cfff 0x14f13ab7d000 - 0x14f13ab7dfff 0x14f13ab7e000 - 0x14f13ab7ffff 0x14f13ab80000 - 0x14f13ab90fff 0x14f13ab91000 - 0x14f13abc8fff 0x14f13abc9000 - 0x14f13acfffff 0x14f13ad00000 - 0x14f13ad03fff 0x14f13ad04000 - 0x14f13ad04fff 0x14f13ad05000 - 0x14f13ad05fff 0x14f13ad06000 - 0x14f13ad07fff 0x14f13ad08000 - 0x14f13ad08fff 0x14f13ad09000 - 0x14f13ad09fff 0x14f13ad0a000 - 0x14f13ad0afff 0x14f13ad0b000 - 0x14f13ad0cfff 0x14f13ad0d000 - 0x14f13ad0ffff 0x14f13ad10000 - 0x14f13ad10fff 0x14f13ad11000 - 0x14f13ad11fff 0x14f13ad12000 - 0x14f13ad12fff 0x14f13ad13000 - 0x14f13ad14fff 0x14f13ad15000 - 0x14f13ad16fff 0x14f13ad17000 - 0x14f13ad17fff 0x14f13ad18000 - 0x14f13ad18fff 0x14f13ad19000 - 0x14f13ad19fff 0x14f13ad1a000 - 0x14f13ad27fff 0x14f13ad28000 - 0x14f13ad35fff 0x14f13ad36000 - 0x14f13ad43fff 0x14f13ad44000 - 0x14f13ad47fff 0x14f13ad48000 - 0x14f13ad48fff 0x14f13ad49000 - 0x14f13ad5efff 0x14f13ad5f000 - 0x14f13ad8afff 0x14f13ad8b000 - 0x14f13ad93fff 0x14f13ad94000 - 0x14f13ad94fff 0x14f13ad95000 - 0x14f13ad97fff 0x14f13ad98000 - 0x14f13ad9dfff 0x14f13ad9e000 - 0x14f13ada0fff 0x14f13ada3000 - 0x14f13ada3fff 0x14f13ada4000 - 0x14f13ada4fff 0x14f13ada5000 - 0x14f13adabfff 0x14f13adac000 - 0x14f13adadfff 0x14f13adae000 - 0x14f13adcefff 0x14f13adcf000 - 0x14f13add6fff 0x14f13add7000 - 0x14f13add7fff 0x14f13add8000 - 0x14f13add8fff 0x14f13add9000 - 0x14f13add9fff 0x14f13adda000 - 0x14f13addafff 0x7ffdca604000 - 0x7ffdca624fff 0x7ffdca7e9000 - 0x7ffdca7ecfff 0x7ffdca7ed000 - 0x7ffdca7eefff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1cac000 - 0x1cccfff 0x100000000000 - 0x1000000bffff 0x14f59054c000 - 0x14f590bf0fff 0x14f590bf1000 - 0x14f590c44fff 0x14f590c45000 - 0x14f590c47fff 0x14f590c48000 - 0x14f590c6cfff 0x14f590c6d000 - 0x14f590dbcfff 0x14f590dbd000 - 0x14f590e07fff 0x14f590e08000 - 0x14f590e0afff 0x14f590e0b000 - 0x14f590e0dfff 0x14f590e0e000 - 0x14f590e11fff 0x14f590e12000 - 0x14f590e14fff 0x14f590e15000 - 0x14f590e26fff 0x14f590e27000 - 0x14f590e2afff 0x14f590e2b000 - 0x14f590e2bfff 0x14f590e2c000 - 0x14f590e2cfff 0x14f590e2d000 - 0x14f590e2efff 0x14f590e2f000 - 0x14f590e3ffff 0x14f590e40000 - 0x14f590e77fff 0x14f590e78000 - 0x14f590faefff 0x14f590faf000 - 0x14f590fb2fff 0x14f590fb3000 - 0x14f590fb3fff 0x14f590fb4000 - 0x14f590fb4fff 0x14f590fb5000 - 0x14f590fb6fff 0x14f590fb7000 - 0x14f590fb7fff 0x14f590fb8000 - 0x14f590fb8fff 0x14f590fb9000 - 0x14f590fb9fff 0x14f590fba000 - 0x14f590fbbfff 0x14f590fbc000 - 0x14f590fbefff 0x14f590fbf000 - 0x14f590fbffff 0x14f590fc0000 - 0x14f590fc0fff 0x14f590fc1000 - 0x14f590fc1fff 0x14f590fc2000 - 0x14f590fc3fff 0x14f590fc4000 - 0x14f590fc5fff 0x14f590fc6000 - 0x14f590fc6fff 0x14f590fc7000 - 0x14f590fc7fff 0x14f590fc8000 - 0x14f590fc8fff 0x14f590fc9000 - 0x14f590fd6fff 0x14f590fd7000 - 0x14f590fe4fff 0x14f590fe5000 - 0x14f590ff2fff 0x14f590ff3000 - 0x14f590ff6fff 0x14f590ff7000 - 0x14f590ff7fff 0x14f590ff8000 - 0x14f59100dfff 0x14f59100e000 - 0x14f591039fff 0x14f59103a000 - 0x14f591042fff 0x14f591043000 - 0x14f591043fff 0x14f591044000 - 0x14f591046fff 0x14f591047000 - 0x14f59104cfff 0x14f59104d000 - 0x14f59104ffff 0x14f591052000 - 0x14f591052fff 0x14f591053000 - 0x14f591053fff 0x14f591054000 - 0x14f59105afff 0x14f59105b000 - 0x14f59105cfff 0x14f59105d000 - 0x14f59107dfff 0x14f59107e000 - 0x14f591085fff 0x14f591086000 - 0x14f591086fff 0x14f591087000 - 0x14f591087fff 0x14f591088000 - 0x14f591088fff 0x14f591089000 - 0x14f591089fff 0x7ffe873fc000 - 0x7ffe8741cfff 0x7ffe874ac000 - 0x7ffe874affff 0x7ffe874b0000 - 0x7ffe874b1fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x25b4000 - 0x25d4fff 0x100000000000 - 0x1000000bffff 0x14db799e9000 - 0x14db7a08dfff 0x14db7a08e000 - 0x14db7a0e1fff 0x14db7a0e2000 - 0x14db7a0e4fff 0x14db7a0e5000 - 0x14db7a109fff 0x14db7a10a000 - 0x14db7a259fff 0x14db7a25a000 - 0x14db7a2a4fff 0x14db7a2a5000 - 0x14db7a2a7fff 0x14db7a2a8000 - 0x14db7a2aafff 0x14db7a2ab000 - 0x14db7a2aefff 0x14db7a2af000 - 0x14db7a2b1fff 0x14db7a2b2000 - 0x14db7a2c3fff 0x14db7a2c4000 - 0x14db7a2c7fff 0x14db7a2c8000 - 0x14db7a2c8fff 0x14db7a2c9000 - 0x14db7a2c9fff 0x14db7a2ca000 - 0x14db7a2cbfff 0x14db7a2cc000 - 0x14db7a2dcfff 0x14db7a2dd000 - 0x14db7a314fff 0x14db7a315000 - 0x14db7a44bfff 0x14db7a44c000 - 0x14db7a44ffff 0x14db7a450000 - 0x14db7a450fff 0x14db7a451000 - 0x14db7a451fff 0x14db7a452000 - 0x14db7a453fff 0x14db7a454000 - 0x14db7a454fff 0x14db7a455000 - 0x14db7a455fff 0x14db7a456000 - 0x14db7a456fff 0x14db7a457000 - 0x14db7a458fff 0x14db7a459000 - 0x14db7a45bfff 0x14db7a45c000 - 0x14db7a45cfff 0x14db7a45d000 - 0x14db7a45dfff 0x14db7a45e000 - 0x14db7a45efff 0x14db7a45f000 - 0x14db7a460fff 0x14db7a461000 - 0x14db7a462fff 0x14db7a463000 - 0x14db7a463fff 0x14db7a464000 - 0x14db7a464fff 0x14db7a465000 - 0x14db7a465fff 0x14db7a466000 - 0x14db7a473fff 0x14db7a474000 - 0x14db7a481fff 0x14db7a482000 - 0x14db7a48ffff 0x14db7a490000 - 0x14db7a493fff 0x14db7a494000 - 0x14db7a494fff 0x14db7a495000 - 0x14db7a4aafff 0x14db7a4ab000 - 0x14db7a4d6fff 0x14db7a4d7000 - 0x14db7a4dffff 0x14db7a4e0000 - 0x14db7a4e0fff 0x14db7a4e1000 - 0x14db7a4e3fff 0x14db7a4e4000 - 0x14db7a4e9fff 0x14db7a4ea000 - 0x14db7a4ecfff 0x14db7a4ef000 - 0x14db7a4effff 0x14db7a4f0000 - 0x14db7a4f0fff 0x14db7a4f1000 - 0x14db7a4f7fff 0x14db7a4f8000 - 0x14db7a4f9fff 0x14db7a4fa000 - 0x14db7a51afff 0x14db7a51b000 - 0x14db7a522fff 0x14db7a523000 - 0x14db7a523fff 0x14db7a524000 - 0x14db7a524fff 0x14db7a525000 - 0x14db7a525fff 0x14db7a526000 - 0x14db7a526fff 0x7ffd2b757000 - 0x7ffd2b777fff 0x7ffd2b798000 - 0x7ffd2b79bfff 0x7ffd2b79c000 - 0x7ffd2b79dfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1f8c000 - 0x1facfff 0x100000000000 - 0x1000000bffff 0x1474d58bf000 - 0x1474d5f63fff 0x1474d5f64000 - 0x1474d5fb7fff 0x1474d5fb8000 - 0x1474d5fbafff 0x1474d5fbb000 - 0x1474d5fdffff 0x1474d5fe0000 - 0x1474d612ffff 0x1474d6130000 - 0x1474d617afff 0x1474d617b000 - 0x1474d617dfff 0x1474d617e000 - 0x1474d6180fff 0x1474d6181000 - 0x1474d6184fff 0x1474d6185000 - 0x1474d6187fff 0x1474d6188000 - 0x1474d6199fff 0x1474d619a000 - 0x1474d619dfff 0x1474d619e000 - 0x1474d619efff 0x1474d619f000 - 0x1474d619ffff 0x1474d61a0000 - 0x1474d61a1fff 0x1474d61a2000 - 0x1474d61b2fff 0x1474d61b3000 - 0x1474d61eafff 0x1474d61eb000 - 0x1474d6321fff 0x1474d6322000 - 0x1474d6325fff 0x1474d6326000 - 0x1474d6326fff 0x1474d6327000 - 0x1474d6327fff 0x1474d6328000 - 0x1474d6329fff 0x1474d632a000 - 0x1474d632afff 0x1474d632b000 - 0x1474d632bfff 0x1474d632c000 - 0x1474d632cfff 0x1474d632d000 - 0x1474d632efff 0x1474d632f000 - 0x1474d6331fff 0x1474d6332000 - 0x1474d6332fff 0x1474d6333000 - 0x1474d6333fff 0x1474d6334000 - 0x1474d6334fff 0x1474d6335000 - 0x1474d6336fff 0x1474d6337000 - 0x1474d6338fff 0x1474d6339000 - 0x1474d6339fff 0x1474d633a000 - 0x1474d633afff 0x1474d633b000 - 0x1474d633bfff 0x1474d633c000 - 0x1474d6349fff 0x1474d634a000 - 0x1474d6357fff 0x1474d6358000 - 0x1474d6365fff 0x1474d6366000 - 0x1474d6369fff 0x1474d636a000 - 0x1474d636afff 0x1474d636b000 - 0x1474d6380fff 0x1474d6381000 - 0x1474d63acfff 0x1474d63ad000 - 0x1474d63b5fff 0x1474d63b6000 - 0x1474d63b6fff 0x1474d63b7000 - 0x1474d63b9fff 0x1474d63ba000 - 0x1474d63bffff 0x1474d63c0000 - 0x1474d63c2fff 0x1474d63c5000 - 0x1474d63c5fff 0x1474d63c6000 - 0x1474d63c6fff 0x1474d63c7000 - 0x1474d63cdfff 0x1474d63ce000 - 0x1474d63cffff 0x1474d63d0000 - 0x1474d63f0fff 0x1474d63f1000 - 0x1474d63f8fff 0x1474d63f9000 - 0x1474d63f9fff 0x1474d63fa000 - 0x1474d63fafff 0x1474d63fb000 - 0x1474d63fbfff 0x1474d63fc000 - 0x1474d63fcfff 0x7fff41c45000 - 0x7fff41c65fff 0x7fff41dd1000 - 0x7fff41dd4fff 0x7fff41dd5000 - 0x7fff41dd6fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xbfe000 - 0xc1efff 0x100000000000 - 0x1000000bffff 0x145c20976000 - 0x145c2101afff 0x145c2101b000 - 0x145c2106efff 0x145c2106f000 - 0x145c21071fff 0x145c21072000 - 0x145c21096fff 0x145c21097000 - 0x145c211e6fff 0x145c211e7000 - 0x145c21231fff 0x145c21232000 - 0x145c21234fff 0x145c21235000 - 0x145c21237fff 0x145c21238000 - 0x145c2123bfff 0x145c2123c000 - 0x145c2123efff 0x145c2123f000 - 0x145c21250fff 0x145c21251000 - 0x145c21254fff 0x145c21255000 - 0x145c21255fff 0x145c21256000 - 0x145c21256fff 0x145c21257000 - 0x145c21258fff 0x145c21259000 - 0x145c21269fff 0x145c2126a000 - 0x145c212a1fff 0x145c212a2000 - 0x145c213d8fff 0x145c213d9000 - 0x145c213dcfff 0x145c213dd000 - 0x145c213ddfff 0x145c213de000 - 0x145c213defff 0x145c213df000 - 0x145c213e0fff 0x145c213e1000 - 0x145c213e1fff 0x145c213e2000 - 0x145c213e2fff 0x145c213e3000 - 0x145c213e3fff 0x145c213e4000 - 0x145c213e5fff 0x145c213e6000 - 0x145c213e8fff 0x145c213e9000 - 0x145c213e9fff 0x145c213ea000 - 0x145c213eafff 0x145c213eb000 - 0x145c213ebfff 0x145c213ec000 - 0x145c213edfff 0x145c213ee000 - 0x145c213effff 0x145c213f0000 - 0x145c213f0fff 0x145c213f1000 - 0x145c213f1fff 0x145c213f2000 - 0x145c213f2fff 0x145c213f3000 - 0x145c21400fff 0x145c21401000 - 0x145c2140efff 0x145c2140f000 - 0x145c2141cfff 0x145c2141d000 - 0x145c21420fff 0x145c21421000 - 0x145c21421fff 0x145c21422000 - 0x145c21437fff 0x145c21438000 - 0x145c21463fff 0x145c21464000 - 0x145c2146cfff 0x145c2146d000 - 0x145c2146dfff 0x145c2146e000 - 0x145c21470fff 0x145c21471000 - 0x145c21476fff 0x145c21477000 - 0x145c21479fff 0x145c2147c000 - 0x145c2147cfff 0x145c2147d000 - 0x145c2147dfff 0x145c2147e000 - 0x145c21484fff 0x145c21485000 - 0x145c21486fff 0x145c21487000 - 0x145c214a7fff 0x145c214a8000 - 0x145c214affff 0x145c214b0000 - 0x145c214b0fff 0x145c214b1000 - 0x145c214b1fff 0x145c214b2000 - 0x145c214b2fff 0x145c214b3000 - 0x145c214b3fff 0x7fff7864f000 - 0x7fff7866ffff 0x7fff787f2000 - 0x7fff787f5fff 0x7fff787f6000 - 0x7fff787f7fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1a4d000 - 0x1a6dfff 0x100000000000 - 0x1000000bffff 0x1481207fa000 - 0x148120e9efff 0x148120e9f000 - 0x148120ef2fff 0x148120ef3000 - 0x148120ef5fff 0x148120ef6000 - 0x148120f1afff 0x148120f1b000 - 0x14812106afff 0x14812106b000 - 0x1481210b5fff 0x1481210b6000 - 0x1481210b8fff 0x1481210b9000 - 0x1481210bbfff 0x1481210bc000 - 0x1481210bffff 0x1481210c0000 - 0x1481210c2fff 0x1481210c3000 - 0x1481210d4fff 0x1481210d5000 - 0x1481210d8fff 0x1481210d9000 - 0x1481210d9fff 0x1481210da000 - 0x1481210dafff 0x1481210db000 - 0x1481210dcfff 0x1481210dd000 - 0x1481210edfff 0x1481210ee000 - 0x148121125fff 0x148121126000 - 0x14812125cfff 0x14812125d000 - 0x148121260fff 0x148121261000 - 0x148121261fff 0x148121262000 - 0x148121262fff 0x148121263000 - 0x148121264fff 0x148121265000 - 0x148121265fff 0x148121266000 - 0x148121266fff 0x148121267000 - 0x148121267fff 0x148121268000 - 0x148121269fff 0x14812126a000 - 0x14812126cfff 0x14812126d000 - 0x14812126dfff 0x14812126e000 - 0x14812126efff 0x14812126f000 - 0x14812126ffff 0x148121270000 - 0x148121271fff 0x148121272000 - 0x148121273fff 0x148121274000 - 0x148121274fff 0x148121275000 - 0x148121275fff 0x148121276000 - 0x148121276fff 0x148121277000 - 0x148121284fff 0x148121285000 - 0x148121292fff 0x148121293000 - 0x1481212a0fff 0x1481212a1000 - 0x1481212a4fff 0x1481212a5000 - 0x1481212a5fff 0x1481212a6000 - 0x1481212bbfff 0x1481212bc000 - 0x1481212e7fff 0x1481212e8000 - 0x1481212f0fff 0x1481212f1000 - 0x1481212f1fff 0x1481212f2000 - 0x1481212f4fff 0x1481212f5000 - 0x1481212fafff 0x1481212fb000 - 0x1481212fdfff 0x148121300000 - 0x148121300fff 0x148121301000 - 0x148121301fff 0x148121302000 - 0x148121308fff 0x148121309000 - 0x14812130afff 0x14812130b000 - 0x14812132bfff 0x14812132c000 - 0x148121333fff 0x148121334000 - 0x148121334fff 0x148121335000 - 0x148121335fff 0x148121336000 - 0x148121336fff 0x148121337000 - 0x148121337fff 0x7ffe2bf4b000 - 0x7ffe2bf6bfff 0x7ffe2bf89000 - 0x7ffe2bf8cfff 0x7ffe2bf8d000 - 0x7ffe2bf8efff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1e4a000 - 0x1e6afff 0x100000000000 - 0x1000000bffff 0x148e700cc000 - 0x148e70770fff 0x148e70771000 - 0x148e707c4fff 0x148e707c5000 - 0x148e707c7fff 0x148e707c8000 - 0x148e707ecfff 0x148e707ed000 - 0x148e7093cfff 0x148e7093d000 - 0x148e70987fff 0x148e70988000 - 0x148e7098afff 0x148e7098b000 - 0x148e7098dfff 0x148e7098e000 - 0x148e70991fff 0x148e70992000 - 0x148e70994fff 0x148e70995000 - 0x148e709a6fff 0x148e709a7000 - 0x148e709aafff 0x148e709ab000 - 0x148e709abfff 0x148e709ac000 - 0x148e709acfff 0x148e709ad000 - 0x148e709aefff 0x148e709af000 - 0x148e709bffff 0x148e709c0000 - 0x148e709f7fff 0x148e709f8000 - 0x148e70b2efff 0x148e70b2f000 - 0x148e70b32fff 0x148e70b33000 - 0x148e70b33fff 0x148e70b34000 - 0x148e70b34fff 0x148e70b35000 - 0x148e70b36fff 0x148e70b37000 - 0x148e70b37fff 0x148e70b38000 - 0x148e70b38fff 0x148e70b39000 - 0x148e70b39fff 0x148e70b3a000 - 0x148e70b3bfff 0x148e70b3c000 - 0x148e70b3efff 0x148e70b3f000 - 0x148e70b3ffff 0x148e70b40000 - 0x148e70b40fff 0x148e70b41000 - 0x148e70b41fff 0x148e70b42000 - 0x148e70b43fff 0x148e70b44000 - 0x148e70b45fff 0x148e70b46000 - 0x148e70b46fff 0x148e70b47000 - 0x148e70b47fff 0x148e70b48000 - 0x148e70b48fff 0x148e70b49000 - 0x148e70b56fff 0x148e70b57000 - 0x148e70b64fff 0x148e70b65000 - 0x148e70b72fff 0x148e70b73000 - 0x148e70b76fff 0x148e70b77000 - 0x148e70b77fff 0x148e70b78000 - 0x148e70b8dfff 0x148e70b8e000 - 0x148e70bb9fff 0x148e70bba000 - 0x148e70bc2fff 0x148e70bc3000 - 0x148e70bc3fff 0x148e70bc4000 - 0x148e70bc6fff 0x148e70bc7000 - 0x148e70bccfff 0x148e70bcd000 - 0x148e70bcffff 0x148e70bd2000 - 0x148e70bd2fff 0x148e70bd3000 - 0x148e70bd3fff 0x148e70bd4000 - 0x148e70bdafff 0x148e70bdb000 - 0x148e70bdcfff 0x148e70bdd000 - 0x148e70bfdfff 0x148e70bfe000 - 0x148e70c05fff 0x148e70c06000 - 0x148e70c06fff 0x148e70c07000 - 0x148e70c07fff 0x148e70c08000 - 0x148e70c08fff 0x148e70c09000 - 0x148e70c09fff 0x7ffc10276000 - 0x7ffc10296fff 0x7ffc10356000 - 0x7ffc10359fff 0x7ffc1035a000 - 0x7ffc1035bfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x22c3000 - 0x22e3fff 0x100000000000 - 0x1000000bffff 0x14d247f22000 - 0x14d2485c6fff 0x14d2485c7000 - 0x14d24861afff 0x14d24861b000 - 0x14d24861dfff 0x14d24861e000 - 0x14d248642fff 0x14d248643000 - 0x14d248792fff 0x14d248793000 - 0x14d2487ddfff 0x14d2487de000 - 0x14d2487e0fff 0x14d2487e1000 - 0x14d2487e3fff 0x14d2487e4000 - 0x14d2487e7fff 0x14d2487e8000 - 0x14d2487eafff 0x14d2487eb000 - 0x14d2487fcfff 0x14d2487fd000 - 0x14d248800fff 0x14d248801000 - 0x14d248801fff 0x14d248802000 - 0x14d248802fff 0x14d248803000 - 0x14d248804fff 0x14d248805000 - 0x14d248815fff 0x14d248816000 - 0x14d24884dfff 0x14d24884e000 - 0x14d248984fff 0x14d248985000 - 0x14d248988fff 0x14d248989000 - 0x14d248989fff 0x14d24898a000 - 0x14d24898afff 0x14d24898b000 - 0x14d24898cfff 0x14d24898d000 - 0x14d24898dfff 0x14d24898e000 - 0x14d24898efff 0x14d24898f000 - 0x14d24898ffff 0x14d248990000 - 0x14d248991fff 0x14d248992000 - 0x14d248994fff 0x14d248995000 - 0x14d248995fff 0x14d248996000 - 0x14d248996fff 0x14d248997000 - 0x14d248997fff 0x14d248998000 - 0x14d248999fff 0x14d24899a000 - 0x14d24899bfff 0x14d24899c000 - 0x14d24899cfff 0x14d24899d000 - 0x14d24899dfff 0x14d24899e000 - 0x14d24899efff 0x14d24899f000 - 0x14d2489acfff 0x14d2489ad000 - 0x14d2489bafff 0x14d2489bb000 - 0x14d2489c8fff 0x14d2489c9000 - 0x14d2489ccfff 0x14d2489cd000 - 0x14d2489cdfff 0x14d2489ce000 - 0x14d2489e3fff 0x14d2489e4000 - 0x14d248a0ffff 0x14d248a10000 - 0x14d248a18fff 0x14d248a19000 - 0x14d248a19fff 0x14d248a1a000 - 0x14d248a1cfff 0x14d248a1d000 - 0x14d248a22fff 0x14d248a23000 - 0x14d248a25fff 0x14d248a28000 - 0x14d248a28fff 0x14d248a29000 - 0x14d248a29fff 0x14d248a2a000 - 0x14d248a30fff 0x14d248a31000 - 0x14d248a32fff 0x14d248a33000 - 0x14d248a53fff 0x14d248a54000 - 0x14d248a5bfff 0x14d248a5c000 - 0x14d248a5cfff 0x14d248a5d000 - 0x14d248a5dfff 0x14d248a5e000 - 0x14d248a5efff 0x14d248a5f000 - 0x14d248a5ffff 0x7fffdc236000 - 0x7fffdc256fff 0x7fffdc303000 - 0x7fffdc306fff 0x7fffdc307000 - 0x7fffdc308fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x236b000 - 0x238bfff 0x100000000000 - 0x1000000bffff 0x147d167db000 - 0x147d16e7ffff 0x147d16e80000 - 0x147d16ed3fff 0x147d16ed4000 - 0x147d16ed6fff 0x147d16ed7000 - 0x147d16efbfff 0x147d16efc000 - 0x147d1704bfff 0x147d1704c000 - 0x147d17096fff 0x147d17097000 - 0x147d17099fff 0x147d1709a000 - 0x147d1709cfff 0x147d1709d000 - 0x147d170a0fff 0x147d170a1000 - 0x147d170a3fff 0x147d170a4000 - 0x147d170b5fff 0x147d170b6000 - 0x147d170b9fff 0x147d170ba000 - 0x147d170bafff 0x147d170bb000 - 0x147d170bbfff 0x147d170bc000 - 0x147d170bdfff 0x147d170be000 - 0x147d170cefff 0x147d170cf000 - 0x147d17106fff 0x147d17107000 - 0x147d1723dfff 0x147d1723e000 - 0x147d17241fff 0x147d17242000 - 0x147d17242fff 0x147d17243000 - 0x147d17243fff 0x147d17244000 - 0x147d17245fff 0x147d17246000 - 0x147d17246fff 0x147d17247000 - 0x147d17247fff 0x147d17248000 - 0x147d17248fff 0x147d17249000 - 0x147d1724afff 0x147d1724b000 - 0x147d1724dfff 0x147d1724e000 - 0x147d1724efff 0x147d1724f000 - 0x147d1724ffff 0x147d17250000 - 0x147d17250fff 0x147d17251000 - 0x147d17252fff 0x147d17253000 - 0x147d17254fff 0x147d17255000 - 0x147d17255fff 0x147d17256000 - 0x147d17256fff 0x147d17257000 - 0x147d17257fff 0x147d17258000 - 0x147d17265fff 0x147d17266000 - 0x147d17273fff 0x147d17274000 - 0x147d17281fff 0x147d17282000 - 0x147d17285fff 0x147d17286000 - 0x147d17286fff 0x147d17287000 - 0x147d1729cfff 0x147d1729d000 - 0x147d172c8fff 0x147d172c9000 - 0x147d172d1fff 0x147d172d2000 - 0x147d172d2fff 0x147d172d3000 - 0x147d172d5fff 0x147d172d6000 - 0x147d172dbfff 0x147d172dc000 - 0x147d172defff 0x147d172e1000 - 0x147d172e1fff 0x147d172e2000 - 0x147d172e2fff 0x147d172e3000 - 0x147d172e9fff 0x147d172ea000 - 0x147d172ebfff 0x147d172ec000 - 0x147d1730cfff 0x147d1730d000 - 0x147d17314fff 0x147d17315000 - 0x147d17315fff 0x147d17316000 - 0x147d17316fff 0x147d17317000 - 0x147d17317fff 0x147d17318000 - 0x147d17318fff 0x7ffe4b0d1000 - 0x7ffe4b0f1fff 0x7ffe4b11d000 - 0x7ffe4b120fff 0x7ffe4b121000 - 0x7ffe4b122fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x12e7000 - 0x1307fff 0x100000000000 - 0x1000000bffff 0x14b3c3feb000 - 0x14b3c468ffff 0x14b3c4690000 - 0x14b3c46e3fff 0x14b3c46e4000 - 0x14b3c46e6fff 0x14b3c46e7000 - 0x14b3c470bfff 0x14b3c470c000 - 0x14b3c485bfff 0x14b3c485c000 - 0x14b3c48a6fff 0x14b3c48a7000 - 0x14b3c48a9fff 0x14b3c48aa000 - 0x14b3c48acfff 0x14b3c48ad000 - 0x14b3c48b0fff 0x14b3c48b1000 - 0x14b3c48b3fff 0x14b3c48b4000 - 0x14b3c48c5fff 0x14b3c48c6000 - 0x14b3c48c9fff 0x14b3c48ca000 - 0x14b3c48cafff 0x14b3c48cb000 - 0x14b3c48cbfff 0x14b3c48cc000 - 0x14b3c48cdfff 0x14b3c48ce000 - 0x14b3c48defff 0x14b3c48df000 - 0x14b3c4916fff 0x14b3c4917000 - 0x14b3c4a4dfff 0x14b3c4a4e000 - 0x14b3c4a51fff 0x14b3c4a52000 - 0x14b3c4a52fff 0x14b3c4a53000 - 0x14b3c4a53fff 0x14b3c4a54000 - 0x14b3c4a55fff 0x14b3c4a56000 - 0x14b3c4a56fff 0x14b3c4a57000 - 0x14b3c4a57fff 0x14b3c4a58000 - 0x14b3c4a58fff 0x14b3c4a59000 - 0x14b3c4a5afff 0x14b3c4a5b000 - 0x14b3c4a5dfff 0x14b3c4a5e000 - 0x14b3c4a5efff 0x14b3c4a5f000 - 0x14b3c4a5ffff 0x14b3c4a60000 - 0x14b3c4a60fff 0x14b3c4a61000 - 0x14b3c4a62fff 0x14b3c4a63000 - 0x14b3c4a64fff 0x14b3c4a65000 - 0x14b3c4a65fff 0x14b3c4a66000 - 0x14b3c4a66fff 0x14b3c4a67000 - 0x14b3c4a67fff 0x14b3c4a68000 - 0x14b3c4a75fff 0x14b3c4a76000 - 0x14b3c4a83fff 0x14b3c4a84000 - 0x14b3c4a91fff 0x14b3c4a92000 - 0x14b3c4a95fff 0x14b3c4a96000 - 0x14b3c4a96fff 0x14b3c4a97000 - 0x14b3c4aacfff 0x14b3c4aad000 - 0x14b3c4ad8fff 0x14b3c4ad9000 - 0x14b3c4ae1fff 0x14b3c4ae2000 - 0x14b3c4ae2fff 0x14b3c4ae3000 - 0x14b3c4ae5fff 0x14b3c4ae6000 - 0x14b3c4aebfff 0x14b3c4aec000 - 0x14b3c4aeefff 0x14b3c4af1000 - 0x14b3c4af1fff 0x14b3c4af2000 - 0x14b3c4af2fff 0x14b3c4af3000 - 0x14b3c4af9fff 0x14b3c4afa000 - 0x14b3c4afbfff 0x14b3c4afc000 - 0x14b3c4b1cfff 0x14b3c4b1d000 - 0x14b3c4b24fff 0x14b3c4b25000 - 0x14b3c4b25fff 0x14b3c4b26000 - 0x14b3c4b26fff 0x14b3c4b27000 - 0x14b3c4b27fff 0x14b3c4b28000 - 0x14b3c4b28fff 0x7ffcfcfa9000 - 0x7ffcfcfc9fff 0x7ffcfcfe4000 - 0x7ffcfcfe7fff 0x7ffcfcfe8000 - 0x7ffcfcfe9fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x7fb000 - 0x81bfff 0x100000000000 - 0x1000000bffff 0x14d181510000 - 0x14d181bb4fff 0x14d181bb5000 - 0x14d181c08fff 0x14d181c09000 - 0x14d181c0bfff 0x14d181c0c000 - 0x14d181c30fff 0x14d181c31000 - 0x14d181d80fff 0x14d181d81000 - 0x14d181dcbfff 0x14d181dcc000 - 0x14d181dcefff 0x14d181dcf000 - 0x14d181dd1fff 0x14d181dd2000 - 0x14d181dd5fff 0x14d181dd6000 - 0x14d181dd8fff 0x14d181dd9000 - 0x14d181deafff 0x14d181deb000 - 0x14d181deefff 0x14d181def000 - 0x14d181deffff 0x14d181df0000 - 0x14d181df0fff 0x14d181df1000 - 0x14d181df2fff 0x14d181df3000 - 0x14d181e03fff 0x14d181e04000 - 0x14d181e3bfff 0x14d181e3c000 - 0x14d181f72fff 0x14d181f73000 - 0x14d181f76fff 0x14d181f77000 - 0x14d181f77fff 0x14d181f78000 - 0x14d181f78fff 0x14d181f79000 - 0x14d181f7afff 0x14d181f7b000 - 0x14d181f7bfff 0x14d181f7c000 - 0x14d181f7cfff 0x14d181f7d000 - 0x14d181f7dfff 0x14d181f7e000 - 0x14d181f7ffff 0x14d181f80000 - 0x14d181f82fff 0x14d181f83000 - 0x14d181f83fff 0x14d181f84000 - 0x14d181f84fff 0x14d181f85000 - 0x14d181f85fff 0x14d181f86000 - 0x14d181f87fff 0x14d181f88000 - 0x14d181f89fff 0x14d181f8a000 - 0x14d181f8afff 0x14d181f8b000 - 0x14d181f8bfff 0x14d181f8c000 - 0x14d181f8cfff 0x14d181f8d000 - 0x14d181f9afff 0x14d181f9b000 - 0x14d181fa8fff 0x14d181fa9000 - 0x14d181fb6fff 0x14d181fb7000 - 0x14d181fbafff 0x14d181fbb000 - 0x14d181fbbfff 0x14d181fbc000 - 0x14d181fd1fff 0x14d181fd2000 - 0x14d181ffdfff 0x14d181ffe000 - 0x14d182006fff 0x14d182007000 - 0x14d182007fff 0x14d182008000 - 0x14d18200afff 0x14d18200b000 - 0x14d182010fff 0x14d182011000 - 0x14d182013fff 0x14d182016000 - 0x14d182016fff 0x14d182017000 - 0x14d182017fff 0x14d182018000 - 0x14d18201efff 0x14d18201f000 - 0x14d182020fff 0x14d182021000 - 0x14d182041fff 0x14d182042000 - 0x14d182049fff 0x14d18204a000 - 0x14d18204afff 0x14d18204b000 - 0x14d18204bfff 0x14d18204c000 - 0x14d18204cfff 0x14d18204d000 - 0x14d18204dfff 0x7ffd555ae000 - 0x7ffd555cefff 0x7ffd555df000 - 0x7ffd555e2fff 0x7ffd555e3000 - 0x7ffd555e4fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xcca000 - 0xceafff 0x100000000000 - 0x1000000bffff 0x152991fe5000 - 0x152992689fff 0x15299268a000 - 0x1529926ddfff 0x1529926de000 - 0x1529926e0fff 0x1529926e1000 - 0x152992705fff 0x152992706000 - 0x152992855fff 0x152992856000 - 0x1529928a0fff 0x1529928a1000 - 0x1529928a3fff 0x1529928a4000 - 0x1529928a6fff 0x1529928a7000 - 0x1529928aafff 0x1529928ab000 - 0x1529928adfff 0x1529928ae000 - 0x1529928bffff 0x1529928c0000 - 0x1529928c3fff 0x1529928c4000 - 0x1529928c4fff 0x1529928c5000 - 0x1529928c5fff 0x1529928c6000 - 0x1529928c7fff 0x1529928c8000 - 0x1529928d8fff 0x1529928d9000 - 0x152992910fff 0x152992911000 - 0x152992a47fff 0x152992a48000 - 0x152992a4bfff 0x152992a4c000 - 0x152992a4cfff 0x152992a4d000 - 0x152992a4dfff 0x152992a4e000 - 0x152992a4ffff 0x152992a50000 - 0x152992a50fff 0x152992a51000 - 0x152992a51fff 0x152992a52000 - 0x152992a52fff 0x152992a53000 - 0x152992a54fff 0x152992a55000 - 0x152992a57fff 0x152992a58000 - 0x152992a58fff 0x152992a59000 - 0x152992a59fff 0x152992a5a000 - 0x152992a5afff 0x152992a5b000 - 0x152992a5cfff 0x152992a5d000 - 0x152992a5efff 0x152992a5f000 - 0x152992a5ffff 0x152992a60000 - 0x152992a60fff 0x152992a61000 - 0x152992a61fff 0x152992a62000 - 0x152992a6ffff 0x152992a70000 - 0x152992a7dfff 0x152992a7e000 - 0x152992a8bfff 0x152992a8c000 - 0x152992a8ffff 0x152992a90000 - 0x152992a90fff 0x152992a91000 - 0x152992aa6fff 0x152992aa7000 - 0x152992ad2fff 0x152992ad3000 - 0x152992adbfff 0x152992adc000 - 0x152992adcfff 0x152992add000 - 0x152992adffff 0x152992ae0000 - 0x152992ae5fff 0x152992ae6000 - 0x152992ae8fff 0x152992aeb000 - 0x152992aebfff 0x152992aec000 - 0x152992aecfff 0x152992aed000 - 0x152992af3fff 0x152992af4000 - 0x152992af5fff 0x152992af6000 - 0x152992b16fff 0x152992b17000 - 0x152992b1efff 0x152992b1f000 - 0x152992b1ffff 0x152992b20000 - 0x152992b20fff 0x152992b21000 - 0x152992b21fff 0x152992b22000 - 0x152992b22fff 0x7ffc2327f000 - 0x7ffc2329ffff 0x7ffc232f4000 - 0x7ffc232f7fff 0x7ffc232f8000 - 0x7ffc232f9fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xb8c000 - 0xbacfff 0x100000000000 - 0x1000000bffff 0x14dd2cc3b000 - 0x14dd2d2dffff 0x14dd2d2e0000 - 0x14dd2d333fff 0x14dd2d334000 - 0x14dd2d336fff 0x14dd2d337000 - 0x14dd2d35bfff 0x14dd2d35c000 - 0x14dd2d4abfff 0x14dd2d4ac000 - 0x14dd2d4f6fff 0x14dd2d4f7000 - 0x14dd2d4f9fff 0x14dd2d4fa000 - 0x14dd2d4fcfff 0x14dd2d4fd000 - 0x14dd2d500fff 0x14dd2d501000 - 0x14dd2d503fff 0x14dd2d504000 - 0x14dd2d515fff 0x14dd2d516000 - 0x14dd2d519fff 0x14dd2d51a000 - 0x14dd2d51afff 0x14dd2d51b000 - 0x14dd2d51bfff 0x14dd2d51c000 - 0x14dd2d51dfff 0x14dd2d51e000 - 0x14dd2d52efff 0x14dd2d52f000 - 0x14dd2d566fff 0x14dd2d567000 - 0x14dd2d69dfff 0x14dd2d69e000 - 0x14dd2d6a1fff 0x14dd2d6a2000 - 0x14dd2d6a2fff 0x14dd2d6a3000 - 0x14dd2d6a3fff 0x14dd2d6a4000 - 0x14dd2d6a5fff 0x14dd2d6a6000 - 0x14dd2d6a6fff 0x14dd2d6a7000 - 0x14dd2d6a7fff 0x14dd2d6a8000 - 0x14dd2d6a8fff 0x14dd2d6a9000 - 0x14dd2d6aafff 0x14dd2d6ab000 - 0x14dd2d6adfff 0x14dd2d6ae000 - 0x14dd2d6aefff 0x14dd2d6af000 - 0x14dd2d6affff 0x14dd2d6b0000 - 0x14dd2d6b0fff 0x14dd2d6b1000 - 0x14dd2d6b2fff 0x14dd2d6b3000 - 0x14dd2d6b4fff 0x14dd2d6b5000 - 0x14dd2d6b5fff 0x14dd2d6b6000 - 0x14dd2d6b6fff 0x14dd2d6b7000 - 0x14dd2d6b7fff 0x14dd2d6b8000 - 0x14dd2d6c5fff 0x14dd2d6c6000 - 0x14dd2d6d3fff 0x14dd2d6d4000 - 0x14dd2d6e1fff 0x14dd2d6e2000 - 0x14dd2d6e5fff 0x14dd2d6e6000 - 0x14dd2d6e6fff 0x14dd2d6e7000 - 0x14dd2d6fcfff 0x14dd2d6fd000 - 0x14dd2d728fff 0x14dd2d729000 - 0x14dd2d731fff 0x14dd2d732000 - 0x14dd2d732fff 0x14dd2d733000 - 0x14dd2d735fff 0x14dd2d736000 - 0x14dd2d73bfff 0x14dd2d73c000 - 0x14dd2d73efff 0x14dd2d741000 - 0x14dd2d741fff 0x14dd2d742000 - 0x14dd2d742fff 0x14dd2d743000 - 0x14dd2d749fff 0x14dd2d74a000 - 0x14dd2d74bfff 0x14dd2d74c000 - 0x14dd2d76cfff 0x14dd2d76d000 - 0x14dd2d774fff 0x14dd2d775000 - 0x14dd2d775fff 0x14dd2d776000 - 0x14dd2d776fff 0x14dd2d777000 - 0x14dd2d777fff 0x14dd2d778000 - 0x14dd2d778fff 0x7ffc4b289000 - 0x7ffc4b2a9fff 0x7ffc4b30b000 - 0x7ffc4b30efff 0x7ffc4b30f000 - 0x7ffc4b310fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xed1000 - 0xef1fff 0x100000000000 - 0x1000000bffff 0x15428a8b1000 - 0x15428af55fff 0x15428af56000 - 0x15428afa9fff 0x15428afaa000 - 0x15428afacfff 0x15428afad000 - 0x15428afd1fff 0x15428afd2000 - 0x15428b121fff 0x15428b122000 - 0x15428b16cfff 0x15428b16d000 - 0x15428b16ffff 0x15428b170000 - 0x15428b172fff 0x15428b173000 - 0x15428b176fff 0x15428b177000 - 0x15428b179fff 0x15428b17a000 - 0x15428b18bfff 0x15428b18c000 - 0x15428b18ffff 0x15428b190000 - 0x15428b190fff 0x15428b191000 - 0x15428b191fff 0x15428b192000 - 0x15428b193fff 0x15428b194000 - 0x15428b1a4fff 0x15428b1a5000 - 0x15428b1dcfff 0x15428b1dd000 - 0x15428b313fff 0x15428b314000 - 0x15428b317fff 0x15428b318000 - 0x15428b318fff 0x15428b319000 - 0x15428b319fff 0x15428b31a000 - 0x15428b31bfff 0x15428b31c000 - 0x15428b31cfff 0x15428b31d000 - 0x15428b31dfff 0x15428b31e000 - 0x15428b31efff 0x15428b31f000 - 0x15428b320fff 0x15428b321000 - 0x15428b323fff 0x15428b324000 - 0x15428b324fff 0x15428b325000 - 0x15428b325fff 0x15428b326000 - 0x15428b326fff 0x15428b327000 - 0x15428b328fff 0x15428b329000 - 0x15428b32afff 0x15428b32b000 - 0x15428b32bfff 0x15428b32c000 - 0x15428b32cfff 0x15428b32d000 - 0x15428b32dfff 0x15428b32e000 - 0x15428b33bfff 0x15428b33c000 - 0x15428b349fff 0x15428b34a000 - 0x15428b357fff 0x15428b358000 - 0x15428b35bfff 0x15428b35c000 - 0x15428b35cfff 0x15428b35d000 - 0x15428b372fff 0x15428b373000 - 0x15428b39efff 0x15428b39f000 - 0x15428b3a7fff 0x15428b3a8000 - 0x15428b3a8fff 0x15428b3a9000 - 0x15428b3abfff 0x15428b3ac000 - 0x15428b3b1fff 0x15428b3b2000 - 0x15428b3b4fff 0x15428b3b7000 - 0x15428b3b7fff 0x15428b3b8000 - 0x15428b3b8fff 0x15428b3b9000 - 0x15428b3bffff 0x15428b3c0000 - 0x15428b3c1fff 0x15428b3c2000 - 0x15428b3e2fff 0x15428b3e3000 - 0x15428b3eafff 0x15428b3eb000 - 0x15428b3ebfff 0x15428b3ec000 - 0x15428b3ecfff 0x15428b3ed000 - 0x15428b3edfff 0x15428b3ee000 - 0x15428b3eefff 0x7fffe5eb8000 - 0x7fffe5ed8fff 0x7fffe5efb000 - 0x7fffe5efefff 0x7fffe5eff000 - 0x7fffe5f00fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x246b000 - 0x248bfff 0x100000000000 - 0x1000000bffff 0x14583d1bf000 - 0x14583d863fff 0x14583d864000 - 0x14583d8b7fff 0x14583d8b8000 - 0x14583d8bafff 0x14583d8bb000 - 0x14583d8dffff 0x14583d8e0000 - 0x14583da2ffff 0x14583da30000 - 0x14583da7afff 0x14583da7b000 - 0x14583da7dfff 0x14583da7e000 - 0x14583da80fff 0x14583da81000 - 0x14583da84fff 0x14583da85000 - 0x14583da87fff 0x14583da88000 - 0x14583da99fff 0x14583da9a000 - 0x14583da9dfff 0x14583da9e000 - 0x14583da9efff 0x14583da9f000 - 0x14583da9ffff 0x14583daa0000 - 0x14583daa1fff 0x14583daa2000 - 0x14583dab2fff 0x14583dab3000 - 0x14583daeafff 0x14583daeb000 - 0x14583dc21fff 0x14583dc22000 - 0x14583dc25fff 0x14583dc26000 - 0x14583dc26fff 0x14583dc27000 - 0x14583dc27fff 0x14583dc28000 - 0x14583dc29fff 0x14583dc2a000 - 0x14583dc2afff 0x14583dc2b000 - 0x14583dc2bfff 0x14583dc2c000 - 0x14583dc2cfff 0x14583dc2d000 - 0x14583dc2efff 0x14583dc2f000 - 0x14583dc31fff 0x14583dc32000 - 0x14583dc32fff 0x14583dc33000 - 0x14583dc33fff 0x14583dc34000 - 0x14583dc34fff 0x14583dc35000 - 0x14583dc36fff 0x14583dc37000 - 0x14583dc38fff 0x14583dc39000 - 0x14583dc39fff 0x14583dc3a000 - 0x14583dc3afff 0x14583dc3b000 - 0x14583dc3bfff 0x14583dc3c000 - 0x14583dc49fff 0x14583dc4a000 - 0x14583dc57fff 0x14583dc58000 - 0x14583dc65fff 0x14583dc66000 - 0x14583dc69fff 0x14583dc6a000 - 0x14583dc6afff 0x14583dc6b000 - 0x14583dc80fff 0x14583dc81000 - 0x14583dcacfff 0x14583dcad000 - 0x14583dcb5fff 0x14583dcb6000 - 0x14583dcb6fff 0x14583dcb7000 - 0x14583dcb9fff 0x14583dcba000 - 0x14583dcbffff 0x14583dcc0000 - 0x14583dcc2fff 0x14583dcc5000 - 0x14583dcc5fff 0x14583dcc6000 - 0x14583dcc6fff 0x14583dcc7000 - 0x14583dccdfff 0x14583dcce000 - 0x14583dccffff 0x14583dcd0000 - 0x14583dcf0fff 0x14583dcf1000 - 0x14583dcf8fff 0x14583dcf9000 - 0x14583dcf9fff 0x14583dcfa000 - 0x14583dcfafff 0x14583dcfb000 - 0x14583dcfbfff 0x14583dcfc000 - 0x14583dcfcfff 0x7ffc86a70000 - 0x7ffc86a90fff 0x7ffc86b49000 - 0x7ffc86b4cfff 0x7ffc86b4d000 - 0x7ffc86b4efff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x22db000 - 0x22fbfff 0x100000000000 - 0x1000000bffff 0x1521a2f3b000 - 0x1521a35dffff 0x1521a35e0000 - 0x1521a3633fff 0x1521a3634000 - 0x1521a3636fff 0x1521a3637000 - 0x1521a365bfff 0x1521a365c000 - 0x1521a37abfff 0x1521a37ac000 - 0x1521a37f6fff 0x1521a37f7000 - 0x1521a37f9fff 0x1521a37fa000 - 0x1521a37fcfff 0x1521a37fd000 - 0x1521a3800fff 0x1521a3801000 - 0x1521a3803fff 0x1521a3804000 - 0x1521a3815fff 0x1521a3816000 - 0x1521a3819fff 0x1521a381a000 - 0x1521a381afff 0x1521a381b000 - 0x1521a381bfff 0x1521a381c000 - 0x1521a381dfff 0x1521a381e000 - 0x1521a382efff 0x1521a382f000 - 0x1521a3866fff 0x1521a3867000 - 0x1521a399dfff 0x1521a399e000 - 0x1521a39a1fff 0x1521a39a2000 - 0x1521a39a2fff 0x1521a39a3000 - 0x1521a39a3fff 0x1521a39a4000 - 0x1521a39a5fff 0x1521a39a6000 - 0x1521a39a6fff 0x1521a39a7000 - 0x1521a39a7fff 0x1521a39a8000 - 0x1521a39a8fff 0x1521a39a9000 - 0x1521a39aafff 0x1521a39ab000 - 0x1521a39adfff 0x1521a39ae000 - 0x1521a39aefff 0x1521a39af000 - 0x1521a39affff 0x1521a39b0000 - 0x1521a39b0fff 0x1521a39b1000 - 0x1521a39b2fff 0x1521a39b3000 - 0x1521a39b4fff 0x1521a39b5000 - 0x1521a39b5fff 0x1521a39b6000 - 0x1521a39b6fff 0x1521a39b7000 - 0x1521a39b7fff 0x1521a39b8000 - 0x1521a39c5fff 0x1521a39c6000 - 0x1521a39d3fff 0x1521a39d4000 - 0x1521a39e1fff 0x1521a39e2000 - 0x1521a39e5fff 0x1521a39e6000 - 0x1521a39e6fff 0x1521a39e7000 - 0x1521a39fcfff 0x1521a39fd000 - 0x1521a3a28fff 0x1521a3a29000 - 0x1521a3a31fff 0x1521a3a32000 - 0x1521a3a32fff 0x1521a3a33000 - 0x1521a3a35fff 0x1521a3a36000 - 0x1521a3a3bfff 0x1521a3a3c000 - 0x1521a3a3efff 0x1521a3a41000 - 0x1521a3a41fff 0x1521a3a42000 - 0x1521a3a42fff 0x1521a3a43000 - 0x1521a3a49fff 0x1521a3a4a000 - 0x1521a3a4bfff 0x1521a3a4c000 - 0x1521a3a6cfff 0x1521a3a6d000 - 0x1521a3a74fff 0x1521a3a75000 - 0x1521a3a75fff 0x1521a3a76000 - 0x1521a3a76fff 0x1521a3a77000 - 0x1521a3a77fff 0x1521a3a78000 - 0x1521a3a78fff 0x7ffc66bf9000 - 0x7ffc66c19fff 0x7ffc66d63000 - 0x7ffc66d66fff 0x7ffc66d67000 - 0x7ffc66d68fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1948000 - 0x1968fff 0x100000000000 - 0x1000000bffff 0x14bd4c369000 - 0x14bd4ca0dfff 0x14bd4ca0e000 - 0x14bd4ca61fff 0x14bd4ca62000 - 0x14bd4ca64fff 0x14bd4ca65000 - 0x14bd4ca89fff 0x14bd4ca8a000 - 0x14bd4cbd9fff 0x14bd4cbda000 - 0x14bd4cc24fff 0x14bd4cc25000 - 0x14bd4cc27fff 0x14bd4cc28000 - 0x14bd4cc2afff 0x14bd4cc2b000 - 0x14bd4cc2efff 0x14bd4cc2f000 - 0x14bd4cc31fff 0x14bd4cc32000 - 0x14bd4cc43fff 0x14bd4cc44000 - 0x14bd4cc47fff 0x14bd4cc48000 - 0x14bd4cc48fff 0x14bd4cc49000 - 0x14bd4cc49fff 0x14bd4cc4a000 - 0x14bd4cc4bfff 0x14bd4cc4c000 - 0x14bd4cc5cfff 0x14bd4cc5d000 - 0x14bd4cc94fff 0x14bd4cc95000 - 0x14bd4cdcbfff 0x14bd4cdcc000 - 0x14bd4cdcffff 0x14bd4cdd0000 - 0x14bd4cdd0fff 0x14bd4cdd1000 - 0x14bd4cdd1fff 0x14bd4cdd2000 - 0x14bd4cdd3fff 0x14bd4cdd4000 - 0x14bd4cdd4fff 0x14bd4cdd5000 - 0x14bd4cdd5fff 0x14bd4cdd6000 - 0x14bd4cdd6fff 0x14bd4cdd7000 - 0x14bd4cdd8fff 0x14bd4cdd9000 - 0x14bd4cddbfff 0x14bd4cddc000 - 0x14bd4cddcfff 0x14bd4cddd000 - 0x14bd4cdddfff 0x14bd4cdde000 - 0x14bd4cddefff 0x14bd4cddf000 - 0x14bd4cde0fff 0x14bd4cde1000 - 0x14bd4cde2fff 0x14bd4cde3000 - 0x14bd4cde3fff 0x14bd4cde4000 - 0x14bd4cde4fff 0x14bd4cde5000 - 0x14bd4cde5fff 0x14bd4cde6000 - 0x14bd4cdf3fff 0x14bd4cdf4000 - 0x14bd4ce01fff 0x14bd4ce02000 - 0x14bd4ce0ffff 0x14bd4ce10000 - 0x14bd4ce13fff 0x14bd4ce14000 - 0x14bd4ce14fff 0x14bd4ce15000 - 0x14bd4ce2afff 0x14bd4ce2b000 - 0x14bd4ce56fff 0x14bd4ce57000 - 0x14bd4ce5ffff 0x14bd4ce60000 - 0x14bd4ce60fff 0x14bd4ce61000 - 0x14bd4ce63fff 0x14bd4ce64000 - 0x14bd4ce69fff 0x14bd4ce6a000 - 0x14bd4ce6cfff 0x14bd4ce6f000 - 0x14bd4ce6ffff 0x14bd4ce70000 - 0x14bd4ce70fff 0x14bd4ce71000 - 0x14bd4ce77fff 0x14bd4ce78000 - 0x14bd4ce79fff 0x14bd4ce7a000 - 0x14bd4ce9afff 0x14bd4ce9b000 - 0x14bd4cea2fff 0x14bd4cea3000 - 0x14bd4cea3fff 0x14bd4cea4000 - 0x14bd4cea4fff 0x14bd4cea5000 - 0x14bd4cea5fff 0x14bd4cea6000 - 0x14bd4cea6fff 0x7ffe60d5c000 - 0x7ffe60d7cfff 0x7ffe60da7000 - 0x7ffe60daafff 0x7ffe60dab000 - 0x7ffe60dacfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xae2000 - 0xb02fff 0x100000000000 - 0x1000000bffff 0x14f5a8450000 - 0x14f5a8af4fff 0x14f5a8af5000 - 0x14f5a8b48fff 0x14f5a8b49000 - 0x14f5a8b4bfff 0x14f5a8b4c000 - 0x14f5a8b70fff 0x14f5a8b71000 - 0x14f5a8cc0fff 0x14f5a8cc1000 - 0x14f5a8d0bfff 0x14f5a8d0c000 - 0x14f5a8d0efff 0x14f5a8d0f000 - 0x14f5a8d11fff 0x14f5a8d12000 - 0x14f5a8d15fff 0x14f5a8d16000 - 0x14f5a8d18fff 0x14f5a8d19000 - 0x14f5a8d2afff 0x14f5a8d2b000 - 0x14f5a8d2efff 0x14f5a8d2f000 - 0x14f5a8d2ffff 0x14f5a8d30000 - 0x14f5a8d30fff 0x14f5a8d31000 - 0x14f5a8d32fff 0x14f5a8d33000 - 0x14f5a8d43fff 0x14f5a8d44000 - 0x14f5a8d7bfff 0x14f5a8d7c000 - 0x14f5a8eb2fff 0x14f5a8eb3000 - 0x14f5a8eb6fff 0x14f5a8eb7000 - 0x14f5a8eb7fff 0x14f5a8eb8000 - 0x14f5a8eb8fff 0x14f5a8eb9000 - 0x14f5a8ebafff 0x14f5a8ebb000 - 0x14f5a8ebbfff 0x14f5a8ebc000 - 0x14f5a8ebcfff 0x14f5a8ebd000 - 0x14f5a8ebdfff 0x14f5a8ebe000 - 0x14f5a8ebffff 0x14f5a8ec0000 - 0x14f5a8ec2fff 0x14f5a8ec3000 - 0x14f5a8ec3fff 0x14f5a8ec4000 - 0x14f5a8ec4fff 0x14f5a8ec5000 - 0x14f5a8ec5fff 0x14f5a8ec6000 - 0x14f5a8ec7fff 0x14f5a8ec8000 - 0x14f5a8ec9fff 0x14f5a8eca000 - 0x14f5a8ecafff 0x14f5a8ecb000 - 0x14f5a8ecbfff 0x14f5a8ecc000 - 0x14f5a8eccfff 0x14f5a8ecd000 - 0x14f5a8edafff 0x14f5a8edb000 - 0x14f5a8ee8fff 0x14f5a8ee9000 - 0x14f5a8ef6fff 0x14f5a8ef7000 - 0x14f5a8efafff 0x14f5a8efb000 - 0x14f5a8efbfff 0x14f5a8efc000 - 0x14f5a8f11fff 0x14f5a8f12000 - 0x14f5a8f3dfff 0x14f5a8f3e000 - 0x14f5a8f46fff 0x14f5a8f47000 - 0x14f5a8f47fff 0x14f5a8f48000 - 0x14f5a8f4afff 0x14f5a8f4b000 - 0x14f5a8f50fff 0x14f5a8f51000 - 0x14f5a8f53fff 0x14f5a8f56000 - 0x14f5a8f56fff 0x14f5a8f57000 - 0x14f5a8f57fff 0x14f5a8f58000 - 0x14f5a8f5efff 0x14f5a8f5f000 - 0x14f5a8f60fff 0x14f5a8f61000 - 0x14f5a8f81fff 0x14f5a8f82000 - 0x14f5a8f89fff 0x14f5a8f8a000 - 0x14f5a8f8afff 0x14f5a8f8b000 - 0x14f5a8f8bfff 0x14f5a8f8c000 - 0x14f5a8f8cfff 0x14f5a8f8d000 - 0x14f5a8f8dfff 0x7ffc11d27000 - 0x7ffc11d47fff 0x7ffc11dec000 - 0x7ffc11deffff 0x7ffc11df0000 - 0x7ffc11df1fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1b5b000 - 0x1b7bfff 0x100000000000 - 0x1000000bffff 0x1517a656c000 - 0x1517a6c10fff 0x1517a6c11000 - 0x1517a6c64fff 0x1517a6c65000 - 0x1517a6c67fff 0x1517a6c68000 - 0x1517a6c8cfff 0x1517a6c8d000 - 0x1517a6ddcfff 0x1517a6ddd000 - 0x1517a6e27fff 0x1517a6e28000 - 0x1517a6e2afff 0x1517a6e2b000 - 0x1517a6e2dfff 0x1517a6e2e000 - 0x1517a6e31fff 0x1517a6e32000 - 0x1517a6e34fff 0x1517a6e35000 - 0x1517a6e46fff 0x1517a6e47000 - 0x1517a6e4afff 0x1517a6e4b000 - 0x1517a6e4bfff 0x1517a6e4c000 - 0x1517a6e4cfff 0x1517a6e4d000 - 0x1517a6e4efff 0x1517a6e4f000 - 0x1517a6e5ffff 0x1517a6e60000 - 0x1517a6e97fff 0x1517a6e98000 - 0x1517a6fcefff 0x1517a6fcf000 - 0x1517a6fd2fff 0x1517a6fd3000 - 0x1517a6fd3fff 0x1517a6fd4000 - 0x1517a6fd4fff 0x1517a6fd5000 - 0x1517a6fd6fff 0x1517a6fd7000 - 0x1517a6fd7fff 0x1517a6fd8000 - 0x1517a6fd8fff 0x1517a6fd9000 - 0x1517a6fd9fff 0x1517a6fda000 - 0x1517a6fdbfff 0x1517a6fdc000 - 0x1517a6fdefff 0x1517a6fdf000 - 0x1517a6fdffff 0x1517a6fe0000 - 0x1517a6fe0fff 0x1517a6fe1000 - 0x1517a6fe1fff 0x1517a6fe2000 - 0x1517a6fe3fff 0x1517a6fe4000 - 0x1517a6fe5fff 0x1517a6fe6000 - 0x1517a6fe6fff 0x1517a6fe7000 - 0x1517a6fe7fff 0x1517a6fe8000 - 0x1517a6fe8fff 0x1517a6fe9000 - 0x1517a6ff6fff 0x1517a6ff7000 - 0x1517a7004fff 0x1517a7005000 - 0x1517a7012fff 0x1517a7013000 - 0x1517a7016fff 0x1517a7017000 - 0x1517a7017fff 0x1517a7018000 - 0x1517a702dfff 0x1517a702e000 - 0x1517a7059fff 0x1517a705a000 - 0x1517a7062fff 0x1517a7063000 - 0x1517a7063fff 0x1517a7064000 - 0x1517a7066fff 0x1517a7067000 - 0x1517a706cfff 0x1517a706d000 - 0x1517a706ffff 0x1517a7072000 - 0x1517a7072fff 0x1517a7073000 - 0x1517a7073fff 0x1517a7074000 - 0x1517a707afff 0x1517a707b000 - 0x1517a707cfff 0x1517a707d000 - 0x1517a709dfff 0x1517a709e000 - 0x1517a70a5fff 0x1517a70a6000 - 0x1517a70a6fff 0x1517a70a7000 - 0x1517a70a7fff 0x1517a70a8000 - 0x1517a70a8fff 0x1517a70a9000 - 0x1517a70a9fff 0x7ffe3ee07000 - 0x7ffe3ee27fff 0x7ffe3efc9000 - 0x7ffe3efccfff 0x7ffe3efcd000 - 0x7ffe3efcefff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1141000 - 0x1161fff 0x100000000000 - 0x1000000bffff 0x1528b9964000 - 0x1528ba008fff 0x1528ba009000 - 0x1528ba05cfff 0x1528ba05d000 - 0x1528ba05ffff 0x1528ba060000 - 0x1528ba084fff 0x1528ba085000 - 0x1528ba1d4fff 0x1528ba1d5000 - 0x1528ba21ffff 0x1528ba220000 - 0x1528ba222fff 0x1528ba223000 - 0x1528ba225fff 0x1528ba226000 - 0x1528ba229fff 0x1528ba22a000 - 0x1528ba22cfff 0x1528ba22d000 - 0x1528ba23efff 0x1528ba23f000 - 0x1528ba242fff 0x1528ba243000 - 0x1528ba243fff 0x1528ba244000 - 0x1528ba244fff 0x1528ba245000 - 0x1528ba246fff 0x1528ba247000 - 0x1528ba257fff 0x1528ba258000 - 0x1528ba28ffff 0x1528ba290000 - 0x1528ba3c6fff 0x1528ba3c7000 - 0x1528ba3cafff 0x1528ba3cb000 - 0x1528ba3cbfff 0x1528ba3cc000 - 0x1528ba3ccfff 0x1528ba3cd000 - 0x1528ba3cefff 0x1528ba3cf000 - 0x1528ba3cffff 0x1528ba3d0000 - 0x1528ba3d0fff 0x1528ba3d1000 - 0x1528ba3d1fff 0x1528ba3d2000 - 0x1528ba3d3fff 0x1528ba3d4000 - 0x1528ba3d6fff 0x1528ba3d7000 - 0x1528ba3d7fff 0x1528ba3d8000 - 0x1528ba3d8fff 0x1528ba3d9000 - 0x1528ba3d9fff 0x1528ba3da000 - 0x1528ba3dbfff 0x1528ba3dc000 - 0x1528ba3ddfff 0x1528ba3de000 - 0x1528ba3defff 0x1528ba3df000 - 0x1528ba3dffff 0x1528ba3e0000 - 0x1528ba3e0fff 0x1528ba3e1000 - 0x1528ba3eefff 0x1528ba3ef000 - 0x1528ba3fcfff 0x1528ba3fd000 - 0x1528ba40afff 0x1528ba40b000 - 0x1528ba40efff 0x1528ba40f000 - 0x1528ba40ffff 0x1528ba410000 - 0x1528ba425fff 0x1528ba426000 - 0x1528ba451fff 0x1528ba452000 - 0x1528ba45afff 0x1528ba45b000 - 0x1528ba45bfff 0x1528ba45c000 - 0x1528ba45efff 0x1528ba45f000 - 0x1528ba464fff 0x1528ba465000 - 0x1528ba467fff 0x1528ba46a000 - 0x1528ba46afff 0x1528ba46b000 - 0x1528ba46bfff 0x1528ba46c000 - 0x1528ba472fff 0x1528ba473000 - 0x1528ba474fff 0x1528ba475000 - 0x1528ba495fff 0x1528ba496000 - 0x1528ba49dfff 0x1528ba49e000 - 0x1528ba49efff 0x1528ba49f000 - 0x1528ba49ffff 0x1528ba4a0000 - 0x1528ba4a0fff 0x1528ba4a1000 - 0x1528ba4a1fff 0x7fffe9dfd000 - 0x7fffe9e1dfff 0x7fffe9e78000 - 0x7fffe9e7bfff 0x7fffe9e7c000 - 0x7fffe9e7dfff 0xffffffffff600000 - 0xffffffffff600fff 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,322,960 bytes) Bytes permanently allocated: 173,424 Bytes currently in use: 3,145,784 Bytes available until next GC: 783,486 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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@,x86_64-pc-linux-gnu,g" > clisp.1 rm -f gen-clisp1.c gen-clisp1 ./txt2c -I../src/ < ../doc/_clisp.html > gen-clisphtml.c gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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@,x86_64-pc-linux-gnu,g" > clisp.html rm -f gen-clisphtml.c gen-clisphtml ./txt2c -I../src/ < ../doc/_clisp-link.1 > gen-clisp-link1.c gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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@,x86_64-pc-linux-gnu,g" > clisp-link.1 rm -f gen-clisp-link1.c gen-clisp-link1 ./txt2c -I../src/ < ../doc/_clisp-link.html > gen-clisp-linkhtml.c gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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@,x86_64-pc-linux-gnu,g" > clisp-link.html rm -f gen-clisp-linkhtml.c gen-clisp-linkhtml rm -f LISP-tutorial.txt ln -s ../doc/LISP-tutorial.txt LISP-tutorial.txt rm -f CLOS-guide.txt ln -s ../doc/CLOS-guide.txt CLOS-guide.txt rm -f impnotes.html ln -s ../doc/impnotes.html impnotes.html rm -f impnotes.css ln -s ../doc/impnotes.css impnotes.css rm -f clisp.png ln -s ../doc/clisp.png clisp.png groff -Tps -mandoc clisp.1 > clisp.ps clisp.1:1328: warning [p 9, 1.2i]: can't break line clisp.1:1338: warning [p 9, 2.0i]: can't break line clisp.1:1348: warning [p 9, 2.8i]: can't break line clisp.1:1378: warning [p 9, 5.2i]: can't break line clisp.1:1383: warning [p 9, 5.6i]: can't break line clisp.1:1418: warning [p 9, 8.4i]: can't break line clisp.1:1484: warning [p 10, 4.5i]: can't break line clisp.1:1494: warning [p 10, 5.3i]: can't break line clisp.1:1551: warning [p 10, 10.0i]: can't break line clisp.1:1576: warning [p 11, 2.8i]: can't break line ps2pdf clisp.ps clisp.pdf groff -Tps -mandoc clisp-link.1 > clisp-link.ps clisp-link.1:350: warning [p 2, 9.1i]: can't break line ps2pdf clisp-link.ps clisp-link.pdf /usr/bin/ld -m elf_x86_64 -r -o lisp.o spvw.o spvwtabf.o spvwtabs.o spvwtabo.o eval.o control.o encoding.o pathname.o stream.o socket.o io.o funarg.o array.o hashtabl.o list.o package.o record.o weak.o sequence.o charstrg.o debug.o error.o misc.o time.o predtype.o symbol.o lisparit.o i18n.o 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl '"'" ;\ echo 'X_LIBS='"'"''"'" ;\ echo 'RANLIB='"'"'ranlib'"'" ;\ echo 'FILES='"'"'lisp.a libgnu.a libnoreadline.a '"'") > makevars test -d boot || (mkdir boot && cd boot && for f in lisp.a libgnu.a libnoreadline.a modules.h modules.o lisp.run lispinit.mem; do ln -s ../$f .; done && (grep -v '^FILES=' ../makevars; fl=''; for f in lisp.a libgnu.a libnoreadline.a ; do fl=$fl' '`basename $f`; done; echo 'FILES='"'"$fl"'") > makevars) || (rm -rf boot ; exit 1) ./txt2c -I../src/ < ../src/_clisp.c > gen-clispc.c gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/gllib -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/src/gllib -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl -o clisp mkdir -p i18n m=`cd ../modules/i18n; pwd`; \ if test -f $m/configure && { test ! -f i18n/config.status || test -n "`find $m/configure -prune -newer i18n/config.status`"; } ; then ( cd i18n ;\ cache=`echo i18n/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache; \ if test -f ${cache} ; then \ . ${cache}; \ if test "${ac_cv_env_CC_set}" = set; then CC="${ac_cv_env_CC_value}"; export CC; fi; \ if test "${ac_cv_env_CFLAGS_set}" = set; then CFLAGS="${ac_cv_env_CFLAGS_value}"; export CFLAGS; fi; \ if test "${ac_cv_env_LDFLAGS_set}" = set; then LDFLAGS="${ac_cv_env_LDFLAGS_value}"; export LDFLAGS; fi; \ if test "${ac_cv_env_CLFLAGS_set}" = set; then CLFLAGS="${ac_cv_env_CLFLAGS_value}"; export CLFLAGS; fi; \ if test "${ac_cv_env_LIBS_set}" = set; then LIBS="${ac_cv_env_LIBS_value}"; export LIBS; fi; \ if test "${ac_cv_env_CPPFLAGS_set}" = set; then CPPFLAGS="${ac_cv_env_CPPFLAGS_value}"; export CPPFLAGS; fi; \ if test "${ac_cv_env_CPP_set}" = set; then CPP="${ac_cv_env_CPP_value}"; export CPP; fi; \ if test "${ac_cv_env_CXX_set}" = set; then CXX="${ac_cv_env_CXX_value}"; export CXX; fi; \ if test "${ac_cv_env_CXXFLAGS_set}" = set; then CXXFLAGS="${ac_cv_env_CXXFLAGS_value}"; export CXXFLAGS; fi; \ if test "${ac_cv_env_X_LIBS_set}" = set; then X_LIBS="${ac_cv_env_X_LIBS_value}"; export X_LIBS; fi; \ /bin/sh $m/configure --with-clisp="/builddir/build/BUILD/clisp-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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache configure: ** I18N (Common) checking how to remove colons from paths... (cached) echo $x checking for CLISP version... 2.49.93+ (2018-02-18) (built 3814128000) (memory 3814211680) 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1b8c000 - 0x1bacfff 0x100000000000 - 0x1000000bffff 0x147b8903b000 - 0x147b896dffff 0x147b896e0000 - 0x147b89733fff 0x147b89734000 - 0x147b89736fff 0x147b89737000 - 0x147b8975bfff 0x147b8975c000 - 0x147b898abfff 0x147b898ac000 - 0x147b898f6fff 0x147b898f7000 - 0x147b898f9fff 0x147b898fa000 - 0x147b898fcfff 0x147b898fd000 - 0x147b89900fff 0x147b89901000 - 0x147b89903fff 0x147b89904000 - 0x147b89915fff 0x147b89916000 - 0x147b89919fff 0x147b8991a000 - 0x147b8991afff 0x147b8991b000 - 0x147b8991bfff 0x147b8991c000 - 0x147b8991dfff 0x147b8991e000 - 0x147b8992efff 0x147b8992f000 - 0x147b89966fff 0x147b89967000 - 0x147b89a9dfff 0x147b89a9e000 - 0x147b89aa1fff 0x147b89aa2000 - 0x147b89aa2fff 0x147b89aa3000 - 0x147b89aa3fff 0x147b89aa4000 - 0x147b89aa5fff 0x147b89aa6000 - 0x147b89aa6fff 0x147b89aa7000 - 0x147b89aa7fff 0x147b89aa8000 - 0x147b89aa8fff 0x147b89aa9000 - 0x147b89aaafff 0x147b89aab000 - 0x147b89aadfff 0x147b89aae000 - 0x147b89aaefff 0x147b89aaf000 - 0x147b89aaffff 0x147b89ab0000 - 0x147b89ab0fff 0x147b89ab1000 - 0x147b89ab2fff 0x147b89ab3000 - 0x147b89ab4fff 0x147b89ab5000 - 0x147b89ab5fff 0x147b89ab6000 - 0x147b89ab6fff 0x147b89ab7000 - 0x147b89ab7fff 0x147b89ab8000 - 0x147b89ac5fff 0x147b89ac6000 - 0x147b89ad3fff 0x147b89ad4000 - 0x147b89ae1fff 0x147b89ae2000 - 0x147b89ae5fff 0x147b89ae6000 - 0x147b89ae6fff 0x147b89ae7000 - 0x147b89afcfff 0x147b89afd000 - 0x147b89b28fff 0x147b89b29000 - 0x147b89b31fff 0x147b89b32000 - 0x147b89b32fff 0x147b89b33000 - 0x147b89b35fff 0x147b89b36000 - 0x147b89b3bfff 0x147b89b3c000 - 0x147b89b3efff 0x147b89b41000 - 0x147b89b41fff 0x147b89b42000 - 0x147b89b42fff 0x147b89b43000 - 0x147b89b49fff 0x147b89b4a000 - 0x147b89b4bfff 0x147b89b4c000 - 0x147b89b6cfff 0x147b89b6d000 - 0x147b89b74fff 0x147b89b75000 - 0x147b89b75fff 0x147b89b76000 - 0x147b89b76fff 0x147b89b77000 - 0x147b89b77fff 0x147b89b78000 - 0x147b89b78fff 0x7fff4d4ce000 - 0x7fff4d4effff 0x7fff4d5f0000 - 0x7fff4d5f3fff 0x7fff4d5f4000 - 0x7fff4d5f5fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x242d000 - 0x244dfff 0x100000000000 - 0x1000000bffff 0x147249c3b000 - 0x14724a2dffff 0x14724a2e0000 - 0x14724a333fff 0x14724a334000 - 0x14724a336fff 0x14724a337000 - 0x14724a35bfff 0x14724a35c000 - 0x14724a4abfff 0x14724a4ac000 - 0x14724a4f6fff 0x14724a4f7000 - 0x14724a4f9fff 0x14724a4fa000 - 0x14724a4fcfff 0x14724a4fd000 - 0x14724a500fff 0x14724a501000 - 0x14724a503fff 0x14724a504000 - 0x14724a515fff 0x14724a516000 - 0x14724a519fff 0x14724a51a000 - 0x14724a51afff 0x14724a51b000 - 0x14724a51bfff 0x14724a51c000 - 0x14724a51dfff 0x14724a51e000 - 0x14724a52efff 0x14724a52f000 - 0x14724a566fff 0x14724a567000 - 0x14724a69dfff 0x14724a69e000 - 0x14724a6a1fff 0x14724a6a2000 - 0x14724a6a2fff 0x14724a6a3000 - 0x14724a6a3fff 0x14724a6a4000 - 0x14724a6a5fff 0x14724a6a6000 - 0x14724a6a6fff 0x14724a6a7000 - 0x14724a6a7fff 0x14724a6a8000 - 0x14724a6a8fff 0x14724a6a9000 - 0x14724a6aafff 0x14724a6ab000 - 0x14724a6adfff 0x14724a6ae000 - 0x14724a6aefff 0x14724a6af000 - 0x14724a6affff 0x14724a6b0000 - 0x14724a6b0fff 0x14724a6b1000 - 0x14724a6b2fff 0x14724a6b3000 - 0x14724a6b4fff 0x14724a6b5000 - 0x14724a6b5fff 0x14724a6b6000 - 0x14724a6b6fff 0x14724a6b7000 - 0x14724a6b7fff 0x14724a6b8000 - 0x14724a6c5fff 0x14724a6c6000 - 0x14724a6d3fff 0x14724a6d4000 - 0x14724a6e1fff 0x14724a6e2000 - 0x14724a6e5fff 0x14724a6e6000 - 0x14724a6e6fff 0x14724a6e7000 - 0x14724a6fcfff 0x14724a6fd000 - 0x14724a728fff 0x14724a729000 - 0x14724a731fff 0x14724a732000 - 0x14724a732fff 0x14724a733000 - 0x14724a735fff 0x14724a736000 - 0x14724a73bfff 0x14724a73c000 - 0x14724a73efff 0x14724a741000 - 0x14724a741fff 0x14724a742000 - 0x14724a742fff 0x14724a743000 - 0x14724a749fff 0x14724a74a000 - 0x14724a74bfff 0x14724a74c000 - 0x14724a76cfff 0x14724a76d000 - 0x14724a774fff 0x14724a775000 - 0x14724a775fff 0x14724a776000 - 0x14724a776fff 0x14724a777000 - 0x14724a777fff 0x14724a778000 - 0x14724a778fff 0x7ffdb8f1b000 - 0x7ffdb8f3cfff 0x7ffdb8fd3000 - 0x7ffdb8fd6fff 0x7ffdb8fd7000 - 0x7ffdb8fd8fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I. -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit \ -c gettext.m.c -o gettext.o 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache 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 3814128000) (memory 3814211680) 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) x86_64-pc-linux-gnu checking host system type... (cached) x86_64-pc-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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x12e8000 - 0x1308fff 0x100000000000 - 0x1000000bffff 0x14b406808000 - 0x14b406eacfff 0x14b406ead000 - 0x14b406f00fff 0x14b406f01000 - 0x14b406f03fff 0x14b406f04000 - 0x14b406f28fff 0x14b406f29000 - 0x14b407078fff 0x14b407079000 - 0x14b4070c3fff 0x14b4070c4000 - 0x14b4070c6fff 0x14b4070c7000 - 0x14b4070c9fff 0x14b4070ca000 - 0x14b4070cdfff 0x14b4070ce000 - 0x14b4070d0fff 0x14b4070d1000 - 0x14b4070e2fff 0x14b4070e3000 - 0x14b4070e6fff 0x14b4070e7000 - 0x14b4070e7fff 0x14b4070e8000 - 0x14b4070e8fff 0x14b4070e9000 - 0x14b4070eafff 0x14b4070eb000 - 0x14b4070fbfff 0x14b4070fc000 - 0x14b407133fff 0x14b407134000 - 0x14b40726afff 0x14b40726b000 - 0x14b40726efff 0x14b40726f000 - 0x14b40726ffff 0x14b407270000 - 0x14b407270fff 0x14b407271000 - 0x14b407272fff 0x14b407273000 - 0x14b407273fff 0x14b407274000 - 0x14b407274fff 0x14b407275000 - 0x14b407275fff 0x14b407276000 - 0x14b407277fff 0x14b407278000 - 0x14b40727afff 0x14b40727b000 - 0x14b40727bfff 0x14b40727c000 - 0x14b40727cfff 0x14b40727d000 - 0x14b40727dfff 0x14b40727e000 - 0x14b40727ffff 0x14b407280000 - 0x14b407281fff 0x14b407282000 - 0x14b407282fff 0x14b407283000 - 0x14b407283fff 0x14b407284000 - 0x14b407284fff 0x14b407285000 - 0x14b407292fff 0x14b407293000 - 0x14b4072a0fff 0x14b4072a1000 - 0x14b4072aefff 0x14b4072af000 - 0x14b4072b2fff 0x14b4072b3000 - 0x14b4072b3fff 0x14b4072b4000 - 0x14b4072c9fff 0x14b4072ca000 - 0x14b4072f5fff 0x14b4072f6000 - 0x14b4072fefff 0x14b4072ff000 - 0x14b4072fffff 0x14b407300000 - 0x14b407302fff 0x14b407303000 - 0x14b407308fff 0x14b407309000 - 0x14b40730bfff 0x14b40730e000 - 0x14b40730efff 0x14b40730f000 - 0x14b40730ffff 0x14b407310000 - 0x14b407316fff 0x14b407317000 - 0x14b407318fff 0x14b407319000 - 0x14b407339fff 0x14b40733a000 - 0x14b407341fff 0x14b407342000 - 0x14b407342fff 0x14b407343000 - 0x14b407343fff 0x14b407344000 - 0x14b407344fff 0x14b407345000 - 0x14b407345fff 0x7ffd2db48000 - 0x7ffd2db69fff 0x7ffd2dbdf000 - 0x7ffd2dbe2fff 0x7ffd2dbe3000 - 0x7ffd2dbe4fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xbcc000 - 0xbecfff 0x100000000000 - 0x1000000bffff 0x14a3c4c0d000 - 0x14a3c52b1fff 0x14a3c52b2000 - 0x14a3c5305fff 0x14a3c5306000 - 0x14a3c5308fff 0x14a3c5309000 - 0x14a3c532dfff 0x14a3c532e000 - 0x14a3c547dfff 0x14a3c547e000 - 0x14a3c54c8fff 0x14a3c54c9000 - 0x14a3c54cbfff 0x14a3c54cc000 - 0x14a3c54cefff 0x14a3c54cf000 - 0x14a3c54d2fff 0x14a3c54d3000 - 0x14a3c54d5fff 0x14a3c54d6000 - 0x14a3c54e7fff 0x14a3c54e8000 - 0x14a3c54ebfff 0x14a3c54ec000 - 0x14a3c54ecfff 0x14a3c54ed000 - 0x14a3c54edfff 0x14a3c54ee000 - 0x14a3c54effff 0x14a3c54f0000 - 0x14a3c5500fff 0x14a3c5501000 - 0x14a3c5538fff 0x14a3c5539000 - 0x14a3c566ffff 0x14a3c5670000 - 0x14a3c5673fff 0x14a3c5674000 - 0x14a3c5674fff 0x14a3c5675000 - 0x14a3c5675fff 0x14a3c5676000 - 0x14a3c5677fff 0x14a3c5678000 - 0x14a3c5678fff 0x14a3c5679000 - 0x14a3c5679fff 0x14a3c567a000 - 0x14a3c567afff 0x14a3c567b000 - 0x14a3c567cfff 0x14a3c567d000 - 0x14a3c567ffff 0x14a3c5680000 - 0x14a3c5680fff 0x14a3c5681000 - 0x14a3c5681fff 0x14a3c5682000 - 0x14a3c5682fff 0x14a3c5683000 - 0x14a3c5684fff 0x14a3c5685000 - 0x14a3c5686fff 0x14a3c5687000 - 0x14a3c5687fff 0x14a3c5688000 - 0x14a3c5688fff 0x14a3c5689000 - 0x14a3c5689fff 0x14a3c568a000 - 0x14a3c5697fff 0x14a3c5698000 - 0x14a3c56a5fff 0x14a3c56a6000 - 0x14a3c56b3fff 0x14a3c56b4000 - 0x14a3c56b7fff 0x14a3c56b8000 - 0x14a3c56b8fff 0x14a3c56b9000 - 0x14a3c56cefff 0x14a3c56cf000 - 0x14a3c56fafff 0x14a3c56fb000 - 0x14a3c5703fff 0x14a3c5704000 - 0x14a3c5704fff 0x14a3c5705000 - 0x14a3c5707fff 0x14a3c5708000 - 0x14a3c570dfff 0x14a3c570e000 - 0x14a3c5710fff 0x14a3c5713000 - 0x14a3c5713fff 0x14a3c5714000 - 0x14a3c5714fff 0x14a3c5715000 - 0x14a3c571bfff 0x14a3c571c000 - 0x14a3c571dfff 0x14a3c571e000 - 0x14a3c573efff 0x14a3c573f000 - 0x14a3c5746fff 0x14a3c5747000 - 0x14a3c5747fff 0x14a3c5748000 - 0x14a3c5748fff 0x14a3c5749000 - 0x14a3c5749fff 0x14a3c574a000 - 0x14a3c574afff 0x7ffe9c0a0000 - 0x7ffe9c0c1fff 0x7ffe9c184000 - 0x7ffe9c187fff 0x7ffe9c188000 - 0x7ffe9c189fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache 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 3814128000) (memory 3814211680) 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x10ff000 - 0x111ffff 0x100000000000 - 0x1000000bffff 0x1457de1c7000 - 0x1457de86bfff 0x1457de86c000 - 0x1457de8bffff 0x1457de8c0000 - 0x1457de8c2fff 0x1457de8c3000 - 0x1457de8e7fff 0x1457de8e8000 - 0x1457dea37fff 0x1457dea38000 - 0x1457dea82fff 0x1457dea83000 - 0x1457dea85fff 0x1457dea86000 - 0x1457dea88fff 0x1457dea89000 - 0x1457dea8cfff 0x1457dea8d000 - 0x1457dea8ffff 0x1457dea90000 - 0x1457deaa1fff 0x1457deaa2000 - 0x1457deaa5fff 0x1457deaa6000 - 0x1457deaa6fff 0x1457deaa7000 - 0x1457deaa7fff 0x1457deaa8000 - 0x1457deaa9fff 0x1457deaaa000 - 0x1457deabafff 0x1457deabb000 - 0x1457deaf2fff 0x1457deaf3000 - 0x1457dec29fff 0x1457dec2a000 - 0x1457dec2dfff 0x1457dec2e000 - 0x1457dec2efff 0x1457dec2f000 - 0x1457dec2ffff 0x1457dec30000 - 0x1457dec31fff 0x1457dec32000 - 0x1457dec32fff 0x1457dec33000 - 0x1457dec33fff 0x1457dec34000 - 0x1457dec34fff 0x1457dec35000 - 0x1457dec36fff 0x1457dec37000 - 0x1457dec39fff 0x1457dec3a000 - 0x1457dec3afff 0x1457dec3b000 - 0x1457dec3bfff 0x1457dec3c000 - 0x1457dec3cfff 0x1457dec3d000 - 0x1457dec3efff 0x1457dec3f000 - 0x1457dec40fff 0x1457dec41000 - 0x1457dec41fff 0x1457dec42000 - 0x1457dec42fff 0x1457dec43000 - 0x1457dec43fff 0x1457dec44000 - 0x1457dec51fff 0x1457dec52000 - 0x1457dec5ffff 0x1457dec60000 - 0x1457dec6dfff 0x1457dec6e000 - 0x1457dec71fff 0x1457dec72000 - 0x1457dec72fff 0x1457dec73000 - 0x1457dec88fff 0x1457dec89000 - 0x1457decb4fff 0x1457decb5000 - 0x1457decbdfff 0x1457decbe000 - 0x1457decbefff 0x1457decbf000 - 0x1457decc1fff 0x1457decc2000 - 0x1457decc7fff 0x1457decc8000 - 0x1457deccafff 0x1457deccd000 - 0x1457deccdfff 0x1457decce000 - 0x1457deccefff 0x1457deccf000 - 0x1457decd5fff 0x1457decd6000 - 0x1457decd7fff 0x1457decd8000 - 0x1457decf8fff 0x1457decf9000 - 0x1457ded00fff 0x1457ded01000 - 0x1457ded01fff 0x1457ded02000 - 0x1457ded02fff 0x1457ded03000 - 0x1457ded03fff 0x1457ded04000 - 0x1457ded04fff 0x7ffde946b000 - 0x7ffde948cfff 0x7ffde95a8000 - 0x7ffde95abfff 0x7ffde95ac000 - 0x7ffde95adfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x14f6000 - 0x1516fff 0x100000000000 - 0x1000000bffff 0x148870cb5000 - 0x148871359fff 0x14887135a000 - 0x1488713adfff 0x1488713ae000 - 0x1488713b0fff 0x1488713b1000 - 0x1488713d5fff 0x1488713d6000 - 0x148871525fff 0x148871526000 - 0x148871570fff 0x148871571000 - 0x148871573fff 0x148871574000 - 0x148871576fff 0x148871577000 - 0x14887157afff 0x14887157b000 - 0x14887157dfff 0x14887157e000 - 0x14887158ffff 0x148871590000 - 0x148871593fff 0x148871594000 - 0x148871594fff 0x148871595000 - 0x148871595fff 0x148871596000 - 0x148871597fff 0x148871598000 - 0x1488715a8fff 0x1488715a9000 - 0x1488715e0fff 0x1488715e1000 - 0x148871717fff 0x148871718000 - 0x14887171bfff 0x14887171c000 - 0x14887171cfff 0x14887171d000 - 0x14887171dfff 0x14887171e000 - 0x14887171ffff 0x148871720000 - 0x148871720fff 0x148871721000 - 0x148871721fff 0x148871722000 - 0x148871722fff 0x148871723000 - 0x148871724fff 0x148871725000 - 0x148871727fff 0x148871728000 - 0x148871728fff 0x148871729000 - 0x148871729fff 0x14887172a000 - 0x14887172afff 0x14887172b000 - 0x14887172cfff 0x14887172d000 - 0x14887172efff 0x14887172f000 - 0x14887172ffff 0x148871730000 - 0x148871730fff 0x148871731000 - 0x148871731fff 0x148871732000 - 0x14887173ffff 0x148871740000 - 0x14887174dfff 0x14887174e000 - 0x14887175bfff 0x14887175c000 - 0x14887175ffff 0x148871760000 - 0x148871760fff 0x148871761000 - 0x148871776fff 0x148871777000 - 0x1488717a2fff 0x1488717a3000 - 0x1488717abfff 0x1488717ac000 - 0x1488717acfff 0x1488717ad000 - 0x1488717affff 0x1488717b0000 - 0x1488717b5fff 0x1488717b6000 - 0x1488717b8fff 0x1488717bb000 - 0x1488717bbfff 0x1488717bc000 - 0x1488717bcfff 0x1488717bd000 - 0x1488717c3fff 0x1488717c4000 - 0x1488717c5fff 0x1488717c6000 - 0x1488717e6fff 0x1488717e7000 - 0x1488717eefff 0x1488717ef000 - 0x1488717effff 0x1488717f0000 - 0x1488717f0fff 0x1488717f1000 - 0x1488717f1fff 0x1488717f2000 - 0x1488717f2fff 0x7fff3025b000 - 0x7fff3027cfff 0x7fff3038d000 - 0x7fff30390fff 0x7fff30391000 - 0x7fff30392fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache 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 3814128000) (memory 3814211680) 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) x86_64-pc-linux-gnu checking host system type... (cached) x86_64-pc-linux-gnu checking for ld used by gcc... (cached) /usr/bin/ld checking if the linker (/usr/bin/ld) is GNU ld... (cached) yes checking for shared library run path origin... (cached) done checking host CPU and C ABI... (cached) x86_64 checking for the common suffixes of directories in the library search path... (cached) lib64,lib64 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x22d7000 - 0x22f7fff 0x100000000000 - 0x1000000bffff 0x145fb8048000 - 0x145fb86ecfff 0x145fb86ed000 - 0x145fb8740fff 0x145fb8741000 - 0x145fb8743fff 0x145fb8744000 - 0x145fb8768fff 0x145fb8769000 - 0x145fb88b8fff 0x145fb88b9000 - 0x145fb8903fff 0x145fb8904000 - 0x145fb8906fff 0x145fb8907000 - 0x145fb8909fff 0x145fb890a000 - 0x145fb890dfff 0x145fb890e000 - 0x145fb8910fff 0x145fb8911000 - 0x145fb8922fff 0x145fb8923000 - 0x145fb8926fff 0x145fb8927000 - 0x145fb8927fff 0x145fb8928000 - 0x145fb8928fff 0x145fb8929000 - 0x145fb892afff 0x145fb892b000 - 0x145fb893bfff 0x145fb893c000 - 0x145fb8973fff 0x145fb8974000 - 0x145fb8aaafff 0x145fb8aab000 - 0x145fb8aaefff 0x145fb8aaf000 - 0x145fb8aaffff 0x145fb8ab0000 - 0x145fb8ab0fff 0x145fb8ab1000 - 0x145fb8ab2fff 0x145fb8ab3000 - 0x145fb8ab3fff 0x145fb8ab4000 - 0x145fb8ab4fff 0x145fb8ab5000 - 0x145fb8ab5fff 0x145fb8ab6000 - 0x145fb8ab7fff 0x145fb8ab8000 - 0x145fb8abafff 0x145fb8abb000 - 0x145fb8abbfff 0x145fb8abc000 - 0x145fb8abcfff 0x145fb8abd000 - 0x145fb8abdfff 0x145fb8abe000 - 0x145fb8abffff 0x145fb8ac0000 - 0x145fb8ac1fff 0x145fb8ac2000 - 0x145fb8ac2fff 0x145fb8ac3000 - 0x145fb8ac3fff 0x145fb8ac4000 - 0x145fb8ac4fff 0x145fb8ac5000 - 0x145fb8ad2fff 0x145fb8ad3000 - 0x145fb8ae0fff 0x145fb8ae1000 - 0x145fb8aeefff 0x145fb8aef000 - 0x145fb8af2fff 0x145fb8af3000 - 0x145fb8af3fff 0x145fb8af4000 - 0x145fb8b09fff 0x145fb8b0a000 - 0x145fb8b35fff 0x145fb8b36000 - 0x145fb8b3efff 0x145fb8b3f000 - 0x145fb8b3ffff 0x145fb8b40000 - 0x145fb8b42fff 0x145fb8b43000 - 0x145fb8b48fff 0x145fb8b49000 - 0x145fb8b4bfff 0x145fb8b4e000 - 0x145fb8b4efff 0x145fb8b4f000 - 0x145fb8b4ffff 0x145fb8b50000 - 0x145fb8b56fff 0x145fb8b57000 - 0x145fb8b58fff 0x145fb8b59000 - 0x145fb8b79fff 0x145fb8b7a000 - 0x145fb8b81fff 0x145fb8b82000 - 0x145fb8b82fff 0x145fb8b83000 - 0x145fb8b83fff 0x145fb8b84000 - 0x145fb8b84fff 0x145fb8b85000 - 0x145fb8b85fff 0x7ffc8981d000 - 0x7ffc8983efff 0x7ffc89901000 - 0x7ffc89904fff 0x7ffc89905000 - 0x7ffc89906fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit -c modules.c gcc -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl -o lisp.run boot/lisp.run -B . -M boot/lispinit.mem -norc -q -i i18n/preload.lisp -i syscalls/preload.lisp -i regexp/preload.lisp -x (saveinitmem "base/lispinit.mem") Warning: reserving address range 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xf13000 - 0xf33fff 0x100000000000 - 0x1000000bffff 0x153d3d9d9000 - 0x153d3e07dfff 0x153d3e07e000 - 0x153d3e0d1fff 0x153d3e0d2000 - 0x153d3e0d4fff 0x153d3e0d5000 - 0x153d3e0f9fff 0x153d3e0fa000 - 0x153d3e249fff 0x153d3e24a000 - 0x153d3e294fff 0x153d3e295000 - 0x153d3e297fff 0x153d3e298000 - 0x153d3e29afff 0x153d3e29b000 - 0x153d3e29efff 0x153d3e29f000 - 0x153d3e2a1fff 0x153d3e2a2000 - 0x153d3e2b3fff 0x153d3e2b4000 - 0x153d3e2b7fff 0x153d3e2b8000 - 0x153d3e2b8fff 0x153d3e2b9000 - 0x153d3e2b9fff 0x153d3e2ba000 - 0x153d3e2bbfff 0x153d3e2bc000 - 0x153d3e2ccfff 0x153d3e2cd000 - 0x153d3e304fff 0x153d3e305000 - 0x153d3e43bfff 0x153d3e43c000 - 0x153d3e43ffff 0x153d3e440000 - 0x153d3e440fff 0x153d3e441000 - 0x153d3e441fff 0x153d3e442000 - 0x153d3e443fff 0x153d3e444000 - 0x153d3e444fff 0x153d3e445000 - 0x153d3e445fff 0x153d3e446000 - 0x153d3e446fff 0x153d3e447000 - 0x153d3e448fff 0x153d3e449000 - 0x153d3e44bfff 0x153d3e44c000 - 0x153d3e44cfff 0x153d3e44d000 - 0x153d3e44dfff 0x153d3e44e000 - 0x153d3e44efff 0x153d3e44f000 - 0x153d3e450fff 0x153d3e451000 - 0x153d3e452fff 0x153d3e453000 - 0x153d3e453fff 0x153d3e454000 - 0x153d3e454fff 0x153d3e455000 - 0x153d3e455fff 0x153d3e456000 - 0x153d3e463fff 0x153d3e464000 - 0x153d3e471fff 0x153d3e472000 - 0x153d3e47ffff 0x153d3e480000 - 0x153d3e483fff 0x153d3e484000 - 0x153d3e484fff 0x153d3e485000 - 0x153d3e49afff 0x153d3e49b000 - 0x153d3e4c6fff 0x153d3e4c7000 - 0x153d3e4cffff 0x153d3e4d0000 - 0x153d3e4d0fff 0x153d3e4d1000 - 0x153d3e4d3fff 0x153d3e4d4000 - 0x153d3e4d9fff 0x153d3e4da000 - 0x153d3e4dcfff 0x153d3e4df000 - 0x153d3e4dffff 0x153d3e4e0000 - 0x153d3e4e0fff 0x153d3e4e1000 - 0x153d3e4e7fff 0x153d3e4e8000 - 0x153d3e4e9fff 0x153d3e4ea000 - 0x153d3e50afff 0x153d3e50b000 - 0x153d3e512fff 0x153d3e513000 - 0x153d3e513fff 0x153d3e514000 - 0x153d3e514fff 0x153d3e515000 - 0x153d3e515fff 0x153d3e516000 - 0x153d3e516fff 0x7fff4abe3000 - 0x7fff4ac03fff 0x7fff4ac72000 - 0x7fff4ac75fff 0x7fff4ac76000 - 0x7fff4ac77fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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,315,224 bytes) Bytes permanently allocated: 173,424 Bytes currently in use: 3,138,968 Bytes available until next GC: 780,632 3138968 ; 780632 ; 173424 ; 1 ; 256680 ; 11440 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0x1af8000 - 0x1b18fff 0x100000000000 - 0x1000000bffff 0x1534c0ad3000 - 0x1534c1177fff 0x1534c1178000 - 0x1534c11cbfff 0x1534c11cc000 - 0x1534c11cdfff 0x1534c11ce000 - 0x1534c11f2fff 0x1534c11f3000 - 0x1534c1342fff 0x1534c1343000 - 0x1534c138dfff 0x1534c138e000 - 0x1534c1390fff 0x1534c1391000 - 0x1534c1393fff 0x1534c1394000 - 0x1534c1397fff 0x1534c1398000 - 0x1534c139afff 0x1534c139b000 - 0x1534c13acfff 0x1534c13ad000 - 0x1534c13b0fff 0x1534c13b1000 - 0x1534c13b1fff 0x1534c13b2000 - 0x1534c13b2fff 0x1534c13b3000 - 0x1534c13c3fff 0x1534c13c4000 - 0x1534c13fbfff 0x1534c13fc000 - 0x1534c1532fff 0x1534c1533000 - 0x1534c1536fff 0x1534c1537000 - 0x1534c1537fff 0x1534c1538000 - 0x1534c1538fff 0x1534c1539000 - 0x1534c153afff 0x1534c153b000 - 0x1534c153bfff 0x1534c153c000 - 0x1534c153cfff 0x1534c153d000 - 0x1534c153dfff 0x1534c153e000 - 0x1534c153ffff 0x1534c1540000 - 0x1534c1541fff 0x1534c1542000 - 0x1534c1544fff 0x1534c1545000 - 0x1534c1545fff 0x1534c1546000 - 0x1534c1546fff 0x1534c1547000 - 0x1534c1547fff 0x1534c1548000 - 0x1534c1549fff 0x1534c154a000 - 0x1534c154bfff 0x1534c154c000 - 0x1534c154cfff 0x1534c154d000 - 0x1534c154dfff 0x1534c154e000 - 0x1534c154efff 0x1534c154f000 - 0x1534c155cfff 0x1534c155d000 - 0x1534c156afff 0x1534c156b000 - 0x1534c1578fff 0x1534c1579000 - 0x1534c157cfff 0x1534c157d000 - 0x1534c157dfff 0x1534c157e000 - 0x1534c157ffff 0x1534c1580000 - 0x1534c1594fff 0x1534c1595000 - 0x1534c15aefff 0x1534c15af000 - 0x1534c15affff 0x1534c15b0000 - 0x1534c15b8fff 0x1534c15b9000 - 0x1534c15c7fff 0x1534c15c8000 - 0x1534c1663fff 0x1534c1664000 - 0x1534c16fcfff 0x1534c16fd000 - 0x1534c16fdfff 0x1534c16fe000 - 0x1534c16fefff 0x1534c16ff000 - 0x1534c1714fff 0x1534c1715000 - 0x1534c1740fff 0x1534c1741000 - 0x1534c1749fff 0x1534c174a000 - 0x1534c174afff 0x1534c174b000 - 0x1534c174dfff 0x1534c174e000 - 0x1534c1753fff 0x1534c1754000 - 0x1534c1756fff 0x1534c1759000 - 0x1534c1759fff 0x1534c175a000 - 0x1534c175afff 0x1534c175b000 - 0x1534c1761fff 0x1534c1762000 - 0x1534c1763fff 0x1534c1764000 - 0x1534c1784fff 0x1534c1785000 - 0x1534c178cfff 0x1534c178d000 - 0x1534c178dfff 0x1534c178e000 - 0x1534c178efff 0x1534c178f000 - 0x1534c178ffff 0x1534c1790000 - 0x1534c1790fff 0x7ffdd9774000 - 0x7ffdd9794fff 0x7ffdd979a000 - 0x7ffdd979dfff 0x7ffdd979e000 - 0x7ffdd979ffff 0xffffffffff600000 - 0xffffffffff600fff ;; 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,797,928 bytes) Bytes permanently allocated: 179,976 Bytes currently in use: 3,609,864 Bytes available until next GC: 898,356 3609864 ; 898356 ; 179976 ; 3 ; 1574840 ; 25559 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0x1dad000 - 0x1dcdfff 0x100000000000 - 0x1000000bffff 0x152000207000 - 0x1520008abfff 0x1520008ac000 - 0x1520008fffff 0x152000900000 - 0x152000901fff 0x152000902000 - 0x152000926fff 0x152000927000 - 0x152000a76fff 0x152000a77000 - 0x152000ac1fff 0x152000ac2000 - 0x152000ac4fff 0x152000ac5000 - 0x152000ac7fff 0x152000ac8000 - 0x152000acbfff 0x152000acc000 - 0x152000acefff 0x152000acf000 - 0x152000ae0fff 0x152000ae1000 - 0x152000ae4fff 0x152000ae5000 - 0x152000ae5fff 0x152000ae6000 - 0x152000ae6fff 0x152000ae7000 - 0x152000af7fff 0x152000af8000 - 0x152000b2ffff 0x152000b30000 - 0x152000c66fff 0x152000c67000 - 0x152000c6afff 0x152000c6b000 - 0x152000c6bfff 0x152000c6c000 - 0x152000c6cfff 0x152000c6d000 - 0x152000c6efff 0x152000c6f000 - 0x152000c6ffff 0x152000c70000 - 0x152000c70fff 0x152000c71000 - 0x152000c71fff 0x152000c72000 - 0x152000c73fff 0x152000c74000 - 0x152000c75fff 0x152000c76000 - 0x152000c78fff 0x152000c79000 - 0x152000c79fff 0x152000c7a000 - 0x152000c7afff 0x152000c7b000 - 0x152000c7bfff 0x152000c7c000 - 0x152000c7dfff 0x152000c7e000 - 0x152000c7ffff 0x152000c80000 - 0x152000c80fff 0x152000c81000 - 0x152000c81fff 0x152000c82000 - 0x152000c82fff 0x152000c83000 - 0x152000c90fff 0x152000c91000 - 0x152000c9efff 0x152000c9f000 - 0x152000cacfff 0x152000cad000 - 0x152000cb0fff 0x152000cb1000 - 0x152000cb1fff 0x152000cb2000 - 0x152000cb3fff 0x152000cb4000 - 0x152000cc8fff 0x152000cc9000 - 0x152000ce2fff 0x152000ce3000 - 0x152000ce3fff 0x152000ce4000 - 0x152000cecfff 0x152000ced000 - 0x152000cfbfff 0x152000cfc000 - 0x152000d97fff 0x152000d98000 - 0x152000e30fff 0x152000e31000 - 0x152000e31fff 0x152000e32000 - 0x152000e32fff 0x152000e33000 - 0x152000e48fff 0x152000e49000 - 0x152000e74fff 0x152000e75000 - 0x152000e7dfff 0x152000e7e000 - 0x152000e7efff 0x152000e7f000 - 0x152000e81fff 0x152000e82000 - 0x152000e87fff 0x152000e88000 - 0x152000e8afff 0x152000e8d000 - 0x152000e8dfff 0x152000e8e000 - 0x152000e8efff 0x152000e8f000 - 0x152000e95fff 0x152000e96000 - 0x152000e97fff 0x152000e98000 - 0x152000eb8fff 0x152000eb9000 - 0x152000ec0fff 0x152000ec1000 - 0x152000ec1fff 0x152000ec2000 - 0x152000ec2fff 0x152000ec3000 - 0x152000ec3fff 0x152000ec4000 - 0x152000ec4fff 0x7ffc57625000 - 0x7ffc57646fff 0x7ffc57713000 - 0x7ffc57716fff 0x7ffc57717000 - 0x7ffc57718fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache 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 3814128000) (memory 3814211680) 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) x86_64-pc-linux-gnu checking host system type... (cached) x86_64-pc-linux-gnu checking for ld used by gcc... (cached) /usr/bin/ld checking if the linker (/usr/bin/ld) is GNU ld... (cached) yes checking for shared library run path origin... (cached) done checking host CPU and C ABI... (cached) x86_64 checking for the common suffixes of directories in the library search path... (cached) lib64,lib64 checking how to link with libdb... /usr/lib64/libdb.so 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0x25e4000 - 0x2604fff 0x100000000000 - 0x1000000bffff 0x14f6a9458000 - 0x14f6a9afcfff 0x14f6a9afd000 - 0x14f6a9b50fff 0x14f6a9b51000 - 0x14f6a9b52fff 0x14f6a9b53000 - 0x14f6a9b77fff 0x14f6a9b78000 - 0x14f6a9cc7fff 0x14f6a9cc8000 - 0x14f6a9d12fff 0x14f6a9d13000 - 0x14f6a9d15fff 0x14f6a9d16000 - 0x14f6a9d18fff 0x14f6a9d19000 - 0x14f6a9d1cfff 0x14f6a9d1d000 - 0x14f6a9d1ffff 0x14f6a9d20000 - 0x14f6a9d31fff 0x14f6a9d32000 - 0x14f6a9d35fff 0x14f6a9d36000 - 0x14f6a9d36fff 0x14f6a9d37000 - 0x14f6a9d37fff 0x14f6a9d38000 - 0x14f6a9d48fff 0x14f6a9d49000 - 0x14f6a9d80fff 0x14f6a9d81000 - 0x14f6a9eb7fff 0x14f6a9eb8000 - 0x14f6a9ebbfff 0x14f6a9ebc000 - 0x14f6a9ebcfff 0x14f6a9ebd000 - 0x14f6a9ebdfff 0x14f6a9ebe000 - 0x14f6a9ebffff 0x14f6a9ec0000 - 0x14f6a9ec0fff 0x14f6a9ec1000 - 0x14f6a9ec1fff 0x14f6a9ec2000 - 0x14f6a9ec2fff 0x14f6a9ec3000 - 0x14f6a9ec4fff 0x14f6a9ec5000 - 0x14f6a9ec6fff 0x14f6a9ec7000 - 0x14f6a9ec9fff 0x14f6a9eca000 - 0x14f6a9ecafff 0x14f6a9ecb000 - 0x14f6a9ecbfff 0x14f6a9ecc000 - 0x14f6a9eccfff 0x14f6a9ecd000 - 0x14f6a9ecefff 0x14f6a9ecf000 - 0x14f6a9ed0fff 0x14f6a9ed1000 - 0x14f6a9ed1fff 0x14f6a9ed2000 - 0x14f6a9ed2fff 0x14f6a9ed3000 - 0x14f6a9ed3fff 0x14f6a9ed4000 - 0x14f6a9ee1fff 0x14f6a9ee2000 - 0x14f6a9eeffff 0x14f6a9ef0000 - 0x14f6a9efdfff 0x14f6a9efe000 - 0x14f6a9f01fff 0x14f6a9f02000 - 0x14f6a9f02fff 0x14f6a9f03000 - 0x14f6a9f04fff 0x14f6a9f05000 - 0x14f6a9f19fff 0x14f6a9f1a000 - 0x14f6a9f33fff 0x14f6a9f34000 - 0x14f6a9f34fff 0x14f6a9f35000 - 0x14f6a9f3dfff 0x14f6a9f3e000 - 0x14f6a9f4cfff 0x14f6a9f4d000 - 0x14f6a9fe8fff 0x14f6a9fe9000 - 0x14f6aa081fff 0x14f6aa082000 - 0x14f6aa082fff 0x14f6aa083000 - 0x14f6aa083fff 0x14f6aa084000 - 0x14f6aa099fff 0x14f6aa09a000 - 0x14f6aa0c5fff 0x14f6aa0c6000 - 0x14f6aa0cefff 0x14f6aa0cf000 - 0x14f6aa0cffff 0x14f6aa0d0000 - 0x14f6aa0d2fff 0x14f6aa0d3000 - 0x14f6aa0d8fff 0x14f6aa0d9000 - 0x14f6aa0dbfff 0x14f6aa0de000 - 0x14f6aa0defff 0x14f6aa0df000 - 0x14f6aa0dffff 0x14f6aa0e0000 - 0x14f6aa0e6fff 0x14f6aa0e7000 - 0x14f6aa0e8fff 0x14f6aa0e9000 - 0x14f6aa109fff 0x14f6aa10a000 - 0x14f6aa111fff 0x14f6aa112000 - 0x14f6aa112fff 0x14f6aa113000 - 0x14f6aa113fff 0x14f6aa114000 - 0x14f6aa114fff 0x14f6aa115000 - 0x14f6aa115fff 0x7fffccc91000 - 0x7fffcccb2fff 0x7fffccd9b000 - 0x7fffccd9efff 0x7fffccd9f000 - 0x7fffccda0fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0x2154000 - 0x2174fff 0x100000000000 - 0x1000000bffff 0x14c3ef02a000 - 0x14c3ef6cefff 0x14c3ef6cf000 - 0x14c3ef722fff 0x14c3ef723000 - 0x14c3ef724fff 0x14c3ef725000 - 0x14c3ef749fff 0x14c3ef74a000 - 0x14c3ef899fff 0x14c3ef89a000 - 0x14c3ef8e4fff 0x14c3ef8e5000 - 0x14c3ef8e7fff 0x14c3ef8e8000 - 0x14c3ef8eafff 0x14c3ef8eb000 - 0x14c3ef8eefff 0x14c3ef8ef000 - 0x14c3ef8f1fff 0x14c3ef8f2000 - 0x14c3ef903fff 0x14c3ef904000 - 0x14c3ef907fff 0x14c3ef908000 - 0x14c3ef908fff 0x14c3ef909000 - 0x14c3ef909fff 0x14c3ef90a000 - 0x14c3ef91afff 0x14c3ef91b000 - 0x14c3ef952fff 0x14c3ef953000 - 0x14c3efa89fff 0x14c3efa8a000 - 0x14c3efa8dfff 0x14c3efa8e000 - 0x14c3efa8efff 0x14c3efa8f000 - 0x14c3efa8ffff 0x14c3efa90000 - 0x14c3efa91fff 0x14c3efa92000 - 0x14c3efa92fff 0x14c3efa93000 - 0x14c3efa93fff 0x14c3efa94000 - 0x14c3efa94fff 0x14c3efa95000 - 0x14c3efa96fff 0x14c3efa97000 - 0x14c3efa98fff 0x14c3efa99000 - 0x14c3efa9bfff 0x14c3efa9c000 - 0x14c3efa9cfff 0x14c3efa9d000 - 0x14c3efa9dfff 0x14c3efa9e000 - 0x14c3efa9efff 0x14c3efa9f000 - 0x14c3efaa0fff 0x14c3efaa1000 - 0x14c3efaa2fff 0x14c3efaa3000 - 0x14c3efaa3fff 0x14c3efaa4000 - 0x14c3efaa4fff 0x14c3efaa5000 - 0x14c3efaa5fff 0x14c3efaa6000 - 0x14c3efab3fff 0x14c3efab4000 - 0x14c3efac1fff 0x14c3efac2000 - 0x14c3efacffff 0x14c3efad0000 - 0x14c3efad3fff 0x14c3efad4000 - 0x14c3efad4fff 0x14c3efad5000 - 0x14c3efad6fff 0x14c3efad7000 - 0x14c3efaebfff 0x14c3efaec000 - 0x14c3efb05fff 0x14c3efb06000 - 0x14c3efb06fff 0x14c3efb07000 - 0x14c3efb0ffff 0x14c3efb10000 - 0x14c3efb1efff 0x14c3efb1f000 - 0x14c3efbbafff 0x14c3efbbb000 - 0x14c3efc53fff 0x14c3efc54000 - 0x14c3efc54fff 0x14c3efc55000 - 0x14c3efc55fff 0x14c3efc56000 - 0x14c3efc6bfff 0x14c3efc6c000 - 0x14c3efc97fff 0x14c3efc98000 - 0x14c3efca0fff 0x14c3efca1000 - 0x14c3efca1fff 0x14c3efca2000 - 0x14c3efca4fff 0x14c3efca5000 - 0x14c3efcaafff 0x14c3efcab000 - 0x14c3efcadfff 0x14c3efcb0000 - 0x14c3efcb0fff 0x14c3efcb1000 - 0x14c3efcb1fff 0x14c3efcb2000 - 0x14c3efcb8fff 0x14c3efcb9000 - 0x14c3efcbafff 0x14c3efcbb000 - 0x14c3efcdbfff 0x14c3efcdc000 - 0x14c3efce3fff 0x14c3efce4000 - 0x14c3efce4fff 0x14c3efce5000 - 0x14c3efce5fff 0x14c3efce6000 - 0x14c3efce6fff 0x14c3efce7000 - 0x14c3efce7fff 0x7ffd8d87f000 - 0x7ffd8d8a0fff 0x7ffd8d8a4000 - 0x7ffd8d8a7fff 0x7ffd8d8a8000 - 0x7ffd8d8a9fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0x1c35000 - 0x1c55fff 0x100000000000 - 0x1000000bffff 0x154800d1e000 - 0x1548013c2fff 0x1548013c3000 - 0x154801416fff 0x154801417000 - 0x154801418fff 0x154801419000 - 0x15480143dfff 0x15480143e000 - 0x15480158dfff 0x15480158e000 - 0x1548015d8fff 0x1548015d9000 - 0x1548015dbfff 0x1548015dc000 - 0x1548015defff 0x1548015df000 - 0x1548015e2fff 0x1548015e3000 - 0x1548015e5fff 0x1548015e6000 - 0x1548015f7fff 0x1548015f8000 - 0x1548015fbfff 0x1548015fc000 - 0x1548015fcfff 0x1548015fd000 - 0x1548015fdfff 0x1548015fe000 - 0x15480160efff 0x15480160f000 - 0x154801646fff 0x154801647000 - 0x15480177dfff 0x15480177e000 - 0x154801781fff 0x154801782000 - 0x154801782fff 0x154801783000 - 0x154801783fff 0x154801784000 - 0x154801785fff 0x154801786000 - 0x154801786fff 0x154801787000 - 0x154801787fff 0x154801788000 - 0x154801788fff 0x154801789000 - 0x15480178afff 0x15480178b000 - 0x15480178cfff 0x15480178d000 - 0x15480178ffff 0x154801790000 - 0x154801790fff 0x154801791000 - 0x154801791fff 0x154801792000 - 0x154801792fff 0x154801793000 - 0x154801794fff 0x154801795000 - 0x154801796fff 0x154801797000 - 0x154801797fff 0x154801798000 - 0x154801798fff 0x154801799000 - 0x154801799fff 0x15480179a000 - 0x1548017a7fff 0x1548017a8000 - 0x1548017b5fff 0x1548017b6000 - 0x1548017c3fff 0x1548017c4000 - 0x1548017c7fff 0x1548017c8000 - 0x1548017c8fff 0x1548017c9000 - 0x1548017cafff 0x1548017cb000 - 0x1548017dffff 0x1548017e0000 - 0x1548017f9fff 0x1548017fa000 - 0x1548017fafff 0x1548017fb000 - 0x154801803fff 0x154801804000 - 0x154801812fff 0x154801813000 - 0x1548018aefff 0x1548018af000 - 0x154801947fff 0x154801948000 - 0x154801948fff 0x154801949000 - 0x154801949fff 0x15480194a000 - 0x15480195ffff 0x154801960000 - 0x15480198bfff 0x15480198c000 - 0x154801994fff 0x154801995000 - 0x154801995fff 0x154801996000 - 0x154801998fff 0x154801999000 - 0x15480199efff 0x15480199f000 - 0x1548019a1fff 0x1548019a4000 - 0x1548019a4fff 0x1548019a5000 - 0x1548019a5fff 0x1548019a6000 - 0x1548019acfff 0x1548019ad000 - 0x1548019aefff 0x1548019af000 - 0x1548019cffff 0x1548019d0000 - 0x1548019d7fff 0x1548019d8000 - 0x1548019d8fff 0x1548019d9000 - 0x1548019d9fff 0x1548019da000 - 0x1548019dafff 0x1548019db000 - 0x1548019dbfff 0x7ffe04b62000 - 0x7ffe04b83fff 0x7ffe04bd5000 - 0x7ffe04bd8fff 0x7ffe04bd9000 - 0x7ffe04bdafff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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, | ^~~~~~~~~~~ /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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0xfaf000 - 0xfcffff 0x100000000000 - 0x1000000bffff 0x1541cd342000 - 0x1541cd9e6fff 0x1541cd9e7000 - 0x1541cda3afff 0x1541cda3b000 - 0x1541cda3cfff 0x1541cda3d000 - 0x1541cda61fff 0x1541cda62000 - 0x1541cdbb1fff 0x1541cdbb2000 - 0x1541cdbfcfff 0x1541cdbfd000 - 0x1541cdbfffff 0x1541cdc00000 - 0x1541cdc02fff 0x1541cdc03000 - 0x1541cdc06fff 0x1541cdc07000 - 0x1541cdc09fff 0x1541cdc0a000 - 0x1541cdc1bfff 0x1541cdc1c000 - 0x1541cdc1ffff 0x1541cdc20000 - 0x1541cdc20fff 0x1541cdc21000 - 0x1541cdc21fff 0x1541cdc22000 - 0x1541cdc32fff 0x1541cdc33000 - 0x1541cdc6afff 0x1541cdc6b000 - 0x1541cdda1fff 0x1541cdda2000 - 0x1541cdda5fff 0x1541cdda6000 - 0x1541cdda6fff 0x1541cdda7000 - 0x1541cdda7fff 0x1541cdda8000 - 0x1541cdda9fff 0x1541cddaa000 - 0x1541cddaafff 0x1541cddab000 - 0x1541cddabfff 0x1541cddac000 - 0x1541cddacfff 0x1541cddad000 - 0x1541cddaefff 0x1541cddaf000 - 0x1541cddb0fff 0x1541cddb1000 - 0x1541cddb3fff 0x1541cddb4000 - 0x1541cddb4fff 0x1541cddb5000 - 0x1541cddb5fff 0x1541cddb6000 - 0x1541cddb6fff 0x1541cddb7000 - 0x1541cddb8fff 0x1541cddb9000 - 0x1541cddbafff 0x1541cddbb000 - 0x1541cddbbfff 0x1541cddbc000 - 0x1541cddbcfff 0x1541cddbd000 - 0x1541cddbdfff 0x1541cddbe000 - 0x1541cddcbfff 0x1541cddcc000 - 0x1541cddd9fff 0x1541cddda000 - 0x1541cdde7fff 0x1541cdde8000 - 0x1541cddebfff 0x1541cddec000 - 0x1541cddecfff 0x1541cdded000 - 0x1541cddeefff 0x1541cddef000 - 0x1541cde03fff 0x1541cde04000 - 0x1541cde1dfff 0x1541cde1e000 - 0x1541cde1efff 0x1541cde1f000 - 0x1541cde27fff 0x1541cde28000 - 0x1541cde36fff 0x1541cde37000 - 0x1541cded2fff 0x1541cded3000 - 0x1541cdf6bfff 0x1541cdf6c000 - 0x1541cdf6cfff 0x1541cdf6d000 - 0x1541cdf6dfff 0x1541cdf6e000 - 0x1541cdf83fff 0x1541cdf84000 - 0x1541cdfaffff 0x1541cdfb0000 - 0x1541cdfb8fff 0x1541cdfb9000 - 0x1541cdfb9fff 0x1541cdfba000 - 0x1541cdfbcfff 0x1541cdfbd000 - 0x1541cdfc2fff 0x1541cdfc3000 - 0x1541cdfc5fff 0x1541cdfc8000 - 0x1541cdfc8fff 0x1541cdfc9000 - 0x1541cdfc9fff 0x1541cdfca000 - 0x1541cdfd0fff 0x1541cdfd1000 - 0x1541cdfd2fff 0x1541cdfd3000 - 0x1541cdff3fff 0x1541cdff4000 - 0x1541cdffbfff 0x1541cdffc000 - 0x1541cdffcfff 0x1541cdffd000 - 0x1541cdffdfff 0x1541cdffe000 - 0x1541cdffefff 0x1541cdfff000 - 0x1541cdffffff 0x7ffdb8e8f000 - 0x7ffdb8eb0fff 0x7ffdb8f5f000 - 0x7ffdb8f62fff 0x7ffdb8f63000 - 0x7ffdb8f64fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../../config.cache 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 3814128000) (memory 3814211680) 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0xc9e000 - 0xcbefff 0x100000000000 - 0x1000000bffff 0x14b193928000 - 0x14b193fccfff 0x14b193fcd000 - 0x14b194020fff 0x14b194021000 - 0x14b194022fff 0x14b194023000 - 0x14b194047fff 0x14b194048000 - 0x14b194197fff 0x14b194198000 - 0x14b1941e2fff 0x14b1941e3000 - 0x14b1941e5fff 0x14b1941e6000 - 0x14b1941e8fff 0x14b1941e9000 - 0x14b1941ecfff 0x14b1941ed000 - 0x14b1941effff 0x14b1941f0000 - 0x14b194201fff 0x14b194202000 - 0x14b194205fff 0x14b194206000 - 0x14b194206fff 0x14b194207000 - 0x14b194207fff 0x14b194208000 - 0x14b194218fff 0x14b194219000 - 0x14b194250fff 0x14b194251000 - 0x14b194387fff 0x14b194388000 - 0x14b19438bfff 0x14b19438c000 - 0x14b19438cfff 0x14b19438d000 - 0x14b19438dfff 0x14b19438e000 - 0x14b19438ffff 0x14b194390000 - 0x14b194390fff 0x14b194391000 - 0x14b194391fff 0x14b194392000 - 0x14b194392fff 0x14b194393000 - 0x14b194394fff 0x14b194395000 - 0x14b194396fff 0x14b194397000 - 0x14b194399fff 0x14b19439a000 - 0x14b19439afff 0x14b19439b000 - 0x14b19439bfff 0x14b19439c000 - 0x14b19439cfff 0x14b19439d000 - 0x14b19439efff 0x14b19439f000 - 0x14b1943a0fff 0x14b1943a1000 - 0x14b1943a1fff 0x14b1943a2000 - 0x14b1943a2fff 0x14b1943a3000 - 0x14b1943a3fff 0x14b1943a4000 - 0x14b1943b1fff 0x14b1943b2000 - 0x14b1943bffff 0x14b1943c0000 - 0x14b1943cdfff 0x14b1943ce000 - 0x14b1943d1fff 0x14b1943d2000 - 0x14b1943d2fff 0x14b1943d3000 - 0x14b1943d4fff 0x14b1943d5000 - 0x14b1943e9fff 0x14b1943ea000 - 0x14b194403fff 0x14b194404000 - 0x14b194404fff 0x14b194405000 - 0x14b19440dfff 0x14b19440e000 - 0x14b19441cfff 0x14b19441d000 - 0x14b1944b8fff 0x14b1944b9000 - 0x14b194551fff 0x14b194552000 - 0x14b194552fff 0x14b194553000 - 0x14b194553fff 0x14b194554000 - 0x14b194569fff 0x14b19456a000 - 0x14b194595fff 0x14b194596000 - 0x14b19459efff 0x14b19459f000 - 0x14b19459ffff 0x14b1945a0000 - 0x14b1945a2fff 0x14b1945a3000 - 0x14b1945a8fff 0x14b1945a9000 - 0x14b1945abfff 0x14b1945ae000 - 0x14b1945aefff 0x14b1945af000 - 0x14b1945affff 0x14b1945b0000 - 0x14b1945b6fff 0x14b1945b7000 - 0x14b1945b8fff 0x14b1945b9000 - 0x14b1945d9fff 0x14b1945da000 - 0x14b1945e1fff 0x14b1945e2000 - 0x14b1945e2fff 0x14b1945e3000 - 0x14b1945e3fff 0x14b1945e4000 - 0x14b1945e4fff 0x14b1945e5000 - 0x14b1945e5fff 0x7ffc00dba000 - 0x7ffc00ddbfff 0x7ffc00de4000 - 0x7ffc00de7fff 0x7ffc00de8000 - 0x7ffc00de9fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0xddb000 - 0xdfbfff 0x100000000000 - 0x1000000bffff 0x14d6c0d18000 - 0x14d6c13bcfff 0x14d6c13bd000 - 0x14d6c1410fff 0x14d6c1411000 - 0x14d6c1412fff 0x14d6c1413000 - 0x14d6c1437fff 0x14d6c1438000 - 0x14d6c1587fff 0x14d6c1588000 - 0x14d6c15d2fff 0x14d6c15d3000 - 0x14d6c15d5fff 0x14d6c15d6000 - 0x14d6c15d8fff 0x14d6c15d9000 - 0x14d6c15dcfff 0x14d6c15dd000 - 0x14d6c15dffff 0x14d6c15e0000 - 0x14d6c15f1fff 0x14d6c15f2000 - 0x14d6c15f5fff 0x14d6c15f6000 - 0x14d6c15f6fff 0x14d6c15f7000 - 0x14d6c15f7fff 0x14d6c15f8000 - 0x14d6c1608fff 0x14d6c1609000 - 0x14d6c1640fff 0x14d6c1641000 - 0x14d6c1777fff 0x14d6c1778000 - 0x14d6c177bfff 0x14d6c177c000 - 0x14d6c177cfff 0x14d6c177d000 - 0x14d6c177dfff 0x14d6c177e000 - 0x14d6c177ffff 0x14d6c1780000 - 0x14d6c1780fff 0x14d6c1781000 - 0x14d6c1781fff 0x14d6c1782000 - 0x14d6c1782fff 0x14d6c1783000 - 0x14d6c1784fff 0x14d6c1785000 - 0x14d6c1786fff 0x14d6c1787000 - 0x14d6c1789fff 0x14d6c178a000 - 0x14d6c178afff 0x14d6c178b000 - 0x14d6c178bfff 0x14d6c178c000 - 0x14d6c178cfff 0x14d6c178d000 - 0x14d6c178efff 0x14d6c178f000 - 0x14d6c1790fff 0x14d6c1791000 - 0x14d6c1791fff 0x14d6c1792000 - 0x14d6c1792fff 0x14d6c1793000 - 0x14d6c1793fff 0x14d6c1794000 - 0x14d6c17a1fff 0x14d6c17a2000 - 0x14d6c17affff 0x14d6c17b0000 - 0x14d6c17bdfff 0x14d6c17be000 - 0x14d6c17c1fff 0x14d6c17c2000 - 0x14d6c17c2fff 0x14d6c17c3000 - 0x14d6c17c4fff 0x14d6c17c5000 - 0x14d6c17d9fff 0x14d6c17da000 - 0x14d6c17f3fff 0x14d6c17f4000 - 0x14d6c17f4fff 0x14d6c17f5000 - 0x14d6c17fdfff 0x14d6c17fe000 - 0x14d6c180cfff 0x14d6c180d000 - 0x14d6c18a8fff 0x14d6c18a9000 - 0x14d6c1941fff 0x14d6c1942000 - 0x14d6c1942fff 0x14d6c1943000 - 0x14d6c1943fff 0x14d6c1944000 - 0x14d6c1959fff 0x14d6c195a000 - 0x14d6c1985fff 0x14d6c1986000 - 0x14d6c198efff 0x14d6c198f000 - 0x14d6c198ffff 0x14d6c1990000 - 0x14d6c1992fff 0x14d6c1993000 - 0x14d6c1998fff 0x14d6c1999000 - 0x14d6c199bfff 0x14d6c199e000 - 0x14d6c199efff 0x14d6c199f000 - 0x14d6c199ffff 0x14d6c19a0000 - 0x14d6c19a6fff 0x14d6c19a7000 - 0x14d6c19a8fff 0x14d6c19a9000 - 0x14d6c19c9fff 0x14d6c19ca000 - 0x14d6c19d1fff 0x14d6c19d2000 - 0x14d6c19d2fff 0x14d6c19d3000 - 0x14d6c19d3fff 0x14d6c19d4000 - 0x14d6c19d4fff 0x14d6c19d5000 - 0x14d6c19d5fff 0x7ffc1d3f0000 - 0x7ffc1d411fff 0x7ffc1d4de000 - 0x7ffc1d4e1fff 0x7ffc1d4e2000 - 0x7ffc1d4e3fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0x239d000 - 0x23bdfff 0x100000000000 - 0x1000000bffff 0x14fd5f0a5000 - 0x14fd5f749fff 0x14fd5f74a000 - 0x14fd5f79dfff 0x14fd5f79e000 - 0x14fd5f79ffff 0x14fd5f7a0000 - 0x14fd5f7c4fff 0x14fd5f7c5000 - 0x14fd5f914fff 0x14fd5f915000 - 0x14fd5f95ffff 0x14fd5f960000 - 0x14fd5f962fff 0x14fd5f963000 - 0x14fd5f965fff 0x14fd5f966000 - 0x14fd5f969fff 0x14fd5f96a000 - 0x14fd5f96cfff 0x14fd5f96d000 - 0x14fd5f97efff 0x14fd5f97f000 - 0x14fd5f982fff 0x14fd5f983000 - 0x14fd5f983fff 0x14fd5f984000 - 0x14fd5f984fff 0x14fd5f985000 - 0x14fd5f995fff 0x14fd5f996000 - 0x14fd5f9cdfff 0x14fd5f9ce000 - 0x14fd5fb04fff 0x14fd5fb05000 - 0x14fd5fb08fff 0x14fd5fb09000 - 0x14fd5fb09fff 0x14fd5fb0a000 - 0x14fd5fb0afff 0x14fd5fb0b000 - 0x14fd5fb0cfff 0x14fd5fb0d000 - 0x14fd5fb0dfff 0x14fd5fb0e000 - 0x14fd5fb0efff 0x14fd5fb0f000 - 0x14fd5fb0ffff 0x14fd5fb10000 - 0x14fd5fb11fff 0x14fd5fb12000 - 0x14fd5fb13fff 0x14fd5fb14000 - 0x14fd5fb16fff 0x14fd5fb17000 - 0x14fd5fb17fff 0x14fd5fb18000 - 0x14fd5fb18fff 0x14fd5fb19000 - 0x14fd5fb19fff 0x14fd5fb1a000 - 0x14fd5fb1bfff 0x14fd5fb1c000 - 0x14fd5fb1dfff 0x14fd5fb1e000 - 0x14fd5fb1efff 0x14fd5fb1f000 - 0x14fd5fb1ffff 0x14fd5fb20000 - 0x14fd5fb20fff 0x14fd5fb21000 - 0x14fd5fb2efff 0x14fd5fb2f000 - 0x14fd5fb3cfff 0x14fd5fb3d000 - 0x14fd5fb4afff 0x14fd5fb4b000 - 0x14fd5fb4efff 0x14fd5fb4f000 - 0x14fd5fb4ffff 0x14fd5fb50000 - 0x14fd5fb51fff 0x14fd5fb52000 - 0x14fd5fb66fff 0x14fd5fb67000 - 0x14fd5fb80fff 0x14fd5fb81000 - 0x14fd5fb81fff 0x14fd5fb82000 - 0x14fd5fb8afff 0x14fd5fb8b000 - 0x14fd5fb99fff 0x14fd5fb9a000 - 0x14fd5fc35fff 0x14fd5fc36000 - 0x14fd5fccefff 0x14fd5fccf000 - 0x14fd5fccffff 0x14fd5fcd0000 - 0x14fd5fcd0fff 0x14fd5fcd1000 - 0x14fd5fce6fff 0x14fd5fce7000 - 0x14fd5fd12fff 0x14fd5fd13000 - 0x14fd5fd1bfff 0x14fd5fd1c000 - 0x14fd5fd1cfff 0x14fd5fd1d000 - 0x14fd5fd1ffff 0x14fd5fd20000 - 0x14fd5fd25fff 0x14fd5fd26000 - 0x14fd5fd28fff 0x14fd5fd2b000 - 0x14fd5fd2bfff 0x14fd5fd2c000 - 0x14fd5fd2cfff 0x14fd5fd2d000 - 0x14fd5fd33fff 0x14fd5fd34000 - 0x14fd5fd35fff 0x14fd5fd36000 - 0x14fd5fd56fff 0x14fd5fd57000 - 0x14fd5fd5efff 0x14fd5fd5f000 - 0x14fd5fd5ffff 0x14fd5fd60000 - 0x14fd5fd60fff 0x14fd5fd61000 - 0x14fd5fd61fff 0x14fd5fd62000 - 0x14fd5fd62fff 0x7ffece371000 - 0x7ffece392fff 0x7ffece39f000 - 0x7ffece3a2fff 0x7ffece3a3000 - 0x7ffece3a4fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0x2317000 - 0x2337fff 0x100000000000 - 0x1000000bffff 0x14754ee68000 - 0x14754f50cfff 0x14754f50d000 - 0x14754f560fff 0x14754f561000 - 0x14754f562fff 0x14754f563000 - 0x14754f587fff 0x14754f588000 - 0x14754f6d7fff 0x14754f6d8000 - 0x14754f722fff 0x14754f723000 - 0x14754f725fff 0x14754f726000 - 0x14754f728fff 0x14754f729000 - 0x14754f72cfff 0x14754f72d000 - 0x14754f72ffff 0x14754f730000 - 0x14754f741fff 0x14754f742000 - 0x14754f745fff 0x14754f746000 - 0x14754f746fff 0x14754f747000 - 0x14754f747fff 0x14754f748000 - 0x14754f758fff 0x14754f759000 - 0x14754f790fff 0x14754f791000 - 0x14754f8c7fff 0x14754f8c8000 - 0x14754f8cbfff 0x14754f8cc000 - 0x14754f8ccfff 0x14754f8cd000 - 0x14754f8cdfff 0x14754f8ce000 - 0x14754f8cffff 0x14754f8d0000 - 0x14754f8d0fff 0x14754f8d1000 - 0x14754f8d1fff 0x14754f8d2000 - 0x14754f8d2fff 0x14754f8d3000 - 0x14754f8d4fff 0x14754f8d5000 - 0x14754f8d6fff 0x14754f8d7000 - 0x14754f8d9fff 0x14754f8da000 - 0x14754f8dafff 0x14754f8db000 - 0x14754f8dbfff 0x14754f8dc000 - 0x14754f8dcfff 0x14754f8dd000 - 0x14754f8defff 0x14754f8df000 - 0x14754f8e0fff 0x14754f8e1000 - 0x14754f8e1fff 0x14754f8e2000 - 0x14754f8e2fff 0x14754f8e3000 - 0x14754f8e3fff 0x14754f8e4000 - 0x14754f8f1fff 0x14754f8f2000 - 0x14754f8fffff 0x14754f900000 - 0x14754f90dfff 0x14754f90e000 - 0x14754f911fff 0x14754f912000 - 0x14754f912fff 0x14754f913000 - 0x14754f914fff 0x14754f915000 - 0x14754f929fff 0x14754f92a000 - 0x14754f943fff 0x14754f944000 - 0x14754f944fff 0x14754f945000 - 0x14754f94dfff 0x14754f94e000 - 0x14754f95cfff 0x14754f95d000 - 0x14754f9f8fff 0x14754f9f9000 - 0x14754fa91fff 0x14754fa92000 - 0x14754fa92fff 0x14754fa93000 - 0x14754fa93fff 0x14754fa94000 - 0x14754faa9fff 0x14754faaa000 - 0x14754fad5fff 0x14754fad6000 - 0x14754fadefff 0x14754fadf000 - 0x14754fadffff 0x14754fae0000 - 0x14754fae2fff 0x14754fae3000 - 0x14754fae8fff 0x14754fae9000 - 0x14754faebfff 0x14754faee000 - 0x14754faeefff 0x14754faef000 - 0x14754faeffff 0x14754faf0000 - 0x14754faf6fff 0x14754faf7000 - 0x14754faf8fff 0x14754faf9000 - 0x14754fb19fff 0x14754fb1a000 - 0x14754fb21fff 0x14754fb22000 - 0x14754fb22fff 0x14754fb23000 - 0x14754fb23fff 0x14754fb24000 - 0x14754fb24fff 0x14754fb25000 - 0x14754fb25fff 0x7fff02faa000 - 0x7fff02fcbfff 0x7fff02fce000 - 0x7fff02fd1fff 0x7fff02fd2000 - 0x7fff02fd3fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache 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 3814128000) (memory 3814211680) 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0x213e000 - 0x215efff 0x100000000000 - 0x1000000bffff 0x1455f67f8000 - 0x1455f6e9cfff 0x1455f6e9d000 - 0x1455f6ef0fff 0x1455f6ef1000 - 0x1455f6ef2fff 0x1455f6ef3000 - 0x1455f6f17fff 0x1455f6f18000 - 0x1455f7067fff 0x1455f7068000 - 0x1455f70b2fff 0x1455f70b3000 - 0x1455f70b5fff 0x1455f70b6000 - 0x1455f70b8fff 0x1455f70b9000 - 0x1455f70bcfff 0x1455f70bd000 - 0x1455f70bffff 0x1455f70c0000 - 0x1455f70d1fff 0x1455f70d2000 - 0x1455f70d5fff 0x1455f70d6000 - 0x1455f70d6fff 0x1455f70d7000 - 0x1455f70d7fff 0x1455f70d8000 - 0x1455f70e8fff 0x1455f70e9000 - 0x1455f7120fff 0x1455f7121000 - 0x1455f7257fff 0x1455f7258000 - 0x1455f725bfff 0x1455f725c000 - 0x1455f725cfff 0x1455f725d000 - 0x1455f725dfff 0x1455f725e000 - 0x1455f725ffff 0x1455f7260000 - 0x1455f7260fff 0x1455f7261000 - 0x1455f7261fff 0x1455f7262000 - 0x1455f7262fff 0x1455f7263000 - 0x1455f7264fff 0x1455f7265000 - 0x1455f7266fff 0x1455f7267000 - 0x1455f7269fff 0x1455f726a000 - 0x1455f726afff 0x1455f726b000 - 0x1455f726bfff 0x1455f726c000 - 0x1455f726cfff 0x1455f726d000 - 0x1455f726efff 0x1455f726f000 - 0x1455f7270fff 0x1455f7271000 - 0x1455f7271fff 0x1455f7272000 - 0x1455f7272fff 0x1455f7273000 - 0x1455f7273fff 0x1455f7274000 - 0x1455f7281fff 0x1455f7282000 - 0x1455f728ffff 0x1455f7290000 - 0x1455f729dfff 0x1455f729e000 - 0x1455f72a1fff 0x1455f72a2000 - 0x1455f72a2fff 0x1455f72a3000 - 0x1455f72a4fff 0x1455f72a5000 - 0x1455f72b9fff 0x1455f72ba000 - 0x1455f72d3fff 0x1455f72d4000 - 0x1455f72d4fff 0x1455f72d5000 - 0x1455f72ddfff 0x1455f72de000 - 0x1455f72ecfff 0x1455f72ed000 - 0x1455f7388fff 0x1455f7389000 - 0x1455f7421fff 0x1455f7422000 - 0x1455f7422fff 0x1455f7423000 - 0x1455f7423fff 0x1455f7424000 - 0x1455f7439fff 0x1455f743a000 - 0x1455f7465fff 0x1455f7466000 - 0x1455f746efff 0x1455f746f000 - 0x1455f746ffff 0x1455f7470000 - 0x1455f7472fff 0x1455f7473000 - 0x1455f7478fff 0x1455f7479000 - 0x1455f747bfff 0x1455f747e000 - 0x1455f747efff 0x1455f747f000 - 0x1455f747ffff 0x1455f7480000 - 0x1455f7486fff 0x1455f7487000 - 0x1455f7488fff 0x1455f7489000 - 0x1455f74a9fff 0x1455f74aa000 - 0x1455f74b1fff 0x1455f74b2000 - 0x1455f74b2fff 0x1455f74b3000 - 0x1455f74b3fff 0x1455f74b4000 - 0x1455f74b4fff 0x1455f74b5000 - 0x1455f74b5fff 0x7ffcea658000 - 0x7ffcea679fff 0x7ffcea710000 - 0x7ffcea713fff 0x7ffcea714000 - 0x7ffcea715fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache 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 3814128000) (memory 3814211680) 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) x86_64-pc-linux-gnu checking host system type... (cached) x86_64-pc-linux-gnu checking for ld used by gcc... (cached) /usr/bin/ld checking if the linker (/usr/bin/ld) is GNU ld... (cached) yes checking for shared library run path origin... (cached) done checking host CPU and C ABI... (cached) x86_64 checking for the common suffixes of directories in the library search path... (cached) lib64,lib64 checking how to link with libfcgi... /usr/lib64/libfcgi.so 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0xd21000 - 0xd41fff 0x100000000000 - 0x1000000bffff 0x1478afa9e000 - 0x1478b0142fff 0x1478b0143000 - 0x1478b0196fff 0x1478b0197000 - 0x1478b0198fff 0x1478b0199000 - 0x1478b01bdfff 0x1478b01be000 - 0x1478b030dfff 0x1478b030e000 - 0x1478b0358fff 0x1478b0359000 - 0x1478b035bfff 0x1478b035c000 - 0x1478b035efff 0x1478b035f000 - 0x1478b0362fff 0x1478b0363000 - 0x1478b0365fff 0x1478b0366000 - 0x1478b0377fff 0x1478b0378000 - 0x1478b037bfff 0x1478b037c000 - 0x1478b037cfff 0x1478b037d000 - 0x1478b037dfff 0x1478b037e000 - 0x1478b038efff 0x1478b038f000 - 0x1478b03c6fff 0x1478b03c7000 - 0x1478b04fdfff 0x1478b04fe000 - 0x1478b0501fff 0x1478b0502000 - 0x1478b0502fff 0x1478b0503000 - 0x1478b0503fff 0x1478b0504000 - 0x1478b0505fff 0x1478b0506000 - 0x1478b0506fff 0x1478b0507000 - 0x1478b0507fff 0x1478b0508000 - 0x1478b0508fff 0x1478b0509000 - 0x1478b050afff 0x1478b050b000 - 0x1478b050cfff 0x1478b050d000 - 0x1478b050ffff 0x1478b0510000 - 0x1478b0510fff 0x1478b0511000 - 0x1478b0511fff 0x1478b0512000 - 0x1478b0512fff 0x1478b0513000 - 0x1478b0514fff 0x1478b0515000 - 0x1478b0516fff 0x1478b0517000 - 0x1478b0517fff 0x1478b0518000 - 0x1478b0518fff 0x1478b0519000 - 0x1478b0519fff 0x1478b051a000 - 0x1478b0527fff 0x1478b0528000 - 0x1478b0535fff 0x1478b0536000 - 0x1478b0543fff 0x1478b0544000 - 0x1478b0547fff 0x1478b0548000 - 0x1478b0548fff 0x1478b0549000 - 0x1478b054afff 0x1478b054b000 - 0x1478b055ffff 0x1478b0560000 - 0x1478b0579fff 0x1478b057a000 - 0x1478b057afff 0x1478b057b000 - 0x1478b0583fff 0x1478b0584000 - 0x1478b0592fff 0x1478b0593000 - 0x1478b062efff 0x1478b062f000 - 0x1478b06c7fff 0x1478b06c8000 - 0x1478b06c8fff 0x1478b06c9000 - 0x1478b06c9fff 0x1478b06ca000 - 0x1478b06dffff 0x1478b06e0000 - 0x1478b070bfff 0x1478b070c000 - 0x1478b0714fff 0x1478b0715000 - 0x1478b0715fff 0x1478b0716000 - 0x1478b0718fff 0x1478b0719000 - 0x1478b071efff 0x1478b071f000 - 0x1478b0721fff 0x1478b0724000 - 0x1478b0724fff 0x1478b0725000 - 0x1478b0725fff 0x1478b0726000 - 0x1478b072cfff 0x1478b072d000 - 0x1478b072efff 0x1478b072f000 - 0x1478b074ffff 0x1478b0750000 - 0x1478b0757fff 0x1478b0758000 - 0x1478b0758fff 0x1478b0759000 - 0x1478b0759fff 0x1478b075a000 - 0x1478b075afff 0x1478b075b000 - 0x1478b075bfff 0x7ffcac55d000 - 0x7ffcac57efff 0x7ffcac5da000 - 0x7ffcac5ddfff 0x7ffcac5de000 - 0x7ffcac5dffff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache 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 3814128000) (memory 3814211680) 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) x86_64-pc-linux-gnu checking host system type... (cached) x86_64-pc-linux-gnu checking for ld used by gcc... (cached) /usr/bin/ld checking if the linker (/usr/bin/ld) is GNU ld... (cached) yes checking for shared library run path origin... (cached) done checking host CPU and C ABI... (cached) x86_64 checking for the common suffixes of directories in the library search path... (cached) lib64,lib64 checking how to link with libgdbm... /usr/lib64/libgdbm.so 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0xf11000 - 0xf31fff 0x100000000000 - 0x1000000bffff 0x1510927d4000 - 0x151092e78fff 0x151092e79000 - 0x151092eccfff 0x151092ecd000 - 0x151092ecefff 0x151092ecf000 - 0x151092ef3fff 0x151092ef4000 - 0x151093043fff 0x151093044000 - 0x15109308efff 0x15109308f000 - 0x151093091fff 0x151093092000 - 0x151093094fff 0x151093095000 - 0x151093098fff 0x151093099000 - 0x15109309bfff 0x15109309c000 - 0x1510930adfff 0x1510930ae000 - 0x1510930b1fff 0x1510930b2000 - 0x1510930b2fff 0x1510930b3000 - 0x1510930b3fff 0x1510930b4000 - 0x1510930c4fff 0x1510930c5000 - 0x1510930fcfff 0x1510930fd000 - 0x151093233fff 0x151093234000 - 0x151093237fff 0x151093238000 - 0x151093238fff 0x151093239000 - 0x151093239fff 0x15109323a000 - 0x15109323bfff 0x15109323c000 - 0x15109323cfff 0x15109323d000 - 0x15109323dfff 0x15109323e000 - 0x15109323efff 0x15109323f000 - 0x151093240fff 0x151093241000 - 0x151093242fff 0x151093243000 - 0x151093245fff 0x151093246000 - 0x151093246fff 0x151093247000 - 0x151093247fff 0x151093248000 - 0x151093248fff 0x151093249000 - 0x15109324afff 0x15109324b000 - 0x15109324cfff 0x15109324d000 - 0x15109324dfff 0x15109324e000 - 0x15109324efff 0x15109324f000 - 0x15109324ffff 0x151093250000 - 0x15109325dfff 0x15109325e000 - 0x15109326bfff 0x15109326c000 - 0x151093279fff 0x15109327a000 - 0x15109327dfff 0x15109327e000 - 0x15109327efff 0x15109327f000 - 0x151093280fff 0x151093281000 - 0x151093295fff 0x151093296000 - 0x1510932affff 0x1510932b0000 - 0x1510932b0fff 0x1510932b1000 - 0x1510932b9fff 0x1510932ba000 - 0x1510932c8fff 0x1510932c9000 - 0x151093364fff 0x151093365000 - 0x1510933fdfff 0x1510933fe000 - 0x1510933fefff 0x1510933ff000 - 0x1510933fffff 0x151093400000 - 0x151093415fff 0x151093416000 - 0x151093441fff 0x151093442000 - 0x15109344afff 0x15109344b000 - 0x15109344bfff 0x15109344c000 - 0x15109344efff 0x15109344f000 - 0x151093454fff 0x151093455000 - 0x151093457fff 0x15109345a000 - 0x15109345afff 0x15109345b000 - 0x15109345bfff 0x15109345c000 - 0x151093462fff 0x151093463000 - 0x151093464fff 0x151093465000 - 0x151093485fff 0x151093486000 - 0x15109348dfff 0x15109348e000 - 0x15109348efff 0x15109348f000 - 0x15109348ffff 0x151093490000 - 0x151093490fff 0x151093491000 - 0x151093491fff 0x7ffc01cee000 - 0x7ffc01d0ffff 0x7ffc01d31000 - 0x7ffc01d34fff 0x7ffc01d35000 - 0x7ffc01d36fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0xf63000 - 0xf83fff 0x100000000000 - 0x1000000bffff 0x153f0e846000 - 0x153f0eeeafff 0x153f0eeeb000 - 0x153f0ef3efff 0x153f0ef3f000 - 0x153f0ef40fff 0x153f0ef41000 - 0x153f0ef65fff 0x153f0ef66000 - 0x153f0f0b5fff 0x153f0f0b6000 - 0x153f0f100fff 0x153f0f101000 - 0x153f0f103fff 0x153f0f104000 - 0x153f0f106fff 0x153f0f107000 - 0x153f0f10afff 0x153f0f10b000 - 0x153f0f10dfff 0x153f0f10e000 - 0x153f0f11ffff 0x153f0f120000 - 0x153f0f123fff 0x153f0f124000 - 0x153f0f124fff 0x153f0f125000 - 0x153f0f125fff 0x153f0f126000 - 0x153f0f136fff 0x153f0f137000 - 0x153f0f16efff 0x153f0f16f000 - 0x153f0f2a5fff 0x153f0f2a6000 - 0x153f0f2a9fff 0x153f0f2aa000 - 0x153f0f2aafff 0x153f0f2ab000 - 0x153f0f2abfff 0x153f0f2ac000 - 0x153f0f2adfff 0x153f0f2ae000 - 0x153f0f2aefff 0x153f0f2af000 - 0x153f0f2affff 0x153f0f2b0000 - 0x153f0f2b0fff 0x153f0f2b1000 - 0x153f0f2b2fff 0x153f0f2b3000 - 0x153f0f2b4fff 0x153f0f2b5000 - 0x153f0f2b7fff 0x153f0f2b8000 - 0x153f0f2b8fff 0x153f0f2b9000 - 0x153f0f2b9fff 0x153f0f2ba000 - 0x153f0f2bafff 0x153f0f2bb000 - 0x153f0f2bcfff 0x153f0f2bd000 - 0x153f0f2befff 0x153f0f2bf000 - 0x153f0f2bffff 0x153f0f2c0000 - 0x153f0f2c0fff 0x153f0f2c1000 - 0x153f0f2c1fff 0x153f0f2c2000 - 0x153f0f2cffff 0x153f0f2d0000 - 0x153f0f2ddfff 0x153f0f2de000 - 0x153f0f2ebfff 0x153f0f2ec000 - 0x153f0f2effff 0x153f0f2f0000 - 0x153f0f2f0fff 0x153f0f2f1000 - 0x153f0f2f2fff 0x153f0f2f3000 - 0x153f0f307fff 0x153f0f308000 - 0x153f0f321fff 0x153f0f322000 - 0x153f0f322fff 0x153f0f323000 - 0x153f0f32bfff 0x153f0f32c000 - 0x153f0f33afff 0x153f0f33b000 - 0x153f0f3d6fff 0x153f0f3d7000 - 0x153f0f46ffff 0x153f0f470000 - 0x153f0f470fff 0x153f0f471000 - 0x153f0f471fff 0x153f0f472000 - 0x153f0f487fff 0x153f0f488000 - 0x153f0f4b3fff 0x153f0f4b4000 - 0x153f0f4bcfff 0x153f0f4bd000 - 0x153f0f4bdfff 0x153f0f4be000 - 0x153f0f4c0fff 0x153f0f4c1000 - 0x153f0f4c6fff 0x153f0f4c7000 - 0x153f0f4c9fff 0x153f0f4cc000 - 0x153f0f4ccfff 0x153f0f4cd000 - 0x153f0f4cdfff 0x153f0f4ce000 - 0x153f0f4d4fff 0x153f0f4d5000 - 0x153f0f4d8fff 0x153f0f4d9000 - 0x153f0f4dafff 0x153f0f4db000 - 0x153f0f4dcfff 0x153f0f4dd000 - 0x153f0f4fdfff 0x153f0f4fe000 - 0x153f0f505fff 0x153f0f506000 - 0x153f0f506fff 0x153f0f507000 - 0x153f0f507fff 0x153f0f508000 - 0x153f0f508fff 0x153f0f509000 - 0x153f0f509fff 0x7ffd08da0000 - 0x7ffd08dc1fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache 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 3814128000) (memory 3814211680) 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0x1b89000 - 0x1ba9fff 0x100000000000 - 0x1000000bffff 0x1519f26ae000 - 0x1519f2d52fff 0x1519f2d53000 - 0x1519f2da6fff 0x1519f2da7000 - 0x1519f2da8fff 0x1519f2da9000 - 0x1519f2dcdfff 0x1519f2dce000 - 0x1519f2f1dfff 0x1519f2f1e000 - 0x1519f2f68fff 0x1519f2f69000 - 0x1519f2f6bfff 0x1519f2f6c000 - 0x1519f2f6efff 0x1519f2f6f000 - 0x1519f2f72fff 0x1519f2f73000 - 0x1519f2f75fff 0x1519f2f76000 - 0x1519f2f87fff 0x1519f2f88000 - 0x1519f2f8bfff 0x1519f2f8c000 - 0x1519f2f8cfff 0x1519f2f8d000 - 0x1519f2f8dfff 0x1519f2f8e000 - 0x1519f2f9efff 0x1519f2f9f000 - 0x1519f2fd6fff 0x1519f2fd7000 - 0x1519f310dfff 0x1519f310e000 - 0x1519f3111fff 0x1519f3112000 - 0x1519f3112fff 0x1519f3113000 - 0x1519f3113fff 0x1519f3114000 - 0x1519f3115fff 0x1519f3116000 - 0x1519f3116fff 0x1519f3117000 - 0x1519f3117fff 0x1519f3118000 - 0x1519f3118fff 0x1519f3119000 - 0x1519f311afff 0x1519f311b000 - 0x1519f311cfff 0x1519f311d000 - 0x1519f311ffff 0x1519f3120000 - 0x1519f3120fff 0x1519f3121000 - 0x1519f3121fff 0x1519f3122000 - 0x1519f3122fff 0x1519f3123000 - 0x1519f3124fff 0x1519f3125000 - 0x1519f3126fff 0x1519f3127000 - 0x1519f3127fff 0x1519f3128000 - 0x1519f3128fff 0x1519f3129000 - 0x1519f3129fff 0x1519f312a000 - 0x1519f3137fff 0x1519f3138000 - 0x1519f3145fff 0x1519f3146000 - 0x1519f3153fff 0x1519f3154000 - 0x1519f3157fff 0x1519f3158000 - 0x1519f3158fff 0x1519f3159000 - 0x1519f315afff 0x1519f315b000 - 0x1519f316ffff 0x1519f3170000 - 0x1519f3189fff 0x1519f318a000 - 0x1519f318afff 0x1519f318b000 - 0x1519f3193fff 0x1519f3194000 - 0x1519f31a2fff 0x1519f31a3000 - 0x1519f323efff 0x1519f323f000 - 0x1519f32d7fff 0x1519f32d8000 - 0x1519f32d8fff 0x1519f32d9000 - 0x1519f32d9fff 0x1519f32da000 - 0x1519f32effff 0x1519f32f0000 - 0x1519f331bfff 0x1519f331c000 - 0x1519f3324fff 0x1519f3325000 - 0x1519f3325fff 0x1519f3326000 - 0x1519f3328fff 0x1519f3329000 - 0x1519f332efff 0x1519f332f000 - 0x1519f3331fff 0x1519f3334000 - 0x1519f3334fff 0x1519f3335000 - 0x1519f3335fff 0x1519f3336000 - 0x1519f333cfff 0x1519f333d000 - 0x1519f333efff 0x1519f333f000 - 0x1519f335ffff 0x1519f3360000 - 0x1519f3367fff 0x1519f3368000 - 0x1519f3368fff 0x1519f3369000 - 0x1519f3369fff 0x1519f336a000 - 0x1519f336afff 0x1519f336b000 - 0x1519f336bfff 0x7ffd8cb9a000 - 0x7ffd8cbbbfff 0x7ffd8cbdf000 - 0x7ffd8cbe2fff 0x7ffd8cbe3000 - 0x7ffd8cbe4fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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/fribidi -I/usr/include/freetype2 -I/usr/include/libpng16 -I/usr/include/cairo -I/usr/include/pixman-1 -I/usr/include/gdk-pixbuf-2.0 -I/usr/include/libmount -I/usr/include/blkid -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/fribidi -I/usr/include/freetype2 -I/usr/include/libpng16 -I/usr/include/cairo -I/usr/include/pixman-1 -I/usr/include/gdk-pixbuf-2.0 -I/usr/include/libmount -I/usr/include/blkid -I/usr/include/atk-1.0 -pthread -I/usr/include/libxml2 -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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache 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 3814128000) (memory 3814211680) 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) x86_64-pc-linux-gnu checking host system type... (cached) x86_64-pc-linux-gnu checking for ld used by gcc... (cached) /usr/bin/ld checking if the linker (/usr/bin/ld) is GNU ld... (cached) yes checking for shared library run path origin... (cached) done checking host CPU and C ABI... (cached) x86_64 checking for the common suffixes of directories in the library search path... (cached) lib64,lib64 checking how to link with libsvm... /usr/lib64/libsvm.so 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0x2430000 - 0x2450fff 0x100000000000 - 0x1000000bffff 0x155055cbc000 - 0x155056360fff 0x155056361000 - 0x1550563b4fff 0x1550563b5000 - 0x1550563b6fff 0x1550563b7000 - 0x1550563dbfff 0x1550563dc000 - 0x15505652bfff 0x15505652c000 - 0x155056576fff 0x155056577000 - 0x155056579fff 0x15505657a000 - 0x15505657cfff 0x15505657d000 - 0x155056580fff 0x155056581000 - 0x155056583fff 0x155056584000 - 0x155056595fff 0x155056596000 - 0x155056599fff 0x15505659a000 - 0x15505659afff 0x15505659b000 - 0x15505659bfff 0x15505659c000 - 0x1550565acfff 0x1550565ad000 - 0x1550565e4fff 0x1550565e5000 - 0x15505671bfff 0x15505671c000 - 0x15505671ffff 0x155056720000 - 0x155056720fff 0x155056721000 - 0x155056721fff 0x155056722000 - 0x155056723fff 0x155056724000 - 0x155056724fff 0x155056725000 - 0x155056725fff 0x155056726000 - 0x155056726fff 0x155056727000 - 0x155056728fff 0x155056729000 - 0x15505672afff 0x15505672b000 - 0x15505672dfff 0x15505672e000 - 0x15505672efff 0x15505672f000 - 0x15505672ffff 0x155056730000 - 0x155056730fff 0x155056731000 - 0x155056732fff 0x155056733000 - 0x155056734fff 0x155056735000 - 0x155056735fff 0x155056736000 - 0x155056736fff 0x155056737000 - 0x155056737fff 0x155056738000 - 0x155056745fff 0x155056746000 - 0x155056753fff 0x155056754000 - 0x155056761fff 0x155056762000 - 0x155056765fff 0x155056766000 - 0x155056766fff 0x155056767000 - 0x155056768fff 0x155056769000 - 0x15505677dfff 0x15505677e000 - 0x155056797fff 0x155056798000 - 0x155056798fff 0x155056799000 - 0x1550567a1fff 0x1550567a2000 - 0x1550567b0fff 0x1550567b1000 - 0x15505684cfff 0x15505684d000 - 0x1550568e5fff 0x1550568e6000 - 0x1550568e6fff 0x1550568e7000 - 0x1550568e7fff 0x1550568e8000 - 0x1550568fdfff 0x1550568fe000 - 0x155056929fff 0x15505692a000 - 0x155056932fff 0x155056933000 - 0x155056933fff 0x155056934000 - 0x155056936fff 0x155056937000 - 0x15505693cfff 0x15505693d000 - 0x15505693ffff 0x155056942000 - 0x155056942fff 0x155056943000 - 0x155056943fff 0x155056944000 - 0x15505694afff 0x15505694b000 - 0x15505694cfff 0x15505694d000 - 0x15505696dfff 0x15505696e000 - 0x155056975fff 0x155056976000 - 0x155056976fff 0x155056977000 - 0x155056977fff 0x155056978000 - 0x155056978fff 0x155056979000 - 0x155056979fff 0x7ffc263f5000 - 0x7ffc26416fff 0x7ffc264be000 - 0x7ffc264c1fff 0x7ffc264c2000 - 0x7ffc264c3fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache 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 3814128000) (memory 3814211680) 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) x86_64-pc-linux-gnu checking host system type... (cached) x86_64-pc-linux-gnu checking for ld used by gcc... (cached) /usr/bin/ld checking if the linker (/usr/bin/ld) is GNU ld... (cached) yes checking for shared library run path origin... (cached) done checking host CPU and C ABI... (cached) x86_64 checking for the common suffixes of directories in the library search path... (cached) lib64,lib64 checking how to link with libpari... /usr/lib64/libpari.so 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0x2068000 - 0x2088fff 0x100000000000 - 0x1000000bffff 0x147286581000 - 0x147286c25fff 0x147286c26000 - 0x147286c79fff 0x147286c7a000 - 0x147286c7bfff 0x147286c7c000 - 0x147286ca0fff 0x147286ca1000 - 0x147286df0fff 0x147286df1000 - 0x147286e3bfff 0x147286e3c000 - 0x147286e3efff 0x147286e3f000 - 0x147286e41fff 0x147286e42000 - 0x147286e45fff 0x147286e46000 - 0x147286e48fff 0x147286e49000 - 0x147286e5afff 0x147286e5b000 - 0x147286e5efff 0x147286e5f000 - 0x147286e5ffff 0x147286e60000 - 0x147286e60fff 0x147286e61000 - 0x147286e71fff 0x147286e72000 - 0x147286ea9fff 0x147286eaa000 - 0x147286fe0fff 0x147286fe1000 - 0x147286fe4fff 0x147286fe5000 - 0x147286fe5fff 0x147286fe6000 - 0x147286fe6fff 0x147286fe7000 - 0x147286fe8fff 0x147286fe9000 - 0x147286fe9fff 0x147286fea000 - 0x147286feafff 0x147286feb000 - 0x147286febfff 0x147286fec000 - 0x147286fedfff 0x147286fee000 - 0x147286feffff 0x147286ff0000 - 0x147286ff2fff 0x147286ff3000 - 0x147286ff3fff 0x147286ff4000 - 0x147286ff4fff 0x147286ff5000 - 0x147286ff5fff 0x147286ff6000 - 0x147286ff7fff 0x147286ff8000 - 0x147286ff9fff 0x147286ffa000 - 0x147286ffafff 0x147286ffb000 - 0x147286ffbfff 0x147286ffc000 - 0x147286ffcfff 0x147286ffd000 - 0x14728700afff 0x14728700b000 - 0x147287018fff 0x147287019000 - 0x147287026fff 0x147287027000 - 0x14728702afff 0x14728702b000 - 0x14728702bfff 0x14728702c000 - 0x14728702dfff 0x14728702e000 - 0x147287042fff 0x147287043000 - 0x14728705cfff 0x14728705d000 - 0x14728705dfff 0x14728705e000 - 0x147287066fff 0x147287067000 - 0x147287075fff 0x147287076000 - 0x147287111fff 0x147287112000 - 0x1472871aafff 0x1472871ab000 - 0x1472871abfff 0x1472871ac000 - 0x1472871acfff 0x1472871ad000 - 0x1472871c2fff 0x1472871c3000 - 0x1472871eefff 0x1472871ef000 - 0x1472871f7fff 0x1472871f8000 - 0x1472871f8fff 0x1472871f9000 - 0x1472871fbfff 0x1472871fc000 - 0x147287201fff 0x147287202000 - 0x147287204fff 0x147287207000 - 0x147287207fff 0x147287208000 - 0x147287208fff 0x147287209000 - 0x14728720ffff 0x147287210000 - 0x147287211fff 0x147287212000 - 0x147287232fff 0x147287233000 - 0x14728723afff 0x14728723b000 - 0x14728723bfff 0x14728723c000 - 0x14728723cfff 0x14728723d000 - 0x14728723dfff 0x14728723e000 - 0x14728723efff 0x7ffc09354000 - 0x7ffc09375fff 0x7ffc093b9000 - 0x7ffc093bcfff 0x7ffc093bd000 - 0x7ffc093befff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0x19c6000 - 0x19e6fff 0x100000000000 - 0x1000000bffff 0x154e333a2000 - 0x154e33a46fff 0x154e33a47000 - 0x154e33a9afff 0x154e33a9b000 - 0x154e33a9cfff 0x154e33a9d000 - 0x154e33ac1fff 0x154e33ac2000 - 0x154e33c11fff 0x154e33c12000 - 0x154e33c5cfff 0x154e33c5d000 - 0x154e33c5ffff 0x154e33c60000 - 0x154e33c62fff 0x154e33c63000 - 0x154e33c66fff 0x154e33c67000 - 0x154e33c69fff 0x154e33c6a000 - 0x154e33c7bfff 0x154e33c7c000 - 0x154e33c7ffff 0x154e33c80000 - 0x154e33c80fff 0x154e33c81000 - 0x154e33c81fff 0x154e33c82000 - 0x154e33c92fff 0x154e33c93000 - 0x154e33ccafff 0x154e33ccb000 - 0x154e33e01fff 0x154e33e02000 - 0x154e33e05fff 0x154e33e06000 - 0x154e33e06fff 0x154e33e07000 - 0x154e33e07fff 0x154e33e08000 - 0x154e33e09fff 0x154e33e0a000 - 0x154e33e0afff 0x154e33e0b000 - 0x154e33e0bfff 0x154e33e0c000 - 0x154e33e0cfff 0x154e33e0d000 - 0x154e33e0efff 0x154e33e0f000 - 0x154e33e10fff 0x154e33e11000 - 0x154e33e13fff 0x154e33e14000 - 0x154e33e14fff 0x154e33e15000 - 0x154e33e15fff 0x154e33e16000 - 0x154e33e16fff 0x154e33e17000 - 0x154e33e18fff 0x154e33e19000 - 0x154e33e1afff 0x154e33e1b000 - 0x154e33e1bfff 0x154e33e1c000 - 0x154e33e1cfff 0x154e33e1d000 - 0x154e33e1dfff 0x154e33e1e000 - 0x154e33e2bfff 0x154e33e2c000 - 0x154e33e39fff 0x154e33e3a000 - 0x154e33e47fff 0x154e33e48000 - 0x154e33e4bfff 0x154e33e4c000 - 0x154e33e4cfff 0x154e33e4d000 - 0x154e33e4efff 0x154e33e4f000 - 0x154e33e63fff 0x154e33e64000 - 0x154e33e7dfff 0x154e33e7e000 - 0x154e33e7efff 0x154e33e7f000 - 0x154e33e87fff 0x154e33e88000 - 0x154e33e96fff 0x154e33e97000 - 0x154e33f32fff 0x154e33f33000 - 0x154e33fcbfff 0x154e33fcc000 - 0x154e33fccfff 0x154e33fcd000 - 0x154e33fcdfff 0x154e33fce000 - 0x154e33fe3fff 0x154e33fe4000 - 0x154e3400ffff 0x154e34010000 - 0x154e34018fff 0x154e34019000 - 0x154e34019fff 0x154e3401a000 - 0x154e3401cfff 0x154e3401d000 - 0x154e34022fff 0x154e34023000 - 0x154e34025fff 0x154e34028000 - 0x154e34028fff 0x154e34029000 - 0x154e34029fff 0x154e3402a000 - 0x154e34030fff 0x154e34031000 - 0x154e34032fff 0x154e34033000 - 0x154e34053fff 0x154e34054000 - 0x154e3405bfff 0x154e3405c000 - 0x154e3405cfff 0x154e3405d000 - 0x154e3405dfff 0x154e3405e000 - 0x154e3405efff 0x154e3405f000 - 0x154e3405ffff 0x7ffd3d763000 - 0x7ffd3d784fff 0x7ffd3d7a6000 - 0x7ffd3d7a9fff 0x7ffd3d7aa000 - 0x7ffd3d7abfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache 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 3814128000) (memory 3814211680) 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) x86_64-pc-linux-gnu checking host system type... (cached) x86_64-pc-linux-gnu checking for ld used by gcc... (cached) /usr/bin/ld checking if the linker (/usr/bin/ld) is GNU ld... (cached) yes checking for shared library run path origin... (cached) done checking host CPU and C ABI... (cached) x86_64 checking for the common suffixes of directories in the library search path... (cached) lib64,lib64 checking how to link with libpcre... /usr/lib64/libpcre.so 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0x120d000 - 0x122dfff 0x100000000000 - 0x1000000bffff 0x14fa7cec8000 - 0x14fa7d56cfff 0x14fa7d56d000 - 0x14fa7d5c0fff 0x14fa7d5c1000 - 0x14fa7d5c2fff 0x14fa7d5c3000 - 0x14fa7d5e7fff 0x14fa7d5e8000 - 0x14fa7d737fff 0x14fa7d738000 - 0x14fa7d782fff 0x14fa7d783000 - 0x14fa7d785fff 0x14fa7d786000 - 0x14fa7d788fff 0x14fa7d789000 - 0x14fa7d78cfff 0x14fa7d78d000 - 0x14fa7d78ffff 0x14fa7d790000 - 0x14fa7d7a1fff 0x14fa7d7a2000 - 0x14fa7d7a5fff 0x14fa7d7a6000 - 0x14fa7d7a6fff 0x14fa7d7a7000 - 0x14fa7d7a7fff 0x14fa7d7a8000 - 0x14fa7d7b8fff 0x14fa7d7b9000 - 0x14fa7d7f0fff 0x14fa7d7f1000 - 0x14fa7d927fff 0x14fa7d928000 - 0x14fa7d92bfff 0x14fa7d92c000 - 0x14fa7d92cfff 0x14fa7d92d000 - 0x14fa7d92dfff 0x14fa7d92e000 - 0x14fa7d92ffff 0x14fa7d930000 - 0x14fa7d930fff 0x14fa7d931000 - 0x14fa7d931fff 0x14fa7d932000 - 0x14fa7d932fff 0x14fa7d933000 - 0x14fa7d934fff 0x14fa7d935000 - 0x14fa7d936fff 0x14fa7d937000 - 0x14fa7d939fff 0x14fa7d93a000 - 0x14fa7d93afff 0x14fa7d93b000 - 0x14fa7d93bfff 0x14fa7d93c000 - 0x14fa7d93cfff 0x14fa7d93d000 - 0x14fa7d93efff 0x14fa7d93f000 - 0x14fa7d940fff 0x14fa7d941000 - 0x14fa7d941fff 0x14fa7d942000 - 0x14fa7d942fff 0x14fa7d943000 - 0x14fa7d943fff 0x14fa7d944000 - 0x14fa7d951fff 0x14fa7d952000 - 0x14fa7d95ffff 0x14fa7d960000 - 0x14fa7d96dfff 0x14fa7d96e000 - 0x14fa7d971fff 0x14fa7d972000 - 0x14fa7d972fff 0x14fa7d973000 - 0x14fa7d974fff 0x14fa7d975000 - 0x14fa7d989fff 0x14fa7d98a000 - 0x14fa7d9a3fff 0x14fa7d9a4000 - 0x14fa7d9a4fff 0x14fa7d9a5000 - 0x14fa7d9adfff 0x14fa7d9ae000 - 0x14fa7d9bcfff 0x14fa7d9bd000 - 0x14fa7da58fff 0x14fa7da59000 - 0x14fa7daf1fff 0x14fa7daf2000 - 0x14fa7daf2fff 0x14fa7daf3000 - 0x14fa7daf3fff 0x14fa7daf4000 - 0x14fa7db09fff 0x14fa7db0a000 - 0x14fa7db35fff 0x14fa7db36000 - 0x14fa7db3efff 0x14fa7db3f000 - 0x14fa7db3ffff 0x14fa7db40000 - 0x14fa7db42fff 0x14fa7db43000 - 0x14fa7db48fff 0x14fa7db49000 - 0x14fa7db4bfff 0x14fa7db4e000 - 0x14fa7db4efff 0x14fa7db4f000 - 0x14fa7db4ffff 0x14fa7db50000 - 0x14fa7db56fff 0x14fa7db57000 - 0x14fa7db58fff 0x14fa7db59000 - 0x14fa7db79fff 0x14fa7db7a000 - 0x14fa7db81fff 0x14fa7db82000 - 0x14fa7db82fff 0x14fa7db83000 - 0x14fa7db83fff 0x14fa7db84000 - 0x14fa7db84fff 0x14fa7db85000 - 0x14fa7db85fff 0x7fff85518000 - 0x7fff85539fff 0x7fff85594000 - 0x7fff85597fff 0x7fff85598000 - 0x7fff85599fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0x1cdb000 - 0x1cfbfff 0x100000000000 - 0x1000000bffff 0x152cc7534000 - 0x152cc7bd8fff 0x152cc7bd9000 - 0x152cc7c2cfff 0x152cc7c2d000 - 0x152cc7c2efff 0x152cc7c2f000 - 0x152cc7c53fff 0x152cc7c54000 - 0x152cc7da3fff 0x152cc7da4000 - 0x152cc7deefff 0x152cc7def000 - 0x152cc7df1fff 0x152cc7df2000 - 0x152cc7df4fff 0x152cc7df5000 - 0x152cc7df8fff 0x152cc7df9000 - 0x152cc7dfbfff 0x152cc7dfc000 - 0x152cc7e0dfff 0x152cc7e0e000 - 0x152cc7e11fff 0x152cc7e12000 - 0x152cc7e12fff 0x152cc7e13000 - 0x152cc7e13fff 0x152cc7e14000 - 0x152cc7e24fff 0x152cc7e25000 - 0x152cc7e5cfff 0x152cc7e5d000 - 0x152cc7f93fff 0x152cc7f94000 - 0x152cc7f97fff 0x152cc7f98000 - 0x152cc7f98fff 0x152cc7f99000 - 0x152cc7f99fff 0x152cc7f9a000 - 0x152cc7f9bfff 0x152cc7f9c000 - 0x152cc7f9cfff 0x152cc7f9d000 - 0x152cc7f9dfff 0x152cc7f9e000 - 0x152cc7f9efff 0x152cc7f9f000 - 0x152cc7fa0fff 0x152cc7fa1000 - 0x152cc7fa2fff 0x152cc7fa3000 - 0x152cc7fa5fff 0x152cc7fa6000 - 0x152cc7fa6fff 0x152cc7fa7000 - 0x152cc7fa7fff 0x152cc7fa8000 - 0x152cc7fa8fff 0x152cc7fa9000 - 0x152cc7faafff 0x152cc7fab000 - 0x152cc7facfff 0x152cc7fad000 - 0x152cc7fadfff 0x152cc7fae000 - 0x152cc7faefff 0x152cc7faf000 - 0x152cc7faffff 0x152cc7fb0000 - 0x152cc7fbdfff 0x152cc7fbe000 - 0x152cc7fcbfff 0x152cc7fcc000 - 0x152cc7fd9fff 0x152cc7fda000 - 0x152cc7fddfff 0x152cc7fde000 - 0x152cc7fdefff 0x152cc7fdf000 - 0x152cc7fe0fff 0x152cc7fe1000 - 0x152cc7ff5fff 0x152cc7ff6000 - 0x152cc800ffff 0x152cc8010000 - 0x152cc8010fff 0x152cc8011000 - 0x152cc8019fff 0x152cc801a000 - 0x152cc8028fff 0x152cc8029000 - 0x152cc80c4fff 0x152cc80c5000 - 0x152cc815dfff 0x152cc815e000 - 0x152cc815efff 0x152cc815f000 - 0x152cc815ffff 0x152cc8160000 - 0x152cc8175fff 0x152cc8176000 - 0x152cc81a1fff 0x152cc81a2000 - 0x152cc81aafff 0x152cc81ab000 - 0x152cc81abfff 0x152cc81ac000 - 0x152cc81aefff 0x152cc81af000 - 0x152cc81b4fff 0x152cc81b5000 - 0x152cc81b7fff 0x152cc81ba000 - 0x152cc81bafff 0x152cc81bb000 - 0x152cc81bbfff 0x152cc81bc000 - 0x152cc81c2fff 0x152cc81c3000 - 0x152cc81c4fff 0x152cc81c5000 - 0x152cc81e5fff 0x152cc81e6000 - 0x152cc81edfff 0x152cc81ee000 - 0x152cc81eefff 0x152cc81ef000 - 0x152cc81effff 0x152cc81f0000 - 0x152cc81f0fff 0x152cc81f1000 - 0x152cc81f1fff 0x7ffe3cfa1000 - 0x7ffe3cfc2fff 0x7ffe3cfe6000 - 0x7ffe3cfe9fff 0x7ffe3cfea000 - 0x7ffe3cfebfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache 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 3814128000) (memory 3814211680) 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) x86_64-pc-linux-gnu checking host system type... (cached) x86_64-pc-linux-gnu checking for ld used by gcc... (cached) /usr/bin/ld checking if the linker (/usr/bin/ld) is GNU ld... (cached) yes checking for shared library run path origin... (cached) done checking host CPU and C ABI... (cached) x86_64 checking for the common suffixes of directories in the library search path... (cached) lib64,lib64 checking how to link with libpq... /usr/lib64/libpq.so 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0x122f000 - 0x124ffff 0x100000000000 - 0x1000000bffff 0x1506fe27d000 - 0x1506fe921fff 0x1506fe922000 - 0x1506fe975fff 0x1506fe976000 - 0x1506fe977fff 0x1506fe978000 - 0x1506fe99cfff 0x1506fe99d000 - 0x1506feaecfff 0x1506feaed000 - 0x1506feb37fff 0x1506feb38000 - 0x1506feb3afff 0x1506feb3b000 - 0x1506feb3dfff 0x1506feb3e000 - 0x1506feb41fff 0x1506feb42000 - 0x1506feb44fff 0x1506feb45000 - 0x1506feb56fff 0x1506feb57000 - 0x1506feb5afff 0x1506feb5b000 - 0x1506feb5bfff 0x1506feb5c000 - 0x1506feb5cfff 0x1506feb5d000 - 0x1506feb6dfff 0x1506feb6e000 - 0x1506feba5fff 0x1506feba6000 - 0x1506fecdcfff 0x1506fecdd000 - 0x1506fece0fff 0x1506fece1000 - 0x1506fece1fff 0x1506fece2000 - 0x1506fece2fff 0x1506fece3000 - 0x1506fece4fff 0x1506fece5000 - 0x1506fece5fff 0x1506fece6000 - 0x1506fece6fff 0x1506fece7000 - 0x1506fece7fff 0x1506fece8000 - 0x1506fece9fff 0x1506fecea000 - 0x1506fecebfff 0x1506fecec000 - 0x1506feceefff 0x1506fecef000 - 0x1506feceffff 0x1506fecf0000 - 0x1506fecf0fff 0x1506fecf1000 - 0x1506fecf1fff 0x1506fecf2000 - 0x1506fecf3fff 0x1506fecf4000 - 0x1506fecf5fff 0x1506fecf6000 - 0x1506fecf6fff 0x1506fecf7000 - 0x1506fecf7fff 0x1506fecf8000 - 0x1506fecf8fff 0x1506fecf9000 - 0x1506fed06fff 0x1506fed07000 - 0x1506fed14fff 0x1506fed15000 - 0x1506fed22fff 0x1506fed23000 - 0x1506fed26fff 0x1506fed27000 - 0x1506fed27fff 0x1506fed28000 - 0x1506fed29fff 0x1506fed2a000 - 0x1506fed3efff 0x1506fed3f000 - 0x1506fed58fff 0x1506fed59000 - 0x1506fed59fff 0x1506fed5a000 - 0x1506fed62fff 0x1506fed63000 - 0x1506fed71fff 0x1506fed72000 - 0x1506fee0dfff 0x1506fee0e000 - 0x1506feea6fff 0x1506feea7000 - 0x1506feea7fff 0x1506feea8000 - 0x1506feea8fff 0x1506feea9000 - 0x1506feebefff 0x1506feebf000 - 0x1506feeeafff 0x1506feeeb000 - 0x1506feef3fff 0x1506feef4000 - 0x1506feef4fff 0x1506feef5000 - 0x1506feef7fff 0x1506feef8000 - 0x1506feefdfff 0x1506feefe000 - 0x1506fef00fff 0x1506fef03000 - 0x1506fef03fff 0x1506fef04000 - 0x1506fef04fff 0x1506fef05000 - 0x1506fef0bfff 0x1506fef0c000 - 0x1506fef0dfff 0x1506fef0e000 - 0x1506fef2efff 0x1506fef2f000 - 0x1506fef36fff 0x1506fef37000 - 0x1506fef37fff 0x1506fef38000 - 0x1506fef38fff 0x1506fef39000 - 0x1506fef39fff 0x1506fef3a000 - 0x1506fef3afff 0x7fff7500b000 - 0x7fff7502cfff 0x7fff751d1000 - 0x7fff751d4fff 0x7fff751d5000 - 0x7fff751d6fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0x130b000 - 0x132bfff 0x100000000000 - 0x1000000bffff 0x14d6d4d74000 - 0x14d6d5418fff 0x14d6d5419000 - 0x14d6d546cfff 0x14d6d546d000 - 0x14d6d546efff 0x14d6d546f000 - 0x14d6d5493fff 0x14d6d5494000 - 0x14d6d55e3fff 0x14d6d55e4000 - 0x14d6d562efff 0x14d6d562f000 - 0x14d6d5631fff 0x14d6d5632000 - 0x14d6d5634fff 0x14d6d5635000 - 0x14d6d5638fff 0x14d6d5639000 - 0x14d6d563bfff 0x14d6d563c000 - 0x14d6d564dfff 0x14d6d564e000 - 0x14d6d5651fff 0x14d6d5652000 - 0x14d6d5652fff 0x14d6d5653000 - 0x14d6d5653fff 0x14d6d5654000 - 0x14d6d5664fff 0x14d6d5665000 - 0x14d6d569cfff 0x14d6d569d000 - 0x14d6d57d3fff 0x14d6d57d4000 - 0x14d6d57d7fff 0x14d6d57d8000 - 0x14d6d57d8fff 0x14d6d57d9000 - 0x14d6d57d9fff 0x14d6d57da000 - 0x14d6d57dbfff 0x14d6d57dc000 - 0x14d6d57dcfff 0x14d6d57dd000 - 0x14d6d57ddfff 0x14d6d57de000 - 0x14d6d57defff 0x14d6d57df000 - 0x14d6d57e0fff 0x14d6d57e1000 - 0x14d6d57e2fff 0x14d6d57e3000 - 0x14d6d57e5fff 0x14d6d57e6000 - 0x14d6d57e6fff 0x14d6d57e7000 - 0x14d6d57e7fff 0x14d6d57e8000 - 0x14d6d57e8fff 0x14d6d57e9000 - 0x14d6d57eafff 0x14d6d57eb000 - 0x14d6d57ecfff 0x14d6d57ed000 - 0x14d6d57edfff 0x14d6d57ee000 - 0x14d6d57eefff 0x14d6d57ef000 - 0x14d6d57effff 0x14d6d57f0000 - 0x14d6d57fdfff 0x14d6d57fe000 - 0x14d6d580bfff 0x14d6d580c000 - 0x14d6d5819fff 0x14d6d581a000 - 0x14d6d581dfff 0x14d6d581e000 - 0x14d6d581efff 0x14d6d581f000 - 0x14d6d5820fff 0x14d6d5821000 - 0x14d6d5835fff 0x14d6d5836000 - 0x14d6d584ffff 0x14d6d5850000 - 0x14d6d5850fff 0x14d6d5851000 - 0x14d6d5859fff 0x14d6d585a000 - 0x14d6d5868fff 0x14d6d5869000 - 0x14d6d5904fff 0x14d6d5905000 - 0x14d6d599dfff 0x14d6d599e000 - 0x14d6d599efff 0x14d6d599f000 - 0x14d6d599ffff 0x14d6d59a0000 - 0x14d6d59b5fff 0x14d6d59b6000 - 0x14d6d59e1fff 0x14d6d59e2000 - 0x14d6d59eafff 0x14d6d59eb000 - 0x14d6d59ebfff 0x14d6d59ec000 - 0x14d6d59eefff 0x14d6d59ef000 - 0x14d6d59f4fff 0x14d6d59f5000 - 0x14d6d59f7fff 0x14d6d59fa000 - 0x14d6d59fafff 0x14d6d59fb000 - 0x14d6d59fbfff 0x14d6d59fc000 - 0x14d6d5a02fff 0x14d6d5a03000 - 0x14d6d5a04fff 0x14d6d5a05000 - 0x14d6d5a25fff 0x14d6d5a26000 - 0x14d6d5a2dfff 0x14d6d5a2e000 - 0x14d6d5a2efff 0x14d6d5a2f000 - 0x14d6d5a2ffff 0x14d6d5a30000 - 0x14d6d5a30fff 0x14d6d5a31000 - 0x14d6d5a31fff 0x7ffc64485000 - 0x7ffc644a6fff 0x7ffc64545000 - 0x7ffc64548fff 0x7ffc64549000 - 0x7ffc6454afff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache 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 3814128000) (memory 3814211680) 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0xcde000 - 0xcfefff 0x100000000000 - 0x1000000bffff 0x14a93eaaf000 - 0x14a93f153fff 0x14a93f154000 - 0x14a93f1a7fff 0x14a93f1a8000 - 0x14a93f1a9fff 0x14a93f1aa000 - 0x14a93f1cefff 0x14a93f1cf000 - 0x14a93f31efff 0x14a93f31f000 - 0x14a93f369fff 0x14a93f36a000 - 0x14a93f36cfff 0x14a93f36d000 - 0x14a93f36ffff 0x14a93f370000 - 0x14a93f373fff 0x14a93f374000 - 0x14a93f376fff 0x14a93f377000 - 0x14a93f388fff 0x14a93f389000 - 0x14a93f38cfff 0x14a93f38d000 - 0x14a93f38dfff 0x14a93f38e000 - 0x14a93f38efff 0x14a93f38f000 - 0x14a93f39ffff 0x14a93f3a0000 - 0x14a93f3d7fff 0x14a93f3d8000 - 0x14a93f50efff 0x14a93f50f000 - 0x14a93f512fff 0x14a93f513000 - 0x14a93f513fff 0x14a93f514000 - 0x14a93f514fff 0x14a93f515000 - 0x14a93f516fff 0x14a93f517000 - 0x14a93f517fff 0x14a93f518000 - 0x14a93f518fff 0x14a93f519000 - 0x14a93f519fff 0x14a93f51a000 - 0x14a93f51bfff 0x14a93f51c000 - 0x14a93f51dfff 0x14a93f51e000 - 0x14a93f520fff 0x14a93f521000 - 0x14a93f521fff 0x14a93f522000 - 0x14a93f522fff 0x14a93f523000 - 0x14a93f523fff 0x14a93f524000 - 0x14a93f525fff 0x14a93f526000 - 0x14a93f527fff 0x14a93f528000 - 0x14a93f528fff 0x14a93f529000 - 0x14a93f529fff 0x14a93f52a000 - 0x14a93f52afff 0x14a93f52b000 - 0x14a93f538fff 0x14a93f539000 - 0x14a93f546fff 0x14a93f547000 - 0x14a93f554fff 0x14a93f555000 - 0x14a93f558fff 0x14a93f559000 - 0x14a93f559fff 0x14a93f55a000 - 0x14a93f55bfff 0x14a93f55c000 - 0x14a93f570fff 0x14a93f571000 - 0x14a93f58afff 0x14a93f58b000 - 0x14a93f58bfff 0x14a93f58c000 - 0x14a93f594fff 0x14a93f595000 - 0x14a93f5a3fff 0x14a93f5a4000 - 0x14a93f63ffff 0x14a93f640000 - 0x14a93f6d8fff 0x14a93f6d9000 - 0x14a93f6d9fff 0x14a93f6da000 - 0x14a93f6dafff 0x14a93f6db000 - 0x14a93f6f0fff 0x14a93f6f1000 - 0x14a93f71cfff 0x14a93f71d000 - 0x14a93f725fff 0x14a93f726000 - 0x14a93f726fff 0x14a93f727000 - 0x14a93f729fff 0x14a93f72a000 - 0x14a93f72ffff 0x14a93f730000 - 0x14a93f732fff 0x14a93f735000 - 0x14a93f735fff 0x14a93f736000 - 0x14a93f736fff 0x14a93f737000 - 0x14a93f73dfff 0x14a93f73e000 - 0x14a93f73ffff 0x14a93f740000 - 0x14a93f760fff 0x14a93f761000 - 0x14a93f768fff 0x14a93f769000 - 0x14a93f769fff 0x14a93f76a000 - 0x14a93f76afff 0x14a93f76b000 - 0x14a93f76bfff 0x14a93f76c000 - 0x14a93f76cfff 0x7ffcda9f8000 - 0x7ffcdaa19fff 0x7ffcdaa44000 - 0x7ffcdaa47fff 0x7ffcdaa48000 - 0x7ffcdaa49fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0x703000 - 0x723fff 0x100000000000 - 0x1000000bffff 0x14a79f95c000 - 0x14a7a0000fff 0x14a7a0001000 - 0x14a7a0054fff 0x14a7a0055000 - 0x14a7a0056fff 0x14a7a0057000 - 0x14a7a007bfff 0x14a7a007c000 - 0x14a7a01cbfff 0x14a7a01cc000 - 0x14a7a0216fff 0x14a7a0217000 - 0x14a7a0219fff 0x14a7a021a000 - 0x14a7a021cfff 0x14a7a021d000 - 0x14a7a0220fff 0x14a7a0221000 - 0x14a7a0223fff 0x14a7a0224000 - 0x14a7a0235fff 0x14a7a0236000 - 0x14a7a0239fff 0x14a7a023a000 - 0x14a7a023afff 0x14a7a023b000 - 0x14a7a023bfff 0x14a7a023c000 - 0x14a7a024cfff 0x14a7a024d000 - 0x14a7a0284fff 0x14a7a0285000 - 0x14a7a03bbfff 0x14a7a03bc000 - 0x14a7a03bffff 0x14a7a03c0000 - 0x14a7a03c0fff 0x14a7a03c1000 - 0x14a7a03c1fff 0x14a7a03c2000 - 0x14a7a03c3fff 0x14a7a03c4000 - 0x14a7a03c4fff 0x14a7a03c5000 - 0x14a7a03c5fff 0x14a7a03c6000 - 0x14a7a03c6fff 0x14a7a03c7000 - 0x14a7a03c8fff 0x14a7a03c9000 - 0x14a7a03cafff 0x14a7a03cb000 - 0x14a7a03cdfff 0x14a7a03ce000 - 0x14a7a03cefff 0x14a7a03cf000 - 0x14a7a03cffff 0x14a7a03d0000 - 0x14a7a03d0fff 0x14a7a03d1000 - 0x14a7a03d2fff 0x14a7a03d3000 - 0x14a7a03d4fff 0x14a7a03d5000 - 0x14a7a03d5fff 0x14a7a03d6000 - 0x14a7a03d6fff 0x14a7a03d7000 - 0x14a7a03d7fff 0x14a7a03d8000 - 0x14a7a03e5fff 0x14a7a03e6000 - 0x14a7a03f3fff 0x14a7a03f4000 - 0x14a7a0401fff 0x14a7a0402000 - 0x14a7a0405fff 0x14a7a0406000 - 0x14a7a0406fff 0x14a7a0407000 - 0x14a7a0408fff 0x14a7a0409000 - 0x14a7a041dfff 0x14a7a041e000 - 0x14a7a0437fff 0x14a7a0438000 - 0x14a7a0438fff 0x14a7a0439000 - 0x14a7a0441fff 0x14a7a0442000 - 0x14a7a0450fff 0x14a7a0451000 - 0x14a7a04ecfff 0x14a7a04ed000 - 0x14a7a0585fff 0x14a7a0586000 - 0x14a7a0586fff 0x14a7a0587000 - 0x14a7a0587fff 0x14a7a0588000 - 0x14a7a059dfff 0x14a7a059e000 - 0x14a7a05c9fff 0x14a7a05ca000 - 0x14a7a05d2fff 0x14a7a05d3000 - 0x14a7a05d3fff 0x14a7a05d4000 - 0x14a7a05d6fff 0x14a7a05d7000 - 0x14a7a05dcfff 0x14a7a05dd000 - 0x14a7a05dffff 0x14a7a05e2000 - 0x14a7a05e2fff 0x14a7a05e3000 - 0x14a7a05e3fff 0x14a7a05e4000 - 0x14a7a05eafff 0x14a7a05eb000 - 0x14a7a05ecfff 0x14a7a05ed000 - 0x14a7a060dfff 0x14a7a060e000 - 0x14a7a0615fff 0x14a7a0616000 - 0x14a7a0616fff 0x14a7a0617000 - 0x14a7a0617fff 0x14a7a0618000 - 0x14a7a0618fff 0x14a7a0619000 - 0x14a7a0619fff 0x7fffa0dbe000 - 0x7fffa0ddffff 0x7fffa0de9000 - 0x7fffa0decfff 0x7fffa0ded000 - 0x7fffa0deefff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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; | ^~~~~~~~~~~~ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so configure: loading cache ../config.cache 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 3814128000) (memory 3814211680) 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) x86_64-pc-linux-gnu checking host system type... (cached) x86_64-pc-linux-gnu checking for ld used by gcc... (cached) /usr/bin/ld checking if the linker (/usr/bin/ld) is GNU ld... (cached) yes checking for shared library run path origin... (cached) done checking host CPU and C ABI... (cached) x86_64 checking for the common suffixes of directories in the library search path... (cached) lib64,lib64 checking how to link with libz... /usr/lib64/libz.so 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0x22e9000 - 0x2309fff 0x100000000000 - 0x1000000bffff 0x145a2d27a000 - 0x145a2d91efff 0x145a2d91f000 - 0x145a2d972fff 0x145a2d973000 - 0x145a2d974fff 0x145a2d975000 - 0x145a2d999fff 0x145a2d99a000 - 0x145a2dae9fff 0x145a2daea000 - 0x145a2db34fff 0x145a2db35000 - 0x145a2db37fff 0x145a2db38000 - 0x145a2db3afff 0x145a2db3b000 - 0x145a2db3efff 0x145a2db3f000 - 0x145a2db41fff 0x145a2db42000 - 0x145a2db53fff 0x145a2db54000 - 0x145a2db57fff 0x145a2db58000 - 0x145a2db58fff 0x145a2db59000 - 0x145a2db59fff 0x145a2db5a000 - 0x145a2db6afff 0x145a2db6b000 - 0x145a2dba2fff 0x145a2dba3000 - 0x145a2dcd9fff 0x145a2dcda000 - 0x145a2dcddfff 0x145a2dcde000 - 0x145a2dcdefff 0x145a2dcdf000 - 0x145a2dcdffff 0x145a2dce0000 - 0x145a2dce1fff 0x145a2dce2000 - 0x145a2dce2fff 0x145a2dce3000 - 0x145a2dce3fff 0x145a2dce4000 - 0x145a2dce4fff 0x145a2dce5000 - 0x145a2dce6fff 0x145a2dce7000 - 0x145a2dce8fff 0x145a2dce9000 - 0x145a2dcebfff 0x145a2dcec000 - 0x145a2dcecfff 0x145a2dced000 - 0x145a2dcedfff 0x145a2dcee000 - 0x145a2dceefff 0x145a2dcef000 - 0x145a2dcf0fff 0x145a2dcf1000 - 0x145a2dcf2fff 0x145a2dcf3000 - 0x145a2dcf3fff 0x145a2dcf4000 - 0x145a2dcf4fff 0x145a2dcf5000 - 0x145a2dcf5fff 0x145a2dcf6000 - 0x145a2dd03fff 0x145a2dd04000 - 0x145a2dd11fff 0x145a2dd12000 - 0x145a2dd1ffff 0x145a2dd20000 - 0x145a2dd23fff 0x145a2dd24000 - 0x145a2dd24fff 0x145a2dd25000 - 0x145a2dd26fff 0x145a2dd27000 - 0x145a2dd3bfff 0x145a2dd3c000 - 0x145a2dd55fff 0x145a2dd56000 - 0x145a2dd56fff 0x145a2dd57000 - 0x145a2dd5ffff 0x145a2dd60000 - 0x145a2dd6efff 0x145a2dd6f000 - 0x145a2de0afff 0x145a2de0b000 - 0x145a2dea3fff 0x145a2dea4000 - 0x145a2dea4fff 0x145a2dea5000 - 0x145a2dea5fff 0x145a2dea6000 - 0x145a2debbfff 0x145a2debc000 - 0x145a2dee7fff 0x145a2dee8000 - 0x145a2def0fff 0x145a2def1000 - 0x145a2def1fff 0x145a2def2000 - 0x145a2def4fff 0x145a2def5000 - 0x145a2defafff 0x145a2defb000 - 0x145a2defdfff 0x145a2df00000 - 0x145a2df00fff 0x145a2df01000 - 0x145a2df01fff 0x145a2df02000 - 0x145a2df08fff 0x145a2df09000 - 0x145a2df0afff 0x145a2df0b000 - 0x145a2df2bfff 0x145a2df2c000 - 0x145a2df33fff 0x145a2df34000 - 0x145a2df34fff 0x145a2df35000 - 0x145a2df35fff 0x145a2df36000 - 0x145a2df36fff 0x145a2df37000 - 0x145a2df37fff 0x7ffd60ed1000 - 0x7ffd60ef2fff 0x7ffd60ef9000 - 0x7ffd60efcfff 0x7ffd60efd000 - 0x7ffd60efefff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit -c modules.c gcc -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic modules.o zlib.o /usr/lib64/libz.so rawsock.o postgresql.o /usr/lib64/libpq.so cpcre.o /usr/lib64/libpcre.so cpari.o pari.o -lm /usr/lib64/libpari.so libsvm.o -lm /usr/lib64/libsvm.so gtk.o -lgtk-x11-2.0 -lgdk-x11-2.0 -lpangocairo-1.0 -latk-1.0 -lcairo -lgdk_pixbuf-2.0 -lgio-2.0 -lpangoft2-1.0 -lpango-1.0 -lgobject-2.0 -lglib-2.0 -lharfbuzz -lfontconfig -lfreetype -lglade-2.0 -lgtk-x11-2.0 -lgdk-x11-2.0 -lpangocairo-1.0 -latk-1.0 -lcairo -lgdk_pixbuf-2.0 -lgio-2.0 -lpangoft2-1.0 -lpango-1.0 -lgobject-2.0 -lglib-2.0 -lharfbuzz -lfontconfig -lfreetype -lxml2 gdbm.o /usr/lib64/libgdbm.so fastcgi.o fastcgi_wrappers.o /usr/lib64/libfcgi.so dbus.o -ldbus-1 clx.o -lXpm -lXext -lXau -lSM -lICE -lX11 linux.o -lm bdb.o /usr/lib64/libdb.so readline.o -lreadline -lncurses regexi.o calls.o -lm -lcrypt gettext.o lisp.a -Wl,--whole-archive libgnu.a -Wl,--no-whole-archive -lreadline -lncurses -ldl /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl -o lisp.run /usr/bin/ld: linux.o: in function `module__linux__init_function_2': /builddir/build/BUILD/clisp-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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0x1487000 - 0x14a7fff 0x100000000000 - 0x1000000bffff 0x1480cbbab000 - 0x1480cc24ffff 0x1480cc250000 - 0x1480cc2a3fff 0x1480cc2a4000 - 0x1480cc2a5fff 0x1480cc2a6000 - 0x1480cc2cafff 0x1480cc2cb000 - 0x1480cc41afff 0x1480cc41b000 - 0x1480cc465fff 0x1480cc466000 - 0x1480cc468fff 0x1480cc469000 - 0x1480cc46bfff 0x1480cc46c000 - 0x1480cc46ffff 0x1480cc470000 - 0x1480cc472fff 0x1480cc473000 - 0x1480cc484fff 0x1480cc485000 - 0x1480cc488fff 0x1480cc489000 - 0x1480cc489fff 0x1480cc48a000 - 0x1480cc48afff 0x1480cc48b000 - 0x1480cc49bfff 0x1480cc49c000 - 0x1480cc4d3fff 0x1480cc4d4000 - 0x1480cc60afff 0x1480cc60b000 - 0x1480cc60efff 0x1480cc60f000 - 0x1480cc60ffff 0x1480cc610000 - 0x1480cc610fff 0x1480cc611000 - 0x1480cc612fff 0x1480cc613000 - 0x1480cc613fff 0x1480cc614000 - 0x1480cc614fff 0x1480cc615000 - 0x1480cc615fff 0x1480cc616000 - 0x1480cc617fff 0x1480cc618000 - 0x1480cc619fff 0x1480cc61a000 - 0x1480cc61cfff 0x1480cc61d000 - 0x1480cc61dfff 0x1480cc61e000 - 0x1480cc61efff 0x1480cc61f000 - 0x1480cc61ffff 0x1480cc620000 - 0x1480cc621fff 0x1480cc622000 - 0x1480cc623fff 0x1480cc624000 - 0x1480cc624fff 0x1480cc625000 - 0x1480cc625fff 0x1480cc626000 - 0x1480cc626fff 0x1480cc627000 - 0x1480cc634fff 0x1480cc635000 - 0x1480cc642fff 0x1480cc643000 - 0x1480cc650fff 0x1480cc651000 - 0x1480cc654fff 0x1480cc655000 - 0x1480cc655fff 0x1480cc656000 - 0x1480cc657fff 0x1480cc658000 - 0x1480cc66cfff 0x1480cc66d000 - 0x1480cc686fff 0x1480cc687000 - 0x1480cc687fff 0x1480cc688000 - 0x1480cc690fff 0x1480cc691000 - 0x1480cc69ffff 0x1480cc6a0000 - 0x1480cc73bfff 0x1480cc73c000 - 0x1480cc7d4fff 0x1480cc7d5000 - 0x1480cc7d5fff 0x1480cc7d6000 - 0x1480cc7d6fff 0x1480cc7d7000 - 0x1480cc7ecfff 0x1480cc7ed000 - 0x1480cc818fff 0x1480cc819000 - 0x1480cc821fff 0x1480cc822000 - 0x1480cc822fff 0x1480cc823000 - 0x1480cc825fff 0x1480cc826000 - 0x1480cc82bfff 0x1480cc82c000 - 0x1480cc82efff 0x1480cc831000 - 0x1480cc831fff 0x1480cc832000 - 0x1480cc832fff 0x1480cc833000 - 0x1480cc839fff 0x1480cc83a000 - 0x1480cc83bfff 0x1480cc83c000 - 0x1480cc85cfff 0x1480cc85d000 - 0x1480cc864fff 0x1480cc865000 - 0x1480cc865fff 0x1480cc866000 - 0x1480cc866fff 0x1480cc867000 - 0x1480cc867fff 0x1480cc868000 - 0x1480cc868fff 0x7ffeb4c5d000 - 0x7ffeb4c7dfff 0x7ffeb4cb4000 - 0x7ffeb4cb7fff 0x7ffeb4cb8000 - 0x7ffeb4cb9fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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,803,528 bytes) Bytes permanently allocated: 179,976 Bytes currently in use: 3,615,464 Bytes available until next GC: 899,756 3615464 ; 899756 ; 179976 ; 1 ; 582000 ; 9748 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x44efff 0x44f000 - 0x5bcfff 0x5bd000 - 0x638fff 0x63a000 - 0x670fff 0x671000 - 0x6aefff 0x6af000 - 0x6d5fff 0x736000 - 0x777fff 0x100000000000 - 0x1000000bffff 0x1507d22a7000 - 0x1507d294bfff 0x1507d294c000 - 0x1507d299ffff 0x1507d29a0000 - 0x1507d29abfff 0x1507d29ac000 - 0x1507d29affff 0x1507d29b0000 - 0x1507d29c3fff 0x1507d29c4000 - 0x1507d29ccfff 0x1507d29cd000 - 0x1507d29cdfff 0x1507d29ce000 - 0x1507d29cefff 0x1507d29cf000 - 0x1507d29cffff 0x1507d29d0000 - 0x1507d29d1fff 0x1507d29d2000 - 0x1507d29d5fff 0x1507d29d6000 - 0x1507d29d7fff 0x1507d29d8000 - 0x1507d29d8fff 0x1507d29d9000 - 0x1507d29d9fff 0x1507d29da000 - 0x1507d29dcfff 0x1507d29dd000 - 0x1507d2a47fff 0x1507d2a48000 - 0x1507d2a70fff 0x1507d2a71000 - 0x1507d2a71fff 0x1507d2a72000 - 0x1507d2a72fff 0x1507d2a73000 - 0x1507d2a7bfff 0x1507d2a7c000 - 0x1507d2aaffff 0x1507d2ab0000 - 0x1507d2abffff 0x1507d2ac0000 - 0x1507d2ac0fff 0x1507d2ac1000 - 0x1507d2ac4fff 0x1507d2ac5000 - 0x1507d2ac5fff 0x1507d2ac6000 - 0x1507d2ad1fff 0x1507d2ad2000 - 0x1507d2ba3fff 0x1507d2ba4000 - 0x1507d2bdffff 0x1507d2be0000 - 0x1507d2be1fff 0x1507d2be2000 - 0x1507d2be6fff 0x1507d2be7000 - 0x1507d2be8fff 0x1507d2be9000 - 0x1507d2beafff 0x1507d2beb000 - 0x1507d2c04fff 0x1507d2c05000 - 0x1507d2c07fff 0x1507d2c08000 - 0x1507d2c08fff 0x1507d2c09000 - 0x1507d2c09fff 0x1507d2c0a000 - 0x1507d2c0bfff 0x1507d2c0c000 - 0x1507d2c18fff 0x1507d2c19000 - 0x1507d2c1afff 0x1507d2c1b000 - 0x1507d2c1bfff 0x1507d2c1c000 - 0x1507d2c1cfff 0x1507d2c1d000 - 0x1507d2c1ffff 0x1507d2c20000 - 0x1507d2c38fff 0x1507d2c39000 - 0x1507d2c3dfff 0x1507d2c3e000 - 0x1507d2c3ffff 0x1507d2c40000 - 0x1507d2c40fff 0x1507d2c41000 - 0x1507d2c43fff 0x1507d2c44000 - 0x1507d2c5cfff 0x1507d2c5d000 - 0x1507d2c67fff 0x1507d2c68000 - 0x1507d2c68fff 0x1507d2c69000 - 0x1507d2c69fff 0x1507d2c6a000 - 0x1507d2c6afff 0x1507d2c6b000 - 0x1507d2c6efff 0x1507d2c6f000 - 0x1507d2c8bfff 0x1507d2c8c000 - 0x1507d2c95fff 0x1507d2c96000 - 0x1507d2c96fff 0x1507d2c97000 - 0x1507d2c98fff 0x1507d2c99000 - 0x1507d2c9bfff 0x1507d2c9c000 - 0x1507d2c9dfff 0x1507d2c9e000 - 0x1507d2ca2fff 0x1507d2ca3000 - 0x1507d2ca5fff 0x1507d2ca6000 - 0x1507d2ca6fff 0x1507d2ca7000 - 0x1507d2ca7fff 0x1507d2ca8000 - 0x1507d2ca9fff 0x1507d2caa000 - 0x1507d2caefff 0x1507d2caf000 - 0x1507d2cc3fff 0x1507d2cc4000 - 0x1507d2cc4fff 0x1507d2cc5000 - 0x1507d2cc5fff 0x1507d2cc6000 - 0x1507d2cc6fff 0x1507d2cc7000 - 0x1507d2ccdfff 0x1507d2cce000 - 0x1507d2ce7fff 0x1507d2ce8000 - 0x1507d2ceffff 0x1507d2cf0000 - 0x1507d2cf0fff 0x1507d2cf1000 - 0x1507d2cf1fff 0x1507d2cf2000 - 0x1507d2cf3fff 0x1507d2cf4000 - 0x1507d2cfffff 0x1507d2d00000 - 0x1507d2d3dfff 0x1507d2d3e000 - 0x1507d2d4ffff 0x1507d2d50000 - 0x1507d2d50fff 0x1507d2d51000 - 0x1507d2d52fff 0x1507d2d53000 - 0x1507d2d53fff 0x1507d2d54000 - 0x1507d2d56fff 0x1507d2d57000 - 0x1507d2d5afff 0x1507d2d5b000 - 0x1507d2d5bfff 0x1507d2d5c000 - 0x1507d2d5cfff 0x1507d2d5d000 - 0x1507d2d5dfff 0x1507d2d5e000 - 0x1507d2d5efff 0x1507d2d5f000 - 0x1507d2d60fff 0x1507d2d61000 - 0x1507d2d65fff 0x1507d2d66000 - 0x1507d2d6bfff 0x1507d2d6c000 - 0x1507d2d6dfff 0x1507d2d6e000 - 0x1507d2d6efff 0x1507d2d6f000 - 0x1507d2d6ffff 0x1507d2d70000 - 0x1507d2d70fff 0x1507d2d71000 - 0x1507d2d71fff 0x1507d2d72000 - 0x1507d2d72fff 0x1507d2d73000 - 0x1507d2d73fff 0x1507d2d74000 - 0x1507d2d74fff 0x1507d2d75000 - 0x1507d2d75fff 0x1507d2d76000 - 0x1507d2d80fff 0x1507d2d81000 - 0x1507d2e05fff 0x1507d2e06000 - 0x1507d2e17fff 0x1507d2e18000 - 0x1507d2e18fff 0x1507d2e19000 - 0x1507d2e20fff 0x1507d2e21000 - 0x1507d2e21fff 0x1507d2e22000 - 0x1507d2e26fff 0x1507d2e27000 - 0x1507d2e39fff 0x1507d2e3a000 - 0x1507d2e3ffff 0x1507d2e40000 - 0x1507d2e40fff 0x1507d2e41000 - 0x1507d2e41fff 0x1507d2e42000 - 0x1507d2e45fff 0x1507d2e46000 - 0x1507d2e4dfff 0x1507d2e4e000 - 0x1507d2e50fff 0x1507d2e51000 - 0x1507d2e51fff 0x1507d2e52000 - 0x1507d2e52fff 0x1507d2e53000 - 0x1507d2e53fff 0x1507d2e54000 - 0x1507d2e55fff 0x1507d2e56000 - 0x1507d2e59fff 0x1507d2e5a000 - 0x1507d2e67fff 0x1507d2e68000 - 0x1507d2e6afff 0x1507d2e6b000 - 0x1507d2e6bfff 0x1507d2e6c000 - 0x1507d2e6cfff 0x1507d2e6d000 - 0x1507d2e6dfff 0x1507d2e6e000 - 0x1507d2e6ffff 0x1507d2e70000 - 0x1507d2e71fff 0x1507d2e72000 - 0x1507d2e73fff 0x1507d2e74000 - 0x1507d2e74fff 0x1507d2e75000 - 0x1507d2e75fff 0x1507d2e76000 - 0x1507d2e76fff 0x1507d2e77000 - 0x1507d2e7afff 0x1507d2e7b000 - 0x1507d2e83fff 0x1507d2e84000 - 0x1507d2e86fff 0x1507d2e87000 - 0x1507d2e87fff 0x1507d2e88000 - 0x1507d2e88fff 0x1507d2e89000 - 0x1507d2e8afff 0x1507d2e8b000 - 0x1507d2e8cfff 0x1507d2e8d000 - 0x1507d2e8dfff 0x1507d2e8e000 - 0x1507d2e8efff 0x1507d2e8f000 - 0x1507d2e8ffff 0x1507d2e90000 - 0x1507d2e94fff 0x1507d2e95000 - 0x1507d2ea1fff 0x1507d2ea2000 - 0x1507d2ea5fff 0x1507d2ea6000 - 0x1507d2ea7fff 0x1507d2ea8000 - 0x1507d2ea8fff 0x1507d2ea9000 - 0x1507d2ecbfff 0x1507d2ecc000 - 0x1507d2f39fff 0x1507d2f3a000 - 0x1507d2f82fff 0x1507d2f83000 - 0x1507d2f91fff 0x1507d2f92000 - 0x1507d2f93fff 0x1507d2f94000 - 0x1507d2f95fff 0x1507d2f96000 - 0x1507d2fa1fff 0x1507d2fa2000 - 0x1507d2fb6fff 0x1507d2fb7000 - 0x1507d2fbffff 0x1507d2fc0000 - 0x1507d2fc0fff 0x1507d2fc1000 - 0x1507d2fc1fff 0x1507d2fc2000 - 0x1507d2fd2fff 0x1507d2fd3000 - 0x1507d304afff 0x1507d304b000 - 0x1507d3072fff 0x1507d3073000 - 0x1507d3076fff 0x1507d3077000 - 0x1507d3077fff 0x1507d3078000 - 0x1507d3078fff 0x1507d3079000 - 0x1507d3085fff 0x1507d3086000 - 0x1507d310afff 0x1507d310b000 - 0x1507d3134fff 0x1507d3135000 - 0x1507d3135fff 0x1507d3136000 - 0x1507d313cfff 0x1507d313d000 - 0x1507d313dfff 0x1507d313e000 - 0x1507d3146fff 0x1507d3147000 - 0x1507d31e9fff 0x1507d31ea000 - 0x1507d321dfff 0x1507d321e000 - 0x1507d321efff 0x1507d321f000 - 0x1507d321ffff 0x1507d3220000 - 0x1507d324dfff 0x1507d324e000 - 0x1507d3339fff 0x1507d333a000 - 0x1507d3383fff 0x1507d3384000 - 0x1507d3384fff 0x1507d3385000 - 0x1507d338dfff 0x1507d338e000 - 0x1507d338efff 0x1507d338f000 - 0x1507d3392fff 0x1507d3393000 - 0x1507d3394fff 0x1507d3395000 - 0x1507d3399fff 0x1507d339a000 - 0x1507d339afff 0x1507d339b000 - 0x1507d339bfff 0x1507d339c000 - 0x1507d339cfff 0x1507d339d000 - 0x1507d339dfff 0x1507d339e000 - 0x1507d33a2fff 0x1507d33a3000 - 0x1507d33c7fff 0x1507d33c8000 - 0x1507d33d2fff 0x1507d33d3000 - 0x1507d33d3fff 0x1507d33d4000 - 0x1507d33d4fff 0x1507d33d5000 - 0x1507d33d5fff 0x1507d33d6000 - 0x1507d33d6fff 0x1507d33d7000 - 0x1507d33d7fff 0x1507d33d8000 - 0x1507d33d8fff 0x1507d33d9000 - 0x1507d33d9fff 0x1507d33da000 - 0x1507d33dafff 0x1507d33db000 - 0x1507d33dbfff 0x1507d33dc000 - 0x1507d33dcfff 0x1507d33dd000 - 0x1507d33ddfff 0x1507d33de000 - 0x1507d33defff 0x1507d33df000 - 0x1507d33e1fff 0x1507d33e2000 - 0x1507d33e7fff 0x1507d33e8000 - 0x1507d33e9fff 0x1507d33ea000 - 0x1507d33eafff 0x1507d33eb000 - 0x1507d33ebfff 0x1507d33ec000 - 0x1507d33edfff 0x1507d33ee000 - 0x1507d33f4fff 0x1507d33f5000 - 0x1507d33f6fff 0x1507d33f7000 - 0x1507d33f7fff 0x1507d33f8000 - 0x1507d33f8fff 0x1507d33f9000 - 0x1507d33fafff 0x1507d33fb000 - 0x1507d33fcfff 0x1507d33fd000 - 0x1507d3407fff 0x1507d3408000 - 0x1507d340afff 0x1507d340b000 - 0x1507d340bfff 0x1507d340c000 - 0x1507d340cfff 0x1507d340d000 - 0x1507d340dfff 0x1507d340e000 - 0x1507d340efff 0x1507d340f000 - 0x1507d340ffff 0x1507d3410000 - 0x1507d3410fff 0x1507d3411000 - 0x1507d3411fff 0x1507d3412000 - 0x1507d3413fff 0x1507d3414000 - 0x1507d341afff 0x1507d341b000 - 0x1507d341cfff 0x1507d341d000 - 0x1507d341dfff 0x1507d341e000 - 0x1507d341efff 0x1507d341f000 - 0x1507d3425fff 0x1507d3426000 - 0x1507d344dfff 0x1507d344e000 - 0x1507d3465fff 0x1507d3466000 - 0x1507d3466fff 0x1507d3467000 - 0x1507d3468fff 0x1507d3469000 - 0x1507d3469fff 0x1507d346a000 - 0x1507d3477fff 0x1507d3478000 - 0x1507d349dfff 0x1507d349e000 - 0x1507d34b4fff 0x1507d34b5000 - 0x1507d34b7fff 0x1507d34b8000 - 0x1507d34b8fff 0x1507d34b9000 - 0x1507d34bffff 0x1507d34c0000 - 0x1507d34cafff 0x1507d34cb000 - 0x1507d34cefff 0x1507d34cf000 - 0x1507d34cffff 0x1507d34d0000 - 0x1507d34d0fff 0x1507d34d1000 - 0x1507d34d3fff 0x1507d34d4000 - 0x1507d350bfff 0x1507d350c000 - 0x1507d3622fff 0x1507d3623000 - 0x1507d36abfff 0x1507d36ac000 - 0x1507d36b4fff 0x1507d36b5000 - 0x1507d36b5fff 0x1507d36b6000 - 0x1507d36b7fff 0x1507d36b8000 - 0x1507d36c9fff 0x1507d36ca000 - 0x1507d379cfff 0x1507d379d000 - 0x1507d37d8fff 0x1507d37d9000 - 0x1507d37d9fff 0x1507d37da000 - 0x1507d37ddfff 0x1507d37de000 - 0x1507d37defff 0x1507d37df000 - 0x1507d37dffff 0x1507d37e0000 - 0x1507d37eafff 0x1507d37eb000 - 0x1507d37f9fff 0x1507d37fa000 - 0x1507d3805fff 0x1507d3806000 - 0x1507d3808fff 0x1507d3809000 - 0x1507d3809fff 0x1507d380a000 - 0x1507d380bfff 0x1507d380c000 - 0x1507d380efff 0x1507d380f000 - 0x1507d380ffff 0x1507d3810000 - 0x1507d3810fff 0x1507d3811000 - 0x1507d3811fff 0x1507d3812000 - 0x1507d3812fff 0x1507d3813000 - 0x1507d3817fff 0x1507d3818000 - 0x1507d381ffff 0x1507d3820000 - 0x1507d3822fff 0x1507d3823000 - 0x1507d3823fff 0x1507d3824000 - 0x1507d3824fff 0x1507d3825000 - 0x1507d3825fff 0x1507d3826000 - 0x1507d3827fff 0x1507d3828000 - 0x1507d3828fff 0x1507d3829000 - 0x1507d3829fff 0x1507d382a000 - 0x1507d382afff 0x1507d382b000 - 0x1507d382cfff 0x1507d382d000 - 0x1507d38c2fff 0x1507d38c3000 - 0x1507d39bafff 0x1507d39bb000 - 0x1507d3a0afff 0x1507d3a0b000 - 0x1507d3a0bfff 0x1507d3a0c000 - 0x1507d3a16fff 0x1507d3a17000 - 0x1507d3a19fff 0x1507d3a1a000 - 0x1507d3a1cfff 0x1507d3a1d000 - 0x1507d3a2bfff 0x1507d3a2c000 - 0x1507d3a99fff 0x1507d3a9a000 - 0x1507d3ab0fff 0x1507d3ab1000 - 0x1507d3ab2fff 0x1507d3ab3000 - 0x1507d3ab3fff 0x1507d3ab4000 - 0x1507d3abafff 0x1507d3abb000 - 0x1507d3acafff 0x1507d3acb000 - 0x1507d3acffff 0x1507d3ad0000 - 0x1507d3ad0fff 0x1507d3ad1000 - 0x1507d3ad1fff 0x1507d3ad2000 - 0x1507d3ad5fff 0x1507d3ad6000 - 0x1507d3ae4fff 0x1507d3ae5000 - 0x1507d3b1afff 0x1507d3b1b000 - 0x1507d3b29fff 0x1507d3b2a000 - 0x1507d3b2afff 0x1507d3b2b000 - 0x1507d3b2cfff 0x1507d3b2d000 - 0x1507d3b2dfff 0x1507d3b2e000 - 0x1507d3b2ffff 0x1507d3b30000 - 0x1507d3b3bfff 0x1507d3b3c000 - 0x1507d3b75fff 0x1507d3b76000 - 0x1507d3b82fff 0x1507d3b83000 - 0x1507d3b83fff 0x1507d3b84000 - 0x1507d3b85fff 0x1507d3b86000 - 0x1507d3b86fff 0x1507d3b87000 - 0x1507d3c00fff 0x1507d3c01000 - 0x1507d3dadfff 0x1507d3dae000 - 0x1507d3e3ffff 0x1507d3e40000 - 0x1507d3e40fff 0x1507d3e41000 - 0x1507d3e6bfff 0x1507d3e6c000 - 0x1507d3e6ffff 0x1507d3e70000 - 0x1507d3e75fff 0x1507d3e76000 - 0x1507d3e92fff 0x1507d3e93000 - 0x1507d3ee3fff 0x1507d3ee4000 - 0x1507d3efdfff 0x1507d3efe000 - 0x1507d3efefff 0x1507d3eff000 - 0x1507d3f07fff 0x1507d3f08000 - 0x1507d3f0bfff 0x1507d3f0c000 - 0x1507d3f0cfff 0x1507d3f0d000 - 0x1507d3f31fff 0x1507d3f32000 - 0x1507d4081fff 0x1507d4082000 - 0x1507d40ccfff 0x1507d40cd000 - 0x1507d40cffff 0x1507d40d0000 - 0x1507d40d2fff 0x1507d40d3000 - 0x1507d40d6fff 0x1507d40d7000 - 0x1507d40d9fff 0x1507d40da000 - 0x1507d40ebfff 0x1507d40ec000 - 0x1507d40effff 0x1507d40f0000 - 0x1507d40f0fff 0x1507d40f1000 - 0x1507d40f1fff 0x1507d40f2000 - 0x1507d4102fff 0x1507d4103000 - 0x1507d413afff 0x1507d413b000 - 0x1507d4271fff 0x1507d4272000 - 0x1507d4275fff 0x1507d4276000 - 0x1507d4276fff 0x1507d4277000 - 0x1507d4277fff 0x1507d4278000 - 0x1507d4279fff 0x1507d427a000 - 0x1507d427afff 0x1507d427b000 - 0x1507d427bfff 0x1507d427c000 - 0x1507d427cfff 0x1507d427d000 - 0x1507d427efff 0x1507d427f000 - 0x1507d4281fff 0x1507d4282000 - 0x1507d4282fff 0x1507d4283000 - 0x1507d4283fff 0x1507d4284000 - 0x1507d4286fff 0x1507d4287000 - 0x1507d4288fff 0x1507d4289000 - 0x1507d428afff 0x1507d428b000 - 0x1507d428bfff 0x1507d428c000 - 0x1507d428cfff 0x1507d428d000 - 0x1507d428dfff 0x1507d428e000 - 0x1507d429bfff 0x1507d429c000 - 0x1507d42a9fff 0x1507d42aa000 - 0x1507d42b7fff 0x1507d42b8000 - 0x1507d42bbfff 0x1507d42bc000 - 0x1507d42bcfff 0x1507d42bd000 - 0x1507d42befff 0x1507d42bf000 - 0x1507d42d3fff 0x1507d42d4000 - 0x1507d42edfff 0x1507d42ee000 - 0x1507d42eefff 0x1507d42ef000 - 0x1507d42f7fff 0x1507d42f8000 - 0x1507d430dfff 0x1507d430e000 - 0x1507d4339fff 0x1507d433a000 - 0x1507d4342fff 0x1507d4343000 - 0x1507d4343fff 0x1507d4344000 - 0x1507d4346fff 0x1507d4347000 - 0x1507d434cfff 0x1507d434d000 - 0x1507d434dfff 0x1507d434e000 - 0x1507d4377fff 0x1507d4378000 - 0x1507d44c8fff 0x1507d44c9000 - 0x1507d450ffff 0x1507d4510000 - 0x1507d4519fff 0x1507d451a000 - 0x1507d451afff 0x1507d451b000 - 0x1507d4529fff 0x1507d452a000 - 0x1507d45c5fff 0x1507d45c6000 - 0x1507d465efff 0x1507d465f000 - 0x1507d465ffff 0x1507d4660000 - 0x1507d4660fff 0x1507d4661000 - 0x1507d4662fff 0x1507d4663000 - 0x1507d467efff 0x1507d467f000 - 0x1507d470efff 0x1507d470f000 - 0x1507d47a2fff 0x1507d47a3000 - 0x1507d47a5fff 0x1507d47a6000 - 0x1507d47a9fff 0x1507d47aa000 - 0x1507d47aafff 0x1507d47ab000 - 0x1507d47acfff 0x1507d47ad000 - 0x1507d47adfff 0x1507d47ae000 - 0x1507d47aefff 0x1507d47af000 - 0x1507d47affff 0x1507d47b0000 - 0x1507d47b3fff 0x1507d47b4000 - 0x1507d47befff 0x1507d47bf000 - 0x1507d47c2fff 0x1507d47c3000 - 0x1507d47c3fff 0x1507d47c4000 - 0x1507d47c4fff 0x1507d47c5000 - 0x1507d47c7fff 0x1507d47c8000 - 0x1507d47d4fff 0x1507d47d5000 - 0x1507d47d7fff 0x1507d47d8000 - 0x1507d47d8fff 0x1507d47d9000 - 0x1507d47d9fff 0x1507d47da000 - 0x1507d47e6fff 0x1507d47e7000 - 0x1507d4818fff 0x1507d4819000 - 0x1507d482dfff 0x1507d482e000 - 0x1507d482ffff 0x1507d4830000 - 0x1507d4830fff 0x1507d4831000 - 0x1507d4833fff 0x1507d4834000 - 0x1507d4839fff 0x1507d483a000 - 0x1507d483bfff 0x1507d483c000 - 0x1507d483cfff 0x1507d483d000 - 0x1507d483dfff 0x1507d483e000 - 0x1507d483efff 0x1507d483f000 - 0x1507d4840fff 0x1507d4841000 - 0x1507d4843fff 0x1507d4844000 - 0x1507d484cfff 0x1507d484d000 - 0x1507d484ffff 0x1507d4850000 - 0x1507d4850fff 0x1507d4851000 - 0x1507d4851fff 0x1507d4852000 - 0x1507d4859fff 0x1507d485a000 - 0x1507d4868fff 0x1507d4869000 - 0x1507d486cfff 0x1507d486d000 - 0x1507d486efff 0x1507d486f000 - 0x1507d486ffff 0x1507d4870000 - 0x1507d488bfff 0x1507d488c000 - 0x1507d4911fff 0x1507d4912000 - 0x1507d4996fff 0x1507d4997000 - 0x1507d4997fff 0x1507d4998000 - 0x1507d4998fff 0x1507d4999000 - 0x1507d4999fff 0x1507d499a000 - 0x1507d499afff 0x1507d499b000 - 0x1507d49a7fff 0x1507d49a8000 - 0x1507d49d7fff 0x1507d49d8000 - 0x1507d49effff 0x1507d49f0000 - 0x1507d49f2fff 0x1507d49f3000 - 0x1507d49f3fff 0x1507d49f4000 - 0x1507d49fafff 0x1507d49fb000 - 0x1507d4a12fff 0x1507d4a13000 - 0x1507d4a1bfff 0x1507d4a1c000 - 0x1507d4a1cfff 0x1507d4a1d000 - 0x1507d4a1dfff 0x1507d4a1e000 - 0x1507d4a1efff 0x1507d4a1f000 - 0x1507d4a3bfff 0x1507d4a3c000 - 0x1507d4aa9fff 0x1507d4aaa000 - 0x1507d4ae7fff 0x1507d4ae8000 - 0x1507d4ae8fff 0x1507d4ae9000 - 0x1507d4aedfff 0x1507d4aee000 - 0x1507d4aeefff 0x1507d4aef000 - 0x1507d4af0fff 0x1507d4af1000 - 0x1507d4b53fff 0x1507d4b54000 - 0x1507d4e15fff 0x1507d4e16000 - 0x1507d4f95fff 0x1507d4f96000 - 0x1507d4f96fff 0x1507d4f97000 - 0x1507d4fa0fff 0x1507d4fa1000 - 0x1507d4fa1fff 0x1507d4fa2000 - 0x1507d4fa3fff 0x1507d4fa4000 - 0x1507d4fa7fff 0x1507d4fa8000 - 0x1507d4fb1fff 0x1507d4fb2000 - 0x1507d4fb3fff 0x1507d4fb4000 - 0x1507d4fb4fff 0x1507d4fb5000 - 0x1507d4fb5fff 0x1507d4fb6000 - 0x1507d503afff 0x1507d503b000 - 0x1507d5719fff 0x1507d571a000 - 0x1507d582efff 0x1507d582f000 - 0x1507d5839fff 0x1507d583a000 - 0x1507d585dfff 0x1507d585e000 - 0x1507d587bfff 0x1507d587c000 - 0x1507d587dfff 0x1507d587e000 - 0x1507d58d3fff 0x1507d58d4000 - 0x1507d58f1fff 0x1507d58f2000 - 0x1507d58f2fff 0x1507d58f3000 - 0x1507d58f3fff 0x1507d58f4000 - 0x1507d58f4fff 0x1507d58f5000 - 0x1507d58fefff 0x1507d58ff000 - 0x1507d5921fff 0x1507d5922000 - 0x1507d5940fff 0x1507d5941000 - 0x1507d5941fff 0x1507d5942000 - 0x1507d5944fff 0x1507d5945000 - 0x1507d5945fff 0x1507d5946000 - 0x1507d5948fff 0x1507d5949000 - 0x1507d5956fff 0x1507d5957000 - 0x1507d595cfff 0x1507d595d000 - 0x1507d595dfff 0x1507d595e000 - 0x1507d595efff 0x1507d595f000 - 0x1507d5961fff 0x1507d5964000 - 0x1507d5964fff 0x1507d5965000 - 0x1507d5965fff 0x1507d5966000 - 0x1507d596cfff 0x1507d596d000 - 0x1507d596efff 0x1507d596f000 - 0x1507d598ffff 0x1507d5990000 - 0x1507d5997fff 0x1507d5998000 - 0x1507d5998fff 0x1507d5999000 - 0x1507d5999fff 0x1507d599a000 - 0x1507d599afff 0x1507d599b000 - 0x1507d599bfff 0x7fff7f692000 - 0x7fff7f6b2fff 0x7fff7f7f4000 - 0x7fff7f7f7fff 0x7fff7f7f8000 - 0x7fff7f7f9fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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,854,296 bytes) Bytes permanently allocated: 209,712 Bytes currently in use: 9,626,240 Bytes available until next GC: 2,402,450 9626240 ; 2402450 ; 209712 ; 48 ; 61135560 ; 380252 ===> 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x2443000 - 0x2463fff 0x100000000000 - 0x1000000bffff 0x1517cb147000 - 0x1517cb7ebfff 0x1517cb7ec000 - 0x1517cb83ffff 0x1517cb840000 - 0x1517cb842fff 0x1517cb843000 - 0x1517cb867fff 0x1517cb868000 - 0x1517cb9b7fff 0x1517cb9b8000 - 0x1517cba02fff 0x1517cba03000 - 0x1517cba05fff 0x1517cba06000 - 0x1517cba08fff 0x1517cba09000 - 0x1517cba0cfff 0x1517cba0d000 - 0x1517cba0ffff 0x1517cba10000 - 0x1517cba21fff 0x1517cba22000 - 0x1517cba25fff 0x1517cba26000 - 0x1517cba26fff 0x1517cba27000 - 0x1517cba27fff 0x1517cba28000 - 0x1517cba29fff 0x1517cba2a000 - 0x1517cba3afff 0x1517cba3b000 - 0x1517cba72fff 0x1517cba73000 - 0x1517cbba9fff 0x1517cbbaa000 - 0x1517cbbadfff 0x1517cbbae000 - 0x1517cbbaefff 0x1517cbbaf000 - 0x1517cbbaffff 0x1517cbbb0000 - 0x1517cbbb1fff 0x1517cbbb2000 - 0x1517cbbb2fff 0x1517cbbb3000 - 0x1517cbbb3fff 0x1517cbbb4000 - 0x1517cbbb4fff 0x1517cbbb5000 - 0x1517cbbb6fff 0x1517cbbb7000 - 0x1517cbbb9fff 0x1517cbbba000 - 0x1517cbbbafff 0x1517cbbbb000 - 0x1517cbbbbfff 0x1517cbbbc000 - 0x1517cbbbcfff 0x1517cbbbd000 - 0x1517cbbbefff 0x1517cbbbf000 - 0x1517cbbc0fff 0x1517cbbc1000 - 0x1517cbbc1fff 0x1517cbbc2000 - 0x1517cbbc2fff 0x1517cbbc3000 - 0x1517cbbc3fff 0x1517cbbc4000 - 0x1517cbbd1fff 0x1517cbbd2000 - 0x1517cbbdffff 0x1517cbbe0000 - 0x1517cbbedfff 0x1517cbbee000 - 0x1517cbbf1fff 0x1517cbbf2000 - 0x1517cbbf2fff 0x1517cbbf3000 - 0x1517cbc08fff 0x1517cbc09000 - 0x1517cbc34fff 0x1517cbc35000 - 0x1517cbc3dfff 0x1517cbc3e000 - 0x1517cbc3efff 0x1517cbc3f000 - 0x1517cbc41fff 0x1517cbc42000 - 0x1517cbc47fff 0x1517cbc48000 - 0x1517cbc4afff 0x1517cbc4d000 - 0x1517cbc4dfff 0x1517cbc4e000 - 0x1517cbc4efff 0x1517cbc4f000 - 0x1517cbc55fff 0x1517cbc56000 - 0x1517cbc57fff 0x1517cbc58000 - 0x1517cbc78fff 0x1517cbc79000 - 0x1517cbc80fff 0x1517cbc81000 - 0x1517cbc81fff 0x1517cbc82000 - 0x1517cbc82fff 0x1517cbc83000 - 0x1517cbc83fff 0x1517cbc84000 - 0x1517cbc84fff 0x7ffd085f6000 - 0x7ffd08616fff 0x7ffd08744000 - 0x7ffd08747fff 0x7ffd08748000 - 0x7ffd08749fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x200d000 - 0x202dfff 0x100000000000 - 0x1000000bffff 0x14d132b21000 - 0x14d1331c5fff 0x14d1331c6000 - 0x14d133219fff 0x14d13321a000 - 0x14d13321cfff 0x14d13321d000 - 0x14d133241fff 0x14d133242000 - 0x14d133391fff 0x14d133392000 - 0x14d1333dcfff 0x14d1333dd000 - 0x14d1333dffff 0x14d1333e0000 - 0x14d1333e2fff 0x14d1333e3000 - 0x14d1333e6fff 0x14d1333e7000 - 0x14d1333e9fff 0x14d1333ea000 - 0x14d1333fbfff 0x14d1333fc000 - 0x14d1333fffff 0x14d133400000 - 0x14d133400fff 0x14d133401000 - 0x14d133401fff 0x14d133402000 - 0x14d133403fff 0x14d133404000 - 0x14d133414fff 0x14d133415000 - 0x14d13344cfff 0x14d13344d000 - 0x14d133583fff 0x14d133584000 - 0x14d133587fff 0x14d133588000 - 0x14d133588fff 0x14d133589000 - 0x14d133589fff 0x14d13358a000 - 0x14d13358bfff 0x14d13358c000 - 0x14d13358cfff 0x14d13358d000 - 0x14d13358dfff 0x14d13358e000 - 0x14d13358efff 0x14d13358f000 - 0x14d133590fff 0x14d133591000 - 0x14d133593fff 0x14d133594000 - 0x14d133594fff 0x14d133595000 - 0x14d133595fff 0x14d133596000 - 0x14d133596fff 0x14d133597000 - 0x14d133598fff 0x14d133599000 - 0x14d13359afff 0x14d13359b000 - 0x14d13359bfff 0x14d13359c000 - 0x14d13359cfff 0x14d13359d000 - 0x14d13359dfff 0x14d13359e000 - 0x14d1335abfff 0x14d1335ac000 - 0x14d1335b9fff 0x14d1335ba000 - 0x14d1335c7fff 0x14d1335c8000 - 0x14d1335cbfff 0x14d1335cc000 - 0x14d1335ccfff 0x14d1335cd000 - 0x14d1335e2fff 0x14d1335e3000 - 0x14d13360efff 0x14d13360f000 - 0x14d133617fff 0x14d133618000 - 0x14d133618fff 0x14d133619000 - 0x14d13361bfff 0x14d13361c000 - 0x14d133621fff 0x14d133622000 - 0x14d133624fff 0x14d133627000 - 0x14d133627fff 0x14d133628000 - 0x14d133628fff 0x14d133629000 - 0x14d13362ffff 0x14d133630000 - 0x14d133631fff 0x14d133632000 - 0x14d133652fff 0x14d133653000 - 0x14d13365afff 0x14d13365b000 - 0x14d13365bfff 0x14d13365c000 - 0x14d13365cfff 0x14d13365d000 - 0x14d13365dfff 0x14d13365e000 - 0x14d13365efff 0x7ffdd0d44000 - 0x7ffdd0d64fff 0x7ffdd0dd2000 - 0x7ffdd0dd5fff 0x7ffdd0dd6000 - 0x7ffdd0dd7fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xf23000 - 0xf43fff 0x100000000000 - 0x1000000bffff 0x14805447a000 - 0x148054b1efff 0x148054b1f000 - 0x148054b72fff 0x148054b73000 - 0x148054b75fff 0x148054b76000 - 0x148054b9afff 0x148054b9b000 - 0x148054ceafff 0x148054ceb000 - 0x148054d35fff 0x148054d36000 - 0x148054d38fff 0x148054d39000 - 0x148054d3bfff 0x148054d3c000 - 0x148054d3ffff 0x148054d40000 - 0x148054d42fff 0x148054d43000 - 0x148054d54fff 0x148054d55000 - 0x148054d58fff 0x148054d59000 - 0x148054d59fff 0x148054d5a000 - 0x148054d5afff 0x148054d5b000 - 0x148054d5cfff 0x148054d5d000 - 0x148054d6dfff 0x148054d6e000 - 0x148054da5fff 0x148054da6000 - 0x148054edcfff 0x148054edd000 - 0x148054ee0fff 0x148054ee1000 - 0x148054ee1fff 0x148054ee2000 - 0x148054ee2fff 0x148054ee3000 - 0x148054ee4fff 0x148054ee5000 - 0x148054ee5fff 0x148054ee6000 - 0x148054ee6fff 0x148054ee7000 - 0x148054ee7fff 0x148054ee8000 - 0x148054ee9fff 0x148054eea000 - 0x148054eecfff 0x148054eed000 - 0x148054eedfff 0x148054eee000 - 0x148054eeefff 0x148054eef000 - 0x148054eeffff 0x148054ef0000 - 0x148054ef1fff 0x148054ef2000 - 0x148054ef3fff 0x148054ef4000 - 0x148054ef4fff 0x148054ef5000 - 0x148054ef5fff 0x148054ef6000 - 0x148054ef6fff 0x148054ef7000 - 0x148054f04fff 0x148054f05000 - 0x148054f12fff 0x148054f13000 - 0x148054f20fff 0x148054f21000 - 0x148054f24fff 0x148054f25000 - 0x148054f25fff 0x148054f26000 - 0x148054f3bfff 0x148054f3c000 - 0x148054f67fff 0x148054f68000 - 0x148054f70fff 0x148054f71000 - 0x148054f71fff 0x148054f72000 - 0x148054f74fff 0x148054f75000 - 0x148054f7afff 0x148054f7b000 - 0x148054f7dfff 0x148054f80000 - 0x148054f80fff 0x148054f81000 - 0x148054f81fff 0x148054f82000 - 0x148054f88fff 0x148054f89000 - 0x148054f8afff 0x148054f8b000 - 0x148054fabfff 0x148054fac000 - 0x148054fb3fff 0x148054fb4000 - 0x148054fb4fff 0x148054fb5000 - 0x148054fb5fff 0x148054fb6000 - 0x148054fb6fff 0x148054fb7000 - 0x148054fb7fff 0x7ffc1e564000 - 0x7ffc1e584fff 0x7ffc1e5e3000 - 0x7ffc1e5e6fff 0x7ffc1e5e7000 - 0x7ffc1e5e8fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1b0d000 - 0x1b2dfff 0x100000000000 - 0x1000000bffff 0x14b361d85000 - 0x14b362429fff 0x14b36242a000 - 0x14b36247dfff 0x14b36247e000 - 0x14b362480fff 0x14b362481000 - 0x14b3624a5fff 0x14b3624a6000 - 0x14b3625f5fff 0x14b3625f6000 - 0x14b362640fff 0x14b362641000 - 0x14b362643fff 0x14b362644000 - 0x14b362646fff 0x14b362647000 - 0x14b36264afff 0x14b36264b000 - 0x14b36264dfff 0x14b36264e000 - 0x14b36265ffff 0x14b362660000 - 0x14b362663fff 0x14b362664000 - 0x14b362664fff 0x14b362665000 - 0x14b362665fff 0x14b362666000 - 0x14b362667fff 0x14b362668000 - 0x14b362678fff 0x14b362679000 - 0x14b3626b0fff 0x14b3626b1000 - 0x14b3627e7fff 0x14b3627e8000 - 0x14b3627ebfff 0x14b3627ec000 - 0x14b3627ecfff 0x14b3627ed000 - 0x14b3627edfff 0x14b3627ee000 - 0x14b3627effff 0x14b3627f0000 - 0x14b3627f0fff 0x14b3627f1000 - 0x14b3627f1fff 0x14b3627f2000 - 0x14b3627f2fff 0x14b3627f3000 - 0x14b3627f4fff 0x14b3627f5000 - 0x14b3627f7fff 0x14b3627f8000 - 0x14b3627f8fff 0x14b3627f9000 - 0x14b3627f9fff 0x14b3627fa000 - 0x14b3627fafff 0x14b3627fb000 - 0x14b3627fcfff 0x14b3627fd000 - 0x14b3627fefff 0x14b3627ff000 - 0x14b3627fffff 0x14b362800000 - 0x14b362800fff 0x14b362801000 - 0x14b362801fff 0x14b362802000 - 0x14b36280ffff 0x14b362810000 - 0x14b36281dfff 0x14b36281e000 - 0x14b36282bfff 0x14b36282c000 - 0x14b36282ffff 0x14b362830000 - 0x14b362830fff 0x14b362831000 - 0x14b362846fff 0x14b362847000 - 0x14b362872fff 0x14b362873000 - 0x14b36287bfff 0x14b36287c000 - 0x14b36287cfff 0x14b36287d000 - 0x14b36287ffff 0x14b362880000 - 0x14b362885fff 0x14b362886000 - 0x14b362888fff 0x14b36288b000 - 0x14b36288bfff 0x14b36288c000 - 0x14b36288cfff 0x14b36288d000 - 0x14b362893fff 0x14b362894000 - 0x14b362895fff 0x14b362896000 - 0x14b3628b6fff 0x14b3628b7000 - 0x14b3628befff 0x14b3628bf000 - 0x14b3628bffff 0x14b3628c0000 - 0x14b3628c0fff 0x14b3628c1000 - 0x14b3628c1fff 0x14b3628c2000 - 0x14b3628c2fff 0x7fff47564000 - 0x7fff47584fff 0x7fff475ad000 - 0x7fff475b0fff 0x7fff475b1000 - 0x7fff475b2fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xc03000 - 0xc23fff 0x100000000000 - 0x1000000bffff 0x145e1beba000 - 0x145e1c55efff 0x145e1c55f000 - 0x145e1c5b2fff 0x145e1c5b3000 - 0x145e1c5b5fff 0x145e1c5b6000 - 0x145e1c5dafff 0x145e1c5db000 - 0x145e1c72afff 0x145e1c72b000 - 0x145e1c775fff 0x145e1c776000 - 0x145e1c778fff 0x145e1c779000 - 0x145e1c77bfff 0x145e1c77c000 - 0x145e1c77ffff 0x145e1c780000 - 0x145e1c782fff 0x145e1c783000 - 0x145e1c794fff 0x145e1c795000 - 0x145e1c798fff 0x145e1c799000 - 0x145e1c799fff 0x145e1c79a000 - 0x145e1c79afff 0x145e1c79b000 - 0x145e1c79cfff 0x145e1c79d000 - 0x145e1c7adfff 0x145e1c7ae000 - 0x145e1c7e5fff 0x145e1c7e6000 - 0x145e1c91cfff 0x145e1c91d000 - 0x145e1c920fff 0x145e1c921000 - 0x145e1c921fff 0x145e1c922000 - 0x145e1c922fff 0x145e1c923000 - 0x145e1c924fff 0x145e1c925000 - 0x145e1c925fff 0x145e1c926000 - 0x145e1c926fff 0x145e1c927000 - 0x145e1c927fff 0x145e1c928000 - 0x145e1c929fff 0x145e1c92a000 - 0x145e1c92cfff 0x145e1c92d000 - 0x145e1c92dfff 0x145e1c92e000 - 0x145e1c92efff 0x145e1c92f000 - 0x145e1c92ffff 0x145e1c930000 - 0x145e1c931fff 0x145e1c932000 - 0x145e1c933fff 0x145e1c934000 - 0x145e1c934fff 0x145e1c935000 - 0x145e1c935fff 0x145e1c936000 - 0x145e1c936fff 0x145e1c937000 - 0x145e1c944fff 0x145e1c945000 - 0x145e1c952fff 0x145e1c953000 - 0x145e1c960fff 0x145e1c961000 - 0x145e1c964fff 0x145e1c965000 - 0x145e1c965fff 0x145e1c966000 - 0x145e1c97bfff 0x145e1c97c000 - 0x145e1c9a7fff 0x145e1c9a8000 - 0x145e1c9b0fff 0x145e1c9b1000 - 0x145e1c9b1fff 0x145e1c9b2000 - 0x145e1c9b4fff 0x145e1c9b5000 - 0x145e1c9bafff 0x145e1c9bb000 - 0x145e1c9bdfff 0x145e1c9c0000 - 0x145e1c9c0fff 0x145e1c9c1000 - 0x145e1c9c1fff 0x145e1c9c2000 - 0x145e1c9c8fff 0x145e1c9c9000 - 0x145e1c9cafff 0x145e1c9cb000 - 0x145e1c9ebfff 0x145e1c9ec000 - 0x145e1c9f3fff 0x145e1c9f4000 - 0x145e1c9f4fff 0x145e1c9f5000 - 0x145e1c9f5fff 0x145e1c9f6000 - 0x145e1c9f6fff 0x145e1c9f7000 - 0x145e1c9f7fff 0x7ffc906c1000 - 0x7ffc906e1fff 0x7ffc9073f000 - 0x7ffc90742fff 0x7ffc90743000 - 0x7ffc90744fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x812000 - 0x832fff 0x100000000000 - 0x1000000bffff 0x146d8d59a000 - 0x146d8dc3efff 0x146d8dc3f000 - 0x146d8dc92fff 0x146d8dc93000 - 0x146d8dc95fff 0x146d8dc96000 - 0x146d8dcbafff 0x146d8dcbb000 - 0x146d8de0afff 0x146d8de0b000 - 0x146d8de55fff 0x146d8de56000 - 0x146d8de58fff 0x146d8de59000 - 0x146d8de5bfff 0x146d8de5c000 - 0x146d8de5ffff 0x146d8de60000 - 0x146d8de62fff 0x146d8de63000 - 0x146d8de74fff 0x146d8de75000 - 0x146d8de78fff 0x146d8de79000 - 0x146d8de79fff 0x146d8de7a000 - 0x146d8de7afff 0x146d8de7b000 - 0x146d8de7cfff 0x146d8de7d000 - 0x146d8de8dfff 0x146d8de8e000 - 0x146d8dec5fff 0x146d8dec6000 - 0x146d8dffcfff 0x146d8dffd000 - 0x146d8e000fff 0x146d8e001000 - 0x146d8e001fff 0x146d8e002000 - 0x146d8e002fff 0x146d8e003000 - 0x146d8e004fff 0x146d8e005000 - 0x146d8e005fff 0x146d8e006000 - 0x146d8e006fff 0x146d8e007000 - 0x146d8e007fff 0x146d8e008000 - 0x146d8e009fff 0x146d8e00a000 - 0x146d8e00cfff 0x146d8e00d000 - 0x146d8e00dfff 0x146d8e00e000 - 0x146d8e00efff 0x146d8e00f000 - 0x146d8e00ffff 0x146d8e010000 - 0x146d8e011fff 0x146d8e012000 - 0x146d8e013fff 0x146d8e014000 - 0x146d8e014fff 0x146d8e015000 - 0x146d8e015fff 0x146d8e016000 - 0x146d8e016fff 0x146d8e017000 - 0x146d8e024fff 0x146d8e025000 - 0x146d8e032fff 0x146d8e033000 - 0x146d8e040fff 0x146d8e041000 - 0x146d8e044fff 0x146d8e045000 - 0x146d8e045fff 0x146d8e046000 - 0x146d8e05bfff 0x146d8e05c000 - 0x146d8e087fff 0x146d8e088000 - 0x146d8e090fff 0x146d8e091000 - 0x146d8e091fff 0x146d8e092000 - 0x146d8e094fff 0x146d8e095000 - 0x146d8e09afff 0x146d8e09b000 - 0x146d8e09dfff 0x146d8e0a0000 - 0x146d8e0a0fff 0x146d8e0a1000 - 0x146d8e0a1fff 0x146d8e0a2000 - 0x146d8e0a8fff 0x146d8e0a9000 - 0x146d8e0aafff 0x146d8e0ab000 - 0x146d8e0cbfff 0x146d8e0cc000 - 0x146d8e0d3fff 0x146d8e0d4000 - 0x146d8e0d4fff 0x146d8e0d5000 - 0x146d8e0d5fff 0x146d8e0d6000 - 0x146d8e0d6fff 0x146d8e0d7000 - 0x146d8e0d7fff 0x7ffed6715000 - 0x7ffed6735fff 0x7ffed6779000 - 0x7ffed677cfff 0x7ffed677d000 - 0x7ffed677efff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x19db000 - 0x19fbfff 0x100000000000 - 0x1000000bffff 0x149435d97000 - 0x14943643bfff 0x14943643c000 - 0x14943648ffff 0x149436490000 - 0x149436492fff 0x149436493000 - 0x1494364b7fff 0x1494364b8000 - 0x149436607fff 0x149436608000 - 0x149436652fff 0x149436653000 - 0x149436655fff 0x149436656000 - 0x149436658fff 0x149436659000 - 0x14943665cfff 0x14943665d000 - 0x14943665ffff 0x149436660000 - 0x149436671fff 0x149436672000 - 0x149436675fff 0x149436676000 - 0x149436676fff 0x149436677000 - 0x149436677fff 0x149436678000 - 0x149436679fff 0x14943667a000 - 0x14943668afff 0x14943668b000 - 0x1494366c2fff 0x1494366c3000 - 0x1494367f9fff 0x1494367fa000 - 0x1494367fdfff 0x1494367fe000 - 0x1494367fefff 0x1494367ff000 - 0x1494367fffff 0x149436800000 - 0x149436801fff 0x149436802000 - 0x149436802fff 0x149436803000 - 0x149436803fff 0x149436804000 - 0x149436804fff 0x149436805000 - 0x149436806fff 0x149436807000 - 0x149436809fff 0x14943680a000 - 0x14943680afff 0x14943680b000 - 0x14943680bfff 0x14943680c000 - 0x14943680cfff 0x14943680d000 - 0x14943680efff 0x14943680f000 - 0x149436810fff 0x149436811000 - 0x149436811fff 0x149436812000 - 0x149436812fff 0x149436813000 - 0x149436813fff 0x149436814000 - 0x149436821fff 0x149436822000 - 0x14943682ffff 0x149436830000 - 0x14943683dfff 0x14943683e000 - 0x149436841fff 0x149436842000 - 0x149436842fff 0x149436843000 - 0x149436858fff 0x149436859000 - 0x149436884fff 0x149436885000 - 0x14943688dfff 0x14943688e000 - 0x14943688efff 0x14943688f000 - 0x149436891fff 0x149436892000 - 0x149436897fff 0x149436898000 - 0x14943689afff 0x14943689d000 - 0x14943689dfff 0x14943689e000 - 0x14943689efff 0x14943689f000 - 0x1494368a5fff 0x1494368a6000 - 0x1494368a7fff 0x1494368a8000 - 0x1494368c8fff 0x1494368c9000 - 0x1494368d0fff 0x1494368d1000 - 0x1494368d1fff 0x1494368d2000 - 0x1494368d2fff 0x1494368d3000 - 0x1494368d3fff 0x1494368d4000 - 0x1494368d4fff 0x7ffe48e4d000 - 0x7ffe48e6dfff 0x7ffe48e7b000 - 0x7ffe48e7efff 0x7ffe48e7f000 - 0x7ffe48e80fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xc84000 - 0xca4fff 0x100000000000 - 0x1000000bffff 0x15044a7a0000 - 0x15044ae44fff 0x15044ae45000 - 0x15044ae98fff 0x15044ae99000 - 0x15044ae9bfff 0x15044ae9c000 - 0x15044aec0fff 0x15044aec1000 - 0x15044b010fff 0x15044b011000 - 0x15044b05bfff 0x15044b05c000 - 0x15044b05efff 0x15044b05f000 - 0x15044b061fff 0x15044b062000 - 0x15044b065fff 0x15044b066000 - 0x15044b068fff 0x15044b069000 - 0x15044b07afff 0x15044b07b000 - 0x15044b07efff 0x15044b07f000 - 0x15044b07ffff 0x15044b080000 - 0x15044b080fff 0x15044b081000 - 0x15044b082fff 0x15044b083000 - 0x15044b093fff 0x15044b094000 - 0x15044b0cbfff 0x15044b0cc000 - 0x15044b202fff 0x15044b203000 - 0x15044b206fff 0x15044b207000 - 0x15044b207fff 0x15044b208000 - 0x15044b208fff 0x15044b209000 - 0x15044b20afff 0x15044b20b000 - 0x15044b20bfff 0x15044b20c000 - 0x15044b20cfff 0x15044b20d000 - 0x15044b20dfff 0x15044b20e000 - 0x15044b20ffff 0x15044b210000 - 0x15044b212fff 0x15044b213000 - 0x15044b213fff 0x15044b214000 - 0x15044b214fff 0x15044b215000 - 0x15044b215fff 0x15044b216000 - 0x15044b217fff 0x15044b218000 - 0x15044b219fff 0x15044b21a000 - 0x15044b21afff 0x15044b21b000 - 0x15044b21bfff 0x15044b21c000 - 0x15044b21cfff 0x15044b21d000 - 0x15044b22afff 0x15044b22b000 - 0x15044b238fff 0x15044b239000 - 0x15044b246fff 0x15044b247000 - 0x15044b24afff 0x15044b24b000 - 0x15044b24bfff 0x15044b24c000 - 0x15044b261fff 0x15044b262000 - 0x15044b28dfff 0x15044b28e000 - 0x15044b296fff 0x15044b297000 - 0x15044b297fff 0x15044b298000 - 0x15044b29afff 0x15044b29b000 - 0x15044b2a0fff 0x15044b2a1000 - 0x15044b2a3fff 0x15044b2a6000 - 0x15044b2a6fff 0x15044b2a7000 - 0x15044b2a7fff 0x15044b2a8000 - 0x15044b2aefff 0x15044b2af000 - 0x15044b2b0fff 0x15044b2b1000 - 0x15044b2d1fff 0x15044b2d2000 - 0x15044b2d9fff 0x15044b2da000 - 0x15044b2dafff 0x15044b2db000 - 0x15044b2dbfff 0x15044b2dc000 - 0x15044b2dcfff 0x15044b2dd000 - 0x15044b2ddfff 0x7ffe60a5c000 - 0x7ffe60a7cfff 0x7ffe60bb8000 - 0x7ffe60bbbfff 0x7ffe60bbc000 - 0x7ffe60bbdfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x250d000 - 0x252dfff 0x100000000000 - 0x1000000bffff 0x154b420c2000 - 0x154b42766fff 0x154b42767000 - 0x154b427bafff 0x154b427bb000 - 0x154b427bdfff 0x154b427be000 - 0x154b427e2fff 0x154b427e3000 - 0x154b42932fff 0x154b42933000 - 0x154b4297dfff 0x154b4297e000 - 0x154b42980fff 0x154b42981000 - 0x154b42983fff 0x154b42984000 - 0x154b42987fff 0x154b42988000 - 0x154b4298afff 0x154b4298b000 - 0x154b4299cfff 0x154b4299d000 - 0x154b429a0fff 0x154b429a1000 - 0x154b429a1fff 0x154b429a2000 - 0x154b429a2fff 0x154b429a3000 - 0x154b429a4fff 0x154b429a5000 - 0x154b429b5fff 0x154b429b6000 - 0x154b429edfff 0x154b429ee000 - 0x154b42b24fff 0x154b42b25000 - 0x154b42b28fff 0x154b42b29000 - 0x154b42b29fff 0x154b42b2a000 - 0x154b42b2afff 0x154b42b2b000 - 0x154b42b2cfff 0x154b42b2d000 - 0x154b42b2dfff 0x154b42b2e000 - 0x154b42b2efff 0x154b42b2f000 - 0x154b42b2ffff 0x154b42b30000 - 0x154b42b31fff 0x154b42b32000 - 0x154b42b34fff 0x154b42b35000 - 0x154b42b35fff 0x154b42b36000 - 0x154b42b36fff 0x154b42b37000 - 0x154b42b37fff 0x154b42b38000 - 0x154b42b39fff 0x154b42b3a000 - 0x154b42b3bfff 0x154b42b3c000 - 0x154b42b3cfff 0x154b42b3d000 - 0x154b42b3dfff 0x154b42b3e000 - 0x154b42b3efff 0x154b42b3f000 - 0x154b42b4cfff 0x154b42b4d000 - 0x154b42b5afff 0x154b42b5b000 - 0x154b42b68fff 0x154b42b69000 - 0x154b42b6cfff 0x154b42b6d000 - 0x154b42b6dfff 0x154b42b6e000 - 0x154b42b83fff 0x154b42b84000 - 0x154b42baffff 0x154b42bb0000 - 0x154b42bb8fff 0x154b42bb9000 - 0x154b42bb9fff 0x154b42bba000 - 0x154b42bbcfff 0x154b42bbd000 - 0x154b42bc2fff 0x154b42bc3000 - 0x154b42bc5fff 0x154b42bc8000 - 0x154b42bc8fff 0x154b42bc9000 - 0x154b42bc9fff 0x154b42bca000 - 0x154b42bd0fff 0x154b42bd1000 - 0x154b42bd2fff 0x154b42bd3000 - 0x154b42bf3fff 0x154b42bf4000 - 0x154b42bfbfff 0x154b42bfc000 - 0x154b42bfcfff 0x154b42bfd000 - 0x154b42bfdfff 0x154b42bfe000 - 0x154b42bfefff 0x154b42bff000 - 0x154b42bfffff 0x7ffc524d7000 - 0x7ffc524f7fff 0x7ffc525d2000 - 0x7ffc525d5fff 0x7ffc525d6000 - 0x7ffc525d7fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1566000 - 0x1586fff 0x100000000000 - 0x1000000bffff 0x153089cc3000 - 0x15308a367fff 0x15308a368000 - 0x15308a3bbfff 0x15308a3bc000 - 0x15308a3befff 0x15308a3bf000 - 0x15308a3e3fff 0x15308a3e4000 - 0x15308a533fff 0x15308a534000 - 0x15308a57efff 0x15308a57f000 - 0x15308a581fff 0x15308a582000 - 0x15308a584fff 0x15308a585000 - 0x15308a588fff 0x15308a589000 - 0x15308a58bfff 0x15308a58c000 - 0x15308a59dfff 0x15308a59e000 - 0x15308a5a1fff 0x15308a5a2000 - 0x15308a5a2fff 0x15308a5a3000 - 0x15308a5a3fff 0x15308a5a4000 - 0x15308a5a5fff 0x15308a5a6000 - 0x15308a5b6fff 0x15308a5b7000 - 0x15308a5eefff 0x15308a5ef000 - 0x15308a725fff 0x15308a726000 - 0x15308a729fff 0x15308a72a000 - 0x15308a72afff 0x15308a72b000 - 0x15308a72bfff 0x15308a72c000 - 0x15308a72dfff 0x15308a72e000 - 0x15308a72efff 0x15308a72f000 - 0x15308a72ffff 0x15308a730000 - 0x15308a730fff 0x15308a731000 - 0x15308a732fff 0x15308a733000 - 0x15308a735fff 0x15308a736000 - 0x15308a736fff 0x15308a737000 - 0x15308a737fff 0x15308a738000 - 0x15308a738fff 0x15308a739000 - 0x15308a73afff 0x15308a73b000 - 0x15308a73cfff 0x15308a73d000 - 0x15308a73dfff 0x15308a73e000 - 0x15308a73efff 0x15308a73f000 - 0x15308a73ffff 0x15308a740000 - 0x15308a74dfff 0x15308a74e000 - 0x15308a75bfff 0x15308a75c000 - 0x15308a769fff 0x15308a76a000 - 0x15308a76dfff 0x15308a76e000 - 0x15308a76efff 0x15308a76f000 - 0x15308a784fff 0x15308a785000 - 0x15308a7b0fff 0x15308a7b1000 - 0x15308a7b9fff 0x15308a7ba000 - 0x15308a7bafff 0x15308a7bb000 - 0x15308a7bdfff 0x15308a7be000 - 0x15308a7c3fff 0x15308a7c4000 - 0x15308a7c6fff 0x15308a7c9000 - 0x15308a7c9fff 0x15308a7ca000 - 0x15308a7cafff 0x15308a7cb000 - 0x15308a7d1fff 0x15308a7d2000 - 0x15308a7d3fff 0x15308a7d4000 - 0x15308a7f4fff 0x15308a7f5000 - 0x15308a7fcfff 0x15308a7fd000 - 0x15308a7fdfff 0x15308a7fe000 - 0x15308a7fefff 0x15308a7ff000 - 0x15308a7fffff 0x15308a800000 - 0x15308a800fff 0x7ffc4de4e000 - 0x7ffc4de6efff 0x7ffc4df98000 - 0x7ffc4df9bfff 0x7ffc4df9c000 - 0x7ffc4df9dfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x18ee000 - 0x190efff 0x100000000000 - 0x1000000bffff 0x15174a56a000 - 0x15174ac0efff 0x15174ac0f000 - 0x15174ac62fff 0x15174ac63000 - 0x15174ac65fff 0x15174ac66000 - 0x15174ac8afff 0x15174ac8b000 - 0x15174addafff 0x15174addb000 - 0x15174ae25fff 0x15174ae26000 - 0x15174ae28fff 0x15174ae29000 - 0x15174ae2bfff 0x15174ae2c000 - 0x15174ae2ffff 0x15174ae30000 - 0x15174ae32fff 0x15174ae33000 - 0x15174ae44fff 0x15174ae45000 - 0x15174ae48fff 0x15174ae49000 - 0x15174ae49fff 0x15174ae4a000 - 0x15174ae4afff 0x15174ae4b000 - 0x15174ae4cfff 0x15174ae4d000 - 0x15174ae5dfff 0x15174ae5e000 - 0x15174ae95fff 0x15174ae96000 - 0x15174afccfff 0x15174afcd000 - 0x15174afd0fff 0x15174afd1000 - 0x15174afd1fff 0x15174afd2000 - 0x15174afd2fff 0x15174afd3000 - 0x15174afd4fff 0x15174afd5000 - 0x15174afd5fff 0x15174afd6000 - 0x15174afd6fff 0x15174afd7000 - 0x15174afd7fff 0x15174afd8000 - 0x15174afd9fff 0x15174afda000 - 0x15174afdcfff 0x15174afdd000 - 0x15174afddfff 0x15174afde000 - 0x15174afdefff 0x15174afdf000 - 0x15174afdffff 0x15174afe0000 - 0x15174afe1fff 0x15174afe2000 - 0x15174afe3fff 0x15174afe4000 - 0x15174afe4fff 0x15174afe5000 - 0x15174afe5fff 0x15174afe6000 - 0x15174afe6fff 0x15174afe7000 - 0x15174aff4fff 0x15174aff5000 - 0x15174b002fff 0x15174b003000 - 0x15174b010fff 0x15174b011000 - 0x15174b014fff 0x15174b015000 - 0x15174b015fff 0x15174b016000 - 0x15174b02bfff 0x15174b02c000 - 0x15174b057fff 0x15174b058000 - 0x15174b060fff 0x15174b061000 - 0x15174b061fff 0x15174b062000 - 0x15174b064fff 0x15174b065000 - 0x15174b06afff 0x15174b06b000 - 0x15174b06dfff 0x15174b070000 - 0x15174b070fff 0x15174b071000 - 0x15174b071fff 0x15174b072000 - 0x15174b078fff 0x15174b079000 - 0x15174b07afff 0x15174b07b000 - 0x15174b09bfff 0x15174b09c000 - 0x15174b0a3fff 0x15174b0a4000 - 0x15174b0a4fff 0x15174b0a5000 - 0x15174b0a5fff 0x15174b0a6000 - 0x15174b0a6fff 0x15174b0a7000 - 0x15174b0a7fff 0x7ffcf0412000 - 0x7ffcf0432fff 0x7ffcf05cf000 - 0x7ffcf05d2fff 0x7ffcf05d3000 - 0x7ffcf05d4fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x7a9000 - 0x7c9fff 0x100000000000 - 0x1000000bffff 0x154f3626e000 - 0x154f36912fff 0x154f36913000 - 0x154f36966fff 0x154f36967000 - 0x154f36969fff 0x154f3696a000 - 0x154f3698efff 0x154f3698f000 - 0x154f36adefff 0x154f36adf000 - 0x154f36b29fff 0x154f36b2a000 - 0x154f36b2cfff 0x154f36b2d000 - 0x154f36b2ffff 0x154f36b30000 - 0x154f36b33fff 0x154f36b34000 - 0x154f36b36fff 0x154f36b37000 - 0x154f36b48fff 0x154f36b49000 - 0x154f36b4cfff 0x154f36b4d000 - 0x154f36b4dfff 0x154f36b4e000 - 0x154f36b4efff 0x154f36b4f000 - 0x154f36b50fff 0x154f36b51000 - 0x154f36b61fff 0x154f36b62000 - 0x154f36b99fff 0x154f36b9a000 - 0x154f36cd0fff 0x154f36cd1000 - 0x154f36cd4fff 0x154f36cd5000 - 0x154f36cd5fff 0x154f36cd6000 - 0x154f36cd6fff 0x154f36cd7000 - 0x154f36cd8fff 0x154f36cd9000 - 0x154f36cd9fff 0x154f36cda000 - 0x154f36cdafff 0x154f36cdb000 - 0x154f36cdbfff 0x154f36cdc000 - 0x154f36cddfff 0x154f36cde000 - 0x154f36ce0fff 0x154f36ce1000 - 0x154f36ce1fff 0x154f36ce2000 - 0x154f36ce2fff 0x154f36ce3000 - 0x154f36ce3fff 0x154f36ce4000 - 0x154f36ce5fff 0x154f36ce6000 - 0x154f36ce7fff 0x154f36ce8000 - 0x154f36ce8fff 0x154f36ce9000 - 0x154f36ce9fff 0x154f36cea000 - 0x154f36ceafff 0x154f36ceb000 - 0x154f36cf8fff 0x154f36cf9000 - 0x154f36d06fff 0x154f36d07000 - 0x154f36d14fff 0x154f36d15000 - 0x154f36d18fff 0x154f36d19000 - 0x154f36d19fff 0x154f36d1a000 - 0x154f36d2ffff 0x154f36d30000 - 0x154f36d5bfff 0x154f36d5c000 - 0x154f36d64fff 0x154f36d65000 - 0x154f36d65fff 0x154f36d66000 - 0x154f36d68fff 0x154f36d69000 - 0x154f36d6efff 0x154f36d6f000 - 0x154f36d71fff 0x154f36d74000 - 0x154f36d74fff 0x154f36d75000 - 0x154f36d75fff 0x154f36d76000 - 0x154f36d7cfff 0x154f36d7d000 - 0x154f36d7efff 0x154f36d7f000 - 0x154f36d9ffff 0x154f36da0000 - 0x154f36da7fff 0x154f36da8000 - 0x154f36da8fff 0x154f36da9000 - 0x154f36da9fff 0x154f36daa000 - 0x154f36daafff 0x154f36dab000 - 0x154f36dabfff 0x7fff4878a000 - 0x7fff487aafff 0x7fff487b7000 - 0x7fff487bafff 0x7fff487bb000 - 0x7fff487bcfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x111d000 - 0x113dfff 0x100000000000 - 0x1000000bffff 0x14629f543000 - 0x14629fbe7fff 0x14629fbe8000 - 0x14629fc3bfff 0x14629fc3c000 - 0x14629fc3efff 0x14629fc3f000 - 0x14629fc63fff 0x14629fc64000 - 0x14629fdb3fff 0x14629fdb4000 - 0x14629fdfefff 0x14629fdff000 - 0x14629fe01fff 0x14629fe02000 - 0x14629fe04fff 0x14629fe05000 - 0x14629fe08fff 0x14629fe09000 - 0x14629fe0bfff 0x14629fe0c000 - 0x14629fe1dfff 0x14629fe1e000 - 0x14629fe21fff 0x14629fe22000 - 0x14629fe22fff 0x14629fe23000 - 0x14629fe23fff 0x14629fe24000 - 0x14629fe25fff 0x14629fe26000 - 0x14629fe36fff 0x14629fe37000 - 0x14629fe6efff 0x14629fe6f000 - 0x14629ffa5fff 0x14629ffa6000 - 0x14629ffa9fff 0x14629ffaa000 - 0x14629ffaafff 0x14629ffab000 - 0x14629ffabfff 0x14629ffac000 - 0x14629ffadfff 0x14629ffae000 - 0x14629ffaefff 0x14629ffaf000 - 0x14629ffaffff 0x14629ffb0000 - 0x14629ffb0fff 0x14629ffb1000 - 0x14629ffb2fff 0x14629ffb3000 - 0x14629ffb5fff 0x14629ffb6000 - 0x14629ffb6fff 0x14629ffb7000 - 0x14629ffb7fff 0x14629ffb8000 - 0x14629ffb8fff 0x14629ffb9000 - 0x14629ffbafff 0x14629ffbb000 - 0x14629ffbcfff 0x14629ffbd000 - 0x14629ffbdfff 0x14629ffbe000 - 0x14629ffbefff 0x14629ffbf000 - 0x14629ffbffff 0x14629ffc0000 - 0x14629ffcdfff 0x14629ffce000 - 0x14629ffdbfff 0x14629ffdc000 - 0x14629ffe9fff 0x14629ffea000 - 0x14629ffedfff 0x14629ffee000 - 0x14629ffeefff 0x14629ffef000 - 0x1462a0004fff 0x1462a0005000 - 0x1462a0030fff 0x1462a0031000 - 0x1462a0039fff 0x1462a003a000 - 0x1462a003afff 0x1462a003b000 - 0x1462a003dfff 0x1462a003e000 - 0x1462a0043fff 0x1462a0044000 - 0x1462a0046fff 0x1462a0049000 - 0x1462a0049fff 0x1462a004a000 - 0x1462a004afff 0x1462a004b000 - 0x1462a0051fff 0x1462a0052000 - 0x1462a0053fff 0x1462a0054000 - 0x1462a0074fff 0x1462a0075000 - 0x1462a007cfff 0x1462a007d000 - 0x1462a007dfff 0x1462a007e000 - 0x1462a007efff 0x1462a007f000 - 0x1462a007ffff 0x1462a0080000 - 0x1462a0080fff 0x7ffcea22e000 - 0x7ffcea24efff 0x7ffcea39a000 - 0x7ffcea39dfff 0x7ffcea39e000 - 0x7ffcea39ffff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x665000 - 0x685fff 0x100000000000 - 0x1000000bffff 0x14d205431000 - 0x14d205ad5fff 0x14d205ad6000 - 0x14d205b29fff 0x14d205b2a000 - 0x14d205b2cfff 0x14d205b2d000 - 0x14d205b51fff 0x14d205b52000 - 0x14d205ca1fff 0x14d205ca2000 - 0x14d205cecfff 0x14d205ced000 - 0x14d205ceffff 0x14d205cf0000 - 0x14d205cf2fff 0x14d205cf3000 - 0x14d205cf6fff 0x14d205cf7000 - 0x14d205cf9fff 0x14d205cfa000 - 0x14d205d0bfff 0x14d205d0c000 - 0x14d205d0ffff 0x14d205d10000 - 0x14d205d10fff 0x14d205d11000 - 0x14d205d11fff 0x14d205d12000 - 0x14d205d13fff 0x14d205d14000 - 0x14d205d24fff 0x14d205d25000 - 0x14d205d5cfff 0x14d205d5d000 - 0x14d205e93fff 0x14d205e94000 - 0x14d205e97fff 0x14d205e98000 - 0x14d205e98fff 0x14d205e99000 - 0x14d205e99fff 0x14d205e9a000 - 0x14d205e9bfff 0x14d205e9c000 - 0x14d205e9cfff 0x14d205e9d000 - 0x14d205e9dfff 0x14d205e9e000 - 0x14d205e9efff 0x14d205e9f000 - 0x14d205ea0fff 0x14d205ea1000 - 0x14d205ea3fff 0x14d205ea4000 - 0x14d205ea4fff 0x14d205ea5000 - 0x14d205ea5fff 0x14d205ea6000 - 0x14d205ea6fff 0x14d205ea7000 - 0x14d205ea8fff 0x14d205ea9000 - 0x14d205eaafff 0x14d205eab000 - 0x14d205eabfff 0x14d205eac000 - 0x14d205eacfff 0x14d205ead000 - 0x14d205eadfff 0x14d205eae000 - 0x14d205ebbfff 0x14d205ebc000 - 0x14d205ec9fff 0x14d205eca000 - 0x14d205ed7fff 0x14d205ed8000 - 0x14d205edbfff 0x14d205edc000 - 0x14d205edcfff 0x14d205edd000 - 0x14d205ef2fff 0x14d205ef3000 - 0x14d205f1efff 0x14d205f1f000 - 0x14d205f27fff 0x14d205f28000 - 0x14d205f28fff 0x14d205f29000 - 0x14d205f2bfff 0x14d205f2c000 - 0x14d205f31fff 0x14d205f32000 - 0x14d205f34fff 0x14d205f37000 - 0x14d205f37fff 0x14d205f38000 - 0x14d205f38fff 0x14d205f39000 - 0x14d205f3ffff 0x14d205f40000 - 0x14d205f41fff 0x14d205f42000 - 0x14d205f62fff 0x14d205f63000 - 0x14d205f6afff 0x14d205f6b000 - 0x14d205f6bfff 0x14d205f6c000 - 0x14d205f6cfff 0x14d205f6d000 - 0x14d205f6dfff 0x14d205f6e000 - 0x14d205f6efff 0x7fff6b8d7000 - 0x7fff6b8f7fff 0x7fff6b9a9000 - 0x7fff6b9acfff 0x7fff6b9ad000 - 0x7fff6b9aefff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x9b4000 - 0x9d4fff 0x100000000000 - 0x1000000bffff 0x145de7716000 - 0x145de7dbafff 0x145de7dbb000 - 0x145de7e0efff 0x145de7e0f000 - 0x145de7e11fff 0x145de7e12000 - 0x145de7e36fff 0x145de7e37000 - 0x145de7f86fff 0x145de7f87000 - 0x145de7fd1fff 0x145de7fd2000 - 0x145de7fd4fff 0x145de7fd5000 - 0x145de7fd7fff 0x145de7fd8000 - 0x145de7fdbfff 0x145de7fdc000 - 0x145de7fdefff 0x145de7fdf000 - 0x145de7ff0fff 0x145de7ff1000 - 0x145de7ff4fff 0x145de7ff5000 - 0x145de7ff5fff 0x145de7ff6000 - 0x145de7ff6fff 0x145de7ff7000 - 0x145de7ff8fff 0x145de7ff9000 - 0x145de8009fff 0x145de800a000 - 0x145de8041fff 0x145de8042000 - 0x145de8178fff 0x145de8179000 - 0x145de817cfff 0x145de817d000 - 0x145de817dfff 0x145de817e000 - 0x145de817efff 0x145de817f000 - 0x145de8180fff 0x145de8181000 - 0x145de8181fff 0x145de8182000 - 0x145de8182fff 0x145de8183000 - 0x145de8183fff 0x145de8184000 - 0x145de8185fff 0x145de8186000 - 0x145de8188fff 0x145de8189000 - 0x145de8189fff 0x145de818a000 - 0x145de818afff 0x145de818b000 - 0x145de818bfff 0x145de818c000 - 0x145de818dfff 0x145de818e000 - 0x145de818ffff 0x145de8190000 - 0x145de8190fff 0x145de8191000 - 0x145de8191fff 0x145de8192000 - 0x145de8192fff 0x145de8193000 - 0x145de81a0fff 0x145de81a1000 - 0x145de81aefff 0x145de81af000 - 0x145de81bcfff 0x145de81bd000 - 0x145de81c0fff 0x145de81c1000 - 0x145de81c1fff 0x145de81c2000 - 0x145de81d7fff 0x145de81d8000 - 0x145de8203fff 0x145de8204000 - 0x145de820cfff 0x145de820d000 - 0x145de820dfff 0x145de820e000 - 0x145de8210fff 0x145de8211000 - 0x145de8216fff 0x145de8217000 - 0x145de8219fff 0x145de821c000 - 0x145de821cfff 0x145de821d000 - 0x145de821dfff 0x145de821e000 - 0x145de8224fff 0x145de8225000 - 0x145de8226fff 0x145de8227000 - 0x145de8247fff 0x145de8248000 - 0x145de824ffff 0x145de8250000 - 0x145de8250fff 0x145de8251000 - 0x145de8251fff 0x145de8252000 - 0x145de8252fff 0x145de8253000 - 0x145de8253fff 0x7fffbc3fc000 - 0x7fffbc41cfff 0x7fffbc4a0000 - 0x7fffbc4a3fff 0x7fffbc4a4000 - 0x7fffbc4a5fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x666000 - 0x686fff 0x100000000000 - 0x1000000bffff 0x1501c72eb000 - 0x1501c798ffff 0x1501c7990000 - 0x1501c79e3fff 0x1501c79e4000 - 0x1501c79e6fff 0x1501c79e7000 - 0x1501c7a0bfff 0x1501c7a0c000 - 0x1501c7b5bfff 0x1501c7b5c000 - 0x1501c7ba6fff 0x1501c7ba7000 - 0x1501c7ba9fff 0x1501c7baa000 - 0x1501c7bacfff 0x1501c7bad000 - 0x1501c7bb0fff 0x1501c7bb1000 - 0x1501c7bb3fff 0x1501c7bb4000 - 0x1501c7bc5fff 0x1501c7bc6000 - 0x1501c7bc9fff 0x1501c7bca000 - 0x1501c7bcafff 0x1501c7bcb000 - 0x1501c7bcbfff 0x1501c7bcc000 - 0x1501c7bcdfff 0x1501c7bce000 - 0x1501c7bdefff 0x1501c7bdf000 - 0x1501c7c16fff 0x1501c7c17000 - 0x1501c7d4dfff 0x1501c7d4e000 - 0x1501c7d51fff 0x1501c7d52000 - 0x1501c7d52fff 0x1501c7d53000 - 0x1501c7d53fff 0x1501c7d54000 - 0x1501c7d55fff 0x1501c7d56000 - 0x1501c7d56fff 0x1501c7d57000 - 0x1501c7d57fff 0x1501c7d58000 - 0x1501c7d58fff 0x1501c7d59000 - 0x1501c7d5afff 0x1501c7d5b000 - 0x1501c7d5dfff 0x1501c7d5e000 - 0x1501c7d5efff 0x1501c7d5f000 - 0x1501c7d5ffff 0x1501c7d60000 - 0x1501c7d60fff 0x1501c7d61000 - 0x1501c7d62fff 0x1501c7d63000 - 0x1501c7d64fff 0x1501c7d65000 - 0x1501c7d65fff 0x1501c7d66000 - 0x1501c7d66fff 0x1501c7d67000 - 0x1501c7d67fff 0x1501c7d68000 - 0x1501c7d75fff 0x1501c7d76000 - 0x1501c7d83fff 0x1501c7d84000 - 0x1501c7d91fff 0x1501c7d92000 - 0x1501c7d95fff 0x1501c7d96000 - 0x1501c7d96fff 0x1501c7d97000 - 0x1501c7dacfff 0x1501c7dad000 - 0x1501c7dd8fff 0x1501c7dd9000 - 0x1501c7de1fff 0x1501c7de2000 - 0x1501c7de2fff 0x1501c7de3000 - 0x1501c7de5fff 0x1501c7de6000 - 0x1501c7debfff 0x1501c7dec000 - 0x1501c7deefff 0x1501c7df1000 - 0x1501c7df1fff 0x1501c7df2000 - 0x1501c7df2fff 0x1501c7df3000 - 0x1501c7df9fff 0x1501c7dfa000 - 0x1501c7dfbfff 0x1501c7dfc000 - 0x1501c7e1cfff 0x1501c7e1d000 - 0x1501c7e24fff 0x1501c7e25000 - 0x1501c7e25fff 0x1501c7e26000 - 0x1501c7e26fff 0x1501c7e27000 - 0x1501c7e27fff 0x1501c7e28000 - 0x1501c7e28fff 0x7ffebe276000 - 0x7ffebe296fff 0x7ffebe368000 - 0x7ffebe36bfff 0x7ffebe36c000 - 0x7ffebe36dfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x2171000 - 0x2191fff 0x100000000000 - 0x1000000bffff 0x146aece0b000 - 0x146aed4affff 0x146aed4b0000 - 0x146aed503fff 0x146aed504000 - 0x146aed506fff 0x146aed507000 - 0x146aed52bfff 0x146aed52c000 - 0x146aed67bfff 0x146aed67c000 - 0x146aed6c6fff 0x146aed6c7000 - 0x146aed6c9fff 0x146aed6ca000 - 0x146aed6ccfff 0x146aed6cd000 - 0x146aed6d0fff 0x146aed6d1000 - 0x146aed6d3fff 0x146aed6d4000 - 0x146aed6e5fff 0x146aed6e6000 - 0x146aed6e9fff 0x146aed6ea000 - 0x146aed6eafff 0x146aed6eb000 - 0x146aed6ebfff 0x146aed6ec000 - 0x146aed6edfff 0x146aed6ee000 - 0x146aed6fefff 0x146aed6ff000 - 0x146aed736fff 0x146aed737000 - 0x146aed86dfff 0x146aed86e000 - 0x146aed871fff 0x146aed872000 - 0x146aed872fff 0x146aed873000 - 0x146aed873fff 0x146aed874000 - 0x146aed875fff 0x146aed876000 - 0x146aed876fff 0x146aed877000 - 0x146aed877fff 0x146aed878000 - 0x146aed878fff 0x146aed879000 - 0x146aed87afff 0x146aed87b000 - 0x146aed87dfff 0x146aed87e000 - 0x146aed87efff 0x146aed87f000 - 0x146aed87ffff 0x146aed880000 - 0x146aed880fff 0x146aed881000 - 0x146aed882fff 0x146aed883000 - 0x146aed884fff 0x146aed885000 - 0x146aed885fff 0x146aed886000 - 0x146aed886fff 0x146aed887000 - 0x146aed887fff 0x146aed888000 - 0x146aed895fff 0x146aed896000 - 0x146aed8a3fff 0x146aed8a4000 - 0x146aed8b1fff 0x146aed8b2000 - 0x146aed8b5fff 0x146aed8b6000 - 0x146aed8b6fff 0x146aed8b7000 - 0x146aed8ccfff 0x146aed8cd000 - 0x146aed8f8fff 0x146aed8f9000 - 0x146aed901fff 0x146aed902000 - 0x146aed902fff 0x146aed903000 - 0x146aed905fff 0x146aed906000 - 0x146aed90bfff 0x146aed90c000 - 0x146aed90efff 0x146aed911000 - 0x146aed911fff 0x146aed912000 - 0x146aed912fff 0x146aed913000 - 0x146aed919fff 0x146aed91a000 - 0x146aed91bfff 0x146aed91c000 - 0x146aed93cfff 0x146aed93d000 - 0x146aed944fff 0x146aed945000 - 0x146aed945fff 0x146aed946000 - 0x146aed946fff 0x146aed947000 - 0x146aed947fff 0x146aed948000 - 0x146aed948fff 0x7ffef7271000 - 0x7ffef7291fff 0x7ffef739f000 - 0x7ffef73a2fff 0x7ffef73a3000 - 0x7ffef73a4fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xf40000 - 0xf60fff 0x100000000000 - 0x1000000bffff 0x1529eaade000 - 0x1529eb182fff 0x1529eb183000 - 0x1529eb1d6fff 0x1529eb1d7000 - 0x1529eb1d9fff 0x1529eb1da000 - 0x1529eb1fefff 0x1529eb1ff000 - 0x1529eb34efff 0x1529eb34f000 - 0x1529eb399fff 0x1529eb39a000 - 0x1529eb39cfff 0x1529eb39d000 - 0x1529eb39ffff 0x1529eb3a0000 - 0x1529eb3a3fff 0x1529eb3a4000 - 0x1529eb3a6fff 0x1529eb3a7000 - 0x1529eb3b8fff 0x1529eb3b9000 - 0x1529eb3bcfff 0x1529eb3bd000 - 0x1529eb3bdfff 0x1529eb3be000 - 0x1529eb3befff 0x1529eb3bf000 - 0x1529eb3c0fff 0x1529eb3c1000 - 0x1529eb3d1fff 0x1529eb3d2000 - 0x1529eb409fff 0x1529eb40a000 - 0x1529eb540fff 0x1529eb541000 - 0x1529eb544fff 0x1529eb545000 - 0x1529eb545fff 0x1529eb546000 - 0x1529eb546fff 0x1529eb547000 - 0x1529eb548fff 0x1529eb549000 - 0x1529eb549fff 0x1529eb54a000 - 0x1529eb54afff 0x1529eb54b000 - 0x1529eb54bfff 0x1529eb54c000 - 0x1529eb54dfff 0x1529eb54e000 - 0x1529eb550fff 0x1529eb551000 - 0x1529eb551fff 0x1529eb552000 - 0x1529eb552fff 0x1529eb553000 - 0x1529eb553fff 0x1529eb554000 - 0x1529eb555fff 0x1529eb556000 - 0x1529eb557fff 0x1529eb558000 - 0x1529eb558fff 0x1529eb559000 - 0x1529eb559fff 0x1529eb55a000 - 0x1529eb55afff 0x1529eb55b000 - 0x1529eb568fff 0x1529eb569000 - 0x1529eb576fff 0x1529eb577000 - 0x1529eb584fff 0x1529eb585000 - 0x1529eb588fff 0x1529eb589000 - 0x1529eb589fff 0x1529eb58a000 - 0x1529eb59ffff 0x1529eb5a0000 - 0x1529eb5cbfff 0x1529eb5cc000 - 0x1529eb5d4fff 0x1529eb5d5000 - 0x1529eb5d5fff 0x1529eb5d6000 - 0x1529eb5d8fff 0x1529eb5d9000 - 0x1529eb5defff 0x1529eb5df000 - 0x1529eb5e1fff 0x1529eb5e4000 - 0x1529eb5e4fff 0x1529eb5e5000 - 0x1529eb5e5fff 0x1529eb5e6000 - 0x1529eb5ecfff 0x1529eb5ed000 - 0x1529eb5eefff 0x1529eb5ef000 - 0x1529eb60ffff 0x1529eb610000 - 0x1529eb617fff 0x1529eb618000 - 0x1529eb618fff 0x1529eb619000 - 0x1529eb619fff 0x1529eb61a000 - 0x1529eb61afff 0x1529eb61b000 - 0x1529eb61bfff 0x7ffe564b3000 - 0x7ffe564d3fff 0x7ffe565b2000 - 0x7ffe565b5fff 0x7ffe565b6000 - 0x7ffe565b7fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x783000 - 0x7a3fff 0x100000000000 - 0x1000000bffff 0x154a59af7000 - 0x154a5a19bfff 0x154a5a19c000 - 0x154a5a1effff 0x154a5a1f0000 - 0x154a5a1f2fff 0x154a5a1f3000 - 0x154a5a217fff 0x154a5a218000 - 0x154a5a367fff 0x154a5a368000 - 0x154a5a3b2fff 0x154a5a3b3000 - 0x154a5a3b5fff 0x154a5a3b6000 - 0x154a5a3b8fff 0x154a5a3b9000 - 0x154a5a3bcfff 0x154a5a3bd000 - 0x154a5a3bffff 0x154a5a3c0000 - 0x154a5a3d1fff 0x154a5a3d2000 - 0x154a5a3d5fff 0x154a5a3d6000 - 0x154a5a3d6fff 0x154a5a3d7000 - 0x154a5a3d7fff 0x154a5a3d8000 - 0x154a5a3d9fff 0x154a5a3da000 - 0x154a5a3eafff 0x154a5a3eb000 - 0x154a5a422fff 0x154a5a423000 - 0x154a5a559fff 0x154a5a55a000 - 0x154a5a55dfff 0x154a5a55e000 - 0x154a5a55efff 0x154a5a55f000 - 0x154a5a55ffff 0x154a5a560000 - 0x154a5a561fff 0x154a5a562000 - 0x154a5a562fff 0x154a5a563000 - 0x154a5a563fff 0x154a5a564000 - 0x154a5a564fff 0x154a5a565000 - 0x154a5a566fff 0x154a5a567000 - 0x154a5a569fff 0x154a5a56a000 - 0x154a5a56afff 0x154a5a56b000 - 0x154a5a56bfff 0x154a5a56c000 - 0x154a5a56cfff 0x154a5a56d000 - 0x154a5a56efff 0x154a5a56f000 - 0x154a5a570fff 0x154a5a571000 - 0x154a5a571fff 0x154a5a572000 - 0x154a5a572fff 0x154a5a573000 - 0x154a5a573fff 0x154a5a574000 - 0x154a5a581fff 0x154a5a582000 - 0x154a5a58ffff 0x154a5a590000 - 0x154a5a59dfff 0x154a5a59e000 - 0x154a5a5a1fff 0x154a5a5a2000 - 0x154a5a5a2fff 0x154a5a5a3000 - 0x154a5a5b8fff 0x154a5a5b9000 - 0x154a5a5e4fff 0x154a5a5e5000 - 0x154a5a5edfff 0x154a5a5ee000 - 0x154a5a5eefff 0x154a5a5ef000 - 0x154a5a5f1fff 0x154a5a5f2000 - 0x154a5a5f7fff 0x154a5a5f8000 - 0x154a5a5fafff 0x154a5a5fd000 - 0x154a5a5fdfff 0x154a5a5fe000 - 0x154a5a5fefff 0x154a5a5ff000 - 0x154a5a605fff 0x154a5a606000 - 0x154a5a607fff 0x154a5a608000 - 0x154a5a628fff 0x154a5a629000 - 0x154a5a630fff 0x154a5a631000 - 0x154a5a631fff 0x154a5a632000 - 0x154a5a632fff 0x154a5a633000 - 0x154a5a633fff 0x154a5a634000 - 0x154a5a634fff 0x7ffe93a12000 - 0x7ffe93a32fff 0x7ffe93b0b000 - 0x7ffe93b0efff 0x7ffe93b0f000 - 0x7ffe93b10fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1f99000 - 0x1fb9fff 0x100000000000 - 0x1000000bffff 0x1486918f0000 - 0x148691f94fff 0x148691f95000 - 0x148691fe8fff 0x148691fe9000 - 0x148691febfff 0x148691fec000 - 0x148692010fff 0x148692011000 - 0x148692160fff 0x148692161000 - 0x1486921abfff 0x1486921ac000 - 0x1486921aefff 0x1486921af000 - 0x1486921b1fff 0x1486921b2000 - 0x1486921b5fff 0x1486921b6000 - 0x1486921b8fff 0x1486921b9000 - 0x1486921cafff 0x1486921cb000 - 0x1486921cefff 0x1486921cf000 - 0x1486921cffff 0x1486921d0000 - 0x1486921d0fff 0x1486921d1000 - 0x1486921d2fff 0x1486921d3000 - 0x1486921e3fff 0x1486921e4000 - 0x14869221bfff 0x14869221c000 - 0x148692352fff 0x148692353000 - 0x148692356fff 0x148692357000 - 0x148692357fff 0x148692358000 - 0x148692358fff 0x148692359000 - 0x14869235afff 0x14869235b000 - 0x14869235bfff 0x14869235c000 - 0x14869235cfff 0x14869235d000 - 0x14869235dfff 0x14869235e000 - 0x14869235ffff 0x148692360000 - 0x148692362fff 0x148692363000 - 0x148692363fff 0x148692364000 - 0x148692364fff 0x148692365000 - 0x148692365fff 0x148692366000 - 0x148692367fff 0x148692368000 - 0x148692369fff 0x14869236a000 - 0x14869236afff 0x14869236b000 - 0x14869236bfff 0x14869236c000 - 0x14869236cfff 0x14869236d000 - 0x14869237afff 0x14869237b000 - 0x148692388fff 0x148692389000 - 0x148692396fff 0x148692397000 - 0x14869239afff 0x14869239b000 - 0x14869239bfff 0x14869239c000 - 0x1486923b1fff 0x1486923b2000 - 0x1486923ddfff 0x1486923de000 - 0x1486923e6fff 0x1486923e7000 - 0x1486923e7fff 0x1486923e8000 - 0x1486923eafff 0x1486923eb000 - 0x1486923f0fff 0x1486923f1000 - 0x1486923f3fff 0x1486923f6000 - 0x1486923f6fff 0x1486923f7000 - 0x1486923f7fff 0x1486923f8000 - 0x1486923fefff 0x1486923ff000 - 0x148692400fff 0x148692401000 - 0x148692421fff 0x148692422000 - 0x148692429fff 0x14869242a000 - 0x14869242afff 0x14869242b000 - 0x14869242bfff 0x14869242c000 - 0x14869242cfff 0x14869242d000 - 0x14869242dfff 0x7fff9c8e3000 - 0x7fff9c903fff 0x7fff9c96a000 - 0x7fff9c96dfff 0x7fff9c96e000 - 0x7fff9c96ffff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x88f000 - 0x8affff 0x100000000000 - 0x1000000bffff 0x154f3508c000 - 0x154f35730fff 0x154f35731000 - 0x154f35784fff 0x154f35785000 - 0x154f35787fff 0x154f35788000 - 0x154f357acfff 0x154f357ad000 - 0x154f358fcfff 0x154f358fd000 - 0x154f35947fff 0x154f35948000 - 0x154f3594afff 0x154f3594b000 - 0x154f3594dfff 0x154f3594e000 - 0x154f35951fff 0x154f35952000 - 0x154f35954fff 0x154f35955000 - 0x154f35966fff 0x154f35967000 - 0x154f3596afff 0x154f3596b000 - 0x154f3596bfff 0x154f3596c000 - 0x154f3596cfff 0x154f3596d000 - 0x154f3596efff 0x154f3596f000 - 0x154f3597ffff 0x154f35980000 - 0x154f359b7fff 0x154f359b8000 - 0x154f35aeefff 0x154f35aef000 - 0x154f35af2fff 0x154f35af3000 - 0x154f35af3fff 0x154f35af4000 - 0x154f35af4fff 0x154f35af5000 - 0x154f35af6fff 0x154f35af7000 - 0x154f35af7fff 0x154f35af8000 - 0x154f35af8fff 0x154f35af9000 - 0x154f35af9fff 0x154f35afa000 - 0x154f35afbfff 0x154f35afc000 - 0x154f35afefff 0x154f35aff000 - 0x154f35afffff 0x154f35b00000 - 0x154f35b00fff 0x154f35b01000 - 0x154f35b01fff 0x154f35b02000 - 0x154f35b03fff 0x154f35b04000 - 0x154f35b05fff 0x154f35b06000 - 0x154f35b06fff 0x154f35b07000 - 0x154f35b07fff 0x154f35b08000 - 0x154f35b08fff 0x154f35b09000 - 0x154f35b16fff 0x154f35b17000 - 0x154f35b24fff 0x154f35b25000 - 0x154f35b32fff 0x154f35b33000 - 0x154f35b36fff 0x154f35b37000 - 0x154f35b37fff 0x154f35b38000 - 0x154f35b4dfff 0x154f35b4e000 - 0x154f35b79fff 0x154f35b7a000 - 0x154f35b82fff 0x154f35b83000 - 0x154f35b83fff 0x154f35b84000 - 0x154f35b86fff 0x154f35b87000 - 0x154f35b8cfff 0x154f35b8d000 - 0x154f35b8ffff 0x154f35b92000 - 0x154f35b92fff 0x154f35b93000 - 0x154f35b93fff 0x154f35b94000 - 0x154f35b9afff 0x154f35b9b000 - 0x154f35b9cfff 0x154f35b9d000 - 0x154f35bbdfff 0x154f35bbe000 - 0x154f35bc5fff 0x154f35bc6000 - 0x154f35bc6fff 0x154f35bc7000 - 0x154f35bc7fff 0x154f35bc8000 - 0x154f35bc8fff 0x154f35bc9000 - 0x154f35bc9fff 0x7ffe1ed00000 - 0x7ffe1ed20fff 0x7ffe1edae000 - 0x7ffe1edb1fff 0x7ffe1edb2000 - 0x7ffe1edb3fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x23d9000 - 0x23f9fff 0x100000000000 - 0x1000000bffff 0x147c33f35000 - 0x147c345d9fff 0x147c345da000 - 0x147c3462dfff 0x147c3462e000 - 0x147c34630fff 0x147c34631000 - 0x147c34655fff 0x147c34656000 - 0x147c347a5fff 0x147c347a6000 - 0x147c347f0fff 0x147c347f1000 - 0x147c347f3fff 0x147c347f4000 - 0x147c347f6fff 0x147c347f7000 - 0x147c347fafff 0x147c347fb000 - 0x147c347fdfff 0x147c347fe000 - 0x147c3480ffff 0x147c34810000 - 0x147c34813fff 0x147c34814000 - 0x147c34814fff 0x147c34815000 - 0x147c34815fff 0x147c34816000 - 0x147c34817fff 0x147c34818000 - 0x147c34828fff 0x147c34829000 - 0x147c34860fff 0x147c34861000 - 0x147c34997fff 0x147c34998000 - 0x147c3499bfff 0x147c3499c000 - 0x147c3499cfff 0x147c3499d000 - 0x147c3499dfff 0x147c3499e000 - 0x147c3499ffff 0x147c349a0000 - 0x147c349a0fff 0x147c349a1000 - 0x147c349a1fff 0x147c349a2000 - 0x147c349a2fff 0x147c349a3000 - 0x147c349a4fff 0x147c349a5000 - 0x147c349a7fff 0x147c349a8000 - 0x147c349a8fff 0x147c349a9000 - 0x147c349a9fff 0x147c349aa000 - 0x147c349aafff 0x147c349ab000 - 0x147c349acfff 0x147c349ad000 - 0x147c349aefff 0x147c349af000 - 0x147c349affff 0x147c349b0000 - 0x147c349b0fff 0x147c349b1000 - 0x147c349b1fff 0x147c349b2000 - 0x147c349bffff 0x147c349c0000 - 0x147c349cdfff 0x147c349ce000 - 0x147c349dbfff 0x147c349dc000 - 0x147c349dffff 0x147c349e0000 - 0x147c349e0fff 0x147c349e1000 - 0x147c349f6fff 0x147c349f7000 - 0x147c34a22fff 0x147c34a23000 - 0x147c34a2bfff 0x147c34a2c000 - 0x147c34a2cfff 0x147c34a2d000 - 0x147c34a2ffff 0x147c34a30000 - 0x147c34a35fff 0x147c34a36000 - 0x147c34a38fff 0x147c34a3b000 - 0x147c34a3bfff 0x147c34a3c000 - 0x147c34a3cfff 0x147c34a3d000 - 0x147c34a43fff 0x147c34a44000 - 0x147c34a45fff 0x147c34a46000 - 0x147c34a66fff 0x147c34a67000 - 0x147c34a6efff 0x147c34a6f000 - 0x147c34a6ffff 0x147c34a70000 - 0x147c34a70fff 0x147c34a71000 - 0x147c34a71fff 0x147c34a72000 - 0x147c34a72fff 0x7ffd4f35c000 - 0x7ffd4f37cfff 0x7ffd4f394000 - 0x7ffd4f397fff 0x7ffd4f398000 - 0x7ffd4f399fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1aae000 - 0x1acefff 0x100000000000 - 0x1000000bffff 0x153d0f265000 - 0x153d0f909fff 0x153d0f90a000 - 0x153d0f95dfff 0x153d0f95e000 - 0x153d0f960fff 0x153d0f961000 - 0x153d0f985fff 0x153d0f986000 - 0x153d0fad5fff 0x153d0fad6000 - 0x153d0fb20fff 0x153d0fb21000 - 0x153d0fb23fff 0x153d0fb24000 - 0x153d0fb26fff 0x153d0fb27000 - 0x153d0fb2afff 0x153d0fb2b000 - 0x153d0fb2dfff 0x153d0fb2e000 - 0x153d0fb3ffff 0x153d0fb40000 - 0x153d0fb43fff 0x153d0fb44000 - 0x153d0fb44fff 0x153d0fb45000 - 0x153d0fb45fff 0x153d0fb46000 - 0x153d0fb47fff 0x153d0fb48000 - 0x153d0fb58fff 0x153d0fb59000 - 0x153d0fb90fff 0x153d0fb91000 - 0x153d0fcc7fff 0x153d0fcc8000 - 0x153d0fccbfff 0x153d0fccc000 - 0x153d0fcccfff 0x153d0fccd000 - 0x153d0fccdfff 0x153d0fcce000 - 0x153d0fccffff 0x153d0fcd0000 - 0x153d0fcd0fff 0x153d0fcd1000 - 0x153d0fcd1fff 0x153d0fcd2000 - 0x153d0fcd2fff 0x153d0fcd3000 - 0x153d0fcd4fff 0x153d0fcd5000 - 0x153d0fcd7fff 0x153d0fcd8000 - 0x153d0fcd8fff 0x153d0fcd9000 - 0x153d0fcd9fff 0x153d0fcda000 - 0x153d0fcdafff 0x153d0fcdb000 - 0x153d0fcdcfff 0x153d0fcdd000 - 0x153d0fcdefff 0x153d0fcdf000 - 0x153d0fcdffff 0x153d0fce0000 - 0x153d0fce0fff 0x153d0fce1000 - 0x153d0fce1fff 0x153d0fce2000 - 0x153d0fceffff 0x153d0fcf0000 - 0x153d0fcfdfff 0x153d0fcfe000 - 0x153d0fd0bfff 0x153d0fd0c000 - 0x153d0fd0ffff 0x153d0fd10000 - 0x153d0fd10fff 0x153d0fd11000 - 0x153d0fd26fff 0x153d0fd27000 - 0x153d0fd52fff 0x153d0fd53000 - 0x153d0fd5bfff 0x153d0fd5c000 - 0x153d0fd5cfff 0x153d0fd5d000 - 0x153d0fd5ffff 0x153d0fd60000 - 0x153d0fd65fff 0x153d0fd66000 - 0x153d0fd68fff 0x153d0fd6b000 - 0x153d0fd6bfff 0x153d0fd6c000 - 0x153d0fd6cfff 0x153d0fd6d000 - 0x153d0fd73fff 0x153d0fd74000 - 0x153d0fd75fff 0x153d0fd76000 - 0x153d0fd96fff 0x153d0fd97000 - 0x153d0fd9efff 0x153d0fd9f000 - 0x153d0fd9ffff 0x153d0fda0000 - 0x153d0fda0fff 0x153d0fda1000 - 0x153d0fda1fff 0x153d0fda2000 - 0x153d0fda2fff 0x7ffd2f313000 - 0x7ffd2f333fff 0x7ffd2f3af000 - 0x7ffd2f3b2fff 0x7ffd2f3b3000 - 0x7ffd2f3b4fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xa3b000 - 0xa5bfff 0x100000000000 - 0x1000000bffff 0x149562917000 - 0x149562fbbfff 0x149562fbc000 - 0x14956300ffff 0x149563010000 - 0x149563012fff 0x149563013000 - 0x149563037fff 0x149563038000 - 0x149563187fff 0x149563188000 - 0x1495631d2fff 0x1495631d3000 - 0x1495631d5fff 0x1495631d6000 - 0x1495631d8fff 0x1495631d9000 - 0x1495631dcfff 0x1495631dd000 - 0x1495631dffff 0x1495631e0000 - 0x1495631f1fff 0x1495631f2000 - 0x1495631f5fff 0x1495631f6000 - 0x1495631f6fff 0x1495631f7000 - 0x1495631f7fff 0x1495631f8000 - 0x1495631f9fff 0x1495631fa000 - 0x14956320afff 0x14956320b000 - 0x149563242fff 0x149563243000 - 0x149563379fff 0x14956337a000 - 0x14956337dfff 0x14956337e000 - 0x14956337efff 0x14956337f000 - 0x14956337ffff 0x149563380000 - 0x149563381fff 0x149563382000 - 0x149563382fff 0x149563383000 - 0x149563383fff 0x149563384000 - 0x149563384fff 0x149563385000 - 0x149563386fff 0x149563387000 - 0x149563389fff 0x14956338a000 - 0x14956338afff 0x14956338b000 - 0x14956338bfff 0x14956338c000 - 0x14956338cfff 0x14956338d000 - 0x14956338efff 0x14956338f000 - 0x149563390fff 0x149563391000 - 0x149563391fff 0x149563392000 - 0x149563392fff 0x149563393000 - 0x149563393fff 0x149563394000 - 0x1495633a1fff 0x1495633a2000 - 0x1495633affff 0x1495633b0000 - 0x1495633bdfff 0x1495633be000 - 0x1495633c1fff 0x1495633c2000 - 0x1495633c2fff 0x1495633c3000 - 0x1495633d8fff 0x1495633d9000 - 0x149563404fff 0x149563405000 - 0x14956340dfff 0x14956340e000 - 0x14956340efff 0x14956340f000 - 0x149563411fff 0x149563412000 - 0x149563417fff 0x149563418000 - 0x14956341afff 0x14956341d000 - 0x14956341dfff 0x14956341e000 - 0x14956341efff 0x14956341f000 - 0x149563425fff 0x149563426000 - 0x149563427fff 0x149563428000 - 0x149563448fff 0x149563449000 - 0x149563450fff 0x149563451000 - 0x149563451fff 0x149563452000 - 0x149563452fff 0x149563453000 - 0x149563453fff 0x149563454000 - 0x149563454fff 0x7fff70c49000 - 0x7fff70c69fff 0x7fff70cb4000 - 0x7fff70cb7fff 0x7fff70cb8000 - 0x7fff70cb9fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1056000 - 0x1076fff 0x100000000000 - 0x1000000bffff 0x14deaecb6000 - 0x14deaf35afff 0x14deaf35b000 - 0x14deaf3aefff 0x14deaf3af000 - 0x14deaf3b1fff 0x14deaf3b2000 - 0x14deaf3d6fff 0x14deaf3d7000 - 0x14deaf526fff 0x14deaf527000 - 0x14deaf571fff 0x14deaf572000 - 0x14deaf574fff 0x14deaf575000 - 0x14deaf577fff 0x14deaf578000 - 0x14deaf57bfff 0x14deaf57c000 - 0x14deaf57efff 0x14deaf57f000 - 0x14deaf590fff 0x14deaf591000 - 0x14deaf594fff 0x14deaf595000 - 0x14deaf595fff 0x14deaf596000 - 0x14deaf596fff 0x14deaf597000 - 0x14deaf598fff 0x14deaf599000 - 0x14deaf5a9fff 0x14deaf5aa000 - 0x14deaf5e1fff 0x14deaf5e2000 - 0x14deaf718fff 0x14deaf719000 - 0x14deaf71cfff 0x14deaf71d000 - 0x14deaf71dfff 0x14deaf71e000 - 0x14deaf71efff 0x14deaf71f000 - 0x14deaf720fff 0x14deaf721000 - 0x14deaf721fff 0x14deaf722000 - 0x14deaf722fff 0x14deaf723000 - 0x14deaf723fff 0x14deaf724000 - 0x14deaf725fff 0x14deaf726000 - 0x14deaf728fff 0x14deaf729000 - 0x14deaf729fff 0x14deaf72a000 - 0x14deaf72afff 0x14deaf72b000 - 0x14deaf72bfff 0x14deaf72c000 - 0x14deaf72dfff 0x14deaf72e000 - 0x14deaf72ffff 0x14deaf730000 - 0x14deaf730fff 0x14deaf731000 - 0x14deaf731fff 0x14deaf732000 - 0x14deaf732fff 0x14deaf733000 - 0x14deaf740fff 0x14deaf741000 - 0x14deaf74efff 0x14deaf74f000 - 0x14deaf75cfff 0x14deaf75d000 - 0x14deaf760fff 0x14deaf761000 - 0x14deaf761fff 0x14deaf762000 - 0x14deaf777fff 0x14deaf778000 - 0x14deaf7a3fff 0x14deaf7a4000 - 0x14deaf7acfff 0x14deaf7ad000 - 0x14deaf7adfff 0x14deaf7ae000 - 0x14deaf7b0fff 0x14deaf7b1000 - 0x14deaf7b6fff 0x14deaf7b7000 - 0x14deaf7b9fff 0x14deaf7bc000 - 0x14deaf7bcfff 0x14deaf7bd000 - 0x14deaf7bdfff 0x14deaf7be000 - 0x14deaf7c4fff 0x14deaf7c5000 - 0x14deaf7c6fff 0x14deaf7c7000 - 0x14deaf7e7fff 0x14deaf7e8000 - 0x14deaf7effff 0x14deaf7f0000 - 0x14deaf7f0fff 0x14deaf7f1000 - 0x14deaf7f1fff 0x14deaf7f2000 - 0x14deaf7f2fff 0x14deaf7f3000 - 0x14deaf7f3fff 0x7ffd376e3000 - 0x7ffd37703fff 0x7ffd37754000 - 0x7ffd37757fff 0x7ffd37758000 - 0x7ffd37759fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xef8000 - 0xf18fff 0x100000000000 - 0x1000000bffff 0x14c580015000 - 0x14c5806b9fff 0x14c5806ba000 - 0x14c58070dfff 0x14c58070e000 - 0x14c580710fff 0x14c580711000 - 0x14c580735fff 0x14c580736000 - 0x14c580885fff 0x14c580886000 - 0x14c5808d0fff 0x14c5808d1000 - 0x14c5808d3fff 0x14c5808d4000 - 0x14c5808d6fff 0x14c5808d7000 - 0x14c5808dafff 0x14c5808db000 - 0x14c5808ddfff 0x14c5808de000 - 0x14c5808effff 0x14c5808f0000 - 0x14c5808f3fff 0x14c5808f4000 - 0x14c5808f4fff 0x14c5808f5000 - 0x14c5808f5fff 0x14c5808f6000 - 0x14c5808f7fff 0x14c5808f8000 - 0x14c580908fff 0x14c580909000 - 0x14c580940fff 0x14c580941000 - 0x14c580a77fff 0x14c580a78000 - 0x14c580a7bfff 0x14c580a7c000 - 0x14c580a7cfff 0x14c580a7d000 - 0x14c580a7dfff 0x14c580a7e000 - 0x14c580a7ffff 0x14c580a80000 - 0x14c580a80fff 0x14c580a81000 - 0x14c580a81fff 0x14c580a82000 - 0x14c580a82fff 0x14c580a83000 - 0x14c580a84fff 0x14c580a85000 - 0x14c580a87fff 0x14c580a88000 - 0x14c580a88fff 0x14c580a89000 - 0x14c580a89fff 0x14c580a8a000 - 0x14c580a8afff 0x14c580a8b000 - 0x14c580a8cfff 0x14c580a8d000 - 0x14c580a8efff 0x14c580a8f000 - 0x14c580a8ffff 0x14c580a90000 - 0x14c580a90fff 0x14c580a91000 - 0x14c580a91fff 0x14c580a92000 - 0x14c580a9ffff 0x14c580aa0000 - 0x14c580aadfff 0x14c580aae000 - 0x14c580abbfff 0x14c580abc000 - 0x14c580abffff 0x14c580ac0000 - 0x14c580ac0fff 0x14c580ac1000 - 0x14c580ad6fff 0x14c580ad7000 - 0x14c580b02fff 0x14c580b03000 - 0x14c580b0bfff 0x14c580b0c000 - 0x14c580b0cfff 0x14c580b0d000 - 0x14c580b0ffff 0x14c580b10000 - 0x14c580b15fff 0x14c580b16000 - 0x14c580b18fff 0x14c580b1b000 - 0x14c580b1bfff 0x14c580b1c000 - 0x14c580b1cfff 0x14c580b1d000 - 0x14c580b23fff 0x14c580b24000 - 0x14c580b25fff 0x14c580b26000 - 0x14c580b46fff 0x14c580b47000 - 0x14c580b4efff 0x14c580b4f000 - 0x14c580b4ffff 0x14c580b50000 - 0x14c580b50fff 0x14c580b51000 - 0x14c580b51fff 0x14c580b52000 - 0x14c580b52fff 0x7ffeaa1de000 - 0x7ffeaa1fefff 0x7ffeaa3c9000 - 0x7ffeaa3ccfff 0x7ffeaa3cd000 - 0x7ffeaa3cefff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1123000 - 0x1143fff 0x100000000000 - 0x1000000bffff 0x14d25ea5c000 - 0x14d25f100fff 0x14d25f101000 - 0x14d25f154fff 0x14d25f155000 - 0x14d25f157fff 0x14d25f158000 - 0x14d25f17cfff 0x14d25f17d000 - 0x14d25f2ccfff 0x14d25f2cd000 - 0x14d25f317fff 0x14d25f318000 - 0x14d25f31afff 0x14d25f31b000 - 0x14d25f31dfff 0x14d25f31e000 - 0x14d25f321fff 0x14d25f322000 - 0x14d25f324fff 0x14d25f325000 - 0x14d25f336fff 0x14d25f337000 - 0x14d25f33afff 0x14d25f33b000 - 0x14d25f33bfff 0x14d25f33c000 - 0x14d25f33cfff 0x14d25f33d000 - 0x14d25f33efff 0x14d25f33f000 - 0x14d25f34ffff 0x14d25f350000 - 0x14d25f387fff 0x14d25f388000 - 0x14d25f4befff 0x14d25f4bf000 - 0x14d25f4c2fff 0x14d25f4c3000 - 0x14d25f4c3fff 0x14d25f4c4000 - 0x14d25f4c4fff 0x14d25f4c5000 - 0x14d25f4c6fff 0x14d25f4c7000 - 0x14d25f4c7fff 0x14d25f4c8000 - 0x14d25f4c8fff 0x14d25f4c9000 - 0x14d25f4c9fff 0x14d25f4ca000 - 0x14d25f4cbfff 0x14d25f4cc000 - 0x14d25f4cefff 0x14d25f4cf000 - 0x14d25f4cffff 0x14d25f4d0000 - 0x14d25f4d0fff 0x14d25f4d1000 - 0x14d25f4d1fff 0x14d25f4d2000 - 0x14d25f4d3fff 0x14d25f4d4000 - 0x14d25f4d5fff 0x14d25f4d6000 - 0x14d25f4d6fff 0x14d25f4d7000 - 0x14d25f4d7fff 0x14d25f4d8000 - 0x14d25f4d8fff 0x14d25f4d9000 - 0x14d25f4e6fff 0x14d25f4e7000 - 0x14d25f4f4fff 0x14d25f4f5000 - 0x14d25f502fff 0x14d25f503000 - 0x14d25f506fff 0x14d25f507000 - 0x14d25f507fff 0x14d25f508000 - 0x14d25f51dfff 0x14d25f51e000 - 0x14d25f549fff 0x14d25f54a000 - 0x14d25f552fff 0x14d25f553000 - 0x14d25f553fff 0x14d25f554000 - 0x14d25f556fff 0x14d25f557000 - 0x14d25f55cfff 0x14d25f55d000 - 0x14d25f55ffff 0x14d25f562000 - 0x14d25f562fff 0x14d25f563000 - 0x14d25f563fff 0x14d25f564000 - 0x14d25f56afff 0x14d25f56b000 - 0x14d25f56cfff 0x14d25f56d000 - 0x14d25f58dfff 0x14d25f58e000 - 0x14d25f595fff 0x14d25f596000 - 0x14d25f596fff 0x14d25f597000 - 0x14d25f597fff 0x14d25f598000 - 0x14d25f598fff 0x14d25f599000 - 0x14d25f599fff 0x7ffe43af2000 - 0x7ffe43b12fff 0x7ffe43b73000 - 0x7ffe43b76fff 0x7ffe43b77000 - 0x7ffe43b78fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x203f000 - 0x205ffff 0x100000000000 - 0x1000000bffff 0x151d5ec9d000 - 0x151d5f341fff 0x151d5f342000 - 0x151d5f395fff 0x151d5f396000 - 0x151d5f398fff 0x151d5f399000 - 0x151d5f3bdfff 0x151d5f3be000 - 0x151d5f50dfff 0x151d5f50e000 - 0x151d5f558fff 0x151d5f559000 - 0x151d5f55bfff 0x151d5f55c000 - 0x151d5f55efff 0x151d5f55f000 - 0x151d5f562fff 0x151d5f563000 - 0x151d5f565fff 0x151d5f566000 - 0x151d5f577fff 0x151d5f578000 - 0x151d5f57bfff 0x151d5f57c000 - 0x151d5f57cfff 0x151d5f57d000 - 0x151d5f57dfff 0x151d5f57e000 - 0x151d5f57ffff 0x151d5f580000 - 0x151d5f590fff 0x151d5f591000 - 0x151d5f5c8fff 0x151d5f5c9000 - 0x151d5f6fffff 0x151d5f700000 - 0x151d5f703fff 0x151d5f704000 - 0x151d5f704fff 0x151d5f705000 - 0x151d5f705fff 0x151d5f706000 - 0x151d5f707fff 0x151d5f708000 - 0x151d5f708fff 0x151d5f709000 - 0x151d5f709fff 0x151d5f70a000 - 0x151d5f70afff 0x151d5f70b000 - 0x151d5f70cfff 0x151d5f70d000 - 0x151d5f70ffff 0x151d5f710000 - 0x151d5f710fff 0x151d5f711000 - 0x151d5f711fff 0x151d5f712000 - 0x151d5f712fff 0x151d5f713000 - 0x151d5f714fff 0x151d5f715000 - 0x151d5f716fff 0x151d5f717000 - 0x151d5f717fff 0x151d5f718000 - 0x151d5f718fff 0x151d5f719000 - 0x151d5f719fff 0x151d5f71a000 - 0x151d5f727fff 0x151d5f728000 - 0x151d5f735fff 0x151d5f736000 - 0x151d5f743fff 0x151d5f744000 - 0x151d5f747fff 0x151d5f748000 - 0x151d5f748fff 0x151d5f749000 - 0x151d5f75efff 0x151d5f75f000 - 0x151d5f78afff 0x151d5f78b000 - 0x151d5f793fff 0x151d5f794000 - 0x151d5f794fff 0x151d5f795000 - 0x151d5f797fff 0x151d5f798000 - 0x151d5f79dfff 0x151d5f79e000 - 0x151d5f7a0fff 0x151d5f7a3000 - 0x151d5f7a3fff 0x151d5f7a4000 - 0x151d5f7a4fff 0x151d5f7a5000 - 0x151d5f7abfff 0x151d5f7ac000 - 0x151d5f7adfff 0x151d5f7ae000 - 0x151d5f7cefff 0x151d5f7cf000 - 0x151d5f7d6fff 0x151d5f7d7000 - 0x151d5f7d7fff 0x151d5f7d8000 - 0x151d5f7d8fff 0x151d5f7d9000 - 0x151d5f7d9fff 0x151d5f7da000 - 0x151d5f7dafff 0x7fff8702a000 - 0x7fff8704afff 0x7fff871a3000 - 0x7fff871a6fff 0x7fff871a7000 - 0x7fff871a8fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x2347000 - 0x2367fff 0x100000000000 - 0x1000000bffff 0x14a6d5e3a000 - 0x14a6d64defff 0x14a6d64df000 - 0x14a6d6532fff 0x14a6d6533000 - 0x14a6d6535fff 0x14a6d6536000 - 0x14a6d655afff 0x14a6d655b000 - 0x14a6d66aafff 0x14a6d66ab000 - 0x14a6d66f5fff 0x14a6d66f6000 - 0x14a6d66f8fff 0x14a6d66f9000 - 0x14a6d66fbfff 0x14a6d66fc000 - 0x14a6d66fffff 0x14a6d6700000 - 0x14a6d6702fff 0x14a6d6703000 - 0x14a6d6714fff 0x14a6d6715000 - 0x14a6d6718fff 0x14a6d6719000 - 0x14a6d6719fff 0x14a6d671a000 - 0x14a6d671afff 0x14a6d671b000 - 0x14a6d671cfff 0x14a6d671d000 - 0x14a6d672dfff 0x14a6d672e000 - 0x14a6d6765fff 0x14a6d6766000 - 0x14a6d689cfff 0x14a6d689d000 - 0x14a6d68a0fff 0x14a6d68a1000 - 0x14a6d68a1fff 0x14a6d68a2000 - 0x14a6d68a2fff 0x14a6d68a3000 - 0x14a6d68a4fff 0x14a6d68a5000 - 0x14a6d68a5fff 0x14a6d68a6000 - 0x14a6d68a6fff 0x14a6d68a7000 - 0x14a6d68a7fff 0x14a6d68a8000 - 0x14a6d68a9fff 0x14a6d68aa000 - 0x14a6d68acfff 0x14a6d68ad000 - 0x14a6d68adfff 0x14a6d68ae000 - 0x14a6d68aefff 0x14a6d68af000 - 0x14a6d68affff 0x14a6d68b0000 - 0x14a6d68b1fff 0x14a6d68b2000 - 0x14a6d68b3fff 0x14a6d68b4000 - 0x14a6d68b4fff 0x14a6d68b5000 - 0x14a6d68b5fff 0x14a6d68b6000 - 0x14a6d68b6fff 0x14a6d68b7000 - 0x14a6d68c4fff 0x14a6d68c5000 - 0x14a6d68d2fff 0x14a6d68d3000 - 0x14a6d68e0fff 0x14a6d68e1000 - 0x14a6d68e4fff 0x14a6d68e5000 - 0x14a6d68e5fff 0x14a6d68e6000 - 0x14a6d68fbfff 0x14a6d68fc000 - 0x14a6d6927fff 0x14a6d6928000 - 0x14a6d6930fff 0x14a6d6931000 - 0x14a6d6931fff 0x14a6d6932000 - 0x14a6d6934fff 0x14a6d6935000 - 0x14a6d693afff 0x14a6d693b000 - 0x14a6d693dfff 0x14a6d6940000 - 0x14a6d6940fff 0x14a6d6941000 - 0x14a6d6941fff 0x14a6d6942000 - 0x14a6d6948fff 0x14a6d6949000 - 0x14a6d694afff 0x14a6d694b000 - 0x14a6d696bfff 0x14a6d696c000 - 0x14a6d6973fff 0x14a6d6974000 - 0x14a6d6974fff 0x14a6d6975000 - 0x14a6d6975fff 0x14a6d6976000 - 0x14a6d6976fff 0x14a6d6977000 - 0x14a6d6977fff 0x7fffbb3ec000 - 0x7fffbb40cfff 0x7fffbb4eb000 - 0x7fffbb4eefff 0x7fffbb4ef000 - 0x7fffbb4f0fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x24b7000 - 0x24d7fff 0x100000000000 - 0x1000000bffff 0x14650bf64000 - 0x14650c608fff 0x14650c609000 - 0x14650c65cfff 0x14650c65d000 - 0x14650c65ffff 0x14650c660000 - 0x14650c684fff 0x14650c685000 - 0x14650c7d4fff 0x14650c7d5000 - 0x14650c81ffff 0x14650c820000 - 0x14650c822fff 0x14650c823000 - 0x14650c825fff 0x14650c826000 - 0x14650c829fff 0x14650c82a000 - 0x14650c82cfff 0x14650c82d000 - 0x14650c83efff 0x14650c83f000 - 0x14650c842fff 0x14650c843000 - 0x14650c843fff 0x14650c844000 - 0x14650c844fff 0x14650c845000 - 0x14650c846fff 0x14650c847000 - 0x14650c857fff 0x14650c858000 - 0x14650c88ffff 0x14650c890000 - 0x14650c9c6fff 0x14650c9c7000 - 0x14650c9cafff 0x14650c9cb000 - 0x14650c9cbfff 0x14650c9cc000 - 0x14650c9ccfff 0x14650c9cd000 - 0x14650c9cefff 0x14650c9cf000 - 0x14650c9cffff 0x14650c9d0000 - 0x14650c9d0fff 0x14650c9d1000 - 0x14650c9d1fff 0x14650c9d2000 - 0x14650c9d3fff 0x14650c9d4000 - 0x14650c9d6fff 0x14650c9d7000 - 0x14650c9d7fff 0x14650c9d8000 - 0x14650c9d8fff 0x14650c9d9000 - 0x14650c9d9fff 0x14650c9da000 - 0x14650c9dbfff 0x14650c9dc000 - 0x14650c9ddfff 0x14650c9de000 - 0x14650c9defff 0x14650c9df000 - 0x14650c9dffff 0x14650c9e0000 - 0x14650c9e0fff 0x14650c9e1000 - 0x14650c9eefff 0x14650c9ef000 - 0x14650c9fcfff 0x14650c9fd000 - 0x14650ca0afff 0x14650ca0b000 - 0x14650ca0efff 0x14650ca0f000 - 0x14650ca0ffff 0x14650ca10000 - 0x14650ca25fff 0x14650ca26000 - 0x14650ca51fff 0x14650ca52000 - 0x14650ca5afff 0x14650ca5b000 - 0x14650ca5bfff 0x14650ca5c000 - 0x14650ca5efff 0x14650ca5f000 - 0x14650ca64fff 0x14650ca65000 - 0x14650ca67fff 0x14650ca6a000 - 0x14650ca6afff 0x14650ca6b000 - 0x14650ca6bfff 0x14650ca6c000 - 0x14650ca72fff 0x14650ca73000 - 0x14650ca74fff 0x14650ca75000 - 0x14650ca95fff 0x14650ca96000 - 0x14650ca9dfff 0x14650ca9e000 - 0x14650ca9efff 0x14650ca9f000 - 0x14650ca9ffff 0x14650caa0000 - 0x14650caa0fff 0x14650caa1000 - 0x14650caa1fff 0x7fffb54e7000 - 0x7fffb5507fff 0x7fffb55c4000 - 0x7fffb55c7fff 0x7fffb55c8000 - 0x7fffb55c9fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x12a0000 - 0x12c0fff 0x100000000000 - 0x1000000bffff 0x1552e7847000 - 0x1552e7eebfff 0x1552e7eec000 - 0x1552e7f3ffff 0x1552e7f40000 - 0x1552e7f42fff 0x1552e7f43000 - 0x1552e7f67fff 0x1552e7f68000 - 0x1552e80b7fff 0x1552e80b8000 - 0x1552e8102fff 0x1552e8103000 - 0x1552e8105fff 0x1552e8106000 - 0x1552e8108fff 0x1552e8109000 - 0x1552e810cfff 0x1552e810d000 - 0x1552e810ffff 0x1552e8110000 - 0x1552e8121fff 0x1552e8122000 - 0x1552e8125fff 0x1552e8126000 - 0x1552e8126fff 0x1552e8127000 - 0x1552e8127fff 0x1552e8128000 - 0x1552e8129fff 0x1552e812a000 - 0x1552e813afff 0x1552e813b000 - 0x1552e8172fff 0x1552e8173000 - 0x1552e82a9fff 0x1552e82aa000 - 0x1552e82adfff 0x1552e82ae000 - 0x1552e82aefff 0x1552e82af000 - 0x1552e82affff 0x1552e82b0000 - 0x1552e82b1fff 0x1552e82b2000 - 0x1552e82b2fff 0x1552e82b3000 - 0x1552e82b3fff 0x1552e82b4000 - 0x1552e82b4fff 0x1552e82b5000 - 0x1552e82b6fff 0x1552e82b7000 - 0x1552e82b9fff 0x1552e82ba000 - 0x1552e82bafff 0x1552e82bb000 - 0x1552e82bbfff 0x1552e82bc000 - 0x1552e82bcfff 0x1552e82bd000 - 0x1552e82befff 0x1552e82bf000 - 0x1552e82c0fff 0x1552e82c1000 - 0x1552e82c1fff 0x1552e82c2000 - 0x1552e82c2fff 0x1552e82c3000 - 0x1552e82c3fff 0x1552e82c4000 - 0x1552e82d1fff 0x1552e82d2000 - 0x1552e82dffff 0x1552e82e0000 - 0x1552e82edfff 0x1552e82ee000 - 0x1552e82f1fff 0x1552e82f2000 - 0x1552e82f2fff 0x1552e82f3000 - 0x1552e8308fff 0x1552e8309000 - 0x1552e8334fff 0x1552e8335000 - 0x1552e833dfff 0x1552e833e000 - 0x1552e833efff 0x1552e833f000 - 0x1552e8341fff 0x1552e8342000 - 0x1552e8347fff 0x1552e8348000 - 0x1552e834afff 0x1552e834d000 - 0x1552e834dfff 0x1552e834e000 - 0x1552e834efff 0x1552e834f000 - 0x1552e8355fff 0x1552e8356000 - 0x1552e8357fff 0x1552e8358000 - 0x1552e8378fff 0x1552e8379000 - 0x1552e8380fff 0x1552e8381000 - 0x1552e8381fff 0x1552e8382000 - 0x1552e8382fff 0x1552e8383000 - 0x1552e8383fff 0x1552e8384000 - 0x1552e8384fff 0x7ffdb730e000 - 0x7ffdb732efff 0x7ffdb73ae000 - 0x7ffdb73b1fff 0x7ffdb73b2000 - 0x7ffdb73b3fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1040000 - 0x1060fff 0x100000000000 - 0x1000000bffff 0x14a57a3dd000 - 0x14a57aa81fff 0x14a57aa82000 - 0x14a57aad5fff 0x14a57aad6000 - 0x14a57aad8fff 0x14a57aad9000 - 0x14a57aafdfff 0x14a57aafe000 - 0x14a57ac4dfff 0x14a57ac4e000 - 0x14a57ac98fff 0x14a57ac99000 - 0x14a57ac9bfff 0x14a57ac9c000 - 0x14a57ac9efff 0x14a57ac9f000 - 0x14a57aca2fff 0x14a57aca3000 - 0x14a57aca5fff 0x14a57aca6000 - 0x14a57acb7fff 0x14a57acb8000 - 0x14a57acbbfff 0x14a57acbc000 - 0x14a57acbcfff 0x14a57acbd000 - 0x14a57acbdfff 0x14a57acbe000 - 0x14a57acbffff 0x14a57acc0000 - 0x14a57acd0fff 0x14a57acd1000 - 0x14a57ad08fff 0x14a57ad09000 - 0x14a57ae3ffff 0x14a57ae40000 - 0x14a57ae43fff 0x14a57ae44000 - 0x14a57ae44fff 0x14a57ae45000 - 0x14a57ae45fff 0x14a57ae46000 - 0x14a57ae47fff 0x14a57ae48000 - 0x14a57ae48fff 0x14a57ae49000 - 0x14a57ae49fff 0x14a57ae4a000 - 0x14a57ae4afff 0x14a57ae4b000 - 0x14a57ae4cfff 0x14a57ae4d000 - 0x14a57ae4ffff 0x14a57ae50000 - 0x14a57ae50fff 0x14a57ae51000 - 0x14a57ae51fff 0x14a57ae52000 - 0x14a57ae52fff 0x14a57ae53000 - 0x14a57ae54fff 0x14a57ae55000 - 0x14a57ae56fff 0x14a57ae57000 - 0x14a57ae57fff 0x14a57ae58000 - 0x14a57ae58fff 0x14a57ae59000 - 0x14a57ae59fff 0x14a57ae5a000 - 0x14a57ae67fff 0x14a57ae68000 - 0x14a57ae75fff 0x14a57ae76000 - 0x14a57ae83fff 0x14a57ae84000 - 0x14a57ae87fff 0x14a57ae88000 - 0x14a57ae88fff 0x14a57ae89000 - 0x14a57ae9efff 0x14a57ae9f000 - 0x14a57aecafff 0x14a57aecb000 - 0x14a57aed3fff 0x14a57aed4000 - 0x14a57aed4fff 0x14a57aed5000 - 0x14a57aed7fff 0x14a57aed8000 - 0x14a57aeddfff 0x14a57aede000 - 0x14a57aee0fff 0x14a57aee3000 - 0x14a57aee3fff 0x14a57aee4000 - 0x14a57aee4fff 0x14a57aee5000 - 0x14a57aeebfff 0x14a57aeec000 - 0x14a57aeedfff 0x14a57aeee000 - 0x14a57af0efff 0x14a57af0f000 - 0x14a57af16fff 0x14a57af17000 - 0x14a57af17fff 0x14a57af18000 - 0x14a57af18fff 0x14a57af19000 - 0x14a57af19fff 0x14a57af1a000 - 0x14a57af1afff 0x7fffd59db000 - 0x7fffd59fbfff 0x7fffd5a2d000 - 0x7fffd5a30fff 0x7fffd5a31000 - 0x7fffd5a32fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x181b000 - 0x183bfff 0x100000000000 - 0x1000000bffff 0x146787cfc000 - 0x1467883a0fff 0x1467883a1000 - 0x1467883f4fff 0x1467883f5000 - 0x1467883f7fff 0x1467883f8000 - 0x14678841cfff 0x14678841d000 - 0x14678856cfff 0x14678856d000 - 0x1467885b7fff 0x1467885b8000 - 0x1467885bafff 0x1467885bb000 - 0x1467885bdfff 0x1467885be000 - 0x1467885c1fff 0x1467885c2000 - 0x1467885c4fff 0x1467885c5000 - 0x1467885d6fff 0x1467885d7000 - 0x1467885dafff 0x1467885db000 - 0x1467885dbfff 0x1467885dc000 - 0x1467885dcfff 0x1467885dd000 - 0x1467885defff 0x1467885df000 - 0x1467885effff 0x1467885f0000 - 0x146788627fff 0x146788628000 - 0x14678875efff 0x14678875f000 - 0x146788762fff 0x146788763000 - 0x146788763fff 0x146788764000 - 0x146788764fff 0x146788765000 - 0x146788766fff 0x146788767000 - 0x146788767fff 0x146788768000 - 0x146788768fff 0x146788769000 - 0x146788769fff 0x14678876a000 - 0x14678876bfff 0x14678876c000 - 0x14678876efff 0x14678876f000 - 0x14678876ffff 0x146788770000 - 0x146788770fff 0x146788771000 - 0x146788771fff 0x146788772000 - 0x146788773fff 0x146788774000 - 0x146788775fff 0x146788776000 - 0x146788776fff 0x146788777000 - 0x146788777fff 0x146788778000 - 0x146788778fff 0x146788779000 - 0x146788786fff 0x146788787000 - 0x146788794fff 0x146788795000 - 0x1467887a2fff 0x1467887a3000 - 0x1467887a6fff 0x1467887a7000 - 0x1467887a7fff 0x1467887a8000 - 0x1467887bdfff 0x1467887be000 - 0x1467887e9fff 0x1467887ea000 - 0x1467887f2fff 0x1467887f3000 - 0x1467887f3fff 0x1467887f4000 - 0x1467887f6fff 0x1467887f7000 - 0x1467887fcfff 0x1467887fd000 - 0x1467887fffff 0x146788802000 - 0x146788802fff 0x146788803000 - 0x146788803fff 0x146788804000 - 0x14678880afff 0x14678880b000 - 0x14678880cfff 0x14678880d000 - 0x14678882dfff 0x14678882e000 - 0x146788835fff 0x146788836000 - 0x146788836fff 0x146788837000 - 0x146788837fff 0x146788838000 - 0x146788838fff 0x146788839000 - 0x146788839fff 0x7ffe1fe73000 - 0x7ffe1fe93fff 0x7ffe1ffe7000 - 0x7ffe1ffeafff 0x7ffe1ffeb000 - 0x7ffe1ffecfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x13bb000 - 0x13dbfff 0x100000000000 - 0x1000000bffff 0x1553c8f70000 - 0x1553c9614fff 0x1553c9615000 - 0x1553c9668fff 0x1553c9669000 - 0x1553c966bfff 0x1553c966c000 - 0x1553c9690fff 0x1553c9691000 - 0x1553c97e0fff 0x1553c97e1000 - 0x1553c982bfff 0x1553c982c000 - 0x1553c982efff 0x1553c982f000 - 0x1553c9831fff 0x1553c9832000 - 0x1553c9835fff 0x1553c9836000 - 0x1553c9838fff 0x1553c9839000 - 0x1553c984afff 0x1553c984b000 - 0x1553c984efff 0x1553c984f000 - 0x1553c984ffff 0x1553c9850000 - 0x1553c9850fff 0x1553c9851000 - 0x1553c9852fff 0x1553c9853000 - 0x1553c9863fff 0x1553c9864000 - 0x1553c989bfff 0x1553c989c000 - 0x1553c99d2fff 0x1553c99d3000 - 0x1553c99d6fff 0x1553c99d7000 - 0x1553c99d7fff 0x1553c99d8000 - 0x1553c99d8fff 0x1553c99d9000 - 0x1553c99dafff 0x1553c99db000 - 0x1553c99dbfff 0x1553c99dc000 - 0x1553c99dcfff 0x1553c99dd000 - 0x1553c99ddfff 0x1553c99de000 - 0x1553c99dffff 0x1553c99e0000 - 0x1553c99e2fff 0x1553c99e3000 - 0x1553c99e3fff 0x1553c99e4000 - 0x1553c99e4fff 0x1553c99e5000 - 0x1553c99e5fff 0x1553c99e6000 - 0x1553c99e7fff 0x1553c99e8000 - 0x1553c99e9fff 0x1553c99ea000 - 0x1553c99eafff 0x1553c99eb000 - 0x1553c99ebfff 0x1553c99ec000 - 0x1553c99ecfff 0x1553c99ed000 - 0x1553c99fafff 0x1553c99fb000 - 0x1553c9a08fff 0x1553c9a09000 - 0x1553c9a16fff 0x1553c9a17000 - 0x1553c9a1afff 0x1553c9a1b000 - 0x1553c9a1bfff 0x1553c9a1c000 - 0x1553c9a31fff 0x1553c9a32000 - 0x1553c9a5dfff 0x1553c9a5e000 - 0x1553c9a66fff 0x1553c9a67000 - 0x1553c9a67fff 0x1553c9a68000 - 0x1553c9a6afff 0x1553c9a6b000 - 0x1553c9a70fff 0x1553c9a71000 - 0x1553c9a73fff 0x1553c9a76000 - 0x1553c9a76fff 0x1553c9a77000 - 0x1553c9a77fff 0x1553c9a78000 - 0x1553c9a7efff 0x1553c9a7f000 - 0x1553c9a80fff 0x1553c9a81000 - 0x1553c9aa1fff 0x1553c9aa2000 - 0x1553c9aa9fff 0x1553c9aaa000 - 0x1553c9aaafff 0x1553c9aab000 - 0x1553c9aabfff 0x1553c9aac000 - 0x1553c9aacfff 0x1553c9aad000 - 0x1553c9aadfff 0x7ffde9336000 - 0x7ffde9356fff 0x7ffde9381000 - 0x7ffde9384fff 0x7ffde9385000 - 0x7ffde9386fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x2136000 - 0x2156fff 0x100000000000 - 0x1000000bffff 0x1513597f4000 - 0x151359e98fff 0x151359e99000 - 0x151359eecfff 0x151359eed000 - 0x151359eeffff 0x151359ef0000 - 0x151359f14fff 0x151359f15000 - 0x15135a064fff 0x15135a065000 - 0x15135a0affff 0x15135a0b0000 - 0x15135a0b2fff 0x15135a0b3000 - 0x15135a0b5fff 0x15135a0b6000 - 0x15135a0b9fff 0x15135a0ba000 - 0x15135a0bcfff 0x15135a0bd000 - 0x15135a0cefff 0x15135a0cf000 - 0x15135a0d2fff 0x15135a0d3000 - 0x15135a0d3fff 0x15135a0d4000 - 0x15135a0d4fff 0x15135a0d5000 - 0x15135a0d6fff 0x15135a0d7000 - 0x15135a0e7fff 0x15135a0e8000 - 0x15135a11ffff 0x15135a120000 - 0x15135a256fff 0x15135a257000 - 0x15135a25afff 0x15135a25b000 - 0x15135a25bfff 0x15135a25c000 - 0x15135a25cfff 0x15135a25d000 - 0x15135a25efff 0x15135a25f000 - 0x15135a25ffff 0x15135a260000 - 0x15135a260fff 0x15135a261000 - 0x15135a261fff 0x15135a262000 - 0x15135a263fff 0x15135a264000 - 0x15135a266fff 0x15135a267000 - 0x15135a267fff 0x15135a268000 - 0x15135a268fff 0x15135a269000 - 0x15135a269fff 0x15135a26a000 - 0x15135a26bfff 0x15135a26c000 - 0x15135a26dfff 0x15135a26e000 - 0x15135a26efff 0x15135a26f000 - 0x15135a26ffff 0x15135a270000 - 0x15135a270fff 0x15135a271000 - 0x15135a27efff 0x15135a27f000 - 0x15135a28cfff 0x15135a28d000 - 0x15135a29afff 0x15135a29b000 - 0x15135a29efff 0x15135a29f000 - 0x15135a29ffff 0x15135a2a0000 - 0x15135a2b5fff 0x15135a2b6000 - 0x15135a2e1fff 0x15135a2e2000 - 0x15135a2eafff 0x15135a2eb000 - 0x15135a2ebfff 0x15135a2ec000 - 0x15135a2eefff 0x15135a2ef000 - 0x15135a2f4fff 0x15135a2f5000 - 0x15135a2f7fff 0x15135a2fa000 - 0x15135a2fafff 0x15135a2fb000 - 0x15135a2fbfff 0x15135a2fc000 - 0x15135a302fff 0x15135a303000 - 0x15135a304fff 0x15135a305000 - 0x15135a325fff 0x15135a326000 - 0x15135a32dfff 0x15135a32e000 - 0x15135a32efff 0x15135a32f000 - 0x15135a32ffff 0x15135a330000 - 0x15135a330fff 0x15135a331000 - 0x15135a331fff 0x7ffcbb9a2000 - 0x7ffcbb9c2fff 0x7ffcbb9de000 - 0x7ffcbb9e1fff 0x7ffcbb9e2000 - 0x7ffcbb9e3fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1d79000 - 0x1d99fff 0x100000000000 - 0x1000000bffff 0x146c9d580000 - 0x146c9dc24fff 0x146c9dc25000 - 0x146c9dc78fff 0x146c9dc79000 - 0x146c9dc7bfff 0x146c9dc7c000 - 0x146c9dca0fff 0x146c9dca1000 - 0x146c9ddf0fff 0x146c9ddf1000 - 0x146c9de3bfff 0x146c9de3c000 - 0x146c9de3efff 0x146c9de3f000 - 0x146c9de41fff 0x146c9de42000 - 0x146c9de45fff 0x146c9de46000 - 0x146c9de48fff 0x146c9de49000 - 0x146c9de5afff 0x146c9de5b000 - 0x146c9de5efff 0x146c9de5f000 - 0x146c9de5ffff 0x146c9de60000 - 0x146c9de60fff 0x146c9de61000 - 0x146c9de62fff 0x146c9de63000 - 0x146c9de73fff 0x146c9de74000 - 0x146c9deabfff 0x146c9deac000 - 0x146c9dfe2fff 0x146c9dfe3000 - 0x146c9dfe6fff 0x146c9dfe7000 - 0x146c9dfe7fff 0x146c9dfe8000 - 0x146c9dfe8fff 0x146c9dfe9000 - 0x146c9dfeafff 0x146c9dfeb000 - 0x146c9dfebfff 0x146c9dfec000 - 0x146c9dfecfff 0x146c9dfed000 - 0x146c9dfedfff 0x146c9dfee000 - 0x146c9dfeffff 0x146c9dff0000 - 0x146c9dff2fff 0x146c9dff3000 - 0x146c9dff3fff 0x146c9dff4000 - 0x146c9dff4fff 0x146c9dff5000 - 0x146c9dff5fff 0x146c9dff6000 - 0x146c9dff7fff 0x146c9dff8000 - 0x146c9dff9fff 0x146c9dffa000 - 0x146c9dffafff 0x146c9dffb000 - 0x146c9dffbfff 0x146c9dffc000 - 0x146c9dffcfff 0x146c9dffd000 - 0x146c9e00afff 0x146c9e00b000 - 0x146c9e018fff 0x146c9e019000 - 0x146c9e026fff 0x146c9e027000 - 0x146c9e02afff 0x146c9e02b000 - 0x146c9e02bfff 0x146c9e02c000 - 0x146c9e041fff 0x146c9e042000 - 0x146c9e06dfff 0x146c9e06e000 - 0x146c9e076fff 0x146c9e077000 - 0x146c9e077fff 0x146c9e078000 - 0x146c9e07afff 0x146c9e07b000 - 0x146c9e080fff 0x146c9e081000 - 0x146c9e083fff 0x146c9e086000 - 0x146c9e086fff 0x146c9e087000 - 0x146c9e087fff 0x146c9e088000 - 0x146c9e08efff 0x146c9e08f000 - 0x146c9e090fff 0x146c9e091000 - 0x146c9e0b1fff 0x146c9e0b2000 - 0x146c9e0b9fff 0x146c9e0ba000 - 0x146c9e0bafff 0x146c9e0bb000 - 0x146c9e0bbfff 0x146c9e0bc000 - 0x146c9e0bcfff 0x146c9e0bd000 - 0x146c9e0bdfff 0x7ffd88f69000 - 0x7ffd88f89fff 0x7ffd88f92000 - 0x7ffd88f95fff 0x7ffd88f96000 - 0x7ffd88f97fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x935000 - 0x955fff 0x100000000000 - 0x1000000bffff 0x1507b9b94000 - 0x1507ba238fff 0x1507ba239000 - 0x1507ba28cfff 0x1507ba28d000 - 0x1507ba28ffff 0x1507ba290000 - 0x1507ba2b4fff 0x1507ba2b5000 - 0x1507ba404fff 0x1507ba405000 - 0x1507ba44ffff 0x1507ba450000 - 0x1507ba452fff 0x1507ba453000 - 0x1507ba455fff 0x1507ba456000 - 0x1507ba459fff 0x1507ba45a000 - 0x1507ba45cfff 0x1507ba45d000 - 0x1507ba46efff 0x1507ba46f000 - 0x1507ba472fff 0x1507ba473000 - 0x1507ba473fff 0x1507ba474000 - 0x1507ba474fff 0x1507ba475000 - 0x1507ba476fff 0x1507ba477000 - 0x1507ba487fff 0x1507ba488000 - 0x1507ba4bffff 0x1507ba4c0000 - 0x1507ba5f6fff 0x1507ba5f7000 - 0x1507ba5fafff 0x1507ba5fb000 - 0x1507ba5fbfff 0x1507ba5fc000 - 0x1507ba5fcfff 0x1507ba5fd000 - 0x1507ba5fefff 0x1507ba5ff000 - 0x1507ba5fffff 0x1507ba600000 - 0x1507ba600fff 0x1507ba601000 - 0x1507ba601fff 0x1507ba602000 - 0x1507ba603fff 0x1507ba604000 - 0x1507ba606fff 0x1507ba607000 - 0x1507ba607fff 0x1507ba608000 - 0x1507ba608fff 0x1507ba609000 - 0x1507ba609fff 0x1507ba60a000 - 0x1507ba60bfff 0x1507ba60c000 - 0x1507ba60dfff 0x1507ba60e000 - 0x1507ba60efff 0x1507ba60f000 - 0x1507ba60ffff 0x1507ba610000 - 0x1507ba610fff 0x1507ba611000 - 0x1507ba61efff 0x1507ba61f000 - 0x1507ba62cfff 0x1507ba62d000 - 0x1507ba63afff 0x1507ba63b000 - 0x1507ba63efff 0x1507ba63f000 - 0x1507ba63ffff 0x1507ba640000 - 0x1507ba655fff 0x1507ba656000 - 0x1507ba681fff 0x1507ba682000 - 0x1507ba68afff 0x1507ba68b000 - 0x1507ba68bfff 0x1507ba68c000 - 0x1507ba68efff 0x1507ba68f000 - 0x1507ba694fff 0x1507ba695000 - 0x1507ba697fff 0x1507ba69a000 - 0x1507ba69afff 0x1507ba69b000 - 0x1507ba69bfff 0x1507ba69c000 - 0x1507ba6a2fff 0x1507ba6a3000 - 0x1507ba6a4fff 0x1507ba6a5000 - 0x1507ba6c5fff 0x1507ba6c6000 - 0x1507ba6cdfff 0x1507ba6ce000 - 0x1507ba6cefff 0x1507ba6cf000 - 0x1507ba6cffff 0x1507ba6d0000 - 0x1507ba6d0fff 0x1507ba6d1000 - 0x1507ba6d1fff 0x7ffd7f8c9000 - 0x7ffd7f8e9fff 0x7ffd7f97e000 - 0x7ffd7f981fff 0x7ffd7f982000 - 0x7ffd7f983fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x135c000 - 0x137cfff 0x100000000000 - 0x1000000bffff 0x14f08e8f1000 - 0x14f08ef95fff 0x14f08ef96000 - 0x14f08efe9fff 0x14f08efea000 - 0x14f08efecfff 0x14f08efed000 - 0x14f08f011fff 0x14f08f012000 - 0x14f08f161fff 0x14f08f162000 - 0x14f08f1acfff 0x14f08f1ad000 - 0x14f08f1affff 0x14f08f1b0000 - 0x14f08f1b2fff 0x14f08f1b3000 - 0x14f08f1b6fff 0x14f08f1b7000 - 0x14f08f1b9fff 0x14f08f1ba000 - 0x14f08f1cbfff 0x14f08f1cc000 - 0x14f08f1cffff 0x14f08f1d0000 - 0x14f08f1d0fff 0x14f08f1d1000 - 0x14f08f1d1fff 0x14f08f1d2000 - 0x14f08f1d3fff 0x14f08f1d4000 - 0x14f08f1e4fff 0x14f08f1e5000 - 0x14f08f21cfff 0x14f08f21d000 - 0x14f08f353fff 0x14f08f354000 - 0x14f08f357fff 0x14f08f358000 - 0x14f08f358fff 0x14f08f359000 - 0x14f08f359fff 0x14f08f35a000 - 0x14f08f35bfff 0x14f08f35c000 - 0x14f08f35cfff 0x14f08f35d000 - 0x14f08f35dfff 0x14f08f35e000 - 0x14f08f35efff 0x14f08f35f000 - 0x14f08f360fff 0x14f08f361000 - 0x14f08f363fff 0x14f08f364000 - 0x14f08f364fff 0x14f08f365000 - 0x14f08f365fff 0x14f08f366000 - 0x14f08f366fff 0x14f08f367000 - 0x14f08f368fff 0x14f08f369000 - 0x14f08f36afff 0x14f08f36b000 - 0x14f08f36bfff 0x14f08f36c000 - 0x14f08f36cfff 0x14f08f36d000 - 0x14f08f36dfff 0x14f08f36e000 - 0x14f08f37bfff 0x14f08f37c000 - 0x14f08f389fff 0x14f08f38a000 - 0x14f08f397fff 0x14f08f398000 - 0x14f08f39bfff 0x14f08f39c000 - 0x14f08f39cfff 0x14f08f39d000 - 0x14f08f3b2fff 0x14f08f3b3000 - 0x14f08f3defff 0x14f08f3df000 - 0x14f08f3e7fff 0x14f08f3e8000 - 0x14f08f3e8fff 0x14f08f3e9000 - 0x14f08f3ebfff 0x14f08f3ec000 - 0x14f08f3f1fff 0x14f08f3f2000 - 0x14f08f3f4fff 0x14f08f3f7000 - 0x14f08f3f7fff 0x14f08f3f8000 - 0x14f08f3f8fff 0x14f08f3f9000 - 0x14f08f3fffff 0x14f08f400000 - 0x14f08f401fff 0x14f08f402000 - 0x14f08f422fff 0x14f08f423000 - 0x14f08f42afff 0x14f08f42b000 - 0x14f08f42bfff 0x14f08f42c000 - 0x14f08f42cfff 0x14f08f42d000 - 0x14f08f42dfff 0x14f08f42e000 - 0x14f08f42efff 0x7fffc40d4000 - 0x7fffc40f4fff 0x7fffc412d000 - 0x7fffc4130fff 0x7fffc4131000 - 0x7fffc4132fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1b65000 - 0x1b85fff 0x100000000000 - 0x1000000bffff 0x14f48f46b000 - 0x14f48fb0ffff 0x14f48fb10000 - 0x14f48fb63fff 0x14f48fb64000 - 0x14f48fb66fff 0x14f48fb67000 - 0x14f48fb8bfff 0x14f48fb8c000 - 0x14f48fcdbfff 0x14f48fcdc000 - 0x14f48fd26fff 0x14f48fd27000 - 0x14f48fd29fff 0x14f48fd2a000 - 0x14f48fd2cfff 0x14f48fd2d000 - 0x14f48fd30fff 0x14f48fd31000 - 0x14f48fd33fff 0x14f48fd34000 - 0x14f48fd45fff 0x14f48fd46000 - 0x14f48fd49fff 0x14f48fd4a000 - 0x14f48fd4afff 0x14f48fd4b000 - 0x14f48fd4bfff 0x14f48fd4c000 - 0x14f48fd4dfff 0x14f48fd4e000 - 0x14f48fd5efff 0x14f48fd5f000 - 0x14f48fd96fff 0x14f48fd97000 - 0x14f48fecdfff 0x14f48fece000 - 0x14f48fed1fff 0x14f48fed2000 - 0x14f48fed2fff 0x14f48fed3000 - 0x14f48fed3fff 0x14f48fed4000 - 0x14f48fed5fff 0x14f48fed6000 - 0x14f48fed6fff 0x14f48fed7000 - 0x14f48fed7fff 0x14f48fed8000 - 0x14f48fed8fff 0x14f48fed9000 - 0x14f48fedafff 0x14f48fedb000 - 0x14f48feddfff 0x14f48fede000 - 0x14f48fedefff 0x14f48fedf000 - 0x14f48fedffff 0x14f48fee0000 - 0x14f48fee0fff 0x14f48fee1000 - 0x14f48fee2fff 0x14f48fee3000 - 0x14f48fee4fff 0x14f48fee5000 - 0x14f48fee5fff 0x14f48fee6000 - 0x14f48fee6fff 0x14f48fee7000 - 0x14f48fee7fff 0x14f48fee8000 - 0x14f48fef5fff 0x14f48fef6000 - 0x14f48ff03fff 0x14f48ff04000 - 0x14f48ff11fff 0x14f48ff12000 - 0x14f48ff15fff 0x14f48ff16000 - 0x14f48ff16fff 0x14f48ff17000 - 0x14f48ff2cfff 0x14f48ff2d000 - 0x14f48ff58fff 0x14f48ff59000 - 0x14f48ff61fff 0x14f48ff62000 - 0x14f48ff62fff 0x14f48ff63000 - 0x14f48ff65fff 0x14f48ff66000 - 0x14f48ff6bfff 0x14f48ff6c000 - 0x14f48ff6efff 0x14f48ff71000 - 0x14f48ff71fff 0x14f48ff72000 - 0x14f48ff72fff 0x14f48ff73000 - 0x14f48ff79fff 0x14f48ff7a000 - 0x14f48ff7bfff 0x14f48ff7c000 - 0x14f48ff9cfff 0x14f48ff9d000 - 0x14f48ffa4fff 0x14f48ffa5000 - 0x14f48ffa5fff 0x14f48ffa6000 - 0x14f48ffa6fff 0x14f48ffa7000 - 0x14f48ffa7fff 0x14f48ffa8000 - 0x14f48ffa8fff 0x7ffcf7492000 - 0x7ffcf74b2fff 0x7ffcf7575000 - 0x7ffcf7578fff 0x7ffcf7579000 - 0x7ffcf757afff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xea5000 - 0xec5fff 0x100000000000 - 0x1000000bffff 0x154e2099b000 - 0x154e2103ffff 0x154e21040000 - 0x154e21093fff 0x154e21094000 - 0x154e21096fff 0x154e21097000 - 0x154e210bbfff 0x154e210bc000 - 0x154e2120bfff 0x154e2120c000 - 0x154e21256fff 0x154e21257000 - 0x154e21259fff 0x154e2125a000 - 0x154e2125cfff 0x154e2125d000 - 0x154e21260fff 0x154e21261000 - 0x154e21263fff 0x154e21264000 - 0x154e21275fff 0x154e21276000 - 0x154e21279fff 0x154e2127a000 - 0x154e2127afff 0x154e2127b000 - 0x154e2127bfff 0x154e2127c000 - 0x154e2127dfff 0x154e2127e000 - 0x154e2128efff 0x154e2128f000 - 0x154e212c6fff 0x154e212c7000 - 0x154e213fdfff 0x154e213fe000 - 0x154e21401fff 0x154e21402000 - 0x154e21402fff 0x154e21403000 - 0x154e21403fff 0x154e21404000 - 0x154e21405fff 0x154e21406000 - 0x154e21406fff 0x154e21407000 - 0x154e21407fff 0x154e21408000 - 0x154e21408fff 0x154e21409000 - 0x154e2140afff 0x154e2140b000 - 0x154e2140dfff 0x154e2140e000 - 0x154e2140efff 0x154e2140f000 - 0x154e2140ffff 0x154e21410000 - 0x154e21410fff 0x154e21411000 - 0x154e21412fff 0x154e21413000 - 0x154e21414fff 0x154e21415000 - 0x154e21415fff 0x154e21416000 - 0x154e21416fff 0x154e21417000 - 0x154e21417fff 0x154e21418000 - 0x154e21425fff 0x154e21426000 - 0x154e21433fff 0x154e21434000 - 0x154e21441fff 0x154e21442000 - 0x154e21445fff 0x154e21446000 - 0x154e21446fff 0x154e21447000 - 0x154e2145cfff 0x154e2145d000 - 0x154e21488fff 0x154e21489000 - 0x154e21491fff 0x154e21492000 - 0x154e21492fff 0x154e21493000 - 0x154e21495fff 0x154e21496000 - 0x154e2149bfff 0x154e2149c000 - 0x154e2149efff 0x154e214a1000 - 0x154e214a1fff 0x154e214a2000 - 0x154e214a2fff 0x154e214a3000 - 0x154e214a9fff 0x154e214aa000 - 0x154e214abfff 0x154e214ac000 - 0x154e214ccfff 0x154e214cd000 - 0x154e214d4fff 0x154e214d5000 - 0x154e214d5fff 0x154e214d6000 - 0x154e214d6fff 0x154e214d7000 - 0x154e214d7fff 0x154e214d8000 - 0x154e214d8fff 0x7ffef0c40000 - 0x7ffef0c60fff 0x7ffef0d33000 - 0x7ffef0d36fff 0x7ffef0d37000 - 0x7ffef0d38fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x14ed000 - 0x150dfff 0x100000000000 - 0x1000000bffff 0x1458e2e32000 - 0x1458e34d6fff 0x1458e34d7000 - 0x1458e352afff 0x1458e352b000 - 0x1458e352dfff 0x1458e352e000 - 0x1458e3552fff 0x1458e3553000 - 0x1458e36a2fff 0x1458e36a3000 - 0x1458e36edfff 0x1458e36ee000 - 0x1458e36f0fff 0x1458e36f1000 - 0x1458e36f3fff 0x1458e36f4000 - 0x1458e36f7fff 0x1458e36f8000 - 0x1458e36fafff 0x1458e36fb000 - 0x1458e370cfff 0x1458e370d000 - 0x1458e3710fff 0x1458e3711000 - 0x1458e3711fff 0x1458e3712000 - 0x1458e3712fff 0x1458e3713000 - 0x1458e3714fff 0x1458e3715000 - 0x1458e3725fff 0x1458e3726000 - 0x1458e375dfff 0x1458e375e000 - 0x1458e3894fff 0x1458e3895000 - 0x1458e3898fff 0x1458e3899000 - 0x1458e3899fff 0x1458e389a000 - 0x1458e389afff 0x1458e389b000 - 0x1458e389cfff 0x1458e389d000 - 0x1458e389dfff 0x1458e389e000 - 0x1458e389efff 0x1458e389f000 - 0x1458e389ffff 0x1458e38a0000 - 0x1458e38a1fff 0x1458e38a2000 - 0x1458e38a4fff 0x1458e38a5000 - 0x1458e38a5fff 0x1458e38a6000 - 0x1458e38a6fff 0x1458e38a7000 - 0x1458e38a7fff 0x1458e38a8000 - 0x1458e38a9fff 0x1458e38aa000 - 0x1458e38abfff 0x1458e38ac000 - 0x1458e38acfff 0x1458e38ad000 - 0x1458e38adfff 0x1458e38ae000 - 0x1458e38aefff 0x1458e38af000 - 0x1458e38bcfff 0x1458e38bd000 - 0x1458e38cafff 0x1458e38cb000 - 0x1458e38d8fff 0x1458e38d9000 - 0x1458e38dcfff 0x1458e38dd000 - 0x1458e38ddfff 0x1458e38de000 - 0x1458e38f3fff 0x1458e38f4000 - 0x1458e391ffff 0x1458e3920000 - 0x1458e3928fff 0x1458e3929000 - 0x1458e3929fff 0x1458e392a000 - 0x1458e392cfff 0x1458e392d000 - 0x1458e3932fff 0x1458e3933000 - 0x1458e3935fff 0x1458e3938000 - 0x1458e3938fff 0x1458e3939000 - 0x1458e3939fff 0x1458e393a000 - 0x1458e3940fff 0x1458e3941000 - 0x1458e3942fff 0x1458e3943000 - 0x1458e3963fff 0x1458e3964000 - 0x1458e396bfff 0x1458e396c000 - 0x1458e396cfff 0x1458e396d000 - 0x1458e396dfff 0x1458e396e000 - 0x1458e396efff 0x1458e396f000 - 0x1458e396ffff 0x7fff09619000 - 0x7fff09639fff 0x7fff097da000 - 0x7fff097ddfff 0x7fff097de000 - 0x7fff097dffff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xb46000 - 0xb66fff 0x100000000000 - 0x1000000bffff 0x14a32771a000 - 0x14a327dbefff 0x14a327dbf000 - 0x14a327e12fff 0x14a327e13000 - 0x14a327e15fff 0x14a327e16000 - 0x14a327e3afff 0x14a327e3b000 - 0x14a327f8afff 0x14a327f8b000 - 0x14a327fd5fff 0x14a327fd6000 - 0x14a327fd8fff 0x14a327fd9000 - 0x14a327fdbfff 0x14a327fdc000 - 0x14a327fdffff 0x14a327fe0000 - 0x14a327fe2fff 0x14a327fe3000 - 0x14a327ff4fff 0x14a327ff5000 - 0x14a327ff8fff 0x14a327ff9000 - 0x14a327ff9fff 0x14a327ffa000 - 0x14a327ffafff 0x14a327ffb000 - 0x14a327ffcfff 0x14a327ffd000 - 0x14a32800dfff 0x14a32800e000 - 0x14a328045fff 0x14a328046000 - 0x14a32817cfff 0x14a32817d000 - 0x14a328180fff 0x14a328181000 - 0x14a328181fff 0x14a328182000 - 0x14a328182fff 0x14a328183000 - 0x14a328184fff 0x14a328185000 - 0x14a328185fff 0x14a328186000 - 0x14a328186fff 0x14a328187000 - 0x14a328187fff 0x14a328188000 - 0x14a328189fff 0x14a32818a000 - 0x14a32818cfff 0x14a32818d000 - 0x14a32818dfff 0x14a32818e000 - 0x14a32818efff 0x14a32818f000 - 0x14a32818ffff 0x14a328190000 - 0x14a328191fff 0x14a328192000 - 0x14a328193fff 0x14a328194000 - 0x14a328194fff 0x14a328195000 - 0x14a328195fff 0x14a328196000 - 0x14a328196fff 0x14a328197000 - 0x14a3281a4fff 0x14a3281a5000 - 0x14a3281b2fff 0x14a3281b3000 - 0x14a3281c0fff 0x14a3281c1000 - 0x14a3281c4fff 0x14a3281c5000 - 0x14a3281c5fff 0x14a3281c6000 - 0x14a3281dbfff 0x14a3281dc000 - 0x14a328207fff 0x14a328208000 - 0x14a328210fff 0x14a328211000 - 0x14a328211fff 0x14a328212000 - 0x14a328214fff 0x14a328215000 - 0x14a32821afff 0x14a32821b000 - 0x14a32821dfff 0x14a328220000 - 0x14a328220fff 0x14a328221000 - 0x14a328221fff 0x14a328222000 - 0x14a328228fff 0x14a328229000 - 0x14a32822afff 0x14a32822b000 - 0x14a32824bfff 0x14a32824c000 - 0x14a328253fff 0x14a328254000 - 0x14a328254fff 0x14a328255000 - 0x14a328255fff 0x14a328256000 - 0x14a328256fff 0x14a328257000 - 0x14a328257fff 0x7fff92315000 - 0x7fff92335fff 0x7fff9237c000 - 0x7fff9237ffff 0x7fff92380000 - 0x7fff92381fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x2337000 - 0x2357fff 0x100000000000 - 0x1000000bffff 0x147524b50000 - 0x1475251f4fff 0x1475251f5000 - 0x147525248fff 0x147525249000 - 0x14752524bfff 0x14752524c000 - 0x147525270fff 0x147525271000 - 0x1475253c0fff 0x1475253c1000 - 0x14752540bfff 0x14752540c000 - 0x14752540efff 0x14752540f000 - 0x147525411fff 0x147525412000 - 0x147525415fff 0x147525416000 - 0x147525418fff 0x147525419000 - 0x14752542afff 0x14752542b000 - 0x14752542efff 0x14752542f000 - 0x14752542ffff 0x147525430000 - 0x147525430fff 0x147525431000 - 0x147525432fff 0x147525433000 - 0x147525443fff 0x147525444000 - 0x14752547bfff 0x14752547c000 - 0x1475255b2fff 0x1475255b3000 - 0x1475255b6fff 0x1475255b7000 - 0x1475255b7fff 0x1475255b8000 - 0x1475255b8fff 0x1475255b9000 - 0x1475255bafff 0x1475255bb000 - 0x1475255bbfff 0x1475255bc000 - 0x1475255bcfff 0x1475255bd000 - 0x1475255bdfff 0x1475255be000 - 0x1475255bffff 0x1475255c0000 - 0x1475255c2fff 0x1475255c3000 - 0x1475255c3fff 0x1475255c4000 - 0x1475255c4fff 0x1475255c5000 - 0x1475255c5fff 0x1475255c6000 - 0x1475255c7fff 0x1475255c8000 - 0x1475255c9fff 0x1475255ca000 - 0x1475255cafff 0x1475255cb000 - 0x1475255cbfff 0x1475255cc000 - 0x1475255ccfff 0x1475255cd000 - 0x1475255dafff 0x1475255db000 - 0x1475255e8fff 0x1475255e9000 - 0x1475255f6fff 0x1475255f7000 - 0x1475255fafff 0x1475255fb000 - 0x1475255fbfff 0x1475255fc000 - 0x147525611fff 0x147525612000 - 0x14752563dfff 0x14752563e000 - 0x147525646fff 0x147525647000 - 0x147525647fff 0x147525648000 - 0x14752564afff 0x14752564b000 - 0x147525650fff 0x147525651000 - 0x147525653fff 0x147525656000 - 0x147525656fff 0x147525657000 - 0x147525657fff 0x147525658000 - 0x14752565efff 0x14752565f000 - 0x147525660fff 0x147525661000 - 0x147525681fff 0x147525682000 - 0x147525689fff 0x14752568a000 - 0x14752568afff 0x14752568b000 - 0x14752568bfff 0x14752568c000 - 0x14752568cfff 0x14752568d000 - 0x14752568dfff 0x7ffc37e4d000 - 0x7ffc37e6dfff 0x7ffc37fae000 - 0x7ffc37fb1fff 0x7ffc37fb2000 - 0x7ffc37fb3fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1770000 - 0x1790fff 0x100000000000 - 0x1000000bffff 0x15491ce77000 - 0x15491d51bfff 0x15491d51c000 - 0x15491d56ffff 0x15491d570000 - 0x15491d572fff 0x15491d573000 - 0x15491d597fff 0x15491d598000 - 0x15491d6e7fff 0x15491d6e8000 - 0x15491d732fff 0x15491d733000 - 0x15491d735fff 0x15491d736000 - 0x15491d738fff 0x15491d739000 - 0x15491d73cfff 0x15491d73d000 - 0x15491d73ffff 0x15491d740000 - 0x15491d751fff 0x15491d752000 - 0x15491d755fff 0x15491d756000 - 0x15491d756fff 0x15491d757000 - 0x15491d757fff 0x15491d758000 - 0x15491d759fff 0x15491d75a000 - 0x15491d76afff 0x15491d76b000 - 0x15491d7a2fff 0x15491d7a3000 - 0x15491d8d9fff 0x15491d8da000 - 0x15491d8ddfff 0x15491d8de000 - 0x15491d8defff 0x15491d8df000 - 0x15491d8dffff 0x15491d8e0000 - 0x15491d8e1fff 0x15491d8e2000 - 0x15491d8e2fff 0x15491d8e3000 - 0x15491d8e3fff 0x15491d8e4000 - 0x15491d8e4fff 0x15491d8e5000 - 0x15491d8e6fff 0x15491d8e7000 - 0x15491d8e9fff 0x15491d8ea000 - 0x15491d8eafff 0x15491d8eb000 - 0x15491d8ebfff 0x15491d8ec000 - 0x15491d8ecfff 0x15491d8ed000 - 0x15491d8eefff 0x15491d8ef000 - 0x15491d8f0fff 0x15491d8f1000 - 0x15491d8f1fff 0x15491d8f2000 - 0x15491d8f2fff 0x15491d8f3000 - 0x15491d8f3fff 0x15491d8f4000 - 0x15491d901fff 0x15491d902000 - 0x15491d90ffff 0x15491d910000 - 0x15491d91dfff 0x15491d91e000 - 0x15491d921fff 0x15491d922000 - 0x15491d922fff 0x15491d923000 - 0x15491d938fff 0x15491d939000 - 0x15491d964fff 0x15491d965000 - 0x15491d96dfff 0x15491d96e000 - 0x15491d96efff 0x15491d96f000 - 0x15491d971fff 0x15491d972000 - 0x15491d977fff 0x15491d978000 - 0x15491d97afff 0x15491d97d000 - 0x15491d97dfff 0x15491d97e000 - 0x15491d97efff 0x15491d97f000 - 0x15491d985fff 0x15491d986000 - 0x15491d987fff 0x15491d988000 - 0x15491d9a8fff 0x15491d9a9000 - 0x15491d9b0fff 0x15491d9b1000 - 0x15491d9b1fff 0x15491d9b2000 - 0x15491d9b2fff 0x15491d9b3000 - 0x15491d9b3fff 0x15491d9b4000 - 0x15491d9b4fff 0x7ffef83e8000 - 0x7ffef8408fff 0x7ffef85f6000 - 0x7ffef85f9fff 0x7ffef85fa000 - 0x7ffef85fbfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xc9f000 - 0xcbffff 0x100000000000 - 0x1000000bffff 0x14fd25b98000 - 0x14fd2623cfff 0x14fd2623d000 - 0x14fd26290fff 0x14fd26291000 - 0x14fd26293fff 0x14fd26294000 - 0x14fd262b8fff 0x14fd262b9000 - 0x14fd26408fff 0x14fd26409000 - 0x14fd26453fff 0x14fd26454000 - 0x14fd26456fff 0x14fd26457000 - 0x14fd26459fff 0x14fd2645a000 - 0x14fd2645dfff 0x14fd2645e000 - 0x14fd26460fff 0x14fd26461000 - 0x14fd26472fff 0x14fd26473000 - 0x14fd26476fff 0x14fd26477000 - 0x14fd26477fff 0x14fd26478000 - 0x14fd26478fff 0x14fd26479000 - 0x14fd2647afff 0x14fd2647b000 - 0x14fd2648bfff 0x14fd2648c000 - 0x14fd264c3fff 0x14fd264c4000 - 0x14fd265fafff 0x14fd265fb000 - 0x14fd265fefff 0x14fd265ff000 - 0x14fd265fffff 0x14fd26600000 - 0x14fd26600fff 0x14fd26601000 - 0x14fd26602fff 0x14fd26603000 - 0x14fd26603fff 0x14fd26604000 - 0x14fd26604fff 0x14fd26605000 - 0x14fd26605fff 0x14fd26606000 - 0x14fd26607fff 0x14fd26608000 - 0x14fd2660afff 0x14fd2660b000 - 0x14fd2660bfff 0x14fd2660c000 - 0x14fd2660cfff 0x14fd2660d000 - 0x14fd2660dfff 0x14fd2660e000 - 0x14fd2660ffff 0x14fd26610000 - 0x14fd26611fff 0x14fd26612000 - 0x14fd26612fff 0x14fd26613000 - 0x14fd26613fff 0x14fd26614000 - 0x14fd26614fff 0x14fd26615000 - 0x14fd26622fff 0x14fd26623000 - 0x14fd26630fff 0x14fd26631000 - 0x14fd2663efff 0x14fd2663f000 - 0x14fd26642fff 0x14fd26643000 - 0x14fd26643fff 0x14fd26644000 - 0x14fd26659fff 0x14fd2665a000 - 0x14fd26685fff 0x14fd26686000 - 0x14fd2668efff 0x14fd2668f000 - 0x14fd2668ffff 0x14fd26690000 - 0x14fd26692fff 0x14fd26693000 - 0x14fd26698fff 0x14fd26699000 - 0x14fd2669bfff 0x14fd2669e000 - 0x14fd2669efff 0x14fd2669f000 - 0x14fd2669ffff 0x14fd266a0000 - 0x14fd266a6fff 0x14fd266a7000 - 0x14fd266a8fff 0x14fd266a9000 - 0x14fd266c9fff 0x14fd266ca000 - 0x14fd266d1fff 0x14fd266d2000 - 0x14fd266d2fff 0x14fd266d3000 - 0x14fd266d3fff 0x14fd266d4000 - 0x14fd266d4fff 0x14fd266d5000 - 0x14fd266d5fff 0x7ffeba039000 - 0x7ffeba059fff 0x7ffeba1ac000 - 0x7ffeba1affff 0x7ffeba1b0000 - 0x7ffeba1b1fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1126000 - 0x1146fff 0x100000000000 - 0x1000000bffff 0x1543ef93e000 - 0x1543effe2fff 0x1543effe3000 - 0x1543f0036fff 0x1543f0037000 - 0x1543f0039fff 0x1543f003a000 - 0x1543f005efff 0x1543f005f000 - 0x1543f01aefff 0x1543f01af000 - 0x1543f01f9fff 0x1543f01fa000 - 0x1543f01fcfff 0x1543f01fd000 - 0x1543f01fffff 0x1543f0200000 - 0x1543f0203fff 0x1543f0204000 - 0x1543f0206fff 0x1543f0207000 - 0x1543f0218fff 0x1543f0219000 - 0x1543f021cfff 0x1543f021d000 - 0x1543f021dfff 0x1543f021e000 - 0x1543f021efff 0x1543f021f000 - 0x1543f0220fff 0x1543f0221000 - 0x1543f0231fff 0x1543f0232000 - 0x1543f0269fff 0x1543f026a000 - 0x1543f03a0fff 0x1543f03a1000 - 0x1543f03a4fff 0x1543f03a5000 - 0x1543f03a5fff 0x1543f03a6000 - 0x1543f03a6fff 0x1543f03a7000 - 0x1543f03a8fff 0x1543f03a9000 - 0x1543f03a9fff 0x1543f03aa000 - 0x1543f03aafff 0x1543f03ab000 - 0x1543f03abfff 0x1543f03ac000 - 0x1543f03adfff 0x1543f03ae000 - 0x1543f03b0fff 0x1543f03b1000 - 0x1543f03b1fff 0x1543f03b2000 - 0x1543f03b2fff 0x1543f03b3000 - 0x1543f03b3fff 0x1543f03b4000 - 0x1543f03b5fff 0x1543f03b6000 - 0x1543f03b7fff 0x1543f03b8000 - 0x1543f03b8fff 0x1543f03b9000 - 0x1543f03b9fff 0x1543f03ba000 - 0x1543f03bafff 0x1543f03bb000 - 0x1543f03c8fff 0x1543f03c9000 - 0x1543f03d6fff 0x1543f03d7000 - 0x1543f03e4fff 0x1543f03e5000 - 0x1543f03e8fff 0x1543f03e9000 - 0x1543f03e9fff 0x1543f03ea000 - 0x1543f03fffff 0x1543f0400000 - 0x1543f042bfff 0x1543f042c000 - 0x1543f0434fff 0x1543f0435000 - 0x1543f0435fff 0x1543f0436000 - 0x1543f0438fff 0x1543f0439000 - 0x1543f043efff 0x1543f043f000 - 0x1543f0441fff 0x1543f0444000 - 0x1543f0444fff 0x1543f0445000 - 0x1543f0445fff 0x1543f0446000 - 0x1543f044cfff 0x1543f044d000 - 0x1543f044efff 0x1543f044f000 - 0x1543f046ffff 0x1543f0470000 - 0x1543f0477fff 0x1543f0478000 - 0x1543f0478fff 0x1543f0479000 - 0x1543f0479fff 0x1543f047a000 - 0x1543f047afff 0x1543f047b000 - 0x1543f047bfff 0x7ffc51d63000 - 0x7ffc51d83fff 0x7ffc51dc0000 - 0x7ffc51dc3fff 0x7ffc51dc4000 - 0x7ffc51dc5fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x965000 - 0x985fff 0x100000000000 - 0x1000000bffff 0x1469af6e5000 - 0x1469afd89fff 0x1469afd8a000 - 0x1469afdddfff 0x1469afdde000 - 0x1469afde0fff 0x1469afde1000 - 0x1469afe05fff 0x1469afe06000 - 0x1469aff55fff 0x1469aff56000 - 0x1469affa0fff 0x1469affa1000 - 0x1469affa3fff 0x1469affa4000 - 0x1469affa6fff 0x1469affa7000 - 0x1469affaafff 0x1469affab000 - 0x1469affadfff 0x1469affae000 - 0x1469affbffff 0x1469affc0000 - 0x1469affc3fff 0x1469affc4000 - 0x1469affc4fff 0x1469affc5000 - 0x1469affc5fff 0x1469affc6000 - 0x1469affc7fff 0x1469affc8000 - 0x1469affd8fff 0x1469affd9000 - 0x1469b0010fff 0x1469b0011000 - 0x1469b0147fff 0x1469b0148000 - 0x1469b014bfff 0x1469b014c000 - 0x1469b014cfff 0x1469b014d000 - 0x1469b014dfff 0x1469b014e000 - 0x1469b014ffff 0x1469b0150000 - 0x1469b0150fff 0x1469b0151000 - 0x1469b0151fff 0x1469b0152000 - 0x1469b0152fff 0x1469b0153000 - 0x1469b0154fff 0x1469b0155000 - 0x1469b0157fff 0x1469b0158000 - 0x1469b0158fff 0x1469b0159000 - 0x1469b0159fff 0x1469b015a000 - 0x1469b015afff 0x1469b015b000 - 0x1469b015cfff 0x1469b015d000 - 0x1469b015efff 0x1469b015f000 - 0x1469b015ffff 0x1469b0160000 - 0x1469b0160fff 0x1469b0161000 - 0x1469b0161fff 0x1469b0162000 - 0x1469b016ffff 0x1469b0170000 - 0x1469b017dfff 0x1469b017e000 - 0x1469b018bfff 0x1469b018c000 - 0x1469b018ffff 0x1469b0190000 - 0x1469b0190fff 0x1469b0191000 - 0x1469b01a6fff 0x1469b01a7000 - 0x1469b01d2fff 0x1469b01d3000 - 0x1469b01dbfff 0x1469b01dc000 - 0x1469b01dcfff 0x1469b01dd000 - 0x1469b01dffff 0x1469b01e0000 - 0x1469b01e5fff 0x1469b01e6000 - 0x1469b01e8fff 0x1469b01eb000 - 0x1469b01ebfff 0x1469b01ec000 - 0x1469b01ecfff 0x1469b01ed000 - 0x1469b01f3fff 0x1469b01f4000 - 0x1469b01f5fff 0x1469b01f6000 - 0x1469b0216fff 0x1469b0217000 - 0x1469b021efff 0x1469b021f000 - 0x1469b021ffff 0x1469b0220000 - 0x1469b0220fff 0x1469b0221000 - 0x1469b0221fff 0x1469b0222000 - 0x1469b0222fff 0x7fffd081c000 - 0x7fffd083cfff 0x7fffd09e8000 - 0x7fffd09ebfff 0x7fffd09ec000 - 0x7fffd09edfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xb7c000 - 0xb9cfff 0x100000000000 - 0x1000000bffff 0x15251661b000 - 0x152516cbffff 0x152516cc0000 - 0x152516d13fff 0x152516d14000 - 0x152516d16fff 0x152516d17000 - 0x152516d3bfff 0x152516d3c000 - 0x152516e8bfff 0x152516e8c000 - 0x152516ed6fff 0x152516ed7000 - 0x152516ed9fff 0x152516eda000 - 0x152516edcfff 0x152516edd000 - 0x152516ee0fff 0x152516ee1000 - 0x152516ee3fff 0x152516ee4000 - 0x152516ef5fff 0x152516ef6000 - 0x152516ef9fff 0x152516efa000 - 0x152516efafff 0x152516efb000 - 0x152516efbfff 0x152516efc000 - 0x152516efdfff 0x152516efe000 - 0x152516f0efff 0x152516f0f000 - 0x152516f46fff 0x152516f47000 - 0x15251707dfff 0x15251707e000 - 0x152517081fff 0x152517082000 - 0x152517082fff 0x152517083000 - 0x152517083fff 0x152517084000 - 0x152517085fff 0x152517086000 - 0x152517086fff 0x152517087000 - 0x152517087fff 0x152517088000 - 0x152517088fff 0x152517089000 - 0x15251708afff 0x15251708b000 - 0x15251708dfff 0x15251708e000 - 0x15251708efff 0x15251708f000 - 0x15251708ffff 0x152517090000 - 0x152517090fff 0x152517091000 - 0x152517092fff 0x152517093000 - 0x152517094fff 0x152517095000 - 0x152517095fff 0x152517096000 - 0x152517096fff 0x152517097000 - 0x152517097fff 0x152517098000 - 0x1525170a5fff 0x1525170a6000 - 0x1525170b3fff 0x1525170b4000 - 0x1525170c1fff 0x1525170c2000 - 0x1525170c5fff 0x1525170c6000 - 0x1525170c6fff 0x1525170c7000 - 0x1525170dcfff 0x1525170dd000 - 0x152517108fff 0x152517109000 - 0x152517111fff 0x152517112000 - 0x152517112fff 0x152517113000 - 0x152517115fff 0x152517116000 - 0x15251711bfff 0x15251711c000 - 0x15251711efff 0x152517121000 - 0x152517121fff 0x152517122000 - 0x152517122fff 0x152517123000 - 0x152517129fff 0x15251712a000 - 0x15251712bfff 0x15251712c000 - 0x15251714cfff 0x15251714d000 - 0x152517154fff 0x152517155000 - 0x152517155fff 0x152517156000 - 0x152517156fff 0x152517157000 - 0x152517157fff 0x152517158000 - 0x152517158fff 0x7fffeb835000 - 0x7fffeb855fff 0x7fffeb8e7000 - 0x7fffeb8eafff 0x7fffeb8eb000 - 0x7fffeb8ecfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xcdf000 - 0xcfffff 0x100000000000 - 0x1000000bffff 0x1554f832f000 - 0x1554f89d3fff 0x1554f89d4000 - 0x1554f8a27fff 0x1554f8a28000 - 0x1554f8a2afff 0x1554f8a2b000 - 0x1554f8a4ffff 0x1554f8a50000 - 0x1554f8b9ffff 0x1554f8ba0000 - 0x1554f8beafff 0x1554f8beb000 - 0x1554f8bedfff 0x1554f8bee000 - 0x1554f8bf0fff 0x1554f8bf1000 - 0x1554f8bf4fff 0x1554f8bf5000 - 0x1554f8bf7fff 0x1554f8bf8000 - 0x1554f8c09fff 0x1554f8c0a000 - 0x1554f8c0dfff 0x1554f8c0e000 - 0x1554f8c0efff 0x1554f8c0f000 - 0x1554f8c0ffff 0x1554f8c10000 - 0x1554f8c11fff 0x1554f8c12000 - 0x1554f8c22fff 0x1554f8c23000 - 0x1554f8c5afff 0x1554f8c5b000 - 0x1554f8d91fff 0x1554f8d92000 - 0x1554f8d95fff 0x1554f8d96000 - 0x1554f8d96fff 0x1554f8d97000 - 0x1554f8d97fff 0x1554f8d98000 - 0x1554f8d99fff 0x1554f8d9a000 - 0x1554f8d9afff 0x1554f8d9b000 - 0x1554f8d9bfff 0x1554f8d9c000 - 0x1554f8d9cfff 0x1554f8d9d000 - 0x1554f8d9efff 0x1554f8d9f000 - 0x1554f8da1fff 0x1554f8da2000 - 0x1554f8da2fff 0x1554f8da3000 - 0x1554f8da3fff 0x1554f8da4000 - 0x1554f8da4fff 0x1554f8da5000 - 0x1554f8da6fff 0x1554f8da7000 - 0x1554f8da8fff 0x1554f8da9000 - 0x1554f8da9fff 0x1554f8daa000 - 0x1554f8daafff 0x1554f8dab000 - 0x1554f8dabfff 0x1554f8dac000 - 0x1554f8db9fff 0x1554f8dba000 - 0x1554f8dc7fff 0x1554f8dc8000 - 0x1554f8dd5fff 0x1554f8dd6000 - 0x1554f8dd9fff 0x1554f8dda000 - 0x1554f8ddafff 0x1554f8ddb000 - 0x1554f8df0fff 0x1554f8df1000 - 0x1554f8e1cfff 0x1554f8e1d000 - 0x1554f8e25fff 0x1554f8e26000 - 0x1554f8e26fff 0x1554f8e27000 - 0x1554f8e29fff 0x1554f8e2a000 - 0x1554f8e2ffff 0x1554f8e30000 - 0x1554f8e32fff 0x1554f8e35000 - 0x1554f8e35fff 0x1554f8e36000 - 0x1554f8e36fff 0x1554f8e37000 - 0x1554f8e3dfff 0x1554f8e3e000 - 0x1554f8e3ffff 0x1554f8e40000 - 0x1554f8e60fff 0x1554f8e61000 - 0x1554f8e68fff 0x1554f8e69000 - 0x1554f8e69fff 0x1554f8e6a000 - 0x1554f8e6afff 0x1554f8e6b000 - 0x1554f8e6bfff 0x1554f8e6c000 - 0x1554f8e6cfff 0x7ffe74e22000 - 0x7ffe74e42fff 0x7ffe74ff5000 - 0x7ffe74ff8fff 0x7ffe74ff9000 - 0x7ffe74ffafff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1166000 - 0x1186fff 0x100000000000 - 0x1000000bffff 0x14c0e05d4000 - 0x14c0e0c78fff 0x14c0e0c79000 - 0x14c0e0cccfff 0x14c0e0ccd000 - 0x14c0e0ccffff 0x14c0e0cd0000 - 0x14c0e0cf4fff 0x14c0e0cf5000 - 0x14c0e0e44fff 0x14c0e0e45000 - 0x14c0e0e8ffff 0x14c0e0e90000 - 0x14c0e0e92fff 0x14c0e0e93000 - 0x14c0e0e95fff 0x14c0e0e96000 - 0x14c0e0e99fff 0x14c0e0e9a000 - 0x14c0e0e9cfff 0x14c0e0e9d000 - 0x14c0e0eaefff 0x14c0e0eaf000 - 0x14c0e0eb2fff 0x14c0e0eb3000 - 0x14c0e0eb3fff 0x14c0e0eb4000 - 0x14c0e0eb4fff 0x14c0e0eb5000 - 0x14c0e0eb6fff 0x14c0e0eb7000 - 0x14c0e0ec7fff 0x14c0e0ec8000 - 0x14c0e0efffff 0x14c0e0f00000 - 0x14c0e1036fff 0x14c0e1037000 - 0x14c0e103afff 0x14c0e103b000 - 0x14c0e103bfff 0x14c0e103c000 - 0x14c0e103cfff 0x14c0e103d000 - 0x14c0e103efff 0x14c0e103f000 - 0x14c0e103ffff 0x14c0e1040000 - 0x14c0e1040fff 0x14c0e1041000 - 0x14c0e1041fff 0x14c0e1042000 - 0x14c0e1043fff 0x14c0e1044000 - 0x14c0e1046fff 0x14c0e1047000 - 0x14c0e1047fff 0x14c0e1048000 - 0x14c0e1048fff 0x14c0e1049000 - 0x14c0e1049fff 0x14c0e104a000 - 0x14c0e104bfff 0x14c0e104c000 - 0x14c0e104dfff 0x14c0e104e000 - 0x14c0e104efff 0x14c0e104f000 - 0x14c0e104ffff 0x14c0e1050000 - 0x14c0e1050fff 0x14c0e1051000 - 0x14c0e105efff 0x14c0e105f000 - 0x14c0e106cfff 0x14c0e106d000 - 0x14c0e107afff 0x14c0e107b000 - 0x14c0e107efff 0x14c0e107f000 - 0x14c0e107ffff 0x14c0e1080000 - 0x14c0e1095fff 0x14c0e1096000 - 0x14c0e10c1fff 0x14c0e10c2000 - 0x14c0e10cafff 0x14c0e10cb000 - 0x14c0e10cbfff 0x14c0e10cc000 - 0x14c0e10cefff 0x14c0e10cf000 - 0x14c0e10d4fff 0x14c0e10d5000 - 0x14c0e10d7fff 0x14c0e10da000 - 0x14c0e10dafff 0x14c0e10db000 - 0x14c0e10dbfff 0x14c0e10dc000 - 0x14c0e10e2fff 0x14c0e10e3000 - 0x14c0e10e4fff 0x14c0e10e5000 - 0x14c0e1105fff 0x14c0e1106000 - 0x14c0e110dfff 0x14c0e110e000 - 0x14c0e110efff 0x14c0e110f000 - 0x14c0e110ffff 0x14c0e1110000 - 0x14c0e1110fff 0x14c0e1111000 - 0x14c0e1111fff 0x7ffd4f61b000 - 0x7ffd4f63bfff 0x7ffd4f7e6000 - 0x7ffd4f7e9fff 0x7ffd4f7ea000 - 0x7ffd4f7ebfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x2097000 - 0x20b7fff 0x100000000000 - 0x1000000bffff 0x145d66e7a000 - 0x145d6751efff 0x145d6751f000 - 0x145d67572fff 0x145d67573000 - 0x145d67575fff 0x145d67576000 - 0x145d6759afff 0x145d6759b000 - 0x145d676eafff 0x145d676eb000 - 0x145d67735fff 0x145d67736000 - 0x145d67738fff 0x145d67739000 - 0x145d6773bfff 0x145d6773c000 - 0x145d6773ffff 0x145d67740000 - 0x145d67742fff 0x145d67743000 - 0x145d67754fff 0x145d67755000 - 0x145d67758fff 0x145d67759000 - 0x145d67759fff 0x145d6775a000 - 0x145d6775afff 0x145d6775b000 - 0x145d6775cfff 0x145d6775d000 - 0x145d6776dfff 0x145d6776e000 - 0x145d677a5fff 0x145d677a6000 - 0x145d678dcfff 0x145d678dd000 - 0x145d678e0fff 0x145d678e1000 - 0x145d678e1fff 0x145d678e2000 - 0x145d678e2fff 0x145d678e3000 - 0x145d678e4fff 0x145d678e5000 - 0x145d678e5fff 0x145d678e6000 - 0x145d678e6fff 0x145d678e7000 - 0x145d678e7fff 0x145d678e8000 - 0x145d678e9fff 0x145d678ea000 - 0x145d678ecfff 0x145d678ed000 - 0x145d678edfff 0x145d678ee000 - 0x145d678eefff 0x145d678ef000 - 0x145d678effff 0x145d678f0000 - 0x145d678f1fff 0x145d678f2000 - 0x145d678f3fff 0x145d678f4000 - 0x145d678f4fff 0x145d678f5000 - 0x145d678f5fff 0x145d678f6000 - 0x145d678f6fff 0x145d678f7000 - 0x145d67904fff 0x145d67905000 - 0x145d67912fff 0x145d67913000 - 0x145d67920fff 0x145d67921000 - 0x145d67924fff 0x145d67925000 - 0x145d67925fff 0x145d67926000 - 0x145d6793bfff 0x145d6793c000 - 0x145d67967fff 0x145d67968000 - 0x145d67970fff 0x145d67971000 - 0x145d67971fff 0x145d67972000 - 0x145d67974fff 0x145d67975000 - 0x145d6797afff 0x145d6797b000 - 0x145d6797dfff 0x145d67980000 - 0x145d67980fff 0x145d67981000 - 0x145d67981fff 0x145d67982000 - 0x145d67988fff 0x145d67989000 - 0x145d6798afff 0x145d6798b000 - 0x145d679abfff 0x145d679ac000 - 0x145d679b3fff 0x145d679b4000 - 0x145d679b4fff 0x145d679b5000 - 0x145d679b5fff 0x145d679b6000 - 0x145d679b6fff 0x145d679b7000 - 0x145d679b7fff 0x7ffc66586000 - 0x7ffc665a6fff 0x7ffc665ce000 - 0x7ffc665d1fff 0x7ffc665d2000 - 0x7ffc665d3fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x874000 - 0x894fff 0x100000000000 - 0x1000000bffff 0x145aac466000 - 0x145aacb0afff 0x145aacb0b000 - 0x145aacb5efff 0x145aacb5f000 - 0x145aacb61fff 0x145aacb62000 - 0x145aacb86fff 0x145aacb87000 - 0x145aaccd6fff 0x145aaccd7000 - 0x145aacd21fff 0x145aacd22000 - 0x145aacd24fff 0x145aacd25000 - 0x145aacd27fff 0x145aacd28000 - 0x145aacd2bfff 0x145aacd2c000 - 0x145aacd2efff 0x145aacd2f000 - 0x145aacd40fff 0x145aacd41000 - 0x145aacd44fff 0x145aacd45000 - 0x145aacd45fff 0x145aacd46000 - 0x145aacd46fff 0x145aacd47000 - 0x145aacd48fff 0x145aacd49000 - 0x145aacd59fff 0x145aacd5a000 - 0x145aacd91fff 0x145aacd92000 - 0x145aacec8fff 0x145aacec9000 - 0x145aaceccfff 0x145aacecd000 - 0x145aacecdfff 0x145aacece000 - 0x145aacecefff 0x145aacecf000 - 0x145aaced0fff 0x145aaced1000 - 0x145aaced1fff 0x145aaced2000 - 0x145aaced2fff 0x145aaced3000 - 0x145aaced3fff 0x145aaced4000 - 0x145aaced5fff 0x145aaced6000 - 0x145aaced8fff 0x145aaced9000 - 0x145aaced9fff 0x145aaceda000 - 0x145aacedafff 0x145aacedb000 - 0x145aacedbfff 0x145aacedc000 - 0x145aaceddfff 0x145aacede000 - 0x145aacedffff 0x145aacee0000 - 0x145aacee0fff 0x145aacee1000 - 0x145aacee1fff 0x145aacee2000 - 0x145aacee2fff 0x145aacee3000 - 0x145aacef0fff 0x145aacef1000 - 0x145aacefefff 0x145aaceff000 - 0x145aacf0cfff 0x145aacf0d000 - 0x145aacf10fff 0x145aacf11000 - 0x145aacf11fff 0x145aacf12000 - 0x145aacf27fff 0x145aacf28000 - 0x145aacf53fff 0x145aacf54000 - 0x145aacf5cfff 0x145aacf5d000 - 0x145aacf5dfff 0x145aacf5e000 - 0x145aacf60fff 0x145aacf61000 - 0x145aacf66fff 0x145aacf67000 - 0x145aacf69fff 0x145aacf6c000 - 0x145aacf6cfff 0x145aacf6d000 - 0x145aacf6dfff 0x145aacf6e000 - 0x145aacf74fff 0x145aacf75000 - 0x145aacf76fff 0x145aacf77000 - 0x145aacf97fff 0x145aacf98000 - 0x145aacf9ffff 0x145aacfa0000 - 0x145aacfa0fff 0x145aacfa1000 - 0x145aacfa1fff 0x145aacfa2000 - 0x145aacfa2fff 0x145aacfa3000 - 0x145aacfa3fff 0x7ffcdf092000 - 0x7ffcdf0b2fff 0x7ffcdf1d1000 - 0x7ffcdf1d4fff 0x7ffcdf1d5000 - 0x7ffcdf1d6fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x2126000 - 0x2146fff 0x100000000000 - 0x1000000bffff 0x14c7edc44000 - 0x14c7ee2e8fff 0x14c7ee2e9000 - 0x14c7ee33cfff 0x14c7ee33d000 - 0x14c7ee33ffff 0x14c7ee340000 - 0x14c7ee364fff 0x14c7ee365000 - 0x14c7ee4b4fff 0x14c7ee4b5000 - 0x14c7ee4fffff 0x14c7ee500000 - 0x14c7ee502fff 0x14c7ee503000 - 0x14c7ee505fff 0x14c7ee506000 - 0x14c7ee509fff 0x14c7ee50a000 - 0x14c7ee50cfff 0x14c7ee50d000 - 0x14c7ee51efff 0x14c7ee51f000 - 0x14c7ee522fff 0x14c7ee523000 - 0x14c7ee523fff 0x14c7ee524000 - 0x14c7ee524fff 0x14c7ee525000 - 0x14c7ee526fff 0x14c7ee527000 - 0x14c7ee537fff 0x14c7ee538000 - 0x14c7ee56ffff 0x14c7ee570000 - 0x14c7ee6a6fff 0x14c7ee6a7000 - 0x14c7ee6aafff 0x14c7ee6ab000 - 0x14c7ee6abfff 0x14c7ee6ac000 - 0x14c7ee6acfff 0x14c7ee6ad000 - 0x14c7ee6aefff 0x14c7ee6af000 - 0x14c7ee6affff 0x14c7ee6b0000 - 0x14c7ee6b0fff 0x14c7ee6b1000 - 0x14c7ee6b1fff 0x14c7ee6b2000 - 0x14c7ee6b3fff 0x14c7ee6b4000 - 0x14c7ee6b6fff 0x14c7ee6b7000 - 0x14c7ee6b7fff 0x14c7ee6b8000 - 0x14c7ee6b8fff 0x14c7ee6b9000 - 0x14c7ee6b9fff 0x14c7ee6ba000 - 0x14c7ee6bbfff 0x14c7ee6bc000 - 0x14c7ee6bdfff 0x14c7ee6be000 - 0x14c7ee6befff 0x14c7ee6bf000 - 0x14c7ee6bffff 0x14c7ee6c0000 - 0x14c7ee6c0fff 0x14c7ee6c1000 - 0x14c7ee6cefff 0x14c7ee6cf000 - 0x14c7ee6dcfff 0x14c7ee6dd000 - 0x14c7ee6eafff 0x14c7ee6eb000 - 0x14c7ee6eefff 0x14c7ee6ef000 - 0x14c7ee6effff 0x14c7ee6f0000 - 0x14c7ee705fff 0x14c7ee706000 - 0x14c7ee731fff 0x14c7ee732000 - 0x14c7ee73afff 0x14c7ee73b000 - 0x14c7ee73bfff 0x14c7ee73c000 - 0x14c7ee73efff 0x14c7ee73f000 - 0x14c7ee744fff 0x14c7ee745000 - 0x14c7ee747fff 0x14c7ee74a000 - 0x14c7ee74afff 0x14c7ee74b000 - 0x14c7ee74bfff 0x14c7ee74c000 - 0x14c7ee752fff 0x14c7ee753000 - 0x14c7ee754fff 0x14c7ee755000 - 0x14c7ee775fff 0x14c7ee776000 - 0x14c7ee77dfff 0x14c7ee77e000 - 0x14c7ee77efff 0x14c7ee77f000 - 0x14c7ee77ffff 0x14c7ee780000 - 0x14c7ee780fff 0x14c7ee781000 - 0x14c7ee781fff 0x7ffdce873000 - 0x7ffdce893fff 0x7ffdce94f000 - 0x7ffdce952fff 0x7ffdce953000 - 0x7ffdce954fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x919000 - 0x939fff 0x100000000000 - 0x1000000bffff 0x15410f03f000 - 0x15410f6e3fff 0x15410f6e4000 - 0x15410f737fff 0x15410f738000 - 0x15410f73afff 0x15410f73b000 - 0x15410f75ffff 0x15410f760000 - 0x15410f8affff 0x15410f8b0000 - 0x15410f8fafff 0x15410f8fb000 - 0x15410f8fdfff 0x15410f8fe000 - 0x15410f900fff 0x15410f901000 - 0x15410f904fff 0x15410f905000 - 0x15410f907fff 0x15410f908000 - 0x15410f919fff 0x15410f91a000 - 0x15410f91dfff 0x15410f91e000 - 0x15410f91efff 0x15410f91f000 - 0x15410f91ffff 0x15410f920000 - 0x15410f921fff 0x15410f922000 - 0x15410f932fff 0x15410f933000 - 0x15410f96afff 0x15410f96b000 - 0x15410faa1fff 0x15410faa2000 - 0x15410faa5fff 0x15410faa6000 - 0x15410faa6fff 0x15410faa7000 - 0x15410faa7fff 0x15410faa8000 - 0x15410faa9fff 0x15410faaa000 - 0x15410faaafff 0x15410faab000 - 0x15410faabfff 0x15410faac000 - 0x15410faacfff 0x15410faad000 - 0x15410faaefff 0x15410faaf000 - 0x15410fab1fff 0x15410fab2000 - 0x15410fab2fff 0x15410fab3000 - 0x15410fab3fff 0x15410fab4000 - 0x15410fab4fff 0x15410fab5000 - 0x15410fab6fff 0x15410fab7000 - 0x15410fab8fff 0x15410fab9000 - 0x15410fab9fff 0x15410faba000 - 0x15410fabafff 0x15410fabb000 - 0x15410fabbfff 0x15410fabc000 - 0x15410fac9fff 0x15410faca000 - 0x15410fad7fff 0x15410fad8000 - 0x15410fae5fff 0x15410fae6000 - 0x15410fae9fff 0x15410faea000 - 0x15410faeafff 0x15410faeb000 - 0x15410fb00fff 0x15410fb01000 - 0x15410fb2cfff 0x15410fb2d000 - 0x15410fb35fff 0x15410fb36000 - 0x15410fb36fff 0x15410fb37000 - 0x15410fb39fff 0x15410fb3a000 - 0x15410fb3ffff 0x15410fb40000 - 0x15410fb42fff 0x15410fb45000 - 0x15410fb45fff 0x15410fb46000 - 0x15410fb46fff 0x15410fb47000 - 0x15410fb4dfff 0x15410fb4e000 - 0x15410fb4ffff 0x15410fb50000 - 0x15410fb70fff 0x15410fb71000 - 0x15410fb78fff 0x15410fb79000 - 0x15410fb79fff 0x15410fb7a000 - 0x15410fb7afff 0x15410fb7b000 - 0x15410fb7bfff 0x15410fb7c000 - 0x15410fb7cfff 0x7ffe5e7da000 - 0x7ffe5e7fafff 0x7ffe5e9b3000 - 0x7ffe5e9b6fff 0x7ffe5e9b7000 - 0x7ffe5e9b8fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1da2000 - 0x1dc2fff 0x100000000000 - 0x1000000bffff 0x1544cd480000 - 0x1544cdb24fff 0x1544cdb25000 - 0x1544cdb78fff 0x1544cdb79000 - 0x1544cdb7bfff 0x1544cdb7c000 - 0x1544cdba0fff 0x1544cdba1000 - 0x1544cdcf0fff 0x1544cdcf1000 - 0x1544cdd3bfff 0x1544cdd3c000 - 0x1544cdd3efff 0x1544cdd3f000 - 0x1544cdd41fff 0x1544cdd42000 - 0x1544cdd45fff 0x1544cdd46000 - 0x1544cdd48fff 0x1544cdd49000 - 0x1544cdd5afff 0x1544cdd5b000 - 0x1544cdd5efff 0x1544cdd5f000 - 0x1544cdd5ffff 0x1544cdd60000 - 0x1544cdd60fff 0x1544cdd61000 - 0x1544cdd62fff 0x1544cdd63000 - 0x1544cdd73fff 0x1544cdd74000 - 0x1544cddabfff 0x1544cddac000 - 0x1544cdee2fff 0x1544cdee3000 - 0x1544cdee6fff 0x1544cdee7000 - 0x1544cdee7fff 0x1544cdee8000 - 0x1544cdee8fff 0x1544cdee9000 - 0x1544cdeeafff 0x1544cdeeb000 - 0x1544cdeebfff 0x1544cdeec000 - 0x1544cdeecfff 0x1544cdeed000 - 0x1544cdeedfff 0x1544cdeee000 - 0x1544cdeeffff 0x1544cdef0000 - 0x1544cdef2fff 0x1544cdef3000 - 0x1544cdef3fff 0x1544cdef4000 - 0x1544cdef4fff 0x1544cdef5000 - 0x1544cdef5fff 0x1544cdef6000 - 0x1544cdef7fff 0x1544cdef8000 - 0x1544cdef9fff 0x1544cdefa000 - 0x1544cdefafff 0x1544cdefb000 - 0x1544cdefbfff 0x1544cdefc000 - 0x1544cdefcfff 0x1544cdefd000 - 0x1544cdf0afff 0x1544cdf0b000 - 0x1544cdf18fff 0x1544cdf19000 - 0x1544cdf26fff 0x1544cdf27000 - 0x1544cdf2afff 0x1544cdf2b000 - 0x1544cdf2bfff 0x1544cdf2c000 - 0x1544cdf41fff 0x1544cdf42000 - 0x1544cdf6dfff 0x1544cdf6e000 - 0x1544cdf76fff 0x1544cdf77000 - 0x1544cdf77fff 0x1544cdf78000 - 0x1544cdf7afff 0x1544cdf7b000 - 0x1544cdf80fff 0x1544cdf81000 - 0x1544cdf83fff 0x1544cdf86000 - 0x1544cdf86fff 0x1544cdf87000 - 0x1544cdf87fff 0x1544cdf88000 - 0x1544cdf8efff 0x1544cdf8f000 - 0x1544cdf90fff 0x1544cdf91000 - 0x1544cdfb1fff 0x1544cdfb2000 - 0x1544cdfb9fff 0x1544cdfba000 - 0x1544cdfbafff 0x1544cdfbb000 - 0x1544cdfbbfff 0x1544cdfbc000 - 0x1544cdfbcfff 0x1544cdfbd000 - 0x1544cdfbdfff 0x7fffd1783000 - 0x7fffd17a3fff 0x7fffd17be000 - 0x7fffd17c1fff 0x7fffd17c2000 - 0x7fffd17c3fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x8ab000 - 0x8cbfff 0x100000000000 - 0x1000000bffff 0x1497e73c5000 - 0x1497e7a69fff 0x1497e7a6a000 - 0x1497e7abdfff 0x1497e7abe000 - 0x1497e7ac0fff 0x1497e7ac1000 - 0x1497e7ae5fff 0x1497e7ae6000 - 0x1497e7c35fff 0x1497e7c36000 - 0x1497e7c80fff 0x1497e7c81000 - 0x1497e7c83fff 0x1497e7c84000 - 0x1497e7c86fff 0x1497e7c87000 - 0x1497e7c8afff 0x1497e7c8b000 - 0x1497e7c8dfff 0x1497e7c8e000 - 0x1497e7c9ffff 0x1497e7ca0000 - 0x1497e7ca3fff 0x1497e7ca4000 - 0x1497e7ca4fff 0x1497e7ca5000 - 0x1497e7ca5fff 0x1497e7ca6000 - 0x1497e7ca7fff 0x1497e7ca8000 - 0x1497e7cb8fff 0x1497e7cb9000 - 0x1497e7cf0fff 0x1497e7cf1000 - 0x1497e7e27fff 0x1497e7e28000 - 0x1497e7e2bfff 0x1497e7e2c000 - 0x1497e7e2cfff 0x1497e7e2d000 - 0x1497e7e2dfff 0x1497e7e2e000 - 0x1497e7e2ffff 0x1497e7e30000 - 0x1497e7e30fff 0x1497e7e31000 - 0x1497e7e31fff 0x1497e7e32000 - 0x1497e7e32fff 0x1497e7e33000 - 0x1497e7e34fff 0x1497e7e35000 - 0x1497e7e37fff 0x1497e7e38000 - 0x1497e7e38fff 0x1497e7e39000 - 0x1497e7e39fff 0x1497e7e3a000 - 0x1497e7e3afff 0x1497e7e3b000 - 0x1497e7e3cfff 0x1497e7e3d000 - 0x1497e7e3efff 0x1497e7e3f000 - 0x1497e7e3ffff 0x1497e7e40000 - 0x1497e7e40fff 0x1497e7e41000 - 0x1497e7e41fff 0x1497e7e42000 - 0x1497e7e4ffff 0x1497e7e50000 - 0x1497e7e5dfff 0x1497e7e5e000 - 0x1497e7e6bfff 0x1497e7e6c000 - 0x1497e7e6ffff 0x1497e7e70000 - 0x1497e7e70fff 0x1497e7e71000 - 0x1497e7e86fff 0x1497e7e87000 - 0x1497e7eb2fff 0x1497e7eb3000 - 0x1497e7ebbfff 0x1497e7ebc000 - 0x1497e7ebcfff 0x1497e7ebd000 - 0x1497e7ebffff 0x1497e7ec0000 - 0x1497e7ec5fff 0x1497e7ec6000 - 0x1497e7ec8fff 0x1497e7ecb000 - 0x1497e7ecbfff 0x1497e7ecc000 - 0x1497e7eccfff 0x1497e7ecd000 - 0x1497e7ed3fff 0x1497e7ed4000 - 0x1497e7ed5fff 0x1497e7ed6000 - 0x1497e7ef6fff 0x1497e7ef7000 - 0x1497e7efefff 0x1497e7eff000 - 0x1497e7efffff 0x1497e7f00000 - 0x1497e7f00fff 0x1497e7f01000 - 0x1497e7f01fff 0x1497e7f02000 - 0x1497e7f02fff 0x7ffce9754000 - 0x7ffce9774fff 0x7ffce97c3000 - 0x7ffce97c6fff 0x7ffce97c7000 - 0x7ffce97c8fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x246c000 - 0x248cfff 0x100000000000 - 0x1000000bffff 0x1486e7611000 - 0x1486e7cb5fff 0x1486e7cb6000 - 0x1486e7d09fff 0x1486e7d0a000 - 0x1486e7d0cfff 0x1486e7d0d000 - 0x1486e7d31fff 0x1486e7d32000 - 0x1486e7e81fff 0x1486e7e82000 - 0x1486e7eccfff 0x1486e7ecd000 - 0x1486e7ecffff 0x1486e7ed0000 - 0x1486e7ed2fff 0x1486e7ed3000 - 0x1486e7ed6fff 0x1486e7ed7000 - 0x1486e7ed9fff 0x1486e7eda000 - 0x1486e7eebfff 0x1486e7eec000 - 0x1486e7eeffff 0x1486e7ef0000 - 0x1486e7ef0fff 0x1486e7ef1000 - 0x1486e7ef1fff 0x1486e7ef2000 - 0x1486e7ef3fff 0x1486e7ef4000 - 0x1486e7f04fff 0x1486e7f05000 - 0x1486e7f3cfff 0x1486e7f3d000 - 0x1486e8073fff 0x1486e8074000 - 0x1486e8077fff 0x1486e8078000 - 0x1486e8078fff 0x1486e8079000 - 0x1486e8079fff 0x1486e807a000 - 0x1486e807bfff 0x1486e807c000 - 0x1486e807cfff 0x1486e807d000 - 0x1486e807dfff 0x1486e807e000 - 0x1486e807efff 0x1486e807f000 - 0x1486e8080fff 0x1486e8081000 - 0x1486e8083fff 0x1486e8084000 - 0x1486e8084fff 0x1486e8085000 - 0x1486e8085fff 0x1486e8086000 - 0x1486e8086fff 0x1486e8087000 - 0x1486e8088fff 0x1486e8089000 - 0x1486e808afff 0x1486e808b000 - 0x1486e808bfff 0x1486e808c000 - 0x1486e808cfff 0x1486e808d000 - 0x1486e808dfff 0x1486e808e000 - 0x1486e809bfff 0x1486e809c000 - 0x1486e80a9fff 0x1486e80aa000 - 0x1486e80b7fff 0x1486e80b8000 - 0x1486e80bbfff 0x1486e80bc000 - 0x1486e80bcfff 0x1486e80bd000 - 0x1486e80d2fff 0x1486e80d3000 - 0x1486e80fefff 0x1486e80ff000 - 0x1486e8107fff 0x1486e8108000 - 0x1486e8108fff 0x1486e8109000 - 0x1486e810bfff 0x1486e810c000 - 0x1486e8111fff 0x1486e8112000 - 0x1486e8114fff 0x1486e8117000 - 0x1486e8117fff 0x1486e8118000 - 0x1486e8118fff 0x1486e8119000 - 0x1486e811ffff 0x1486e8120000 - 0x1486e8121fff 0x1486e8122000 - 0x1486e8142fff 0x1486e8143000 - 0x1486e814afff 0x1486e814b000 - 0x1486e814bfff 0x1486e814c000 - 0x1486e814cfff 0x1486e814d000 - 0x1486e814dfff 0x1486e814e000 - 0x1486e814efff 0x7ffcd7840000 - 0x7ffcd7860fff 0x7ffcd78d7000 - 0x7ffcd78dafff 0x7ffcd78db000 - 0x7ffcd78dcfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1cce000 - 0x1ceefff 0x100000000000 - 0x1000000bffff 0x147f86b46000 - 0x147f871eafff 0x147f871eb000 - 0x147f8723efff 0x147f8723f000 - 0x147f87241fff 0x147f87242000 - 0x147f87266fff 0x147f87267000 - 0x147f873b6fff 0x147f873b7000 - 0x147f87401fff 0x147f87402000 - 0x147f87404fff 0x147f87405000 - 0x147f87407fff 0x147f87408000 - 0x147f8740bfff 0x147f8740c000 - 0x147f8740efff 0x147f8740f000 - 0x147f87420fff 0x147f87421000 - 0x147f87424fff 0x147f87425000 - 0x147f87425fff 0x147f87426000 - 0x147f87426fff 0x147f87427000 - 0x147f87428fff 0x147f87429000 - 0x147f87439fff 0x147f8743a000 - 0x147f87471fff 0x147f87472000 - 0x147f875a8fff 0x147f875a9000 - 0x147f875acfff 0x147f875ad000 - 0x147f875adfff 0x147f875ae000 - 0x147f875aefff 0x147f875af000 - 0x147f875b0fff 0x147f875b1000 - 0x147f875b1fff 0x147f875b2000 - 0x147f875b2fff 0x147f875b3000 - 0x147f875b3fff 0x147f875b4000 - 0x147f875b5fff 0x147f875b6000 - 0x147f875b8fff 0x147f875b9000 - 0x147f875b9fff 0x147f875ba000 - 0x147f875bafff 0x147f875bb000 - 0x147f875bbfff 0x147f875bc000 - 0x147f875bdfff 0x147f875be000 - 0x147f875bffff 0x147f875c0000 - 0x147f875c0fff 0x147f875c1000 - 0x147f875c1fff 0x147f875c2000 - 0x147f875c2fff 0x147f875c3000 - 0x147f875d0fff 0x147f875d1000 - 0x147f875defff 0x147f875df000 - 0x147f875ecfff 0x147f875ed000 - 0x147f875f0fff 0x147f875f1000 - 0x147f875f1fff 0x147f875f2000 - 0x147f87607fff 0x147f87608000 - 0x147f87633fff 0x147f87634000 - 0x147f8763cfff 0x147f8763d000 - 0x147f8763dfff 0x147f8763e000 - 0x147f87640fff 0x147f87641000 - 0x147f87646fff 0x147f87647000 - 0x147f87649fff 0x147f8764c000 - 0x147f8764cfff 0x147f8764d000 - 0x147f8764dfff 0x147f8764e000 - 0x147f87654fff 0x147f87655000 - 0x147f87656fff 0x147f87657000 - 0x147f87677fff 0x147f87678000 - 0x147f8767ffff 0x147f87680000 - 0x147f87680fff 0x147f87681000 - 0x147f87681fff 0x147f87682000 - 0x147f87682fff 0x147f87683000 - 0x147f87683fff 0x7ffea5f8b000 - 0x7ffea5fabfff 0x7ffea5fd3000 - 0x7ffea5fd6fff 0x7ffea5fd7000 - 0x7ffea5fd8fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1cd2000 - 0x1cf2fff 0x100000000000 - 0x1000000bffff 0x1551ff492000 - 0x1551ffb36fff 0x1551ffb37000 - 0x1551ffb8afff 0x1551ffb8b000 - 0x1551ffb8dfff 0x1551ffb8e000 - 0x1551ffbb2fff 0x1551ffbb3000 - 0x1551ffd02fff 0x1551ffd03000 - 0x1551ffd4dfff 0x1551ffd4e000 - 0x1551ffd50fff 0x1551ffd51000 - 0x1551ffd53fff 0x1551ffd54000 - 0x1551ffd57fff 0x1551ffd58000 - 0x1551ffd5afff 0x1551ffd5b000 - 0x1551ffd6cfff 0x1551ffd6d000 - 0x1551ffd70fff 0x1551ffd71000 - 0x1551ffd71fff 0x1551ffd72000 - 0x1551ffd72fff 0x1551ffd73000 - 0x1551ffd74fff 0x1551ffd75000 - 0x1551ffd85fff 0x1551ffd86000 - 0x1551ffdbdfff 0x1551ffdbe000 - 0x1551ffef4fff 0x1551ffef5000 - 0x1551ffef8fff 0x1551ffef9000 - 0x1551ffef9fff 0x1551ffefa000 - 0x1551ffefafff 0x1551ffefb000 - 0x1551ffefcfff 0x1551ffefd000 - 0x1551ffefdfff 0x1551ffefe000 - 0x1551ffefefff 0x1551ffeff000 - 0x1551ffefffff 0x1551fff00000 - 0x1551fff01fff 0x1551fff02000 - 0x1551fff04fff 0x1551fff05000 - 0x1551fff05fff 0x1551fff06000 - 0x1551fff06fff 0x1551fff07000 - 0x1551fff07fff 0x1551fff08000 - 0x1551fff09fff 0x1551fff0a000 - 0x1551fff0bfff 0x1551fff0c000 - 0x1551fff0cfff 0x1551fff0d000 - 0x1551fff0dfff 0x1551fff0e000 - 0x1551fff0efff 0x1551fff0f000 - 0x1551fff1cfff 0x1551fff1d000 - 0x1551fff2afff 0x1551fff2b000 - 0x1551fff38fff 0x1551fff39000 - 0x1551fff3cfff 0x1551fff3d000 - 0x1551fff3dfff 0x1551fff3e000 - 0x1551fff53fff 0x1551fff54000 - 0x1551fff7ffff 0x1551fff80000 - 0x1551fff88fff 0x1551fff89000 - 0x1551fff89fff 0x1551fff8a000 - 0x1551fff8cfff 0x1551fff8d000 - 0x1551fff92fff 0x1551fff93000 - 0x1551fff95fff 0x1551fff98000 - 0x1551fff98fff 0x1551fff99000 - 0x1551fff99fff 0x1551fff9a000 - 0x1551fffa0fff 0x1551fffa1000 - 0x1551fffa2fff 0x1551fffa3000 - 0x1551fffc3fff 0x1551fffc4000 - 0x1551fffcbfff 0x1551fffcc000 - 0x1551fffccfff 0x1551fffcd000 - 0x1551fffcdfff 0x1551fffce000 - 0x1551fffcefff 0x1551fffcf000 - 0x1551fffcffff 0x7ffc31794000 - 0x7ffc317b4fff 0x7ffc317d3000 - 0x7ffc317d6fff 0x7ffc317d7000 - 0x7ffc317d8fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x8a4000 - 0x8c4fff 0x100000000000 - 0x1000000bffff 0x152f8d10e000 - 0x152f8d7b2fff 0x152f8d7b3000 - 0x152f8d806fff 0x152f8d807000 - 0x152f8d809fff 0x152f8d80a000 - 0x152f8d82efff 0x152f8d82f000 - 0x152f8d97efff 0x152f8d97f000 - 0x152f8d9c9fff 0x152f8d9ca000 - 0x152f8d9ccfff 0x152f8d9cd000 - 0x152f8d9cffff 0x152f8d9d0000 - 0x152f8d9d3fff 0x152f8d9d4000 - 0x152f8d9d6fff 0x152f8d9d7000 - 0x152f8d9e8fff 0x152f8d9e9000 - 0x152f8d9ecfff 0x152f8d9ed000 - 0x152f8d9edfff 0x152f8d9ee000 - 0x152f8d9eefff 0x152f8d9ef000 - 0x152f8d9f0fff 0x152f8d9f1000 - 0x152f8da01fff 0x152f8da02000 - 0x152f8da39fff 0x152f8da3a000 - 0x152f8db70fff 0x152f8db71000 - 0x152f8db74fff 0x152f8db75000 - 0x152f8db75fff 0x152f8db76000 - 0x152f8db76fff 0x152f8db77000 - 0x152f8db78fff 0x152f8db79000 - 0x152f8db79fff 0x152f8db7a000 - 0x152f8db7afff 0x152f8db7b000 - 0x152f8db7bfff 0x152f8db7c000 - 0x152f8db7dfff 0x152f8db7e000 - 0x152f8db80fff 0x152f8db81000 - 0x152f8db81fff 0x152f8db82000 - 0x152f8db82fff 0x152f8db83000 - 0x152f8db83fff 0x152f8db84000 - 0x152f8db85fff 0x152f8db86000 - 0x152f8db87fff 0x152f8db88000 - 0x152f8db88fff 0x152f8db89000 - 0x152f8db89fff 0x152f8db8a000 - 0x152f8db8afff 0x152f8db8b000 - 0x152f8db98fff 0x152f8db99000 - 0x152f8dba6fff 0x152f8dba7000 - 0x152f8dbb4fff 0x152f8dbb5000 - 0x152f8dbb8fff 0x152f8dbb9000 - 0x152f8dbb9fff 0x152f8dbba000 - 0x152f8dbcffff 0x152f8dbd0000 - 0x152f8dbfbfff 0x152f8dbfc000 - 0x152f8dc04fff 0x152f8dc05000 - 0x152f8dc05fff 0x152f8dc06000 - 0x152f8dc08fff 0x152f8dc09000 - 0x152f8dc0efff 0x152f8dc0f000 - 0x152f8dc11fff 0x152f8dc14000 - 0x152f8dc14fff 0x152f8dc15000 - 0x152f8dc15fff 0x152f8dc16000 - 0x152f8dc1cfff 0x152f8dc1d000 - 0x152f8dc1efff 0x152f8dc1f000 - 0x152f8dc3ffff 0x152f8dc40000 - 0x152f8dc47fff 0x152f8dc48000 - 0x152f8dc48fff 0x152f8dc49000 - 0x152f8dc49fff 0x152f8dc4a000 - 0x152f8dc4afff 0x152f8dc4b000 - 0x152f8dc4bfff 0x7ffeab9a5000 - 0x7ffeab9c5fff 0x7ffeab9cb000 - 0x7ffeab9cefff 0x7ffeab9cf000 - 0x7ffeab9d0fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x15cc000 - 0x15ecfff 0x100000000000 - 0x1000000bffff 0x148c0adb8000 - 0x148c0b45cfff 0x148c0b45d000 - 0x148c0b4b0fff 0x148c0b4b1000 - 0x148c0b4b3fff 0x148c0b4b4000 - 0x148c0b4d8fff 0x148c0b4d9000 - 0x148c0b628fff 0x148c0b629000 - 0x148c0b673fff 0x148c0b674000 - 0x148c0b676fff 0x148c0b677000 - 0x148c0b679fff 0x148c0b67a000 - 0x148c0b67dfff 0x148c0b67e000 - 0x148c0b680fff 0x148c0b681000 - 0x148c0b692fff 0x148c0b693000 - 0x148c0b696fff 0x148c0b697000 - 0x148c0b697fff 0x148c0b698000 - 0x148c0b698fff 0x148c0b699000 - 0x148c0b69afff 0x148c0b69b000 - 0x148c0b6abfff 0x148c0b6ac000 - 0x148c0b6e3fff 0x148c0b6e4000 - 0x148c0b81afff 0x148c0b81b000 - 0x148c0b81efff 0x148c0b81f000 - 0x148c0b81ffff 0x148c0b820000 - 0x148c0b820fff 0x148c0b821000 - 0x148c0b822fff 0x148c0b823000 - 0x148c0b823fff 0x148c0b824000 - 0x148c0b824fff 0x148c0b825000 - 0x148c0b825fff 0x148c0b826000 - 0x148c0b827fff 0x148c0b828000 - 0x148c0b82afff 0x148c0b82b000 - 0x148c0b82bfff 0x148c0b82c000 - 0x148c0b82cfff 0x148c0b82d000 - 0x148c0b82dfff 0x148c0b82e000 - 0x148c0b82ffff 0x148c0b830000 - 0x148c0b831fff 0x148c0b832000 - 0x148c0b832fff 0x148c0b833000 - 0x148c0b833fff 0x148c0b834000 - 0x148c0b834fff 0x148c0b835000 - 0x148c0b842fff 0x148c0b843000 - 0x148c0b850fff 0x148c0b851000 - 0x148c0b85efff 0x148c0b85f000 - 0x148c0b862fff 0x148c0b863000 - 0x148c0b863fff 0x148c0b864000 - 0x148c0b879fff 0x148c0b87a000 - 0x148c0b8a5fff 0x148c0b8a6000 - 0x148c0b8aefff 0x148c0b8af000 - 0x148c0b8affff 0x148c0b8b0000 - 0x148c0b8b2fff 0x148c0b8b3000 - 0x148c0b8b8fff 0x148c0b8b9000 - 0x148c0b8bbfff 0x148c0b8be000 - 0x148c0b8befff 0x148c0b8bf000 - 0x148c0b8bffff 0x148c0b8c0000 - 0x148c0b8c6fff 0x148c0b8c7000 - 0x148c0b8c8fff 0x148c0b8c9000 - 0x148c0b8e9fff 0x148c0b8ea000 - 0x148c0b8f1fff 0x148c0b8f2000 - 0x148c0b8f2fff 0x148c0b8f3000 - 0x148c0b8f3fff 0x148c0b8f4000 - 0x148c0b8f4fff 0x148c0b8f5000 - 0x148c0b8f5fff 0x7fff263c5000 - 0x7fff263e5fff 0x7fff263f8000 - 0x7fff263fbfff 0x7fff263fc000 - 0x7fff263fdfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1ea4000 - 0x1ec4fff 0x100000000000 - 0x1000000bffff 0x1483f277b000 - 0x1483f2e1ffff 0x1483f2e20000 - 0x1483f2e73fff 0x1483f2e74000 - 0x1483f2e76fff 0x1483f2e77000 - 0x1483f2e9bfff 0x1483f2e9c000 - 0x1483f2febfff 0x1483f2fec000 - 0x1483f3036fff 0x1483f3037000 - 0x1483f3039fff 0x1483f303a000 - 0x1483f303cfff 0x1483f303d000 - 0x1483f3040fff 0x1483f3041000 - 0x1483f3043fff 0x1483f3044000 - 0x1483f3055fff 0x1483f3056000 - 0x1483f3059fff 0x1483f305a000 - 0x1483f305afff 0x1483f305b000 - 0x1483f305bfff 0x1483f305c000 - 0x1483f305dfff 0x1483f305e000 - 0x1483f306efff 0x1483f306f000 - 0x1483f30a6fff 0x1483f30a7000 - 0x1483f31ddfff 0x1483f31de000 - 0x1483f31e1fff 0x1483f31e2000 - 0x1483f31e2fff 0x1483f31e3000 - 0x1483f31e3fff 0x1483f31e4000 - 0x1483f31e5fff 0x1483f31e6000 - 0x1483f31e6fff 0x1483f31e7000 - 0x1483f31e7fff 0x1483f31e8000 - 0x1483f31e8fff 0x1483f31e9000 - 0x1483f31eafff 0x1483f31eb000 - 0x1483f31edfff 0x1483f31ee000 - 0x1483f31eefff 0x1483f31ef000 - 0x1483f31effff 0x1483f31f0000 - 0x1483f31f0fff 0x1483f31f1000 - 0x1483f31f2fff 0x1483f31f3000 - 0x1483f31f4fff 0x1483f31f5000 - 0x1483f31f5fff 0x1483f31f6000 - 0x1483f31f6fff 0x1483f31f7000 - 0x1483f31f7fff 0x1483f31f8000 - 0x1483f3205fff 0x1483f3206000 - 0x1483f3213fff 0x1483f3214000 - 0x1483f3221fff 0x1483f3222000 - 0x1483f3225fff 0x1483f3226000 - 0x1483f3226fff 0x1483f3227000 - 0x1483f323cfff 0x1483f323d000 - 0x1483f3268fff 0x1483f3269000 - 0x1483f3271fff 0x1483f3272000 - 0x1483f3272fff 0x1483f3273000 - 0x1483f3275fff 0x1483f3276000 - 0x1483f327bfff 0x1483f327c000 - 0x1483f327efff 0x1483f3281000 - 0x1483f3281fff 0x1483f3282000 - 0x1483f3282fff 0x1483f3283000 - 0x1483f3289fff 0x1483f328a000 - 0x1483f328bfff 0x1483f328c000 - 0x1483f32acfff 0x1483f32ad000 - 0x1483f32b4fff 0x1483f32b5000 - 0x1483f32b5fff 0x1483f32b6000 - 0x1483f32b6fff 0x1483f32b7000 - 0x1483f32b7fff 0x1483f32b8000 - 0x1483f32b8fff 0x7ffd40004000 - 0x7ffd40024fff 0x7ffd4013d000 - 0x7ffd40140fff 0x7ffd40141000 - 0x7ffd40142fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x12cb000 - 0x12ebfff 0x100000000000 - 0x1000000bffff 0x153295958000 - 0x153295ffcfff 0x153295ffd000 - 0x153296050fff 0x153296051000 - 0x153296053fff 0x153296054000 - 0x153296078fff 0x153296079000 - 0x1532961c8fff 0x1532961c9000 - 0x153296213fff 0x153296214000 - 0x153296216fff 0x153296217000 - 0x153296219fff 0x15329621a000 - 0x15329621dfff 0x15329621e000 - 0x153296220fff 0x153296221000 - 0x153296232fff 0x153296233000 - 0x153296236fff 0x153296237000 - 0x153296237fff 0x153296238000 - 0x153296238fff 0x153296239000 - 0x15329623afff 0x15329623b000 - 0x15329624bfff 0x15329624c000 - 0x153296283fff 0x153296284000 - 0x1532963bafff 0x1532963bb000 - 0x1532963befff 0x1532963bf000 - 0x1532963bffff 0x1532963c0000 - 0x1532963c0fff 0x1532963c1000 - 0x1532963c2fff 0x1532963c3000 - 0x1532963c3fff 0x1532963c4000 - 0x1532963c4fff 0x1532963c5000 - 0x1532963c5fff 0x1532963c6000 - 0x1532963c7fff 0x1532963c8000 - 0x1532963cafff 0x1532963cb000 - 0x1532963cbfff 0x1532963cc000 - 0x1532963ccfff 0x1532963cd000 - 0x1532963cdfff 0x1532963ce000 - 0x1532963cffff 0x1532963d0000 - 0x1532963d1fff 0x1532963d2000 - 0x1532963d2fff 0x1532963d3000 - 0x1532963d3fff 0x1532963d4000 - 0x1532963d4fff 0x1532963d5000 - 0x1532963e2fff 0x1532963e3000 - 0x1532963f0fff 0x1532963f1000 - 0x1532963fefff 0x1532963ff000 - 0x153296402fff 0x153296403000 - 0x153296403fff 0x153296404000 - 0x153296419fff 0x15329641a000 - 0x153296445fff 0x153296446000 - 0x15329644efff 0x15329644f000 - 0x15329644ffff 0x153296450000 - 0x153296452fff 0x153296453000 - 0x153296458fff 0x153296459000 - 0x15329645bfff 0x15329645e000 - 0x15329645efff 0x15329645f000 - 0x15329645ffff 0x153296460000 - 0x153296466fff 0x153296467000 - 0x153296468fff 0x153296469000 - 0x153296489fff 0x15329648a000 - 0x153296491fff 0x153296492000 - 0x153296492fff 0x153296493000 - 0x153296493fff 0x153296494000 - 0x153296494fff 0x153296495000 - 0x153296495fff 0x7fff4e359000 - 0x7fff4e379fff 0x7fff4e392000 - 0x7fff4e395fff 0x7fff4e396000 - 0x7fff4e397fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x21e9000 - 0x2209fff 0x100000000000 - 0x1000000bffff 0x14f79f748000 - 0x14f79fdecfff 0x14f79fded000 - 0x14f79fe40fff 0x14f79fe41000 - 0x14f79fe43fff 0x14f79fe44000 - 0x14f79fe68fff 0x14f79fe69000 - 0x14f79ffb8fff 0x14f79ffb9000 - 0x14f7a0003fff 0x14f7a0004000 - 0x14f7a0006fff 0x14f7a0007000 - 0x14f7a0009fff 0x14f7a000a000 - 0x14f7a000dfff 0x14f7a000e000 - 0x14f7a0010fff 0x14f7a0011000 - 0x14f7a0022fff 0x14f7a0023000 - 0x14f7a0026fff 0x14f7a0027000 - 0x14f7a0027fff 0x14f7a0028000 - 0x14f7a0028fff 0x14f7a0029000 - 0x14f7a002afff 0x14f7a002b000 - 0x14f7a003bfff 0x14f7a003c000 - 0x14f7a0073fff 0x14f7a0074000 - 0x14f7a01aafff 0x14f7a01ab000 - 0x14f7a01aefff 0x14f7a01af000 - 0x14f7a01affff 0x14f7a01b0000 - 0x14f7a01b0fff 0x14f7a01b1000 - 0x14f7a01b2fff 0x14f7a01b3000 - 0x14f7a01b3fff 0x14f7a01b4000 - 0x14f7a01b4fff 0x14f7a01b5000 - 0x14f7a01b5fff 0x14f7a01b6000 - 0x14f7a01b7fff 0x14f7a01b8000 - 0x14f7a01bafff 0x14f7a01bb000 - 0x14f7a01bbfff 0x14f7a01bc000 - 0x14f7a01bcfff 0x14f7a01bd000 - 0x14f7a01bdfff 0x14f7a01be000 - 0x14f7a01bffff 0x14f7a01c0000 - 0x14f7a01c1fff 0x14f7a01c2000 - 0x14f7a01c2fff 0x14f7a01c3000 - 0x14f7a01c3fff 0x14f7a01c4000 - 0x14f7a01c4fff 0x14f7a01c5000 - 0x14f7a01d2fff 0x14f7a01d3000 - 0x14f7a01e0fff 0x14f7a01e1000 - 0x14f7a01eefff 0x14f7a01ef000 - 0x14f7a01f2fff 0x14f7a01f3000 - 0x14f7a01f3fff 0x14f7a01f4000 - 0x14f7a0209fff 0x14f7a020a000 - 0x14f7a0235fff 0x14f7a0236000 - 0x14f7a023efff 0x14f7a023f000 - 0x14f7a023ffff 0x14f7a0240000 - 0x14f7a0242fff 0x14f7a0243000 - 0x14f7a0248fff 0x14f7a0249000 - 0x14f7a024bfff 0x14f7a024e000 - 0x14f7a024efff 0x14f7a024f000 - 0x14f7a024ffff 0x14f7a0250000 - 0x14f7a0256fff 0x14f7a0257000 - 0x14f7a0258fff 0x14f7a0259000 - 0x14f7a0279fff 0x14f7a027a000 - 0x14f7a0281fff 0x14f7a0282000 - 0x14f7a0282fff 0x14f7a0283000 - 0x14f7a0283fff 0x14f7a0284000 - 0x14f7a0284fff 0x14f7a0285000 - 0x14f7a0285fff 0x7ffe59596000 - 0x7ffe595b6fff 0x7ffe595f3000 - 0x7ffe595f6fff 0x7ffe595f7000 - 0x7ffe595f8fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x11da000 - 0x11fafff 0x100000000000 - 0x1000000bffff 0x14fbae3e0000 - 0x14fbaea84fff 0x14fbaea85000 - 0x14fbaead8fff 0x14fbaead9000 - 0x14fbaeadbfff 0x14fbaeadc000 - 0x14fbaeb00fff 0x14fbaeb01000 - 0x14fbaec50fff 0x14fbaec51000 - 0x14fbaec9bfff 0x14fbaec9c000 - 0x14fbaec9efff 0x14fbaec9f000 - 0x14fbaeca1fff 0x14fbaeca2000 - 0x14fbaeca5fff 0x14fbaeca6000 - 0x14fbaeca8fff 0x14fbaeca9000 - 0x14fbaecbafff 0x14fbaecbb000 - 0x14fbaecbefff 0x14fbaecbf000 - 0x14fbaecbffff 0x14fbaecc0000 - 0x14fbaecc0fff 0x14fbaecc1000 - 0x14fbaecc2fff 0x14fbaecc3000 - 0x14fbaecd3fff 0x14fbaecd4000 - 0x14fbaed0bfff 0x14fbaed0c000 - 0x14fbaee42fff 0x14fbaee43000 - 0x14fbaee46fff 0x14fbaee47000 - 0x14fbaee47fff 0x14fbaee48000 - 0x14fbaee48fff 0x14fbaee49000 - 0x14fbaee4afff 0x14fbaee4b000 - 0x14fbaee4bfff 0x14fbaee4c000 - 0x14fbaee4cfff 0x14fbaee4d000 - 0x14fbaee4dfff 0x14fbaee4e000 - 0x14fbaee4ffff 0x14fbaee50000 - 0x14fbaee52fff 0x14fbaee53000 - 0x14fbaee53fff 0x14fbaee54000 - 0x14fbaee54fff 0x14fbaee55000 - 0x14fbaee55fff 0x14fbaee56000 - 0x14fbaee57fff 0x14fbaee58000 - 0x14fbaee59fff 0x14fbaee5a000 - 0x14fbaee5afff 0x14fbaee5b000 - 0x14fbaee5bfff 0x14fbaee5c000 - 0x14fbaee5cfff 0x14fbaee5d000 - 0x14fbaee6afff 0x14fbaee6b000 - 0x14fbaee78fff 0x14fbaee79000 - 0x14fbaee86fff 0x14fbaee87000 - 0x14fbaee8afff 0x14fbaee8b000 - 0x14fbaee8bfff 0x14fbaee8c000 - 0x14fbaeea1fff 0x14fbaeea2000 - 0x14fbaeecdfff 0x14fbaeece000 - 0x14fbaeed6fff 0x14fbaeed7000 - 0x14fbaeed7fff 0x14fbaeed8000 - 0x14fbaeedafff 0x14fbaeedb000 - 0x14fbaeee0fff 0x14fbaeee1000 - 0x14fbaeee3fff 0x14fbaeee6000 - 0x14fbaeee6fff 0x14fbaeee7000 - 0x14fbaeee7fff 0x14fbaeee8000 - 0x14fbaeeeefff 0x14fbaeeef000 - 0x14fbaeef0fff 0x14fbaeef1000 - 0x14fbaef11fff 0x14fbaef12000 - 0x14fbaef19fff 0x14fbaef1a000 - 0x14fbaef1afff 0x14fbaef1b000 - 0x14fbaef1bfff 0x14fbaef1c000 - 0x14fbaef1cfff 0x14fbaef1d000 - 0x14fbaef1dfff 0x7fff674a6000 - 0x7fff674c6fff 0x7fff67516000 - 0x7fff67519fff 0x7fff6751a000 - 0x7fff6751bfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1901000 - 0x1921fff 0x100000000000 - 0x1000000bffff 0x14efd0d17000 - 0x14efd13bbfff 0x14efd13bc000 - 0x14efd140ffff 0x14efd1410000 - 0x14efd1412fff 0x14efd1413000 - 0x14efd1437fff 0x14efd1438000 - 0x14efd1587fff 0x14efd1588000 - 0x14efd15d2fff 0x14efd15d3000 - 0x14efd15d5fff 0x14efd15d6000 - 0x14efd15d8fff 0x14efd15d9000 - 0x14efd15dcfff 0x14efd15dd000 - 0x14efd15dffff 0x14efd15e0000 - 0x14efd15f1fff 0x14efd15f2000 - 0x14efd15f5fff 0x14efd15f6000 - 0x14efd15f6fff 0x14efd15f7000 - 0x14efd15f7fff 0x14efd15f8000 - 0x14efd15f9fff 0x14efd15fa000 - 0x14efd160afff 0x14efd160b000 - 0x14efd1642fff 0x14efd1643000 - 0x14efd1779fff 0x14efd177a000 - 0x14efd177dfff 0x14efd177e000 - 0x14efd177efff 0x14efd177f000 - 0x14efd177ffff 0x14efd1780000 - 0x14efd1781fff 0x14efd1782000 - 0x14efd1782fff 0x14efd1783000 - 0x14efd1783fff 0x14efd1784000 - 0x14efd1784fff 0x14efd1785000 - 0x14efd1786fff 0x14efd1787000 - 0x14efd1789fff 0x14efd178a000 - 0x14efd178afff 0x14efd178b000 - 0x14efd178bfff 0x14efd178c000 - 0x14efd178cfff 0x14efd178d000 - 0x14efd178efff 0x14efd178f000 - 0x14efd1790fff 0x14efd1791000 - 0x14efd1791fff 0x14efd1792000 - 0x14efd1792fff 0x14efd1793000 - 0x14efd1793fff 0x14efd1794000 - 0x14efd17a1fff 0x14efd17a2000 - 0x14efd17affff 0x14efd17b0000 - 0x14efd17bdfff 0x14efd17be000 - 0x14efd17c1fff 0x14efd17c2000 - 0x14efd17c2fff 0x14efd17c3000 - 0x14efd17d8fff 0x14efd17d9000 - 0x14efd1804fff 0x14efd1805000 - 0x14efd180dfff 0x14efd180e000 - 0x14efd180efff 0x14efd180f000 - 0x14efd1811fff 0x14efd1812000 - 0x14efd1817fff 0x14efd1818000 - 0x14efd181afff 0x14efd181d000 - 0x14efd181dfff 0x14efd181e000 - 0x14efd181efff 0x14efd181f000 - 0x14efd1825fff 0x14efd1826000 - 0x14efd1827fff 0x14efd1828000 - 0x14efd1848fff 0x14efd1849000 - 0x14efd1850fff 0x14efd1851000 - 0x14efd1851fff 0x14efd1852000 - 0x14efd1852fff 0x14efd1853000 - 0x14efd1853fff 0x14efd1854000 - 0x14efd1854fff 0x7fff5c34b000 - 0x7fff5c36bfff 0x7fff5c3bd000 - 0x7fff5c3c0fff 0x7fff5c3c1000 - 0x7fff5c3c2fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x209a000 - 0x20bafff 0x100000000000 - 0x1000000bffff 0x14f05e74c000 - 0x14f05edf0fff 0x14f05edf1000 - 0x14f05ee44fff 0x14f05ee45000 - 0x14f05ee47fff 0x14f05ee48000 - 0x14f05ee6cfff 0x14f05ee6d000 - 0x14f05efbcfff 0x14f05efbd000 - 0x14f05f007fff 0x14f05f008000 - 0x14f05f00afff 0x14f05f00b000 - 0x14f05f00dfff 0x14f05f00e000 - 0x14f05f011fff 0x14f05f012000 - 0x14f05f014fff 0x14f05f015000 - 0x14f05f026fff 0x14f05f027000 - 0x14f05f02afff 0x14f05f02b000 - 0x14f05f02bfff 0x14f05f02c000 - 0x14f05f02cfff 0x14f05f02d000 - 0x14f05f02efff 0x14f05f02f000 - 0x14f05f03ffff 0x14f05f040000 - 0x14f05f077fff 0x14f05f078000 - 0x14f05f1aefff 0x14f05f1af000 - 0x14f05f1b2fff 0x14f05f1b3000 - 0x14f05f1b3fff 0x14f05f1b4000 - 0x14f05f1b4fff 0x14f05f1b5000 - 0x14f05f1b6fff 0x14f05f1b7000 - 0x14f05f1b7fff 0x14f05f1b8000 - 0x14f05f1b8fff 0x14f05f1b9000 - 0x14f05f1b9fff 0x14f05f1ba000 - 0x14f05f1bbfff 0x14f05f1bc000 - 0x14f05f1befff 0x14f05f1bf000 - 0x14f05f1bffff 0x14f05f1c0000 - 0x14f05f1c0fff 0x14f05f1c1000 - 0x14f05f1c1fff 0x14f05f1c2000 - 0x14f05f1c3fff 0x14f05f1c4000 - 0x14f05f1c5fff 0x14f05f1c6000 - 0x14f05f1c6fff 0x14f05f1c7000 - 0x14f05f1c7fff 0x14f05f1c8000 - 0x14f05f1c8fff 0x14f05f1c9000 - 0x14f05f1d6fff 0x14f05f1d7000 - 0x14f05f1e4fff 0x14f05f1e5000 - 0x14f05f1f2fff 0x14f05f1f3000 - 0x14f05f1f6fff 0x14f05f1f7000 - 0x14f05f1f7fff 0x14f05f1f8000 - 0x14f05f20dfff 0x14f05f20e000 - 0x14f05f239fff 0x14f05f23a000 - 0x14f05f242fff 0x14f05f243000 - 0x14f05f243fff 0x14f05f244000 - 0x14f05f246fff 0x14f05f247000 - 0x14f05f24cfff 0x14f05f24d000 - 0x14f05f24ffff 0x14f05f252000 - 0x14f05f252fff 0x14f05f253000 - 0x14f05f253fff 0x14f05f254000 - 0x14f05f25afff 0x14f05f25b000 - 0x14f05f25cfff 0x14f05f25d000 - 0x14f05f27dfff 0x14f05f27e000 - 0x14f05f285fff 0x14f05f286000 - 0x14f05f286fff 0x14f05f287000 - 0x14f05f287fff 0x14f05f288000 - 0x14f05f288fff 0x14f05f289000 - 0x14f05f289fff 0x7ffc2e95e000 - 0x7ffc2e97efff 0x7ffc2e9c2000 - 0x7ffc2e9c5fff 0x7ffc2e9c6000 - 0x7ffc2e9c7fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x602000 - 0x622fff 0x100000000000 - 0x1000000bffff 0x146613c8a000 - 0x14661432efff 0x14661432f000 - 0x146614382fff 0x146614383000 - 0x146614385fff 0x146614386000 - 0x1466143aafff 0x1466143ab000 - 0x1466144fafff 0x1466144fb000 - 0x146614545fff 0x146614546000 - 0x146614548fff 0x146614549000 - 0x14661454bfff 0x14661454c000 - 0x14661454ffff 0x146614550000 - 0x146614552fff 0x146614553000 - 0x146614564fff 0x146614565000 - 0x146614568fff 0x146614569000 - 0x146614569fff 0x14661456a000 - 0x14661456afff 0x14661456b000 - 0x14661456cfff 0x14661456d000 - 0x14661457dfff 0x14661457e000 - 0x1466145b5fff 0x1466145b6000 - 0x1466146ecfff 0x1466146ed000 - 0x1466146f0fff 0x1466146f1000 - 0x1466146f1fff 0x1466146f2000 - 0x1466146f2fff 0x1466146f3000 - 0x1466146f4fff 0x1466146f5000 - 0x1466146f5fff 0x1466146f6000 - 0x1466146f6fff 0x1466146f7000 - 0x1466146f7fff 0x1466146f8000 - 0x1466146f9fff 0x1466146fa000 - 0x1466146fcfff 0x1466146fd000 - 0x1466146fdfff 0x1466146fe000 - 0x1466146fefff 0x1466146ff000 - 0x1466146fffff 0x146614700000 - 0x146614701fff 0x146614702000 - 0x146614703fff 0x146614704000 - 0x146614704fff 0x146614705000 - 0x146614705fff 0x146614706000 - 0x146614706fff 0x146614707000 - 0x146614714fff 0x146614715000 - 0x146614722fff 0x146614723000 - 0x146614730fff 0x146614731000 - 0x146614734fff 0x146614735000 - 0x146614735fff 0x146614736000 - 0x14661474bfff 0x14661474c000 - 0x146614777fff 0x146614778000 - 0x146614780fff 0x146614781000 - 0x146614781fff 0x146614782000 - 0x146614784fff 0x146614785000 - 0x14661478afff 0x14661478b000 - 0x14661478dfff 0x146614790000 - 0x146614790fff 0x146614791000 - 0x146614791fff 0x146614792000 - 0x146614798fff 0x146614799000 - 0x14661479afff 0x14661479b000 - 0x1466147bbfff 0x1466147bc000 - 0x1466147c3fff 0x1466147c4000 - 0x1466147c4fff 0x1466147c5000 - 0x1466147c5fff 0x1466147c6000 - 0x1466147c6fff 0x1466147c7000 - 0x1466147c7fff 0x7fffa0e1a000 - 0x7fffa0e3afff 0x7fffa0ff4000 - 0x7fffa0ff7fff 0x7fffa0ff8000 - 0x7fffa0ff9fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x73e000 - 0x75efff 0x100000000000 - 0x1000000bffff 0x14fcfe44e000 - 0x14fcfeaf2fff 0x14fcfeaf3000 - 0x14fcfeb46fff 0x14fcfeb47000 - 0x14fcfeb49fff 0x14fcfeb4a000 - 0x14fcfeb6efff 0x14fcfeb6f000 - 0x14fcfecbefff 0x14fcfecbf000 - 0x14fcfed09fff 0x14fcfed0a000 - 0x14fcfed0cfff 0x14fcfed0d000 - 0x14fcfed0ffff 0x14fcfed10000 - 0x14fcfed13fff 0x14fcfed14000 - 0x14fcfed16fff 0x14fcfed17000 - 0x14fcfed28fff 0x14fcfed29000 - 0x14fcfed2cfff 0x14fcfed2d000 - 0x14fcfed2dfff 0x14fcfed2e000 - 0x14fcfed2efff 0x14fcfed2f000 - 0x14fcfed30fff 0x14fcfed31000 - 0x14fcfed41fff 0x14fcfed42000 - 0x14fcfed79fff 0x14fcfed7a000 - 0x14fcfeeb0fff 0x14fcfeeb1000 - 0x14fcfeeb4fff 0x14fcfeeb5000 - 0x14fcfeeb5fff 0x14fcfeeb6000 - 0x14fcfeeb6fff 0x14fcfeeb7000 - 0x14fcfeeb8fff 0x14fcfeeb9000 - 0x14fcfeeb9fff 0x14fcfeeba000 - 0x14fcfeebafff 0x14fcfeebb000 - 0x14fcfeebbfff 0x14fcfeebc000 - 0x14fcfeebdfff 0x14fcfeebe000 - 0x14fcfeec0fff 0x14fcfeec1000 - 0x14fcfeec1fff 0x14fcfeec2000 - 0x14fcfeec2fff 0x14fcfeec3000 - 0x14fcfeec3fff 0x14fcfeec4000 - 0x14fcfeec5fff 0x14fcfeec6000 - 0x14fcfeec7fff 0x14fcfeec8000 - 0x14fcfeec8fff 0x14fcfeec9000 - 0x14fcfeec9fff 0x14fcfeeca000 - 0x14fcfeecafff 0x14fcfeecb000 - 0x14fcfeed8fff 0x14fcfeed9000 - 0x14fcfeee6fff 0x14fcfeee7000 - 0x14fcfeef4fff 0x14fcfeef5000 - 0x14fcfeef8fff 0x14fcfeef9000 - 0x14fcfeef9fff 0x14fcfeefa000 - 0x14fcfef0ffff 0x14fcfef10000 - 0x14fcfef3bfff 0x14fcfef3c000 - 0x14fcfef44fff 0x14fcfef45000 - 0x14fcfef45fff 0x14fcfef46000 - 0x14fcfef48fff 0x14fcfef49000 - 0x14fcfef4efff 0x14fcfef4f000 - 0x14fcfef51fff 0x14fcfef54000 - 0x14fcfef54fff 0x14fcfef55000 - 0x14fcfef55fff 0x14fcfef56000 - 0x14fcfef5cfff 0x14fcfef5d000 - 0x14fcfef5efff 0x14fcfef5f000 - 0x14fcfef7ffff 0x14fcfef80000 - 0x14fcfef87fff 0x14fcfef88000 - 0x14fcfef88fff 0x14fcfef89000 - 0x14fcfef89fff 0x14fcfef8a000 - 0x14fcfef8afff 0x14fcfef8b000 - 0x14fcfef8bfff 0x7ffde2463000 - 0x7ffde2483fff 0x7ffde25f5000 - 0x7ffde25f8fff 0x7ffde25f9000 - 0x7ffde25fafff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xb0f000 - 0xb2ffff 0x100000000000 - 0x1000000bffff 0x14aba86f6000 - 0x14aba8d9afff 0x14aba8d9b000 - 0x14aba8deefff 0x14aba8def000 - 0x14aba8df1fff 0x14aba8df2000 - 0x14aba8e16fff 0x14aba8e17000 - 0x14aba8f66fff 0x14aba8f67000 - 0x14aba8fb1fff 0x14aba8fb2000 - 0x14aba8fb4fff 0x14aba8fb5000 - 0x14aba8fb7fff 0x14aba8fb8000 - 0x14aba8fbbfff 0x14aba8fbc000 - 0x14aba8fbefff 0x14aba8fbf000 - 0x14aba8fd0fff 0x14aba8fd1000 - 0x14aba8fd4fff 0x14aba8fd5000 - 0x14aba8fd5fff 0x14aba8fd6000 - 0x14aba8fd6fff 0x14aba8fd7000 - 0x14aba8fd8fff 0x14aba8fd9000 - 0x14aba8fe9fff 0x14aba8fea000 - 0x14aba9021fff 0x14aba9022000 - 0x14aba9158fff 0x14aba9159000 - 0x14aba915cfff 0x14aba915d000 - 0x14aba915dfff 0x14aba915e000 - 0x14aba915efff 0x14aba915f000 - 0x14aba9160fff 0x14aba9161000 - 0x14aba9161fff 0x14aba9162000 - 0x14aba9162fff 0x14aba9163000 - 0x14aba9163fff 0x14aba9164000 - 0x14aba9165fff 0x14aba9166000 - 0x14aba9168fff 0x14aba9169000 - 0x14aba9169fff 0x14aba916a000 - 0x14aba916afff 0x14aba916b000 - 0x14aba916bfff 0x14aba916c000 - 0x14aba916dfff 0x14aba916e000 - 0x14aba916ffff 0x14aba9170000 - 0x14aba9170fff 0x14aba9171000 - 0x14aba9171fff 0x14aba9172000 - 0x14aba9172fff 0x14aba9173000 - 0x14aba9180fff 0x14aba9181000 - 0x14aba918efff 0x14aba918f000 - 0x14aba919cfff 0x14aba919d000 - 0x14aba91a0fff 0x14aba91a1000 - 0x14aba91a1fff 0x14aba91a2000 - 0x14aba91b7fff 0x14aba91b8000 - 0x14aba91e3fff 0x14aba91e4000 - 0x14aba91ecfff 0x14aba91ed000 - 0x14aba91edfff 0x14aba91ee000 - 0x14aba91f0fff 0x14aba91f1000 - 0x14aba91f6fff 0x14aba91f7000 - 0x14aba91f9fff 0x14aba91fc000 - 0x14aba91fcfff 0x14aba91fd000 - 0x14aba91fdfff 0x14aba91fe000 - 0x14aba9204fff 0x14aba9205000 - 0x14aba9206fff 0x14aba9207000 - 0x14aba9227fff 0x14aba9228000 - 0x14aba922ffff 0x14aba9230000 - 0x14aba9230fff 0x14aba9231000 - 0x14aba9231fff 0x14aba9232000 - 0x14aba9232fff 0x14aba9233000 - 0x14aba9233fff 0x7ffc8cc4e000 - 0x7ffc8cc6efff 0x7ffc8ccc1000 - 0x7ffc8ccc4fff 0x7ffc8ccc5000 - 0x7ffc8ccc6fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x253f000 - 0x255ffff 0x100000000000 - 0x1000000bffff 0x1542fdca8000 - 0x1542fe34cfff 0x1542fe34d000 - 0x1542fe3a0fff 0x1542fe3a1000 - 0x1542fe3a3fff 0x1542fe3a4000 - 0x1542fe3c8fff 0x1542fe3c9000 - 0x1542fe518fff 0x1542fe519000 - 0x1542fe563fff 0x1542fe564000 - 0x1542fe566fff 0x1542fe567000 - 0x1542fe569fff 0x1542fe56a000 - 0x1542fe56dfff 0x1542fe56e000 - 0x1542fe570fff 0x1542fe571000 - 0x1542fe582fff 0x1542fe583000 - 0x1542fe586fff 0x1542fe587000 - 0x1542fe587fff 0x1542fe588000 - 0x1542fe588fff 0x1542fe589000 - 0x1542fe58afff 0x1542fe58b000 - 0x1542fe59bfff 0x1542fe59c000 - 0x1542fe5d3fff 0x1542fe5d4000 - 0x1542fe70afff 0x1542fe70b000 - 0x1542fe70efff 0x1542fe70f000 - 0x1542fe70ffff 0x1542fe710000 - 0x1542fe710fff 0x1542fe711000 - 0x1542fe712fff 0x1542fe713000 - 0x1542fe713fff 0x1542fe714000 - 0x1542fe714fff 0x1542fe715000 - 0x1542fe715fff 0x1542fe716000 - 0x1542fe717fff 0x1542fe718000 - 0x1542fe71afff 0x1542fe71b000 - 0x1542fe71bfff 0x1542fe71c000 - 0x1542fe71cfff 0x1542fe71d000 - 0x1542fe71dfff 0x1542fe71e000 - 0x1542fe71ffff 0x1542fe720000 - 0x1542fe721fff 0x1542fe722000 - 0x1542fe722fff 0x1542fe723000 - 0x1542fe723fff 0x1542fe724000 - 0x1542fe724fff 0x1542fe725000 - 0x1542fe732fff 0x1542fe733000 - 0x1542fe740fff 0x1542fe741000 - 0x1542fe74efff 0x1542fe74f000 - 0x1542fe752fff 0x1542fe753000 - 0x1542fe753fff 0x1542fe754000 - 0x1542fe769fff 0x1542fe76a000 - 0x1542fe795fff 0x1542fe796000 - 0x1542fe79efff 0x1542fe79f000 - 0x1542fe79ffff 0x1542fe7a0000 - 0x1542fe7a2fff 0x1542fe7a3000 - 0x1542fe7a8fff 0x1542fe7a9000 - 0x1542fe7abfff 0x1542fe7ae000 - 0x1542fe7aefff 0x1542fe7af000 - 0x1542fe7affff 0x1542fe7b0000 - 0x1542fe7b6fff 0x1542fe7b7000 - 0x1542fe7b8fff 0x1542fe7b9000 - 0x1542fe7d9fff 0x1542fe7da000 - 0x1542fe7e1fff 0x1542fe7e2000 - 0x1542fe7e2fff 0x1542fe7e3000 - 0x1542fe7e3fff 0x1542fe7e4000 - 0x1542fe7e4fff 0x1542fe7e5000 - 0x1542fe7e5fff 0x7ffdce9c4000 - 0x7ffdce9e4fff 0x7ffdce9f7000 - 0x7ffdce9fafff 0x7ffdce9fb000 - 0x7ffdce9fcfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x210e000 - 0x212efff 0x100000000000 - 0x1000000bffff 0x153eecb35000 - 0x153eed1d9fff 0x153eed1da000 - 0x153eed22dfff 0x153eed22e000 - 0x153eed230fff 0x153eed231000 - 0x153eed255fff 0x153eed256000 - 0x153eed3a5fff 0x153eed3a6000 - 0x153eed3f0fff 0x153eed3f1000 - 0x153eed3f3fff 0x153eed3f4000 - 0x153eed3f6fff 0x153eed3f7000 - 0x153eed3fafff 0x153eed3fb000 - 0x153eed3fdfff 0x153eed3fe000 - 0x153eed40ffff 0x153eed410000 - 0x153eed413fff 0x153eed414000 - 0x153eed414fff 0x153eed415000 - 0x153eed415fff 0x153eed416000 - 0x153eed417fff 0x153eed418000 - 0x153eed428fff 0x153eed429000 - 0x153eed460fff 0x153eed461000 - 0x153eed597fff 0x153eed598000 - 0x153eed59bfff 0x153eed59c000 - 0x153eed59cfff 0x153eed59d000 - 0x153eed59dfff 0x153eed59e000 - 0x153eed59ffff 0x153eed5a0000 - 0x153eed5a0fff 0x153eed5a1000 - 0x153eed5a1fff 0x153eed5a2000 - 0x153eed5a2fff 0x153eed5a3000 - 0x153eed5a4fff 0x153eed5a5000 - 0x153eed5a7fff 0x153eed5a8000 - 0x153eed5a8fff 0x153eed5a9000 - 0x153eed5a9fff 0x153eed5aa000 - 0x153eed5aafff 0x153eed5ab000 - 0x153eed5acfff 0x153eed5ad000 - 0x153eed5aefff 0x153eed5af000 - 0x153eed5affff 0x153eed5b0000 - 0x153eed5b0fff 0x153eed5b1000 - 0x153eed5b1fff 0x153eed5b2000 - 0x153eed5bffff 0x153eed5c0000 - 0x153eed5cdfff 0x153eed5ce000 - 0x153eed5dbfff 0x153eed5dc000 - 0x153eed5dffff 0x153eed5e0000 - 0x153eed5e0fff 0x153eed5e1000 - 0x153eed5f6fff 0x153eed5f7000 - 0x153eed622fff 0x153eed623000 - 0x153eed62bfff 0x153eed62c000 - 0x153eed62cfff 0x153eed62d000 - 0x153eed62ffff 0x153eed630000 - 0x153eed635fff 0x153eed636000 - 0x153eed638fff 0x153eed63b000 - 0x153eed63bfff 0x153eed63c000 - 0x153eed63cfff 0x153eed63d000 - 0x153eed643fff 0x153eed644000 - 0x153eed645fff 0x153eed646000 - 0x153eed666fff 0x153eed667000 - 0x153eed66efff 0x153eed66f000 - 0x153eed66ffff 0x153eed670000 - 0x153eed670fff 0x153eed671000 - 0x153eed671fff 0x153eed672000 - 0x153eed672fff 0x7ffcbd63b000 - 0x7ffcbd65bfff 0x7ffcbd6aa000 - 0x7ffcbd6adfff 0x7ffcbd6ae000 - 0x7ffcbd6affff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x2227000 - 0x2247fff 0x100000000000 - 0x1000000bffff 0x14c0821b9000 - 0x14c08285dfff 0x14c08285e000 - 0x14c0828b1fff 0x14c0828b2000 - 0x14c0828b4fff 0x14c0828b5000 - 0x14c0828d9fff 0x14c0828da000 - 0x14c082a29fff 0x14c082a2a000 - 0x14c082a74fff 0x14c082a75000 - 0x14c082a77fff 0x14c082a78000 - 0x14c082a7afff 0x14c082a7b000 - 0x14c082a7efff 0x14c082a7f000 - 0x14c082a81fff 0x14c082a82000 - 0x14c082a93fff 0x14c082a94000 - 0x14c082a97fff 0x14c082a98000 - 0x14c082a98fff 0x14c082a99000 - 0x14c082a99fff 0x14c082a9a000 - 0x14c082a9bfff 0x14c082a9c000 - 0x14c082aacfff 0x14c082aad000 - 0x14c082ae4fff 0x14c082ae5000 - 0x14c082c1bfff 0x14c082c1c000 - 0x14c082c1ffff 0x14c082c20000 - 0x14c082c20fff 0x14c082c21000 - 0x14c082c21fff 0x14c082c22000 - 0x14c082c23fff 0x14c082c24000 - 0x14c082c24fff 0x14c082c25000 - 0x14c082c25fff 0x14c082c26000 - 0x14c082c26fff 0x14c082c27000 - 0x14c082c28fff 0x14c082c29000 - 0x14c082c2bfff 0x14c082c2c000 - 0x14c082c2cfff 0x14c082c2d000 - 0x14c082c2dfff 0x14c082c2e000 - 0x14c082c2efff 0x14c082c2f000 - 0x14c082c30fff 0x14c082c31000 - 0x14c082c32fff 0x14c082c33000 - 0x14c082c33fff 0x14c082c34000 - 0x14c082c34fff 0x14c082c35000 - 0x14c082c35fff 0x14c082c36000 - 0x14c082c43fff 0x14c082c44000 - 0x14c082c51fff 0x14c082c52000 - 0x14c082c5ffff 0x14c082c60000 - 0x14c082c63fff 0x14c082c64000 - 0x14c082c64fff 0x14c082c65000 - 0x14c082c7afff 0x14c082c7b000 - 0x14c082ca6fff 0x14c082ca7000 - 0x14c082caffff 0x14c082cb0000 - 0x14c082cb0fff 0x14c082cb1000 - 0x14c082cb3fff 0x14c082cb4000 - 0x14c082cb9fff 0x14c082cba000 - 0x14c082cbcfff 0x14c082cbf000 - 0x14c082cbffff 0x14c082cc0000 - 0x14c082cc0fff 0x14c082cc1000 - 0x14c082cc7fff 0x14c082cc8000 - 0x14c082cc9fff 0x14c082cca000 - 0x14c082ceafff 0x14c082ceb000 - 0x14c082cf2fff 0x14c082cf3000 - 0x14c082cf3fff 0x14c082cf4000 - 0x14c082cf4fff 0x14c082cf5000 - 0x14c082cf5fff 0x14c082cf6000 - 0x14c082cf6fff 0x7fff9e73e000 - 0x7fff9e75efff 0x7fff9e7e6000 - 0x7fff9e7e9fff 0x7fff9e7ea000 - 0x7fff9e7ebfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x7c5000 - 0x7e5fff 0x100000000000 - 0x1000000bffff 0x14e87ab6e000 - 0x14e87b212fff 0x14e87b213000 - 0x14e87b266fff 0x14e87b267000 - 0x14e87b269fff 0x14e87b26a000 - 0x14e87b28efff 0x14e87b28f000 - 0x14e87b3defff 0x14e87b3df000 - 0x14e87b429fff 0x14e87b42a000 - 0x14e87b42cfff 0x14e87b42d000 - 0x14e87b42ffff 0x14e87b430000 - 0x14e87b433fff 0x14e87b434000 - 0x14e87b436fff 0x14e87b437000 - 0x14e87b448fff 0x14e87b449000 - 0x14e87b44cfff 0x14e87b44d000 - 0x14e87b44dfff 0x14e87b44e000 - 0x14e87b44efff 0x14e87b44f000 - 0x14e87b450fff 0x14e87b451000 - 0x14e87b461fff 0x14e87b462000 - 0x14e87b499fff 0x14e87b49a000 - 0x14e87b5d0fff 0x14e87b5d1000 - 0x14e87b5d4fff 0x14e87b5d5000 - 0x14e87b5d5fff 0x14e87b5d6000 - 0x14e87b5d6fff 0x14e87b5d7000 - 0x14e87b5d8fff 0x14e87b5d9000 - 0x14e87b5d9fff 0x14e87b5da000 - 0x14e87b5dafff 0x14e87b5db000 - 0x14e87b5dbfff 0x14e87b5dc000 - 0x14e87b5ddfff 0x14e87b5de000 - 0x14e87b5e0fff 0x14e87b5e1000 - 0x14e87b5e1fff 0x14e87b5e2000 - 0x14e87b5e2fff 0x14e87b5e3000 - 0x14e87b5e3fff 0x14e87b5e4000 - 0x14e87b5e5fff 0x14e87b5e6000 - 0x14e87b5e7fff 0x14e87b5e8000 - 0x14e87b5e8fff 0x14e87b5e9000 - 0x14e87b5e9fff 0x14e87b5ea000 - 0x14e87b5eafff 0x14e87b5eb000 - 0x14e87b5f8fff 0x14e87b5f9000 - 0x14e87b606fff 0x14e87b607000 - 0x14e87b614fff 0x14e87b615000 - 0x14e87b618fff 0x14e87b619000 - 0x14e87b619fff 0x14e87b61a000 - 0x14e87b62ffff 0x14e87b630000 - 0x14e87b65bfff 0x14e87b65c000 - 0x14e87b664fff 0x14e87b665000 - 0x14e87b665fff 0x14e87b666000 - 0x14e87b668fff 0x14e87b669000 - 0x14e87b66efff 0x14e87b66f000 - 0x14e87b671fff 0x14e87b674000 - 0x14e87b674fff 0x14e87b675000 - 0x14e87b675fff 0x14e87b676000 - 0x14e87b67cfff 0x14e87b67d000 - 0x14e87b67efff 0x14e87b67f000 - 0x14e87b69ffff 0x14e87b6a0000 - 0x14e87b6a7fff 0x14e87b6a8000 - 0x14e87b6a8fff 0x14e87b6a9000 - 0x14e87b6a9fff 0x14e87b6aa000 - 0x14e87b6aafff 0x14e87b6ab000 - 0x14e87b6abfff 0x7ffd3bc67000 - 0x7ffd3bc87fff 0x7ffd3bd78000 - 0x7ffd3bd7bfff 0x7ffd3bd7c000 - 0x7ffd3bd7dfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1465000 - 0x1485fff 0x100000000000 - 0x1000000bffff 0x14fa66852000 - 0x14fa66ef6fff 0x14fa66ef7000 - 0x14fa66f4afff 0x14fa66f4b000 - 0x14fa66f4dfff 0x14fa66f4e000 - 0x14fa66f72fff 0x14fa66f73000 - 0x14fa670c2fff 0x14fa670c3000 - 0x14fa6710dfff 0x14fa6710e000 - 0x14fa67110fff 0x14fa67111000 - 0x14fa67113fff 0x14fa67114000 - 0x14fa67117fff 0x14fa67118000 - 0x14fa6711afff 0x14fa6711b000 - 0x14fa6712cfff 0x14fa6712d000 - 0x14fa67130fff 0x14fa67131000 - 0x14fa67131fff 0x14fa67132000 - 0x14fa67132fff 0x14fa67133000 - 0x14fa67134fff 0x14fa67135000 - 0x14fa67145fff 0x14fa67146000 - 0x14fa6717dfff 0x14fa6717e000 - 0x14fa672b4fff 0x14fa672b5000 - 0x14fa672b8fff 0x14fa672b9000 - 0x14fa672b9fff 0x14fa672ba000 - 0x14fa672bafff 0x14fa672bb000 - 0x14fa672bcfff 0x14fa672bd000 - 0x14fa672bdfff 0x14fa672be000 - 0x14fa672befff 0x14fa672bf000 - 0x14fa672bffff 0x14fa672c0000 - 0x14fa672c1fff 0x14fa672c2000 - 0x14fa672c4fff 0x14fa672c5000 - 0x14fa672c5fff 0x14fa672c6000 - 0x14fa672c6fff 0x14fa672c7000 - 0x14fa672c7fff 0x14fa672c8000 - 0x14fa672c9fff 0x14fa672ca000 - 0x14fa672cbfff 0x14fa672cc000 - 0x14fa672ccfff 0x14fa672cd000 - 0x14fa672cdfff 0x14fa672ce000 - 0x14fa672cefff 0x14fa672cf000 - 0x14fa672dcfff 0x14fa672dd000 - 0x14fa672eafff 0x14fa672eb000 - 0x14fa672f8fff 0x14fa672f9000 - 0x14fa672fcfff 0x14fa672fd000 - 0x14fa672fdfff 0x14fa672fe000 - 0x14fa67313fff 0x14fa67314000 - 0x14fa6733ffff 0x14fa67340000 - 0x14fa67348fff 0x14fa67349000 - 0x14fa67349fff 0x14fa6734a000 - 0x14fa6734cfff 0x14fa6734d000 - 0x14fa67352fff 0x14fa67353000 - 0x14fa67355fff 0x14fa67358000 - 0x14fa67358fff 0x14fa67359000 - 0x14fa67359fff 0x14fa6735a000 - 0x14fa67360fff 0x14fa67361000 - 0x14fa67362fff 0x14fa67363000 - 0x14fa67383fff 0x14fa67384000 - 0x14fa6738bfff 0x14fa6738c000 - 0x14fa6738cfff 0x14fa6738d000 - 0x14fa6738dfff 0x14fa6738e000 - 0x14fa6738efff 0x14fa6738f000 - 0x14fa6738ffff 0x7ffea8748000 - 0x7ffea8768fff 0x7ffea87bb000 - 0x7ffea87befff 0x7ffea87bf000 - 0x7ffea87c0fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1ced000 - 0x1d0dfff 0x100000000000 - 0x1000000bffff 0x15156d828000 - 0x15156deccfff 0x15156decd000 - 0x15156df20fff 0x15156df21000 - 0x15156df23fff 0x15156df24000 - 0x15156df48fff 0x15156df49000 - 0x15156e098fff 0x15156e099000 - 0x15156e0e3fff 0x15156e0e4000 - 0x15156e0e6fff 0x15156e0e7000 - 0x15156e0e9fff 0x15156e0ea000 - 0x15156e0edfff 0x15156e0ee000 - 0x15156e0f0fff 0x15156e0f1000 - 0x15156e102fff 0x15156e103000 - 0x15156e106fff 0x15156e107000 - 0x15156e107fff 0x15156e108000 - 0x15156e108fff 0x15156e109000 - 0x15156e10afff 0x15156e10b000 - 0x15156e11bfff 0x15156e11c000 - 0x15156e153fff 0x15156e154000 - 0x15156e28afff 0x15156e28b000 - 0x15156e28efff 0x15156e28f000 - 0x15156e28ffff 0x15156e290000 - 0x15156e290fff 0x15156e291000 - 0x15156e292fff 0x15156e293000 - 0x15156e293fff 0x15156e294000 - 0x15156e294fff 0x15156e295000 - 0x15156e295fff 0x15156e296000 - 0x15156e297fff 0x15156e298000 - 0x15156e29afff 0x15156e29b000 - 0x15156e29bfff 0x15156e29c000 - 0x15156e29cfff 0x15156e29d000 - 0x15156e29dfff 0x15156e29e000 - 0x15156e29ffff 0x15156e2a0000 - 0x15156e2a1fff 0x15156e2a2000 - 0x15156e2a2fff 0x15156e2a3000 - 0x15156e2a3fff 0x15156e2a4000 - 0x15156e2a4fff 0x15156e2a5000 - 0x15156e2b2fff 0x15156e2b3000 - 0x15156e2c0fff 0x15156e2c1000 - 0x15156e2cefff 0x15156e2cf000 - 0x15156e2d2fff 0x15156e2d3000 - 0x15156e2d3fff 0x15156e2d4000 - 0x15156e2e9fff 0x15156e2ea000 - 0x15156e315fff 0x15156e316000 - 0x15156e31efff 0x15156e31f000 - 0x15156e31ffff 0x15156e320000 - 0x15156e322fff 0x15156e323000 - 0x15156e328fff 0x15156e329000 - 0x15156e32bfff 0x15156e32e000 - 0x15156e32efff 0x15156e32f000 - 0x15156e32ffff 0x15156e330000 - 0x15156e336fff 0x15156e337000 - 0x15156e338fff 0x15156e339000 - 0x15156e359fff 0x15156e35a000 - 0x15156e361fff 0x15156e362000 - 0x15156e362fff 0x15156e363000 - 0x15156e363fff 0x15156e364000 - 0x15156e364fff 0x15156e365000 - 0x15156e365fff 0x7ffe1ea0e000 - 0x7ffe1ea2efff 0x7ffe1ea82000 - 0x7ffe1ea85fff 0x7ffe1ea86000 - 0x7ffe1ea87fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1537000 - 0x1557fff 0x100000000000 - 0x1000000bffff 0x1492e2e95000 - 0x1492e3539fff 0x1492e353a000 - 0x1492e358dfff 0x1492e358e000 - 0x1492e3590fff 0x1492e3591000 - 0x1492e35b5fff 0x1492e35b6000 - 0x1492e3705fff 0x1492e3706000 - 0x1492e3750fff 0x1492e3751000 - 0x1492e3753fff 0x1492e3754000 - 0x1492e3756fff 0x1492e3757000 - 0x1492e375afff 0x1492e375b000 - 0x1492e375dfff 0x1492e375e000 - 0x1492e376ffff 0x1492e3770000 - 0x1492e3773fff 0x1492e3774000 - 0x1492e3774fff 0x1492e3775000 - 0x1492e3775fff 0x1492e3776000 - 0x1492e3777fff 0x1492e3778000 - 0x1492e3788fff 0x1492e3789000 - 0x1492e37c0fff 0x1492e37c1000 - 0x1492e38f7fff 0x1492e38f8000 - 0x1492e38fbfff 0x1492e38fc000 - 0x1492e38fcfff 0x1492e38fd000 - 0x1492e38fdfff 0x1492e38fe000 - 0x1492e38fffff 0x1492e3900000 - 0x1492e3900fff 0x1492e3901000 - 0x1492e3901fff 0x1492e3902000 - 0x1492e3902fff 0x1492e3903000 - 0x1492e3904fff 0x1492e3905000 - 0x1492e3907fff 0x1492e3908000 - 0x1492e3908fff 0x1492e3909000 - 0x1492e3909fff 0x1492e390a000 - 0x1492e390afff 0x1492e390b000 - 0x1492e390cfff 0x1492e390d000 - 0x1492e390efff 0x1492e390f000 - 0x1492e390ffff 0x1492e3910000 - 0x1492e3910fff 0x1492e3911000 - 0x1492e3911fff 0x1492e3912000 - 0x1492e391ffff 0x1492e3920000 - 0x1492e392dfff 0x1492e392e000 - 0x1492e393bfff 0x1492e393c000 - 0x1492e393ffff 0x1492e3940000 - 0x1492e3940fff 0x1492e3941000 - 0x1492e3956fff 0x1492e3957000 - 0x1492e3982fff 0x1492e3983000 - 0x1492e398bfff 0x1492e398c000 - 0x1492e398cfff 0x1492e398d000 - 0x1492e398ffff 0x1492e3990000 - 0x1492e3995fff 0x1492e3996000 - 0x1492e3998fff 0x1492e399b000 - 0x1492e399bfff 0x1492e399c000 - 0x1492e399cfff 0x1492e399d000 - 0x1492e39a3fff 0x1492e39a4000 - 0x1492e39a5fff 0x1492e39a6000 - 0x1492e39c6fff 0x1492e39c7000 - 0x1492e39cefff 0x1492e39cf000 - 0x1492e39cffff 0x1492e39d0000 - 0x1492e39d0fff 0x1492e39d1000 - 0x1492e39d1fff 0x1492e39d2000 - 0x1492e39d2fff 0x7fff6d856000 - 0x7fff6d876fff 0x7fff6d996000 - 0x7fff6d999fff 0x7fff6d99a000 - 0x7fff6d99bfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1f25000 - 0x1f45fff 0x100000000000 - 0x1000000bffff 0x14d42c13e000 - 0x14d42c7e2fff 0x14d42c7e3000 - 0x14d42c836fff 0x14d42c837000 - 0x14d42c839fff 0x14d42c83a000 - 0x14d42c85efff 0x14d42c85f000 - 0x14d42c9aefff 0x14d42c9af000 - 0x14d42c9f9fff 0x14d42c9fa000 - 0x14d42c9fcfff 0x14d42c9fd000 - 0x14d42c9fffff 0x14d42ca00000 - 0x14d42ca03fff 0x14d42ca04000 - 0x14d42ca06fff 0x14d42ca07000 - 0x14d42ca18fff 0x14d42ca19000 - 0x14d42ca1cfff 0x14d42ca1d000 - 0x14d42ca1dfff 0x14d42ca1e000 - 0x14d42ca1efff 0x14d42ca1f000 - 0x14d42ca20fff 0x14d42ca21000 - 0x14d42ca31fff 0x14d42ca32000 - 0x14d42ca69fff 0x14d42ca6a000 - 0x14d42cba0fff 0x14d42cba1000 - 0x14d42cba4fff 0x14d42cba5000 - 0x14d42cba5fff 0x14d42cba6000 - 0x14d42cba6fff 0x14d42cba7000 - 0x14d42cba8fff 0x14d42cba9000 - 0x14d42cba9fff 0x14d42cbaa000 - 0x14d42cbaafff 0x14d42cbab000 - 0x14d42cbabfff 0x14d42cbac000 - 0x14d42cbadfff 0x14d42cbae000 - 0x14d42cbb0fff 0x14d42cbb1000 - 0x14d42cbb1fff 0x14d42cbb2000 - 0x14d42cbb2fff 0x14d42cbb3000 - 0x14d42cbb3fff 0x14d42cbb4000 - 0x14d42cbb5fff 0x14d42cbb6000 - 0x14d42cbb7fff 0x14d42cbb8000 - 0x14d42cbb8fff 0x14d42cbb9000 - 0x14d42cbb9fff 0x14d42cbba000 - 0x14d42cbbafff 0x14d42cbbb000 - 0x14d42cbc8fff 0x14d42cbc9000 - 0x14d42cbd6fff 0x14d42cbd7000 - 0x14d42cbe4fff 0x14d42cbe5000 - 0x14d42cbe8fff 0x14d42cbe9000 - 0x14d42cbe9fff 0x14d42cbea000 - 0x14d42cbfffff 0x14d42cc00000 - 0x14d42cc2bfff 0x14d42cc2c000 - 0x14d42cc34fff 0x14d42cc35000 - 0x14d42cc35fff 0x14d42cc36000 - 0x14d42cc38fff 0x14d42cc39000 - 0x14d42cc3efff 0x14d42cc3f000 - 0x14d42cc41fff 0x14d42cc44000 - 0x14d42cc44fff 0x14d42cc45000 - 0x14d42cc45fff 0x14d42cc46000 - 0x14d42cc4cfff 0x14d42cc4d000 - 0x14d42cc4efff 0x14d42cc4f000 - 0x14d42cc6ffff 0x14d42cc70000 - 0x14d42cc77fff 0x14d42cc78000 - 0x14d42cc78fff 0x14d42cc79000 - 0x14d42cc79fff 0x14d42cc7a000 - 0x14d42cc7afff 0x14d42cc7b000 - 0x14d42cc7bfff 0x7ffdf96f5000 - 0x7ffdf9715fff 0x7ffdf97ca000 - 0x7ffdf97cdfff 0x7ffdf97ce000 - 0x7ffdf97cffff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xd6a000 - 0xd8afff 0x100000000000 - 0x1000000bffff 0x14e049d25000 - 0x14e04a3c9fff 0x14e04a3ca000 - 0x14e04a41dfff 0x14e04a41e000 - 0x14e04a420fff 0x14e04a421000 - 0x14e04a445fff 0x14e04a446000 - 0x14e04a595fff 0x14e04a596000 - 0x14e04a5e0fff 0x14e04a5e1000 - 0x14e04a5e3fff 0x14e04a5e4000 - 0x14e04a5e6fff 0x14e04a5e7000 - 0x14e04a5eafff 0x14e04a5eb000 - 0x14e04a5edfff 0x14e04a5ee000 - 0x14e04a5fffff 0x14e04a600000 - 0x14e04a603fff 0x14e04a604000 - 0x14e04a604fff 0x14e04a605000 - 0x14e04a605fff 0x14e04a606000 - 0x14e04a607fff 0x14e04a608000 - 0x14e04a618fff 0x14e04a619000 - 0x14e04a650fff 0x14e04a651000 - 0x14e04a787fff 0x14e04a788000 - 0x14e04a78bfff 0x14e04a78c000 - 0x14e04a78cfff 0x14e04a78d000 - 0x14e04a78dfff 0x14e04a78e000 - 0x14e04a78ffff 0x14e04a790000 - 0x14e04a790fff 0x14e04a791000 - 0x14e04a791fff 0x14e04a792000 - 0x14e04a792fff 0x14e04a793000 - 0x14e04a794fff 0x14e04a795000 - 0x14e04a797fff 0x14e04a798000 - 0x14e04a798fff 0x14e04a799000 - 0x14e04a799fff 0x14e04a79a000 - 0x14e04a79afff 0x14e04a79b000 - 0x14e04a79cfff 0x14e04a79d000 - 0x14e04a79efff 0x14e04a79f000 - 0x14e04a79ffff 0x14e04a7a0000 - 0x14e04a7a0fff 0x14e04a7a1000 - 0x14e04a7a1fff 0x14e04a7a2000 - 0x14e04a7affff 0x14e04a7b0000 - 0x14e04a7bdfff 0x14e04a7be000 - 0x14e04a7cbfff 0x14e04a7cc000 - 0x14e04a7cffff 0x14e04a7d0000 - 0x14e04a7d0fff 0x14e04a7d1000 - 0x14e04a7e6fff 0x14e04a7e7000 - 0x14e04a812fff 0x14e04a813000 - 0x14e04a81bfff 0x14e04a81c000 - 0x14e04a81cfff 0x14e04a81d000 - 0x14e04a81ffff 0x14e04a820000 - 0x14e04a825fff 0x14e04a826000 - 0x14e04a828fff 0x14e04a82b000 - 0x14e04a82bfff 0x14e04a82c000 - 0x14e04a82cfff 0x14e04a82d000 - 0x14e04a833fff 0x14e04a834000 - 0x14e04a835fff 0x14e04a836000 - 0x14e04a856fff 0x14e04a857000 - 0x14e04a85efff 0x14e04a85f000 - 0x14e04a85ffff 0x14e04a860000 - 0x14e04a860fff 0x14e04a861000 - 0x14e04a861fff 0x14e04a862000 - 0x14e04a862fff 0x7ffea56ff000 - 0x7ffea571ffff 0x7ffea57c3000 - 0x7ffea57c6fff 0x7ffea57c7000 - 0x7ffea57c8fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x9a9000 - 0x9c9fff 0x100000000000 - 0x1000000bffff 0x1545e0bd7000 - 0x1545e127bfff 0x1545e127c000 - 0x1545e12cffff 0x1545e12d0000 - 0x1545e12d2fff 0x1545e12d3000 - 0x1545e12f7fff 0x1545e12f8000 - 0x1545e1447fff 0x1545e1448000 - 0x1545e1492fff 0x1545e1493000 - 0x1545e1495fff 0x1545e1496000 - 0x1545e1498fff 0x1545e1499000 - 0x1545e149cfff 0x1545e149d000 - 0x1545e149ffff 0x1545e14a0000 - 0x1545e14b1fff 0x1545e14b2000 - 0x1545e14b5fff 0x1545e14b6000 - 0x1545e14b6fff 0x1545e14b7000 - 0x1545e14b7fff 0x1545e14b8000 - 0x1545e14b9fff 0x1545e14ba000 - 0x1545e14cafff 0x1545e14cb000 - 0x1545e1502fff 0x1545e1503000 - 0x1545e1639fff 0x1545e163a000 - 0x1545e163dfff 0x1545e163e000 - 0x1545e163efff 0x1545e163f000 - 0x1545e163ffff 0x1545e1640000 - 0x1545e1641fff 0x1545e1642000 - 0x1545e1642fff 0x1545e1643000 - 0x1545e1643fff 0x1545e1644000 - 0x1545e1644fff 0x1545e1645000 - 0x1545e1646fff 0x1545e1647000 - 0x1545e1649fff 0x1545e164a000 - 0x1545e164afff 0x1545e164b000 - 0x1545e164bfff 0x1545e164c000 - 0x1545e164cfff 0x1545e164d000 - 0x1545e164efff 0x1545e164f000 - 0x1545e1650fff 0x1545e1651000 - 0x1545e1651fff 0x1545e1652000 - 0x1545e1652fff 0x1545e1653000 - 0x1545e1653fff 0x1545e1654000 - 0x1545e1661fff 0x1545e1662000 - 0x1545e166ffff 0x1545e1670000 - 0x1545e167dfff 0x1545e167e000 - 0x1545e1681fff 0x1545e1682000 - 0x1545e1682fff 0x1545e1683000 - 0x1545e1698fff 0x1545e1699000 - 0x1545e16c4fff 0x1545e16c5000 - 0x1545e16cdfff 0x1545e16ce000 - 0x1545e16cefff 0x1545e16cf000 - 0x1545e16d1fff 0x1545e16d2000 - 0x1545e16d7fff 0x1545e16d8000 - 0x1545e16dafff 0x1545e16dd000 - 0x1545e16ddfff 0x1545e16de000 - 0x1545e16defff 0x1545e16df000 - 0x1545e16e5fff 0x1545e16e6000 - 0x1545e16e7fff 0x1545e16e8000 - 0x1545e1708fff 0x1545e1709000 - 0x1545e1710fff 0x1545e1711000 - 0x1545e1711fff 0x1545e1712000 - 0x1545e1712fff 0x1545e1713000 - 0x1545e1713fff 0x1545e1714000 - 0x1545e1714fff 0x7ffd5535d000 - 0x7ffd5537dfff 0x7ffd5538b000 - 0x7ffd5538efff 0x7ffd5538f000 - 0x7ffd55390fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1679000 - 0x1699fff 0x100000000000 - 0x1000000bffff 0x14c6ff3ba000 - 0x14c6ffa5efff 0x14c6ffa5f000 - 0x14c6ffab2fff 0x14c6ffab3000 - 0x14c6ffab5fff 0x14c6ffab6000 - 0x14c6ffadafff 0x14c6ffadb000 - 0x14c6ffc2afff 0x14c6ffc2b000 - 0x14c6ffc75fff 0x14c6ffc76000 - 0x14c6ffc78fff 0x14c6ffc79000 - 0x14c6ffc7bfff 0x14c6ffc7c000 - 0x14c6ffc7ffff 0x14c6ffc80000 - 0x14c6ffc82fff 0x14c6ffc83000 - 0x14c6ffc94fff 0x14c6ffc95000 - 0x14c6ffc98fff 0x14c6ffc99000 - 0x14c6ffc99fff 0x14c6ffc9a000 - 0x14c6ffc9afff 0x14c6ffc9b000 - 0x14c6ffc9cfff 0x14c6ffc9d000 - 0x14c6ffcadfff 0x14c6ffcae000 - 0x14c6ffce5fff 0x14c6ffce6000 - 0x14c6ffe1cfff 0x14c6ffe1d000 - 0x14c6ffe20fff 0x14c6ffe21000 - 0x14c6ffe21fff 0x14c6ffe22000 - 0x14c6ffe22fff 0x14c6ffe23000 - 0x14c6ffe24fff 0x14c6ffe25000 - 0x14c6ffe25fff 0x14c6ffe26000 - 0x14c6ffe26fff 0x14c6ffe27000 - 0x14c6ffe27fff 0x14c6ffe28000 - 0x14c6ffe29fff 0x14c6ffe2a000 - 0x14c6ffe2cfff 0x14c6ffe2d000 - 0x14c6ffe2dfff 0x14c6ffe2e000 - 0x14c6ffe2efff 0x14c6ffe2f000 - 0x14c6ffe2ffff 0x14c6ffe30000 - 0x14c6ffe31fff 0x14c6ffe32000 - 0x14c6ffe33fff 0x14c6ffe34000 - 0x14c6ffe34fff 0x14c6ffe35000 - 0x14c6ffe35fff 0x14c6ffe36000 - 0x14c6ffe36fff 0x14c6ffe37000 - 0x14c6ffe44fff 0x14c6ffe45000 - 0x14c6ffe52fff 0x14c6ffe53000 - 0x14c6ffe60fff 0x14c6ffe61000 - 0x14c6ffe64fff 0x14c6ffe65000 - 0x14c6ffe65fff 0x14c6ffe66000 - 0x14c6ffe7bfff 0x14c6ffe7c000 - 0x14c6ffea7fff 0x14c6ffea8000 - 0x14c6ffeb0fff 0x14c6ffeb1000 - 0x14c6ffeb1fff 0x14c6ffeb2000 - 0x14c6ffeb4fff 0x14c6ffeb5000 - 0x14c6ffebafff 0x14c6ffebb000 - 0x14c6ffebdfff 0x14c6ffec0000 - 0x14c6ffec0fff 0x14c6ffec1000 - 0x14c6ffec1fff 0x14c6ffec2000 - 0x14c6ffec8fff 0x14c6ffec9000 - 0x14c6ffecafff 0x14c6ffecb000 - 0x14c6ffeebfff 0x14c6ffeec000 - 0x14c6ffef3fff 0x14c6ffef4000 - 0x14c6ffef4fff 0x14c6ffef5000 - 0x14c6ffef5fff 0x14c6ffef6000 - 0x14c6ffef6fff 0x14c6ffef7000 - 0x14c6ffef7fff 0x7ffd3618d000 - 0x7ffd361adfff 0x7ffd361f8000 - 0x7ffd361fbfff 0x7ffd361fc000 - 0x7ffd361fdfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x203c000 - 0x205cfff 0x100000000000 - 0x1000000bffff 0x14fcb6a9c000 - 0x14fcb7140fff 0x14fcb7141000 - 0x14fcb7194fff 0x14fcb7195000 - 0x14fcb7197fff 0x14fcb7198000 - 0x14fcb71bcfff 0x14fcb71bd000 - 0x14fcb730cfff 0x14fcb730d000 - 0x14fcb7357fff 0x14fcb7358000 - 0x14fcb735afff 0x14fcb735b000 - 0x14fcb735dfff 0x14fcb735e000 - 0x14fcb7361fff 0x14fcb7362000 - 0x14fcb7364fff 0x14fcb7365000 - 0x14fcb7376fff 0x14fcb7377000 - 0x14fcb737afff 0x14fcb737b000 - 0x14fcb737bfff 0x14fcb737c000 - 0x14fcb737cfff 0x14fcb737d000 - 0x14fcb737efff 0x14fcb737f000 - 0x14fcb738ffff 0x14fcb7390000 - 0x14fcb73c7fff 0x14fcb73c8000 - 0x14fcb74fefff 0x14fcb74ff000 - 0x14fcb7502fff 0x14fcb7503000 - 0x14fcb7503fff 0x14fcb7504000 - 0x14fcb7504fff 0x14fcb7505000 - 0x14fcb7506fff 0x14fcb7507000 - 0x14fcb7507fff 0x14fcb7508000 - 0x14fcb7508fff 0x14fcb7509000 - 0x14fcb7509fff 0x14fcb750a000 - 0x14fcb750bfff 0x14fcb750c000 - 0x14fcb750efff 0x14fcb750f000 - 0x14fcb750ffff 0x14fcb7510000 - 0x14fcb7510fff 0x14fcb7511000 - 0x14fcb7511fff 0x14fcb7512000 - 0x14fcb7513fff 0x14fcb7514000 - 0x14fcb7515fff 0x14fcb7516000 - 0x14fcb7516fff 0x14fcb7517000 - 0x14fcb7517fff 0x14fcb7518000 - 0x14fcb7518fff 0x14fcb7519000 - 0x14fcb7526fff 0x14fcb7527000 - 0x14fcb7534fff 0x14fcb7535000 - 0x14fcb7542fff 0x14fcb7543000 - 0x14fcb7546fff 0x14fcb7547000 - 0x14fcb7547fff 0x14fcb7548000 - 0x14fcb755dfff 0x14fcb755e000 - 0x14fcb7589fff 0x14fcb758a000 - 0x14fcb7592fff 0x14fcb7593000 - 0x14fcb7593fff 0x14fcb7594000 - 0x14fcb7596fff 0x14fcb7597000 - 0x14fcb759cfff 0x14fcb759d000 - 0x14fcb759ffff 0x14fcb75a2000 - 0x14fcb75a2fff 0x14fcb75a3000 - 0x14fcb75a3fff 0x14fcb75a4000 - 0x14fcb75aafff 0x14fcb75ab000 - 0x14fcb75acfff 0x14fcb75ad000 - 0x14fcb75cdfff 0x14fcb75ce000 - 0x14fcb75d5fff 0x14fcb75d6000 - 0x14fcb75d6fff 0x14fcb75d7000 - 0x14fcb75d7fff 0x14fcb75d8000 - 0x14fcb75d8fff 0x14fcb75d9000 - 0x14fcb75d9fff 0x7ffc84b53000 - 0x7ffc84b73fff 0x7ffc84b95000 - 0x7ffc84b98fff 0x7ffc84b99000 - 0x7ffc84b9afff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xaee000 - 0xb0efff 0x100000000000 - 0x1000000bffff 0x148de9331000 - 0x148de99d5fff 0x148de99d6000 - 0x148de9a29fff 0x148de9a2a000 - 0x148de9a2cfff 0x148de9a2d000 - 0x148de9a51fff 0x148de9a52000 - 0x148de9ba1fff 0x148de9ba2000 - 0x148de9becfff 0x148de9bed000 - 0x148de9beffff 0x148de9bf0000 - 0x148de9bf2fff 0x148de9bf3000 - 0x148de9bf6fff 0x148de9bf7000 - 0x148de9bf9fff 0x148de9bfa000 - 0x148de9c0bfff 0x148de9c0c000 - 0x148de9c0ffff 0x148de9c10000 - 0x148de9c10fff 0x148de9c11000 - 0x148de9c11fff 0x148de9c12000 - 0x148de9c13fff 0x148de9c14000 - 0x148de9c24fff 0x148de9c25000 - 0x148de9c5cfff 0x148de9c5d000 - 0x148de9d93fff 0x148de9d94000 - 0x148de9d97fff 0x148de9d98000 - 0x148de9d98fff 0x148de9d99000 - 0x148de9d99fff 0x148de9d9a000 - 0x148de9d9bfff 0x148de9d9c000 - 0x148de9d9cfff 0x148de9d9d000 - 0x148de9d9dfff 0x148de9d9e000 - 0x148de9d9efff 0x148de9d9f000 - 0x148de9da0fff 0x148de9da1000 - 0x148de9da3fff 0x148de9da4000 - 0x148de9da4fff 0x148de9da5000 - 0x148de9da5fff 0x148de9da6000 - 0x148de9da6fff 0x148de9da7000 - 0x148de9da8fff 0x148de9da9000 - 0x148de9daafff 0x148de9dab000 - 0x148de9dabfff 0x148de9dac000 - 0x148de9dacfff 0x148de9dad000 - 0x148de9dadfff 0x148de9dae000 - 0x148de9dbbfff 0x148de9dbc000 - 0x148de9dc9fff 0x148de9dca000 - 0x148de9dd7fff 0x148de9dd8000 - 0x148de9ddbfff 0x148de9ddc000 - 0x148de9ddcfff 0x148de9ddd000 - 0x148de9df2fff 0x148de9df3000 - 0x148de9e1efff 0x148de9e1f000 - 0x148de9e27fff 0x148de9e28000 - 0x148de9e28fff 0x148de9e29000 - 0x148de9e2bfff 0x148de9e2c000 - 0x148de9e31fff 0x148de9e32000 - 0x148de9e34fff 0x148de9e37000 - 0x148de9e37fff 0x148de9e38000 - 0x148de9e38fff 0x148de9e39000 - 0x148de9e3ffff 0x148de9e40000 - 0x148de9e41fff 0x148de9e42000 - 0x148de9e62fff 0x148de9e63000 - 0x148de9e6afff 0x148de9e6b000 - 0x148de9e6bfff 0x148de9e6c000 - 0x148de9e6cfff 0x148de9e6d000 - 0x148de9e6dfff 0x148de9e6e000 - 0x148de9e6efff 0x7ffdf0528000 - 0x7ffdf0548fff 0x7ffdf05df000 - 0x7ffdf05e2fff 0x7ffdf05e3000 - 0x7ffdf05e4fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xa64000 - 0xa84fff 0x100000000000 - 0x1000000bffff 0x14cce10dc000 - 0x14cce1780fff 0x14cce1781000 - 0x14cce17d4fff 0x14cce17d5000 - 0x14cce17d7fff 0x14cce17d8000 - 0x14cce17fcfff 0x14cce17fd000 - 0x14cce194cfff 0x14cce194d000 - 0x14cce1997fff 0x14cce1998000 - 0x14cce199afff 0x14cce199b000 - 0x14cce199dfff 0x14cce199e000 - 0x14cce19a1fff 0x14cce19a2000 - 0x14cce19a4fff 0x14cce19a5000 - 0x14cce19b6fff 0x14cce19b7000 - 0x14cce19bafff 0x14cce19bb000 - 0x14cce19bbfff 0x14cce19bc000 - 0x14cce19bcfff 0x14cce19bd000 - 0x14cce19befff 0x14cce19bf000 - 0x14cce19cffff 0x14cce19d0000 - 0x14cce1a07fff 0x14cce1a08000 - 0x14cce1b3efff 0x14cce1b3f000 - 0x14cce1b42fff 0x14cce1b43000 - 0x14cce1b43fff 0x14cce1b44000 - 0x14cce1b44fff 0x14cce1b45000 - 0x14cce1b46fff 0x14cce1b47000 - 0x14cce1b47fff 0x14cce1b48000 - 0x14cce1b48fff 0x14cce1b49000 - 0x14cce1b49fff 0x14cce1b4a000 - 0x14cce1b4bfff 0x14cce1b4c000 - 0x14cce1b4efff 0x14cce1b4f000 - 0x14cce1b4ffff 0x14cce1b50000 - 0x14cce1b50fff 0x14cce1b51000 - 0x14cce1b51fff 0x14cce1b52000 - 0x14cce1b53fff 0x14cce1b54000 - 0x14cce1b55fff 0x14cce1b56000 - 0x14cce1b56fff 0x14cce1b57000 - 0x14cce1b57fff 0x14cce1b58000 - 0x14cce1b58fff 0x14cce1b59000 - 0x14cce1b66fff 0x14cce1b67000 - 0x14cce1b74fff 0x14cce1b75000 - 0x14cce1b82fff 0x14cce1b83000 - 0x14cce1b86fff 0x14cce1b87000 - 0x14cce1b87fff 0x14cce1b88000 - 0x14cce1b9dfff 0x14cce1b9e000 - 0x14cce1bc9fff 0x14cce1bca000 - 0x14cce1bd2fff 0x14cce1bd3000 - 0x14cce1bd3fff 0x14cce1bd4000 - 0x14cce1bd6fff 0x14cce1bd7000 - 0x14cce1bdcfff 0x14cce1bdd000 - 0x14cce1bdffff 0x14cce1be2000 - 0x14cce1be2fff 0x14cce1be3000 - 0x14cce1be3fff 0x14cce1be4000 - 0x14cce1beafff 0x14cce1beb000 - 0x14cce1becfff 0x14cce1bed000 - 0x14cce1c0dfff 0x14cce1c0e000 - 0x14cce1c15fff 0x14cce1c16000 - 0x14cce1c16fff 0x14cce1c17000 - 0x14cce1c17fff 0x14cce1c18000 - 0x14cce1c18fff 0x14cce1c19000 - 0x14cce1c19fff 0x7ffcd9ae7000 - 0x7ffcd9b07fff 0x7ffcd9b98000 - 0x7ffcd9b9bfff 0x7ffcd9b9c000 - 0x7ffcd9b9dfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x2255000 - 0x2275fff 0x100000000000 - 0x1000000bffff 0x14b5c9f95000 - 0x14b5ca639fff 0x14b5ca63a000 - 0x14b5ca68dfff 0x14b5ca68e000 - 0x14b5ca690fff 0x14b5ca691000 - 0x14b5ca6b5fff 0x14b5ca6b6000 - 0x14b5ca805fff 0x14b5ca806000 - 0x14b5ca850fff 0x14b5ca851000 - 0x14b5ca853fff 0x14b5ca854000 - 0x14b5ca856fff 0x14b5ca857000 - 0x14b5ca85afff 0x14b5ca85b000 - 0x14b5ca85dfff 0x14b5ca85e000 - 0x14b5ca86ffff 0x14b5ca870000 - 0x14b5ca873fff 0x14b5ca874000 - 0x14b5ca874fff 0x14b5ca875000 - 0x14b5ca875fff 0x14b5ca876000 - 0x14b5ca877fff 0x14b5ca878000 - 0x14b5ca888fff 0x14b5ca889000 - 0x14b5ca8c0fff 0x14b5ca8c1000 - 0x14b5ca9f7fff 0x14b5ca9f8000 - 0x14b5ca9fbfff 0x14b5ca9fc000 - 0x14b5ca9fcfff 0x14b5ca9fd000 - 0x14b5ca9fdfff 0x14b5ca9fe000 - 0x14b5ca9fffff 0x14b5caa00000 - 0x14b5caa00fff 0x14b5caa01000 - 0x14b5caa01fff 0x14b5caa02000 - 0x14b5caa02fff 0x14b5caa03000 - 0x14b5caa04fff 0x14b5caa05000 - 0x14b5caa07fff 0x14b5caa08000 - 0x14b5caa08fff 0x14b5caa09000 - 0x14b5caa09fff 0x14b5caa0a000 - 0x14b5caa0afff 0x14b5caa0b000 - 0x14b5caa0cfff 0x14b5caa0d000 - 0x14b5caa0efff 0x14b5caa0f000 - 0x14b5caa0ffff 0x14b5caa10000 - 0x14b5caa10fff 0x14b5caa11000 - 0x14b5caa11fff 0x14b5caa12000 - 0x14b5caa1ffff 0x14b5caa20000 - 0x14b5caa2dfff 0x14b5caa2e000 - 0x14b5caa3bfff 0x14b5caa3c000 - 0x14b5caa3ffff 0x14b5caa40000 - 0x14b5caa40fff 0x14b5caa41000 - 0x14b5caa56fff 0x14b5caa57000 - 0x14b5caa82fff 0x14b5caa83000 - 0x14b5caa8bfff 0x14b5caa8c000 - 0x14b5caa8cfff 0x14b5caa8d000 - 0x14b5caa8ffff 0x14b5caa90000 - 0x14b5caa95fff 0x14b5caa96000 - 0x14b5caa98fff 0x14b5caa9b000 - 0x14b5caa9bfff 0x14b5caa9c000 - 0x14b5caa9cfff 0x14b5caa9d000 - 0x14b5caaa3fff 0x14b5caaa4000 - 0x14b5caaa5fff 0x14b5caaa6000 - 0x14b5caac6fff 0x14b5caac7000 - 0x14b5caacefff 0x14b5caacf000 - 0x14b5caacffff 0x14b5caad0000 - 0x14b5caad0fff 0x14b5caad1000 - 0x14b5caad1fff 0x14b5caad2000 - 0x14b5caad2fff 0x7ffd498ac000 - 0x7ffd498ccfff 0x7ffd4993f000 - 0x7ffd49942fff 0x7ffd49943000 - 0x7ffd49944fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x21ca000 - 0x21eafff 0x100000000000 - 0x1000000bffff 0x147b00498000 - 0x147b00b3cfff 0x147b00b3d000 - 0x147b00b90fff 0x147b00b91000 - 0x147b00b93fff 0x147b00b94000 - 0x147b00bb8fff 0x147b00bb9000 - 0x147b00d08fff 0x147b00d09000 - 0x147b00d53fff 0x147b00d54000 - 0x147b00d56fff 0x147b00d57000 - 0x147b00d59fff 0x147b00d5a000 - 0x147b00d5dfff 0x147b00d5e000 - 0x147b00d60fff 0x147b00d61000 - 0x147b00d72fff 0x147b00d73000 - 0x147b00d76fff 0x147b00d77000 - 0x147b00d77fff 0x147b00d78000 - 0x147b00d78fff 0x147b00d79000 - 0x147b00d7afff 0x147b00d7b000 - 0x147b00d8bfff 0x147b00d8c000 - 0x147b00dc3fff 0x147b00dc4000 - 0x147b00efafff 0x147b00efb000 - 0x147b00efefff 0x147b00eff000 - 0x147b00efffff 0x147b00f00000 - 0x147b00f00fff 0x147b00f01000 - 0x147b00f02fff 0x147b00f03000 - 0x147b00f03fff 0x147b00f04000 - 0x147b00f04fff 0x147b00f05000 - 0x147b00f05fff 0x147b00f06000 - 0x147b00f07fff 0x147b00f08000 - 0x147b00f0afff 0x147b00f0b000 - 0x147b00f0bfff 0x147b00f0c000 - 0x147b00f0cfff 0x147b00f0d000 - 0x147b00f0dfff 0x147b00f0e000 - 0x147b00f0ffff 0x147b00f10000 - 0x147b00f11fff 0x147b00f12000 - 0x147b00f12fff 0x147b00f13000 - 0x147b00f13fff 0x147b00f14000 - 0x147b00f14fff 0x147b00f15000 - 0x147b00f22fff 0x147b00f23000 - 0x147b00f30fff 0x147b00f31000 - 0x147b00f3efff 0x147b00f3f000 - 0x147b00f42fff 0x147b00f43000 - 0x147b00f43fff 0x147b00f44000 - 0x147b00f59fff 0x147b00f5a000 - 0x147b00f85fff 0x147b00f86000 - 0x147b00f8efff 0x147b00f8f000 - 0x147b00f8ffff 0x147b00f90000 - 0x147b00f92fff 0x147b00f93000 - 0x147b00f98fff 0x147b00f99000 - 0x147b00f9bfff 0x147b00f9e000 - 0x147b00f9efff 0x147b00f9f000 - 0x147b00f9ffff 0x147b00fa0000 - 0x147b00fa6fff 0x147b00fa7000 - 0x147b00fa8fff 0x147b00fa9000 - 0x147b00fc9fff 0x147b00fca000 - 0x147b00fd1fff 0x147b00fd2000 - 0x147b00fd2fff 0x147b00fd3000 - 0x147b00fd3fff 0x147b00fd4000 - 0x147b00fd4fff 0x147b00fd5000 - 0x147b00fd5fff 0x7ffe2329a000 - 0x7ffe232bafff 0x7ffe232c6000 - 0x7ffe232c9fff 0x7ffe232ca000 - 0x7ffe232cbfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xf7a000 - 0xf9afff 0x100000000000 - 0x1000000bffff 0x151d3334b000 - 0x151d339effff 0x151d339f0000 - 0x151d33a43fff 0x151d33a44000 - 0x151d33a46fff 0x151d33a47000 - 0x151d33a6bfff 0x151d33a6c000 - 0x151d33bbbfff 0x151d33bbc000 - 0x151d33c06fff 0x151d33c07000 - 0x151d33c09fff 0x151d33c0a000 - 0x151d33c0cfff 0x151d33c0d000 - 0x151d33c10fff 0x151d33c11000 - 0x151d33c13fff 0x151d33c14000 - 0x151d33c25fff 0x151d33c26000 - 0x151d33c29fff 0x151d33c2a000 - 0x151d33c2afff 0x151d33c2b000 - 0x151d33c2bfff 0x151d33c2c000 - 0x151d33c2dfff 0x151d33c2e000 - 0x151d33c3efff 0x151d33c3f000 - 0x151d33c76fff 0x151d33c77000 - 0x151d33dadfff 0x151d33dae000 - 0x151d33db1fff 0x151d33db2000 - 0x151d33db2fff 0x151d33db3000 - 0x151d33db3fff 0x151d33db4000 - 0x151d33db5fff 0x151d33db6000 - 0x151d33db6fff 0x151d33db7000 - 0x151d33db7fff 0x151d33db8000 - 0x151d33db8fff 0x151d33db9000 - 0x151d33dbafff 0x151d33dbb000 - 0x151d33dbdfff 0x151d33dbe000 - 0x151d33dbefff 0x151d33dbf000 - 0x151d33dbffff 0x151d33dc0000 - 0x151d33dc0fff 0x151d33dc1000 - 0x151d33dc2fff 0x151d33dc3000 - 0x151d33dc4fff 0x151d33dc5000 - 0x151d33dc5fff 0x151d33dc6000 - 0x151d33dc6fff 0x151d33dc7000 - 0x151d33dc7fff 0x151d33dc8000 - 0x151d33dd5fff 0x151d33dd6000 - 0x151d33de3fff 0x151d33de4000 - 0x151d33df1fff 0x151d33df2000 - 0x151d33df5fff 0x151d33df6000 - 0x151d33df6fff 0x151d33df7000 - 0x151d33e0cfff 0x151d33e0d000 - 0x151d33e38fff 0x151d33e39000 - 0x151d33e41fff 0x151d33e42000 - 0x151d33e42fff 0x151d33e43000 - 0x151d33e45fff 0x151d33e46000 - 0x151d33e4bfff 0x151d33e4c000 - 0x151d33e4efff 0x151d33e51000 - 0x151d33e51fff 0x151d33e52000 - 0x151d33e52fff 0x151d33e53000 - 0x151d33e59fff 0x151d33e5a000 - 0x151d33e5bfff 0x151d33e5c000 - 0x151d33e7cfff 0x151d33e7d000 - 0x151d33e84fff 0x151d33e85000 - 0x151d33e85fff 0x151d33e86000 - 0x151d33e86fff 0x151d33e87000 - 0x151d33e87fff 0x151d33e88000 - 0x151d33e88fff 0x7ffe5bb90000 - 0x7ffe5bbb0fff 0x7ffe5bbc4000 - 0x7ffe5bbc7fff 0x7ffe5bbc8000 - 0x7ffe5bbc9fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1a30000 - 0x1a50fff 0x100000000000 - 0x1000000bffff 0x1540f28fd000 - 0x1540f2fa1fff 0x1540f2fa2000 - 0x1540f2ff5fff 0x1540f2ff6000 - 0x1540f2ff8fff 0x1540f2ff9000 - 0x1540f301dfff 0x1540f301e000 - 0x1540f316dfff 0x1540f316e000 - 0x1540f31b8fff 0x1540f31b9000 - 0x1540f31bbfff 0x1540f31bc000 - 0x1540f31befff 0x1540f31bf000 - 0x1540f31c2fff 0x1540f31c3000 - 0x1540f31c5fff 0x1540f31c6000 - 0x1540f31d7fff 0x1540f31d8000 - 0x1540f31dbfff 0x1540f31dc000 - 0x1540f31dcfff 0x1540f31dd000 - 0x1540f31ddfff 0x1540f31de000 - 0x1540f31dffff 0x1540f31e0000 - 0x1540f31f0fff 0x1540f31f1000 - 0x1540f3228fff 0x1540f3229000 - 0x1540f335ffff 0x1540f3360000 - 0x1540f3363fff 0x1540f3364000 - 0x1540f3364fff 0x1540f3365000 - 0x1540f3365fff 0x1540f3366000 - 0x1540f3367fff 0x1540f3368000 - 0x1540f3368fff 0x1540f3369000 - 0x1540f3369fff 0x1540f336a000 - 0x1540f336afff 0x1540f336b000 - 0x1540f336cfff 0x1540f336d000 - 0x1540f336ffff 0x1540f3370000 - 0x1540f3370fff 0x1540f3371000 - 0x1540f3371fff 0x1540f3372000 - 0x1540f3372fff 0x1540f3373000 - 0x1540f3374fff 0x1540f3375000 - 0x1540f3376fff 0x1540f3377000 - 0x1540f3377fff 0x1540f3378000 - 0x1540f3378fff 0x1540f3379000 - 0x1540f3379fff 0x1540f337a000 - 0x1540f3387fff 0x1540f3388000 - 0x1540f3395fff 0x1540f3396000 - 0x1540f33a3fff 0x1540f33a4000 - 0x1540f33a7fff 0x1540f33a8000 - 0x1540f33a8fff 0x1540f33a9000 - 0x1540f33befff 0x1540f33bf000 - 0x1540f33eafff 0x1540f33eb000 - 0x1540f33f3fff 0x1540f33f4000 - 0x1540f33f4fff 0x1540f33f5000 - 0x1540f33f7fff 0x1540f33f8000 - 0x1540f33fdfff 0x1540f33fe000 - 0x1540f3400fff 0x1540f3403000 - 0x1540f3403fff 0x1540f3404000 - 0x1540f3404fff 0x1540f3405000 - 0x1540f340bfff 0x1540f340c000 - 0x1540f340dfff 0x1540f340e000 - 0x1540f342efff 0x1540f342f000 - 0x1540f3436fff 0x1540f3437000 - 0x1540f3437fff 0x1540f3438000 - 0x1540f3438fff 0x1540f3439000 - 0x1540f3439fff 0x1540f343a000 - 0x1540f343afff 0x7ffd35aab000 - 0x7ffd35acbfff 0x7ffd35b2f000 - 0x7ffd35b32fff 0x7ffd35b33000 - 0x7ffd35b34fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x888000 - 0x8a8fff 0x100000000000 - 0x1000000bffff 0x151b2f530000 - 0x151b2fbd4fff 0x151b2fbd5000 - 0x151b2fc28fff 0x151b2fc29000 - 0x151b2fc2bfff 0x151b2fc2c000 - 0x151b2fc50fff 0x151b2fc51000 - 0x151b2fda0fff 0x151b2fda1000 - 0x151b2fdebfff 0x151b2fdec000 - 0x151b2fdeefff 0x151b2fdef000 - 0x151b2fdf1fff 0x151b2fdf2000 - 0x151b2fdf5fff 0x151b2fdf6000 - 0x151b2fdf8fff 0x151b2fdf9000 - 0x151b2fe0afff 0x151b2fe0b000 - 0x151b2fe0efff 0x151b2fe0f000 - 0x151b2fe0ffff 0x151b2fe10000 - 0x151b2fe10fff 0x151b2fe11000 - 0x151b2fe12fff 0x151b2fe13000 - 0x151b2fe23fff 0x151b2fe24000 - 0x151b2fe5bfff 0x151b2fe5c000 - 0x151b2ff92fff 0x151b2ff93000 - 0x151b2ff96fff 0x151b2ff97000 - 0x151b2ff97fff 0x151b2ff98000 - 0x151b2ff98fff 0x151b2ff99000 - 0x151b2ff9afff 0x151b2ff9b000 - 0x151b2ff9bfff 0x151b2ff9c000 - 0x151b2ff9cfff 0x151b2ff9d000 - 0x151b2ff9dfff 0x151b2ff9e000 - 0x151b2ff9ffff 0x151b2ffa0000 - 0x151b2ffa2fff 0x151b2ffa3000 - 0x151b2ffa3fff 0x151b2ffa4000 - 0x151b2ffa4fff 0x151b2ffa5000 - 0x151b2ffa5fff 0x151b2ffa6000 - 0x151b2ffa7fff 0x151b2ffa8000 - 0x151b2ffa9fff 0x151b2ffaa000 - 0x151b2ffaafff 0x151b2ffab000 - 0x151b2ffabfff 0x151b2ffac000 - 0x151b2ffacfff 0x151b2ffad000 - 0x151b2ffbafff 0x151b2ffbb000 - 0x151b2ffc8fff 0x151b2ffc9000 - 0x151b2ffd6fff 0x151b2ffd7000 - 0x151b2ffdafff 0x151b2ffdb000 - 0x151b2ffdbfff 0x151b2ffdc000 - 0x151b2fff1fff 0x151b2fff2000 - 0x151b3001dfff 0x151b3001e000 - 0x151b30026fff 0x151b30027000 - 0x151b30027fff 0x151b30028000 - 0x151b3002afff 0x151b3002b000 - 0x151b30030fff 0x151b30031000 - 0x151b30033fff 0x151b30036000 - 0x151b30036fff 0x151b30037000 - 0x151b30037fff 0x151b30038000 - 0x151b3003efff 0x151b3003f000 - 0x151b30040fff 0x151b30041000 - 0x151b30061fff 0x151b30062000 - 0x151b30069fff 0x151b3006a000 - 0x151b3006afff 0x151b3006b000 - 0x151b3006bfff 0x151b3006c000 - 0x151b3006cfff 0x151b3006d000 - 0x151b3006dfff 0x7ffd16c72000 - 0x7ffd16c92fff 0x7ffd16d88000 - 0x7ffd16d8bfff 0x7ffd16d8c000 - 0x7ffd16d8dfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1e1c000 - 0x1e3cfff 0x100000000000 - 0x1000000bffff 0x14be56e2a000 - 0x14be574cefff 0x14be574cf000 - 0x14be57522fff 0x14be57523000 - 0x14be57525fff 0x14be57526000 - 0x14be5754afff 0x14be5754b000 - 0x14be5769afff 0x14be5769b000 - 0x14be576e5fff 0x14be576e6000 - 0x14be576e8fff 0x14be576e9000 - 0x14be576ebfff 0x14be576ec000 - 0x14be576effff 0x14be576f0000 - 0x14be576f2fff 0x14be576f3000 - 0x14be57704fff 0x14be57705000 - 0x14be57708fff 0x14be57709000 - 0x14be57709fff 0x14be5770a000 - 0x14be5770afff 0x14be5770b000 - 0x14be5770cfff 0x14be5770d000 - 0x14be5771dfff 0x14be5771e000 - 0x14be57755fff 0x14be57756000 - 0x14be5788cfff 0x14be5788d000 - 0x14be57890fff 0x14be57891000 - 0x14be57891fff 0x14be57892000 - 0x14be57892fff 0x14be57893000 - 0x14be57894fff 0x14be57895000 - 0x14be57895fff 0x14be57896000 - 0x14be57896fff 0x14be57897000 - 0x14be57897fff 0x14be57898000 - 0x14be57899fff 0x14be5789a000 - 0x14be5789cfff 0x14be5789d000 - 0x14be5789dfff 0x14be5789e000 - 0x14be5789efff 0x14be5789f000 - 0x14be5789ffff 0x14be578a0000 - 0x14be578a1fff 0x14be578a2000 - 0x14be578a3fff 0x14be578a4000 - 0x14be578a4fff 0x14be578a5000 - 0x14be578a5fff 0x14be578a6000 - 0x14be578a6fff 0x14be578a7000 - 0x14be578b4fff 0x14be578b5000 - 0x14be578c2fff 0x14be578c3000 - 0x14be578d0fff 0x14be578d1000 - 0x14be578d4fff 0x14be578d5000 - 0x14be578d5fff 0x14be578d6000 - 0x14be578ebfff 0x14be578ec000 - 0x14be57917fff 0x14be57918000 - 0x14be57920fff 0x14be57921000 - 0x14be57921fff 0x14be57922000 - 0x14be57924fff 0x14be57925000 - 0x14be5792afff 0x14be5792b000 - 0x14be5792dfff 0x14be57930000 - 0x14be57930fff 0x14be57931000 - 0x14be57931fff 0x14be57932000 - 0x14be57938fff 0x14be57939000 - 0x14be5793afff 0x14be5793b000 - 0x14be5795bfff 0x14be5795c000 - 0x14be57963fff 0x14be57964000 - 0x14be57964fff 0x14be57965000 - 0x14be57965fff 0x14be57966000 - 0x14be57966fff 0x14be57967000 - 0x14be57967fff 0x7ffd57e47000 - 0x7ffd57e67fff 0x7ffd57f4d000 - 0x7ffd57f50fff 0x7ffd57f51000 - 0x7ffd57f52fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x215f000 - 0x217ffff 0x100000000000 - 0x1000000bffff 0x14fca5bab000 - 0x14fca624ffff 0x14fca6250000 - 0x14fca62a3fff 0x14fca62a4000 - 0x14fca62a6fff 0x14fca62a7000 - 0x14fca62cbfff 0x14fca62cc000 - 0x14fca641bfff 0x14fca641c000 - 0x14fca6466fff 0x14fca6467000 - 0x14fca6469fff 0x14fca646a000 - 0x14fca646cfff 0x14fca646d000 - 0x14fca6470fff 0x14fca6471000 - 0x14fca6473fff 0x14fca6474000 - 0x14fca6485fff 0x14fca6486000 - 0x14fca6489fff 0x14fca648a000 - 0x14fca648afff 0x14fca648b000 - 0x14fca648bfff 0x14fca648c000 - 0x14fca648dfff 0x14fca648e000 - 0x14fca649efff 0x14fca649f000 - 0x14fca64d6fff 0x14fca64d7000 - 0x14fca660dfff 0x14fca660e000 - 0x14fca6611fff 0x14fca6612000 - 0x14fca6612fff 0x14fca6613000 - 0x14fca6613fff 0x14fca6614000 - 0x14fca6615fff 0x14fca6616000 - 0x14fca6616fff 0x14fca6617000 - 0x14fca6617fff 0x14fca6618000 - 0x14fca6618fff 0x14fca6619000 - 0x14fca661afff 0x14fca661b000 - 0x14fca661dfff 0x14fca661e000 - 0x14fca661efff 0x14fca661f000 - 0x14fca661ffff 0x14fca6620000 - 0x14fca6620fff 0x14fca6621000 - 0x14fca6622fff 0x14fca6623000 - 0x14fca6624fff 0x14fca6625000 - 0x14fca6625fff 0x14fca6626000 - 0x14fca6626fff 0x14fca6627000 - 0x14fca6627fff 0x14fca6628000 - 0x14fca6635fff 0x14fca6636000 - 0x14fca6643fff 0x14fca6644000 - 0x14fca6651fff 0x14fca6652000 - 0x14fca6655fff 0x14fca6656000 - 0x14fca6656fff 0x14fca6657000 - 0x14fca666cfff 0x14fca666d000 - 0x14fca6698fff 0x14fca6699000 - 0x14fca66a1fff 0x14fca66a2000 - 0x14fca66a2fff 0x14fca66a3000 - 0x14fca66a5fff 0x14fca66a6000 - 0x14fca66abfff 0x14fca66ac000 - 0x14fca66aefff 0x14fca66b1000 - 0x14fca66b1fff 0x14fca66b2000 - 0x14fca66b2fff 0x14fca66b3000 - 0x14fca66b9fff 0x14fca66ba000 - 0x14fca66bbfff 0x14fca66bc000 - 0x14fca66dcfff 0x14fca66dd000 - 0x14fca66e4fff 0x14fca66e5000 - 0x14fca66e5fff 0x14fca66e6000 - 0x14fca66e6fff 0x14fca66e7000 - 0x14fca66e7fff 0x14fca66e8000 - 0x14fca66e8fff 0x7ffdde1d9000 - 0x7ffdde1f9fff 0x7ffdde1fa000 - 0x7ffdde1fdfff 0x7ffdde1fe000 - 0x7ffdde1fffff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xce8000 - 0xd08fff 0x100000000000 - 0x1000000bffff 0x1477811fd000 - 0x1477818a1fff 0x1477818a2000 - 0x1477818f5fff 0x1477818f6000 - 0x1477818f8fff 0x1477818f9000 - 0x14778191dfff 0x14778191e000 - 0x147781a6dfff 0x147781a6e000 - 0x147781ab8fff 0x147781ab9000 - 0x147781abbfff 0x147781abc000 - 0x147781abefff 0x147781abf000 - 0x147781ac2fff 0x147781ac3000 - 0x147781ac5fff 0x147781ac6000 - 0x147781ad7fff 0x147781ad8000 - 0x147781adbfff 0x147781adc000 - 0x147781adcfff 0x147781add000 - 0x147781addfff 0x147781ade000 - 0x147781adffff 0x147781ae0000 - 0x147781af0fff 0x147781af1000 - 0x147781b28fff 0x147781b29000 - 0x147781c5ffff 0x147781c60000 - 0x147781c63fff 0x147781c64000 - 0x147781c64fff 0x147781c65000 - 0x147781c65fff 0x147781c66000 - 0x147781c67fff 0x147781c68000 - 0x147781c68fff 0x147781c69000 - 0x147781c69fff 0x147781c6a000 - 0x147781c6afff 0x147781c6b000 - 0x147781c6cfff 0x147781c6d000 - 0x147781c6ffff 0x147781c70000 - 0x147781c70fff 0x147781c71000 - 0x147781c71fff 0x147781c72000 - 0x147781c72fff 0x147781c73000 - 0x147781c74fff 0x147781c75000 - 0x147781c76fff 0x147781c77000 - 0x147781c77fff 0x147781c78000 - 0x147781c78fff 0x147781c79000 - 0x147781c79fff 0x147781c7a000 - 0x147781c87fff 0x147781c88000 - 0x147781c95fff 0x147781c96000 - 0x147781ca3fff 0x147781ca4000 - 0x147781ca7fff 0x147781ca8000 - 0x147781ca8fff 0x147781ca9000 - 0x147781cbefff 0x147781cbf000 - 0x147781ceafff 0x147781ceb000 - 0x147781cf3fff 0x147781cf4000 - 0x147781cf4fff 0x147781cf5000 - 0x147781cf7fff 0x147781cf8000 - 0x147781cfdfff 0x147781cfe000 - 0x147781d00fff 0x147781d03000 - 0x147781d03fff 0x147781d04000 - 0x147781d04fff 0x147781d05000 - 0x147781d0bfff 0x147781d0c000 - 0x147781d0dfff 0x147781d0e000 - 0x147781d2efff 0x147781d2f000 - 0x147781d36fff 0x147781d37000 - 0x147781d37fff 0x147781d38000 - 0x147781d38fff 0x147781d39000 - 0x147781d39fff 0x147781d3a000 - 0x147781d3afff 0x7ffc2c367000 - 0x7ffc2c387fff 0x7ffc2c3e6000 - 0x7ffc2c3e9fff 0x7ffc2c3ea000 - 0x7ffc2c3ebfff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1396000 - 0x13b6fff 0x100000000000 - 0x1000000bffff 0x1492563ee000 - 0x149256a92fff 0x149256a93000 - 0x149256ae6fff 0x149256ae7000 - 0x149256ae9fff 0x149256aea000 - 0x149256b0efff 0x149256b0f000 - 0x149256c5efff 0x149256c5f000 - 0x149256ca9fff 0x149256caa000 - 0x149256cacfff 0x149256cad000 - 0x149256caffff 0x149256cb0000 - 0x149256cb3fff 0x149256cb4000 - 0x149256cb6fff 0x149256cb7000 - 0x149256cc8fff 0x149256cc9000 - 0x149256cccfff 0x149256ccd000 - 0x149256ccdfff 0x149256cce000 - 0x149256ccefff 0x149256ccf000 - 0x149256cd0fff 0x149256cd1000 - 0x149256ce1fff 0x149256ce2000 - 0x149256d19fff 0x149256d1a000 - 0x149256e50fff 0x149256e51000 - 0x149256e54fff 0x149256e55000 - 0x149256e55fff 0x149256e56000 - 0x149256e56fff 0x149256e57000 - 0x149256e58fff 0x149256e59000 - 0x149256e59fff 0x149256e5a000 - 0x149256e5afff 0x149256e5b000 - 0x149256e5bfff 0x149256e5c000 - 0x149256e5dfff 0x149256e5e000 - 0x149256e60fff 0x149256e61000 - 0x149256e61fff 0x149256e62000 - 0x149256e62fff 0x149256e63000 - 0x149256e63fff 0x149256e64000 - 0x149256e65fff 0x149256e66000 - 0x149256e67fff 0x149256e68000 - 0x149256e68fff 0x149256e69000 - 0x149256e69fff 0x149256e6a000 - 0x149256e6afff 0x149256e6b000 - 0x149256e78fff 0x149256e79000 - 0x149256e86fff 0x149256e87000 - 0x149256e94fff 0x149256e95000 - 0x149256e98fff 0x149256e99000 - 0x149256e99fff 0x149256e9a000 - 0x149256eaffff 0x149256eb0000 - 0x149256edbfff 0x149256edc000 - 0x149256ee4fff 0x149256ee5000 - 0x149256ee5fff 0x149256ee6000 - 0x149256ee8fff 0x149256ee9000 - 0x149256eeefff 0x149256eef000 - 0x149256ef1fff 0x149256ef4000 - 0x149256ef4fff 0x149256ef5000 - 0x149256ef5fff 0x149256ef6000 - 0x149256efcfff 0x149256efd000 - 0x149256efefff 0x149256eff000 - 0x149256f1ffff 0x149256f20000 - 0x149256f27fff 0x149256f28000 - 0x149256f28fff 0x149256f29000 - 0x149256f29fff 0x149256f2a000 - 0x149256f2afff 0x149256f2b000 - 0x149256f2bfff 0x7ffcc0ecd000 - 0x7ffcc0eedfff 0x7ffcc0f45000 - 0x7ffcc0f48fff 0x7ffcc0f49000 - 0x7ffcc0f4afff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xcd4000 - 0xcf4fff 0x100000000000 - 0x1000000bffff 0x152f5af16000 - 0x152f5b5bafff 0x152f5b5bb000 - 0x152f5b60efff 0x152f5b60f000 - 0x152f5b611fff 0x152f5b612000 - 0x152f5b636fff 0x152f5b637000 - 0x152f5b786fff 0x152f5b787000 - 0x152f5b7d1fff 0x152f5b7d2000 - 0x152f5b7d4fff 0x152f5b7d5000 - 0x152f5b7d7fff 0x152f5b7d8000 - 0x152f5b7dbfff 0x152f5b7dc000 - 0x152f5b7defff 0x152f5b7df000 - 0x152f5b7f0fff 0x152f5b7f1000 - 0x152f5b7f4fff 0x152f5b7f5000 - 0x152f5b7f5fff 0x152f5b7f6000 - 0x152f5b7f6fff 0x152f5b7f7000 - 0x152f5b7f8fff 0x152f5b7f9000 - 0x152f5b809fff 0x152f5b80a000 - 0x152f5b841fff 0x152f5b842000 - 0x152f5b978fff 0x152f5b979000 - 0x152f5b97cfff 0x152f5b97d000 - 0x152f5b97dfff 0x152f5b97e000 - 0x152f5b97efff 0x152f5b97f000 - 0x152f5b980fff 0x152f5b981000 - 0x152f5b981fff 0x152f5b982000 - 0x152f5b982fff 0x152f5b983000 - 0x152f5b983fff 0x152f5b984000 - 0x152f5b985fff 0x152f5b986000 - 0x152f5b988fff 0x152f5b989000 - 0x152f5b989fff 0x152f5b98a000 - 0x152f5b98afff 0x152f5b98b000 - 0x152f5b98bfff 0x152f5b98c000 - 0x152f5b98dfff 0x152f5b98e000 - 0x152f5b98ffff 0x152f5b990000 - 0x152f5b990fff 0x152f5b991000 - 0x152f5b991fff 0x152f5b992000 - 0x152f5b992fff 0x152f5b993000 - 0x152f5b9a0fff 0x152f5b9a1000 - 0x152f5b9aefff 0x152f5b9af000 - 0x152f5b9bcfff 0x152f5b9bd000 - 0x152f5b9c0fff 0x152f5b9c1000 - 0x152f5b9c1fff 0x152f5b9c2000 - 0x152f5b9d7fff 0x152f5b9d8000 - 0x152f5ba03fff 0x152f5ba04000 - 0x152f5ba0cfff 0x152f5ba0d000 - 0x152f5ba0dfff 0x152f5ba0e000 - 0x152f5ba10fff 0x152f5ba11000 - 0x152f5ba16fff 0x152f5ba17000 - 0x152f5ba19fff 0x152f5ba1c000 - 0x152f5ba1cfff 0x152f5ba1d000 - 0x152f5ba1dfff 0x152f5ba1e000 - 0x152f5ba24fff 0x152f5ba25000 - 0x152f5ba26fff 0x152f5ba27000 - 0x152f5ba47fff 0x152f5ba48000 - 0x152f5ba4ffff 0x152f5ba50000 - 0x152f5ba50fff 0x152f5ba51000 - 0x152f5ba51fff 0x152f5ba52000 - 0x152f5ba52fff 0x152f5ba53000 - 0x152f5ba53fff 0x7ffd0bbed000 - 0x7ffd0bc0dfff 0x7ffd0bd51000 - 0x7ffd0bd54fff 0x7ffd0bd55000 - 0x7ffd0bd56fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x13aa000 - 0x13cafff 0x100000000000 - 0x1000000bffff 0x14f48295a000 - 0x14f482ffefff 0x14f482fff000 - 0x14f483052fff 0x14f483053000 - 0x14f483055fff 0x14f483056000 - 0x14f48307afff 0x14f48307b000 - 0x14f4831cafff 0x14f4831cb000 - 0x14f483215fff 0x14f483216000 - 0x14f483218fff 0x14f483219000 - 0x14f48321bfff 0x14f48321c000 - 0x14f48321ffff 0x14f483220000 - 0x14f483222fff 0x14f483223000 - 0x14f483234fff 0x14f483235000 - 0x14f483238fff 0x14f483239000 - 0x14f483239fff 0x14f48323a000 - 0x14f48323afff 0x14f48323b000 - 0x14f48323cfff 0x14f48323d000 - 0x14f48324dfff 0x14f48324e000 - 0x14f483285fff 0x14f483286000 - 0x14f4833bcfff 0x14f4833bd000 - 0x14f4833c0fff 0x14f4833c1000 - 0x14f4833c1fff 0x14f4833c2000 - 0x14f4833c2fff 0x14f4833c3000 - 0x14f4833c4fff 0x14f4833c5000 - 0x14f4833c5fff 0x14f4833c6000 - 0x14f4833c6fff 0x14f4833c7000 - 0x14f4833c7fff 0x14f4833c8000 - 0x14f4833c9fff 0x14f4833ca000 - 0x14f4833ccfff 0x14f4833cd000 - 0x14f4833cdfff 0x14f4833ce000 - 0x14f4833cefff 0x14f4833cf000 - 0x14f4833cffff 0x14f4833d0000 - 0x14f4833d1fff 0x14f4833d2000 - 0x14f4833d3fff 0x14f4833d4000 - 0x14f4833d4fff 0x14f4833d5000 - 0x14f4833d5fff 0x14f4833d6000 - 0x14f4833d6fff 0x14f4833d7000 - 0x14f4833e4fff 0x14f4833e5000 - 0x14f4833f2fff 0x14f4833f3000 - 0x14f483400fff 0x14f483401000 - 0x14f483404fff 0x14f483405000 - 0x14f483405fff 0x14f483406000 - 0x14f48341bfff 0x14f48341c000 - 0x14f483447fff 0x14f483448000 - 0x14f483450fff 0x14f483451000 - 0x14f483451fff 0x14f483452000 - 0x14f483454fff 0x14f483455000 - 0x14f48345afff 0x14f48345b000 - 0x14f48345dfff 0x14f483460000 - 0x14f483460fff 0x14f483461000 - 0x14f483461fff 0x14f483462000 - 0x14f483468fff 0x14f483469000 - 0x14f48346afff 0x14f48346b000 - 0x14f48348bfff 0x14f48348c000 - 0x14f483493fff 0x14f483494000 - 0x14f483494fff 0x14f483495000 - 0x14f483495fff 0x14f483496000 - 0x14f483496fff 0x14f483497000 - 0x14f483497fff 0x7ffecef11000 - 0x7ffecef31fff 0x7ffecef81000 - 0x7ffecef84fff 0x7ffecef85000 - 0x7ffecef86fff 0xffffffffff600000 - 0xffffffffff600fff 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1bf6000 - 0x1c16fff 0x100000000000 - 0x1000000bffff 0x14ed8629d000 - 0x14ed86941fff 0x14ed86942000 - 0x14ed86995fff 0x14ed86996000 - 0x14ed86998fff 0x14ed86999000 - 0x14ed869bdfff 0x14ed869be000 - 0x14ed86b0dfff 0x14ed86b0e000 - 0x14ed86b58fff 0x14ed86b59000 - 0x14ed86b5bfff 0x14ed86b5c000 - 0x14ed86b5efff 0x14ed86b5f000 - 0x14ed86b62fff 0x14ed86b63000 - 0x14ed86b65fff 0x14ed86b66000 - 0x14ed86b77fff 0x14ed86b78000 - 0x14ed86b7bfff 0x14ed86b7c000 - 0x14ed86b7cfff 0x14ed86b7d000 - 0x14ed86b7dfff 0x14ed86b7e000 - 0x14ed86b7ffff 0x14ed86b80000 - 0x14ed86b90fff 0x14ed86b91000 - 0x14ed86bc8fff 0x14ed86bc9000 - 0x14ed86cfffff 0x14ed86d00000 - 0x14ed86d03fff 0x14ed86d04000 - 0x14ed86d04fff 0x14ed86d05000 - 0x14ed86d05fff 0x14ed86d06000 - 0x14ed86d07fff 0x14ed86d08000 - 0x14ed86d08fff 0x14ed86d09000 - 0x14ed86d09fff 0x14ed86d0a000 - 0x14ed86d0afff 0x14ed86d0b000 - 0x14ed86d0cfff 0x14ed86d0d000 - 0x14ed86d0ffff 0x14ed86d10000 - 0x14ed86d10fff 0x14ed86d11000 - 0x14ed86d11fff 0x14ed86d12000 - 0x14ed86d12fff 0x14ed86d13000 - 0x14ed86d14fff 0x14ed86d15000 - 0x14ed86d16fff 0x14ed86d17000 - 0x14ed86d17fff 0x14ed86d18000 - 0x14ed86d18fff 0x14ed86d19000 - 0x14ed86d19fff 0x14ed86d1a000 - 0x14ed86d27fff 0x14ed86d28000 - 0x14ed86d35fff 0x14ed86d36000 - 0x14ed86d43fff 0x14ed86d44000 - 0x14ed86d47fff 0x14ed86d48000 - 0x14ed86d48fff 0x14ed86d49000 - 0x14ed86d5efff 0x14ed86d5f000 - 0x14ed86d8afff 0x14ed86d8b000 - 0x14ed86d93fff 0x14ed86d94000 - 0x14ed86d94fff 0x14ed86d95000 - 0x14ed86d97fff 0x14ed86d98000 - 0x14ed86d9dfff 0x14ed86d9e000 - 0x14ed86da0fff 0x14ed86da3000 - 0x14ed86da3fff 0x14ed86da4000 - 0x14ed86da4fff 0x14ed86da5000 - 0x14ed86dabfff 0x14ed86dac000 - 0x14ed86dadfff 0x14ed86dae000 - 0x14ed86dcefff 0x14ed86dcf000 - 0x14ed86dd6fff 0x14ed86dd7000 - 0x14ed86dd7fff 0x14ed86dd8000 - 0x14ed86dd8fff 0x14ed86dd9000 - 0x14ed86dd9fff 0x14ed86dda000 - 0x14ed86ddafff 0x7ffdbc276000 - 0x7ffdbc296fff 0x7ffdbc3a8000 - 0x7ffdbc3abfff 0x7ffdbc3ac000 - 0x7ffdbc3adfff 0xffffffffff600000 - 0xffffffffff600fff 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1031000 - 0x1051fff 0x100000000000 - 0x1000000bffff 0x153d9e694000 - 0x153d9ed38fff 0x153d9ed39000 - 0x153d9ed8cfff 0x153d9ed8d000 - 0x153d9ed8ffff 0x153d9ed90000 - 0x153d9edb4fff 0x153d9edb5000 - 0x153d9ef04fff 0x153d9ef05000 - 0x153d9ef4ffff 0x153d9ef50000 - 0x153d9ef52fff 0x153d9ef53000 - 0x153d9ef55fff 0x153d9ef56000 - 0x153d9ef59fff 0x153d9ef5a000 - 0x153d9ef5cfff 0x153d9ef5d000 - 0x153d9ef6efff 0x153d9ef6f000 - 0x153d9ef72fff 0x153d9ef73000 - 0x153d9ef73fff 0x153d9ef74000 - 0x153d9ef74fff 0x153d9ef75000 - 0x153d9ef76fff 0x153d9ef77000 - 0x153d9ef87fff 0x153d9ef88000 - 0x153d9efbffff 0x153d9efc0000 - 0x153d9f0f6fff 0x153d9f0f7000 - 0x153d9f0fafff 0x153d9f0fb000 - 0x153d9f0fbfff 0x153d9f0fc000 - 0x153d9f0fcfff 0x153d9f0fd000 - 0x153d9f0fefff 0x153d9f0ff000 - 0x153d9f0fffff 0x153d9f100000 - 0x153d9f100fff 0x153d9f101000 - 0x153d9f101fff 0x153d9f102000 - 0x153d9f103fff 0x153d9f104000 - 0x153d9f106fff 0x153d9f107000 - 0x153d9f107fff 0x153d9f108000 - 0x153d9f108fff 0x153d9f109000 - 0x153d9f109fff 0x153d9f10a000 - 0x153d9f10bfff 0x153d9f10c000 - 0x153d9f10dfff 0x153d9f10e000 - 0x153d9f10efff 0x153d9f10f000 - 0x153d9f10ffff 0x153d9f110000 - 0x153d9f110fff 0x153d9f111000 - 0x153d9f11efff 0x153d9f11f000 - 0x153d9f12cfff 0x153d9f12d000 - 0x153d9f13afff 0x153d9f13b000 - 0x153d9f13efff 0x153d9f13f000 - 0x153d9f13ffff 0x153d9f140000 - 0x153d9f155fff 0x153d9f156000 - 0x153d9f181fff 0x153d9f182000 - 0x153d9f18afff 0x153d9f18b000 - 0x153d9f18bfff 0x153d9f18c000 - 0x153d9f18efff 0x153d9f18f000 - 0x153d9f194fff 0x153d9f195000 - 0x153d9f197fff 0x153d9f19a000 - 0x153d9f19afff 0x153d9f19b000 - 0x153d9f19bfff 0x153d9f19c000 - 0x153d9f1a2fff 0x153d9f1a3000 - 0x153d9f1a4fff 0x153d9f1a5000 - 0x153d9f1c5fff 0x153d9f1c6000 - 0x153d9f1cdfff 0x153d9f1ce000 - 0x153d9f1cefff 0x153d9f1cf000 - 0x153d9f1cffff 0x153d9f1d0000 - 0x153d9f1d0fff 0x153d9f1d1000 - 0x153d9f1d1fff 0x7ffd6cca2000 - 0x7ffd6ccc2fff 0x7ffd6cd45000 - 0x7ffd6cd48fff 0x7ffd6cd49000 - 0x7ffd6cd4afff 0xffffffffff600000 - 0xffffffffff600fff 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x20f2000 - 0x2112fff 0x100000000000 - 0x1000000bffff 0x14f7190a5000 - 0x14f719749fff 0x14f71974a000 - 0x14f71979dfff 0x14f71979e000 - 0x14f7197a0fff 0x14f7197a1000 - 0x14f7197c5fff 0x14f7197c6000 - 0x14f719915fff 0x14f719916000 - 0x14f719960fff 0x14f719961000 - 0x14f719963fff 0x14f719964000 - 0x14f719966fff 0x14f719967000 - 0x14f71996afff 0x14f71996b000 - 0x14f71996dfff 0x14f71996e000 - 0x14f71997ffff 0x14f719980000 - 0x14f719983fff 0x14f719984000 - 0x14f719984fff 0x14f719985000 - 0x14f719985fff 0x14f719986000 - 0x14f719987fff 0x14f719988000 - 0x14f719998fff 0x14f719999000 - 0x14f7199d0fff 0x14f7199d1000 - 0x14f719b07fff 0x14f719b08000 - 0x14f719b0bfff 0x14f719b0c000 - 0x14f719b0cfff 0x14f719b0d000 - 0x14f719b0dfff 0x14f719b0e000 - 0x14f719b0ffff 0x14f719b10000 - 0x14f719b10fff 0x14f719b11000 - 0x14f719b11fff 0x14f719b12000 - 0x14f719b12fff 0x14f719b13000 - 0x14f719b14fff 0x14f719b15000 - 0x14f719b17fff 0x14f719b18000 - 0x14f719b18fff 0x14f719b19000 - 0x14f719b19fff 0x14f719b1a000 - 0x14f719b1afff 0x14f719b1b000 - 0x14f719b1cfff 0x14f719b1d000 - 0x14f719b1efff 0x14f719b1f000 - 0x14f719b1ffff 0x14f719b20000 - 0x14f719b20fff 0x14f719b21000 - 0x14f719b21fff 0x14f719b22000 - 0x14f719b2ffff 0x14f719b30000 - 0x14f719b3dfff 0x14f719b3e000 - 0x14f719b4bfff 0x14f719b4c000 - 0x14f719b4ffff 0x14f719b50000 - 0x14f719b50fff 0x14f719b51000 - 0x14f719b66fff 0x14f719b67000 - 0x14f719b92fff 0x14f719b93000 - 0x14f719b9bfff 0x14f719b9c000 - 0x14f719b9cfff 0x14f719b9d000 - 0x14f719b9ffff 0x14f719ba0000 - 0x14f719ba5fff 0x14f719ba6000 - 0x14f719ba8fff 0x14f719bab000 - 0x14f719babfff 0x14f719bac000 - 0x14f719bacfff 0x14f719bad000 - 0x14f719bb3fff 0x14f719bb4000 - 0x14f719bb5fff 0x14f719bb6000 - 0x14f719bd6fff 0x14f719bd7000 - 0x14f719bdefff 0x14f719bdf000 - 0x14f719bdffff 0x14f719be0000 - 0x14f719be0fff 0x14f719be1000 - 0x14f719be1fff 0x14f719be2000 - 0x14f719be2fff 0x7fffd4b76000 - 0x7fffd4b96fff 0x7fffd4be4000 - 0x7fffd4be7fff 0x7fffd4be8000 - 0x7fffd4be9fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x626000 - 0x646fff 0x100000000000 - 0x1000000bffff 0x1485e6ca4000 - 0x1485e7348fff 0x1485e7349000 - 0x1485e739cfff 0x1485e739d000 - 0x1485e739ffff 0x1485e73a0000 - 0x1485e73c4fff 0x1485e73c5000 - 0x1485e7514fff 0x1485e7515000 - 0x1485e755ffff 0x1485e7560000 - 0x1485e7562fff 0x1485e7563000 - 0x1485e7565fff 0x1485e7566000 - 0x1485e7569fff 0x1485e756a000 - 0x1485e756cfff 0x1485e756d000 - 0x1485e757efff 0x1485e757f000 - 0x1485e7582fff 0x1485e7583000 - 0x1485e7583fff 0x1485e7584000 - 0x1485e7584fff 0x1485e7585000 - 0x1485e7586fff 0x1485e7587000 - 0x1485e7597fff 0x1485e7598000 - 0x1485e75cffff 0x1485e75d0000 - 0x1485e7706fff 0x1485e7707000 - 0x1485e770afff 0x1485e770b000 - 0x1485e770bfff 0x1485e770c000 - 0x1485e770cfff 0x1485e770d000 - 0x1485e770efff 0x1485e770f000 - 0x1485e770ffff 0x1485e7710000 - 0x1485e7710fff 0x1485e7711000 - 0x1485e7711fff 0x1485e7712000 - 0x1485e7713fff 0x1485e7714000 - 0x1485e7716fff 0x1485e7717000 - 0x1485e7717fff 0x1485e7718000 - 0x1485e7718fff 0x1485e7719000 - 0x1485e7719fff 0x1485e771a000 - 0x1485e771bfff 0x1485e771c000 - 0x1485e771dfff 0x1485e771e000 - 0x1485e771efff 0x1485e771f000 - 0x1485e771ffff 0x1485e7720000 - 0x1485e7720fff 0x1485e7721000 - 0x1485e772efff 0x1485e772f000 - 0x1485e773cfff 0x1485e773d000 - 0x1485e774afff 0x1485e774b000 - 0x1485e774efff 0x1485e774f000 - 0x1485e774ffff 0x1485e7750000 - 0x1485e7765fff 0x1485e7766000 - 0x1485e7791fff 0x1485e7792000 - 0x1485e779afff 0x1485e779b000 - 0x1485e779bfff 0x1485e779c000 - 0x1485e779efff 0x1485e779f000 - 0x1485e77a4fff 0x1485e77a5000 - 0x1485e77a7fff 0x1485e77aa000 - 0x1485e77aafff 0x1485e77ab000 - 0x1485e77abfff 0x1485e77ac000 - 0x1485e77b2fff 0x1485e77b3000 - 0x1485e77b4fff 0x1485e77b5000 - 0x1485e77d5fff 0x1485e77d6000 - 0x1485e77ddfff 0x1485e77de000 - 0x1485e77defff 0x1485e77df000 - 0x1485e77dffff 0x1485e77e0000 - 0x1485e77e0fff 0x1485e77e1000 - 0x1485e77e1fff 0x7ffd4a005000 - 0x7ffd4a025fff 0x7ffd4a0c5000 - 0x7ffd4a0c8fff 0x7ffd4a0c9000 - 0x7ffd4a0cafff 0xffffffffff600000 - 0xffffffffff600fff (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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x156e000 - 0x158efff 0x100000000000 - 0x1000000bffff 0x14ea8d707000 - 0x14ea8ddabfff 0x14ea8ddac000 - 0x14ea8ddfffff 0x14ea8de00000 - 0x14ea8de02fff 0x14ea8de03000 - 0x14ea8de27fff 0x14ea8de28000 - 0x14ea8df77fff 0x14ea8df78000 - 0x14ea8dfc2fff 0x14ea8dfc3000 - 0x14ea8dfc5fff 0x14ea8dfc6000 - 0x14ea8dfc8fff 0x14ea8dfc9000 - 0x14ea8dfccfff 0x14ea8dfcd000 - 0x14ea8dfcffff 0x14ea8dfd0000 - 0x14ea8dfe1fff 0x14ea8dfe2000 - 0x14ea8dfe5fff 0x14ea8dfe6000 - 0x14ea8dfe6fff 0x14ea8dfe7000 - 0x14ea8dfe7fff 0x14ea8dfe8000 - 0x14ea8dfe9fff 0x14ea8dfea000 - 0x14ea8dffafff 0x14ea8dffb000 - 0x14ea8e032fff 0x14ea8e033000 - 0x14ea8e169fff 0x14ea8e16a000 - 0x14ea8e16dfff 0x14ea8e16e000 - 0x14ea8e16efff 0x14ea8e16f000 - 0x14ea8e16ffff 0x14ea8e170000 - 0x14ea8e171fff 0x14ea8e172000 - 0x14ea8e172fff 0x14ea8e173000 - 0x14ea8e173fff 0x14ea8e174000 - 0x14ea8e174fff 0x14ea8e175000 - 0x14ea8e176fff 0x14ea8e177000 - 0x14ea8e179fff 0x14ea8e17a000 - 0x14ea8e17afff 0x14ea8e17b000 - 0x14ea8e17bfff 0x14ea8e17c000 - 0x14ea8e17cfff 0x14ea8e17d000 - 0x14ea8e17efff 0x14ea8e17f000 - 0x14ea8e180fff 0x14ea8e181000 - 0x14ea8e181fff 0x14ea8e182000 - 0x14ea8e182fff 0x14ea8e183000 - 0x14ea8e183fff 0x14ea8e184000 - 0x14ea8e191fff 0x14ea8e192000 - 0x14ea8e19ffff 0x14ea8e1a0000 - 0x14ea8e1adfff 0x14ea8e1ae000 - 0x14ea8e1b1fff 0x14ea8e1b2000 - 0x14ea8e1b2fff 0x14ea8e1b3000 - 0x14ea8e1c8fff 0x14ea8e1c9000 - 0x14ea8e1f4fff 0x14ea8e1f5000 - 0x14ea8e1fdfff 0x14ea8e1fe000 - 0x14ea8e1fefff 0x14ea8e1ff000 - 0x14ea8e201fff 0x14ea8e202000 - 0x14ea8e207fff 0x14ea8e208000 - 0x14ea8e20afff 0x14ea8e20d000 - 0x14ea8e20dfff 0x14ea8e20e000 - 0x14ea8e20efff 0x14ea8e20f000 - 0x14ea8e215fff 0x14ea8e216000 - 0x14ea8e217fff 0x14ea8e218000 - 0x14ea8e238fff 0x14ea8e239000 - 0x14ea8e240fff 0x14ea8e241000 - 0x14ea8e241fff 0x14ea8e242000 - 0x14ea8e242fff 0x14ea8e243000 - 0x14ea8e243fff 0x14ea8e244000 - 0x14ea8e244fff 0x7ffea2f00000 - 0x7ffea2f20fff 0x7ffea2fa6000 - 0x7ffea2fa9fff 0x7ffea2faa000 - 0x7ffea2fabfff 0xffffffffff600000 - 0xffffffffff600fff 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x8f5000 - 0x915fff 0x100000000000 - 0x1000000bffff 0x147033dd5000 - 0x147034479fff 0x14703447a000 - 0x1470344cdfff 0x1470344ce000 - 0x1470344d0fff 0x1470344d1000 - 0x1470344f5fff 0x1470344f6000 - 0x147034645fff 0x147034646000 - 0x147034690fff 0x147034691000 - 0x147034693fff 0x147034694000 - 0x147034696fff 0x147034697000 - 0x14703469afff 0x14703469b000 - 0x14703469dfff 0x14703469e000 - 0x1470346affff 0x1470346b0000 - 0x1470346b3fff 0x1470346b4000 - 0x1470346b4fff 0x1470346b5000 - 0x1470346b5fff 0x1470346b6000 - 0x1470346b7fff 0x1470346b8000 - 0x1470346c8fff 0x1470346c9000 - 0x147034700fff 0x147034701000 - 0x147034837fff 0x147034838000 - 0x14703483bfff 0x14703483c000 - 0x14703483cfff 0x14703483d000 - 0x14703483dfff 0x14703483e000 - 0x14703483ffff 0x147034840000 - 0x147034840fff 0x147034841000 - 0x147034841fff 0x147034842000 - 0x147034842fff 0x147034843000 - 0x147034844fff 0x147034845000 - 0x147034847fff 0x147034848000 - 0x147034848fff 0x147034849000 - 0x147034849fff 0x14703484a000 - 0x14703484afff 0x14703484b000 - 0x14703484cfff 0x14703484d000 - 0x14703484efff 0x14703484f000 - 0x14703484ffff 0x147034850000 - 0x147034850fff 0x147034851000 - 0x147034851fff 0x147034852000 - 0x14703485ffff 0x147034860000 - 0x14703486dfff 0x14703486e000 - 0x14703487bfff 0x14703487c000 - 0x14703487ffff 0x147034880000 - 0x147034880fff 0x147034881000 - 0x147034896fff 0x147034897000 - 0x1470348c2fff 0x1470348c3000 - 0x1470348cbfff 0x1470348cc000 - 0x1470348ccfff 0x1470348cd000 - 0x1470348cffff 0x1470348d0000 - 0x1470348d5fff 0x1470348d6000 - 0x1470348d8fff 0x1470348db000 - 0x1470348dbfff 0x1470348dc000 - 0x1470348dcfff 0x1470348dd000 - 0x1470348e3fff 0x1470348e4000 - 0x1470348e5fff 0x1470348e6000 - 0x147034906fff 0x147034907000 - 0x14703490efff 0x14703490f000 - 0x14703490ffff 0x147034910000 - 0x147034910fff 0x147034911000 - 0x147034911fff 0x147034912000 - 0x147034912fff 0x7fff887e4000 - 0x7fff88804fff 0x7fff889d4000 - 0x7fff889d7fff 0x7fff889d8000 - 0x7fff889d9fff 0xffffffffff600000 - 0xffffffffff600fff 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x103f000 - 0x105ffff 0x100000000000 - 0x1000000bffff 0x1536f57b5000 - 0x1536f5e59fff 0x1536f5e5a000 - 0x1536f5eadfff 0x1536f5eae000 - 0x1536f5eb0fff 0x1536f5eb1000 - 0x1536f5ed5fff 0x1536f5ed6000 - 0x1536f6025fff 0x1536f6026000 - 0x1536f6070fff 0x1536f6071000 - 0x1536f6073fff 0x1536f6074000 - 0x1536f6076fff 0x1536f6077000 - 0x1536f607afff 0x1536f607b000 - 0x1536f607dfff 0x1536f607e000 - 0x1536f608ffff 0x1536f6090000 - 0x1536f6093fff 0x1536f6094000 - 0x1536f6094fff 0x1536f6095000 - 0x1536f6095fff 0x1536f6096000 - 0x1536f6097fff 0x1536f6098000 - 0x1536f60a8fff 0x1536f60a9000 - 0x1536f60e0fff 0x1536f60e1000 - 0x1536f6217fff 0x1536f6218000 - 0x1536f621bfff 0x1536f621c000 - 0x1536f621cfff 0x1536f621d000 - 0x1536f621dfff 0x1536f621e000 - 0x1536f621ffff 0x1536f6220000 - 0x1536f6220fff 0x1536f6221000 - 0x1536f6221fff 0x1536f6222000 - 0x1536f6222fff 0x1536f6223000 - 0x1536f6224fff 0x1536f6225000 - 0x1536f6227fff 0x1536f6228000 - 0x1536f6228fff 0x1536f6229000 - 0x1536f6229fff 0x1536f622a000 - 0x1536f622afff 0x1536f622b000 - 0x1536f622cfff 0x1536f622d000 - 0x1536f622efff 0x1536f622f000 - 0x1536f622ffff 0x1536f6230000 - 0x1536f6230fff 0x1536f6231000 - 0x1536f6231fff 0x1536f6232000 - 0x1536f623ffff 0x1536f6240000 - 0x1536f624dfff 0x1536f624e000 - 0x1536f625bfff 0x1536f625c000 - 0x1536f625ffff 0x1536f6260000 - 0x1536f6260fff 0x1536f6261000 - 0x1536f6276fff 0x1536f6277000 - 0x1536f62a2fff 0x1536f62a3000 - 0x1536f62abfff 0x1536f62ac000 - 0x1536f62acfff 0x1536f62ad000 - 0x1536f62affff 0x1536f62b0000 - 0x1536f62b5fff 0x1536f62b6000 - 0x1536f62b8fff 0x1536f62bb000 - 0x1536f62bbfff 0x1536f62bc000 - 0x1536f62bcfff 0x1536f62bd000 - 0x1536f62c3fff 0x1536f62c4000 - 0x1536f62c5fff 0x1536f62c6000 - 0x1536f62e6fff 0x1536f62e7000 - 0x1536f62eefff 0x1536f62ef000 - 0x1536f62effff 0x1536f62f0000 - 0x1536f62f0fff 0x1536f62f1000 - 0x1536f62f1fff 0x1536f62f2000 - 0x1536f62f2fff 0x7fff48fd5000 - 0x7fff48ff5fff 0x7fff48ff6000 - 0x7fff48ff9fff 0x7fff48ffa000 - 0x7fff48ffbfff 0xffffffffff600000 - 0xffffffffff600fff 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x2194000 - 0x21b4fff 0x100000000000 - 0x1000000bffff 0x15455671c000 - 0x154556dc0fff 0x154556dc1000 - 0x154556e14fff 0x154556e15000 - 0x154556e17fff 0x154556e18000 - 0x154556e3cfff 0x154556e3d000 - 0x154556f8cfff 0x154556f8d000 - 0x154556fd7fff 0x154556fd8000 - 0x154556fdafff 0x154556fdb000 - 0x154556fddfff 0x154556fde000 - 0x154556fe1fff 0x154556fe2000 - 0x154556fe4fff 0x154556fe5000 - 0x154556ff6fff 0x154556ff7000 - 0x154556ffafff 0x154556ffb000 - 0x154556ffbfff 0x154556ffc000 - 0x154556ffcfff 0x154556ffd000 - 0x154556ffefff 0x154556fff000 - 0x15455700ffff 0x154557010000 - 0x154557047fff 0x154557048000 - 0x15455717efff 0x15455717f000 - 0x154557182fff 0x154557183000 - 0x154557183fff 0x154557184000 - 0x154557184fff 0x154557185000 - 0x154557186fff 0x154557187000 - 0x154557187fff 0x154557188000 - 0x154557188fff 0x154557189000 - 0x154557189fff 0x15455718a000 - 0x15455718bfff 0x15455718c000 - 0x15455718efff 0x15455718f000 - 0x15455718ffff 0x154557190000 - 0x154557190fff 0x154557191000 - 0x154557191fff 0x154557192000 - 0x154557193fff 0x154557194000 - 0x154557195fff 0x154557196000 - 0x154557196fff 0x154557197000 - 0x154557197fff 0x154557198000 - 0x154557198fff 0x154557199000 - 0x1545571a6fff 0x1545571a7000 - 0x1545571b4fff 0x1545571b5000 - 0x1545571c2fff 0x1545571c3000 - 0x1545571c6fff 0x1545571c7000 - 0x1545571c7fff 0x1545571c8000 - 0x1545571ddfff 0x1545571de000 - 0x154557209fff 0x15455720a000 - 0x154557212fff 0x154557213000 - 0x154557213fff 0x154557214000 - 0x154557216fff 0x154557217000 - 0x15455721cfff 0x15455721d000 - 0x15455721ffff 0x154557222000 - 0x154557222fff 0x154557223000 - 0x154557223fff 0x154557224000 - 0x15455722afff 0x15455722b000 - 0x15455722cfff 0x15455722d000 - 0x15455724dfff 0x15455724e000 - 0x154557255fff 0x154557256000 - 0x154557256fff 0x154557257000 - 0x154557257fff 0x154557258000 - 0x154557258fff 0x154557259000 - 0x154557259fff 0x7fffb6126000 - 0x7fffb6146fff 0x7fffb61b5000 - 0x7fffb61b8fff 0x7fffb61b9000 - 0x7fffb61bafff 0xffffffffff600000 - 0xffffffffff600fff 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xc34000 - 0xc54fff 0x100000000000 - 0x1000000bffff 0x1545fb28e000 - 0x1545fb932fff 0x1545fb933000 - 0x1545fb986fff 0x1545fb987000 - 0x1545fb989fff 0x1545fb98a000 - 0x1545fb9aefff 0x1545fb9af000 - 0x1545fbafefff 0x1545fbaff000 - 0x1545fbb49fff 0x1545fbb4a000 - 0x1545fbb4cfff 0x1545fbb4d000 - 0x1545fbb4ffff 0x1545fbb50000 - 0x1545fbb53fff 0x1545fbb54000 - 0x1545fbb56fff 0x1545fbb57000 - 0x1545fbb68fff 0x1545fbb69000 - 0x1545fbb6cfff 0x1545fbb6d000 - 0x1545fbb6dfff 0x1545fbb6e000 - 0x1545fbb6efff 0x1545fbb6f000 - 0x1545fbb70fff 0x1545fbb71000 - 0x1545fbb81fff 0x1545fbb82000 - 0x1545fbbb9fff 0x1545fbbba000 - 0x1545fbcf0fff 0x1545fbcf1000 - 0x1545fbcf4fff 0x1545fbcf5000 - 0x1545fbcf5fff 0x1545fbcf6000 - 0x1545fbcf6fff 0x1545fbcf7000 - 0x1545fbcf8fff 0x1545fbcf9000 - 0x1545fbcf9fff 0x1545fbcfa000 - 0x1545fbcfafff 0x1545fbcfb000 - 0x1545fbcfbfff 0x1545fbcfc000 - 0x1545fbcfdfff 0x1545fbcfe000 - 0x1545fbd00fff 0x1545fbd01000 - 0x1545fbd01fff 0x1545fbd02000 - 0x1545fbd02fff 0x1545fbd03000 - 0x1545fbd03fff 0x1545fbd04000 - 0x1545fbd05fff 0x1545fbd06000 - 0x1545fbd07fff 0x1545fbd08000 - 0x1545fbd08fff 0x1545fbd09000 - 0x1545fbd09fff 0x1545fbd0a000 - 0x1545fbd0afff 0x1545fbd0b000 - 0x1545fbd18fff 0x1545fbd19000 - 0x1545fbd26fff 0x1545fbd27000 - 0x1545fbd34fff 0x1545fbd35000 - 0x1545fbd38fff 0x1545fbd39000 - 0x1545fbd39fff 0x1545fbd3a000 - 0x1545fbd4ffff 0x1545fbd50000 - 0x1545fbd7bfff 0x1545fbd7c000 - 0x1545fbd84fff 0x1545fbd85000 - 0x1545fbd85fff 0x1545fbd86000 - 0x1545fbd88fff 0x1545fbd89000 - 0x1545fbd8efff 0x1545fbd8f000 - 0x1545fbd91fff 0x1545fbd94000 - 0x1545fbd94fff 0x1545fbd95000 - 0x1545fbd95fff 0x1545fbd96000 - 0x1545fbd9cfff 0x1545fbd9d000 - 0x1545fbd9efff 0x1545fbd9f000 - 0x1545fbdbffff 0x1545fbdc0000 - 0x1545fbdc7fff 0x1545fbdc8000 - 0x1545fbdc8fff 0x1545fbdc9000 - 0x1545fbdc9fff 0x1545fbdca000 - 0x1545fbdcafff 0x1545fbdcb000 - 0x1545fbdcbfff 0x7ffec653e000 - 0x7ffec655efff 0x7ffec65dc000 - 0x7ffec65dffff 0x7ffec65e0000 - 0x7ffec65e1fff 0xffffffffff600000 - 0xffffffffff600fff 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1a4d000 - 0x1a6dfff 0x100000000000 - 0x1000000bffff 0x14c2a9461000 - 0x14c2a9b05fff 0x14c2a9b06000 - 0x14c2a9b59fff 0x14c2a9b5a000 - 0x14c2a9b5cfff 0x14c2a9b5d000 - 0x14c2a9b81fff 0x14c2a9b82000 - 0x14c2a9cd1fff 0x14c2a9cd2000 - 0x14c2a9d1cfff 0x14c2a9d1d000 - 0x14c2a9d1ffff 0x14c2a9d20000 - 0x14c2a9d22fff 0x14c2a9d23000 - 0x14c2a9d26fff 0x14c2a9d27000 - 0x14c2a9d29fff 0x14c2a9d2a000 - 0x14c2a9d3bfff 0x14c2a9d3c000 - 0x14c2a9d3ffff 0x14c2a9d40000 - 0x14c2a9d40fff 0x14c2a9d41000 - 0x14c2a9d41fff 0x14c2a9d42000 - 0x14c2a9d43fff 0x14c2a9d44000 - 0x14c2a9d54fff 0x14c2a9d55000 - 0x14c2a9d8cfff 0x14c2a9d8d000 - 0x14c2a9ec3fff 0x14c2a9ec4000 - 0x14c2a9ec7fff 0x14c2a9ec8000 - 0x14c2a9ec8fff 0x14c2a9ec9000 - 0x14c2a9ec9fff 0x14c2a9eca000 - 0x14c2a9ecbfff 0x14c2a9ecc000 - 0x14c2a9eccfff 0x14c2a9ecd000 - 0x14c2a9ecdfff 0x14c2a9ece000 - 0x14c2a9ecefff 0x14c2a9ecf000 - 0x14c2a9ed0fff 0x14c2a9ed1000 - 0x14c2a9ed3fff 0x14c2a9ed4000 - 0x14c2a9ed4fff 0x14c2a9ed5000 - 0x14c2a9ed5fff 0x14c2a9ed6000 - 0x14c2a9ed6fff 0x14c2a9ed7000 - 0x14c2a9ed8fff 0x14c2a9ed9000 - 0x14c2a9edafff 0x14c2a9edb000 - 0x14c2a9edbfff 0x14c2a9edc000 - 0x14c2a9edcfff 0x14c2a9edd000 - 0x14c2a9eddfff 0x14c2a9ede000 - 0x14c2a9eebfff 0x14c2a9eec000 - 0x14c2a9ef9fff 0x14c2a9efa000 - 0x14c2a9f07fff 0x14c2a9f08000 - 0x14c2a9f0bfff 0x14c2a9f0c000 - 0x14c2a9f0cfff 0x14c2a9f0d000 - 0x14c2a9f22fff 0x14c2a9f23000 - 0x14c2a9f4efff 0x14c2a9f4f000 - 0x14c2a9f57fff 0x14c2a9f58000 - 0x14c2a9f58fff 0x14c2a9f59000 - 0x14c2a9f5bfff 0x14c2a9f5c000 - 0x14c2a9f61fff 0x14c2a9f62000 - 0x14c2a9f64fff 0x14c2a9f67000 - 0x14c2a9f67fff 0x14c2a9f68000 - 0x14c2a9f68fff 0x14c2a9f69000 - 0x14c2a9f6ffff 0x14c2a9f70000 - 0x14c2a9f71fff 0x14c2a9f72000 - 0x14c2a9f92fff 0x14c2a9f93000 - 0x14c2a9f9afff 0x14c2a9f9b000 - 0x14c2a9f9bfff 0x14c2a9f9c000 - 0x14c2a9f9cfff 0x14c2a9f9d000 - 0x14c2a9f9dfff 0x14c2a9f9e000 - 0x14c2a9f9efff 0x7ffd483a8000 - 0x7ffd483c8fff 0x7ffd483d0000 - 0x7ffd483d3fff 0x7ffd483d4000 - 0x7ffd483d5fff 0xffffffffff600000 - 0xffffffffff600fff (./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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1b6b000 - 0x1b8bfff 0x100000000000 - 0x1000000bffff 0x14e51bbbd000 - 0x14e51c261fff 0x14e51c262000 - 0x14e51c2b5fff 0x14e51c2b6000 - 0x14e51c2b8fff 0x14e51c2b9000 - 0x14e51c2ddfff 0x14e51c2de000 - 0x14e51c42dfff 0x14e51c42e000 - 0x14e51c478fff 0x14e51c479000 - 0x14e51c47bfff 0x14e51c47c000 - 0x14e51c47efff 0x14e51c47f000 - 0x14e51c482fff 0x14e51c483000 - 0x14e51c485fff 0x14e51c486000 - 0x14e51c497fff 0x14e51c498000 - 0x14e51c49bfff 0x14e51c49c000 - 0x14e51c49cfff 0x14e51c49d000 - 0x14e51c49dfff 0x14e51c49e000 - 0x14e51c49ffff 0x14e51c4a0000 - 0x14e51c4b0fff 0x14e51c4b1000 - 0x14e51c4e8fff 0x14e51c4e9000 - 0x14e51c61ffff 0x14e51c620000 - 0x14e51c623fff 0x14e51c624000 - 0x14e51c624fff 0x14e51c625000 - 0x14e51c625fff 0x14e51c626000 - 0x14e51c627fff 0x14e51c628000 - 0x14e51c628fff 0x14e51c629000 - 0x14e51c629fff 0x14e51c62a000 - 0x14e51c62afff 0x14e51c62b000 - 0x14e51c62cfff 0x14e51c62d000 - 0x14e51c62ffff 0x14e51c630000 - 0x14e51c630fff 0x14e51c631000 - 0x14e51c631fff 0x14e51c632000 - 0x14e51c632fff 0x14e51c633000 - 0x14e51c634fff 0x14e51c635000 - 0x14e51c636fff 0x14e51c637000 - 0x14e51c637fff 0x14e51c638000 - 0x14e51c638fff 0x14e51c639000 - 0x14e51c639fff 0x14e51c63a000 - 0x14e51c647fff 0x14e51c648000 - 0x14e51c655fff 0x14e51c656000 - 0x14e51c663fff 0x14e51c664000 - 0x14e51c667fff 0x14e51c668000 - 0x14e51c668fff 0x14e51c669000 - 0x14e51c67efff 0x14e51c67f000 - 0x14e51c6aafff 0x14e51c6ab000 - 0x14e51c6b3fff 0x14e51c6b4000 - 0x14e51c6b4fff 0x14e51c6b5000 - 0x14e51c6b7fff 0x14e51c6b8000 - 0x14e51c6bdfff 0x14e51c6be000 - 0x14e51c6c0fff 0x14e51c6c3000 - 0x14e51c6c3fff 0x14e51c6c4000 - 0x14e51c6c4fff 0x14e51c6c5000 - 0x14e51c6cbfff 0x14e51c6cc000 - 0x14e51c6cdfff 0x14e51c6ce000 - 0x14e51c6eefff 0x14e51c6ef000 - 0x14e51c6f6fff 0x14e51c6f7000 - 0x14e51c6f7fff 0x14e51c6f8000 - 0x14e51c6f8fff 0x14e51c6f9000 - 0x14e51c6f9fff 0x14e51c6fa000 - 0x14e51c6fafff 0x7ffdda754000 - 0x7ffdda774fff 0x7ffdda7e0000 - 0x7ffdda7e3fff 0x7ffdda7e4000 - 0x7ffdda7e5fff 0xffffffffff600000 - 0xffffffffff600fff 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1730000 - 0x1750fff 0x100000000000 - 0x1000000bffff 0x150f144fb000 - 0x150f14b9ffff 0x150f14ba0000 - 0x150f14bf3fff 0x150f14bf4000 - 0x150f14bf6fff 0x150f14bf7000 - 0x150f14c1bfff 0x150f14c1c000 - 0x150f14d6bfff 0x150f14d6c000 - 0x150f14db6fff 0x150f14db7000 - 0x150f14db9fff 0x150f14dba000 - 0x150f14dbcfff 0x150f14dbd000 - 0x150f14dc0fff 0x150f14dc1000 - 0x150f14dc3fff 0x150f14dc4000 - 0x150f14dd5fff 0x150f14dd6000 - 0x150f14dd9fff 0x150f14dda000 - 0x150f14ddafff 0x150f14ddb000 - 0x150f14ddbfff 0x150f14ddc000 - 0x150f14dddfff 0x150f14dde000 - 0x150f14deefff 0x150f14def000 - 0x150f14e26fff 0x150f14e27000 - 0x150f14f5dfff 0x150f14f5e000 - 0x150f14f61fff 0x150f14f62000 - 0x150f14f62fff 0x150f14f63000 - 0x150f14f63fff 0x150f14f64000 - 0x150f14f65fff 0x150f14f66000 - 0x150f14f66fff 0x150f14f67000 - 0x150f14f67fff 0x150f14f68000 - 0x150f14f68fff 0x150f14f69000 - 0x150f14f6afff 0x150f14f6b000 - 0x150f14f6dfff 0x150f14f6e000 - 0x150f14f6efff 0x150f14f6f000 - 0x150f14f6ffff 0x150f14f70000 - 0x150f14f70fff 0x150f14f71000 - 0x150f14f72fff 0x150f14f73000 - 0x150f14f74fff 0x150f14f75000 - 0x150f14f75fff 0x150f14f76000 - 0x150f14f76fff 0x150f14f77000 - 0x150f14f77fff 0x150f14f78000 - 0x150f14f85fff 0x150f14f86000 - 0x150f14f93fff 0x150f14f94000 - 0x150f14fa1fff 0x150f14fa2000 - 0x150f14fa5fff 0x150f14fa6000 - 0x150f14fa6fff 0x150f14fa7000 - 0x150f14fbcfff 0x150f14fbd000 - 0x150f14fe8fff 0x150f14fe9000 - 0x150f14ff1fff 0x150f14ff2000 - 0x150f14ff2fff 0x150f14ff3000 - 0x150f14ff5fff 0x150f14ff6000 - 0x150f14ffbfff 0x150f14ffc000 - 0x150f14ffefff 0x150f15001000 - 0x150f15001fff 0x150f15002000 - 0x150f15002fff 0x150f15003000 - 0x150f15009fff 0x150f1500a000 - 0x150f1500bfff 0x150f1500c000 - 0x150f1502cfff 0x150f1502d000 - 0x150f15034fff 0x150f15035000 - 0x150f15035fff 0x150f15036000 - 0x150f15036fff 0x150f15037000 - 0x150f15037fff 0x150f15038000 - 0x150f15038fff 0x7ffcc27b4000 - 0x7ffcc27d4fff 0x7ffcc27ec000 - 0x7ffcc27effff 0x7ffcc27f0000 - 0x7ffcc27f1fff 0xffffffffff600000 - 0xffffffffff600fff 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1b34000 - 0x1b54fff 0x100000000000 - 0x1000000bffff 0x14e4c7390000 - 0x14e4c7a34fff 0x14e4c7a35000 - 0x14e4c7a88fff 0x14e4c7a89000 - 0x14e4c7a8bfff 0x14e4c7a8c000 - 0x14e4c7ab0fff 0x14e4c7ab1000 - 0x14e4c7c00fff 0x14e4c7c01000 - 0x14e4c7c4bfff 0x14e4c7c4c000 - 0x14e4c7c4efff 0x14e4c7c4f000 - 0x14e4c7c51fff 0x14e4c7c52000 - 0x14e4c7c55fff 0x14e4c7c56000 - 0x14e4c7c58fff 0x14e4c7c59000 - 0x14e4c7c6afff 0x14e4c7c6b000 - 0x14e4c7c6efff 0x14e4c7c6f000 - 0x14e4c7c6ffff 0x14e4c7c70000 - 0x14e4c7c70fff 0x14e4c7c71000 - 0x14e4c7c72fff 0x14e4c7c73000 - 0x14e4c7c83fff 0x14e4c7c84000 - 0x14e4c7cbbfff 0x14e4c7cbc000 - 0x14e4c7df2fff 0x14e4c7df3000 - 0x14e4c7df6fff 0x14e4c7df7000 - 0x14e4c7df7fff 0x14e4c7df8000 - 0x14e4c7df8fff 0x14e4c7df9000 - 0x14e4c7dfafff 0x14e4c7dfb000 - 0x14e4c7dfbfff 0x14e4c7dfc000 - 0x14e4c7dfcfff 0x14e4c7dfd000 - 0x14e4c7dfdfff 0x14e4c7dfe000 - 0x14e4c7dfffff 0x14e4c7e00000 - 0x14e4c7e02fff 0x14e4c7e03000 - 0x14e4c7e03fff 0x14e4c7e04000 - 0x14e4c7e04fff 0x14e4c7e05000 - 0x14e4c7e05fff 0x14e4c7e06000 - 0x14e4c7e07fff 0x14e4c7e08000 - 0x14e4c7e09fff 0x14e4c7e0a000 - 0x14e4c7e0afff 0x14e4c7e0b000 - 0x14e4c7e0bfff 0x14e4c7e0c000 - 0x14e4c7e0cfff 0x14e4c7e0d000 - 0x14e4c7e1afff 0x14e4c7e1b000 - 0x14e4c7e28fff 0x14e4c7e29000 - 0x14e4c7e36fff 0x14e4c7e37000 - 0x14e4c7e3afff 0x14e4c7e3b000 - 0x14e4c7e3bfff 0x14e4c7e3c000 - 0x14e4c7e51fff 0x14e4c7e52000 - 0x14e4c7e7dfff 0x14e4c7e7e000 - 0x14e4c7e86fff 0x14e4c7e87000 - 0x14e4c7e87fff 0x14e4c7e88000 - 0x14e4c7e8afff 0x14e4c7e8b000 - 0x14e4c7e90fff 0x14e4c7e91000 - 0x14e4c7e93fff 0x14e4c7e96000 - 0x14e4c7e96fff 0x14e4c7e97000 - 0x14e4c7e97fff 0x14e4c7e98000 - 0x14e4c7e9efff 0x14e4c7e9f000 - 0x14e4c7ea0fff 0x14e4c7ea1000 - 0x14e4c7ec1fff 0x14e4c7ec2000 - 0x14e4c7ec9fff 0x14e4c7eca000 - 0x14e4c7ecafff 0x14e4c7ecb000 - 0x14e4c7ecbfff 0x14e4c7ecc000 - 0x14e4c7eccfff 0x14e4c7ecd000 - 0x14e4c7ecdfff 0x7ffc1c68c000 - 0x7ffc1c6acfff 0x7ffc1c6ee000 - 0x7ffc1c6f1fff 0x7ffc1c6f2000 - 0x7ffc1c6f3fff 0xffffffffff600000 - 0xffffffffff600fff 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1c95000 - 0x1cb5fff 0x100000000000 - 0x1000000bffff 0x14648e29d000 - 0x14648e941fff 0x14648e942000 - 0x14648e995fff 0x14648e996000 - 0x14648e998fff 0x14648e999000 - 0x14648e9bdfff 0x14648e9be000 - 0x14648eb0dfff 0x14648eb0e000 - 0x14648eb58fff 0x14648eb59000 - 0x14648eb5bfff 0x14648eb5c000 - 0x14648eb5efff 0x14648eb5f000 - 0x14648eb62fff 0x14648eb63000 - 0x14648eb65fff 0x14648eb66000 - 0x14648eb77fff 0x14648eb78000 - 0x14648eb7bfff 0x14648eb7c000 - 0x14648eb7cfff 0x14648eb7d000 - 0x14648eb7dfff 0x14648eb7e000 - 0x14648eb7ffff 0x14648eb80000 - 0x14648eb90fff 0x14648eb91000 - 0x14648ebc8fff 0x14648ebc9000 - 0x14648ecfffff 0x14648ed00000 - 0x14648ed03fff 0x14648ed04000 - 0x14648ed04fff 0x14648ed05000 - 0x14648ed05fff 0x14648ed06000 - 0x14648ed07fff 0x14648ed08000 - 0x14648ed08fff 0x14648ed09000 - 0x14648ed09fff 0x14648ed0a000 - 0x14648ed0afff 0x14648ed0b000 - 0x14648ed0cfff 0x14648ed0d000 - 0x14648ed0ffff 0x14648ed10000 - 0x14648ed10fff 0x14648ed11000 - 0x14648ed11fff 0x14648ed12000 - 0x14648ed12fff 0x14648ed13000 - 0x14648ed14fff 0x14648ed15000 - 0x14648ed16fff 0x14648ed17000 - 0x14648ed17fff 0x14648ed18000 - 0x14648ed18fff 0x14648ed19000 - 0x14648ed19fff 0x14648ed1a000 - 0x14648ed27fff 0x14648ed28000 - 0x14648ed35fff 0x14648ed36000 - 0x14648ed43fff 0x14648ed44000 - 0x14648ed47fff 0x14648ed48000 - 0x14648ed48fff 0x14648ed49000 - 0x14648ed5efff 0x14648ed5f000 - 0x14648ed8afff 0x14648ed8b000 - 0x14648ed93fff 0x14648ed94000 - 0x14648ed94fff 0x14648ed95000 - 0x14648ed97fff 0x14648ed98000 - 0x14648ed9dfff 0x14648ed9e000 - 0x14648eda0fff 0x14648eda3000 - 0x14648eda3fff 0x14648eda4000 - 0x14648eda4fff 0x14648eda5000 - 0x14648edabfff 0x14648edac000 - 0x14648edadfff 0x14648edae000 - 0x14648edcefff 0x14648edcf000 - 0x14648edd6fff 0x14648edd7000 - 0x14648edd7fff 0x14648edd8000 - 0x14648edd8fff 0x14648edd9000 - 0x14648edd9fff 0x14648edda000 - 0x14648eddafff 0x7ffc25325000 - 0x7ffc25345fff 0x7ffc253b1000 - 0x7ffc253b4fff 0x7ffc253b5000 - 0x7ffc253b6fff 0xffffffffff600000 - 0xffffffffff600fff 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1545000 - 0x1565fff 0x100000000000 - 0x1000000bffff 0x14709f782000 - 0x14709fe26fff 0x14709fe27000 - 0x14709fe7afff 0x14709fe7b000 - 0x14709fe7dfff 0x14709fe7e000 - 0x14709fea2fff 0x14709fea3000 - 0x14709fff2fff 0x14709fff3000 - 0x1470a003dfff 0x1470a003e000 - 0x1470a0040fff 0x1470a0041000 - 0x1470a0043fff 0x1470a0044000 - 0x1470a0047fff 0x1470a0048000 - 0x1470a004afff 0x1470a004b000 - 0x1470a005cfff 0x1470a005d000 - 0x1470a0060fff 0x1470a0061000 - 0x1470a0061fff 0x1470a0062000 - 0x1470a0062fff 0x1470a0063000 - 0x1470a0064fff 0x1470a0065000 - 0x1470a0075fff 0x1470a0076000 - 0x1470a00adfff 0x1470a00ae000 - 0x1470a01e4fff 0x1470a01e5000 - 0x1470a01e8fff 0x1470a01e9000 - 0x1470a01e9fff 0x1470a01ea000 - 0x1470a01eafff 0x1470a01eb000 - 0x1470a01ecfff 0x1470a01ed000 - 0x1470a01edfff 0x1470a01ee000 - 0x1470a01eefff 0x1470a01ef000 - 0x1470a01effff 0x1470a01f0000 - 0x1470a01f1fff 0x1470a01f2000 - 0x1470a01f4fff 0x1470a01f5000 - 0x1470a01f5fff 0x1470a01f6000 - 0x1470a01f6fff 0x1470a01f7000 - 0x1470a01f7fff 0x1470a01f8000 - 0x1470a01f9fff 0x1470a01fa000 - 0x1470a01fbfff 0x1470a01fc000 - 0x1470a01fcfff 0x1470a01fd000 - 0x1470a01fdfff 0x1470a01fe000 - 0x1470a01fefff 0x1470a01ff000 - 0x1470a020cfff 0x1470a020d000 - 0x1470a021afff 0x1470a021b000 - 0x1470a0228fff 0x1470a0229000 - 0x1470a022cfff 0x1470a022d000 - 0x1470a022dfff 0x1470a022e000 - 0x1470a0243fff 0x1470a0244000 - 0x1470a026ffff 0x1470a0270000 - 0x1470a0278fff 0x1470a0279000 - 0x1470a0279fff 0x1470a027a000 - 0x1470a027cfff 0x1470a027d000 - 0x1470a0282fff 0x1470a0283000 - 0x1470a0285fff 0x1470a0288000 - 0x1470a0288fff 0x1470a0289000 - 0x1470a0289fff 0x1470a028a000 - 0x1470a0290fff 0x1470a0291000 - 0x1470a0292fff 0x1470a0293000 - 0x1470a02b3fff 0x1470a02b4000 - 0x1470a02bbfff 0x1470a02bc000 - 0x1470a02bcfff 0x1470a02bd000 - 0x1470a02bdfff 0x1470a02be000 - 0x1470a02befff 0x1470a02bf000 - 0x1470a02bffff 0x7ffd8f199000 - 0x7ffd8f1b9fff 0x7ffd8f1dc000 - 0x7ffd8f1dffff 0x7ffd8f1e0000 - 0x7ffd8f1e1fff 0xffffffffff600000 - 0xffffffffff600fff 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x2106000 - 0x2126fff 0x100000000000 - 0x1000000bffff 0x1457b811b000 - 0x1457b87bffff 0x1457b87c0000 - 0x1457b8813fff 0x1457b8814000 - 0x1457b8816fff 0x1457b8817000 - 0x1457b883bfff 0x1457b883c000 - 0x1457b898bfff 0x1457b898c000 - 0x1457b89d6fff 0x1457b89d7000 - 0x1457b89d9fff 0x1457b89da000 - 0x1457b89dcfff 0x1457b89dd000 - 0x1457b89e0fff 0x1457b89e1000 - 0x1457b89e3fff 0x1457b89e4000 - 0x1457b89f5fff 0x1457b89f6000 - 0x1457b89f9fff 0x1457b89fa000 - 0x1457b89fafff 0x1457b89fb000 - 0x1457b89fbfff 0x1457b89fc000 - 0x1457b89fdfff 0x1457b89fe000 - 0x1457b8a0efff 0x1457b8a0f000 - 0x1457b8a46fff 0x1457b8a47000 - 0x1457b8b7dfff 0x1457b8b7e000 - 0x1457b8b81fff 0x1457b8b82000 - 0x1457b8b82fff 0x1457b8b83000 - 0x1457b8b83fff 0x1457b8b84000 - 0x1457b8b85fff 0x1457b8b86000 - 0x1457b8b86fff 0x1457b8b87000 - 0x1457b8b87fff 0x1457b8b88000 - 0x1457b8b88fff 0x1457b8b89000 - 0x1457b8b8afff 0x1457b8b8b000 - 0x1457b8b8dfff 0x1457b8b8e000 - 0x1457b8b8efff 0x1457b8b8f000 - 0x1457b8b8ffff 0x1457b8b90000 - 0x1457b8b90fff 0x1457b8b91000 - 0x1457b8b92fff 0x1457b8b93000 - 0x1457b8b94fff 0x1457b8b95000 - 0x1457b8b95fff 0x1457b8b96000 - 0x1457b8b96fff 0x1457b8b97000 - 0x1457b8b97fff 0x1457b8b98000 - 0x1457b8ba5fff 0x1457b8ba6000 - 0x1457b8bb3fff 0x1457b8bb4000 - 0x1457b8bc1fff 0x1457b8bc2000 - 0x1457b8bc5fff 0x1457b8bc6000 - 0x1457b8bc6fff 0x1457b8bc7000 - 0x1457b8bdcfff 0x1457b8bdd000 - 0x1457b8c08fff 0x1457b8c09000 - 0x1457b8c11fff 0x1457b8c12000 - 0x1457b8c12fff 0x1457b8c13000 - 0x1457b8c15fff 0x1457b8c16000 - 0x1457b8c1bfff 0x1457b8c1c000 - 0x1457b8c1efff 0x1457b8c21000 - 0x1457b8c21fff 0x1457b8c22000 - 0x1457b8c22fff 0x1457b8c23000 - 0x1457b8c29fff 0x1457b8c2a000 - 0x1457b8c2bfff 0x1457b8c2c000 - 0x1457b8c4cfff 0x1457b8c4d000 - 0x1457b8c54fff 0x1457b8c55000 - 0x1457b8c55fff 0x1457b8c56000 - 0x1457b8c56fff 0x1457b8c57000 - 0x1457b8c57fff 0x1457b8c58000 - 0x1457b8c58fff 0x7fff450e7000 - 0x7fff45107fff 0x7fff4516e000 - 0x7fff45171fff 0x7fff45172000 - 0x7fff45173fff 0xffffffffff600000 - 0xffffffffff600fff 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x15d1000 - 0x15f1fff 0x100000000000 - 0x1000000bffff 0x153c09543000 - 0x153c09be7fff 0x153c09be8000 - 0x153c09c3bfff 0x153c09c3c000 - 0x153c09c3efff 0x153c09c3f000 - 0x153c09c63fff 0x153c09c64000 - 0x153c09db3fff 0x153c09db4000 - 0x153c09dfefff 0x153c09dff000 - 0x153c09e01fff 0x153c09e02000 - 0x153c09e04fff 0x153c09e05000 - 0x153c09e08fff 0x153c09e09000 - 0x153c09e0bfff 0x153c09e0c000 - 0x153c09e1dfff 0x153c09e1e000 - 0x153c09e21fff 0x153c09e22000 - 0x153c09e22fff 0x153c09e23000 - 0x153c09e23fff 0x153c09e24000 - 0x153c09e25fff 0x153c09e26000 - 0x153c09e36fff 0x153c09e37000 - 0x153c09e6efff 0x153c09e6f000 - 0x153c09fa5fff 0x153c09fa6000 - 0x153c09fa9fff 0x153c09faa000 - 0x153c09faafff 0x153c09fab000 - 0x153c09fabfff 0x153c09fac000 - 0x153c09fadfff 0x153c09fae000 - 0x153c09faefff 0x153c09faf000 - 0x153c09faffff 0x153c09fb0000 - 0x153c09fb0fff 0x153c09fb1000 - 0x153c09fb2fff 0x153c09fb3000 - 0x153c09fb5fff 0x153c09fb6000 - 0x153c09fb6fff 0x153c09fb7000 - 0x153c09fb7fff 0x153c09fb8000 - 0x153c09fb8fff 0x153c09fb9000 - 0x153c09fbafff 0x153c09fbb000 - 0x153c09fbcfff 0x153c09fbd000 - 0x153c09fbdfff 0x153c09fbe000 - 0x153c09fbefff 0x153c09fbf000 - 0x153c09fbffff 0x153c09fc0000 - 0x153c09fcdfff 0x153c09fce000 - 0x153c09fdbfff 0x153c09fdc000 - 0x153c09fe9fff 0x153c09fea000 - 0x153c09fedfff 0x153c09fee000 - 0x153c09feefff 0x153c09fef000 - 0x153c0a004fff 0x153c0a005000 - 0x153c0a030fff 0x153c0a031000 - 0x153c0a039fff 0x153c0a03a000 - 0x153c0a03afff 0x153c0a03b000 - 0x153c0a03dfff 0x153c0a03e000 - 0x153c0a043fff 0x153c0a044000 - 0x153c0a046fff 0x153c0a049000 - 0x153c0a049fff 0x153c0a04a000 - 0x153c0a04afff 0x153c0a04b000 - 0x153c0a051fff 0x153c0a052000 - 0x153c0a053fff 0x153c0a054000 - 0x153c0a074fff 0x153c0a075000 - 0x153c0a07cfff 0x153c0a07d000 - 0x153c0a07dfff 0x153c0a07e000 - 0x153c0a07efff 0x153c0a07f000 - 0x153c0a07ffff 0x153c0a080000 - 0x153c0a080fff 0x7ffd0d604000 - 0x7ffd0d624fff 0x7ffd0d6e6000 - 0x7ffd0d6e9fff 0x7ffd0d6ea000 - 0x7ffd0d6ebfff 0xffffffffff600000 - 0xffffffffff600fff *** - 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1889000 - 0x18a9fff 0x100000000000 - 0x1000000bffff 0x15459fb16000 - 0x1545a01bafff 0x1545a01bb000 - 0x1545a020efff 0x1545a020f000 - 0x1545a0211fff 0x1545a0212000 - 0x1545a0236fff 0x1545a0237000 - 0x1545a0386fff 0x1545a0387000 - 0x1545a03d1fff 0x1545a03d2000 - 0x1545a03d4fff 0x1545a03d5000 - 0x1545a03d7fff 0x1545a03d8000 - 0x1545a03dbfff 0x1545a03dc000 - 0x1545a03defff 0x1545a03df000 - 0x1545a03f0fff 0x1545a03f1000 - 0x1545a03f4fff 0x1545a03f5000 - 0x1545a03f5fff 0x1545a03f6000 - 0x1545a03f6fff 0x1545a03f7000 - 0x1545a03f8fff 0x1545a03f9000 - 0x1545a0409fff 0x1545a040a000 - 0x1545a0441fff 0x1545a0442000 - 0x1545a0578fff 0x1545a0579000 - 0x1545a057cfff 0x1545a057d000 - 0x1545a057dfff 0x1545a057e000 - 0x1545a057efff 0x1545a057f000 - 0x1545a0580fff 0x1545a0581000 - 0x1545a0581fff 0x1545a0582000 - 0x1545a0582fff 0x1545a0583000 - 0x1545a0583fff 0x1545a0584000 - 0x1545a0585fff 0x1545a0586000 - 0x1545a0588fff 0x1545a0589000 - 0x1545a0589fff 0x1545a058a000 - 0x1545a058afff 0x1545a058b000 - 0x1545a058bfff 0x1545a058c000 - 0x1545a058dfff 0x1545a058e000 - 0x1545a058ffff 0x1545a0590000 - 0x1545a0590fff 0x1545a0591000 - 0x1545a0591fff 0x1545a0592000 - 0x1545a0592fff 0x1545a0593000 - 0x1545a05a0fff 0x1545a05a1000 - 0x1545a05aefff 0x1545a05af000 - 0x1545a05bcfff 0x1545a05bd000 - 0x1545a05c0fff 0x1545a05c1000 - 0x1545a05c1fff 0x1545a05c2000 - 0x1545a05d7fff 0x1545a05d8000 - 0x1545a0603fff 0x1545a0604000 - 0x1545a060cfff 0x1545a060d000 - 0x1545a060dfff 0x1545a060e000 - 0x1545a0610fff 0x1545a0611000 - 0x1545a0616fff 0x1545a0617000 - 0x1545a0619fff 0x1545a061c000 - 0x1545a061cfff 0x1545a061d000 - 0x1545a061dfff 0x1545a061e000 - 0x1545a0624fff 0x1545a0625000 - 0x1545a0626fff 0x1545a0627000 - 0x1545a0647fff 0x1545a0648000 - 0x1545a064ffff 0x1545a0650000 - 0x1545a0650fff 0x1545a0651000 - 0x1545a0651fff 0x1545a0652000 - 0x1545a0652fff 0x1545a0653000 - 0x1545a0653fff 0x7fffcb58b000 - 0x7fffcb5abfff 0x7fffcb5c8000 - 0x7fffcb5cbfff 0x7fffcb5cc000 - 0x7fffcb5cdfff 0xffffffffff600000 - 0xffffffffff600fff #P"/proc/2095713/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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x950000 - 0x970fff 0x100000000000 - 0x1000000bffff 0x14c07a4ad000 - 0x14c07ab51fff 0x14c07ab52000 - 0x14c07aba5fff 0x14c07aba6000 - 0x14c07aba8fff 0x14c07aba9000 - 0x14c07abcdfff 0x14c07abce000 - 0x14c07ad1dfff 0x14c07ad1e000 - 0x14c07ad68fff 0x14c07ad69000 - 0x14c07ad6bfff 0x14c07ad6c000 - 0x14c07ad6efff 0x14c07ad6f000 - 0x14c07ad72fff 0x14c07ad73000 - 0x14c07ad75fff 0x14c07ad76000 - 0x14c07ad87fff 0x14c07ad88000 - 0x14c07ad8bfff 0x14c07ad8c000 - 0x14c07ad8cfff 0x14c07ad8d000 - 0x14c07ad8dfff 0x14c07ad8e000 - 0x14c07ad8ffff 0x14c07ad90000 - 0x14c07ada0fff 0x14c07ada1000 - 0x14c07add8fff 0x14c07add9000 - 0x14c07af0ffff 0x14c07af10000 - 0x14c07af13fff 0x14c07af14000 - 0x14c07af14fff 0x14c07af15000 - 0x14c07af15fff 0x14c07af16000 - 0x14c07af17fff 0x14c07af18000 - 0x14c07af18fff 0x14c07af19000 - 0x14c07af19fff 0x14c07af1a000 - 0x14c07af1afff 0x14c07af1b000 - 0x14c07af1cfff 0x14c07af1d000 - 0x14c07af1ffff 0x14c07af20000 - 0x14c07af20fff 0x14c07af21000 - 0x14c07af21fff 0x14c07af22000 - 0x14c07af22fff 0x14c07af23000 - 0x14c07af24fff 0x14c07af25000 - 0x14c07af26fff 0x14c07af27000 - 0x14c07af27fff 0x14c07af28000 - 0x14c07af28fff 0x14c07af29000 - 0x14c07af29fff 0x14c07af2a000 - 0x14c07af37fff 0x14c07af38000 - 0x14c07af45fff 0x14c07af46000 - 0x14c07af53fff 0x14c07af54000 - 0x14c07af57fff 0x14c07af58000 - 0x14c07af58fff 0x14c07af59000 - 0x14c07af6efff 0x14c07af6f000 - 0x14c07af9afff 0x14c07af9b000 - 0x14c07afa3fff 0x14c07afa4000 - 0x14c07afa4fff 0x14c07afa5000 - 0x14c07afa7fff 0x14c07afa8000 - 0x14c07afadfff 0x14c07afae000 - 0x14c07afb0fff 0x14c07afb3000 - 0x14c07afb3fff 0x14c07afb4000 - 0x14c07afb4fff 0x14c07afb5000 - 0x14c07afbbfff 0x14c07afbc000 - 0x14c07afbdfff 0x14c07afbe000 - 0x14c07afdefff 0x14c07afdf000 - 0x14c07afe6fff 0x14c07afe7000 - 0x14c07afe7fff 0x14c07afe8000 - 0x14c07afe8fff 0x14c07afe9000 - 0x14c07afe9fff 0x14c07afea000 - 0x14c07afeafff 0x7ffdafa35000 - 0x7ffdafa55fff 0x7ffdafabd000 - 0x7ffdafac0fff 0x7ffdafac1000 - 0x7ffdafac2fff 0xffffffffff600000 - 0xffffffffff600fff #P"/proc/2095715/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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x191b000 - 0x193bfff 0x100000000000 - 0x1000000bffff 0x15371ebda000 - 0x15371ebdafff 0x15371ebdb000 - 0x15371ebdbfff 0x15371ebdc000 - 0x15371ebdcfff 0x15371ebdd000 - 0x15371ebddfff 0x15371ebde000 - 0x15371ebdefff 0x15371ebdf000 - 0x15371ebe1fff 0x15371ebe2000 - 0x15371f286fff 0x15371f287000 - 0x15371f2dafff 0x15371f2db000 - 0x15371f2ddfff 0x15371f2de000 - 0x15371f302fff 0x15371f303000 - 0x15371f452fff 0x15371f453000 - 0x15371f49dfff 0x15371f49e000 - 0x15371f4a0fff 0x15371f4a1000 - 0x15371f4a3fff 0x15371f4a4000 - 0x15371f4a7fff 0x15371f4a8000 - 0x15371f4aafff 0x15371f4ab000 - 0x15371f4bcfff 0x15371f4bd000 - 0x15371f4c0fff 0x15371f4c1000 - 0x15371f4c1fff 0x15371f4c2000 - 0x15371f4c2fff 0x15371f4c3000 - 0x15371f4c4fff 0x15371f4c5000 - 0x15371f4d5fff 0x15371f4d6000 - 0x15371f50dfff 0x15371f50e000 - 0x15371f644fff 0x15371f645000 - 0x15371f648fff 0x15371f649000 - 0x15371f649fff 0x15371f64a000 - 0x15371f64afff 0x15371f64b000 - 0x15371f64cfff 0x15371f64d000 - 0x15371f64dfff 0x15371f64e000 - 0x15371f64efff 0x15371f64f000 - 0x15371f64ffff 0x15371f650000 - 0x15371f651fff 0x15371f652000 - 0x15371f654fff 0x15371f655000 - 0x15371f655fff 0x15371f656000 - 0x15371f656fff 0x15371f657000 - 0x15371f657fff 0x15371f658000 - 0x15371f659fff 0x15371f65a000 - 0x15371f65bfff 0x15371f65c000 - 0x15371f65cfff 0x15371f65d000 - 0x15371f65dfff 0x15371f65e000 - 0x15371f65efff 0x15371f65f000 - 0x15371f66cfff 0x15371f66d000 - 0x15371f67afff 0x15371f67b000 - 0x15371f688fff 0x15371f689000 - 0x15371f68cfff 0x15371f68d000 - 0x15371f68dfff 0x15371f68e000 - 0x15371f6a3fff 0x15371f6a4000 - 0x15371f6cffff 0x15371f6d0000 - 0x15371f6d8fff 0x15371f6d9000 - 0x15371f6d9fff 0x15371f6da000 - 0x15371f6dcfff 0x15371f6dd000 - 0x15371f6e2fff 0x15371f6e3000 - 0x15371f6e5fff 0x15371f6e7000 - 0x15371f6e7fff 0x15371f6e8000 - 0x15371f6e8fff 0x15371f6e9000 - 0x15371f6e9fff 0x15371f6ea000 - 0x15371f6f0fff 0x15371f6f1000 - 0x15371f6f2fff 0x15371f6f3000 - 0x15371f713fff 0x15371f714000 - 0x15371f71bfff 0x15371f71c000 - 0x15371f71cfff 0x15371f71d000 - 0x15371f71dfff 0x15371f71e000 - 0x15371f71efff 0x15371f71f000 - 0x15371f71ffff 0x7ffd187dd000 - 0x7ffd187fdfff 0x7ffd188ed000 - 0x7ffd188f0fff 0x7ffd188f1000 - 0x7ffd188f2fff 0xffffffffff600000 - 0xffffffffff600fff 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1f00000 - 0x1f20fff 0x100000000000 - 0x1000000bffff 0x151105324000 - 0x151105324fff 0x151105325000 - 0x151105325fff 0x151105326000 - 0x151105326fff 0x151105327000 - 0x151105327fff 0x151105328000 - 0x151105328fff 0x151105329000 - 0x15110532bfff 0x15110532c000 - 0x1511059d0fff 0x1511059d1000 - 0x151105a24fff 0x151105a25000 - 0x151105a27fff 0x151105a28000 - 0x151105a4cfff 0x151105a4d000 - 0x151105b9cfff 0x151105b9d000 - 0x151105be7fff 0x151105be8000 - 0x151105beafff 0x151105beb000 - 0x151105bedfff 0x151105bee000 - 0x151105bf1fff 0x151105bf2000 - 0x151105bf4fff 0x151105bf5000 - 0x151105c06fff 0x151105c07000 - 0x151105c0afff 0x151105c0b000 - 0x151105c0bfff 0x151105c0c000 - 0x151105c0cfff 0x151105c0d000 - 0x151105c0efff 0x151105c0f000 - 0x151105c1ffff 0x151105c20000 - 0x151105c57fff 0x151105c58000 - 0x151105d8efff 0x151105d8f000 - 0x151105d92fff 0x151105d93000 - 0x151105d93fff 0x151105d94000 - 0x151105d94fff 0x151105d95000 - 0x151105d96fff 0x151105d97000 - 0x151105d97fff 0x151105d98000 - 0x151105d98fff 0x151105d99000 - 0x151105d99fff 0x151105d9a000 - 0x151105d9bfff 0x151105d9c000 - 0x151105d9efff 0x151105d9f000 - 0x151105d9ffff 0x151105da0000 - 0x151105da0fff 0x151105da1000 - 0x151105da1fff 0x151105da2000 - 0x151105da3fff 0x151105da4000 - 0x151105da5fff 0x151105da6000 - 0x151105da6fff 0x151105da7000 - 0x151105da7fff 0x151105da8000 - 0x151105da8fff 0x151105da9000 - 0x151105db6fff 0x151105db7000 - 0x151105dc4fff 0x151105dc5000 - 0x151105dd2fff 0x151105dd3000 - 0x151105dd6fff 0x151105dd7000 - 0x151105dd7fff 0x151105dd8000 - 0x151105dedfff 0x151105dee000 - 0x151105e19fff 0x151105e1a000 - 0x151105e22fff 0x151105e23000 - 0x151105e23fff 0x151105e24000 - 0x151105e26fff 0x151105e27000 - 0x151105e2cfff 0x151105e2d000 - 0x151105e2ffff 0x151105e31000 - 0x151105e31fff 0x151105e32000 - 0x151105e32fff 0x151105e33000 - 0x151105e33fff 0x151105e34000 - 0x151105e3afff 0x151105e3b000 - 0x151105e3cfff 0x151105e3d000 - 0x151105e5dfff 0x151105e5e000 - 0x151105e65fff 0x151105e66000 - 0x151105e66fff 0x151105e67000 - 0x151105e67fff 0x151105e68000 - 0x151105e68fff 0x151105e69000 - 0x151105e69fff 0x7ffd45bcb000 - 0x7ffd45bebfff 0x7ffd45bef000 - 0x7ffd45bf2fff 0x7ffd45bf3000 - 0x7ffd45bf4fff 0xffffffffff600000 - 0xffffffffff600fff 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 3814128000) (memory 3814211680)" EQL-OK: T (STRINGP (SHOW (MACHINE-INSTANCE))) "buildvm-x86-29.iad2.fedoraproject.org [10.3.169.79]" EQL-OK: T (STRINGP (SHOW (MACHINE-TYPE))) "X86_64" EQL-OK: T (STRINGP (SHOW (MACHINE-VERSION))) "X86_64" EQL-OK: T (SYSTEM::FIXNUMP 10) EQL-OK: T (MODULE-INFO "clisp" T) EQUAL-OK: "clisp" (UNINTERN 'X) EQL-OK: T RUN-TEST: finished "alltest" (0 errors out of 636 tests) RUN-TEST: started # (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-11-12 23:17:35 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/ 17 2020-11-12 23:17:35 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/foo/ 17 2020-11-12 23:17:35 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/foo/bar/ 17 2020-11-12 23:17:35 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/foo/bar/baz/ 22 2020-11-12 23:17:35 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-11-12 23:17:35 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/ 17 2020-11-12 23:17:35 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/foo/ 17 2020-11-12 23:17:35 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/foo/bar/ 17 2020-11-12 23:17:35 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/ext-clisp-tst/foo/bar/baz/ 17 2020-11-12 23:17:35 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x20a1000 - 0x20c1fff 0x100000000000 - 0x1000000bffff 0x14b828bf6000 - 0x14b828bf8fff 0x14b828bf9000 - 0x14b828c1dfff 0x14b828c1e000 - 0x14b828d6dfff 0x14b828d6e000 - 0x14b828db8fff 0x14b828db9000 - 0x14b828dbbfff 0x14b828dbc000 - 0x14b828dbefff 0x14b828dbf000 - 0x14b828dc2fff 0x14b828dc3000 - 0x14b828dc5fff 0x14b828dc6000 - 0x14b828dd7fff 0x14b828dd8000 - 0x14b828ddbfff 0x14b828ddc000 - 0x14b828ddcfff 0x14b828ddd000 - 0x14b828dddfff 0x14b828dde000 - 0x14b828ddffff 0x14b828de0000 - 0x14b828df0fff 0x14b828df1000 - 0x14b828e28fff 0x14b828e29000 - 0x14b828f5ffff 0x14b828f60000 - 0x14b828f63fff 0x14b828f64000 - 0x14b828f64fff 0x14b828f65000 - 0x14b828f65fff 0x14b828f66000 - 0x14b828f67fff 0x14b828f68000 - 0x14b828f68fff 0x14b828f69000 - 0x14b828f69fff 0x14b828f6a000 - 0x14b828f6afff 0x14b828f6b000 - 0x14b828f6cfff 0x14b828f6d000 - 0x14b828f6ffff 0x14b828f70000 - 0x14b828f70fff 0x14b828f71000 - 0x14b828f71fff 0x14b828f72000 - 0x14b828f72fff 0x14b828f73000 - 0x14b828f74fff 0x14b828f75000 - 0x14b828f76fff 0x14b828f77000 - 0x14b828f77fff 0x14b828f78000 - 0x14b828f78fff 0x14b828f79000 - 0x14b828f79fff 0x14b828f7a000 - 0x14b828f87fff 0x14b828f88000 - 0x14b828f95fff 0x14b828f96000 - 0x14b828fa3fff 0x14b828fa4000 - 0x14b828fa7fff 0x14b828fa8000 - 0x14b828fa8fff 0x14b828fa9000 - 0x14b828fbefff 0x14b828fbf000 - 0x14b828feafff 0x14b828feb000 - 0x14b828ff3fff 0x14b828ff4000 - 0x14b828ff4fff 0x14b828ff5000 - 0x14b828ff7fff 0x14b828ff8000 - 0x14b828ffdfff 0x14b828ffe000 - 0x14b829000fff 0x14b829005000 - 0x14b82900bfff 0x14b82900c000 - 0x14b82900dfff 0x14b82900e000 - 0x14b82902efff 0x14b82902f000 - 0x14b829036fff 0x14b829037000 - 0x14b829037fff 0x14b829038000 - 0x14b829038fff 0x14b829039000 - 0x14b829039fff 0x14b82903a000 - 0x14b82903afff 0x7ffcc4d85000 - 0x7ffcc4da5fff 0x7ffcc4de5000 - 0x7ffcc4de8fff 0x7ffcc4de9000 - 0x7ffcc4deafff 0xffffffffff600000 - 0xffffffffff600fff Warning: reserving address range 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x228c000 - 0x22acfff 0x100000000000 - 0x1000000bffff 0x15128780f000 - 0x151287811fff 0x151287812000 - 0x151287836fff 0x151287837000 - 0x151287986fff 0x151287987000 - 0x1512879d1fff 0x1512879d2000 - 0x1512879d4fff 0x1512879d5000 - 0x1512879d7fff 0x1512879d8000 - 0x1512879dbfff 0x1512879dc000 - 0x1512879defff 0x1512879df000 - 0x1512879f0fff 0x1512879f1000 - 0x1512879f4fff 0x1512879f5000 - 0x1512879f5fff 0x1512879f6000 - 0x1512879f6fff 0x1512879f7000 - 0x1512879f8fff 0x1512879f9000 - 0x151287a09fff 0x151287a0a000 - 0x151287a41fff 0x151287a42000 - 0x151287b78fff 0x151287b79000 - 0x151287b7cfff 0x151287b7d000 - 0x151287b7dfff 0x151287b7e000 - 0x151287b7efff 0x151287b7f000 - 0x151287b80fff 0x151287b81000 - 0x151287b81fff 0x151287b82000 - 0x151287b82fff 0x151287b83000 - 0x151287b83fff 0x151287b84000 - 0x151287b85fff 0x151287b86000 - 0x151287b88fff 0x151287b89000 - 0x151287b89fff 0x151287b8a000 - 0x151287b8afff 0x151287b8b000 - 0x151287b8bfff 0x151287b8c000 - 0x151287b8dfff 0x151287b8e000 - 0x151287b8ffff 0x151287b90000 - 0x151287b90fff 0x151287b91000 - 0x151287b91fff 0x151287b92000 - 0x151287b92fff 0x151287b93000 - 0x151287ba0fff 0x151287ba1000 - 0x151287baefff 0x151287baf000 - 0x151287bbcfff 0x151287bbd000 - 0x151287bc0fff 0x151287bc1000 - 0x151287bc1fff 0x151287bc2000 - 0x151287bd7fff 0x151287bd8000 - 0x151287c03fff 0x151287c04000 - 0x151287c0cfff 0x151287c0d000 - 0x151287c0dfff 0x151287c0e000 - 0x151287c10fff 0x151287c11000 - 0x151287c16fff 0x151287c17000 - 0x151287c19fff 0x151287c1e000 - 0x151287c24fff 0x151287c25000 - 0x151287c26fff 0x151287c27000 - 0x151287c47fff 0x151287c48000 - 0x151287c4ffff 0x151287c50000 - 0x151287c50fff 0x151287c51000 - 0x151287c51fff 0x151287c52000 - 0x151287c52fff 0x151287c53000 - 0x151287c53fff 0x7ffea2668000 - 0x7ffea2688fff 0x7ffea27bc000 - 0x7ffea27bffff 0x7ffea27c0000 - 0x7ffea27c1fff 0xffffffffff600000 - 0xffffffffff600fff 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x667000 - 0x687fff 0x100000000000 - 0x1000000bffff 0x14c7fbaab000 - 0x14c7fbaadfff 0x14c7fbaae000 - 0x14c7fbad2fff 0x14c7fbad3000 - 0x14c7fbc22fff 0x14c7fbc23000 - 0x14c7fbc6dfff 0x14c7fbc6e000 - 0x14c7fbc70fff 0x14c7fbc71000 - 0x14c7fbc73fff 0x14c7fbc74000 - 0x14c7fbc77fff 0x14c7fbc78000 - 0x14c7fbc7afff 0x14c7fbc7b000 - 0x14c7fbc8cfff 0x14c7fbc8d000 - 0x14c7fbc90fff 0x14c7fbc91000 - 0x14c7fbc91fff 0x14c7fbc92000 - 0x14c7fbc92fff 0x14c7fbc93000 - 0x14c7fbc94fff 0x14c7fbc95000 - 0x14c7fbca5fff 0x14c7fbca6000 - 0x14c7fbcddfff 0x14c7fbcde000 - 0x14c7fbe14fff 0x14c7fbe15000 - 0x14c7fbe18fff 0x14c7fbe19000 - 0x14c7fbe19fff 0x14c7fbe1a000 - 0x14c7fbe1afff 0x14c7fbe1b000 - 0x14c7fbe1cfff 0x14c7fbe1d000 - 0x14c7fbe1dfff 0x14c7fbe1e000 - 0x14c7fbe1efff 0x14c7fbe1f000 - 0x14c7fbe1ffff 0x14c7fbe20000 - 0x14c7fbe21fff 0x14c7fbe22000 - 0x14c7fbe24fff 0x14c7fbe25000 - 0x14c7fbe25fff 0x14c7fbe26000 - 0x14c7fbe26fff 0x14c7fbe27000 - 0x14c7fbe27fff 0x14c7fbe28000 - 0x14c7fbe29fff 0x14c7fbe2a000 - 0x14c7fbe2bfff 0x14c7fbe2c000 - 0x14c7fbe2cfff 0x14c7fbe2d000 - 0x14c7fbe2dfff 0x14c7fbe2e000 - 0x14c7fbe2efff 0x14c7fbe2f000 - 0x14c7fbe3cfff 0x14c7fbe3d000 - 0x14c7fbe4afff 0x14c7fbe4b000 - 0x14c7fbe58fff 0x14c7fbe59000 - 0x14c7fbe5cfff 0x14c7fbe5d000 - 0x14c7fbe5dfff 0x14c7fbe5e000 - 0x14c7fbe73fff 0x14c7fbe74000 - 0x14c7fbe9ffff 0x14c7fbea0000 - 0x14c7fbea8fff 0x14c7fbea9000 - 0x14c7fbea9fff 0x14c7fbeaa000 - 0x14c7fbeacfff 0x14c7fbead000 - 0x14c7fbeb2fff 0x14c7fbeb3000 - 0x14c7fbeb5fff 0x14c7fbeba000 - 0x14c7fbec0fff 0x14c7fbec1000 - 0x14c7fbec2fff 0x14c7fbec3000 - 0x14c7fbee3fff 0x14c7fbee4000 - 0x14c7fbeebfff 0x14c7fbeec000 - 0x14c7fbeecfff 0x14c7fbeed000 - 0x14c7fbeedfff 0x14c7fbeee000 - 0x14c7fbeeefff 0x14c7fbeef000 - 0x14c7fbeeffff 0x7ffc3f7ee000 - 0x7ffc3f80efff 0x7ffc3f997000 - 0x7ffc3f99afff 0x7ffc3f99b000 - 0x7ffc3f99cfff 0xffffffffff600000 - 0xffffffffff600fff 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)))) 2095734 Warning: reserving address range 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1449000 - 0x1469fff 0x100000000000 - 0x1000000bffff 0x15489aa47000 - 0x15489aa49fff 0x15489aa4a000 - 0x15489aa6efff 0x15489aa6f000 - 0x15489abbefff 0x15489abbf000 - 0x15489ac09fff 0x15489ac0a000 - 0x15489ac0cfff 0x15489ac0d000 - 0x15489ac0ffff 0x15489ac10000 - 0x15489ac13fff 0x15489ac14000 - 0x15489ac16fff 0x15489ac17000 - 0x15489ac28fff 0x15489ac29000 - 0x15489ac2cfff 0x15489ac2d000 - 0x15489ac2dfff 0x15489ac2e000 - 0x15489ac2efff 0x15489ac2f000 - 0x15489ac30fff 0x15489ac31000 - 0x15489ac41fff 0x15489ac42000 - 0x15489ac79fff 0x15489ac7a000 - 0x15489adb0fff 0x15489adb1000 - 0x15489adb4fff 0x15489adb5000 - 0x15489adb5fff 0x15489adb6000 - 0x15489adb6fff 0x15489adb7000 - 0x15489adb8fff 0x15489adb9000 - 0x15489adb9fff 0x15489adba000 - 0x15489adbafff 0x15489adbb000 - 0x15489adbbfff 0x15489adbc000 - 0x15489adbdfff 0x15489adbe000 - 0x15489adc0fff 0x15489adc1000 - 0x15489adc1fff 0x15489adc2000 - 0x15489adc2fff 0x15489adc3000 - 0x15489adc3fff 0x15489adc4000 - 0x15489adc5fff 0x15489adc6000 - 0x15489adc7fff 0x15489adc8000 - 0x15489adc8fff 0x15489adc9000 - 0x15489adc9fff 0x15489adca000 - 0x15489adcafff 0x15489adcb000 - 0x15489add8fff 0x15489add9000 - 0x15489ade6fff 0x15489ade7000 - 0x15489adf4fff 0x15489adf5000 - 0x15489adf8fff 0x15489adf9000 - 0x15489adf9fff 0x15489adfa000 - 0x15489ae0ffff 0x15489ae10000 - 0x15489ae3bfff 0x15489ae3c000 - 0x15489ae44fff 0x15489ae45000 - 0x15489ae45fff 0x15489ae46000 - 0x15489ae48fff 0x15489ae49000 - 0x15489ae4efff 0x15489ae4f000 - 0x15489ae51fff 0x15489ae56000 - 0x15489ae5cfff 0x15489ae5d000 - 0x15489ae5efff 0x15489ae5f000 - 0x15489ae7ffff 0x15489ae80000 - 0x15489ae87fff 0x15489ae88000 - 0x15489ae88fff 0x15489ae89000 - 0x15489ae89fff 0x15489ae8a000 - 0x15489ae8afff 0x15489ae8b000 - 0x15489ae8bfff 0x7ffd9662f000 - 0x7ffd9664ffff 0x7ffd96717000 - 0x7ffd9671afff 0x7ffd9671b000 - 0x7ffd9671cfff 0xffffffffff600000 - 0xffffffffff600fff EQUAL-OK: (T T T T "(quit)" NIL "[1]> ") (LET ((ARGS (LIST (CODE-CHAR (RANDOM CHAR-CODE-LIMIT)) (USER-HOMEDIR-PATHNAME) '[1]> ARGS))) (LOOP :FOR L :IN '((LAMBDA (A B C) (CONCATENATE 'STRING " [" (SYMBOL-NAME C) " " (NAMESTRING B) " " (CHAR-NAME A) "]"))) :FOR C = (COMPILE NIL L) :DO (DISASSEMBLE C) :ALWAYS (STRING= (APPLY (COERCE L 'FUNCTION) ARGS) (SHOW (APPLY C ARGS))))) Disassembly of function NIL (CONST 0) = "[" (CONST 1) = " " (CONST 2) = " " (CONST 3) = "]" 3 required arguments 0 optional arguments No rest parameter No keyword parameters 12 byte-code instructions: 0 (CONST&PUSH 0) ; "[" 1 (LOAD&PUSH 2) 2 (CALLS2&PUSH 166) ; SYMBOL-NAME 4 (CONST&PUSH 1) ; " " 5 (LOAD&PUSH 5) 6 (CALLS2&PUSH 6) ; NAMESTRING 8 (CONST&PUSH 2) ; " " 9 (LOAD&PUSH 8) 10 (CALLS1&PUSH 48) ; CHAR-NAME 12 (CONST&PUSH 3) ; "]" 13 (CALLSR 7 19) ; STRING-CONCAT 16 (SKIP&RET 4) "[ARGS /builddir/ U000A68C3]" 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))))) "buildvm-x86-29.iad2.fedoraproject.org" "buildvm-x86-29.iad2.fedoraproject.org [10.3.169.79]" 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: 5291032 (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-481261 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-481271 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-481552 : #:B-481554 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/s2/" #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/" #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/s1/" #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/s2/" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d2/s2/" (50 17 23 12 11 2020) 15) (#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/" (50 17 23 12 11 2020) 15) (#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/" (50 17 23 12 11 2020) 35) (#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/" (50 17 23 12 11 2020) 15) (#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/" (50 17 23 12 11 2020) 15) (#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/" (50 17 23 12 11 2020) 35) (#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/" (50 17 23 12 11 2020) 35)) /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d1/f 0 2020-11-12 23:17:50 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d1/s1/f 0 2020-11-12 23:17:50 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d1/s2/f 0 2020-11-12 23:17:50 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d2/f 0 2020-11-12 23:17:50 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d2/s1/f 0 2020-11-12 23:17:50 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d2/s2/f 0 2020-11-12 23:17:50 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/f 0 2020-11-12 23:17:50 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/ 35 2020-11-12 23:17:50 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d1/ 35 2020-11-12 23:17:50 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d1/s1/ 15 2020-11-12 23:17:50 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d1/s2/ 15 2020-11-12 23:17:50 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d2/ 35 2020-11-12 23:17:50 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d2/s1/ 15 2020-11-12 23:17:50 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-my-dir/d2/s2/ 15 2020-11-12 23:17:50 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/s1/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/s2/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/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/s2/" 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/" 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/s1/" 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"/" 3814211482 4096) EQL-OK: T (EQUALP (SHOW (MULTIPLE-VALUE-LIST (PROBE-PATHNAME "/etc"))) (SHOW (MULTIPLE-VALUE-LIST (PROBE-PATHNAME "/etc/")))) (#P"/etc/" #P"/etc/" 3814211518 4096) (#P"/etc/" #P"/etc/" 3814211518 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/" 3814211870 4096) (#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/" 3814211870 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" 3814211870 0) (#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/test-pathname" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/test-pathname" 3814211870 0) (#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/test-pathname" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/test-pathname" 3814211870 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-11-12 23:17:50 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-load-weird-dir/weird  0 2020-11-12 23:17:50 /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/tests/path-tst-load-weird-dir/ 51 2020-11-12 23:17:50 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 (buildvm-x86-29.iad2.fedoraproject.org)" 44184) ("127.0.0.1 (localhost)" 9096) ("127.0.0.1 (buildvm-x86-29.iad2.fedoraproject.org)" 9096) ("127.0.0.1 (localhost)" 44184)) 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1d73000 - 0x1d93fff 0x100000000000 - 0x1000000bffff 0x151f0ea62000 - 0x151f0ea64fff 0x151f0ea65000 - 0x151f0ea89fff 0x151f0ea8a000 - 0x151f0ebd9fff 0x151f0ebda000 - 0x151f0ec24fff 0x151f0ec25000 - 0x151f0ec27fff 0x151f0ec28000 - 0x151f0ec2afff 0x151f0ec2b000 - 0x151f0ec2efff 0x151f0ec2f000 - 0x151f0ec31fff 0x151f0ec32000 - 0x151f0ec43fff 0x151f0ec44000 - 0x151f0ec47fff 0x151f0ec48000 - 0x151f0ec48fff 0x151f0ec49000 - 0x151f0ec49fff 0x151f0ec4a000 - 0x151f0ec4bfff 0x151f0ec4c000 - 0x151f0ec5cfff 0x151f0ec5d000 - 0x151f0ec94fff 0x151f0ec95000 - 0x151f0edcbfff 0x151f0edcc000 - 0x151f0edcffff 0x151f0edd0000 - 0x151f0edd0fff 0x151f0edd1000 - 0x151f0edd1fff 0x151f0edd2000 - 0x151f0edd3fff 0x151f0edd4000 - 0x151f0edd4fff 0x151f0edd5000 - 0x151f0edd5fff 0x151f0edd6000 - 0x151f0edd6fff 0x151f0edd7000 - 0x151f0edd8fff 0x151f0edd9000 - 0x151f0eddbfff 0x151f0eddc000 - 0x151f0eddcfff 0x151f0eddd000 - 0x151f0edddfff 0x151f0edde000 - 0x151f0eddefff 0x151f0eddf000 - 0x151f0ede0fff 0x151f0ede1000 - 0x151f0ede2fff 0x151f0ede3000 - 0x151f0ede3fff 0x151f0ede4000 - 0x151f0ede4fff 0x151f0ede5000 - 0x151f0ede5fff 0x151f0ede6000 - 0x151f0edf3fff 0x151f0edf4000 - 0x151f0ee01fff 0x151f0ee02000 - 0x151f0ee0ffff 0x151f0ee10000 - 0x151f0ee13fff 0x151f0ee14000 - 0x151f0ee14fff 0x151f0ee15000 - 0x151f0ee2afff 0x151f0ee2b000 - 0x151f0ee56fff 0x151f0ee57000 - 0x151f0ee5ffff 0x151f0ee60000 - 0x151f0ee60fff 0x151f0ee61000 - 0x151f0ee63fff 0x151f0ee64000 - 0x151f0ee69fff 0x151f0ee6a000 - 0x151f0ee6cfff 0x151f0ee71000 - 0x151f0ee77fff 0x151f0ee78000 - 0x151f0ee79fff 0x151f0ee7a000 - 0x151f0ee9afff 0x151f0ee9b000 - 0x151f0eea2fff 0x151f0eea3000 - 0x151f0eea3fff 0x151f0eea4000 - 0x151f0eea4fff 0x151f0eea5000 - 0x151f0eea5fff 0x151f0eea6000 - 0x151f0eea6fff 0x7fff00aa7000 - 0x7fff00ac7fff 0x7fff00aee000 - 0x7fff00af1fff 0x7fff00af2000 - 0x7fff00af3fff 0xffffffffff600000 - 0xffffffffff600fff 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x14da000 - 0x14fafff 0x100000000000 - 0x1000000bffff 0x1552454ab000 - 0x1552454adfff 0x1552454ae000 - 0x1552454d2fff 0x1552454d3000 - 0x155245622fff 0x155245623000 - 0x15524566dfff 0x15524566e000 - 0x155245670fff 0x155245671000 - 0x155245673fff 0x155245674000 - 0x155245677fff 0x155245678000 - 0x15524567afff 0x15524567b000 - 0x15524568cfff 0x15524568d000 - 0x155245690fff 0x155245691000 - 0x155245691fff 0x155245692000 - 0x155245692fff 0x155245693000 - 0x155245694fff 0x155245695000 - 0x1552456a5fff 0x1552456a6000 - 0x1552456ddfff 0x1552456de000 - 0x155245814fff 0x155245815000 - 0x155245818fff 0x155245819000 - 0x155245819fff 0x15524581a000 - 0x15524581afff 0x15524581b000 - 0x15524581cfff 0x15524581d000 - 0x15524581dfff 0x15524581e000 - 0x15524581efff 0x15524581f000 - 0x15524581ffff 0x155245820000 - 0x155245821fff 0x155245822000 - 0x155245824fff 0x155245825000 - 0x155245825fff 0x155245826000 - 0x155245826fff 0x155245827000 - 0x155245827fff 0x155245828000 - 0x155245829fff 0x15524582a000 - 0x15524582bfff 0x15524582c000 - 0x15524582cfff 0x15524582d000 - 0x15524582dfff 0x15524582e000 - 0x15524582efff 0x15524582f000 - 0x15524583cfff 0x15524583d000 - 0x15524584afff 0x15524584b000 - 0x155245858fff 0x155245859000 - 0x15524585cfff 0x15524585d000 - 0x15524585dfff 0x15524585e000 - 0x155245873fff 0x155245874000 - 0x15524589ffff 0x1552458a0000 - 0x1552458a8fff 0x1552458a9000 - 0x1552458a9fff 0x1552458aa000 - 0x1552458acfff 0x1552458ad000 - 0x1552458b2fff 0x1552458b3000 - 0x1552458b5fff 0x1552458ba000 - 0x1552458c0fff 0x1552458c1000 - 0x1552458c2fff 0x1552458c3000 - 0x1552458e3fff 0x1552458e4000 - 0x1552458ebfff 0x1552458ec000 - 0x1552458ecfff 0x1552458ed000 - 0x1552458edfff 0x1552458ee000 - 0x1552458eefff 0x1552458ef000 - 0x1552458effff 0x7ffcc41d5000 - 0x7ffcc41f5fff 0x7ffcc41f9000 - 0x7ffcc41fcfff 0x7ffcc41fd000 - 0x7ffcc41fefff 0xffffffffff600000 - 0xffffffffff600fff [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: 7.334783 sec. Run time: 7.280728 sec. Space: 127793488 Bytes GC: 85, GC time: 0.539269 sec. EQL-OK: NIL (TIME-LOOP 4300066700 4300181201 10) (:GOOD 4300066700 NIL) Real time: 0.110244 sec. Run time: 0.109429 sec. Space: 1465776 Bytes GC: 1, GC time: 0.007242 sec. EQL-OK: NIL (TIME-LOOP 100000 5000000000 5000 0) (:GOOD 100000 NIL) Real time: 4.821675 sec. Run time: 4.784372 sec. Space: 127793488 Bytes GC: 85, GC time: 0.530449 sec. EQL-OK: NIL (TIME-LOOP 4300066700 4300081201 10 0) (:GOOD 4300066700 NIL) Real time: 0.004973 sec. Run time: 0.00495 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.040757 sec. Run time: 0.040317 sec. Space: 0 Bytes GC: 1, GC time: 0.040297 sec. Real time: 0.027199 sec. Run time: 0.026886 sec. Space: 0 Bytes GC: 1, GC time: 0.026866 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.040013 sec. Run time: 0.039668 sec. Space: 0 Bytes GC: 1, GC time: 0.039647 sec. Real time: 0.027235 sec. Run time: 0.026974 sec. Space: 0 Bytes GC: 1, GC time: 0.026953 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: 64.32383 sec. Run time: 60.481705 sec. Space: 1365434112 Bytes GC: 1228, GC time: 15.465669 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x9be000 - 0x9defff 0x100000000000 - 0x1000000bffff 0x14e18c56f000 - 0x14e18cc13fff 0x14e18cc14000 - 0x14e18cc67fff 0x14e18cc68000 - 0x14e18cc6afff 0x14e18cc6b000 - 0x14e18cc8ffff 0x14e18cc90000 - 0x14e18cddffff 0x14e18cde0000 - 0x14e18ce2afff 0x14e18ce2b000 - 0x14e18ce2dfff 0x14e18ce2e000 - 0x14e18ce30fff 0x14e18ce31000 - 0x14e18ce34fff 0x14e18ce35000 - 0x14e18ce37fff 0x14e18ce38000 - 0x14e18ce49fff 0x14e18ce4a000 - 0x14e18ce4dfff 0x14e18ce4e000 - 0x14e18ce4efff 0x14e18ce4f000 - 0x14e18ce4ffff 0x14e18ce50000 - 0x14e18ce51fff 0x14e18ce52000 - 0x14e18ce62fff 0x14e18ce63000 - 0x14e18ce9afff 0x14e18ce9b000 - 0x14e18cfd1fff 0x14e18cfd2000 - 0x14e18cfd5fff 0x14e18cfd6000 - 0x14e18cfd6fff 0x14e18cfd7000 - 0x14e18cfd7fff 0x14e18cfd8000 - 0x14e18cfd9fff 0x14e18cfda000 - 0x14e18cfdafff 0x14e18cfdb000 - 0x14e18cfdbfff 0x14e18cfdc000 - 0x14e18cfdcfff 0x14e18cfdd000 - 0x14e18cfdefff 0x14e18cfdf000 - 0x14e18cfe1fff 0x14e18cfe2000 - 0x14e18cfe2fff 0x14e18cfe3000 - 0x14e18cfe3fff 0x14e18cfe4000 - 0x14e18cfe4fff 0x14e18cfe5000 - 0x14e18cfe6fff 0x14e18cfe7000 - 0x14e18cfe8fff 0x14e18cfe9000 - 0x14e18cfe9fff 0x14e18cfea000 - 0x14e18cfeafff 0x14e18cfeb000 - 0x14e18cfebfff 0x14e18cfec000 - 0x14e18cff9fff 0x14e18cffa000 - 0x14e18d007fff 0x14e18d008000 - 0x14e18d015fff 0x14e18d016000 - 0x14e18d019fff 0x14e18d01a000 - 0x14e18d01afff 0x14e18d01b000 - 0x14e18d030fff 0x14e18d031000 - 0x14e18d05cfff 0x14e18d05d000 - 0x14e18d065fff 0x14e18d066000 - 0x14e18d066fff 0x14e18d067000 - 0x14e18d069fff 0x14e18d06a000 - 0x14e18d06ffff 0x14e18d070000 - 0x14e18d072fff 0x14e18d075000 - 0x14e18d075fff 0x14e18d076000 - 0x14e18d076fff 0x14e18d077000 - 0x14e18d07dfff 0x14e18d07e000 - 0x14e18d07ffff 0x14e18d080000 - 0x14e18d0a0fff 0x14e18d0a1000 - 0x14e18d0a8fff 0x14e18d0a9000 - 0x14e18d0a9fff 0x14e18d0aa000 - 0x14e18d0aafff 0x14e18d0ab000 - 0x14e18d0abfff 0x14e18d0ac000 - 0x14e18d0acfff 0x7ffc79b35000 - 0x7ffc79b55fff 0x7ffc79bd7000 - 0x7ffc79bdafff 0x7ffc79bdb000 - 0x7ffc79bdcfff 0xffffffffff600000 - 0xffffffffff600fff 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0x23bc000 - 0x23dcfff 0x100000000000 - 0x1000000bffff 0x14b82e5de000 - 0x14b82ec82fff 0x14b82ec83000 - 0x14b82ecd6fff 0x14b82ecd7000 - 0x14b82ecd8fff 0x14b82ecd9000 - 0x14b82ecfdfff 0x14b82ecfe000 - 0x14b82ee4dfff 0x14b82ee4e000 - 0x14b82ee98fff 0x14b82ee99000 - 0x14b82ee9bfff 0x14b82ee9c000 - 0x14b82ee9efff 0x14b82ee9f000 - 0x14b82eea2fff 0x14b82eea3000 - 0x14b82eea5fff 0x14b82eea6000 - 0x14b82eeb7fff 0x14b82eeb8000 - 0x14b82eebbfff 0x14b82eebc000 - 0x14b82eebcfff 0x14b82eebd000 - 0x14b82eebdfff 0x14b82eebe000 - 0x14b82eecefff 0x14b82eecf000 - 0x14b82ef06fff 0x14b82ef07000 - 0x14b82f03dfff 0x14b82f03e000 - 0x14b82f041fff 0x14b82f042000 - 0x14b82f042fff 0x14b82f043000 - 0x14b82f043fff 0x14b82f044000 - 0x14b82f045fff 0x14b82f046000 - 0x14b82f046fff 0x14b82f047000 - 0x14b82f047fff 0x14b82f048000 - 0x14b82f048fff 0x14b82f049000 - 0x14b82f04afff 0x14b82f04b000 - 0x14b82f04cfff 0x14b82f04d000 - 0x14b82f04ffff 0x14b82f050000 - 0x14b82f050fff 0x14b82f051000 - 0x14b82f051fff 0x14b82f052000 - 0x14b82f052fff 0x14b82f053000 - 0x14b82f054fff 0x14b82f055000 - 0x14b82f056fff 0x14b82f057000 - 0x14b82f057fff 0x14b82f058000 - 0x14b82f058fff 0x14b82f059000 - 0x14b82f059fff 0x14b82f05a000 - 0x14b82f067fff 0x14b82f068000 - 0x14b82f075fff 0x14b82f076000 - 0x14b82f083fff 0x14b82f084000 - 0x14b82f087fff 0x14b82f088000 - 0x14b82f088fff 0x14b82f089000 - 0x14b82f08afff 0x14b82f08b000 - 0x14b82f09ffff 0x14b82f0a0000 - 0x14b82f0b9fff 0x14b82f0ba000 - 0x14b82f0bafff 0x14b82f0bb000 - 0x14b82f0c3fff 0x14b82f0c4000 - 0x14b82f0d2fff 0x14b82f0d3000 - 0x14b82f16efff 0x14b82f16f000 - 0x14b82f207fff 0x14b82f208000 - 0x14b82f208fff 0x14b82f209000 - 0x14b82f209fff 0x14b82f20a000 - 0x14b82f21ffff 0x14b82f220000 - 0x14b82f24bfff 0x14b82f24c000 - 0x14b82f254fff 0x14b82f255000 - 0x14b82f255fff 0x14b82f256000 - 0x14b82f258fff 0x14b82f259000 - 0x14b82f25efff 0x14b82f25f000 - 0x14b82f261fff 0x14b82f264000 - 0x14b82f264fff 0x14b82f265000 - 0x14b82f265fff 0x14b82f266000 - 0x14b82f26cfff 0x14b82f26d000 - 0x14b82f26efff 0x14b82f26f000 - 0x14b82f28ffff 0x14b82f290000 - 0x14b82f297fff 0x14b82f298000 - 0x14b82f298fff 0x14b82f299000 - 0x14b82f299fff 0x14b82f29a000 - 0x14b82f29afff 0x14b82f29b000 - 0x14b82f29bfff 0x7ffeed395000 - 0x7ffeed3b5fff 0x7ffeed3ee000 - 0x7ffeed3f1fff 0x7ffeed3f2000 - 0x7ffeed3f3fff 0xffffffffff600000 - 0xffffffffff600fff 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0x2197000 - 0x21b7fff 0x100000000000 - 0x1000000bffff 0x14caa0ad6000 - 0x14caa117afff 0x14caa117b000 - 0x14caa11cefff 0x14caa11cf000 - 0x14caa11d0fff 0x14caa11d1000 - 0x14caa11f5fff 0x14caa11f6000 - 0x14caa1345fff 0x14caa1346000 - 0x14caa1390fff 0x14caa1391000 - 0x14caa1393fff 0x14caa1394000 - 0x14caa1396fff 0x14caa1397000 - 0x14caa139afff 0x14caa139b000 - 0x14caa139dfff 0x14caa139e000 - 0x14caa13affff 0x14caa13b0000 - 0x14caa13b3fff 0x14caa13b4000 - 0x14caa13b4fff 0x14caa13b5000 - 0x14caa13b5fff 0x14caa13b6000 - 0x14caa13c6fff 0x14caa13c7000 - 0x14caa13fefff 0x14caa13ff000 - 0x14caa1535fff 0x14caa1536000 - 0x14caa1539fff 0x14caa153a000 - 0x14caa153afff 0x14caa153b000 - 0x14caa153bfff 0x14caa153c000 - 0x14caa153dfff 0x14caa153e000 - 0x14caa153efff 0x14caa153f000 - 0x14caa153ffff 0x14caa1540000 - 0x14caa1540fff 0x14caa1541000 - 0x14caa1542fff 0x14caa1543000 - 0x14caa1544fff 0x14caa1545000 - 0x14caa1547fff 0x14caa1548000 - 0x14caa1548fff 0x14caa1549000 - 0x14caa1549fff 0x14caa154a000 - 0x14caa154afff 0x14caa154b000 - 0x14caa154cfff 0x14caa154d000 - 0x14caa154efff 0x14caa154f000 - 0x14caa154ffff 0x14caa1550000 - 0x14caa1550fff 0x14caa1551000 - 0x14caa1551fff 0x14caa1552000 - 0x14caa155ffff 0x14caa1560000 - 0x14caa156dfff 0x14caa156e000 - 0x14caa157bfff 0x14caa157c000 - 0x14caa157ffff 0x14caa1580000 - 0x14caa1580fff 0x14caa1581000 - 0x14caa1582fff 0x14caa1583000 - 0x14caa1597fff 0x14caa1598000 - 0x14caa15b1fff 0x14caa15b2000 - 0x14caa15b2fff 0x14caa15b3000 - 0x14caa15bbfff 0x14caa15bc000 - 0x14caa15cafff 0x14caa15cb000 - 0x14caa1666fff 0x14caa1667000 - 0x14caa16fffff 0x14caa1700000 - 0x14caa1700fff 0x14caa1701000 - 0x14caa1701fff 0x14caa1702000 - 0x14caa1717fff 0x14caa1718000 - 0x14caa1743fff 0x14caa1744000 - 0x14caa174cfff 0x14caa174d000 - 0x14caa174dfff 0x14caa174e000 - 0x14caa1750fff 0x14caa1751000 - 0x14caa1756fff 0x14caa1757000 - 0x14caa1759fff 0x14caa175c000 - 0x14caa175cfff 0x14caa175d000 - 0x14caa175dfff 0x14caa175e000 - 0x14caa1764fff 0x14caa1765000 - 0x14caa1766fff 0x14caa1767000 - 0x14caa1787fff 0x14caa1788000 - 0x14caa178ffff 0x14caa1790000 - 0x14caa1790fff 0x14caa1791000 - 0x14caa1791fff 0x14caa1792000 - 0x14caa1792fff 0x14caa1793000 - 0x14caa1793fff 0x7ffd3da15000 - 0x7ffd3da35fff 0x7ffd3daff000 - 0x7ffd3db02fff 0x7ffd3db03000 - 0x7ffd3db04fff 0xffffffffff600000 - 0xffffffffff600fff 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: 0.515371 sec [scaled: 0.5382242125505582] * file: "fac" > form: (fac 1000) unchecked: 402387260077093773543702433923003985719374864210714632543799910429938512398629020592044208486969404800479988610197196058631666872994808558901323829669944590997424504087073759918823627727188732519779505950995276120874975462497043601418278094646496291056393887437886487337119181045825783647849977012476632889835955735432513185323958463075557409114262417474349347553428646576611667797396668820291207379143853719588249808126867838374559731746136085379534524221586593201928090878297308431392844403281231558611036976801357304216168747609675871348312025478589320767169132448426236131412508780208000261683151027341827977704784635868170164365024153691398281264810213092761244896359928705114964975419909342221566832572080821333186116811553615836546984046708975602900950537616475847728421889679646244945160765353408198901385442487984959953319101723355556602139450399736280750137837615307127761926849034352625200015888535147331611702103968175921510907788019393178114194545257223865541461062892187960223838971476088506276862967146674697562911234082439208160153780889893964518263243671616762179168909779911903754031274622289988005195444414282012187361745992642956581746628302955570299024324153181617210465832036786906117260158783520751516284225540265170483304226143974286933061690897968482590125458327168226458066526769958652682272807075781391858178889652208164348344825993266043367660176999612831860788386150279465955131156552036093988180612138558600301435694527224206344631797460594682573103790084024432438465657245014402821885252470935190620929023136493273497565513958720559654228749774011413346962715422845862377387538230483865688976461927383814900140767310446640259899490222221765904339901886018566526485061799702356193897017860040811889729918311021171229845901641921068884387121855646124960798722908519296819372388642614839657382291123125024186649353143970137428531926649875337218940694281434118520158014123344828015051399694290153483077644569099073152433278288269864602789864321139083506217095002597389863554277196742822248757586765752344220207573630569498825087968928162753848863396909959826280956121450994871701244516461260379029309120889086942028510640182154399457156805941872748998094254742173582401063677404595741785160829230135358081840096996372524230560855903700624271243416909004153690105933983835777939410970027753472000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 elapsed: 0.207835 sec [scaled: 0.21705107430461792] * file: "acker" > form: (acker 3 5) correct: 253 elapsed: 0.059685 sec [scaled: 0.06233162542339415] > form: (acker 3 6) correct: 509 elapsed: 0.128565 sec [scaled: 0.13426598680671306] > form: (acker 3 7) correct: 1021 elapsed: 0.175138 sec [scaled: 0.18290418385528026] * file: "bfib" > form: (bfib-test) correct: 6765 elapsed: 0.450176 sec [scaled: 0.4701382559537888] * file: "ctak" > form: (ctak 18 12 6) correct: 7 elapsed: 0.695504 sec [scaled: 0.7263448908179998] * file: "stak" > form: (stak 18 12 6) correct: 7 elapsed: 0.687613 sec [scaled: 0.718103978424333] * file: "tak" > form: (tak 18 12 6) correct: 7 elapsed: 0.546398 sec [scaled: 0.5706270498130471] * file: "takl" > form: (mas-bench) correct: (7 6 5 4 3 2 1) elapsed: 0.385705 sec [scaled: 0.40280840385239575] * file: "takr" > form: (tak0 18 12 6) correct: 7 elapsed: 0.564779 sec [scaled: 0.5898231226438657] * file: "boyer" > form: (boyer-test) correct: NIL elapsed: 0.320407 sec [scaled: 0.33461487990338357] * file: "browse" > form: (browse) correct: NIL elapsed: 0.329235 sec [scaled: 0.34383434189949186] * file: "dderiv" > form: (dderiv-run) correct: NIL elapsed: 0.50501 sec [scaled: 0.5274037723895162] * file: "deriv" > form: (deriv-run) correct: NIL elapsed: 0.145812 sec [scaled: 0.15227777441963553] * file: "destru" > form: (destructive 600 50) correct: NIL elapsed: 0.413759 sec [scaled: 0.43210640870500355] * file: "div2" > form: (test-div2-iterative) correct: NIL elapsed: 0.215666 sec [scaled: 0.22522932610474528] > form: (test-div2-recursive) correct: NIL elapsed: 0.236827 sec [scaled: 0.24732867310289294] * file: "fft" > form: (fft-bench) correct: NIL elapsed: 0.376405 sec [scaled: 0.39309601185377685] * file: "fprint" > form: (fprint) correct: T elapsed: 0.400801 sec [scaled: 0.418573809186928] * file: "fread" > form: (fread) correct: T elapsed: 0.414825 sec [scaled: 0.4332196785835549] * file: "frpoly" > form: (pexptsq (Z 1 1 0 (Y 1 1 0 (X 1 1 0 1))) 2) correct: NIL elapsed: 0.000197 sec [scaled: 0.00020573561545461416] > form: (pexptsq (Z 1 100000 0 (Y 1 100000 0 (X 1 100000 0 100000))) 2) correct: NIL elapsed: 0.000207 sec [scaled: 0.00021617904771119355] > form: (pexptsq (Z 1 1.0 0 (Y 1 1.0 0 (X 1 1.0 0 1.0))) 2) correct: NIL elapsed: 0.000209 sec [scaled: 0.00021826773416250945] > form: (pexptsq (Z 1 1 0 (Y 1 1 0 (X 1 1 0 1))) 5) correct: NIL elapsed: 0.001818 sec [scaled: 0.0018986159842461347] > form: (pexptsq (Z 1 100000 0 (Y 1 100000 0 (X 1 100000 0 100000))) 5) correct: NIL elapsed: 0.001903 sec [scaled: 0.0019873851584270596] > form: (pexptsq (Z 1 1.0 0 (Y 1 1.0 0 (X 1 1.0 0 1.0))) 5) correct: NIL elapsed: 0.00182 sec [scaled: 0.0019007046706974505] > form: (pexptsq (Z 1 1 0 (Y 1 1 0 (X 1 1 0 1))) 10) correct: NIL elapsed: 0.020569 sec [scaled: 0.021481095808558167] > form: (pexptsq (Z 1 100000 0 (Y 1 100000 0 (X 1 100000 0 100000))) 10) correct: NIL elapsed: 0.020178 sec [scaled: 0.021072757607325913] > form: (pexptsq (Z 1 1.0 0 (Y 1 1.0 0 (X 1 1.0 0 1.0))) 10) correct: NIL elapsed: 0.02036 sec [scaled: 0.021262828074395657] > form: (pexptsq (Z 1 1 0 (Y 1 1 0 (X 1 1 0 1))) 15) correct: NIL elapsed: 0.102135 sec [scaled: 0.10666399535257369] > form: (pexptsq (Z 1 100000 0 (Y 1 100000 0 (X 1 100000 0 100000))) 15) correct: NIL elapsed: 0.052583 sec [scaled: 0.05491469983477145] > form: (pexptsq (Z 1 1.0 0 (Y 1 1.0 0 (X 1 1.0 0 1.0))) 15) correct: NIL elapsed: 0.040525 sec [scaled: 0.042322009219788015] * file: "puzzle" > form: (puzzle-start) Success in 2005 trials. Success in 2005 trials. Success in 2005 trials. Success in 2005 trials.correct: NIL elapsed: 0.294499 sec [scaled: 0.30755803561303763] * file: "stream" > form: (nth-prime 50) correct: 229 elapsed: 0.026982 sec [scaled: 0.028178468914702534] > form: (nth-prime 100) correct: 541 elapsed: 0.194902 sec [scaled: 0.20354458336718378] > form: (nth-prime 150) correct: 863 elapsed: 0.267153 sec [scaled: 0.27899942576419556] * file: "tprint" > form: (tprint-test 100) correct: T elapsed: 0.327052 sec [scaled: 0.34155454063788054] * file: "traverse" > form: (init-traverse) correct: NIL elapsed: 0.035003 sec [scaled: 0.03655514592770487] > form: (run-traverse) correct: NIL elapsed: 0.216109 sec [scaled: 0.22569197015371173] * file: "triang" > form: (gogogo 22) correct: NIL elapsed: 1.215524 sec [scaled: 1.2694242550246417] Real time: 11.279066 sec. Run time: 11.197462 sec. Space: 641010976 Bytes GC: 616, GC time: 1.890923 sec. * :COMPILED: 2020:11:12 23:18:23 * CLISP [2.49.93+ (2018-02-18) (built 3814128000) (memory 3814211717)] compilation 0.51537 sec 0.53822 scaled fac 0.20783 sec 0.21705 scaled acker 0.36339 sec 0.37950 scaled bfib 0.45018 sec 0.47014 scaled ctak 0.69550 sec 0.72634 scaled stak 0.68761 sec 0.71810 scaled tak 0.54640 sec 0.57063 scaled takl 0.38571 sec 0.40281 scaled takr 0.56478 sec 0.58982 scaled boyer 0.32041 sec 0.33461 scaled browse 0.32923 sec 0.34383 scaled dderiv 0.50501 sec 0.52740 scaled deriv 0.14581 sec 0.15228 scaled destru 0.41376 sec 0.43211 scaled div2 0.45249 sec 0.47256 scaled fft 0.37640 sec 0.39310 scaled fprint 0.40080 sec 0.41857 scaled fread 0.41482 sec 0.43322 scaled frpoly 0.26250 sec 0.27414 scaled puzzle 0.29450 sec 0.30756 scaled stream 0.48904 sec 0.51072 scaled tprint 0.32705 sec 0.34155 scaled traverse 0.25111 sec 0.26225 scaled triang 1.21552 sec 1.26942 scaled total 10.61524 sec 11.08596 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x23ea000 - 0x240afff 0x100000000000 - 0x1000000bffff 0x153d02b3d000 - 0x153d031e1fff 0x153d031e2000 - 0x153d03235fff 0x153d03236000 - 0x153d03238fff 0x153d03239000 - 0x153d0325dfff 0x153d0325e000 - 0x153d033adfff 0x153d033ae000 - 0x153d033f8fff 0x153d033f9000 - 0x153d033fbfff 0x153d033fc000 - 0x153d033fefff 0x153d033ff000 - 0x153d03402fff 0x153d03403000 - 0x153d03405fff 0x153d03406000 - 0x153d03417fff 0x153d03418000 - 0x153d0341bfff 0x153d0341c000 - 0x153d0341cfff 0x153d0341d000 - 0x153d0341dfff 0x153d0341e000 - 0x153d0341ffff 0x153d03420000 - 0x153d03430fff 0x153d03431000 - 0x153d03468fff 0x153d03469000 - 0x153d0359ffff 0x153d035a0000 - 0x153d035a3fff 0x153d035a4000 - 0x153d035a4fff 0x153d035a5000 - 0x153d035a5fff 0x153d035a6000 - 0x153d035a7fff 0x153d035a8000 - 0x153d035a8fff 0x153d035a9000 - 0x153d035a9fff 0x153d035aa000 - 0x153d035aafff 0x153d035ab000 - 0x153d035acfff 0x153d035ad000 - 0x153d035affff 0x153d035b0000 - 0x153d035b0fff 0x153d035b1000 - 0x153d035b1fff 0x153d035b2000 - 0x153d035b2fff 0x153d035b3000 - 0x153d035b4fff 0x153d035b5000 - 0x153d035b6fff 0x153d035b7000 - 0x153d035b7fff 0x153d035b8000 - 0x153d035b8fff 0x153d035b9000 - 0x153d035b9fff 0x153d035ba000 - 0x153d035c7fff 0x153d035c8000 - 0x153d035d5fff 0x153d035d6000 - 0x153d035e3fff 0x153d035e4000 - 0x153d035e7fff 0x153d035e8000 - 0x153d035e8fff 0x153d035e9000 - 0x153d035fefff 0x153d035ff000 - 0x153d0362afff 0x153d0362b000 - 0x153d03633fff 0x153d03634000 - 0x153d03634fff 0x153d03635000 - 0x153d03637fff 0x153d03638000 - 0x153d0363dfff 0x153d0363e000 - 0x153d03640fff 0x153d03643000 - 0x153d03643fff 0x153d03644000 - 0x153d03644fff 0x153d03645000 - 0x153d0364bfff 0x153d0364c000 - 0x153d0364dfff 0x153d0364e000 - 0x153d0366efff 0x153d0366f000 - 0x153d03676fff 0x153d03677000 - 0x153d03677fff 0x153d03678000 - 0x153d03678fff 0x153d03679000 - 0x153d03679fff 0x153d0367a000 - 0x153d0367afff 0x7fffd92bd000 - 0x7fffd92ddfff 0x7fffd933e000 - 0x7fffd9341fff 0x7fffd9342000 - 0x7fffd9343fff 0xffffffffff600000 - 0xffffffffff600fff 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 (12,728,288 bytes) Bytes permanently allocated: 173,424 Bytes currently in use: 3,137,072 Bytes available until next GC: 780,258 3137072 ; 780258 ; 173424 ; 1 ; 107600 ; 11677 Bye. ./image -x "(setq zz 10) (saveinitmem \"image\")" Warning: reserving address range 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x9e7000 - 0xa07fff 0x100000000000 - 0x1000000bffff 0x14a2299a1000 - 0x14a22a045fff 0x14a22a046000 - 0x14a22a099fff 0x14a22a09a000 - 0x14a22a09cfff 0x14a22a09d000 - 0x14a22a0c1fff 0x14a22a0c2000 - 0x14a22a211fff 0x14a22a212000 - 0x14a22a25cfff 0x14a22a25d000 - 0x14a22a25ffff 0x14a22a260000 - 0x14a22a262fff 0x14a22a263000 - 0x14a22a266fff 0x14a22a267000 - 0x14a22a269fff 0x14a22a26a000 - 0x14a22a27bfff 0x14a22a27c000 - 0x14a22a27ffff 0x14a22a280000 - 0x14a22a280fff 0x14a22a281000 - 0x14a22a281fff 0x14a22a282000 - 0x14a22a283fff 0x14a22a284000 - 0x14a22a294fff 0x14a22a295000 - 0x14a22a2ccfff 0x14a22a2cd000 - 0x14a22a403fff 0x14a22a404000 - 0x14a22a407fff 0x14a22a408000 - 0x14a22a408fff 0x14a22a409000 - 0x14a22a409fff 0x14a22a40a000 - 0x14a22a40bfff 0x14a22a40c000 - 0x14a22a40cfff 0x14a22a40d000 - 0x14a22a40dfff 0x14a22a40e000 - 0x14a22a40efff 0x14a22a40f000 - 0x14a22a410fff 0x14a22a411000 - 0x14a22a413fff 0x14a22a414000 - 0x14a22a414fff 0x14a22a415000 - 0x14a22a415fff 0x14a22a416000 - 0x14a22a416fff 0x14a22a417000 - 0x14a22a418fff 0x14a22a419000 - 0x14a22a41afff 0x14a22a41b000 - 0x14a22a41bfff 0x14a22a41c000 - 0x14a22a41cfff 0x14a22a41d000 - 0x14a22a41dfff 0x14a22a41e000 - 0x14a22a42bfff 0x14a22a42c000 - 0x14a22a439fff 0x14a22a43a000 - 0x14a22a447fff 0x14a22a448000 - 0x14a22a44bfff 0x14a22a44c000 - 0x14a22a44cfff 0x14a22a44d000 - 0x14a22a462fff 0x14a22a463000 - 0x14a22a48efff 0x14a22a48f000 - 0x14a22a497fff 0x14a22a498000 - 0x14a22a498fff 0x14a22a499000 - 0x14a22a49bfff 0x14a22a49c000 - 0x14a22a4a1fff 0x14a22a4a2000 - 0x14a22a4a4fff 0x14a22a4a7000 - 0x14a22a4a7fff 0x14a22a4a8000 - 0x14a22a4a8fff 0x14a22a4a9000 - 0x14a22a4affff 0x14a22a4b0000 - 0x14a22a4b1fff 0x14a22a4b2000 - 0x14a22a4d2fff 0x14a22a4d3000 - 0x14a22a4dafff 0x14a22a4db000 - 0x14a22a4dbfff 0x14a22a4dc000 - 0x14a22a4dcfff 0x14a22a4dd000 - 0x14a22a4ddfff 0x14a22a4de000 - 0x14a22a4defff 0x7ffd86071000 - 0x7ffd86091fff 0x7ffd86142000 - 0x7ffd86145fff 0x7ffd86146000 - 0x7ffd86147fff 0xffffffffff600000 - 0xffffffffff600fff 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,313,256 bytes) Bytes permanently allocated: 173,424 Bytes currently in use: 3,136,968 Bytes available until next GC: 780,172 3136968 ; 780172 ; 173424 ; 1 ; 27712 ; 11035 Bye. ./image -norc -M image.mem -x zz Warning: reserving address range 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x2523000 - 0x2543fff 0x100000000000 - 0x1000000bffff 0x150fb6c91000 - 0x150fb7335fff 0x150fb7336000 - 0x150fb7389fff 0x150fb738a000 - 0x150fb738cfff 0x150fb738d000 - 0x150fb73b1fff 0x150fb73b2000 - 0x150fb7501fff 0x150fb7502000 - 0x150fb754cfff 0x150fb754d000 - 0x150fb754ffff 0x150fb7550000 - 0x150fb7552fff 0x150fb7553000 - 0x150fb7556fff 0x150fb7557000 - 0x150fb7559fff 0x150fb755a000 - 0x150fb756bfff 0x150fb756c000 - 0x150fb756ffff 0x150fb7570000 - 0x150fb7570fff 0x150fb7571000 - 0x150fb7571fff 0x150fb7572000 - 0x150fb7573fff 0x150fb7574000 - 0x150fb7584fff 0x150fb7585000 - 0x150fb75bcfff 0x150fb75bd000 - 0x150fb76f3fff 0x150fb76f4000 - 0x150fb76f7fff 0x150fb76f8000 - 0x150fb76f8fff 0x150fb76f9000 - 0x150fb76f9fff 0x150fb76fa000 - 0x150fb76fbfff 0x150fb76fc000 - 0x150fb76fcfff 0x150fb76fd000 - 0x150fb76fdfff 0x150fb76fe000 - 0x150fb76fefff 0x150fb76ff000 - 0x150fb7700fff 0x150fb7701000 - 0x150fb7703fff 0x150fb7704000 - 0x150fb7704fff 0x150fb7705000 - 0x150fb7705fff 0x150fb7706000 - 0x150fb7706fff 0x150fb7707000 - 0x150fb7708fff 0x150fb7709000 - 0x150fb770afff 0x150fb770b000 - 0x150fb770bfff 0x150fb770c000 - 0x150fb770cfff 0x150fb770d000 - 0x150fb770dfff 0x150fb770e000 - 0x150fb771bfff 0x150fb771c000 - 0x150fb7729fff 0x150fb772a000 - 0x150fb7737fff 0x150fb7738000 - 0x150fb773bfff 0x150fb773c000 - 0x150fb773cfff 0x150fb773d000 - 0x150fb7752fff 0x150fb7753000 - 0x150fb777efff 0x150fb777f000 - 0x150fb7787fff 0x150fb7788000 - 0x150fb7788fff 0x150fb7789000 - 0x150fb778bfff 0x150fb778c000 - 0x150fb7791fff 0x150fb7792000 - 0x150fb7794fff 0x150fb7797000 - 0x150fb7797fff 0x150fb7798000 - 0x150fb7798fff 0x150fb7799000 - 0x150fb779ffff 0x150fb77a0000 - 0x150fb77a1fff 0x150fb77a2000 - 0x150fb77c2fff 0x150fb77c3000 - 0x150fb77cafff 0x150fb77cb000 - 0x150fb77cbfff 0x150fb77cc000 - 0x150fb77ccfff 0x150fb77cd000 - 0x150fb77cdfff 0x150fb77ce000 - 0x150fb77cefff 0x7ffe10e37000 - 0x7ffe10e57fff 0x7ffe10e77000 - 0x7ffe10e7afff 0x7ffe10e7b000 - 0x7ffe10e7cfff 0xffffffffff600000 - 0xffffffffff600fff 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xc12000 - 0xc32fff 0x100000000000 - 0x1000000bffff 0x1537ecc44000 - 0x1537ed2e8fff 0x1537ed2e9000 - 0x1537ed33cfff 0x1537ed33d000 - 0x1537ed33ffff 0x1537ed340000 - 0x1537ed364fff 0x1537ed365000 - 0x1537ed4b4fff 0x1537ed4b5000 - 0x1537ed4fffff 0x1537ed500000 - 0x1537ed502fff 0x1537ed503000 - 0x1537ed505fff 0x1537ed506000 - 0x1537ed509fff 0x1537ed50a000 - 0x1537ed50cfff 0x1537ed50d000 - 0x1537ed51efff 0x1537ed51f000 - 0x1537ed522fff 0x1537ed523000 - 0x1537ed523fff 0x1537ed524000 - 0x1537ed524fff 0x1537ed525000 - 0x1537ed526fff 0x1537ed527000 - 0x1537ed537fff 0x1537ed538000 - 0x1537ed56ffff 0x1537ed570000 - 0x1537ed6a6fff 0x1537ed6a7000 - 0x1537ed6aafff 0x1537ed6ab000 - 0x1537ed6abfff 0x1537ed6ac000 - 0x1537ed6acfff 0x1537ed6ad000 - 0x1537ed6aefff 0x1537ed6af000 - 0x1537ed6affff 0x1537ed6b0000 - 0x1537ed6b0fff 0x1537ed6b1000 - 0x1537ed6b1fff 0x1537ed6b2000 - 0x1537ed6b3fff 0x1537ed6b4000 - 0x1537ed6b6fff 0x1537ed6b7000 - 0x1537ed6b7fff 0x1537ed6b8000 - 0x1537ed6b8fff 0x1537ed6b9000 - 0x1537ed6b9fff 0x1537ed6ba000 - 0x1537ed6bbfff 0x1537ed6bc000 - 0x1537ed6bdfff 0x1537ed6be000 - 0x1537ed6befff 0x1537ed6bf000 - 0x1537ed6bffff 0x1537ed6c0000 - 0x1537ed6c0fff 0x1537ed6c1000 - 0x1537ed6cefff 0x1537ed6cf000 - 0x1537ed6dcfff 0x1537ed6dd000 - 0x1537ed6eafff 0x1537ed6eb000 - 0x1537ed6eefff 0x1537ed6ef000 - 0x1537ed6effff 0x1537ed6f0000 - 0x1537ed705fff 0x1537ed706000 - 0x1537ed731fff 0x1537ed732000 - 0x1537ed73afff 0x1537ed73b000 - 0x1537ed73bfff 0x1537ed73c000 - 0x1537ed73efff 0x1537ed73f000 - 0x1537ed744fff 0x1537ed745000 - 0x1537ed747fff 0x1537ed74a000 - 0x1537ed74afff 0x1537ed74b000 - 0x1537ed74bfff 0x1537ed74c000 - 0x1537ed752fff 0x1537ed753000 - 0x1537ed754fff 0x1537ed755000 - 0x1537ed775fff 0x1537ed776000 - 0x1537ed77dfff 0x1537ed77e000 - 0x1537ed77efff 0x1537ed77f000 - 0x1537ed77ffff 0x1537ed780000 - 0x1537ed780fff 0x1537ed781000 - 0x1537ed781fff 0x7ffe2a719000 - 0x7ffe2a739fff 0x7ffe2a7d0000 - 0x7ffe2a7d3fff 0x7ffe2a7d4000 - 0x7ffe2a7d5fff 0xffffffffff600000 - 0xffffffffff600fff 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 (12,729,344 bytes) Bytes permanently allocated: 173,424 Bytes currently in use: 3,138,128 Bytes available until next GC: 780,522 3138128 ; 780522 ; 173424 ; 1 ; 113352 ; 11825 Bye. test "`./image b | tr -d '\r'`" = '("b")' || exit 1 Warning: reserving address range 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x183d000 - 0x185dfff 0x100000000000 - 0x1000000bffff 0x1535ad57e000 - 0x1535adc22fff 0x1535adc23000 - 0x1535adc76fff 0x1535adc77000 - 0x1535adc79fff 0x1535adc7a000 - 0x1535adc9efff 0x1535adc9f000 - 0x1535addeefff 0x1535addef000 - 0x1535ade39fff 0x1535ade3a000 - 0x1535ade3cfff 0x1535ade3d000 - 0x1535ade3ffff 0x1535ade40000 - 0x1535ade43fff 0x1535ade44000 - 0x1535ade46fff 0x1535ade47000 - 0x1535ade58fff 0x1535ade59000 - 0x1535ade5cfff 0x1535ade5d000 - 0x1535ade5dfff 0x1535ade5e000 - 0x1535ade5efff 0x1535ade5f000 - 0x1535ade60fff 0x1535ade61000 - 0x1535ade71fff 0x1535ade72000 - 0x1535adea9fff 0x1535adeaa000 - 0x1535adfe0fff 0x1535adfe1000 - 0x1535adfe4fff 0x1535adfe5000 - 0x1535adfe5fff 0x1535adfe6000 - 0x1535adfe6fff 0x1535adfe7000 - 0x1535adfe8fff 0x1535adfe9000 - 0x1535adfe9fff 0x1535adfea000 - 0x1535adfeafff 0x1535adfeb000 - 0x1535adfebfff 0x1535adfec000 - 0x1535adfedfff 0x1535adfee000 - 0x1535adff0fff 0x1535adff1000 - 0x1535adff1fff 0x1535adff2000 - 0x1535adff2fff 0x1535adff3000 - 0x1535adff3fff 0x1535adff4000 - 0x1535adff5fff 0x1535adff6000 - 0x1535adff7fff 0x1535adff8000 - 0x1535adff8fff 0x1535adff9000 - 0x1535adff9fff 0x1535adffa000 - 0x1535adffafff 0x1535adffb000 - 0x1535ae008fff 0x1535ae009000 - 0x1535ae016fff 0x1535ae017000 - 0x1535ae024fff 0x1535ae025000 - 0x1535ae028fff 0x1535ae029000 - 0x1535ae029fff 0x1535ae02a000 - 0x1535ae03ffff 0x1535ae040000 - 0x1535ae06bfff 0x1535ae06c000 - 0x1535ae074fff 0x1535ae075000 - 0x1535ae075fff 0x1535ae076000 - 0x1535ae078fff 0x1535ae079000 - 0x1535ae07efff 0x1535ae07f000 - 0x1535ae081fff 0x1535ae084000 - 0x1535ae084fff 0x1535ae085000 - 0x1535ae085fff 0x1535ae086000 - 0x1535ae08cfff 0x1535ae08d000 - 0x1535ae08efff 0x1535ae08f000 - 0x1535ae0affff 0x1535ae0b0000 - 0x1535ae0b7fff 0x1535ae0b8000 - 0x1535ae0b8fff 0x1535ae0b9000 - 0x1535ae0b9fff 0x1535ae0ba000 - 0x1535ae0bafff 0x1535ae0bb000 - 0x1535ae0bbfff 0x7ffea1f62000 - 0x7ffea1f82fff 0x7ffea1f8e000 - 0x7ffea1f91fff 0x7ffea1f92000 - 0x7ffea1f93fff 0xffffffffff600000 - 0xffffffffff600fff test "`./image b 2 | tr -d '\r'`" = '("b" "2")' || exit 1 Warning: reserving address range 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xb8f000 - 0xbaffff 0x100000000000 - 0x1000000bffff 0x14fe841e2000 - 0x14fe84886fff 0x14fe84887000 - 0x14fe848dafff 0x14fe848db000 - 0x14fe848ddfff 0x14fe848de000 - 0x14fe84902fff 0x14fe84903000 - 0x14fe84a52fff 0x14fe84a53000 - 0x14fe84a9dfff 0x14fe84a9e000 - 0x14fe84aa0fff 0x14fe84aa1000 - 0x14fe84aa3fff 0x14fe84aa4000 - 0x14fe84aa7fff 0x14fe84aa8000 - 0x14fe84aaafff 0x14fe84aab000 - 0x14fe84abcfff 0x14fe84abd000 - 0x14fe84ac0fff 0x14fe84ac1000 - 0x14fe84ac1fff 0x14fe84ac2000 - 0x14fe84ac2fff 0x14fe84ac3000 - 0x14fe84ac4fff 0x14fe84ac5000 - 0x14fe84ad5fff 0x14fe84ad6000 - 0x14fe84b0dfff 0x14fe84b0e000 - 0x14fe84c44fff 0x14fe84c45000 - 0x14fe84c48fff 0x14fe84c49000 - 0x14fe84c49fff 0x14fe84c4a000 - 0x14fe84c4afff 0x14fe84c4b000 - 0x14fe84c4cfff 0x14fe84c4d000 - 0x14fe84c4dfff 0x14fe84c4e000 - 0x14fe84c4efff 0x14fe84c4f000 - 0x14fe84c4ffff 0x14fe84c50000 - 0x14fe84c51fff 0x14fe84c52000 - 0x14fe84c54fff 0x14fe84c55000 - 0x14fe84c55fff 0x14fe84c56000 - 0x14fe84c56fff 0x14fe84c57000 - 0x14fe84c57fff 0x14fe84c58000 - 0x14fe84c59fff 0x14fe84c5a000 - 0x14fe84c5bfff 0x14fe84c5c000 - 0x14fe84c5cfff 0x14fe84c5d000 - 0x14fe84c5dfff 0x14fe84c5e000 - 0x14fe84c5efff 0x14fe84c5f000 - 0x14fe84c6cfff 0x14fe84c6d000 - 0x14fe84c7afff 0x14fe84c7b000 - 0x14fe84c88fff 0x14fe84c89000 - 0x14fe84c8cfff 0x14fe84c8d000 - 0x14fe84c8dfff 0x14fe84c8e000 - 0x14fe84ca3fff 0x14fe84ca4000 - 0x14fe84ccffff 0x14fe84cd0000 - 0x14fe84cd8fff 0x14fe84cd9000 - 0x14fe84cd9fff 0x14fe84cda000 - 0x14fe84cdcfff 0x14fe84cdd000 - 0x14fe84ce2fff 0x14fe84ce3000 - 0x14fe84ce5fff 0x14fe84ce8000 - 0x14fe84ce8fff 0x14fe84ce9000 - 0x14fe84ce9fff 0x14fe84cea000 - 0x14fe84cf0fff 0x14fe84cf1000 - 0x14fe84cf2fff 0x14fe84cf3000 - 0x14fe84d13fff 0x14fe84d14000 - 0x14fe84d1bfff 0x14fe84d1c000 - 0x14fe84d1cfff 0x14fe84d1d000 - 0x14fe84d1dfff 0x14fe84d1e000 - 0x14fe84d1efff 0x14fe84d1f000 - 0x14fe84d1ffff 0x7fff37ddd000 - 0x7fff37dfdfff 0x7fff37f9f000 - 0x7fff37fa2fff 0x7fff37fa3000 - 0x7fff37fa4fff 0xffffffffff600000 - 0xffffffffff600fff ./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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x13fb000 - 0x141bfff 0x100000000000 - 0x1000000bffff 0x14f1d1c11000 - 0x14f1d22b5fff 0x14f1d22b6000 - 0x14f1d2309fff 0x14f1d230a000 - 0x14f1d230cfff 0x14f1d230d000 - 0x14f1d2331fff 0x14f1d2332000 - 0x14f1d2481fff 0x14f1d2482000 - 0x14f1d24ccfff 0x14f1d24cd000 - 0x14f1d24cffff 0x14f1d24d0000 - 0x14f1d24d2fff 0x14f1d24d3000 - 0x14f1d24d6fff 0x14f1d24d7000 - 0x14f1d24d9fff 0x14f1d24da000 - 0x14f1d24ebfff 0x14f1d24ec000 - 0x14f1d24effff 0x14f1d24f0000 - 0x14f1d24f0fff 0x14f1d24f1000 - 0x14f1d24f1fff 0x14f1d24f2000 - 0x14f1d24f3fff 0x14f1d24f4000 - 0x14f1d2504fff 0x14f1d2505000 - 0x14f1d253cfff 0x14f1d253d000 - 0x14f1d2673fff 0x14f1d2674000 - 0x14f1d2677fff 0x14f1d2678000 - 0x14f1d2678fff 0x14f1d2679000 - 0x14f1d2679fff 0x14f1d267a000 - 0x14f1d267bfff 0x14f1d267c000 - 0x14f1d267cfff 0x14f1d267d000 - 0x14f1d267dfff 0x14f1d267e000 - 0x14f1d267efff 0x14f1d267f000 - 0x14f1d2680fff 0x14f1d2681000 - 0x14f1d2683fff 0x14f1d2684000 - 0x14f1d2684fff 0x14f1d2685000 - 0x14f1d2685fff 0x14f1d2686000 - 0x14f1d2686fff 0x14f1d2687000 - 0x14f1d2688fff 0x14f1d2689000 - 0x14f1d268afff 0x14f1d268b000 - 0x14f1d268bfff 0x14f1d268c000 - 0x14f1d268cfff 0x14f1d268d000 - 0x14f1d268dfff 0x14f1d268e000 - 0x14f1d269bfff 0x14f1d269c000 - 0x14f1d26a9fff 0x14f1d26aa000 - 0x14f1d26b7fff 0x14f1d26b8000 - 0x14f1d26bbfff 0x14f1d26bc000 - 0x14f1d26bcfff 0x14f1d26bd000 - 0x14f1d26d2fff 0x14f1d26d3000 - 0x14f1d26fefff 0x14f1d26ff000 - 0x14f1d2707fff 0x14f1d2708000 - 0x14f1d2708fff 0x14f1d2709000 - 0x14f1d270bfff 0x14f1d270c000 - 0x14f1d2711fff 0x14f1d2712000 - 0x14f1d2714fff 0x14f1d2717000 - 0x14f1d2717fff 0x14f1d2718000 - 0x14f1d2718fff 0x14f1d2719000 - 0x14f1d271ffff 0x14f1d2720000 - 0x14f1d2721fff 0x14f1d2722000 - 0x14f1d2742fff 0x14f1d2743000 - 0x14f1d274afff 0x14f1d274b000 - 0x14f1d274bfff 0x14f1d274c000 - 0x14f1d274cfff 0x14f1d274d000 - 0x14f1d274dfff 0x14f1d274e000 - 0x14f1d274efff 0x7ffc282ed000 - 0x7ffc2830dfff 0x7ffc283d5000 - 0x7ffc283d8fff 0x7ffc283d9000 - 0x7ffc283dafff 0xffffffffff600000 - 0xffffffffff600fff 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 (12,728,752 bytes) Bytes permanently allocated: 173,424 Bytes currently in use: 3,137,536 Bytes available until next GC: 780,374 3137536 ; 780374 ; 173424 ; 1 ; 113024 ; 11503 Bye. ./image Warning: reserving address range 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1f45000 - 0x1f65fff 0x100000000000 - 0x1000000bffff 0x14e40838c000 - 0x14e408a30fff 0x14e408a31000 - 0x14e408a84fff 0x14e408a85000 - 0x14e408a87fff 0x14e408a88000 - 0x14e408aacfff 0x14e408aad000 - 0x14e408bfcfff 0x14e408bfd000 - 0x14e408c47fff 0x14e408c48000 - 0x14e408c4afff 0x14e408c4b000 - 0x14e408c4dfff 0x14e408c4e000 - 0x14e408c51fff 0x14e408c52000 - 0x14e408c54fff 0x14e408c55000 - 0x14e408c66fff 0x14e408c67000 - 0x14e408c6afff 0x14e408c6b000 - 0x14e408c6bfff 0x14e408c6c000 - 0x14e408c6cfff 0x14e408c6d000 - 0x14e408c6efff 0x14e408c6f000 - 0x14e408c7ffff 0x14e408c80000 - 0x14e408cb7fff 0x14e408cb8000 - 0x14e408deefff 0x14e408def000 - 0x14e408df2fff 0x14e408df3000 - 0x14e408df3fff 0x14e408df4000 - 0x14e408df4fff 0x14e408df5000 - 0x14e408df6fff 0x14e408df7000 - 0x14e408df7fff 0x14e408df8000 - 0x14e408df8fff 0x14e408df9000 - 0x14e408df9fff 0x14e408dfa000 - 0x14e408dfbfff 0x14e408dfc000 - 0x14e408dfefff 0x14e408dff000 - 0x14e408dfffff 0x14e408e00000 - 0x14e408e00fff 0x14e408e01000 - 0x14e408e01fff 0x14e408e02000 - 0x14e408e03fff 0x14e408e04000 - 0x14e408e05fff 0x14e408e06000 - 0x14e408e06fff 0x14e408e07000 - 0x14e408e07fff 0x14e408e08000 - 0x14e408e08fff 0x14e408e09000 - 0x14e408e16fff 0x14e408e17000 - 0x14e408e24fff 0x14e408e25000 - 0x14e408e32fff 0x14e408e33000 - 0x14e408e36fff 0x14e408e37000 - 0x14e408e37fff 0x14e408e38000 - 0x14e408e4dfff 0x14e408e4e000 - 0x14e408e79fff 0x14e408e7a000 - 0x14e408e82fff 0x14e408e83000 - 0x14e408e83fff 0x14e408e84000 - 0x14e408e86fff 0x14e408e87000 - 0x14e408e8cfff 0x14e408e8d000 - 0x14e408e8ffff 0x14e408e92000 - 0x14e408e92fff 0x14e408e93000 - 0x14e408e93fff 0x14e408e94000 - 0x14e408e9afff 0x14e408e9b000 - 0x14e408e9cfff 0x14e408e9d000 - 0x14e408ebdfff 0x14e408ebe000 - 0x14e408ec5fff 0x14e408ec6000 - 0x14e408ec6fff 0x14e408ec7000 - 0x14e408ec7fff 0x14e408ec8000 - 0x14e408ec8fff 0x14e408ec9000 - 0x14e408ec9fff 0x7ffd38147000 - 0x7ffd38167fff 0x7ffd3817d000 - 0x7ffd38180fff 0x7ffd38181000 - 0x7ffd38182fff 0xffffffffff600000 - 0xffffffffff600fff test -z "`./image`" || exit 1 Warning: reserving address range 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x11f0000 - 0x1210fff 0x100000000000 - 0x1000000bffff 0x15144f890000 - 0x15144ff34fff 0x15144ff35000 - 0x15144ff88fff 0x15144ff89000 - 0x15144ff8bfff 0x15144ff8c000 - 0x15144ffb0fff 0x15144ffb1000 - 0x151450100fff 0x151450101000 - 0x15145014bfff 0x15145014c000 - 0x15145014efff 0x15145014f000 - 0x151450151fff 0x151450152000 - 0x151450155fff 0x151450156000 - 0x151450158fff 0x151450159000 - 0x15145016afff 0x15145016b000 - 0x15145016efff 0x15145016f000 - 0x15145016ffff 0x151450170000 - 0x151450170fff 0x151450171000 - 0x151450172fff 0x151450173000 - 0x151450183fff 0x151450184000 - 0x1514501bbfff 0x1514501bc000 - 0x1514502f2fff 0x1514502f3000 - 0x1514502f6fff 0x1514502f7000 - 0x1514502f7fff 0x1514502f8000 - 0x1514502f8fff 0x1514502f9000 - 0x1514502fafff 0x1514502fb000 - 0x1514502fbfff 0x1514502fc000 - 0x1514502fcfff 0x1514502fd000 - 0x1514502fdfff 0x1514502fe000 - 0x1514502fffff 0x151450300000 - 0x151450302fff 0x151450303000 - 0x151450303fff 0x151450304000 - 0x151450304fff 0x151450305000 - 0x151450305fff 0x151450306000 - 0x151450307fff 0x151450308000 - 0x151450309fff 0x15145030a000 - 0x15145030afff 0x15145030b000 - 0x15145030bfff 0x15145030c000 - 0x15145030cfff 0x15145030d000 - 0x15145031afff 0x15145031b000 - 0x151450328fff 0x151450329000 - 0x151450336fff 0x151450337000 - 0x15145033afff 0x15145033b000 - 0x15145033bfff 0x15145033c000 - 0x151450351fff 0x151450352000 - 0x15145037dfff 0x15145037e000 - 0x151450386fff 0x151450387000 - 0x151450387fff 0x151450388000 - 0x15145038afff 0x15145038b000 - 0x151450390fff 0x151450391000 - 0x151450393fff 0x151450396000 - 0x151450396fff 0x151450397000 - 0x151450397fff 0x151450398000 - 0x15145039efff 0x15145039f000 - 0x1514503a0fff 0x1514503a1000 - 0x1514503c1fff 0x1514503c2000 - 0x1514503c9fff 0x1514503ca000 - 0x1514503cafff 0x1514503cb000 - 0x1514503cbfff 0x1514503cc000 - 0x1514503ccfff 0x1514503cd000 - 0x1514503cdfff 0x7ffea6682000 - 0x7ffea66a2fff 0x7ffea6710000 - 0x7ffea6713fff 0x7ffea6714000 - 0x7ffea6715fff 0xffffffffff600000 - 0xffffffffff600fff ./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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x22cd000 - 0x22edfff 0x100000000000 - 0x1000000bffff 0x14fa224c1000 - 0x14fa22b65fff 0x14fa22b66000 - 0x14fa22bb9fff 0x14fa22bba000 - 0x14fa22bbcfff 0x14fa22bbd000 - 0x14fa22be1fff 0x14fa22be2000 - 0x14fa22d31fff 0x14fa22d32000 - 0x14fa22d7cfff 0x14fa22d7d000 - 0x14fa22d7ffff 0x14fa22d80000 - 0x14fa22d82fff 0x14fa22d83000 - 0x14fa22d86fff 0x14fa22d87000 - 0x14fa22d89fff 0x14fa22d8a000 - 0x14fa22d9bfff 0x14fa22d9c000 - 0x14fa22d9ffff 0x14fa22da0000 - 0x14fa22da0fff 0x14fa22da1000 - 0x14fa22da1fff 0x14fa22da2000 - 0x14fa22da3fff 0x14fa22da4000 - 0x14fa22db4fff 0x14fa22db5000 - 0x14fa22decfff 0x14fa22ded000 - 0x14fa22f23fff 0x14fa22f24000 - 0x14fa22f27fff 0x14fa22f28000 - 0x14fa22f28fff 0x14fa22f29000 - 0x14fa22f29fff 0x14fa22f2a000 - 0x14fa22f2bfff 0x14fa22f2c000 - 0x14fa22f2cfff 0x14fa22f2d000 - 0x14fa22f2dfff 0x14fa22f2e000 - 0x14fa22f2efff 0x14fa22f2f000 - 0x14fa22f30fff 0x14fa22f31000 - 0x14fa22f33fff 0x14fa22f34000 - 0x14fa22f34fff 0x14fa22f35000 - 0x14fa22f35fff 0x14fa22f36000 - 0x14fa22f36fff 0x14fa22f37000 - 0x14fa22f38fff 0x14fa22f39000 - 0x14fa22f3afff 0x14fa22f3b000 - 0x14fa22f3bfff 0x14fa22f3c000 - 0x14fa22f3cfff 0x14fa22f3d000 - 0x14fa22f3dfff 0x14fa22f3e000 - 0x14fa22f4bfff 0x14fa22f4c000 - 0x14fa22f59fff 0x14fa22f5a000 - 0x14fa22f67fff 0x14fa22f68000 - 0x14fa22f6bfff 0x14fa22f6c000 - 0x14fa22f6cfff 0x14fa22f6d000 - 0x14fa22f82fff 0x14fa22f83000 - 0x14fa22faefff 0x14fa22faf000 - 0x14fa22fb7fff 0x14fa22fb8000 - 0x14fa22fb8fff 0x14fa22fb9000 - 0x14fa22fbbfff 0x14fa22fbc000 - 0x14fa22fc1fff 0x14fa22fc2000 - 0x14fa22fc4fff 0x14fa22fc7000 - 0x14fa22fc7fff 0x14fa22fc8000 - 0x14fa22fc8fff 0x14fa22fc9000 - 0x14fa22fcffff 0x14fa22fd0000 - 0x14fa22fd1fff 0x14fa22fd2000 - 0x14fa22ff2fff 0x14fa22ff3000 - 0x14fa22ffafff 0x14fa22ffb000 - 0x14fa22ffbfff 0x14fa22ffc000 - 0x14fa22ffcfff 0x14fa22ffd000 - 0x14fa22ffdfff 0x14fa22ffe000 - 0x14fa22ffefff 0x7ffef7c0e000 - 0x7ffef7c2efff 0x7ffef7c3d000 - 0x7ffef7c40fff 0x7ffef7c41000 - 0x7ffef7c42fff 0xffffffffff600000 - 0xffffffffff600fff 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 (12,729,544 bytes) Bytes permanently allocated: 173,424 Bytes currently in use: 3,138,328 Bytes available until next GC: 780,572 3138328 ; 780572 ; 173424 ; 1 ; 113320 ; 11236 Bye. output="`./image -on-error exit | tr -d '\r'`"; test "$output" = '*** - myerror' || exit 1 Warning: reserving address range 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x104e000 - 0x106efff 0x100000000000 - 0x1000000bffff 0x14e8011fb000 - 0x14e80189ffff 0x14e8018a0000 - 0x14e8018f3fff 0x14e8018f4000 - 0x14e8018f6fff 0x14e8018f7000 - 0x14e80191bfff 0x14e80191c000 - 0x14e801a6bfff 0x14e801a6c000 - 0x14e801ab6fff 0x14e801ab7000 - 0x14e801ab9fff 0x14e801aba000 - 0x14e801abcfff 0x14e801abd000 - 0x14e801ac0fff 0x14e801ac1000 - 0x14e801ac3fff 0x14e801ac4000 - 0x14e801ad5fff 0x14e801ad6000 - 0x14e801ad9fff 0x14e801ada000 - 0x14e801adafff 0x14e801adb000 - 0x14e801adbfff 0x14e801adc000 - 0x14e801addfff 0x14e801ade000 - 0x14e801aeefff 0x14e801aef000 - 0x14e801b26fff 0x14e801b27000 - 0x14e801c5dfff 0x14e801c5e000 - 0x14e801c61fff 0x14e801c62000 - 0x14e801c62fff 0x14e801c63000 - 0x14e801c63fff 0x14e801c64000 - 0x14e801c65fff 0x14e801c66000 - 0x14e801c66fff 0x14e801c67000 - 0x14e801c67fff 0x14e801c68000 - 0x14e801c68fff 0x14e801c69000 - 0x14e801c6afff 0x14e801c6b000 - 0x14e801c6dfff 0x14e801c6e000 - 0x14e801c6efff 0x14e801c6f000 - 0x14e801c6ffff 0x14e801c70000 - 0x14e801c70fff 0x14e801c71000 - 0x14e801c72fff 0x14e801c73000 - 0x14e801c74fff 0x14e801c75000 - 0x14e801c75fff 0x14e801c76000 - 0x14e801c76fff 0x14e801c77000 - 0x14e801c77fff 0x14e801c78000 - 0x14e801c85fff 0x14e801c86000 - 0x14e801c93fff 0x14e801c94000 - 0x14e801ca1fff 0x14e801ca2000 - 0x14e801ca5fff 0x14e801ca6000 - 0x14e801ca6fff 0x14e801ca7000 - 0x14e801cbcfff 0x14e801cbd000 - 0x14e801ce8fff 0x14e801ce9000 - 0x14e801cf1fff 0x14e801cf2000 - 0x14e801cf2fff 0x14e801cf3000 - 0x14e801cf5fff 0x14e801cf6000 - 0x14e801cfbfff 0x14e801cfc000 - 0x14e801cfefff 0x14e801d01000 - 0x14e801d01fff 0x14e801d02000 - 0x14e801d02fff 0x14e801d03000 - 0x14e801d09fff 0x14e801d0a000 - 0x14e801d0bfff 0x14e801d0c000 - 0x14e801d2cfff 0x14e801d2d000 - 0x14e801d34fff 0x14e801d35000 - 0x14e801d35fff 0x14e801d36000 - 0x14e801d36fff 0x14e801d37000 - 0x14e801d37fff 0x14e801d38000 - 0x14e801d38fff 0x7ffdeb82d000 - 0x7ffdeb84dfff 0x7ffdeb887000 - 0x7ffdeb88afff 0x7ffdeb88b000 - 0x7ffdeb88cfff 0xffffffffff600000 - 0xffffffffff600fff if ./image -on-error exit; then exit 1; fi Warning: reserving address range 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0xefa000 - 0xf1afff 0x100000000000 - 0x1000000bffff 0x14e27d97c000 - 0x14e27e020fff 0x14e27e021000 - 0x14e27e074fff 0x14e27e075000 - 0x14e27e077fff 0x14e27e078000 - 0x14e27e09cfff 0x14e27e09d000 - 0x14e27e1ecfff 0x14e27e1ed000 - 0x14e27e237fff 0x14e27e238000 - 0x14e27e23afff 0x14e27e23b000 - 0x14e27e23dfff 0x14e27e23e000 - 0x14e27e241fff 0x14e27e242000 - 0x14e27e244fff 0x14e27e245000 - 0x14e27e256fff 0x14e27e257000 - 0x14e27e25afff 0x14e27e25b000 - 0x14e27e25bfff 0x14e27e25c000 - 0x14e27e25cfff 0x14e27e25d000 - 0x14e27e25efff 0x14e27e25f000 - 0x14e27e26ffff 0x14e27e270000 - 0x14e27e2a7fff 0x14e27e2a8000 - 0x14e27e3defff 0x14e27e3df000 - 0x14e27e3e2fff 0x14e27e3e3000 - 0x14e27e3e3fff 0x14e27e3e4000 - 0x14e27e3e4fff 0x14e27e3e5000 - 0x14e27e3e6fff 0x14e27e3e7000 - 0x14e27e3e7fff 0x14e27e3e8000 - 0x14e27e3e8fff 0x14e27e3e9000 - 0x14e27e3e9fff 0x14e27e3ea000 - 0x14e27e3ebfff 0x14e27e3ec000 - 0x14e27e3eefff 0x14e27e3ef000 - 0x14e27e3effff 0x14e27e3f0000 - 0x14e27e3f0fff 0x14e27e3f1000 - 0x14e27e3f1fff 0x14e27e3f2000 - 0x14e27e3f3fff 0x14e27e3f4000 - 0x14e27e3f5fff 0x14e27e3f6000 - 0x14e27e3f6fff 0x14e27e3f7000 - 0x14e27e3f7fff 0x14e27e3f8000 - 0x14e27e3f8fff 0x14e27e3f9000 - 0x14e27e406fff 0x14e27e407000 - 0x14e27e414fff 0x14e27e415000 - 0x14e27e422fff 0x14e27e423000 - 0x14e27e426fff 0x14e27e427000 - 0x14e27e427fff 0x14e27e428000 - 0x14e27e43dfff 0x14e27e43e000 - 0x14e27e469fff 0x14e27e46a000 - 0x14e27e472fff 0x14e27e473000 - 0x14e27e473fff 0x14e27e474000 - 0x14e27e476fff 0x14e27e477000 - 0x14e27e47cfff 0x14e27e47d000 - 0x14e27e47ffff 0x14e27e482000 - 0x14e27e482fff 0x14e27e483000 - 0x14e27e483fff 0x14e27e484000 - 0x14e27e48afff 0x14e27e48b000 - 0x14e27e48cfff 0x14e27e48d000 - 0x14e27e4adfff 0x14e27e4ae000 - 0x14e27e4b5fff 0x14e27e4b6000 - 0x14e27e4b6fff 0x14e27e4b7000 - 0x14e27e4b7fff 0x14e27e4b8000 - 0x14e27e4b8fff 0x14e27e4b9000 - 0x14e27e4b9fff 0x7fff0886c000 - 0x7fff0888cfff 0x7fff088ae000 - 0x7fff088b1fff 0x7fff088b2000 - 0x7fff088b3fff 0xffffffffff600000 - 0xffffffffff600fff *** - 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1bf8000 - 0x1c18fff 0x100000000000 - 0x1000000bffff 0x14a916781000 - 0x14a916e25fff 0x14a916e26000 - 0x14a916e79fff 0x14a916e7a000 - 0x14a916e7cfff 0x14a916e7d000 - 0x14a916ea1fff 0x14a916ea2000 - 0x14a916ff1fff 0x14a916ff2000 - 0x14a91703cfff 0x14a91703d000 - 0x14a91703ffff 0x14a917040000 - 0x14a917042fff 0x14a917043000 - 0x14a917046fff 0x14a917047000 - 0x14a917049fff 0x14a91704a000 - 0x14a91705bfff 0x14a91705c000 - 0x14a91705ffff 0x14a917060000 - 0x14a917060fff 0x14a917061000 - 0x14a917061fff 0x14a917062000 - 0x14a917063fff 0x14a917064000 - 0x14a917074fff 0x14a917075000 - 0x14a9170acfff 0x14a9170ad000 - 0x14a9171e3fff 0x14a9171e4000 - 0x14a9171e7fff 0x14a9171e8000 - 0x14a9171e8fff 0x14a9171e9000 - 0x14a9171e9fff 0x14a9171ea000 - 0x14a9171ebfff 0x14a9171ec000 - 0x14a9171ecfff 0x14a9171ed000 - 0x14a9171edfff 0x14a9171ee000 - 0x14a9171eefff 0x14a9171ef000 - 0x14a9171f0fff 0x14a9171f1000 - 0x14a9171f3fff 0x14a9171f4000 - 0x14a9171f4fff 0x14a9171f5000 - 0x14a9171f5fff 0x14a9171f6000 - 0x14a9171f6fff 0x14a9171f7000 - 0x14a9171f8fff 0x14a9171f9000 - 0x14a9171fafff 0x14a9171fb000 - 0x14a9171fbfff 0x14a9171fc000 - 0x14a9171fcfff 0x14a9171fd000 - 0x14a9171fdfff 0x14a9171fe000 - 0x14a91720bfff 0x14a91720c000 - 0x14a917219fff 0x14a91721a000 - 0x14a917227fff 0x14a917228000 - 0x14a91722bfff 0x14a91722c000 - 0x14a91722cfff 0x14a91722d000 - 0x14a917242fff 0x14a917243000 - 0x14a91726efff 0x14a91726f000 - 0x14a917277fff 0x14a917278000 - 0x14a917278fff 0x14a917279000 - 0x14a91727bfff 0x14a91727c000 - 0x14a917281fff 0x14a917282000 - 0x14a917284fff 0x14a917287000 - 0x14a917287fff 0x14a917288000 - 0x14a917288fff 0x14a917289000 - 0x14a91728ffff 0x14a917290000 - 0x14a917291fff 0x14a917292000 - 0x14a9172b2fff 0x14a9172b3000 - 0x14a9172bafff 0x14a9172bb000 - 0x14a9172bbfff 0x14a9172bc000 - 0x14a9172bcfff 0x14a9172bd000 - 0x14a9172bdfff 0x14a9172be000 - 0x14a9172befff 0x7ffd56f30000 - 0x7ffd56f50fff 0x7ffd56f95000 - 0x7ffd56f98fff 0x7ffd56f99000 - 0x7ffd56f9afff 0xffffffffff600000 - 0xffffffffff600fff 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 (12,731,472 bytes) Bytes permanently allocated: 173,424 Bytes currently in use: 3,140,256 Bytes available until next GC: 781,054 3140256 ; 781054 ; 173424 ; 1 ; 114864 ; 11507 Bye. output="`./image | tr -d '\r'`"; test "$output" = '*** - myerror' || exit 1 Warning: reserving address range 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x259e000 - 0x25befff 0x100000000000 - 0x1000000bffff 0x14ab3f533000 - 0x14ab3fbd7fff 0x14ab3fbd8000 - 0x14ab3fc2bfff 0x14ab3fc2c000 - 0x14ab3fc2efff 0x14ab3fc2f000 - 0x14ab3fc53fff 0x14ab3fc54000 - 0x14ab3fda3fff 0x14ab3fda4000 - 0x14ab3fdeefff 0x14ab3fdef000 - 0x14ab3fdf1fff 0x14ab3fdf2000 - 0x14ab3fdf4fff 0x14ab3fdf5000 - 0x14ab3fdf8fff 0x14ab3fdf9000 - 0x14ab3fdfbfff 0x14ab3fdfc000 - 0x14ab3fe0dfff 0x14ab3fe0e000 - 0x14ab3fe11fff 0x14ab3fe12000 - 0x14ab3fe12fff 0x14ab3fe13000 - 0x14ab3fe13fff 0x14ab3fe14000 - 0x14ab3fe15fff 0x14ab3fe16000 - 0x14ab3fe26fff 0x14ab3fe27000 - 0x14ab3fe5efff 0x14ab3fe5f000 - 0x14ab3ff95fff 0x14ab3ff96000 - 0x14ab3ff99fff 0x14ab3ff9a000 - 0x14ab3ff9afff 0x14ab3ff9b000 - 0x14ab3ff9bfff 0x14ab3ff9c000 - 0x14ab3ff9dfff 0x14ab3ff9e000 - 0x14ab3ff9efff 0x14ab3ff9f000 - 0x14ab3ff9ffff 0x14ab3ffa0000 - 0x14ab3ffa0fff 0x14ab3ffa1000 - 0x14ab3ffa2fff 0x14ab3ffa3000 - 0x14ab3ffa5fff 0x14ab3ffa6000 - 0x14ab3ffa6fff 0x14ab3ffa7000 - 0x14ab3ffa7fff 0x14ab3ffa8000 - 0x14ab3ffa8fff 0x14ab3ffa9000 - 0x14ab3ffaafff 0x14ab3ffab000 - 0x14ab3ffacfff 0x14ab3ffad000 - 0x14ab3ffadfff 0x14ab3ffae000 - 0x14ab3ffaefff 0x14ab3ffaf000 - 0x14ab3ffaffff 0x14ab3ffb0000 - 0x14ab3ffbdfff 0x14ab3ffbe000 - 0x14ab3ffcbfff 0x14ab3ffcc000 - 0x14ab3ffd9fff 0x14ab3ffda000 - 0x14ab3ffddfff 0x14ab3ffde000 - 0x14ab3ffdefff 0x14ab3ffdf000 - 0x14ab3fff4fff 0x14ab3fff5000 - 0x14ab40020fff 0x14ab40021000 - 0x14ab40029fff 0x14ab4002a000 - 0x14ab4002afff 0x14ab4002b000 - 0x14ab4002dfff 0x14ab4002e000 - 0x14ab40033fff 0x14ab40034000 - 0x14ab40036fff 0x14ab40039000 - 0x14ab40039fff 0x14ab4003a000 - 0x14ab4003afff 0x14ab4003b000 - 0x14ab40041fff 0x14ab40042000 - 0x14ab40043fff 0x14ab40044000 - 0x14ab40064fff 0x14ab40065000 - 0x14ab4006cfff 0x14ab4006d000 - 0x14ab4006dfff 0x14ab4006e000 - 0x14ab4006efff 0x14ab4006f000 - 0x14ab4006ffff 0x14ab40070000 - 0x14ab40070fff 0x7ffcac74d000 - 0x7ffcac76dfff 0x7ffcac7a6000 - 0x7ffcac7a9fff 0x7ffcac7aa000 - 0x7ffcac7abfff 0xffffffffff600000 - 0xffffffffff600fff if ./image; then exit 1; fi Warning: reserving address range 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x1d9c000 - 0x1dbcfff 0x100000000000 - 0x1000000bffff 0x1553bc1e9000 - 0x1553bc88dfff 0x1553bc88e000 - 0x1553bc8e1fff 0x1553bc8e2000 - 0x1553bc8e4fff 0x1553bc8e5000 - 0x1553bc909fff 0x1553bc90a000 - 0x1553bca59fff 0x1553bca5a000 - 0x1553bcaa4fff 0x1553bcaa5000 - 0x1553bcaa7fff 0x1553bcaa8000 - 0x1553bcaaafff 0x1553bcaab000 - 0x1553bcaaefff 0x1553bcaaf000 - 0x1553bcab1fff 0x1553bcab2000 - 0x1553bcac3fff 0x1553bcac4000 - 0x1553bcac7fff 0x1553bcac8000 - 0x1553bcac8fff 0x1553bcac9000 - 0x1553bcac9fff 0x1553bcaca000 - 0x1553bcacbfff 0x1553bcacc000 - 0x1553bcadcfff 0x1553bcadd000 - 0x1553bcb14fff 0x1553bcb15000 - 0x1553bcc4bfff 0x1553bcc4c000 - 0x1553bcc4ffff 0x1553bcc50000 - 0x1553bcc50fff 0x1553bcc51000 - 0x1553bcc51fff 0x1553bcc52000 - 0x1553bcc53fff 0x1553bcc54000 - 0x1553bcc54fff 0x1553bcc55000 - 0x1553bcc55fff 0x1553bcc56000 - 0x1553bcc56fff 0x1553bcc57000 - 0x1553bcc58fff 0x1553bcc59000 - 0x1553bcc5bfff 0x1553bcc5c000 - 0x1553bcc5cfff 0x1553bcc5d000 - 0x1553bcc5dfff 0x1553bcc5e000 - 0x1553bcc5efff 0x1553bcc5f000 - 0x1553bcc60fff 0x1553bcc61000 - 0x1553bcc62fff 0x1553bcc63000 - 0x1553bcc63fff 0x1553bcc64000 - 0x1553bcc64fff 0x1553bcc65000 - 0x1553bcc65fff 0x1553bcc66000 - 0x1553bcc73fff 0x1553bcc74000 - 0x1553bcc81fff 0x1553bcc82000 - 0x1553bcc8ffff 0x1553bcc90000 - 0x1553bcc93fff 0x1553bcc94000 - 0x1553bcc94fff 0x1553bcc95000 - 0x1553bccaafff 0x1553bccab000 - 0x1553bccd6fff 0x1553bccd7000 - 0x1553bccdffff 0x1553bcce0000 - 0x1553bcce0fff 0x1553bcce1000 - 0x1553bcce3fff 0x1553bcce4000 - 0x1553bcce9fff 0x1553bccea000 - 0x1553bccecfff 0x1553bccef000 - 0x1553bcceffff 0x1553bccf0000 - 0x1553bccf0fff 0x1553bccf1000 - 0x1553bccf7fff 0x1553bccf8000 - 0x1553bccf9fff 0x1553bccfa000 - 0x1553bcd1afff 0x1553bcd1b000 - 0x1553bcd22fff 0x1553bcd23000 - 0x1553bcd23fff 0x1553bcd24000 - 0x1553bcd24fff 0x1553bcd25000 - 0x1553bcd25fff 0x1553bcd26000 - 0x1553bcd26fff 0x7fff5aaf8000 - 0x7fff5ab18fff 0x7fff5ab8e000 - 0x7fff5ab91fff 0x7fff5ab92000 - 0x7fff5ab93fff 0xffffffffff600000 - 0xffffffffff600fff *** - myerror ls -l lisp.run lispinit.mem image image.mem -rwxr-xr-x. 1 mockbuild mock 12731472 Nov 12 23:18 image -rw-r--r--. 1 mockbuild mock 3313256 Nov 12 23:18 image.mem -rwxr-xr-x. 1 mockbuild mock 9414880 Nov 12 23:13 lisp.run -rw-r--r--. 1 mockbuild mock 3322960 Nov 12 23:14 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0x20c3000 - 0x20e3fff 0x100000000000 - 0x1000000bffff 0x153fdebf3000 - 0x153fdf297fff 0x153fdf298000 - 0x153fdf2ebfff 0x153fdf2ec000 - 0x153fdf2edfff 0x153fdf2ee000 - 0x153fdf312fff 0x153fdf313000 - 0x153fdf462fff 0x153fdf463000 - 0x153fdf4adfff 0x153fdf4ae000 - 0x153fdf4b0fff 0x153fdf4b1000 - 0x153fdf4b3fff 0x153fdf4b4000 - 0x153fdf4b7fff 0x153fdf4b8000 - 0x153fdf4bafff 0x153fdf4bb000 - 0x153fdf4ccfff 0x153fdf4cd000 - 0x153fdf4d0fff 0x153fdf4d1000 - 0x153fdf4d1fff 0x153fdf4d2000 - 0x153fdf4d2fff 0x153fdf4d3000 - 0x153fdf4e3fff 0x153fdf4e4000 - 0x153fdf51bfff 0x153fdf51c000 - 0x153fdf652fff 0x153fdf653000 - 0x153fdf656fff 0x153fdf657000 - 0x153fdf657fff 0x153fdf658000 - 0x153fdf658fff 0x153fdf659000 - 0x153fdf65afff 0x153fdf65b000 - 0x153fdf65bfff 0x153fdf65c000 - 0x153fdf65cfff 0x153fdf65d000 - 0x153fdf65dfff 0x153fdf65e000 - 0x153fdf65ffff 0x153fdf660000 - 0x153fdf661fff 0x153fdf662000 - 0x153fdf664fff 0x153fdf665000 - 0x153fdf665fff 0x153fdf666000 - 0x153fdf666fff 0x153fdf667000 - 0x153fdf667fff 0x153fdf668000 - 0x153fdf669fff 0x153fdf66a000 - 0x153fdf66bfff 0x153fdf66c000 - 0x153fdf66cfff 0x153fdf66d000 - 0x153fdf66dfff 0x153fdf66e000 - 0x153fdf66efff 0x153fdf66f000 - 0x153fdf67cfff 0x153fdf67d000 - 0x153fdf68afff 0x153fdf68b000 - 0x153fdf698fff 0x153fdf699000 - 0x153fdf69cfff 0x153fdf69d000 - 0x153fdf69dfff 0x153fdf69e000 - 0x153fdf69ffff 0x153fdf6a0000 - 0x153fdf6b4fff 0x153fdf6b5000 - 0x153fdf6cefff 0x153fdf6cf000 - 0x153fdf6cffff 0x153fdf6d0000 - 0x153fdf6d8fff 0x153fdf6d9000 - 0x153fdf6e7fff 0x153fdf6e8000 - 0x153fdf783fff 0x153fdf784000 - 0x153fdf81cfff 0x153fdf81d000 - 0x153fdf81dfff 0x153fdf81e000 - 0x153fdf81efff 0x153fdf81f000 - 0x153fdf834fff 0x153fdf835000 - 0x153fdf860fff 0x153fdf861000 - 0x153fdf869fff 0x153fdf86a000 - 0x153fdf86afff 0x153fdf86b000 - 0x153fdf86dfff 0x153fdf86e000 - 0x153fdf873fff 0x153fdf874000 - 0x153fdf876fff 0x153fdf879000 - 0x153fdf879fff 0x153fdf87a000 - 0x153fdf87afff 0x153fdf87b000 - 0x153fdf881fff 0x153fdf882000 - 0x153fdf883fff 0x153fdf884000 - 0x153fdf8a4fff 0x153fdf8a5000 - 0x153fdf8acfff 0x153fdf8ad000 - 0x153fdf8adfff 0x153fdf8ae000 - 0x153fdf8aefff 0x153fdf8af000 - 0x153fdf8affff 0x153fdf8b0000 - 0x153fdf8b0fff 0x7fff10f53000 - 0x7fff10f73fff 0x7fff10f96000 - 0x7fff10f99fff 0x7fff10f9a000 - 0x7fff10f9bfff 0xffffffffff600000 - 0xffffffffff600fff 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-11-12 23:18:37" 3814211917 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" 2769091200 "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" 2767948230 "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" 2736930600 "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 23:18:37" EQL-OK: NIL (CHECK-TIME-DATE "%d.%m.%y" "27.11.86") "1986-11-27 Thu 23:18:37" EQL-OK: NIL (CHECK-TIME-DATE "%y-%m-%d" "86-11-27") "1986-11-27 Thu 23:18:37" EQL-OK: NIL (CHECK-TIME-DATE "%A %H:%M:%S" "Friday 12:00:00") "2020-11-13 Fri 12:00:00" EQL-OK: NIL (CHECK-TIME-DATE "%A" "Friday") "2020-11-13 Fri 23:18:37" EQL-OK: NIL (CHECK-TIME-DATE "%a" "Mon") "2020-11-16 Mon 23:18:37" EQL-OK: NIL (CHECK-TIME-DATE "%a" "Sun") "2020-11-15 Sun 23:18:37" EQL-OK: NIL (CHECK-TIME-DATE "%a" "Fri") "2020-11-13 Fri 23:18:37" EQL-OK: NIL (CHECK-TIME-DATE "%B" "September") "2021-09-03 Fri 23:18:37" EQL-OK: NIL (CHECK-TIME-DATE "%B" "January") "2021-01-03 Sun 23:18:37" EQL-OK: NIL (CHECK-TIME-DATE "%B" "December") "2020-12-04 Fri 23:18:37" EQL-OK: NIL (CHECK-TIME-DATE "%b %a" "Sep Mon") "2021-09-06 Mon 23:18:37" EQL-OK: NIL (CHECK-TIME-DATE "%b %a" "Jan Fri") "2021-01-01 Fri 23:18:37" EQL-OK: NIL (CHECK-TIME-DATE "%b %a" "Dec Mon") "2020-12-07 Mon 23:18:37" EQL-OK: NIL (CHECK-TIME-DATE "%b %a %Y" "Jan Wed 1989") "1989-01-04 Wed 23:18:37" EQL-OK: NIL (CHECK-TIME-DATE "%a %H" "Fri 9") "2020-11-13 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-11-13 Fri 10:30:00" EQL-OK: NIL (CHECK-TIME-DATE "%H:%M" "13:30") "2020-11-13 Fri 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-fN2KWc" , 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))) 2095819 2095818 EQL-OK: NIL (LET ((ID (SHOW (UID)))) (= ID (SETF (UID) ID))) 1000 EQL-OK: T (LET ((ID (SHOW (GID)))) (= ID (SETF (GID) ID))) 425 EQL-OK: T (LET ((ID (SHOW (EUID)))) (= ID (SETF (EUID) ID))) 1000 EQL-OK: T (LET ((ID (SHOW (EGID)))) (= ID (SETF (EGID) ID))) 425 EQL-OK: T (LET* ((PID (PROCESS-ID)) (GID (SHOW (PGID PID)))) (CHECK-OS-ERROR (= GID (SETF (PGID PID) GID)) (:EPERM 1))) 2059897 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)) (425 425) 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 59851 :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 3838071 :AVPHYS-PAGES 42389 :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 59851 :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 6 :NPROCESSORS-ONLN 6) 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 "-m64" :POSIX-V6-LP64-OFF64-LDFLAGS "-m64" :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 "-m64" :POSIX-V7-LP64-OFF64-LDFLAGS "-m64" :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 "-m64" :XBS5-LP64-OFF64-LDFLAGS "-m64" :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 2147483647 :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 2147483647 :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 64514 :INO 5821235 :MODE (:FREG :RUSR :WUSR) :NLINK 1 :UID 1000 :GID 425 :RDEV NIL :SIZE 550 :BLKSIZE NIL :BLOCKS NIL :ATIME 3814211917 :MTIME 3814211917 :CTIME 3814211917> 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"))))) # EQL-OK: 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 33538048 :BFREE 25650119 :BAVAIL 25650119 :FILES 67108864 :FFREE 66616935 :FAVAIL 66616935 :FSID 64514 :FLAG (4096) :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-fN2KWc" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-UeUy0d" 550)) EQL-OK: T (LISTP (SHOW (COPY-FILE *TMP2* *TMP1* :IF-EXISTS :APPEND))) ((#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-UeUy0d" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-fN2KWc" 1100)) EQL-OK: T (LISTP (SHOW (COPY-FILE *TMP1* *TMP2* :IF-EXISTS :APPEND))) ((#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-fN2KWc" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-UeUy0d" 1650)) EQL-OK: T (LISTP (SHOW (COPY-FILE *TMP2* *TMP1* :IF-EXISTS :APPEND))) ((#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-UeUy0d" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-fN2KWc" 2750)) EQL-OK: T (LISTP (SHOW (COPY-FILE *TMP1* *TMP2* :IF-EXISTS :APPEND))) ((#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-fN2KWc" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-UeUy0d" 4400)) EQL-OK: T (LISTP (SHOW (COPY-FILE *TMP2* *TMP1* :IF-EXISTS :APPEND))) ((#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-UeUy0d" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-fN2KWc" 7150)) EQL-OK: T (LISTP (SHOW (COPY-FILE *TMP1* *TMP2* :IF-EXISTS :APPEND))) ((#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-fN2KWc" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-UeUy0d" 11550)) EQL-OK: T (LISTP (SHOW (COPY-FILE *TMP2* *TMP1* :IF-EXISTS :APPEND))) ((#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-UeUy0d" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-fN2KWc" 18700)) EQL-OK: T (LISTP (SHOW (COPY-FILE *TMP1* *TMP2* :IF-EXISTS :APPEND))) ((#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-fN2KWc" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-UeUy0d" 30250)) EQL-OK: T (LISTP (SHOW (COPY-FILE *TMP2* *TMP1* :IF-EXISTS :APPEND))) ((#P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-UeUy0d" #P"/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-fN2KWc" 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)) (15720738816 173252608) 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0x1a8a000 - 0x1aaafff 0x100000000000 - 0x1000000bffff 0x14c169cf0000 - 0x14c16a394fff 0x14c16a395000 - 0x14c16a3e8fff 0x14c16a3e9000 - 0x14c16a3eafff 0x14c16a3eb000 - 0x14c16a40ffff 0x14c16a410000 - 0x14c16a55ffff 0x14c16a560000 - 0x14c16a5aafff 0x14c16a5ab000 - 0x14c16a5adfff 0x14c16a5ae000 - 0x14c16a5b0fff 0x14c16a5b1000 - 0x14c16a5b4fff 0x14c16a5b5000 - 0x14c16a5b7fff 0x14c16a5b8000 - 0x14c16a5c9fff 0x14c16a5ca000 - 0x14c16a5cdfff 0x14c16a5ce000 - 0x14c16a5cefff 0x14c16a5cf000 - 0x14c16a5cffff 0x14c16a5d0000 - 0x14c16a5e0fff 0x14c16a5e1000 - 0x14c16a618fff 0x14c16a619000 - 0x14c16a74ffff 0x14c16a750000 - 0x14c16a753fff 0x14c16a754000 - 0x14c16a754fff 0x14c16a755000 - 0x14c16a755fff 0x14c16a756000 - 0x14c16a757fff 0x14c16a758000 - 0x14c16a758fff 0x14c16a759000 - 0x14c16a759fff 0x14c16a75a000 - 0x14c16a75afff 0x14c16a75b000 - 0x14c16a75cfff 0x14c16a75d000 - 0x14c16a75efff 0x14c16a75f000 - 0x14c16a761fff 0x14c16a762000 - 0x14c16a762fff 0x14c16a763000 - 0x14c16a763fff 0x14c16a764000 - 0x14c16a764fff 0x14c16a765000 - 0x14c16a766fff 0x14c16a767000 - 0x14c16a768fff 0x14c16a769000 - 0x14c16a769fff 0x14c16a76a000 - 0x14c16a76afff 0x14c16a76b000 - 0x14c16a76bfff 0x14c16a76c000 - 0x14c16a779fff 0x14c16a77a000 - 0x14c16a787fff 0x14c16a788000 - 0x14c16a795fff 0x14c16a796000 - 0x14c16a799fff 0x14c16a79a000 - 0x14c16a79afff 0x14c16a79b000 - 0x14c16a79cfff 0x14c16a79d000 - 0x14c16a7b1fff 0x14c16a7b2000 - 0x14c16a7cbfff 0x14c16a7cc000 - 0x14c16a7ccfff 0x14c16a7cd000 - 0x14c16a7d5fff 0x14c16a7d6000 - 0x14c16a7e4fff 0x14c16a7e5000 - 0x14c16a880fff 0x14c16a881000 - 0x14c16a919fff 0x14c16a91a000 - 0x14c16a91afff 0x14c16a91b000 - 0x14c16a91bfff 0x14c16a91c000 - 0x14c16a931fff 0x14c16a932000 - 0x14c16a95dfff 0x14c16a95e000 - 0x14c16a966fff 0x14c16a967000 - 0x14c16a967fff 0x14c16a968000 - 0x14c16a96afff 0x14c16a96b000 - 0x14c16a970fff 0x14c16a971000 - 0x14c16a973fff 0x14c16a976000 - 0x14c16a976fff 0x14c16a977000 - 0x14c16a977fff 0x14c16a978000 - 0x14c16a97efff 0x14c16a97f000 - 0x14c16a980fff 0x14c16a981000 - 0x14c16a9a1fff 0x14c16a9a2000 - 0x14c16a9a9fff 0x14c16a9aa000 - 0x14c16a9aafff 0x14c16a9ab000 - 0x14c16a9abfff 0x14c16a9ac000 - 0x14c16a9acfff 0x14c16a9ad000 - 0x14c16a9adfff 0x7fffb81bf000 - 0x7fffb81dffff 0x7fffb81e5000 - 0x7fffb81e8fff 0x7fffb81e9000 - 0x7fffb81eafff 0xffffffffff600000 - 0xffffffffff600fff Warning: reserving address range 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0x6ba000 - 0x6dafff 0x100000000000 - 0x1000000bffff 0x147bda682000 - 0x147bdad26fff 0x147bdad27000 - 0x147bdad7afff 0x147bdad7b000 - 0x147bdad7cfff 0x147bdad7d000 - 0x147bdada1fff 0x147bdada2000 - 0x147bdaef1fff 0x147bdaef2000 - 0x147bdaf3cfff 0x147bdaf3d000 - 0x147bdaf3ffff 0x147bdaf40000 - 0x147bdaf42fff 0x147bdaf43000 - 0x147bdaf46fff 0x147bdaf47000 - 0x147bdaf49fff 0x147bdaf4a000 - 0x147bdaf5bfff 0x147bdaf5c000 - 0x147bdaf5ffff 0x147bdaf60000 - 0x147bdaf60fff 0x147bdaf61000 - 0x147bdaf61fff 0x147bdaf62000 - 0x147bdaf72fff 0x147bdaf73000 - 0x147bdafaafff 0x147bdafab000 - 0x147bdb0e1fff 0x147bdb0e2000 - 0x147bdb0e5fff 0x147bdb0e6000 - 0x147bdb0e6fff 0x147bdb0e7000 - 0x147bdb0e7fff 0x147bdb0e8000 - 0x147bdb0e9fff 0x147bdb0ea000 - 0x147bdb0eafff 0x147bdb0eb000 - 0x147bdb0ebfff 0x147bdb0ec000 - 0x147bdb0ecfff 0x147bdb0ed000 - 0x147bdb0eefff 0x147bdb0ef000 - 0x147bdb0f0fff 0x147bdb0f1000 - 0x147bdb0f3fff 0x147bdb0f4000 - 0x147bdb0f4fff 0x147bdb0f5000 - 0x147bdb0f5fff 0x147bdb0f6000 - 0x147bdb0f6fff 0x147bdb0f7000 - 0x147bdb0f8fff 0x147bdb0f9000 - 0x147bdb0fafff 0x147bdb0fb000 - 0x147bdb0fbfff 0x147bdb0fc000 - 0x147bdb0fcfff 0x147bdb0fd000 - 0x147bdb0fdfff 0x147bdb0fe000 - 0x147bdb10bfff 0x147bdb10c000 - 0x147bdb119fff 0x147bdb11a000 - 0x147bdb127fff 0x147bdb128000 - 0x147bdb12bfff 0x147bdb12c000 - 0x147bdb12cfff 0x147bdb12d000 - 0x147bdb12efff 0x147bdb12f000 - 0x147bdb143fff 0x147bdb144000 - 0x147bdb15dfff 0x147bdb15e000 - 0x147bdb15efff 0x147bdb15f000 - 0x147bdb167fff 0x147bdb168000 - 0x147bdb176fff 0x147bdb177000 - 0x147bdb212fff 0x147bdb213000 - 0x147bdb2abfff 0x147bdb2ac000 - 0x147bdb2acfff 0x147bdb2ad000 - 0x147bdb2adfff 0x147bdb2ae000 - 0x147bdb2c3fff 0x147bdb2c4000 - 0x147bdb2effff 0x147bdb2f0000 - 0x147bdb2f8fff 0x147bdb2f9000 - 0x147bdb2f9fff 0x147bdb2fa000 - 0x147bdb2fcfff 0x147bdb2fd000 - 0x147bdb302fff 0x147bdb303000 - 0x147bdb305fff 0x147bdb308000 - 0x147bdb308fff 0x147bdb309000 - 0x147bdb309fff 0x147bdb30a000 - 0x147bdb310fff 0x147bdb311000 - 0x147bdb312fff 0x147bdb313000 - 0x147bdb333fff 0x147bdb334000 - 0x147bdb33bfff 0x147bdb33c000 - 0x147bdb33cfff 0x147bdb33d000 - 0x147bdb33dfff 0x147bdb33e000 - 0x147bdb33efff 0x147bdb33f000 - 0x147bdb33ffff 0x7ffe268ab000 - 0x7ffe268cbfff 0x7ffe26980000 - 0x7ffe26983fff 0x7ffe26984000 - 0x7ffe26985fff 0xffffffffff600000 - 0xffffffffff600fff "[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)"))))) 5821235 ("/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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0x15f2000 - 0x1612fff 0x100000000000 - 0x1000000bffff 0x14c8b62f0000 - 0x14c8b6994fff 0x14c8b6995000 - 0x14c8b69e8fff 0x14c8b69e9000 - 0x14c8b69eafff 0x14c8b69eb000 - 0x14c8b6a0ffff 0x14c8b6a10000 - 0x14c8b6b5ffff 0x14c8b6b60000 - 0x14c8b6baafff 0x14c8b6bab000 - 0x14c8b6badfff 0x14c8b6bae000 - 0x14c8b6bb0fff 0x14c8b6bb1000 - 0x14c8b6bb4fff 0x14c8b6bb5000 - 0x14c8b6bb7fff 0x14c8b6bb8000 - 0x14c8b6bc9fff 0x14c8b6bca000 - 0x14c8b6bcdfff 0x14c8b6bce000 - 0x14c8b6bcefff 0x14c8b6bcf000 - 0x14c8b6bcffff 0x14c8b6bd0000 - 0x14c8b6be0fff 0x14c8b6be1000 - 0x14c8b6c18fff 0x14c8b6c19000 - 0x14c8b6d4ffff 0x14c8b6d50000 - 0x14c8b6d53fff 0x14c8b6d54000 - 0x14c8b6d54fff 0x14c8b6d55000 - 0x14c8b6d55fff 0x14c8b6d56000 - 0x14c8b6d57fff 0x14c8b6d58000 - 0x14c8b6d58fff 0x14c8b6d59000 - 0x14c8b6d59fff 0x14c8b6d5a000 - 0x14c8b6d5afff 0x14c8b6d5b000 - 0x14c8b6d5cfff 0x14c8b6d5d000 - 0x14c8b6d5efff 0x14c8b6d5f000 - 0x14c8b6d61fff 0x14c8b6d62000 - 0x14c8b6d62fff 0x14c8b6d63000 - 0x14c8b6d63fff 0x14c8b6d64000 - 0x14c8b6d64fff 0x14c8b6d65000 - 0x14c8b6d66fff 0x14c8b6d67000 - 0x14c8b6d68fff 0x14c8b6d69000 - 0x14c8b6d69fff 0x14c8b6d6a000 - 0x14c8b6d6afff 0x14c8b6d6b000 - 0x14c8b6d6bfff 0x14c8b6d6c000 - 0x14c8b6d79fff 0x14c8b6d7a000 - 0x14c8b6d87fff 0x14c8b6d88000 - 0x14c8b6d95fff 0x14c8b6d96000 - 0x14c8b6d99fff 0x14c8b6d9a000 - 0x14c8b6d9afff 0x14c8b6d9b000 - 0x14c8b6d9cfff 0x14c8b6d9d000 - 0x14c8b6db1fff 0x14c8b6db2000 - 0x14c8b6dcbfff 0x14c8b6dcc000 - 0x14c8b6dccfff 0x14c8b6dcd000 - 0x14c8b6dd5fff 0x14c8b6dd6000 - 0x14c8b6de4fff 0x14c8b6de5000 - 0x14c8b6e80fff 0x14c8b6e81000 - 0x14c8b6f19fff 0x14c8b6f1a000 - 0x14c8b6f1afff 0x14c8b6f1b000 - 0x14c8b6f1bfff 0x14c8b6f1c000 - 0x14c8b6f31fff 0x14c8b6f32000 - 0x14c8b6f5dfff 0x14c8b6f5e000 - 0x14c8b6f66fff 0x14c8b6f67000 - 0x14c8b6f67fff 0x14c8b6f68000 - 0x14c8b6f6afff 0x14c8b6f6b000 - 0x14c8b6f70fff 0x14c8b6f71000 - 0x14c8b6f73fff 0x14c8b6f76000 - 0x14c8b6f76fff 0x14c8b6f77000 - 0x14c8b6f77fff 0x14c8b6f78000 - 0x14c8b6f7efff 0x14c8b6f7f000 - 0x14c8b6f80fff 0x14c8b6f81000 - 0x14c8b6fa1fff 0x14c8b6fa2000 - 0x14c8b6fa9fff 0x14c8b6faa000 - 0x14c8b6faafff 0x14c8b6fab000 - 0x14c8b6fabfff 0x14c8b6fac000 - 0x14c8b6facfff 0x14c8b6fad000 - 0x14c8b6fadfff 0x7ffc48976000 - 0x7ffc48996fff 0x7ffc489f5000 - 0x7ffc489f8fff 0x7ffc489f9000 - 0x7ffc489fafff 0xffffffffff600000 - 0xffffffffff600fff "[1]>" " # [2]>" 5821237 " 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-fN2KWc" "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-UeUy0d")) EQL-OK: T (LISTP (SHOW (COPY-FILE *TMP2* *TMP1* :METHOD :HARDLINK-OR-COPY))) (("/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-UeUy0d" "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/syscalls-tests-fN2KWc")) 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))))) 51007401 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.1" . #) (#2="10.3.169.79" . #) (#3="buildvm-x86-29.iad2.fedoraproject.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)) 2095823 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 2095824 PID-W 2095824) 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 2095829 PID-L-2 2095830 PID-W-1 2095829 PID-W-2 2095830) 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))))) (3.85d0 3.13d0 3.11d0) EQL-OK: T (EVERY #'SYSTEM::FIXNUMP (SHOW (HANDLER-CASE (MULTIPLE-VALUE-LIST (LOADAVG T)) (ERROR (C) (PRINC-ERROR C))))) (385 313 311) 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") (: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/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") (:F "/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dir1/file1") (: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/dir2/dir3/file3" # :F 131 3) (#2="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dir1/dir2/dir3" # :DP 126 2) (#3="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dir1/dir2/file2" # :F 126 2) (#4="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dir1/dir2" # :DP 121 1) (#5="/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/dir1/file1" # :F 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" (0 errors out of 263 tests) 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: 0 errors out of 631 tests 1 i18n/test.tst: 0 errors out of 11 tests 2 syscalls/test.tst: 0 errors 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 base-mod-check SUCCEEDED 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 SUCCEEDED + RPM_EC=0 ++ jobs -p + exit 0 Executing(%install): /bin/sh -e /var/tmp/rpm-tmp.fvTwUX + umask 022 + cd /builddir/build/BUILD + '[' /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64 '!=' / ']' + rm -rf /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64 ++ dirname /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64 + mkdir -p /builddir/build/BUILDROOT + mkdir /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64 + cd clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa + ulimit -s unlimited + make -C build DESTDIR=/builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit -c modules.c gcc -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl -o lisp.run boot/lisp.run -B . -M boot/lispinit.mem -norc -q -i i18n/preload.lisp -i syscalls/preload.lisp -i regexp/preload.lisp -x (saveinitmem "base/lispinit.mem") Warning: reserving address range 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x418fff 0x419000 - 0x51dfff 0x51e000 - 0x577fff 0x579000 - 0x5a3fff 0x5a4000 - 0x5d1fff 0x5d2000 - 0x5d3fff 0x19b0000 - 0x19d0fff 0x100000000000 - 0x1000000bffff 0x152c769a7000 - 0x152c769a9fff 0x152c769aa000 - 0x152c769cefff 0x152c769cf000 - 0x152c76b1efff 0x152c76b1f000 - 0x152c76b69fff 0x152c76b6a000 - 0x152c76b6cfff 0x152c76b6d000 - 0x152c76b6ffff 0x152c76b70000 - 0x152c76b73fff 0x152c76b74000 - 0x152c76b76fff 0x152c76b77000 - 0x152c76b88fff 0x152c76b89000 - 0x152c76b8cfff 0x152c76b8d000 - 0x152c76b8dfff 0x152c76b8e000 - 0x152c76b8efff 0x152c76b8f000 - 0x152c76b90fff 0x152c76b91000 - 0x152c76ba1fff 0x152c76ba2000 - 0x152c76bd9fff 0x152c76bda000 - 0x152c76d10fff 0x152c76d11000 - 0x152c76d14fff 0x152c76d15000 - 0x152c76d15fff 0x152c76d16000 - 0x152c76d16fff 0x152c76d17000 - 0x152c76d18fff 0x152c76d19000 - 0x152c76d19fff 0x152c76d1a000 - 0x152c76d1afff 0x152c76d1b000 - 0x152c76d1bfff 0x152c76d1c000 - 0x152c76d1dfff 0x152c76d1e000 - 0x152c76d20fff 0x152c76d21000 - 0x152c76d21fff 0x152c76d22000 - 0x152c76d22fff 0x152c76d23000 - 0x152c76d23fff 0x152c76d24000 - 0x152c76d25fff 0x152c76d26000 - 0x152c76d27fff 0x152c76d28000 - 0x152c76d28fff 0x152c76d29000 - 0x152c76d29fff 0x152c76d2a000 - 0x152c76d2afff 0x152c76d2b000 - 0x152c76d38fff 0x152c76d39000 - 0x152c76d46fff 0x152c76d47000 - 0x152c76d54fff 0x152c76d55000 - 0x152c76d58fff 0x152c76d59000 - 0x152c76d59fff 0x152c76d5a000 - 0x152c76d6ffff 0x152c76d70000 - 0x152c76d9bfff 0x152c76d9c000 - 0x152c76da4fff 0x152c76da5000 - 0x152c76da5fff 0x152c76da6000 - 0x152c76da8fff 0x152c76da9000 - 0x152c76daefff 0x152c76daf000 - 0x152c76db1fff 0x152c76dbd000 - 0x152c76dbefff 0x152c76dbf000 - 0x152c76ddffff 0x152c76de0000 - 0x152c76de7fff 0x152c76de9000 - 0x152c76de9fff 0x152c76dea000 - 0x152c76deafff 0x152c76deb000 - 0x152c76debfff 0x7ffcc2ed8000 - 0x7ffcc2ef8fff 0x7ffcc2f84000 - 0x7ffcc2f87fff 0x7ffcc2f88000 - 0x7ffcc2f89fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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,315,728 bytes) Bytes permanently allocated: 173,424 Bytes currently in use: 3,139,472 Bytes available until next GC: 780,758 3139472 ; 780758 ; 173424 ; 1 ; 256720 ; 11555 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0x2266000 - 0x2286fff 0x100000000000 - 0x1000000bffff 0x149b6ac02000 - 0x149b6ac03fff 0x149b6ac04000 - 0x149b6ac28fff 0x149b6ac29000 - 0x149b6ad78fff 0x149b6ad79000 - 0x149b6adc3fff 0x149b6adc4000 - 0x149b6adc6fff 0x149b6adc7000 - 0x149b6adc9fff 0x149b6adca000 - 0x149b6adcdfff 0x149b6adce000 - 0x149b6add0fff 0x149b6add1000 - 0x149b6ade2fff 0x149b6ade3000 - 0x149b6ade6fff 0x149b6ade7000 - 0x149b6ade7fff 0x149b6ade8000 - 0x149b6ade8fff 0x149b6ade9000 - 0x149b6adf9fff 0x149b6adfa000 - 0x149b6ae31fff 0x149b6ae32000 - 0x149b6af68fff 0x149b6af69000 - 0x149b6af6cfff 0x149b6af6d000 - 0x149b6af6dfff 0x149b6af6e000 - 0x149b6af6efff 0x149b6af6f000 - 0x149b6af70fff 0x149b6af71000 - 0x149b6af71fff 0x149b6af72000 - 0x149b6af72fff 0x149b6af73000 - 0x149b6af73fff 0x149b6af74000 - 0x149b6af75fff 0x149b6af76000 - 0x149b6af77fff 0x149b6af78000 - 0x149b6af7afff 0x149b6af7b000 - 0x149b6af7bfff 0x149b6af7c000 - 0x149b6af7cfff 0x149b6af7d000 - 0x149b6af7dfff 0x149b6af7e000 - 0x149b6af7ffff 0x149b6af80000 - 0x149b6af81fff 0x149b6af82000 - 0x149b6af82fff 0x149b6af83000 - 0x149b6af83fff 0x149b6af84000 - 0x149b6af84fff 0x149b6af85000 - 0x149b6af92fff 0x149b6af93000 - 0x149b6afa0fff 0x149b6afa1000 - 0x149b6afaefff 0x149b6afaf000 - 0x149b6afb2fff 0x149b6afb3000 - 0x149b6afb3fff 0x149b6afb4000 - 0x149b6afb5fff 0x149b6afb6000 - 0x149b6afcafff 0x149b6afcb000 - 0x149b6afe4fff 0x149b6afe5000 - 0x149b6afe5fff 0x149b6afe6000 - 0x149b6afeefff 0x149b6afef000 - 0x149b6affdfff 0x149b6affe000 - 0x149b6b099fff 0x149b6b09a000 - 0x149b6b132fff 0x149b6b133000 - 0x149b6b133fff 0x149b6b134000 - 0x149b6b134fff 0x149b6b135000 - 0x149b6b14afff 0x149b6b14b000 - 0x149b6b176fff 0x149b6b177000 - 0x149b6b17ffff 0x149b6b180000 - 0x149b6b180fff 0x149b6b181000 - 0x149b6b183fff 0x149b6b184000 - 0x149b6b189fff 0x149b6b18a000 - 0x149b6b18cfff 0x149b6b198000 - 0x149b6b199fff 0x149b6b19a000 - 0x149b6b1bafff 0x149b6b1bb000 - 0x149b6b1c2fff 0x149b6b1c4000 - 0x149b6b1c4fff 0x149b6b1c5000 - 0x149b6b1c5fff 0x149b6b1c6000 - 0x149b6b1c6fff 0x7ffcf129a000 - 0x7ffcf12bafff 0x7ffcf1353000 - 0x7ffcf1356fff 0x7ffcf1357000 - 0x7ffcf1358fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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,798,432 bytes) Bytes permanently allocated: 179,976 Bytes currently in use: 3,610,368 Bytes available until next GC: 898,482 3610368 ; 898482 ; 179976 ; 3 ; 1575384 ; 24632 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm';\ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack' 'LDFLAGS=-Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack' 'CPPFLAGS=-I/usr/include/libsvm'; \ 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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl " RANLIB="ranlib" CLISP="$CLISP -q" SHREXT=.so make[1]: Entering directory '/builddir/build/BUILD/clisp-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 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -I/builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa/build/linkkit -c modules.c gcc -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -fPIC -DPIC -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic modules.o zlib.o /usr/lib64/libz.so rawsock.o postgresql.o /usr/lib64/libpq.so cpcre.o /usr/lib64/libpcre.so cpari.o pari.o -lm /usr/lib64/libpari.so libsvm.o -lm /usr/lib64/libsvm.so gtk.o -lgtk-x11-2.0 -lgdk-x11-2.0 -lpangocairo-1.0 -latk-1.0 -lcairo -lgdk_pixbuf-2.0 -lgio-2.0 -lpangoft2-1.0 -lpango-1.0 -lgobject-2.0 -lglib-2.0 -lharfbuzz -lfontconfig -lfreetype -lglade-2.0 -lgtk-x11-2.0 -lgdk-x11-2.0 -lpangocairo-1.0 -latk-1.0 -lcairo -lgdk_pixbuf-2.0 -lgio-2.0 -lpangoft2-1.0 -lpango-1.0 -lgobject-2.0 -lglib-2.0 -lharfbuzz -lfontconfig -lfreetype -lxml2 gdbm.o /usr/lib64/libgdbm.so fastcgi.o fastcgi_wrappers.o /usr/lib64/libfcgi.so dbus.o -ldbus-1 clx.o -lXpm -lXext -lXau -lSM -lICE -lX11 linux.o -lm bdb.o /usr/lib64/libdb.so readline.o -lreadline -lncurses regexi.o calls.o -lm -lcrypt gettext.o lisp.a -Wl,--whole-archive libgnu.a -Wl,--no-whole-archive -lreadline -lncurses -ldl /usr/lib64/libffcall.so /usr/lib64/libsigsegv.so /usr/lib64/libunistring.so -ldl -o lisp.run /usr/bin/ld: linux.o: in function `module__linux__init_function_2': /builddir/build/BUILD/clisp-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") ;; 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 ...Warning: reserving address range 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x41efff 0x41f000 - 0x535fff 0x536000 - 0x595fff 0x597000 - 0x5c4fff 0x5c5000 - 0x5f5fff 0x5f6000 - 0x5f9fff 0xecb000 - 0xeebfff 0x100000000000 - 0x1000000bffff 0x153d9c35c000 - 0x153d9c35dfff 0x153d9c35e000 - 0x153d9c382fff 0x153d9c383000 - 0x153d9c4d2fff 0x153d9c4d3000 - 0x153d9c51dfff 0x153d9c51e000 - 0x153d9c520fff 0x153d9c521000 - 0x153d9c523fff 0x153d9c524000 - 0x153d9c527fff 0x153d9c528000 - 0x153d9c52afff 0x153d9c52b000 - 0x153d9c53cfff 0x153d9c53d000 - 0x153d9c540fff 0x153d9c541000 - 0x153d9c541fff 0x153d9c542000 - 0x153d9c542fff 0x153d9c543000 - 0x153d9c553fff 0x153d9c554000 - 0x153d9c58bfff 0x153d9c58c000 - 0x153d9c6c2fff 0x153d9c6c3000 - 0x153d9c6c6fff 0x153d9c6c7000 - 0x153d9c6c7fff 0x153d9c6c8000 - 0x153d9c6c8fff 0x153d9c6c9000 - 0x153d9c6cafff 0x153d9c6cb000 - 0x153d9c6cbfff 0x153d9c6cc000 - 0x153d9c6ccfff 0x153d9c6cd000 - 0x153d9c6cdfff 0x153d9c6ce000 - 0x153d9c6cffff 0x153d9c6d0000 - 0x153d9c6d1fff 0x153d9c6d2000 - 0x153d9c6d4fff 0x153d9c6d5000 - 0x153d9c6d5fff 0x153d9c6d6000 - 0x153d9c6d6fff 0x153d9c6d7000 - 0x153d9c6d7fff 0x153d9c6d8000 - 0x153d9c6d9fff 0x153d9c6da000 - 0x153d9c6dbfff 0x153d9c6dc000 - 0x153d9c6dcfff 0x153d9c6dd000 - 0x153d9c6ddfff 0x153d9c6de000 - 0x153d9c6defff 0x153d9c6df000 - 0x153d9c6ecfff 0x153d9c6ed000 - 0x153d9c6fafff 0x153d9c6fb000 - 0x153d9c708fff 0x153d9c709000 - 0x153d9c70cfff 0x153d9c70d000 - 0x153d9c70dfff 0x153d9c70e000 - 0x153d9c70ffff 0x153d9c710000 - 0x153d9c724fff 0x153d9c725000 - 0x153d9c73efff 0x153d9c73f000 - 0x153d9c73ffff 0x153d9c740000 - 0x153d9c748fff 0x153d9c749000 - 0x153d9c757fff 0x153d9c758000 - 0x153d9c7f3fff 0x153d9c7f4000 - 0x153d9c88cfff 0x153d9c88d000 - 0x153d9c88dfff 0x153d9c88e000 - 0x153d9c88efff 0x153d9c88f000 - 0x153d9c8a4fff 0x153d9c8a5000 - 0x153d9c8d0fff 0x153d9c8d1000 - 0x153d9c8d9fff 0x153d9c8da000 - 0x153d9c8dafff 0x153d9c8db000 - 0x153d9c8ddfff 0x153d9c8de000 - 0x153d9c8e3fff 0x153d9c8e4000 - 0x153d9c8e6fff 0x153d9c8f2000 - 0x153d9c8f3fff 0x153d9c8f4000 - 0x153d9c914fff 0x153d9c915000 - 0x153d9c91cfff 0x153d9c91e000 - 0x153d9c91efff 0x153d9c91f000 - 0x153d9c91ffff 0x153d9c920000 - 0x153d9c920fff 0x7ffc6098d000 - 0x7ffc609adfff 0x7ffc609e8000 - 0x7ffc609ebfff 0x7ffc609ec000 - 0x7ffc609edfff 0xffffffffff600000 - 0xffffffffff600fff ;; Loaded file pcre/preload.lisp ;; Loading file rawsock/preload.lisp ... ;; Loaded file rawsock/preload.lisp ;; Wrote the memory image into full/lispinit.mem (3,804,032 bytes) Bytes permanently allocated: 179,976 Bytes currently in use: 3,615,968 Bytes available until next GC: 899,882 3615968 ; 899882 ; 179976 ; 1 ; 582544 ; 13539 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 0x1000000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later! Memory dump: 0x400000 - 0x44efff 0x44f000 - 0x5bcfff 0x5bd000 - 0x638fff 0x63a000 - 0x670fff 0x671000 - 0x6aefff 0x6af000 - 0x6d5fff 0x1c08000 - 0x1c49fff 0x100000000000 - 0x1000000bffff 0x1528f8e54000 - 0x1528f8e5ffff 0x1528f8e60000 - 0x1528f8e63fff 0x1528f8e64000 - 0x1528f8e77fff 0x1528f8e78000 - 0x1528f8e80fff 0x1528f8e81000 - 0x1528f8e81fff 0x1528f8e82000 - 0x1528f8e82fff 0x1528f8e83000 - 0x1528f8e83fff 0x1528f8e84000 - 0x1528f8e85fff 0x1528f8e86000 - 0x1528f8e89fff 0x1528f8e8a000 - 0x1528f8e8bfff 0x1528f8e8c000 - 0x1528f8e8cfff 0x1528f8e8d000 - 0x1528f8e8dfff 0x1528f8e8e000 - 0x1528f8e90fff 0x1528f8e91000 - 0x1528f8efbfff 0x1528f8efc000 - 0x1528f8f24fff 0x1528f8f25000 - 0x1528f8f25fff 0x1528f8f26000 - 0x1528f8f26fff 0x1528f8f27000 - 0x1528f8f2ffff 0x1528f8f30000 - 0x1528f8f63fff 0x1528f8f64000 - 0x1528f8f73fff 0x1528f8f74000 - 0x1528f8f74fff 0x1528f8f75000 - 0x1528f8f78fff 0x1528f8f79000 - 0x1528f8f79fff 0x1528f8f7a000 - 0x1528f8f85fff 0x1528f8f86000 - 0x1528f9057fff 0x1528f9058000 - 0x1528f9093fff 0x1528f9094000 - 0x1528f9095fff 0x1528f9096000 - 0x1528f909afff 0x1528f909b000 - 0x1528f909cfff 0x1528f909d000 - 0x1528f909efff 0x1528f909f000 - 0x1528f90b8fff 0x1528f90b9000 - 0x1528f90bbfff 0x1528f90bc000 - 0x1528f90bcfff 0x1528f90bd000 - 0x1528f90bdfff 0x1528f90be000 - 0x1528f90bffff 0x1528f90c0000 - 0x1528f90ccfff 0x1528f90cd000 - 0x1528f90cefff 0x1528f90cf000 - 0x1528f90cffff 0x1528f90d0000 - 0x1528f90d0fff 0x1528f90d1000 - 0x1528f90d3fff 0x1528f90d4000 - 0x1528f90ecfff 0x1528f90ed000 - 0x1528f90f1fff 0x1528f90f2000 - 0x1528f90f3fff 0x1528f90f4000 - 0x1528f90f4fff 0x1528f90f5000 - 0x1528f90f7fff 0x1528f90f8000 - 0x1528f9110fff 0x1528f9111000 - 0x1528f911bfff 0x1528f911c000 - 0x1528f911cfff 0x1528f911d000 - 0x1528f911dfff 0x1528f911e000 - 0x1528f911efff 0x1528f911f000 - 0x1528f9122fff 0x1528f9123000 - 0x1528f913ffff 0x1528f9140000 - 0x1528f9149fff 0x1528f914a000 - 0x1528f914afff 0x1528f914b000 - 0x1528f914cfff 0x1528f914d000 - 0x1528f914ffff 0x1528f9150000 - 0x1528f9151fff 0x1528f9152000 - 0x1528f9156fff 0x1528f9157000 - 0x1528f9159fff 0x1528f915a000 - 0x1528f915afff 0x1528f915b000 - 0x1528f915bfff 0x1528f915c000 - 0x1528f915dfff 0x1528f915e000 - 0x1528f9162fff 0x1528f9163000 - 0x1528f9177fff 0x1528f9178000 - 0x1528f9178fff 0x1528f9179000 - 0x1528f9179fff 0x1528f917a000 - 0x1528f917afff 0x1528f917b000 - 0x1528f9181fff 0x1528f9182000 - 0x1528f919bfff 0x1528f919c000 - 0x1528f91a3fff 0x1528f91a4000 - 0x1528f91a4fff 0x1528f91a5000 - 0x1528f91a5fff 0x1528f91a6000 - 0x1528f91a7fff 0x1528f91a8000 - 0x1528f91b3fff 0x1528f91b4000 - 0x1528f91f1fff 0x1528f91f2000 - 0x1528f9203fff 0x1528f9204000 - 0x1528f9204fff 0x1528f9205000 - 0x1528f9206fff 0x1528f9207000 - 0x1528f9207fff 0x1528f9208000 - 0x1528f920afff 0x1528f920b000 - 0x1528f920efff 0x1528f920f000 - 0x1528f920ffff 0x1528f9210000 - 0x1528f9210fff 0x1528f9211000 - 0x1528f9211fff 0x1528f9212000 - 0x1528f9212fff 0x1528f9213000 - 0x1528f9214fff 0x1528f9215000 - 0x1528f9219fff 0x1528f921a000 - 0x1528f921ffff 0x1528f9220000 - 0x1528f9221fff 0x1528f9222000 - 0x1528f9222fff 0x1528f9223000 - 0x1528f9223fff 0x1528f9224000 - 0x1528f9224fff 0x1528f9225000 - 0x1528f9225fff 0x1528f9226000 - 0x1528f9226fff 0x1528f9227000 - 0x1528f9227fff 0x1528f9228000 - 0x1528f9228fff 0x1528f9229000 - 0x1528f9229fff 0x1528f922a000 - 0x1528f9234fff 0x1528f9235000 - 0x1528f92b9fff 0x1528f92ba000 - 0x1528f92cbfff 0x1528f92cc000 - 0x1528f92ccfff 0x1528f92cd000 - 0x1528f92d4fff 0x1528f92d5000 - 0x1528f92d5fff 0x1528f92d6000 - 0x1528f92dafff 0x1528f92db000 - 0x1528f92edfff 0x1528f92ee000 - 0x1528f92f3fff 0x1528f92f4000 - 0x1528f92f4fff 0x1528f92f5000 - 0x1528f92f5fff 0x1528f92f6000 - 0x1528f92f9fff 0x1528f92fa000 - 0x1528f9301fff 0x1528f9302000 - 0x1528f9304fff 0x1528f9305000 - 0x1528f9305fff 0x1528f9306000 - 0x1528f9306fff 0x1528f9307000 - 0x1528f9307fff 0x1528f9308000 - 0x1528f9309fff 0x1528f930a000 - 0x1528f930dfff 0x1528f930e000 - 0x1528f931bfff 0x1528f931c000 - 0x1528f931efff 0x1528f931f000 - 0x1528f931ffff 0x1528f9320000 - 0x1528f9320fff 0x1528f9321000 - 0x1528f9321fff 0x1528f9322000 - 0x1528f9323fff 0x1528f9324000 - 0x1528f9325fff 0x1528f9326000 - 0x1528f9327fff 0x1528f9328000 - 0x1528f9328fff 0x1528f9329000 - 0x1528f9329fff 0x1528f932a000 - 0x1528f932afff 0x1528f932b000 - 0x1528f932efff 0x1528f932f000 - 0x1528f9337fff 0x1528f9338000 - 0x1528f933afff 0x1528f933b000 - 0x1528f933bfff 0x1528f933c000 - 0x1528f933cfff 0x1528f933d000 - 0x1528f933efff 0x1528f933f000 - 0x1528f9340fff 0x1528f9341000 - 0x1528f9341fff 0x1528f9342000 - 0x1528f9342fff 0x1528f9343000 - 0x1528f9343fff 0x1528f9344000 - 0x1528f9348fff 0x1528f9349000 - 0x1528f9355fff 0x1528f9356000 - 0x1528f9359fff 0x1528f935a000 - 0x1528f935bfff 0x1528f935c000 - 0x1528f935cfff 0x1528f935d000 - 0x1528f937ffff 0x1528f9380000 - 0x1528f93edfff 0x1528f93ee000 - 0x1528f9436fff 0x1528f9437000 - 0x1528f9445fff 0x1528f9446000 - 0x1528f9447fff 0x1528f9448000 - 0x1528f9449fff 0x1528f944a000 - 0x1528f9455fff 0x1528f9456000 - 0x1528f946afff 0x1528f946b000 - 0x1528f9473fff 0x1528f9474000 - 0x1528f9474fff 0x1528f9475000 - 0x1528f9475fff 0x1528f9476000 - 0x1528f9486fff 0x1528f9487000 - 0x1528f94fefff 0x1528f94ff000 - 0x1528f9526fff 0x1528f9527000 - 0x1528f952afff 0x1528f952b000 - 0x1528f952bfff 0x1528f952c000 - 0x1528f952cfff 0x1528f952d000 - 0x1528f9539fff 0x1528f953a000 - 0x1528f95befff 0x1528f95bf000 - 0x1528f95e8fff 0x1528f95e9000 - 0x1528f95e9fff 0x1528f95ea000 - 0x1528f95f0fff 0x1528f95f1000 - 0x1528f95f1fff 0x1528f95f2000 - 0x1528f95fafff 0x1528f95fb000 - 0x1528f969dfff 0x1528f969e000 - 0x1528f96d1fff 0x1528f96d2000 - 0x1528f96d2fff 0x1528f96d3000 - 0x1528f96d3fff 0x1528f96d4000 - 0x1528f9701fff 0x1528f9702000 - 0x1528f97edfff 0x1528f97ee000 - 0x1528f9837fff 0x1528f9838000 - 0x1528f9838fff 0x1528f9839000 - 0x1528f9841fff 0x1528f9842000 - 0x1528f9842fff 0x1528f9843000 - 0x1528f9846fff 0x1528f9847000 - 0x1528f9848fff 0x1528f9849000 - 0x1528f984dfff 0x1528f984e000 - 0x1528f984efff 0x1528f984f000 - 0x1528f984ffff 0x1528f9850000 - 0x1528f9850fff 0x1528f9851000 - 0x1528f9851fff 0x1528f9852000 - 0x1528f9856fff 0x1528f9857000 - 0x1528f987bfff 0x1528f987c000 - 0x1528f9886fff 0x1528f9887000 - 0x1528f9887fff 0x1528f9888000 - 0x1528f9888fff 0x1528f9889000 - 0x1528f9889fff 0x1528f988a000 - 0x1528f988afff 0x1528f988b000 - 0x1528f988bfff 0x1528f988c000 - 0x1528f988cfff 0x1528f988d000 - 0x1528f988dfff 0x1528f988e000 - 0x1528f988efff 0x1528f988f000 - 0x1528f988ffff 0x1528f9890000 - 0x1528f9890fff 0x1528f9891000 - 0x1528f9891fff 0x1528f9892000 - 0x1528f9892fff 0x1528f9893000 - 0x1528f9895fff 0x1528f9896000 - 0x1528f989bfff 0x1528f989c000 - 0x1528f989dfff 0x1528f989e000 - 0x1528f989efff 0x1528f989f000 - 0x1528f989ffff 0x1528f98a0000 - 0x1528f98a1fff 0x1528f98a2000 - 0x1528f98a8fff 0x1528f98a9000 - 0x1528f98aafff 0x1528f98ab000 - 0x1528f98abfff 0x1528f98ac000 - 0x1528f98acfff 0x1528f98ad000 - 0x1528f98aefff 0x1528f98af000 - 0x1528f98b0fff 0x1528f98b1000 - 0x1528f98bbfff 0x1528f98bc000 - 0x1528f98befff 0x1528f98bf000 - 0x1528f98bffff 0x1528f98c0000 - 0x1528f98c0fff 0x1528f98c1000 - 0x1528f98c1fff 0x1528f98c2000 - 0x1528f98c2fff 0x1528f98c3000 - 0x1528f98c3fff 0x1528f98c4000 - 0x1528f98c4fff 0x1528f98c5000 - 0x1528f98c5fff 0x1528f98c6000 - 0x1528f98c7fff 0x1528f98c8000 - 0x1528f98cefff 0x1528f98cf000 - 0x1528f98d0fff 0x1528f98d1000 - 0x1528f98d1fff 0x1528f98d2000 - 0x1528f98d2fff 0x1528f98d3000 - 0x1528f98d9fff 0x1528f98da000 - 0x1528f9901fff 0x1528f9902000 - 0x1528f9919fff 0x1528f991a000 - 0x1528f991afff 0x1528f991b000 - 0x1528f991cfff 0x1528f991d000 - 0x1528f991dfff 0x1528f991e000 - 0x1528f992bfff 0x1528f992c000 - 0x1528f9951fff 0x1528f9952000 - 0x1528f9968fff 0x1528f9969000 - 0x1528f996bfff 0x1528f996c000 - 0x1528f996cfff 0x1528f996d000 - 0x1528f9973fff 0x1528f9974000 - 0x1528f997efff 0x1528f997f000 - 0x1528f9982fff 0x1528f9983000 - 0x1528f9983fff 0x1528f9984000 - 0x1528f9984fff 0x1528f9985000 - 0x1528f9987fff 0x1528f9988000 - 0x1528f99bffff 0x1528f99c0000 - 0x1528f9ad6fff 0x1528f9ad7000 - 0x1528f9b5ffff 0x1528f9b60000 - 0x1528f9b68fff 0x1528f9b69000 - 0x1528f9b69fff 0x1528f9b6a000 - 0x1528f9b6bfff 0x1528f9b6c000 - 0x1528f9b7dfff 0x1528f9b7e000 - 0x1528f9c50fff 0x1528f9c51000 - 0x1528f9c8cfff 0x1528f9c8d000 - 0x1528f9c8dfff 0x1528f9c8e000 - 0x1528f9c91fff 0x1528f9c92000 - 0x1528f9c92fff 0x1528f9c93000 - 0x1528f9c93fff 0x1528f9c94000 - 0x1528f9c9efff 0x1528f9c9f000 - 0x1528f9cadfff 0x1528f9cae000 - 0x1528f9cb9fff 0x1528f9cba000 - 0x1528f9cbcfff 0x1528f9cbd000 - 0x1528f9cbdfff 0x1528f9cbe000 - 0x1528f9cbffff 0x1528f9cc0000 - 0x1528f9cc2fff 0x1528f9cc3000 - 0x1528f9cc3fff 0x1528f9cc4000 - 0x1528f9cc4fff 0x1528f9cc5000 - 0x1528f9cc5fff 0x1528f9cc6000 - 0x1528f9cc6fff 0x1528f9cc7000 - 0x1528f9ccbfff 0x1528f9ccc000 - 0x1528f9cd3fff 0x1528f9cd4000 - 0x1528f9cd6fff 0x1528f9cd7000 - 0x1528f9cd7fff 0x1528f9cd8000 - 0x1528f9cd8fff 0x1528f9cd9000 - 0x1528f9cd9fff 0x1528f9cda000 - 0x1528f9cdbfff 0x1528f9cdc000 - 0x1528f9cdcfff 0x1528f9cdd000 - 0x1528f9cddfff 0x1528f9cde000 - 0x1528f9cdefff 0x1528f9cdf000 - 0x1528f9ce0fff 0x1528f9ce1000 - 0x1528f9d76fff 0x1528f9d77000 - 0x1528f9e6efff 0x1528f9e6f000 - 0x1528f9ebefff 0x1528f9ebf000 - 0x1528f9ebffff 0x1528f9ec0000 - 0x1528f9ecafff 0x1528f9ecb000 - 0x1528f9ecdfff 0x1528f9ece000 - 0x1528f9ed0fff 0x1528f9ed1000 - 0x1528f9edffff 0x1528f9ee0000 - 0x1528f9f4dfff 0x1528f9f4e000 - 0x1528f9f64fff 0x1528f9f65000 - 0x1528f9f66fff 0x1528f9f67000 - 0x1528f9f67fff 0x1528f9f68000 - 0x1528f9f6efff 0x1528f9f6f000 - 0x1528f9f7efff 0x1528f9f7f000 - 0x1528f9f83fff 0x1528f9f84000 - 0x1528f9f84fff 0x1528f9f85000 - 0x1528f9f85fff 0x1528f9f86000 - 0x1528f9f89fff 0x1528f9f8a000 - 0x1528f9f98fff 0x1528f9f99000 - 0x1528f9fcefff 0x1528f9fcf000 - 0x1528f9fddfff 0x1528f9fde000 - 0x1528f9fdefff 0x1528f9fdf000 - 0x1528f9fe0fff 0x1528f9fe1000 - 0x1528f9fe1fff 0x1528f9fe2000 - 0x1528f9fe3fff 0x1528f9fe4000 - 0x1528f9feffff 0x1528f9ff0000 - 0x1528fa029fff 0x1528fa02a000 - 0x1528fa036fff 0x1528fa037000 - 0x1528fa037fff 0x1528fa038000 - 0x1528fa039fff 0x1528fa03a000 - 0x1528fa03afff 0x1528fa03b000 - 0x1528fa0b4fff 0x1528fa0b5000 - 0x1528fa261fff 0x1528fa262000 - 0x1528fa2f3fff 0x1528fa2f4000 - 0x1528fa2f4fff 0x1528fa2f5000 - 0x1528fa31ffff 0x1528fa320000 - 0x1528fa323fff 0x1528fa324000 - 0x1528fa329fff 0x1528fa32a000 - 0x1528fa346fff 0x1528fa347000 - 0x1528fa397fff 0x1528fa398000 - 0x1528fa3b1fff 0x1528fa3b2000 - 0x1528fa3b2fff 0x1528fa3b3000 - 0x1528fa3bbfff 0x1528fa3bc000 - 0x1528fa3bffff 0x1528fa3c0000 - 0x1528fa3c0fff 0x1528fa3c1000 - 0x1528fa3e5fff 0x1528fa3e6000 - 0x1528fa535fff 0x1528fa536000 - 0x1528fa580fff 0x1528fa581000 - 0x1528fa583fff 0x1528fa584000 - 0x1528fa586fff 0x1528fa587000 - 0x1528fa58afff 0x1528fa58b000 - 0x1528fa58dfff 0x1528fa58e000 - 0x1528fa59ffff 0x1528fa5a0000 - 0x1528fa5a3fff 0x1528fa5a4000 - 0x1528fa5a4fff 0x1528fa5a5000 - 0x1528fa5a5fff 0x1528fa5a6000 - 0x1528fa5b6fff 0x1528fa5b7000 - 0x1528fa5eefff 0x1528fa5ef000 - 0x1528fa725fff 0x1528fa726000 - 0x1528fa729fff 0x1528fa72a000 - 0x1528fa72afff 0x1528fa72b000 - 0x1528fa72bfff 0x1528fa72c000 - 0x1528fa72dfff 0x1528fa72e000 - 0x1528fa72efff 0x1528fa72f000 - 0x1528fa72ffff 0x1528fa730000 - 0x1528fa730fff 0x1528fa731000 - 0x1528fa732fff 0x1528fa733000 - 0x1528fa735fff 0x1528fa736000 - 0x1528fa736fff 0x1528fa737000 - 0x1528fa737fff 0x1528fa738000 - 0x1528fa73afff 0x1528fa73b000 - 0x1528fa73cfff 0x1528fa73d000 - 0x1528fa73efff 0x1528fa73f000 - 0x1528fa73ffff 0x1528fa740000 - 0x1528fa740fff 0x1528fa741000 - 0x1528fa741fff 0x1528fa742000 - 0x1528fa74ffff 0x1528fa750000 - 0x1528fa75dfff 0x1528fa75e000 - 0x1528fa76bfff 0x1528fa76c000 - 0x1528fa76ffff 0x1528fa770000 - 0x1528fa770fff 0x1528fa771000 - 0x1528fa772fff 0x1528fa773000 - 0x1528fa787fff 0x1528fa788000 - 0x1528fa7a1fff 0x1528fa7a2000 - 0x1528fa7a2fff 0x1528fa7a3000 - 0x1528fa7abfff 0x1528fa7ac000 - 0x1528fa7c1fff 0x1528fa7c2000 - 0x1528fa7edfff 0x1528fa7ee000 - 0x1528fa7f6fff 0x1528fa7f7000 - 0x1528fa7f7fff 0x1528fa7f8000 - 0x1528fa7fafff 0x1528fa7fb000 - 0x1528fa800fff 0x1528fa801000 - 0x1528fa801fff 0x1528fa802000 - 0x1528fa82bfff 0x1528fa82c000 - 0x1528fa97cfff 0x1528fa97d000 - 0x1528fa9c3fff 0x1528fa9c4000 - 0x1528fa9cdfff 0x1528fa9ce000 - 0x1528fa9cefff 0x1528fa9cf000 - 0x1528fa9ddfff 0x1528fa9de000 - 0x1528faa79fff 0x1528faa7a000 - 0x1528fab12fff 0x1528fab13000 - 0x1528fab13fff 0x1528fab14000 - 0x1528fab14fff 0x1528fab15000 - 0x1528fab16fff 0x1528fab17000 - 0x1528fab32fff 0x1528fab33000 - 0x1528fabc2fff 0x1528fabc3000 - 0x1528fac56fff 0x1528fac57000 - 0x1528fac59fff 0x1528fac5a000 - 0x1528fac5dfff 0x1528fac5e000 - 0x1528fac5efff 0x1528fac5f000 - 0x1528fac60fff 0x1528fac61000 - 0x1528fac61fff 0x1528fac62000 - 0x1528fac62fff 0x1528fac63000 - 0x1528fac63fff 0x1528fac64000 - 0x1528fac67fff 0x1528fac68000 - 0x1528fac72fff 0x1528fac73000 - 0x1528fac76fff 0x1528fac77000 - 0x1528fac77fff 0x1528fac78000 - 0x1528fac78fff 0x1528fac79000 - 0x1528fac7bfff 0x1528fac7c000 - 0x1528fac88fff 0x1528fac89000 - 0x1528fac8bfff 0x1528fac8c000 - 0x1528fac8cfff 0x1528fac8d000 - 0x1528fac8dfff 0x1528fac8e000 - 0x1528fac9afff 0x1528fac9b000 - 0x1528facccfff 0x1528faccd000 - 0x1528face1fff 0x1528face2000 - 0x1528face3fff 0x1528face4000 - 0x1528face4fff 0x1528face5000 - 0x1528face7fff 0x1528face8000 - 0x1528facedfff 0x1528facee000 - 0x1528faceffff 0x1528facf0000 - 0x1528facf0fff 0x1528facf1000 - 0x1528facf1fff 0x1528facf2000 - 0x1528facf2fff 0x1528facf3000 - 0x1528facf4fff 0x1528facf5000 - 0x1528facf7fff 0x1528facf8000 - 0x1528fad00fff 0x1528fad01000 - 0x1528fad03fff 0x1528fad04000 - 0x1528fad04fff 0x1528fad05000 - 0x1528fad05fff 0x1528fad06000 - 0x1528fad0dfff 0x1528fad0e000 - 0x1528fad1cfff 0x1528fad1d000 - 0x1528fad20fff 0x1528fad21000 - 0x1528fad22fff 0x1528fad23000 - 0x1528fad23fff 0x1528fad24000 - 0x1528fad3ffff 0x1528fad40000 - 0x1528fadc5fff 0x1528fadc6000 - 0x1528fae4afff 0x1528fae4b000 - 0x1528fae4bfff 0x1528fae4c000 - 0x1528fae4cfff 0x1528fae4d000 - 0x1528fae4dfff 0x1528fae4e000 - 0x1528fae4efff 0x1528fae4f000 - 0x1528fae5bfff 0x1528fae5c000 - 0x1528fae8bfff 0x1528fae8c000 - 0x1528faea3fff 0x1528faea4000 - 0x1528faea6fff 0x1528faea7000 - 0x1528faea7fff 0x1528faea8000 - 0x1528faeaefff 0x1528faeaf000 - 0x1528faec6fff 0x1528faec7000 - 0x1528faecffff 0x1528faed0000 - 0x1528faed0fff 0x1528faed1000 - 0x1528faed1fff 0x1528faed2000 - 0x1528faed2fff 0x1528faed3000 - 0x1528faeeffff 0x1528faef0000 - 0x1528faf5dfff 0x1528faf5e000 - 0x1528faf9bfff 0x1528faf9c000 - 0x1528faf9cfff 0x1528faf9d000 - 0x1528fafa1fff 0x1528fafa2000 - 0x1528fafa2fff 0x1528fafa3000 - 0x1528fafa4fff 0x1528fafa5000 - 0x1528fb007fff 0x1528fb008000 - 0x1528fb2c9fff 0x1528fb2ca000 - 0x1528fb449fff 0x1528fb44a000 - 0x1528fb44afff 0x1528fb44b000 - 0x1528fb454fff 0x1528fb455000 - 0x1528fb455fff 0x1528fb456000 - 0x1528fb457fff 0x1528fb458000 - 0x1528fb45bfff 0x1528fb45c000 - 0x1528fb465fff 0x1528fb466000 - 0x1528fb467fff 0x1528fb468000 - 0x1528fb468fff 0x1528fb469000 - 0x1528fb469fff 0x1528fb46a000 - 0x1528fb4eefff 0x1528fb4ef000 - 0x1528fbbcdfff 0x1528fbbce000 - 0x1528fbce2fff 0x1528fbce3000 - 0x1528fbcedfff 0x1528fbcee000 - 0x1528fbd11fff 0x1528fbd12000 - 0x1528fbd2ffff 0x1528fbd30000 - 0x1528fbd31fff 0x1528fbd32000 - 0x1528fbd87fff 0x1528fbd88000 - 0x1528fbda5fff 0x1528fbda6000 - 0x1528fbda6fff 0x1528fbda7000 - 0x1528fbda7fff 0x1528fbda8000 - 0x1528fbda8fff 0x1528fbda9000 - 0x1528fbdb2fff 0x1528fbdb3000 - 0x1528fbdd5fff 0x1528fbdd6000 - 0x1528fbdf4fff 0x1528fbdf5000 - 0x1528fbdf5fff 0x1528fbdf6000 - 0x1528fbdf8fff 0x1528fbdf9000 - 0x1528fbdf9fff 0x1528fbdfa000 - 0x1528fbdfcfff 0x1528fbdfd000 - 0x1528fbe0afff 0x1528fbe0b000 - 0x1528fbe10fff 0x1528fbe11000 - 0x1528fbe11fff 0x1528fbe12000 - 0x1528fbe12fff 0x1528fbe13000 - 0x1528fbe15fff 0x1528fbe21000 - 0x1528fbe22fff 0x1528fbe23000 - 0x1528fbe43fff 0x1528fbe44000 - 0x1528fbe4bfff 0x1528fbe4d000 - 0x1528fbe4dfff 0x1528fbe4e000 - 0x1528fbe4efff 0x1528fbe4f000 - 0x1528fbe4ffff 0x7fffe15de000 - 0x7fffe15fefff 0x7fffe17f1000 - 0x7fffe17f4fff 0x7fffe17f5000 - 0x7fffe17f6fff 0xffffffffff600000 - 0xffffffffff600fff ;; 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,854,800 bytes) Bytes permanently allocated: 209,712 Bytes currently in use: 9,626,744 Bytes available until next GC: 2,402,576 9626744 ; 2402576 ; 209712 ; 48 ; 61136104 ; 497331 mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/dynmod DESTDIR=`cd "/builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/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 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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-12.c26de78git.fc32.x86_64/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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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-12.c26de78git.fc32.x86_64/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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/clx/new-clx mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/clx/new-clx/demos/ mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/clx/new-clx/demos/screens /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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-12.c26de78git.fc32.x86_64/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 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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-12.c26de78git.fc32.x86_64/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 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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-12.c26de78git.fc32.x86_64/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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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-12.c26de78git.fc32.x86_64/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 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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-12.c26de78git.fc32.x86_64/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 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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-12.c26de78git.fc32.x86_64/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 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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-12.c26de78git.fc32.x86_64/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 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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-12.c26de78git.fc32.x86_64/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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/rawsock mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/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 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/usr mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64 mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+ mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/data /usr/bin/install -c -m 644 data/UnicodeDataFull.txt /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/data/UnicodeDataFull.txt /usr/bin/install -c -m 644 data/Symbol-Table.text /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/data/Symbol-Table.text (cd /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+ && rm -rf base full) mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/build-aux/$f; done for d in linkkit base; do for f in $d/*; do \ mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/$d; \ case $f in \ */lisp.run) /usr/bin/install -c $f /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/$f;; \ *) /usr/bin/install -c -m 644 $f /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/$f;; \ esac; \ done; done mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/bin /usr/bin/install -c clisp-link /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/bin/clisp-link cd po && make install DESTDIR='/builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64' 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-12.c26de78git.fc32.x86_64/usr/share/locale/en/LC_MESSAGES/clisp.mo installing ../../src/po/clisplow_en.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/locale/en/LC_MESSAGES/clisplow.mo installing ../../src/po/da.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/locale/da/LC_MESSAGES/clisp.mo installing ../../src/po/clisplow_da.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/locale/da/LC_MESSAGES/clisplow.mo installing ../../src/po/de.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/locale/de/LC_MESSAGES/clisp.mo installing ../../src/po/clisplow_de.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/locale/de/LC_MESSAGES/clisplow.mo installing ../../src/po/fr.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/locale/fr/LC_MESSAGES/clisp.mo installing ../../src/po/clisplow_fr.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/locale/fr/LC_MESSAGES/clisplow.mo installing ../../src/po/es.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/locale/es/LC_MESSAGES/clisp.mo installing ../../src/po/clisplow_es.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/locale/es/LC_MESSAGES/clisplow.mo installing ../../src/po/nl.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/locale/nl/LC_MESSAGES/clisp.mo installing ../../src/po/clisplow_nl.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/locale/nl/LC_MESSAGES/clisplow.mo installing ../../src/po/ru.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/locale/ru/LC_MESSAGES/clisp.mo installing ../../src/po/clisplow_ru.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/locale/ru/LC_MESSAGES/clisplow.mo installing ../../src/po/sv.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/locale/sv/LC_MESSAGES/clisp.mo installing ../../src/po/clisplow_sv.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -Wa,--noexecstack -no-integrated-cpp -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -Wno-shift-negative-value -O -fwrapv -fno-strict-aliasing -DNO_ASM -DENABLE_UNICODE -DDYNAMIC_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-12.c26de78git.fc32.x86_64/usr/bin/clisp mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/emacs/site-lisp /usr/bin/install -c -m 644 ../emacs/clhs.el /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/emacs/site-lisp/clhs.el /usr/bin/install -c -m 644 ../emacs/clisp-coding.el /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/emacs/site-lisp/clisp-coding.el /usr/bin/install -c -m 644 ../emacs/clisp-indent.el /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/emacs/site-lisp/clisp-indent.el /usr/bin/install -c -m 644 ../emacs/clisp-indent.lisp /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/emacs/site-lisp/clisp-indent.lisp /usr/bin/install -c -m 644 ../emacs/clisp-ffi.el /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/emacs/site-lisp/clisp-ffi.el mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/vim/vimfiles/after/syntax /usr/bin/install -c -m 644 ../emacs/lisp.vim /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/vim/vimfiles/after/syntax/lisp.vim mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/aclocal /usr/bin/install -c -m 644 ../src/m4/clisp.m4 /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/aclocal/clisp.m4 mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/man mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/man/man1 /usr/bin/install -c -m 644 clisp.1 /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/man/man1/clisp.1 /usr/bin/install -c -m 644 clisp-link.1 /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/man/man1/clisp-link.1 mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/doc/clisp /usr/bin/install -c -m 644 ANNOUNCE COPYRIGHT GNU-GPL SUMMARY NEWS README README.de README.es MAGIC.add /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/doc/clisp/ mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/doc/clisp/doc /usr/bin/install -c -m 644 clisp.1 clisp.html clisp-link.1 clisp-link.html LISP-tutorial.txt CLOS-guide.txt impnotes.html impnotes.css clisp.png clisp.ps clisp.pdf clisp-link.ps clisp-link.pdf /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+ + rm -f /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/doc/clisp/doc/clisp.dvi /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/doc/clisp/doc/clisp.1 /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/doc/clisp/doc/clisp.ps + rm -f /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/doc/clisp/COPYRIGHT /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/doc/clisp/GNU-GPL + cp -p doc/mop-spec.pdf /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/doc/clisp/doc + cp -p doc/clisp.png doc/mop-classes-all.png doc/mop-classes-class.png doc/mop-classes-genfun.png doc/mop-classes-methcomb.png doc/mop-classes-method.png doc/mop-classes-slotdef.png doc/mop-classes-specializer.png doc/mop-classes.png /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/doc/clisp/doc + cp -p doc/Why-CLISP-is-under-GPL /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/doc/clisp/doc + cp -p doc/regexp.html /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/doc/clisp/doc + find /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64 -name '*.dvi' -exec rm -f '{}' + + /usr/lib/rpm/find-lang.sh /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64 clisp + /usr/lib/rpm/find-lang.sh /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64 clisplow + cat clisplow.lang ~/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/emacs/site-lisp ~/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa + pushd /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/emacs/site-lisp + /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' ~/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa + popd + cp -p config.rpath.orig /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/build-aux/config.rpath + chmod a+x /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/build-aux/config.guess /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/build-aux/config.sub /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/build-aux/depcomp /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/build-aux/install-sh ++ find /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64 -name Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/asdf/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/berkeley-db/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/bindings/glibc/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/clx/new-clx/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/dbus/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/fastcgi/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/gdbm/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/gtk2/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/libsvm/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/pari/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/pcre/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/postgresql/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/rawsock/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/zlib/Makefile + for mk in /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/base/makevars + for mk in /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/full/makevars + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/asdf + cp -p build/asdf/config.h /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/asdf cp: cannot stat 'build/asdf/config.h': No such file or directory + : + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/base + cp -p build/base/config.h /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/base cp: cannot stat 'build/base/config.h': No such file or directory + : + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/berkeley-db + cp -p build/berkeley-db/config.h /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/berkeley-db + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/bindings + cp -p build/bindings/config.h /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/build-aux + cp -p build/build-aux/config.h /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/build-aux cp: cannot stat 'build/build-aux/config.h': No such file or directory + : + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/clx + cp -p build/clx/config.h /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/clx cp: cannot stat 'build/clx/config.h': No such file or directory + : + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/data + cp -p build/data/config.h /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/data cp: cannot stat 'build/data/config.h': No such file or directory + : + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/dbus + cp -p build/dbus/config.h /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/dbus + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/dynmod + cp -p build/dynmod/config.h /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/dynmod cp: cannot stat 'build/dynmod/config.h': No such file or directory + : + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/fastcgi + cp -p build/fastcgi/config.h /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/fastcgi + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/full + cp -p build/full/config.h /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/full cp: cannot stat 'build/full/config.h': No such file or directory + : + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/gdbm + cp -p build/gdbm/config.h /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/gdbm + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/gtk2 + cp -p build/gtk2/config.h /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/gtk2 + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/libsvm + cp -p build/libsvm/config.h /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/libsvm + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/linkkit + cp -p build/linkkit/config.h /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/linkkit cp: cannot stat 'build/linkkit/config.h': No such file or directory + : + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/pari + cp -p build/pari/config.h /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/pari + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/pcre + cp -p build/pcre/config.h /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/pcre + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/postgresql + cp -p build/postgresql/config.h /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/postgresql + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/rawsock + cp -p build/rawsock/config.h /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/rawsock + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/zlib + cp -p build/zlib/config.h /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/zlib + cp -p build/config.h /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+ + cp -p build/clx/new-clx/config.h /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/clx/new-clx + chmod 0755 /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/bin/clisp + chmod 0755 /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/full/lisp.run ~/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/full ~/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa + pushd /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/full + 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 ~/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa + ln -s ../zlib/zlib.o zlib.o + 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 -j6 --strict-build-id -m -i --build-id-seed 2.49.93-12.c26de78git.fc32 --unique-debug-suffix -2.49.93-12.c26de78git.fc32.x86_64 --unique-debug-src-base clisp-2.49.93-12.c26de78git.fc32.x86_64 --run-dwz --dwz-low-mem-die-limit 10000000 --dwz-max-die-limit 110000000 -S debugsourcefiles.list /builddir/build/BUILD/clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa explicitly decompress any DWARF compressed ELF sections in /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/bin/clisp explicitly decompress any DWARF compressed ELF sections in /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/base/lisp.run extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/dynmod/lib-clx.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/dynmod/lib-bdb.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/base/lisp.run extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/dynmod/lib-fastcgi.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/dynmod/lib-dbus.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/bin/clisp explicitly decompress any DWARF compressed ELF sections in /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/dynmod/lib-gtk.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/dynmod/lib-gdbm.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/dynmod/lib-libsvm.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/dynmod/lib-linux.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/dynmod/lib-pari.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/dynmod/lib-pcre.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/dynmod/lib-rawsock.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/dynmod/lib-zlib.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/dynmod/lib-rawsock.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/full/lisp.run extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/lib64/clisp-2.49.93+/full/lisp.run original debug info size: 20720kB, size after compression: 15108kB /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 19641 blocks + /usr/lib/rpm/check-buildroot + /usr/lib/rpm/redhat/brp-ldconfig + /usr/lib/rpm/brp-compress + /usr/lib/rpm/brp-strip-static-archive /usr/bin/strip + /usr/lib/rpm/redhat/brp-python-bytecompile /usr/bin/python 1 0 + /usr/lib/rpm/brp-python-hardlink + /usr/lib/rpm/redhat/brp-mangle-shebangs mangling shebang in /usr/lib64/clisp-2.49.93+/build-aux/config.guess 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/config.sub 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/install-sh from /bin/sh to #!/usr/bin/sh mangling shebang in /usr/bin/clisp-link from /bin/sh to #!/usr/bin/sh Processing files: clisp-2.49.93-12.c26de78git.fc32.x86_64 Executing(%license): /bin/sh -e /var/tmp/rpm-tmp.Ov3zmY + umask 022 + cd /builddir/build/BUILD + cd clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa + LICENSEDIR=/builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/licenses/clisp + export LC_ALL=C + LC_ALL=C + export LICENSEDIR + /usr/bin/mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/licenses/clisp + cp -pr COPYRIGHT /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/licenses/clisp + cp -pr GNU-GPL /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/licenses/clisp + RPM_EC=0 ++ jobs -p + exit 0 Provides: bundled(gnulib) clisp = 2.49.93-12.c26de78git.fc32 clisp(x86-64) = 2.49.93-12.c26de78git.fc32 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-x86-64.so.2()(64bit) ld-linux-x86-64.so.2(GLIBC_2.3)(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.11)(64bit) libc.so.6(GLIBC_2.14)(64bit) libc.so.6(GLIBC_2.15)(64bit) libc.so.6(GLIBC_2.2.5)(64bit) libc.so.6(GLIBC_2.3)(64bit) libc.so.6(GLIBC_2.3.3)(64bit) libc.so.6(GLIBC_2.3.4)(64bit) libc.so.6(GLIBC_2.4)(64bit) libc.so.6(GLIBC_2.7)(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.2.5)(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.2.5)(64bit) libm.so.6(GLIBC_2.23)(64bit) libm.so.6(GLIBC_2.27)(64bit) libm.so.6(GLIBC_2.29)(64bit) libpango-1.0.so.0()(64bit) libpangocairo-1.0.so.0()(64bit) libpangoft2-1.0.so.0()(64bit) libpari-gmp-tls.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-12.c26de78git.fc32.x86_64 Executing(%doc): /bin/sh -e /var/tmp/rpm-tmp.BlQE7V + umask 022 + cd /builddir/build/BUILD + cd clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa + DOCDIR=/builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/doc/clisp-devel + export LC_ALL=C + LC_ALL=C + export DOCDIR + /usr/bin/mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/usr/share/doc/clisp-devel + cp -pr modules/clx/clx-manual /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64/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-12.c26de78git.fc32 clisp-devel(x86-64) = 2.49.93-12.c26de78git.fc32 clisp-static = 2.49.93-12.c26de78git.fc32 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-12.c26de78git.fc32.x86_64 Provides: clisp-debugsource = 2.49.93-12.c26de78git.fc32 clisp-debugsource(x86-64) = 2.49.93-12.c26de78git.fc32 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-12.c26de78git.fc32.x86_64 Provides: clisp-debuginfo = 2.49.93-12.c26de78git.fc32 clisp-debuginfo(x86-64) = 2.49.93-12.c26de78git.fc32 debuginfo(build-id) = 1c8a9fe4406581208022138212635398e43308dc debuginfo(build-id) = 2edcc1e20e51d2002d60b0e77c3b1379e2ff35e0 debuginfo(build-id) = 476b80b35f2a2cb735466fcdba58e4b6e6aa5afe debuginfo(build-id) = 598108a7a8bc50b9f6be43c4a3d06fac6aee220f debuginfo(build-id) = 6c211ad90b8ff84a2ec9d06694ca2472f733f54b debuginfo(build-id) = 91839e017f787c62e3a20259fee172a35aa66928 debuginfo(build-id) = a6c7afbf051ea9d618d0347f79743d56aeac94c9 debuginfo(build-id) = bd3a85e18d4192fde1c0f9946896a82c18d24e07 debuginfo(build-id) = c489fcf67a397dc5edc5ac0a2e3bff081dff1e93 debuginfo(build-id) = d20d735ba8dc3bb04e38cdb29e67fd297b8e140c debuginfo(build-id) = d9061af825997e9e61ccd2f5076d0d24816eff2c debuginfo(build-id) = d9b4d4d74c3e31480866ced50f7b6ce73f79fb78 debuginfo(build-id) = df651926de0d07550ed914ad1ddc882e12ba2bbf debuginfo(build-id) = ebf2d78dcd5e31b2585da2e31fdc9085adfed094 debuginfo(build-id) = ede8825f646eb42e80945d0fb33dd6df87a82079 debuginfo(build-id) = f2ebc5844791c8d66c92e5afce278b0d10bd79c1 Requires(rpmlib): rpmlib(CompressedFileNames) <= 3.0.4-1 rpmlib(FileDigests) <= 4.6.0-1 rpmlib(PayloadFilesHavePrefix) <= 4.0-1 Recommends: clisp-debugsource(x86-64) = 2.49.93-12.c26de78git.fc32 Checking for unpackaged file(s): /usr/lib/rpm/check-files /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64 Wrote: /builddir/build/RPMS/clisp-debugsource-2.49.93-12.c26de78git.fc32.x86_64.rpm Wrote: /builddir/build/RPMS/clisp-debuginfo-2.49.93-12.c26de78git.fc32.x86_64.rpm Wrote: /builddir/build/RPMS/clisp-devel-2.49.93-12.c26de78git.fc32.x86_64.rpm Wrote: /builddir/build/RPMS/clisp-2.49.93-12.c26de78git.fc32.x86_64.rpm Executing(%clean): /bin/sh -e /var/tmp/rpm-tmp.Glud0U + umask 022 + cd /builddir/build/BUILD + cd clisp-c26de78733578fc38952d2485313065eba4f5caa-c26de78733578fc38952d2485313065eba4f5caa + /usr/bin/rm -rf /builddir/build/BUILDROOT/clisp-2.49.93-12.c26de78git.fc32.x86_64 + RPM_EC=0 ++ jobs -p + exit 0 Child return code was: 0